From 25b0c23db72989170906440386dd0145b924ba8f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 28 Feb 2018 09:32:08 -0700 Subject: [PATCH] expander: adjust bindings in `module->namespace` Make the module path index for bindings in a `module->namespace` be a "self" MPI (with #f for path and base), instead of the MPI associated with bindings as view from the outside of the module instance. That makes interactive evalaution in the namespace more closely approximate expansion within the original module. Example use: ASL detects a "self" MPI to determine when it should allow assignment to module-defined variables in the REPL. --- .../racket-test-core/tests/racket/module.rktl | 13 + .../tests/racket/namespac.rktl | 15 + racket/src/expander/compile/context.rkt | 4 +- racket/src/expander/eval/direct.rkt | 21 +- racket/src/expander/eval/module.rkt | 14 +- racket/src/expander/eval/root-context.rkt | 29 +- racket/src/expander/expand/context.rkt | 4 +- racket/src/expander/expand/cross-phase.rkt | 3 +- racket/src/expander/expand/def-id.rkt | 2 +- racket/src/expander/expand/expr.rkt | 4 +- racket/src/expander/expand/main.rkt | 4 +- racket/src/expander/expand/module.rkt | 1 + .../expander/expand/root-expand-context.rkt | 16 +- racket/src/expander/namespace/api-module.rkt | 3 +- racket/src/expander/namespace/namespace.rkt | 7 +- racket/src/racket/src/startup.inc | 27884 ++++++++-------- 16 files changed, 14279 insertions(+), 13745 deletions(-) diff --git a/pkgs/racket-test-core/tests/racket/module.rktl b/pkgs/racket-test-core/tests/racket/module.rktl index d5875a1478..c9bf4cec31 100644 --- a/pkgs/racket-test-core/tests/racket/module.rktl +++ b/pkgs/racket-test-core/tests/racket/module.rktl @@ -2318,6 +2318,19 @@ case of module-leve bindings; it doesn't cover local bindings. (module use-module-begin-and-unique-context-check 'module-begin-and-unique-context-check (#%expression (check-unique-context))) +;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Check that a namespace can modify a module's mutable variables + +(module uses-a-namespace-to-mutate-x racket/base + (provide done) + (define x 8) + (define (inc!) (set! x (add1 x))) + (eval '(set! x 0) + (variable-reference->namespace (#%variable-reference))) + (define done x)) + +(test 0 dynamic-require ''uses-a-namespace-to-mutate-x 'done) + ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (report-errs) diff --git a/pkgs/racket-test-core/tests/racket/namespac.rktl b/pkgs/racket-test-core/tests/racket/namespac.rktl index e5cf9c851b..7cb290d286 100644 --- a/pkgs/racket-test-core/tests/racket/namespac.rktl +++ b/pkgs/racket-test-core/tests/racket/namespac.rktl @@ -431,4 +431,19 @@ ;; ---------------------------------------- +(module check-module-path-index-inside-and-outside racket/base + (provide get) + (define me 5) + (define (get) + (define-values (path1 base1) (module-path-index-split (car (identifier-binding #'me)))) + (define-values (path2 base2) + (eval '(module-path-index-split (car (identifier-binding #'me))) + (variable-reference->namespace (#%variable-reference)))) + (list (list path1 base1) (list path2 base2)))) + +(test '(('check-module-path-index-inside-and-outside #f) (#f #f)) + (dynamic-require ''check-module-path-index-inside-and-outside 'get)) + +;; ---------------------------------------- + (report-errs) diff --git a/racket/src/expander/compile/context.rkt b/racket/src/expander/compile/context.rkt index 132957bf7f..816282c595 100644 --- a/racket/src/expander/compile/context.rkt +++ b/racket/src/expander/compile/context.rkt @@ -6,7 +6,7 @@ (struct compile-context (namespace ; compile-time namespace phase ; phase (top level) or phase level (within a module) - self ; if non-#f module path index, compiling the body of a module + self ; to detect bindings within the same namespace module-self ; if non-#f, same as `self` and compiling the body of a module full-module-name ; set to a symbol or symbol list if `self` is non-#f lazy-syntax-literals? ; #t (for modules) => deserialize and shift syntax on demand @@ -15,7 +15,7 @@ (define (make-compile-context #:namespace [namespace (current-namespace)] #:phase [phase (namespace-phase namespace)] - #:self [self (namespace-mpi namespace)] + #:self [self (namespace-self-mpi namespace)] #:module-self [module-self #f] #:full-module-name [full-module-name #f] #:lazy-syntax-literals? [lazy-syntax-literals? (and module-self #t)]) diff --git a/racket/src/expander/eval/direct.rkt b/racket/src/expander/eval/direct.rkt index f4fa4c0f51..3a5ecfe1d5 100644 --- a/racket/src/expander/eval/direct.rkt +++ b/racket/src/expander/eval/direct.rkt @@ -19,30 +19,30 @@ (define not-available (gensym 'not-available)) (define (get-not-available) not-available) -(define (can-direct-eval? p ns) +(define (can-direct-eval? p ns self-mpi) (cond [(parsed-app? p) - (and (can-direct-eval? (parsed-app-rator p) ns) + (and (can-direct-eval? (parsed-app-rator p) ns self-mpi) (for/and ([r (in-list (parsed-app-rands p))]) - (can-direct-eval? r ns)))] - [(parsed-id? p) (not (eq? (get-id-value p ns) not-available))] + (can-direct-eval? r ns self-mpi)))] + [(parsed-id? p) (not (eq? (get-id-value p ns self-mpi) not-available))] [(parsed-quote? p) #t] [(parsed-quote-syntax? p) #t] [else #f])) -(define (direct-eval p ns) +(define (direct-eval p ns self-mpi) (cond [(parsed-app? p) - (apply (direct-eval (parsed-app-rator p) ns) + (apply (direct-eval (parsed-app-rator p) ns self-mpi) (for/list ([r (in-list (parsed-app-rands p))]) - (direct-eval r ns)))] - [(parsed-id? p) (get-id-value p ns)] + (direct-eval r ns self-mpi)))] + [(parsed-id? p) (get-id-value p ns self-mpi)] [(parsed-quote? p) (parsed-quote-datum p)] [(parsed-quote-syntax? p) (parsed-quote-syntax-datum p)] [else #f])) ;; Return `not-available` if the value is not readily available. -(define (get-id-value p ns) +(define (get-id-value p ns self-mpi) (define b (parsed-id-binding p)) (cond [(parsed-primitive-id? p) @@ -51,8 +51,7 @@ get-not-available)] [(or (parsed-top-id? p) (not b) - (eq? (namespace-mpi ns) - (module-binding-module b))) + (eq? self-mpi (module-binding-module b))) (namespace-get-variable ns (if b (module-binding-phase b) (namespace-phase ns)) diff --git a/racket/src/expander/eval/module.rkt b/racket/src/expander/eval/module.rkt index 6e86217bc1..27b5d8a8da 100644 --- a/racket/src/expander/eval/module.rkt +++ b/racket/src/expander/eval/module.rkt @@ -278,16 +278,20 @@ (cond [(eq? get-encoded-root-expand-ctx 'empty) ;; A `#:empty-namespace` declaration requested a namespace with no initial bindings - (namespace-set-root-expand-ctx! ns (delay (make-root-expand-context)))] + (namespace-set-root-expand-ctx! ns (delay (shift-to-inside-root-context + (make-root-expand-context self))))] [(procedure? get-encoded-root-expand-ctx) ;; Root expand context has been preserved; deserialize it on demand - (namespace-set-root-expand-ctx! ns (delay (root-expand-context-decode-for-module - (get-encoded-root-expand-ctx))))] + (namespace-set-root-expand-ctx! ns (delay (shift-to-inside-root-context + (root-expand-context-decode-for-module + (get-encoded-root-expand-ctx) + self))))] [else ;; Root expand context has not been preserved, because it can be reconstructed ;; from module metadata; do that on demand - (namespace-set-root-expand-ctx! ns (delay (create-root-expand-context-from-module - ns phase-shift original-self self)))])) + (namespace-set-root-expand-ctx! ns (delay (shift-to-inside-root-context + (create-root-expand-context-from-module + ns phase-shift original-self self))))])) ;; ---------------------------------------- diff --git a/racket/src/expander/eval/root-context.rkt b/racket/src/expander/eval/root-context.rkt index b4e75e4575..dc96f5748b 100644 --- a/racket/src/expander/eval/root-context.rkt +++ b/racket/src/expander/eval/root-context.rkt @@ -9,9 +9,12 @@ "../syntax/module-binding.rkt" "../common/module-path.rkt" "../common/phase.rkt" + "../common/struct-star.rkt" + "../namespace/namespace.rkt" "../host/linklet.rkt") -(provide make-create-root-expand-context-from-module) +(provide make-create-root-expand-context-from-module + shift-to-inside-root-context) ;; Reconstructs a `root-expand-context` for a module based on its ;; metadata, specifically its requires and the exports of its @@ -22,7 +25,7 @@ ;; contain information that is inconsistent with this reconstruction. (define (make-create-root-expand-context-from-module requires evaled-ld-h) (lambda (ns phase-shift original-self self) - (define root-ctx (make-root-expand-context)) + (define root-ctx (make-root-expand-context #:self-mpi (namespace-mpi ns))) (define s (add-scopes empty-syntax (root-expand-context-module-scopes root-ctx))) ;; Add bindings for `require`s @@ -49,3 +52,25 @@ (add-defined-sym! defined-syms phase sym id))) root-ctx)) + +;; ---------------------------------------- + +;; Shift `all-scopes-stx` so that the module path index reported for +;; bindings within the module are relative to a "self" MPI (with #f +;; for the path and base) instead of the MPI that is suitable for +;; viewing bindings from outside the module. This shift makes +;; interactive evaluation better approximate the original expansion of +;; the module, but it means that that the MPI on syntax objects within +;; the module is different from the MPI on syntax objects created +;; interactively (i.e., the interactive ones look more like bindings +;; before the module has been fully compiled and instantiated). +(define (shift-to-inside-root-context root-context) + (define outside-mpi (root-expand-context-self-mpi root-context)) + (define inside-mpi (make-self-module-path-index (module-path-index-resolved outside-mpi))) + (struct*-copy root-expand-context root-context + [self-mpi inside-mpi] + [all-scopes-stx + (syntax-module-path-index-shift + (root-expand-context-all-scopes-stx root-context) + outside-mpi + inside-mpi)])) diff --git a/racket/src/expander/expand/context.rkt b/racket/src/expander/expand/context.rkt index 5d3d52c5c5..2b7bd53237 100644 --- a/racket/src/expander/expand/context.rkt +++ b/racket/src/expander/expand/context.rkt @@ -72,7 +72,8 @@ #:for-serializable? [for-serializable? #f] #:observer [observer #f]) (define root-ctx (namespace-get-root-expand-ctx ns)) - (expand-context (root-expand-context-module-scopes root-ctx) + (expand-context (root-expand-context-self-mpi root-ctx) + (root-expand-context-module-scopes root-ctx) (root-expand-context-post-expansion-scope root-ctx) (root-expand-context-top-level-bind-scope root-ctx) (root-expand-context-all-scopes-stx root-ctx) @@ -113,6 +114,7 @@ (define (copy-root-expand-context ctx root-ctx) (struct*-copy expand-context ctx + [self-mpi #:parent root-expand-context (root-expand-context-self-mpi root-ctx)] [module-scopes #:parent root-expand-context (root-expand-context-module-scopes root-ctx)] [post-expansion-scope #:parent root-expand-context (root-expand-context-post-expansion-scope root-ctx)] [top-level-bind-scope #:parent root-expand-context (root-expand-context-top-level-bind-scope root-ctx)] diff --git a/racket/src/expander/expand/cross-phase.rkt b/racket/src/expander/expand/cross-phase.rkt index 74cff4eb2f..ee95c3885d 100644 --- a/racket/src/expander/expand/cross-phase.rkt +++ b/racket/src/expander/expand/cross-phase.rkt @@ -86,7 +86,8 @@ (define normal-b (parsed-id-binding id)) (when (or (not normal-b) (parsed-top-id? id) - (eq? (module-binding-module normal-b) self-mpi)) + (and (not (symbol? normal-b)) + (eq? (module-binding-module normal-b) self-mpi))) (disallow e)) (check-no-disallowed-expr (parsed-set!-rhs e))] [(parsed-with-continuation-mark? e) diff --git a/racket/src/expander/expand/def-id.rkt b/racket/src/expander/expand/def-id.rkt index a8e2ab86d4..aed50b8b16 100644 --- a/racket/src/expander/expand/def-id.rkt +++ b/racket/src/expander/expand/def-id.rkt @@ -87,7 +87,7 @@ (define (select-defined-syms-and-bind!/ctx tl-ids ctx) (select-defined-syms-and-bind! tl-ids (root-expand-context-defined-syms ctx) - (namespace-mpi (expand-context-namespace ctx)) + (root-expand-context-self-mpi ctx) (expand-context-phase ctx) (root-expand-context-all-scopes-stx ctx) #:frame-id (root-expand-context-frame-id ctx) diff --git a/racket/src/expander/expand/expr.rkt b/racket/src/expander/expand/expr.rkt index bedaaec845..4aaf6ebccd 100644 --- a/racket/src/expander/expand/expr.rkt +++ b/racket/src/expander/expand/expr.rkt @@ -573,7 +573,7 @@ (raise-ambiguous-error id ctx)] [(and b (module-binding? b) - (eq? (module-binding-module b) (namespace-mpi (expand-context-namespace ctx)))) + (eq? (module-binding-module b) (root-expand-context-self-mpi ctx))) ;; Allow `#%top` in a module or top-level where it refers to the same ;; thing that the identifier by itself would refer to; in that case ;; `#%top` can be stripped within a module @@ -638,7 +638,7 @@ (expand-context-allow-unbound? ctx)))) (when (and (module-binding? binding) (not (eq? (module-binding-module binding) - (namespace-mpi (expand-context-namespace ctx))))) + (root-expand-context-self-mpi ctx)))) (raise-syntax-error #f "cannot mutate module-required identifier" s id)) (log-expand ctx 'next) (register-variable-referenced-if-local! binding) diff --git a/racket/src/expander/expand/main.rkt b/racket/src/expander/expand/main.rkt index 54eca8096c..fc65321b93 100644 --- a/racket/src/expander/expand/main.rkt +++ b/racket/src/expander/expand/main.rkt @@ -629,7 +629,7 @@ ;; ensuring that the number of returned values matches the number of ;; target identifiers; return the values (define (eval-for-bindings ids p phase ns ctx) - (define compiled (if (can-direct-eval? p ns) + (define compiled (if (can-direct-eval? p ns (root-expand-context-self-mpi ctx)) #f (compile-single p (make-compile-context #:namespace ns @@ -641,7 +641,7 @@ [eval-jit-enabled #f]) (if compiled (eval-single-top compiled ns) - (direct-eval p ns)))) + (direct-eval p ns (root-expand-context-self-mpi ctx))))) list)) (unless (= (length vals) (length ids)) (error "wrong number of results (" (length vals) "vs." (length ids) ")" diff --git a/racket/src/expander/expand/module.rkt b/racket/src/expander/expand/module.rkt index 41f686b51b..4a1ee682ff 100644 --- a/racket/src/expander/expand/module.rkt +++ b/racket/src/expander/expand/module.rkt @@ -135,6 +135,7 @@ initial-require-s)) (define root-ctx (make-root-expand-context + #:self-mpi self #:initial-scopes (if keep-enclosing-scope-at-phase (root-expand-context-module-scopes init-ctx) null) diff --git a/racket/src/expander/expand/root-expand-context.rkt b/racket/src/expander/expand/root-expand-context.rkt index 8d5dc948f2..3a7729aa6b 100644 --- a/racket/src/expander/expand/root-expand-context.rkt +++ b/racket/src/expander/expand/root-expand-context.rkt @@ -18,7 +18,8 @@ ;; generated by `module->namespace` --- or preserved across different ;; expansions at the top level (struct* root-expand-context - (module-scopes ; list of scopes for enclosing module or top level; includes next two fields + (self-mpi ; MPI for the enclosing module during compilation + module-scopes ; list of scopes for enclosing module or top level; includes next two fields * post-expansion-scope ; #f or scope to add to every expansion; often module's inside edge top-level-bind-scope ; #f or a scope to constrain expansion bindings; see "expand-bind-top.rkt" all-scopes-stx ; scopes like the initial import, which correspond to original forms @@ -29,14 +30,16 @@ lift-key ; identifies (via `syntax-local-lift-context`) a target for lifts )) ; after adding a field, update `copy-module-context` in "context.rkt" -(define (make-root-expand-context #:initial-scopes [initial-scopes null] +(define (make-root-expand-context #:self-mpi self-mpi + #:initial-scopes [initial-scopes null] #:outside-scope [outside-scope top-level-common-scope] #:post-expansion-scope [post-expansion-scope (new-multi-scope 'top-level)] #:all-scopes-stx [all-scopes-stx #f]) (define module-scopes (list* post-expansion-scope outside-scope initial-scopes)) - (root-expand-context module-scopes + (root-expand-context self-mpi + module-scopes post-expansion-scope (new-scope 'module) ; top-level-bind-scope (or all-scopes-stx @@ -62,8 +65,8 @@ (root-expand-context-frame-id ctx) (unbox (root-expand-context-counter ctx))))) -;; Encode information in a syntax object that can be serialized and deserialized -(define (root-expand-context-decode-for-module vec-s) +;; Decode the value produced by `root-expand-context-encode-for-module` +(define (root-expand-context-decode-for-module vec-s self) (define vec (and (syntax? vec-s) (syntax-e vec-s))) (unless (and (vector? vec) (= (vector-length vec) 7) @@ -77,7 +80,8 @@ (error 'root-expand-context-decode-for-module "bad encoding: ~s" vec-s)) - (root-expand-context (extract-scope-list (vector-ref vec 0)) ; module-scopes + (root-expand-context self + (extract-scope-list (vector-ref vec 0)) ; module-scopes (extract-scope (vector-ref vec 1)) ; post-expansion-scope (new-scope 'module) ; top-level-bind-scope (vector-ref vec 2) ; all-scopes-stx diff --git a/racket/src/expander/namespace/api-module.rkt b/racket/src/expander/namespace/api-module.rkt index cf7b855ef2..e85e73f9ee 100644 --- a/racket/src/expander/namespace/api-module.rkt +++ b/racket/src/expander/namespace/api-module.rkt @@ -87,7 +87,8 @@ "module name" name)) (unless (namespace-get-root-expand-ctx m-ns) ;; Instantiating the module didn't install a context, so make one now - (namespace-set-root-expand-ctx! m-ns (make-root-expand-context))) + (namespace-set-root-expand-ctx! m-ns (make-root-expand-context + #:self-mpi (namespace-mpi m-ns)))) ;; Ensure that the module is available (namespace-module-make-available! ns (namespace-mpi m-ns) phase) m-ns) diff --git a/racket/src/expander/namespace/namespace.rkt b/racket/src/expander/namespace/namespace.rkt index 584c980e5c..35d3da4850 100644 --- a/racket/src/expander/namespace/namespace.rkt +++ b/racket/src/expander/namespace/namespace.rkt @@ -19,6 +19,7 @@ namespace-root-namespace namespace-get-root-expand-ctx namespace-set-root-expand-ctx! + namespace-self-mpi namespace->namespace-at-phase namespace->module namespace-mpi @@ -85,7 +86,8 @@ (new-namespace)) (define (new-namespace [share-from-ns #f] - #:root-expand-ctx [root-expand-ctx (make-root-expand-context)] + #:root-expand-ctx [root-expand-ctx (make-root-expand-context + #:self-mpi top-level-module-path-index)] #:register? [register? #t]) (define phase (if share-from-ns (namespace-phase share-from-ns) @@ -134,6 +136,9 @@ (define (namespace-set-root-expand-ctx! ns root-ctx) (set-box! (namespace-root-expand-ctx ns) root-ctx)) +(define (namespace-self-mpi ns) + (root-expand-context-self-mpi (namespace-get-root-expand-ctx ns))) + (define (namespace->module ns name) (or (small-hash-ref (namespace-submodule-declarations ns) name #f) (hash-ref (module-registry-declarations (namespace-module-registry ns)) name #f))) diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 202c5e22a9..d89169e119 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -602,10 +602,115 @@ static const char *startup_source = "(let-values()(thunk_1)))" " (raise-argument-error 'call-with-default-reading-parameterization \"(procedure-arity-includes/c 0)\" thunk_1)))))" "(define-values" +"(prop:keyword-impersonator keyword-impersonator? keyword-impersonator-ref)" +"(make-struct-type-property 'keyword-impersonator))" +"(define-values" +"(keyword-procedure-impersonator-of)" +"(lambda(v_8)" +"(begin(if(keyword-impersonator? v_8)(let-values()((keyword-impersonator-ref v_8) v_8))(let-values() #f)))))" +"(define-values" +"(struct:keyword-procedure mk-kw-proc keyword-procedure? keyword-procedure-ref keyword-procedure-set!)" +"(make-struct-type" +" 'keyword-procedure" +" #f" +" 4" +" 0" +" #f" +"(list(cons prop:checked-procedure #t)(cons prop:impersonator-of keyword-procedure-impersonator-of))" +"(current-inspector)" +" #f" +" '(0 1 2 3)))" +"(define-values(keyword-procedure-checker)(make-struct-field-accessor keyword-procedure-ref 0))" +"(define-values(keyword-procedure-proc)(make-struct-field-accessor keyword-procedure-ref 1))" +"(define-values(keyword-procedure-required)(make-struct-field-accessor keyword-procedure-ref 2))" +"(define-values(keyword-procedure-allowed)(make-struct-field-accessor keyword-procedure-ref 3))" +"(define-values" +"(struct:keyword-method make-km keyword-method? km-ref km-set!)" +"(make-struct-type 'procedure struct:keyword-procedure 0 0 #f(list(cons prop:method-arity-error #t))))" +"(define-values" +"(generate-arity-string)" +"(lambda(proc_0)" +"(begin" +"(let-values(((req_0 allowed_0)(procedure-keywords proc_0))" +"((a_1)(procedure-arity proc_0))" +"((keywords-desc_0)" +"(lambda(opt_0 req_1)" +"(begin" +" 'keywords-desc" +"(format" +" \"~a with keyword~a~a\"" +" (if (null? (cdr req_1)) (format \"an ~aargument\" opt_0) (format \"~aarguments\" opt_0))" +" (if (null? (cdr req_1)) \"\" \"s\")" +"(let-values(((tmp_0)(length req_1)))" +"(if(equal? tmp_0 1)" +" (let-values () (format \" ~a\" (car req_1)))" +"(if(equal? tmp_0 2)" +" (let-values () (format \" ~a and ~a\" (car req_1) (cadr req_1)))" +"(let-values()" +"((letrec-values(((loop_8)" +"(lambda(req_2)" +"(begin" +" 'loop" +"(if(null?(cdr req_2))" +" (format \" and ~a\" (car req_2))" +" (format \" ~a,~a\" (car req_2) (loop_8 (cdr req_2))))))))" +" loop_8)" +" req_1)))))))))" +"((method-adjust_0)" +"(lambda(a_2)" +"(begin" +" 'method-adjust" +"(if(let-values(((or-part_14)(okm? proc_0)))" +"(if or-part_14 or-part_14(keyword-method? proc_0)))" +"(if(zero? a_2) 0(sub1 a_2))" +" a_2)))))" +"(string-append" +"(if(number? a_1)" +" (let-values () (let-values (((a_3) (method-adjust_0 a_1))) (format \"~a\" a_3)))" +"(if(arity-at-least? a_1)" +"(let-values()" +" (let-values (((a_4) (method-adjust_0 (arity-at-least-value a_1)))) (format \"at least ~a\" a_4)))" +" (let-values () \"a different number\")))" +" (if (null? req_0) \"\" (format \" plus ~a\" (keywords-desc_0 \"\" req_0)))" +"(if allowed_0" +"(let-values(((others_0)" +"((letrec-values(((loop_9)" +"(lambda(req_3 allowed_1)" +"(begin" +" 'loop" +"(if(null? req_3)" +"(let-values() allowed_1)" +"(if(eq?(car req_3)(car allowed_1))" +"(let-values()(loop_9(cdr req_3)(cdr allowed_1)))" +"(let-values()" +"(cons(car allowed_1)(loop_9 req_3(cdr allowed_1))))))))))" +" loop_9)" +" req_0" +" allowed_0)))" +" (if (null? others_0) \"\" (format \" plus ~a\" (keywords-desc_0 \"optional \" others_0))))" +" \" plus arbitrary keyword arguments\"))))))" +"(define-values" +"(struct:okp make-optional-keyword-procedure okp? okp-ref okp-set!)" +"(make-struct-type" +" 'procedure" +" struct:keyword-procedure" +" 1" +" 0" +" #f" +"(list(cons prop:arity-string generate-arity-string))" +"(current-inspector)" +" 0))" +"(define-values" +"(struct:okm make-optional-keyword-method okm? okm-ref okm-set!)" +"(make-struct-type 'procedure struct:okp 0 0 #f(list(cons prop:method-arity-error #t))))" +"(define-values" +"(prop:named-keyword-procedure named-keyword-procedure? keyword-procedure-name+fail)" +"(make-struct-type-property 'named-keyword-procedure))" +"(define-values" "(prop:procedure-accessor procedure-accessor? procedure-accessor-ref)" "(make-struct-type-property" " 'procedure" -"(lambda(v_8 info-l_0)(if(exact-integer? v_8)(make-struct-field-accessor(list-ref info-l_0 3) v_8) #f))))" +"(lambda(v_9 info-l_0)(if(exact-integer? v_9)(make-struct-field-accessor(list-ref info-l_0 3) v_9) #f))))" "(define-values" "(new-prop:procedure new-procedure? new-procedure-ref)" "(make-struct-type-property" @@ -614,34 +719,227 @@ static const char *startup_source = "(list(cons prop:procedure values)(cons prop:procedure-accessor values))" " #t))" "(define-values" +"(struct:keyword-procedure/arity-error make-kp/ae kp/ae? kp/ae-ref kp/ae-set!)" +"(make-struct-type" +" 'procedure" +" struct:keyword-procedure" +" 0" +" 0" +" #f" +"(list(cons prop:arity-string generate-arity-string)(cons prop:incomplete-arity #t))))" +"(define-values" +"(procedure-keywords)" +"(lambda(p_2)" +"(begin" +"(if(keyword-procedure? p_2)" +"(let-values()(values(keyword-procedure-required p_2)(keyword-procedure-allowed p_2)))" +"(if(procedure? p_2)" +"(let-values()" +"(if(new-procedure? p_2)" +"(let-values(((v_10)(new-procedure-ref p_2)))" +"(if(procedure? v_10)" +"(procedure-keywords v_10)" +"(let-values(((a_5)(procedure-accessor-ref p_2)))" +"(if a_5(procedure-keywords(a_5 p_2))(values null null)))))" +"(values null null)))" +" (let-values () (raise-argument-error 'procedure-keywords \"procedure?\" p_2)))))))" +"(define-values" +"(missing-kw)" +"(lambda(proc_1 . args_0)(begin(apply(keyword-procedure-extract/method null 0 proc_1 0) null null args_0))))" +"(define-values" +"(check-kw-args)" +"(lambda(p_3 kws_0)" +"(begin" +"((letrec-values(((loop_10)" +"(lambda(kws_1 required_0 allowed_2)" +"(begin" +" 'loop" +"(if(null? kws_1)" +"(let-values()(if(null? required_0)(values #f #f)(values(car required_0) #f)))" +"(if(if(pair? required_0)(eq?(car required_0)(car kws_1)) #f)" +"(let-values()(loop_10(cdr kws_1)(cdr required_0)(if allowed_2(cdr allowed_2) #f)))" +"(if(not allowed_2)" +"(let-values()(loop_10(cdr kws_1) required_0 #f))" +"(if(pair? allowed_2)" +"(let-values()" +"(if(eq?(car allowed_2)(car kws_1))" +"(loop_10(cdr kws_1) required_0(cdr allowed_2))" +"(loop_10 kws_1 required_0(cdr allowed_2))))" +"(let-values()(values #f(car kws_1)))))))))))" +" loop_10)" +" kws_0" +"(keyword-procedure-required p_3)" +"(keyword-procedure-allowed p_3)))))" +"(define-values" +"(subset?$1)" +"(lambda(l1_0 l2_0)" +"(begin" +" 'subset?" +"(if(null? l1_0)" +"(let-values() #t)" +"(if(null? l2_0)" +"(let-values() #f)" +"(if(eq?(car l1_0)(car l2_0))" +"(let-values()(subset?$1(cdr l1_0)(cdr l2_0)))" +"(let-values()(subset?$1 l1_0(cdr l2_0)))))))))" +"(define-values" +"(subsets?)" +"(lambda(l1_1 l2_1 l3_0)" +"(begin" +"(if(null? l1_1)" +"(let-values()(subset?$1 l2_1 l3_0))" +"(if(null? l2_1)" +"(let-values() #f)" +"(if(null? l3_0)" +"(let-values() #f)" +"(let-values()" +"(let-values(((v2_0)(car l2_1)))" +"(if(eq?(car l1_1) v2_0)" +"(let-values()(subsets?(cdr l1_1)(cdr l2_1)(cdr l3_0)))" +"(if(eq? v2_0(car l3_0))" +"(let-values()(subsets? l1_1(cdr l2_1)(cdr l3_0)))" +"(let-values()(subsets? l1_1 l2_1(cdr l3_0)))))))))))))" +"(define-values" +"(keyword-procedure-extract/method)" +"(lambda(kws_2 n_1 p_4 method-n_0)" +"(begin" +"(if(if(keyword-procedure? p_4)((keyword-procedure-checker p_4) kws_2 n_1) #f)" +"(keyword-procedure-proc p_4)" +"(let-values(((p2_0)" +"(if(not(keyword-procedure? p_4))" +"(if(procedure? p_4)" +"(let-values(((or-part_15)" +"(if(new-procedure? p_4)" +"(let-values(((a_6)(procedure-accessor-ref p_4)))(if a_6(a_6 p_4) #f))" +" #f)))" +"(if or-part_15" +" or-part_15" +"(let-values(((or-part_16)(procedure-extract-target p_4)))" +"(if or-part_16 or-part_16(if(new-procedure? p_4) 'method #f)))))" +" #f)" +" #f)))" +"(if p2_0" +"(if(eq? p2_0 'method)" +"(let-values(((p3_0)" +"(keyword-procedure-extract/method" +" kws_2" +"(add1 n_1)" +"(new-procedure-ref p_4)" +"(add1 method-n_0))))" +"(lambda(kws_3 kw-args_0 . args_1)(apply p3_0 kws_3 kw-args_0(cons p_4 args_1))))" +"(keyword-procedure-extract/method kws_2 n_1 p2_0 method-n_0))" +"(lambda(kws_4 kw-args_1 . args_2)" +"(let-values(((missing-kw_0 extra-kw_0)" +"(if(keyword-procedure? p_4)(check-kw-args p_4 kws_4)(values #f(car kws_4)))))" +"(let-values(((n_2)" +"(let-values(((method-n_1)" +"(+" +" method-n_0" +"(if(let-values(((or-part_17)(keyword-method? p_4)))" +"(if or-part_17 or-part_17(okm? p_4)))" +" 1" +" 0))))" +"(if(>= n_1 method-n_1)(- n_1 method-n_1) n_1)))" +"((args-str_0)" +"(if(if(null? args_2)(null? kws_4) #f)" +" \"\"" +"(apply" +" string-append" +" \"\\n arguments...:\"" +"(append" +" (map (lambda (v_11) (format \"\\n ~e\" v_11)) args_2)" +" (map (lambda (kw_0 kw-arg_0) (format \"\\n ~a ~e\" kw_0 kw-arg_0)) kws_4 kw-args_1)))))" +"((proc-name_0)" +"(lambda(p_5)" +"(begin" +" 'proc-name" +"(let-values(((or-part_18)" +"(if(named-keyword-procedure? p_5)" +"(car(keyword-procedure-name+fail p_5))" +" #f)))" +"(if or-part_18" +" or-part_18" +"(let-values(((or-part_19)(object-name p_5)))" +"(if or-part_19 or-part_19 p_5))))))))" +"(raise" +"(exn:fail:contract" +"(if extra-kw_0" +"(if(keyword-procedure? p_4)" +"(format" +"(string-append" +" \"application: procedure does not expect an argument with given keyword\\n\"" +" \" procedure: ~a\\n\"" +" \" given keyword: ~a\"" +" \"~a\")" +"(proc-name_0 p_4)" +" extra-kw_0" +" args-str_0)" +"(if(procedure? p_4)" +"(format" +"(string-append" +" \"application: procedure does not accept keyword arguments\\n\"" +" \" procedure: ~a\"" +" \"~a\")" +"(proc-name_0 p_4)" +" args-str_0)" +"(format" +"(string-append" +" \"application: not a procedure;\\n\"" +" \" expected a procedure that can be applied to arguments\\n\"" +" \" given: ~e\"" +" \"~a\")" +" p_4" +" args-str_0)))" +"(if missing-kw_0" +"(format" +"(string-append" +" \"application: required keyword argument not supplied\\n\"" +" \" procedure: ~a\\n\"" +" \" required keyword: ~a\"" +" \"~a\")" +"(proc-name_0 p_4)" +" missing-kw_0" +" args-str_0)" +"(format" +"(string-append" +" \"application: no case matching ~a non-keyword argument~a\\n\"" +" \" procedure: ~a\"" +" \"~a\")" +"(- n_2 2)" +" (if (= 1 (- n_2 2)) \"\" \"s\")" +"(proc-name_0 p_4)" +" args-str_0)))" +"(current-continuation-marks))))))))))))" +"(define-values" "(reverse$1)" "(lambda(l_3)" "(begin" " 'reverse" "(begin" " (if (list? l_3) (void) (raise-argument-error 'reverse \"list?\" l_3))" -"(letrec-values(((loop_8)" -"(lambda(a_1 l_4)(begin 'loop(if(null? l_4) a_1(loop_8(cons(car l_4) a_1)(cdr l_4)))))))" -"(loop_8 null l_3))))))" +"(letrec-values(((loop_11)" +"(lambda(a_7 l_4)" +"(begin 'loop(if(null? l_4) a_7(loop_11(cons(car l_4) a_7)(cdr l_4)))))))" +"(loop_11 null l_3))))))" "(define-values" "(sort vector-sort vector-sort!)" "(let-values()" "(let-values(((generic-sort_0)" -"(lambda(A_0 less-than?_0 n_1)" +"(lambda(A_0 less-than?_0 n_3)" "(begin" " 'generic-sort" "(let-values()" "(let-values()" -"(let-values(((n/2-_0)(unsafe-fxrshift n_1 1)))" -"(let-values(((n/2+_0)(unsafe-fx- n_1 n/2-_0)))" +"(let-values(((n/2-_0)(unsafe-fxrshift n_3 1)))" +"(let-values(((n/2+_0)(unsafe-fx- n_3 n/2-_0)))" "(letrec-values(((copying-mergesort_0)" -"(lambda(Alo_0 Blo_0 n_2)" +"(lambda(Alo_0 Blo_0 n_4)" "(begin" " 'copying-mergesort" -"(if(unsafe-fx= n_2 1)" +"(if(unsafe-fx= n_4 1)" "(let-values()" "(unsafe-vector-set! A_0 Blo_0(unsafe-vector-ref A_0 Alo_0)))" -"(if(unsafe-fx= n_2 2)" +"(if(unsafe-fx= n_4 2)" "(let-values()" "(let-values(((x_0)(unsafe-vector-ref A_0 Alo_0))" "((y_0)" @@ -653,7 +951,7 @@ static const char *startup_source = "(begin" "(unsafe-vector-set! A_0 Blo_0 x_0)" "(unsafe-vector-set! A_0(unsafe-fx+ Blo_0 1) y_0)))))" -"(if(unsafe-fx< n_2 16)" +"(if(unsafe-fx< n_4 16)" "(let-values()" "(begin" "(unsafe-vector-set!" @@ -664,7 +962,7 @@ static const char *startup_source = "(lambda(i_4)" "(begin" " 'iloop" -"(if(unsafe-fx< i_4 n_2)" +"(if(unsafe-fx< i_4 n_4)" "(let-values()" "(let-values(((ref-i_0)" "(unsafe-vector-ref" @@ -713,16 +1011,16 @@ static const char *startup_source = " iloop_0)" " 1)))" "(let-values()" -"(let-values(((n/2-_1)(unsafe-fxrshift n_2 1)))" -"(let-values(((n/2+_1)(unsafe-fx- n_2 n/2-_1)))" +"(let-values(((n/2-_1)(unsafe-fxrshift n_4 1)))" +"(let-values(((n/2+_1)(unsafe-fx- n_4 n/2-_1)))" "(let-values(((Amid1_0)(unsafe-fx+ Alo_0 n/2-_1))" "((Amid2_0)(unsafe-fx+ Alo_0 n/2+_1))" "((Bmid1_0)(unsafe-fx+ Blo_0 n/2-_1)))" "(begin" "(copying-mergesort_0 Amid1_0 Bmid1_0 n/2+_1)" "(copying-mergesort_0 Alo_0 Amid2_0 n/2-_1)" -"(let-values(((b2_0)(unsafe-fx+ Blo_0 n_2)))" -"((letrec-values(((loop_9)" +"(let-values(((b2_0)(unsafe-fx+ Blo_0 n_4)))" +"((letrec-values(((loop_12)" "(lambda(a1_0 b1_0 c1_0)" "(begin" " 'loop" @@ -755,7 +1053,7 @@ static const char *startup_source = " c1_1" " b1_0)" "(let-values()" -"(loop_9" +"(loop_12" " a1_1" " b1_0" " c1_1))" @@ -776,7 +1074,7 @@ static const char *startup_source = "(if(unsafe-fx<=" " b2_0" " b1_1)" -"((letrec-values(((loop_10)" +"((letrec-values(((loop_13)" "(lambda(a1_2" " c1_3)" "(begin" @@ -792,7 +1090,7 @@ static const char *startup_source = "(unsafe-vector-ref" " A_0" " a1_2))" -"(loop_10" +"(loop_13" "(unsafe-fx+" " a1_2" " 1)" @@ -800,29 +1098,29 @@ static const char *startup_source = " c1_3" " 1))))" "(void))))))" -" loop_10)" +" loop_13)" " a1_0" " c1_2)" -"(loop_9" +"(loop_12" " a1_0" " b1_1" " c1_2))))))))))" -" loop_9)" +" loop_12)" " Amid2_0" " Bmid1_0" " Blo_0))))))))))))))" "(let-values(((Alo_1) 0)" "((Amid1_1) n/2-_0)" "((Amid2_1) n/2+_0)" -"((Ahi_0) n_1)" -"((B1lo_0) n_1))" +"((Ahi_0) n_3)" +"((B1lo_0) n_3))" "(begin" "(copying-mergesort_0 Amid1_1 B1lo_0 n/2+_0)" "(if(zero? n/2-_0)" "(void)" "(let-values()(copying-mergesort_0 Alo_1 Amid2_1 n/2-_0)))" "(let-values(((b2_1) Ahi_0))" -"((letrec-values(((loop_11)" +"((letrec-values(((loop_14)" "(lambda(a1_3 b1_2 c1_4)" "(begin" " 'loop" @@ -834,14 +1132,14 @@ static const char *startup_source = "(let-values(((a1_4)(unsafe-fx+ a1_3 1))" "((c1_5)(unsafe-fx+ c1_4 1)))" "(if(unsafe-fx< c1_5 b1_2)" -"(let-values()(loop_11 a1_4 b1_2 c1_5))" +"(let-values()(loop_14 a1_4 b1_2 c1_5))" "(void))))" "(begin" "(unsafe-vector-set! A_0 c1_4 y_2)" "(let-values(((b1_3)(unsafe-fx+ b1_2 1))" "((c1_6)(unsafe-fx+ c1_4 1)))" "(if(unsafe-fx<= b2_1 b1_3)" -"((letrec-values(((loop_12)" +"((letrec-values(((loop_15)" "(lambda(a1_5 c1_7)" "(begin" " 'loop" @@ -854,36 +1152,36 @@ static const char *startup_source = "(unsafe-vector-ref" " A_0" " a1_5))" -"(loop_12" +"(loop_15" "(unsafe-fx+ a1_5 1)" "(unsafe-fx+" " c1_7" " 1))))" "(void))))))" -" loop_12)" +" loop_15)" " a1_3" " c1_6)" -"(loop_11 a1_3 b1_3 c1_6))))))))))" -" loop_11)" +"(loop_14 a1_3 b1_3 c1_6))))))))))" +" loop_14)" " B1lo_0" " Amid2_1" " Alo_1)))))))))))))" "(let-values(((generic-sort/key_0)" -"(lambda(A_1 less-than?_1 n_3 key_7)" +"(lambda(A_1 less-than?_1 n_5 key_7)" "(begin" " 'generic-sort/key" "(let-values()" "(let-values()" -"(let-values(((n/2-_2)(unsafe-fxrshift n_3 1)))" -"(let-values(((n/2+_2)(unsafe-fx- n_3 n/2-_2)))" +"(let-values(((n/2-_2)(unsafe-fxrshift n_5 1)))" +"(let-values(((n/2+_2)(unsafe-fx- n_5 n/2-_2)))" "(letrec-values(((copying-mergesort_1)" -"(lambda(Alo_2 Blo_1 n_4)" +"(lambda(Alo_2 Blo_1 n_6)" "(begin" " 'copying-mergesort" -"(if(unsafe-fx= n_4 1)" +"(if(unsafe-fx= n_6 1)" "(let-values()" "(unsafe-vector-set! A_1 Blo_1(unsafe-vector-ref A_1 Alo_2)))" -"(if(unsafe-fx= n_4 2)" +"(if(unsafe-fx= n_6 2)" "(let-values()" "(let-values(((x_3)(unsafe-vector-ref A_1 Alo_2))" "((y_3)" @@ -897,7 +1195,7 @@ static const char *startup_source = "(begin" "(unsafe-vector-set! A_1 Blo_1 x_3)" "(unsafe-vector-set! A_1(unsafe-fx+ Blo_1 1) y_3)))))" -"(if(unsafe-fx< n_4 16)" +"(if(unsafe-fx< n_6 16)" "(let-values()" "(begin" "(unsafe-vector-set!" @@ -908,7 +1206,7 @@ static const char *startup_source = "(lambda(i_5)" "(begin" " 'iloop" -"(if(unsafe-fx< i_5 n_4)" +"(if(unsafe-fx< i_5 n_6)" "(let-values()" "(let-values(((ref-i_1)" "(unsafe-vector-ref" @@ -963,16 +1261,16 @@ static const char *startup_source = " iloop_1)" " 1)))" "(let-values()" -"(let-values(((n/2-_3)(unsafe-fxrshift n_4 1)))" -"(let-values(((n/2+_3)(unsafe-fx- n_4 n/2-_3)))" +"(let-values(((n/2-_3)(unsafe-fxrshift n_6 1)))" +"(let-values(((n/2+_3)(unsafe-fx- n_6 n/2-_3)))" "(let-values(((Amid1_2)(unsafe-fx+ Alo_2 n/2-_3))" "((Amid2_2)(unsafe-fx+ Alo_2 n/2+_3))" "((Bmid1_1)(unsafe-fx+ Blo_1 n/2-_3)))" "(begin" "(copying-mergesort_1 Amid1_2 Bmid1_1 n/2+_3)" "(copying-mergesort_1 Alo_2 Amid2_2 n/2-_3)" -"(let-values(((b2_2)(unsafe-fx+ Blo_1 n_4)))" -"((letrec-values(((loop_13)" +"(let-values(((b2_2)(unsafe-fx+ Blo_1 n_6)))" +"((letrec-values(((loop_16)" "(lambda(a1_6 b1_4 c1_8)" "(begin" " 'loop" @@ -1009,7 +1307,7 @@ static const char *startup_source = " c1_9" " b1_4)" "(let-values()" -"(loop_13" +"(loop_16" " a1_7" " b1_4" " c1_9))" @@ -1030,7 +1328,7 @@ static const char *startup_source = "(if(unsafe-fx<=" " b2_2" " b1_5)" -"((letrec-values(((loop_14)" +"((letrec-values(((loop_17)" "(lambda(a1_8" " c1_11)" "(begin" @@ -1046,7 +1344,7 @@ static const char *startup_source = "(unsafe-vector-ref" " A_1" " a1_8))" -"(loop_14" +"(loop_17" "(unsafe-fx+" " a1_8" " 1)" @@ -1054,29 +1352,29 @@ static const char *startup_source = " c1_11" " 1))))" "(void))))))" -" loop_14)" +" loop_17)" " a1_6" " c1_10)" -"(loop_13" +"(loop_16" " a1_6" " b1_5" " c1_10))))))))))" -" loop_13)" +" loop_16)" " Amid2_2" " Bmid1_1" " Blo_1))))))))))))))" "(let-values(((Alo_3) 0)" "((Amid1_3) n/2-_2)" "((Amid2_3) n/2+_2)" -"((Ahi_1) n_3)" -"((B1lo_1) n_3))" +"((Ahi_1) n_5)" +"((B1lo_1) n_5))" "(begin" "(copying-mergesort_1 Amid1_3 B1lo_1 n/2+_2)" "(if(zero? n/2-_2)" "(void)" "(let-values()(copying-mergesort_1 Alo_3 Amid2_3 n/2-_2)))" "(let-values(((b2_3) Ahi_1))" -"((letrec-values(((loop_15)" +"((letrec-values(((loop_18)" "(lambda(a1_9 b1_6 c1_12)" "(begin" " 'loop" @@ -1090,14 +1388,14 @@ static const char *startup_source = "(let-values(((a1_10)(unsafe-fx+ a1_9 1))" "((c1_13)(unsafe-fx+ c1_12 1)))" "(if(unsafe-fx< c1_13 b1_6)" -"(let-values()(loop_15 a1_10 b1_6 c1_13))" +"(let-values()(loop_18 a1_10 b1_6 c1_13))" "(void))))" "(begin" "(unsafe-vector-set! A_1 c1_12 y_5)" "(let-values(((b1_7)(unsafe-fx+ b1_6 1))" "((c1_14)(unsafe-fx+ c1_12 1)))" "(if(unsafe-fx<= b2_3 b1_7)" -"((letrec-values(((loop_16)" +"((letrec-values(((loop_19)" "(lambda(a1_11 c1_15)" "(begin" " 'loop" @@ -1112,7 +1410,7 @@ static const char *startup_source = "(unsafe-vector-ref" " A_1" " a1_11))" -"(loop_16" +"(loop_19" "(unsafe-fx+" " a1_11" " 1)" @@ -1120,52 +1418,52 @@ static const char *startup_source = " c1_15" " 1))))" "(void))))))" -" loop_16)" +" loop_19)" " a1_9" " c1_14)" -"(loop_15 a1_9 b1_7 c1_14))))))))))" -" loop_15)" +"(loop_18 a1_9 b1_7 c1_14))))))))))" +" loop_18)" " B1lo_1" " Amid2_3" " Alo_3)))))))))))))" "(values" "(case-lambda" "((lst_0 less-than?_2)" -"(let-values(((n_5)(length lst_0)))" +"(let-values(((n_7)(length lst_0)))" "(let-values()" -"(if(unsafe-fx= n_5 0)" +"(if(unsafe-fx= n_7 0)" "(let-values() lst_0)" -"(if((letrec-values(((loop_17)" +"(if((letrec-values(((loop_20)" "(lambda(last_0 next_1)" "(begin" " 'loop" -"(let-values(((or-part_14)(null? next_1)))" -"(if or-part_14" -" or-part_14" +"(let-values(((or-part_20)(null? next_1)))" +"(if or-part_20" +" or-part_20" "(if(not(less-than?_2(unsafe-car next_1) last_0))" -"(loop_17(unsafe-car next_1)(unsafe-cdr next_1))" +"(loop_20(unsafe-car next_1)(unsafe-cdr next_1))" " #f)))))))" -" loop_17)" +" loop_20)" "(car lst_0)" "(cdr lst_0))" "(let-values() lst_0)" -"(if(unsafe-fx<= n_5 3)" +"(if(unsafe-fx<= n_7 3)" "(let-values()" -"(if(unsafe-fx= n_5 1)" +"(if(unsafe-fx= n_7 1)" "(let-values() lst_0)" -"(if(unsafe-fx= n_5 2)" +"(if(unsafe-fx= n_7 2)" "(let-values()(list(cadr lst_0)(car lst_0)))" "(let-values()" -"(let-values(((a_2)(car lst_0))((b_1)(cadr lst_0))((c_0)(caddr lst_0)))" -"(if(less-than?_2 b_1 a_2)" +"(let-values(((a_8)(car lst_0))((b_1)(cadr lst_0))((c_0)(caddr lst_0)))" +"(if(less-than?_2 b_1 a_8)" "(if(less-than?_2 c_0 b_1)" -"(list c_0 b_1 a_2)" -"(if(less-than?_2 c_0 a_2)(list b_1 c_0 a_2)(list b_1 a_2 c_0)))" -"(if(less-than?_2 c_0 a_2)(list c_0 a_2 b_1)(list a_2 c_0 b_1))))))))" +"(list c_0 b_1 a_8)" +"(if(less-than?_2 c_0 a_8)(list b_1 c_0 a_8)(list b_1 a_8 c_0)))" +"(if(less-than?_2 c_0 a_8)(list c_0 a_8 b_1)(list a_8 c_0 b_1))))))))" "(let-values()" -"(let-values(((vec_0)(make-vector(+ n_5(ceiling(/ n_5 2))))))" +"(let-values(((vec_0)(make-vector(+ n_7(ceiling(/ n_7 2))))))" "(begin" -"((letrec-values(((loop_18)" +"((letrec-values(((loop_21)" "(lambda(i_6 lst_1)" "(begin" " 'loop" @@ -1173,22 +1471,22 @@ static const char *startup_source = "(let-values()" "(begin" "(vector-set! vec_0 i_6(car lst_1))" -"(loop_18(add1 i_6)(cdr lst_1))))" +"(loop_21(add1 i_6)(cdr lst_1))))" "(void))))))" -" loop_18)" +" loop_21)" " 0" " lst_0)" -"(generic-sort_0 vec_0 less-than?_2 n_5)" -"((letrec-values(((loop_19)" +"(generic-sort_0 vec_0 less-than?_2 n_7)" +"((letrec-values(((loop_22)" "(lambda(i_7 r_1)" "(begin" " 'loop" "(let-values(((i_8)(sub1 i_7)))" "(if(< i_8 0)" " r_1" -"(loop_19 i_8(cons(vector-ref vec_0 i_8) r_1))))))))" -" loop_19)" -" n_5" +"(loop_22 i_8(cons(vector-ref vec_0 i_8) r_1))))))))" +" loop_22)" +" n_7" " '()))))))))))" "((lst_2 less-than?_3 getkey_0)" "(if(if getkey_0(not(eq? values getkey_0)) #f)" @@ -1196,15 +1494,15 @@ static const char *startup_source = "(sort lst_2 less-than?_3)))" "((lst_3 less-than?_4 getkey_1 cache-keys?_0)" "(if(if getkey_1(not(eq? values getkey_1)) #f)" -"(let-values(((n_6)(length lst_3)))" +"(let-values(((n_8)(length lst_3)))" "(let-values()" -"(if(unsafe-fx= n_6 0)" +"(if(unsafe-fx= n_8 0)" "(let-values() lst_3)" "(if cache-keys?_0" "(let-values()" -"(let-values(((vec_1)(make-vector(+ n_6(ceiling(/ n_6 2))))))" +"(let-values(((vec_1)(make-vector(+ n_8(ceiling(/ n_8 2))))))" "(begin" -"((letrec-values(((loop_20)" +"((letrec-values(((loop_23)" "(lambda(i_9 lst_4)" "(begin" " 'loop" @@ -1213,71 +1511,71 @@ static const char *startup_source = "(let-values(((x_6)(car lst_4)))" "(begin" "(unsafe-vector-set! vec_1 i_9(cons(getkey_1 x_6) x_6))" -"(loop_20(unsafe-fx+ i_9 1)(cdr lst_4)))))" +"(loop_23(unsafe-fx+ i_9 1)(cdr lst_4)))))" "(void))))))" -" loop_20)" +" loop_23)" " 0" " lst_3)" -"(generic-sort/key_0 vec_1 less-than?_4 n_6 unsafe-car)" -"((letrec-values(((loop_21)" +"(generic-sort/key_0 vec_1 less-than?_4 n_8 unsafe-car)" +"((letrec-values(((loop_24)" "(lambda(i_10 r_2)" "(begin" " 'loop" "(let-values(((i_11)(unsafe-fx- i_10 1)))" "(if(unsafe-fx< i_11 0)" " r_2" -"(loop_21" +"(loop_24" " i_11" "(cons(unsafe-cdr(unsafe-vector-ref vec_1 i_11)) r_2))))))))" -" loop_21)" -" n_6" +" loop_24)" +" n_8" " '()))))" -"(if((letrec-values(((loop_22)" +"(if((letrec-values(((loop_25)" "(lambda(last_1 next_2)" "(begin" " 'loop" -"(let-values(((or-part_15)(null? next_2)))" -"(if or-part_15" -" or-part_15" +"(let-values(((or-part_21)(null? next_2)))" +"(if or-part_21" +" or-part_21" "(if(not" "(if getkey_1" "(less-than?_4" "(getkey_1(unsafe-car next_2))" "(getkey_1 last_1))" "(less-than?_4(unsafe-car next_2) last_1)))" -"(loop_22(unsafe-car next_2)(unsafe-cdr next_2))" +"(loop_25(unsafe-car next_2)(unsafe-cdr next_2))" " #f)))))))" -" loop_22)" +" loop_25)" "(car lst_3)" "(cdr lst_3))" "(let-values() lst_3)" -"(if(unsafe-fx<= n_6 3)" +"(if(unsafe-fx<= n_8 3)" "(let-values()" -"(if(unsafe-fx= n_6 1)" +"(if(unsafe-fx= n_8 1)" "(let-values() lst_3)" -"(if(unsafe-fx= n_6 2)" +"(if(unsafe-fx= n_8 2)" "(let-values()(list(cadr lst_3)(car lst_3)))" "(let-values()" -"(let-values(((a_3)(car lst_3))((b_2)(cadr lst_3))((c_1)(caddr lst_3)))" -"(if(if getkey_1(less-than?_4(getkey_1 b_2)(getkey_1 a_3))(less-than?_4 b_2 a_3))" +"(let-values(((a_9)(car lst_3))((b_2)(cadr lst_3))((c_1)(caddr lst_3)))" +"(if(if getkey_1(less-than?_4(getkey_1 b_2)(getkey_1 a_9))(less-than?_4 b_2 a_9))" "(if(if getkey_1" "(less-than?_4(getkey_1 c_1)(getkey_1 b_2))" "(less-than?_4 c_1 b_2))" -"(list c_1 b_2 a_3)" +"(list c_1 b_2 a_9)" "(if(if getkey_1" -"(less-than?_4(getkey_1 c_1)(getkey_1 a_3))" -"(less-than?_4 c_1 a_3))" -"(list b_2 c_1 a_3)" -"(list b_2 a_3 c_1)))" +"(less-than?_4(getkey_1 c_1)(getkey_1 a_9))" +"(less-than?_4 c_1 a_9))" +"(list b_2 c_1 a_9)" +"(list b_2 a_9 c_1)))" "(if(if getkey_1" -"(less-than?_4(getkey_1 c_1)(getkey_1 a_3))" -"(less-than?_4 c_1 a_3))" -"(list c_1 a_3 b_2)" -"(list a_3 c_1 b_2))))))))" +"(less-than?_4(getkey_1 c_1)(getkey_1 a_9))" +"(less-than?_4 c_1 a_9))" +"(list c_1 a_9 b_2)" +"(list a_9 c_1 b_2))))))))" "(let-values()" -"(let-values(((vec_2)(make-vector(+ n_6(ceiling(/ n_6 2))))))" +"(let-values(((vec_2)(make-vector(+ n_8(ceiling(/ n_8 2))))))" "(begin" -"((letrec-values(((loop_23)" +"((letrec-values(((loop_26)" "(lambda(i_12 lst_5)" "(begin" " 'loop" @@ -1285,117 +1583,117 @@ static const char *startup_source = "(let-values()" "(begin" "(vector-set! vec_2 i_12(car lst_5))" -"(loop_23(add1 i_12)(cdr lst_5))))" +"(loop_26(add1 i_12)(cdr lst_5))))" "(void))))))" -" loop_23)" +" loop_26)" " 0" " lst_3)" -"(generic-sort/key_0 vec_2 less-than?_4 n_6 getkey_1)" -"((letrec-values(((loop_24)" +"(generic-sort/key_0 vec_2 less-than?_4 n_8 getkey_1)" +"((letrec-values(((loop_27)" "(lambda(i_13 r_3)" "(begin" " 'loop" "(let-values(((i_14)(sub1 i_13)))" "(if(< i_14 0)" " r_3" -"(loop_24 i_14(cons(vector-ref vec_2 i_14) r_3))))))))" -" loop_24)" -" n_6" +"(loop_27 i_14(cons(vector-ref vec_2 i_14) r_3))))))))" +" loop_27)" +" n_8" " '()))))))))))" "(sort lst_3 less-than?_4))))" "(case-lambda" "((vec_3 less-than?_5 start_0 end_0)" -"(let-values(((n_7)(- end_0 start_0)))" -"(let-values(((dst-vec_0)(make-vector n_7)))" +"(let-values(((n_9)(- end_0 start_0)))" +"(let-values(((dst-vec_0)(make-vector n_9)))" "(let-values(((dst-start_0) 0))" "(begin" -"(if(unsafe-fx= n_7 0)" +"(if(unsafe-fx= n_9 0)" "(let-values()(void))" -"(if((letrec-values(((loop_25)" +"(if((letrec-values(((loop_28)" "(lambda(prev-val_0 next-index_0)" "(begin" " 'loop" -"(let-values(((or-part_16)(unsafe-fx= next-index_0 end_0)))" -"(if or-part_16" -" or-part_16" +"(let-values(((or-part_22)(unsafe-fx= next-index_0 end_0)))" +"(if or-part_22" +" or-part_22" "(let-values(((next-val_0)(unsafe-vector-ref vec_3 next-index_0)))" "(if(not(less-than?_5 next-val_0 prev-val_0))" -"(loop_25 next-val_0(unsafe-fx+ next-index_0 1))" +"(loop_28 next-val_0(unsafe-fx+ next-index_0 1))" " #f))))))))" -" loop_25)" +" loop_28)" "(unsafe-vector-ref vec_3 start_0)" "(unsafe-fx+ start_0 1))" "(let-values()(let-values()(vector-copy! dst-vec_0 dst-start_0 vec_3 start_0 end_0)))" -"(if(unsafe-fx<= n_7 3)" +"(if(unsafe-fx<= n_9 3)" "(let-values()" "(begin" "(let-values()(vector-copy! dst-vec_0 dst-start_0 vec_3 start_0 end_0))" -"(if(unsafe-fx= n_7 1)" +"(if(unsafe-fx= n_9 1)" "(let-values()(void))" -"(if(unsafe-fx= n_7 2)" +"(if(unsafe-fx= n_9 2)" "(let-values()" -"(let-values(((tmp_0)(unsafe-vector-ref dst-vec_0(unsafe-fx+ dst-start_0 0))))" +"(let-values(((tmp_1)(unsafe-vector-ref dst-vec_0(unsafe-fx+ dst-start_0 0))))" "(begin" "(unsafe-vector-set!" " dst-vec_0" "(unsafe-fx+ dst-start_0 0)" "(unsafe-vector-ref dst-vec_0(unsafe-fx+ dst-start_0 1)))" -"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 1) tmp_0))))" +"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 1) tmp_1))))" "(let-values()" -"(let-values(((a_4)(unsafe-vector-ref dst-vec_0(unsafe-fx+ dst-start_0 0)))" +"(let-values(((a_10)(unsafe-vector-ref dst-vec_0(unsafe-fx+ dst-start_0 0)))" "((b_3)(unsafe-vector-ref dst-vec_0(unsafe-fx+ dst-start_0 1)))" "((c_2)(unsafe-vector-ref dst-vec_0(unsafe-fx+ dst-start_0 2))))" -"(if(less-than?_5 b_3 a_4)" +"(if(less-than?_5 b_3 a_10)" "(let-values()" "(if(less-than?_5 c_2 b_3)" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 0) c_2)" -"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 2) a_4)))" -"(if(less-than?_5 c_2 a_4)" +"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 2) a_10)))" +"(if(less-than?_5 c_2 a_10)" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 0) b_3)" "(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 1) c_2)" -"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 2) a_4)))" +"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 2) a_10)))" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 0) b_3)" -"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 1) a_4))))))" -"(if(less-than?_5 c_2 a_4)" +"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 1) a_10))))))" +"(if(less-than?_5 c_2 a_10)" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 0) c_2)" -"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 1) a_4)" +"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 1) a_10)" "(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 2) b_3)))" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 1) c_2)" "(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 2) b_3)))))))))))" "(let-values()" -"(let-values(((work-vec_0)(make-vector(+ n_7(ceiling(/ n_7 2))) #f)))" +"(let-values(((work-vec_0)(make-vector(+ n_9(ceiling(/ n_9 2))) #f)))" "(begin" "(vector-copy! work-vec_0 0 vec_3 start_0 end_0)" -"(generic-sort_0 work-vec_0 less-than?_5 n_7)" -"(vector-copy! dst-vec_0 dst-start_0 work-vec_0 0 n_7)))))))" +"(generic-sort_0 work-vec_0 less-than?_5 n_9)" +"(vector-copy! dst-vec_0 dst-start_0 work-vec_0 0 n_9)))))))" " dst-vec_0)))))" "((vec_4 less-than?_6 start_1 end_1 getkey_2 cache-keys?_1)" "(if(if getkey_2(not(eq? values getkey_2)) #f)" -"(let-values(((n_8)(- end_1 start_1)))" -"(let-values(((dst-vec_1)(make-vector n_8)))" +"(let-values(((n_10)(- end_1 start_1)))" +"(let-values(((dst-vec_1)(make-vector n_10)))" "(let-values(((dst-start_1) 0))" "(begin" -"(if(unsafe-fx= n_8 0)" +"(if(unsafe-fx= n_10 0)" "(let-values()(void))" "(if cache-keys?_1" "(let-values()" -"(let-values(((work-vec_1)(make-vector(+ n_8(ceiling(/ n_8 2))) #t)))" +"(let-values(((work-vec_1)(make-vector(+ n_10(ceiling(/ n_10 2))) #t)))" "(begin" -"((letrec-values(((loop_26)" +"((letrec-values(((loop_29)" "(lambda(i_15)" "(begin" " 'loop" -"(if(unsafe-fx< i_15 n_8)" +"(if(unsafe-fx< i_15 n_10)" "(let-values()" "(begin" "(let-values(((x_7)" @@ -1406,33 +1704,33 @@ static const char *startup_source = " work-vec_1" " i_15" "(cons(getkey_2 x_7) x_7)))" -"(loop_26(unsafe-fx+ i_15 1))))" +"(loop_29(unsafe-fx+ i_15 1))))" "(void))))))" -" loop_26)" +" loop_29)" " 0)" -"(generic-sort/key_0 work-vec_1 less-than?_6 n_8 unsafe-car)" -"((letrec-values(((loop_27)" +"(generic-sort/key_0 work-vec_1 less-than?_6 n_10 unsafe-car)" +"((letrec-values(((loop_30)" "(lambda(i_16)" "(begin" " 'loop" -"(if(unsafe-fx< i_16 n_8)" +"(if(unsafe-fx< i_16 n_10)" "(let-values()" "(begin" "(unsafe-vector-set!" " dst-vec_1" "(unsafe-fx+ i_16 dst-start_1)" "(unsafe-cdr(unsafe-vector-ref work-vec_1 i_16)))" -"(loop_27(unsafe-fx+ i_16 1))))" +"(loop_30(unsafe-fx+ i_16 1))))" "(void))))))" -" loop_27)" +" loop_30)" " 0))))" -"(if((letrec-values(((loop_28)" +"(if((letrec-values(((loop_31)" "(lambda(prev-val_1 next-index_1)" "(begin" " 'loop" -"(let-values(((or-part_17)(unsafe-fx= next-index_1 end_1)))" -"(if or-part_17" -" or-part_17" +"(let-values(((or-part_23)(unsafe-fx= next-index_1 end_1)))" +"(if or-part_23" +" or-part_23" "(let-values(((next-val_1)" "(unsafe-vector-ref vec_4 next-index_1)))" "(if(not" @@ -1441,34 +1739,34 @@ static const char *startup_source = "(getkey_2 next-val_1)" "(getkey_2 prev-val_1))" "(less-than?_6 next-val_1 prev-val_1)))" -"(loop_28 next-val_1(unsafe-fx+ next-index_1 1))" +"(loop_31 next-val_1(unsafe-fx+ next-index_1 1))" " #f))))))))" -" loop_28)" +" loop_31)" "(unsafe-vector-ref vec_4 start_1)" "(unsafe-fx+ start_1 1))" "(let-values()(let-values()(vector-copy! dst-vec_1 dst-start_1 vec_4 start_1 end_1)))" -"(if(unsafe-fx<= n_8 3)" +"(if(unsafe-fx<= n_10 3)" "(let-values()" "(begin" "(let-values()(vector-copy! dst-vec_1 dst-start_1 vec_4 start_1 end_1))" -"(if(unsafe-fx= n_8 1)" +"(if(unsafe-fx= n_10 1)" "(let-values()(void))" -"(if(unsafe-fx= n_8 2)" +"(if(unsafe-fx= n_10 2)" "(let-values()" -"(let-values(((tmp_1)(unsafe-vector-ref dst-vec_1(unsafe-fx+ dst-start_1 0))))" +"(let-values(((tmp_2)(unsafe-vector-ref dst-vec_1(unsafe-fx+ dst-start_1 0))))" "(begin" "(unsafe-vector-set!" " dst-vec_1" "(unsafe-fx+ dst-start_1 0)" "(unsafe-vector-ref dst-vec_1(unsafe-fx+ dst-start_1 1)))" -"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 1) tmp_1))))" +"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 1) tmp_2))))" "(let-values()" -"(let-values(((a_5)(unsafe-vector-ref dst-vec_1(unsafe-fx+ dst-start_1 0)))" +"(let-values(((a_11)(unsafe-vector-ref dst-vec_1(unsafe-fx+ dst-start_1 0)))" "((b_4)(unsafe-vector-ref dst-vec_1(unsafe-fx+ dst-start_1 1)))" "((c_3)(unsafe-vector-ref dst-vec_1(unsafe-fx+ dst-start_1 2))))" "(if(if getkey_2" -"(less-than?_6(getkey_2 b_4)(getkey_2 a_5))" -"(less-than?_6 b_4 a_5))" +"(less-than?_6(getkey_2 b_4)(getkey_2 a_11))" +"(less-than?_6 b_4 a_11))" "(let-values()" "(if(if getkey_2" "(less-than?_6(getkey_2 c_3)(getkey_2 b_4))" @@ -1476,132 +1774,132 @@ static const char *startup_source = "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 0) c_3)" -"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 2) a_5)))" +"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 2) a_11)))" "(if(if getkey_2" -"(less-than?_6(getkey_2 c_3)(getkey_2 a_5))" -"(less-than?_6 c_3 a_5))" +"(less-than?_6(getkey_2 c_3)(getkey_2 a_11))" +"(less-than?_6 c_3 a_11))" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 0) b_4)" "(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 1) c_3)" -"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 2) a_5)))" +"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 2) a_11)))" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 0) b_4)" -"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 1) a_5))))))" +"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 1) a_11))))))" "(if(if getkey_2" -"(less-than?_6(getkey_2 c_3)(getkey_2 a_5))" -"(less-than?_6 c_3 a_5))" +"(less-than?_6(getkey_2 c_3)(getkey_2 a_11))" +"(less-than?_6 c_3 a_11))" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 0) c_3)" -"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 1) a_5)" +"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 1) a_11)" "(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 2) b_4)))" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 1) c_3)" "(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 2) b_4)))))))))))" "(let-values()" -"(let-values(((work-vec_2)(make-vector(+ n_8(ceiling(/ n_8 2))) #f)))" +"(let-values(((work-vec_2)(make-vector(+ n_10(ceiling(/ n_10 2))) #f)))" "(begin" "(vector-copy! work-vec_2 0 vec_4 start_1 end_1)" -"(generic-sort/key_0 work-vec_2 less-than?_6 n_8 getkey_2)" -"(vector-copy! dst-vec_1 dst-start_1 work-vec_2 0 n_8))))))))" +"(generic-sort/key_0 work-vec_2 less-than?_6 n_10 getkey_2)" +"(vector-copy! dst-vec_1 dst-start_1 work-vec_2 0 n_10))))))))" " dst-vec_1))))" "(vector-sort vec_4 less-than?_6 start_1 end_1))))" "(case-lambda" "((vec_5 less-than?_7 start_2 end_2)" -"(let-values(((n_9)(- end_2 start_2)))" +"(let-values(((n_11)(- end_2 start_2)))" "(let-values(((dst-vec_2) vec_5))" "(let-values(((dst-start_2) start_2))" "(begin" -"(if(unsafe-fx= n_9 0)" +"(if(unsafe-fx= n_11 0)" "(let-values()(void))" -"(if((letrec-values(((loop_29)" +"(if((letrec-values(((loop_32)" "(lambda(prev-val_2 next-index_2)" "(begin" " 'loop" -"(let-values(((or-part_18)(unsafe-fx= next-index_2 end_2)))" -"(if or-part_18" -" or-part_18" +"(let-values(((or-part_24)(unsafe-fx= next-index_2 end_2)))" +"(if or-part_24" +" or-part_24" "(let-values(((next-val_2)(unsafe-vector-ref vec_5 next-index_2)))" "(if(not(less-than?_7 next-val_2 prev-val_2))" -"(loop_29 next-val_2(unsafe-fx+ next-index_2 1))" +"(loop_32 next-val_2(unsafe-fx+ next-index_2 1))" " #f))))))))" -" loop_29)" +" loop_32)" "(unsafe-vector-ref vec_5 start_2)" "(unsafe-fx+ start_2 1))" "(let-values()(void))" -"(if(unsafe-fx<= n_9 3)" +"(if(unsafe-fx<= n_11 3)" "(let-values()" "(begin" "(void)" -"(if(unsafe-fx= n_9 1)" +"(if(unsafe-fx= n_11 1)" "(let-values()(void))" -"(if(unsafe-fx= n_9 2)" +"(if(unsafe-fx= n_11 2)" "(let-values()" -"(let-values(((tmp_2)(unsafe-vector-ref dst-vec_2(unsafe-fx+ dst-start_2 0))))" +"(let-values(((tmp_3)(unsafe-vector-ref dst-vec_2(unsafe-fx+ dst-start_2 0))))" "(begin" "(unsafe-vector-set!" " dst-vec_2" "(unsafe-fx+ dst-start_2 0)" "(unsafe-vector-ref dst-vec_2(unsafe-fx+ dst-start_2 1)))" -"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 1) tmp_2))))" +"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 1) tmp_3))))" "(let-values()" -"(let-values(((a_6)(unsafe-vector-ref dst-vec_2(unsafe-fx+ dst-start_2 0)))" +"(let-values(((a_12)(unsafe-vector-ref dst-vec_2(unsafe-fx+ dst-start_2 0)))" "((b_5)(unsafe-vector-ref dst-vec_2(unsafe-fx+ dst-start_2 1)))" "((c_4)(unsafe-vector-ref dst-vec_2(unsafe-fx+ dst-start_2 2))))" -"(if(less-than?_7 b_5 a_6)" +"(if(less-than?_7 b_5 a_12)" "(let-values()" "(if(less-than?_7 c_4 b_5)" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 0) c_4)" -"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 2) a_6)))" -"(if(less-than?_7 c_4 a_6)" +"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 2) a_12)))" +"(if(less-than?_7 c_4 a_12)" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 0) b_5)" "(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 1) c_4)" -"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 2) a_6)))" +"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 2) a_12)))" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 0) b_5)" -"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 1) a_6))))))" -"(if(less-than?_7 c_4 a_6)" +"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 1) a_12))))))" +"(if(less-than?_7 c_4 a_12)" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 0) c_4)" -"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 1) a_6)" +"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 1) a_12)" "(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 2) b_5)))" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 1) c_4)" "(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 2) b_5)))))))))))" "(let-values()" -"(let-values(((work-vec_3)(make-vector(+ n_9(ceiling(/ n_9 2))) #f)))" +"(let-values(((work-vec_3)(make-vector(+ n_11(ceiling(/ n_11 2))) #f)))" "(begin" "(vector-copy! work-vec_3 0 vec_5 start_2 end_2)" -"(generic-sort_0 work-vec_3 less-than?_7 n_9)" -"(vector-copy! dst-vec_2 dst-start_2 work-vec_3 0 n_9)))))))" +"(generic-sort_0 work-vec_3 less-than?_7 n_11)" +"(vector-copy! dst-vec_2 dst-start_2 work-vec_3 0 n_11)))))))" "(void))))))" "((vec_6 less-than?_8 start_3 end_3 getkey_3 cache-keys?_2)" "(if(if getkey_3(not(eq? values getkey_3)) #f)" -"(let-values(((n_10)(- end_3 start_3)))" +"(let-values(((n_12)(- end_3 start_3)))" "(let-values(((dst-vec_3) vec_6))" "(let-values(((dst-start_3) start_3))" "(begin" -"(if(unsafe-fx= n_10 0)" +"(if(unsafe-fx= n_12 0)" "(let-values()(void))" "(if cache-keys?_2" "(let-values()" -"(let-values(((work-vec_4)(make-vector(+ n_10(ceiling(/ n_10 2))) #t)))" +"(let-values(((work-vec_4)(make-vector(+ n_12(ceiling(/ n_12 2))) #t)))" "(begin" -"((letrec-values(((loop_30)" +"((letrec-values(((loop_33)" "(lambda(i_17)" "(begin" " 'loop" -"(if(unsafe-fx< i_17 n_10)" +"(if(unsafe-fx< i_17 n_12)" "(let-values()" "(begin" "(let-values(((x_8)" @@ -1612,33 +1910,33 @@ static const char *startup_source = " work-vec_4" " i_17" "(cons(getkey_3 x_8) x_8)))" -"(loop_30(unsafe-fx+ i_17 1))))" +"(loop_33(unsafe-fx+ i_17 1))))" "(void))))))" -" loop_30)" +" loop_33)" " 0)" -"(generic-sort/key_0 work-vec_4 less-than?_8 n_10 unsafe-car)" -"((letrec-values(((loop_31)" +"(generic-sort/key_0 work-vec_4 less-than?_8 n_12 unsafe-car)" +"((letrec-values(((loop_34)" "(lambda(i_18)" "(begin" " 'loop" -"(if(unsafe-fx< i_18 n_10)" +"(if(unsafe-fx< i_18 n_12)" "(let-values()" "(begin" "(unsafe-vector-set!" " dst-vec_3" "(unsafe-fx+ i_18 dst-start_3)" "(unsafe-cdr(unsafe-vector-ref work-vec_4 i_18)))" -"(loop_31(unsafe-fx+ i_18 1))))" +"(loop_34(unsafe-fx+ i_18 1))))" "(void))))))" -" loop_31)" +" loop_34)" " 0))))" -"(if((letrec-values(((loop_32)" +"(if((letrec-values(((loop_35)" "(lambda(prev-val_3 next-index_3)" "(begin" " 'loop" -"(let-values(((or-part_19)(unsafe-fx= next-index_3 end_3)))" -"(if or-part_19" -" or-part_19" +"(let-values(((or-part_25)(unsafe-fx= next-index_3 end_3)))" +"(if or-part_25" +" or-part_25" "(let-values(((next-val_3)" "(unsafe-vector-ref vec_6 next-index_3)))" "(if(not" @@ -1647,34 +1945,34 @@ static const char *startup_source = "(getkey_3 next-val_3)" "(getkey_3 prev-val_3))" "(less-than?_8 next-val_3 prev-val_3)))" -"(loop_32 next-val_3(unsafe-fx+ next-index_3 1))" +"(loop_35 next-val_3(unsafe-fx+ next-index_3 1))" " #f))))))))" -" loop_32)" +" loop_35)" "(unsafe-vector-ref vec_6 start_3)" "(unsafe-fx+ start_3 1))" "(let-values()(void))" -"(if(unsafe-fx<= n_10 3)" +"(if(unsafe-fx<= n_12 3)" "(let-values()" "(begin" "(void)" -"(if(unsafe-fx= n_10 1)" +"(if(unsafe-fx= n_12 1)" "(let-values()(void))" -"(if(unsafe-fx= n_10 2)" +"(if(unsafe-fx= n_12 2)" "(let-values()" -"(let-values(((tmp_3)(unsafe-vector-ref dst-vec_3(unsafe-fx+ dst-start_3 0))))" +"(let-values(((tmp_4)(unsafe-vector-ref dst-vec_3(unsafe-fx+ dst-start_3 0))))" "(begin" "(unsafe-vector-set!" " dst-vec_3" "(unsafe-fx+ dst-start_3 0)" "(unsafe-vector-ref dst-vec_3(unsafe-fx+ dst-start_3 1)))" -"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 1) tmp_3))))" +"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 1) tmp_4))))" "(let-values()" -"(let-values(((a_7)(unsafe-vector-ref dst-vec_3(unsafe-fx+ dst-start_3 0)))" +"(let-values(((a_13)(unsafe-vector-ref dst-vec_3(unsafe-fx+ dst-start_3 0)))" "((b_6)(unsafe-vector-ref dst-vec_3(unsafe-fx+ dst-start_3 1)))" "((c_5)(unsafe-vector-ref dst-vec_3(unsafe-fx+ dst-start_3 2))))" "(if(if getkey_3" -"(less-than?_8(getkey_3 b_6)(getkey_3 a_7))" -"(less-than?_8 b_6 a_7))" +"(less-than?_8(getkey_3 b_6)(getkey_3 a_13))" +"(less-than?_8 b_6 a_13))" "(let-values()" "(if(if getkey_3" "(less-than?_8(getkey_3 c_5)(getkey_3 b_6))" @@ -1682,52 +1980,52 @@ static const char *startup_source = "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 0) c_5)" -"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 2) a_7)))" +"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 2) a_13)))" "(if(if getkey_3" -"(less-than?_8(getkey_3 c_5)(getkey_3 a_7))" -"(less-than?_8 c_5 a_7))" +"(less-than?_8(getkey_3 c_5)(getkey_3 a_13))" +"(less-than?_8 c_5 a_13))" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 0) b_6)" "(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 1) c_5)" -"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 2) a_7)))" +"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 2) a_13)))" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 0) b_6)" -"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 1) a_7))))))" +"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 1) a_13))))))" "(if(if getkey_3" -"(less-than?_8(getkey_3 c_5)(getkey_3 a_7))" -"(less-than?_8 c_5 a_7))" +"(less-than?_8(getkey_3 c_5)(getkey_3 a_13))" +"(less-than?_8 c_5 a_13))" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 0) c_5)" -"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 1) a_7)" +"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 1) a_13)" "(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 2) b_6)))" "(let-values()" "(begin" "(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 1) c_5)" "(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 2) b_6)))))))))))" "(let-values()" -"(let-values(((work-vec_5)(make-vector(+ n_10(ceiling(/ n_10 2))) #f)))" +"(let-values(((work-vec_5)(make-vector(+ n_12(ceiling(/ n_12 2))) #f)))" "(begin" "(vector-copy! work-vec_5 0 vec_6 start_3 end_3)" -"(generic-sort/key_0 work-vec_5 less-than?_8 n_10 getkey_3)" -"(vector-copy! dst-vec_3 dst-start_3 work-vec_5 0 n_10))))))))" +"(generic-sort/key_0 work-vec_5 less-than?_8 n_12 getkey_3)" +"(vector-copy! dst-vec_3 dst-start_3 work-vec_5 0 n_12))))))))" "(void)))))" "(vector-sort! vec_6 less-than?_8 start_3 end_3)))))))))" "(define-values" "(prop:stream stream-via-prop? stream-ref)" "(make-struct-type-property" " 'stream" -"(lambda(v_9 si_0)" +"(lambda(v_12 si_0)" "(begin" -"(if(if(vector? v_9)" -"(if(= 3(vector-length v_9))" -"(if(procedure?(vector-ref v_9 0))" -"(if(procedure-arity-includes?(vector-ref v_9 0) 1)" -"(if(procedure?(vector-ref v_9 1))" -"(if(procedure-arity-includes?(vector-ref v_9 1) 1)" -"(if(procedure?(vector-ref v_9 2))(procedure-arity-includes?(vector-ref v_9 2) 1) #f)" +"(if(if(vector? v_12)" +"(if(= 3(vector-length v_12))" +"(if(procedure?(vector-ref v_12 0))" +"(if(procedure-arity-includes?(vector-ref v_12 0) 1)" +"(if(procedure?(vector-ref v_12 1))" +"(if(procedure-arity-includes?(vector-ref v_12 1) 1)" +"(if(procedure?(vector-ref v_12 2))(procedure-arity-includes?(vector-ref v_12 2) 1) #f)" " #f)" " #f)" " #f)" @@ -1742,18 +2040,18 @@ static const char *startup_source = " \"(vector/c (procedure-arity-includes/c 1)\\n\"" " \" (procedure-arity-includes/c 1)\\n\"" " \" (procedure-arity-includes/c 1))\")" -" v_9)))" -"(vector->immutable-vector v_9)))))" +" v_12)))" +"(vector->immutable-vector v_12)))))" "(define-values" "(prop:gen-sequence sequence-via-prop? sequence-ref)" "(make-struct-type-property" " 'sequence" -"(lambda(v_10 si_1)" +"(lambda(v_13 si_1)" "(begin" -"(if(if(procedure? v_10)(procedure-arity-includes? v_10 1) #f)" +"(if(if(procedure? v_13)(procedure-arity-includes? v_13 1) #f)" "(void)" -" (let-values () (raise-argument-error 'guard-for-prop:sequence \"(procedure-arity-includes/c 1)\" v_10)))" -" v_10))))" +" (let-values () (raise-argument-error 'guard-for-prop:sequence \"(procedure-arity-includes/c 1)\" v_13)))" +" v_13))))" "(define-values" "(struct:range make-range range? range-ref range-set!)" "(make-struct-type" @@ -1766,27 +2064,27 @@ static const char *startup_source = "(cons" " prop:stream" "(vector" -"(lambda(v_11)(let-values(((cont?_0)(range-ref v_11 2)))(if cont?_0(not(cont?_0(range-ref v_11 0))) #f)))" -"(lambda(v_12)(range-ref v_12 0))" -"(lambda(v_13)(make-range((range-ref v_13 1)(range-ref v_13 0))(range-ref v_13 1)(range-ref v_13 2)))))" +"(lambda(v_14)(let-values(((cont?_0)(range-ref v_14 2)))(if cont?_0(not(cont?_0(range-ref v_14 0))) #f)))" +"(lambda(v_15)(range-ref v_15 0))" +"(lambda(v_16)(make-range((range-ref v_16 1)(range-ref v_16 0))(range-ref v_16 1)(range-ref v_16 2)))))" "(cons" " prop:gen-sequence" -"(lambda(v_14)(values values #f(range-ref v_14 1)(range-ref v_14 0)(range-ref v_14 2) #f #f))))))" +"(lambda(v_17)(values values #f(range-ref v_17 1)(range-ref v_17 0)(range-ref v_17 2) #f #f))))))" "(define-values" "(check-range)" -"(lambda(a_8 b_7 step_0)" +"(lambda(a_14 b_7 step_0)" "(begin" "(begin" -" (if (real? a_8) (void) (let-values () (raise-argument-error 'in-range \"real?\" a_8)))" +" (if (real? a_14) (void) (let-values () (raise-argument-error 'in-range \"real?\" a_14)))" " (if (real? b_7) (void) (let-values () (raise-argument-error 'in-range \"real?\" b_7)))" " (if (real? step_0) (void) (let-values () (raise-argument-error 'in-range \"real?\" step_0)))))))" "(define-values" "(check-naturals)" -"(lambda(n_11)" +"(lambda(n_13)" "(begin" -"(if(if(integer? n_11)(if(exact? n_11)(>= n_11 0) #f) #f)" +"(if(if(integer? n_13)(if(exact? n_13)(>= n_13 0) #f) #f)" "(void)" -" (let-values () (raise-argument-error 'in-naturals \"exact-nonnegative-integer?\" n_11))))))" +" (let-values () (raise-argument-error 'in-naturals \"exact-nonnegative-integer?\" n_13))))))" "(define-values" "(struct:list-stream make-list-stream list-stream? list-stream-ref list-stream-set!)" "(make-struct-type" @@ -1799,10 +2097,10 @@ static const char *startup_source = "(cons" " prop:stream" "(vector" -"(lambda(v_15)(not(pair?(list-stream-ref v_15 0))))" -"(lambda(v_16)(car(list-stream-ref v_16 0)))" -"(lambda(v_17)(make-list-stream(cdr(list-stream-ref v_17 0))))))" -"(cons prop:gen-sequence(lambda(v_18)(values car cdr values(list-stream-ref v_18 0) pair? #f #f))))))" +"(lambda(v_18)(not(pair?(list-stream-ref v_18 0))))" +"(lambda(v_19)(car(list-stream-ref v_19 0)))" +"(lambda(v_20)(make-list-stream(cdr(list-stream-ref v_20 0))))))" +"(cons prop:gen-sequence(lambda(v_21)(values car cdr values(list-stream-ref v_21 0) pair? #f #f))))))" "(define-values" "(check-list)" " (lambda (l_5) (begin (if (list? l_5) (void) (let-values () (raise-argument-error 'in-list \"list?\" l_5))))))" @@ -1845,7 +2143,7 @@ static const char *startup_source = "(begin" "(begin" "(if(if(exact-nonnegative-integer? start_4)" -"(let-values(((or-part_20)(< start_4 len_0)))(if or-part_20 or-part_20(= len_0 start_4 stop_0)))" +"(let-values(((or-part_26)(< start_4 len_0)))(if or-part_26 or-part_26(= len_0 start_4 stop_0)))" " #f)" "(void)" " (let-values () (raise-range-error who_3 \"vector\" \"starting \" start_4 vec_7 0 (sub1 len_0))))" @@ -1890,13 +2188,13 @@ static const char *startup_source = "(begin(check-ranges who_4 vec_8 start_5 stop*_0 step_2 len_1)(values vec_8 start_5 stop*_0 step_2))))))))" "(define-values" "(check-vector)" -" (lambda (v_19) (begin (if (vector? v_19) (void) (let-values () (raise-argument-error 'in-vector \"vector\" v_19))))))" +" (lambda (v_22) (begin (if (vector? v_22) (void) (let-values () (raise-argument-error 'in-vector \"vector\" v_22))))))" "(define-values" "(check-string)" -" (lambda (v_20) (begin (if (string? v_20) (void) (let-values () (raise-argument-error 'in-string \"string\" v_20))))))" +" (lambda (v_23) (begin (if (string? v_23) (void) (let-values () (raise-argument-error 'in-string \"string\" v_23))))))" "(define-values" "(check-bytes)" -" (lambda (v_21) (begin (if (bytes? v_21) (void) (let-values () (raise-argument-error 'in-bytes \"bytes\" v_21))))))" +" (lambda (v_24) (begin (if (bytes? v_24) (void) (let-values () (raise-argument-error 'in-bytes \"bytes\" v_24))))))" "(define-values" "(struct:do-stream make-do-stream do-stream? do-stream-ref do-stream-set!)" "(make-struct-type" @@ -1909,17 +2207,17 @@ static const char *startup_source = "(cons" " prop:stream" "(vector" -"(lambda(v_22)((do-stream-ref v_22 0)))" -"(lambda(v_23)((do-stream-ref v_23 1)))" -"(lambda(v_24)((do-stream-ref v_24 2))))))))" +"(lambda(v_25)((do-stream-ref v_25 0)))" +"(lambda(v_26)((do-stream-ref v_26 1)))" +"(lambda(v_27)((do-stream-ref v_27 2))))))))" "(define-values(empty-stream)(make-do-stream(lambda() #t) void void))" "(define-values" "(grow-vector)" "(lambda(vec_9)" "(begin" -"(let-values(((n_12)(vector-length vec_9)))" -"(let-values(((new-vec_0)(make-vector(* 2 n_12))))" -"(begin(vector-copy! new-vec_0 0 vec_9 0 n_12) new-vec_0))))))" +"(let-values(((n_14)(vector-length vec_9)))" +"(let-values(((new-vec_0)(make-vector(* 2 n_14))))" +"(begin(vector-copy! new-vec_0 0 vec_9 0 n_14) new-vec_0))))))" "(define-values" "(shrink-vector)" "(lambda(vec_10 i_19)" @@ -1932,7 +2230,7 @@ static const char *startup_source = "(begin" " 'map" "(if(if(procedure? f_0)(if(procedure-arity-includes? f_0 1)(list? l_6) #f) #f)" -"((letrec-values(((loop_33)" +"((letrec-values(((loop_36)" "(lambda(l_2)" "(begin" " 'loop" @@ -1940,30 +2238,30 @@ static const char *startup_source = "(let-values() null)" "(let-values()" "(let-values(((r_4)(cdr l_2)))" -"(cons(f_0(car l_2))(loop_33 r_4)))))))))" -" loop_33)" +"(cons(f_0(car l_2))(loop_36 r_4)))))))))" +" loop_36)" " l_6)" "(gen-map f_0(list l_6)))))" -"((f_1 l1_0 l2_0)" +"((f_1 l1_2 l2_2)" "(if(if(procedure? f_1)" "(if(procedure-arity-includes? f_1 2)" -"(if(list? l1_0)(if(list? l2_0)(=(length l1_0)(length l2_0)) #f) #f)" +"(if(list? l1_2)(if(list? l2_2)(=(length l1_2)(length l2_2)) #f) #f)" " #f)" " #f)" -"((letrec-values(((loop_34)" -"(lambda(l1_1 l2_1)" +"((letrec-values(((loop_37)" +"(lambda(l1_3 l2_3)" "(begin" " 'loop" -"(if(null? l1_1)" +"(if(null? l1_3)" "(let-values() null)" "(let-values()" -"(let-values(((r1_0)(cdr l1_1))((r2_0)(cdr l2_1)))" -"(cons(f_1(car l1_1)(car l2_1))(loop_34 r1_0 r2_0)))))))))" -" loop_34)" -" l1_0" -" l2_0)" -"(gen-map f_1(list l1_0 l2_0))))" -"((f_2 l_7 . args_0)(gen-map f_2(cons l_7 args_0))))))" +"(let-values(((r1_0)(cdr l1_3))((r2_0)(cdr l2_3)))" +"(cons(f_1(car l1_3)(car l2_3))(loop_37 r1_0 r2_0)))))))))" +" loop_37)" +" l1_2" +" l2_2)" +"(gen-map f_1(list l1_2 l2_2))))" +"((f_2 l_7 . args_3)(gen-map f_2(cons l_7 args_3))))))" " map_0))" "(define-values" "(for-each2)" @@ -1973,7 +2271,7 @@ static const char *startup_source = "(begin" " 'for-each" "(if(if(procedure? f_3)(if(procedure-arity-includes? f_3 1)(list? l_8) #f) #f)" -"((letrec-values(((loop_35)" +"((letrec-values(((loop_38)" "(lambda(l_9)" "(begin" " 'loop" @@ -1981,30 +2279,30 @@ static const char *startup_source = "(let-values()(void))" "(let-values()" "(let-values(((r_5)(cdr l_9)))" -"(begin(f_3(car l_9))(loop_35 r_5)))))))))" -" loop_35)" +"(begin(f_3(car l_9))(loop_38 r_5)))))))))" +" loop_38)" " l_8)" "(gen-for-each f_3(list l_8)))))" -"((f_4 l1_2 l2_2)" +"((f_4 l1_4 l2_4)" "(if(if(procedure? f_4)" "(if(procedure-arity-includes? f_4 2)" -"(if(list? l1_2)(if(list? l2_2)(=(length l1_2)(length l2_2)) #f) #f)" +"(if(list? l1_4)(if(list? l2_4)(=(length l1_4)(length l2_4)) #f) #f)" " #f)" " #f)" -"((letrec-values(((loop_36)" -"(lambda(l1_3 l2_3)" +"((letrec-values(((loop_39)" +"(lambda(l1_5 l2_5)" "(begin" " 'loop" -"(if(null? l1_3)" +"(if(null? l1_5)" "(let-values()(void))" "(let-values()" -"(let-values(((r1_1)(cdr l1_3))((r2_1)(cdr l2_3)))" -"(begin(f_4(car l1_3)(car l2_3))(loop_36 r1_1 r2_1)))))))))" -" loop_36)" -" l1_2" -" l2_2)" -"(gen-for-each f_4(list l1_2 l2_2))))" -"((f_5 l_10 . args_1)(gen-for-each f_5(cons l_10 args_1))))))" +"(let-values(((r1_1)(cdr l1_5))((r2_1)(cdr l2_5)))" +"(begin(f_4(car l1_5)(car l2_5))(loop_39 r1_1 r2_1)))))))))" +" loop_39)" +" l1_4" +" l2_4)" +"(gen-for-each f_4(list l1_4 l2_4))))" +"((f_5 l_10 . args_4)(gen-for-each f_5(cons l_10 args_4))))))" " for-each_0))" "(define-values" "(andmap2)" @@ -2016,7 +2314,7 @@ static const char *startup_source = "(if(if(procedure? f_6)(if(procedure-arity-includes? f_6 1)(list? l_11) #f) #f)" "(if(null? l_11)" " #t" -"((letrec-values(((loop_37)" +"((letrec-values(((loop_40)" "(lambda(l_12)" "(begin" " 'loop" @@ -2024,32 +2322,32 @@ static const char *startup_source = "(let-values()(f_6(car l_12)))" "(let-values()" "(let-values(((r_6)(cdr l_12)))" -"(if(f_6(car l_12))(loop_37 r_6) #f))))))))" -" loop_37)" +"(if(f_6(car l_12))(loop_40 r_6) #f))))))))" +" loop_40)" " l_11))" "(gen-andmap f_6(list l_11)))))" -"((f_7 l1_4 l2_4)" +"((f_7 l1_6 l2_6)" "(if(if(procedure? f_7)" "(if(procedure-arity-includes? f_7 2)" -"(if(list? l1_4)(if(list? l2_4)(=(length l1_4)(length l2_4)) #f) #f)" +"(if(list? l1_6)(if(list? l2_6)(=(length l1_6)(length l2_6)) #f) #f)" " #f)" " #f)" -"(if(null? l1_4)" +"(if(null? l1_6)" " #t" -"((letrec-values(((loop_38)" -"(lambda(l1_5 l2_5)" +"((letrec-values(((loop_41)" +"(lambda(l1_7 l2_7)" "(begin" " 'loop" -"(if(null?(cdr l1_5))" -"(let-values()(f_7(car l1_5)(car l2_5)))" +"(if(null?(cdr l1_7))" +"(let-values()(f_7(car l1_7)(car l2_7)))" "(let-values()" -"(let-values(((r1_2)(cdr l1_5))((r2_2)(cdr l2_5)))" -"(if(f_7(car l1_5)(car l2_5))(loop_38 r1_2 r2_2) #f))))))))" -" loop_38)" -" l1_4" -" l2_4))" -"(gen-andmap f_7(list l1_4 l2_4))))" -"((f_8 l_13 . args_2)(gen-andmap f_8(cons l_13 args_2))))))" +"(let-values(((r1_2)(cdr l1_7))((r2_2)(cdr l2_7)))" +"(if(f_7(car l1_7)(car l2_7))(loop_41 r1_2 r2_2) #f))))))))" +" loop_41)" +" l1_6" +" l2_6))" +"(gen-andmap f_7(list l1_6 l2_6))))" +"((f_8 l_13 . args_5)(gen-andmap f_8(cons l_13 args_5))))))" " andmap_0))" "(define-values" "(ormap2)" @@ -2061,7 +2359,7 @@ static const char *startup_source = "(if(if(procedure? f_9)(if(procedure-arity-includes? f_9 1)(list? l_14) #f) #f)" "(if(null? l_14)" " #f" -"((letrec-values(((loop_39)" +"((letrec-values(((loop_42)" "(lambda(l_15)" "(begin" " 'loop" @@ -2069,34 +2367,34 @@ static const char *startup_source = "(let-values()(f_9(car l_15)))" "(let-values()" "(let-values(((r_7)(cdr l_15)))" -"(let-values(((or-part_21)(f_9(car l_15))))" -"(if or-part_21 or-part_21(loop_39 r_7))))))))))" -" loop_39)" +"(let-values(((or-part_27)(f_9(car l_15))))" +"(if or-part_27 or-part_27(loop_42 r_7))))))))))" +" loop_42)" " l_14))" "(gen-ormap f_9(list l_14)))))" -"((f_10 l1_6 l2_6)" +"((f_10 l1_8 l2_8)" "(if(if(procedure? f_10)" "(if(procedure-arity-includes? f_10 2)" -"(if(list? l1_6)(if(list? l2_6)(=(length l1_6)(length l2_6)) #f) #f)" +"(if(list? l1_8)(if(list? l2_8)(=(length l1_8)(length l2_8)) #f) #f)" " #f)" " #f)" -"(if(null? l1_6)" +"(if(null? l1_8)" " #f" -"((letrec-values(((loop_40)" -"(lambda(l1_7 l2_7)" +"((letrec-values(((loop_43)" +"(lambda(l1_9 l2_9)" "(begin" " 'loop" -"(if(null?(cdr l1_7))" -"(let-values()(f_10(car l1_7)(car l2_7)))" +"(if(null?(cdr l1_9))" +"(let-values()(f_10(car l1_9)(car l2_9)))" "(let-values()" -"(let-values(((r1_3)(cdr l1_7))((r2_3)(cdr l2_7)))" -"(let-values(((or-part_22)(f_10(car l1_7)(car l2_7))))" -"(if or-part_22 or-part_22(loop_40 r1_3 r2_3))))))))))" -" loop_40)" -" l1_6" -" l2_6))" -"(gen-ormap f_10(list l1_6 l2_6))))" -"((f_11 l_16 . args_3)(gen-ormap f_11(cons l_16 args_3))))))" +"(let-values(((r1_3)(cdr l1_9))((r2_3)(cdr l2_9)))" +"(let-values(((or-part_28)(f_10(car l1_9)(car l2_9))))" +"(if or-part_28 or-part_28(loop_43 r1_3 r2_3))))))))))" +" loop_43)" +" l1_8" +" l2_8))" +"(gen-ormap f_10(list l1_8 l2_8))))" +"((f_11 l_16 . args_6)(gen-ormap f_11(cons l_16 args_6))))))" " ormap_0))" "(define-values" "(check-args)" @@ -2104,7 +2402,7 @@ static const char *startup_source = "(begin" "(begin" " (if (procedure? f_12) (void) (let-values () (raise-argument-error who_5 \"procedure?\" f_12)))" -"((letrec-values(((loop_41)" +"((letrec-values(((loop_44)" "(lambda(prev-len_0 ls_5 i_20)" "(begin" " 'loop" @@ -2128,8 +2426,8 @@ static const char *startup_source = " \"procedure\"" " f_12))" "(void))" -"(loop_41 len_2(cdr ls_5)(add1 i_20))))))))))))" -" loop_41)" +"(loop_44 len_2(cdr ls_5)(add1 i_20))))))))))))" +" loop_44)" " #f" " ls_4" " 1)" @@ -2145,19 +2443,19 @@ static const char *startup_source = " \" the given number of lists\")" " \"given procedure\"" "(unquoted-printing-string" -"(let-values(((or-part_23)" -"(let-values(((n_13)(object-name f_12)))(if(symbol? n_13)(symbol->string n_13) #f))))" -" (if or-part_23 or-part_23 \"#\")))" +"(let-values(((or-part_29)" +"(let-values(((n_15)(object-name f_12)))(if(symbol? n_15)(symbol->string n_15) #f))))" +" (if or-part_29 or-part_29 \"#\")))" "(append" -"(let-values(((a_9)(procedure-arity f_12)))" -"(if(integer? a_9)" -" (let-values () (list \"expected\" a_9))" -"(if(arity-at-least? a_9)" +"(let-values(((a_15)(procedure-arity f_12)))" +"(if(integer? a_15)" +" (let-values () (list \"expected\" a_15))" +"(if(arity-at-least? a_15)" "(let-values()" "(list" " \"expected\"" "(unquoted-printing-string" -" (string-append \"at least \" (number->string (arity-at-least-value a_9))))))" +" (string-append \"at least \" (number->string (arity-at-least-value a_15))))))" "(let-values() null))))" " (list \"given\" (length ls_4))" "(let-values(((w_0)(quotient(error-print-width)(length ls_4))))" @@ -2167,7 +2465,7 @@ static const char *startup_source = "(unquoted-printing-string" "(apply" " string-append" -"((letrec-values(((loop_42)" +"((letrec-values(((loop_45)" "(lambda(ls_6)" "(begin" " 'loop" @@ -2176,8 +2474,8 @@ static const char *startup_source = "(let-values()" "(cons" " (string-append \"\\n \" ((error-value->string-handler) (car ls_6) w_0))" -"(loop_42(cdr ls_6)))))))))" -" loop_42)" +"(loop_45(cdr ls_6)))))))))" +" loop_45)" " ls_4))))" " null))))))))))" "(define-values" @@ -2186,7 +2484,7 @@ static const char *startup_source = "(begin" "(begin" "(check-args 'map f_13 ls_7)" -"((letrec-values(((loop_43)" +"((letrec-values(((loop_46)" "(lambda(ls_8)" "(begin" " 'loop" @@ -2194,8 +2492,8 @@ static const char *startup_source = "(let-values() null)" "(let-values()" "(let-values(((next-ls_0)(map2 cdr ls_8)))" -"(cons(apply f_13(map2 car ls_8))(loop_43 next-ls_0)))))))))" -" loop_43)" +"(cons(apply f_13(map2 car ls_8))(loop_46 next-ls_0)))))))))" +" loop_46)" " ls_7)))))" "(define-values" "(gen-for-each)" @@ -2203,7 +2501,7 @@ static const char *startup_source = "(begin" "(begin" "(check-args 'for-each f_14 ls_9)" -"((letrec-values(((loop_44)" +"((letrec-values(((loop_47)" "(lambda(ls_10)" "(begin" " 'loop" @@ -2211,8 +2509,8 @@ static const char *startup_source = "(void)" "(let-values()" "(let-values(((next-ls_1)(map2 cdr ls_10)))" -"(begin(apply f_14(map2 car ls_10))(loop_44 next-ls_1)))))))))" -" loop_44)" +"(begin(apply f_14(map2 car ls_10))(loop_47 next-ls_1)))))))))" +" loop_47)" " ls_9)))))" "(define-values" "(gen-andmap)" @@ -2220,7 +2518,7 @@ static const char *startup_source = "(begin" "(begin" "(check-args 'andmap f_15 ls_11)" -"((letrec-values(((loop_45)" +"((letrec-values(((loop_48)" "(lambda(ls_12)" "(begin" " 'loop" @@ -2230,8 +2528,8 @@ static const char *startup_source = "(let-values()(apply f_15(map2 car ls_12)))" "(let-values()" "(let-values(((next-ls_2)(map2 cdr ls_12)))" -"(if(apply f_15(map2 car ls_12))(loop_45 next-ls_2) #f)))))))))" -" loop_45)" +"(if(apply f_15(map2 car ls_12))(loop_48 next-ls_2) #f)))))))))" +" loop_48)" " ls_11)))))" "(define-values" "(gen-ormap)" @@ -2239,7 +2537,7 @@ static const char *startup_source = "(begin" "(begin" "(check-args 'ormap f_16 ls_13)" -"((letrec-values(((loop_46)" +"((letrec-values(((loop_49)" "(lambda(ls_14)" "(begin" " 'loop" @@ -2249,22 +2547,22 @@ static const char *startup_source = "(let-values()(apply f_16(map2 car ls_14)))" "(let-values()" "(let-values(((next-ls_3)(map2 cdr ls_14)))" -"(let-values(((or-part_24)(apply f_16(map2 car ls_14))))" -"(if or-part_24 or-part_24(loop_46 next-ls_3)))))))))))" -" loop_46)" +"(let-values(((or-part_30)(apply f_16(map2 car ls_14))))" +"(if or-part_30 or-part_30(loop_49 next-ls_3)))))))))))" +" loop_49)" " ls_13)))))" "(define-values" "(hash-keys)" "(lambda(h_0)" "(begin" -"((letrec-values(((loop_8)" +"((letrec-values(((loop_11)" "(lambda(pos_0)" "(begin" " 'loop" "(if pos_0" -"(cons(hash-iterate-key h_0 pos_0)(loop_8(hash-iterate-next h_0 pos_0)))" +"(cons(hash-iterate-key h_0 pos_0)(loop_11(hash-iterate-next h_0 pos_0)))" " null)))))" -" loop_8)" +" loop_11)" "(hash-iterate-first h_0)))))" "(define-values" "(sort7.1)" @@ -2290,7 +2588,7 @@ static const char *startup_source = " (lambda (who_6 orig-l_7) (begin (raise-mismatch-error who_6 \"not a proper list: \" orig-l_7))))" "(define-values" "(bad-item)" -" (lambda (who_7 a_10 orig-l_8) (begin (raise-mismatch-error who_7 \"non-pair found in list: \" a_10 \" in \" orig-l_8))))" +" (lambda (who_7 a_16 orig-l_8) (begin (raise-mismatch-error who_7 \"non-pair found in list: \" a_16 \" in \" orig-l_8))))" "(define-values" "(1/assq 1/assv 1/assoc assf)" "(let-values()" @@ -2299,7 +2597,7 @@ static const char *startup_source = "(lambda(x_9 l_18)" "(begin" " 'assq" -"((letrec-values(((loop_46)" +"((letrec-values(((loop_49)" "(lambda(l_19 t_0)" "(begin" " 'loop" @@ -2312,16 +2610,16 @@ static const char *startup_source = "(let-values(((l_20)(unsafe-cdr l_19)))" "(if(pair? l_20)" "(let-values()" -"(let-values(((a_11)(unsafe-car l_20)))" -"(if(pair? a_11)" -"(if(eq? x_9(unsafe-car a_11))" -" a_11" +"(let-values(((a_17)(unsafe-car l_20)))" +"(if(pair? a_17)" +"(if(eq? x_9(unsafe-car a_17))" +" a_17" "(let-values(((t_1)(unsafe-cdr t_0))" "((l_21)(unsafe-cdr l_20)))" "(if(eq? l_21 t_1)" "(bad-list 'assq l_18)" -"(loop_46 l_21 t_1))))" -"(bad-item 'assq a_11 l_18))))" +"(loop_49 l_21 t_1))))" +"(bad-item 'assq a_17 l_18))))" "(if(null? l_20)" "(let-values() #f)" "(let-values()(bad-list 'assq l_18))))))" @@ -2329,44 +2627,44 @@ static const char *startup_source = "(if(null? l_19)" "(let-values() #f)" "(let-values()(bad-list 'assq l_18))))))))" -" loop_46)" +" loop_49)" " l_18" " l_18))))" "((assv_0)" "(lambda(x_10 l_22)" "(begin" " 'assv" -"((letrec-values(((loop_47)" +"((letrec-values(((loop_50)" "(lambda(l_23 t_2)" "(begin" " 'loop" "(if(pair? l_23)" "(let-values()" -"(let-values(((a_12)(unsafe-car l_23)))" -"(if(pair? a_12)" -"(if(eqv? x_10(unsafe-car a_12))" -" a_12" +"(let-values(((a_18)(unsafe-car l_23)))" +"(if(pair? a_18)" +"(if(eqv? x_10(unsafe-car a_18))" +" a_18" "(let-values(((l_24)(unsafe-cdr l_23)))" "(if(pair? l_24)" "(let-values()" -"(let-values(((a_13)(unsafe-car l_24)))" -"(if(pair? a_13)" -"(if(eqv? x_10(unsafe-car a_13))" -" a_13" +"(let-values(((a_19)(unsafe-car l_24)))" +"(if(pair? a_19)" +"(if(eqv? x_10(unsafe-car a_19))" +" a_19" "(let-values(((t_3)(unsafe-cdr t_2))" "((l_25)(unsafe-cdr l_24)))" "(if(eq? l_25 t_3)" "(bad-list 'assv l_22)" -"(loop_47 l_25 t_3))))" -"(bad-item 'assv a_13 l_22))))" +"(loop_50 l_25 t_3))))" +"(bad-item 'assv a_19 l_22))))" "(if(null? l_24)" "(let-values() #f)" "(let-values()(bad-list 'assv l_22))))))" -"(bad-item 'assv a_12 l_22))))" +"(bad-item 'assv a_18 l_22))))" "(if(null? l_23)" "(let-values() #f)" "(let-values()(bad-list 'assv l_22))))))))" -" loop_47)" +" loop_50)" " l_22" " l_22))))" "((assoc_0)" @@ -2374,37 +2672,37 @@ static const char *startup_source = "((x_11 l_26)" "(begin" " 'assoc" -"((letrec-values(((loop_48)" +"((letrec-values(((loop_51)" "(lambda(l_27 t_4)" "(begin" " 'loop" "(if(pair? l_27)" "(let-values()" -"(let-values(((a_14)(unsafe-car l_27)))" -"(if(pair? a_14)" -"(if(equal? x_11(unsafe-car a_14))" -" a_14" +"(let-values(((a_20)(unsafe-car l_27)))" +"(if(pair? a_20)" +"(if(equal? x_11(unsafe-car a_20))" +" a_20" "(let-values(((l_28)(unsafe-cdr l_27)))" "(if(pair? l_28)" "(let-values()" -"(let-values(((a_15)(unsafe-car l_28)))" -"(if(pair? a_15)" -"(if(equal? x_11(unsafe-car a_15))" -" a_15" +"(let-values(((a_21)(unsafe-car l_28)))" +"(if(pair? a_21)" +"(if(equal? x_11(unsafe-car a_21))" +" a_21" "(let-values(((t_5)(unsafe-cdr t_4))" "((l_29)(unsafe-cdr l_28)))" "(if(eq? l_29 t_5)" "(bad-list 'assoc l_26)" -"(loop_48 l_29 t_5))))" -"(bad-item 'assoc a_15 l_26))))" +"(loop_51 l_29 t_5))))" +"(bad-item 'assoc a_21 l_26))))" "(if(null? l_28)" "(let-values() #f)" "(let-values()(bad-list 'assoc l_26))))))" -"(bad-item 'assoc a_14 l_26))))" +"(bad-item 'assoc a_20 l_26))))" "(if(null? l_27)" "(let-values() #f)" "(let-values()(bad-list 'assoc l_26))))))))" -" loop_48)" +" loop_51)" " l_26" " l_26)))" "((x_12 l_30 is-equal?_0)" @@ -2412,37 +2710,37 @@ static const char *startup_source = "(if(if(procedure? is-equal?_0)(procedure-arity-includes? is-equal?_0 2) #f)" "(void)" " (let-values () (raise-argument-error 'assoc \"(any/c any/c . -> . any/c)\" is-equal?_0)))" -"((letrec-values(((loop_49)" +"((letrec-values(((loop_52)" "(lambda(l_31 t_6)" "(begin" " 'loop" "(if(pair? l_31)" "(let-values()" -"(let-values(((a_16)(unsafe-car l_31)))" -"(if(pair? a_16)" -"(if(is-equal?_0 x_12(unsafe-car a_16))" -" a_16" +"(let-values(((a_22)(unsafe-car l_31)))" +"(if(pair? a_22)" +"(if(is-equal?_0 x_12(unsafe-car a_22))" +" a_22" "(let-values(((l_32)(unsafe-cdr l_31)))" "(if(pair? l_32)" "(let-values()" -"(let-values(((a_17)(unsafe-car l_32)))" -"(if(pair? a_17)" -"(if(is-equal?_0 x_12(unsafe-car a_17))" -" a_17" +"(let-values(((a_23)(unsafe-car l_32)))" +"(if(pair? a_23)" +"(if(is-equal?_0 x_12(unsafe-car a_23))" +" a_23" "(let-values(((t_7)(unsafe-cdr t_6))" "((l_33)(unsafe-cdr l_32)))" "(if(eq? l_33 t_7)" "(bad-list 'assoc l_30)" -"(loop_49 l_33 t_7))))" -"(bad-item 'assoc a_17 l_30))))" +"(loop_52 l_33 t_7))))" +"(bad-item 'assoc a_23 l_30))))" "(if(null? l_32)" "(let-values() #f)" "(let-values()(bad-list 'assoc l_30))))))" -"(bad-item 'assoc a_16 l_30))))" +"(bad-item 'assoc a_22 l_30))))" "(if(null? l_31)" "(let-values() #f)" "(let-values()(bad-list 'assoc l_30))))))))" -" loop_49)" +" loop_52)" " l_30" " l_30)))))" "((assf_0)" @@ -2453,39 +2751,39 @@ static const char *startup_source = "(if(if(procedure? f_17)(procedure-arity-includes? f_17 1) #f)" "(void)" " (let-values () (raise-argument-error 'assf \"(any/c any/c . -> . any/c)\" f_17)))" -"((letrec-values(((loop_50)" +"((letrec-values(((loop_53)" "(lambda(l_35 t_8)" "(begin" " 'loop" "(if(pair? l_35)" "(let-values()" -"(let-values(((a_18)(unsafe-car l_35)))" -"(if(pair? a_18)" -"(if((lambda(__0 a_19)(f_17 a_19)) #f(unsafe-car a_18))" -" a_18" +"(let-values(((a_24)(unsafe-car l_35)))" +"(if(pair? a_24)" +"(if((lambda(__0 a_25)(f_17 a_25)) #f(unsafe-car a_24))" +" a_24" "(let-values(((l_36)(unsafe-cdr l_35)))" "(if(pair? l_36)" "(let-values()" -"(let-values(((a_20)(unsafe-car l_36)))" -"(if(pair? a_20)" -"(if((lambda(__1 a_21)(f_17 a_21))" +"(let-values(((a_26)(unsafe-car l_36)))" +"(if(pair? a_26)" +"(if((lambda(__1 a_27)(f_17 a_27))" " #f" -"(unsafe-car a_20))" -" a_20" +"(unsafe-car a_26))" +" a_26" "(let-values(((t_9)(unsafe-cdr t_8))" "((l_37)(unsafe-cdr l_36)))" "(if(eq? l_37 t_9)" "(bad-list 'assf l_34)" -"(loop_50 l_37 t_9))))" -"(bad-item 'assf a_20 l_34))))" +"(loop_53 l_37 t_9))))" +"(bad-item 'assf a_26 l_34))))" "(if(null? l_36)" "(let-values() #f)" "(let-values()(bad-list 'assf l_34))))))" -"(bad-item 'assf a_18 l_34))))" +"(bad-item 'assf a_24 l_34))))" "(if(null? l_35)" "(let-values() #f)" "(let-values()(bad-list 'assf l_34))))))))" -" loop_50)" +" loop_53)" " l_34" " l_34))))))" "(values assq_0 assv_0 assoc_0 assf_0)))))" @@ -2498,14 +2796,14 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'filter \"(any/c . -> . any/c)\" f_18)))" " (if (list? list_0) (void) (let-values () (raise-argument-error 'filter \"list?\" list_0)))" -"((letrec-values(((loop_51)" +"((letrec-values(((loop_54)" "(lambda(l_38 result_0)" "(begin" " 'loop" "(if(null? l_38)" "(reverse$1 result_0)" -"(loop_51(cdr l_38)(if(f_18(car l_38))(cons(car l_38) result_0) result_0)))))))" -" loop_51)" +"(loop_54(cdr l_38)(if(f_18(car l_38))(cons(car l_38) result_0) result_0)))))))" +" loop_54)" " list_0" " null)))))" "(define-values(no-empty-edge-table)(make-hash))" @@ -2533,41 +2831,41 @@ static const char *startup_source = "(begin" " 'with-input-from-file45" "(let-values(((path_1) path43_0))" -"(let-values(((proc_0) proc44_0))" +"(let-values(((proc_2) proc44_0))" "(let-values(((mode_1)(if mode42_0 mode41_0 'binary)))" "(let-values()" "(begin" "(if(path-string? path_1)" "(void)" " (let-values () (raise-argument-error 'with-input-from-file \"path-string?\" path_1)))" -"(if(if(procedure? proc_0)(procedure-arity-includes? proc_0 0) #f)" +"(if(if(procedure? proc_2)(procedure-arity-includes? proc_2 0) #f)" "(void)" -" (let-values () (raise-argument-error 'with-input-from-file \"(-> any)\" proc_0)))" +" (let-values () (raise-argument-error 'with-input-from-file \"(-> any)\" proc_2)))" "(if(memq mode_1 '(binary text))" "(void)" "(let-values()(raise-argument-error 'with-input-from-file binary-or-text-desc mode_1)))" -"(with-input-from-file path_1 proc_0 mode_1)))))))))" +"(with-input-from-file path_1 proc_2 mode_1)))))))))" "(define-values" "(call-with-input-file*61.1)" "(lambda(mode57_0 mode58_0 path59_0 proc60_0)" "(begin" " 'call-with-input-file*61" "(let-values(((path_2) path59_0))" -"(let-values(((proc_1) proc60_0))" +"(let-values(((proc_3) proc60_0))" "(let-values(((mode_2)(if mode58_0 mode57_0 'binary)))" "(let-values()" "(begin" "(if(path-string? path_2)" "(void)" " (let-values () (raise-argument-error 'call-with-input-file* \"path-string?\" path_2)))" -"(if(if(procedure? proc_1)(procedure-arity-includes? proc_1 1) #f)" +"(if(if(procedure? proc_3)(procedure-arity-includes? proc_3 1) #f)" "(void)" -" (let-values () (raise-argument-error 'call-with-input-file* \"(input-port? . -> . any)\" proc_1)))" +" (let-values () (raise-argument-error 'call-with-input-file* \"(input-port? . -> . any)\" proc_3)))" "(if(memq mode_2 '(binary text))" "(void)" "(let-values()(raise-argument-error 'call-with-input-file* binary-or-text-desc mode_2)))" -"(let-values(((p_2)(open-input-file path_2 mode_2)))" -"(dynamic-wind void(lambda()(proc_1 p_2))(lambda()(close-input-port p_2))))))))))))" +"(let-values(((p_6)(open-input-file path_2 mode_2)))" +"(dynamic-wind void(lambda()(proc_3 p_6))(lambda()(close-input-port p_6))))))))))))" "(define-values(the-empty-hash) '#hash())" "(define-values(the-empty-hasheq) '#hasheq())" "(define-values(the-empty-hasheqv) '#hasheqv())" @@ -2630,8 +2928,8 @@ static const char *startup_source = "(set=?)" "(lambda(s1_1 s2_1)" "(begin" -"(let-values(((or-part_25)(eq? s1_1 s2_1)))" -"(if or-part_25 or-part_25(if(=(hash-count s1_1)(hash-count s2_1))(hash-keys-subset? s1_1 s2_1) #f))))))" +"(let-values(((or-part_31)(eq? s1_1 s2_1)))" +"(if or-part_31 or-part_31(if(=(hash-count s1_1)(hash-count s2_1))(hash-keys-subset? s1_1 s2_1) #f))))))" "(define-values" "(set-subtract)" "(lambda(s1_2 s2_2)" @@ -2728,23 +3026,23 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash-keys ht_20)))" "((letrec-values(((for-loop_5)" -"(lambda(y_6 n_14 i_24)" +"(lambda(y_6 n_16 i_24)" "(begin" " 'for-loop" "(if i_24" -"(let-values(((v_25)(unsafe-immutable-hash-iterate-key ht_20 i_24)))" -"(let-values(((y_7 n_15)" -"(let-values(((y_8) y_6)((n_16) n_14))" -"(let-values(((y_9 n_17)" +"(let-values(((v_28)(unsafe-immutable-hash-iterate-key ht_20 i_24)))" +"(let-values(((y_7 n_17)" +"(let-values(((y_8) y_6)((n_18) n_16))" +"(let-values(((y_9 n_19)" "(let-values()" -"(if(pred_0 v_25)" -"(values(set-add y_8 v_25) n_16)" -"(values y_8(set-add n_16 v_25))))))" -"(values y_9 n_17)))))" +"(if(pred_0 v_28)" +"(values(set-add y_8 v_28) n_18)" +"(values y_8(set-add n_18 v_28))))))" +"(values y_9 n_19)))))" "(if(not #f)" -"(for-loop_5 y_7 n_15(unsafe-immutable-hash-iterate-next ht_20 i_24))" -"(values y_7 n_15))))" -"(values y_6 n_14))))))" +"(for-loop_5 y_7 n_17(unsafe-immutable-hash-iterate-next ht_20 i_24))" +"(values y_7 n_17))))" +"(values y_6 n_16))))))" " for-loop_5)" " empty-y-set_0" " empty-n-set_0" @@ -2845,51 +3143,51 @@ static const char *startup_source = "(make-struct-type-property 'binding-reach-scopes))" "(define-values" "(1/module-path?)" -"(lambda(v_26)" +"(lambda(v_29)" "(begin" " 'module-path?" -"(let-values(((or-part_0)(if(pair? v_26)(if(eq?(car v_26) 'submod)(submodule-module-path? v_26) #f) #f)))" -"(if or-part_0 or-part_0(root-module-path? v_26))))))" +"(let-values(((or-part_0)(if(pair? v_29)(if(eq?(car v_29) 'submod)(submodule-module-path? v_29) #f) #f)))" +"(if or-part_0 or-part_0(root-module-path? v_29))))))" "(define-values" "(root-module-path?)" -"(lambda(v_27)" +"(lambda(v_30)" "(begin" -"(let-values(((or-part_11)(path? v_27)))" +"(let-values(((or-part_11)(path? v_30)))" "(if or-part_11" " or-part_11" -"(let-values(((or-part_2)(if(string? v_27)(string-module-path? v_27) #f)))" +"(let-values(((or-part_2)(if(string? v_30)(string-module-path? v_30) #f)))" "(if or-part_2" " or-part_2" -"(let-values(((or-part_26)(if(symbol? v_27)(symbol-module-path? v_27) #f)))" -"(if or-part_26" -" or-part_26" -"(if(pair? v_27)" -"(let-values(((tmp_4)(car v_27)))" -"(if(equal? tmp_4 'quote)" -"(let-values()(if(pair?(cdr v_27))(if(symbol?(cadr v_27))(null?(cddr v_27)) #f) #f))" -"(if(equal? tmp_4 'lib)" -"(let-values()(lib-module-path? v_27))" -"(if(equal? tmp_4 'file)" +"(let-values(((or-part_32)(if(symbol? v_30)(symbol-module-path? v_30) #f)))" +"(if or-part_32" +" or-part_32" +"(if(pair? v_30)" +"(let-values(((tmp_5)(car v_30)))" +"(if(equal? tmp_5 'quote)" +"(let-values()(if(pair?(cdr v_30))(if(symbol?(cadr v_30))(null?(cddr v_30)) #f) #f))" +"(if(equal? tmp_5 'lib)" +"(let-values()(lib-module-path? v_30))" +"(if(equal? tmp_5 'file)" "(let-values()" -"(if(pair?(cdr v_27))" -"(if(string?(cadr v_27))(if(path-string?(cadr v_27))(null?(cddr v_27)) #f) #f)" +"(if(pair?(cdr v_30))" +"(if(string?(cadr v_30))(if(path-string?(cadr v_30))(null?(cddr v_30)) #f) #f)" " #f))" -"(if(equal? tmp_4 'planet)" -"(let-values()(planet-module-path? v_27))" +"(if(equal? tmp_5 'planet)" +"(let-values()(planet-module-path? v_30))" "(let-values() #f))))))" " #f))))))))))" "(define-values" "(submodule-module-path?)" -"(lambda(v_28)" +"(lambda(v_31)" "(begin" -"(if(pair?(cdr v_28))" -"(if(list? v_28)" -" (if (let-values (((or-part_27) (equal? (cadr v_28) \"..\")))" -"(if or-part_27" -" or-part_27" -" (let-values (((or-part_10) (equal? (cadr v_28) \".\")))" -"(if or-part_10 or-part_10(root-module-path?(cadr v_28))))))" -"(let-values(((lst_15)(cddr v_28)))" +"(if(pair?(cdr v_31))" +"(if(list? v_31)" +" (if (let-values (((or-part_33) (equal? (cadr v_31) \"..\")))" +"(if or-part_33" +" or-part_33" +" (let-values (((or-part_10) (equal? (cadr v_31) \".\")))" +"(if or-part_10 or-part_10(root-module-path?(cadr v_31))))))" +"(let-values(((lst_15)(cddr v_31)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_15)))" "((letrec-values(((for-loop_9)" @@ -2903,10 +3201,10 @@ static const char *startup_source = "(let-values(((result_3)" "(let-values()" "(let-values()" -"(let-values(((or-part_28)" +"(let-values(((or-part_34)" " (equal? e_7 \"..\")))" -"(if or-part_28" -" or-part_28" +"(if or-part_34" +" or-part_34" "(symbol? e_7)))))))" "(values result_3)))))" "(if(if(not((lambda x_13(not result_2)) e_7))(not #f) #f)" @@ -2921,52 +3219,52 @@ static const char *startup_source = " #f))))" "(define-values" "(string-module-path?)" -"(lambda(v_29)" +"(lambda(v_32)" "(begin" "(let-values(((temp14_0) #t)((temp15_0) #t)((temp16_0) #t))" -"(module-path-string?10.1 temp14_0 #t temp16_0 #t #f #f temp15_0 #t v_29)))))" +"(module-path-string?10.1 temp14_0 #t temp16_0 #t #f #f temp15_0 #t v_32)))))" "(define-values" "(symbol-module-path?)" -"(lambda(v_30)" +"(lambda(v_33)" "(begin" -"(let-values(((temp17_0)(symbol->string v_30)))(module-path-string?10.1 #f #f #f #f #f #f #f #f temp17_0)))))" +"(let-values(((temp17_0)(symbol->string v_33)))(module-path-string?10.1 #f #f #f #f #f #f #f #f temp17_0)))))" "(define-values" "(lib-module-path?)" -"(lambda(v_31)" +"(lambda(v_34)" "(begin" -"(if(list? v_31)" -"(if(pair?(cdr v_31))" -"((letrec-values(((loop_52)" -"(lambda(v_32 first?_0)" +"(if(list? v_34)" +"(if(pair?(cdr v_34))" +"((letrec-values(((loop_55)" +"(lambda(v_35 first?_0)" "(begin" " 'loop" -"(let-values(((or-part_29)(null? v_32)))" -"(if or-part_29" -" or-part_29" -"(if(string?(car v_32))" -"(if(let-values(((temp18_0)(car v_32))" +"(let-values(((or-part_35)(null? v_35)))" +"(if or-part_35" +" or-part_35" +"(if(string?(car v_35))" +"(if(let-values(((temp18_0)(car v_35))" "((first?19_0) first?_0)" "((first?20_0) first?_0))" "(module-path-string?10.1 #f #f first?20_0 #t #f #f first?19_0 #t temp18_0))" -"(loop_52(cdr v_32) #f)" +"(loop_55(cdr v_35) #f)" " #f)" " #f)))))))" -" loop_52)" -"(cdr v_31)" +" loop_55)" +"(cdr v_34)" " #t)" " #f)" " #f))))" "(define-values" "(planet-module-path?)" -"(lambda(v_33)" +"(lambda(v_36)" "(begin" -"(if(list? v_33)" -"(let-values(((tmp_5)(length v_33)))" -"(if(equal? tmp_5 1)" +"(if(list? v_36)" +"(let-values(((tmp_6)(length v_36)))" +"(if(equal? tmp_6 1)" "(let-values() #f)" -"(if(equal? tmp_5 2)" +"(if(equal? tmp_6 2)" "(let-values()" -"(let-values(((e_8)(cadr v_33)))" +"(let-values(((e_8)(cadr v_36)))" "(if(string? e_8)" "(let-values()" "(let-values(((temp22_0) #t)((temp23_0) #t))" @@ -2977,9 +3275,9 @@ static const char *startup_source = "(module-path-string?10.1 #f #f #f #f temp25_0 #t #f #f temp24_0)))" "(let-values() #f)))))" "(let-values()" -"(let-values(((file_0)(cadr v_33)))" -"(let-values(((pkg_0)(caddr v_33)))" -"(let-values(((subs_0)(cdddr v_33)))" +"(let-values(((file_0)(cadr v_36)))" +"(let-values(((pkg_0)(caddr v_36)))" +"(let-values(((subs_0)(cdddr v_36)))" "(if file_0" "(if(let-values(((temp27_0) #t)((temp28_0) #t))" "(module-path-string?10.1 #f #f temp28_0 #t #f #f temp27_0 #t file_0))" @@ -2987,15 +3285,15 @@ static const char *startup_source = "(if(<= 2(length pkg_0) 4)" "(if(planet-user/pkg-string?(car pkg_0))" "(if(planet-user/pkg-string?(cadr pkg_0))" -"(let-values(((or-part_30)(null?(cddr pkg_0))))" -"(if or-part_30" -" or-part_30" -"(let-values(((or-part_31)(planet-version-number?(caddr pkg_0))))" -"(if or-part_31" -" or-part_31" -"(let-values(((or-part_32)(null?(cddr pkg_0))))" -"(if or-part_32" -" or-part_32" +"(let-values(((or-part_36)(null?(cddr pkg_0))))" +"(if or-part_36" +" or-part_36" +"(let-values(((or-part_37)(planet-version-number?(caddr pkg_0))))" +"(if or-part_37" +" or-part_37" +"(let-values(((or-part_38)(null?(cddr pkg_0))))" +"(if or-part_38" +" or-part_38" "(planet-version-minor-spec?(cadddr pkg_0))))))))" " #f)" " #f)" @@ -3044,21 +3342,21 @@ static const char *startup_source = " #f)" " #f))))))))" " #f))))" -"(define-values(planet-version-number?)(lambda(v_34)(begin(exact-nonnegative-integer? v_34))))" +"(define-values(planet-version-number?)(lambda(v_37)(begin(exact-nonnegative-integer? v_37))))" "(define-values" "(planet-version-minor-spec?)" -"(lambda(v_35)" +"(lambda(v_38)" "(begin" -"(let-values(((or-part_33)(planet-version-number? v_35)))" -"(if or-part_33" -" or-part_33" -"(if(pair? v_35)" -"(if(list? v_35)" -"(if(= 2(length v_35))" -"(let-values(((tmp_6)(car v_35)))" -"(if(if(equal? tmp_6 '=) #t(if(equal? tmp_6 '+) #t(equal? tmp_6 '-)))" -"(let-values()(planet-version-number?(cadr v_35)))" -"(let-values()(if(planet-version-number?(car v_35))(planet-version-number?(cadr v_35)) #f))))" +"(let-values(((or-part_39)(planet-version-number? v_38)))" +"(if or-part_39" +" or-part_39" +"(if(pair? v_38)" +"(if(list? v_38)" +"(if(= 2(length v_38))" +"(let-values(((tmp_7)(car v_38)))" +"(if(if(equal? tmp_7 '=) #t(if(equal? tmp_7 '+) #t(equal? tmp_7 '-)))" +"(let-values()(planet-version-number?(cadr v_38)))" +"(let-values()(if(planet-version-number?(car v_38))(planet-version-number?(cadr v_38)) #f))))" " #f)" " #f)" " #f))))))" @@ -3075,135 +3373,135 @@ static const char *startup_source = " v9_0)" "(begin" " 'module-path-string?10" -"(let-values(((v_36) v9_0))" +"(let-values(((v_39) v9_0))" "(let-values(((for-planet?_0)(if for-planet?5_0 for-planet?1_0 #f)))" "(let-values(((dots-dir-ok?_0)(if dots-dir-ok?6_0 dots-dir-ok?2_0 #f)))" "(let-values(((just-file-ok?_0)(if just-file-ok?7_0 just-file-ok?3_0 #f)))" "(let-values(((file-end-ok?_0)(if file-end-ok?8_0 file-end-ok?4_0 #f)))" "(let-values()" -"(let-values(((len_3)(string-length v_36)))" +"(let-values(((len_3)(string-length v_39)))" "(if(positive? len_3)" -"(if(not(char=? '#\\/(string-ref v_36 0)))" -"(if(not(char=? '#\\/(string-ref v_36(sub1 len_3))))" +"(if(not(char=? '#\\/(string-ref v_39 0)))" +"(if(not(char=? '#\\/(string-ref v_39(sub1 len_3))))" "(let-values(((start-package-version-pos_0 end-package-version-pos_0)" -"(if for-planet?_0(check-planet-part v_36 len_3)(values 0 0))))" +"(if for-planet?_0(check-planet-part v_39 len_3)(values 0 0))))" "(if start-package-version-pos_0" -"((letrec-values(((loop_53)" +"((letrec-values(((loop_56)" "(lambda(i_26 prev-was-slash?_0 saw-slash?_0 saw-dot?_0)" "(begin" " 'loop" "(if(not(zero? i_26))" "(let-values()" -"(let-values(((c_6)(string-ref v_36 i_26)))" +"(let-values(((c_6)(string-ref v_39 i_26)))" "(if(char=? c_6 '#\\/)" "(let-values()" "(if(not prev-was-slash?_0)" -"(loop_53(sub1 i_26) #t #t saw-dot?_0)" +"(loop_56(sub1 i_26) #t #t saw-dot?_0)" " #f))" "(if(char=? c_6 '#\\.)" "(let-values()" "(if(if(<(add1 i_26) len_3)" "(if(not" -"(char=?(string-ref v_36(add1 i_26)) '#\\/))" +"(char=?(string-ref v_39(add1 i_26)) '#\\/))" "(not" -"(char=?(string-ref v_36(add1 i_26)) '#\\.))" +"(char=?(string-ref v_39(add1 i_26)) '#\\.))" " #f)" " #f)" "(if(not saw-slash?_0)" -"(loop_53(sub1 i_26) #f saw-slash?_0 #t)" +"(loop_56(sub1 i_26) #f saw-slash?_0 #t)" " #f)" -"(loop_53(sub1 i_26) #f saw-slash?_0 saw-dot?_0)))" -"(if(let-values(((or-part_34)(plain-char? c_6)))" -"(if or-part_34" -" or-part_34" +"(loop_56(sub1 i_26) #f saw-slash?_0 saw-dot?_0)))" +"(if(let-values(((or-part_40)(plain-char? c_6)))" +"(if or-part_40" +" or-part_40" "(if(char=? c_6 '#\\%)" "(if(<(+ i_26 2) len_3)" -"(hex-sequence? v_36(add1 i_26))" +"(hex-sequence? v_39(add1 i_26))" " #f)" " #f)))" "(let-values()" -"(loop_53(sub1 i_26) #f saw-slash?_0 saw-dot?_0))" +"(loop_56(sub1 i_26) #f saw-slash?_0 saw-dot?_0))" "(if(if(>= i_26 start-package-version-pos_0)" "(< i_26 end-package-version-pos_0)" " #f)" "(let-values()" -"(loop_53(sub1 i_26) #f saw-slash?_0 saw-dot?_0))" +"(loop_56(sub1 i_26) #f saw-slash?_0 saw-dot?_0))" "(let-values() #f)))))))" "(let-values()" "(if(not" "(if(not just-file-ok?_0)" "(if saw-dot?_0(not saw-slash?_0) #f)" " #f))" -"(let-values(((or-part_35) dots-dir-ok?_0))" -"(if or-part_35" -" or-part_35" -"((letrec-values(((loop_54)" +"(let-values(((or-part_41) dots-dir-ok?_0))" +"(if or-part_41" +" or-part_41" +"((letrec-values(((loop_57)" "(lambda(i_27)" "(begin" " 'loop" "(if(= i_27 len_3)" "(let-values() #t)" "(if(char=?" -"(string-ref v_36 i_27)" +"(string-ref v_39 i_27)" " '#\\.)" "(let-values()" "(if(not" -"(let-values(((or-part_36)" +"(let-values(((or-part_42)" "(=" " len_3" "(add1" " i_27))))" -"(if or-part_36" -" or-part_36" +"(if or-part_42" +" or-part_42" "(char=?" "(string-ref" -" v_36" +" v_39" "(add1 i_27))" " '#\\/))))" "(if(not" "(if(char=?" "(string-ref" -" v_36" +" v_39" "(add1 i_27))" " '#\\.)" -"(let-values(((or-part_37)" +"(let-values(((or-part_43)" "(=" " len_3" "(+" " i_27" " 2))))" -"(if or-part_37" -" or-part_37" +"(if or-part_43" +" or-part_43" "(char=?" "(string-ref" -" v_36" +" v_39" "(+ i_27 2))" " '#\\/)))" " #f))" -"(loop_54" -"((letrec-values(((loop_55)" +"(loop_57" +"((letrec-values(((loop_58)" "(lambda(i_28)" "(begin" " 'loop" "(if(char=?" " '#\\." "(string-ref" -" v_36" +" v_39" " i_28))" -"(loop_55" +"(loop_58" "(add1" " i_28))" " i_28)))))" -" loop_55)" +" loop_58)" " i_27))" " #f)" " #f))" "(let-values()" -"(loop_54(add1 i_27)))))))))" -" loop_54)" +"(loop_57(add1 i_27)))))))))" +" loop_57)" " 0)))" " #f)))))))" -" loop_53)" +" loop_56)" "(sub1 len_3)" " #f" "(not file-end-ok?_0)" @@ -3214,13 +3512,13 @@ static const char *startup_source = " #f)))))))))))" "(define-values" "(planet-user/pkg-string?)" -"(lambda(v_37)" +"(lambda(v_40)" "(begin" -"(if(string? v_37)" -"(let-values(((len_4)(string-length v_37)))" +"(if(string? v_40)" +"(let-values(((len_4)(string-length v_40)))" "(if(positive? len_4)" "(let-values(((vec_11 len_5)" -"(let-values(((vec_12) v_37))" +"(let-values(((vec_12) v_40))" "(begin(check-string vec_12)(values vec_12(unsafe-string-length vec_12)))))" "((start_6) 0))" "(begin" @@ -3239,17 +3537,17 @@ static const char *startup_source = "(let-values(((result_9)" "(let-values()" "(let-values()" -"(let-values(((or-part_38)" +"(let-values(((or-part_44)" "(plain-char? c_7)))" -"(if or-part_38" -" or-part_38" -"(let-values(((or-part_39)" +"(if or-part_44" +" or-part_44" +"(let-values(((or-part_45)" "(char=? '#\\. c_7)))" -"(if or-part_39" -" or-part_39" +"(if or-part_45" +" or-part_45" "(if(char=? '#\\% c_7)" "(if(< i_29(- len_4 2))" -"(hex-sequence? v_37(add1 i_29))" +"(hex-sequence? v_40(add1 i_29))" " #f)" " #f)))))))))" "(values result_9)))))" @@ -3269,20 +3567,20 @@ static const char *startup_source = "(plain-char?)" "(lambda(c_8)" "(begin" -"(let-values(((or-part_40)(char<=? '#\\a c_8 '#\\z)))" -"(if or-part_40" -" or-part_40" -"(let-values(((or-part_41)(char<=? '#\\A c_8 '#\\Z)))" -"(if or-part_41" -" or-part_41" -"(let-values(((or-part_42)(char<=? '#\\0 c_8 '#\\9)))" -"(if or-part_42" -" or-part_42" -"(let-values(((or-part_43)(char=? '#\\- c_8)))" -"(if or-part_43" -" or-part_43" -"(let-values(((or-part_44)(char=? '#\\_ c_8)))" -"(if or-part_44 or-part_44(char=? '#\\+ c_8))))))))))))))" +"(let-values(((or-part_46)(char<=? '#\\a c_8 '#\\z)))" +"(if or-part_46" +" or-part_46" +"(let-values(((or-part_47)(char<=? '#\\A c_8 '#\\Z)))" +"(if or-part_47" +" or-part_47" +"(let-values(((or-part_48)(char<=? '#\\0 c_8 '#\\9)))" +"(if or-part_48" +" or-part_48" +"(let-values(((or-part_49)(char=? '#\\- c_8)))" +"(if or-part_49" +" or-part_49" +"(let-values(((or-part_50)(char=? '#\\_ c_8)))" +"(if or-part_50 or-part_50(char=? '#\\+ c_8))))))))))))))" "(define-values" "(hex-sequence?)" "(lambda(s_32 i_30)" @@ -3298,7 +3596,7 @@ static const char *startup_source = "(define-values" "(hex-char?)" "(lambda(c_10)" -"(begin(let-values(((or-part_45)(char<=? '#\\a c_10 '#\\f)))(if or-part_45 or-part_45(char<=? '#\\0 c_10 '#\\9))))))" +"(begin(let-values(((or-part_51)(char<=? '#\\a c_10 '#\\f)))(if or-part_51 or-part_51(char<=? '#\\0 c_10 '#\\9))))))" "(define-values" "(hex-char->integer)" "(lambda(c_11)" @@ -3310,10 +3608,10 @@ static const char *startup_source = "(let-values()(-(char->integer c_11)(char->integer '#\\0))))))))" "(define-values" "(check-planet-part)" -"(lambda(v_38 len_6)" +"(lambda(v_41 len_6)" "(begin" "(let-values(((start-package-version-pos_1 end-package-version-pos_1 colon1-pos_0 colon2-pos_0)" -"((letrec-values(((loop_56)" +"((letrec-values(((loop_59)" "(lambda(j_2" " start-package-version-pos_2" " end-package-version-pos_2" @@ -3325,51 +3623,51 @@ static const char *startup_source = "(let-values()" "(values" " start-package-version-pos_2" -"(let-values(((or-part_46) end-package-version-pos_2))" -"(if or-part_46 or-part_46 j_2))" +"(let-values(((or-part_52) end-package-version-pos_2))" +"(if or-part_52 or-part_52 j_2))" " colon1-pos_1" " colon2-pos_1))" "(let-values()" -"(let-values(((tmp_7)(string-ref v_38 j_2)))" -"(if(equal? tmp_7 '#\\/)" +"(let-values(((tmp_8)(string-ref v_41 j_2)))" +"(if(equal? tmp_8 '#\\/)" "(let-values()" -"(loop_56" +"(loop_59" "(add1 j_2)" -"(let-values(((or-part_47) start-package-version-pos_2))" -"(if or-part_47 or-part_47(add1 j_2)))" +"(let-values(((or-part_53) start-package-version-pos_2))" +"(if or-part_53 or-part_53(add1 j_2)))" "(if start-package-version-pos_2" -"(let-values(((or-part_48) end-package-version-pos_2))" -"(if or-part_48 or-part_48 j_2))" +"(let-values(((or-part_54) end-package-version-pos_2))" +"(if or-part_54 or-part_54 j_2))" " #f)" " colon1-pos_1" " colon2-pos_1))" -"(if(equal? tmp_7 '#\\:)" +"(if(equal? tmp_8 '#\\:)" "(let-values()" "(if colon2-pos_1" "(let-values()(values #f #f #f #f))" "(if colon1-pos_1" "(let-values()" -"(loop_56" +"(loop_59" "(add1 j_2)" " start-package-version-pos_2" " end-package-version-pos_2" " colon1-pos_1" " j_2))" "(let-values()" -"(loop_56" +"(loop_59" "(add1 j_2)" " start-package-version-pos_2" " end-package-version-pos_2" " j_2" " #f)))))" "(let-values()" -"(loop_56" +"(loop_59" "(add1 j_2)" " start-package-version-pos_2" " end-package-version-pos_2" " colon1-pos_1" " colon2-pos_1)))))))))))" -" loop_56)" +" loop_59)" " 0" " #f" " #f" @@ -3377,34 +3675,34 @@ static const char *startup_source = " #f)))" "(if(if start-package-version-pos_1" "(if(> end-package-version-pos_1 start-package-version-pos_1)" -"(let-values(((or-part_49)(not colon2-pos_0)))" -"(if or-part_49 or-part_49(<(add1 colon2-pos_0) end-package-version-pos_1)))" +"(let-values(((or-part_55)(not colon2-pos_0)))" +"(if or-part_55 or-part_55(<(add1 colon2-pos_0) end-package-version-pos_1)))" " #f)" " #f)" "(let-values()" "(if colon1-pos_0" "(let-values()" "(let-values(((colon1-end_0)" -"(let-values(((or-part_50) colon2-pos_0))" -"(if or-part_50 or-part_50 end-package-version-pos_1))))" -"(if(if(integer-sequence? v_38(add1 colon1-pos_0) colon1-end_0)" -"(let-values(((or-part_51)(not colon2-pos_0)))" -"(if or-part_51" -" or-part_51" -"(let-values(((tmp_8)(string-ref v_38(add1 colon2-pos_0))))" -"(if(equal? tmp_8 '#\\=)" -"(let-values()(integer-sequence? v_38(+ 2 colon2-pos_0) end-package-version-pos_1))" -"(if(if(equal? tmp_8 '#\\>) #t(equal? tmp_8 '#\\<))" +"(let-values(((or-part_56) colon2-pos_0))" +"(if or-part_56 or-part_56 end-package-version-pos_1))))" +"(if(if(integer-sequence? v_41(add1 colon1-pos_0) colon1-end_0)" +"(let-values(((or-part_57)(not colon2-pos_0)))" +"(if or-part_57" +" or-part_57" +"(let-values(((tmp_9)(string-ref v_41(add1 colon2-pos_0))))" +"(if(equal? tmp_9 '#\\=)" +"(let-values()(integer-sequence? v_41(+ 2 colon2-pos_0) end-package-version-pos_1))" +"(if(if(equal? tmp_9 '#\\>) #t(equal? tmp_9 '#\\<))" "(let-values()" "(if(if(<(+ 2 colon2-pos_0) end-package-version-pos_1)" -"(char=? '#\\=(string-ref v_38(+ colon2-pos_0 2)))" +"(char=? '#\\=(string-ref v_41(+ colon2-pos_0 2)))" " #f)" "(let-values()" -"(integer-sequence? v_38(+ 3 colon2-pos_0) end-package-version-pos_1))" +"(integer-sequence? v_41(+ 3 colon2-pos_0) end-package-version-pos_1))" "(let-values()" -"(integer-sequence? v_38(+ 2 colon2-pos_0) end-package-version-pos_1))))" +"(integer-sequence? v_41(+ 2 colon2-pos_0) end-package-version-pos_1))))" "(let-values()" -"(integer-range-sequence? v_38(add1 colon2-pos_0) end-package-version-pos_1)))))))" +"(integer-range-sequence? v_41(add1 colon2-pos_0) end-package-version-pos_1)))))))" " #f)" "(let-values()(values colon1-pos_0 end-package-version-pos_1))" "(let-values()(values #f #f)))))" @@ -3464,10 +3762,10 @@ static const char *startup_source = "(let-values()" "(let-values(((c_12)" "(string-ref s_34 i_32)))" -"(let-values(((or-part_52)" +"(let-values(((or-part_58)" "(char=? c_12 '#\\-)))" -"(if or-part_52" -" or-part_52" +"(if or-part_58" +" or-part_58" "(char<=? '#\\0 c_12 '#\\9))))))))" "(values result_15)))))" "(if(if(not((lambda x_18(not result_14)) i_32))(not #f) #f)" @@ -3541,13 +3839,13 @@ static const char *startup_source = "(define-values(make-weak-intern-table)(lambda()(begin(weak-intern-table1.1(box(table2.1(hasheqv) 0 128))))))" "(define-values" "(weak-intern!)" -"(lambda(tt_0 v_39)" +"(lambda(tt_0 v_42)" "(begin" "(let-values(((b_8)(weak-intern-table-box tt_0)))" "(let-values(((t_10)(unbox b_8)))" -"(let-values(((code_0)(equal-hash-code v_39)))" +"(let-values(((code_0)(equal-hash-code v_42)))" "(let-values(((vals_0)(hash-ref(table-ht t_10) code_0 null)))" -"(let-values(((or-part_53)" +"(let-values(((or-part_59)" "(let-values(((lst_19) vals_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" @@ -3568,7 +3866,7 @@ static const char *startup_source = "(let-values(((bv_0)" "(weak-box-value" " b_9)))" -"(if(equal? bv_0 v_39)" +"(if(equal? bv_0 v_42)" " bv_0" " #f))))))" "(values result_22)))))" @@ -3579,17 +3877,17 @@ static const char *startup_source = " for-loop_15)" " #f" " lst_19)))))" -"(if or-part_53" -" or-part_53" +"(if or-part_59" +" or-part_59" "(let-values(((pruned-t_0)(if(=(table-count t_10)(table-prune-at t_10))(prune-table t_10) t_10)))" "(let-values(((ht_22)(table-ht pruned-t_0)))" "(let-values(((new-t_0)" "(table2.1" -"(hash-set ht_22 code_0(cons(make-weak-box v_39)(hash-ref ht_22 code_0 null)))" +"(hash-set ht_22 code_0(cons(make-weak-box v_42)(hash-ref ht_22 code_0 null)))" "(add1(table-count pruned-t_0))" "(table-prune-at pruned-t_0))))" -"(let-values(((or-part_54)(if(box-cas! b_8 t_10 new-t_0) v_39 #f)))" -"(if or-part_54 or-part_54(weak-intern! tt_0 v_39)))))))))))))))" +"(let-values(((or-part_60)(if(box-cas! b_8 t_10 new-t_0) v_42 #f)))" +"(if or-part_60 or-part_60(weak-intern! tt_0 v_42)))))))))))))))" "(define-values" "(prune-table)" "(lambda(t_11)" @@ -3751,10 +4049,10 @@ static const char *startup_source = "(cons" " prop:equal+hash" "(list" -"(lambda(a_22 b_11 eql?_0)" -"(eql?_0(1/resolved-module-path-name a_22)(1/resolved-module-path-name b_11)))" -"(lambda(a_23 hash-code_0)(hash-code_0(1/resolved-module-path-name a_23)))" -"(lambda(a_24 hash-code_1)(hash-code_1(1/resolved-module-path-name a_24))))))" +"(lambda(a_28 b_11 eql?_0)" +"(eql?_0(1/resolved-module-path-name a_28)(1/resolved-module-path-name b_11)))" +"(lambda(a_29 hash-code_0)(hash-code_0(1/resolved-module-path-name a_29)))" +"(lambda(a_30 hash-code_1)(hash-code_1(1/resolved-module-path-name a_30))))))" "(current-inspector)" " #f" " '(0)" @@ -3763,16 +4061,16 @@ static const char *startup_source = "(values struct:_0 make-_0 ?_0(make-struct-field-accessor -ref_0 0 'name))))" "(define-values" "(format-resolved-module-path-name)" -"(lambda(p_3)" +"(lambda(p_7)" "(begin" -"(if(path? p_3)" -" (let-values () (string-append \"\\\"\" (path->string p_3) \"\\\"\"))" -"(if(symbol? p_3)" -"(let-values()(format-symbol p_3))" -"(let-values()(format-submod(format-resolved-module-path-name(car p_3))(cdr p_3))))))))" +"(if(path? p_7)" +" (let-values () (string-append \"\\\"\" (path->string p_7) \"\\\"\"))" +"(if(symbol? p_7)" +"(let-values()(format-symbol p_7))" +"(let-values()(format-submod(format-resolved-module-path-name(car p_7))(cdr p_7))))))))" "(define-values" "(format-symbol)" -" (lambda (p_4) (begin (format \"'~s~a\" p_4 (if (symbol-interned? p_4) \"\" (format \"[~a]\" (eq-hash-code p_4)))))))" +" (lambda (p_8) (begin (format \"'~s~a\" p_8 (if (symbol-interned? p_8) \"\" (format \"[~a]\" (eq-hash-code p_8)))))))" "(define-values" "(format-submod)" "(lambda(base_5 syms_0)" @@ -3812,22 +4110,22 @@ static const char *startup_source = "(define-values(resolved-module-paths)(make-weak-intern-table))" "(define-values" "(1/make-resolved-module-path)" -"(lambda(p_5)" +"(lambda(p_9)" "(begin" " 'make-resolved-module-path" "(begin" -"(if(let-values(((or-part_55)(symbol? p_5)))" -"(if or-part_55" -" or-part_55" -"(let-values(((or-part_56)(if(path? p_5)(complete-path? p_5) #f)))" -"(if or-part_56" -" or-part_56" -"(if(pair? p_5)" -"(if(pair?(cdr p_5))" -"(if(list? p_5)" -"(if(let-values(((or-part_7)(symbol?(car p_5))))" -"(if or-part_7 or-part_7(if(path?(car p_5))(complete-path?(car p_5)) #f)))" -"(let-values(((lst_18)(cdr p_5)))" +"(if(let-values(((or-part_61)(symbol? p_9)))" +"(if or-part_61" +" or-part_61" +"(let-values(((or-part_62)(if(path? p_9)(complete-path? p_9) #f)))" +"(if or-part_62" +" or-part_62" +"(if(pair? p_9)" +"(if(pair?(cdr p_9))" +"(if(list? p_9)" +"(if(let-values(((or-part_7)(symbol?(car p_9))))" +"(if or-part_7 or-part_7(if(path?(car p_9))(complete-path?(car p_9)) #f)))" +"(let-values(((lst_18)(cdr p_9)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -3869,8 +4167,8 @@ static const char *startup_source = " \" (cons/c (or/c symbol?\\n\"" " \" (and/c path? complete-path?))\\n\"" " \" (non-empty-listof symbol?)))\")" -" p_5)))" -"(weak-intern! resolved-module-paths(resolved-module-path1.1 p_5))))))" +" p_9)))" +"(weak-intern! resolved-module-paths(resolved-module-path1.1 p_9))))))" "(define-values" "(resolved-module-path->module-path)" "(lambda(r_11)" @@ -3910,7 +4208,7 @@ static const char *startup_source = "(if(module-path-index-path r_12)" "(let-values()" "(let-values(((l_43)" -"((letrec-values(((loop_57)" +"((letrec-values(((loop_60)" "(lambda(r_13)" "(begin" " 'loop" @@ -3921,42 +4219,42 @@ static const char *startup_source = "(if(module-path-index-path r_13)" "(let-values()" "(cons" -"((letrec-values(((loop_58)" -"(lambda(v_40)" +"((letrec-values(((loop_61)" +"(lambda(v_43)" "(begin" " 'loop" -"(if(if(pair? v_40)" +"(if(if(pair? v_43)" "(if(eq?" " 'quote" "(car" -" v_40))" +" v_43))" "(null?" "(cddr" -" v_40))" +" v_43))" " #f)" " #f)" "(let-values()" "(format-symbol" -"(cadr v_40)))" +"(cadr v_43)))" "(if(if(pair?" -" v_40)" +" v_43)" "(eq?" " 'submod" -"(car v_40))" +"(car v_43))" " #f)" "(let-values()" "(format-submod" -"(loop_58" -"(cadr v_40))" -"(cddr v_40)))" +"(loop_61" +"(cadr v_43))" +"(cddr v_43)))" "(let-values()" "(format" " \"~.s\"" "(module-path-index-path" " r_13)))))))))" -" loop_58)" +" loop_61)" "(module-path-index-path r_13))" -"(loop_57(module-path-index-base r_13))))" +"(loop_60(module-path-index-base r_13))))" "(if(module-path-index-resolved r_13)" "(let-values()" "(list" @@ -3965,7 +4263,7 @@ static const char *startup_source = " \"~a\"" "(module-path-index-resolved r_13))))" "(let-values() null)))))))))" -" loop_57)" +" loop_60)" " r_12)))" "(fprintf" " port_1" @@ -4012,16 +4310,16 @@ static const char *startup_source = "(cons" " prop:equal+hash" "(list" -"(lambda(a_25 b_12 eql?_1)" -"(if(eql?_1(module-path-index-path a_25)(module-path-index-path b_12))" -"(eql?_1(module-path-index-base a_25)(module-path-index-base b_12))" +"(lambda(a_31 b_12 eql?_1)" +"(if(eql?_1(module-path-index-path a_31)(module-path-index-path b_12))" +"(eql?_1(module-path-index-base a_31)(module-path-index-base b_12))" " #f))" -"(lambda(a_26 hash-code_2)" -"(+(hash-code_2(module-path-index-path a_26))(hash-code_2(module-path-index-base a_26))))" -"(lambda(a_27 hash-code_3)" +"(lambda(a_32 hash-code_2)" +"(+(hash-code_2(module-path-index-path a_32))(hash-code_2(module-path-index-base a_32))))" +"(lambda(a_33 hash-code_3)" "(+" -"(hash-code_3(module-path-index-path a_27))" -"(hash-code_3(module-path-index-base a_27)))))))" +"(hash-code_3(module-path-index-path a_33))" +"(hash-code_3(module-path-index-base a_33)))))))" "(current-inspector)" " #f" " '(0 1)" @@ -4057,9 +4355,9 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'module-path-index-resolve \"module-path-index?\" mpi_0)))" -"(let-values(((or-part_57)(module-path-index-resolved mpi_0)))" -"(if or-part_57" -" or-part_57" +"(let-values(((or-part_63)(module-path-index-resolved mpi_0)))" +"(if or-part_63" +" or-part_63" "(let-values(((mod-name_0)" "((1/current-module-name-resolver)" "(module-path-index-path mpi_0)" @@ -4099,25 +4397,25 @@ static const char *startup_source = "(let-values(((submod_0)(if submod9_0 submod8_0 #f)))" "(let-values()" "(begin" -"(if(let-values(((or-part_43)(not mod-path_0)))" -"(if or-part_43 or-part_43(1/module-path? mod-path_0)))" +"(if(let-values(((or-part_49)(not mod-path_0)))" +"(if or-part_49 or-part_49(1/module-path? mod-path_0)))" "(void)" "(let-values()" " (raise-argument-error 'module-path-index-join \"(or/c #f module-path?)\" mod-path_0)))" -"(if(let-values(((or-part_44)(not base_8)))" -"(if or-part_44" -" or-part_44" -"(let-values(((or-part_58)(1/resolved-module-path? base_8)))" -"(if or-part_58 or-part_58(1/module-path-index? base_8)))))" +"(if(let-values(((or-part_50)(not base_8)))" +"(if or-part_50" +" or-part_50" +"(let-values(((or-part_64)(1/resolved-module-path? base_8)))" +"(if or-part_64 or-part_64(1/module-path-index? base_8)))))" "(void)" "(let-values()" "(raise-argument-error" " 'module-path-index-join" " \"(or/c #f resolved-module-path? module-path-index?)\"" " base_8)))" -"(if(let-values(((or-part_59)(not submod_0)))" -"(if or-part_59" -" or-part_59" +"(if(let-values(((or-part_65)(not submod_0)))" +"(if or-part_65" +" or-part_65" "(if(pair? submod_0)(if(list? submod_0)(andmap2 symbol? submod_0) #f) #f)))" "(void)" "(let-values()" @@ -4149,7 +4447,7 @@ static const char *startup_source = "(1/make-resolved-module-path(cons generic-module-name submod_0))))" "(let-values()" "(let-values(((keep-base_0)" -"((letrec-values(((loop_59)" +"((letrec-values(((loop_62)" "(lambda(mod-path_1)" "(begin" " 'loop" @@ -4165,9 +4463,9 @@ static const char *startup_source = "(eq? 'submod(car mod-path_1))" " #f)" "(let-values()" -"(loop_59(cadr mod-path_1)))" +"(loop_62(cadr mod-path_1)))" "(let-values() base_8)))))))))" -" loop_59)" +" loop_62)" " mod-path_0)))" "(module-path-index2.1 mod-path_0 keep-base_0 #f #f)))))))))))))" "(case-lambda" @@ -4198,7 +4496,7 @@ static const char *startup_source = " (let-values () (raise-argument-error 'module-path-index-submodule \"module-path-index?\" mpi_5)))" "(if(not(module-path-index-path mpi_5))" "(let-values(((r_14)(module-path-index-resolved mpi_5)))" -"(if r_14(let-values(((p_6)(1/resolved-module-path-name r_14)))(if(pair? p_6)(cdr p_6) #f)) #f))" +"(if r_14(let-values(((p_10)(1/resolved-module-path-name r_14)))(if(pair? p_10)(cdr p_10) #f)) #f))" " #f)))))" "(define-values" "(make-self-module-path-index)" @@ -4215,10 +4513,10 @@ static const char *startup_source = "(lambda(self_0)" "(begin" "(let-values(((r_15)(resolved-module-path-to-generic-resolved-module-path(module-path-index-resolved self_0))))" -"(let-values(((or-part_48)" +"(let-values(((or-part_54)" "(let-values(((e_9)(hash-ref generic-self-mpis r_15 #f)))(if e_9(ephemeron-value e_9) #f))))" -"(if or-part_48" -" or-part_48" +"(if or-part_54" +" or-part_54" "(let-values(((mpi_6)(module-path-index2.1 #f #f r_15 #f)))" "(begin(hash-set! generic-self-mpis r_15(make-ephemeron r_15 mpi_6)) mpi_6))))))))" "(define-values" @@ -4264,44 +4562,44 @@ static const char *startup_source = "(module-path-index-shift-cache!)" "(lambda(mpi_9)" "(begin" -"(let-values(((or-part_60)" +"(let-values(((or-part_66)" "(let-values(((cache_0)(module-path-index-shift-cache mpi_9)))" "(if cache_0(if(weak-box-value cache_0) cache_0 #f) #f))))" -"(if or-part_60" -" or-part_60" +"(if or-part_66" +" or-part_66" "(let-values(((cache_1)(make-weak-box(box '#hasheq()))))" "(begin(set-module-path-index-shift-cache! mpi_9 cache_1) cache_1)))))))" "(define-values" "(shift-cache-ref)" -"(lambda(cache_2 v_41)" +"(lambda(cache_2 v_44)" "(begin" -"(if cache_2(let-values(((b_13)(weak-box-value cache_2)))(if b_13(hash-ref(unbox b_13) v_41 #f) #f)) #f))))" +"(if cache_2(let-values(((b_13)(weak-box-value cache_2)))(if b_13(hash-ref(unbox b_13) v_44 #f) #f)) #f))))" "(define-values" "(shift-cache-set!)" -"(lambda(cache_3 v_42 r_18)" +"(lambda(cache_3 v_45 r_18)" "(begin" "(let-values(((b_14)(weak-box-value cache_3)))" -"(if b_14(let-values()(set-box! b_14(hash-set(unbox b_14) v_42 r_18)))(void))))))" +"(if b_14(let-values()(set-box! b_14(hash-set(unbox b_14) v_45 r_18)))(void))))))" "(define-values(top-level-module-path-index)(make-self-module-path-index(1/make-resolved-module-path 'top-level)))" "(define-values(top-level-module-path-index?)(lambda(mpi_10)(begin(eq? top-level-module-path-index mpi_10))))" "(define-values" "(core-module-name-resolver)" "(case-lambda" "((name_12 from-namespace_0)(begin(void)))" -"((p_7 enclosing_1 source-stx-stx_0 load?_2)" +"((p_11 enclosing_1 source-stx-stx_0 load?_2)" "(begin" -"(if(1/module-path? p_7)" +"(if(1/module-path? p_11)" "(void)" -" (let-values () (raise-argument-error 'core-module-name-resolver \"module-path?\" p_7)))" -"(if(let-values(((or-part_52)(not enclosing_1)))" -"(if or-part_52 or-part_52(1/resolved-module-path? enclosing_1)))" +" (let-values () (raise-argument-error 'core-module-name-resolver \"module-path?\" p_11)))" +"(if(let-values(((or-part_58)(not enclosing_1)))" +"(if or-part_58 or-part_58(1/resolved-module-path? enclosing_1)))" "(void)" " (let-values () (raise-argument-error 'core-module-name-resolver \"resolved-module-path?\" enclosing_1)))" -"(if(if(list? p_7)(if(=(length p_7) 2)(if(eq? 'quote(car p_7))(symbol?(cadr p_7)) #f) #f) #f)" -"(let-values()(1/make-resolved-module-path(cadr p_7)))" -" (if (if (list? p_7) (if (eq? 'submod (car p_7)) (equal? \"..\" (cadr p_7)) #f) #f)" +"(if(if(list? p_11)(if(=(length p_11) 2)(if(eq? 'quote(car p_11))(symbol?(cadr p_11)) #f) #f) #f)" +"(let-values()(1/make-resolved-module-path(cadr p_11)))" +" (if (if (list? p_11) (if (eq? 'submod (car p_11)) (equal? \"..\" (cadr p_11)) #f) #f)" "(let-values()" -"(let-values(((lst_28)(cdr p_7)))" +"(let-values(((lst_28)(cdr p_11)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_28)))" "((letrec-values(((for-loop_23)" @@ -4314,7 +4612,7 @@ static const char *startup_source = "(let-values(((enclosing_4) enclosing_2))" "(let-values(((enclosing_5)" "(let-values()" -"(let-values(((p27_0) p_7))" +"(let-values(((p27_0) p_11))" "(build-module-name18.1" " p27_0" " #t" @@ -4326,9 +4624,9 @@ static const char *startup_source = " for-loop_23)" " enclosing_1" " lst_28))))" -" (if (if (list? p_7) (if (eq? 'submod (car p_7)) (equal? \".\" (cadr p_7)) #f) #f)" +" (if (if (list? p_11) (if (eq? 'submod (car p_11)) (equal? \".\" (cadr p_11)) #f) #f)" "(let-values()" -"(let-values(((lst_30)(cddr p_7)))" +"(let-values(((lst_30)(cddr p_11)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -4343,7 +4641,7 @@ static const char *startup_source = "(let-values(((enclosing_8) enclosing_6))" "(let-values(((enclosing_9)" "(let-values()" -"(let-values(((p30_0) p_7))" +"(let-values(((p30_0) p_11))" "(build-module-name18.1" " p30_0" " #t" @@ -4355,10 +4653,10 @@ static const char *startup_source = " for-loop_24)" " enclosing_1" " lst_30))))" -"(if(if(list? p_7)(eq? 'submod(car p_7)) #f)" +"(if(if(list? p_11)(eq? 'submod(car p_11)) #f)" "(let-values()" -"(let-values(((base_13)((1/current-module-name-resolver)(cadr p_7) enclosing_1 #f #f)))" -"(let-values(((lst_32)(cddr p_7)))" +"(let-values(((base_13)((1/current-module-name-resolver)(cadr p_11) enclosing_1 #f #f)))" +"(let-values(((lst_32)(cddr p_11)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -4373,7 +4671,7 @@ static const char *startup_source = "(let-values(((enclosing_12) enclosing_10))" "(let-values(((enclosing_13)" "(let-values()" -"(let-values(((p33_0) p_7))" +"(let-values(((p33_0) p_11))" "(build-module-name18.1" " p33_0" " #t" @@ -4385,7 +4683,7 @@ static const char *startup_source = " for-loop_25)" " base_13" " lst_32)))))" -" (let-values () (error 'core-module-name-resolver \"not a supported module path: ~v\" p_7))))))))))" +" (let-values () (error 'core-module-name-resolver \"not a supported module path: ~v\" p_11))))))))))" "(define-values" "(build-module-name18.1)" "(lambda(original14_0 original15_0 name16_0 enclosing17_0)" @@ -4413,23 +4711,23 @@ static const char *startup_source = "(1/current-module-name-resolver)" "(make-parameter" " core-module-name-resolver" -"(lambda(v_43)" +"(lambda(v_46)" "(begin" -"(if(if(procedure? v_43)(if(procedure-arity-includes? v_43 2)(procedure-arity-includes? v_43 4) #f) #f)" +"(if(if(procedure? v_46)(if(procedure-arity-includes? v_46 2)(procedure-arity-includes? v_46 4) #f) #f)" "(void)" "(let-values()" "(raise-argument-error" " 'current-module-name-resolver" " \"(and/c (procedure-arity-includes/c 2) (procedure-arity-includes/c 4))\"" -" v_43)))" -" v_43))))" +" v_46)))" +" v_46))))" "(define-values" "(1/current-module-declare-name)" "(make-parameter" " #f" "(lambda(r_19)" "(begin" -"(if(let-values(((or-part_61)(not r_19)))(if or-part_61 or-part_61(1/resolved-module-path? r_19)))" +"(if(let-values(((or-part_67)(not r_19)))(if or-part_67 or-part_67(1/resolved-module-path? r_19)))" "(void)" " (let-values () (raise-argument-error 'current-module-declare-name \"(or/c #f resolved-module-path?)\" r_19)))" " r_19))))" @@ -4439,11 +4737,11 @@ static const char *startup_source = " #f" "(lambda(s_39)" "(begin" -"(if(let-values(((or-part_62)(not s_39)))" -"(if or-part_62" -" or-part_62" -"(let-values(((or-part_63)(symbol? s_39)))" -"(if or-part_63 or-part_63(if(path? s_39)(complete-path? s_39) #f)))))" +"(if(let-values(((or-part_68)(not s_39)))" +"(if or-part_68" +" or-part_68" +"(let-values(((or-part_69)(symbol? s_39)))" +"(if or-part_69 or-part_69(if(path? s_39)(complete-path? s_39) #f)))))" "(void)" "(let-values()" " (raise-argument-error 'current-module-declare-source \"(or/c #f symbol? (and/c path? complete-path?))\" s_39)))" @@ -4463,69 +4761,69 @@ static const char *startup_source = "(force/composable)" "(lambda(root_1)" "(begin" -"(let-values(((v_44)(unsafe-struct-ref root_1 0)))" -"(if(procedure? v_44)" +"(let-values(((v_47)(unsafe-struct-ref root_1 0)))" +"(if(procedure? v_47)" "(let-values()" "(begin" -"(unsafe-struct-set! root_1 0(make-running(object-name v_44)))" +"(unsafe-struct-set! root_1 0(make-running(object-name v_47)))" "(call-with-exception-handler" "(lambda(e_10)(begin(unsafe-struct-set! root_1 0(make-reraise e_10)) e_10))" "(lambda()" -"((letrec-values(((loop_60)" -"(lambda(v_45)" +"((letrec-values(((loop_63)" +"(lambda(v_48)" "(begin" " 'loop" -"(if(composable-promise? v_45)" +"(if(composable-promise? v_48)" "(let-values()" -"(let-values(((v*_0)(unsafe-struct-ref v_45 0)))" +"(let-values(((v*_0)(unsafe-struct-ref v_48 0)))" "(begin" -"(unsafe-struct-set! v_45 0 root_1)" +"(unsafe-struct-set! v_48 0 root_1)" "(if(procedure? v*_0)" -"(let-values()(loop_60(v*_0)))" +"(let-values()(loop_63(v*_0)))" "(if(pair? v*_0)" "(let-values()" "(begin(unsafe-struct-set! root_1 0 v*_0)(unsafe-car v*_0)))" -"(let-values()(loop_60 v*_0)))))))" -"(if(promise? v_45)" -"(let-values()(begin(unsafe-struct-set! root_1 0 v_45)(force v_45)))" -"(let-values()(begin(unsafe-struct-set! root_1 0(list v_45)) v_45))))))))" -" loop_60)" -"(v_44))))))" -"(if(pair? v_44)" -"(let-values()(if(null?(unsafe-cdr v_44))(unsafe-car v_44)(apply values v_44)))" -"(if(composable-promise? v_44)" -"(let-values()(force/composable v_44))" -"(if(null? v_44)" +"(let-values()(loop_63 v*_0)))))))" +"(if(promise? v_48)" +"(let-values()(begin(unsafe-struct-set! root_1 0 v_48)(force v_48)))" +"(let-values()(begin(unsafe-struct-set! root_1 0(list v_48)) v_48))))))))" +" loop_63)" +"(v_47))))))" +"(if(pair? v_47)" +"(let-values()(if(null?(unsafe-cdr v_47))(unsafe-car v_47)(apply values v_47)))" +"(if(composable-promise? v_47)" +"(let-values()(force/composable v_47))" +"(if(null? v_47)" "(let-values()(values))" -"(if(promise? v_44)" -"(let-values()(force v_44))" -" (let-values () (error 'force \"composable promise with invalid contents: ~e\" v_44)))))))))))" +"(if(promise? v_47)" +"(let-values()(force v_47))" +" (let-values () (error 'force \"composable promise with invalid contents: ~e\" v_47)))))))))))" "(define-values" "(reify-result)" -"(lambda(v_46)" +"(lambda(v_49)" "(begin" -"(if(pair? v_46)" -"(let-values()(if(null?(unsafe-cdr v_46))(unsafe-car v_46)(apply values v_46)))" -"(if(null? v_46)" +"(if(pair? v_49)" +"(let-values()(if(null?(unsafe-cdr v_49))(unsafe-car v_49)(apply values v_49)))" +"(if(null? v_49)" "(let-values()(values))" -"(if(reraise? v_46)" -"(let-values()(v_46))" -" (let-values () (error 'force \"promise with invalid contents: ~e\" v_46))))))))" +"(if(reraise? v_49)" +"(let-values()(v_49))" +" (let-values () (error 'force \"promise with invalid contents: ~e\" v_49))))))))" "(define-values" "(force/generic)" "(lambda(promise_0)" "(begin" "(reify-result" -"(let-values(((v_47)(unsafe-struct-ref promise_0 0)))" -"(if(procedure? v_47)" +"(let-values(((v_50)(unsafe-struct-ref promise_0 0)))" +"(if(procedure? v_50)" "(begin" -"(unsafe-struct-set! promise_0 0(make-running(object-name v_47)))" +"(unsafe-struct-set! promise_0 0(make-running(object-name v_50)))" "(call-with-exception-handler" "(lambda(e_11)(begin(unsafe-struct-set! promise_0 0(make-reraise e_11)) e_11))" "(lambda()" -"(let-values(((vs_0)(call-with-values v_47 list)))" +"(let-values(((vs_0)(call-with-values v_50 list)))" "(begin(unsafe-struct-set! promise_0 0 vs_0) vs_0)))))" -" v_47))))))" +" v_50))))))" "(define-values" "(force)" "(lambda(promise_1)(begin(if(promise? promise_1)((promise-forcer promise_1) promise_1) promise_1))))" @@ -4533,57 +4831,57 @@ static const char *startup_source = "(promise-printer)" "(lambda(promise_2 port_2 write?_0)" "(begin" -"((letrec-values(((loop_47)" -"(lambda(v_48)" +"((letrec-values(((loop_50)" +"(lambda(v_51)" "(begin" " 'loop" -"(if(reraise? v_48)" +"(if(reraise? v_51)" "(let-values()" -"(let-values(((r_20)(reraise-val v_48)))" +"(let-values(((r_20)(reraise-val v_51)))" "(if(exn? r_20)" "(fprintf" " port_2" " (if write?_0 \"#\" \"#\")" "(exn-message r_20))" " (fprintf port_2 (if write?_0 \"#\" \"#\") r_20))))" -"(if(running? v_48)" +"(if(running? v_51)" "(let-values()" -"(let-values(((r_21)(running-name v_48)))" +"(let-values(((r_21)(running-name v_51)))" "(if r_21" " (fprintf port_2 \"#\" r_21)" " (fprintf port_2 \"#\"))))" -"(if(procedure? v_48)" +"(if(procedure? v_51)" "(let-values()" -"(let-values(((c1_18)(object-name v_48)))" +"(let-values(((c1_18)(object-name v_51)))" "(if c1_18" -" ((lambda (n_18) (fprintf port_2 \"#\" n_18)) c1_18)" +" ((lambda (n_20) (fprintf port_2 \"#\" n_20)) c1_18)" " (let-values () (display \"#\" port_2)))))" -"(if(promise? v_48)" -"(let-values()(loop_47(unsafe-struct-ref v_48 0)))" -"(if(null? v_48)" +"(if(promise? v_51)" +"(let-values()(loop_50(unsafe-struct-ref v_51 0)))" +"(if(null? v_51)" " (let-values () (fprintf port_2 \"#\"))" -"(if(null?(cdr v_48))" +"(if(null?(cdr v_51))" "(let-values()" -" (fprintf port_2 (if write?_0 \"#\" \"#\") (car v_48)))" +" (fprintf port_2 (if write?_0 \"#\" \"#\") (car v_51)))" "(let-values()" "(begin" " (display \"#\" port_2)))))))))))))" -" loop_47)" +" loop_50)" "(unsafe-struct-ref promise_2 0)))))" "(define-values" "(prop:force promise-forcer)" "(let-values(((prop_0 pred?_0 get_0)" "(make-struct-type-property" " 'forcer" -"(lambda(v_49 info_0)" +"(lambda(v_52 info_0)" "(begin" -"(if(if(procedure? v_49)(procedure-arity-includes? v_49 1) #f)" +"(if(if(procedure? v_52)(procedure-arity-includes? v_52 1) #f)" "(void)" -" (let-values () (raise-argument-error 'prop:force \"(any/c . -> . any)\" v_49)))" -" v_49))" +" (let-values () (raise-argument-error 'prop:force \"(any/c . -> . any)\" v_52)))" +" v_52))" " null" " #t)))" "(values prop_0 get_0)))" @@ -4687,7 +4985,7 @@ static const char *startup_source = " 0" " 0" " #f" -"(list(cons prop:force(lambda(p_8)((unsafe-struct-ref p_8 0)))))" +"(list(cons prop:force(lambda(p_12)((unsafe-struct-ref p_12 0)))))" "(current-inspector)" " #f" " '()" @@ -4705,7 +5003,7 @@ static const char *startup_source = " 0" " 0" " #f" -"(list(cons prop:force(lambda(p_9)(reify-result(unsafe-struct-ref p_9 0)))))" +"(list(cons prop:force(lambda(p_13)(reify-result(unsafe-struct-ref p_13 0)))))" "(current-inspector)" " #f" " '()" @@ -4766,56 +5064,56 @@ static const char *startup_source = "(list" "(cons" " prop:evt" -"(lambda(p_10)" -"(let-values(((v_50)(unsafe-struct-ref p_10 0)))" -"(wrap-evt(if(syncinfo? v_50)(syncinfo-done-evt v_50) always-evt) void))))" +"(lambda(p_14)" +"(let-values(((v_53)(unsafe-struct-ref p_14 0)))" +"(wrap-evt(if(syncinfo? v_53)(syncinfo-done-evt v_53) always-evt) void))))" "(cons" " prop:force" -"(lambda(p_11)" -"(let-values(((v_48)(unsafe-struct-ref p_11 0)))" +"(lambda(p_15)" +"(let-values(((v_51)(unsafe-struct-ref p_15 0)))" "(reify-result" -"(if(not(syncinfo? v_48))" -"(let-values() v_48)" -"(if(running-thread?(syncinfo-thunk v_48))" +"(if(not(syncinfo? v_51))" +"(let-values() v_51)" +"(if(running-thread?(syncinfo-thunk v_51))" "(let-values()" -"(let-values(((r_20)(syncinfo-thunk v_48)))" +"(let-values(((r_20)(syncinfo-thunk v_51)))" "(if(eq?(running-thread-thread r_20)(current-thread))" "(r_20)" -"(begin(sync(syncinfo-done-evt v_48))(unsafe-struct-ref p_11 0)))))" +"(begin(sync(syncinfo-done-evt v_51))(unsafe-struct-ref p_15 0)))))" "(let-values()" "(begin" "(call-with-semaphore" -"(syncinfo-access-sema v_48)" -"(lambda(p_12 v_51)" -"(let-values(((thunk_2)(syncinfo-thunk v_51)))" -"(let-values(((done_0)(syncinfo-done-sema v_51)))" +"(syncinfo-access-sema v_51)" +"(lambda(p_16 v_54)" +"(let-values(((thunk_2)(syncinfo-thunk v_54)))" +"(let-values(((done_0)(syncinfo-done-sema v_54)))" "(if(running-thread? thunk_2)" "(void)" "(let-values()" "(begin" "(set-syncinfo-thunk!" -" v_51" +" v_54" "(make-running-thread(object-name thunk_2)(current-thread)))" "(call-with-exception-handler" "(lambda(e_12)" "(begin" -"(unsafe-struct-set! p_12 0(make-reraise e_12))" +"(unsafe-struct-set! p_16 0(make-reraise e_12))" "(semaphore-post done_0)" " e_12))" "(lambda()" "(begin" -"(unsafe-struct-set! p_12 0(call-with-values thunk_2 list))" +"(unsafe-struct-set! p_16 0(call-with-values thunk_2 list))" "(semaphore-post done_0))))))))))" " #f" -" p_11" -" v_48)" -"(unsafe-struct-ref p_11 0)))))))))" +" p_15" +" v_51)" +"(unsafe-struct-ref p_15 0)))))))))" "(cons" " prop:custom-write" -"(lambda(p_13 port_4 write?_2)" -"(let-values(((v_49)(unsafe-struct-ref p_13 0)))" +"(lambda(p_17 port_4 write?_2)" +"(let-values(((v_52)(unsafe-struct-ref p_17 0)))" "(promise-printer" -"(if(syncinfo? v_49)(make-promise(syncinfo-thunk v_49)) p_13)" +"(if(syncinfo? v_52)(make-promise(syncinfo-thunk v_52)) p_17)" " port_4" " write?_2)))))" "(current-inspector)" @@ -4838,26 +5136,26 @@ static const char *startup_source = "(list" "(cons" " prop:evt" -"(lambda(p_14)" -"(let-values(((v_52)(unsafe-struct-ref p_14 0)))" -"(wrap-evt(if(running? v_52)(running-thread-thread v_52) always-evt) void))))" +"(lambda(p_18)" +"(let-values(((v_55)(unsafe-struct-ref p_18 0)))" +"(wrap-evt(if(running? v_55)(running-thread-thread v_55) always-evt) void))))" "(cons" " prop:force" -"(lambda(p_15)" -"(let-values(((v_25)(unsafe-struct-ref p_15 0)))" +"(lambda(p_19)" +"(let-values(((v_28)(unsafe-struct-ref p_19 0)))" "(reify-result" -"(if(running-thread? v_25)" -"(let-values(((t_8)(running-thread-thread v_25)))" +"(if(running-thread? v_28)" +"(let-values(((t_8)(running-thread-thread v_28)))" "(let-values((()(begin(thread-wait t_8)(values))))" -"(let-values(((v_53)(unsafe-struct-ref p_15 0)))" -"(if(running-thread? v_53)" +"(let-values(((v_56)(unsafe-struct-ref p_19 0)))" +"(if(running-thread? v_56)" "(error" " 'force" " \"promise's thread terminated ~a\\n promise: ~e\"" " \"without result or exception\"" -" p_15)" -" v_53))))" -" v_25))))))" +" p_19)" +" v_56))))" +" v_28))))))" "(current-inspector)" " #f" " '()" @@ -4878,17 +5176,17 @@ static const char *startup_source = "(list" "(cons" " prop:force" -"(lambda(p_16)" -"(let-values(((v_54)(unsafe-struct-ref p_16 0)))" +"(lambda(p_20)" +"(let-values(((v_57)(unsafe-struct-ref p_20 0)))" "(reify-result" -"(if(procedure? v_54)" +"(if(procedure? v_57)" "(let-values(((controller_0)" -"(if(running-thread? v_54)(running-thread-thread v_54)(v_54))))" +"(if(running-thread? v_57)(running-thread-thread v_57)(v_57))))" "(begin" "(thread-send controller_0 'force!)" "(thread-wait controller_0)" -"(unsafe-struct-ref p_16 0)))" -" v_54))))))" +"(unsafe-struct-ref p_20 0)))" +" v_57))))))" "(current-inspector)" " #f" " '()" @@ -4897,15 +5195,15 @@ static const char *startup_source = "(values struct:_13 make-_13 ?_13)))" "(define-values" "(phase?)" -"(lambda(v_26)(begin(let-values(((or-part_0)(not v_26)))(if or-part_0 or-part_0(exact-integer? v_26))))))" -"(define-values(phase+)(lambda(a_1 b_15)(begin(if a_1(if b_15(+ a_1 b_15) #f) #f))))" -"(define-values(phase-)(lambda(a_28 b_16)(begin(if a_28(if b_16(- a_28 b_16) #f) #f))))" +"(lambda(v_29)(begin(let-values(((or-part_0)(not v_29)))(if or-part_0 or-part_0(exact-integer? v_29))))))" +"(define-values(phase+)(lambda(a_7 b_15)(begin(if a_7(if b_15(+ a_7 b_15) #f) #f))))" +"(define-values(phase-)(lambda(a_34 b_16)(begin(if a_34(if b_16(- a_34 b_16) #f) #f))))" "(define-values" "(phases_0)(lambda(s_51 d_1)(begin 'd->s d_1)))" "((s-e_0) syntax-content)" "((seen_3) #f))" -"((letrec-values(((loop_63)" +"((letrec-values(((loop_66)" "(lambda(s_52)" "(begin" " 'loop" "(let-values(((s_53) s_52)" "((f_22)" -"(lambda(tail?_6 v_72)" +"(lambda(tail?_6 v_75)" "(begin" " 'f" -"(if(syntax?$1 v_72)" -"(let-values()(d->s_0 v_72(loop_63(s-e_0 v_72))))" -"(let-values()(f_21 tail?_6 v_72))))))" +"(if(syntax?$1 v_75)" +"(let-values()(d->s_0 v_75(loop_66(s-e_0 v_75))))" +"(let-values()(f_21 tail?_6 v_75))))))" "((seen_4) seen_3))" -"((letrec-values(((loop_64)" +"((letrec-values(((loop_67)" "(lambda(tail?_7 s_54 prev-depth_1)" "(begin" " 'loop" @@ -5874,24 +6172,24 @@ static const char *startup_source = "(f_22" " tail?_7" "(cons" -"(loop_64 #f(car s_54) depth_1)" -"(loop_64 #t(cdr s_54) depth_1))))" -"(if(let-values(((or-part_86)(symbol? s_54)))" -"(if or-part_86" -" or-part_86" -"(let-values(((or-part_87)(boolean? s_54)))" -"(if or-part_87 or-part_87(number? s_54)))))" +"(loop_67 #f(car s_54) depth_1)" +"(loop_67 #t(cdr s_54) depth_1))))" +"(if(let-values(((or-part_92)(symbol? s_54)))" +"(if or-part_92" +" or-part_92" +"(let-values(((or-part_93)(boolean? s_54)))" +"(if or-part_93 or-part_93(number? s_54)))))" "(let-values()(f_22 #f s_54))" -"(if(let-values(((or-part_88)(vector? s_54)))" -"(if or-part_88" -" or-part_88" -"(let-values(((or-part_89)(box? s_54)))" -"(if or-part_89" -" or-part_89" -"(let-values(((or-part_90)" +"(if(let-values(((or-part_94)(vector? s_54)))" +"(if or-part_94" +" or-part_94" +"(let-values(((or-part_95)(box? s_54)))" +"(if or-part_95" +" or-part_95" +"(let-values(((or-part_96)" "(prefab-struct-key s_54)))" -"(if or-part_90" -" or-part_90" +"(if or-part_96" +" or-part_96" "(hash? s_54)))))))" "(let-values()" "(datum-map-slow" @@ -5900,11 +6198,11 @@ static const char *startup_source = "(lambda(tail?_9 s_56)(f_22 tail?_9 s_56))" " seen_4))" "(let-values()(f_22 #f s_54))))))))))))" -" loop_64)" +" loop_67)" " #f" " s_53" " 0))))))" -" loop_63)" +" loop_66)" " s_50)))))" "(define-values" "(datum->syntax$1)" @@ -5948,14 +6246,14 @@ static const char *startup_source = "((seen_5) disallow-cycles))" "(let-values(((s_60) s_58)" "((f_24)" -"(lambda(tail?_11 v_73)" +"(lambda(tail?_11 v_76)" "(begin" " 'f" -"(if(syntax?$1 v_73)" -"(let-values()(s->_0 v_73))" -"(let-values()(f_23 tail?_11 v_73))))))" +"(if(syntax?$1 v_76)" +"(let-values()(s->_0 v_76))" +"(let-values()(f_23 tail?_11 v_76))))))" "((seen_6) seen_5))" -"((letrec-values(((loop_65)" +"((letrec-values(((loop_68)" "(lambda(tail?_12 s_61 prev-depth_2)" "(begin" " 'loop" @@ -5976,36 +6274,36 @@ static const char *startup_source = "(f_24" " tail?_12" "(cons" -"(loop_65 #f(car s_61) depth_2)" -"(loop_65" +"(loop_68 #f(car s_61) depth_2)" +"(loop_68" " #t" "(cdr s_61)" " depth_2))))" -"(if(let-values(((or-part_91)" +"(if(let-values(((or-part_97)" "(symbol? s_61)))" -"(if or-part_91" -" or-part_91" -"(let-values(((or-part_92)" +"(if or-part_97" +" or-part_97" +"(let-values(((or-part_98)" "(boolean?" " s_61)))" -"(if or-part_92" -" or-part_92" +"(if or-part_98" +" or-part_98" "(number? s_61)))))" "(let-values()(f_24 #f s_61))" -"(if(let-values(((or-part_93)" +"(if(let-values(((or-part_99)" "(vector? s_61)))" -"(if or-part_93" -" or-part_93" -"(let-values(((or-part_94)" +"(if or-part_99" +" or-part_99" +"(let-values(((or-part_100)" "(box?" " s_61)))" -"(if or-part_94" -" or-part_94" -"(let-values(((or-part_95)" +"(if or-part_100" +" or-part_100" +"(let-values(((or-part_101)" "(prefab-struct-key" " s_61)))" -"(if or-part_95" -" or-part_95" +"(if or-part_101" +" or-part_101" "(hash? s_61)))))))" "(let-values()" "(datum-map-slow" @@ -6016,7 +6314,7 @@ static const char *startup_source = " seen_6))" "(let-values()" "(f_24 #f s_61))))))))))))" -" loop_65)" +" loop_68)" " #f" " s_60" " 0)))))" @@ -6070,16 +6368,16 @@ static const char *startup_source = "(begin" "(if(pair? content_2)" "(let-values()" -"((letrec-values(((loop_66)" +"((letrec-values(((loop_69)" "(lambda(content_3)" "(begin" " 'loop" "(if(if(syntax?$1 content_3)(pair?(syntax-content content_3)) #f)" "(let-values() #f)" "(if(pair? content_3)" -"(let-values()(loop_66(cdr content_3)))" +"(let-values()(loop_69(cdr content_3)))" "(let-values() #t)))))))" -" loop_66)" +" loop_69)" "(cdr content_2)))" "(let-values() #t)))))" "(define-values" @@ -6104,7 +6402,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_45" -"(let-values(((k_15 v_74)(unsafe-immutable-hash-iterate-key+value ht_33 i_45)))" +"(let-values(((k_15 v_77)(unsafe-immutable-hash-iterate-key+value ht_33 i_45)))" "(let-values(((table_30)" "(let-values(((table_31) table_29))" "(let-values(((table_32)" @@ -6114,7 +6412,7 @@ static const char *startup_source = "(values" " k_15" "(preserved-property-value1.1" -" v_74)))))" +" v_77)))))" "(hash-set table_31 key_18 val_8)))))" "(values table_32)))))" "(if(not #f)" @@ -6517,9 +6815,9 @@ static const char *startup_source = "(binding-table-prune-to-reachable)" "(lambda(bt_3 state_12)" "(begin" -"(let-values(((or-part_96)(hash-ref(serialize-state-bindings-intern state_12) bt_3 #f)))" -"(if or-part_96" -" or-part_96" +"(let-values(((or-part_102)(hash-ref(serialize-state-bindings-intern state_12) bt_3 #f)))" +"(if or-part_102" +" or-part_102" "(let-values(((reachable-scopes_1)(serialize-state-reachable-scopes state_12)))" "(let-values(((new-syms_2)" "(let-values(((ht_40)(if(hash? bt_3) bt_3(table-with-bulk-bindings-syms/serialize bt_3))))" @@ -6762,11 +7060,11 @@ static const char *startup_source = "(scopes-register-reachable)" "(lambda(scopes_7 binding_3 reachable-scopes_3 reach_3 register-trigger_1)" "(begin" -"(let-values(((v_43)(if(binding-reach-scopes? binding_3)((binding-reach-scopes-ref binding_3) binding_3) #f)))" -"(if v_43" +"(let-values(((v_46)(if(binding-reach-scopes? binding_3)((binding-reach-scopes-ref binding_3) binding_3) #f)))" +"(if v_46" "(let-values()" "(if(subset? scopes_7 reachable-scopes_3)" -"(let-values()(reach_3 v_43))" +"(let-values()(reach_3 v_46))" "(let-values()" "(begin" "(let-values(((ht_44) scopes_7))" @@ -6789,7 +7087,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(register-trigger_1 sc_0 v_43))" +"(register-trigger_1 sc_0 v_46))" "(values)))))" "(values)))))))" "(if(not #f)" @@ -6819,10 +7117,10 @@ static const char *startup_source = "(let-values(((scope-propagations+tamper6_0)" "(let-values(((t_16)" "(tamper-tainted-for-content(syntax-content sub-s_0)))" -"((p_19)(syntax-scope-propagations+tamper stx_0)))" -"(if(tamper? p_19)" +"((p_23)(syntax-scope-propagations+tamper stx_0)))" +"(if(tamper? p_23)" " t_16" -"((propagation-set-tamper-ref p_19) p_19 t_16)))))" +"((propagation-set-tamper-ref p_23) p_23 t_16)))))" "(syntax1.1" "(syntax-content the-struct_3)" "(syntax-scopes the-struct_3)" @@ -6836,12 +7134,12 @@ static const char *startup_source = "((seen_7) #f))" "(let-values(((s_71) s_70)" "((f_4)" -"(lambda(tail?_16 v_75)" +"(lambda(tail?_16 v_78)" "(begin" " 'f" -"(if(syntax?$1 v_75)(let-values()(s->_1 v_75))(let-values()(f_25 tail?_16 v_75))))))" +"(if(syntax?$1 v_78)(let-values()(s->_1 v_78))(let-values()(f_25 tail?_16 v_78))))))" "((seen_8) seen_7))" -"((letrec-values(((loop_67)" +"((letrec-values(((loop_70)" "(lambda(tail?_17 s_72 prev-depth_3)" "(begin" " 'loop" @@ -6855,21 +7153,21 @@ static const char *startup_source = "(let-values()" "(f_4" " tail?_17" -"(cons(loop_67 #f(car s_72) depth_3)(loop_67 #t(cdr s_72) depth_3))))" -"(if(let-values(((or-part_80)(symbol? s_72)))" -"(if or-part_80" -" or-part_80" -"(let-values(((or-part_81)(boolean? s_72)))" -"(if or-part_81 or-part_81(number? s_72)))))" +"(cons(loop_70 #f(car s_72) depth_3)(loop_70 #t(cdr s_72) depth_3))))" +"(if(let-values(((or-part_86)(symbol? s_72)))" +"(if or-part_86" +" or-part_86" +"(let-values(((or-part_87)(boolean? s_72)))" +"(if or-part_87 or-part_87(number? s_72)))))" "(let-values()(f_4 #f s_72))" -"(if(let-values(((or-part_70)(vector? s_72)))" -"(if or-part_70" -" or-part_70" -"(let-values(((or-part_71)(box? s_72)))" -"(if or-part_71" -" or-part_71" -"(let-values(((or-part_82)(prefab-struct-key s_72)))" -"(if or-part_82 or-part_82(hash? s_72)))))))" +"(if(let-values(((or-part_76)(vector? s_72)))" +"(if or-part_76" +" or-part_76" +"(let-values(((or-part_77)(box? s_72)))" +"(if or-part_77" +" or-part_77" +"(let-values(((or-part_88)(prefab-struct-key s_72)))" +"(if or-part_88 or-part_88(hash? s_72)))))))" "(let-values()" "(datum-map-slow" " tail?_17" @@ -6877,7 +7175,7 @@ static const char *startup_source = "(lambda(tail?_18 s_73)(f_4 tail?_18 s_73))" " seen_8))" "(let-values()(f_4 #f s_72))))))))))))" -" loop_67)" +" loop_70)" " #f" " s_71" " 0))))))" @@ -6892,9 +7190,9 @@ static const char *startup_source = "(if(tamper-tainted? t_17)" "(let-values() s_75)" "(if(if t_17" -"(let-values(((or-part_97)(set-member? t_17 insp_0)))" -"(if or-part_97" -" or-part_97" +"(let-values(((or-part_103)(set-member? t_17 insp_0)))" +"(if or-part_103" +" or-part_103" "(let-values(((ht_45) t_17))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" @@ -6933,8 +7231,8 @@ static const char *startup_source = "(if(syntax?$1 the-struct_4)" "(let-values(((scope-propagations+tamper7_0)" "(let-values(((t_18)(set-add(if t_17(remove-inferior t_17 insp_0)(seteq)) insp_0))" -"((p_20)(syntax-scope-propagations+tamper stx_1)))" -"(if(tamper? p_20) t_18((propagation-set-tamper-ref p_20) p_20 t_18)))))" +"((p_24)(syntax-scope-propagations+tamper stx_1)))" +"(if(tamper? p_24) t_18((propagation-set-tamper-ref p_24) p_24 t_18)))))" "(syntax1.1" "(syntax-content the-struct_4)" "(syntax-scopes the-struct_4)" @@ -7000,10 +7298,10 @@ static const char *startup_source = "(if(syntax?$1 the-struct_5)" "(let-values(((scope-propagations+tamper8_0)" "(let-values(((t_21) #f)" -"((p_21)(syntax-scope-propagations+tamper stx_2)))" -"(if(tamper? p_21)" +"((p_25)(syntax-scope-propagations+tamper stx_2)))" +"(if(tamper? p_25)" " t_21" -"((propagation-set-tamper-ref p_21) p_21 t_21)))))" +"((propagation-set-tamper-ref p_25) p_25 t_21)))))" "(syntax1.1" "(syntax-content the-struct_5)" "(syntax-scopes the-struct_5)" @@ -7021,10 +7319,10 @@ static const char *startup_source = "(if(syntax?$1 the-struct_6)" "(let-values(((scope-propagations+tamper9_0)" "(let-values(((t_22)(if(not(set-empty? new-t_1)) new-t_1 #f))" -"((p_22)(syntax-scope-propagations+tamper stx_3)))" -"(if(tamper? p_22)" +"((p_26)(syntax-scope-propagations+tamper stx_3)))" +"(if(tamper? p_26)" " t_22" -"((propagation-set-tamper-ref p_22) p_22 t_22)))))" +"((propagation-set-tamper-ref p_26) p_26 t_22)))))" "(syntax1.1" "(syntax-content the-struct_6)" "(syntax-scopes the-struct_6)" @@ -7057,8 +7355,8 @@ static const char *startup_source = "(if(syntax?$1 the-struct_7)" "(let-values(((scope-propagations+tamper10_0)" "(let-values(((t_24)(tamper-tainted-for-content(syntax-content s_23)))" -"((p_23)(syntax-scope-propagations+tamper stx_4)))" -"(if(tamper? p_23) t_24((propagation-set-tamper-ref p_23) p_23 t_24)))))" +"((p_27)(syntax-scope-propagations+tamper stx_4)))" +"(if(tamper? p_27) t_24((propagation-set-tamper-ref p_27) p_27 t_24)))))" "(syntax1.1" "(syntax-content the-struct_7)" "(syntax-scopes the-struct_7)" @@ -7076,8 +7374,8 @@ static const char *startup_source = "(if(syntax?$1 the-struct_8)" "(let-values(((scope-propagations+tamper11_0)" "(let-values(((t_25) from-t_0)" -"((p_24)(syntax-scope-propagations+tamper stx_5)))" -"(if(tamper? p_24) t_25((propagation-set-tamper-ref p_24) p_24 t_25)))))" +"((p_28)(syntax-scope-propagations+tamper stx_5)))" +"(if(tamper? p_28) t_25((propagation-set-tamper-ref p_28) p_28 t_25)))))" "(syntax1.1" "(syntax-content the-struct_8)" "(syntax-scopes the-struct_8)" @@ -7142,8 +7440,8 @@ static const char *startup_source = " for-loop_49)" " t_23" "(unsafe-immutable-hash-iterate-first ht_47)))))" -"((p_25)(syntax-scope-propagations+tamper stx_6)))" -"(if(tamper? p_25) t_26((propagation-set-tamper-ref p_25) p_25 t_26)))))" +"((p_29)(syntax-scope-propagations+tamper stx_6)))" +"(if(tamper? p_29) t_26((propagation-set-tamper-ref p_29) p_29 t_26)))))" "(syntax1.1" "(syntax-content the-struct_9)" "(syntax-scopes the-struct_9)" @@ -7166,8 +7464,8 @@ static const char *startup_source = "(if(syntax?$1 the-struct_10)" "(let-values(((scope-propagations+tamper13_0)" "(let-values(((t_31)(tamper-tainted-for-content(syntax-content s_77)))" -"((p_26)(syntax-scope-propagations+tamper stx_7)))" -"(if(tamper? p_26) t_31((propagation-set-tamper-ref p_26) p_26 t_31)))))" +"((p_30)(syntax-scope-propagations+tamper stx_7)))" +"(if(tamper? p_30) t_31((propagation-set-tamper-ref p_30) p_30 t_31)))))" "(syntax1.1" "(syntax-content the-struct_10)" "(syntax-scopes the-struct_10)" @@ -7211,7 +7509,8 @@ static const char *startup_source = "(inspector-superior-or-same?)" "(lambda(sup-i_0 i_61)" "(begin" -"(let-values(((or-part_98)(eq? sup-i_0 i_61)))(if or-part_98 or-part_98(inspector-superior? sup-i_0 i_61))))))" +"(let-values(((or-part_104)(eq? sup-i_0 i_61)))" +"(if or-part_104 or-part_104(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)" @@ -7317,10 +7616,10 @@ static const char *startup_source = "(begin" "(let-values(((c_15)(weak-box-value(unbox* cache))))" "(if c_15" -"(let-values(((v_76)(hash-ref c_15 sym_9 #f)))" -"(if v_76" -"(if(eqv? phase_0(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)" +"(let-values(((v_79)(hash-ref c_15 sym_9 #f)))" +"(if v_79" +"(if(eqv? phase_0(entry-phase v_79))" +"(if(set=? scs_3(entry-scs v_79))(if(set=? smss_7(entry-smss v_79))(entry-binding v_79) #f) #f)" " #f)" " #f))" " #f)))))" @@ -7346,12 +7645,12 @@ static const char *startup_source = "(lambda(s_78)" "(begin" "(let-values(((vec_16)" -"(let-values(((or-part_99)(weak-box-value cached-sets)))" -"(if or-part_99" -" or-part_99" +"(let-values(((or-part_105)(weak-box-value cached-sets)))" +"(if or-part_105" +" or-part_105" "(let-values(((vec_17)(make-vector NUM-CACHE-SLOTS #f)))" "(begin(set! cached-sets(make-weak-box vec_17)) vec_17))))))" -"(let-values(((or-part_100)" +"(let-values(((or-part_106)" "(let-values(((vec_18 len_9)" "(let-values(((vec_19) vec_16))" "(begin(check-vector vec_19)(values vec_19(unsafe-vector-length vec_19))))))" @@ -7379,8 +7678,8 @@ static const char *startup_source = " for-loop_52)" " #f" " 0)))))" -"(if or-part_100" -" or-part_100" +"(if or-part_106" +" or-part_106" "(begin" "(vector-set! vec_16 cached-sets-pos s_78)" "(set! cached-sets-pos(modulo(add1 cached-sets-pos) NUM-CACHE-SLOTS))" @@ -7390,12 +7689,12 @@ static const char *startup_source = "(lambda(s_79)" "(begin" "(let-values(((vec_20)" -"(let-values(((or-part_101)(weak-box-value cached-hashes)))" -"(if or-part_101" -" or-part_101" +"(let-values(((or-part_107)(weak-box-value cached-hashes)))" +"(if or-part_107" +" or-part_107" "(let-values(((vec_21)(make-vector NUM-CACHE-SLOTS #f)))" "(begin(set! cached-hashes(make-weak-box vec_21)) vec_21))))))" -"(let-values(((or-part_102)" +"(let-values(((or-part_108)" "(let-values(((vec_22 len_10)" "(let-values(((vec_23) vec_20))" "(begin(check-vector vec_23)(values vec_23(unsafe-vector-length vec_23))))))" @@ -7423,8 +7722,8 @@ static const char *startup_source = " for-loop_53)" " #f" " 0)))))" -"(if or-part_102" -" or-part_102" +"(if or-part_108" +" or-part_108" "(begin" "(vector-set! vec_20 cached-hashes-pos s_79)" "(set! cached-hashes-pos(modulo(add1 cached-hashes-pos) NUM-CACHE-SLOTS))" @@ -7610,7 +7909,7 @@ static const char *startup_source = "(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))))" +"(begin(let-values(((v_56)(representative-scope3.1(new-deserialize-scope-id!) kind_1 #f #f phase_2))) v_56))))" "(define-values" "(deserialize-representative-scope-fill!)" "(lambda(s_85 bt_6 owner_0)" @@ -7673,9 +7972,9 @@ static const char *startup_source = "(lambda(boxed-table_0 key_24 make_0)" "(begin" " 'transaction-loop" -"(let-values(((or-part_60)(hash-ref(unbox boxed-table_0) phase_4 #f)))" -"(if or-part_60" -" or-part_60" +"(let-values(((or-part_66)(hash-ref(unbox boxed-table_0) phase_4 #f)))" +"(if or-part_66" +" or-part_66" "(let-values(((val_14)(make_0)))" "(let-values(((current_0)(unbox boxed-table_0)))" "(let-values(((next_3)(hash-set current_0 key_24 val_14)))" @@ -7684,17 +7983,17 @@ static const char *startup_source = "(transaction-loop_0 boxed-table_0 key_24 make_0)))))))))))" "(if(phase? phase_4)" "(let-values()" -"(let-values(((or-part_103)(hash-ref(unbox(multi-scope-shifted multi-scope_1)) phase_4 #f)))" -"(if or-part_103" -" or-part_103" +"(let-values(((or-part_109)(hash-ref(unbox(multi-scope-shifted multi-scope_1)) phase_4 #f)))" +"(if or-part_109" +" or-part_109" "(transaction-loop_0" "(multi-scope-shifted multi-scope_1)" " phase_4" "(lambda()(shifted-multi-scope4.1 phase_4 multi-scope_1))))))" "(let-values()" -"(let-values(((or-part_104)(hash-ref(unbox(multi-scope-label-shifted multi-scope_1)) phase_4 #f)))" -"(if or-part_104" -" or-part_104" +"(let-values(((or-part_110)(hash-ref(unbox(multi-scope-label-shifted multi-scope_1)) phase_4 #f)))" +"(if or-part_110" +" or-part_110" "(transaction-loop_0" "(multi-scope-label-shifted multi-scope_1)" " phase_4" @@ -7738,9 +8037,9 @@ static const char *startup_source = "(multi-scope-to-scope-at-phase)" "(lambda(ms_2 phase_5)" "(begin" -"(let-values(((or-part_92)(hash-ref(multi-scope-scopes ms_2) phase_5 #f)))" -"(if or-part_92" -" or-part_92" +"(let-values(((or-part_98)(hash-ref(multi-scope-scopes ms_2) phase_5 #f)))" +"(if or-part_98" +" or-part_98" "(let-values(((s_86)(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_86) s_86)))))))" "(define-values(scope>?)(lambda(sc1_0 sc2_0)(begin(>(scope-id sc1_0)(scope-id sc2_0)))))" @@ -7752,21 +8051,21 @@ static const char *startup_source = "(let-values(((ms1_0)(shifted-multi-scope-multi-scope sms1_0)))" "(let-values(((ms2_0)(shifted-multi-scope-multi-scope sms2_0)))" "(if(eq? ms1_0 ms2_0)" -"(let-values(((p1_0)(shifted-multi-scope-phase sms1_0))((p2_0)(shifted-multi-scope-phase sms2_0)))" +"(let-values(((p1_0)(shifted-multi-scope-phase sms1_0))((p2_1)(shifted-multi-scope-phase sms2_0)))" "(if(shifted-to-label-phase? p1_0)" "(let-values()" -"(if(shifted-to-label-phase? p2_0)" -"(let-values()(phase_2 v_77))" -"(let-values()(f_27 tail?_20 v_77))))))" +"(if(syntax?$1 v_80)" +"(let-values()(s->_2 v_80))" +"(let-values()(f_27 tail?_20 v_80))))))" "((seen_10) seen_9))" -"((letrec-values(((loop_68)" +"((letrec-values(((loop_71)" "(lambda(tail?_21 s_90 prev-depth_4)" "(begin" " 'loop" @@ -7854,23 +8153,23 @@ static const char *startup_source = "(f_28" " tail?_21" "(cons" -"(loop_68 #f(car s_90) depth_4)" -"(loop_68 #t(cdr s_90) depth_4))))" -"(if(let-values(((or-part_106)(symbol? s_90)))" -"(if or-part_106" -" or-part_106" -"(let-values(((or-part_61)(boolean? s_90)))" -"(if or-part_61 or-part_61(number? s_90)))))" +"(loop_71 #f(car s_90) depth_4)" +"(loop_71 #t(cdr s_90) depth_4))))" +"(if(let-values(((or-part_112)(symbol? s_90)))" +"(if or-part_112" +" or-part_112" +"(let-values(((or-part_67)(boolean? s_90)))" +"(if or-part_67 or-part_67(number? s_90)))))" "(let-values()(f_28 #f s_90))" -"(if(let-values(((or-part_107)(vector? s_90)))" -"(if or-part_107" -" or-part_107" -"(let-values(((or-part_62)(box? s_90)))" -"(if or-part_62" -" or-part_62" -"(let-values(((or-part_63)" +"(if(let-values(((or-part_113)(vector? s_90)))" +"(if or-part_113" +" or-part_113" +"(let-values(((or-part_68)(box? s_90)))" +"(if or-part_68" +" or-part_68" +"(let-values(((or-part_69)" "(prefab-struct-key s_90)))" -"(if or-part_63 or-part_63(hash? s_90)))))))" +"(if or-part_69 or-part_69(hash? s_90)))))))" "(let-values()" "(datum-map-slow" " tail?_21" @@ -7878,7 +8177,7 @@ static const char *startup_source = "(lambda(tail?_23 s_92)(f_28 tail?_23 s_92))" " seen_10))" "(let-values()(f_28 #f s_90))))))))))))" -" loop_68)" +" loop_71)" " #f" " s_89" " 0)))))" @@ -8187,20 +8486,20 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_19))))))" "((s-e_1) syntax-e/no-taint)" "((seen_11) #f))" -"((letrec-values(((loop_69)" +"((letrec-values(((loop_72)" "(lambda(s_119)" "(begin" " 'loop" "(let-values(((s_120) s_119)" "((f_30)" -"(lambda(tail?_25 v_78)" +"(lambda(tail?_25 v_81)" "(begin" " 'f" -"(if(syntax?$1 v_78)" -"(let-values()(d->s_1 v_78(loop_69(s-e_1 v_78))))" -"(let-values()(f_29 tail?_25 v_78))))))" +"(if(syntax?$1 v_81)" +"(let-values()(d->s_1 v_81(loop_72(s-e_1 v_81))))" +"(let-values()(f_29 tail?_25 v_81))))))" "((seen_12) seen_11))" -"((letrec-values(((loop_70)" +"((letrec-values(((loop_73)" "(lambda(tail?_26 s_121 prev-depth_5)" "(begin" " 'loop" @@ -8219,28 +8518,28 @@ static const char *startup_source = "(f_30" " tail?_26" "(cons" -"(loop_70 #f(car s_121) depth_5)" -"(loop_70 #t(cdr s_121) depth_5))))" -"(if(let-values(((or-part_108)(symbol? s_121)))" -"(if or-part_108" -" or-part_108" -"(let-values(((or-part_109)" +"(loop_73 #f(car s_121) depth_5)" +"(loop_73 #t(cdr s_121) depth_5))))" +"(if(let-values(((or-part_114)(symbol? s_121)))" +"(if or-part_114" +" or-part_114" +"(let-values(((or-part_115)" "(boolean? s_121)))" -"(if or-part_109" -" or-part_109" +"(if or-part_115" +" or-part_115" "(number? s_121)))))" "(let-values()(f_30 #f s_121))" -"(if(let-values(((or-part_110)(vector? s_121)))" -"(if or-part_110" -" or-part_110" -"(let-values(((or-part_111)(box? s_121)))" -"(if or-part_111" -" or-part_111" -"(let-values(((or-part_112)" +"(if(let-values(((or-part_116)(vector? s_121)))" +"(if or-part_116" +" or-part_116" +"(let-values(((or-part_117)(box? s_121)))" +"(if or-part_117" +" or-part_117" +"(let-values(((or-part_118)" "(prefab-struct-key" " s_121)))" -"(if or-part_112" -" or-part_112" +"(if or-part_118" +" or-part_118" "(hash? s_121)))))))" "(let-values()" "(datum-map-slow" @@ -8250,11 +8549,11 @@ static const char *startup_source = "(f_30 tail?_28 s_123))" " seen_12))" "(let-values()(f_30 #f s_121))))))))))))" -" loop_70)" +" loop_73)" " #f" " s_120" " 0))))))" -" loop_69)" +" loop_72)" " s_117))))))))" "(define-values" "(struct:propagation" @@ -8278,8 +8577,8 @@ static const char *startup_source = " #f" "(list" "(cons prop:authentic #t)" -"(cons prop:propagation-set-tamper(lambda(p_27 v_79)(propagation-set-tamper p_27 v_79)))" -"(cons prop:propagation-tamper(lambda(p_28)(propagation-tamper p_28)))" +"(cons prop:propagation-set-tamper(lambda(p_31 v_82)(propagation-set-tamper p_31 v_82)))" +"(cons prop:propagation-tamper(lambda(p_32)(propagation-tamper p_32)))" "(cons prop:propagation syntax-e$1))" "(current-inspector)" " #f" @@ -8355,10 +8654,10 @@ static const char *startup_source = "(hash-set" " ops_0" " sc_15" -"(let-values(((tmp_9) current-op_0))" -"(if(equal? tmp_9 'add)" +"(let-values(((tmp_10) current-op_0))" +"(if(equal? tmp_10 'add)" "(let-values() 'remove)" -"(if(equal? tmp_9 'remove)(let-values() 'add)(let-values() 'flip))))))))" +"(if(equal? tmp_10 'remove)(let-values() 'add)(let-values() 'flip))))))))" "(propagation14.1" "(propagation-prev-scs the-struct_22)" "(propagation-prev-smss the-struct_22)" @@ -8380,10 +8679,10 @@ static const char *startup_source = "(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))))" -"(let-values(((or-part_113) add_0))(if or-part_113 or-part_113 base-add_0)))))" +"(let-values(((or-part_119) add_0))(if or-part_119 or-part_119 base-add_0)))))" "((inspector67_0)" -"(let-values(((or-part_114)(propagation-inspector prop_7)))" -"(if or-part_114 or-part_114 inspector_2))))" +"(let-values(((or-part_120)(propagation-inspector prop_7)))" +"(if or-part_120 or-part_120 inspector_2))))" "(propagation14.1" "(propagation-prev-scs the-struct_23)" "(propagation-prev-smss the-struct_23)" @@ -8420,12 +8719,12 @@ static const char *startup_source = "(let-values(((scs_12) scs_11))" "(let-values(((scs_13)" "(let-values()" -"(let-values(((tmp_10) op_3))" -"(if(equal? tmp_10 'add)" +"(let-values(((tmp_11) op_3))" +"(if(equal? tmp_11 'add)" "(let-values()" "(set-add scs_12 sc_16))" "(if(equal?" -" tmp_10" +" tmp_11" " 'remove)" "(let-values()" "(set-remove" @@ -8478,15 +8777,15 @@ static const char *startup_source = "(fallback-update-first" " smss_17" "(lambda(smss_19)" -"(let-values(((tmp_11)" +"(let-values(((tmp_12)" " op_4))" -"(if(equal? tmp_11 'add)" +"(if(equal? tmp_12 'add)" "(let-values()" "(set-add" " smss_19" " sms_7))" "(if(equal?" -" tmp_11" +" tmp_12" " 'remove)" "(let-values()" "(set-remove" @@ -8521,7 +8820,7 @@ static const char *startup_source = "(define-values" "(propagation-apply-inspector)" "(lambda(prop_11 i_64)" -"(begin(let-values(((or-part_115) i_64))(if or-part_115 or-part_115(propagation-inspector prop_11))))))" +"(begin(let-values(((or-part_121) i_64))(if or-part_121 or-part_121(propagation-inspector prop_11))))))" "(define-values" "(propagation-set-tamper)" "(lambda(prop_12 t_32)" @@ -8585,14 +8884,14 @@ static const char *startup_source = "(let-values(((ops_3) ops_1))" "(let-values(((ops_4)" "(let-values()" -"(let-values(((tmp_12) op_5))" -"(if(equal? tmp_12 'add)" +"(let-values(((tmp_13) op_5))" +"(if(equal? tmp_13 'add)" "(let-values()" "(hash-set" " ops_3" " sc_17" " 'add))" -"(if(equal? tmp_12 'remove)" +"(if(equal? tmp_13 'remove)" "(let-values()" "(hash-set" " ops_3" @@ -8604,10 +8903,10 @@ static const char *startup_source = " ops_3" " sc_17" " #f)))" -"(let-values(((tmp_13)" +"(let-values(((tmp_14)" " current-op_1))" "(if(equal?" -" tmp_13" +" tmp_14" " 'add)" "(let-values()" "(hash-set" @@ -8615,7 +8914,7 @@ static const char *startup_source = " sc_17" " 'remove))" "(if(equal?" -" tmp_13" +" tmp_14" " 'remove)" "(let-values()" "(hash-set" @@ -8623,7 +8922,7 @@ static const char *startup_source = " sc_17" " 'add))" "(if(equal?" -" tmp_13" +" tmp_14" " 'flip)" "(let-values()" "(hash-remove" @@ -8647,8 +8946,8 @@ static const char *startup_source = "(let-values(((add_2)(propagation-add-mpi-shifts prop_13)))" "(let-values(((base-add_1)(propagation-add-mpi-shifts base-prop_0)))" "(let-values(((new-tamper_0)" -"(if(let-values(((or-part_116)(tamper-tainted?(propagation-tamper prop_13))))" -"(if or-part_116 or-part_116(tamper-tainted?(propagation-tamper base-prop_0))))" +"(if(let-values(((or-part_122)(tamper-tainted?(propagation-tamper prop_13))))" +"(if or-part_122 or-part_122(tamper-tainted?(propagation-tamper base-prop_0))))" " 'tainted/need-propagate" "(propagation-tamper base-prop_0))))" "(if(if(zero?(hash-count new-ops_0))" @@ -8665,10 +8964,10 @@ static const char *startup_source = "((add-mpi-shifts70_0)" "(if(if add_2 base-add_1 #f)" "(lambda(mss_2)(begin 'add-mpi-shifts70(add_2(base-add_1 mss_2))))" -"(let-values(((or-part_117) add_2))(if or-part_117 or-part_117 base-add_1))))" +"(let-values(((or-part_123) add_2))(if or-part_123 or-part_123 base-add_1))))" "((inspector71_0)" -"(let-values(((or-part_118)(propagation-inspector base-prop_0)))" -"(if or-part_118 or-part_118(propagation-inspector prop_13))))" +"(let-values(((or-part_124)(propagation-inspector base-prop_0)))" +"(if or-part_124 or-part_124(propagation-inspector prop_13))))" "((tamper72_0) new-tamper_0))" "(propagation14.1" "(propagation-prev-scs the-struct_25)" @@ -8807,20 +9106,20 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_26))))))" "((s-e_2) syntax-e/no-taint)" "((seen_13) #f))" -"((letrec-values(((loop_71)" +"((letrec-values(((loop_74)" "(lambda(s_127)" "(begin" " 'loop" "(let-values(((s_128) s_127)" "((f_32)" -"(lambda(tail?_30 v_80)" +"(lambda(tail?_30 v_83)" "(begin" " 'f" -"(if(syntax?$1 v_80)" -"(let-values()(d->s_2 v_80(loop_71(s-e_2 v_80))))" -"(let-values()(f_31 tail?_30 v_80))))))" +"(if(syntax?$1 v_83)" +"(let-values()(d->s_2 v_83(loop_74(s-e_2 v_83))))" +"(let-values()(f_31 tail?_30 v_83))))))" "((seen_14) seen_13))" -"((letrec-values(((loop_72)" +"((letrec-values(((loop_75)" "(lambda(tail?_31 s_129 prev-depth_6)" "(begin" " 'loop" @@ -8839,31 +9138,31 @@ static const char *startup_source = "(f_32" " tail?_31" "(cons" -"(loop_72 #f(car s_129) depth_6)" -"(loop_72 #t(cdr s_129) depth_6))))" -"(if(let-values(((or-part_119)" +"(loop_75 #f(car s_129) depth_6)" +"(loop_75 #t(cdr s_129) depth_6))))" +"(if(let-values(((or-part_125)" "(symbol? s_129)))" -"(if or-part_119" -" or-part_119" -"(let-values(((or-part_120)" +"(if or-part_125" +" or-part_125" +"(let-values(((or-part_126)" "(boolean? s_129)))" -"(if or-part_120" -" or-part_120" +"(if or-part_126" +" or-part_126" "(number? s_129)))))" "(let-values()(f_32 #f s_129))" -"(if(let-values(((or-part_121)" +"(if(let-values(((or-part_127)" "(vector? s_129)))" -"(if or-part_121" -" or-part_121" -"(let-values(((or-part_122)" +"(if or-part_127" +" or-part_127" +"(let-values(((or-part_128)" "(box? s_129)))" -"(if or-part_122" -" or-part_122" -"(let-values(((or-part_123)" +"(if or-part_128" +" or-part_128" +"(let-values(((or-part_129)" "(prefab-struct-key" " s_129)))" -"(if or-part_123" -" or-part_123" +"(if or-part_129" +" or-part_129" "(hash? s_129)))))))" "(let-values()" "(datum-map-slow" @@ -8873,11 +9172,11 @@ static const char *startup_source = "(f_32 tail?_33 s_131))" " seen_14))" "(let-values()(f_32 #f s_129))))))))))))" -" loop_72)" +" loop_75)" " #f" " s_128" " 0))))))" -" loop_71)" +" loop_74)" " s_125))))))))))" "(define-values" "(syntax-swap-scopes)" @@ -9026,20 +9325,20 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_27))))))" "((s-e_3) syntax-e/no-taint)" "((seen_15) #f))" -"((letrec-values(((loop_73)" +"((letrec-values(((loop_76)" "(lambda(s_135)" "(begin" " 'loop" "(let-values(((s_136) s_135)" "((f_34)" -"(lambda(tail?_35 v_81)" +"(lambda(tail?_35 v_84)" "(begin" " 'f" -"(if(syntax?$1 v_81)" -"(let-values()(d->s_3 v_81(loop_73(s-e_3 v_81))))" -"(let-values()(f_33 tail?_35 v_81))))))" +"(if(syntax?$1 v_84)" +"(let-values()(d->s_3 v_84(loop_76(s-e_3 v_84))))" +"(let-values()(f_33 tail?_35 v_84))))))" "((seen_16) seen_15))" -"((letrec-values(((loop_32)" +"((letrec-values(((loop_35)" "(lambda(tail?_36 s_137 prev-depth_7)" "(begin" " 'loop" @@ -9059,31 +9358,31 @@ static const char *startup_source = "(f_34" " tail?_36" "(cons" -"(loop_32 #f(car s_137) depth_7)" -"(loop_32 #t(cdr s_137) depth_7))))" -"(if(let-values(((or-part_124)" +"(loop_35 #f(car s_137) depth_7)" +"(loop_35 #t(cdr s_137) depth_7))))" +"(if(let-values(((or-part_130)" "(symbol? s_137)))" -"(if or-part_124" -" or-part_124" -"(let-values(((or-part_125)" +"(if or-part_130" +" or-part_130" +"(let-values(((or-part_131)" "(boolean? s_137)))" -"(if or-part_125" -" or-part_125" +"(if or-part_131" +" or-part_131" "(number? s_137)))))" "(let-values()(f_34 #f s_137))" -"(if(let-values(((or-part_126)" +"(if(let-values(((or-part_132)" "(vector? s_137)))" -"(if or-part_126" -" or-part_126" -"(let-values(((or-part_127)" +"(if or-part_132" +" or-part_132" +"(let-values(((or-part_133)" "(box? s_137)))" -"(if or-part_127" -" or-part_127" -"(let-values(((or-part_128)" +"(if or-part_133" +" or-part_133" +"(let-values(((or-part_134)" "(prefab-struct-key" " s_137)))" -"(if or-part_128" -" or-part_128" +"(if or-part_134" +" or-part_134" "(hash? s_137)))))))" "(let-values()" "(datum-map-slow" @@ -9094,11 +9393,11 @@ static const char *startup_source = " seen_16))" "(let-values()" "(f_34 #f s_137))))))))))))" -" loop_32)" +" loop_35)" " #f" " s_136" " 0))))))" -" loop_73)" +" loop_76)" " s_133)))))))))))))" "(define-values" "(syntax-scope-set)" @@ -9121,9 +9420,9 @@ static const char *startup_source = "(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_129)(label-phase? phase_8)))" -"(if or-part_129" -" or-part_129" +"(if(let-values(((or-part_135)(label-phase? phase_8)))" +"(if or-part_135" +" or-part_135" "(not" "(shifted-to-label-phase?" "(shifted-multi-scope-phase sms_10)))))" @@ -9503,12 +9802,12 @@ static const char *startup_source = "(cdr" " i_73))" "(let-values()" -"(let-values(((or-part_130)" +"(let-values(((or-part_136)" "(hash-iterate-next" " ht_59" " i_73)))" -"(if or-part_130" -" or-part_130" +"(if or-part_136" +" or-part_136" " bulk-bindings_2)))))" "(values" " best-scopes_4" @@ -9519,11 +9818,11 @@ static const char *startup_source = " for-loop_68)" " best-scopes_1" " best-binding_1" -"(let-values(((or-part_131)" +"(let-values(((or-part_137)" "(hash-iterate-first" " ht_59)))" -"(if or-part_131" -" or-part_131" +"(if or-part_137" +" or-part_137" " bulk-bindings_2)))))))" "(if(not #f)" "(for-loop_67" @@ -9556,9 +9855,9 @@ static const char *startup_source = "(syntax-scopes s_143)" "(fallback-first smss_25)" " best-binding_0)" -"(if(let-values(((or-part_132)(not exactly?_0)))" -"(if or-part_132" -" or-part_132" +"(if(let-values(((or-part_138)(not exactly?_0)))" +"(if or-part_138" +" or-part_138" "(eqv?" "(set-count scopes_17)" "(set-count best-scopes_0))))" @@ -9579,11 +9878,11 @@ static const char *startup_source = "(syntax-shifted-multi-scopes s_143)))))))))))))" "(define-values" "(bound-identifier=?$1)" -"(lambda(a_32 b_25 phase_10)" +"(lambda(a_38 b_25 phase_10)" "(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_38)(syntax-e$1 b_25))" +"(equal?(syntax-scope-set a_38 phase_10)(syntax-scope-set b_25 phase_10))" " #f))))" "(define-values" "(syntax-property$1)" @@ -9595,7 +9894,7 @@ static const char *startup_source = "(begin" " (if (syntax?$1 s_0) (void) (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_0)))" "(values))))" -"(let-values(((v_27)(hash-ref(syntax-props s_0) key_11 #f)))(plain-property-value v_27)))))" +"(let-values(((v_30)(hash-ref(syntax-props s_0) key_11 #f)))(plain-property-value v_30)))))" "((s_1 key_12 val_3)" "(let-values((()" "(begin" @@ -9681,7 +9980,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_74" -"(let-values(((k_16 v_82)(unsafe-immutable-hash-iterate-key+value ht_60 i_74)))" +"(let-values(((k_16 v_85)(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)" @@ -9783,15 +10082,15 @@ static const char *startup_source = "(let-values(((extra-nominal-bindings_0)" "(if extra-nominal-bindings18_0 extra-nominal-bindings9_0 null)))" "(let-values()" -"(if(let-values(((or-part_79) frame-id_0))" -"(if or-part_79" -" or-part_79" -"(let-values(((or-part_80) free=id_0))" -"(if or-part_80" -" or-part_80" -"(let-values(((or-part_81) extra-inspector_0))" -"(if or-part_81" -" or-part_81" +"(if(let-values(((or-part_85) frame-id_0))" +"(if or-part_85" +" or-part_85" +"(let-values(((or-part_86) free=id_0))" +"(if or-part_86" +" or-part_86" +"(let-values(((or-part_87) extra-inspector_0))" +"(if or-part_87" +" or-part_87" "(not" "(if(eqv? nominal-phase_0 phase_11)" "(if(eq? nominal-sym_0 sym_13)" @@ -9904,8 +10203,8 @@ static const char *startup_source = "(module-binding?)" "(lambda(b_29)" "(begin" -"(let-values(((or-part_133)(simple-module-binding? b_29)))" -"(if or-part_133 or-part_133(full-module-binding? b_29))))))" +"(let-values(((or-part_139)(simple-module-binding? b_29)))" +"(if or-part_139 or-part_139(full-module-binding? b_29))))))" "(define-values" "(struct:full-module-binding" " full-module-binding51.1" @@ -10184,14 +10483,14 @@ static const char *startup_source = "(1/prop:rename-transformer 1/rename-transformer? rename-transformer-value)" "(make-struct-type-property" " 'rename-transformer" -"(lambda(v_26 info_1)" +"(lambda(v_29 info_1)" "(let-values((()" "(begin" -"(if(let-values(((or-part_11)(exact-nonnegative-integer? v_26)))" +"(if(let-values(((or-part_11)(exact-nonnegative-integer? v_29)))" "(if or-part_11" " or-part_11" -"(let-values(((or-part_2)(identifier? v_26)))" -"(if or-part_2 or-part_2(if(procedure? v_26)(procedure-arity-includes? v_26 1) #f)))))" +"(let-values(((or-part_2)(identifier? v_29)))" +"(if or-part_2 or-part_2(if(procedure? v_29)(procedure-arity-includes? v_29 1) #f)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -10200,44 +10499,44 @@ static const char *startup_source = " \"(or/c exact-nonnegative-integer?\\n\"" " \" identifier?\\n\"" " \" (procedure-arity-includes? proc 1))\")" -" v_26)))" +" v_29)))" "(values))))" "(let-values((()" "(begin" -"(if(exact-nonnegative-integer? v_26)" +"(if(exact-nonnegative-integer? v_29)" "(let-values()" "(begin" -"(if(<= v_26(list-ref info_1 1))" +"(if(<= v_29(list-ref info_1 1))" "(void)" "(let-values()" "(raise-arguments-error" " 'guard-for-prop:rename-transformer" " \"field index >= initialized-field count for structure type\"" " \"field index\"" -" v_26" +" v_29" " \"initialized-field count\"" "(list-ref info_1 1))))" -"(if(member v_26(list-ref info_1 5))" +"(if(member v_29(list-ref info_1 5))" "(void)" "(let-values()" "(raise-arguments-error" " 'guard-for-prop:rename-transformer" " \"field index not declared immutable\"" " \"field index\"" -" v_26)))))" +" v_29)))))" "(void))" "(values))))" "(let-values(((ref_0)(list-ref info_1 3)))" -"(if(identifier? v_26)" -"(let-values()(lambda(t_33) v_26))" -"(if(integer? v_26)" +"(if(identifier? v_29)" +"(let-values()(lambda(t_33) v_29))" +"(if(integer? v_29)" "(let-values()" "(lambda(t_34)" -"(let-values(((val_19)(ref_0 t_34 v_26)))" +"(let-values(((val_19)(ref_0 t_34 v_29)))" "(if(identifier? val_19) val_19(datum->syntax$1 #f '?)))))" "(let-values()" "(lambda(t_13)" -"(let-values(((id_0)(call-with-continuation-prompt(lambda()(v_26 t_13)))))" +"(let-values(((id_0)(call-with-continuation-prompt(lambda()(v_29 t_13)))))" "(begin" "(if(identifier? id_0)" "(void)" @@ -10281,16 +10580,16 @@ static const char *startup_source = "(lambda(t_35)(begin 'rename-transformer-target((rename-transformer-value t_35) t_35))))" "(define-values" "(free-identifier=?$1)" -"(lambda(a_33 b_45 a-phase_0 b-phase_0)" +"(lambda(a_39 b_45 a-phase_0 b-phase_0)" "(begin" " 'free-identifier=?" "(let-values(((ab_0)" "(let-values(((temp49_0) #t))" -"(resolve+shift30.1 #f #f #f #f #f #f #f #f temp49_0 #t a_33 a-phase_0))))" +"(resolve+shift30.1 #f #f #f #f #f #f #f #f temp49_0 #t a_39 a-phase_0))))" "(let-values(((bb_0)" "(let-values(((temp52_0) #t))" "(resolve+shift30.1 #f #f #f #f #f #f #f #f temp52_0 #t b_45 b-phase_0))))" -"(if(let-values(((or-part_27)(symbol? ab_0)))(if or-part_27 or-part_27(symbol? bb_0)))" +"(if(let-values(((or-part_33)(symbol? ab_0)))(if or-part_33 or-part_33(symbol? bb_0)))" "(let-values()(eq? ab_0 bb_0))" "(let-values()(same-binding? ab_0 bb_0))))))))" "(define-values" @@ -10453,8 +10752,8 @@ static const char *startup_source = "(if(syntax?$1 the-struct_31)" "(let-values(((mpi-shifts70_0)(cons shift_0(syntax-mpi-shifts s_149)))" "((inspector71_1)" -"(let-values(((or-part_68)(syntax-inspector s_149)))" -"(if or-part_68 or-part_68 inspector_3)))" +"(let-values(((or-part_74)(syntax-inspector s_149)))" +"(if or-part_74 or-part_74 inspector_3)))" "((scope-propagations+tamper72_0)" "(if(datum-has-elements?(syntax-content s_149))" "(propagation-mpi-shift" @@ -10787,7 +11086,7 @@ static const char *startup_source = "(let-values(((the-struct_32) s_97))" "(if(syntax?$1 the-struct_32)" "(let-values(((inspector100_0)" -"(let-values(((or-part_134)(syntax-inspector s_97)))(if or-part_134 or-part_134 insp_3)))" +"(let-values(((or-part_140)(syntax-inspector s_97)))(if or-part_140 or-part_140 insp_3)))" "((scope-propagations+tamper101_0)" "(if(datum-has-elements?(syntax-content s_97))" "(propagation-mpi-shift" @@ -10972,12 +11271,12 @@ static const char *startup_source = "(list" "(cons" " prop:serialize" -"(lambda(p_29 ser-push!_13 state_21)" +"(lambda(p_33 ser-push!_13 state_21)" "(begin" "(ser-push!_13 'tag '#:provided)" -"(ser-push!_13(provided-binding p_29))" -"(ser-push!_13(provided-protected? p_29))" -"(ser-push!_13(provided-syntax? p_29))))))" +"(ser-push!_13(provided-binding p_33))" +"(ser-push!_13(provided-protected? p_33))" +"(ser-push!_13(provided-syntax? p_33))))))" " #f" " #f" " '(0 1 2)" @@ -10990,9 +11289,9 @@ static const char *startup_source = "(make-struct-field-accessor -ref_0 0 'binding)" "(make-struct-field-accessor -ref_0 1 'protected?)" "(make-struct-field-accessor -ref_0 2 'syntax?))))" -"(define-values(provided-as-binding)(lambda(v_83)(begin(if(provided? v_83)(provided-binding v_83) v_83))))" +"(define-values(provided-as-binding)(lambda(v_86)(begin(if(provided? v_86)(provided-binding v_86) v_86))))" "(define-values(provided-as-protected?)(lambda(v_5)(begin(if(provided? v_5)(provided-protected? v_5) #f))))" -"(define-values(provided-as-transformer?)(lambda(v_33)(begin(if(provided? v_33)(provided-syntax? v_33) #f))))" +"(define-values(provided-as-transformer?)(lambda(v_36)(begin(if(provided? v_36)(provided-syntax? v_36) #f))))" "(define-values" "(deserialize-provided)" "(lambda(binding_6 protected?_0 syntax?_1)(begin(provided1.1 binding_6 protected?_0 syntax?_1))))" @@ -11084,9 +11383,9 @@ static const char *startup_source = " prop:bulk-binding" "(bulk-binding-class3.1" "(lambda(b_55 mpi-shifts_3)" -"(let-values(((or-part_135)(bulk-binding-provides b_55)))" -"(if or-part_135" -" or-part_135" +"(let-values(((or-part_141)(bulk-binding-provides b_55)))" +"(if or-part_141" +" or-part_141" "(let-values(((mod-name_1)" "(1/module-path-index-resolve" "(apply-syntax-shifts(bulk-binding-mpi b_55) mpi-shifts_3))))" @@ -11123,9 +11422,9 @@ static const char *startup_source = "(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_136) prefix_0))" -"(if or-part_136" -" or-part_136" +"(if(let-values(((or-part_142) prefix_0))" +"(if or-part_142" +" or-part_142" "(positive?(hash-count excepts_0))))" "(let-values()" "(bulk-provides-add-prefix-remove-exceptions" @@ -11269,7 +11568,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:_0 make-_0 ?_0 -ref_0 -set!_0)" +"(let-values(((struct:_33 make-_33 ?_33 -ref_33 -set!_33)" "(let-values()" "(let-values()" "(make-struct-type" @@ -11285,51 +11584,54 @@ static const char *startup_source = " #f" " 'root-expand-context/outer)))))" "(values" -" struct:_0" -" make-_0" -" ?_0" -"(make-struct-field-accessor -ref_0 0 'inner)" -"(make-struct-field-accessor -ref_0 1 'post-expansion-scope)" -"(make-struct-field-accessor -ref_0 2 'use-site-scopes)" -"(make-struct-field-accessor -ref_0 3 'frame-id))))" +" 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))))" "(define-values" "(struct:root-expand-context/inner" " root-expand-context/inner2.1" " root-expand-context/inner?" +" root-expand-context/inner-self-mpi" " root-expand-context/inner-module-scopes" " root-expand-context/inner-top-level-bind-scope" " root-expand-context/inner-all-scopes-stx" " root-expand-context/inner-defined-syms" " root-expand-context/inner-counter" " root-expand-context/inner-lift-key)" -"(let-values(((struct:_33 make-_33 ?_33 -ref_33 -set!_33)" +"(let-values(((struct:_9 make-_9 ?_9 -ref_9 -set!_9)" "(let-values()" "(let-values()" "(make-struct-type" " 'root-expand-context/inner" " #f" -" 6" +" 7" " 0" " #f" "(list(cons prop:authentic #t))" "(current-inspector)" " #f" -" '(0 1 2 3 4 5)" +" '(0 1 2 3 4 5 6)" " #f" " 'root-expand-context/inner)))))" "(values" -" struct:_33" -" make-_33" -" ?_33" -"(make-struct-field-accessor -ref_33 0 'module-scopes)" -"(make-struct-field-accessor -ref_33 1 'top-level-bind-scope)" -"(make-struct-field-accessor -ref_33 2 'all-scopes-stx)" -"(make-struct-field-accessor -ref_33 3 'defined-syms)" -"(make-struct-field-accessor -ref_33 4 'counter)" -"(make-struct-field-accessor -ref_33 5 'lift-key))))" +" struct:_9" +" make-_9" +" ?_9" +"(make-struct-field-accessor -ref_9 0 'self-mpi)" +"(make-struct-field-accessor -ref_9 1 'module-scopes)" +"(make-struct-field-accessor -ref_9 2 'top-level-bind-scope)" +"(make-struct-field-accessor -ref_9 3 'all-scopes-stx)" +"(make-struct-field-accessor -ref_9 4 'defined-syms)" +"(make-struct-field-accessor -ref_9 5 'counter)" +"(make-struct-field-accessor -ref_9 6 'lift-key))))" "(define-values" "(root-expand-context/make)" -"(lambda(module-scopes_0" +"(lambda(self-mpi_0" +" module-scopes_0" " post-expansion-scope_0" " top-level-bind-scope_0" " all-scopes-stx_0" @@ -11341,6 +11643,7 @@ static const char *startup_source = "(begin" "(root-expand-context/outer1.1" "(root-expand-context/inner2.1" +" self-mpi_0" " module-scopes_0" " top-level-bind-scope_0" " all-scopes-stx_0" @@ -11352,59 +11655,125 @@ static const char *startup_source = " frame-id_4))))" "(define-values" "(root-expand-context-post-expansion-scope)" -"(lambda(v_84)(begin(root-expand-context/outer-post-expansion-scope v_84))))" +"(lambda(v_48)(begin(root-expand-context/outer-post-expansion-scope v_48))))" "(define-values" "(root-expand-context-use-site-scopes)" -"(lambda(v_85)(begin(root-expand-context/outer-use-site-scopes v_85))))" -"(define-values(root-expand-context-frame-id)(lambda(v_86)(begin(root-expand-context/outer-frame-id v_86))))" +"(lambda(v_87)(begin(root-expand-context/outer-use-site-scopes v_87))))" +"(define-values(root-expand-context-frame-id)(lambda(v_49)(begin(root-expand-context/outer-frame-id v_49))))" +"(define-values" +"(root-expand-context-self-mpi)" +"(lambda(v_88)(begin(root-expand-context/inner-self-mpi(root-expand-context/outer-inner v_88)))))" "(define-values" "(root-expand-context-module-scopes)" -"(lambda(v_61)(begin(root-expand-context/inner-module-scopes(root-expand-context/outer-inner v_61)))))" +"(lambda(v_50)(begin(root-expand-context/inner-module-scopes(root-expand-context/outer-inner v_50)))))" "(define-values" "(root-expand-context-top-level-bind-scope)" -"(lambda(v_87)(begin(root-expand-context/inner-top-level-bind-scope(root-expand-context/outer-inner v_87)))))" +"(lambda(v_60)(begin(root-expand-context/inner-top-level-bind-scope(root-expand-context/outer-inner v_60)))))" "(define-values" "(root-expand-context-all-scopes-stx)" -"(lambda(v_88)(begin(root-expand-context/inner-all-scopes-stx(root-expand-context/outer-inner v_88)))))" +"(lambda(v_89)(begin(root-expand-context/inner-all-scopes-stx(root-expand-context/outer-inner v_89)))))" "(define-values" "(root-expand-context-defined-syms)" -"(lambda(v_89)(begin(root-expand-context/inner-defined-syms(root-expand-context/outer-inner v_89)))))" +"(lambda(v_90)(begin(root-expand-context/inner-defined-syms(root-expand-context/outer-inner v_90)))))" "(define-values" "(root-expand-context-counter)" -"(lambda(v_90)(begin(root-expand-context/inner-counter(root-expand-context/outer-inner v_90)))))" +"(lambda(v_43)(begin(root-expand-context/inner-counter(root-expand-context/outer-inner v_43)))))" "(define-values" "(root-expand-context-lift-key)" -"(lambda(v_44)(begin(root-expand-context/inner-lift-key(root-expand-context/outer-inner v_44)))))" +"(lambda(v_91)(begin(root-expand-context/inner-lift-key(root-expand-context/outer-inner v_91)))))" "(define-values" -"(make-root-expand-context11.1)" -"(lambda(all-scopes-stx6_0" -" all-scopes-stx10_0" -" initial-scopes3_0" -" initial-scopes7_0" -" outside-scope4_0" -" outside-scope8_0" -" post-expansion-scope5_0" -" post-expansion-scope9_0)" +"(lifted/1.1$26 lifted/2.1$26 lifted/3.1$24 lifted/4.1$24 lifted/5.1$24)" +"(make-struct-type" +" 'make-root-expand-context" +" struct:keyword-procedure/arity-error" +" 0" +" 0" +" #f" +"(list" +"(cons" +" prop:named-keyword-procedure" +"(cons 'make-root-expand-context(case-lambda((self_3)(apply missing-kw self_3 null))))))" +"(current-inspector)" +"(case-lambda((self_4)(apply missing-kw self_4 null)))))" +"(define-values" +"(make-root-expand-context13.1)" +"(lambda(all-scopes-stx7_0" +" all-scopes-stx12_0" +" initial-scopes4_0" +" initial-scopes9_0" +" outside-scope5_0" +" outside-scope10_0" +" post-expansion-scope6_0" +" post-expansion-scope11_0" +" self-mpi3_0)" "(begin" -" 'make-root-expand-context11" -"(let-values(((initial-scopes_0)(if initial-scopes7_0 initial-scopes3_0 null)))" -"(let-values(((outside-scope_0)(if outside-scope8_0 outside-scope4_0 top-level-common-scope)))" +" 'make-root-expand-context13" +"(let-values(((self-mpi_1) self-mpi3_0))" +"(let-values(((initial-scopes_0)(if initial-scopes9_0 initial-scopes4_0 null)))" +"(let-values(((outside-scope_0)(if outside-scope10_0 outside-scope5_0 top-level-common-scope)))" "(let-values(((post-expansion-scope_1)" -"(if post-expansion-scope9_0 post-expansion-scope5_0(new-multi-scope 'top-level))))" -"(let-values(((all-scopes-stx_1)(if all-scopes-stx10_0 all-scopes-stx6_0 #f)))" +"(if post-expansion-scope11_0 post-expansion-scope6_0(new-multi-scope 'top-level))))" +"(let-values(((all-scopes-stx_1)(if all-scopes-stx12_0 all-scopes-stx7_0 #f)))" "(let-values()" "(let-values(((module-scopes_1)(list* post-expansion-scope_1 outside-scope_0 initial-scopes_0)))" "(root-expand-context/make" +" self-mpi_1" " module-scopes_1" " post-expansion-scope_1" "(new-scope 'module)" -"(let-values(((or-part_137) all-scopes-stx_1))" -"(if or-part_137 or-part_137(add-scopes empty-syntax module-scopes_1)))" +"(let-values(((or-part_143) all-scopes-stx_1))" +"(if or-part_143 or-part_143(add-scopes empty-syntax module-scopes_1)))" "(box null)" "(make-hasheqv)" -" (string->uninterned-symbol \"root-frame\")" +" (string->uninterned-symbol \"root-frame\")" "(box 0)" -"(generate-lift-key)))))))))))" +"(generate-lift-key))))))))))))" +"(define-values" +"(unpack14.1$4)" +"(lambda(given-kws_0 given-args_0)" +"(begin" +" 'unpack14" +"(let-values(((all-scopes-stx12_1)(if(pair? given-kws_0)(eq? '#:all-scopes-stx(car given-kws_0)) #f)))" +"(let-values(((all-scopes-stx7_1)(if all-scopes-stx12_1(car given-args_0)(void)))" +"((given-kws_1)(if all-scopes-stx12_1(cdr given-kws_0) given-kws_0))" +"((given-args_1)(if all-scopes-stx12_1(cdr given-args_0) given-args_0)))" +"(let-values(((initial-scopes9_1)(if(pair? given-kws_1)(eq? '#:initial-scopes(car given-kws_1)) #f)))" +"(let-values(((initial-scopes4_1)(if initial-scopes9_1(car given-args_1)(void)))" +"((given-kws_2)(if initial-scopes9_1(cdr given-kws_1) given-kws_1))" +"((given-args_2)(if initial-scopes9_1(cdr given-args_1) given-args_1)))" +"(let-values(((outside-scope10_1)(if(pair? given-kws_2)(eq? '#:outside-scope(car given-kws_2)) #f)))" +"(let-values(((outside-scope5_1)(if outside-scope10_1(car given-args_2)(void)))" +"((given-kws_3)(if outside-scope10_1(cdr given-kws_2) given-kws_2))" +"((given-args_3)(if outside-scope10_1(cdr given-args_2) given-args_2)))" +"(let-values(((post-expansion-scope11_1)" +"(if(pair? given-kws_3)(eq? '#:post-expansion-scope(car given-kws_3)) #f)))" +"(let-values(((post-expansion-scope6_1)(if post-expansion-scope11_1(car given-args_3)(void)))" +"((given-kws_4)(if post-expansion-scope11_1(cdr given-kws_3) given-kws_3))" +"((given-args_4)(if post-expansion-scope11_1(cdr given-args_3) given-args_3)))" +"(let-values(((self-mpi3_1)(car given-args_4)))" +"(make-root-expand-context13.1" +" all-scopes-stx7_1" +" all-scopes-stx12_1" +" initial-scopes4_1" +" initial-scopes9_1" +" outside-scope5_1" +" outside-scope10_1" +" post-expansion-scope6_1" +" post-expansion-scope11_1" +" self-mpi3_1)))))))))))))" +"(define-values" +"(make-root-expand-context15.1)" +"(lifted/2.1$26" +"(lambda(given-kws_5 given-argc_0)" +"(if(= given-argc_0 2)" +"(subsets?" +" '(#:self-mpi)" +" given-kws_5" +" '(#:all-scopes-stx #:initial-scopes #:outside-scope #:post-expansion-scope #:self-mpi))" +" #f))" +"(case-lambda((given-kws_6 given-args_5)(unpack14.1$4 given-kws_6 given-args_5)))" +" '(#:self-mpi)" +" '(#:all-scopes-stx #:initial-scopes #:outside-scope #:post-expansion-scope #:self-mpi)))" "(define-values" "(root-expand-context-encode-for-module)" "(lambda(ctx_0 orig-self_0 new-self_0)" @@ -11414,31 +11783,31 @@ static const char *startup_source = "(vector" "(add-scopes empty-syntax(root-expand-context-module-scopes ctx_0))" "(add-scope empty-syntax(root-expand-context-post-expansion-scope ctx_0))" -"(let-values(((temp16_1)(root-expand-context-all-scopes-stx ctx_0))" -"((orig-self17_0) orig-self_0)" -"((new-self18_0) new-self_0))" -"(syntax-module-path-index-shift15.1 #f #f temp16_1 orig-self17_0 new-self18_0 #f #f))" +"(let-values(((temp18_2)(root-expand-context-all-scopes-stx ctx_0))" +"((orig-self19_0) orig-self_0)" +"((new-self20_0) new-self_0))" +"(syntax-module-path-index-shift15.1 #f #f temp18_2 orig-self19_0 new-self20_0 #f #f))" "(add-scopes empty-syntax(unbox(root-expand-context-use-site-scopes ctx_0)))" "(let-values(((ht_61)(root-expand-context-defined-syms ctx_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_61)))" "((letrec-values(((for-loop_74)" -"(lambda(table_76 i_76)" +"(lambda(table_79 i_76)" "(begin" " 'for-loop" "(if i_76" "(let-values(((phase_21 ht_62)(hash-iterate-key+value ht_61 i_76)))" -"(let-values(((table_79)" -"(let-values(((table_80) table_76))" -"(let-values(((table_33)" +"(let-values(((table_34)" +"(let-values(((table_80) table_79))" +"(let-values(((table_81)" "(let-values()" "(let-values(((key_35 val_23)" "(let-values()" "(values phase_21 ht_62))))" "(hash-set table_80 key_35 val_23)))))" -"(values table_33)))))" -"(if(not #f)(for-loop_74 table_79(hash-iterate-next ht_61 i_76)) table_79)))" -" table_76)))))" +"(values table_81)))))" +"(if(not #f)(for-loop_74 table_34(hash-iterate-next ht_61 i_76)) table_34)))" +" table_79)))))" " for-loop_74)" " '#hasheqv()" "(hash-iterate-first ht_61))))" @@ -11446,7 +11815,7 @@ static const char *startup_source = "(unbox(root-expand-context-counter ctx_0)))))))" "(define-values" "(root-expand-context-decode-for-module)" -"(lambda(vec-s_0)" +"(lambda(vec-s_0 self_5)" "(begin" "(let-values(((vec_24)(if(syntax?$1 vec-s_0)(syntax-e$1 vec-s_0) #f)))" "(begin" @@ -11470,6 +11839,7 @@ static const char *startup_source = "(void)" " (let-values () (error 'root-expand-context-decode-for-module \"bad encoding: ~s\" vec-s_0)))" "(root-expand-context/make" +" self_5" "(extract-scope-list(vector-ref vec_24 0))" "(extract-scope(vector-ref vec_24 1))" "(new-scope 'module)" @@ -11481,41 +11851,41 @@ static const char *startup_source = "(generate-lift-key)))))))" "(define-values" "(defined-syms-hash?)" -"(lambda(v_38)" +"(lambda(v_92)" "(begin" -"(let-values(((ht_37) v_38))" +"(let-values(((ht_63) v_92))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_37)))" -"((letrec-values(((for-loop_36)" -"(lambda(result_52 i_48)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_63)))" +"((letrec-values(((for-loop_8)" +"(lambda(result_30 i_77)" "(begin" " 'for-loop" -"(if i_48" -"(let-values(((phase_22 ht-s_0)(hash-iterate-key+value ht_37 i_48)))" -"(let-values(((result_53)" +"(if i_77" +"(let-values(((phase_22 ht-s_0)(hash-iterate-key+value ht_63 i_77)))" +"(let-values(((result_52)" "(let-values()" -"(let-values(((result_54)" +"(let-values(((result_53)" "(let-values()" "(let-values()" "(if(phase? phase_22)" "(if(hash?(syntax-e$1 ht-s_0))" -"(let-values(((ht_63)(syntax-e$1 ht-s_0)))" +"(let-values(((ht_64)(syntax-e$1 ht-s_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_63)))" +"(let-values()(check-in-hash ht_64)))" "((letrec-values(((for-loop_75)" -"(lambda(result_55 i_77)" +"(lambda(result_54 i_78)" "(begin" " 'for-loop" -"(if i_77" +"(if i_78" "(let-values(((sym_19" " id_7)" "(hash-iterate-key+value" -" ht_63" -" i_77)))" -"(let-values(((result_31)" +" ht_64" +" i_78)))" +"(let-values(((result_55)" "(let-values()" "(let-values(((result_56)" "(let-values()" @@ -11530,31 +11900,31 @@ static const char *startup_source = "(if(if(not" "((lambda x_38" "(not" -" result_31))" +" result_55))" " sym_19" " id_7))" "(not #f)" " #f)" "(for-loop_75" -" result_31" +" result_55" "(hash-iterate-next" -" ht_63" -" i_77))" -" result_31)))" -" result_55)))))" +" ht_64" +" i_78))" +" result_55)))" +" result_54)))))" " for-loop_75)" " #t" -"(hash-iterate-first ht_63))))" +"(hash-iterate-first ht_64))))" " #f)" " #f)))))" -"(values result_54)))))" -"(if(if(not((lambda x_39(not result_53)) phase_22 ht-s_0))(not #f) #f)" -"(for-loop_36 result_53(hash-iterate-next ht_37 i_48))" -" result_53)))" -" result_52)))))" -" for-loop_36)" +"(values result_53)))))" +"(if(if(not((lambda x_39(not result_52)) phase_22 ht-s_0))(not #f) #f)" +"(for-loop_8 result_52(hash-iterate-next ht_63 i_77))" +" result_52)))" +" result_30)))))" +" for-loop_8)" " #t" -"(hash-iterate-first ht_37)))))))" +"(hash-iterate-first ht_63)))))))" "(define-values" "(extract-scope-list)" "(lambda(stx_8)(begin(map2 generalize-scope(set->list(syntax-scope-set stx_8 0))))))" @@ -11563,31 +11933,31 @@ 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_158)(syntax-scope-set stx_10 0)))(generalize-scope(set-first s_158))))))" +"(lambda(stx_10)(begin(let-values(((s_34)(syntax-scope-set stx_10 0)))(generalize-scope(set-first s_34))))))" "(define-values" "(unpack-defined-syms)" -"(lambda(v_91)" +"(lambda(v_93)" "(begin" "(hash-copy" -"(let-values(((ht_64)(syntax-e$1 v_91)))" +"(let-values(((ht_65)(syntax-e$1 v_93)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_64)))" -"((letrec-values(((for-loop_12)" -"(lambda(table_36 i_78)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_65)))" +"((letrec-values(((for-loop_76)" +"(lambda(table_82 i_79)" "(begin" " 'for-loop" -"(if i_78" -"(let-values(((phase_23 ht-s_1)(hash-iterate-key+value ht_64 i_78)))" -"(let-values(((table_38)" -"(let-values(((table_81) table_36))" -"(let-values(((table_82)" +"(if i_79" +"(let-values(((phase_23 ht-s_1)(hash-iterate-key+value ht_65 i_79)))" +"(let-values(((table_83)" +"(let-values(((table_84) table_82))" +"(let-values(((table_85)" "(let-values()" "(let-values(((key_36 val_24)" "(let-values()" "(values" " phase_23" "(hash-copy" -"(let-values(((ht_65)" +"(let-values(((ht_66)" "(syntax-e$1" " ht-s_1)))" "(begin" @@ -11595,22 +11965,22 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_65)))" -"((letrec-values(((for-loop_76)" -"(lambda(table_83" -" i_79)" +"(check-in-hash ht_66)))" +"((letrec-values(((for-loop_77)" +"(lambda(table_86" +" i_80)" "(begin" " 'for-loop" -"(if i_79" +"(if i_80" "(let-values(((sym_20" " id_8)" "(hash-iterate-key+value" -" ht_65" -" i_79)))" -"(let-values(((table_84)" -"(let-values(((table_85)" -" table_83))" -"(let-values(((table_86)" +" ht_66" +" i_80)))" +"(let-values(((table_87)" +"(let-values(((table_88)" +" table_86))" +"(let-values(((table_89)" "(let-values()" "(let-values(((key_37" " val_25)" @@ -11619,31 +11989,31 @@ static const char *startup_source = " sym_20" " id_8))))" "(hash-set" -" table_85" +" table_88" " key_37" " val_25)))))" "(values" -" table_86)))))" +" table_89)))))" "(if(not" " #f)" -"(for-loop_76" -" table_84" +"(for-loop_77" +" table_87" "(hash-iterate-next" -" ht_65" -" i_79))" -" table_84)))" -" table_83)))))" -" for-loop_76)" +" ht_66" +" i_80))" +" table_87)))" +" table_86)))))" +" for-loop_77)" " '#hash()" "(hash-iterate-first" -" ht_65)))))))))" -"(hash-set table_81 key_36 val_24)))))" -"(values table_82)))))" -"(if(not #f)(for-loop_12 table_38(hash-iterate-next ht_64 i_78)) table_38)))" -" table_36)))))" -" for-loop_12)" +" ht_66)))))))))" +"(hash-set table_84 key_36 val_24)))))" +"(values table_85)))))" +"(if(not #f)(for-loop_76 table_83(hash-iterate-next ht_65 i_79)) table_83)))" +" table_82)))))" +" for-loop_76)" " '#hasheqv()" -"(hash-iterate-first ht_64))))))))" +"(hash-iterate-first ht_65))))))))" "(define-values(1/primitive-table) primitive-table)" "(define-values(1/primitive->compiled-position) primitive->compiled-position)" "(define-values(1/compiled-position->primitive) compiled-position->primitive)" @@ -11704,30 +12074,30 @@ static const char *startup_source = "(define-values(make-module-registry)(lambda()(begin(module-registry1.1(make-hasheq)(box #f)))))" "(define-values" "(registry-call-with-lock)" -"(lambda(r_26 proc_2)" +"(lambda(r_26 proc_4)" "(begin" "(let-values(((lock-box_0)(module-registry-lock-box r_26)))" -"((letrec-values(((loop_52)" +"((letrec-values(((loop_55)" "(lambda()" "(begin" " 'loop" -"(let-values(((v_32)(unbox lock-box_0)))" -"(if(let-values(((or-part_77)(not v_32)))" -"(if or-part_77 or-part_77(sync/timeout 0(car v_32)(cdr v_32))))" +"(let-values(((v_35)(unbox lock-box_0)))" +"(if(let-values(((or-part_83)(not v_35)))" +"(if or-part_83 or-part_83(sync/timeout 0(car v_35)(cdr v_35))))" "(let-values()" "(let-values(((sema_0)(make-semaphore)))" "(let-values(((lock_0)(cons(semaphore-peek-evt sema_0)(current-thread))))" "((dynamic-wind" " void" "(lambda()" -"(if(box-cas! lock-box_0 v_32 lock_0)" -"(let-values()(begin(proc_2) void))" -"(let-values()(loop_52))))" +"(if(box-cas! lock-box_0 v_35 lock_0)" +"(let-values()(begin(proc_4) void))" +"(let-values()(loop_55))))" "(lambda()(semaphore-post sema_0)))))))" -"(if(eq?(current-thread)(cdr v_32))" -"(let-values()(proc_2))" -"(let-values()(begin(sync(car v_32)(cdr v_32))(loop_52))))))))))" -" loop_52))))))" +"(if(eq?(current-thread)(cdr v_35))" +"(let-values()(proc_4))" +"(let-values()(begin(sync(car v_35)(cdr v_35))(loop_55))))))))))" +" loop_55))))))" "(define-values" "(struct:namespace" " namespace1.1" @@ -11762,10 +12132,10 @@ static const char *startup_source = " prop:custom-write" "(lambda(ns_0 port_9 mode_9)" " (let-values ((() (begin (write-string \"#name ns_0)))" "(void))" "(values))))" @@ -11827,7 +12197,8 @@ static const char *startup_source = "(let-values(((root-expand-ctx_0)" "(if root-expand-ctx5_0" " root-expand-ctx3_0" -"(let-values()(make-root-expand-context11.1 #f #f #f #f #f #f #f #f)))))" +"(let-values(((top-level-module-path-index22_0) top-level-module-path-index))" +"(make-root-expand-context13.1 #f #f #f #f #f #f #f #f top-level-module-path-index22_0)))))" "(let-values(((register?_0)(if register?6_0 register?4_0 #t)))" "(let-values()" "(let-values(((phase_24)(if share-from-ns_0(namespace-phase share-from-ns_0) 0)))" @@ -11846,8 +12217,8 @@ static const char *startup_source = "(make-bulk-binding-registry))" "(make-small-hasheq)" "(if share-from-ns_0" -"(let-values(((or-part_138)(namespace-root-namespace share-from-ns_0)))" -"(if or-part_138 or-part_138 share-from-ns_0))" +"(let-values(((or-part_144)(namespace-root-namespace share-from-ns_0)))" +"(if or-part_144 or-part_144 share-from-ns_0))" " #f)" " #f" "(make-inspector(current-code-inspector))" @@ -11864,10 +12235,10 @@ static const char *startup_source = "(1/current-namespace)" "(make-parameter" "(make-namespace)" -"(lambda(v_92)" +"(lambda(v_94)" "(begin" -" (if (1/namespace? v_92) (void) (let-values () (raise-argument-error 'current-namespace \"namespace?\" v_92)))" -" v_92))))" +" (if (1/namespace? v_94) (void) (let-values () (raise-argument-error 'current-namespace \"namespace?\" v_94)))" +" v_94))))" "(define-values" "(namespace-get-root-expand-ctx)" "(lambda(ns_2)(begin(force(unbox(namespace-root-expand-ctx ns_2))))))" @@ -11875,29 +12246,32 @@ static const char *startup_source = "(namespace-set-root-expand-ctx!)" "(lambda(ns_3 root-ctx_0)(begin(set-box!(namespace-root-expand-ctx ns_3) root-ctx_0))))" "(define-values" +"(namespace-self-mpi)" +"(lambda(ns_4)(begin(root-expand-context-self-mpi(namespace-get-root-expand-ctx ns_4)))))" +"(define-values" "(namespace->module)" -"(lambda(ns_4 name_17)" +"(lambda(ns_5 name_17)" "(begin" -"(let-values(((or-part_139)(small-hash-ref(namespace-submodule-declarations ns_4) name_17 #f)))" -"(if or-part_139" -" or-part_139" -"(hash-ref(module-registry-declarations(1/namespace-module-registry ns_4)) name_17 #f))))))" +"(let-values(((or-part_145)(small-hash-ref(namespace-submodule-declarations ns_5) name_17 #f)))" +"(if or-part_145" +" or-part_145" +"(hash-ref(module-registry-declarations(1/namespace-module-registry ns_5)) name_17 #f))))))" "(define-values" "(namespace->namespace-at-phase)" -"(lambda(ns_5 phase_25)" +"(lambda(ns_6 phase_25)" "(begin" -"(let-values(((or-part_140)(small-hash-ref(namespace-phase-to-namespace ns_5) phase_25 #f)))" -"(if or-part_140" -" or-part_140" +"(let-values(((or-part_146)(small-hash-ref(namespace-phase-to-namespace ns_6) phase_25 #f)))" +"(if or-part_146" +" or-part_146" "(let-values(((p-ns_0)" -"(let-values(((the-struct_34) ns_5))" +"(let-values(((the-struct_34) ns_6))" "(if(1/namespace? the-struct_34)" -"(let-values(((phase22_0) phase_25))" +"(let-values(((phase23_0) phase_25))" "(namespace1.1" "(namespace-mpi the-struct_34)" "(namespace-source-name the-struct_34)" "(namespace-root-expand-ctx the-struct_34)" -" phase22_0" +" phase23_0" "(namespace-0-phase the-struct_34)" "(namespace-phase-to-namespace the-struct_34)" "(namespace-phase-level-to-definitions the-struct_34)" @@ -11910,94 +12284,95 @@ static const char *startup_source = "(namespace-available-module-instances the-struct_34)" "(namespace-module-instances the-struct_34)))" " (raise-argument-error 'struct-copy \"namespace?\" the-struct_34)))))" -"(begin(small-hash-set!(namespace-phase-to-namespace ns_5) phase_25 p-ns_0) p-ns_0)))))))" +"(begin(small-hash-set!(namespace-phase-to-namespace ns_6) phase_25 p-ns_0) p-ns_0)))))))" "(define-values" "(namespace->name)" -"(lambda(ns_6)" +"(lambda(ns_7)" "(begin" -"(let-values(((n_20)(namespace-source-name ns_6)))" -"(let-values(((s_52)" -"(if(not n_20)" +"(let-values(((n_22)(namespace-source-name ns_7)))" +"(let-values(((s_158)" +"(if(not n_22)" "(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_27)(1/resolved-module-path-name(1/module-path-index-resolve(namespace-mpi ns_6)))))" -" (if (pair? r_27) (string-append \"(submod \" s_52 \" \" (substring (format \"~s\" (cdr r_27)) 1)) s_52)))))))" +"(if(symbol? n_22)" +" (let-values () (format \"'~s\" n_22))" +" (let-values () (string-append \"\\\"\" (path->string n_22) \"\\\"\"))))))" +"(let-values(((r_27)(1/resolved-module-path-name(1/module-path-index-resolve(namespace-mpi ns_7)))))" +" (if (pair? r_27) (string-append \"(submod \" s_158 \" \" (substring (format \"~s\" (cdr r_27)) 1)) s_158)))))))" "(define-values" "(namespace->definitions)" -"(lambda(ns_7 phase-level_1)" +"(lambda(ns_8 phase-level_1)" "(begin" -"(let-values(((d_8)(small-hash-ref(namespace-phase-level-to-definitions ns_7) phase-level_1 #f)))" -"(let-values(((or-part_48) d_8))" -"(if or-part_48" -" or-part_48" +"(let-values(((d_8)(small-hash-ref(namespace-phase-level-to-definitions ns_8) phase-level_1 #f)))" +"(let-values(((or-part_147) d_8))" +"(if or-part_147" +" or-part_147" "(let-values()" "(let-values(((p-ns_1)" -"(namespace->namespace-at-phase ns_7(phase+(namespace-0-phase ns_7) phase-level_1))))" +"(namespace->namespace-at-phase ns_8(phase+(namespace-0-phase ns_8) phase-level_1))))" "(let-values(((d_9)(definitions2.1(1/make-instance(namespace->name p-ns_1) p-ns_1)(make-hasheq))))" -"(begin(small-hash-set!(namespace-phase-level-to-definitions ns_7) phase-level_1 d_9) d_9))))))))))" +"(begin(small-hash-set!(namespace-phase-level-to-definitions ns_8) phase-level_1 d_9) d_9))))))))))" "(define-values" "(namespace-set-variable!)" "(let-values(((namespace-set-variable!18_0)" "(lambda(ns14_0 phase-level15_0 name16_1 val17_0 as-constant?12_0 as-constant?13_0)" "(begin" " 'namespace-set-variable!18" -"(let-values(((ns_8) ns14_0))" +"(let-values(((ns_9) ns14_0))" "(let-values(((phase-level_2) phase-level15_0))" "(let-values(((name_18) name16_1))" "(let-values(((val_26) val17_0))" "(let-values(((as-constant?_0)(if as-constant?13_0 as-constant?12_0 #f)))" "(let-values()" -"(let-values(((d_10)(namespace->definitions ns_8 phase-level_2)))" +"(let-values(((d_10)(namespace->definitions ns_9 phase-level_2)))" "(1/instance-set-variable-value!" "(definitions-variables d_10)" " name_18" " val_26" "(if as-constant?_0 'constant #f)))))))))))))" "(case-lambda" -"((ns_9 phase-level_3 name_19 val_27)(begin(namespace-set-variable!18_0 ns_9 phase-level_3 name_19 val_27 #f #f)))" -"((ns_10 phase-level_4 name_20 val_28 as-constant?12_1)" -"(namespace-set-variable!18_0 ns_10 phase-level_4 name_20 val_28 as-constant?12_1 #t)))))" +"((ns_10 phase-level_3 name_19 val_27)" +"(begin(namespace-set-variable!18_0 ns_10 phase-level_3 name_19 val_27 #f #f)))" +"((ns_11 phase-level_4 name_20 val_28 as-constant?12_1)" +"(namespace-set-variable!18_0 ns_11 phase-level_4 name_20 val_28 as-constant?12_1 #t)))))" "(define-values" "(namespace-set-consistent!)" -"(lambda(ns_11 phase-level_5 name_21 val_29)" +"(lambda(ns_12 phase-level_5 name_14 val_29)" "(begin" -"(let-values(((d_11)(namespace->definitions ns_11 phase-level_5)))" -"(1/instance-set-variable-value!(definitions-variables d_11) name_21 val_29 'consistent)))))" +"(let-values(((d_11)(namespace->definitions ns_12 phase-level_5)))" +"(1/instance-set-variable-value!(definitions-variables d_11) name_14 val_29 'consistent)))))" "(define-values" "(namespace-unset-variable!)" -"(lambda(ns_12 phase-level_6 name_22)" +"(lambda(ns_13 phase-level_6 name_21)" "(begin" -"(let-values(((d_12)(namespace->definitions ns_12 phase-level_6)))" -"(1/instance-unset-variable!(definitions-variables d_12) name_22)))))" +"(let-values(((d_12)(namespace->definitions ns_13 phase-level_6)))" +"(1/instance-unset-variable!(definitions-variables d_12) name_21)))))" "(define-values" "(namespace-set-transformer!)" -"(lambda(ns_13 phase-level_7 name_23 val_30)" +"(lambda(ns_14 phase-level_7 name_22 val_30)" "(begin" -"(let-values(((d_13)(namespace->definitions ns_13(add1 phase-level_7))))" -"(hash-set!(definitions-transformers d_13) name_23 val_30)))))" +"(let-values(((d_13)(namespace->definitions ns_14(add1 phase-level_7))))" +"(hash-set!(definitions-transformers d_13) name_22 val_30)))))" "(define-values" "(namespace-unset-transformer!)" -"(lambda(ns_14 phase-level_8 name_24)" +"(lambda(ns_15 phase-level_8 name_23)" "(begin" -"(let-values(((d_14)(namespace->definitions ns_14(add1 phase-level_8))))" -"(hash-remove!(definitions-transformers d_14) name_24)))))" +"(let-values(((d_14)(namespace->definitions ns_15(add1 phase-level_8))))" +"(hash-remove!(definitions-transformers d_14) name_23)))))" "(define-values" "(namespace-get-variable)" -"(lambda(ns_15 phase-level_9 name_16 fail-k_0)" +"(lambda(ns_16 phase-level_9 name_24 fail-k_0)" "(begin" -"(let-values(((d_15)(namespace->definitions ns_15 phase-level_9)))" -"(1/instance-variable-value(definitions-variables d_15) name_16 fail-k_0)))))" +"(let-values(((d_15)(namespace->definitions ns_16 phase-level_9)))" +"(1/instance-variable-value(definitions-variables d_15) name_24 fail-k_0)))))" "(define-values" "(namespace-get-transformer)" -"(lambda(ns_16 phase-level_10 name_25 fail-k_1)" +"(lambda(ns_17 phase-level_10 name_25 fail-k_1)" "(begin" -"(let-values(((d_16)(namespace->definitions ns_16(add1 phase-level_10))))" +"(let-values(((d_16)(namespace->definitions ns_17(add1 phase-level_10))))" "(hash-ref(definitions-transformers d_16) name_25 fail-k_1)))))" "(define-values" "(namespace->instance)" -"(lambda(ns_17 phase-shift_2)(begin(definitions-variables(namespace->definitions ns_17 phase-shift_2)))))" +"(lambda(ns_18 phase-shift_2)(begin(definitions-variables(namespace->definitions ns_18 phase-shift_2)))))" "(define-values" "(namespace-same-instance?)" "(lambda(a-ns_0 b-ns_0)" @@ -12012,16 +12387,16 @@ static const char *startup_source = "(begin" " 'syntax->list" "(let-values(((l_46)" -"((letrec-values(((loop_74)" +"((letrec-values(((loop_77)" "(lambda(s_1)" "(begin" " 'loop" "(if(pair? s_1)" -"(let-values()(cons(car s_1)(loop_74(cdr s_1))))" +"(let-values()(cons(car s_1)(loop_77(cdr s_1))))" "(if(syntax?$1 s_1)" -"(let-values()(loop_74(syntax-e$1 s_1)))" +"(let-values()(loop_77(syntax-e$1 s_1)))" "(let-values() s_1)))))))" -" loop_74)" +" loop_77)" " s_0)))" "(if(list? l_46) l_46 #f)))))" "(define-values(missing$1)(gensym))" @@ -12038,8 +12413,8 @@ static const char *startup_source = " id1_0" "(if(identifier? old-stx_0)" " old-stx_0" -"(let-values(((v_93)(syntax-e/no-taint old-stx_0)))" -"(if(pair? v_93)(car v_93) #f))))))" +"(let-values(((v_95)(syntax-e/no-taint old-stx_0)))" +"(if(pair? v_95)(car v_95) #f))))))" "(let-values()" "(let-values(((old-props_0)(syntax-props old-stx_0)))" "(if(zero?(hash-count old-props_0))" @@ -12114,7 +12489,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_74" -"(let-values(((k_16 v_82)" +"(let-values(((k_16 v_85)" "(unsafe-immutable-hash-iterate-key+value" " ht_60" " i_74)))" @@ -12134,10 +12509,10 @@ static const char *startup_source = "(if(eq?" " new-v_0" " missing$1)" -" v_82" +" v_85" "(cons/preserve" " new-v_0" -" v_82)))))))" +" v_85)))))))" "(values" " new-props_4)))))" "(if(not #f)" @@ -12152,21 +12527,21 @@ static const char *startup_source = " new-props_0" "(unsafe-immutable-hash-iterate-first ht_60)))))" "(let-values()" -"(let-values(((ht_66) new-props_0))" +"(let-values(((ht_67) new-props_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_66)))" -"((letrec-values(((for-loop_77)" -"(lambda(old-props_1 i_80)" +"(let-values()(check-in-immutable-hash ht_67)))" +"((letrec-values(((for-loop_78)" +"(lambda(old-props_1 i_81)" "(begin" " 'for-loop" -"(if i_80" +"(if i_81" "(let-values(((k_17 v_5)" "(unsafe-immutable-hash-iterate-key+value" -" ht_66" -" i_80)))" +" ht_67" +" i_81)))" "(let-values(((old-props_2)" "(let-values(((old-props_3)" " old-props_1))" @@ -12190,16 +12565,16 @@ static const char *startup_source = "(values" " old-props_4)))))" "(if(not #f)" -"(for-loop_77" +"(for-loop_78" " old-props_2" "(unsafe-immutable-hash-iterate-next" -" ht_66" -" i_80))" +" ht_67" +" i_81))" " old-props_2)))" " old-props_1)))))" -" for-loop_77)" +" for-loop_78)" " old-props-with-origin_0" -"(unsafe-immutable-hash-iterate-first ht_66))))))))" +"(unsafe-immutable-hash-iterate-first ht_67))))))))" "(let-values(((the-struct_37) new-stx_0))" "(if(syntax?$1 the-struct_37)" "(let-values(((props9_0) updated-props_0))" @@ -12221,12 +12596,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_57)" +"(lambda(a_40 b_57)" "(begin" -"(if(let-values(((or-part_31)(preserved-property-value? a_34)))" -"(if or-part_31 or-part_31(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)))))" +"(if(let-values(((or-part_37)(preserved-property-value? a_40)))" +"(if or-part_37 or-part_37(preserved-property-value? b_57)))" +"(preserved-property-value1.1(cons(plain-property-value a_40)(plain-property-value b_57)))" +"(cons a_40 b_57)))))" "(define-values" "(syntax-track-origin*)" "(lambda(old-stxes_0 new-stx_3)" @@ -12234,7 +12609,7 @@ static const char *startup_source = "(let-values(((lst_54) old-stxes_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_54)))" -"((letrec-values(((for-loop_78)" +"((letrec-values(((for-loop_79)" "(lambda(new-stx_4 lst_55)" "(begin" " 'for-loop" @@ -12246,9 +12621,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_78 new-stx_5 rest_24) new-stx_5)))" +"(if(not #f)(for-loop_79 new-stx_5 rest_24) new-stx_5)))" " new-stx_4)))))" -" for-loop_78)" +" for-loop_79)" " new-stx_3" " lst_54))))))" "(define-values" @@ -12391,8 +12766,8 @@ static const char *startup_source = "(begin" "(let-values((()" "(begin" -"(if(let-values(((or-part_141)(not given-name_12)))" -"(if or-part_141 or-part_141(symbol? given-name_12)))" +"(if(let-values(((or-part_148)(not given-name_12)))" +"(if or-part_148 or-part_148(symbol? given-name_12)))" "(void)" " (let-values () (raise-argument-error 'raise-syntax-error \"(or/c symbol? #f)\" given-name_12)))" "(values))))" @@ -12418,44 +12793,44 @@ static const char *startup_source = "(let-values(((name_26)" "(format" " \"~a\"" -"(let-values(((or-part_142) given-name_12))" -"(if or-part_142" -" or-part_142" -"(let-values(((or-part_143)(extract-form-name expr_8)))" -"(if or-part_143 or-part_143 '?)))))))" +"(let-values(((or-part_143) given-name_12))" +"(if or-part_143" +" or-part_143" +"(let-values(((or-part_149)(extract-form-name expr_8)))" +"(if or-part_149 or-part_149 '?)))))))" "(let-values(((at-message_0)" -"(let-values(((or-part_144)" +"(let-values(((or-part_150)" "(if sub-expr_6" "(if(error-print-source-location)" " (format \"\\n at: ~.s\" (syntax->datum$1 (datum->syntax$1 #f sub-expr_6)))" " #f)" " #f)))" -" (if or-part_144 or-part_144 \"\"))))" +" (if or-part_150 or-part_150 \"\"))))" "(let-values(((in-message_0)" -"(let-values(((or-part_145)" +"(let-values(((or-part_151)" "(if expr_8" "(if(error-print-source-location)" " (format \"\\n in: ~.s\" (syntax->datum$1 (datum->syntax$1 #f expr_8)))" " #f)" " #f)))" -" (if or-part_145 or-part_145 \"\"))))" +" (if or-part_151 or-part_151 \"\"))))" "(let-values(((src-loc-str_0)" -"(let-values(((or-part_138)(extract-source-location sub-expr_6)))" -"(if or-part_138" -" or-part_138" -"(let-values(((or-part_146)(extract-source-location expr_8)))" -" (if or-part_146 or-part_146 \"\"))))))" +"(let-values(((or-part_152)(extract-source-location sub-expr_6)))" +"(if or-part_152" +" or-part_152" +"(let-values(((or-part_144)(extract-source-location expr_8)))" +" (if or-part_144 or-part_144 \"\"))))))" "(raise" "(exn:fail:syntax_0" " (string-append src-loc-str_0 name_26 \": \" message_12 at-message_0 in-message_0 message-suffix_2)" "(current-continuation-marks)" "(map2" " syntax-taint$1" -"(if(let-values(((or-part_147) sub-expr_6))(if or-part_147 or-part_147 expr_8))" +"(if(let-values(((or-part_153) sub-expr_6))(if or-part_153 or-part_153 expr_8))" "(cons" "(datum->syntax$1" " #f" -"(let-values(((or-part_57) sub-expr_6))(if or-part_57 or-part_57 expr_8)))" +"(let-values(((or-part_63) sub-expr_6))(if or-part_63 or-part_63 expr_8)))" " extra-sources_4)" " extra-sources_4)))))))))))))))" "(define-values" @@ -12629,7 +13004,7 @@ static const char *startup_source = "(begin" " 'make-module39" "(let-values(((source-name_0)(if source-name21_0 source-name3_0 #f)))" -"(let-values(((self_3) self4_0))" +"(let-values(((self_6) self4_0))" "(let-values(((requires_0)(if requires23_0 requires5_0 null)))" "(let-values(((provides_3) provides6_0))" "(let-values(((min-phase-level_0)(if min-phase-level25_0 min-phase-level7_0 0)))" @@ -12642,7 +13017,7 @@ static const char *startup_source = "(let-values(((phase-level-linklet-info-callback_0)" "(if phase-level-linklet-info-callback30_0" " phase-level-linklet-info-callback12_0" -"(lambda(phase-level_10 ns_18 insp_4)" +"(lambda(phase-level_11 ns_17 insp_4)" "(begin 'phase-level-linklet-info-callback #f)))))" "(let-values(((language-info_0)(if language-info31_0 language-info13_0 #f)))" "(let-values(((primitive?_0)(if primitive?32_0 primitive?14_0 #f)))" @@ -12663,7 +13038,7 @@ static const char *startup_source = "(let-values()" "(module1.1" " source-name_0" -" self_3" +" self_6" "(unresolve-requires requires_0)" " provides_3" " #f" @@ -12881,9 +13256,9 @@ static const char *startup_source = " (raise-arguments-error 'module \"cannot redeclare cross-phase persistent module\" \"module name\" mod-name_5))" "(void))" "(if(if prior-mi_1" -"(let-values(((or-part_148)(module-instance-attached? prior-mi_1)))" -"(if or-part_148" -" or-part_148" +"(let-values(((or-part_154)(module-instance-attached? prior-mi_1)))" +"(if or-part_154" +" or-part_154" "(not" "(inspector-superior?" "(current-code-inspector)" @@ -12897,10 +13272,10 @@ static const char *startup_source = " (lambda (who_8 mod-name_6) (begin (raise-arguments-error who_8 \"unknown module\" \"module name\" mod-name_6))))" "(define-values" "(namespace->module-linklet-info)" -"(lambda(ns_21 name_28 phase-level_11)" +"(lambda(ns_21 name_28 phase-level_12)" "(begin" "(let-values(((m_3)(namespace->module ns_21 name_28)))" -"(if m_3((module-phase-level-linklet-info-callback m_3) phase-level_11 ns_21(module-inspector m_3)) #f)))))" +"(if m_3((module-phase-level-linklet-info-callback m_3) phase-level_12 ns_21(module-inspector m_3)) #f)))))" "(define-values" "(namespace->module-instance70.1)" "(lambda(check-available-at-phase-level62_0" @@ -12923,21 +13298,21 @@ static const char *startup_source = "(let-values(((unavailable-callback_0)(if unavailable-callback66_0 unavailable-callback63_0 void)))" "(let-values()" "(let-values(((mi_0)" -"(let-values(((or-part_149)" +"(let-values(((or-part_155)" "(hash-ref" "(hash-ref(namespace-module-instances ns_22) 0-phase_1 '#hasheq())" " name_29" " #f)))" -"(if or-part_149" -" or-part_149" -"(let-values(((or-part_150)" +"(if or-part_155" +" or-part_155" +"(let-values(((or-part_156)" "(let-values(((c-ns_0)" -"(let-values(((or-part_113)" +"(let-values(((or-part_119)" "(namespace-root-namespace ns_22)))" -"(if or-part_113 or-part_113 ns_22))))" +"(if or-part_119 or-part_119 ns_22))))" "(hash-ref(namespace-module-instances c-ns_0) name_29 #f))))" -"(if or-part_150" -" or-part_150" +"(if or-part_156" +" or-part_156" "(if complain-on-failure?_0" " (error \"no module instance found:\" name_29 0-phase_1)" " #f)))))))" @@ -12996,7 +13371,7 @@ static const char *startup_source = "(namespace->definitions existing-m-ns_0 1))" "(hash-set!" "(namespace-module-instances" -"(let-values(((or-part_151)(namespace-root-namespace ns_23)))(if or-part_151 or-part_151 ns_23)))" +"(let-values(((or-part_157)(namespace-root-namespace ns_23)))(if or-part_157 or-part_157 ns_23)))" " name_30" " mi_1)" "(small-hash-set!(module-instance-phase-level-to-state mi_1) 0 'started)))" @@ -13015,10 +13390,10 @@ static const char *startup_source = "(small-hash-set!(module-instance-phase-level-to-state mi_1) 0 'started)" "(values))))" "(let-values(((at-phase_2)" -"(let-values(((or-part_152)" +"(let-values(((or-part_158)" "(hash-ref(namespace-module-instances ns_23) 0-phase_2 #f)))" -"(if or-part_152" -" or-part_152" +"(if or-part_158" +" or-part_158" "(let-values(((at-phase_3)(make-hasheq)))" "(begin" "(hash-set!(namespace-module-instances ns_23) 0-phase_2 at-phase_3)" @@ -13033,9 +13408,9 @@ static const char *startup_source = "(if(1/namespace? the-struct_40)" "(let-values(((mpi181_0) mpi_15)" "((source-name182_0)" -"(let-values(((or-part_153)(module-source-name m_5)))" -"(if or-part_153" -" or-part_153" +"(let-values(((or-part_159)(module-source-name m_5)))" +"(if or-part_159" +" or-part_159" "(resolved-module-path-root-name(1/module-path-index-resolve mpi_15)))))" "((root-expand-ctx183_0)(box #f))" "((phase184_0) 0-phase_3)" @@ -13067,9 +13442,9 @@ static const char *startup_source = "(if(module-cross-phase-persistent? m_5)" "(hash-set!(namespace-module-instances ns_24) name_31 mi_2)" "(let-values(((at-phase_4)" -"(let-values(((or-part_154)(hash-ref(namespace-module-instances ns_24) 0-phase_3 #f)))" -"(if or-part_154" -" or-part_154" +"(let-values(((or-part_160)(hash-ref(namespace-module-instances ns_24) 0-phase_3 #f)))" +"(if or-part_160" +" or-part_160" "(let-values(((at-phase_5)(make-hasheq)))" "(begin" "(hash-set!(namespace-module-instances ns_24) 0-phase_3 at-phase_5)" @@ -13181,7 +13556,7 @@ static const char *startup_source = "(begin" " 'instantiate!" "(let-values(((mi_6)" -"(let-values(((or-part_155)" +"(let-values(((or-part_161)" "(let-values(((ns205_0) ns_29)" "((name206_0) name_33)" "((instance-phase207_0)" @@ -13196,8 +13571,8 @@ static const char *startup_source = " ns205_0" " name206_0" " instance-phase207_0))))" -"(if or-part_155" -" or-part_155" +"(if or-part_161" +" or-part_161" "(namespace-create-module-instance!" " ns_29" " name_33" @@ -13221,8 +13596,8 @@ static const char *startup_source = "(instantiate!_0" " 0" " 0" -"(let-values(((or-part_156)(namespace-root-namespace ns_28)))" -"(if or-part_156 or-part_156 ns_28))))" +"(let-values(((or-part_162)(namespace-root-namespace ns_28)))" +"(if or-part_162 or-part_162 ns_28))))" "(let-values()(instantiate!_0 instance-phase_0 run-phase_0 ns_28)))))))))))))))))))" "(define-values" "(namespace-module-visit!104.1)" @@ -13286,17 +13661,17 @@ static const char *startup_source = "(let-values(((m-ns_5)(module-instance-namespace mi_7)))" "(let-values(((instance-phase_4)(namespace-0-phase m-ns_5)))" "(let-values(((run-phase-level_0)(phase- run-phase_2 instance-phase_4)))" -"(if(if(let-values(((or-part_157) skip-run?_1))" -"(if or-part_157" -" or-part_157" +"(if(if(let-values(((or-part_163) skip-run?_1))" +"(if or-part_163" +" or-part_163" "(eq?" " 'started" "(small-hash-ref" "(module-instance-phase-level-to-state mi_7)" " run-phase-level_0" " #f))))" -"(let-values(((or-part_158)(not otherwise-available?_1)))" -"(if or-part_158 or-part_158(module-instance-made-available? mi_7)))" +"(let-values(((or-part_164)(not otherwise-available?_1)))" +"(if or-part_164 or-part_164(module-instance-made-available? mi_7)))" " #f)" "(void)" "(let-values()" @@ -13320,7 +13695,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_56)))" -"((letrec-values(((for-loop_79)" +"((letrec-values(((for-loop_80)" "(lambda(fold-var_42 lst_57)" "(begin" " 'for-loop" @@ -13350,7 +13725,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_58)))" -"((letrec-values(((for-loop_80)" +"((letrec-values(((for-loop_81)" "(lambda(fold-var_46" " lst_59)" "(begin" @@ -13380,21 +13755,21 @@ static const char *startup_source = " fold-var_49)))))" "(if(not" " #f)" -"(for-loop_80" +"(for-loop_81" " fold-var_47" " rest_26)" " fold-var_47)))" " fold-var_46)))))" -" for-loop_80)" +" for-loop_81)" " null" " lst_58))))))" " fold-var_44))))" "(values fold-var_45)))))" "(if(not #f)" -"(for-loop_79 fold-var_43 rest_25)" +"(for-loop_80 fold-var_43 rest_25)" " fold-var_43)))" " fold-var_42)))))" -" for-loop_79)" +" for-loop_80)" " null" " lst_56)))))))" "(let-values(((lst_60)(module-instance-shifted-requires mi_7)))" @@ -13402,7 +13777,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_60)))" -"((letrec-values(((for-loop_81)" +"((letrec-values(((for-loop_82)" "(lambda(lst_61)" "(begin" " 'for-loop" @@ -13429,7 +13804,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_62)))" -"((letrec-values(((for-loop_82)" +"((letrec-values(((for-loop_83)" "(lambda(lst_63)" "(begin" " 'for-loop" @@ -13478,18 +13853,18 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_82" +"(for-loop_83" " rest_28)" "(values))))" "(values))))))" -" for-loop_82)" +" for-loop_83)" " lst_62)))" "(void))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_81 rest_27)(values))))" +"(if(not #f)(for-loop_82 rest_27)(values))))" "(values))))))" -" for-loop_81)" +" for-loop_82)" " lst_60)))" "(void)" "(if(label-phase? instance-phase_4)" @@ -13503,12 +13878,12 @@ 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_83)" +"((letrec-values(((for-loop_84)" "(lambda(pos_10)" "(begin" " 'for-loop" "(if(> pos_10 end_9)" -"(let-values(((phase-level_12) pos_10))" +"(let-values(((phase-level_13) pos_10))" "(let-values((()" "(let-values()" "(let-values((()" @@ -13517,7 +13892,7 @@ static const char *startup_source = "(let-values()" "(let-values(((phase_29)" "(phase+" -" phase-level_12" +" phase-level_13" " phase-shift_3)))" "(if(if(not" " skip-run?_1)" @@ -13531,7 +13906,7 @@ static const char *startup_source = "(small-hash-ref" "(module-instance-phase-level-to-state" " mi_7)" -" phase-level_12" +" phase-level_13" " #f))" "(void)" "(let-values()" @@ -13540,7 +13915,7 @@ static const char *startup_source = "(small-hash-set!" "(module-instance-phase-level-to-state" " mi_7)" -" phase-level_12" +" phase-level_13" " 'started)" "(values))))" "(let-values((()" @@ -13548,7 +13923,7 @@ static const char *startup_source = "(void" "(namespace->definitions" " m-ns_5" -" phase-level_12))" +" phase-level_13))" "(values))))" "(let-values(((p-ns_2)" "(namespace->namespace-at-phase" @@ -13578,7 +13953,7 @@ static const char *startup_source = " data-box_0" " p-ns_2" " phase-shift_3" -" phase-level_12" +" phase-level_13" " mpi_19" " bulk-binding-registry_3" " insp_5))))))))))))" @@ -13590,7 +13965,7 @@ static const char *startup_source = "(small-hash-ref" "(module-instance-phase-level-to-state" " mi_7)" -" phase-level_12" +" phase-level_13" " #f))" " #f)" " #f)" @@ -13608,16 +13983,16 @@ static const char *startup_source = "(small-hash-set!" "(module-instance-phase-level-to-state" " mi_7)" -" phase-level_12" +" phase-level_13" " 'available)))" "(void)))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_83(+ pos_10 inc_3))" +"(for-loop_84(+ pos_10 inc_3))" "(values))))" "(values))))))" -" for-loop_83)" +" for-loop_84)" " start_13)))" "(void))))" "(if otherwise-available?_1" @@ -13657,7 +14032,7 @@ static const char *startup_source = "(registry-call-with-lock" "(1/namespace-module-registry ns_36)" "(lambda()" -"((letrec-values(((loop_75)" +"((letrec-values(((loop_78)" "(lambda()" "(begin" " 'loop" @@ -13680,7 +14055,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_64)))" -"((letrec-values(((for-loop_84)" +"((letrec-values(((for-loop_85)" "(lambda(lst_65)" "(begin" " 'for-loop" @@ -13714,14 +14089,14 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_84 rest_29)" +"(for-loop_85 rest_29)" "(values))))" "(values))))))" -" for-loop_84)" +" for-loop_85)" " lst_64)))" "(void)" -"(loop_75)))))))))" -" loop_75)))))))))))))" +"(loop_78)))))))))" +" loop_78)))))))))))))" "(case-lambda" "((ns_37)(begin(namespace-run-available-modules!136_0 ns_37 #f #f)))" "((ns_38 run-phase133_1)(namespace-run-available-modules!136_0 ns_38 run-phase133_1 #t)))))" @@ -13788,7 +14163,7 @@ static const char *startup_source = "(let-values(((lst_66) requires_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_66)))" -"((letrec-values(((for-loop_85)" +"((letrec-values(((for-loop_86)" "(lambda(fold-var_50 lst_67)" "(begin" " 'for-loop" @@ -13809,7 +14184,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_68)))" -"((letrec-values(((for-loop_86)" +"((letrec-values(((for-loop_87)" "(lambda(fold-var_54" " lst_69)" "(begin" @@ -13834,19 +14209,19 @@ static const char *startup_source = "(values" " fold-var_57)))))" "(if(not #f)" -"(for-loop_86" +"(for-loop_87" " fold-var_55" " rest_31)" " fold-var_55)))" " fold-var_54)))))" -" for-loop_86)" +" for-loop_87)" " null" " lst_68))))))" " fold-var_52))))" "(values fold-var_53)))))" -"(if(not #f)(for-loop_85 fold-var_51 rest_30) fold-var_51)))" +"(if(not #f)(for-loop_86 fold-var_51 rest_30) fold-var_51)))" " fold-var_50)))))" -" for-loop_85)" +" for-loop_86)" " null" " lst_66)))))))" "(define-values" @@ -13854,27 +14229,27 @@ static const char *startup_source = "(lambda(m_10)" "(begin" "(let-values(((access_0)" -"(let-values(((ht_67)(module-provides m_10)))" +"(let-values(((ht_68)(module-provides m_10)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_67)))" -"((letrec-values(((for-loop_87)" -"(lambda(table_87 i_81)" +"(let-values()(check-in-hash ht_68)))" +"((letrec-values(((for-loop_88)" +"(lambda(table_90 i_82)" "(begin" " 'for-loop" -"(if i_81" +"(if i_82" "(let-values(((phase_30 at-phase_6)" -"(hash-iterate-key+value ht_67 i_81)))" -"(let-values(((table_88)" -"(let-values(((table_89) table_87))" -"(let-values(((table_90)" +"(hash-iterate-key+value ht_68 i_82)))" +"(let-values(((table_91)" +"(let-values(((table_92) table_90))" +"(let-values(((table_93)" "(let-values()" "(let-values(((key_38 val_31)" "(let-values()" "(values" " phase_30" -"(let-values(((ht_68)" +"(let-values(((ht_69)" " at-phase_6))" "(begin" "(if(variable-reference-from-unsafe?" @@ -13882,22 +14257,22 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_68)))" -"((letrec-values(((for-loop_88)" -"(lambda(table_91" -" i_82)" +" ht_69)))" +"((letrec-values(((for-loop_89)" +"(lambda(table_94" +" i_83)" "(begin" " 'for-loop" -"(if i_82" +"(if i_83" "(let-values(((sym_21" " binding/p_1)" "(hash-iterate-key+value" -" ht_68" -" i_82)))" -"(let-values(((table_92)" -"(let-values(((table_93)" -" table_91))" -"(let-values(((table_94)" +" ht_69" +" i_83)))" +"(let-values(((table_95)" +"(let-values(((table_96)" +" table_94))" +"(let-values(((table_97)" "(let-values()" "(let-values(((key_39" " val_32)" @@ -13911,36 +14286,36 @@ static const char *startup_source = " 'protected" " 'provided)))))" "(hash-set" -" table_93" +" table_96" " key_39" " val_32)))))" "(values" -" table_94)))))" +" table_97)))))" "(if(not" " #f)" -"(for-loop_88" -" table_92" +"(for-loop_89" +" table_95" "(hash-iterate-next" -" ht_68" -" i_82))" -" table_92)))" -" table_91)))))" -" for-loop_88)" +" ht_69" +" i_83))" +" table_95)))" +" table_94)))))" +" for-loop_89)" " '#hash()" "(hash-iterate-first" -" ht_68))))))))" +" ht_69))))))))" "(hash-set" -" table_89" +" table_92" " key_38" " val_31)))))" -"(values table_90)))))" +"(values table_93)))))" "(if(not #f)" -"(for-loop_87 table_88(hash-iterate-next ht_67 i_81))" -" table_88)))" -" table_87)))))" -" for-loop_87)" +"(for-loop_88 table_91(hash-iterate-next ht_68 i_82))" +" table_91)))" +" table_90)))))" +" for-loop_88)" " '#hasheqv()" -"(hash-iterate-first ht_67))))))" +"(hash-iterate-first ht_68))))))" "(begin(set-module-access! m_10 access_0) access_0)))))" "(define-values" "(binding->module-instance)" @@ -13995,23 +14370,23 @@ static const char *startup_source = "(if(if m_11(not(module-no-protected? m_11)) #f)" "(let-values()" "(let-values(((access_1)" -"(let-values(((or-part_27)(module-access m_11)))" -"(if or-part_27 or-part_27(module-compute-access! m_11)))))" -"(let-values(((a_35)" +"(let-values(((or-part_33)(module-access m_11)))" +"(if or-part_33 or-part_33(module-compute-access! m_11)))))" +"(let-values(((a_41)" "(hash-ref" "(hash-ref access_1(module-binding-phase b_41) '#hasheq())" "(module-binding-sym b_41)" " 'unexported)))" -"(if(let-values(((or-part_10)(eq? a_35 'unexported)))" -"(if or-part_10 or-part_10(eq? a_35 'protected)))" +"(if(let-values(((or-part_10)(eq? a_41 'unexported)))" +"(if or-part_10 or-part_10(eq? a_41 'protected)))" "(let-values()" -"(if(let-values(((or-part_159)" +"(if(let-values(((or-part_165)" "(inspector-superior?" "(let-values(((or-part_12)(syntax-inspector id_11)))" "(if or-part_12 or-part_12(current-code-inspector)))" "(namespace-inspector(module-instance-namespace mi_13)))))" -"(if or-part_159" -" or-part_159" +"(if or-part_165" +" or-part_165" "(if(module-binding-extra-inspector b_41)" "(inspector-superior?" "(module-binding-extra-inspector b_41)" @@ -14033,7 +14408,7 @@ static const char *startup_source = " #f" "(format" " \"access disallowed by code inspector to ~a ~a\\n from module: ~a\"" -" a_35" +" a_41" " what_0" "(1/module-path-index-resolve(namespace-mpi(module-instance-namespace mi_13))))" " complain-id_0" @@ -14045,7 +14420,7 @@ static const char *startup_source = "(resolve+shift/extra-inspector)" "(lambda(id_12 phase_32 ns_42)" "(begin" -"((letrec-values(((loop_76)" +"((letrec-values(((loop_79)" "(lambda(id_13 in-s_1)" "(begin" " 'loop" @@ -14072,10 +14447,10 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((next-b_0)" -"(loop_76" +"(loop_79" " next-id_0" -"(let-values(((or-part_160) in-s_1))" -"(if or-part_160 or-part_160 id_13)))))" +"(let-values(((or-part_166) in-s_1))" +"(if or-part_166 or-part_166 id_13)))))" "(if(not next-b_0)" "(let-values() b_58)" "(if(if(module-binding? next-b_0)" @@ -14112,22 +14487,22 @@ static const char *startup_source = "(let-values() next-b_0))))))" " c1_22)" "(let-values() b_58))))))))" -" loop_76)" +" loop_79)" " id_12" " #f))))" "(define-values" "(1/prop:set!-transformer 1/set!-transformer? set!-transformer-value)" "(make-struct-type-property" " 'set!-transformer" -"(lambda(v_26 info_1)" +"(lambda(v_29 info_1)" "(let-values((()" "(begin" "(if(let-values(((or-part_11)" -"(if(procedure? v_26)" -"(let-values(((or-part_2)(procedure-arity-includes? v_26 1)))" -"(if or-part_2 or-part_2(procedure-arity-includes? v_26 2)))" +"(if(procedure? v_29)" +"(let-values(((or-part_2)(procedure-arity-includes? v_29 1)))" +"(if or-part_2 or-part_2(procedure-arity-includes? v_29 2)))" " #f)))" -"(if or-part_11 or-part_11(exact-nonnegative-integer? v_26)))" +"(if or-part_11 or-part_11(exact-nonnegative-integer? v_29)))" "(void)" "(let-values()" "(raise-argument-error" @@ -14136,42 +14511,42 @@ static const char *startup_source = " \"(or/c (procedure-arity-includes? proc 1)\\n\"" " \" (procedure-arity-includes? proc 2)\\n\"" " \" exact-nonnegative-integer?)\")" -" v_26)))" +" v_29)))" "(values))))" "(let-values((()" "(begin" -"(if(exact-nonnegative-integer? v_26)" +"(if(exact-nonnegative-integer? v_29)" "(let-values()" "(begin" -"(if(<= v_26(list-ref info_1 1))" +"(if(<= v_29(list-ref info_1 1))" "(void)" "(let-values()" "(raise-arguments-error" " 'guard-for-prop:set!-transformer" " \"field index >= initialized-field count for structure type\"" " \"field index\"" -" v_26" +" v_29" " \"initialized-field count\"" "(list-ref info_1 1))))" -"(if(member v_26(list-ref info_1 5))" +"(if(member v_29(list-ref info_1 5))" "(void)" "(let-values()" "(raise-arguments-error" " 'guard-for-prop:set!-transformer" " \"field index not declared immutable\"" " \"field index\"" -" v_26)))))" +" v_29)))))" "(void))" "(values))))" "(let-values(((ref_0)(list-ref info_1 3)))" -"(if(integer? v_26)" +"(if(integer? v_29)" "(let-values()" "(lambda(t_33)" -"(let-values(((p_30)(ref_0 t_33 v_26)))" -"(if(if(procedure? p_30)(procedure-arity-includes? p_30 1) #f)" -" p_30" +"(let-values(((p_34)(ref_0 t_33 v_29)))" +"(if(if(procedure? p_34)(procedure-arity-includes? p_34 1) #f)" +" p_34" " (lambda (s_3) (error \"bad syntax:\" s_3))))))" -"(let-values()(lambda(t_13) v_26)))))))))" +"(let-values()(lambda(t_13) v_29)))))))))" "(define-values" "(1/make-set!-transformer)" "(let-values()" @@ -14192,21 +14567,21 @@ static const char *startup_source = " #f" " 'set!-transformer)))))" "(values struct:_38 make-_38 ?_38(make-struct-field-accessor -ref_38 0 'proc)))))" -"(lambda(proc_3)" +"(lambda(proc_5)" "(begin" " 'make-set!-transformer" "(begin" -"(if(if(procedure? proc_3)(procedure-arity-includes? proc_3 1) #f)" +"(if(if(procedure? proc_5)(procedure-arity-includes? proc_5 1) #f)" "(void)" -" (let-values () (raise-argument-error 'make-set!-transformer \"(procedure-arity-includes/c 1)\" proc_3)))" -"(set!-transformer1_0 proc_3)))))))" +" (let-values () (raise-argument-error 'make-set!-transformer \"(procedure-arity-includes/c 1)\" proc_5)))" +"(set!-transformer1_0 proc_5)))))))" "(define-values" "(1/set!-transformer-procedure)" "(lambda(t_36)" "(begin" " 'set!-transformer-procedure" -"(let-values(((v_94)((set!-transformer-value t_36) t_36)))" -"(if(procedure-arity-includes? v_94 1) v_94(lambda(s_160)(v_94 t_36 s_160)))))))" +"(let-values(((v_96)((set!-transformer-value t_36) t_36)))" +"(if(procedure-arity-includes? v_96 1) v_96(lambda(s_160)(v_96 t_36 s_160)))))))" "(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))" @@ -14252,11 +14627,11 @@ static const char *startup_source = "(transformer?)" "(lambda(t_38)" "(begin" -"(let-values(((or-part_21)(procedure? t_38)))" -"(if or-part_21" -" or-part_21" -"(let-values(((or-part_161)(1/set!-transformer? t_38)))" -"(if or-part_161 or-part_161(1/rename-transformer? t_38))))))))" +"(let-values(((or-part_27)(procedure? t_38)))" +"(if or-part_27" +" or-part_27" +"(let-values(((or-part_167)(1/set!-transformer? t_38)))" +"(if or-part_167 or-part_167(1/rename-transformer? t_38))))))))" "(define-values" "(transformer->procedure)" "(lambda(t_18)" @@ -14367,7 +14742,7 @@ static const char *startup_source = "(let-values(((b_59) b42_0))" "(let-values(((env_1) env43_0))" "(let-values(((lift-envs_0) lift-envs44_0))" -"(let-values(((ns_14) ns45_0))" +"(let-values(((ns_43) ns45_0))" "(let-values(((phase_36) phase46_0))" "(let-values(((id_18) id47_0))" "(let-values(((in-s_6)(if in40_0 in38_0 #f)))" @@ -14379,13 +14754,13 @@ static const char *startup_source = "(let-values(((top-level?_0)(top-level-module-path-index?(module-binding-module b_59))))" "(let-values(((mi_15)" "(if(not top-level?_0)" -"(binding->module-instance b_59 ns_14 phase_36 id_18)" +"(binding->module-instance b_59 ns_43 phase_36 id_18)" " #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_14" +" ns_43" "(if mi_15(module-instance-namespace mi_15) #f))))" "(let-values((()(begin(check-taint id_18)(values))))" "(let-values(((t_39)" @@ -14419,13 +14794,13 @@ static const char *startup_source = "(if(eq? t_40 missing)" "(let-values()" "(values" -"(let-values(((or-part_95)" +"(let-values(((or-part_101)" "(let-values(((lst_70) lift-envs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_70)))" -"((letrec-values(((for-loop_89)" +"((letrec-values(((for-loop_90)" "(lambda(result_57 lst_32)" "(begin" " 'for-loop" @@ -14452,14 +14827,14 @@ static const char *startup_source = " lift-env_0))" "(not #f)" " #f)" -"(for-loop_89 result_58 rest_32)" +"(for-loop_90 result_58 rest_32)" " result_58)))" " result_57)))))" -" for-loop_89)" +" for-loop_90)" " #f" " lst_70)))))" -"(if or-part_95" -" or-part_95" +"(if or-part_101" +" or-part_101" "(if out-of-context-as-variable?_0" " variable" " (error \"identifier used out of context:\" id_18))))" @@ -14474,7 +14849,7 @@ static const char *startup_source = "(if(syntax-tainted?$1 id_19)" " (let-values () (raise-syntax-error$1 #f \"cannot use identifier tainted by macro transformation\" id_19))" "(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_42 b_60)(begin(if(null? b_60) a_42(cons a_42 b_60)))))" "(define-values" "(free-id-set)" "(lambda(phase_37 ids_0)" @@ -14482,30 +14857,30 @@ static const char *startup_source = "(let-values(((lst_71) ids_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_71)))" -"((letrec-values(((for-loop_90)" -"(lambda(ht_69 lst_72)" +"((letrec-values(((for-loop_91)" +"(lambda(ht_70 lst_72)" "(begin" " 'for-loop" "(if(pair? lst_72)" "(let-values(((id_20)(unsafe-car lst_72))((rest_33)(unsafe-cdr lst_72)))" -"(let-values(((ht_70)" -"(let-values(((ht_71) ht_69))" -"(let-values(((ht_72)" +"(let-values(((ht_71)" +"(let-values(((ht_72) ht_70))" +"(let-values(((ht_73)" "(let-values()" "(let-values(((sym_22)" "(identifier-binding-symbol$1" " id_20" " phase_37)))" "(hash-set" -" ht_71" +" ht_72" " sym_22" "(cons-ish" " id_20" -"(hash-ref ht_71 sym_22 null)))))))" -"(values ht_72)))))" -"(if(not #f)(for-loop_90 ht_70 rest_33) ht_70)))" -" ht_69)))))" -" for-loop_90)" +"(hash-ref ht_72 sym_22 null)))))))" +"(values ht_73)))))" +"(if(not #f)(for-loop_91 ht_71 rest_33) ht_71)))" +" ht_70)))))" +" for-loop_91)" " '#hasheq()" " lst_71))))))" "(define-values(empty-free-id-set)(free-id-set 0 null))" @@ -14519,7 +14894,7 @@ static const char *startup_source = "(let-values(((lst_73)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_15) null)))" "(begin" "(void)" -"((letrec-values(((for-loop_91)" +"((letrec-values(((for-loop_92)" "(lambda(result_3 lst_74)" "(begin" " 'for-loop" @@ -14538,10 +14913,10 @@ static const char *startup_source = " phase_15)))))" "(values result_61)))))" "(if(if(not((lambda x_41 result_60) id_21))(not #f) #f)" -"(for-loop_91 result_60 rest_34)" +"(for-loop_92 result_60 rest_34)" " result_60)))" " result_3)))))" -" for-loop_91)" +" for-loop_92)" " #f" " lst_73)))))))" "(define-values" @@ -14562,7 +14937,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:_39 make-_39 ?_39 -ref_39 -set!_39)" +"(let-values(((struct:_33 make-_33 ?_33 -ref_33 -set!_33)" "(let-values()" "(let-values()" "(make-struct-type" @@ -14578,20 +14953,20 @@ static const char *startup_source = " #f" " 'expand-context/outer)))))" "(values" -" struct:_39" -" make-_39" -" ?_39" -"(make-struct-field-accessor -ref_39 0 'context)" -"(make-struct-field-accessor -ref_39 1 'env)" -"(make-struct-field-accessor -ref_39 2 'post-expansion-scope-action)" -"(make-struct-field-accessor -ref_39 3 'scopes)" -"(make-struct-field-accessor -ref_39 4 'def-ctx-scopes)" -"(make-struct-field-accessor -ref_39 5 'binding-layer)" -"(make-struct-field-accessor -ref_39 6 'reference-records)" -"(make-struct-field-accessor -ref_39 7 'only-immediate?)" -"(make-struct-field-accessor -ref_39 8 'need-eventually-defined)" -"(make-struct-field-accessor -ref_39 9 'current-introduction-scopes)" -"(make-struct-field-accessor -ref_39 10 'name))))" +" 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))))" "(define-values" "(struct:expand-context/inner" " expand-context/inner2.1" @@ -14614,7 +14989,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:_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" @@ -14630,30 +15005,31 @@ static const char *startup_source = " #f" " 'expand-context/inner)))))" "(values" -" struct:_40" -" make-_40" -" ?_40" -"(make-struct-field-accessor -ref_40 0 'to-parsed?)" -"(make-struct-field-accessor -ref_40 1 'phase)" -"(make-struct-field-accessor -ref_40 2 'namespace)" -"(make-struct-field-accessor -ref_40 3 'just-once?)" -"(make-struct-field-accessor -ref_40 4 'module-begin-k)" -"(make-struct-field-accessor -ref_40 5 'allow-unbound?)" -"(make-struct-field-accessor -ref_40 6 'in-local-expand?)" -"(make-struct-field-accessor -ref_40 7 'stops)" -"(make-struct-field-accessor -ref_40 8 'declared-submodule-names)" -"(make-struct-field-accessor -ref_40 9 'lifts)" -"(make-struct-field-accessor -ref_40 10 'lift-envs)" -"(make-struct-field-accessor -ref_40 11 'module-lifts)" -"(make-struct-field-accessor -ref_40 12 'require-lifts)" -"(make-struct-field-accessor -ref_40 13 'to-module-lifts)" -"(make-struct-field-accessor -ref_40 14 'requires+provides)" -"(make-struct-field-accessor -ref_40 15 'observer)" -"(make-struct-field-accessor -ref_40 16 'for-serializable?)" -"(make-struct-field-accessor -ref_40 17 'should-not-encounter-macros?))))" +" 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?))))" "(define-values" "(expand-context/make)" -"(lambda(module-scopes_2" +"(lambda(self-mpi_2" +" module-scopes_2" " post-expansion-scope_2" " top-level-bind-scope_1" " all-scopes-stx_2" @@ -14694,6 +15070,7 @@ static const char *startup_source = "(begin" "(expand-context/outer1.1" "(expand-context/inner2.1" +" self-mpi_2" " module-scopes_2" " top-level-bind-scope_1" " all-scopes-stx_2" @@ -14732,91 +15109,92 @@ static const char *startup_source = " need-eventually-defined_0" " current-introduction-scopes_0" " name_35))))" -"(define-values(expand-context-context)(lambda(v_95)(begin(expand-context/outer-context v_95))))" -"(define-values(expand-context-env)(lambda(v_96)(begin(expand-context/outer-env v_96))))" +"(define-values(expand-context-context)(lambda(v_97)(begin(expand-context/outer-context v_97))))" +"(define-values(expand-context-env)(lambda(v_98)(begin(expand-context/outer-env v_98))))" "(define-values" "(expand-context-post-expansion-scope-action)" -"(lambda(v_97)(begin(expand-context/outer-post-expansion-scope-action v_97))))" -"(define-values(expand-context-scopes)(lambda(v_98)(begin(expand-context/outer-scopes v_98))))" -"(define-values(expand-context-def-ctx-scopes)(lambda(v_99)(begin(expand-context/outer-def-ctx-scopes v_99))))" -"(define-values(expand-context-binding-layer)(lambda(v_100)(begin(expand-context/outer-binding-layer v_100))))" +"(lambda(v_99)(begin(expand-context/outer-post-expansion-scope-action v_99))))" +"(define-values(expand-context-scopes)(lambda(v_100)(begin(expand-context/outer-scopes v_100))))" +"(define-values(expand-context-def-ctx-scopes)(lambda(v_101)(begin(expand-context/outer-def-ctx-scopes v_101))))" +"(define-values(expand-context-binding-layer)(lambda(v_102)(begin(expand-context/outer-binding-layer v_102))))" "(define-values" "(expand-context-reference-records)" -"(lambda(v_101)(begin(expand-context/outer-reference-records v_101))))" -"(define-values(expand-context-only-immediate?)(lambda(v_102)(begin(expand-context/outer-only-immediate? v_102))))" +"(lambda(v_103)(begin(expand-context/outer-reference-records v_103))))" +"(define-values(expand-context-only-immediate?)(lambda(v_104)(begin(expand-context/outer-only-immediate? v_104))))" "(define-values" "(expand-context-need-eventually-defined)" -"(lambda(v_103)(begin(expand-context/outer-need-eventually-defined v_103))))" +"(lambda(v_105)(begin(expand-context/outer-need-eventually-defined v_105))))" "(define-values" "(expand-context-current-introduction-scopes)" -"(lambda(v_104)(begin(expand-context/outer-current-introduction-scopes v_104))))" -"(define-values(expand-context-name)(lambda(v_105)(begin(expand-context/outer-name v_105))))" +"(lambda(v_106)(begin(expand-context/outer-current-introduction-scopes v_106))))" +"(define-values(expand-context-name)(lambda(v_107)(begin(expand-context/outer-name v_107))))" "(define-values" "(expand-context-to-parsed?)" -"(lambda(v_106)(begin(expand-context/inner-to-parsed?(root-expand-context/outer-inner v_106)))))" +"(lambda(v_108)(begin(expand-context/inner-to-parsed?(root-expand-context/outer-inner v_108)))))" "(define-values" "(expand-context-phase)" -"(lambda(v_107)(begin(expand-context/inner-phase(root-expand-context/outer-inner v_107)))))" +"(lambda(v_109)(begin(expand-context/inner-phase(root-expand-context/outer-inner v_109)))))" "(define-values" "(expand-context-namespace)" -"(lambda(v_108)(begin(expand-context/inner-namespace(root-expand-context/outer-inner v_108)))))" +"(lambda(v_110)(begin(expand-context/inner-namespace(root-expand-context/outer-inner v_110)))))" "(define-values" "(expand-context-just-once?)" -"(lambda(v_109)(begin(expand-context/inner-just-once?(root-expand-context/outer-inner v_109)))))" +"(lambda(v_111)(begin(expand-context/inner-just-once?(root-expand-context/outer-inner v_111)))))" "(define-values" "(expand-context-module-begin-k)" -"(lambda(v_110)(begin(expand-context/inner-module-begin-k(root-expand-context/outer-inner v_110)))))" +"(lambda(v_112)(begin(expand-context/inner-module-begin-k(root-expand-context/outer-inner v_112)))))" "(define-values" "(expand-context-allow-unbound?)" -"(lambda(v_111)(begin(expand-context/inner-allow-unbound?(root-expand-context/outer-inner v_111)))))" +"(lambda(v_113)(begin(expand-context/inner-allow-unbound?(root-expand-context/outer-inner v_113)))))" "(define-values" "(expand-context-in-local-expand?)" -"(lambda(v_112)(begin(expand-context/inner-in-local-expand?(root-expand-context/outer-inner v_112)))))" +"(lambda(v_114)(begin(expand-context/inner-in-local-expand?(root-expand-context/outer-inner v_114)))))" "(define-values" "(expand-context-stops)" -"(lambda(v_113)(begin(expand-context/inner-stops(root-expand-context/outer-inner v_113)))))" +"(lambda(v_115)(begin(expand-context/inner-stops(root-expand-context/outer-inner v_115)))))" "(define-values" "(expand-context-declared-submodule-names)" -"(lambda(v_114)(begin(expand-context/inner-declared-submodule-names(root-expand-context/outer-inner v_114)))))" +"(lambda(v_116)(begin(expand-context/inner-declared-submodule-names(root-expand-context/outer-inner v_116)))))" "(define-values" "(expand-context-lifts)" -"(lambda(v_115)(begin(expand-context/inner-lifts(root-expand-context/outer-inner v_115)))))" +"(lambda(v_117)(begin(expand-context/inner-lifts(root-expand-context/outer-inner v_117)))))" "(define-values" "(expand-context-lift-envs)" -"(lambda(v_116)(begin(expand-context/inner-lift-envs(root-expand-context/outer-inner v_116)))))" +"(lambda(v_118)(begin(expand-context/inner-lift-envs(root-expand-context/outer-inner v_118)))))" "(define-values" "(expand-context-module-lifts)" -"(lambda(v_117)(begin(expand-context/inner-module-lifts(root-expand-context/outer-inner v_117)))))" +"(lambda(v_119)(begin(expand-context/inner-module-lifts(root-expand-context/outer-inner v_119)))))" "(define-values" "(expand-context-require-lifts)" -"(lambda(v_118)(begin(expand-context/inner-require-lifts(root-expand-context/outer-inner v_118)))))" +"(lambda(v_120)(begin(expand-context/inner-require-lifts(root-expand-context/outer-inner v_120)))))" "(define-values" "(expand-context-to-module-lifts)" -"(lambda(v_119)(begin(expand-context/inner-to-module-lifts(root-expand-context/outer-inner v_119)))))" +"(lambda(v_121)(begin(expand-context/inner-to-module-lifts(root-expand-context/outer-inner v_121)))))" "(define-values" "(expand-context-requires+provides)" -"(lambda(v_120)(begin(expand-context/inner-requires+provides(root-expand-context/outer-inner v_120)))))" +"(lambda(v_122)(begin(expand-context/inner-requires+provides(root-expand-context/outer-inner v_122)))))" "(define-values" "(expand-context-observer)" -"(lambda(v_121)(begin(expand-context/inner-observer(root-expand-context/outer-inner v_121)))))" +"(lambda(v_123)(begin(expand-context/inner-observer(root-expand-context/outer-inner v_123)))))" "(define-values" "(expand-context-for-serializable?)" -"(lambda(v_122)(begin(expand-context/inner-for-serializable?(root-expand-context/outer-inner v_122)))))" +"(lambda(v_124)(begin(expand-context/inner-for-serializable?(root-expand-context/outer-inner v_124)))))" "(define-values" "(expand-context-should-not-encounter-macros?)" -"(lambda(v_123)(begin(expand-context/inner-should-not-encounter-macros?(root-expand-context/outer-inner v_123)))))" +"(lambda(v_125)(begin(expand-context/inner-should-not-encounter-macros?(root-expand-context/outer-inner v_125)))))" "(define-values" "(make-expand-context10.1)" "(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_43) ns9_0))" +"(let-values(((ns_44) 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_43)))" +"(let-values(((root-ctx_1)(namespace-get-root-expand-ctx ns_44)))" "(expand-context/make" +"(root-expand-context-self-mpi root-ctx_1)" "(root-expand-context-module-scopes root-ctx_1)" "(root-expand-context-post-expansion-scope root-ctx_1)" "(root-expand-context-top-level-bind-scope root-ctx_1)" @@ -14828,8 +15206,8 @@ static const char *startup_source = "(root-expand-context-lift-key root-ctx_1)" " to-parsed?_1" " 'top-level" -"(namespace-phase ns_43)" -" ns_43" +"(namespace-phase ns_44)" +" ns_44" " empty-env" " push-scope" " null" @@ -14859,30 +15237,32 @@ static const char *startup_source = "(copy-root-expand-context)" "(lambda(ctx_1 root-ctx_2)" "(begin" -"(let-values(((v_124) ctx_1))" -"(let-values(((the-struct_41) v_124))" +"(let-values(((v_126) ctx_1))" +"(let-values(((the-struct_41) v_126))" "(if(expand-context/outer? the-struct_41)" "(let-values(((post-expansion-scope28_0)(root-expand-context-post-expansion-scope root-ctx_2))" "((use-site-scopes29_0)(root-expand-context-use-site-scopes root-ctx_2))" "((frame-id30_1)(root-expand-context-frame-id root-ctx_2))" "((binding-layer31_0)(root-expand-context-frame-id root-ctx_2))" "((inner32_0)" -"(let-values(((the-struct_42)(root-expand-context/outer-inner v_124)))" +"(let-values(((the-struct_42)(root-expand-context/outer-inner v_126)))" "(if(expand-context/inner? the-struct_42)" -"(let-values(((module-scopes33_0)(root-expand-context-module-scopes root-ctx_2))" -"((top-level-bind-scope34_0)" +"(let-values(((self-mpi33_0)(root-expand-context-self-mpi root-ctx_2))" +"((module-scopes34_0)(root-expand-context-module-scopes root-ctx_2))" +"((top-level-bind-scope35_0)" "(root-expand-context-top-level-bind-scope root-ctx_2))" -"((all-scopes-stx35_0)(root-expand-context-all-scopes-stx root-ctx_2))" -"((defined-syms36_0)(root-expand-context-defined-syms root-ctx_2))" -"((counter37_0)(root-expand-context-counter root-ctx_2))" -"((lift-key38_0)(root-expand-context-lift-key root-ctx_2)))" +"((all-scopes-stx36_0)(root-expand-context-all-scopes-stx root-ctx_2))" +"((defined-syms37_0)(root-expand-context-defined-syms root-ctx_2))" +"((counter38_0)(root-expand-context-counter root-ctx_2))" +"((lift-key39_0)(root-expand-context-lift-key root-ctx_2)))" "(expand-context/inner2.1" -" module-scopes33_0" -" top-level-bind-scope34_0" -" all-scopes-stx35_0" -" defined-syms36_0" -" counter37_0" -" lift-key38_0" +" self-mpi33_0" +" module-scopes34_0" +" top-level-bind-scope35_0" +" all-scopes-stx36_0" +" defined-syms37_0" +" counter38_0" +" lift-key39_0" "(expand-context/inner-to-parsed? the-struct_42)" "(expand-context/inner-phase the-struct_42)" "(expand-context/inner-namespace the-struct_42)" @@ -14928,22 +15308,22 @@ static const char *startup_source = "(let-values(((who_9)(if who16_0 who15_0 'unexpected)))" "(let-values(((fail-ok?_0)(if fail-ok?14_0 fail-ok?13_0 #f)))" "(let-values()" -"(let-values(((or-part_162)(force(current-expand-context))))" -"(if or-part_162" -" or-part_162" +"(let-values(((or-part_168)(force(current-expand-context))))" +"(if or-part_168" +" or-part_168" " (if fail-ok?_0 #f (raise-arguments-error who_9 \"not currently expanding\"))))))))))" "(define-values" "(current-expand-observe)" "(make-parameter" " #f" -"(lambda(v_125)" +"(lambda(v_127)" "(begin" -"(if(let-values(((or-part_163)(not v_125)))" -"(if or-part_163 or-part_163(if(procedure? v_125)(procedure-arity-includes? v_125 2) #f)))" +"(if(let-values(((or-part_169)(not v_127)))" +"(if or-part_169 or-part_169(if(procedure? v_127)(procedure-arity-includes? v_127 2) #f)))" "(void)" "(let-values()" -" (raise-argument-error 'current-expand-observe \"(or/c (procedure-arity-includes/c 2) #f)\" v_125)))" -" v_125))))" +" (raise-argument-error 'current-expand-observe \"(or/c (procedure-arity-includes/c 2) #f)\" v_127)))" +" v_127))))" "(define-values" "(as-expression-context)" "(lambda(ctx_2)" @@ -14951,19 +15331,19 @@ static const char *startup_source = "(if(if(eq? 'expression(expand-context-context ctx_2))(not(expand-context-name ctx_2)) #f)" "(let-values() ctx_2)" "(let-values()" -"(let-values(((v_126) ctx_2))" -"(let-values(((the-struct_43) v_126))" +"(let-values(((v_128) ctx_2))" +"(let-values(((the-struct_43) v_128))" "(if(expand-context/outer? the-struct_43)" -"(let-values(((context39_0) 'expression)" -"((name40_0) #f)" -"((post-expansion-scope41_0) #f)" -"((inner42_0)(root-expand-context/outer-inner v_126)))" +"(let-values(((context40_0) 'expression)" +"((name41_0) #f)" +"((post-expansion-scope42_0) #f)" +"((inner43_0)(root-expand-context/outer-inner v_128)))" "(expand-context/outer1.1" -" inner42_0" -" post-expansion-scope41_0" +" inner43_0" +" post-expansion-scope42_0" "(root-expand-context/outer-use-site-scopes the-struct_43)" "(root-expand-context/outer-frame-id the-struct_43)" -" context39_0" +" context40_0" "(expand-context/outer-env the-struct_43)" "(expand-context/outer-post-expansion-scope-action the-struct_43)" "(expand-context/outer-scopes the-struct_43)" @@ -14973,7 +15353,7 @@ static const char *startup_source = "(expand-context/outer-only-immediate? the-struct_43)" "(expand-context/outer-need-eventually-defined the-struct_43)" "(expand-context/outer-current-introduction-scopes the-struct_43)" -" name40_0))" +" name41_0))" " (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_43)))))))))" "(define-values" "(as-begin-expression-context)" @@ -14982,12 +15362,12 @@ static const char *startup_source = "(if(not(expand-context-name ctx_3))" "(let-values() ctx_3)" "(let-values()" -"(let-values(((v_127) ctx_3))" -"(let-values(((the-struct_44) v_127))" +"(let-values(((v_129) ctx_3))" +"(let-values(((the-struct_44) v_129))" "(if(expand-context/outer? the-struct_44)" -"(let-values(((name43_0) #f)((inner44_0)(root-expand-context/outer-inner v_127)))" +"(let-values(((name44_0) #f)((inner45_0)(root-expand-context/outer-inner v_129)))" "(expand-context/outer1.1" -" inner44_0" +" inner45_0" "(root-expand-context/outer-post-expansion-scope the-struct_44)" "(root-expand-context/outer-use-site-scopes the-struct_44)" "(root-expand-context/outer-frame-id the-struct_44)" @@ -15001,7 +15381,7 @@ static const char *startup_source = "(expand-context/outer-only-immediate? the-struct_44)" "(expand-context/outer-need-eventually-defined the-struct_44)" "(expand-context/outer-current-introduction-scopes the-struct_44)" -" name43_0))" +" name44_0))" " (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_44)))))))))" "(define-values" "(as-tail-context23.1)" @@ -15013,13 +15393,13 @@ static const char *startup_source = "(let-values()" "(if(expand-context-name wrt-ctx_0)" "(let-values()" -"(let-values(((v_128) ctx_4))" -"(let-values(((the-struct_45) v_128))" +"(let-values(((v_130) ctx_4))" +"(let-values(((the-struct_45) v_130))" "(if(expand-context/outer? the-struct_45)" -"(let-values(((name45_0)(expand-context-name wrt-ctx_0))" -"((inner46_0)(root-expand-context/outer-inner v_128)))" +"(let-values(((name46_0)(expand-context-name wrt-ctx_0))" +"((inner47_0)(root-expand-context/outer-inner v_130)))" "(expand-context/outer1.1" -" inner46_0" +" inner47_0" "(root-expand-context/outer-post-expansion-scope the-struct_45)" "(root-expand-context/outer-use-site-scopes the-struct_45)" "(root-expand-context/outer-frame-id the-struct_45)" @@ -15033,7 +15413,7 @@ static const char *startup_source = "(expand-context/outer-only-immediate? the-struct_45)" "(expand-context/outer-need-eventually-defined the-struct_45)" "(expand-context/outer-current-introduction-scopes the-struct_45)" -" name45_0))" +" name46_0))" " (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_45)))))" "(let-values() ctx_4))))))))" "(define-values" @@ -15042,12 +15422,12 @@ static const char *startup_source = "(begin" "(if(if(pair? ids_1)(null?(cdr ids_1)) #f)" "(let-values()" -"(let-values(((v_129) ctx_5))" -"(let-values(((the-struct_46) v_129))" +"(let-values(((v_131) ctx_5))" +"(let-values(((the-struct_46) v_131))" "(if(expand-context/outer? the-struct_46)" -"(let-values(((name47_0)(car ids_1))((inner48_0)(root-expand-context/outer-inner v_129)))" +"(let-values(((name48_0)(car ids_1))((inner49_0)(root-expand-context/outer-inner v_131)))" "(expand-context/outer1.1" -" inner48_0" +" inner49_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)" @@ -15061,30 +15441,31 @@ 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)" -" name47_0))" +" 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_130) ctx_6))" -"(let-values(((the-struct_47) v_130))" +"(let-values(((v_132) ctx_6))" +"(let-values(((the-struct_47) v_132))" "(if(expand-context/outer? the-struct_47)" -"(let-values(((inner49_0)" -"(let-values(((the-struct_48)(root-expand-context/outer-inner v_130)))" +"(let-values(((inner50_0)" +"(let-values(((the-struct_48)(root-expand-context/outer-inner v_132)))" "(if(expand-context/inner? the-struct_48)" -"(let-values(((to-parsed?50_0) #t)" -"((observer51_0) #f)" -"((should-not-encounter-macros?52_0) #t))" +"(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?50_0" +" 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)" @@ -15099,12 +15480,12 @@ static const char *startup_source = "(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)" -" observer51_0" +" observer52_0" "(expand-context/inner-for-serializable? the-struct_48)" -" should-not-encounter-macros?52_0))" +" should-not-encounter-macros?53_0))" " (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_48)))))" "(expand-context/outer1.1" -" inner49_0" +" 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)" @@ -15149,9 +15530,9 @@ static const char *startup_source = "(begin(hash-set! id-cache-0 sym_8 s_147) s_147)))))" "(if(eq? phase_32 1)" "(let-values()" -"(let-values(((or-part_28)(hash-ref id-cache-1 sym_8 #f)))" -"(if or-part_28" -" or-part_28" +"(let-values(((or-part_34)(hash-ref id-cache-1 sym_8 #f)))" +"(if or-part_34" +" or-part_34" "(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)))))))" @@ -15159,8 +15540,8 @@ static const char *startup_source = "(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_23 proc_6)" +"(begin(begin(add-core-binding! sym_23)(set! core-forms(hash-set core-forms sym_23 proc_6))))))" "(define-values" "(add-core-primitive!)" "(lambda(sym_13 val_33)" @@ -15198,9 +15579,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_44)" +"(lambda(ns_45)" "(begin" -"(let-values(((ns7_0) ns_44)" +"(let-values(((ns7_0) ns_45)" "((temp8_0)" "(let-values(((temp10_0) #t)" "((temp11_0) #t)" @@ -15217,8 +15598,8 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_76)))" -"((letrec-values(((for-loop_92)" -"(lambda(table_95 lst_77 lst_78)" +"((letrec-values(((for-loop_93)" +"(lambda(table_98 lst_77 lst_78)" "(begin" " 'for-loop" "(if(if(pair? lst_77)(pair? lst_78) #f)" @@ -15226,29 +15607,29 @@ static const char *startup_source = "((rest_35)(unsafe-cdr lst_77))" "((syntax?_2)(unsafe-car lst_78))" "((rest_36)(unsafe-cdr lst_78)))" -"(let-values(((table_96)" -"(let-values(((table_97) table_95))" -"(let-values(((ht_73) syms_12))" +"(let-values(((table_99)" +"(let-values(((table_100) table_98))" +"(let-values(((ht_74) syms_12))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash-keys ht_73)))" -"((letrec-values(((for-loop_93)" -"(lambda(table_98" -" i_83)" +"(check-in-hash-keys ht_74)))" +"((letrec-values(((for-loop_94)" +"(lambda(table_101" +" i_84)" "(begin" " 'for-loop" -"(if i_83" +"(if i_84" "(let-values(((sym_10)" "(hash-iterate-key" -" ht_73" -" i_83)))" -"(let-values(((table_99)" -"(let-values(((table_100)" -" table_98))" -"(let-values(((table_101)" +" ht_74" +" i_84)))" +"(let-values(((table_102)" +"(let-values(((table_103)" +" table_101))" +"(let-values(((table_104)" "(let-values()" "(let-values(((key_33" " val_34)" @@ -15256,7 +15637,7 @@ static const char *startup_source = "(let-values(((b_61)" "(let-values(((core-mpi17_0)" " core-mpi)" -"((temp18_2)" +"((temp18_3)" " 0)" "((sym19_0)" " sym_10))" @@ -15280,7 +15661,7 @@ static const char *startup_source = " #f" " #f" " core-mpi17_0" -" temp18_2" +" temp18_3" " sym19_0))))" "(values" " sym_10" @@ -15291,36 +15672,36 @@ static const char *startup_source = " #t)" " b_61))))))" "(hash-set" -" table_100" +" table_103" " key_33" " val_34)))))" "(values" -" table_101)))))" +" table_104)))))" "(if(not" " #f)" -"(for-loop_93" -" table_99" +"(for-loop_94" +" table_102" "(hash-iterate-next" -" ht_73" -" i_83))" +" ht_74" +" i_84))" +" table_102)))" +" table_101)))))" +" for-loop_94)" +" table_100" +"(hash-iterate-first ht_74)))))))" +"(if(not #f)" +"(for-loop_93 table_99 rest_35 rest_36)" " table_99)))" " table_98)))))" " for-loop_93)" -" table_97" -"(hash-iterate-first ht_73)))))))" -"(if(not #f)" -"(for-loop_92 table_96 rest_35 rest_36)" -" table_96)))" -" table_95)))))" -" for-loop_92)" " '#hasheq()" " lst_75" " lst_76)))))" "((temp15_1)" -"(lambda(phase-level_13 ns_45 insp_7)" -"(if(zero? phase-level_13)" -"(let-values(((ns_46)" -"(let-values(((ns20_0) ns_45)" +"(lambda(phase-level_14 ns_46 insp_7)" +"(if(zero? phase-level_14)" +"(let-values(((ns_47)" +"(let-values(((ns20_0) ns_46)" "((core-module-name21_0) core-module-name)" "((temp22_1) 0))" "(namespace->module-namespace82.1" @@ -15333,36 +15714,36 @@ static const char *startup_source = " ns20_0" " core-module-name21_0" " temp22_1))))" -"(if ns_46" -"(module-linklet-info2.1(namespace->instance ns_46 0) #f core-mpi #f #f #f)" +"(if ns_47" +"(module-linklet-info2.1(namespace->instance ns_47 0) #f core-mpi #f #f #f)" " #f))" " #f)))" -"((temp16_2)" +"((temp16_1)" "(lambda(data-box_1" -" ns_47" +" ns_48" " phase_39" -" phase-level_14" -" self_4" +" phase-level_15" +" self_7" " bulk-binding-registry_4" " insp_8)" -"(let-values(((tmp_14) phase-level_14))" -"(if(equal? tmp_14 0)" +"(let-values(((tmp_15) phase-level_15))" +"(if(equal? tmp_15 0)" "(let-values()" "(begin" -"(let-values(((ht_74) core-primitives))" +"(let-values(((ht_75) core-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_74)))" -"((letrec-values(((for-loop_94)" -"(lambda(i_84)" +"(let-values()(check-in-hash ht_75)))" +"((letrec-values(((for-loop_95)" +"(lambda(i_85)" "(begin" " 'for-loop" -"(if i_84" +"(if i_85" "(let-values(((sym_25 val_35)" "(hash-iterate-key+value" -" ht_74" -" i_84)))" +" ht_75" +" i_85)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -15370,33 +15751,33 @@ static const char *startup_source = "(begin" "(let-values()" "(namespace-set-consistent!" -" ns_47" +" ns_48" " 0" " sym_25" " val_35))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_94" -"(hash-iterate-next ht_74 i_84))" +"(for-loop_95" +"(hash-iterate-next ht_75 i_85))" "(values))))" "(values))))))" -" for-loop_94)" -"(hash-iterate-first ht_74))))" +" for-loop_95)" +"(hash-iterate-first ht_75))))" "(void)" -"(let-values(((ht_75) core-forms))" +"(let-values(((ht_76) core-forms))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_75)))" +"(let-values()(check-in-hash ht_76)))" "((letrec-values(((for-loop_53)" "(lambda(i_27)" "(begin" " 'for-loop" "(if i_27" -"(let-values(((sym_26 proc_5)" +"(let-values(((sym_26 proc_7)" "(hash-iterate-key+value" -" ht_75" +" ht_76" " i_27)))" "(let-values((()" "(let-values()" @@ -15405,21 +15786,21 @@ static const char *startup_source = "(begin" "(let-values()" "(namespace-set-transformer!" -" ns_47" +" ns_48" " 0" " sym_26" "(core-form9.1" -" proc_5" +" proc_7" " sym_26)))" "(values)))))" "(values)))))" "(if(not #f)" "(for-loop_53" -"(hash-iterate-next ht_75 i_27))" +"(hash-iterate-next ht_76 i_27))" "(values))))" "(values))))))" " for-loop_53)" -"(hash-iterate-first ht_75))))" +"(hash-iterate-first ht_76))))" "(void)))" "(let-values()(void)))))))" "(make-module39.1" @@ -15429,7 +15810,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp16_2" +" temp16_1" " #f" " #f" " #f" @@ -15467,8 +15848,8 @@ static const char *startup_source = "(if(let-values(((s_163)(if(syntax?$1 s_162)(syntax-e$1 s_162) s_162)))" "(if(pair? s_163)" "(if(let-values(((s_68)(car s_163)))" -"(let-values(((or-part_137)(if(syntax?$1 s_68)(symbol?(syntax-e$1 s_68)) #f)))" -"(if or-part_137 or-part_137(symbol? s_68))))" +"(let-values(((or-part_170)(if(syntax?$1 s_68)(symbol?(syntax-e$1 s_68)) #f)))" +"(if or-part_170 or-part_170(symbol? s_68))))" "(let-values(((s_164)(cdr s_163))) #t)" " #f)" " #f))" @@ -15492,18 +15873,18 @@ static const char *startup_source = " #f)))))" "(define-values" "(taint-dispatch)" -"(lambda(s_0 proc_6 phase_31)" +"(lambda(s_0 proc_8 phase_31)" "(begin" -"((letrec-values(((loop_33)" +"((letrec-values(((loop_36)" "(lambda(s_168 mode_10)" "(begin" " 'loop" -"(let-values(((tmp_4) mode_10))" -"(if(equal? tmp_4 'none)" +"(let-values(((tmp_5) mode_10))" +"(if(equal? tmp_5 'none)" "(let-values() s_168)" -"(if(equal? tmp_4 'opaque)" -"(let-values()(proc_6 s_168))" -"(if(equal? tmp_4 'transparent)" +"(if(equal? tmp_5 'opaque)" +"(let-values()(proc_8 s_168))" +"(if(equal? tmp_5 'transparent)" "(let-values()" "(let-values(((c_18)" "(let-values(((s_169)" @@ -15514,18 +15895,18 @@ static const char *startup_source = "(lambda(s_170)" "(begin" " 's->" -"(loop_33" +"(loop_36" " s_170" "(syntax-taint-mode-property s_170)))))" "((seen_19) #f))" "(let-values(((s_146) s_169)" "((f_36)" -"(lambda(tail?_40 v_62)" +"(lambda(tail?_40 v_65)" "(begin" " 'f" -"(if(syntax?$1 v_62)" -"(let-values()(s->_3 v_62))" -"(let-values()(f_35 tail?_40 v_62))))))" +"(if(syntax?$1 v_65)" +"(let-values()(s->_3 v_65))" +"(let-values()(f_35 tail?_40 v_65))))))" "((seen_20) seen_19))" "((letrec-values(((loop_7)" "(lambda(tail?_41 s_171 prev-depth_8)" @@ -15557,33 +15938,33 @@ static const char *startup_source = " #t" "(cdr s_171)" " depth_8))))" -"(if(let-values(((or-part_164)" +"(if(let-values(((or-part_171)" "(symbol?" " s_171)))" -"(if or-part_164" -" or-part_164" -"(let-values(((or-part_76)" +"(if or-part_171" +" or-part_171" +"(let-values(((or-part_82)" "(boolean?" " s_171)))" -"(if or-part_76" -" or-part_76" +"(if or-part_82" +" or-part_82" "(number? s_171)))))" "(let-values()(f_36 #f s_171))" -"(if(let-values(((or-part_77)" +"(if(let-values(((or-part_83)" "(vector?" " s_171)))" -"(if or-part_77" -" or-part_77" -"(let-values(((or-part_29)" +"(if or-part_83" +" or-part_83" +"(let-values(((or-part_35)" "(box?" " s_171)))" -"(if or-part_29" -" or-part_29" -"(let-values(((or-part_78)" +"(if or-part_35" +" or-part_35" +"(let-values(((or-part_84)" "(prefab-struct-key" " s_171)))" -"(if or-part_78" -" or-part_78" +"(if or-part_84" +" or-part_84" "(hash?" " s_171)))))))" "(let-values()" @@ -15606,47 +15987,47 @@ static const char *startup_source = "(if(syntax-any-macro-scopes? s_168)" "(syntax-property-remove s_168 original-property-sym)" " s_168))))" -"(if(equal? tmp_4 'transparent-binding)" +"(if(equal? tmp_5 'transparent-binding)" "(let-values()" "(let-values(((c_19)(syntax-e$1 s_168)))" "(if(pair? c_19)" "(let-values()" "(let-values(((cd_0)(cdr c_19)))" -"(if(let-values(((or-part_71)(pair? cd_0)))" -"(if or-part_71" -" or-part_71" +"(if(let-values(((or-part_77)(pair? cd_0)))" +"(if or-part_77" +" or-part_77" "(if(syntax?$1 cd_0)(pair?(syntax-e$1 cd_0)) #f)))" "(let-values()" "(let-values(((d_19)(if(syntax?$1 cd_0)(syntax-e$1 cd_0) cd_0)))" "(datum->syntax$1" " #f" "(cons" -"(loop_33(car c_19)(syntax-taint-mode-property(car c_19)))" +"(loop_36(car c_19)(syntax-taint-mode-property(car c_19)))" "(cons" -"(loop_33(car d_19) 'transparent)" +"(loop_36(car d_19) 'transparent)" "(let-values(((s_174)" -"(let-values(((or-part_165)" +"(let-values(((or-part_172)" "(syntax->list$1(cdr d_19))))" -"(if or-part_165 or-part_165(cdr d_19))))" +"(if or-part_172 or-part_172(cdr d_19))))" "((f_7)(lambda(tail?_44 d_20)(begin 'f d_20)))" "((s->_4)" "(lambda(s_175)" "(begin" " 's->" -"(loop_33" +"(loop_36" " s_175" "(syntax-taint-mode-property s_175)))))" "((seen_21) #f))" "(let-values(((s_80) s_174)" "((f_8)" -"(lambda(tail?_45 v_39)" +"(lambda(tail?_45 v_42)" "(begin" " 'f" -"(if(syntax?$1 v_39)" -"(let-values()(s->_4 v_39))" -"(let-values()(f_7 tail?_45 v_39))))))" +"(if(syntax?$1 v_42)" +"(let-values()(s->_4 v_42))" +"(let-values()(f_7 tail?_45 v_42))))))" "((seen_22) seen_21))" -"((letrec-values(((loop_77)" +"((letrec-values(((loop_80)" "(lambda(tail?_46 s_176 prev-depth_9)" "(begin" " 'loop" @@ -15668,43 +16049,43 @@ static const char *startup_source = "(f_8" " tail?_46" "(cons" -"(loop_77" +"(loop_80" " #f" "(car s_176)" " depth_9)" -"(loop_77" +"(loop_80" " #t" "(cdr s_176)" " depth_9))))" -"(if(let-values(((or-part_166)" +"(if(let-values(((or-part_173)" "(symbol?" " s_176)))" -"(if or-part_166" -" or-part_166" -"(let-values(((or-part_167)" +"(if or-part_173" +" or-part_173" +"(let-values(((or-part_174)" "(boolean?" " s_176)))" -"(if or-part_167" -" or-part_167" +"(if or-part_174" +" or-part_174" "(number?" " s_176)))))" "(let-values()" "(f_8 #f s_176))" -"(if(let-values(((or-part_168)" +"(if(let-values(((or-part_175)" "(vector?" " s_176)))" -"(if or-part_168" -" or-part_168" -"(let-values(((or-part_169)" +"(if or-part_175" +" or-part_175" +"(let-values(((or-part_176)" "(box?" " s_176)))" -"(if or-part_169" -" or-part_169" -"(let-values(((or-part_33)" +"(if or-part_176" +" or-part_176" +"(let-values(((or-part_39)" "(prefab-struct-key" " s_176)))" -"(if or-part_33" -" or-part_33" +"(if or-part_39" +" or-part_39" "(hash?" " s_176)))))))" "(let-values()" @@ -15721,7 +16102,7 @@ static const char *startup_source = "(f_8" " #f" " s_176))))))))))))" -" loop_77)" +" loop_80)" " #f" " s_80" " 0)))))" @@ -15729,31 +16110,31 @@ static const char *startup_source = "(if(syntax-any-macro-scopes? s_168)" "(syntax-property-remove s_168 original-property-sym)" " s_168))))" -"(let-values()(loop_33 s_168 'transparent)))))" -"(let-values()(loop_33 s_168 'transparent)))))" +"(let-values()(loop_36 s_168 'transparent)))))" +"(let-values()(loop_36 s_168 'transparent)))))" "(let-values()" "(let-values(((c_20)(syntax-e$1 s_168)))" -"(let-values(((tmp_15)(core-form-sym c_20 phase_31)))" -"(if(if(equal? tmp_15 'begin)" +"(let-values(((tmp_16)(core-form-sym c_20 phase_31)))" +"(if(if(equal? tmp_16 'begin)" " #t" -"(if(equal? tmp_15 'begin-for-syntax)" +"(if(equal? tmp_16 'begin-for-syntax)" " #t" -"(equal? tmp_15 '#%module-begin)))" -"(let-values()(loop_33 s_168 'transparent))" -"(if(if(equal? tmp_15 'define-values)" +"(equal? tmp_16 '#%module-begin)))" +"(let-values()(loop_36 s_168 'transparent))" +"(if(if(equal? tmp_16 'define-values)" " #t" -"(equal? tmp_15 'define-syntaxes))" -"(let-values()(loop_33 s_168 'transparent-binding))" -"(let-values()(loop_33 s_168 'opaque))))))))))))))))" -" loop_33)" +"(equal? tmp_16 'define-syntaxes))" +"(let-values()(loop_36 s_168 'transparent-binding))" +"(let-values()(loop_36 s_168 'opaque))))))))))))))))" +" loop_36)" " s_0" "(syntax-taint-mode-property s_0)))))" "(define-values" "(syntax-taint-mode-property)" "(lambda(s_179)" "(begin" -"(let-values(((or-part_170)(syntax-property$1 s_179 'taint-mode)))" -"(if or-part_170 or-part_170(syntax-property$1 s_179 'certify-mode))))))" +"(let-values(((or-part_177)(syntax-property$1 s_179 'taint-mode)))" +"(if or-part_177 or-part_177(syntax-property$1 s_179 'certify-mode))))))" "(define-values" "(syntax-remove-taint-dispatch-properties)" "(lambda(s_180)(begin(syntax-property-remove(syntax-property-remove s_180 'taint-mode) 'certify-mode))))" @@ -15770,7 +16151,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_72)))" -"((letrec-values(((for-loop_95)" +"((letrec-values(((for-loop_96)" "(lambda(fold-var_58 lst_79)" "(begin" " 'for-loop" @@ -15812,7 +16193,7 @@ static const char *startup_source = "(let-values()" "(let-values(((bindings_1" " covered-scopess_0)" -"(let-values(((ht_76)" +"(let-values(((ht_77)" " s-scs_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -15820,75 +16201,75 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-immutable-hash-keys" -" ht_76)))" -"((letrec-values(((for-loop_96)" +" ht_77)))" +"((letrec-values(((for-loop_97)" "(lambda(bindings_2" " covered-scope-sets_0" -" i_85)" +" i_86)" "(begin" " 'for-loop" -"(if i_85" +"(if i_86" "(let-values(((sc_23)" "(unsafe-immutable-hash-iterate-key" -" ht_76" -" i_85)))" +" ht_77" +" i_86)))" "(let-values(((bindings_3" " covered-scope-sets_1)" -"(let-values(((ht_77" +"(let-values(((ht_78" " bulk-bindings_3)" -"(let-values(((table_102)" +"(let-values(((table_105)" "(scope-binding-table" " sc_23)))" "(if(hash?" -" table_102)" +" table_105)" "(values" "(hash-ref" -" table_102" +" table_105" " sym_17" " '#hash())" " null)" "(values" "(hash-ref" "(table-with-bulk-bindings-syms" -" table_102)" +" table_105)" " sym_17" " '#hash())" "(table-with-bulk-bindings-bulk-bindings" -" table_102)))))" +" table_105)))))" "((s_181)" " s_0)" "((extra-shifts_5)" " null))" "(begin" " #t" -"((letrec-values(((for-loop_97)" +"((letrec-values(((for-loop_98)" "(lambda(bindings_4" " covered-scope-sets_2" -" i_86)" +" i_87)" "(begin" " 'for-loop" "(if(not" "(null?" -" i_86))" +" i_87))" "(let-values(((scs_15)" "(if(pair?" -" i_86)" +" i_87)" "(let-values()" "(bulk-binding-at-scopes" "(car" -" i_86)))" +" i_87)))" "(let-values()" "(hash-iterate-key" -" ht_77" -" i_86))))" +" ht_78" +" i_87))))" "((b_63)" "(if(pair?" -" i_86)" +" i_87)" "(let-values()" "(let-values(((bulk_4)" "(bulk-binding-at-bulk" "(car" -" i_86))))" +" i_87))))" "(let-values(((b-info_1)" "(hash-ref" "(bulk-binding-symbols" @@ -15906,8 +16287,8 @@ static const char *startup_source = " #f))))" "(let-values()" "(hash-iterate-value" -" ht_77" -" i_86)))))" +" ht_78" +" i_87)))))" "(let-values(((bindings_5" " covered-scope-sets_3)" "(let-values(((bindings_6)" @@ -15916,10 +16297,10 @@ static const char *startup_source = " covered-scope-sets_2))" "(if(if scs_15" "(if b_63" -"(if(let-values(((or-part_30)" +"(if(let-values(((or-part_36)" " all-bindings?_0))" -"(if or-part_30" -" or-part_30" +"(if or-part_36" +" or-part_36" "(subset?" " scs_15" " s-scs_0)))" @@ -15977,19 +16358,19 @@ static const char *startup_source = " covered-scope-sets_4)))))" "(if(not" " #f)" -"(for-loop_97" +"(for-loop_98" " bindings_5" " covered-scope-sets_3" "(if(pair?" -" i_86)" +" i_87)" "(let-values()" "(cdr" -" i_86))" +" i_87))" "(let-values()" "(let-values(((or-part_7)" "(hash-iterate-next" -" ht_77" -" i_86)))" +" ht_78" +" i_87)))" "(if or-part_7" " or-part_7" " bulk-bindings_3)))))" @@ -15999,34 +16380,34 @@ static const char *startup_source = "(values" " bindings_4" " covered-scope-sets_2))))))" -" for-loop_97)" +" for-loop_98)" " bindings_2" " covered-scope-sets_0" "(let-values(((or-part_8)" "(hash-iterate-first" -" ht_77)))" +" ht_78)))" "(if or-part_8" " or-part_8" " bulk-bindings_3)))))))" "(if(not" " #f)" -"(for-loop_96" +"(for-loop_97" " bindings_3" " covered-scope-sets_1" "(unsafe-immutable-hash-iterate-next" -" ht_76" -" i_85))" +" ht_77" +" i_86))" "(values" " bindings_3" " covered-scope-sets_1))))" "(values" " bindings_2" " covered-scope-sets_0))))))" -" for-loop_96)" +" for-loop_97)" " null" "(set)" "(unsafe-immutable-hash-iterate-first" -" ht_76))))))" +" ht_77))))))" " bindings_1))" "(let-values()" " null))))" @@ -16038,29 +16419,29 @@ static const char *startup_source = " bindings_0)))))))))" " fold-var_60))))" "(values fold-var_61)))))" -"(if(not #f)(for-loop_95 fold-var_59 rest_37) fold-var_59)))" +"(if(not #f)(for-loop_96 fold-var_59 rest_37) fold-var_59)))" " fold-var_58)))))" -" for-loop_95)" +" for-loop_96)" " null" " lst_72))))))" -"(let-values(((ht_69)(car hts_0)))(if(null?(cdr hts_0)) ht_69(hash-set ht_69 'fallbacks(cdr hts_0))))))))" +"(let-values(((ht_70)(car hts_0)))(if(null?(cdr hts_0)) ht_70(hash-set ht_70 'fallbacks(cdr hts_0))))))))" "(define-values" "(scope-set->context)" "(lambda(scs_16)" "(begin" "(let-values(((temp1_1)" "(reverse$1" -"(let-values(((ht_78) scs_16))" +"(let-values(((ht_79) scs_16))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_78)))" +"(let-values()(check-in-immutable-hash-keys ht_79)))" "((letrec-values(((for-loop_27)" -"(lambda(fold-var_17 i_87)" +"(lambda(fold-var_17 i_88)" "(begin" " 'for-loop" -"(if i_87" -"(let-values(((sc_24)(unsafe-immutable-hash-iterate-key ht_78 i_87)))" +"(if i_88" +"(let-values(((sc_24)(unsafe-immutable-hash-iterate-key ht_79 i_88)))" "(let-values(((fold-var_18)" "(let-values(((fold-var_19) fold-var_17))" "(let-values(((fold-var_20)" @@ -16082,14 +16463,14 @@ static const char *startup_source = "(if(not #f)" "(for-loop_27" " fold-var_18" -"(unsafe-immutable-hash-iterate-next ht_78 i_87))" +"(unsafe-immutable-hash-iterate-next ht_79 i_88))" " fold-var_18)))" " fold-var_17)))))" " for-loop_27)" " null" -"(unsafe-immutable-hash-iterate-first ht_78))))))" +"(unsafe-immutable-hash-iterate-first ht_79))))))" "((<2_0) <)" -"((temp3_2)(lambda(v_131)(vector-ref v_131 0))))" +"((temp3_2)(lambda(v_133)(vector-ref v_133 0))))" "(sort7.1 #f #f temp3_2 #t temp1_1 <2_0)))))" "(define-values" "(raise-ambiguous-error)" @@ -16108,15 +16489,15 @@ static const char *startup_source = "(begin" "(let-values(((info_3)(syntax-debug-info$1 s_157(expand-context-phase ctx_8) #t)))" "(if(not" -"(let-values(((or-part_26)(pair?(hash-ref info_3 'bindings null))))" -"(if or-part_26" -" or-part_26" +"(let-values(((or-part_32)(pair?(hash-ref info_3 'bindings null))))" +"(if or-part_32" +" or-part_32" "(let-values(((lst_6)(hash-ref info_3 'fallbacks null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_6)))" -"((letrec-values(((for-loop_98)" +"((letrec-values(((for-loop_99)" "(lambda(result_62 lst_80)" "(begin" " 'for-loop" @@ -16135,16 +16516,16 @@ static const char *startup_source = " null))))))" "(values result_63)))))" "(if(if(not((lambda x_28 result_1) fb-info_0))(not #f) #f)" -"(for-loop_98 result_1 rest_38)" +"(for-loop_99 result_1 rest_38)" " result_1)))" " result_62)))))" -" for-loop_98)" +" for-loop_99)" " #f" " lst_6))))))" " (let-values () \"\")" "(let-values()" "(let-values(((relevant-scope-sets_0)" -"((letrec-values(((loop_76)" +"((letrec-values(((loop_79)" "(lambda(info_4 layer_0)" "(begin" " 'loop" @@ -16158,7 +16539,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_81)))" -"((letrec-values(((for-loop_99)" +"((letrec-values(((for-loop_100)" "(lambda(fold-var_62 lst_82)" "(begin" " 'for-loop" @@ -16180,10 +16561,10 @@ static const char *startup_source = "(values" " fold-var_63)))))" "(if(not #f)" -"(for-loop_99 fold-var_33 rest_39)" +"(for-loop_100 fold-var_33 rest_39)" " fold-var_33)))" " fold-var_62)))))" -" for-loop_99)" +" for-loop_100)" " null" " lst_81)))))" "(let-values(((fallbacks_0)(hash-ref info_4 'fallbacks null)))" @@ -16196,7 +16577,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_14)))" -"((letrec-values(((for-loop_100)" +"((letrec-values(((for-loop_101)" "(lambda(fold-var_64 lst_84 pos_11)" "(begin" " 'for-loop" @@ -16213,24 +16594,24 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(loop_76" +"(loop_79" " fallback_0" " layer_1))" " fold-var_65))))" "(values" " fold-var_66)))))" "(if(not #f)" -"(for-loop_100" +"(for-loop_101" " fold-var_9" " rest_40" "(+ pos_11 1))" " fold-var_9)))" " fold-var_64)))))" -" for-loop_100)" +" for-loop_101)" " null" " lst_83" " start_14))))))))))" -" loop_76)" +" loop_79)" " info_3" " 0)))" "(let-values(((common-scopes_0)" @@ -16241,7 +16622,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_75)))" -"((letrec-values(((for-loop_101)" +"((letrec-values(((for-loop_102)" "(lambda(s_182 lst_85)" "(begin" " 'for-loop" @@ -16256,13 +16637,13 @@ static const char *startup_source = " s_183" "(list->set l_48)))))" "(values s_184)))))" -"(if(not #f)(for-loop_101 s_81 rest_41) s_81)))" +"(if(not #f)(for-loop_102 s_81 rest_41) s_81)))" " s_182)))))" -" for-loop_101)" +" for-loop_102)" "(list->set(car relevant-scope-sets_0))" " lst_75))))))" "(string-append" -"((letrec-values(((loop_77)" +"((letrec-values(((loop_80)" "(lambda(info_5 layer_2)" "(begin" " 'loop" @@ -16277,10 +16658,10 @@ static const char *startup_source = "(let-values(((lst_86)" "(let-values(((temp1_2)(hash-ref info_5 'bindings null))" "((temp2_2)" -"(lambda(a_37 b_64)" +"(lambda(a_43 b_64)" "(begin" " 'temp2" -"(if(hash-ref a_37 'match? #f)" +"(if(hash-ref a_43 'match? #f)" "(not(hash-ref b_64 'match? #f))" " #f)))))" "(sort7.1 #f #f #f #f temp1_2 temp2_2))))" @@ -16288,7 +16669,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_86)))" -"((letrec-values(((for-loop_102)" +"((letrec-values(((for-loop_103)" "(lambda(fold-var_67 lst_87)" "(begin" " 'for-loop" @@ -16334,10 +16715,10 @@ static const char *startup_source = " fold-var_68))))" "(values fold-var_69)))))" "(if(not #f)" -"(for-loop_102 fold-var_20 rest_42)" +"(for-loop_103 fold-var_20 rest_42)" " fold-var_20)))" " fold-var_67)))))" -" for-loop_102)" +" for-loop_103)" " null" " lst_86)))))" "(let-values(((fallbacks_1)(hash-ref info_5 'fallbacks null)))" @@ -16352,7 +16733,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_15)))" -"((letrec-values(((for-loop_103)" +"((letrec-values(((for-loop_104)" "(lambda(fold-var_70 lst_89 pos_12)" "(begin" " 'for-loop" @@ -16367,23 +16748,23 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(loop_77" +"(loop_80" " fallback_1" " layer_3))" " fold-var_72))))" "(values fold-var_73)))))" "(if(not #f)" -"(for-loop_103" +"(for-loop_104" " fold-var_71" " rest_0" "(+ pos_12 1))" " fold-var_71)))" " fold-var_70)))))" -" for-loop_103)" +" for-loop_104)" " null" " lst_88" " start_15)))))))))))" -" loop_77)" +" loop_80)" " info_3" " 0)" "(if(set-empty? common-scopes_0)" @@ -16426,7 +16807,7 @@ static const char *startup_source = "(lambda(scopes_19 common-scopes_1)" "(begin" "(let-values(((strs_0)" -"((letrec-values(((loop_55)" +"((letrec-values(((loop_58)" "(lambda(strs_1 scopes_20)" "(begin" " 'loop" @@ -16437,11 +16818,11 @@ static const char *startup_source = "(if(if(pair? strs_1)" "(<(+(string-length str_3)(string-length(car strs_1))) 72)" " #f)" -"(loop_55" +"(loop_58" "(cons(string-append(car strs_1) str_3)(cdr strs_1))" "(cdr scopes_20))" -"(loop_55(cons str_3 strs_1)(cdr scopes_20))))))))))" -" loop_55)" +"(loop_58(cons str_3 strs_1)(cdr scopes_20))))))))))" +" loop_58)" " null" "(if(set-empty? common-scopes_1)" " scopes_19" @@ -16452,7 +16833,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_90)))" -"((letrec-values(((for-loop_104)" +"((letrec-values(((for-loop_105)" "(lambda(fold-var_77 lst_91)" "(begin" " 'for-loop" @@ -16470,9 +16851,9 @@ static const char *startup_source = " fold-var_80))))" "(values fold-var_81)))" " fold-var_79))))" -"(if(not #f)(for-loop_104 fold-var_78 rest_43) fold-var_78)))" +"(if(not #f)(for-loop_105 fold-var_78 rest_43) fold-var_78)))" " fold-var_77)))))" -" for-loop_104)" +" for-loop_105)" " null" " lst_90))))" " (list \"[common scopes]\"))))))" @@ -16487,7 +16868,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_92)))" -"((letrec-values(((for-loop_105)" +"((letrec-values(((for-loop_106)" "(lambda(fold-var_82 lst_93)" "(begin" " 'for-loop" @@ -16502,9 +16883,9 @@ static const char *startup_source = " (string-append \"\\n \" str_4))" " fold-var_84))))" "(values fold-var_14)))))" -"(if(not #f)(for-loop_105 fold-var_83 rest_44) fold-var_83)))" +"(if(not #f)(for-loop_106 fold-var_83 rest_44) fold-var_83)))" " fold-var_82)))))" -" for-loop_105)" +" for-loop_106)" " null" " lst_92)))))))))))" " (define-values (layer->string) (lambda (layer_4) (begin (if (zero? layer_4) \"\" (format \" at layer ~a\" layer_4)))))" @@ -16514,12 +16895,12 @@ static const char *startup_source = "(begin" "(let-values(((phase_41)(expand-context-phase ctx_8)))" "(let-values(((what_1)" -"(let-values(((tmp_16) sym_27))" -"(if(equal? tmp_16 '#%app)" +"(let-values(((tmp_17) sym_27))" +"(if(equal? tmp_17 '#%app)" " (let-values () \"function application\")" -"(if(equal? tmp_16 '#%datum)" +"(if(equal? tmp_17 '#%datum)" " (let-values () \"literal data\")" -"(if(equal? tmp_16 '#%top)" +"(if(equal? tmp_17 '#%top)" "(let-values()" "(if(expand-context-allow-unbound? ctx_8)" " \"reference to a top-level identifier\"" @@ -16538,10 +16919,10 @@ static const char *startup_source = " \"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_27" -"(let-values(((tmp_17) phase_41))" -"(if(equal? tmp_17 0)" +"(let-values(((tmp_18) phase_41))" +"(if(equal? tmp_18 0)" " (let-values () \"\")" -"(if(equal? tmp_17 1)" +"(if(equal? tmp_18 1)" " (let-values () \" in the transformer phase\")" " (let-values () (format \" at phase ~a\" phase_41))))))" "(if unbound?_0 trigger-id_0 #f)" @@ -16557,23 +16938,23 @@ static const char *startup_source = "(let-values(((ids_2) ids5_0))" "(let-values(((phase_42) phase6_0))" "(let-values(((s_145) s7_1))" -"(let-values(((ht_72)(if ht4_0 ht3_0(make-check-no-duplicate-table))))" +"(let-values(((ht_73)(if ht4_0 ht3_0(make-check-no-duplicate-table))))" " (let-values (((what_2) (if what2_0 what1_0 \"binding name\")))" "(let-values()" -"((letrec-values(((loop_78)" -"(lambda(v_132 ht_79)" +"((letrec-values(((loop_81)" +"(lambda(v_134 ht_80)" "(begin" " 'loop" -"(if(identifier? v_132)" +"(if(identifier? v_134)" "(let-values()" -"(let-values(((l_7)(hash-ref ht_79(syntax-e$1 v_132) null)))" +"(let-values(((l_7)(hash-ref ht_80(syntax-e$1 v_134) null)))" "(begin" "(let-values(((lst_73) l_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_73)))" -"((letrec-values(((for-loop_91)" +"((letrec-values(((for-loop_92)" "(lambda(lst_94)" "(begin" " 'for-loop" @@ -16589,7 +16970,7 @@ static const char *startup_source = "(let-values()" "(if(bound-identifier=?$1" " id_13" -" v_132" +" v_134" " phase_42)" "(let-values()" "(raise-syntax-error$1" @@ -16598,24 +16979,24 @@ static const char *startup_source = " \"duplicate \"" " what_2)" " s_145" -" v_132))" +" v_134))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_91 rest_45)" +"(for-loop_92 rest_45)" "(values))))" "(values))))))" -" for-loop_91)" +" for-loop_92)" " lst_73)))" "(void)" -"(hash-set ht_79(syntax-e$1 v_132)(cons v_132 l_7)))))" -"(if(pair? v_132)" -"(let-values()(loop_78(cdr v_132)(loop_78(car v_132) ht_79)))" -"(let-values() ht_79)))))))" -" loop_78)" +"(hash-set ht_80(syntax-e$1 v_134)(cons v_134 l_7)))))" +"(if(pair? v_134)" +"(let-values()(loop_81(cdr v_134)(loop_81(car v_134) ht_80)))" +"(let-values() ht_80)))))))" +" loop_81)" " ids_2" -" ht_72))))))))))" +" ht_73))))))))))" "(define-values" "(remove-use-site-scopes)" "(lambda(s_0 ctx_7)" @@ -16630,7 +17011,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_95)))" -"((letrec-values(((for-loop_106)" +"((letrec-values(((for-loop_107)" "(lambda(fold-var_85 lst_6)" "(begin" " 'for-loop" @@ -16645,9 +17026,9 @@ static const char *startup_source = "(remove-scopes id_9(unbox use-sites_0)))" " fold-var_87))))" "(values fold-var_59)))))" -"(if(not #f)(for-loop_106 fold-var_86 rest_46) fold-var_86)))" +"(if(not #f)(for-loop_107 fold-var_86 rest_46) fold-var_86)))" " fold-var_85)))))" -" for-loop_106)" +" for-loop_107)" " null" " lst_95)))))" " s_0)))))" @@ -16706,7 +17087,7 @@ static const char *startup_source = " 'make-compile-context14" "(let-values(((namespace_1)(if namespace8_0 namespace2_0(1/current-namespace))))" "(let-values(((phase_43)(if phase9_0 phase3_0(namespace-phase namespace_1))))" -"(let-values(((self_5)(if self10_0 self4_1(namespace-mpi namespace_1))))" +"(let-values(((self_8)(if self10_0 self4_1(namespace-self-mpi namespace_1))))" "(let-values(((module-self_0)(if module-self11_0 module-self5_0 #f)))" "(let-values(((full-module-name_0)(if full-module-name12_0 full-module-name6_0 #f)))" "(let-values(((lazy-syntax-literals?_0)" @@ -16719,7 +17100,7 @@ static const char *startup_source = "(compile-context1.1" " namespace_1" " phase_43" -" self_5" +" self_8" " module-self_0" " full-module-name_0" " lazy-syntax-literals?_0" @@ -16754,24 +17135,24 @@ static const char *startup_source = "(intern-module-path-index!)" "(lambda(t_41 mpi_20)" "(begin" -"(let-values(((or-part_160)(hash-ref(mpi-intern-table-fast t_41) mpi_20 #f)))" -"(if or-part_160" -" or-part_160" +"(let-values(((or-part_166)(hash-ref(mpi-intern-table-fast t_41) mpi_20 #f)))" +"(if or-part_166" +" or-part_166" "(let-values(((name_2 base_15)(1/module-path-index-split mpi_20)))" "(if(not name_2)" "(let-values()(begin(hash-set!(mpi-intern-table-fast t_41) mpi_20 mpi_20) mpi_20))" "(let-values()" "(let-values(((interned-base_0)(if base_15(intern-module-path-index! t_41 base_15) #f)))" "(let-values(((at-name_0)" -"(let-values(((or-part_79)(hash-ref(mpi-intern-table-normal t_41) name_2 #f)))" -"(if or-part_79" -" or-part_79" +"(let-values(((or-part_85)(hash-ref(mpi-intern-table-normal t_41) name_2 #f)))" +"(if or-part_85" +" or-part_85" "(let-values(((at-name_1)(make-hasheq)))" "(begin(hash-set!(mpi-intern-table-normal t_41) name_2 at-name_1) at-name_1))))))" "(let-values(((i-mpi_0)" -"(let-values(((or-part_81)(hash-ref at-name_0 interned-base_0 #f)))" -"(if or-part_81" -" or-part_81" +"(let-values(((or-part_87)(hash-ref at-name_0 interned-base_0 #f)))" +"(if or-part_87" +" or-part_87" "(let-values(((mpi_21)" "(if(eq? base_15 interned-base_0)" " mpi_20" @@ -16838,9 +17219,9 @@ static const char *startup_source = "(let-values()" "(let-values(((mpi_23)(intern-module-path-index!(module-path-index-table-intern mpis_1) mpi_22))" "((positions_0)(module-path-index-table-positions mpis_1)))" -"(let-values(((or-part_78)(hash-ref positions_0 mpi_23 #f)))" -"(if or-part_78" -" or-part_78" +"(let-values(((or-part_84)(hash-ref positions_0 mpi_23 #f)))" +"(if or-part_84" +" or-part_84" "(let-values(((pos_14)(hash-count positions_0)))" "(begin(hash-set! positions_0 mpi_23 pos_14) pos_14))))))" "(void))))))" @@ -16851,38 +17232,38 @@ static const char *startup_source = "(let-values(((positions_1)(module-path-index-table-positions mpis_2)))" "(let-values(((gen-order_0)(make-hasheqv)))" "(let-values(((rev-positions_0)" -"(let-values(((ht_80) positions_1))" +"(let-values(((ht_81) positions_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_80)))" -"((letrec-values(((for-loop_107)" -"(lambda(table_103 i_88)" +"(let-values()(check-in-hash ht_81)))" +"((letrec-values(((for-loop_108)" +"(lambda(table_106 i_89)" "(begin" " 'for-loop" -"(if i_88" -"(let-values(((k_18 v_133)(hash-iterate-key+value ht_80 i_88)))" -"(let-values(((table_95)" -"(let-values(((table_104) table_103))" -"(let-values(((table_105)" +"(if i_89" +"(let-values(((k_18 v_135)(hash-iterate-key+value ht_81 i_89)))" +"(let-values(((table_98)" +"(let-values(((table_107) table_106))" +"(let-values(((table_108)" "(let-values()" "(let-values(((key_42 val_36)" "(let-values()" "(values" -" v_133" +" v_135" " k_18))))" "(hash-set" -" table_104" +" table_107" " key_42" " val_36)))))" -"(values table_105)))))" +"(values table_108)))))" "(if(not #f)" -"(for-loop_107 table_95(hash-iterate-next ht_80 i_88))" -" table_95)))" -" table_103)))))" -" for-loop_107)" +"(for-loop_108 table_98(hash-iterate-next ht_81 i_89))" +" table_98)))" +" table_106)))))" +" for-loop_108)" " '#hasheqv()" -"(hash-iterate-first ht_80))))))" +"(hash-iterate-first ht_81))))))" "(let-values((()" "(begin" "(let-values(((start_16) 0)((end_10)(hash-count rev-positions_0))((inc_4) 1))" @@ -16895,7 +17276,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(< pos_15 end_10)" -"(let-values(((i_89) pos_15))" +"(let-values(((i_90) pos_15))" "(let-values((()" "(let-values()" "(let-values((()" @@ -16905,8 +17286,8 @@ static const char *startup_source = "(let-values(((mpi_24)" "(hash-ref" " rev-positions_0" -" i_89)))" -"((letrec-values(((loop_79)" +" i_90)))" +"((letrec-values(((loop_82)" "(lambda(mpi_25)" "(begin" " 'loop" @@ -16923,7 +17304,7 @@ static const char *startup_source = "(begin" "(if base_16" "(let-values()" -"(loop_79" +"(loop_82" " base_16))" "(void))" "(hash-set!" @@ -16931,7 +17312,7 @@ static const char *startup_source = " mpi_25" "(hash-count" " gen-order_0))))))))))" -" loop_79)" +" loop_82)" " mpi_24)))" "(values)))))" "(values)))))" @@ -16942,27 +17323,27 @@ static const char *startup_source = "(values))))" "(let-values()" "(let-values(((rev-gen-order_0)" -"(let-values(((ht_81) gen-order_0))" +"(let-values(((ht_82) gen-order_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_81)))" -"((letrec-values(((for-loop_108)" -"(lambda(table_106 i_90)" +"(let-values()(check-in-hash ht_82)))" +"((letrec-values(((for-loop_109)" +"(lambda(table_109 i_91)" "(begin" " 'for-loop" -"(if i_90" -"(let-values(((k_19 v_134)" -"(hash-iterate-key+value ht_81 i_90)))" +"(if i_91" +"(let-values(((k_19 v_136)" +"(hash-iterate-key+value ht_82 i_91)))" "(let-values(((table_15)" -"(let-values(((table_55) table_106))" +"(let-values(((table_55) table_109))" "(let-values(((table_56)" "(let-values()" "(let-values(((key_43" " val_37)" "(let-values()" "(values" -" v_134" +" v_136" " k_19))))" "(hash-set" " table_55" @@ -16970,12 +17351,12 @@ static const char *startup_source = " val_37)))))" "(values table_56)))))" "(if(not #f)" -"(for-loop_108 table_15(hash-iterate-next ht_81 i_90))" +"(for-loop_109 table_15(hash-iterate-next ht_82 i_91))" " table_15)))" -" table_106)))))" -" for-loop_108)" +" table_109)))))" +" for-loop_109)" " '#hasheqv()" -"(hash-iterate-first ht_81))))))" +"(hash-iterate-first ht_82))))))" "(let-values(((gens_0)" "(let-values(((len_11)(hash-count gen-order_0)))" "(begin" @@ -16983,7 +17364,7 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_11)))" -"(let-values(((v_36)(make-vector len_11 0)))" +"(let-values(((v_39)(make-vector len_11 0)))" "(begin" "(if(zero? len_11)" "(void)" @@ -16994,24 +17375,24 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_17 end_11 inc_5)))" "((letrec-values(((for-loop_29)" -"(lambda(i_91 pos_16)" +"(lambda(i_92 pos_16)" "(begin" " 'for-loop" "(if(< pos_16 end_11)" -"(let-values(((i_92) pos_16))" -"(let-values(((i_93)" -"(let-values(((i_26) i_91))" +"(let-values(((i_93) pos_16))" "(let-values(((i_94)" +"(let-values(((i_26) i_92))" +"(let-values(((i_95)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_36" +" v_39" " i_26" "(let-values()" "(let-values(((mpi_26)" "(hash-ref" " rev-gen-order_0" -" i_92)))" +" i_93)))" "(let-values(((path_6" " base_17)" "(1/module-path-index-split" @@ -17024,12 +17405,12 @@ static const char *startup_source = " path_6)" "(let-values()" "(box" -"(let-values(((or-part_34)" +"(let-values(((or-part_40)" "(1/resolved-module-path-name" "(module-path-index-resolved" " mpi_26))))" -"(if or-part_34" -" or-part_34" +"(if or-part_40" +" or-part_40" " 'self))))" "(if(not" " base_17)" @@ -17047,20 +17428,20 @@ static const char *startup_source = "(unsafe-fx+" " 1" " i_26)))))" -"(values i_94)))))" +"(values i_95)))))" "(if(if(not" "((lambda x_42" -"(unsafe-fx= i_93 len_11))" -" i_92))" +"(unsafe-fx= i_94 len_11))" +" i_93))" "(not #f)" " #f)" -"(for-loop_29 i_93(+ pos_16 inc_5))" -" i_93)))" -" i_91)))))" +"(for-loop_29 i_94(+ pos_16 inc_5))" +" i_94)))" +" i_92)))))" " for-loop_29)" " 0" " start_17)))))" -" v_36))))))" +" v_39))))))" "(list" " 'deserialize-module-path-indexes" "(list 'quote gens_0)" @@ -17072,20 +17453,20 @@ 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_109)" -"(lambda(vec_13 i_95 pos_17)" +"((letrec-values(((for-loop_110)" +"(lambda(vec_13 i_96 pos_17)" "(begin" " 'for-loop" "(if(< pos_17 end_12)" -"(let-values(((i_96) pos_17))" -"(let-values(((vec_26 i_97)" +"(let-values(((i_97) pos_17))" +"(let-values(((vec_26 i_98)" "(let-values(((vec_27) vec_13)" -"((i_98) i_95))" -"(let-values(((vec_28 i_99)" +"((i_99) i_96))" +"(let-values(((vec_28 i_100)" "(let-values()" "(let-values(((new-vec_2)" "(if(eq?" -" i_98" +" i_99" "(unsafe-vector*-length" " vec_27))" "(grow-vector" @@ -17094,24 +17475,24 @@ static const char *startup_source = "(begin" "(unsafe-vector*-set!" " new-vec_2" -" i_98" +" i_99" "(let-values()" "(hash-ref" " gen-order_0" "(hash-ref" " rev-positions_0" -" i_96))))" +" i_97))))" "(values" " new-vec_2" "(unsafe-fx+" -" i_98" +" i_99" " 1)))))))" -"(values vec_28 i_99)))))" +"(values vec_28 i_100)))))" "(if(not #f)" -"(for-loop_109 vec_26 i_97(+ pos_17 inc_6))" -"(values vec_26 i_97))))" -"(values vec_13 i_95))))))" -" for-loop_109)" +"(for-loop_110 vec_26 i_98(+ pos_17 inc_6))" +"(values vec_26 i_98))))" +"(values vec_13 i_96))))))" +" for-loop_110)" "(make-vector 16)" " 0" " start_18)))))" @@ -17131,12 +17512,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_19)))" -"((letrec-values(((for-loop_110)" +"((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_100) pos_19))" +"(let-values(((d_21)(unsafe-vector-ref vec_29 pos_18))((i_101) pos_19))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17145,7 +17526,7 @@ static const char *startup_source = "(let-values()" "(vector-set!" " gen_0" -" i_100" +" i_101" "(if(eq? d_21 'top)" "(let-values()" "(deserialize-module-path-index))" @@ -17163,9 +17544,9 @@ static const char *startup_source = " #f)))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_110(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_110)" +" for-loop_111)" " 0" " start_19)))" "(void)" @@ -17174,7 +17555,7 @@ static const char *startup_source = "(if(exact-nonnegative-integer? len_13)" "(void)" " (let-values () (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_13)))" -"(let-values(((v_135)(make-vector len_13 0)))" +"(let-values(((v_137)(make-vector len_13 0)))" "(begin" "(if(zero? len_13)" "(void)" @@ -17184,34 +17565,34 @@ static const char *startup_source = "(begin(check-vector vec_32)(values vec_32(unsafe-vector-length vec_32))))))" "(begin" " #f" -"((letrec-values(((for-loop_111)" -"(lambda(i_101 pos_20)" +"((letrec-values(((for-loop_112)" +"(lambda(i_102 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_102)" -"(let-values(((i_103) i_101))" +"(let-values(((p_30)(unsafe-vector-ref vec_31 pos_20)))" +"(let-values(((i_103)" +"(let-values(((i_104) i_102))" "(let-values(((i_23)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_135" -" i_103" +" v_137" +" i_104" "(let-values()" -"(vector*-ref gen_0 p_26)))" -"(unsafe-fx+ 1 i_103)))))" +"(vector*-ref gen_0 p_30)))" +"(unsafe-fx+ 1 i_104)))))" "(values i_23)))))" -"(if(if(not((lambda x_43(unsafe-fx= i_102 len_13)) p_26))" +"(if(if(not((lambda x_43(unsafe-fx= i_103 len_13)) p_30))" "(not #f)" " #f)" -"(for-loop_111 i_102(unsafe-fx+ 1 pos_20))" -" i_102)))" -" i_101)))))" -" for-loop_111)" +"(for-loop_112 i_103(unsafe-fx+ 1 pos_20))" +" i_103)))" +" i_102)))))" +" for-loop_112)" " 0" " 0)))))" -" v_135)))))))))" +" v_137)))))))))" "(define-values" "(mpis-as-vector)" "(lambda(mpis_3)" @@ -17219,17 +17600,17 @@ static const char *startup_source = "(let-values(((positions_2)(module-path-index-table-positions mpis_3)))" "(let-values(((vec_33)(make-vector(hash-count positions_2) #f)))" "(begin" -"(let-values(((ht_82) positions_2))" +"(let-values(((ht_83) positions_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_82)))" -"((letrec-values(((for-loop_112)" +"(let-values()(check-in-hash ht_83)))" +"((letrec-values(((for-loop_113)" "(lambda(i_46)" "(begin" " 'for-loop" "(if i_46" -"(let-values(((mpi_2 pos_21)(hash-iterate-key+value ht_82 i_46)))" +"(let-values(((mpi_2 pos_21)(hash-iterate-key+value ht_83 i_46)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17239,10 +17620,10 @@ static const char *startup_source = "(vector-set! vec_33 pos_21 mpi_2))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_112(hash-iterate-next ht_82 i_46))(values))))" +"(if(not #f)(for-loop_113(hash-iterate-next ht_83 i_46))(values))))" "(values))))))" -" for-loop_112)" -"(hash-iterate-first ht_82))))" +" for-loop_113)" +"(hash-iterate-first ht_83))))" "(void)" " vec_33))))))" "(define-values" @@ -17280,23 +17661,23 @@ static const char *startup_source = " lst_96)))))))" "(define-values" "(interned-literal?)" -"(lambda(v_38)" +"(lambda(v_41)" "(begin" -"(let-values(((or-part_139)(null? v_38)))" -"(if or-part_139" -" or-part_139" -"(let-values(((or-part_171)(boolean? v_38)))" -"(if or-part_171" -" or-part_171" -"(let-values(((or-part_172)" -"(if(fixnum? v_38)(if(< v_38(sub1(expt 2 30)))(> v_38(-(expt 2 30))) #f) #f)))" -"(if or-part_172" -" or-part_172" -"(let-values(((or-part_140)(symbol? v_38)))" -"(if or-part_140" -" or-part_140" -"(let-values(((or-part_173)(char? v_38)))" -"(if or-part_173 or-part_173(keyword? v_38))))))))))))))" +"(let-values(((or-part_178)(null? v_41)))" +"(if or-part_178" +" or-part_178" +"(let-values(((or-part_179)(boolean? v_41)))" +"(if or-part_179" +" or-part_179" +"(let-values(((or-part_145)" +"(if(fixnum? v_41)(if(< v_41(sub1(expt 2 30)))(> v_41(-(expt 2 30))) #f) #f)))" +"(if or-part_145" +" or-part_145" +"(let-values(((or-part_180)(symbol? v_41)))" +"(if or-part_180" +" or-part_180" +"(let-values(((or-part_181)(char? v_41)))" +"(if or-part_181 or-part_181(keyword? v_41))))))))))))))" "(define-values" "(serialize-phase-to-link-module-uses)" "(lambda(phase-to-link-module-uses_0 mpis_5)" @@ -17312,7 +17693,7 @@ static const char *startup_source = "(let-values(((lst_98) phases-in-order_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_98)))" -"((letrec-values(((for-loop_113)" +"((letrec-values(((for-loop_114)" "(lambda(fold-var_38 lst_99)" "(begin" " 'for-loop" @@ -17335,9 +17716,9 @@ static const char *startup_source = " mpis_5))))" " fold-var_90))))" "(values fold-var_91)))))" -"(if(not #f)(for-loop_113 fold-var_89 rest_48) fold-var_89)))" +"(if(not #f)(for-loop_114 fold-var_89 rest_48) fold-var_89)))" " fold-var_38)))))" -" for-loop_113)" +" for-loop_114)" " null" " lst_98))))))))))" "(define-values" @@ -17345,11 +17726,11 @@ static const char *startup_source = "(lambda(syntax-support?2_0 syntax-support?3_0 v4_0 mpis5_0)" "(begin" " 'generate-deserialize6" -"(let-values(((v_136) v4_0))" +"(let-values(((v_138) v4_0))" "(let-values(((mpis_6) mpis5_0))" "(let-values(((syntax-support?_0)(if syntax-support?3_0 syntax-support?2_0 #t)))" "(let-values()" -"(let-values(((reachable-scopes_6)(find-reachable-scopes v_136)))" +"(let-values(((reachable-scopes_6)(find-reachable-scopes v_138)))" "(let-values(((state_22)(make-serialize-state reachable-scopes_6)))" "(let-values(((mutables_0)(make-hasheq)))" "(let-values(((objs_0)(make-hasheq)))" @@ -17358,98 +17739,98 @@ static const char *startup_source = "(let-values(((frontier_0) null))" "(letrec-values(((add-frontier!_0)" "(case-lambda" -"((v_137)(begin 'add-frontier!(set! frontier_0(cons v_137 frontier_0))))" -"((kind_3 v_73)(add-frontier!_0 v_73)))))" +"((v_139)(begin 'add-frontier!(set! frontier_0(cons v_139 frontier_0))))" +"((kind_3 v_76)(add-frontier!_0 v_76)))))" "(let-values((()" "(begin" "((letrec-values(((frontier-loop_0)" -"(lambda(v_138)" +"(lambda(v_140)" "(begin" " 'frontier-loop" "(begin" -"((letrec-values(((loop_80)" -"(lambda(v_96)" +"((letrec-values(((loop_83)" +"(lambda(v_97)" "(begin" " 'loop" -"(if(let-values(((or-part_174)" +"(if(let-values(((or-part_182)" "(interned-literal?" -" v_96)))" -"(if or-part_174" -" or-part_174" +" v_97)))" +"(if or-part_182" +" or-part_182" "(1/module-path-index?" -" v_96)))" +" v_97)))" "(let-values()(void))" "(if(hash-ref" " objs_0" -" v_96" +" v_97" " #f)" "(let-values()" "(if(hash-ref" " mutables_0" -" v_96" +" v_97" " #f)" "(void)" "(let-values()" "(hash-set!" " shares_0" -" v_96" +" v_97" " #t))))" "(let-values()" "(begin" "(if(serialize-fill!?" -" v_96)" +" v_97)" "(let-values()" "(begin" "(hash-set!" " mutables_0" -" v_96" +" v_97" "(hash-count" " mutables_0))" "((serialize-fill!-ref" -" v_96)" -" v_96" +" v_97)" +" v_97" " add-frontier!_0" " state_22)))" "(if(serialize?" -" v_96)" +" v_97)" "(let-values()" "((serialize-ref" -" v_96)" -" v_96" +" v_97)" +" v_97" "(case-lambda" "((sub-v_0)" -"(loop_80" +"(loop_83" " sub-v_0))" "((kind_4" " sub-v_1)" -"(loop_80" +"(loop_83" " sub-v_1)))" " state_22))" -"(if(pair? v_96)" +"(if(pair? v_97)" "(let-values()" "(begin" -"(loop_80" +"(loop_83" "(car" -" v_96))" -"(loop_80" +" v_97))" +"(loop_83" "(cdr" -" v_96))))" +" v_97))))" "(if(vector?" -" v_96)" +" v_97)" "(let-values()" -"(if(let-values(((or-part_92)" +"(if(let-values(((or-part_98)" "(immutable?" -" v_96)))" -"(if or-part_92" -" or-part_92" +" v_97)))" +"(if or-part_98" +" or-part_98" "(zero?" "(vector-length" -" v_96))))" +" v_97))))" "(begin" "(let-values(((vec_34" " len_15)" "(let-values(((vec_35)" -" v_96))" +" v_97))" "(begin" "(check-vector" " vec_35)" @@ -17459,7 +17840,7 @@ static const char *startup_source = " vec_35))))))" "(begin" " #f" -"((letrec-values(((for-loop_114)" +"((letrec-values(((for-loop_115)" "(lambda(pos_22)" "(begin" " 'for-loop" @@ -17476,32 +17857,32 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_80" +"(loop_83" " e_18))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_114" +"(for-loop_115" "(unsafe-fx+" " 1" " pos_22))" "(values))))" "(values))))))" -" for-loop_114)" +" for-loop_115)" " 0)))" "(void))" "(begin" "(hash-set!" " mutables_0" -" v_96" +" v_97" "(hash-count" " mutables_0))" "(begin" "(let-values(((vec_36" " len_16)" "(let-values(((vec_37)" -" v_96))" +" v_97))" "(begin" "(check-vector" " vec_37)" @@ -17511,7 +17892,7 @@ static const char *startup_source = " vec_37))))))" "(begin" " #f" -"((letrec-values(((for-loop_115)" +"((letrec-values(((for-loop_116)" "(lambda(pos_23)" "(begin" " 'for-loop" @@ -17534,41 +17915,41 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_115" +"(for-loop_116" "(unsafe-fx+" " 1" " pos_23))" "(values))))" "(values))))))" -" for-loop_115)" +" for-loop_116)" " 0)))" "(void)))))" "(if(box?" -" v_96)" +" v_97)" "(let-values()" "(if(immutable?" -" v_96)" -"(loop_80" +" v_97)" +"(loop_83" "(unbox" -" v_96))" +" v_97))" "(begin" "(hash-set!" " mutables_0" -" v_96" +" v_97" "(hash-count" " mutables_0))" "(add-frontier!_0" "(unbox" -" v_96)))))" +" v_97)))))" "(if(hash?" -" v_96)" +" v_97)" "(let-values()" "(if(immutable?" -" v_96)" +" v_97)" "(begin" "(let-values(((lst_100)" "(sorted-hash-keys" -" v_96)))" +" v_97)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -17576,7 +17957,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_100)))" -"((letrec-values(((for-loop_116)" +"((letrec-values(((for-loop_117)" "(lambda(lst_101)" "(begin" " 'for-loop" @@ -17595,33 +17976,33 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(loop_80" +"(loop_83" " k_20)" -"(loop_80" +"(loop_83" "(hash-ref" -" v_96" +" v_97" " k_20))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_116" +"(for-loop_117" " rest_49)" "(values))))" "(values))))))" -" for-loop_116)" +" for-loop_117)" " lst_100)))" "(void))" "(begin" "(hash-set!" " mutables_0" -" v_96" +" v_97" "(hash-count" " mutables_0))" "(begin" "(let-values(((lst_102)" "(sorted-hash-keys" -" v_96)))" +" v_97)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -17629,7 +18010,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_102)))" -"((letrec-values(((for-loop_117)" +"((letrec-values(((for-loop_118)" "(lambda(lst_103)" "(begin" " 'for-loop" @@ -17652,21 +18033,21 @@ static const char *startup_source = " k_21)" "(add-frontier!_0" "(hash-ref" -" v_96" +" v_97" " k_21))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_117" +"(for-loop_118" " rest_50)" "(values))))" "(values))))))" -" for-loop_117)" +" for-loop_118)" " lst_102)))" "(void)))))" "(if(prefab-struct-key" -" v_96)" +" v_97)" "(let-values()" "(begin" "(let-values(((v*_2" @@ -17683,7 +18064,7 @@ static const char *startup_source = "(unsafe-vector-length" " x_45))" "(struct->vector" -" v_96)" +" v_97)" " 1" " #f" " 1)))" @@ -17706,7 +18087,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_80" +"(loop_83" " e_20))" "(values)))))" "(values)))))" @@ -17722,7 +18103,7 @@ static const char *startup_source = " start*_1)))" "(void)))" "(if(srcloc?" -" v_96)" +" v_97)" "(let-values()" "(begin" "(let-values(((v*_3" @@ -17739,13 +18120,13 @@ static const char *startup_source = "(unsafe-vector-length" " x_47))" "(struct->vector" -" v_96)" +" v_97)" " 1" " #f" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_118)" +"((letrec-values(((for-loop_119)" "(lambda(idx_2)" "(begin" " 'for-loop" @@ -17762,32 +18143,32 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_80" +"(loop_83" " e_21))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_118" +"(for-loop_119" "(unsafe-fx+" " idx_2" " 1))" "(values))))" "(values))))))" -" for-loop_118)" +" for-loop_119)" " start*_2)))" "(void)))" "(let-values()" "(void))))))))))" "(hash-set!" " objs_0" -" v_96" +" v_97" " obj-step_0)" "(set! obj-step_0" "(add1" " obj-step_0))))))))))" -" loop_80)" -" v_138)" +" loop_83)" +" v_140)" "(if(null? frontier_0)" "(void)" "(let-values()" @@ -17801,13 +18182,13 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_104)))" -"((letrec-values(((for-loop_119)" +"((letrec-values(((for-loop_120)" "(lambda(lst_105)" "(begin" " 'for-loop" "(if(pair?" " lst_105)" -"(let-values(((v_139)" +"(let-values(((v_141)" "(unsafe-car" " lst_105))" "((rest_51)" @@ -17820,40 +18201,40 @@ static const char *startup_source = "(begin" "(let-values()" "(frontier-loop_0" -" v_139))" +" v_141))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_119" +"(for-loop_120" " rest_51)" "(values))))" "(values))))))" -" for-loop_119)" +" for-loop_120)" " lst_104)))" "(void))))))))))" " frontier-loop_0)" -" v_136)" +" v_138)" "(values))))" "(let-values(((num-mutables_0)(hash-count mutables_0)))" "(let-values(((share-step-positions_0)" "(let-values(((share-steps_0)" "(reverse$1" -"(let-values(((ht_83) shares_0))" +"(let-values(((ht_84) shares_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_83)))" -"((letrec-values(((for-loop_120)" -"(lambda(fold-var_92 i_104)" +"(let-values()(check-in-hash-keys ht_84)))" +"((letrec-values(((for-loop_121)" +"(lambda(fold-var_92 i_105)" "(begin" " 'for-loop" -"(if i_104" +"(if i_105" "(let-values(((obj_0)" "(hash-iterate-key" -" ht_83" -" i_104)))" +" ht_84" +" i_105)))" "(let-values(((fold-var_93)" "(let-values(((fold-var_94)" " fold-var_92))" @@ -17868,16 +18249,16 @@ static const char *startup_source = "(values" " fold-var_95)))))" "(if(not #f)" -"(for-loop_120" +"(for-loop_121" " fold-var_93" "(hash-iterate-next" -" ht_83" -" i_104))" +" ht_84" +" i_105))" " fold-var_93)))" " fold-var_92)))))" -" for-loop_120)" +" for-loop_121)" " null" -"(hash-iterate-first ht_83)))))))" +"(hash-iterate-first ht_84)))))))" "(let-values(((lst_106)" "(let-values(((share-steps12_0) share-steps_0)" "((<13_0) <))" @@ -17890,8 +18271,8 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_20)))" -"((letrec-values(((for-loop_121)" -"(lambda(table_107 lst_107 pos_24)" +"((letrec-values(((for-loop_122)" +"(lambda(table_110 lst_107 pos_24)" "(begin" " 'for-loop" "(if(if(pair? lst_107) #t #f)" @@ -17900,10 +18281,10 @@ static const char *startup_source = "((rest_52)" "(unsafe-cdr lst_107))" "((pos_25) pos_24))" -"(let-values(((table_108)" -"(let-values(((table_109)" -" table_107))" -"(let-values(((table_110)" +"(let-values(((table_111)" +"(let-values(((table_112)" +" table_110))" +"(let-values(((table_113)" "(let-values()" "(let-values(((key_44" " val_38)" @@ -17912,18 +18293,18 @@ static const char *startup_source = " step_3" " pos_25))))" "(hash-set" -" table_109" +" table_112" " key_44" " val_38)))))" -"(values table_110)))))" +"(values table_113)))))" "(if(not #f)" -"(for-loop_121" -" table_108" +"(for-loop_122" +" table_111" " rest_52" "(+ pos_24 1))" -" table_108)))" -" table_107)))))" -" for-loop_121)" +" table_111)))" +" table_110)))))" +" for-loop_122)" " '#hasheqv()" " lst_106" " start_20))))))" @@ -17935,12 +18316,12 @@ static const char *startup_source = "(lambda(pos_26)" "(begin" " 'quoted?" -"(let-values(((v_140)" +"(let-values(((v_142)" "(list-ref" " stream_0" "(- stream-size_0(add1 pos_26)))))" -"(let-values(((or-part_175)(not(keyword? v_140))))" -"(if or-part_175 or-part_175(eq? '#:quote v_140))))))))" +"(let-values(((or-part_183)(not(keyword? v_142))))" +"(if or-part_183 or-part_183(eq? '#:quote v_142))))))))" "(let-values(((ser-reset!_0)" "(lambda(pos_27)" "(begin" @@ -17959,70 +18340,70 @@ static const char *startup_source = "(set! stream-size_0 0))))))" "(letrec-values(((ser-push!_15)" "(case-lambda" -"((v_141)" +"((v_143)" "(begin" " 'ser-push!" -"(if(hash-ref shares_0 v_141 #f)" -"(let-values()" -"(let-values(((n_21)" -"(hash-ref" -" share-step-positions_0" -"(hash-ref objs_0 v_141))))" -"(begin" -"(ser-push!_15 'tag '#:ref)" -"(ser-push!_15 'exact n_21))))" -"(let-values(((c1_23)" -"(hash-ref mutables_0 v_141 #f)))" -"(if c1_23" -"((lambda(n_22)" -"(begin" -"(ser-push!_15 'tag '#:ref)" -"(ser-push!_15 'exact n_22)))" -" c1_23)" -"(let-values()" -"(ser-push-encoded!_0 v_141)))))))" -"((kind_5 v_142)" -"(let-values(((tmp_18) kind_5))" -"(if(equal? tmp_18 'exact)" -"(let-values()" -"(begin" -"(set! stream_0(cons v_142 stream_0))" -"(set! stream-size_0(add1 stream-size_0))))" -"(if(equal? tmp_18 'tag)" -"(let-values()(ser-push!_15 'exact v_142))" -"(if(equal? tmp_18 'reference)" -"(let-values()" -"(if(hash-ref shares_0 v_142 #f)" +"(if(hash-ref shares_0 v_143 #f)" "(let-values()" "(let-values(((n_23)" "(hash-ref" " share-step-positions_0" +"(hash-ref objs_0 v_143))))" +"(begin" +"(ser-push!_15 'tag '#:ref)" +"(ser-push!_15 'exact n_23))))" +"(let-values(((c1_23)" +"(hash-ref mutables_0 v_143 #f)))" +"(if c1_23" +"((lambda(n_24)" +"(begin" +"(ser-push!_15 'tag '#:ref)" +"(ser-push!_15 'exact n_24)))" +" c1_23)" +"(let-values()" +"(ser-push-encoded!_0 v_143)))))))" +"((kind_5 v_144)" +"(let-values(((tmp_19) kind_5))" +"(if(equal? tmp_19 'exact)" +"(let-values()" +"(begin" +"(set! stream_0(cons v_144 stream_0))" +"(set! stream-size_0(add1 stream-size_0))))" +"(if(equal? tmp_19 'tag)" +"(let-values()(ser-push!_15 'exact v_144))" +"(if(equal? tmp_19 'reference)" +"(let-values()" +"(if(hash-ref shares_0 v_144 #f)" +"(let-values()" +"(let-values(((n_25)" +"(hash-ref" +" share-step-positions_0" "(hash-ref" " objs_0" -" v_142))))" -"(ser-push!_15 'exact n_23)))" +" v_144))))" +"(ser-push!_15 'exact n_25)))" "(let-values(((c2_1)" "(hash-ref" " mutables_0" -" v_142" +" v_144" " #f)))" "(if c2_1" -"((lambda(n_24)" -"(ser-push!_15 'exact n_24))" +"((lambda(n_26)" +"(ser-push!_15 'exact n_26))" " c2_1)" "(let-values()" -"(ser-push!_15 v_142))))))" -"(let-values()(ser-push!_15 v_142)))))))))" +"(ser-push!_15 v_144))))))" +"(let-values()(ser-push!_15 v_144)))))))))" "((ser-push-encoded!_0)" -"(lambda(v_143)" +"(lambda(v_145)" "(begin" " 'ser-push-encoded!" -"(if(keyword? v_143)" +"(if(keyword? v_145)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:quote)" -"(ser-push!_15 'exact v_143)))" -"(if(1/module-path-index? v_143)" +"(ser-push!_15 'exact v_145)))" +"(if(1/module-path-index? v_145)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:mpi)" @@ -18030,16 +18411,16 @@ static const char *startup_source = " 'exact" "(add-module-path-index!/pos" " mpis_6" -" v_143))))" -"(if(serialize? v_143)" +" v_145))))" +"(if(serialize? v_145)" "(let-values()" -"((serialize-ref v_143)" -" v_143" +"((serialize-ref v_145)" +" v_145" " ser-push!_15" " state_22))" -"(if(if(list? v_143)" -"(if(pair? v_143)" -"(pair?(cdr v_143))" +"(if(if(list? v_145)" +"(if(pair? v_145)" +"(pair?(cdr v_145))" " #f)" " #f)" "(let-values()" @@ -18055,11 +18436,11 @@ static const char *startup_source = "(begin" "(ser-push!_15" " 'exact" -"(length v_143))" +"(length v_145))" "(values))))" "(let-values(((all-quoted?_0)" "(let-values(((lst_108)" -" v_143))" +" v_145))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -18067,14 +18448,14 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_108)))" -"((letrec-values(((for-loop_122)" +"((letrec-values(((for-loop_123)" "(lambda(all-quoted?_1" " lst_42)" "(begin" " 'for-loop" "(if(pair?" " lst_42)" -"(let-values(((i_105)" +"(let-values(((i_106)" "(unsafe-car" " lst_42))" "((rest_53)" @@ -18089,7 +18470,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_15" -" i_105)" +" i_106)" "(if all-quoted?_3" "(quoted?_0" " i-pos_0)" @@ -18098,12 +18479,12 @@ static const char *startup_source = " all-quoted?_4)))))" "(if(not" " #f)" -"(for-loop_122" +"(for-loop_123" " all-quoted?_2" " rest_53)" " all-quoted?_2)))" " all-quoted?_1)))))" -" for-loop_122)" +" for-loop_123)" " #t" " lst_108)))))" "(if all-quoted?_0" @@ -18113,9 +18494,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_143)))" +" v_145)))" "(void)))))))" -"(if(pair? v_143)" +"(if(pair? v_145)" "(let-values()" "(let-values(((start-pos_1)" "(next-push-position_0)))" @@ -18130,12 +18511,12 @@ static const char *startup_source = "(let-values((()" "(begin" "(ser-push!_15" -"(car v_143))" +"(car v_145))" "(values))))" "(let-values(((d-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_15(cdr v_143))" +"(ser-push!_15(cdr v_145))" "(if(if(quoted?_0 a-pos_0)" "(quoted?_0 d-pos_0)" " #f)" @@ -18146,9 +18527,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_143)))" +" v_145)))" "(void)))))))))" -"(if(box? v_143)" +"(if(box? v_145)" "(let-values()" "(let-values(((start-pos_2)" "(next-push-position_0)))" @@ -18161,7 +18542,7 @@ static const char *startup_source = "(let-values(((v-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_15(unbox v_143))" +"(ser-push!_15(unbox v_145))" "(if(quoted?_0 v-pos_0)" "(let-values()" "(begin" @@ -18170,9 +18551,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_143)))" +" v_145)))" "(void)))))))" -"(if(vector? v_143)" +"(if(vector? v_145)" "(let-values()" "(let-values(((start-pos_3)" "(next-push-position_0)))" @@ -18187,13 +18568,13 @@ static const char *startup_source = "(ser-push!_15" " 'exact" "(vector-length" -" v_143))" +" v_145))" "(values))))" "(let-values(((all-quoted?_5)" "(let-values(((vec_38" " len_17)" "(let-values(((vec_39)" -" v_143))" +" v_145))" "(begin" "(check-vector" " vec_39)" @@ -18203,7 +18584,7 @@ static const char *startup_source = " vec_39))))))" "(begin" " #f" -"((letrec-values(((for-loop_123)" +"((letrec-values(((for-loop_124)" "(lambda(all-quoted?_6" " pos_28)" "(begin" @@ -18211,7 +18592,7 @@ static const char *startup_source = "(if(unsafe-fx<" " pos_28" " len_17)" -"(let-values(((i_106)" +"(let-values(((i_107)" "(unsafe-vector-ref" " vec_38" " pos_28)))" @@ -18224,7 +18605,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_15" -" i_106)" +" i_107)" "(if all-quoted?_8" "(quoted?_0" " i-pos_1)" @@ -18233,14 +18614,14 @@ static const char *startup_source = " all-quoted?_9)))))" "(if(not" " #f)" -"(for-loop_123" +"(for-loop_124" " all-quoted?_7" "(unsafe-fx+" " 1" " pos_28))" " all-quoted?_7)))" " all-quoted?_6)))))" -" for-loop_123)" +" for-loop_124)" " #t" " 0)))))" "(if all-quoted?_5" @@ -18251,32 +18632,32 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_143)))" +" v_145)))" "(void)))))))" -"(if(hash? v_143)" +"(if(hash? v_145)" "(let-values()" "(let-values(((start-pos_4)" "(next-push-position_0)))" "(let-values(((as-set?_0)" -"(let-values(((ht_84)" -" v_143))" +"(let-values(((ht_85)" +" v_145))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-in-hash-values" -" ht_84)))" -"((letrec-values(((for-loop_124)" +" ht_85)))" +"((letrec-values(((for-loop_125)" "(lambda(result_64" -" i_107)" +" i_108)" "(begin" " 'for-loop" -"(if i_107" +"(if i_108" "(let-values(((val_39)" "(hash-iterate-value" -" ht_84" -" i_107)))" +" ht_85" +" i_108)))" "(let-values(((result_65)" "(let-values()" "(let-values(((result_66)" @@ -18295,38 +18676,38 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_124" +"(for-loop_125" " result_65" "(hash-iterate-next" -" ht_84" -" i_107))" +" ht_85" +" i_108))" " result_65)))" " result_64)))))" -" for-loop_124)" +" for-loop_125)" " #t" "(hash-iterate-first" -" ht_84))))))" +" ht_85))))))" "(let-values((()" "(begin" "(ser-push!_15" " 'tag" "(if as-set?_0" "(if(hash-eq?" -" v_143)" +" v_145)" "(let-values()" " '#:seteq)" "(if(hash-eqv?" -" v_143)" +" v_145)" "(let-values()" " '#:seteqv)" "(let-values()" " '#:set)))" "(if(hash-eq?" -" v_143)" +" v_145)" "(let-values()" " '#:hasheq)" "(if(hash-eqv?" -" v_143)" +" v_145)" "(let-values()" " '#:hasheqv)" "(let-values()" @@ -18337,11 +18718,11 @@ static const char *startup_source = "(ser-push!_15" " 'exact" "(hash-count" -" v_143))" +" v_145))" "(values))))" "(let-values(((ks_0)" "(sorted-hash-keys" -" v_143)))" +" v_145)))" "(let-values(((all-quoted?_10)" "(let-values(((lst_109)" " ks_0))" @@ -18352,7 +18733,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_109)))" -"((letrec-values(((for-loop_125)" +"((letrec-values(((for-loop_126)" "(lambda(all-quoted?_11" " lst_110)" "(begin" @@ -18385,15 +18766,15 @@ static const char *startup_source = "(let-values()" "(ser-push!_15" "(hash-ref" -" v_143" +" v_145" " k_22))))" "(if all-quoted?_13" "(if(quoted?_0" " k-pos_0)" -"(let-values(((or-part_176)" +"(let-values(((or-part_184)" " as-set?_0))" -"(if or-part_176" -" or-part_176" +"(if or-part_184" +" or-part_184" "(quoted?_0" " v-pos_1)))" " #f)" @@ -18402,12 +18783,12 @@ static const char *startup_source = " all-quoted?_14)))))" "(if(not" " #f)" -"(for-loop_125" +"(for-loop_126" " all-quoted?_12" " rest_54)" " all-quoted?_12)))" " all-quoted?_11)))))" -" for-loop_125)" +" for-loop_126)" " #t" " lst_109)))))" "(if all-quoted?_10" @@ -18418,16 +18799,16 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_143)))" +" v_145)))" "(void)))))))))" "(let-values(((c3_0)" "(prefab-struct-key" -" v_143)))" +" v_145)))" "(if c3_0" "((lambda(k_23)" "(let-values(((vec_40)" "(struct->vector" -" v_143)))" +" v_145)))" "(let-values(((start-pos_5)" "(next-push-position_0)))" "(let-values((()" @@ -18470,7 +18851,7 @@ static const char *startup_source = " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_126)" +"((letrec-values(((for-loop_127)" "(lambda(all-quoted?_16" " idx_3)" "(begin" @@ -18478,7 +18859,7 @@ static const char *startup_source = "(if(unsafe-fx<" " idx_3" " stop*_4)" -"(let-values(((i_108)" +"(let-values(((i_109)" "(unsafe-vector-ref" " v*_4" " idx_3)))" @@ -18491,7 +18872,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_15" -" i_108)" +" i_109)" "(if all-quoted?_18" "(quoted?_0" " i-pos_2)" @@ -18500,14 +18881,14 @@ static const char *startup_source = " all-quoted?_19)))))" "(if(not" " #f)" -"(for-loop_126" +"(for-loop_127" " all-quoted?_17" "(unsafe-fx+" " idx_3" " 1))" " all-quoted?_17)))" " all-quoted?_16)))))" -" for-loop_126)" +" for-loop_127)" " #t" " start*_3)))))" "(if all-quoted?_15" @@ -18518,91 +18899,91 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_143)))" +" v_145)))" "(void)))))))))" " c3_0)" -"(if(srcloc? v_143)" +"(if(srcloc? v_145)" "(let-values()" "(begin" "(ser-push!_15" " 'tag" " '#:srcloc)" "(ser-push!_15" -"(srcloc-source v_143))" +"(srcloc-source v_145))" "(ser-push!_15" -"(srcloc-line v_143))" +"(srcloc-line v_145))" "(ser-push!_15" -"(srcloc-column v_143))" +"(srcloc-column v_145))" "(ser-push!_15" -"(srcloc-position v_143))" +"(srcloc-position v_145))" "(ser-push!_15" -"(srcloc-span v_143))))" +"(srcloc-span v_145))))" "(let-values()" "(begin" "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_143)))))))))))))))))" +" v_145)))))))))))))))))" "((ser-push-optional-quote!_0)" "(lambda()(begin 'ser-push-optional-quote!(void)))))" "(let-values(((ser-shell!_0)" -"(lambda(v_144)" +"(lambda(v_146)" "(begin" " 'ser-shell!" -"(if(serialize-fill!? v_144)" +"(if(serialize-fill!? v_146)" "(let-values()" -"((serialize-ref v_144)" -" v_144" +"((serialize-ref v_146)" +" v_146" " ser-push!_15" " state_22))" -"(if(box? v_144)" +"(if(box? v_146)" "(let-values()(ser-push!_15 'tag '#:box))" -"(if(vector? v_144)" +"(if(vector? v_146)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:vector)" "(ser-push!_15" " 'exact" -"(vector-length v_144))))" -"(if(hash? v_144)" +"(vector-length v_146))))" +"(if(hash? v_146)" "(let-values()" "(ser-push!_15" " 'tag" -"(if(hash-eq? v_144)" +"(if(hash-eq? v_146)" "(let-values() '#:hasheq)" -"(if(hash-eqv? v_144)" +"(if(hash-eqv? v_146)" "(let-values() '#:hasheqv)" "(let-values() '#:hash)))))" "(let-values()" "(error" " 'ser-shell" " \"unknown mutable: ~e\"" -" v_144))))))))))" +" v_146))))))))))" "(let-values(((ser-shell-fill!_0)" -"(lambda(v_145)" +"(lambda(v_147)" "(begin" " 'ser-shell-fill!" -"(if(serialize-fill!? v_145)" +"(if(serialize-fill!? v_147)" "(let-values()" -"((serialize-fill!-ref v_145)" -" v_145" +"((serialize-fill!-ref v_147)" +" v_147" " ser-push!_15" " state_22))" -"(if(box? v_145)" +"(if(box? v_147)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:set-box!)" -"(ser-push!_15(unbox v_145))))" -"(if(vector? v_145)" +"(ser-push!_15(unbox v_147))))" +"(if(vector? v_147)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:set-vector!)" "(ser-push!_15" " 'exact" -"(vector-length v_145))" +"(vector-length v_147))" "(let-values(((vec_41 len_18)" "(let-values(((vec_42)" -" v_145))" +" v_147))" "(begin" "(check-vector vec_42)" "(values" @@ -18611,14 +18992,14 @@ static const char *startup_source = " vec_42))))))" "(begin" " #f" -"((letrec-values(((for-loop_127)" +"((letrec-values(((for-loop_128)" "(lambda(pos_29)" "(begin" " 'for-loop" "(if(unsafe-fx<" " pos_29" " len_18)" -"(let-values(((v_146)" +"(let-values(((v_148)" "(unsafe-vector-ref" " vec_41" " pos_29)))" @@ -18629,21 +19010,21 @@ static const char *startup_source = "(begin" "(let-values()" "(ser-push!_15" -" v_146))" +" v_148))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_127" +"(for-loop_128" "(unsafe-fx+" " 1" " pos_29))" "(values))))" "(values))))))" -" for-loop_127)" +" for-loop_128)" " 0)))" "(void)))" -"(if(hash? v_145)" +"(if(hash? v_147)" "(let-values()" "(let-values((()" "(begin" @@ -18655,11 +19036,11 @@ static const char *startup_source = "(begin" "(ser-push!_15" " 'exact" -"(hash-count v_145))" +"(hash-count v_147))" "(values))))" "(let-values(((ks_1)" "(sorted-hash-keys" -" v_145)))" +" v_147)))" "(begin" "(let-values(((lst_111) ks_1))" "(begin" @@ -18668,7 +19049,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_111)))" -"((letrec-values(((for-loop_128)" +"((letrec-values(((for-loop_129)" "(lambda(lst_112)" "(begin" " 'for-loop" @@ -18691,69 +19072,69 @@ static const char *startup_source = " k_24)" "(ser-push!_15" "(hash-ref" -" v_145" +" v_147" " k_24))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_128" +"(for-loop_129" " rest_55)" "(values))))" "(values))))))" -" for-loop_128)" +" for-loop_129)" " lst_111)))" "(void))))))" "(let-values()" "(error" " 'ser-shell-fill" " \"unknown mutable: ~e\"" -" v_145))))))))))" +" v_147))))))))))" "(let-values(((rev-mutables_0)" -"(let-values(((ht_85) mutables_0))" +"(let-values(((ht_86) mutables_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_85)))" -"((letrec-values(((for-loop_129)" -"(lambda(table_111 i_109)" +"(let-values()(check-in-hash ht_86)))" +"((letrec-values(((for-loop_130)" +"(lambda(table_114 i_110)" "(begin" " 'for-loop" -"(if i_109" +"(if i_110" "(let-values(((k_25" -" v_147)" +" v_149)" "(hash-iterate-key+value" -" ht_85" -" i_109)))" -"(let-values(((table_112)" -"(let-values(((table_113)" -" table_111))" -"(let-values(((table_114)" +" ht_86" +" i_110)))" +"(let-values(((table_115)" +"(let-values(((table_116)" +" table_114))" +"(let-values(((table_117)" "(let-values()" "(let-values(((key_45" " val_40)" "(let-values()" "(values" -" v_147" +" v_149" " k_25))))" "(hash-set" -" table_113" +" table_116" " key_45" " val_40)))))" "(values" -" table_114)))))" +" table_117)))))" "(if(not #f)" -"(for-loop_129" -" table_112" +"(for-loop_130" +" table_115" "(hash-iterate-next" -" ht_85" -" i_109))" -" table_112)))" -" table_111)))))" -" for-loop_129)" +" ht_86" +" i_110))" +" table_115)))" +" table_114)))))" +" for-loop_130)" " '#hasheqv()" -"(hash-iterate-first ht_85))))))" +"(hash-iterate-first ht_86))))))" "(let-values(((mutable-shell-bindings_0)" "(begin" "(begin" @@ -18767,7 +19148,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_21 end_13 inc_7)))" -"((letrec-values(((for-loop_130)" +"((letrec-values(((for-loop_131)" "(lambda(pos_30)" "(begin" " 'for-loop" @@ -18789,37 +19170,37 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_130" +"(for-loop_131" "(+" " pos_30" " inc_7))" "(values))))" "(values))))))" -" for-loop_130)" +" for-loop_131)" " start_21)))" "(void))" "(reap-stream!_0))))" "(let-values(((rev-shares_0)" -"(let-values(((ht_86) shares_0))" +"(let-values(((ht_87) shares_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash-keys ht_86)))" -"((letrec-values(((for-loop_131)" -"(lambda(table_115 i_110)" +"(check-in-hash-keys ht_87)))" +"((letrec-values(((for-loop_132)" +"(lambda(table_118 i_111)" "(begin" " 'for-loop" -"(if i_110" +"(if i_111" "(let-values(((obj_1)" "(hash-iterate-key" -" ht_86" -" i_110)))" -"(let-values(((table_116)" -"(let-values(((table_117)" -" table_115))" -"(let-values(((table_118)" +" ht_87" +" i_111)))" +"(let-values(((table_119)" +"(let-values(((table_120)" +" table_118))" +"(let-values(((table_121)" "(let-values()" "(let-values(((key_46" " val_41)" @@ -18832,22 +19213,22 @@ static const char *startup_source = " obj_1))" " obj_1))))" "(hash-set" -" table_117" +" table_120" " key_46" " val_41)))))" "(values" -" table_118)))))" +" table_121)))))" "(if(not #f)" -"(for-loop_131" -" table_116" +"(for-loop_132" +" table_119" "(hash-iterate-next" -" ht_86" -" i_110))" -" table_116)))" -" table_115)))))" -" for-loop_131)" +" ht_87" +" i_111))" +" table_119)))" +" table_118)))))" +" for-loop_132)" " '#hasheqv()" -"(hash-iterate-first ht_86))))))" +"(hash-iterate-first ht_87))))))" "(let-values(((shared-bindings_0)" "(begin" "(begin" @@ -18866,14 +19247,14 @@ static const char *startup_source = " start_22" " end_14" " inc_8)))" -"((letrec-values(((for-loop_132)" +"((letrec-values(((for-loop_133)" "(lambda(pos_31)" "(begin" " 'for-loop" "(if(<" " pos_31" " end_14)" -"(let-values(((i_111)" +"(let-values(((i_112)" " pos_31))" "(let-values((()" "(let-values()" @@ -18884,18 +19265,18 @@ static const char *startup_source = "(ser-push-encoded!_0" "(hash-ref" " rev-shares_0" -" i_111)))" +" i_112)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_132" +"(for-loop_133" "(+" " pos_31" " inc_8))" "(values))))" "(values))))))" -" for-loop_132)" +" for-loop_133)" " start_22)))" "(void))" "(reap-stream!_0))))" @@ -18915,14 +19296,14 @@ static const char *startup_source = " start_23" " end_15" " inc_9)))" -"((letrec-values(((for-loop_133)" +"((letrec-values(((for-loop_134)" "(lambda(pos_32)" "(begin" " 'for-loop" "(if(<" " pos_32" " end_15)" -"(let-values(((i_112)" +"(let-values(((i_113)" " pos_32))" "(let-values((()" "(let-values()" @@ -18933,18 +19314,18 @@ static const char *startup_source = "(ser-shell-fill!_0" "(hash-ref" " rev-mutables_0" -" i_112)))" +" i_113)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_133" +"(for-loop_134" "(+" " pos_32" " inc_9))" "(values))))" "(values))))))" -" for-loop_133)" +" for-loop_134)" " start_23)))" "(void))" "(reap-stream!_0))))" @@ -18961,13 +19342,13 @@ static const char *startup_source = "(list" " 'quote" "(begin" -"(ser-push!_15 v_136)" +"(ser-push!_15 v_138)" "(reap-stream!_0))))))))))))))))))))))))))))))))))))" "(define-values" "(sorted-hash-keys)" -"(lambda(ht_87)" +"(lambda(ht_88)" "(begin" -"(let-values(((ks_2)(hash-keys ht_87)))" +"(let-values(((ks_2)(hash-keys ht_88)))" "(if(null? ks_2)" "(let-values() ks_2)" "(if(null?(cdr ks_2))" @@ -19005,12 +19386,12 @@ 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_134)" +"((letrec-values(((for-loop_135)" "(lambda(pos_33 pos_34)" "(begin" " 'for-loop" "(if(< pos_34 end_16)" -"(let-values(((i_113) pos_34))" +"(let-values(((i_114) pos_34))" "(let-values(((pos_35)" "(let-values(((pos_36) pos_33))" "(let-values(((pos_37)" @@ -19026,13 +19407,13 @@ static const char *startup_source = "(begin" "(vector-set!" " shared_0" -" i_113" +" i_114" " d_22)" " next-pos_0)))))" "(values pos_37)))))" -"(if(not #f)(for-loop_134 pos_35(+ pos_34 inc_10)) pos_35)))" +"(if(not #f)(for-loop_135 pos_35(+ pos_34 inc_10)) pos_35)))" " pos_33)))))" -" for-loop_134)" +" for-loop_135)" " 0" " start_24)))" "(values))))" @@ -19045,12 +19426,12 @@ 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_135)" +"((letrec-values(((for-loop_136)" "(lambda(pos_38 pos_39)" "(begin" " 'for-loop" "(if(< pos_39 end_17)" -"(let-values(((i_114) pos_39))" +"(let-values(((i_115) pos_39))" "(let-values(((pos_40)" "(let-values(((pos_41) pos_38))" "(let-values(((pos_42)" @@ -19066,13 +19447,13 @@ static const char *startup_source = "(begin" "(vector-set!" " shared_0" -" i_114" +" i_115" " d_23)" " next-pos_1)))))" "(values pos_42)))))" -"(if(not #f)(for-loop_135 pos_40(+ pos_39 inc_11)) pos_40)))" +"(if(not #f)(for-loop_136 pos_40(+ pos_39 inc_11)) pos_40)))" " pos_38)))))" -" for-loop_135)" +" for-loop_136)" " 0" " start_25)))" "(values))))" @@ -19091,18 +19472,18 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_26 end_18 inc_12)))" " #f" -"((letrec-values(((for-loop_136)" +"((letrec-values(((for-loop_137)" "(lambda(pos_43 pos_44 pos_45)" "(begin" " 'for-loop" "(if(if(< pos_44 end_18)(unsafe-fx< pos_45 len_19) #f)" -"(let-values(((v_148)(unsafe-vector-ref vec_43 pos_45)))" +"(let-values(((v_150)(unsafe-vector-ref vec_43 pos_45)))" "(let-values(((pos_46)" "(let-values(((pos_47) pos_43))" "(let-values(((pos_48)" "(let-values()" "(decode-fill!" -" v_148" +" v_150" " mutable-fill-vec_0" " pos_47" " mpis_7" @@ -19111,13 +19492,13 @@ static const char *startup_source = " shared_0))))" "(values pos_48)))))" "(if(not #f)" -"(for-loop_136" +"(for-loop_137" " pos_46" "(+ pos_44 inc_12)" "(unsafe-fx+ 1 pos_45))" " pos_46)))" " pos_43)))))" -" for-loop_136)" +" for-loop_137)" " 0" " start_26" " 0)))" @@ -19129,16 +19510,16 @@ static const char *startup_source = "(decode-shell)" "(lambda(vec_4 pos_49 mpis_8 inspector_6 bulk-binding-registry_6 shared_1)" "(begin" -"(let-values(((tmp_19)(vector*-ref vec_4 pos_49)))" -"(if(equal? tmp_19 '#:box)" +"(let-values(((tmp_20)(vector*-ref vec_4 pos_49)))" +"(if(equal? tmp_20 '#:box)" "(let-values()(values(box #f)(add1 pos_49)))" -"(if(equal? tmp_19 '#:vector)" +"(if(equal? tmp_20 '#:vector)" "(let-values()(values(make-vector(vector*-ref vec_4(add1 pos_49)))(+ pos_49 2)))" -"(if(equal? tmp_19 '#:hash)" +"(if(equal? tmp_20 '#:hash)" "(let-values()(values(make-hasheq)(add1 pos_49)))" -"(if(equal? tmp_19 '#:hasheq)" +"(if(equal? tmp_20 '#:hasheq)" "(let-values()(values(make-hasheq)(add1 pos_49)))" -"(if(equal? tmp_19 '#:hasheqv)" +"(if(equal? tmp_20 '#:hasheqv)" "(let-values()(values(make-hasheqv)(add1 pos_49)))" "(let-values()(decode vec_4 pos_49 mpis_8 inspector_6 bulk-binding-registry_6 shared_1)))))))))))" "(define-values" @@ -19146,9 +19527,9 @@ static const char *startup_source = "(lambda(vec_45 pos_50 mpis_9 inspector_7 bulk-binding-registry_7 shared_2)" "(begin" "(let-values()" -"(let-values(((tmp_20)(vector*-ref vec_45 pos_50)))" +"(let-values(((tmp_21)(vector*-ref vec_45 pos_50)))" "(let-values(((index_0)" -"(if(keyword? tmp_20)" +"(if(keyword? tmp_21)" "(hash-ref" " '#hasheq((#:scope+kind . 17)" "(#:seteqv . 14)" @@ -19182,7 +19563,7 @@ static const char *startup_source = "(#:datum->syntax . 5)" "(#:syntax+props . 6)" "(#:representative-scope . 22))" -" tmp_20" +" tmp_21" "(lambda() 0))" " 0)))" "(if(unsafe-fx< index_0 13)" @@ -19206,9 +19587,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(let-values(((context_2 next-pos_3)" -"(let-values(((i_115)(vector*-ref vec_45 next-pos_2)))" -"(if(exact-integer? i_115)" -"(values(vector*-ref shared_2 i_115)(add1 next-pos_2))" +"(let-values(((i_116)(vector*-ref vec_45 next-pos_2)))" +"(if(exact-integer? i_116)" +"(values(vector*-ref shared_2 i_116)(add1 next-pos_2))" "(decode" " vec_45" " next-pos_2" @@ -19217,9 +19598,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_3 next-pos_4)" -"(let-values(((i_116)(vector*-ref vec_45 next-pos_3)))" -"(if(exact-integer? i_116)" -"(values(vector*-ref shared_2 i_116)(add1 next-pos_3))" +"(let-values(((i_117)(vector*-ref vec_45 next-pos_3)))" +"(if(exact-integer? i_117)" +"(values(vector*-ref shared_2 i_117)(add1 next-pos_3))" "(decode" " vec_45" " next-pos_3" @@ -19240,9 +19621,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(let-values(((context_3 next-pos_6)" -"(let-values(((i_117)(vector*-ref vec_45 next-pos_5)))" -"(if(exact-integer? i_117)" -"(values(vector*-ref shared_2 i_117)(add1 next-pos_5))" +"(let-values(((i_118)(vector*-ref vec_45 next-pos_5)))" +"(if(exact-integer? i_118)" +"(values(vector*-ref shared_2 i_118)(add1 next-pos_5))" "(decode" " vec_45" " next-pos_5" @@ -19251,9 +19632,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_4 next-pos_7)" -"(let-values(((i_118)(vector*-ref vec_45 next-pos_6)))" -"(if(exact-integer? i_118)" -"(values(vector*-ref shared_2 i_118)(add1 next-pos_6))" +"(let-values(((i_119)(vector*-ref vec_45 next-pos_6)))" +"(if(exact-integer? i_119)" +"(values(vector*-ref shared_2 i_119)(add1 next-pos_6))" "(decode" " vec_45" " next-pos_6" @@ -19270,9 +19651,9 @@ static const char *startup_source = "(let-values(((content_9 next-pos_8)" "(decode vec_45(add1 pos_50) mpis_9 inspector_7 bulk-binding-registry_7 shared_2)))" "(let-values(((context_4 next-pos_9)" -"(let-values(((i_119)(vector*-ref vec_45 next-pos_8)))" -"(if(exact-integer? i_119)" -"(values(vector*-ref shared_2 i_119)(add1 next-pos_8))" +"(let-values(((i_120)(vector*-ref vec_45 next-pos_8)))" +"(if(exact-integer? i_120)" +"(values(vector*-ref shared_2 i_120)(add1 next-pos_8))" "(decode" " vec_45" " next-pos_8" @@ -19281,9 +19662,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_5 next-pos_10)" -"(let-values(((i_120)(vector*-ref vec_45 next-pos_9)))" -"(if(exact-integer? i_120)" -"(values(vector*-ref shared_2 i_120)(add1 next-pos_9))" +"(let-values(((i_121)(vector*-ref vec_45 next-pos_9)))" +"(if(exact-integer? i_121)" +"(values(vector*-ref shared_2 i_121)(add1 next-pos_9))" "(decode" " vec_45" " next-pos_9" @@ -19358,7 +19739,7 @@ static const char *startup_source = "(let-values()(values(vector*-ref mpis_9(vector*-ref vec_45(add1 pos_50)))(+ pos_50 2)))" "(if(unsafe-fx< index_0 11)" "(let-values()" -"(let-values(((v_149 next-pos_18)" +"(let-values(((v_151 next-pos_18)" "(decode" " vec_45" "(add1 pos_50)" @@ -19366,10 +19747,10 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(values(box-immutable v_149) next-pos_18)))" +"(values(box-immutable v_151) next-pos_18)))" "(if(unsafe-fx< index_0 12)" "(let-values()" -"(let-values(((a_38 next-pos_19)" +"(let-values(((a_44 next-pos_19)" "(decode" " vec_45" "(add1 pos_50)" @@ -19385,7 +19766,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(values(cons a_38 d_24) next-pos_20))))" +"(values(cons a_44 d_24) next-pos_20))))" "(let-values()" "(let-values(((len_20)(vector*-ref vec_45(add1 pos_50))))" "(let-values(((r_29)(make-vector len_20)))" @@ -19395,19 +19776,19 @@ 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_137)" +"((letrec-values(((for-loop_138)" "(lambda(pos_51 pos_52)" "(begin" " 'for-loop" "(if(< pos_52 end_19)" -"(let-values(((i_121) pos_52))" +"(let-values(((i_122) pos_52))" "(let-values(((pos_53)" "(let-values(((pos_54) pos_51))" "(let-values(((pos_55)" "(let-values()" -"(let-values(((v_150" +"(let-values(((v_152" " next-pos_22)" -"(let-values(((v_151" +"(let-values(((v_153" " next-pos_23)" "(decode" " vec_45" @@ -19417,20 +19798,20 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -" v_151" +" v_153" " next-pos_23))))" "(begin" "(vector-set!" " r_29" -" i_121" -" v_150)" +" i_122" +" v_152)" " next-pos_22)))))" "(values pos_55)))))" "(if(not #f)" -"(for-loop_137 pos_53(+ pos_52 inc_13))" +"(for-loop_138 pos_53(+ pos_52 inc_13))" " pos_53)))" " pos_51)))))" -" for-loop_137)" +" for-loop_138)" "(+ pos_50 2)" " start_27)))))" "(values" @@ -19442,13 +19823,13 @@ static const char *startup_source = "(if(unsafe-fx< index_0 16)" "(if(unsafe-fx< index_0 14)" "(let-values()" -"(let-values(((ht_88)" -"(let-values(((tmp_21)(vector*-ref vec_45 pos_50)))" -"(if(equal? tmp_21 '#:hash)" +"(let-values(((ht_89)" +"(let-values(((tmp_22)(vector*-ref vec_45 pos_50)))" +"(if(equal? tmp_22 '#:hash)" "(let-values()(hash))" -"(if(equal? tmp_21 '#:hasheq)" +"(if(equal? tmp_22 '#:hasheq)" "(let-values()(hasheq))" -"(if(equal? tmp_21 '#:hasheqv)" +"(if(equal? tmp_22 '#:hasheqv)" "(let-values()(hasheqv))" "(let-values()(void))))))))" "(let-values(((len_21)(vector*-ref vec_45(add1 pos_50))))" @@ -19457,15 +19838,15 @@ 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_138)" -"(lambda(ht_89 pos_56 pos_57)" +"((letrec-values(((for-loop_139)" +"(lambda(ht_90 pos_56 pos_57)" "(begin" " 'for-loop" "(if(< pos_57 end_20)" "(let-values()" -"(let-values(((ht_90 pos_58)" -"(let-values(((ht_91) ht_89)((pos_59) pos_56))" -"(let-values(((ht_92 pos_60)" +"(let-values(((ht_91 pos_58)" +"(let-values(((ht_92) ht_90)((pos_59) pos_56))" +"(let-values(((ht_93 pos_60)" "(let-values()" "(let-values(((k_26 next-pos_24)" "(decode" @@ -19475,7 +19856,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((v_152" +"(let-values(((v_154" " next-pos_25)" "(decode" " vec_45" @@ -19485,26 +19866,26 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -"(hash-set ht_91 k_26 v_152)" +"(hash-set ht_92 k_26 v_154)" " next-pos_25))))))" -"(values ht_92 pos_60)))))" +"(values ht_93 pos_60)))))" "(if(not #f)" -"(for-loop_138 ht_90 pos_58(+ pos_57 inc_14))" -"(values ht_90 pos_58))))" -"(values ht_89 pos_56))))))" -" for-loop_138)" -" ht_88" +"(for-loop_139 ht_91 pos_58(+ pos_57 inc_14))" +"(values ht_91 pos_58))))" +"(values ht_90 pos_56))))))" +" for-loop_139)" +" ht_89" "(+ pos_50 2)" " start_28))))))" "(if(unsafe-fx< index_0 15)" "(let-values()" "(let-values(((s_137)" -"(let-values(((tmp_22)(vector*-ref vec_45 pos_50)))" -"(if(equal? tmp_22 '#:set)" +"(let-values(((tmp_23)(vector*-ref vec_45 pos_50)))" +"(if(equal? tmp_23 '#:set)" "(let-values()(set))" -"(if(equal? tmp_22 '#:seteq)" +"(if(equal? tmp_23 '#:seteq)" "(let-values()(seteq))" -"(if(equal? tmp_22 '#:seteqv)" +"(if(equal? tmp_23 '#:seteqv)" "(let-values()(seteqv))" "(let-values()(void))))))))" "(let-values(((len_22)(vector*-ref vec_45(add1 pos_50))))" @@ -19513,7 +19894,7 @@ 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_139)" +"((letrec-values(((for-loop_140)" "(lambda(s_187 pos_61 pos_62)" "(begin" " 'for-loop" @@ -19537,10 +19918,10 @@ static const char *startup_source = " next-pos_26)))))" "(values s_189 pos_65)))))" "(if(not #f)" -"(for-loop_139 s_139 pos_63(+ pos_62 inc_15))" +"(for-loop_140 s_139 pos_63(+ pos_62 inc_15))" "(values s_139 pos_63))))" "(values s_187 pos_61))))))" -" for-loop_139)" +" for-loop_140)" " s_137" "(+ pos_50 2)" " start_29))))))" @@ -19562,7 +19943,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_140)" +"((letrec-values(((for-loop_141)" "(lambda(r_31 pos_66 pos_67)" "(begin" " 'for-loop" @@ -19573,7 +19954,7 @@ static const char *startup_source = "((pos_69) pos_66))" "(let-values(((r_34 pos_70)" "(let-values()" -"(let-values(((v_153" +"(let-values(((v_155" " next-pos_29)" "(decode" " vec_45" @@ -19584,15 +19965,15 @@ static const char *startup_source = " shared_2)))" "(values" "(cons" -" v_153" +" v_155" " r_33)" " next-pos_29)))))" "(values r_34 pos_70)))))" "(if(not #f)" -"(for-loop_140 r_32 pos_68(+ pos_67 inc_16))" +"(for-loop_141 r_32 pos_68(+ pos_67 inc_16))" "(values r_32 pos_68))))" "(values r_31 pos_66))))))" -" for-loop_140)" +" for-loop_141)" " null" "(add1 next-pos_27)" " start_30)))))" @@ -19932,17 +20313,17 @@ static const char *startup_source = " next-pos_65)))))))))))))))))" "(define-values" "(decode-fill!)" -"(lambda(v_154 vec_46 pos_71 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)" +"(lambda(v_156 vec_46 pos_71 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)" "(begin" -"(let-values(((tmp_23)(vector*-ref vec_46 pos_71)))" -"(if(equal? tmp_23 #f)" +"(let-values(((tmp_24)(vector*-ref vec_46 pos_71)))" +"(if(equal? tmp_24 #f)" "(let-values()(add1 pos_71))" -"(if(equal? tmp_23 '#:set-box!)" +"(if(equal? tmp_24 '#:set-box!)" "(let-values()" "(let-values(((c_21 next-pos_66)" "(decode vec_46(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(set-box! v_154 c_21) next-pos_66)))" -"(if(equal? tmp_23 '#:set-vector!)" +"(begin(set-box! v_156 c_21) next-pos_66)))" +"(if(equal? tmp_24 '#:set-vector!)" "(let-values()" "(let-values(((len_24)(vector*-ref vec_46(add1 pos_71))))" "(let-values(((start_31) 0)((end_23) len_24)((inc_17) 1))" @@ -19950,12 +20331,12 @@ 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_141)" +"((letrec-values(((for-loop_142)" "(lambda(pos_72 pos_73)" "(begin" " 'for-loop" "(if(< pos_73 end_23)" -"(let-values(((i_122) pos_73))" +"(let-values(((i_123) pos_73))" "(let-values(((pos_74)" "(let-values(((pos_75) pos_72))" "(let-values(((pos_76)" @@ -19969,15 +20350,15 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(vector-set! v_154 i_122 c_22)" +"(vector-set! v_156 i_123 c_22)" " next-pos_67)))))" "(values pos_76)))))" -"(if(not #f)(for-loop_141 pos_74(+ pos_73 inc_17)) pos_74)))" +"(if(not #f)(for-loop_142 pos_74(+ pos_73 inc_17)) pos_74)))" " pos_72)))))" -" for-loop_141)" +" for-loop_142)" "(+ pos_71 2)" " start_31)))))" -"(if(equal? tmp_23 '#:set-hash!)" +"(if(equal? tmp_24 '#:set-hash!)" "(let-values()" "(let-values(((len_25)(vector*-ref vec_46(add1 pos_71))))" "(let-values(((start_32) 0)((end_24) len_25)((inc_18) 1))" @@ -19985,7 +20366,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_142)" +"((letrec-values(((for-loop_143)" "(lambda(pos_77 pos_78)" "(begin" " 'for-loop" @@ -20012,70 +20393,70 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(hash-set! v_154 key_49 val_42)" +"(hash-set! v_156 key_49 val_42)" " done-pos_2))))))" "(values pos_81)))))" -"(if(not #f)(for-loop_142 pos_79(+ pos_78 inc_18)) pos_79)))" +"(if(not #f)(for-loop_143 pos_79(+ pos_78 inc_18)) pos_79)))" " pos_77)))))" -" for-loop_142)" +" for-loop_143)" "(+ pos_71 2)" " start_32)))))" -"(if(equal? tmp_23 '#:scope-fill!)" +"(if(equal? tmp_24 '#:scope-fill!)" "(let-values()" "(let-values(((c_23 next-pos_69)" "(decode vec_46(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-scope-fill! v_154 c_23) next-pos_69)))" -"(if(equal? tmp_23 '#:representative-scope-fill!)" +"(begin(deserialize-scope-fill! v_156 c_23) next-pos_69)))" +"(if(equal? tmp_24 '#:representative-scope-fill!)" "(let-values()" -"(let-values(((a_39 next-pos_70)" +"(let-values(((a_45 next-pos_70)" "(decode vec_46(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" "(let-values(((d_25 done-pos_3)" "(decode vec_46 next-pos_70 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-representative-scope-fill! v_154 a_39 d_25) done-pos_3))))" +"(begin(deserialize-representative-scope-fill! v_156 a_45 d_25) done-pos_3))))" " (let-values () (error 'deserialize \"bad fill encoding: ~v\" (vector*-ref vec_46 pos_71)))))))))))))" "(define-values" "(find-reachable-scopes)" -"(lambda(v_155)" +"(lambda(v_157)" "(begin" "(let-values(((seen_23)(make-hasheq)))" "(let-values(((reachable-scopes_7)(seteq)))" "(let-values(((scope-triggers_0)(make-hasheq)))" "(begin" -"((letrec-values(((loop_81)" -"(lambda(v_156)" +"((letrec-values(((loop_84)" +"(lambda(v_158)" "(begin" " 'loop" -"(if(interned-literal? v_156)" +"(if(interned-literal? v_158)" "(let-values()(void))" -"(if(hash-ref seen_23 v_156 #f)" +"(if(hash-ref seen_23 v_158 #f)" "(let-values()(void))" "(let-values()" "(begin" -"(hash-set! seen_23 v_156 #t)" -"(if(scope-with-bindings? v_156)" +"(hash-set! seen_23 v_158 #t)" +"(if(scope-with-bindings? v_158)" "(let-values()" "(let-values((()" "(begin" "(set! reachable-scopes_7" -"(set-add reachable-scopes_7 v_156))" +"(set-add reachable-scopes_7 v_158))" "(values))))" "(let-values((()" "(begin" -"((reach-scopes-ref v_156) v_156 loop_81)" +"((reach-scopes-ref v_158) v_158 loop_84)" "(values))))" -"(let-values(((l_50)(hash-ref scope-triggers_0 v_156 null)))" +"(let-values(((l_50)(hash-ref scope-triggers_0 v_158 null)))" "(begin" "(let-values(((lst_113) l_50))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_113)))" -"((letrec-values(((for-loop_143)" +"((letrec-values(((for-loop_144)" "(lambda(lst_114)" "(begin" " 'for-loop" "(if(pair? lst_114)" -"(let-values(((v_157)" +"(let-values(((v_159)" "(unsafe-car lst_114))" "((rest_56)" "(unsafe-cdr lst_114)))" @@ -20085,36 +20466,36 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_81" -" v_157))" +"(loop_84" +" v_159))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_143 rest_56)" +"(for-loop_144 rest_56)" "(values))))" "(values))))))" -" for-loop_143)" +" for-loop_144)" " lst_113)))" "(void)" -"((scope-with-bindings-ref v_156)" -" v_156" +"((scope-with-bindings-ref v_158)" +" v_158" " reachable-scopes_7" -" loop_81" +" loop_84" "(lambda(sc-unreachable_0 b_65)" "(hash-update!" " scope-triggers_0" " sc-unreachable_0" "(lambda(l_51)(cons b_65 l_51))" " null))))))))" -"(if(reach-scopes? v_156)" -"(let-values()((reach-scopes-ref v_156) v_156 loop_81))" -"(if(pair? v_156)" -"(let-values()(begin(loop_81(car v_156))(loop_81(cdr v_156))))" -"(if(vector? v_156)" +"(if(reach-scopes? v_158)" +"(let-values()((reach-scopes-ref v_158) v_158 loop_84))" +"(if(pair? v_158)" +"(let-values()(begin(loop_84(car v_158))(loop_84(cdr v_158))))" +"(if(vector? v_158)" "(let-values()" "(begin" "(let-values(((vec_47 len_26)" -"(let-values(((vec_48) v_156))" +"(let-values(((vec_48) v_158))" "(begin" "(check-vector vec_48)" "(values" @@ -20122,7 +20503,7 @@ static const char *startup_source = "(unsafe-vector-length vec_48))))))" "(begin" " #f" -"((letrec-values(((for-loop_144)" +"((letrec-values(((for-loop_145)" "(lambda(pos_82)" "(begin" " 'for-loop" @@ -20137,38 +20518,38 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_81" +"(loop_84" " e_22))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_144" +"(for-loop_145" "(unsafe-fx+ 1 pos_82))" "(values))))" "(values))))))" -" for-loop_144)" +" for-loop_145)" " 0)))" "(void)))" -"(if(box? v_156)" -"(let-values()(loop_81(unbox v_156)))" -"(if(hash? v_156)" +"(if(box? v_158)" +"(let-values()(loop_84(unbox v_158)))" +"(if(hash? v_158)" "(let-values()" "(begin" -"(let-values(((ht_93) v_156))" +"(let-values(((ht_94) v_158))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_93)))" -"((letrec-values(((for-loop_145)" -"(lambda(i_123)" +"(let-values()(check-in-hash ht_94)))" +"((letrec-values(((for-loop_146)" +"(lambda(i_124)" "(begin" " 'for-loop" -"(if i_123" -"(let-values(((k_29 v_158)" +"(if i_124" +"(let-values(((k_29 v_160)" "(hash-iterate-key+value" -" ht_93" -" i_123)))" +" ht_94" +" i_124)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -20176,23 +20557,23 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(loop_81" +"(loop_84" " k_29)" -"(loop_81" -" v_158)))" +"(loop_84" +" v_160)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_145" +"(for-loop_146" "(hash-iterate-next" -" ht_93" -" i_123))" +" ht_94" +" i_124))" "(values))))" "(values))))))" -" for-loop_145)" -"(hash-iterate-first ht_93))))" +" for-loop_146)" +"(hash-iterate-first ht_94))))" "(void)))" -"(if(prefab-struct-key v_156)" +"(if(prefab-struct-key v_158)" "(let-values()" "(begin" "(let-values(((v*_5 start*_4 stop*_5 step*_4)" @@ -20201,13 +20582,13 @@ static const char *startup_source = " \"vector\"" "(lambda(x_51)(vector? x_51))" "(lambda(x_52)(unsafe-vector-length x_52))" -"(struct->vector v_156)" +"(struct->vector v_158)" " 1" " #f" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_146)" +"((letrec-values(((for-loop_147)" "(lambda(idx_4)" "(begin" " 'for-loop" @@ -20222,23 +20603,23 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_81" +"(loop_84" " e_23))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_146" +"(for-loop_147" "(unsafe-fx+ idx_4 1))" "(values))))" "(values))))))" -" for-loop_146)" +" for-loop_147)" " start*_4)))" "(void)))" -"(if(srcloc? v_156)" -"(let-values()(loop_81(srcloc-source v_156)))" +"(if(srcloc? v_158)" +"(let-values()(loop_84(srcloc-source v_158)))" "(let-values()(void))))))))))))))))))" -" loop_81)" -" v_155)" +" loop_84)" +" v_157)" " reachable-scopes_7)))))))" "(define-values" "(deserialize-imports)" @@ -20320,7 +20701,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:_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" @@ -20335,7 +20716,7 @@ static const char *startup_source = " '()" " #f" " 'parsed-primitive-id)))))" -"(values struct:_41 make-_41 ?_41)))" +"(values struct:_40 make-_40 ?_40)))" "(define-values" "(struct:parsed-top-id parsed-top-id4.1 parsed-top-id?)" "(let-values(((struct:_10 make-_10 ?_10 -ref_10 -set!_10)" @@ -20356,7 +20737,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:_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" @@ -20372,14 +20753,14 @@ static const char *startup_source = " #f" " 'parsed-lambda)))))" "(values" -" struct:_40" -" make-_40" -" ?_40" -"(make-struct-field-accessor -ref_40 0 'keys)" -"(make-struct-field-accessor -ref_40 1 'body))))" +" struct:_39" +" make-_39" +" ?_39" +"(make-struct-field-accessor -ref_39 0 'keys)" +"(make-struct-field-accessor -ref_39 1 'body))))" "(define-values" "(struct:parsed-case-lambda parsed-case-lambda6.1 parsed-case-lambda? parsed-case-lambda-clauses)" -"(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" @@ -20394,10 +20775,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-case-lambda)))))" -"(values struct:_42 make-_42 ?_42(make-struct-field-accessor -ref_42 0 'clauses))))" +"(values struct:_41 make-_41 ?_41(make-struct-field-accessor -ref_41 0 'clauses))))" "(define-values" "(struct:parsed-app parsed-app7.1 parsed-app? parsed-app-rator parsed-app-rands)" -"(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" @@ -20413,11 +20794,11 @@ static const char *startup_source = " #f" " 'parsed-app)))))" "(values" -" struct:_43" -" make-_43" -" ?_43" -"(make-struct-field-accessor -ref_43 0 'rator)" -"(make-struct-field-accessor -ref_43 1 'rands))))" +" struct:_42" +" make-_42" +" ?_42" +"(make-struct-field-accessor -ref_42 0 'rator)" +"(make-struct-field-accessor -ref_42 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)" @@ -20444,7 +20825,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:_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" @@ -20460,11 +20841,11 @@ static const char *startup_source = " #f" " 'parsed-set!)))))" "(values" -" struct:_44" -" make-_44" -" ?_44" -"(make-struct-field-accessor -ref_44 0 'id)" -"(make-struct-field-accessor -ref_44 1 'rhs))))" +" struct:_43" +" make-_43" +" ?_43" +"(make-struct-field-accessor -ref_43 0 'id)" +"(make-struct-field-accessor -ref_43 1 'rhs))))" "(define-values" "(struct:parsed-with-continuation-mark" " parsed-with-continuation-mark10.1" @@ -20472,7 +20853,7 @@ static const char *startup_source = " parsed-with-continuation-mark-key" " parsed-with-continuation-mark-val" " parsed-with-continuation-mark-body)" -"(let-values(((struct:_45 make-_45 ?_45 -ref_45 -set!_45)" +"(let-values(((struct:_44 make-_44 ?_44 -ref_44 -set!_44)" "(let-values()" "(let-values()" "(make-struct-type" @@ -20488,18 +20869,18 @@ static const char *startup_source = " #f" " 'parsed-with-continuation-mark)))))" "(values" -" struct:_45" -" make-_45" -" ?_45" -"(make-struct-field-accessor -ref_45 0 'key)" -"(make-struct-field-accessor -ref_45 1 'val)" -"(make-struct-field-accessor -ref_45 2 'body))))" +" 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))))" "(define-values" "(struct:parsed-#%variable-reference" " parsed-#%variable-reference11.1" " parsed-#%variable-reference?" " parsed-#%variable-reference-id)" -"(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" @@ -20514,10 +20895,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-#%variable-reference)))))" -"(values struct:_46 make-_46 ?_46(make-struct-field-accessor -ref_46 0 'id))))" +"(values struct:_45 make-_45 ?_45(make-struct-field-accessor -ref_45 0 'id))))" "(define-values" "(struct:parsed-begin parsed-begin12.1 parsed-begin? parsed-begin-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" @@ -20532,10 +20913,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin)))))" -"(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-begin0 parsed-begin013.1 parsed-begin0? parsed-begin0-body)" -"(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" @@ -20550,10 +20931,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin0)))))" -"(values struct:_48 make-_48 ?_48(make-struct-field-accessor -ref_48 0 'body))))" +"(values struct:_47 make-_47 ?_47(make-struct-field-accessor -ref_47 0 'body))))" "(define-values" "(struct:parsed-quote parsed-quote14.1 parsed-quote? parsed-quote-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" @@ -20568,10 +20949,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-quote)))))" -"(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-quote-syntax parsed-quote-syntax15.1 parsed-quote-syntax? parsed-quote-syntax-datum)" -"(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" @@ -20586,7 +20967,7 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-quote-syntax)))))" -"(values struct:_50 make-_50 ?_50(make-struct-field-accessor -ref_50 0 'datum))))" +"(values struct:_49 make-_49 ?_49(make-struct-field-accessor -ref_49 0 'datum))))" "(define-values" "(struct:parsed-let_-values" " parsed-let_-values16.1" @@ -20594,7 +20975,7 @@ static const char *startup_source = " parsed-let_-values-idss" " parsed-let_-values-clauses" " parsed-let_-values-body)" -"(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" @@ -20610,15 +20991,15 @@ static const char *startup_source = " #f" " 'parsed-let_-values)))))" "(values" -" struct:_51" -" make-_51" -" ?_51" -"(make-struct-field-accessor -ref_51 0 'idss)" -"(make-struct-field-accessor -ref_51 1 'clauses)" -"(make-struct-field-accessor -ref_51 2 'body))))" +" 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))))" "(define-values" "(struct:parsed-let-values parsed-let-values17.1 parsed-let-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" @@ -20633,10 +21014,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-let-values)))))" -"(values struct:_52 make-_52 ?_52)))" +"(values struct:_51 make-_51 ?_51)))" "(define-values" "(struct:parsed-letrec-values parsed-letrec-values18.1 parsed-letrec-values?)" -"(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" @@ -20651,7 +21032,7 @@ static const char *startup_source = " '()" " #f" " 'parsed-letrec-values)))))" -"(values struct:_53 make-_53 ?_53)))" +"(values struct:_52 make-_52 ?_52)))" "(define-values" "(struct:parsed-define-values" " parsed-define-values19.1" @@ -20659,7 +21040,7 @@ static const char *startup_source = " parsed-define-values-ids" " parsed-define-values-syms" " parsed-define-values-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" @@ -20675,12 +21056,12 @@ static const char *startup_source = " #f" " 'parsed-define-values)))))" "(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-define-syntaxes" " parsed-define-syntaxes20.1" @@ -20688,7 +21069,7 @@ static const char *startup_source = " parsed-define-syntaxes-ids" " parsed-define-syntaxes-syms" " parsed-define-syntaxes-rhs)" -"(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" @@ -20704,15 +21085,15 @@ static const char *startup_source = " #f" " 'parsed-define-syntaxes)))))" "(values" -" struct:_55" -" make-_55" -" ?_55" -"(make-struct-field-accessor -ref_55 0 'ids)" -"(make-struct-field-accessor -ref_55 1 'syms)" -"(make-struct-field-accessor -ref_55 2 'rhs))))" +" 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))))" "(define-values" "(struct:parsed-begin-for-syntax parsed-begin-for-syntax21.1 parsed-begin-for-syntax? parsed-begin-for-syntax-body)" -"(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" @@ -20727,10 +21108,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin-for-syntax)))))" -"(values struct:_56 make-_56 ?_56(make-struct-field-accessor -ref_56 0 'body))))" +"(values struct:_55 make-_55 ?_55(make-struct-field-accessor -ref_55 0 'body))))" "(define-values" "(struct:parsed-#%declare parsed-#%declare22.1 parsed-#%declare?)" -"(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" @@ -20745,10 +21126,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-#%declare)))))" -"(values struct:_57 make-_57 ?_57)))" +"(values struct:_56 make-_56 ?_56)))" "(define-values" "(struct:parsed-require parsed-require23.1 parsed-require?)" -"(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" @@ -20763,10 +21144,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-require)))))" -"(values struct:_58 make-_58 ?_58)))" +"(values struct:_57 make-_57 ?_57)))" "(define-values" "(struct:parsed-#%module-begin parsed-#%module-begin24.1 parsed-#%module-begin? parsed-#%module-begin-body)" -"(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" @@ -20781,7 +21162,7 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-#%module-begin)))))" -"(values struct:_59 make-_59 ?_59(make-struct-field-accessor -ref_59 0 'body))))" +"(values struct:_58 make-_58 ?_58(make-struct-field-accessor -ref_58 0 'body))))" "(define-values" "(struct:parsed-module" " parsed-module25.1" @@ -20796,7 +21177,7 @@ static const char *startup_source = " parsed-module-body" " parsed-module-compiled-module" " parsed-module-compiled-submodules)" -"(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" @@ -20812,26 +21193,26 @@ static const char *startup_source = " #f" " 'parsed-module)))))" "(values" -" struct:_60" -" make-_60" -" ?_60" -"(make-struct-field-accessor -ref_60 0 'star?)" -"(make-struct-field-accessor -ref_60 1 'name-id)" -"(make-struct-field-accessor -ref_60 2 'self)" -"(make-struct-field-accessor -ref_60 3 'requires)" -"(make-struct-field-accessor -ref_60 4 'provides)" -"(make-struct-field-accessor -ref_60 5 'root-ctx-simple?)" -"(make-struct-field-accessor -ref_60 6 'encoded-root-ctx)" -"(make-struct-field-accessor -ref_60 7 'body)" -"(make-struct-field-accessor -ref_60 8 'compiled-module)" -"(make-struct-field-accessor -ref_60 9 'compiled-submodules))))" +" 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))))" "(define-values" "(module-path->mpi5.1)" "(lambda(declared-submodule-names1_0 declared-submodule-names2_0 mod-path3_0 self4_2)" "(begin" " 'module-path->mpi5" "(let-values(((mod-path_4) mod-path3_0))" -"(let-values(((self_6) self4_2))" +"(let-values(((self_9) self4_2))" "(let-values(((declared-submodule-names_1)" "(if declared-submodule-names2_0 declared-submodule-names1_0 '#hasheq())))" "(let-values()" @@ -20842,7 +21223,7 @@ static const char *startup_source = " #f)" " #f)" " #f)" -" (let-values () (1/module-path-index-join (list 'submod \".\" (cadr mod-path_4)) self_6))" +" (let-values () (1/module-path-index-join (list 'submod \".\" (cadr mod-path_4)) self_9))" "(if(if(list? mod-path_4)" "(if(eq? 'submod(car mod-path_4))" "(let-values(((mod-path_5)(cadr mod-path_4)))" @@ -20858,8 +21239,8 @@ static const char *startup_source = " #f)" " #f)" "(let-values()" -" (1/module-path-index-join (list* 'submod \".\" (cadr (cadr mod-path_4)) (cddr mod-path_4)) self_6))" -"(let-values()(1/module-path-index-join mod-path_4 self_6)))))))))))" +" (1/module-path-index-join (list* 'submod \".\" (cadr (cadr mod-path_4)) (cddr mod-path_4)) self_9))" +"(let-values()(1/module-path-index-join mod-path_4 self_9)))))))))))" "(define-values" "(module-path->mpi/context)" "(lambda(mod-path_6 ctx_9)" @@ -20872,17 +21253,17 @@ static const char *startup_source = "(lambda(s_0 phase_40)" "(begin" "(let-values(((s-scs_1)(syntax-scope-set s_0 phase_40)))" -"(let-values(((ht_94) s-scs_1))" +"(let-values(((ht_95) s-scs_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_94)))" -"((letrec-values(((for-loop_106)" -"(lambda(syms_14 i_124)" +"(let-values()(check-in-immutable-hash-keys ht_95)))" +"((letrec-values(((for-loop_107)" +"(lambda(syms_14 i_125)" "(begin" " 'for-loop" -"(if i_124" -"(let-values(((sc_25)(unsafe-immutable-hash-iterate-key ht_94 i_124)))" +"(if i_125" +"(let-values(((sc_25)(unsafe-immutable-hash-iterate-key ht_95 i_125)))" "(let-values(((syms_15)" "(let-values(((syms_16) syms_14))" "(let-values(((syms_17)" @@ -20896,12 +21277,12 @@ static const char *startup_source = " null)))))" "(values syms_17)))))" "(if(not #f)" -"(for-loop_106 syms_15(unsafe-immutable-hash-iterate-next ht_94 i_124))" +"(for-loop_107 syms_15(unsafe-immutable-hash-iterate-next ht_95 i_125))" " syms_15)))" " syms_14)))))" -" for-loop_106)" +" for-loop_107)" "(seteq)" -"(unsafe-immutable-hash-iterate-first ht_94))))))))" +"(unsafe-immutable-hash-iterate-first ht_95))))))))" "(define-values" "(struct:requires+provides" " requires+provides1.1" @@ -20916,7 +21297,7 @@ static const char *startup_source = " requires+provides-all-bindings-simple?" " set-requires+provides-can-cross-phase-persistent?!" " set-requires+provides-all-bindings-simple?!)" -"(let-values(((struct:_33 make-_33 ?_33 -ref_33 -set!_33)" +"(let-values(((struct:_60 make-_60 ?_60 -ref_60 -set!_60)" "(let-values()" "(let-values()" "(make-struct-type" @@ -20932,19 +21313,19 @@ static const char *startup_source = " #f" " 'requires+provides)))))" "(values" -" struct:_33" -" make-_33" -" ?_33" -"(make-struct-field-accessor -ref_33 0 'self)" -"(make-struct-field-accessor -ref_33 1 'require-mpis)" -"(make-struct-field-accessor -ref_33 2 'require-mpis-in-order)" -"(make-struct-field-accessor -ref_33 3 'requires)" -"(make-struct-field-accessor -ref_33 4 'provides)" -"(make-struct-field-accessor -ref_33 5 'phase-to-defined-syms)" -"(make-struct-field-accessor -ref_33 6 'can-cross-phase-persistent?)" -"(make-struct-field-accessor -ref_33 7 'all-bindings-simple?)" -"(make-struct-field-mutator -set!_33 6 'can-cross-phase-persistent?)" -"(make-struct-field-mutator -set!_33 7 'all-bindings-simple?))))" +" 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?))))" "(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)" @@ -21022,11 +21403,11 @@ static const char *startup_source = "(lambda(copy-requires5_0 copy-requires6_0 self7_0)" "(begin" " 'make-requires+provides8" -"(let-values(((self_7) self7_0))" +"(let-values(((self_10) self7_0))" "(let-values(((copy-r+p_0)(if copy-requires6_0 copy-requires5_0 #f)))" "(let-values()" "(requires+provides1.1" -" self_7" +" self_10" "(if copy-r+p_0(requires+provides-require-mpis copy-r+p_0)(make-module-path-index-intern-table))" "(if copy-r+p_0(hash-copy(requires+provides-require-mpis-in-order copy-r+p_0))(make-hasheqv))" "(make-hasheq)" @@ -21153,7 +21534,7 @@ static const char *startup_source = " 'add-bulk-required-ids!59" "(let-values(((r+p_5) r+p52_0))" "(let-values(((s_193) s53_0))" -"(let-values(((self_8) self54_0))" +"(let-values(((self_11) self54_0))" "(let-values(((nominal-module_7) nominal-module55_0))" "(let-values(((phase-shift_6) phase-shift56_0))" "(let-values(((provides_4) provides57_0))" @@ -21194,20 +21575,20 @@ static const char *startup_source = " provide-phase-level_3" " can-be-shadowed?_2)))" "(begin" -"(let-values(((ht_95) provides_4))" +"(let-values(((ht_96) provides_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_95)))" -"((letrec-values(((for-loop_147)" -"(lambda(i_125)" +"(let-values()(check-in-hash ht_96)))" +"((letrec-values(((for-loop_148)" +"(lambda(i_126)" "(begin" " 'for-loop" -"(if i_125" +"(if i_126" "(let-values(((out-sym_0 binding/p_2)" "(hash-iterate-key+value" -" ht_95" -" i_125)))" +" ht_96" +" i_126)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -21241,11 +21622,11 @@ static const char *startup_source = " out-sym_0))))))" "(begin" "(if(if check-and-remove?_0" -"(let-values(((or-part_177)" +"(let-values(((or-part_185)" "(not" " shortcut-table_0)))" -"(if or-part_177" -" or-part_177" +"(if or-part_185" +" or-part_185" "(hash-ref" " shortcut-table_0" " sym_31" @@ -21268,7 +21649,7 @@ static const char *startup_source = "((temp126_0)" "(lambda()" "(let-values(((self132_0)" -" self_8)" +" self_11)" "((mpi133_0)" " mpi_30)" "((provide-phase-level134_0)" @@ -21315,14 +21696,14 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_147" +"(for-loop_148" "(hash-iterate-next" -" ht_95" -" i_125))" +" ht_96" +" i_126))" "(values))))" "(values))))))" -" for-loop_147)" -"(hash-iterate-first ht_95))))" +" for-loop_148)" +"(hash-iterate-first ht_96))))" "(void))))))))))))))))))))))))))))" "(define-values" "(bulk-required->required)" @@ -21355,18 +21736,18 @@ static const char *startup_source = "(let-values()" "(begin" "(set-requires+provides-all-bindings-simple?! r+p_6 #f)" -"(let-values(((ht_96)(requires+provides-requires enclosing-r+p_0)))" +"(let-values(((ht_97)(requires+provides-requires enclosing-r+p_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_96)))" -"((letrec-values(((for-loop_148)" -"(lambda(i_126)" +"(let-values()(check-in-hash ht_97)))" +"((letrec-values(((for-loop_149)" +"(lambda(i_127)" "(begin" " 'for-loop" -"(if i_126" +"(if i_127" "(let-values(((mod-name_10 at-mod_2)" -"(hash-iterate-key+value ht_96 i_126)))" +"(hash-iterate-key+value ht_97 i_127)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -21381,16 +21762,16 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash ht_4)))" -"((letrec-values(((for-loop_134)" -"(lambda(i_127)" +"((letrec-values(((for-loop_135)" +"(lambda(i_128)" "(begin" " 'for-loop" -"(if i_127" +"(if i_128" "(let-values(((phase_54" " at-phase_8)" "(hash-iterate-key+value" " ht_4" -" i_127)))" +" i_128)))" "(let-values((()" "(let-values(((ht_6)" " at-phase_8))" @@ -21401,22 +21782,22 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_6)))" -"((letrec-values(((for-loop_149)" -"(lambda(i_128)" +"((letrec-values(((for-loop_150)" +"(lambda(i_129)" "(begin" " 'for-loop" -"(if i_128" +"(if i_129" "(let-values(((sym_34" " reqds_0)" "(hash-iterate-key+value" " ht_6" -" i_128)))" +" i_129)))" "(let-values((()" "(let-values(((lst_115)" " reqds_0))" "(begin" "(void)" -"((letrec-values(((for-loop_150)" +"((letrec-values(((for-loop_151)" "(lambda(lst_116)" "(begin" " 'for-loop" @@ -21492,42 +21873,42 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_150" +"(for-loop_151" " rest_57)" "(values))))" "(values))))))" -" for-loop_150)" +" for-loop_151)" " lst_115)))))" "(if(not" " #f)" -"(for-loop_149" +"(for-loop_150" "(hash-iterate-next" " ht_6" -" i_128))" +" i_129))" "(values))))" "(values))))))" -" for-loop_149)" +" for-loop_150)" "(hash-iterate-first" " ht_6))))))" "(if(not" " #f)" -"(for-loop_134" +"(for-loop_135" "(hash-iterate-next" " ht_4" -" i_127))" +" i_128))" "(values))))" "(values))))))" -" for-loop_134)" +" for-loop_135)" "(hash-iterate-first ht_4))))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_148(hash-iterate-next ht_96 i_126))" +"(for-loop_149(hash-iterate-next ht_97 i_127))" "(values))))" "(values))))))" -" for-loop_148)" -"(hash-iterate-first ht_96))))" +" for-loop_149)" +"(hash-iterate-first ht_97))))" "(void))))))))))" "(define-values" "(remove-required-id!75.1)" @@ -21581,7 +21962,7 @@ static const char *startup_source = "(let-values(((lst_117) reqds_1))" "(begin" "(void)" -"((letrec-values(((for-loop_151)" +"((letrec-values(((for-loop_152)" "(lambda(fold-var_96 lst_118)" "(begin" " 'for-loop" @@ -21597,7 +21978,7 @@ static const char *startup_source = " sym_36)))" "(begin" " #t" -"((letrec-values(((for-loop_152)" +"((letrec-values(((for-loop_153)" "(lambda(fold-var_98)" "(begin" " 'for-loop" @@ -21627,11 +22008,11 @@ static const char *startup_source = "(values" " fold-var_102)))))))" " fold-var_99))))))" +" for-loop_153)" +" fold-var_96)))))" +"(if(not #f)(for-loop_152 fold-var_97 rest_58) fold-var_97)))" +" fold-var_96)))))" " for-loop_152)" -" fold-var_96)))))" -"(if(not #f)(for-loop_151 fold-var_97 rest_58) fold-var_97)))" -" fold-var_96)))))" -" for-loop_151)" " null" " lst_117)))))))" "(define-values" @@ -21860,7 +22241,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_121)))" -"((letrec-values(((for-loop_153)" +"((letrec-values(((for-loop_154)" "(lambda(defined-syms_3 lst_122)" "(begin" " 'for-loop" @@ -21877,10 +22258,10 @@ static const char *startup_source = " #t))))" "(values defined-syms_6)))))" "(if(not #f)" -"(for-loop_153 defined-syms_4 rest_60)" +"(for-loop_154 defined-syms_4 rest_60)" " defined-syms_4)))" " defined-syms_3)))))" -" for-loop_153)" +" for-loop_154)" " defined-syms_2" " lst_121)))))" "(hash-set! phase-to-defined-syms_0 phase_58 new-defined-syms_0)))))))" @@ -21892,22 +22273,22 @@ static const char *startup_source = "(let-values(((at-mod_5)(hash-ref(requires+provides-requires r+p_10) mpi_34 #f)))" "(if at-mod_5" "(reverse$1" -"(let-values(((ht_97)(hash-ref at-mod_5 phase_59 '#hasheq())))" +"(let-values(((ht_98)(hash-ref at-mod_5 phase_59 '#hasheq())))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_97)))" -"((letrec-values(((for-loop_154)" -"(lambda(fold-var_103 i_129)" +"(let-values()(check-in-hash ht_98)))" +"((letrec-values(((for-loop_155)" +"(lambda(fold-var_103 i_130)" "(begin" " 'for-loop" -"(if i_129" -"(let-values(((sym_38 reqds_3)(hash-iterate-key+value ht_97 i_129)))" +"(if i_130" +"(let-values(((sym_38 reqds_3)(hash-iterate-key+value ht_98 i_130)))" "(let-values(((fold-var_104)" "(let-values(((lst_123) reqds_3))" "(begin" "(void)" -"((letrec-values(((for-loop_155)" +"((letrec-values(((for-loop_156)" "(lambda(fold-var_105 lst_124)" "(begin" " 'for-loop" @@ -21936,33 +22317,33 @@ static const char *startup_source = "(values" " fold-var_108)))))" "(if(not #f)" -"(for-loop_155" +"(for-loop_156" " fold-var_106" " rest_61)" " fold-var_106)))" " fold-var_105)))))" -" for-loop_155)" +" for-loop_156)" " fold-var_103" " lst_123)))))" "(if(not #f)" -"(for-loop_154 fold-var_104(hash-iterate-next ht_97 i_129))" +"(for-loop_155 fold-var_104(hash-iterate-next ht_98 i_130))" " fold-var_104)))" " fold-var_103)))))" -" for-loop_154)" +" for-loop_155)" " null" -"(hash-iterate-first ht_97)))))" +"(hash-iterate-first ht_98)))))" " #f))))))" "(define-values" "(extract-module-definitions)" "(lambda(r+p_11)" "(begin" -"(let-values(((or-part_178)(extract-module-requires r+p_11(requires+provides-self r+p_11) 0)))" -"(if or-part_178 or-part_178 null)))))" +"(let-values(((or-part_186)(extract-module-requires r+p_11(requires+provides-self r+p_11) 0)))" +"(if or-part_186 or-part_186 null)))))" "(define-values" "(extract-all-module-requires)" "(lambda(r+p_12 mod-name_12 phase_60)" "(begin" -"(let-values(((self_9)(requires+provides-self r+p_12)))" +"(let-values(((self_12)(requires+provides-self r+p_12)))" "(let-values(((requires_2)(requires+provides-requires r+p_12)))" "(call/ec" "(lambda(esc_0)" @@ -21972,7 +22353,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_125)))" -"((letrec-values(((for-loop_140)" +"((letrec-values(((for-loop_141)" "(lambda(fold-var_109 lst_126)" "(begin" " 'for-loop" @@ -21981,7 +22362,7 @@ static const char *startup_source = "((rest_62)(unsafe-cdr lst_126)))" "(let-values(((fold-var_110)" "(let-values(((fold-var_111) fold-var_109))" -"(if(eq? mod-name_13 self_9)" +"(if(eq? mod-name_13 self_12)" " fold-var_111" "(let-values(((phase-to-requireds_0)" "(hash-ref" @@ -21990,7 +22371,7 @@ static const char *startup_source = " '#hasheqv())))" "(begin" " #t" -"((letrec-values(((for-loop_156)" +"((letrec-values(((for-loop_157)" "(lambda(fold-var_112)" "(begin" " 'for-loop" @@ -22011,7 +22392,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_127)))" -"((letrec-values(((for-loop_157)" +"((letrec-values(((for-loop_158)" "(lambda(fold-var_114" " lst_128)" "(begin" @@ -22025,7 +22406,7 @@ static const char *startup_source = "(unsafe-cdr" " lst_128)))" "(let-values(((fold-var_115)" -"(let-values(((ht_98)" +"(let-values(((ht_99)" "(hash-ref" " phase-to-requireds_0" " phase_61" @@ -22038,24 +22419,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_98)))" -"((letrec-values(((for-loop_158)" +" ht_99)))" +"((letrec-values(((for-loop_159)" "(lambda(fold-var_116" -" i_130)" +" i_131)" "(begin" " 'for-loop" -"(if i_130" +"(if i_131" "(let-values(((sym_39" " reqds_4)" "(hash-iterate-key+value" -" ht_98" -" i_130)))" +" ht_99" +" i_131)))" "(let-values(((fold-var_117)" "(let-values(((lst_129)" " reqds_4))" "(begin" "(void)" -"((letrec-values(((for-loop_159)" +"((letrec-values(((for-loop_160)" "(lambda(fold-var_118" " lst_130)" "(begin" @@ -22092,43 +22473,43 @@ static const char *startup_source = " fold-var_121)))))" "(if(not" " #f)" -"(for-loop_159" +"(for-loop_160" " fold-var_119" " rest_64)" " fold-var_119)))" " fold-var_118)))))" -" for-loop_159)" +" for-loop_160)" " fold-var_116" " lst_129)))))" "(if(not" " #f)" -"(for-loop_158" +"(for-loop_159" " fold-var_117" "(hash-iterate-next" -" ht_98" -" i_130))" +" ht_99" +" i_131))" " fold-var_117)))" " fold-var_116)))))" -" for-loop_158)" +" for-loop_159)" " fold-var_114" "(hash-iterate-first" -" ht_98))))))" +" ht_99))))))" "(if(not" " #f)" -"(for-loop_157" +"(for-loop_158" " fold-var_115" " rest_63)" " fold-var_115)))" " fold-var_114)))))" -" for-loop_157)" +" for-loop_158)" " fold-var_112" " lst_127)))))" " fold-var_113))))))" -" for-loop_156)" +" for-loop_157)" " fold-var_111)))))))" -"(if(not #f)(for-loop_140 fold-var_110 rest_62) fold-var_110)))" +"(if(not #f)(for-loop_141 fold-var_110 rest_62) fold-var_110)))" " fold-var_109)))))" -" for-loop_140)" +" for-loop_141)" " null" " lst_125)))))))))))" "(define-values" @@ -22200,8 +22581,8 @@ static const char *startup_source = "(hash-set" " at-phase_9" " sym_40" -"(if(let-values(((or-part_179) as-protected?_0))" -"(if or-part_179 or-part_179 as-transformer?_2))" +"(if(let-values(((or-part_187) as-protected?_0))" +"(if or-part_187 or-part_187 as-transformer?_2))" "(provided1.1 plain-binding_0 as-protected?_0 as-transformer?_2)" " plain-binding_0))))" "(if(same-binding? b_68 binding_14)" @@ -22232,7 +22613,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_131)))" -"((letrec-values(((for-loop_160)" +"((letrec-values(((for-loop_161)" "(lambda(fold-var_122 lst_132)" "(begin" " 'for-loop" @@ -22260,7 +22641,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_133)))" -"((letrec-values(((for-loop_161)" +"((letrec-values(((for-loop_162)" "(lambda(fold-var_126" " lst_134)" "(begin" @@ -22295,21 +22676,21 @@ static const char *startup_source = " fold-var_130)))))))" "(if(not" " #f)" -"(for-loop_161" +"(for-loop_162" " fold-var_127" " rest_66)" " fold-var_127)))" " fold-var_126)))))" -" for-loop_161)" +" for-loop_162)" " null" " lst_133))))))" " fold-var_124))))" "(values fold-var_125)))))" "(if(not #f)" -"(for-loop_160 fold-var_123 rest_65)" +"(for-loop_161 fold-var_123 rest_65)" " fold-var_123)))" " fold-var_122)))))" -" for-loop_160)" +" for-loop_161)" " null" " lst_131))))))))))" "(let-values(((extract-provides_0)" @@ -22325,50 +22706,50 @@ static const char *startup_source = "(shift-provides-module-path-index)" "(lambda(provides_5 from-mpi_7 to-mpi_6)" "(begin" -"(let-values(((ht_99) provides_5))" +"(let-values(((ht_100) provides_5))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_99)))" -"((letrec-values(((for-loop_162)" -"(lambda(table_119 i_131)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_100)))" +"((letrec-values(((for-loop_163)" +"(lambda(table_122 i_132)" "(begin" " 'for-loop" -"(if i_131" -"(let-values(((phase_64 at-phase_10)(hash-iterate-key+value ht_99 i_131)))" -"(let-values(((table_120)" -"(let-values(((table_121) table_119))" -"(let-values(((table_122)" +"(if i_132" +"(let-values(((phase_64 at-phase_10)(hash-iterate-key+value ht_100 i_132)))" +"(let-values(((table_123)" +"(let-values(((table_124) table_122))" +"(let-values(((table_125)" "(let-values()" "(let-values(((key_50 val_43)" "(let-values()" "(values" " phase_64" -"(let-values(((ht_100)" +"(let-values(((ht_101)" " at-phase_10))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_100)))" -"((letrec-values(((for-loop_163)" -"(lambda(table_123" -" i_132)" +"(check-in-hash ht_101)))" +"((letrec-values(((for-loop_164)" +"(lambda(table_126" +" i_133)" "(begin" " 'for-loop" -"(if i_132" +"(if i_133" "(let-values(((sym_41" " binding_15)" "(hash-iterate-key+value" -" ht_100" -" i_132)))" -"(let-values(((table_124)" -"(let-values(((table_125)" -" table_123))" +" ht_101" +" i_133)))" +"(let-values(((table_127)" +"(let-values(((table_128)" +" table_126))" "(if(symbol-interned?" " sym_41)" -"(let-values(((table_126)" -" table_125))" -"(let-values(((table_127)" +"(let-values(((table_129)" +" table_128))" +"(let-values(((table_130)" "(let-values()" "(let-values(((key_51" " val_44)" @@ -22381,7 +22762,7 @@ static const char *startup_source = "(let-values()" " binding_15)" "(let-values()" -"((letrec-values(((loop_82)" +"((letrec-values(((loop_85)" "(lambda(binding_16)" "(begin" " 'loop" @@ -22389,7 +22770,7 @@ static const char *startup_source = " binding_16)" "(let-values()" "(provided1.1" -"(loop_82" +"(loop_85" "(provided-binding" " binding_16))" "(provided-protected?" @@ -22401,35 +22782,37 @@ static const char *startup_source = " binding_16" " from-mpi_7" " to-mpi_6)))))))" -" loop_82)" +" loop_85)" " binding_15)))))))" "(hash-set" -" table_126" +" table_129" " key_51" " val_44)))))" "(values" -" table_127)))" -" table_125))))" +" table_130)))" +" table_128))))" "(if(not" " #f)" -"(for-loop_163" -" table_124" +"(for-loop_164" +" table_127" "(hash-iterate-next" -" ht_100" -" i_132))" -" table_124)))" -" table_123)))))" -" for-loop_163)" +" ht_101" +" i_133))" +" table_127)))" +" table_126)))))" +" for-loop_164)" " '#hasheq()" "(hash-iterate-first" -" ht_100))))))))" -"(hash-set table_121 key_50 val_43)))))" -"(values table_122)))))" -"(if(not #f)(for-loop_162 table_120(hash-iterate-next ht_99 i_131)) table_120)))" -" table_119)))))" -" for-loop_162)" +" ht_101))))))))" +"(hash-set table_124 key_50 val_43)))))" +"(values table_125)))))" +"(if(not #f)" +"(for-loop_163 table_123(hash-iterate-next ht_100 i_132))" +" table_123)))" +" table_122)))))" +" for-loop_163)" " '#hasheqv()" -"(hash-iterate-first ht_99)))))))" +"(hash-iterate-first ht_100)))))))" "(define-values" "(struct:adjust-only adjust-only1.1 adjust-only? adjust-only-syms)" "(let-values(((struct:_1 make-_1 ?_1 -ref_1 -set!_1)" @@ -22513,7 +22896,7 @@ static const char *startup_source = "(let-values(((m-ns_8) m-ns27_0))" "(let-values(((phase-shift_8) phase-shift28_0))" "(let-values(((requires+provides_1) requires+provides29_0))" -"(let-values(((self_10)(if self15_0 self5_0 #f)))" +"(let-values(((self_13)(if self15_0 self5_0 #f)))" "(let-values(((run-phase_5)(if run-phase16_0 run-phase6_0(namespace-phase m-ns_8))))" "(let-values(((run?_1)(if run?17_0 run?7_0 #f)))" "(let-values(((visit?_1)(if visit?18_0 visit?8_0 #t)))" @@ -22528,7 +22911,7 @@ static const char *startup_source = "(let-values(((initial-require?_0)(if initial-require?23_0 initial-require?13_0 #f)))" "(let-values(((who_12) who14_0))" "(let-values()" -"((letrec-values(((loop_83)" +"((letrec-values(((loop_86)" "(lambda(reqs_1" " top-req_0" " phase-shift_9" @@ -22550,7 +22933,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_13)" -"(let-values(((req_0)" +"(let-values(((req_4)" "(unsafe-car" " lst_13))" "((rest_67)" @@ -22588,7 +22971,7 @@ static const char *startup_source = " #f" " \"invalid nesting\"" " orig-s_3" -" req_0))))))))))" +" req_4))))))))))" "(case-lambda" "((want-layer_1)" "(begin" @@ -22606,21 +22989,21 @@ static const char *startup_source = "(let-values(((fm_0)" "(if(pair?" "(syntax-e$1" -" req_0))" +" req_4))" "(if(identifier?" "(car" "(syntax-e$1" -" req_0)))" +" req_4)))" "(syntax-e$1" "(car" "(syntax-e$1" -" req_0)))" +" req_4)))" " #f)" " #f)))" -"(let-values(((tmp_24)" +"(let-values(((tmp_25)" " fm_0))" "(if(equal?" -" tmp_24" +" tmp_25" " 'for-meta)" "(let-values()" "(let-values((()" @@ -22634,7 +23017,7 @@ static const char *startup_source = " phase-level118_0" " spec119_0)" "(let-values(((s_194)" -" req_0))" +" req_4))" "(let-values(((orig-s_4)" " s_194))" "(let-values(((for-meta117_1" @@ -22713,36 +23096,36 @@ static const char *startup_source = " for-meta117_1" " phase-level118_1" " spec119_1))))))" -"(let-values(((p_31)" +"(let-values(((p_35)" "(syntax-e$1" " phase-level118_0)))" "(begin" "(if(phase?" -" p_31)" +" p_35)" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad phase\"" " orig-s_3" -" req_0)))" -"(loop_83" +" req_4)))" +"(loop_86" " spec119_0" -"(let-values(((or-part_93)" +"(let-values(((or-part_99)" " top-req_0))" -"(if or-part_93" -" or-part_93" -" req_0))" +"(if or-part_99" +" or-part_99" +" req_4))" "(phase+" " phase-shift_9" -" p_31)" +" p_35)" " just-meta_0" " adjust_0" " #f" " just-meta-ok?_0" " 'raw))))))" "(if(equal?" -" tmp_24" +" tmp_25" " 'for-syntax)" "(let-values()" "(let-values((()" @@ -22755,7 +23138,7 @@ static const char *startup_source = " for-syntax125_0" " spec126_0)" "(let-values(((s_65)" -" req_0))" +" req_4))" "(let-values(((orig-s_5)" " s_65))" "(let-values(((for-syntax125_1" @@ -22806,13 +23189,13 @@ static const char *startup_source = " #t" " for-syntax125_1" " spec126_1))))))" -"(loop_83" +"(loop_86" " spec126_0" -"(let-values(((or-part_180)" +"(let-values(((or-part_188)" " top-req_0))" -"(if or-part_180" -" or-part_180" -" req_0))" +"(if or-part_188" +" or-part_188" +" req_4))" "(phase+" " phase-shift_9" " 1)" @@ -22822,7 +23205,7 @@ static const char *startup_source = " just-meta-ok?_0" " 'raw))))" "(if(equal?" -" tmp_24" +" tmp_25" " 'for-template)" "(let-values()" "(let-values((()" @@ -22835,7 +23218,7 @@ static const char *startup_source = " for-template129_0" " spec130_0)" "(let-values(((s_204)" -" req_0))" +" req_4))" "(let-values(((orig-s_6)" " s_204))" "(let-values(((for-template129_1" @@ -22886,13 +23269,13 @@ static const char *startup_source = " #t" " for-template129_1" " spec130_1))))))" -"(loop_83" +"(loop_86" " spec130_0" -"(let-values(((or-part_181)" +"(let-values(((or-part_189)" " top-req_0))" -"(if or-part_181" -" or-part_181" -" req_0))" +"(if or-part_189" +" or-part_189" +" req_4))" "(phase+" " phase-shift_9" " -1)" @@ -22902,7 +23285,7 @@ static const char *startup_source = " just-meta-ok?_0" " 'raw))))" "(if(equal?" -" tmp_24" +" tmp_25" " 'for-label)" "(let-values()" "(let-values((()" @@ -22915,7 +23298,7 @@ static const char *startup_source = " for-label133_0" " spec134_0)" "(let-values(((s_208)" -" req_0))" +" req_4))" "(let-values(((orig-s_7)" " s_208))" "(let-values(((for-label133_1" @@ -22966,13 +23349,13 @@ static const char *startup_source = " #t" " for-label133_1" " spec134_1))))))" -"(loop_83" +"(loop_86" " spec134_0" -"(let-values(((or-part_182)" +"(let-values(((or-part_190)" " top-req_0))" -"(if or-part_182" -" or-part_182" -" req_0))" +"(if or-part_190" +" or-part_190" +" req_4))" "(phase+" " phase-shift_9" " #f)" @@ -22982,7 +23365,7 @@ static const char *startup_source = " just-meta-ok?_0" " 'raw))))" "(if(equal?" -" tmp_24" +" tmp_25" " 'just-meta)" "(let-values()" "(let-values((()" @@ -22996,7 +23379,7 @@ static const char *startup_source = " phase-level138_0" " spec139_0)" "(let-values(((s_104)" -" req_0))" +" req_4))" "(let-values(((orig-s_8)" " s_104))" "(let-values(((just-meta137_1" @@ -23075,34 +23458,34 @@ static const char *startup_source = " just-meta137_1" " phase-level138_1" " spec139_1))))))" -"(let-values(((p_32)" +"(let-values(((p_36)" "(syntax-e$1" " phase-level138_0)))" "(begin" "(if(phase?" -" p_32)" +" p_36)" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad phase\"" " orig-s_3" -" req_0)))" -"(loop_83" +" req_4)))" +"(loop_86" " spec139_0" -"(let-values(((or-part_183)" +"(let-values(((or-part_191)" " top-req_0))" -"(if or-part_183" -" or-part_183" -" req_0))" +"(if or-part_191" +" or-part_191" +" req_4))" " phase-shift_9" -" p_32" +" p_36" " adjust_0" " for-meta-ok?_0" " #f" " 'raw))))))" "(if(equal?" -" tmp_24" +" tmp_25" " 'only)" "(let-values()" "(let-values((()" @@ -23115,7 +23498,7 @@ static const char *startup_source = " spec146_0" " id147_0)" "(let-values(((s_215)" -" req_0))" +" req_4))" "(let-values(((orig-s_9)" " s_215))" "(let-values(((only145_1" @@ -23183,7 +23566,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_136)))" -"((letrec-values(((for-loop_164)" +"((letrec-values(((for-loop_165)" "(lambda(id_30" " lst_0)" "(begin" @@ -23203,15 +23586,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id153_1)" "(let-values()" -"(if(let-values(((or-part_184)" +"(if(let-values(((or-part_192)" "(if(syntax?$1" " s_223)" "(symbol?" "(syntax-e$1" " s_223))" " #f)))" -"(if or-part_184" -" or-part_184" +"(if or-part_192" +" or-part_192" "(symbol?" " s_223)))" " s_223" @@ -23227,12 +23610,12 @@ static const char *startup_source = " id_33)))))" "(if(not" " #f)" -"(for-loop_164" +"(for-loop_165" " id_31" " rest_68)" " id_31)))" " id_30)))))" -" for-loop_164)" +" for-loop_165)" " null" " lst_136)))))" "(reverse$1" @@ -23257,14 +23640,14 @@ static const char *startup_source = " only145_1" " spec146_1" " id147_1))))))" -"(loop_83" +"(loop_86" "(list" " spec146_0)" -"(let-values(((or-part_177)" +"(let-values(((or-part_185)" " top-req_0))" -"(if or-part_177" -" or-part_177" -" req_0))" +"(if or-part_185" +" or-part_185" +" req_4))" " phase-shift_9" " just-meta_0" "(adjust-only1.1" @@ -23274,7 +23657,7 @@ static const char *startup_source = " #f" " 'path))))" "(if(equal?" -" tmp_24" +" tmp_25" " 'prefix)" "(let-values()" "(let-values((()" @@ -23287,7 +23670,7 @@ static const char *startup_source = " id:prefix155_0" " spec156_0)" "(let-values(((s_224)" -" req_0))" +" req_4))" "(let-values(((orig-s_10)" " s_224))" "(let-values(((prefix154_1" @@ -23323,15 +23706,15 @@ static const char *startup_source = "(let-values(((s_229)" "(car" " s_228)))" -"(if(let-values(((or-part_185)" +"(if(let-values(((or-part_193)" "(if(syntax?$1" " s_229)" "(symbol?" "(syntax-e$1" " s_229))" " #f)))" -"(if or-part_185" -" or-part_185" +"(if or-part_193" +" or-part_193" "(symbol?" " s_229)))" " s_229" @@ -23400,14 +23783,14 @@ static const char *startup_source = " prefix154_1" " id:prefix155_1" " spec156_1))))))" -"(loop_83" +"(loop_86" "(list" " spec156_0)" -"(let-values(((or-part_186)" +"(let-values(((or-part_194)" " top-req_0))" -"(if or-part_186" -" or-part_186" -" req_0))" +"(if or-part_194" +" or-part_194" +" req_4))" " phase-shift_9" " just-meta_0" "(adjust-prefix2.1" @@ -23417,7 +23800,7 @@ static const char *startup_source = " #f" " 'path))))" "(if(equal?" -" tmp_24" +" tmp_25" " 'all-except)" "(let-values()" "(let-values((()" @@ -23430,7 +23813,7 @@ static const char *startup_source = " spec164_0" " id165_0)" "(let-values(((s_235)" -" req_0))" +" req_4))" "(let-values(((orig-s_11)" " s_235))" "(let-values(((all-except163_1" @@ -23498,7 +23881,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_137)))" -"((letrec-values(((for-loop_165)" +"((letrec-values(((for-loop_166)" "(lambda(id_35" " lst_138)" "(begin" @@ -23518,15 +23901,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id171_0)" "(let-values()" -"(if(let-values(((or-part_187)" +"(if(let-values(((or-part_195)" "(if(syntax?$1" " s_243)" "(symbol?" "(syntax-e$1" " s_243))" " #f)))" -"(if or-part_187" -" or-part_187" +"(if or-part_195" +" or-part_195" "(symbol?" " s_243)))" " s_243" @@ -23542,12 +23925,12 @@ static const char *startup_source = " id_38)))))" "(if(not" " #f)" -"(for-loop_165" +"(for-loop_166" " id_36" " rest_69)" " id_36)))" " id_35)))))" -" for-loop_165)" +" for-loop_166)" " null" " lst_137)))))" "(reverse$1" @@ -23572,14 +23955,14 @@ static const char *startup_source = " all-except163_1" " spec164_1" " id165_1))))))" -"(loop_83" +"(loop_86" "(list" " spec164_0)" -"(let-values(((or-part_188)" +"(let-values(((or-part_196)" " top-req_0))" -"(if or-part_188" -" or-part_188" -" req_0))" +"(if or-part_196" +" or-part_196" +" req_4))" " phase-shift_9" " just-meta_0" "(adjust-all-except3.1" @@ -23590,7 +23973,7 @@ static const char *startup_source = " #f" " 'path))))" "(if(equal?" -" tmp_24" +" tmp_25" " 'prefix-all-except)" "(let-values()" "(let-values((()" @@ -23604,7 +23987,7 @@ static const char *startup_source = " spec174_0" " id175_0)" "(let-values(((s_244)" -" req_0))" +" req_4))" "(let-values(((orig-s_12)" " s_244))" "(let-values(((prefix-all-except172_1" @@ -23642,15 +24025,15 @@ static const char *startup_source = "(let-values(((s_249)" "(car" " s_248)))" -"(if(let-values(((or-part_189)" +"(if(let-values(((or-part_197)" "(if(syntax?$1" " s_249)" "(symbol?" "(syntax-e$1" " s_249))" " #f)))" -"(if or-part_189" -" or-part_189" +"(if or-part_197" +" or-part_197" "(symbol?" " s_249)))" " s_249" @@ -23708,7 +24091,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_139)))" -"((letrec-values(((for-loop_166)" +"((letrec-values(((for-loop_167)" "(lambda(id_40" " lst_140)" "(begin" @@ -23728,15 +24111,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id185_0)" "(let-values()" -"(if(let-values(((or-part_190)" +"(if(let-values(((or-part_198)" "(if(syntax?$1" " s_255)" "(symbol?" "(syntax-e$1" " s_255))" " #f)))" -"(if or-part_190" -" or-part_190" +"(if or-part_198" +" or-part_198" "(symbol?" " s_255)))" " s_255" @@ -23752,12 +24135,12 @@ static const char *startup_source = " id_43)))))" "(if(not" " #f)" -"(for-loop_166" +"(for-loop_167" " id_41" " rest_70)" " id_41)))" " id_40)))))" -" for-loop_166)" +" for-loop_167)" " null" " lst_139)))))" "(reverse$1" @@ -23792,14 +24175,14 @@ static const char *startup_source = " id:prefix173_1" " spec174_1" " id175_1))))))" -"(loop_83" +"(loop_86" "(list" " spec174_0)" -"(let-values(((or-part_191)" +"(let-values(((or-part_199)" " top-req_0))" -"(if or-part_191" -" or-part_191" -" req_0))" +"(if or-part_199" +" or-part_199" +" req_4))" " phase-shift_9" " just-meta_0" "(adjust-all-except3.1" @@ -23811,7 +24194,7 @@ static const char *startup_source = " #f" " 'path))))" "(if(equal?" -" tmp_24" +" tmp_25" " 'rename)" "(let-values()" "(let-values((()" @@ -23825,7 +24208,7 @@ static const char *startup_source = " id:to188_0" " id:from189_0)" "(let-values(((s_256)" -" req_0))" +" req_4))" "(let-values(((orig-s_13)" " s_256))" "(let-values(((rename186_1" @@ -23881,15 +24264,15 @@ static const char *startup_source = "(let-values(((s_264)" "(car" " s_263)))" -"(if(let-values(((or-part_192)" +"(if(let-values(((or-part_200)" "(if(syntax?$1" " s_264)" "(symbol?" "(syntax-e$1" " s_264))" " #f)))" -"(if or-part_192" -" or-part_192" +"(if or-part_200" +" or-part_200" "(symbol?" " s_264)))" " s_264" @@ -23914,15 +24297,15 @@ static const char *startup_source = "(let-values(((s_267)" "(car" " s_266)))" -"(if(let-values(((or-part_193)" +"(if(let-values(((or-part_201)" "(if(syntax?$1" " s_267)" "(symbol?" "(syntax-e$1" " s_267))" " #f)))" -"(if or-part_193" -" or-part_193" +"(if or-part_201" +" or-part_201" "(symbol?" " s_267)))" " s_267" @@ -23984,14 +24367,14 @@ static const char *startup_source = " spec187_1" " id:to188_1" " id:from189_1))))))" -"(loop_83" +"(loop_86" "(list" " spec187_0)" -"(let-values(((or-part_194)" +"(let-values(((or-part_202)" " top-req_0))" -"(if or-part_194" -" or-part_194" -" req_0))" +"(if or-part_202" +" or-part_202" +" req_4))" " phase-shift_9" " just-meta_0" "(adjust-rename4.1" @@ -24004,14 +24387,14 @@ static const char *startup_source = "(let-values()" "(let-values(((maybe-mp_0)" "(syntax->datum$1" -" req_0)))" +" req_4)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_195)" +"(if(let-values(((or-part_203)" "(1/module-path?" " maybe-mp_0)))" -"(if or-part_195" -" or-part_195" +"(if or-part_203" +" or-part_203" "(1/resolved-module-path?" " maybe-mp_0)))" "(void)" @@ -24020,14 +24403,14 @@ static const char *startup_source = " #f" " \"bad require spec\"" " orig-s_3" -" req_0)))" +" req_4)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_196)" +"(if(let-values(((or-part_204)" " adjust_0))" -"(if or-part_196" -" or-part_196" +"(if or-part_204" +" or-part_204" "(not" "(eq?" " just-meta_0" @@ -24051,13 +24434,13 @@ static const char *startup_source = " declared-submodule-names219_0" " #t" " mp_0" -" self_10))))" +" self_13))))" "(begin" "(let-values(((temp203_0)" -"(let-values(((or-part_197)" -" req_0))" -"(if or-part_197" -" or-part_197" +"(let-values(((or-part_205)" +" req_4))" +"(if or-part_205" +" or-part_205" " top-req_0)))" "((m-ns204_0)" " m-ns_8)" @@ -24112,8 +24495,8 @@ static const char *startup_source = " #t" " who216_0" " mpi_36" -" req_0" -" self_10" +" req_4" +" self_13" " temp203_0" " m-ns204_0))" "(set! initial-require?_0" @@ -24123,7 +24506,7 @@ static const char *startup_source = "(if(if(not" "((lambda x_53" "(not result_68))" -" req_0))" +" req_4))" "(not #f)" " #f)" "(for-loop_37" @@ -24134,7 +24517,7 @@ static const char *startup_source = " for-loop_37)" " #t" " lst_135)))))))" -" loop_83)" +" loop_86)" " reqs_0" " #f" " phase-shift_8" @@ -24150,26 +24533,26 @@ static const char *startup_source = "(let-values(((lst_141) ids_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_141)))" -"((letrec-values(((for-loop_167)" -"(lambda(table_128 lst_142)" +"((letrec-values(((for-loop_168)" +"(lambda(table_131 lst_142)" "(begin" " 'for-loop" "(if(pair? lst_142)" "(let-values(((id_44)(unsafe-car lst_142))((rest_71)(unsafe-cdr lst_142)))" -"(let-values(((table_129)" -"(let-values(((table_130) table_128))" -"(let-values(((table_131)" +"(let-values(((table_132)" +"(let-values(((table_133) table_131))" +"(let-values(((table_134)" "(let-values()" "(let-values(((key_52 val_45)" "(let-values()" "(values" "(let-values()(syntax-e$1 id_44))" " #t))))" -"(hash-set table_130 key_52 val_45)))))" -"(values table_131)))))" -"(if(not #f)(for-loop_167 table_129 rest_71) table_129)))" -" table_128)))))" -" for-loop_167)" +"(hash-set table_133 key_52 val_45)))))" +"(values table_134)))))" +"(if(not #f)(for-loop_168 table_132 rest_71) table_132)))" +" table_131)))))" +" for-loop_168)" " '#hash()" " lst_141))))))" "(define-values" @@ -24178,7 +24561,7 @@ static const char *startup_source = "(begin" " 'perform-initial-require!42" "(let-values(((mod-path_7) mod-path37_0))" -"(let-values(((self_11) self38_0))" +"(let-values(((self_14) self38_0))" "(let-values(((in-stx_0) in-stx39_0))" "(let-values(((m-ns_9) m-ns40_0))" "(let-values(((requires+provides_2) requires+provides41_0))" @@ -24186,10 +24569,10 @@ static const char *startup_source = "(let-values(((who_13) who34_0))" "(let-values()" "(let-values(((temp220_0)" -"(let-values(((mod-path232_0) mod-path_7)((self233_0) self_11))" +"(let-values(((mod-path232_0) mod-path_7)((self233_0) self_14))" "(module-path->mpi5.1 #f #f mod-path232_0 self233_0)))" "((temp221_0) #f)" -"((self222_0) self_11)" +"((self222_0) self_14)" "((in-stx223_0) in-stx_0)" "((m-ns224_0) m-ns_9)" "((temp225_0) 0)" @@ -24353,10 +24736,10 @@ static const char *startup_source = "(let-values((()" "(begin" "(if(not" -"(let-values(((or-part_198)" +"(let-values(((or-part_206)" " visit?_2))" -"(if or-part_198" -" or-part_198" +"(if or-part_206" +" or-part_206" " run?_2)))" "(let-values()" "(let-values(((run-phase260_0)" @@ -24370,15 +24753,15 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((can-bulk-bind?_0)" -"(if(let-values(((or-part_199)" +"(if(let-values(((or-part_207)" "(not adjust_1)))" -"(if or-part_199" -" or-part_199" -"(let-values(((or-part_200)" +"(if or-part_207" +" or-part_207" +"(let-values(((or-part_208)" "(adjust-prefix?" " adjust_1)))" -"(if or-part_200" -" or-part_200" +"(if or-part_208" +" or-part_208" "(adjust-all-except?" " adjust_1)))))" "(not skip-variable-phase-level_1)" @@ -24489,11 +24872,11 @@ static const char *startup_source = " #f)" " #f))" "((temp248_0)" -"(if(let-values(((or-part_201)" +"(if(let-values(((or-part_209)" "(not" " can-bulk-bind?_0)))" -"(if or-part_201" -" or-part_201" +"(if or-part_209" +" or-part_209" " copy-variable-phase-level_1))" "(lambda(binding_17" " as-transformer?_3)" @@ -24692,7 +25075,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_143)))" -"((letrec-values(((for-loop_168)" +"((letrec-values(((for-loop_169)" "(lambda(lst_144)" "(begin" " 'for-loop" @@ -24715,11 +25098,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_168" +"(for-loop_169" " rest_72)" "(values))))" "(values))))))" -" for-loop_168)" +" for-loop_169)" " lst_143)))" "(void)))" "(void))" @@ -24750,7 +25133,7 @@ static const char *startup_source = " #f)" "(let-values()" "(begin" -"(let-values(((ht_93)" +"(let-values(((ht_94)" " need-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -24758,16 +25141,16 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-immutable-hash-keys" -" ht_93)))" -"((letrec-values(((for-loop_145)" -"(lambda(i_123)" +" ht_94)))" +"((letrec-values(((for-loop_146)" +"(lambda(i_124)" "(begin" " 'for-loop" -"(if i_123" +"(if i_124" "(let-values(((sym_43)" "(unsafe-immutable-hash-iterate-key" -" ht_93" -" i_123)))" +" ht_94" +" i_124)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -24789,15 +25172,15 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_145" +"(for-loop_146" "(unsafe-immutable-hash-iterate-next" -" ht_93" -" i_123))" +" ht_94" +" i_124))" "(values))))" "(values))))))" -" for-loop_145)" +" for-loop_146)" "(unsafe-immutable-hash-iterate-first" -" ht_93))))" +" ht_94))))" "(void)))" "(void))))))))))))))))))))))))))))))))))))))))))" "(define-values" @@ -24822,7 +25205,7 @@ static const char *startup_source = "(let-values(((m_14) m99_0))" "(let-values(((in-stx_2) in-stx100_0))" "(let-values(((phase-shift_11) phase-shift101_0))" -"(let-values(((ns_48) ns102_0))" +"(let-values(((ns_49) ns102_0))" "(let-values(((mpi_38) mpi103_0))" "(let-values(((module-name_1) module-name104_0))" "(let-values(((orig-s_15) in81_0))" @@ -24835,30 +25218,30 @@ static const char *startup_source = "(let-values(((filter_0) filter88_0))" "(let-values(((bulk-callback_0) bulk-callback89_0))" "(let-values()" -"(let-values(((self_12)(module-self m_14)))" +"(let-values(((self_15)(module-self m_14)))" "(begin" -"(let-values(((ht_101)(module-provides m_14)))" +"(let-values(((ht_102)(module-provides m_14)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_101)))" -"((letrec-values(((for-loop_169)" -"(lambda(i_133)" +"(let-values()(check-in-hash ht_102)))" +"((letrec-values(((for-loop_170)" +"(lambda(i_134)" "(begin" " 'for-loop" -"(if i_133" +"(if i_134" "(let-values(((provide-phase-level_5 provides_7)" "(hash-iterate-key+value" -" ht_101" -" i_133)))" +" ht_102" +" i_134)))" "(let-values((()" "(let-values()" -"(if(let-values(((or-part_202)" +"(if(let-values(((or-part_210)" "(eq?" " just-meta_2" " 'all)))" -"(if or-part_202" -" or-part_202" +"(if or-part_210" +" or-part_210" "(eqv?" " just-meta_2" " provide-phase-level_5)))" @@ -24885,10 +25268,10 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values(((lst_145)" -"(let-values(((or-part_203)" +"(let-values(((or-part_211)" " only-syms_0))" -"(if or-part_203" -" or-part_203" +"(if or-part_211" +" or-part_211" "(hash-keys" " provides_7)))))" "(begin" @@ -24898,7 +25281,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_145)))" -"((letrec-values(((for-loop_170)" +"((letrec-values(((for-loop_171)" "(lambda(lst_146)" "(begin" " 'for-loop" @@ -24925,7 +25308,7 @@ static const char *startup_source = "(let-values()" "(let-values(((b_69)" "(let-values(((self292_0)" -" self_12)" +" self_15)" "((mpi293_0)" " mpi_38)" "((provide-phase-level294_0)" @@ -24971,11 +25354,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_170" +"(for-loop_171" " rest_73)" "(values))))" "(values))))))" -" for-loop_170)" +" for-loop_171)" " lst_145)))" "(void)))" "(void))" @@ -24983,10 +25366,10 @@ static const char *startup_source = "(let-values()" "(let-values(((bulk-binding-registry_10)" "(namespace-bulk-binding-registry" -" ns_48)))" +" ns_49)))" "(let-values(((temp300_0)" "(bulk-binding14.1" -"(let-values(((or-part_204)" +"(let-values(((or-part_212)" "(if(not" " bulk-prefix_2)" "(if(zero?" @@ -24995,8 +25378,8 @@ static const char *startup_source = " provides_7" " #f)" " #f)))" -"(if or-part_204" -" or-part_204" +"(if or-part_212" +" or-part_212" "(if(not" "(registered-bulk-provide?" " bulk-binding-registry_10" @@ -25008,7 +25391,7 @@ static const char *startup_source = " #f)))" " bulk-prefix_2" " bulk-excepts_2" -" self_12" +" self_15" " mpi_38" " provide-phase-level_5" " phase-shift_11" @@ -25029,35 +25412,35 @@ static const char *startup_source = "(values)))" "(values)))))" "(if(not #f)" -"(for-loop_169" -"(hash-iterate-next ht_101 i_133))" +"(for-loop_170" +"(hash-iterate-next ht_102 i_134))" "(values))))" "(values))))))" -" for-loop_169)" -"(hash-iterate-first ht_101))))" +" for-loop_170)" +"(hash-iterate-first ht_102))))" "(void))))))))))))))))))))))" "(define-values" "(require-spec-shift-for-syntax)" -"(lambda(req_1)" +"(lambda(req_5)" "(begin" "(let-values(((rebuild-req_0)" -"(lambda(req_2 new-req_0)(begin 'rebuild-req(datum->syntax$1 req_2 new-req_0 req_2 req_2)))))" -"(letrec-values(((loop_84)" +"(lambda(req_6 new-req_0)(begin 'rebuild-req(datum->syntax$1 req_6 new-req_0 req_6 req_6)))))" +"(letrec-values(((loop_87)" "(lambda(shifted?_0)" "(begin" " 'loop" -"(lambda(req_3)" +"(lambda(req_7)" "(let-values(((fm_1)" -"(if(pair?(syntax-e$1 req_3))" -"(if(identifier?(car(syntax-e$1 req_3)))" -"(syntax-e$1(car(syntax-e$1 req_3)))" +"(if(pair?(syntax-e$1 req_7))" +"(if(identifier?(car(syntax-e$1 req_7)))" +"(syntax-e$1(car(syntax-e$1 req_7)))" " #f)" " #f)))" -"(let-values(((tmp_25) fm_1))" -"(if(equal? tmp_25 'for-meta)" +"(let-values(((tmp_26) fm_1))" +"(if(equal? tmp_26 'for-meta)" "(let-values()" "(let-values(((ok?_12 for-meta303_0 phase-level304_0 spec305_0)" -"(let-values(((s_271) req_3))" +"(let-values(((s_271) req_7))" "(let-values(((orig-s_16) s_271))" "(let-values(((for-meta303_1 phase-level304_1 spec305_1)" "(let-values(((s_272)" @@ -25122,18 +25505,18 @@ static const char *startup_source = " \"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)))" +"(let-values(((p_37)(syntax-e$1 phase-level304_0)))" "(begin" -"(if(phase? p_33)" +"(if(phase? p_37)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"bad phase\" req_3)))" +" (let-values () (raise-syntax-error$1 #f \"bad phase\" req_7)))" "(rebuild-req_0" -" req_3" -"(list* for-meta303_0(phase+ p_33 1)(map2(loop_84 #t) spec305_0)))))))" -"(if(equal? tmp_25 'for-syntax)" +" req_7" +"(list* for-meta303_0(phase+ p_37 1)(map2(loop_87 #t) spec305_0)))))))" +"(if(equal? tmp_26 'for-syntax)" "(let-values()" "(let-values(((ok?_13 for-syntax311_0 spec312_0)" -"(let-values(((s_279) req_3))" +"(let-values(((s_279) req_7))" "(let-values(((orig-s_17) s_279))" "(let-values(((for-syntax311_1 spec312_1)" "(let-values(((s_280)" @@ -25171,11 +25554,11 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_17)))))" "(values #t for-syntax311_1 spec312_1))))))" -"(rebuild-req_0 req_3(list* 'for-meta 2(map2(loop_84 #t) spec312_0)))))" -"(if(equal? tmp_25 'for-template)" +"(rebuild-req_0 req_7(list* 'for-meta 2(map2(loop_87 #t) spec312_0)))))" +"(if(equal? tmp_26 'for-template)" "(let-values()" "(let-values(((ok?_14 for-template315_0 spec316_0)" -"(let-values(((s_284) req_3))" +"(let-values(((s_284) req_7))" "(let-values(((orig-s_18) s_284))" "(let-values(((for-template315_1 spec316_1)" "(let-values(((s_285)" @@ -25213,11 +25596,11 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_18)))))" "(values #t for-template315_1 spec316_1))))))" -"(rebuild-req_0 req_3(list* 'for-meta 0(map2(loop_84 #t) spec316_0)))))" -"(if(equal? tmp_25 'for-label)" +"(rebuild-req_0 req_7(list* 'for-meta 0(map2(loop_87 #t) spec316_0)))))" +"(if(equal? tmp_26 'for-label)" "(let-values()" "(let-values(((ok?_15 for-label319_0 spec320_0)" -"(let-values(((s_289) req_3))" +"(let-values(((s_289) req_7))" "(let-values(((orig-s_19) s_289))" "(let-values(((for-label319_1 spec320_1)" "(let-values(((s_290)" @@ -25258,12 +25641,12 @@ static const char *startup_source = " orig-s_19)))))" "(values #t for-label319_1 spec320_1))))))" "(rebuild-req_0" -" req_3" -"(list* for-label319_0(map2(loop_84 #t) spec320_0)))))" -"(if(equal? tmp_25 'just-meta)" +" req_7" +"(list* for-label319_0(map2(loop_87 #t) spec320_0)))))" +"(if(equal? tmp_26 'just-meta)" "(let-values()" "(let-values(((ok?_16 just-meta323_0 phase-level324_0 spec325_0)" -"(let-values(((s_294) req_3))" +"(let-values(((s_294) req_7))" "(let-values(((orig-s_20) s_294))" "(let-values(((just-meta323_1" " phase-level324_1" @@ -25338,23 +25721,23 @@ static const char *startup_source = " phase-level324_1" " spec325_1))))))" "(rebuild-req_0" -" req_3" +" req_7" "(list*" " just-meta323_0" " phase-level324_0" -"(map2(loop_84 #f) spec325_0)))))" +"(map2(loop_87 #f) spec325_0)))))" "(let-values()" "(if shifted?_0" -" req_3" -"(datum->syntax$1 #f(list 'for-syntax req_3))))))))))))))))" -"((loop_84 #f) req_1))))))" +" req_7" +"(datum->syntax$1 #f(list 'for-syntax req_7))))))))))))))))" +"((loop_87 #f) req_5))))))" "(define-values" "(copy-namespace-value)" -"(lambda(m-ns_11 adjusted-sym_1 binding_18 phase-level_15 phase-shift_12 as-constant?_1)" +"(lambda(m-ns_11 adjusted-sym_1 binding_18 phase-level_16 phase-shift_12 as-constant?_1)" "(begin" "(let-values(((i-ns_0)" "(let-values(((temp332_0)(1/module-path-index-resolve(module-binding-module binding_18)))" -"((temp333_0)(phase-(module-binding-phase binding_18) phase-level_15))" +"((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-ns_11 temp332_0 temp333_0))))" "(let-values(((val_46)" @@ -25377,7 +25760,7 @@ static const char *startup_source = "(module-binding-phase binding_18)))))))" "(namespace-set-variable!" " m-ns_11" -"(phase+ phase-shift_12 phase-level_15)" +"(phase+ phase-shift_12 phase-level_16)" " adjusted-sym_1" " val_46" " as-constant?_1))))))" @@ -25388,10 +25771,10 @@ static const char *startup_source = " #f" " 'constant" " top-level-bind!-id" -"(lambda(id_22 mpi_39 orig-phase_0 phase-shift_13 ns_49 sym_46 trans?_0 trans-val_0)" +"(lambda(id_22 mpi_39 orig-phase_0 phase-shift_13 ns_50 sym_46 trans?_0 trans-val_0)" "(let-values(((phase_42)(phase+ orig-phase_0 phase-shift_13)))" "(let-values(((b_70)" -"(let-values(((temp7_0)(root-expand-context-frame-id(namespace-get-root-expand-ctx ns_49))))" +"(let-values(((temp7_0)(root-expand-context-frame-id(namespace-get-root-expand-ctx ns_50))))" "(make-module-binding22.1" " #f" " #f" @@ -25419,19 +25802,19 @@ static const char *startup_source = "(add-binding!17.1 #f #f #f #f id1_2 b2_4 phase3_1))" "(if trans?_0" "(let-values()(if trans-val_0(let-values()(maybe-install-free=id! trans-val_0 id_22 phase_42))(void)))" -"(let-values()(namespace-unset-transformer! ns_49 phase_42 sym_46)))))))" +"(let-values()(namespace-unset-transformer! ns_50 phase_42 sym_46)))))))" " top-level-require!-id" -"(lambda(stx_11 ns_50)" +"(lambda(stx_11 ns_51)" "(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_50)" -"((temp13_0)(namespace-phase ns_50))" +"((ns12_0) ns_51)" +"((temp13_0)(namespace-phase ns_51))" "((temp14_2)(let-values(((temp17_0) #f))(make-requires+provides8.1 #f #f temp17_0)))" "((temp15_2) 'require)" -"((temp16_3) #t))" +"((temp16_2) #t))" "(parse-and-perform-requires!30.1" " #f" " #f" @@ -25439,7 +25822,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp16_3" +" temp16_2" " #t" " #f" " #f" @@ -25536,24 +25919,24 @@ static const char *startup_source = " new-scs-other_0))))))" "(define-values" "(extract-namespace-scopes/values)" -"(lambda(ns_44)" +"(lambda(ns_45)" "(begin" -"(let-values(((root-ctx_3)(namespace-get-root-expand-ctx ns_44)))" +"(let-values(((root-ctx_3)(namespace-get-root-expand-ctx ns_45)))" "(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_51)" +"(lambda(ns_52)" "(begin" -"(let-values(((scs-post_0 scs-other_0)(extract-namespace-scopes/values ns_51)))" +"(let-values(((scs-post_0 scs-other_0)(extract-namespace-scopes/values ns_52)))" "(namespace-scopes1.1 scs-post_0 scs-other_0)))))" "(define-values" "(encode-namespace-scopes)" -"(lambda(ns_52)" +"(lambda(ns_53)" "(begin" -"(let-values(((post-expansion-scs_0 other-scs_0)(extract-namespace-scopes/values ns_52)))" +"(let-values(((post-expansion-scs_0 other-scs_0)(extract-namespace-scopes/values ns_53)))" "(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))))))))" @@ -25675,7 +26058,7 @@ static const char *startup_source = "(begin(check-vector vec_52)(values vec_52(unsafe-vector-length vec_52))))))" "(begin" " #f" -"((letrec-values(((for-loop_171)" +"((letrec-values(((for-loop_172)" "(lambda(pos_85)" "(begin" " 'for-loop" @@ -25690,9 +26073,9 @@ static const char *startup_source = "(add-syntax-literal! sl_1 e_12))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_171(unsafe-fx+ 1 pos_85))(values))))" +"(if(not #f)(for-loop_172(unsafe-fx+ 1 pos_85))(values))))" "(values))))))" -" for-loop_171)" +" for-loop_172)" " 0)))" "(void)" "(cons pos_84(vector-length vec_50)))))))" @@ -25704,7 +26087,7 @@ static const char *startup_source = " 'generate-lazy-syntax-literals!9" "(let-values(((sl_3) sl6_0))" "(let-values(((mpis_12) mpis7_0))" -"(let-values(((self_13) self8_0))" +"(let-values(((self_16) self8_0))" "(let-values(((skip-deserialize?_0)(if skip-deserialize?5_0 skip-deserialize?4_0 #f)))" "(let-values()" "(list" @@ -25745,7 +26128,7 @@ static const char *startup_source = " 'syntax-shift-phase-level" "(list* unsafe-vector-ref-id deserialized-syntax-vector-id '(pos))" " phase-shift-id)" -"(add-module-path-index! mpis_12 self_13)" +"(add-module-path-index! mpis_12 self_16)" " self-id" " inspector-id)))" "(list" @@ -25783,7 +26166,7 @@ static const char *startup_source = "(define-values(generate-lazy-syntax-literal-lookup)(lambda(pos_86)(begin(list get-syntax-literal!-id pos_86))))" "(define-values" "(generate-eager-syntax-literals!)" -"(lambda(sl_5 mpis_13 base-phase_0 self_14 ns_53)" +"(lambda(sl_5 mpis_13 base-phase_0 self_17 ns_3)" "(begin" "(if(syntax-literals-empty? sl_5)" "(let-values() #f)" @@ -25793,7 +26176,7 @@ static const char *startup_source = "(list" "(list" " '(ns+stxss)" -"(let-values(((temp27_2)(cons(encode-namespace-scopes ns_53)(reverse$1(syntax-literals-stxes sl_5))))" +"(let-values(((temp27_2)(cons(encode-namespace-scopes ns_3)(reverse$1(syntax-literals-stxes sl_5))))" "((mpis28_0) mpis_13))" "(generate-deserialize6.1 #f #f temp27_2 mpis28_0))))" "(list" @@ -25811,7 +26194,7 @@ static const char *startup_source = "(list" " 'syntax-module-path-index-shift" "(list 'syntax-shift-phase-level 'stx(list '- base-phase_0 dest-phase-id))" -"(add-module-path-index! mpis_13 self_14)" +"(add-module-path-index! mpis_13 self_17)" " self-id)" " 'ns-scope-s" " ns-id))" @@ -25827,21 +26210,21 @@ static const char *startup_source = "(lambda(sym_4 header_0)" "(begin" "(if(symbol-conflicts? sym_4 header_0)" -"((letrec-values(((loop_85)" +"((letrec-values(((loop_88)" "(lambda(pos_88)" "(begin" " 'loop" " (let-values (((new-sym_0) (string->symbol (format \"~a/~a\" pos_88 sym_4))))" -"(if(symbol-conflicts? new-sym_0 header_0)(loop_85(add1 pos_88)) new-sym_0))))))" -" loop_85)" +"(if(symbol-conflicts? new-sym_0 header_0)(loop_88(add1 pos_88)) new-sym_0))))))" +" loop_88)" " 1)" " sym_4))))" "(define-values" "(symbol-conflicts?)" "(lambda(sym_47 header_1)" "(begin" -"(let-values(((or-part_46)(built-in-symbol? sym_47)))" -"(if or-part_46 or-part_46(hash-ref(header-define-and-import-syms header_1) sym_47 #f))))))" +"(let-values(((or-part_52)(built-in-symbol? sym_47)))" +"(if or-part_52 or-part_52(hash-ref(header-define-and-import-syms header_1) sym_47 #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)" @@ -25858,9 +26241,9 @@ static const char *startup_source = "(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(((var-sym_0)" -"(let-values(((or-part_60) prev-var-sym_0))" -"(if or-part_60" -" or-part_60" +"(let-values(((or-part_66) prev-var-sym_0))" +"(if or-part_66" +" or-part_66" "(let-values(((sym_49)(select-fresh(variable-use-sym key_53) header_2)))" "(begin" "(hash-set! variable-uses_0 key_53 sym_49)" @@ -25900,44 +26283,44 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_147)))" -"((letrec-values(((for-loop_172)" -"(lambda(ht_102 lst_148)" +"((letrec-values(((for-loop_173)" +"(lambda(ht_103 lst_148)" "(begin" " 'for-loop" "(if(pair? lst_148)" "(let-values(((vu_0)(unsafe-car lst_148))" "((rest_74)(unsafe-cdr lst_148)))" -"(let-values(((ht_103)" -"(let-values(((ht_104) ht_102))" -"(let-values(((ht_105)" +"(let-values(((ht_104)" +"(let-values(((ht_105) ht_103))" +"(let-values(((ht_106)" "(let-values()" "(let-values(((mu_2)" "(variable-use-module-use" " vu_0)))" -"(if(let-values(((or-part_205)" +"(if(let-values(((or-part_213)" "(hash-ref" -" ht_104" +" ht_105" " mu_2" " #f)))" -"(if or-part_205" -" or-part_205" -"(let-values(((or-part_206)" +"(if or-part_213" +" or-part_213" +"(let-values(((or-part_214)" "(eq?" "(module-use-module" " mu_2)" "(compile-context-self" " cctx_0))))" -"(if or-part_206" -" or-part_206" +"(if or-part_214" +" or-part_214" "(top-level-module-path-index?" "(module-use-module" " mu_2))))))" -" ht_104" -"(hash-set ht_104 mu_2 #t))))))" -"(values ht_105)))))" -"(if(not #f)(for-loop_172 ht_103 rest_74) ht_103)))" -" ht_102)))))" -" for-loop_172)" +" ht_105" +"(hash-set ht_105 mu_2 #t))))))" +"(values ht_106)))))" +"(if(not #f)(for-loop_173 ht_104 rest_74) ht_104)))" +" ht_103)))))" +" for-loop_173)" " '#hash()" " lst_147)))))" "(let-values(((link-mod-uses_0)(hash-keys mod-use-ht_0)))" @@ -25949,7 +26332,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_102)))" -"((letrec-values(((for-loop_117)" +"((letrec-values(((for-loop_118)" "(lambda(fold-var_25 lst_149)" "(begin" " 'for-loop" @@ -26027,9 +26410,9 @@ static const char *startup_source = " lst_50)))))" " fold-var_132))))" "(values fold-var_133)))))" -"(if(not #f)(for-loop_117 fold-var_131 rest_75) fold-var_131)))" +"(if(not #f)(for-loop_118 fold-var_131 rest_75) fold-var_131)))" " fold-var_25)))))" -" for-loop_117)" +" for-loop_118)" " null" " lst_102))))" "(reverse$1" @@ -26038,7 +26421,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_151)))" -"((letrec-values(((for-loop_173)" +"((letrec-values(((for-loop_174)" "(lambda(fold-var_139 lst_104)" "(begin" " 'for-loop" @@ -26061,8 +26444,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_152)))" -"((letrec-values(((for-loop_174)" -"(lambda(table_132" +"((letrec-values(((for-loop_175)" +"(lambda(table_135" " lst_153)" "(begin" " 'for-loop" @@ -26074,9 +26457,9 @@ static const char *startup_source = "((rest_78)" "(unsafe-cdr" " lst_153)))" -"(let-values(((table_133)" -"(let-values(((table_134)" -" table_132))" +"(let-values(((table_136)" +"(let-values(((table_137)" +" table_135))" "(if(equal?" " mu_4" "(variable-use-module-use" @@ -26093,7 +26476,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_135)" +"(let-values(((table_138)" "(let-values(((extra-inspectors_1)" "(hash-ref" "(header-import-sym-to-extra-inspectors" @@ -26102,7 +26485,7 @@ static const char *startup_source = " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_175)" +"((letrec-values(((for-loop_176)" "(lambda(table_30)" "(begin" " 'for-loop" @@ -26110,14 +26493,14 @@ static const char *startup_source = "(let-values(((table_31)" "(let-values(((table_32)" " table_30))" -"(if(let-values(((or-part_207)" +"(if(let-values(((or-part_215)" " extra-inspectors_1))" -"(if or-part_207" -" or-part_207" +"(if or-part_215" +" or-part_215" " cross-linklet-inlining?_0))" -"(let-values(((table_108)" +"(let-values(((table_111)" " table_32))" -"(let-values(((table_109)" +"(let-values(((table_112)" "(let-values()" "(let-values(((key_54" " val_47)" @@ -26126,27 +26509,27 @@ static const char *startup_source = " var-sym_3" " extra-inspectors_1))))" "(hash-set" -" table_108" +" table_111" " key_54" " val_47)))))" "(values" -" table_109)))" +" table_112)))" " table_32))))" " table_31))))))" -" for-loop_175)" +" for-loop_176)" " table_29)))))" -" table_135))))))" +" table_138))))))" " for-loop_33)" -" table_134)))" -" table_134))))" +" table_137)))" +" table_137))))" "(if(not" " #f)" -"(for-loop_174" -" table_133" +"(for-loop_175" +" table_136" " rest_78)" -" table_133)))" -" table_132)))))" -" for-loop_174)" +" table_136)))" +" table_135)))))" +" for-loop_175)" " '#hash()" " lst_152)))))" "(if(hash-count extra-inspectorss_0)" @@ -26154,16 +26537,16 @@ static const char *startup_source = " #f)))" " fold-var_141))))" "(values fold-var_142)))))" -"(if(not #f)(for-loop_173 fold-var_140 rest_77) fold-var_140)))" +"(if(not #f)(for-loop_174 fold-var_140 rest_77) fold-var_140)))" " fold-var_139)))))" -" for-loop_173)" +" for-loop_174)" " null" " lst_151))))" "(reverse$1" "(let-values(((lst_41)(header-require-vars-in-order header_5)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_41)))" -"((letrec-values(((for-loop_176)" +"((letrec-values(((for-loop_177)" "(lambda(fold-var_143 lst_154)" "(begin" " 'for-loop" @@ -26174,12 +26557,12 @@ static const char *startup_source = "(if(let-values(((mod_2)" "(module-use-module" "(variable-use-module-use vu_3))))" -"(let-values(((or-part_208)" +"(let-values(((or-part_216)" "(eq?" " mod_2" "(compile-context-self cctx_0))))" -"(if or-part_208" -" or-part_208" +"(if or-part_216" +" or-part_216" "(top-level-module-path-index? mod_2))))" "(let-values(((fold-var_146) fold-var_145))" "(let-values(((fold-var_147)" @@ -26200,9 +26583,9 @@ static const char *startup_source = " fold-var_146))))" "(values fold-var_147)))" " fold-var_145))))" -"(if(not #f)(for-loop_176 fold-var_144 rest_79) fold-var_144)))" +"(if(not #f)(for-loop_177 fold-var_144 rest_79) fold-var_144)))" " fold-var_143)))))" -" for-loop_176)" +" for-loop_177)" " null" " lst_41))))))))))" "(define-values" @@ -26215,7 +26598,7 @@ static const char *startup_source = " 'make-instance-instance13" "(let-values(((ns_54) namespace1_0))" "(let-values(((phase-shift_14) phase-shift2_0))" -"(let-values(((self_15) self3_0))" +"(let-values(((self_18) self3_0))" "(let-values(((inspector_10) inspector4_0))" "(let-values(((bulk-binding-registry_11) bulk-binding-registry5_0))" "(let-values(((set-transformer!_0) set-transformer!6_0))" @@ -26229,7 +26612,7 @@ static const char *startup_source = " phase-shift-id" " phase-shift_14" " self-id" -" self_15" +" self_18" " inspector-id" " inspector_10" " bulk-binding-registry-id" @@ -26269,7 +26652,7 @@ static const char *startup_source = " 'make-eager-instance-instance11" "(let-values(((ns_55) namespace1_1))" "(let-values(((dest-phase_0) dest-phase2_0))" -"(let-values(((self_16) self3_1))" +"(let-values(((self_19) self3_1))" "(let-values(((bulk-binding-registry_12) bulk-binding-registry4_0))" "(let-values(((inspector_11) inspector5_0))" "(let-values()" @@ -26282,7 +26665,7 @@ static const char *startup_source = " dest-phase-id" " dest-phase_0" " self-id" -" self_16" +" self_19" " bulk-binding-registry-id" " bulk-binding-registry_12" " inspector-id" @@ -26291,8 +26674,8 @@ static const char *startup_source = " swap-top-level-scopes))))))))))" "(define-values" "(empty-eager-instance-instance)" -"(let-values(((temp14_3) #f)((temp15_3) #f)((temp16_4) #f)((temp17_1) #f)((temp18_3) #f))" -"(make-eager-instance-instance11.1 temp17_1 temp15_3 temp18_3 temp14_3 temp16_4)))" +"(let-values(((temp14_3) #f)((temp15_3) #f)((temp16_3) #f)((temp17_1) #f)((temp18_4) #f))" +"(make-eager-instance-instance11.1 temp17_1 temp15_3 temp18_4 temp14_3 temp16_3)))" "(define-values" "(self-quoting-in-linklet?)" "(lambda(datum_0)" @@ -26330,26 +26713,26 @@ static const char *startup_source = "(correlated->list)" "(lambda(e_28)" "(begin" -"((letrec-values(((loop_86)" +"((letrec-values(((loop_89)" "(lambda(e_29)" "(begin" " 'loop" "(if(list? e_29)" "(let-values() e_29)" "(if(pair? e_29)" -"(let-values()(cons(car e_29)(loop_86(cdr e_29))))" +"(let-values()(cons(car e_29)(loop_89(cdr e_29))))" "(if(null? e_29)" "(let-values() null)" "(if(1/syntax? e_29)" -"(let-values()(loop_86(syntax-e$2 e_29)))" +"(let-values()(loop_89(syntax-e$2 e_29)))" " (let-values () (error 'correlated->list \"not a list\"))))))))))" -" loop_86)" +" loop_89)" " e_28))))" "(define-values" "(correlated-property)" "(case-lambda" "((e_30 k_30)(begin(syntax-property$2 e_30 k_30)))" -"((e_31 k_31 v_159)(syntax-property$2 e_31 k_31 v_159))))" +"((e_31 k_31 v_130)(syntax-property$2 e_31 k_31 v_130))))" "(define-values" "(to-syntax-list.1$1)" "(lambda(s_115)" @@ -26383,20 +26766,20 @@ static const char *startup_source = "(lambda(p5_0 cctx6_0 name1_0 result-used?2_0 name3_0 result-used?4_0)" "(begin" " 'compile7" -"(let-values(((p_34) p5_0))" +"(let-values(((p_38) p5_0))" "(let-values(((cctx_1) cctx6_0))" "(let-values(((name_39)(if name3_0 name1_0 #f)))" "(let-values(((result-used?_0)(if result-used?4_0 result-used?2_0 #t)))" "(let-values()" "(let-values(((compile_0)" -"(lambda(p_35 name_40 result-used?_1)" -"(begin 'compile(compile$2 p_35 cctx_1 name_40 result-used?_1)))))" -"(let-values(((s_10)(parsed-s p_34)))" -"(if(parsed-id? p_34)" +"(lambda(p_39 name_40 result-used?_1)" +"(begin 'compile(compile$2 p_39 cctx_1 name_40 result-used?_1)))))" +"(let-values(((s_10)(parsed-s p_38)))" +"(if(parsed-id? p_38)" "(let-values()" -"(let-values(((p27_1) p_34)((cctx28_0) cctx_1))" +"(let-values(((p27_1) p_38)((cctx28_0) cctx_1))" "(compile-identifier24.1 #f #f #f #f p27_1 cctx28_0)))" -"(if(parsed-lambda? p_34)" +"(if(parsed-lambda? p_38)" "(let-values()" "(if result-used?_0" "(let-values()" @@ -26406,13 +26789,13 @@ static const char *startup_source = "(list*" " 'lambda" "(compile-lambda" -"(parsed-lambda-keys p_34)" -"(parsed-lambda-body p_34)" +"(parsed-lambda-keys p_38)" +"(parsed-lambda-body p_38)" " cctx_1)))" " name_39" " s_10))" "(let-values()(correlate~ s_10 ''unused-lambda))))" -"(if(parsed-case-lambda? p_34)" +"(if(parsed-case-lambda? p_38)" "(let-values()" "(if result-used?_0" "(let-values()" @@ -26422,12 +26805,12 @@ static const char *startup_source = "(list*" " 'case-lambda" "(reverse$1" -"(let-values(((lst_155)(parsed-case-lambda-clauses p_34)))" +"(let-values(((lst_155)(parsed-case-lambda-clauses p_38)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_155)))" -"((letrec-values(((for-loop_177)" +"((letrec-values(((for-loop_178)" "(lambda(fold-var_31 lst_156)" "(begin" " 'for-loop" @@ -26453,29 +26836,29 @@ static const char *startup_source = "(values" " fold-var_149)))))" "(if(not #f)" -"(for-loop_177 fold-var_63 rest_80)" +"(for-loop_178 fold-var_63 rest_80)" " fold-var_63)))" " fold-var_31)))))" -" for-loop_177)" +" for-loop_178)" " null" " lst_155))))))" " name_39" " s_10))" "(let-values()(correlate~ s_10 ''unused-case-lambda))))" -"(if(parsed-app? p_34)" +"(if(parsed-app? p_38)" "(let-values()" -"(let-values(((rands_0)(parsed-app-rands p_34)))" +"(let-values(((rands_0)(parsed-app-rands p_38)))" "(correlate/app" " s_10" "(cons" -"(compile_0(parsed-app-rator p_34) #f #t)" +"(compile_0(parsed-app-rator p_38) #f #t)" "(reverse$1" "(let-values(((lst_39) rands_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_39)))" -"((letrec-values(((for-loop_178)" +"((letrec-values(((for-loop_179)" "(lambda(fold-var_150 lst_157)" "(begin" " 'for-loop" @@ -26498,55 +26881,55 @@ static const char *startup_source = "(values" " fold-var_65)))))" "(if(not #f)" -"(for-loop_178 fold-var_151 rest_40)" +"(for-loop_179 fold-var_151 rest_40)" " fold-var_151)))" " fold-var_150)))))" -" for-loop_178)" +" for-loop_179)" " null" " lst_39))))))))" -"(if(parsed-if? p_34)" +"(if(parsed-if? p_38)" "(let-values()" -"(let-values(((tst-e_0)(compile_0(parsed-if-tst p_34) #f #f)))" +"(let-values(((tst-e_0)(compile_0(parsed-if-tst p_38) #f #f)))" "(if(eq?(correlated-e tst-e_0) #t)" "(let-values()" -"(compile_0(parsed-if-thn p_34) name_39 result-used?_0))" +"(compile_0(parsed-if-thn p_38) name_39 result-used?_0))" "(if(eq?(correlated-e tst-e_0) #f)" "(let-values()" -"(compile_0(parsed-if-els p_34) name_39 result-used?_0))" +"(compile_0(parsed-if-els p_38) name_39 result-used?_0))" "(let-values()" "(correlate~" " s_10" "(list" " 'if" " tst-e_0" -"(compile_0(parsed-if-thn p_34) name_39 result-used?_0)" -"(compile_0(parsed-if-els p_34) name_39 result-used?_0))))))))" -"(if(parsed-with-continuation-mark? p_34)" +"(compile_0(parsed-if-thn p_38) name_39 result-used?_0)" +"(compile_0(parsed-if-els p_38) name_39 result-used?_0))))))))" +"(if(parsed-with-continuation-mark? p_38)" "(let-values()" "(correlate~" " s_10" "(list" " 'with-continuation-mark" -"(compile_0(parsed-with-continuation-mark-key p_34) #f #t)" -"(compile_0(parsed-with-continuation-mark-val p_34) #f #t)" +"(compile_0(parsed-with-continuation-mark-key p_38) #f #t)" +"(compile_0(parsed-with-continuation-mark-val p_38) #f #t)" "(compile_0" -"(parsed-with-continuation-mark-body p_34)" +"(parsed-with-continuation-mark-body p_38)" " name_39" " result-used?_0))))" -"(if(parsed-begin0? p_34)" +"(if(parsed-begin0? p_38)" "(let-values()" "(correlate~" " s_10" "(list*" " 'begin0" -"(compile_0(car(parsed-begin0-body p_34)) name_39 result-used?_0)" +"(compile_0(car(parsed-begin0-body p_38)) name_39 result-used?_0)" "(reverse$1" -"(let-values(((lst_75)(cdr(parsed-begin0-body p_34))))" +"(let-values(((lst_75)(cdr(parsed-begin0-body p_38))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_75)))" -"((letrec-values(((for-loop_101)" +"((letrec-values(((for-loop_102)" "(lambda(fold-var_11 lst_85)" "(begin" " 'for-loop" @@ -26570,34 +26953,34 @@ static const char *startup_source = "(values" " fold-var_154)))))" "(if(not #f)" -"(for-loop_101" +"(for-loop_102" " fold-var_152" " rest_41)" " fold-var_152)))" " fold-var_11)))))" -" for-loop_101)" +" for-loop_102)" " null" " lst_75)))))))" -"(if(parsed-begin? p_34)" +"(if(parsed-begin? p_38)" "(let-values()" "(correlate~" " s_10" "(compile-begin" -"(parsed-begin-body p_34)" +"(parsed-begin-body p_38)" " cctx_1" " name_39" " result-used?_0)))" -"(if(parsed-set!? p_34)" +"(if(parsed-set!? p_38)" "(let-values()" "(correlate~" " s_10" -"(let-values(((temp29_1)(parsed-set!-id p_34))" +"(let-values(((temp29_1)(parsed-set!-id p_38))" "((cctx30_0) cctx_1)" "((temp31_1) #t)" "((temp32_1)" "(compile_0" -"(parsed-set!-rhs p_34)" -"(parsed-s(parsed-set!-id p_34))" +"(parsed-set!-rhs p_38)" +"(parsed-s(parsed-set!-id p_38))" " #t)))" "(compile-identifier24.1" " temp32_1" @@ -26606,44 +26989,44 @@ static const char *startup_source = " #t" " temp29_1" " cctx30_0))))" -"(if(parsed-let-values? p_34)" +"(if(parsed-let-values? p_38)" "(let-values()" "(let-values(((temp36_0) #f)" "((result-used?37_0) result-used?_0))" "(compile-let15.1" " temp36_0" -" p_34" +" p_38" " cctx_1" " name_39" " result-used?37_0)))" -"(if(parsed-letrec-values? p_34)" +"(if(parsed-letrec-values? p_38)" "(let-values()" "(let-values(((temp41_0) #t)" "((result-used?42_0) result-used?_0))" "(compile-let15.1" " temp41_0" -" p_34" +" p_38" " cctx_1" " name_39" " result-used?42_0)))" -"(if(parsed-quote? p_34)" +"(if(parsed-quote? p_38)" "(let-values()" -"(let-values(((datum_1)(parsed-quote-datum p_34)))" +"(let-values(((datum_1)(parsed-quote-datum p_38)))" "(if(self-quoting-in-linklet? datum_1)" "(let-values()(correlate~ s_10 datum_1))" "(let-values()" "(correlate~ s_10(list 'quote datum_1))))))" -"(if(parsed-quote-syntax? p_34)" +"(if(parsed-quote-syntax? p_38)" "(let-values()" "(if result-used?_0" "(compile-quote-syntax" -"(parsed-quote-syntax-datum p_34)" +"(parsed-quote-syntax-datum p_38)" " cctx_1)" "(correlate~ s_10(list 'quote(syntax->datum$1 s_10)))))" -"(if(parsed-#%variable-reference? p_34)" +"(if(parsed-#%variable-reference? p_38)" "(let-values()" "(let-values(((id_45)" -"(parsed-#%variable-reference-id p_34)))" +"(parsed-#%variable-reference-id p_38)))" "(correlate~" " s_10" "(if id_45" @@ -26661,11 +27044,11 @@ static const char *startup_source = "(let-values()" "(error" " \"unrecognized parsed form:\"" -" p_34)))))))))))))))))))))))))))" +" p_38)))))))))))))))))))))))))))" "(case-lambda" -"((p_36 cctx_2)(begin 'compile(compile7_0 p_36 cctx_2 #f #f #f #f)))" -"((p_37 cctx_3 name_41 result-used?2_1)(compile7_0 p_37 cctx_3 name_41 result-used?2_1 #t #t))" -"((p_38 cctx_4 name1_1)(compile7_0 p_38 cctx_4 name1_1 #f #t #f)))))" +"((p_40 cctx_2)(begin 'compile(compile7_0 p_40 cctx_2 #f #f #f #f)))" +"((p_41 cctx_3 name_41 result-used?2_1)(compile7_0 p_41 cctx_3 name_41 result-used?2_1 #t #t))" +"((p_42 cctx_4 name1_1)(compile7_0 p_42 cctx_4 name1_1 #f #t #f)))))" "(define-values" "(compile-lambda)" "(lambda(formals_0 bodys_0 cctx_5)(begin(list formals_0(compile-sequence bodys_0 cctx_5 #f #t)))))" @@ -26690,14 +27073,14 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_33)))" -"((letrec-values(((for-loop_179)" +"((letrec-values(((for-loop_180)" "(lambda(fold-var_76 lst_159 pos_90)" "(begin" " 'for-loop" "(if(if(pair? lst_159) #t #f)" "(let-values(((e_33)(unsafe-car lst_159))" "((rest_81)(unsafe-cdr lst_159))" -"((i_134) pos_90))" +"((i_135) pos_90))" "(let-values(((fold-var_155)" "(let-values(((fold-var_156) fold-var_76))" "(let-values(((fold-var_157)" @@ -26705,7 +27088,7 @@ static const char *startup_source = "(cons" "(let-values()" "(let-values(((used?_0)" -"(= i_134 used-pos_0)))" +"(= i_135 used-pos_0)))" "(compile$2" " e_33" " cctx_7" @@ -26713,9 +27096,9 @@ static const char *startup_source = "(if used?_0 result-used?_3 #f))))" " fold-var_156))))" "(values fold-var_157)))))" -"(if(not #f)(for-loop_179 fold-var_155 rest_81(+ pos_90 1)) fold-var_155)))" +"(if(not #f)(for-loop_180 fold-var_155 rest_81(+ pos_90 1)) fold-var_155)))" " fold-var_76)))))" -" for-loop_179)" +" for-loop_180)" " null" " lst_158" " start_33)))))))))" @@ -26724,26 +27107,26 @@ static const char *startup_source = "(lambda(s_304 inferred-name_0 orig-s_21)" "(begin" "(letrec-values(((simplify-name_0)" -"(lambda(v_47)" +"(lambda(v_50)" "(begin" " 'simplify-name" -"(if(pair? v_47)" +"(if(pair? v_50)" "(let-values()" -"(let-values(((n1_0)(simplify-name_0(car v_47))))" -"(let-values(((n2_0)(simplify-name_0(cdr v_47))))(if(eq? n1_0 n2_0) n1_0 v_47))))" -"(let-values() v_47))))))" +"(let-values(((n1_0)(simplify-name_0(car v_50))))" +"(let-values(((n2_0)(simplify-name_0(cdr v_50))))(if(eq? n1_0 n2_0) n1_0 v_50))))" +"(let-values() v_50))))))" "(let-values(((name_44)" -"(let-values(((or-part_209)" -"(let-values(((v_40)" +"(let-values(((or-part_217)" +"(let-values(((v_43)" "(simplify-name_0(syntax-property$1 orig-s_21 'inferred-name))))" -"(if(let-values(((or-part_210)(symbol? v_40)))" -"(if or-part_210" -" or-part_210" -"(let-values(((or-part_211)(syntax?$1 v_40)))" -"(if or-part_211 or-part_211(void? v_40)))))" -" v_40" +"(if(let-values(((or-part_218)(symbol? v_43)))" +"(if or-part_218" +" or-part_218" +"(let-values(((or-part_219)(syntax?$1 v_43)))" +"(if or-part_219 or-part_219(void? v_43)))))" +" v_43" " #f))))" -"(if or-part_209 or-part_209 inferred-name_0))))" +"(if or-part_217 or-part_217 inferred-name_0))))" "(let-values(((named-s_0)" "(if name_44" "(correlated-property" @@ -26760,20 +27143,20 @@ static const char *startup_source = "(lambda(rec?9_0 p11_0 cctx12_0 name13_0 result-used?14_0)" "(begin" " 'compile-let15" -"(let-values(((p_26) p11_0))" +"(let-values(((p_30) p11_0))" "(let-values(((cctx_8) cctx12_0))" "(let-values(((name_45) name13_0))" "(let-values(((rec?_0) rec?9_0))" "(let-values(((result-used?_4) result-used?14_0))" "(let-values()" -"(let-values(((body_0)(parsed-let_-values-body p_26)))" +"(let-values(((body_0)(parsed-let_-values-body p_30)))" "(correlate~" -"(parsed-s p_26)" +"(parsed-s p_30)" "(list" "(if rec?_0 'letrec-values 'let-values)" "(reverse$1" -"(let-values(((lst_160)(parsed-let_-values-clauses p_26))" -"((lst_161)(parsed-let_-values-idss p_26)))" +"(let-values(((lst_160)(parsed-let_-values-clauses p_30))" +"((lst_161)(parsed-let_-values-idss p_30)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -26817,7 +27200,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_165)))" -"((letrec-values(((for-loop_180)" +"((letrec-values(((for-loop_181)" "(lambda(fold-var_162" " lst_166" " lst_167)" @@ -26855,13 +27238,13 @@ static const char *startup_source = " fold-var_2)))))" "(if(not" " #f)" -"(for-loop_180" +"(for-loop_181" " fold-var_163" " rest_84" " rest_85)" " fold-var_163)))" " fold-var_162)))))" -" for-loop_180)" +" for-loop_181)" " null" " lst_164" " lst_165))))" @@ -26885,32 +27268,32 @@ static const char *startup_source = "(compile-sequence body_0 cctx_8 name_45 result-used?_4)))))))))))))" "(define-values" "(add-undefined-error-name-property)" -"(lambda(sym_19 orig-id_0)" +"(lambda(sym_51 orig-id_0)" "(begin" -"(let-values(((id_47)(correlate~ orig-id_0 sym_19)))" +"(let-values(((id_47)(correlate~ orig-id_0 sym_51)))" "(correlated-property" "(->correlated id_47)" " 'undefined-error-name" -"(let-values(((or-part_212)(syntax-property$1 orig-id_0 'undefined-error-name)))" -"(if or-part_212 or-part_212(syntax-e$1 orig-id_0))))))))" +"(let-values(((or-part_147)(syntax-property$1 orig-id_0 'undefined-error-name)))" +"(if or-part_147 or-part_147(syntax-e$1 orig-id_0))))))))" "(define-values" "(compile-identifier24.1)" "(lambda(set-to19_0 set-to21_0 set-to?18_0 set-to?20_0 p22_0 cctx23_0)" "(begin" " 'compile-identifier24" -"(let-values(((p_39) p22_0))" +"(let-values(((p_43) p22_0))" "(let-values(((cctx_9) cctx23_0))" "(let-values(((set-to?_0)(if set-to?20_0 set-to?18_0 #f)))" "(let-values(((rhs_0)(if set-to21_0 set-to19_0 #f)))" "(let-values()" -"(let-values(((normal-b_0)(parsed-id-binding p_39)))" +"(let-values(((normal-b_0)(parsed-id-binding p_43)))" "(let-values(((b_71)" -"(let-values(((or-part_213) normal-b_0))" -"(if or-part_213" -" or-part_213" +"(let-values(((or-part_220) normal-b_0))" +"(if or-part_220" +" or-part_220" "(let-values(((temp45_0)(compile-context-self cctx_9))" "((temp46_0)(compile-context-phase cctx_9))" -"((temp47_0)(syntax-e$1(parsed-s p_39))))" +"((temp47_0)(syntax-e$1(parsed-s p_43))))" "(make-module-binding22.1" " #f" " #f" @@ -26933,16 +27316,16 @@ static const char *startup_source = " temp45_0" " temp46_0" " temp47_0))))))" -"(let-values(((sym_51)" +"(let-values(((sym_52)" "(if(local-binding? b_71)" "(let-values()(local-binding-key b_71))" "(if(module-binding? b_71)" "(let-values()" "(let-values(((mpi_41)" -"(if(parsed-top-id? p_39)" +"(if(parsed-top-id? p_43)" "(compile-context-self cctx_9)" "(module-binding-module b_71))))" -"(if(parsed-primitive-id? p_39)" +"(if(parsed-primitive-id? p_43)" "(let-values()" "(begin" "(if(zero?(module-binding-phase b_71))" @@ -26968,16 +27351,16 @@ static const char *startup_source = "((temp50_0)(module-binding-phase b_71))" "((temp51_0)(module-binding-sym b_71))" "((temp52_1)" -"(let-values(((or-part_96)" +"(let-values(((or-part_102)" "(module-binding-extra-inspector b_71)))" -"(if or-part_96" -" or-part_96" -"(let-values(((or-part_214)" -"(parsed-id-inspector p_39)))" -"(if or-part_214" -" or-part_214" -"(if(parsed-s p_39)" -"(syntax-inspector(parsed-s p_39))" +"(if or-part_102" +" or-part_102" +"(let-values(((or-part_221)" +"(parsed-id-inspector p_43)))" +"(if or-part_221" +" or-part_221" +"(if(parsed-s p_43)" +"(syntax-inspector(parsed-s p_43))" " #f)))))))" "(register-required-variable-use!19.1" " #f" @@ -26991,8 +27374,8 @@ static const char *startup_source = "(error" " \"not a reference to a module or local binding:\"" " b_71" -"(parsed-s p_39)))))))" -"(correlate~(parsed-s p_39)(if set-to?_0(list 'set! sym_51 rhs_0) sym_51)))))))))))))" +"(parsed-s p_43)))))))" +"(correlate~(parsed-s p_43)(if set-to?_0(list 'set! sym_52 rhs_0) sym_52)))))))))))))" "(define-values" "(compile-quote-syntax)" "(lambda(q_1 cctx_10)" @@ -27009,17 +27392,17 @@ static const char *startup_source = "(let-values() #f)" "(if(set? extra-inspectors_2)" "(let-values()" -"(let-values(((ht_106) extra-inspectors_2))" +"(let-values(((ht_107) extra-inspectors_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_106)))" -"((letrec-values(((for-loop_90)" -"(lambda(result_70 i_135)" +"(let-values()(check-in-immutable-hash-keys ht_107)))" +"((letrec-values(((for-loop_91)" +"(lambda(result_70 i_136)" "(begin" " 'for-loop" -"(if i_135" -"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_106 i_135)))" +"(if i_136" +"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_107 i_136)))" "(let-values(((result_71)" "(let-values()" "(let-values(((result_72)" @@ -27030,12 +27413,12 @@ static const char *startup_source = " guard-insp_0)))))" "(values result_72)))))" "(if(if(not((lambda x_54(not result_71)) extra-insp_0))(not #f) #f)" -"(for-loop_90 result_71(unsafe-immutable-hash-iterate-next ht_106 i_135))" +"(for-loop_91 result_71(unsafe-immutable-hash-iterate-next ht_107 i_136))" " result_71)))" " result_70)))))" -" for-loop_90)" +" for-loop_91)" " #t" -"(unsafe-immutable-hash-iterate-first ht_106)))))" +"(unsafe-immutable-hash-iterate-first ht_107)))))" "(if(procedure? extra-inspectors_2)" "(let-values()(extra-inspectors_2 guard-insp_0))" "(let-values()" @@ -27047,8 +27430,8 @@ static const char *startup_source = "(extra-inspectors-merge)" "(lambda(extra-inspectors-1_0 extra-inspectors-2_0)" "(begin" -"(if(let-values(((or-part_215)(not extra-inspectors-1_0)))" -"(if or-part_215 or-part_215(not extra-inspectors-2_0)))" +"(if(let-values(((or-part_222)(not extra-inspectors-1_0)))" +"(if or-part_222 or-part_222(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))" @@ -27099,7 +27482,7 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_168)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_75)))" -"((letrec-values(((for-loop_101)" +"((letrec-values(((for-loop_102)" "(lambda(fold-var_11 lst_85 lst_77)" "(begin" " 'for-loop" @@ -27121,9 +27504,9 @@ static const char *startup_source = " #f))" " fold-var_165))))" "(values fold-var_166)))))" -"(if(not #f)(for-loop_101 fold-var_164 rest_86 rest_87) fold-var_164)))" +"(if(not #f)(for-loop_102 fold-var_164 rest_86 rest_87) fold-var_164)))" " fold-var_11)))))" -" for-loop_101)" +" for-loop_102)" " null" " lst_168" " lst_75)))))" @@ -27132,7 +27515,7 @@ static const char *startup_source = "(let-values(((lst_86) mus_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_86)))" -"((letrec-values(((for-loop_93)" +"((letrec-values(((for-loop_94)" "(lambda(fold-var_167 lst_169)" "(begin" " 'for-loop" @@ -27151,9 +27534,9 @@ static const char *startup_source = " #f))" " fold-var_168))))" "(values fold-var_18)))))" -"(if(not #f)(for-loop_93 fold-var_67 rest_88) fold-var_67)))" +"(if(not #f)(for-loop_94 fold-var_67 rest_88) fold-var_67)))" " fold-var_167)))))" -" for-loop_93)" +" for-loop_94)" " null" " lst_86)))))))))" "(define-values" @@ -27164,7 +27547,7 @@ static const char *startup_source = "(let-values(((lst_170) mu*s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_170)))" -"((letrec-values(((for-loop_181)" +"((letrec-values(((for-loop_182)" "(lambda(fold-var_69 lst_171)" "(begin" " 'for-loop" @@ -27181,9 +27564,9 @@ static const char *startup_source = "(module-use-phase mu*_0)))" " fold-var_70))))" "(values fold-var_170)))))" -"(if(not #f)(for-loop_181 fold-var_169 rest_89) fold-var_169)))" +"(if(not #f)(for-loop_182 fold-var_169 rest_89) fold-var_169)))" " fold-var_69)))))" -" for-loop_181)" +" for-loop_182)" " null" " lst_170)))))))" "(define-values" @@ -27196,7 +27579,7 @@ static const char *startup_source = "(let-values(((lst_172) mu*s_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_172)))" -"((letrec-values(((for-loop_182)" +"((letrec-values(((for-loop_183)" "(lambda(fold-var_73 lst_9)" "(begin" " 'for-loop" @@ -27211,9 +27594,9 @@ static const char *startup_source = "(module-use*-extra-inspectorss mu*_1))" " fold-var_4))))" "(values fold-var_172)))))" -"(if(not #f)(for-loop_182 fold-var_171 rest_90) fold-var_171)))" +"(if(not #f)(for-loop_183 fold-var_171 rest_90) fold-var_171)))" " fold-var_73)))))" -" for-loop_182)" +" for-loop_183)" " null" " lst_172)))))" "(let-values()" @@ -27311,23 +27694,23 @@ 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_216) add-insp?_0))(if or-part_216 or-part_216 add-extra-insp?_0))" +"(if(let-values(((or-part_223) add-insp?_0))(if or-part_223 or-part_223 add-extra-insp?_0))" "(let-values()" "(let-values(((lst_178) imports_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_178)))" -"((letrec-values(((for-loop_111)" -"(lambda(table_136 lst_179)" +"((letrec-values(((for-loop_112)" +"(lambda(table_139 lst_179)" "(begin" " 'for-loop" "(if(pair? lst_179)" "(let-values(((import_1)(unsafe-car lst_179))" "((rest_94)(unsafe-cdr lst_179)))" -"(let-values(((table_137)" -"(let-values(((table_138) table_136))" -"(let-values(((table_139)" +"(let-values(((table_140)" +"(let-values(((table_141) table_139))" +"(let-values(((table_142)" "(let-values()" "(let-values(((key_55" " val_49)" @@ -27342,33 +27725,33 @@ static const char *startup_source = " #f)" " #f)))" "(lambda(guard-insp_2)" -"(let-values(((or-part_217)" +"(let-values(((or-part_224)" "(if add-insp?_0" "(inspector-superior?" " inspector_12" " guard-insp_2)" " #f)))" -"(if or-part_217" -" or-part_217" -"(let-values(((or-part_218)" +"(if or-part_224" +" or-part_224" +"(let-values(((or-part_225)" "(if add-extra-insp?_0" "(inspector-superior?" " extra-inspector_5" " guard-insp_2)" " #f)))" -"(if or-part_218" -" or-part_218" +"(if or-part_225" +" or-part_225" "(extra-inspectors-allow?" " extra-inspectors_3" " guard-insp_2)))))))))))" "(hash-set" -" table_138" +" table_141" " key_55" " val_49)))))" -"(values table_139)))))" -"(if(not #f)(for-loop_111 table_137 rest_94) table_137)))" -" table_136)))))" -" for-loop_111)" +"(values table_142)))))" +"(if(not #f)(for-loop_112 table_140 rest_94) table_140)))" +" table_139)))))" +" for-loop_112)" " '#hash()" " lst_178))))" "(let-values()" @@ -27377,7 +27760,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_163)))" -"((letrec-values(((for-loop_183)" +"((letrec-values(((for-loop_184)" "(lambda(extra-inspectorss_8 lst_180)" "(begin" " 'for-loop" @@ -27400,12 +27783,12 @@ static const char *startup_source = " #f)))))" "(values extra-inspectorss_11)))))" "(if(not #f)" -"(for-loop_183 extra-inspectorss_9 rest_95)" +"(for-loop_184 extra-inspectorss_9 rest_95)" " extra-inspectorss_9)))" " extra-inspectorss_8)))))" -" for-loop_183)" -"(let-values(((or-part_219) extra-inspectorss_7))" -"(if or-part_219 or-part_219(seteq)))" +" for-loop_184)" +"(let-values(((or-part_226) extra-inspectorss_7))" +"(if or-part_226 or-part_226(seteq)))" " lst_163)))))))" "(module-use*1.1 mpi_42 phase_67 new-extra-inspectorss_0 #f))))))))" "(define-values" @@ -27415,18 +27798,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_62) extra-inspectorss_12))" +"(let-values(((ht_108) extra-inspectorss_12))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_62)))" -"((letrec-values(((for-loop_184)" -"(lambda(new-extra-inspectorss_2 i_136)" +"(let-values()(check-in-hash ht_108)))" +"((letrec-values(((for-loop_185)" +"(lambda(new-extra-inspectorss_2 i_137)" "(begin" " 'for-loop" -"(if i_136" -"(let-values(((sym_52 extra-inspectors_4)" -"(hash-iterate-key+value ht_62 i_136)))" +"(if i_137" +"(let-values(((sym_53 extra-inspectors_4)" +"(hash-iterate-key+value ht_108 i_137)))" "(let-values(((new-extra-inspectorss_3)" "(let-values(((new-extra-inspectorss_4)" " new-extra-inspectorss_2))" @@ -27434,23 +27817,23 @@ static const char *startup_source = "(let-values()" "(hash-set" " new-extra-inspectorss_4" -" sym_52" +" sym_53" "(extra-inspectors-merge" " extra-inspectors_4" "(hash-ref" " new-extra-inspectorss_4" -" sym_52" +" sym_53" "(seteq)))))))" "(values new-extra-inspectorss_5)))))" "(if(not #f)" -"(for-loop_184" +"(for-loop_185" " new-extra-inspectorss_3" -"(hash-iterate-next ht_62 i_136))" +"(hash-iterate-next ht_108 i_137))" " new-extra-inspectorss_3)))" " new-extra-inspectorss_2)))))" -" for-loop_184)" +" for-loop_185)" " existing-extra-inspectorss_0" -"(hash-iterate-first ht_62))))))" +"(hash-iterate-first ht_108))))))" "(set-module-use*-extra-inspectorss! existing-mu*_0 new-extra-inspectorss_1)))))))" "(define-values" "(struct:link-info" @@ -27460,18 +27843,18 @@ static const char *startup_source = " link-info-imports" " link-info-extra-inspectorsss" " link-info-def-decls)" -"(let-values(((struct:_39 make-_39 ?_39 -ref_39 -set!_39)" +"(let-values(((struct:_33 make-_33 ?_33 -ref_33 -set!_33)" "(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:_39" -" make-_39" -" ?_39" -"(make-struct-field-accessor -ref_39 0 'link-module-uses)" -"(make-struct-field-accessor -ref_39 1 'imports)" -"(make-struct-field-accessor -ref_39 2 'extra-inspectorsss)" -"(make-struct-field-accessor -ref_39 3 'def-decls))))" +" 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))))" "(define-values" "(compile-forms31.1)" "(lambda(body-import-instances3_0" @@ -27523,14 +27906,14 @@ static const char *startup_source = "(let-values(((get-module-linklet-info_0)" "(if get-module-linklet-info24_0" " get-module-linklet-info11_0" -"(lambda(mod-name_14 p_40)(begin 'get-module-linklet-info #f)))))" +"(lambda(mod-name_14 p_44)(begin 'get-module-linklet-info #f)))))" "(let-values(((to-source?_0)(if to-source?25_0 to-source?12_0 #f)))" "(let-values(((serializable?_0)(if serializable?26_0 serializable?13_0 #t)))" "(let-values(((cross-linklet-inlining?_1)" "(if cross-linklet-inlining?27_0 cross-linklet-inlining?14_0 #t)))" "(let-values()" "(let-values(((phase_68)(compile-context-phase cctx_11)))" -"(let-values(((self_17)(compile-context-self cctx_11)))" +"(let-values(((self_20)(compile-context-self cctx_11)))" "(let-values(((syntax-literals_1)(make-syntax-literals)))" "(let-values(((phase-to-body_0)(make-hasheqv)))" "(let-values(((add-body!_0)" @@ -27547,13 +27930,13 @@ static const char *startup_source = "(lambda(phase_69)" "(begin" " 'find-or-create-header!" -"(let-values(((or-part_135)" +"(let-values(((or-part_141)" "(hash-ref" " phase-to-header_0" " phase_69" " #f)))" -"(if or-part_135" -" or-part_135" +"(if or-part_141" +" or-part_141" "(let-values(((header_7)" "(make-header" " mpis_14" @@ -27572,7 +27955,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_181)))" -"((letrec-values(((for-loop_185)" +"((letrec-values(((for-loop_186)" "(lambda(lst_182)" "(begin" " 'for-loop" @@ -27598,11 +27981,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_185" +"(for-loop_186" " rest_96)" "(values))))" "(values))))))" -" for-loop_185)" +" for-loop_186)" " lst_181)))" "(values))))" "(let-values()" @@ -27627,7 +28010,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_183)))" -"((letrec-values(((for-loop_186)" +"((letrec-values(((for-loop_187)" "(lambda(lst_184)" "(begin" " 'for-loop" @@ -27665,7 +28048,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_185)" -"(let-values(((sym_53)" +"(let-values(((sym_54)" "(unsafe-car" " lst_185))" "((rest_98)" @@ -27679,18 +28062,18 @@ static const char *startup_source = "(let-values()" "(let-values(((def-sym_1)" "(select-fresh" -" sym_53" +" sym_54" " header_8)))" "(begin" "(hash-set!" "(header-binding-sym-to-define-sym" " header_8)" -" sym_53" +" sym_54" " def-sym_1)" "(set-header-binding-syms-in-order!" " header_8" "(cons" -" sym_53" +" sym_54" "(header-binding-syms-in-order" " header_8)))" "(register-as-defined!" @@ -27723,11 +28106,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_186" +"(for-loop_187" " rest_97)" "(values))))" "(values))))))" -" for-loop_186)" +" for-loop_187)" " lst_183)))" "(void))))))" " loop!_0)" @@ -27740,10 +28123,10 @@ static const char *startup_source = "(lambda(header_9)" "(begin" " 'as-required?" -"(lambda(sym_54)" +"(lambda(sym_55)" "(registered-as-required?" " header_9" -" sym_54))))))" +" sym_55))))))" "(let-values(((last-i_0)(sub1(length bodys_2))))" "(let-values((()" "(begin" @@ -27771,7 +28154,7 @@ static const char *startup_source = "(let-values()" "(check-naturals" " start_34)))" -"((letrec-values(((for-loop_187)" +"((letrec-values(((for-loop_188)" "(lambda(lst_187" " pos_91)" "(begin" @@ -27786,7 +28169,7 @@ static const char *startup_source = "((rest_99)" "(unsafe-cdr" " lst_187))" -"((i_137)" +"((i_138)" " pos_91))" "(let-values((()" "(let-values()" @@ -27817,7 +28200,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_188)))" -"((letrec-values(((for-loop_188)" +"((letrec-values(((for-loop_189)" "(lambda(fold-var_3" " lst_189)" "(begin" @@ -27846,12 +28229,12 @@ static const char *startup_source = " fold-var_178)))))" "(if(not" " #f)" -"(for-loop_188" +"(for-loop_189" " fold-var_176" " rest_100)" " fold-var_176)))" " fold-var_3)))))" -" for-loop_188)" +" for-loop_189)" " null" " lst_188)))))" "(let-values()" @@ -27974,11 +28357,11 @@ static const char *startup_source = " rhs_1))" "(parsed-s" " body_3)))" -"(if(let-values(((or-part_220)" +"(if(let-values(((or-part_227)" "(compile-context-module-self" " cctx_11)))" -"(if or-part_220" -" or-part_220" +"(if or-part_227" +" or-part_227" "(null?" " ids_5)))" "(void)" @@ -28001,7 +28384,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_190)))" -"((letrec-values(((for-loop_189)" +"((letrec-values(((for-loop_190)" "(lambda(fold-var_179" " lst_191)" "(begin" @@ -28030,12 +28413,12 @@ static const char *startup_source = " fold-var_182)))))" "(if(not" " #f)" -"(for-loop_189" +"(for-loop_190" " fold-var_180" " rest_101)" " fold-var_180)))" " fold-var_179)))))" -" for-loop_189)" +" for-loop_190)" " null" " lst_190)))))" " '((void))))" @@ -28094,7 +28477,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_192)))" -"((letrec-values(((for-loop_190)" +"((letrec-values(((for-loop_191)" "(lambda(fold-var_183" " lst_193)" "(begin" @@ -28128,12 +28511,12 @@ static const char *startup_source = " fold-var_186)))))" "(if(not" " #f)" -"(for-loop_190" +"(for-loop_191" " fold-var_184" " rest_102)" " fold-var_184)))" " fold-var_183)))))" -" for-loop_190)" +" for-loop_191)" " null" " lst_192))))))" "(let-values(((rhs_2)" @@ -28319,16 +28702,16 @@ static const char *startup_source = "(find-or-create-header!_0" "(add1" " phase_72))))" -"(if(let-values(((or-part_221)" +"(if(let-values(((or-part_228)" "(parsed-#%declare?" " body_3)))" -"(if or-part_221" -" or-part_221" -"(let-values(((or-part_222)" +"(if or-part_228" +" or-part_228" +"(let-values(((or-part_229)" "(parsed-module?" " body_3)))" -"(if or-part_222" -" or-part_222" +"(if or-part_229" +" or-part_229" "(parsed-require?" " body_3)))))" "(let-values()" @@ -28404,7 +28787,7 @@ static const char *startup_source = " the-struct_55)))" " #f" "(=" -" i_137" +" i_138" " last-i_0))))" "(begin" "(compiled-expression-callback_0" @@ -28420,14 +28803,14 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_187" +"(for-loop_188" " rest_99" "(+" " pos_91" " 1))" "(values))))" "(values))))))" -" for-loop_187)" +" for-loop_188)" " lst_186" " start_34)))" "(void))))))" @@ -28486,8 +28869,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_102)))" -"((letrec-values(((for-loop_117)" -"(lambda(table_140" +"((letrec-values(((for-loop_118)" +"(lambda(table_143" " lst_149)" "(begin" " 'for-loop" @@ -28499,10 +28882,10 @@ static const char *startup_source = "((rest_75)" "(unsafe-cdr" " lst_149)))" -"(let-values(((table_141)" -"(let-values(((table_142)" -" table_140))" -"(let-values(((table_143)" +"(let-values(((table_144)" +"(let-values(((table_145)" +" table_143))" +"(let-values(((table_146)" "(let-values()" "(let-values(((key_56" " val_50)" @@ -28529,19 +28912,19 @@ static const char *startup_source = " extra-inspectorsss_1" " def-decls_0)))))))" "(hash-set" -" table_142" +" table_145" " key_56" " val_50)))))" "(values" -" table_143)))))" +" table_146)))))" "(if(not" " #f)" -"(for-loop_117" -" table_141" +"(for-loop_118" +" table_144" " rest_75)" -" table_141)))" -" table_140)))))" -" for-loop_117)" +" table_144)))" +" table_143)))))" +" for-loop_118)" " '#hash()" " lst_102)))))" "(let-values(((body-linklets+module-use*s_0)" @@ -28554,8 +28937,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_198)))" -"((letrec-values(((for-loop_191)" -"(lambda(table_144" +"((letrec-values(((for-loop_192)" +"(lambda(table_147" " lst_199)" "(begin" " 'for-loop" @@ -28567,10 +28950,10 @@ static const char *startup_source = "((rest_105)" "(unsafe-cdr" " lst_199)))" -"(let-values(((table_145)" -"(let-values(((table_146)" -" table_144))" -"(let-values(((table_147)" +"(let-values(((table_148)" +"(let-values(((table_149)" +" table_147))" +"(let-values(((table_150)" "(let-values()" "(let-values(((key_57" " val_51)" @@ -28637,7 +29020,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_200)))" -"((letrec-values(((for-loop_121)" +"((letrec-values(((for-loop_122)" "(lambda(fold-var_191" " lst_107)" "(begin" @@ -28673,12 +29056,12 @@ static const char *startup_source = " fold-var_194)))))" "(if(not" " #f)" -"(for-loop_121" +"(for-loop_122" " fold-var_192" " rest_106)" " fold-var_192)))" " fold-var_191)))))" -" for-loop_121)" +" for-loop_122)" " null" " lst_200)))))" "(qq-append" @@ -28706,23 +29089,23 @@ static const char *startup_source = "(length" " body-imports_0))))))))))))" "(hash-set" -" table_146" +" table_149" " key_57" " val_51)))))" "(values" -" table_147)))))" +" table_150)))))" "(if(not" " #f)" -"(for-loop_191" -" table_145" +"(for-loop_192" +" table_148" " rest_105)" -" table_145)))" -" table_144)))))" -" for-loop_191)" +" table_148)))" +" table_147)))))" +" for-loop_192)" " '#hasheq()" " lst_198)))))" "(let-values(((body-linklets_0)" -"(let-values(((ht_107)" +"(let-values(((ht_109)" " body-linklets+module-use*s_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28730,22 +29113,22 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_107)))" -"((letrec-values(((for-loop_192)" -"(lambda(table_148" -" i_138)" +" ht_109)))" +"((letrec-values(((for-loop_193)" +"(lambda(table_151" +" i_139)" "(begin" " 'for-loop" -"(if i_138" +"(if i_139" "(let-values(((phase_74" " l+mu*s_0)" "(hash-iterate-key+value" -" ht_107" -" i_138)))" -"(let-values(((table_149)" -"(let-values(((table_150)" -" table_148))" -"(let-values(((table_151)" +" ht_109" +" i_139)))" +"(let-values(((table_152)" +"(let-values(((table_153)" +" table_151))" +"(let-values(((table_154)" "(let-values()" "(let-values(((key_58" " val_52)" @@ -28755,26 +29138,26 @@ static const char *startup_source = "(car" " l+mu*s_0)))))" "(hash-set" -" table_150" +" table_153" " key_58" " val_52)))))" "(values" -" table_151)))))" +" table_154)))))" "(if(not" " #f)" -"(for-loop_192" -" table_149" +"(for-loop_193" +" table_152" "(hash-iterate-next" -" ht_107" -" i_138))" -" table_149)))" -" table_148)))))" -" for-loop_192)" +" ht_109" +" i_139))" +" table_152)))" +" table_151)))))" +" for-loop_193)" " '#hasheq()" "(hash-iterate-first" -" ht_107))))))" +" ht_109))))))" "(let-values(((phase-to-link-module-uses_1)" -"(let-values(((ht_108)" +"(let-values(((ht_110)" " body-linklets+module-use*s_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28782,22 +29165,22 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_108)))" -"((letrec-values(((for-loop_193)" -"(lambda(table_152" -" i_139)" +" ht_110)))" +"((letrec-values(((for-loop_194)" +"(lambda(table_155" +" i_140)" "(begin" " 'for-loop" -"(if i_139" +"(if i_140" "(let-values(((phase_75" " l+mu*s_1)" "(hash-iterate-key+value" -" ht_108" -" i_139)))" -"(let-values(((table_153)" -"(let-values(((table_154)" -" table_152))" -"(let-values(((table_155)" +" ht_110" +" i_140)))" +"(let-values(((table_156)" +"(let-values(((table_157)" +" table_155))" +"(let-values(((table_158)" "(let-values()" "(let-values(((key_59" " val_53)" @@ -28808,30 +29191,30 @@ static const char *startup_source = "(cdr" " l+mu*s_1))))))" "(hash-set" -" table_154" +" table_157" " key_59" " val_53)))))" "(values" -" table_155)))))" +" table_158)))))" "(if(not" " #f)" -"(for-loop_193" -" table_153" +"(for-loop_194" +" table_156" "(hash-iterate-next" -" ht_108" -" i_139))" -" table_153)))" -" table_152)))))" -" for-loop_193)" +" ht_110" +" i_140))" +" table_156)))" +" table_155)))))" +" for-loop_194)" " '#hasheq()" "(hash-iterate-first" -" ht_108))))))" +" ht_110))))))" "(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_109)" +"(let-values(((ht_111)" " body-linklets+module-use*s_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28839,19 +29222,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_109)))" -"((letrec-values(((for-loop_194)" -"(lambda(table_156" -" i_140)" +" ht_111)))" +"((letrec-values(((for-loop_195)" +"(lambda(table_159" +" i_141)" "(begin" " 'for-loop" -"(if i_140" +"(if i_141" "(let-values(((phase_76" " l+mu*s_2)" "(hash-iterate-key+value" -" ht_109" -" i_140)))" -"(let-values(((table_157)" +" ht_111" +" i_141)))" +"(let-values(((table_160)" "(let-values(((extra-inspectorsss_2)" "(module-uses-extract-extra-inspectorsss" "(cdr" @@ -28863,18 +29246,18 @@ static const char *startup_source = " body-imports_0))))" "(begin" " #t" -"((letrec-values(((for-loop_195)" -"(lambda(table_158)" +"((letrec-values(((for-loop_196)" +"(lambda(table_161)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_159)" -"(let-values(((table_160)" -" table_158))" -"(if extra-inspectorsss_2" -"(let-values(((table_161)" -" table_160))" "(let-values(((table_162)" +"(let-values(((table_163)" +" table_161))" +"(if extra-inspectorsss_2" +"(let-values(((table_164)" +" table_163))" +"(let-values(((table_165)" "(let-values()" "(let-values(((key_60" " val_54)" @@ -28883,28 +29266,28 @@ static const char *startup_source = " phase_76" " extra-inspectorsss_2))))" "(hash-set" -" table_161" +" table_164" " key_60" " val_54)))))" "(values" -" table_162)))" -" table_160))))" -" table_159))))))" -" for-loop_195)" -" table_156)))))" +" table_165)))" +" table_163))))" +" table_162))))))" +" for-loop_196)" +" table_159)))))" "(if(not" " #f)" -"(for-loop_194" -" table_157" +"(for-loop_195" +" table_160" "(hash-iterate-next" -" ht_109" -" i_140))" -" table_157)))" -" table_156)))))" -" for-loop_194)" +" ht_111" +" i_141))" +" table_160)))" +" table_159)))))" +" for-loop_195)" " '#hash()" "(hash-iterate-first" -" ht_109))))))" +" ht_111))))))" "(values" " body-linklets_0" " min-phase_0" @@ -28919,29 +29302,29 @@ static const char *startup_source = "(lambda(ids_7 binding-syms_2 cctx_12 trans-exprs_0)" "(begin" "(let-values(((phase_77)(compile-context-phase cctx_12)))" -"(let-values(((self_18)(compile-context-self cctx_12)))" +"(let-values(((self_21)(compile-context-self cctx_12)))" "(let-values(((header_12)(compile-context-header cctx_12)))" "(let-values(((mpis_15)(header-module-path-indexes header_12)))" "(let-values(((top-level-bind-scope_2)" "(root-expand-context-top-level-bind-scope" "(namespace-get-root-expand-ctx(compile-context-namespace cctx_12)))))" -"(let-values(((self-expr_0)(add-module-path-index! mpis_15 self_18)))" +"(let-values(((self-expr_0)(add-module-path-index! mpis_15 self_21)))" "(list*" " 'begin" "(reverse$1" "(let-values(((lst_201) ids_7)" "((lst_202) binding-syms_2)" "((lst_203)" -"(let-values(((or-part_14) trans-exprs_0))" -"(if or-part_14" -" or-part_14" +"(let-values(((or-part_20) trans-exprs_0))" +"(if or-part_20" +" or-part_20" "(reverse$1" "(let-values(((lst_204) ids_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_204)))" -"((letrec-values(((for-loop_196)" +"((letrec-values(((for-loop_197)" "(lambda(fold-var_195 lst_205)" "(begin" " 'for-loop" @@ -28959,10 +29342,10 @@ static const char *startup_source = " fold-var_197))))" "(values fold-var_198)))))" "(if(not #f)" -"(for-loop_196 fold-var_196 rest_107)" +"(for-loop_197 fold-var_196 rest_107)" " fold-var_196)))" " fold-var_195)))))" -" for-loop_196)" +" for-loop_197)" " null" " lst_204))))))))" "(begin" @@ -28975,7 +29358,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_203)))" -"((letrec-values(((for-loop_197)" +"((letrec-values(((for-loop_198)" "(lambda(fold-var_199 lst_2 lst_206 lst_207)" "(begin" " 'for-loop" @@ -29011,10 +29394,10 @@ static const char *startup_source = " fold-var_201))))" "(values fold-var_202)))))" "(if(not #f)" -"(for-loop_197 fold-var_200 rest_108 rest_109 rest_110)" +"(for-loop_198 fold-var_200 rest_108 rest_109 rest_110)" " fold-var_200)))" " fold-var_199)))))" -" for-loop_197)" +" for-loop_198)" " null" " lst_201" " lst_202" @@ -29044,7 +29427,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_208)))" -"((letrec-values(((for-loop_198)" +"((letrec-values(((for-loop_199)" "(lambda(fold-var_203 lst_209)" "(begin" " 'for-loop" @@ -29056,9 +29439,9 @@ static const char *startup_source = "(let-values()" "(cons(let-values() ''#f) fold-var_205))))" "(values fold-var_206)))))" -"(if(not #f)(for-loop_198 fold-var_204 rest_111) fold-var_204)))" +"(if(not #f)(for-loop_199 fold-var_204 rest_111) fold-var_204)))" " fold-var_203)))))" -" for-loop_198)" +" for-loop_199)" " null" " lst_208)))))))" "(list* 'begin finish_1 '((void)))))" @@ -29067,8 +29450,8 @@ static const char *startup_source = "(propagate-inline-property)" "(lambda(e_35 orig-s_22)" "(begin" -"(let-values(((v_160)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" -"(if v_160(correlated-property e_35 'compiler-hint:cross-module-inline v_160) e_35)))))" +"(let-values(((v_161)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" +"(if v_161(correlated-property e_35 'compiler-hint:cross-module-inline v_161) e_35)))))" "(define-values" "(make-module-use-to-linklet)" "(lambda(cross-linklet-inlining?_2 ns_56 get-module-linklet-info_1 init-mu*s_0)" @@ -29094,7 +29477,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_210)))" -"((letrec-values(((for-loop_199)" +"((letrec-values(((for-loop_200)" "(lambda(lst_137)" "(begin" " 'for-loop" @@ -29108,9 +29491,9 @@ static const char *startup_source = "(let-values()(intern-module-use*_0 mu*_6))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_199 rest_112)(values))))" +"(if(not #f)(for-loop_200 rest_112)(values))))" "(values))))))" -" for-loop_199)" +" for-loop_200)" " lst_210)))" "(void)" "(lambda(mu*-or-instance_0)" @@ -29123,10 +29506,10 @@ 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_223)" +"(let-values(((or-part_230)" "(get-module-linklet-info_1 mod-name_16(module-use-phase mu*_7))))" -"(if or-part_223" -" or-part_223" +"(if or-part_230" +" or-part_230" "(namespace->module-linklet-info" " ns_56" " mod-name_16" @@ -29152,8 +29535,8 @@ static const char *startup_source = "(1/linklet-import-variables" "(module-linklet-info-linklet-or-instance mli_0)))" "((lst_213)" -"(let-values(((or-part_224) extra-inspectorsss_3))" -"(if or-part_224 or-part_224 mus_2))))" +"(let-values(((or-part_231) extra-inspectorsss_3))" +"(if or-part_231 or-part_231 mus_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -29164,7 +29547,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_213)))" -"((letrec-values(((for-loop_200)" +"((letrec-values(((for-loop_201)" "(lambda(fold-var_207 lst_214 lst_215 lst_216)" "(begin" " 'for-loop" @@ -29207,14 +29590,14 @@ static const char *startup_source = " fold-var_209))))" "(values fold-var_210)))))" "(if(not #f)" -"(for-loop_200" +"(for-loop_201" " fold-var_208" " rest_113" " rest_114" " rest_115)" " fold-var_208)))" " fold-var_207)))))" -" for-loop_200)" +" for-loop_201)" " null" " lst_211" " lst_212" @@ -29231,7 +29614,7 @@ static const char *startup_source = "(map-cim-tree" " cims_0" "(lambda(cim_1)" -"(let-values(((vec_53 i_141)" +"(let-values(((vec_53 i_142)" "(let-values(((vec_54 len_28)" "(let-values(((vec_55)(compiled-in-memory-mpis cim_1)))" "(begin" @@ -29239,21 +29622,21 @@ static const char *startup_source = "(values vec_55(unsafe-vector-length vec_55))))))" "(begin" " #f" -"((letrec-values(((for-loop_91)" -"(lambda(vec_56 i_142 pos_92)" +"((letrec-values(((for-loop_92)" +"(lambda(vec_56 i_143 pos_92)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_92 len_28)" "(let-values(((mpi_43)" "(unsafe-vector-ref vec_54 pos_92)))" -"(let-values(((vec_57 i_143)" +"(let-values(((vec_57 i_144)" "(let-values(((vec_58) vec_56)" -"((i_144) i_142))" -"(let-values(((vec_59 i_145)" +"((i_145) i_143))" +"(let-values(((vec_59 i_146)" "(let-values()" "(let-values(((new-vec_3)" "(if(eq?" -" i_144" +" i_145" "(unsafe-vector*-length" " vec_58))" "(grow-vector" @@ -29262,7 +29645,7 @@ static const char *startup_source = "(begin" "(unsafe-vector*-set!" " new-vec_3" -" i_144" +" i_145" "(let-values()" "(add-module-path-index!/pos" " mpis_16" @@ -29270,21 +29653,21 @@ static const char *startup_source = "(values" " new-vec_3" "(unsafe-fx+" -" i_144" +" i_145" " 1)))))))" -"(values vec_59 i_145)))))" +"(values vec_59 i_146)))))" "(if(not #f)" -"(for-loop_91" +"(for-loop_92" " vec_57" -" i_143" +" i_144" "(unsafe-fx+ 1 pos_92))" -"(values vec_57 i_143))))" -"(values vec_56 i_142))))))" -" for-loop_91)" +"(values vec_57 i_144))))" +"(values vec_56 i_143))))))" +" for-loop_92)" "(make-vector 16)" " 0" " 0)))))" -"(shrink-vector vec_53 i_141))))))" +"(shrink-vector vec_53 i_142))))))" "(let-values(((syntax-literals_2)(make-syntax-literals)))" "(let-values(((syntax-literals-trees_0)" "(map-cim-tree" @@ -29316,7 +29699,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_217)))" -"((letrec-values(((for-loop_100)" +"((letrec-values(((for-loop_101)" "(lambda(fold-var_64 lst_84)" "(begin" " 'for-loop" @@ -29337,10 +29720,10 @@ static const char *startup_source = " fold-var_151))))" "(values fold-var_9)))))" "(if(not #f)" -"(for-loop_100 fold-var_29 rest_116)" +"(for-loop_101 fold-var_29 rest_116)" " fold-var_29)))" " fold-var_64)))))" -" for-loop_100)" +" for-loop_101)" " null" " lst_217)))))))" "(1/compile-linklet" @@ -29368,9 +29751,9 @@ static const char *startup_source = "(list 'quote syntax-literals-trees_0))))))))))))))))" "(define-values" "(map-cim-tree)" -"(lambda(cims_1 proc_7)" +"(lambda(cims_1 proc_9)" "(begin" -"((letrec-values(((loop_38)" +"((letrec-values(((loop_41)" "(lambda(cims_2)" "(begin" " 'loop" @@ -29380,7 +29763,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_218)))" -"((letrec-values(((for-loop_201)" +"((letrec-values(((for-loop_202)" "(lambda(fold-var_211 lst_78)" "(begin" " 'for-loop" @@ -29394,23 +29777,23 @@ static const char *startup_source = "(cons" "(let-values()" "(vector" -"(proc_7 cim_4)" -"(loop_38" +"(proc_9 cim_4)" +"(loop_41" "(compiled-in-memory-pre-compiled-in-memorys" " cim_4))" -"(loop_38" +"(loop_41" "(compiled-in-memory-post-compiled-in-memorys" " cim_4))))" " fold-var_164))))" "(values fold-var_165)))))" "(if(not #f)" -"(for-loop_201 fold-var_154 rest_35)" +"(for-loop_202 fold-var_154 rest_35)" " fold-var_154)))" " fold-var_211)))))" -" for-loop_201)" +" for-loop_202)" " null" " lst_218))))))))" -" loop_38)" +" loop_41)" " cims_1))))" "(define-values" "(compiled-tops->compiled-top8.1)" @@ -29441,17 +29824,17 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_35)))" -"((letrec-values(((for-loop_202)" -"(lambda(table_163 lst_94 pos_94)" +"((letrec-values(((for-loop_203)" +"(lambda(table_166 lst_94 pos_94)" "(begin" " 'for-loop" "(if(if(pair? lst_94) #t #f)" "(let-values(((cim_5)(unsafe-car lst_94))" "((rest_34)(unsafe-cdr lst_94))" "((i_74) pos_94))" -"(let-values(((table_164)" -"(let-values(((table_165) table_163))" -"(let-values(((table_166)" +"(let-values(((table_167)" +"(let-values(((table_168) table_166))" +"(let-values(((table_169)" "(let-values()" "(let-values(((key_61" " val_55)" @@ -29465,19 +29848,19 @@ static const char *startup_source = " compiled-in-memory-linklet-directory)" " cim_5)))))" "(hash-set" -" table_165" +" table_168" " key_61" " val_55)))))" -"(values table_166)))))" +"(values table_169)))))" "(if(not #f)" -"(for-loop_202 table_164 rest_34(+ pos_94 1))" -" table_164)))" -" table_163)))))" -" for-loop_202)" +"(for-loop_203 table_167 rest_34(+ pos_94 1))" +" table_167)))" +" table_166)))))" +" for-loop_203)" " '#hasheq()" " lst_219" " start_35)))))" -"(let-values(((ht_110)" +"(let-values(((ht_112)" "(if merge-serialization?_0" "(hash-set" " sequence-ht_0" @@ -29489,10 +29872,10 @@ static const char *startup_source = "(hasheq 0(build-shared-data-linklet cims_3 ns_57))))))" " sequence-ht_0)))" "(if to-source?_1" -"(let-values() ht_110)" +"(let-values() ht_112)" "(let-values()" "(compiled-in-memory1.1" -"(1/hash->linklet-directory ht_110)" +"(1/hash->linklet-directory ht_112)" " #f" " #f" " #f" @@ -29509,9 +29892,9 @@ static const char *startup_source = "(compiled-top->compiled-tops)" "(lambda(ld_0)" "(begin" -"(let-values(((ht_73)(1/linklet-directory->hash ld_0)))" +"(let-values(((ht_74)(1/linklet-directory->hash ld_0)))" "(reverse$1" -"(let-values(((start_36) 0)((end_25)(hash-count ht_73))((inc_19) 1))" +"(let-values(((start_36) 0)((end_25)(hash-count ht_74))((inc_19) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -29521,16 +29904,16 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(< pos_95 end_25)" -"(let-values(((i_146) pos_95))" +"(let-values(((i_147) pos_95))" "(let-values(((fold-var_18)" "(let-values(((top_0)" "(hash-ref" -" ht_73" -"(string->symbol(number->string i_146))" +" ht_74" +"(string->symbol(number->string i_147))" " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_203)" +"((letrec-values(((for-loop_204)" "(lambda(fold-var_68)" "(begin" " 'for-loop" @@ -29551,7 +29934,7 @@ static const char *startup_source = " fold-var_214)))" " fold-var_212))))" " fold-var_69))))))" -" for-loop_203)" +" for-loop_204)" " fold-var_17)))))" "(if(not #f)(for-loop_27 fold-var_18(+ pos_95 inc_19)) fold-var_18)))" " fold-var_17)))))" @@ -29562,7 +29945,7 @@ static const char *startup_source = "(remove-nontail-purely-functional)" "(lambda(cims_4)" "(begin" -"((letrec-values(((loop_87)" +"((letrec-values(((loop_90)" "(lambda(cims_5)" "(begin" " 'loop" @@ -29573,9 +29956,9 @@ static const char *startup_source = "(if(if(compiled-in-memory?(car cims_5))" "(compiled-in-memory-purely-functional?(car cims_5))" " #f)" -"(let-values()(loop_87(cdr cims_5)))" +"(let-values()(loop_90(cdr cims_5)))" "(let-values()(cons(car cims_5)(cdr cims_5))))))))))" -" loop_87)" +" loop_90)" " cims_4))))" "(define-values" "(struct:known-defined/delay known-defined/delay2.1 known-defined/delay? known-defined/delay-thunk)" @@ -29586,10 +29969,10 @@ static const char *startup_source = "(values struct:_64 make-_64 ?_64(make-struct-field-accessor -ref_64 0 'thunk))))" "(define-values" "(struct:known-property known-property3.1 known-property?)" -"(let-values(((struct:_33 make-_33 ?_33 -ref_33 -set!_33)" +"(let-values(((struct:_60 make-_60 ?_60 -ref_60 -set!_60)" "(let-values()" "(let-values()(make-struct-type 'known-property #f 0 0 #f null 'prefab #f '() #f 'known-property)))))" -"(values struct:_33 make-_33 ?_33)))" +"(values struct:_60 make-_60 ?_60)))" "(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)" @@ -29607,7 +29990,7 @@ static const char *startup_source = " known-function-of-satisfying5.1" " known-function-of-satisfying?" " known-function-of-satisfying-arg-predicate-keys)" -"(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" @@ -29622,7 +30005,7 @@ static const char *startup_source = " '(0)" " #f" " 'known-function-of-satisfying)))))" -"(values struct:_40 make-_40 ?_40(make-struct-field-accessor -ref_40 0 'arg-predicate-keys))))" +"(values struct:_39 make-_39 ?_39(make-struct-field-accessor -ref_39 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)" @@ -29651,11 +30034,11 @@ static const char *startup_source = "(make-struct-field-accessor -ref_36 1 'field-count))))" "(define-values" "(lookup-defn)" -"(lambda(defns_0 sym_55)" +"(lambda(defns_0 sym_56)" "(begin" -"(let-values(((d_29)(hash-ref defns_0 sym_55 #f)))" +"(let-values(((d_29)(hash-ref defns_0 sym_56 #f)))" "(if(known-defined/delay? d_29)" -"(let-values()(begin((known-defined/delay-thunk d_29))(lookup-defn defns_0 sym_55)))" +"(let-values()(begin((known-defined/delay-thunk d_29))(lookup-defn defns_0 sym_56)))" "(let-values() d_29))))))" "(define-values" "(any-side-effects?9.1)" @@ -29693,16 +30076,16 @@ static const char *startup_source = " e_37" " expected-results_1))))))" "(let-values(((actual-results_0)" -"((letrec-values(((loop_88)" +"((letrec-values(((loop_91)" "(lambda(e_38 locals_2)" "(begin" " 'loop" -"(let-values(((tmp_26)" +"(let-values(((tmp_27)" "(if(pair?(correlated-e e_38))" "(correlated-e(car(correlated-e e_38)))" " #f)))" "(let-values(((index_1)" -"(if(symbol? tmp_26)" +"(if(symbol? tmp_27)" "(hash-ref" " '#hasheq((#%variable-reference . 1)" "(begin . 5)" @@ -29719,39 +30102,39 @@ static const char *startup_source = "(quote . 1)" "(values . 3)" "(void . 4))" -" tmp_26" +" tmp_27" "(lambda() 0))" " 0)))" "(if(unsafe-fx< index_1 5)" "(if(unsafe-fx< index_1 2)" "(if(unsafe-fx< index_1 1)" "(let-values()" -"(let-values(((v_31)(correlated-e e_38)))" -"(if(let-values(((or-part_164)(string? v_31)))" -"(if or-part_164" -" or-part_164" -"(let-values(((or-part_76)" -"(number? v_31)))" -"(if or-part_76" -" or-part_76" -"(let-values(((or-part_77)" -"(boolean? v_31)))" -"(if or-part_77" -" or-part_77" -"(char? v_31)))))))" +"(let-values(((v_34)(correlated-e e_38)))" +"(if(let-values(((or-part_171)(string? v_34)))" +"(if or-part_171" +" or-part_171" +"(let-values(((or-part_82)" +"(number? v_34)))" +"(if or-part_82" +" or-part_82" +"(let-values(((or-part_83)" +"(boolean? v_34)))" +"(if or-part_83" +" or-part_83" +"(char? v_34)))))))" "(let-values() 1)" "(let-values(((c1_24)" -"(if(pair? v_31)" +"(if(pair? v_34)" "(let-values(((rator_0)" "(correlated-e" -"(car v_31))))" -"(let-values(((or-part_79)" +"(car v_34))))" +"(let-values(((or-part_85)" "(hash-ref" " locals_2" " rator_0" " #f)))" -"(if or-part_79" -" or-part_79" +"(if or-part_85" +" or-part_85" "(lookup-defn" " defns_1" " rator_0))))" @@ -29820,8 +30203,8 @@ static const char *startup_source = " e18_1))))))" "(let-values(((n-args_0)" "(length e18_0)))" -"(if(let-values(((or-part_170)" -"(if(let-values(((or-part_100)" +"(if(let-values(((or-part_177)" +"(if(let-values(((or-part_106)" "(if(known-struct-op?" " d_30)" "(if(eq?" @@ -29834,8 +30217,8 @@ static const char *startup_source = " n-args_0)" " #f)" " #f)))" -"(if or-part_100" -" or-part_100" +"(if or-part_106" +" or-part_106" "(if(known-function?" " d_30)" "(if(known-function-pure?" @@ -29897,8 +30280,8 @@ static const char *startup_source = " #t" " lst_7)))" " #f)))" -"(if or-part_170" -" or-part_170" +"(if or-part_177" +" or-part_177" "(if(known-function-of-satisfying?" " d_30)" "(if(=" @@ -29924,7 +30307,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_220)))" -"((letrec-values(((for-loop_204)" +"((letrec-values(((for-loop_205)" "(lambda(result_76" " lst_158" " lst_22)" @@ -29979,13 +30362,13 @@ static const char *startup_source = " #f)" " #f)" " #f)" -"(for-loop_204" +"(for-loop_205" " result_39" " rest_7" " rest_117)" " result_39)))" " result_76)))))" -" for-loop_204)" +" for-loop_205)" " #t" " lst_9" " lst_220)))" @@ -29995,32 +30378,32 @@ static const char *startup_source = " #f))))" " c1_24)" "(let-values()" -"(if(let-values(((or-part_225)" +"(if(let-values(((or-part_232)" "(self-quoting-in-linklet?" -" v_31)))" -"(if or-part_225" -" or-part_225" -"(if(symbol? v_31)" -"(let-values(((or-part_226)" +" v_34)))" +"(if or-part_232" +" or-part_232" +"(if(symbol? v_34)" +"(let-values(((or-part_233)" "(hash-ref" " locals_2" -" v_31" +" v_34" " #f)))" -"(if or-part_226" -" or-part_226" -"(let-values(((or-part_227)" +"(if or-part_233" +" or-part_233" +"(let-values(((or-part_234)" "(lookup-defn" " defns_1" -" v_31)))" -"(if or-part_227" -" or-part_227" -"(let-values(((or-part_228)" +" v_34)))" +"(if or-part_234" +" or-part_234" +"(let-values(((or-part_235)" "(built-in-symbol?" -" v_31)))" -"(if or-part_228" -" or-part_228" +" v_34)))" +"(if or-part_235" +" or-part_235" "(ready-variable?_0" -" v_31)))))))" +" v_34)))))))" " #f)))" " 1" " #f)))))))" @@ -30101,7 +30484,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_165)))" -"((letrec-values(((for-loop_180)" +"((letrec-values(((for-loop_181)" "(lambda(ids_9" " rhs_5" " lst_167)" @@ -30211,7 +30594,7 @@ static const char *startup_source = " rhs_8)))))" "(if(not" " #f)" -"(for-loop_180" +"(for-loop_181" " ids_10" " rhs_6" " rest_84)" @@ -30221,7 +30604,7 @@ static const char *startup_source = "(values" " ids_9" " rhs_5))))))" -" for-loop_180)" +" for-loop_181)" " null" " null" " lst_165)))))" @@ -30248,17 +30631,17 @@ static const char *startup_source = " s_33)))" " s_317))" "(()" -"(let-values(((s_158)" +"(let-values(((s_318)" "(cdr" " s_33)))" -"(let-values(((s_318)" +"(let-values(((s_319)" "(if(1/syntax?" -" s_158)" -"(syntax-e$2" -" s_158)" -" s_158)))" -"(if(null?" " s_318)" +"(syntax-e$2" +" s_318)" +" s_318)))" +"(if(null?" +" s_319)" "(values)" "((lambda(false_6" " str_11" @@ -30321,7 +30704,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_222)))" -"((letrec-values(((for-loop_205)" +"((letrec-values(((for-loop_206)" "(lambda(result_78" " lst_223" " lst_224)" @@ -30368,49 +30751,49 @@ static const char *startup_source = " #f)" " #f)" " #f)" -"(for-loop_205" +"(for-loop_206" " result_79" " rest_118" " rest_119)" " result_79)))" " result_78)))))" -" for-loop_205)" +" for-loop_206)" " #f" " lst_221" " lst_222))))" -"(loop_88" +"(loop_91" " body24_0" "(add-binding-info locals_2 ids22_0 rhs23_0))" " #f)))" "(if(unsafe-fx< index_1 4)" "(let-values()" "(let-values(((ok?_19 _38_0 e39_0)" -"(let-values(((s_319) e_38))" -"(let-values(((orig-s_25) s_319))" +"(let-values(((s_320) e_38))" +"(let-values(((orig-s_25) s_320))" "(let-values(((_38_1 e39_1)" -"(let-values(((s_320)" +"(let-values(((s_321)" "(if(1/syntax?" -" s_319)" -"(syntax-e$2" -" s_319)" -" s_319)))" -"(if(pair?" " s_320)" +"(syntax-e$2" +" s_320)" +" s_320)))" +"(if(pair?" +" s_321)" "(let-values(((_40_0)" "(let-values(((s_64)" "(car" -" s_320)))" +" s_321)))" " s_64))" "((e41_0)" -"(let-values(((s_321)" +"(let-values(((s_322)" "(cdr" -" s_320)))" +" s_321)))" "(let-values(((s_38)" "(if(1/syntax?" -" s_321)" +" s_322)" "(syntax-e$2" -" s_321)" -" s_321)))" +" s_322)" +" s_322)))" "(let-values(((flat-s_15)" "(to-syntax-list.1$1" " s_38)))" @@ -30445,7 +30828,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_225)))" -"((letrec-values(((for-loop_206)" +"((letrec-values(((for-loop_207)" "(lambda(result_81" " lst_226)" "(begin" @@ -30478,12 +30861,12 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_206" +"(for-loop_207" " result_82" " rest_120)" " result_82)))" " result_81)))))" -" for-loop_206)" +" for-loop_207)" " #t" " lst_225)))" "(length e39_0)" @@ -30501,15 +30884,15 @@ static const char *startup_source = " s_39)))" "(if(pair? s_92)" "(let-values(((_44_0)" -"(let-values(((s_322)" +"(let-values(((s_323)" "(car" " s_92)))" -" s_322))" +" s_323))" "((e45_0)" "(let-values(((s_94)" "(cdr" " s_92)))" -"(let-values(((s_323)" +"(let-values(((s_324)" "(if(1/syntax?" " s_94)" "(syntax-e$2" @@ -30517,7 +30900,7 @@ static const char *startup_source = " s_94)))" "(let-values(((flat-s_16)" "(to-syntax-list.1$1" -" s_323)))" +" s_324)))" "(if(not" " flat-s_16)" "(let-values()" @@ -30549,7 +30932,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_227)))" -"((letrec-values(((for-loop_207)" +"((letrec-values(((for-loop_208)" "(lambda(result_84" " lst_40)" "(begin" @@ -30581,12 +30964,12 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_207" +"(for-loop_208" " result_85" " rest_121)" " result_85)))" " result_84)))))" -" for-loop_207)" +" for-loop_208)" " #t" " lst_227)))" " 1" @@ -30595,31 +30978,31 @@ 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_38))" -"(let-values(((orig-s_27) s_324))" +"(let-values(((s_325) e_38))" +"(let-values(((orig-s_27) s_325))" "(let-values(((_46_1 e47_1)" -"(let-values(((s_325)" -"(if(1/syntax?" -" s_324)" -"(syntax-e$2" -" s_324)" -" s_324)))" -"(if(pair? s_325)" -"(let-values(((_48_0)" "(let-values(((s_326)" -"(car" +"(if(1/syntax?" +" s_325)" +"(syntax-e$2" +" s_325)" " s_325)))" -" s_326))" -"((e49_0)" +"(if(pair? s_326)" +"(let-values(((_48_0)" "(let-values(((s_327)" +"(car" +" s_326)))" +" s_327))" +"((e49_0)" +"(let-values(((s_328)" "(cdr" -" s_325)))" +" s_326)))" "(let-values(((s_155)" "(if(1/syntax?" -" s_327)" +" s_328)" "(syntax-e$2" -" s_327)" -" s_327)))" +" s_328)" +" s_328)))" "(let-values(((flat-s_17)" "(to-syntax-list.1$1" " s_155)))" @@ -30656,7 +31039,7 @@ static const char *startup_source = "(let-values() #f)" "(if(null?(cdr es_1))" "(let-values()" -"(loop_88" +"(loop_91" "(car es_1)" " locals_2))" "(let-values()" @@ -30677,47 +31060,47 @@ static const char *startup_source = "(let-values(((_50_1" " e051_1" " e52_1)" -"(let-values(((s_328)" +"(let-values(((s_329)" "(if(1/syntax?" " s_115)" "(syntax-e$2" " s_115)" " s_115)))" "(if(pair?" -" s_328)" +" s_329)" "(let-values(((_53_0)" "(let-values(((s_117)" "(car" -" s_328)))" +" s_329)))" " s_117))" "((e054_0" " e55_0)" -"(let-values(((s_329)" -"(cdr" -" s_328)))" "(let-values(((s_330)" -"(if(1/syntax?" -" s_329)" -"(syntax-e$2" -" s_329)" +"(cdr" " s_329)))" -"(if(pair?" +"(let-values(((s_331)" +"(if(1/syntax?" " s_330)" +"(syntax-e$2" +" s_330)" +" s_330)))" +"(if(pair?" +" s_331)" "(let-values(((e056_0)" "(let-values(((s_219)" "(car" -" s_330)))" +" s_331)))" " s_219))" "((e57_0)" -"(let-values(((s_331)" +"(let-values(((s_332)" "(cdr" -" s_330)))" +" s_331)))" "(let-values(((s_118)" "(if(1/syntax?" -" s_331)" +" s_332)" "(syntax-e$2" -" s_331)" -" s_331)))" +" s_332)" +" s_332)))" "(let-values(((flat-s_18)" "(to-syntax-list.1$1" " s_118)))" @@ -30768,7 +31151,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_228)))" -"((letrec-values(((for-loop_208)" +"((letrec-values(((for-loop_209)" "(lambda(result_87" " lst_229)" "(begin" @@ -30801,15 +31184,15 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_208" +"(for-loop_209" " result_88" " rest_122)" " result_88)))" " result_87)))))" -" for-loop_208)" +" for-loop_209)" " #t" " lst_228)))" -"(loop_88 e051_0 locals_2)" +"(loop_91 e051_0 locals_2)" " #f)))" "(let-values()" "(if(ok-make-struct-type?" @@ -30848,134 +31231,134 @@ static const char *startup_source = " id:arg60_0" " thn61_0" " els62_0)" -"(let-values(((s_332) e_38))" -"(if(let-values(((s_333)" +"(let-values(((s_333) e_38))" +"(if(let-values(((s_334)" "(if(1/syntax?" -" s_332)" +" s_333)" "(syntax-e$2" -" s_332)" -" s_332)))" -"(if(pair? s_333)" +" s_333)" +" s_333)))" +"(if(pair? s_334)" "(if(let-values(((s_229)" "(car" -" s_333)))" +" s_334)))" " #t)" -"(let-values(((s_334)" +"(let-values(((s_335)" "(cdr" -" s_333)))" +" s_334)))" "(let-values(((s_230)" "(if(1/syntax?" -" s_334)" +" s_335)" "(syntax-e$2" -" s_334)" -" s_334)))" +" s_335)" +" s_335)))" "(if(pair? s_230)" "(if(let-values(((s_231)" "(car" " s_230)))" -"(let-values(((s_335)" +"(let-values(((s_336)" "(if(1/syntax?" " s_231)" "(syntax-e$2" " s_231)" " s_231)))" "(if(pair?" -" s_335)" +" s_336)" "(if(let-values(((s_232)" "(car" -" s_335)))" -"(let-values(((or-part_229)" +" s_336)))" +"(let-values(((or-part_236)" "(if(1/syntax?" " s_232)" "(symbol?" "(syntax-e$2" " s_232))" " #f)))" -"(if or-part_229" -" or-part_229" +"(if or-part_236" +" or-part_236" "(symbol?" " s_232))))" "(let-values(((s_234)" "(cdr" -" s_335)))" -"(let-values(((s_336)" +" s_336)))" +"(let-values(((s_337)" "(if(1/syntax?" " s_234)" "(syntax-e$2" " s_234)" " s_234)))" "(if(pair?" -" s_336)" -"(if(let-values(((s_337)" -"(car" -" s_336)))" -"(let-values(((or-part_230)" -"(if(1/syntax?" " s_337)" -"(symbol?" -"(syntax-e$2" -" s_337))" -" #f)))" -"(if or-part_230" -" or-part_230" -"(symbol?" -" s_337))))" -"(let-values(((s_338)" -"(cdr" -" s_336)))" -"(let-values(((s_339)" +"(if(let-values(((s_338)" +"(car" +" s_337)))" +"(let-values(((or-part_237)" "(if(1/syntax?" " s_338)" +"(symbol?" "(syntax-e$2" -" s_338)" -" s_338)))" -"(null?" -" s_339)))" -" #f)" -" #f)))" -" #f)" +" s_338))" " #f)))" +"(if or-part_237" +" or-part_237" +"(symbol?" +" s_338))))" +"(let-values(((s_339)" +"(cdr" +" s_337)))" "(let-values(((s_340)" +"(if(1/syntax?" +" s_339)" +"(syntax-e$2" +" s_339)" +" s_339)))" +"(null?" +" s_340)))" +" #f)" +" #f)))" +" #f)" +" #f)))" +"(let-values(((s_341)" "(cdr" " s_230)))" -"(let-values(((s_341)" +"(let-values(((s_342)" "(if(1/syntax?" -" s_340)" -"(syntax-e$2" -" s_340)" -" s_340)))" -"(if(pair?" " s_341)" -"(if(let-values(((s_342)" -"(car" -" s_341)))" -" #t)" -"(let-values(((s_343)" -"(cdr" -" s_341)))" -"(let-values(((s_344)" -"(if(1/syntax?" -" s_343)" "(syntax-e$2" -" s_343)" -" s_343)))" +" s_341)" +" s_341)))" "(if(pair?" -" s_344)" -"(if(let-values(((s_345)" +" s_342)" +"(if(let-values(((s_343)" "(car" -" s_344)))" +" s_342)))" " #t)" -"(let-values(((s_346)" +"(let-values(((s_344)" "(cdr" -" s_344)))" -"(let-values(((s_347)" +" s_342)))" +"(let-values(((s_345)" "(if(1/syntax?" -" s_346)" +" s_344)" "(syntax-e$2" -" s_346)" -" s_346)))" -"(null?" +" s_344)" +" s_344)))" +"(if(pair?" +" s_345)" +"(if(let-values(((s_346)" +"(car" +" s_345)))" +" #t)" +"(let-values(((s_347)" +"(cdr" +" s_345)))" +"(let-values(((s_348)" +"(if(1/syntax?" +" s_347)" +"(syntax-e$2" +" s_347)" " s_347)))" +"(null?" +" s_348)))" " #f)" " #f)))" " #f)" @@ -30990,24 +31373,24 @@ static const char *startup_source = " id:arg60_1" " thn61_1" " els62_1)" -"(let-values(((s_348)" -"(if(1/syntax?" -" s_332)" -"(syntax-e$2" -" s_332)" -" s_332)))" -"(let-values(((_63_0)" "(let-values(((s_349)" +"(if(1/syntax?" +" s_333)" +"(syntax-e$2" +" s_333)" +" s_333)))" +"(let-values(((_63_0)" +"(let-values(((s_350)" "(car" -" s_348)))" -" s_349))" +" s_349)))" +" s_350))" "((id:rator64_0" " id:arg65_0" " thn66_0" " els67_0)" "(let-values(((s_237)" "(cdr" -" s_348)))" +" s_349)))" "(let-values(((s_238)" "(if(1/syntax?" " s_237)" @@ -31026,35 +31409,35 @@ static const char *startup_source = " s_241)" " s_241)))" "(let-values(((id:rator72_0)" -"(let-values(((s_350)" +"(let-values(((s_351)" "(car" " s_242)))" -" s_350))" +" s_351))" "((id:arg73_0)" -"(let-values(((s_351)" +"(let-values(((s_352)" "(cdr" " s_242)))" -"(let-values(((s_352)" +"(let-values(((s_353)" "(if(1/syntax?" -" s_351)" +" s_352)" "(syntax-e$2" -" s_351)" -" s_351)))" +" s_352)" +" s_352)))" "(let-values(((id:arg74_0)" "(let-values(((s_243)" "(car" -" s_352)))" +" s_353)))" " s_243))" "(()" -"(let-values(((s_353)" -"(cdr" -" s_352)))" "(let-values(((s_354)" -"(if(1/syntax?" -" s_353)" -"(syntax-e$2" -" s_353)" +"(cdr" " s_353)))" +"(let-values(((s_355)" +"(if(1/syntax?" +" s_354)" +"(syntax-e$2" +" s_354)" +" s_354)))" "(values)))))" "(values" " id:arg74_0))))))" @@ -31063,45 +31446,45 @@ static const char *startup_source = " id:arg73_0)))))" "((thn70_0" " els71_0)" -"(let-values(((s_355)" +"(let-values(((s_356)" "(cdr" " s_238)))" -"(let-values(((s_356)" -"(if(1/syntax?" -" s_355)" -"(syntax-e$2" -" s_355)" -" s_355)))" -"(let-values(((thn75_0)" "(let-values(((s_357)" -"(car" +"(if(1/syntax?" +" s_356)" +"(syntax-e$2" +" s_356)" " s_356)))" -" s_357))" -"((els76_0)" +"(let-values(((thn75_0)" "(let-values(((s_358)" -"(cdr" -" s_356)))" -"(let-values(((s_359)" -"(if(1/syntax?" -" s_358)" -"(syntax-e$2" -" s_358)" -" s_358)))" -"(let-values(((els77_0)" -"(let-values(((s_360)" "(car" -" s_359)))" -" s_360))" -"(()" -"(let-values(((s_361)" +" s_357)))" +" s_358))" +"((els76_0)" +"(let-values(((s_359)" "(cdr" -" s_359)))" -"(let-values(((s_362)" +" s_357)))" +"(let-values(((s_360)" "(if(1/syntax?" -" s_361)" +" s_359)" "(syntax-e$2" -" s_361)" -" s_361)))" +" s_359)" +" s_359)))" +"(let-values(((els77_0)" +"(let-values(((s_361)" +"(car" +" s_360)))" +" s_361))" +"(()" +"(let-values(((s_362)" +"(cdr" +" s_360)))" +"(let-values(((s_363)" +"(if(1/syntax?" +" s_362)" +"(syntax-e$2" +" s_362)" +" s_362)))" "(values)))))" "(values" " els77_0))))))" @@ -31130,13 +31513,13 @@ static const char *startup_source = "(if ok?_23" "(let-values()" "(let-values(((c2_2)" -"(let-values(((or-part_231)" +"(let-values(((or-part_238)" "(hash-ref" " locals_2" " id:rator59_0" " #f)))" -"(if or-part_231" -" or-part_231" +"(if or-part_238" +" or-part_238" "(lookup-defn" " defns_1" " id:rator59_0)))))" @@ -31153,7 +31536,7 @@ static const char *startup_source = "(known-satisfies7.1" "(known-predicate-key" " d_31)))))" -"(loop_88 els62_0 locals_2)" +"(loop_91 els62_0 locals_2)" " #f)" " #f))" " c2_2)" @@ -31164,74 +31547,74 @@ static const char *startup_source = " tst79_0" " thn80_0" " els81_0)" -"(let-values(((s_363) e_38))" -"(if(let-values(((s_364)" -"(if(1/syntax?" -" s_363)" -"(syntax-e$2" -" s_363)" -" s_363)))" -"(if(pair? s_364)" +"(let-values(((s_364) e_38))" "(if(let-values(((s_365)" -"(car" -" s_364)))" -" #t)" -"(let-values(((s_366)" -"(cdr" -" s_364)))" -"(let-values(((s_367)" "(if(1/syntax?" -" s_366)" +" s_364)" "(syntax-e$2" -" s_366)" -" s_366)))" -"(if(pair?" +" s_364)" +" s_364)))" +"(if(pair? s_365)" +"(if(let-values(((s_366)" +"(car" +" s_365)))" +" #t)" +"(let-values(((s_367)" +"(cdr" +" s_365)))" +"(let-values(((s_368)" +"(if(1/syntax?" " s_367)" +"(syntax-e$2" +" s_367)" +" s_367)))" +"(if(pair?" +" s_368)" "(if(let-values(((s_255)" "(car" -" s_367)))" -" #t)" -"(let-values(((s_368)" -"(cdr" -" s_367)))" -"(let-values(((s_369)" -"(if(1/syntax?" -" s_368)" -"(syntax-e$2" -" s_368)" " s_368)))" -"(if(pair?" +" #t)" +"(let-values(((s_369)" +"(cdr" +" s_368)))" +"(let-values(((s_370)" +"(if(1/syntax?" " s_369)" -"(if(let-values(((s_370)" -"(car" -" s_369)))" -" #t)" -"(let-values(((s_371)" -"(cdr" -" s_369)))" -"(let-values(((s_372)" -"(if(1/syntax?" -" s_371)" "(syntax-e$2" -" s_371)" -" s_371)))" +" s_369)" +" s_369)))" "(if(pair?" -" s_372)" -"(if(let-values(((s_373)" +" s_370)" +"(if(let-values(((s_371)" "(car" -" s_372)))" +" s_370)))" " #t)" -"(let-values(((s_374)" +"(let-values(((s_372)" "(cdr" -" s_372)))" -"(let-values(((s_375)" +" s_370)))" +"(let-values(((s_373)" "(if(1/syntax?" -" s_374)" +" s_372)" "(syntax-e$2" -" s_374)" -" s_374)))" -"(null?" +" s_372)" +" s_372)))" +"(if(pair?" +" s_373)" +"(if(let-values(((s_374)" +"(car" +" s_373)))" +" #t)" +"(let-values(((s_375)" +"(cdr" +" s_373)))" +"(let-values(((s_376)" +"(if(1/syntax?" +" s_375)" +"(syntax-e$2" +" s_375)" " s_375)))" +"(null?" +" s_376)))" " #f)" " #f)))" " #f)" @@ -31245,75 +31628,75 @@ static const char *startup_source = " tst79_1" " thn80_1" " els81_1)" -"(let-values(((s_376)" -"(if(1/syntax?" -" s_363)" -"(syntax-e$2" -" s_363)" -" s_363)))" -"(let-values(((_82_0)" "(let-values(((s_377)" +"(if(1/syntax?" +" s_364)" +"(syntax-e$2" +" s_364)" +" s_364)))" +"(let-values(((_82_0)" +"(let-values(((s_378)" "(car" -" s_376)))" -" s_377))" +" s_377)))" +" s_378))" "((tst83_0" " thn84_0" " els85_0)" -"(let-values(((s_378)" -"(cdr" -" s_376)))" "(let-values(((s_379)" -"(if(1/syntax?" -" s_378)" -"(syntax-e$2" -" s_378)" -" s_378)))" -"(let-values(((tst86_0)" +"(cdr" +" s_377)))" "(let-values(((s_380)" -"(car" +"(if(1/syntax?" +" s_379)" +"(syntax-e$2" +" s_379)" " s_379)))" -" s_380))" +"(let-values(((tst86_0)" +"(let-values(((s_381)" +"(car" +" s_380)))" +" s_381))" "((thn87_0" " els88_0)" -"(let-values(((s_381)" +"(let-values(((s_382)" "(cdr" -" s_379)))" +" s_380)))" "(let-values(((s_256)" "(if(1/syntax?" -" s_381)" +" s_382)" "(syntax-e$2" -" s_381)" -" s_381)))" +" s_382)" +" s_382)))" "(let-values(((thn89_0)" -"(let-values(((s_382)" -"(car" -" s_256)))" -" s_382))" -"((els90_0)" "(let-values(((s_383)" +"(car" +" s_256)))" +" s_383))" +"((els90_0)" +"(let-values(((s_384)" "(cdr" " s_256)))" -"(let-values(((s_384)" -"(if(1/syntax?" -" s_383)" -"(syntax-e$2" -" s_383)" -" s_383)))" -"(let-values(((els91_0)" "(let-values(((s_385)" -"(car" -" s_384)))" -" s_385))" -"(()" -"(let-values(((s_386)" -"(cdr" -" s_384)))" -"(let-values(((s_387)" "(if(1/syntax?" -" s_386)" +" s_384)" "(syntax-e$2" -" s_386)" -" s_386)))" +" s_384)" +" s_384)))" +"(let-values(((els91_0)" +"(let-values(((s_386)" +"(car" +" s_385)))" +" s_386))" +"(()" +"(let-values(((s_387)" +"(cdr" +" s_385)))" +"(let-values(((s_388)" +"(if(1/syntax?" +" s_387)" +"(syntax-e$2" +" s_387)" +" s_387)))" "(values)))))" "(values" " els91_0))))))" @@ -31349,25 +31732,25 @@ static const char *startup_source = " thn80_0" " expected-results_0" " locals_2))" -"(loop_88 els81_0 locals_2)" +"(loop_91 els81_0 locals_2)" " #f)" " #f)" " #f)))))))))))))))))" -" loop_88)" +" loop_91)" " e_36" " locals_0)))" "(not" "(if actual-results_0" -"(let-values(((or-part_232)(not expected-results_0)))" -"(if or-part_232 or-part_232(= actual-results_0 expected-results_0)))" +"(let-values(((or-part_239)(not expected-results_0)))" +"(if or-part_239 or-part_239(= actual-results_0 expected-results_0)))" " #f)))))))))))))" "(define-values" "(satisfies?)" "(lambda(e_60 key_63 defns_2 locals_3)" "(begin" "(let-values(((d_32)" -"(let-values(((or-part_233)(hash-ref locals_3 e_60 #f)))" -"(if or-part_233 or-part_233(lookup-defn defns_2 e_60)))))" +"(let-values(((or-part_240)(hash-ref locals_3 e_60 #f)))" +"(if or-part_240 or-part_240(lookup-defn defns_2 e_60)))))" "(if d_32(if(known-satisfies? d_32)(eq? key_63(known-satisfies-predicate-key d_32)) #f) #f)))))" "(define-values" "(add-binding-info)" @@ -31377,7 +31760,7 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_230)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_231)))" -"((letrec-values(((for-loop_209)" +"((letrec-values(((for-loop_210)" "(lambda(locals_5 lst_232 lst_233)" "(begin" " 'for-loop" @@ -31390,11 +31773,11 @@ static const char *startup_source = "(let-values(((locals_7) locals_5))" "(let-values(((locals_8)" "(let-values()" -"((letrec-values(((loop_89)" +"((letrec-values(((loop_92)" "(lambda(rhs_11)" "(begin" " 'loop" -"(let-values(((tmp_27)" +"(let-values(((tmp_28)" "(if(pair?" "(correlated-e" " rhs_11))" @@ -31404,7 +31787,7 @@ static const char *startup_source = " rhs_11)))" " #f)))" "(if(equal?" -" tmp_27" +" tmp_28" " 'make-struct-type)" "(let-values()" "(let-values(((field-count_0)" @@ -31432,7 +31815,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_235)))" -"((letrec-values(((for-loop_210)" +"((letrec-values(((for-loop_211)" "(lambda(locals_9" " lst_236" " lst_237)" @@ -31471,29 +31854,29 @@ static const char *startup_source = " locals_12)))))" "(if(not" " #f)" -"(for-loop_210" +"(for-loop_211" " locals_10" " rest_125" " rest_126)" " locals_10)))" " locals_9)))))" -" for-loop_210)" +" for-loop_211)" " locals_7" " lst_234" " lst_235)))))" "(if(equal?" -" tmp_27" +" tmp_28" " 'let-values)" "(let-values()" "(if(null?" "(correlated-e" "(correlated-cadr" " rhs_11)))" -"(loop_89" +"(loop_92" "(caddr" "(correlated->list" " rhs_11)))" -"(loop_89 #f)))" +"(loop_92 #f)))" "(let-values()" "(let-values(((lst_238)" "(correlated->list" @@ -31505,7 +31888,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_238)))" -"((letrec-values(((for-loop_211)" +"((letrec-values(((for-loop_212)" "(lambda(locals_13" " lst_239)" "(begin" @@ -31532,20 +31915,20 @@ static const char *startup_source = " locals_16)))))" "(if(not" " #f)" -"(for-loop_211" +"(for-loop_212" " locals_14" " rest_127)" " locals_14)))" " locals_13)))))" -" for-loop_211)" +" for-loop_212)" " locals_7" " lst_238)))))))))))" -" loop_89)" +" loop_92)" " rhs_10))))" "(values locals_8)))))" -"(if(not #f)(for-loop_209 locals_6 rest_123 rest_124) locals_6)))" +"(if(not #f)(for-loop_210 locals_6 rest_123 rest_124) locals_6)))" " locals_5)))))" -" for-loop_209)" +" for-loop_210)" " locals_4" " lst_230" " lst_231))))))" @@ -31558,16 +31941,16 @@ static const char *startup_source = "(let-values(((lst_240)(cdr l_58))" "((lst_241)" "(list" -"(lambda(v_161)(quoted? symbol? v_161))" -"(lambda(v_162)(is-lambda? v_162 2 defns_3))" -"(lambda(v_163)(ok-make-struct-type-property-super? v_163 defns_3))" -"(lambda(v_164)" +"(lambda(v_162)(quoted? symbol? v_162))" +"(lambda(v_163)(is-lambda? v_163 2 defns_3))" +"(lambda(v_164)(ok-make-struct-type-property-super? v_164 defns_3))" +"(lambda(v_165)" "(let-values(((temp93_1) 1)((defns94_0) defns_3))" -"(any-side-effects?9.1 defns94_0 #t #f #f #f #f v_164 temp93_1))))))" +"(any-side-effects?9.1 defns94_0 #t #f #f #f #f v_165 temp93_1))))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_240)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_241)))" -"((letrec-values(((for-loop_138)" +"((letrec-values(((for-loop_139)" "(lambda(result_90 lst_242 lst_243)" "(begin" " 'for-loop" @@ -31584,32 +31967,32 @@ static const char *startup_source = "(if(if(not((lambda x_63(not result_91)) arg_0))" "(if(not((lambda x_64(not result_91)) pred_1))(not #f) #f)" " #f)" -"(for-loop_138 result_91 rest_128 rest_129)" +"(for-loop_139 result_91 rest_128 rest_129)" " result_91)))" " result_90)))))" -" for-loop_138)" +" for-loop_139)" " #t" " lst_240" " lst_241)))" " #f)))))" "(define-values" "(ok-make-struct-type-property-super?)" -"(lambda(v_152 defns_4)" +"(lambda(v_154 defns_4)" "(begin" -"(let-values(((or-part_234)(quoted? null? v_152)))" -"(if or-part_234" -" or-part_234" -"(let-values(((or-part_19)(eq? 'null(correlated-e v_152))))" -"(if or-part_19" -" or-part_19" -"(if(pair?(correlated-e v_152))" -"(if(eq?(correlated-e(car(correlated-e v_152))) 'list)" -"(if(let-values(((lst_244)(cdr(correlated->list v_152))))" +"(let-values(((or-part_241)(quoted? null? v_154)))" +"(if or-part_241" +" or-part_241" +"(let-values(((or-part_25)(eq? 'null(correlated-e v_154))))" +"(if or-part_25" +" or-part_25" +"(if(pair?(correlated-e v_154))" +"(if(eq?(correlated-e(car(correlated-e v_154))) 'list)" +"(if(let-values(((lst_244)(cdr(correlated->list v_154))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_244)))" -"((letrec-values(((for-loop_212)" +"((letrec-values(((for-loop_213)" "(lambda(result_93 lst_245)" "(begin" " 'for-loop" @@ -31632,7 +32015,7 @@ static const char *startup_source = " 'cons" "(correlated-e" "(car prop+val_1)))" -"(if(let-values(((or-part_235)" +"(if(let-values(((or-part_242)" "(memq" "(correlated-e" "(list-ref" @@ -31641,8 +32024,8 @@ static const char *startup_source = " '(prop:procedure" " prop:equal+hash" " prop:custom-write))))" -"(if or-part_235" -" or-part_235" +"(if or-part_242" +" or-part_242" "(known-property?" "(lookup-defn" " defns_4" @@ -31675,30 +32058,30 @@ static const char *startup_source = "(if(if(not((lambda x_65(not result_94)) prop+val_0))" "(not #f)" " #f)" -"(for-loop_212 result_94 rest_130)" +"(for-loop_213 result_94 rest_130)" " result_94)))" " result_93)))))" -" for-loop_212)" +" for-loop_213)" " #t" " lst_244)))" "(=" -"(sub1(correlated-length v_152))" +"(sub1(correlated-length v_154))" "(set-count" -"(let-values(((lst_246)(cdr(correlated->list v_152))))" +"(let-values(((lst_246)(cdr(correlated->list v_154))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_246)))" "((letrec-values(((for-loop_64)" -"(lambda(table_167 lst_247)" +"(lambda(table_170 lst_247)" "(begin" " 'for-loop" "(if(pair? lst_247)" "(let-values(((prop+val_2)(unsafe-car lst_247))" "((rest_131)(unsafe-cdr lst_247)))" -"(let-values(((table_168)" -"(let-values(((table_169) table_167))" -"(let-values(((table_170)" +"(let-values(((table_171)" +"(let-values(((table_172) table_170))" +"(let-values(((table_173)" "(let-values()" "(let-values(((key_64 val_56)" "(let-values()" @@ -31711,12 +32094,12 @@ static const char *startup_source = " 1)))" " #t))))" "(hash-set" -" table_169" +" table_172" " key_64" " val_56)))))" -"(values table_170)))))" -"(if(not #f)(for-loop_64 table_168 rest_131) table_168)))" -" table_167)))))" +"(values table_173)))))" +"(if(not #f)(for-loop_64 table_171 rest_131) table_171)))" +" table_170)))))" " for-loop_64)" " '#hash()" " lst_246)))))" @@ -31735,19 +32118,19 @@ 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_236)(if(>(length l_59) 9)(list-ref l_59 9) #f)))" -"(if or-part_236 or-part_236 'null))))" +"(let-values(((or-part_243)(if(>(length l_59) 9)(list-ref l_59 9) #f)))" +"(if or-part_243 or-part_243 'null))))" "(let-values(((super-expr_0)(if(>(length l_59) 2)(list-ref l_59 2) #f)))" "(if(>=(length l_59) 5)" "(if(<=(length l_59) 12)" "(let-values(((lst_248)(cdr l_59))" "((lst_249)" "(list" -"(lambda(v_153)(quoted? symbol? v_153))" -"(lambda(v_165)(super-ok? v_165 defns_5))" -"(lambda(v_166)(field-count-expr-to-field-count v_166))" +"(lambda(v_155)(quoted? symbol? v_155))" +"(lambda(v_166)(super-ok? v_166 defns_5))" "(lambda(v_167)(field-count-expr-to-field-count v_167))" -"(lambda(v_168)" +"(lambda(v_168)(field-count-expr-to-field-count v_168))" +"(lambda(v_169)" "(not" "(let-values(((temp99_0) 1)" "((ready-variable?100_0) ready-variable?_1)" @@ -31759,13 +32142,13 @@ static const char *startup_source = " #f" " ready-variable?100_0" " #t" -" v_168" +" v_169" " temp99_0))))" -"(lambda(v_169)" -"(known-good-struct-properties? v_169 immutables-expr_0 super-expr_0 defns_5))" -"(lambda(v_170)(inspector-or-false? v_170))" -"(lambda(v_171)(procedure-spec? v_171 num-fields_0))" -"(lambda(v_172)(immutables-ok? v_172 init-field-count-expr_0)))))" +"(lambda(v_170)" +"(known-good-struct-properties? v_170 immutables-expr_0 super-expr_0 defns_5))" +"(lambda(v_171)(inspector-or-false? v_171))" +"(lambda(v_172)(procedure-spec? v_172 num-fields_0))" +"(lambda(v_173)(immutables-ok? v_173 init-field-count-expr_0)))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -31773,7 +32156,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_249)))" -"((letrec-values(((for-loop_213)" +"((letrec-values(((for-loop_214)" "(lambda(result_96 lst_129 lst_250)" "(begin" " 'for-loop" @@ -31793,10 +32176,10 @@ static const char *startup_source = "(not #f)" " #f)" " #f)" -"(for-loop_213 result_97 rest_132 rest_64)" +"(for-loop_214 result_97 rest_132 rest_64)" " result_97)))" " result_96)))))" -" for-loop_213)" +" for-loop_214)" " #t" " lst_248" " lst_249)))" @@ -31806,9 +32189,9 @@ static const char *startup_source = "(super-ok?)" "(lambda(e_63 defns_6)" "(begin" -"(let-values(((or-part_237)(quoted? false? e_63)))" -"(if or-part_237" -" or-part_237" +"(let-values(((or-part_244)(quoted? false? e_63)))" +"(if or-part_244" +" or-part_244" "(let-values(((o_0)(lookup-defn defns_6(correlated-e e_63))))" "(if o_0(if(known-struct-op? o_0)(eq? 'struct-type(known-struct-op-type o_0)) #f) #f)))))))" "(define-values" @@ -31819,54 +32202,54 @@ static const char *startup_source = "(+(field-count-expr-to-field-count(list-ref l_60 3))(field-count-expr-to-field-count(list-ref l_60 4)))))))" "(define-values" "(quoted?)" -"(lambda(val?_0 v_173)" +"(lambda(val?_0 v_174)" "(begin" -"(let-values(((or-part_238)" -"(if(pair?(correlated-e v_173))" -"(if(eq?(correlated-e(car(correlated-e v_173))) 'quote)" -"(val?_0(correlated-e(correlated-cadr v_173)))" +"(let-values(((or-part_245)" +"(if(pair?(correlated-e v_174))" +"(if(eq?(correlated-e(car(correlated-e v_174))) 'quote)" +"(val?_0(correlated-e(correlated-cadr v_174)))" " #f)" " #f)))" -"(if or-part_238 or-part_238(val?_0(correlated-e v_173)))))))" +"(if or-part_245 or-part_245(val?_0(correlated-e v_174)))))))" "(define-values" "(quoted-value)" -"(lambda(v_174)" -"(begin(if(pair?(correlated-e v_174))(correlated-e(correlated-cadr v_174))(correlated-e v_174)))))" -"(define-values(false?)(lambda(v_175)(begin(eq?(correlated-e v_175) #f))))" +"(lambda(v_175)" +"(begin(if(pair?(correlated-e v_175))(correlated-e(correlated-cadr v_175))(correlated-e v_175)))))" +"(define-values(false?)(lambda(v_176)(begin(eq?(correlated-e v_176) #f))))" "(define-values" "(field-count-expr-to-field-count)" -"(lambda(v_176)(begin(if(quoted? exact-nonnegative-integer? v_176)(quoted-value v_176) #f))))" +"(lambda(v_177)(begin(if(quoted? exact-nonnegative-integer? v_177)(quoted-value v_177) #f))))" "(define-values" "(inspector-or-false?)" -"(lambda(v_177)" +"(lambda(v_178)" "(begin" -"(let-values(((or-part_239)(quoted? false? v_177)))" -"(if or-part_239" -" or-part_239" -"(let-values(((or-part_240)(if(quoted? symbol? v_177)(eq? 'prefab(quoted-value v_177)) #f)))" -"(if or-part_240" -" or-part_240" -"(if(= 1(correlated-length v_177))" -"(eq? 'current-inspector(correlated-e(car(correlated-e v_177))))" +"(let-values(((or-part_246)(quoted? false? v_178)))" +"(if or-part_246" +" or-part_246" +"(let-values(((or-part_247)(if(quoted? symbol? v_178)(eq? 'prefab(quoted-value v_178)) #f)))" +"(if or-part_247" +" or-part_247" +"(if(= 1(correlated-length v_178))" +"(eq? 'current-inspector(correlated-e(car(correlated-e v_178))))" " #f))))))))" "(define-values" "(known-good-struct-properties?)" -"(lambda(v_178 immutables-expr_1 super-expr_1 defns_7)" +"(lambda(v_179 immutables-expr_1 super-expr_1 defns_7)" "(begin" -"(let-values(((or-part_241)(quoted? null? v_178)))" -"(if or-part_241" -" or-part_241" -"(let-values(((or-part_242)(eq? 'null(correlated-e v_178))))" -"(if or-part_242" -" or-part_242" -"(if(pair?(correlated-e v_178))" -"(if(eq?(correlated-e(car(correlated-e v_178))) 'list)" -"(if(let-values(((lst_251)(cdr(correlated->list v_178))))" +"(let-values(((or-part_248)(quoted? null? v_179)))" +"(if or-part_248" +" or-part_248" +"(let-values(((or-part_249)(eq? 'null(correlated-e v_179))))" +"(if or-part_249" +" or-part_249" +"(if(pair?(correlated-e v_179))" +"(if(eq?(correlated-e(car(correlated-e v_179))) 'list)" +"(if(let-values(((lst_251)(cdr(correlated->list v_179))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_251)))" -"((letrec-values(((for-loop_214)" +"((letrec-values(((for-loop_215)" "(lambda(result_99 lst_252)" "(begin" " 'for-loop" @@ -31901,30 +32284,30 @@ static const char *startup_source = "(if(if(not((lambda x_68(not result_100)) prop+val_3))" "(not #f)" " #f)" -"(for-loop_214 result_100 rest_133)" +"(for-loop_215 result_100 rest_133)" " result_100)))" " result_99)))))" -" for-loop_214)" +" for-loop_215)" " #t" " lst_251)))" "(=" -"(sub1(correlated-length v_178))" +"(sub1(correlated-length v_179))" "(set-count" -"(let-values(((lst_253)(cdr(correlated->list v_178))))" +"(let-values(((lst_253)(cdr(correlated->list v_179))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_253)))" -"((letrec-values(((for-loop_215)" -"(lambda(table_171 lst_254)" +"((letrec-values(((for-loop_216)" +"(lambda(table_174 lst_254)" "(begin" " 'for-loop" "(if(pair? lst_254)" "(let-values(((prop+val_5)(unsafe-car lst_254))" "((rest_134)(unsafe-cdr lst_254)))" -"(let-values(((table_172)" -"(let-values(((table_173) table_171))" -"(let-values(((table_174)" +"(let-values(((table_175)" +"(let-values(((table_176) table_174))" +"(let-values(((table_177)" "(let-values()" "(let-values(((key_65 val_57)" "(let-values()" @@ -31937,13 +32320,13 @@ static const char *startup_source = " 1)))" " #t))))" "(hash-set" -" table_173" +" table_176" " key_65" " val_57)))))" -"(values table_174)))))" -"(if(not #f)(for-loop_215 table_172 rest_134) table_172)))" -" table_171)))))" -" for-loop_215)" +"(values table_177)))))" +"(if(not #f)(for-loop_216 table_175 rest_134) table_175)))" +" table_174)))))" +" for-loop_216)" " '#hash()" " lst_253)))))" " #f)" @@ -31954,18 +32337,18 @@ static const char *startup_source = "(lambda(prop-expr_0 val-expr_0 immutables-expr_2 super-expr_2 defns_8)" "(begin" "(let-values(((prop-name_0)(correlated-e prop-expr_0)))" -"(let-values(((tmp_28) prop-name_0))" -"(if(equal? tmp_28 'prop:evt)" +"(let-values(((tmp_29) prop-name_0))" +"(if(equal? tmp_29 'prop:evt)" "(let-values()" -"(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(((or-part_250)(is-lambda? val-expr_0 1 defns_8)))" +"(if or-part_250 or-part_250(immutable-field? val-expr_0 immutables-expr_2))))" +"(if(equal? tmp_29 'prop:procedure)" "(let-values()" -"(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(((or-part_251)(is-lambda? val-expr_0 1 defns_8)))" +"(if or-part_251 or-part_251(immutable-field? val-expr_0 immutables-expr_2))))" +"(if(equal? tmp_29 'prop:custom-write)" "(let-values()(is-lambda? val-expr_0 3 defns_8))" -"(if(equal? tmp_28 'prop:equal+hash)" +"(if(equal? tmp_29 'prop:equal+hash)" "(let-values()" "(let-values(((l_61)(correlated->list val-expr_0)))" "(if(eq? 'list(car l_61))" @@ -31973,16 +32356,16 @@ static const char *startup_source = "(if(is-lambda?(list-ref l_61 2) 2 defns_8)(is-lambda?(list-ref l_61 3) 2 defns_8) #f)" " #f)" " #f)))" -"(if(if(equal? tmp_28 'prop:method-arity-error) #t(equal? tmp_28 'prop:incomplete-arity))" +"(if(if(equal? tmp_29 'prop:method-arity-error) #t(equal? tmp_29 'prop:incomplete-arity))" "(let-values()" "(not" "(let-values(((temp103_0) 1)((defns104_0) defns_8))" "(any-side-effects?9.1 defns104_0 #t #f #f #f #f val-expr_0 temp103_0))))" -"(if(equal? tmp_28 'prop:impersonator-of)" +"(if(equal? tmp_29 'prop:impersonator-of)" "(let-values()(is-lambda? val-expr_0 1 defns_8))" -"(if(equal? tmp_28 'prop:arity-string)" +"(if(equal? tmp_29 'prop:arity-string)" "(let-values()(is-lambda? val-expr_0 1 defns_8))" -"(if(equal? tmp_28 'prop:checked-procedure)" +"(if(equal? tmp_29 'prop:checked-procedure)" "(let-values()(if(quoted? false? super-expr_2)(immutable-field? 1 immutables-expr_2) #f))" "(let-values()" "(let-values(((o_1)(lookup-defn defns_8 prop-name_0)))" @@ -31998,72 +32381,72 @@ 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_245)" +"(let-values(((or-part_252)" "(if lookup_0" "(if(known-function? lookup_0)" -"(let-values(((or-part_198)(not arity_0)))" -"(if or-part_198 or-part_198(arity-includes?(known-function-arity lookup_0) arity_0)))" +"(let-values(((or-part_206)(not arity_0)))" +"(if or-part_206 or-part_206(arity-includes?(known-function-arity lookup_0) arity_0)))" " #f)" " #f)))" -"(if or-part_245" -" or-part_245" -"(let-values(((or-part_246)" +"(if or-part_252" +" or-part_252" +"(let-values(((or-part_253)" "(if(pair?(correlated-e expr_9))" "(if(eq? 'case-lambda(car(correlated-e expr_9)))(not arity_0) #f)" " #f)))" -"(if or-part_246" -" or-part_246" +"(if or-part_253" +" or-part_253" "(if(pair?(correlated-e expr_9))" "(if(eq? 'lambda(car(correlated-e expr_9)))" -"(let-values(((or-part_199)(not arity_0)))" -"(if or-part_199" -" or-part_199" -"((letrec-values(((loop_90)" -"(lambda(args_4 arity_1)" +"(let-values(((or-part_207)(not arity_0)))" +"(if or-part_207" +" or-part_207" +"((letrec-values(((loop_93)" +"(lambda(args_7 arity_1)" "(begin" " 'loop" -"(if(correlated? args_4)" -"(let-values()(loop_90(correlated-e args_4) arity_1))" -"(if(null? args_4)" +"(if(correlated? args_7)" +"(let-values()(loop_93(correlated-e args_7) arity_1))" +"(if(null? args_7)" "(let-values()(zero? arity_1))" -"(if(pair? args_4)" -"(let-values()(loop_90(cdr args_4)(sub1 arity_1)))" +"(if(pair? args_7)" +"(let-values()(loop_93(cdr args_7)(sub1 arity_1)))" "(let-values()(not(negative? arity_1))))))))))" -" loop_90)" +" loop_93)" "(cadr(correlated->list expr_9))" " arity_0)))" " #f)" " #f)))))))))" "(define-values" "(arity-includes?)" -"(lambda(a_40 n_25)" +"(lambda(a_46 n_27)" "(begin" -"(let-values(((or-part_247)(equal? a_40 n_25)))" -"(if or-part_247" -" or-part_247" -"(if(list? a_40)" -"(let-values(((lst_255) a_40))" +"(let-values(((or-part_254)(equal? a_46 n_27)))" +"(if or-part_254" +" or-part_254" +"(if(list? a_46)" +"(let-values(((lst_255) a_46))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_255)))" -"((letrec-values(((for-loop_216)" +"((letrec-values(((for-loop_217)" "(lambda(result_102 lst_256)" "(begin" " 'for-loop" "(if(pair? lst_256)" -"(let-values(((a_41)(unsafe-car lst_256))((rest_135)(unsafe-cdr lst_256)))" +"(let-values(((a_47)(unsafe-car lst_256))((rest_135)(unsafe-cdr lst_256)))" "(let-values(((result_103)" "(let-values()" "(let-values(((result_104)" "(let-values()" -"(let-values()(equal? a_41 n_25)))))" +"(let-values()(equal? a_47 n_27)))))" "(values result_104)))))" -"(if(if(not((lambda x_69 result_103) a_41))(not #f) #f)" -"(for-loop_216 result_103 rest_135)" +"(if(if(not((lambda x_69 result_103) a_47))(not #f) #f)" +"(for-loop_217 result_103 rest_135)" " result_103)))" " result_102)))))" -" for-loop_216)" +" for-loop_217)" " #f" " lst_255)))" " #f))))))" @@ -32078,31 +32461,31 @@ static const char *startup_source = "(immutables-expr-to-immutables)" "(lambda(e_65 fail-v_0)" "(begin" -"(let-values(((tmp_29)(if(pair?(correlated-e e_65))(correlated-e(car(correlated-e e_65))) #f)))" -"(if(equal? tmp_29 'quote)" +"(let-values(((tmp_30)(if(pair?(correlated-e e_65))(correlated-e(car(correlated-e e_65))) #f)))" +"(if(equal? tmp_30 'quote)" "(let-values()" -"(let-values(((v_179)(correlated-cadr e_65)))" -"(let-values(((or-part_248)" -"(if(correlated-length v_179)" -"(let-values(((l_62)(map2 correlated-e(correlated->list v_179))))" +"(let-values(((v_180)(correlated-cadr e_65)))" +"(let-values(((or-part_255)" +"(if(correlated-length v_180)" +"(let-values(((l_62)(map2 correlated-e(correlated->list v_180))))" "(if(andmap2 exact-nonnegative-integer? l_62)" "(if(=(length l_62)(set-count(list->set l_62))) l_62 #f)" " #f))" " #f)))" -"(if or-part_248 or-part_248 fail-v_0))))" +"(if or-part_255 or-part_255 fail-v_0))))" "(let-values() fail-v_0))))))" "(define-values" "(procedure-spec?)" "(lambda(e_66 field-count_1)" "(begin" -"(let-values(((or-part_249)(quoted? false? e_66)))" -"(if or-part_249" -" or-part_249" -"(let-values(((or-part_250)" +"(let-values(((or-part_256)(quoted? false? e_66)))" +"(if or-part_256" +" or-part_256" +"(let-values(((or-part_257)" "(if(quoted? exact-nonnegative-integer? e_66)" "(if field-count_1(<(quoted-value e_66) field-count_1) #f)" " #f)))" -"(if or-part_250 or-part_250(is-lambda? e_66 #f '#hasheq()))))))))" +"(if or-part_257 or-part_257(is-lambda? e_66 #f '#hasheq()))))))))" "(define-values" "(immutables-ok?)" "(lambda(e_67 init-field-count-expr_1)" @@ -32115,22 +32498,22 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_257)))" -"((letrec-values(((for-loop_217)" +"((letrec-values(((for-loop_218)" "(lambda(result_105 lst_258)" "(begin" " 'for-loop" "(if(pair? lst_258)" -"(let-values(((n_26)(unsafe-car lst_258))((rest_136)(unsafe-cdr lst_258)))" +"(let-values(((n_28)(unsafe-car lst_258))((rest_136)(unsafe-cdr lst_258)))" "(let-values(((result_106)" "(let-values()" "(let-values(((result_107)" -"(let-values()(let-values()(< n_26 c_24)))))" +"(let-values()(let-values()(< n_28 c_24)))))" "(values result_107)))))" -"(if(if(not((lambda x_70(not result_106)) n_26))(not #f) #f)" -"(for-loop_217 result_106 rest_136)" +"(if(if(not((lambda x_70(not result_106)) n_28))(not #f) #f)" +"(for-loop_218 result_106 rest_136)" " result_106)))" " result_105)))))" -" for-loop_217)" +" for-loop_218)" " #t" " lst_257)))" " #f))))))" @@ -32139,25 +32522,25 @@ static const char *startup_source = "(lambda(e_68 locals_17 type_1 defns_10)" "(begin" "(let-values(((l_64)(correlated->list e_68)))" -"(let-values(((a_42)" -"(if(let-values(((or-part_251)(=(length l_64) 3)))" -"(if or-part_251 or-part_251(=(length l_64) 4)))" -"(let-values(((or-part_252)(hash-ref locals_17(correlated-e(list-ref l_64 1)) #f)))" -"(if or-part_252 or-part_252(lookup-defn defns_10(correlated-e(list-ref l_64 1)))))" +"(let-values(((a_48)" +"(if(let-values(((or-part_258)(=(length l_64) 3)))" +"(if or-part_258 or-part_258(=(length l_64) 4)))" +"(let-values(((or-part_259)(hash-ref locals_17(correlated-e(list-ref l_64 1)) #f)))" +"(if or-part_259 or-part_259(lookup-defn defns_10(correlated-e(list-ref l_64 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_64 2))(known-struct-op-field-count a_42))" -"(let-values(((or-part_253)(=(length l_64) 3)))" -"(if or-part_253 or-part_253(quoted? symbol?(list-ref l_64 3))))" +"(if(known-struct-op? a_48)" +"(if(eq?(known-struct-op-type a_48) type_1)" +"(if(<(field-count-expr-to-field-count(list-ref l_64 2))(known-struct-op-field-count a_48))" +"(let-values(((or-part_260)(=(length l_64) 3)))" +"(if or-part_260 or-part_260(quoted? symbol?(list-ref l_64 3))))" " #f)" " #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_41 cctx_13)" -"(begin(let-values(((temp14_4) #f)((temp15_4) #t))(compile-top9.1 temp14_4 #t temp15_4 #t #f #f p_41 cctx_13)))))" +"(lambda(p_45 cctx_13)" +"(begin(let-values(((temp14_4) #f)((temp15_4) #t))(compile-top9.1 temp14_4 #t temp15_4 #t #f #f p_45 cctx_13)))))" "(define-values" "(compile-top9.1)" "(lambda(serializable?1_0" @@ -32170,7 +32553,7 @@ static const char *startup_source = " cctx8_0)" "(begin" " 'compile-top9" -"(let-values(((p_34) p7_0))" +"(let-values(((p_38) p7_0))" "(let-values(((cctx_1) cctx8_0))" "(let-values(((serializable?_1)(if serializable?4_0 serializable?1_0 #t)))" "(let-values(((single-expression?_0)(if single-expression?5_0 single-expression?2_0 #f)))" @@ -32188,7 +32571,7 @@ static const char *startup_source = " phase-to-link-extra-inspectorss_0" " syntax-literals_3" " no-root-context-pos_0)" -"(let-values(((temp16_5)(list p_34))" +"(let-values(((temp16_4)(list p_38))" "((cctx17_0) cctx_1)" "((mpis18_0) mpis_17)" "((temp19_0)" @@ -32254,16 +32637,16 @@ static const char *startup_source = " #t" " to-source?21_0" " #t" -" temp16_5" +" temp16_4" " cctx17_0" " mpis18_0))))" "(let-values(((add-metadata_0)" -"(lambda(ht_111)" +"(lambda(ht_113)" "(begin" " 'add-metadata" -"(let-values(((ht_112)(hash-set ht_111 'original-phase phase_78)))" -"(let-values(((ht_113)(hash-set ht_112 'max-phase max-phase_1)))" -" ht_113))))))" +"(let-values(((ht_114)(hash-set ht_113 'original-phase phase_78)))" +"(let-values(((ht_115)(hash-set ht_114 'max-phase max-phase_1)))" +" ht_115))))))" "(let-values(((bundle_0)" "((if to-source?_2 values 1/hash->linklet-bundle)" "(add-metadata_0" @@ -32337,12 +32720,12 @@ static const char *startup_source = " purely-functional?_0)))))))))))))))))))" "(define-values" "(compile-top-level-require)" -"(lambda(p_42 cctx_15)" +"(lambda(p_46 cctx_15)" "(begin" "(let-values(((phase_80)(compile-context-phase cctx_15)))" -"(if(parsed-require? p_42)" +"(if(parsed-require? p_46)" "(let-values()" -"(let-values(((form-stx_0)(compile-quote-syntax(syntax-disarm$1(parsed-s p_42)) cctx_15)))" +"(let-values(((form-stx_0)(compile-quote-syntax(syntax-disarm$1(parsed-s p_46)) cctx_15)))" "(list top-level-require!-id form-stx_0 ns-id)))" "(let-values() #f))))))" "(define-values" @@ -32365,7 +32748,7 @@ static const char *startup_source = " 'select-defined-syms-and-bind!16" "(let-values(((ids_15) ids11_0))" "(let-values(((defined-syms_7) defined-syms12_0))" -"(let-values(((self_19) self13_0))" +"(let-values(((self_22) self13_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))" @@ -32375,18 +32758,18 @@ 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_254)(hash-ref defined-syms_7 phase_81 #f)))" -"(if or-part_254" -" or-part_254" -"(let-values(((ht_114)(make-hasheq)))" -"(begin(hash-set! defined-syms_7 phase_81 ht_114) ht_114))))))" +"(let-values(((or-part_261)(hash-ref defined-syms_7 phase_81 #f)))" +"(if or-part_261" +" or-part_261" +"(let-values(((ht_116)(make-hasheq)))" +"(begin(hash-set! defined-syms_7 phase_81 ht_116) ht_116))))))" "(reverse$1" "(let-values(((lst_76) ids_15))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_76)))" -"((letrec-values(((for-loop_92)" +"((letrec-values(((for-loop_93)" "(lambda(fold-var_12 lst_77)" "(begin" " 'for-loop" @@ -32422,7 +32805,7 @@ static const char *startup_source = " #f)" " #f)" " sym_9" -"((letrec-values(((loop_91)" +"((letrec-values(((loop_94)" "(lambda(pos_96)" "(begin" " 'loop" @@ -32440,11 +32823,11 @@ static const char *startup_source = " id_52" " phase_81" " top-level-bind-scope_3)" -"(loop_91" +"(loop_94" "(add1" " pos_96))" " s_177))))))" -" loop_91)" +" loop_94)" " 1))))" "(let-values((()" "(begin" @@ -32477,7 +32860,7 @@ static const char *startup_source = " #t" " #f" " #f" -" self_19" +" self_22" " phase_81" " defined-sym_0))))" "(begin" @@ -32518,10 +32901,10 @@ static const char *startup_source = " fold-var_154))))" "(values fold-var_164)))))" "(if(not #f)" -"(for-loop_92 fold-var_153 rest_86)" +"(for-loop_93 fold-var_153 rest_86)" " fold-var_153)))" " fold-var_12)))))" -" for-loop_92)" +" for-loop_93)" " null" " lst_76)))))))))))))))))))" "(define-values" @@ -32529,9 +32912,9 @@ static const char *startup_source = "(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_74)(bound-identifier=?$1 id_53 m-id_0 phase_82)))" -"(if or-part_74" -" or-part_74" +"(let-values(((or-part_80)(bound-identifier=?$1 id_53 m-id_0 phase_82)))" +"(if or-part_80" +" or-part_80" "(if top-level-bind-scope_4" "(bound-identifier=?$1 id_53(add-scope m-id_0 top-level-bind-scope_4) phase_82)" " #f)))))))" @@ -32541,9 +32924,9 @@ static const char *startup_source = "(begin" "(if prev-id_0" "(if(not(bound-identifier=?$1 prev-id_0 id_54 phase_83))" -"(let-values(((or-part_255)(not top-level-bind-scope_5)))" -"(if or-part_255" -" or-part_255" +"(let-values(((or-part_262)(not top-level-bind-scope_5)))" +"(if or-part_262" +" or-part_262" "(not" "(bound-identifier=?$1" "(remove-scope prev-id_0 top-level-bind-scope_5)" @@ -32556,7 +32939,7 @@ static const char *startup_source = "(lambda(tl-ids_0 ctx_10)" "(begin" "(let-values(((temp38_0)(root-expand-context-defined-syms ctx_10))" -"((temp39_1)(namespace-mpi(expand-context-namespace 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))" @@ -32578,30 +32961,32 @@ static const char *startup_source = " temp41_1)))))" "(define-values" "(add-defined-sym!)" -"(lambda(defined-syms_8 phase_84 sym_56 id_55)" +"(lambda(defined-syms_8 phase_84 sym_57 id_55)" "(begin" "(let-values(((defined-syms-at-phase_1)" -"(let-values(((or-part_256)(hash-ref defined-syms_8 phase_84 #f)))" -"(if or-part_256" -" or-part_256" +"(let-values(((or-part_263)(hash-ref defined-syms_8 phase_84 #f)))" +"(if or-part_263" +" or-part_263" "(let-values(((ht_31)(make-hasheq)))" "(begin(hash-set! defined-syms_8 phase_84 ht_31) ht_31))))))" -"(hash-set! defined-syms-at-phase_1 sym_56 id_55)))))" +"(hash-set! defined-syms-at-phase_1 sym_57 id_55)))))" "(define-values" "(make-create-root-expand-context-from-module)" "(lambda(requires_3 evaled-ld-h_0)" "(begin" -"(lambda(ns_58 phase-shift_13 original-self_0 self_6)" -"(let-values(((root-ctx_4)(let-values()(make-root-expand-context11.1 #f #f #f #f #f #f #f #f))))" +"(lambda(ns_58 phase-shift_13 original-self_0 self_9)" +"(let-values(((root-ctx_4)" +"(let-values(((temp1_3)(namespace-mpi ns_58)))" +"(make-root-expand-context13.1 #f #f #f #f #f #f #f #f temp1_3))))" "(let-values(((s_3)(add-scopes empty-syntax(root-expand-context-module-scopes root-ctx_4))))" "(let-values((()" "(begin" -"(let-values(((lst_80) requires_3))" +"(let-values(((lst_15) requires_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_80)))" -"((letrec-values(((for-loop_218)" +"(let-values()(check-list lst_15)))" +"((letrec-values(((for-loop_9)" "(lambda(lst_259)" "(begin" " 'for-loop" @@ -32614,11 +32999,11 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((phase_15)" +"(let-values(((phase_85)" "(car" " phase+reqs_0)))" "(begin" -"(let-values(((lst_260)" +"(let-values(((lst_73)" "(cdr" " phase+reqs_0)))" "(begin" @@ -32627,37 +33012,37 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_260)))" -"((letrec-values(((for-loop_202)" -"(lambda(lst_261)" +" lst_73)))" +"((letrec-values(((for-loop_92)" +"(lambda(lst_94)" "(begin" " 'for-loop" "(if(pair?" -" lst_261)" -"(let-values(((req_4)" +" lst_94)" +"(let-values(((req_8)" "(unsafe-car" -" lst_261))" -"((rest_138)" +" lst_94))" +"((rest_45)" "(unsafe-cdr" -" lst_261)))" +" lst_94)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((mpi_13)" +"(let-values(((mpi_43)" "(module-path-index-shift" -" req_4" +" req_8" " original-self_0" -" self_6)))" -"(let-values(((temp6_0)" +" self_9)))" +"(let-values(((temp7_1)" "(phase+" -" phase_15" +" phase_85" " phase-shift_13))" -"((phase-shift7_0)" +"((phase-shift8_0)" " phase-shift_13)" -"((temp8_2)" +"((temp9_2)" " 'module))" "(perform-require!78.1" " #f" @@ -32674,55 +33059,55 @@ static const char *startup_source = " #f" " #f" " #f" -" temp6_0" +" temp7_1" " #f" " #f" -" phase-shift7_0" +" phase-shift8_0" " #f" " #f" " #f" " #f" " #f" " #f" -" temp8_2" -" mpi_13" +" temp9_2" +" mpi_43" " s_3" -" self_6" +" self_9" " s_3" " ns_58))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_202" -" rest_138)" +"(for-loop_92" +" rest_45)" "(values))))" "(values))))))" -" for-loop_202)" -" lst_260)))" +" for-loop_92)" +" lst_73)))" "(void))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_218 rest_137)(values))))" +"(if(not #f)(for-loop_9 rest_137)(values))))" "(values))))))" -" for-loop_218)" -" lst_80)))" +" for-loop_9)" +" lst_15)))" "(values))))" "(let-values()" "(let-values(((defined-syms_9)(root-expand-context-defined-syms root-ctx_4)))" "(begin" -"(let-values(((ht_115) evaled-ld-h_0))" +"(let-values(((ht_117) evaled-ld-h_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_115)))" +"(let-values()(check-in-hash ht_117)))" "((letrec-values(((for-loop_219)" -"(lambda(i_85)" +"(lambda(i_146)" "(begin" " 'for-loop" -"(if i_85" -"(let-values(((phase_85 linklet_3)" -"(hash-iterate-key+value ht_115 i_85)))" +"(if i_146" +"(let-values(((phase_86 linklet_3)" +"(hash-iterate-key+value ht_117 i_146)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -32730,7 +33115,7 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_262)" +"(let-values(((lst_38)" "(1/linklet-export-variables" " linklet_3)))" "(begin" @@ -32738,39 +33123,39 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_262)))" -"((letrec-values(((for-loop_77)" -"(lambda(lst_83)" +"(check-list lst_38)))" +"((letrec-values(((for-loop_51)" +"(lambda(lst_217)" "(begin" " 'for-loop" "(if(pair?" -" lst_83)" -"(let-values(((sym_57)" +" lst_217)" +"(let-values(((sym_58)" "(unsafe-car" -" lst_83))" -"((rest_139)" +" lst_217))" +"((rest_138)" "(unsafe-cdr" -" lst_83)))" +" lst_217)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((id_5)" +"(let-values(((id_56)" "(datum->syntax$1" " s_3" -" sym_57)))" +" sym_58)))" "(begin" -"(let-values(((id9_0)" -" id_5)" -"((temp10_0)" -"(let-values(((self12_0)" -" self_6)" -"((phase13_0)" -" phase_85)" -"((sym14_0)" -" sym_57))" +"(let-values(((id10_0)" +" id_56)" +"((temp11_0)" +"(let-values(((self13_1)" +" self_9)" +"((phase14_1)" +" phase_86)" +"((sym15_0)" +" sym_58))" "(make-module-binding22.1" " #f" " #f" @@ -32790,46 +33175,87 @@ static const char *startup_source = " #f" " #f" " #f" -" self12_0" -" phase13_0" -" sym14_0)))" -"((phase11_0)" -" phase_85))" +" self13_1" +" phase14_1" +" sym15_0)))" +"((phase12_0)" +" phase_86))" "(add-binding!17.1" " #f" " #f" " #f" " #f" -" id9_0" -" temp10_0" -" phase11_0))" +" id10_0" +" temp11_0" +" phase12_0))" "(add-defined-sym!" " defined-syms_9" -" phase_85" -" sym_57" -" id_5))))" +" phase_86" +" sym_58" +" id_56))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_77" -" rest_139)" +"(for-loop_51" +" rest_138)" "(values))))" "(values))))))" -" for-loop_77)" -" lst_262)))" +" for-loop_51)" +" lst_38)))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_219(hash-iterate-next ht_115 i_85))" +"(for-loop_219(hash-iterate-next ht_117 i_146))" "(values))))" "(values))))))" " for-loop_219)" -"(hash-iterate-first ht_115))))" +"(hash-iterate-first ht_117))))" "(void)" " root-ctx_4))))))))))" "(define-values" +"(shift-to-inside-root-context)" +"(lambda(root-context_0)" +"(begin" +"(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_135) root-context_0))" +"(let-values(((the-struct_56) v_135))" +"(if(root-expand-context/outer? the-struct_56)" +"(let-values(((inner16_0)" +"(let-values(((the-struct_57)(root-expand-context/outer-inner v_135)))" +"(if(root-expand-context/inner? the-struct_57)" +"(let-values(((self-mpi17_0) inside-mpi_0)" +"((all-scopes-stx18_0)" +"(let-values(((temp19_1)" +"(root-expand-context-all-scopes-stx root-context_0))" +"((outside-mpi20_0) outside-mpi_0)" +"((inside-mpi21_0) inside-mpi_0))" +"(syntax-module-path-index-shift15.1" +" #f" +" #f" +" temp19_1" +" outside-mpi20_0" +" inside-mpi21_0" +" #f" +" #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)" +" 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/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)))))))))" +"(define-values" "(check-require-access9.1)" "(lambda(skip-imports1_0" " linklet3_0" @@ -32850,18 +33276,18 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values(((lst_39)(list-tail(1/linklet-import-variables linklet_4) skip-num-imports_0))" -"((lst_263) import-module-uses_0)" +"((lst_260) import-module-uses_0)" "((lst_84) import-module-instances_0)" "((lst_157)" -"(let-values(((or-part_71) extra-inspectorsss_4))" -"(if or-part_71 or-part_71 import-module-uses_0))))" +"(let-values(((or-part_77) extra-inspectorsss_4))" +"(if or-part_77 or-part_77 import-module-uses_0))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_39)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_263)))" +"(let-values()(check-list lst_260)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_84)))" @@ -32869,16 +33295,16 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_157)))" "((letrec-values(((for-loop_220)" -"(lambda(lst_264 lst_265 lst_24 lst_168)" +"(lambda(lst_261 lst_262 lst_24 lst_168)" "(begin" " 'for-loop" -"(if(if(pair? lst_264)" -"(if(pair? lst_265)(if(pair? lst_24)(pair? lst_168) #f) #f)" +"(if(if(pair? lst_261)" +"(if(pair? lst_262)(if(pair? lst_24)(pair? lst_168) #f) #f)" " #f)" -"(let-values(((import-syms_0)(unsafe-car lst_264))" -"((rest_140)(unsafe-cdr lst_264))" -"((mu_7)(unsafe-car lst_265))" -"((rest_141)(unsafe-cdr lst_265))" +"(let-values(((import-syms_0)(unsafe-car lst_261))" +"((rest_139)(unsafe-cdr lst_261))" +"((mu_7)(unsafe-car lst_262))" +"((rest_140)(unsafe-cdr lst_262))" "((mi_16)(unsafe-car lst_24))" "((rest_41)(unsafe-cdr lst_24))" "((extra-inspectorss_14)(unsafe-car lst_168))" @@ -32932,7 +33358,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((a_43)" +"(let-values(((a_49)" "(hash-ref" "(hash-ref" " access_2" @@ -32941,34 +33367,34 @@ static const char *startup_source = " '#hasheq())" " import-sym_0" " 'unexported)))" -"(if(let-values(((or-part_167)" +"(if(let-values(((or-part_174)" "(eq?" -" a_43" +" a_49" " 'unexported)))" -"(if or-part_167" -" or-part_167" +"(if or-part_174" +" or-part_174" "(eq?" -" a_43" +" a_49" " 'protected)))" "(let-values()" "(let-values(((guard-insp_3)" "(namespace-inspector" "(module-instance-namespace" " mi_16))))" -"(if(let-values(((or-part_169)" +"(if(let-values(((or-part_176)" "(inspector-superior?" " insp_10" " guard-insp_3)))" -"(if or-part_169" -" or-part_169" -"(let-values(((or-part_33)" +"(if or-part_176" +" or-part_176" +"(let-values(((or-part_39)" "(if extra-inspector_0" "(inspector-superior?" " extra-inspector_0" " guard-insp_3)" " #f)))" -"(if or-part_33" -" or-part_33" +"(if or-part_39" +" or-part_39" "(if extra-inspectorsss_4" "(if extra-inspectorss_14" "(extra-inspectors-allow?" @@ -32987,7 +33413,7 @@ static const char *startup_source = " \"access disallowed by code inspector to ~a variable\\n\"" " \" variable: ~s\\n\"" " \" from module: ~a\")" -" a_43" +" a_49" " import-sym_0" "(1/module-path-index-resolve" "(namespace-mpi" @@ -33008,33 +33434,33 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_220 rest_140 rest_141 rest_41 rest_35)" +"(for-loop_220 rest_139 rest_140 rest_41 rest_35)" "(values))))" "(values))))))" " for-loop_220)" " lst_39" -" lst_263" +" lst_260" " lst_84" " lst_157)))" "(void)))))))))))))" "(define-values" "(check-single-require-access)" -"(lambda(mi_17 phase_86 sym_58 insp_11)" +"(lambda(mi_17 phase_87 sym_59 insp_11)" "(begin" "(let-values(((m_16)(module-instance-module mi_17)))" "(if(module-no-protected? m_16)" "(let-values() #t)" "(let-values()" "(let-values(((access_3)" -"(let-values(((or-part_68)(module-access m_16)))" -"(if or-part_68 or-part_68(module-compute-access! m_16)))))" -"(let-values(((a_44)(hash-ref(hash-ref access_3 phase_86 '#hasheq()) sym_58 'unexported)))" -"(if(let-values(((or-part_36)(eq? a_44 'unexported)))" -"(if or-part_36 or-part_36(eq? a_44 'protected)))" +"(let-values(((or-part_74)(module-access m_16)))" +"(if or-part_74 or-part_74(module-compute-access! m_16)))))" +"(let-values(((a_50)(hash-ref(hash-ref access_3 phase_87 '#hasheq()) sym_59 'unexported)))" +"(if(let-values(((or-part_42)(eq? a_50 'unexported)))" +"(if or-part_42 or-part_42(eq? a_50 '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_264)(if insp_11(inspector-superior? insp_11 guard-insp_4) #f)))" +"(if or-part_264 or-part_264(inspector-superior?(current-code-inspector) guard-insp_4)))))" "(let-values() #t))))))))))" "(define-values(module-cache)(make-weak-hash))" "(define-values" @@ -33042,7 +33468,7 @@ static const char *startup_source = "(lambda(hash-code_4)(begin(if hash-code_4(list hash-code_4(current-load-relative-directory)) #f))))" "(define-values" "(module-cache-set!)" -"(lambda(key_11 proc_8)(begin(hash-set! module-cache key_11(make-ephemeron key_11 proc_8)))))" +"(lambda(key_11 proc_10)(begin(hash-set! module-cache key_11(make-ephemeron key_11 proc_10)))))" "(define-values" "(module-cache-ref)" "(lambda(key_66)" @@ -33102,58 +33528,58 @@ 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_107)" -"(lambda(table_103 pos_97)" +"((letrec-values(((for-loop_108)" +"(lambda(table_106 pos_97)" "(begin" " 'for-loop" "(if(< pos_97 end_26)" -"(let-values(((phase-level_16)" +"(let-values(((phase-level_17)" " pos_97))" -"(let-values(((table_175)" -"(let-values(((v_180)" +"(let-values(((table_178)" +"(let-values(((v_181)" "(hash-ref" " h_1" -" phase-level_16" +" phase-level_17" " #f)))" "(begin" " #t" "((letrec-values(((for-loop_222)" -"(lambda(table_105)" +"(lambda(table_108)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_176)" -"(let-values(((table_177)" -" table_105))" -"(if v_180" -"(let-values(((table_178)" -" table_177))" "(let-values(((table_179)" +"(let-values(((table_180)" +" table_108))" +"(if v_181" +"(let-values(((table_181)" +" table_180))" +"(let-values(((table_182)" "(let-values()" "(let-values(((key_68" " val_58)" "(let-values()" "(values" -" phase-level_16" +" phase-level_17" "(1/eval-linklet" -" v_180)))))" +" v_181)))))" "(hash-set" -" table_178" +" table_181" " key_68" " val_58)))))" "(values" -" table_179)))" -" table_177))))" -" table_176))))))" +" table_182)))" +" table_180))))" +" table_179))))))" " for-loop_222)" -" table_103)))))" +" table_106)))))" "(if(not #f)" -"(for-loop_107" -" table_175" +"(for-loop_108" +" table_178" "(+ pos_97 inc_20))" -" table_175)))" -" table_103)))))" -" for-loop_107)" +" table_178)))" +" table_106)))))" +" for-loop_108)" " '#hash()" " start_37)))))" "(let-values(((syntax-literals-linklet_0)" @@ -33237,13 +33663,13 @@ static const char *startup_source = " lst_20)))" "(void))" "(begin" -"(let-values(((lst_266) names_0))" +"(let-values(((lst_263) names_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_266)))" +"(check-list lst_263)))" "((letrec-values(((for-loop_224)" "(lambda(lst_88)" "(begin" @@ -33253,7 +33679,7 @@ static const char *startup_source = "(let-values(((name_48)" "(unsafe-car" " lst_88))" -"((rest_142)" +"((rest_141)" "(unsafe-cdr" " lst_88)))" "(let-values((()" @@ -33291,11 +33717,11 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_224" -" rest_142)" +" rest_141)" "(values))))" "(values))))))" " for-loop_224)" -" lst_266)))" +" lst_263)))" "(void)))))" " void)))" "(let-values(((declare-this-module_0)" @@ -33332,24 +33758,24 @@ static const char *startup_source = "(get-all-variables" " phases-h_0)))" "((temp34_0)" -"(lambda(phase-level_17" +"(lambda(phase-level_18" " ns_62" " insp_12)" "(module-linklet-info2.1" "(hash-ref" " phases-h_0" -" phase-level_17" +" phase-level_18" " #f)" "(hash-ref" " phase-to-link-modules_0" -" phase-level_17" +" phase-level_18" " #f)" " original-self_1" " insp_12" " extra-inspector_6" "(hash-ref" " phase-to-link-extra-inspectorsss_1" -" phase-level_17" +" phase-level_18" " #f))))" "((temp35_0)" "(lambda(bulk-binding-registry_13)" @@ -33360,7 +33786,7 @@ static const char *startup_source = "(lambda(data-box_2" " ns_63" " phase-shift_15" -" self_20" +" self_23" " bulk-binding-registry_14" " insp_13)" "(if(unbox" @@ -33376,7 +33802,7 @@ static const char *startup_source = " syntax-literals-data-instance_0" " phase-shift_15" " original-self_1" -" self_20" +" self_23" " bulk-binding-registry_14" " insp_13" " create-root-expand-context-from-module_0)))))" @@ -33384,8 +33810,8 @@ static const char *startup_source = "(lambda(data-box_3" " ns_64" " phase-shift_16" -" phase-level_18" -" self_21" +" phase-level_19" +" self_24" " bulk-binding-registry_15" " insp_14)" "(let-values()" @@ -33396,19 +33822,19 @@ static const char *startup_source = "(let-values(((phase-linklet_0)" "(hash-ref" " phases-h_0" -" phase-level_18" +" phase-level_19" " #f)))" "(if phase-linklet_0" "(let-values()" "(let-values(((module-uses_0)" "(hash-ref" " phase-to-link-modules_0" -" phase-level_18)))" +" phase-level_19)))" "(let-values(((import-module-instances_1" " import-instances_0)" "(let-values(((mis_1" " is_0)" -"(let-values(((lst_267)" +"(let-values(((lst_264)" " module-uses_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -33416,21 +33842,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_267)))" +" lst_264)))" "((letrec-values(((for-loop_225)" "(lambda(mis_2" " is_1" -" lst_268)" +" lst_265)" "(begin" " 'for-loop" "(if(pair?" -" lst_268)" +" lst_265)" "(let-values(((mu_8)" "(unsafe-car" -" lst_268))" -"((rest_143)" +" lst_265))" +"((rest_142)" "(unsafe-cdr" -" lst_268)))" +" lst_265)))" "(let-values(((mis_3" " is_2)" "(let-values(((mis_4)" @@ -33446,11 +33872,11 @@ static const char *startup_source = "(let-values(((original-self49_0)" " original-self_1)" "((self50_0)" -" self_21)" +" self_24)" "((temp51_1)" "(phase+" "(phase-" -" phase-level_18" +" phase-level_19" "(module-use-phase" " mu_8))" " phase-shift_16)))" @@ -33477,7 +33903,7 @@ static const char *startup_source = "(for-loop_225" " mis_3" " is_2" -" rest_143)" +" rest_142)" "(values" " mis_3" " is_2))))" @@ -33487,7 +33913,7 @@ static const char *startup_source = " for-loop_225)" " null" " null" -" lst_267)))))" +" lst_264)))))" "(values" "(reverse$1" " mis_1)" @@ -33508,7 +33934,7 @@ static const char *startup_source = "((temp44_0)" "(hash-ref" " phase-to-link-extra-inspectorsss_1" -" phase-level_18" +" phase-level_19" " #f)))" "(check-require-access9.1" " temp39_2" @@ -33526,7 +33952,7 @@ static const char *startup_source = "(namespace-set-transformer!" " ns_64" "(sub1" -" phase-level_18)" +" phase-level_19)" " name_49" " val_59))))" "(make-module-body-instance-instance18.1" @@ -33543,9 +33969,9 @@ static const char *startup_source = " import-instances_0)" "(namespace->instance" " ns_64" -" phase-level_18))))))" +" phase-level_19))))))" "(if(zero-phase?" -" phase-level_18)" +" phase-level_19)" "(let-values()" "(if(zero-phase?" " phase-shift_16)" @@ -33569,7 +33995,7 @@ static const char *startup_source = "(phase+" " phase-shift_16" "(sub1" -" phase-level_18)))))" +" phase-level_19)))))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -33685,13 +34111,13 @@ static const char *startup_source = "(init-instance-data!)" "(lambda(data-box_4" " cache-key_1" -" ns_65" +" ns_12" " syntax-literals-linklet_1" " data-instance_1" " syntax-literals-data-instance_1" " phase-shift_17" " original-self_2" -" self_22" +" self_25" " bulk-binding-registry_16" " insp_15" " create-root-expand-context-from-module_1)" @@ -33708,9 +34134,9 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((inst_1)" -"(let-values(((ns55_1) ns_65)" +"(let-values(((ns55_1) ns_12)" "((phase-shift56_1) phase-shift_17)" -"((self57_0) self_22)" +"((self57_0) self_25)" "((insp58_0) insp_15)" "((bulk-binding-registry59_0) bulk-binding-registry_16)" "((temp60_1)" @@ -33737,33 +34163,35 @@ static const char *startup_source = "(if(eq? get-encoded-root-expand-ctx_0 'empty)" "(let-values()" "(namespace-set-root-expand-ctx!" -" ns_65" +" ns_12" "(delay" "(lambda()" "(begin" " '...nder/eval/module.rkt:281:39" -"(let-values()(make-root-expand-context11.1 #f #f #f #f #f #f #f #f)))))))" +"(shift-to-inside-root-context(make-root-expand-context15.1 self_25)))))))" "(if(procedure? get-encoded-root-expand-ctx_0)" "(let-values()" "(namespace-set-root-expand-ctx!" -" ns_65" +" ns_12" "(delay" "(lambda()" "(begin" -" '...nder/eval/module.rkt:284:39" -"(root-expand-context-decode-for-module(get-encoded-root-expand-ctx_0)))))))" +" '...nder/eval/module.rkt:285:39" +"(shift-to-inside-root-context" +"(root-expand-context-decode-for-module(get-encoded-root-expand-ctx_0) self_25)))))))" "(let-values()" "(namespace-set-root-expand-ctx!" -" ns_65" +" ns_12" "(delay" "(lambda()" "(begin" -" '...nder/eval/module.rkt:289:39" +" '...nder/eval/module.rkt:292:39" +"(shift-to-inside-root-context" "(create-root-expand-context-from-module_1" -" ns_65" +" ns_12" " phase-shift_17" " original-self_2" -" self_22))))))))))))))))" +" self_25)))))))))))))))))" "(define-values" "(force-syntax-deserialize)" "(lambda(syntax-literals-data-instance_2 bulk-binding-registry_17)" @@ -33859,37 +34287,37 @@ static const char *startup_source = "(get-all-variables)" "(lambda(phases-h_1)" "(begin" -"(let-values(((ht_116) phases-h_1))" +"(let-values(((ht_118) phases-h_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_116)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_118)))" "((letrec-values(((for-loop_226)" -"(lambda(table_180 i_147)" +"(lambda(table_183 i_148)" "(begin" " 'for-loop" -"(if i_147" -"(let-values(((phase_87 linklet_5)(hash-iterate-key+value ht_116 i_147)))" -"(let-values(((table_181)" -"(let-values(((table_144) table_180))" -"(let-values(((table_182)" +"(if i_148" +"(let-values(((phase_88 linklet_5)(hash-iterate-key+value ht_118 i_148)))" +"(let-values(((table_184)" +"(let-values(((table_147) table_183))" +"(let-values(((table_185)" "(let-values()" "(let-values(((key_69 val_61)" "(let-values()" "(values" -" phase_87" +" phase_88" "(1/linklet-export-variables" " linklet_5)))))" -"(hash-set table_144 key_69 val_61)))))" -"(values table_182)))))" +"(hash-set table_147 key_69 val_61)))))" +"(values table_185)))))" "(if(not #f)" -"(for-loop_226 table_181(hash-iterate-next ht_116 i_147))" -" table_181)))" -" table_180)))))" +"(for-loop_226 table_184(hash-iterate-next ht_118 i_148))" +" table_184)))" +" table_183)))))" " for-loop_226)" " '#hash()" -"(hash-iterate-first ht_116)))))))" +"(hash-iterate-first ht_118)))))))" "(define-values" "(provides->api-provides)" -"(lambda(provides_9 self_23)" +"(lambda(provides_9 self_26)" "(begin" "(let-values(((extract_0)" "(lambda(ok?_25)" @@ -33897,22 +34325,22 @@ static const char *startup_source = " 'extract" "(let-values(((result-l_0)" "(reverse$1" -"(let-values(((ht_117) provides_9))" +"(let-values(((ht_119) provides_9))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_117)))" -"((letrec-values(((for-loop_95)" -"(lambda(fold-var_58 i_148)" +"(let-values()(check-in-hash ht_119)))" +"((letrec-values(((for-loop_96)" +"(lambda(fold-var_58 i_149)" "(begin" " 'for-loop" -"(if i_148" -"(let-values(((phase_88 at-phase_11)" -"(hash-iterate-key+value ht_117 i_148)))" +"(if i_149" +"(let-values(((phase_89 at-phase_11)" +"(hash-iterate-key+value ht_119 i_149)))" "(let-values(((fold-var_59)" "(let-values(((l_65)" "(reverse$1" -"(let-values(((ht_110)" +"(let-values(((ht_112)" " at-phase_11))" "(begin" "(if(variable-reference-from-unsafe?" @@ -33920,18 +34348,18 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_110)))" +" ht_112)))" "((letrec-values(((for-loop_227)" "(lambda(fold-var_215" -" i_149)" +" i_150)" "(begin" " 'for-loop" -"(if i_149" -"(let-values(((sym_59" +"(if i_150" +"(let-values(((sym_60" " b/p_1)" "(hash-iterate-key+value" -" ht_110" -" i_149)))" +" ht_112" +" i_150)))" "(let-values(((fold-var_216)" "(let-values(((fold-var_217)" " fold-var_215))" @@ -33947,9 +34375,9 @@ static const char *startup_source = "(provided-as-binding" " b/p_1)))" "(list" -" sym_59" +" sym_60" "(if(eq?" -" self_23" +" self_26" "(module-binding-module" " b_73))" "(let-values()" @@ -33968,19 +34396,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_82)))" -"((letrec-values(((for-loop_219)" +"((letrec-values(((for-loop_228)" "(lambda(fold-var_32" -" lst_269)" +" lst_266)" "(begin" " 'for-loop" "(if(pair?" -" lst_269)" +" lst_266)" "(let-values(((b_74)" "(unsafe-car" -" lst_269))" -"((rest_144)" +" lst_266))" +"((rest_143)" "(unsafe-cdr" -" lst_269)))" +" lst_266)))" "(let-values(((fold-var_148)" "(let-values(((fold-var_149)" " fold-var_32))" @@ -33991,11 +34419,11 @@ static const char *startup_source = "(if(if(eqv?" "(module-binding-nominal-phase" " b_74)" -" phase_88)" +" phase_89)" "(eq?" "(module-binding-nominal-sym" " b_74)" -" sym_59)" +" sym_60)" " #f)" "(let-values()" "(module-binding-nominal-module" @@ -34015,12 +34443,12 @@ static const char *startup_source = " fold-var_26)))))" "(if(not" " #f)" -"(for-loop_219" +"(for-loop_228" " fold-var_148" -" rest_144)" +" rest_143)" " fold-var_148)))" " fold-var_32)))))" -" for-loop_219)" +" for-loop_228)" " null" " lst_82)))))))))" " fold-var_30))))" @@ -34032,17 +34460,17 @@ static const char *startup_source = "(for-loop_227" " fold-var_216" "(hash-iterate-next" -" ht_110" -" i_149))" +" ht_112" +" i_150))" " fold-var_216)))" " fold-var_215)))))" " for-loop_227)" " null" "(hash-iterate-first" -" ht_110)))))))" +" ht_112)))))))" "(begin" " #t" -"((letrec-values(((for-loop_100)" +"((letrec-values(((for-loop_101)" "(lambda(fold-var_64)" "(begin" " 'for-loop" @@ -34060,7 +34488,7 @@ static const char *startup_source = "(cons" "(let-values()" "(cons" -" phase_88" +" phase_89" "(let-values(((car6_0)" " car))" "(sort7.1" @@ -34074,17 +34502,17 @@ static const char *startup_source = "(values" " fold-var_29)))))))" " fold-var_150))))))" -" for-loop_100)" +" for-loop_101)" " fold-var_58)))))" "(if(not #f)" -"(for-loop_95" +"(for-loop_96" " fold-var_59" -"(hash-iterate-next ht_117 i_148))" +"(hash-iterate-next ht_119 i_149))" " fold-var_59)))" " fold-var_58)))))" -" for-loop_95)" +" for-loop_96)" " null" -"(hash-iterate-first ht_117)))))))" +"(hash-iterate-first ht_119)))))))" "(let-values(((car3_0) car))(sort7.1 #f #f car3_0 #t result-l_0 phaselinklet-directory-or-bundle)" @@ -34222,7 +34650,7 @@ static const char *startup_source = "(define-values" "(module-compiled-immediate-name)" "(lambda(c_33)" -"(begin(let-values(((n_27)(module-compiled-current-name c_33)))(if(pair? n_27)(car(reverse$1 n_27)) n_27)))))" +"(begin(let-values(((n_29)(module-compiled-current-name c_33)))(if(pair? n_29)(car(reverse$1 n_29)) n_29)))))" "(define-values" "(change-module-name)" "(lambda(c_34 name_3 prefix_4)" @@ -34282,20 +34710,20 @@ static const char *startup_source = "(if(1/linklet-directory? c_34)" "(let-values()" "(1/hash->linklet-directory" -"(let-values(((ht_119)(1/linklet-directory->hash c_34)))" +"(let-values(((ht_121)(1/linklet-directory->hash c_34)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_119)))" -"((letrec-values(((for-loop_228)" -"(lambda(table_183 i_150)" +"(let-values()(check-in-hash ht_121)))" +"((letrec-values(((for-loop_229)" +"(lambda(table_186 i_151)" "(begin" " 'for-loop" -"(if i_150" -"(let-values(((key_30 val_62)(hash-iterate-key+value ht_119 i_150)))" -"(let-values(((table_184)" -"(let-values(((table_185) table_183))" -"(let-values(((table_102)" +"(if i_151" +"(let-values(((key_30 val_62)(hash-iterate-key+value ht_121 i_151)))" +"(let-values(((table_187)" +"(let-values(((table_188) table_186))" +"(let-values(((table_105)" "(let-values()" "(let-values(((key_70 val_63)" "(let-values()" @@ -34309,17 +34737,17 @@ static const char *startup_source = " val_62" " key_30))))))" "(hash-set" -" table_185" +" table_188" " key_70" " val_63)))))" -"(values table_102)))))" +"(values table_105)))))" "(if(not #f)" -"(for-loop_228 table_184(hash-iterate-next ht_119 i_150))" -" table_184)))" -" table_183)))))" -" for-loop_228)" +"(for-loop_229 table_187(hash-iterate-next ht_121 i_151))" +" table_187)))" +" table_186)))))" +" for-loop_229)" " '#hasheq()" -"(hash-iterate-first ht_119))))))" +"(hash-iterate-first ht_121))))))" "(let-values()(update-one-name c_34 full-name_0))))))))))" "(define-values" "(update-one-name)" @@ -34343,20 +34771,20 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_85)))" "((letrec-values(((for-loop_222)" -"(lambda(ht_111 lst_270)" +"(lambda(ht_113 lst_267)" "(begin" " 'for-loop" -"(if(pair? lst_270)" -"(let-values(((submod_1)(unsafe-car lst_270))" -"((rest_87)(unsafe-cdr lst_270)))" -"(let-values(((ht_120)" -"(let-values(((ht_121) ht_111))" +"(if(pair? lst_267)" +"(let-values(((submod_1)(unsafe-car lst_267))" +"((rest_87)(unsafe-cdr lst_267)))" "(let-values(((ht_122)" +"(let-values(((ht_123) ht_113))" +"(let-values(((ht_124)" "(let-values()" "(let-values(((name_53)" "(module-compiled-immediate-name" " submod_1)))" -"(if(hash-ref ht_121 name_53 #f)" +"(if(hash-ref ht_123 name_53 #f)" "(let-values()" "(raise-arguments-error" " 'module-compiled-submodules" @@ -34365,13 +34793,13 @@ static const char *startup_source = " name_53))" "(let-values()" "(hash-set" -" ht_121" +" ht_123" " name_53" "(compiled->linklet-directory-or-bundle" " submod_1))))))))" -"(values ht_122)))))" -"(if(not #f)(for-loop_222 ht_120 rest_87) ht_120)))" -" ht_111)))))" +"(values ht_124)))))" +"(if(not #f)(for-loop_222 ht_122 rest_87) ht_122)))" +" ht_113)))))" " for-loop_222)" " '#hasheq()" " lst_85)))" @@ -34393,15 +34821,15 @@ static const char *startup_source = "(begin" " 'compiled-module-expression?" "(let-values(((ld_3)(compiled->linklet-directory-or-bundle c_35)))" -"(let-values(((or-part_26)" +"(let-values(((or-part_32)" "(if(1/linklet-directory? ld_3)" "(if(let-values(((b_75)(hash-ref(1/linklet-directory->hash ld_3) #f #f)))" "(if b_75(hash-ref(1/linklet-bundle->hash b_75) 'decl #f) #f))" " #t" " #f)" " #f)))" -"(if or-part_26" -" or-part_26" +"(if or-part_32" +" or-part_32" "(if(1/linklet-bundle? ld_3)(if(hash-ref(1/linklet-bundle->hash ld_3) 'decl #f) #t #f) #f)))))))" "(define-values" "(1/module-compiled-name)" @@ -34457,8 +34885,8 @@ static const char *startup_source = "(let-values()" "(if(1/linklet-directory? c_37)" "(let-values()" -"(let-values(((ht_123)(1/linklet-directory->hash c_37)))" -"(let-values(((bh_0)(1/linklet-bundle->hash(hash-ref ht_123 #f))))" +"(let-values(((ht_125)(1/linklet-directory->hash c_37)))" +"(let-values(((bh_0)(1/linklet-bundle->hash(hash-ref ht_125 #f))))" "(let-values(((names_1)(hash-ref bh_0(if non-star?_0 'pre 'post) null)))" "(reverse$1" "(let-values(((lst_74) names_1))" @@ -34467,22 +34895,22 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_74)))" "((letrec-values(((for-loop_70)" -"(lambda(fold-var_30 lst_271)" +"(lambda(fold-var_30 lst_268)" "(begin" " 'for-loop" -"(if(pair? lst_271)" -"(let-values(((name_55)(unsafe-car lst_271))" -"((rest_145)(unsafe-cdr lst_271)))" +"(if(pair? lst_268)" +"(let-values(((name_55)(unsafe-car lst_268))" +"((rest_144)(unsafe-cdr lst_268)))" "(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_123 name_55))" +"(hash-ref ht_125 name_55))" " fold-var_32))))" "(values fold-var_33)))))" -"(if(not #f)(for-loop_70 fold-var_31 rest_145) fold-var_31)))" +"(if(not #f)(for-loop_70 fold-var_31 rest_144) fold-var_31)))" " fold-var_30)))))" " for-loop_70)" " null" @@ -34498,9 +34926,9 @@ static const char *startup_source = "(let-values()" " (raise-argument-error 'module-compiled-submodules \"(listof compiled-module-expression?)\" submods_1)))" "(if(if(null? submods_1)" -"(let-values(((or-part_29)(1/linklet-bundle?(compiled->linklet-directory-or-bundle c_38))))" -"(if or-part_29" -" or-part_29" +"(let-values(((or-part_35)(1/linklet-bundle?(compiled->linklet-directory-or-bundle c_38))))" +"(if or-part_35" +" or-part_35" "(if(compiled-in-memory? c_38)" "(null?" "(if non-star?_1" @@ -34517,8 +34945,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_56) n-c_0))" -"(if(compiled-in-memory? the-struct_56)" +"(let-values(((the-struct_58) n-c_0))" +"(if(compiled-in-memory? the-struct_58)" "(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)" @@ -34531,39 +34959,39 @@ static const char *startup_source = " non-star?_1" " submods_1))" "((temp5_3)(symbol?(module-compiled-current-name c_38)))" -"((temp6_1)" +"((temp6_0)" "(append pre-compiled-in-memorys_1 post-compiled-in-memorys_1)))" -"(rebuild-linklet-directory5.1 temp5_3 #t temp4_1 temp6_1))))" +"(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_56)" -"(compiled-in-memory-requires the-struct_56)" -"(compiled-in-memory-provides the-struct_56)" -"(compiled-in-memory-phase-to-link-module-uses the-struct_56)" -"(compiled-in-memory-compile-time-inspector the-struct_56)" -"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_56)" -"(compiled-in-memory-mpis the-struct_56)" -"(compiled-in-memory-syntax-literals the-struct_56)" +"(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)" " pre-compiled-in-memorys1_0" " post-compiled-in-memorys2_0" -"(compiled-in-memory-namespace-scopes the-struct_56)" -"(compiled-in-memory-purely-functional? the-struct_56)))" -" (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_56))))))))" +"(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))))))))" "(let-values()" "(let-values(((n-c_1)(normalize-to-linklet-directory c_38)))" "(fixup-submodule-names" -"(let-values(((temp7_1)" +"(let-values(((temp7_2)" "(reset-submodule-names" "(hash-ref(1/linklet-directory->hash(compiled->linklet-directory-or-bundle n-c_1)) #f)" " non-star?_1" " submods_1))" -"((temp8_3)" +"((temp8_2)" "(map2" " compiled->linklet-directory-or-bundle" "(append" "(if non-star?_1 submods_1(1/module-compiled-submodules c_38 #t))" "(if non-star?_1(1/module-compiled-submodules c_38 #f) submods_1)))))" -"(rebuild-linklet-directory5.1 #f #f temp7_1 temp8_3)))))))))))" +"(rebuild-linklet-directory5.1 #f #f temp7_2 temp8_2)))))))))))" "(define-values" "(1/module-compiled-language-info)" "(lambda(c_39)" @@ -34630,13 +35058,13 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_36 end_25 inc_19)))" "((letrec-values(((for-loop_27)" -"(lambda(table_99 pos_95)" +"(lambda(table_102 pos_95)" "(begin" " 'for-loop" "(if(< pos_95 end_25)" -"(let-values(((phase-level_19) pos_95))" -"(let-values(((table_186)" -"(let-values(((table_106) table_99))" +"(let-values(((phase-level_20) pos_95))" +"(let-values(((table_189)" +"(let-values(((table_109) table_102))" "(let-values(((table_54)" "(let-values()" "(let-values(((key_71 val_48)" @@ -34644,18 +35072,18 @@ static const char *startup_source = "(let-values(((linklet_6)" "(hash-ref" " h_8" -" phase-level_19" +" phase-level_20" " #f)))" "(values" -" phase-level_19" +" phase-level_20" "(if linklet_6" "(1/linklet-export-variables" " linklet_6)" " null))))))" -"(hash-set table_106 key_71 val_48)))))" +"(hash-set table_109 key_71 val_48)))))" "(values table_54)))))" -"(if(not #f)(for-loop_27 table_186(+ pos_95 inc_19)) table_186)))" -" table_99)))))" +"(if(not #f)(for-loop_27 table_189(+ pos_95 inc_19)) table_189)))" +" table_102)))))" " for-loop_27)" " '#hash()" " start_36)))))))))))" @@ -34684,25 +35112,25 @@ 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_57) c_44))" -"(if(compiled-in-memory? the-struct_57)" +"(let-values(((the-struct_59) c_44))" +"(if(compiled-in-memory? the-struct_59)" "(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_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)" -"(compiled-in-memory-pre-compiled-in-memorys the-struct_57)" -"(compiled-in-memory-post-compiled-in-memorys the-struct_57)" -"(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)))))))))" +"(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)))))))))" "(define-values" "(fixup-submodule-names)" "(lambda(c_45)(begin(1/module-compiled-name c_45(1/module-compiled-name c_45)))))" @@ -34731,7 +35159,7 @@ static const char *startup_source = " cctx12_1)" "(begin" " 'compile-module13" -"(let-values(((p_35) p11_1))" +"(let-values(((p_39) p11_1))" "(let-values(((cctx_16) cctx12_1))" "(let-values(((force-linklet-directory?_0)(if force-linklet-directory?6_0 force-linklet-directory?1_0 #f)))" "(let-values(((serializable?_2)(if serializable?7_0 serializable?2_0 #f)))" @@ -34743,32 +35171,32 @@ static const char *startup_source = "(let-values()" "(let-values(((full-module-name_1)" "(let-values(((parent-full-name_0)(compile-context-full-module-name cctx_16))" -"((name_56)(syntax-e$1(parsed-module-name-id p_35))))" +"((name_56)(syntax-e$1(parsed-module-name-id p_39))))" "(if parent-full-name_0" "(append" "(if(list? parent-full-name_0) parent-full-name_0(list parent-full-name_0))" "(list name_56))" " name_56))))" -"(let-values(((compiled-submodules_0)(parsed-module-compiled-submodules p_35)))" +"(let-values(((compiled-submodules_0)(parsed-module-compiled-submodules p_39)))" "(let-values(((get-submodules_0)" "(lambda(star?_0)" "(begin" " 'get-submodules" "(reverse$1" -"(let-values(((ht_124) compiled-submodules_0))" +"(let-values(((ht_126) compiled-submodules_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_124)))" -"((letrec-values(((for-loop_100)" -"(lambda(fold-var_64 i_151)" +"(let-values()(check-in-hash ht_126)))" +"((letrec-values(((for-loop_101)" +"(lambda(fold-var_64 i_152)" "(begin" " 'for-loop" -"(if i_151" +"(if i_152" "(let-values(((name_57 star?+compiled_0)" "(hash-iterate-key+value" -" ht_124" -" i_151)))" +" ht_126" +" i_152)))" "(let-values(((fold-var_29)" "(let-values(((fold-var_151)" " fold-var_64))" @@ -34786,7 +35214,7 @@ static const char *startup_source = "(if(if need-compiled-submodule-rename?_0" "(not" "(parsed-module-compiled-module" -" p_35))" +" p_39))" " #f)" "(update-submodule-names" "(cdr" @@ -34799,17 +35227,17 @@ static const char *startup_source = "(values fold-var_65)))" " fold-var_151))))" "(if(not #f)" -"(for-loop_100" +"(for-loop_101" " fold-var_29" -"(hash-iterate-next ht_124 i_151))" +"(hash-iterate-next ht_126 i_152))" " fold-var_29)))" " fold-var_64)))))" -" for-loop_100)" +" for-loop_101)" " null" -"(hash-iterate-first ht_124)))))))))" +"(hash-iterate-first ht_126)))))))))" "(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)))" +"(let-values(((c1_25)(parsed-module-compiled-module p_39)))" "(if c1_25" "((lambda(c_46)" "(let-values(((name_58 prefix_6)" @@ -34842,7 +35270,7 @@ static const char *startup_source = " pre-submodules44_0" " serializable?41_0" " to-source?42_0" -" p_35" +" p_39" " cctx_16)))))))))))))))))))))" "(define-values" "(compile-module-from-parsed34.1)" @@ -34858,7 +35286,7 @@ static const char *startup_source = " cctx33_0)" "(begin" " 'compile-module-from-parsed34" -"(let-values(((p_25) p32_0))" +"(let-values(((p_29) p32_0))" "(let-values(((cctx_17) cctx33_0))" "(let-values(((full-module-name_2) full-module-name16_0))" "(let-values(((force-linklet-directory?_1) force-linklet-directory?17_0))" @@ -34871,49 +35299,49 @@ static const char *startup_source = "(let-values()" "(let-values()" "(let-values(((enclosing-self_0)(compile-context-module-self cctx_17)))" -"(let-values(((self_24)(parsed-module-self p_25)))" -"(let-values(((requires_5)(parsed-module-requires p_25)))" -"(let-values(((provides_11)(parsed-module-provides p_25)))" +"(let-values(((self_27)(parsed-module-self p_29)))" +"(let-values(((requires_5)(parsed-module-requires p_29)))" +"(let-values(((provides_11)(parsed-module-provides p_29)))" "(let-values(((encoded-root-expand-ctx-box_1)" -"(box(parsed-module-encoded-root-ctx p_25))))" -"(let-values(((body-context-simple?_0)(parsed-module-root-ctx-simple? p_25)))" +"(box(parsed-module-encoded-root-ctx p_29))))" +"(let-values(((body-context-simple?_0)(parsed-module-root-ctx-simple? p_29)))" "(let-values(((language-info_2)" "(filter-language-info" -"(syntax-property$1(parsed-s p_25) 'module-language))))" -"(let-values(((bodys_6)(parsed-module-body p_25)))" +"(syntax-property$1(parsed-s p_29) 'module-language))))" +"(let-values(((bodys_6)(parsed-module-body p_29)))" "(let-values(((empty-result-for-module->namespace?_0) #f))" "(let-values(((mpis_3)(make-module-path-index-table)))" "(let-values(((body-cctx_0)" -"(let-values(((the-struct_58) cctx_17))" -"(if(compile-context? the-struct_58)" +"(let-values(((the-struct_60) cctx_17))" +"(if(compile-context? the-struct_60)" "(let-values(((phase47_1) 0)" -"((self48_0) self_24)" -"((module-self49_0) self_24)" +"((self48_0) self_27)" +"((module-self49_0) self_27)" "((full-module-name50_0)" " full-module-name_2)" "((lazy-syntax-literals?51_0) #t))" "(compile-context1.1" -"(compile-context-namespace the-struct_58)" +"(compile-context-namespace the-struct_60)" " phase47_1" " self48_0" " module-self49_0" " full-module-name50_0" " lazy-syntax-literals?51_0" -"(compile-context-header the-struct_58)))" +"(compile-context-header the-struct_60)))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_58)))))" +" the-struct_60)))))" "(let-values(((cross-phase-persistent?_2) #f))" "(let-values(((side-effects_0)(make-hasheqv)))" "(let-values(((check-side-effects!_0)" "(lambda(e_71" " expected-results_3" -" phase_90" +" phase_91" " required-reference?_1)" "(begin" " 'check-side-effects!" -"(if(hash-ref side-effects_0 phase_90 #f)" +"(if(hash-ref side-effects_0 phase_91 #f)" "(void)" "(let-values()" "(if(let-values(((required-reference?54_0)" @@ -34930,7 +35358,7 @@ static const char *startup_source = "(let-values()" "(hash-set!" " side-effects_0" -" phase_90" +" phase_91" " #t))" "(void))))))))" "(let-values((()" @@ -34948,7 +35376,7 @@ static const char *startup_source = "(register-compiled-submodules" " modules-being-compiled_1" " pre-submodules_1" -" self_24)))" +" self_27)))" "(void))" "(values))))" "(let-values(((body-linklets_2" @@ -34982,31 +35410,31 @@ static const char *startup_source = "(let-values(((ok?_26" " _69_0" " kw70_0)" -"(let-values(((s_388)" +"(let-values(((s_389)" "(parsed-s" " body_4)))" "(let-values(((orig-s_30)" -" s_388))" +" s_389))" "(let-values(((_69_1" " kw70_1)" -"(let-values(((s_389)" -"(if(syntax?$1" -" s_388)" -"(syntax-e$1" -" s_388)" -" s_388)))" -"(if(pair?" -" s_389)" -"(let-values(((_71_0)" "(let-values(((s_390)" -"(car" +"(if(syntax?$1" +" s_389)" +"(syntax-e$1" +" s_389)" " s_389)))" -" s_390))" +"(if(pair?" +" s_390)" +"(let-values(((_71_0)" +"(let-values(((s_391)" +"(car" +" s_390)))" +" s_391))" "((kw72_0)" "(let-values(((s_34)" "(cdr" -" s_389)))" -"(let-values(((s_391)" +" s_390)))" +"(let-values(((s_392)" "(if(syntax?$1" " s_34)" "(syntax-e$1" @@ -35014,7 +35442,7 @@ static const char *startup_source = " s_34)))" "(let-values(((flat-s_19)" "(to-syntax-list.1" -" s_391)))" +" s_392)))" "(if(not" " flat-s_19)" "(let-values()" @@ -35045,18 +35473,18 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_221)))" -"((letrec-values(((for-loop_229)" -"(lambda(lst_272)" +"((letrec-values(((for-loop_230)" +"(lambda(lst_269)" "(begin" " 'for-loop" "(if(pair?" -" lst_272)" -"(let-values(((kw_0)" +" lst_269)" +"(let-values(((kw_1)" "(unsafe-car" -" lst_272))" -"((rest_146)" +" lst_269))" +"((rest_145)" "(unsafe-cdr" -" lst_272)))" +" lst_269)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -35066,7 +35494,7 @@ static const char *startup_source = "(begin" "(if(eq?" "(syntax-e$1" -" kw_0)" +" kw_1)" " '#:cross-phase-persistent)" "(let-values()" "(set! cross-phase-persistent?_2" @@ -35074,7 +35502,7 @@ static const char *startup_source = "(void))" "(if(eq?" "(syntax-e$1" -" kw_0)" +" kw_1)" " '#:empty-namespace)" "(let-values()" "(begin" @@ -35088,28 +35516,28 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_229" -" rest_146)" +"(for-loop_230" +" rest_145)" "(values))))" "(values))))))" -" for-loop_229)" +" for-loop_230)" " lst_221)))" "(void)" " #f)))" "(let-values() #f))))" "((temp66_1)" -"(lambda(mod-name_17 phase_91)" -"(let-values(((ht_125)" +"(lambda(mod-name_17 phase_92)" +"(let-values(((ht_127)" "(if modules-being-compiled_1" "(hash-ref" " modules-being-compiled_1" " mod-name_17" " #f)" " #f)))" -"(if ht_125" +"(if ht_127" "(hash-ref" -" ht_125" -" phase_91" +" ht_127" +" phase_92" " #f)" " #f))))" "((to-source?67_0) to-source?_4)" @@ -35149,49 +35577,49 @@ static const char *startup_source = "(let-values()" "(hash-set!" " modules-being-compiled_1" -"(1/module-path-index-resolve self_24)" -"(let-values(((ht_126)" +"(1/module-path-index-resolve self_27)" +"(let-values(((ht_128)" " body-linklets_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_126)))" -"((letrec-values(((for-loop_230)" -"(lambda(table_187" -" i_152)" +"(check-in-hash ht_128)))" +"((letrec-values(((for-loop_231)" +"(lambda(table_190" +" i_153)" "(begin" " 'for-loop" -"(if i_152" -"(let-values(((phase_92" +"(if i_153" +"(let-values(((phase_93" " linklet_7)" "(hash-iterate-key+value" -" ht_126" -" i_152)))" -"(let-values(((table_188)" +" ht_128" +" i_153)))" +"(let-values(((table_191)" "(let-values(((table_43)" -" table_187))" -"(let-values(((table_189)" +" table_190))" +"(let-values(((table_87)" "(let-values()" "(let-values(((key_72" " val_64)" "(let-values()" "(values" -" phase_92" +" phase_93" "(module-linklet-info2.1" " linklet_7" "(hash-ref" " phase-to-link-module-uses_4" -" phase_92" +" phase_93" " #f)" -" self_24" +" self_27" " #f" " #f" "(if phase-to-link-extra-inspectorsss_2" "(hash-ref" " phase-to-link-extra-inspectorsss_2" -" phase_92" +" phase_93" " #f)" " #f))))))" "(hash-set" @@ -35199,19 +35627,19 @@ static const char *startup_source = " key_72" " val_64)))))" "(values" -" table_189)))))" +" table_87)))))" "(if(not" " #f)" -"(for-loop_230" -" table_188" +"(for-loop_231" +" table_191" "(hash-iterate-next" -" ht_126" -" i_152))" -" table_188)))" -" table_187)))))" -" for-loop_230)" +" ht_128" +" i_153))" +" table_191)))" +" table_190)))))" +" for-loop_231)" " '#hasheq()" -"(hash-iterate-first ht_126))))))" +"(hash-iterate-first ht_128))))))" "(void))" "(values))))" "(let-values(((declaration-linklet_0)" @@ -35237,7 +35665,7 @@ static const char *startup_source = " '(self-mpi)" "(add-module-path-index!" " mpis_3" -" self_24))" +" self_27))" "(list" " 'define-values" " '(requires)" @@ -35267,12 +35695,12 @@ static const char *startup_source = " syntax-literals_4))" "((if to-source?_4" " values" -"(lambda(s_392)" +"(lambda(s_393)" "(let-values()" "(let-values(((linklet_8" " new-keys_1)" "(1/compile-linklet" -" s_392" +" s_393" " 'syntax-literals" "(vector" " deserialize-instance" @@ -35308,7 +35736,7 @@ static const char *startup_source = " #t" " syntax-literals_4" " mpis_3" -" self_24))" +" self_27))" "(list" "(list" " 'define-values" @@ -35363,10 +35791,10 @@ static const char *startup_source = "(if serializable?_3" "((if to-source?_4" " values" -"(lambda(s_319)" +"(lambda(s_320)" "(let-values()" "(1/compile-linklet" -" s_319" +" s_320" " 'data))))" "(list" " 'linklet" @@ -35392,10 +35820,10 @@ static const char *startup_source = "(hash-set" " bundle_2" " 'decl" -"(let-values(((or-part_258)" +"(let-values(((or-part_265)" " declaration-linklet_0))" -"(if or-part_258" -" or-part_258" +"(if or-part_265" +" or-part_265" " 'in-memory)))))" "(let-values(((bundle_4)" "(if data-linklet_0" @@ -35509,7 +35937,7 @@ static const char *startup_source = "((if to-source?_4" " values" " 1/hash->linklet-directory)" -"(let-values(((lst_273)" +"(let-values(((lst_270)" "(append" " pre-submodules_1" " post-submodules_1)))" @@ -35519,9 +35947,9 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_273)))" -"((letrec-values(((for-loop_231)" -"(lambda(ht_127" +" lst_270)))" +"((letrec-values(((for-loop_232)" +"(lambda(ht_129" " lst_225)" "(begin" " 'for-loop" @@ -35530,16 +35958,16 @@ static const char *startup_source = "(let-values(((sm_0)" "(unsafe-car" " lst_225))" -"((rest_147)" +"((rest_146)" "(unsafe-cdr" " lst_225)))" -"(let-values(((ht_128)" -"(let-values(((ht_129)" -" ht_127))" +"(let-values(((ht_130)" +"(let-values(((ht_131)" +" ht_129))" "(let-values(((ht_42)" "(let-values()" "(hash-set" -" ht_129" +" ht_131" "(car" " sm_0)" "((if to-source?_4" @@ -35551,20 +35979,20 @@ static const char *startup_source = " ht_42)))))" "(if(not" " #f)" -"(for-loop_231" -" ht_128" -" rest_147)" -" ht_128)))" -" ht_127)))))" -" for-loop_231)" +"(for-loop_232" +" ht_130" +" rest_146)" +" ht_130)))" +" ht_129)))))" +" for-loop_232)" "(hasheq #f bundle_1)" -" lst_273))))))))" +" lst_270))))))))" "(if to-source?_4" "(let-values() ld_4)" "(let-values()" "(compiled-in-memory1.1" " ld_4" -" self_24" +" self_27" " requires_5" " provides_11" " phase-to-link-module-uses_4" @@ -35587,18 +36015,18 @@ static const char *startup_source = "(if(symbol? full-module-name_3)(list full-module-name_3)(reverse$1(cdr(reverse$1 full-module-name_3))))))))" "(define-values" "(register-compiled-submodules)" -"(lambda(modules-being-compiled_2 pre-submodules_2 self_25)" +"(lambda(modules-being-compiled_2 pre-submodules_2 self_28)" "(begin" "(begin" "(let-values(((lst_154) pre-submodules_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_154)))" -"((letrec-values(((for-loop_232)" -"(lambda(lst_274)" +"((letrec-values(((for-loop_233)" +"(lambda(lst_271)" "(begin" " 'for-loop" -"(if(pair? lst_274)" -"(let-values(((s_101)(unsafe-car lst_274))((rest_148)(unsafe-cdr lst_274)))" +"(if(pair? lst_271)" +"(let-values(((s_101)(unsafe-car lst_271))((rest_147)(unsafe-cdr lst_271)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -35619,7 +36047,7 @@ static const char *startup_source = " 'submod" " \".\"" " name_60)" -" self_25)))" +" self_28)))" "(let-values(((phase-to-extra-inspectorsss_0)" "(compiled-in-memory-phase-to-link-extra-inspectorsss" " cim_10)))" @@ -35627,7 +36055,7 @@ static const char *startup_source = " modules-being-compiled_2" "(1/module-path-index-resolve" " sm-self_0)" -"(let-values(((ht_130)" +"(let-values(((ht_132)" "(1/linklet-bundle->hash" "(if(1/linklet-directory?" " ld_5)" @@ -35641,37 +36069,37 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_130)))" -"((letrec-values(((for-loop_233)" -"(lambda(table_154" -" i_153)" +"(check-in-hash ht_132)))" +"((letrec-values(((for-loop_234)" +"(lambda(table_157" +" i_154)" "(begin" " 'for-loop" -"(if i_153" -"(let-values(((phase_93" +"(if i_154" +"(let-values(((phase_94" " linklet_9)" "(hash-iterate-key+value" -" ht_130" -" i_153)))" -"(let-values(((table_190)" -"(let-values(((table_191)" -" table_154))" -"(if(number?" -" phase_93)" -"(let-values(((table_156)" -" table_191))" +" ht_132" +" i_154)))" "(let-values(((table_192)" +"(let-values(((table_193)" +" table_157))" +"(if(number?" +" phase_94)" +"(let-values(((table_159)" +" table_193))" +"(let-values(((table_194)" "(let-values()" "(let-values(((key_73" " val_65)" "(let-values()" "(values" -" phase_93" +" phase_94" "(module-linklet-info2.1" " linklet_9" "(hash-ref" " phase-to-link-module-uses_5" -" phase_93" +" phase_94" " #f)" "(compiled-in-memory-original-self" " cim_10)" @@ -35681,34 +36109,34 @@ static const char *startup_source = "(if phase-to-extra-inspectorsss_0" "(hash-ref" " phase-to-extra-inspectorsss_0" -" phase_93" +" phase_94" " #f)" " #f))))))" "(hash-set" -" table_156" +" table_159" " key_73" " val_65)))))" "(values" -" table_192)))" -" table_191))))" +" table_194)))" +" table_193))))" "(if(not" " #f)" -"(for-loop_233" -" table_190" +"(for-loop_234" +" table_192" "(hash-iterate-next" -" ht_130" -" i_153))" -" table_190)))" -" table_154)))))" -" for-loop_233)" +" ht_132" +" i_154))" +" table_192)))" +" table_157)))))" +" for-loop_234)" " '#hasheq()" "(hash-iterate-first" -" ht_130))))))))))))" +" ht_132))))))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_232 rest_148)(values))))" +"(if(not #f)(for-loop_233 rest_147)(values))))" "(values))))))" -" for-loop_232)" +" for-loop_233)" " lst_154)))" "(void)))))" "(define-values" @@ -35732,57 +36160,57 @@ static const char *startup_source = "(if(1/linklet-bundle? c_31)" "(let-values()" "(1/hash->linklet-bundle" -"(let-values(((ht_131)(1/linklet-bundle->hash c_31)))" +"(let-values(((ht_133)(1/linklet-bundle->hash c_31)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_131)))" -"((letrec-values(((for-loop_234)" -"(lambda(table_193 i_154)" +"(let-values()(check-in-hash ht_133)))" +"((letrec-values(((for-loop_235)" +"(lambda(table_195 i_155)" "(begin" " 'for-loop" -"(if i_154" -"(let-values(((k_32 v_68)(hash-iterate-key+value ht_131 i_154)))" -"(let-values(((table_194)" -"(let-values(((table_195) table_193))" +"(if i_155" +"(let-values(((k_32 v_71)(hash-iterate-key+value ht_133 i_155)))" "(let-values(((table_196)" +"(let-values(((table_197) table_195))" +"(let-values(((table_198)" "(let-values()" "(let-values(((key_28 val_18)" "(let-values()" -"(if(1/linklet? v_68)" +"(if(1/linklet? v_71)" "(let-values()" "(values" " k_32" "(1/recompile-linklet" -" v_68)))" +" v_71)))" "(let-values()" -"(values k_32 v_68))))))" -"(hash-set table_195 key_28 val_18)))))" -"(values table_196)))))" +"(values k_32 v_71))))))" +"(hash-set table_197 key_28 val_18)))))" +"(values table_198)))))" "(if(not #f)" -"(for-loop_234 table_194(hash-iterate-next ht_131 i_154))" -" table_194)))" -" table_193)))))" -" for-loop_234)" +"(for-loop_235 table_196(hash-iterate-next ht_133 i_155))" +" table_196)))" +" table_195)))))" +" for-loop_235)" " '#hasheq()" -"(hash-iterate-first ht_131))))))" +"(hash-iterate-first ht_133))))))" "(if(1/linklet-directory? c_31)" "(let-values()" "(1/hash->linklet-directory" -"(let-values(((ht_132)(1/linklet-directory->hash c_31)))" +"(let-values(((ht_134)(1/linklet-directory->hash c_31)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_132)))" -"((letrec-values(((for-loop_235)" -"(lambda(table_197 i_155)" +"(let-values()(check-in-hash ht_134)))" +"((letrec-values(((for-loop_236)" +"(lambda(table_199 i_156)" "(begin" " 'for-loop" -"(if i_155" -"(let-values(((k_33 v_1)(hash-iterate-key+value ht_132 i_155)))" -"(let-values(((table_198)" -"(let-values(((table_199) table_197))" +"(if i_156" +"(let-values(((k_33 v_1)(hash-iterate-key+value ht_134 i_156)))" "(let-values(((table_200)" +"(let-values(((table_201) table_199))" +"(let-values(((table_202)" "(let-values()" "(let-values(((key_74 val_66)" "(let-values()" @@ -35795,15 +36223,15 @@ static const char *startup_source = " v_1)))" "(let-values()" "(values k_33 v_1))))))" -"(hash-set table_199 key_74 val_66)))))" -"(values table_200)))))" +"(hash-set table_201 key_74 val_66)))))" +"(values table_202)))))" "(if(not #f)" -"(for-loop_235 table_198(hash-iterate-next ht_132 i_155))" -" table_198)))" -" table_197)))))" -" for-loop_235)" +"(for-loop_236 table_200(hash-iterate-next ht_134 i_156))" +" table_200)))" +" table_199)))))" +" for-loop_236)" " '#hasheq()" -"(hash-iterate-first ht_132))))))" +"(hash-iterate-first ht_134))))))" "(let-values() c_31)))))))" "(define-values" "(create-compiled-in-memorys-using-shared-data)" @@ -35836,9 +36264,9 @@ static const char *startup_source = "(begin" " 'construct-compiled-in-memory" "(let-values(((is-module?_0)" -"(let-values(((or-part_76)(1/linklet-bundle? ld_6)))" -"(if or-part_76" -" or-part_76" +"(let-values(((or-part_82)(1/linklet-bundle? ld_6)))" +"(if or-part_82" +" or-part_82" "(let-values(((b_77)" "(hash-ref" "(1/linklet-directory->hash ld_6)" @@ -35864,7 +36292,7 @@ static const char *startup_source = " 'map-construct-compiled-in-memory" "(reverse$1" "(let-values(((lst_39) l_66)" -"((lst_263)" +"((lst_260)" "(vector-ref" " mpi-vector-tree_0" " vec-pos_0))" @@ -35884,7 +36312,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_263)))" +"(let-values()(check-list lst_260)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -35893,18 +36321,18 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_157)))" -"((letrec-values(((for-loop_236)" +"((letrec-values(((for-loop_237)" "(lambda(fold-var_29" -" lst_264" -" lst_265" +" lst_261" +" lst_262" " lst_24" " lst_168)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_264)" +" lst_261)" "(if(pair?" -" lst_265)" +" lst_262)" "(if(pair?" " lst_24)" "(pair?" @@ -35914,16 +36342,16 @@ static const char *startup_source = " #f)" "(let-values(((sub-ld_0)" "(unsafe-car" -" lst_264))" -"((rest_140)" +" lst_261))" +"((rest_139)" "(unsafe-cdr" -" lst_264))" +" lst_261))" "((mpi-vector-tree_1)" "(unsafe-car" -" lst_265))" -"((rest_141)" +" lst_262))" +"((rest_140)" "(unsafe-cdr" -" lst_265))" +" lst_262))" "((phase-to-link-modules-tree_1)" "(unsafe-car" " lst_24))" @@ -35952,18 +36380,18 @@ static const char *startup_source = "(values" " fold-var_165)))))" "(if(not #f)" -"(for-loop_236" +"(for-loop_237" " fold-var_154" +" rest_139" " rest_140" -" rest_141" " rest_41" " rest_35)" " fold-var_154)))" " fold-var_29)))))" -" for-loop_236)" +" for-loop_237)" " null" " lst_39" -" lst_263" +" lst_260" " lst_84" " lst_157))))))))" "(compiled-in-memory1.1" @@ -35985,7 +36413,7 @@ static const char *startup_source = " 'for/vector" " \"exact-nonnegative-integer?\"" " len_29)))" -"(let-values(((v_181)(make-vector len_29 0)))" +"(let-values(((v_182)(make-vector len_29 0)))" "(begin" "(if(zero? len_29)" "(void)" @@ -36002,7 +36430,7 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_27)" -"(lambda(i_156 pos_95)" +"(lambda(i_157 pos_95)" "(begin" " 'for-loop" "(if(unsafe-fx<" @@ -36012,43 +36440,43 @@ static const char *startup_source = "(unsafe-vector-ref" " vec_60" " pos_95)))" -"(let-values(((i_157)" "(let-values(((i_158)" -" i_156))" -"(let-values(((i_90)" +"(let-values(((i_159)" +" i_157))" +"(let-values(((i_91)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_181" -" i_158" +" v_182" +" i_159" "(let-values()" "(vector-ref" " mpi-vector_0" " pos_99)))" "(unsafe-fx+" " 1" -" i_158)))))" +" i_159)))))" "(values" -" i_90)))))" +" i_91)))))" "(if(if(not" "((lambda x_72" "(unsafe-fx=" -" i_157" +" i_158" " len_29))" " pos_99))" "(not #f)" " #f)" "(for-loop_27" -" i_157" +" i_158" "(unsafe-fx+" " 1" " pos_95))" -" i_157)))" -" i_156)))))" +" i_158)))" +" i_157)))))" " for-loop_27)" " 0" " 0)))))" -" v_181))))" +" v_182))))" "(let-values(((len_31)(cdr syntax-literals-spec_0)))" "(begin" "(if(exact-nonnegative-integer? len_31)" @@ -36058,7 +36486,7 @@ static const char *startup_source = " 'for/vector" " \"exact-nonnegative-integer?\"" " len_31)))" -"(let-values(((v_182)(make-vector len_31 0)))" +"(let-values(((v_183)(make-vector len_31 0)))" "(begin" "(if(zero? len_31)" "(void)" @@ -36074,21 +36502,21 @@ static const char *startup_source = "(let-values()" "(check-range start_38 end_27 inc_21)))" "((letrec-values(((for-loop_0)" -"(lambda(i_159 pos_12)" +"(lambda(i_160 pos_12)" "(begin" " 'for-loop" "(if(< pos_12 end_27)" -"(let-values(((i_160)" +"(let-values(((i_161)" " pos_12))" "(let-values(((i_20)" -"(let-values(((i_161)" -" i_159))" +"(let-values(((i_162)" +" i_160))" "(let-values(((i_34)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_182" -" i_161" +" v_183" +" i_162" "(let-values()" "(if syntax-literals_5" "(vector-ref" @@ -36096,11 +36524,11 @@ static const char *startup_source = "(+" "(car" " syntax-literals-spec_0)" -" i_160))" +" i_161))" " #f)))" "(unsafe-fx+" " 1" -" i_161)))))" +" i_162)))))" "(values" " i_34)))))" "(if(if(not" @@ -36108,7 +36536,7 @@ static const char *startup_source = "(unsafe-fx=" " i_20" " len_31))" -" i_160))" +" i_161))" "(not #f)" " #f)" "(for-loop_0" @@ -36117,11 +36545,11 @@ static const char *startup_source = " pos_12" " inc_21))" " i_20)))" -" i_159)))))" +" i_160)))))" " for-loop_0)" " 0" " start_38)))))" -" v_182))))" +" v_183))))" "(map-construct-compiled-in-memory_0 pres_0 1)" "(map-construct-compiled-in-memory_0 posts_0 2)" " namespace-scopes_0" @@ -36150,13 +36578,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_22)))" -"((letrec-values(((for-loop_179)" +"((letrec-values(((for-loop_180)" "(lambda(fold-var_76 lst_159)" "(begin" " 'for-loop" "(if(pair? lst_159)" "(let-values(((name_61)(unsafe-car lst_159))" -"((rest_149)(unsafe-cdr lst_159)))" +"((rest_148)(unsafe-cdr lst_159)))" "(let-values(((fold-var_8)" "(let-values(((fold-var_219) fold-var_76))" "(let-values(((fold-var_155)" @@ -36172,9 +36600,9 @@ static const char *startup_source = " name_61))))" " fold-var_219))))" "(values fold-var_155)))))" -"(if(not #f)(for-loop_179 fold-var_8 rest_149) fold-var_8)))" +"(if(not #f)(for-loop_180 fold-var_8 rest_148) fold-var_8)))" " fold-var_76)))))" -" for-loop_179)" +" for-loop_180)" " null" " lst_22))))))))))))))" "(define-values" @@ -36193,39 +36621,39 @@ static const char *startup_source = "(begin" " 'eval-top7" "(let-values(((c_47) c5_0))" -"(let-values(((ns_66) ns6_0))" +"(let-values(((ns_65) ns6_0))" "(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_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-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-one-top15.1 #f #f c21_0 ns22_0 as-tail?23_0 #t))))))))))))" "(case-lambda" -"((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_50 ns_69 eval-compiled1_1)(eval-top7_0 c_50 ns_69 eval-compiled1_1 #f #t #f)))))" +"((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_50 ns_68 eval-compiled1_1)(eval-top7_0 c_50 ns_68 eval-compiled1_1 #f #t #f)))))" "(define-values" "(eval-multiple-tops)" -"(lambda(c_38 ns_70 eval-compiled_2 as-tail?_1)" +"(lambda(c_38 ns_69 eval-compiled_2 as-tail?_1)" "(begin" "(let-values(((eval-compiled-parts_0)" "(lambda(l_67)" "(begin" " 'eval-compiled-parts" -"((letrec-values(((loop_92)" +"((letrec-values(((loop_95)" "(lambda(l_68)" "(begin" " 'loop" "(if(null? l_68)" "(let-values() void)" "(if(null?(cdr l_68))" -"(let-values()(eval-compiled_2(car l_68) ns_70 as-tail?_1))" +"(let-values()(eval-compiled_2(car l_68) ns_69 as-tail?_1))" "(let-values()" "(begin" -"(eval-compiled_2(car l_68) ns_70 #f)" -"(loop_92(cdr l_68))))))))))" -" loop_92)" +"(eval-compiled_2(car l_68) ns_69 #f)" +"(loop_95(cdr l_68))))))))))" +" loop_95)" " l_67)))))" "(if(compiled-in-memory? c_38)" "(let-values()(eval-compiled-parts_0(compiled-in-memory-pre-compiled-in-memorys c_38)))" @@ -36236,7 +36664,7 @@ static const char *startup_source = "(create-compiled-in-memorys-using-shared-data" "(compiled-top->compiled-tops c_38)" "(hash-ref(1/linklet-bundle->hash(hash-ref(1/linklet-directory->hash data-ld_0) #f)) 0)" -" ns_70)))" +" ns_69)))" " c1_26)" "(let-values()(eval-compiled-parts_0(compiled-top->compiled-tops c_38))))))))))" "(define-values" @@ -36245,7 +36673,7 @@ static const char *startup_source = "(begin" " 'eval-one-top15" "(let-values(((c_51) c13_0))" -"(let-values(((ns_71) 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()" @@ -36257,15 +36685,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_71 #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_71)" -"((temp25_4)(namespace-phase ns_71))" -"((temp26_2)(namespace-mpi ns_71))" -"((temp27_4)(namespace-bulk-binding-registry ns_71))" +"(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" @@ -36275,7 +36703,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_18)(phase-(namespace-phase ns_71) orig-phase_1)))" +"(let-values(((phase-shift_18)(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)" @@ -36296,12 +36724,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_39 end_28 inc_22)))" -"((letrec-values(((for-loop_181)" +"((letrec-values(((for-loop_182)" "(lambda(prev-thunk_0 pos_100)" "(begin" " 'for-loop" "(if(> pos_100 end_28)" -"(let-values(((phase_94) pos_100))" +"(let-values(((phase_95) pos_100))" "(let-values(((prev-thunk_1)" "(let-values(((prev-thunk_2)" " prev-thunk_0))" @@ -36315,7 +36743,7 @@ static const char *startup_source = "(let-values(((module-uses_1)" "(hash-ref" " phase-to-link-modules_1" -" phase_94" +" phase_95" " null)))" "(let-values(((import-module-instances_2" " import-instances_1)" @@ -36341,7 +36769,7 @@ static const char *startup_source = "(let-values(((mu_9)" "(unsafe-car" " lst_158))" -"((rest_150)" +"((rest_149)" "(unsafe-cdr" " lst_158)))" "(let-values(((mis_8" @@ -36359,7 +36787,7 @@ static const char *startup_source = "(let-values(((temp33_1)" "(phase-" "(phase+" -" phase_94" +" phase_95" " phase-shift_18)" "(module-use-phase" " mu_9))))" @@ -36369,7 +36797,7 @@ static const char *startup_source = " #f" " #f" " #f" -" ns_71" +" ns_70" " mu_9)))))" "(values" "(cons" @@ -36386,7 +36814,7 @@ static const char *startup_source = "(for-loop_1" " mis_8" " is_7" -" rest_150)" +" rest_149)" "(values" " mis_8" " is_7))))" @@ -36404,9 +36832,9 @@ static const char *startup_source = " is_5)))))" "(let-values(((phase-ns_0)" "(namespace->namespace-at-phase" -" ns_71" +" ns_70" "(phase+" -" phase_94" +" phase_95" " phase-shift_18))))" "(let-values(((inst_6)" "(if single-expression?_1" @@ -36417,21 +36845,21 @@ static const char *startup_source = " phase-shift_18)" "((temp36_3)" "(namespace-mpi" -" ns_71))" +" ns_70))" "((temp37_1)" "(namespace-inspector" -" ns_71))" +" ns_70))" "((temp38_1)" "(namespace-bulk-binding-registry" -" ns_71))" +" ns_70))" "((temp39_3)" "(lambda(name_62" " val_67)" "(namespace-set-transformer!" -" ns_71" +" ns_70" "(phase+" "(sub1" -" phase_94)" +" phase_95)" " phase-shift_18)" " name_62" " val_67))))" @@ -36445,7 +36873,7 @@ static const char *startup_source = "(let-values(((linklet_10)" "(hash-ref" " h_11" -" phase_94" +" phase_95" " #f)))" "(if linklet_10" "(let-values()" @@ -36464,7 +36892,7 @@ static const char *startup_source = "((temp46_1)" "(hash-ref" " phase-to-link-extra-inspectorsss_3" -" phase_94" +" phase_95" " #f)))" "(check-require-access9.1" " temp41_2" @@ -36487,17 +36915,17 @@ static const char *startup_source = " inst_6" " import-instances_1)" "(namespace->instance" -" ns_71" +" ns_70" "(phase-" "(phase+" -" phase_94" +" phase_95" " phase-shift_18)" "(namespace-0-phase" -" ns_71)))" +" ns_70)))" "(not" " tail?_49))))))" "(if(zero-phase?" -" phase_94)" +" phase_95)" "(let-values()" " instantiate_0)" "(if single-expression?_1" @@ -36521,7 +36949,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " phase-ns_0" "(sub1" -" phase_94))))" +" phase_95))))" "(lambda(tail?_51)" "(begin" " 'prev-thunk" @@ -36552,12 +36980,12 @@ static const char *startup_source = "(values" " prev-thunk_3)))))" "(if(not #f)" -"(for-loop_181" +"(for-loop_182" " prev-thunk_1" "(+ pos_100 inc_22))" " prev-thunk_1)))" " prev-thunk_0)))))" -" for-loop_181)" +" for-loop_182)" " void" " start_39)))))" "(thunk_3 as-tail?_2))))))))))))))))))))" @@ -36580,7 +37008,7 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_32)))" -"(let-values(((v_183)(make-vector len_32 0)))" +"(let-values(((v_184)(make-vector len_32 0)))" "(begin" "(if(zero? len_32)" "(void)" @@ -36597,39 +37025,39 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(unsafe-fx< pos_101 len_33)" -"(let-values(((s_393)" +"(let-values(((s_394)" "(unsafe-vector-ref vec_62 pos_101)))" -"(let-values(((i_162)" -"(let-values(((i_163) i_30))" -"(let-values(((i_164)" +"(let-values(((i_163)" +"(let-values(((i_164) i_30))" +"(let-values(((i_165)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_183" -" i_163" +" v_184" +" i_164" "(let-values()" "(swap-top-level-scopes" -" s_393" +" s_394" "(compiled-in-memory-namespace-scopes" " cim_11)" " to-ns_0)))" "(unsafe-fx+" " 1" -" i_163)))))" -"(values i_164)))))" +" i_164)))))" +"(values i_165)))))" "(if(if(not" "((lambda x_74" -"(unsafe-fx= i_162 len_32))" -" s_393))" +"(unsafe-fx= i_163 len_32))" +" s_394))" "(not #f)" " #f)" -"(for-loop_6 i_162(unsafe-fx+ 1 pos_101))" -" i_162)))" +"(for-loop_6 i_163(unsafe-fx+ 1 pos_101))" +" i_163)))" " i_30)))))" " for-loop_6)" " 0" " 0)))))" -" v_183)))))))))" +" v_184)))))))))" "(1/make-instance" " 'link" " #f" @@ -36642,114 +37070,113 @@ static const char *startup_source = "(define-values(get-not-available)(lambda()(begin not-available)))" "(define-values" "(can-direct-eval?)" -"(lambda(p_41 ns_41)" +"(lambda(p_45 ns_41 self-mpi_3)" "(begin" -"(if(parsed-app? p_41)" +"(if(parsed-app? p_45)" "(let-values()" -"(if(can-direct-eval?(parsed-app-rator p_41) ns_41)" -"(let-values(((lst_71)(parsed-app-rands p_41)))" +"(if(can-direct-eval?(parsed-app-rator p_45) ns_41 self-mpi_3)" +"(let-values(((lst_95)(parsed-app-rands p_45)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_71)))" -"((letrec-values(((for-loop_90)" -"(lambda(result_70 lst_72)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_95)))" +"((letrec-values(((for-loop_107)" +"(lambda(result_108 lst_6)" "(begin" " 'for-loop" -"(if(pair? lst_72)" -"(let-values(((r_42)(unsafe-car lst_72))((rest_33)(unsafe-cdr lst_72)))" -"(let-values(((result_62)" +"(if(pair? lst_6)" +"(let-values(((r_42)(unsafe-car lst_6))((rest_46)(unsafe-cdr lst_6)))" +"(let-values(((result_72)" "(let-values()" -"(let-values(((result_108)" +"(let-values(((result_109)" "(let-values()" "(let-values()" -"(can-direct-eval? r_42 ns_41)))))" -"(values result_108)))))" -"(if(if(not((lambda x_75(not result_62)) r_42))(not #f) #f)" -"(for-loop_90 result_62 rest_33)" -" result_62)))" -" result_70)))))" -" for-loop_90)" +"(can-direct-eval? r_42 ns_41 self-mpi_3)))))" +"(values result_109)))))" +"(if(if(not((lambda x_75(not result_72)) r_42))(not #f) #f)" +"(for-loop_107 result_72 rest_46)" +" result_72)))" +" result_108)))))" +" for-loop_107)" " #t" -" lst_71)))" +" lst_95)))" " #f))" -"(if(parsed-id? p_41)" -"(let-values()(not(eq?(get-id-value p_41 ns_41) not-available)))" -"(if(parsed-quote? p_41)" +"(if(parsed-id? p_45)" +"(let-values()(not(eq?(get-id-value p_45 ns_41 self-mpi_3) not-available)))" +"(if(parsed-quote? p_45)" "(let-values() #t)" -"(if(parsed-quote-syntax? p_41)(let-values() #t)(let-values() #f))))))))" +"(if(parsed-quote-syntax? p_45)(let-values() #t)(let-values() #f))))))))" "(define-values" "(direct-eval)" -"(lambda(p_34 ns_66)" +"(lambda(p_47 ns_71 self-mpi_4)" "(begin" -"(if(parsed-app? p_34)" +"(if(parsed-app? p_47)" "(let-values()" "(apply" -"(direct-eval(parsed-app-rator p_34) ns_66)" +"(direct-eval(parsed-app-rator p_47) ns_71 self-mpi_4)" "(reverse$1" -"(let-values(((lst_219)(parsed-app-rands p_34)))" +"(let-values(((lst_73)(parsed-app-rands p_47)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_219)))" -"((letrec-values(((for-loop_237)" -"(lambda(fold-var_220 lst_261)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_73)))" +"((letrec-values(((for-loop_92)" +"(lambda(fold-var_220 lst_74)" "(begin" " 'for-loop" -"(if(pair? lst_261)" -"(let-values(((r_43)(unsafe-car lst_261))((rest_138)(unsafe-cdr lst_261)))" -"(let-values(((fold-var_217)" -"(let-values(((fold-var_30) fold-var_220))" +"(if(pair? lst_74)" +"(let-values(((r_8)(unsafe-car lst_74))((rest_34)(unsafe-cdr lst_74)))" "(let-values(((fold-var_218)" +"(let-values(((fold-var_62) fold-var_220))" +"(let-values(((fold-var_221)" "(let-values()" "(cons" -"(let-values()(direct-eval r_43 ns_66))" -" fold-var_30))))" -"(values fold-var_218)))))" -"(if(not #f)(for-loop_237 fold-var_217 rest_138) fold-var_217)))" +"(let-values()" +"(direct-eval r_8 ns_71 self-mpi_4))" +" fold-var_62))))" +"(values fold-var_221)))))" +"(if(not #f)(for-loop_92 fold-var_218 rest_34) fold-var_218)))" " fold-var_220)))))" -" for-loop_237)" +" for-loop_92)" " null" -" lst_219))))))" -"(if(parsed-id? p_34)" -"(let-values()(get-id-value p_34 ns_66))" -"(if(parsed-quote? p_34)" -"(let-values()(parsed-quote-datum p_34))" -"(if(parsed-quote-syntax? p_34)(let-values()(parsed-quote-syntax-datum p_34))(let-values() #f))))))))" +" lst_73))))))" +"(if(parsed-id? p_47)" +"(let-values()(get-id-value p_47 ns_71 self-mpi_4))" +"(if(parsed-quote? p_47)" +"(let-values()(parsed-quote-datum p_47))" +"(if(parsed-quote-syntax? p_47)(let-values()(parsed-quote-syntax-datum p_47))(let-values() #f))))))))" "(define-values" "(get-id-value)" -"(lambda(p_43 ns_72)" +"(lambda(p_1 ns_68 self-mpi_5)" "(begin" -"(let-values(((b_26)(parsed-id-binding p_43)))" -"(if(parsed-primitive-id? p_43)" -"(let-values()(hash-ref(1/primitive-table '#%kernel)(module-binding-sym b_26) get-not-available))" -"(if(let-values(((or-part_259)(parsed-top-id? p_43)))" -"(if or-part_259" -" or-part_259" -"(let-values(((or-part_160)(not b_26)))" -"(if or-part_160 or-part_160(eq?(namespace-mpi ns_72)(module-binding-module b_26))))))" +"(let-values(((b_74)(parsed-id-binding p_1)))" +"(if(parsed-primitive-id? p_1)" +"(let-values()(hash-ref(1/primitive-table '#%kernel)(module-binding-sym b_74) get-not-available))" +"(if(let-values(((or-part_82)(parsed-top-id? p_1)))" +"(if or-part_82" +" or-part_82" +"(let-values(((or-part_83)(not b_74)))" +"(if or-part_83 or-part_83(eq? self-mpi_5(module-binding-module b_74))))))" "(let-values()" "(namespace-get-variable" -" ns_72" -"(if b_26(module-binding-phase b_26)(namespace-phase ns_72))" -"(if b_26(module-binding-sym b_26)(syntax-e$1(parsed-s p_43)))" +" ns_68" +"(if b_74(module-binding-phase b_74)(namespace-phase ns_68))" +"(if b_74(module-binding-sym b_74)(syntax-e$1(parsed-s p_1)))" " get-not-available))" "(let-values()" "(let-values(((mi_18)" -"(let-values(((ns1_1) ns_72)" -"((temp2_4)(1/module-path-index-resolve(module-binding-module b_26)))" -"((temp3_4)(phase-(namespace-phase ns_72)(module-binding-phase b_26))))" +"(let-values(((ns1_1) ns_68)" +"((temp2_4)(1/module-path-index-resolve(module-binding-module b_74)))" +"((temp3_4)(phase-(namespace-phase ns_68)(module-binding-phase b_74))))" "(namespace->module-instance70.1 #f #f #f #f #f #f ns1_1 temp2_4 temp3_4))))" "(if(not mi_18)" "(let-values() not-available)" "(if(check-single-require-access" " mi_18" -"(module-binding-phase b_26)" -"(module-binding-sym b_26)" -"(module-binding-extra-inspector b_26))" +"(module-binding-phase b_74)" +"(module-binding-sym b_74)" +"(module-binding-extra-inspector b_74))" "(let-values()" "(namespace-get-variable" "(module-instance-namespace mi_18)" -"(module-binding-phase b_26)" -"(module-binding-sym b_26)" +"(module-binding-phase b_74)" +"(module-binding-sym b_74)" " get-not-available))" "(let-values() not-available)))))))))))" "(define-values(runtime-scope)(new-multi-scope))" @@ -36758,12 +37185,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_61)" "(begin" -"(let-values(((temp1_3)(syntax-scope-set runtime-stx 0))" -"((sym2_0) sym_60)" +"(let-values(((temp1_4)(syntax-scope-set runtime-stx 0))" +"((sym2_0) sym_61)" "((temp3_5)" -"(let-values(((runtime-mpi4_0) runtime-mpi)((temp5_5) 0)((sym6_1) sym_60))" +"(let-values(((runtime-mpi4_0) runtime-mpi)((temp5_5) 0)((sym6_1) sym_61))" "(make-module-binding22.1" " #f" " #f" @@ -36786,7 +37213,7 @@ static const char *startup_source = " runtime-mpi4_0" " temp5_5" " sym6_1))))" -"(add-binding-in-scopes!20.1 #f #f temp1_3 sym2_0 temp3_5)))))" +"(add-binding-in-scopes!20.1 #f #f temp1_4 sym2_0 temp3_5)))))" "(void" "(begin" "(add-runtime-primitive! 'values)" @@ -36799,7 +37226,7 @@ static const char *startup_source = "(define-values" "(runtime-instances)" " '(#%kernel #%paramz #%foreign #%unsafe #%flfxnum #%extfl #%network #%place #%futures))" -"(define-values(box-cons!)(lambda(b_16 v_68)(begin(set-box! b_16(cons v_68(unbox b_16))))))" +"(define-values(box-cons!)(lambda(b_16 v_71)(begin(set-box! b_16(cons v_71(unbox b_16))))))" "(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?)" @@ -36837,33 +37264,33 @@ static const char *startup_source = "(let-values()(lift-context1.1 convert_0(box null) module*-ok?_0)))))))" "(define-values" "(add-lifted!)" -"(lambda(lifts_1 ids_16 rhs_12 phase_95)" +"(lambda(lifts_1 ids_16 rhs_12 phase_96)" "(begin" -"(let-values(((lifted-ids_0 lifted_0)((lift-context-convert lifts_1) ids_16 rhs_12 phase_95)))" +"(let-values(((lifted-ids_0 lifted_0)((lift-context-convert lifts_1) ids_16 rhs_12 phase_96)))" "(begin(box-cons!(lift-context-lifts lifts_1) lifted_0) lifted-ids_0)))))" "(define-values(get-and-clear-lifts!)(lambda(lifts_2)(begin(box-clear!(lift-context-lifts lifts_2)))))" "(define-values" "(make-local-lift)" "(lambda(lift-env_1 counter_3)" "(begin" -"(lambda(ids_17 rhs_13 phase_96)" +"(lambda(ids_17 rhs_13 phase_97)" "(let-values(((keys_2)" "(reverse$1" -"(let-values(((lst_275) ids_17))" +"(let-values(((lst_272) ids_17))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_275)))" +"(let-values()(check-list lst_272)))" "((letrec-values(((for-loop_238)" -"(lambda(fold-var_221 lst_276)" +"(lambda(fold-var_222 lst_273)" "(begin" " 'for-loop" -"(if(pair? lst_276)" -"(let-values(((id_54)(unsafe-car lst_276))" -"((rest_151)(unsafe-cdr lst_276)))" +"(if(pair? lst_273)" +"(let-values(((id_54)(unsafe-car lst_273))" +"((rest_150)(unsafe-cdr lst_273)))" "(let-values(((fold-var_80)" -"(let-values(((fold-var_81) fold-var_221))" -"(let-values(((fold-var_222)" +"(let-values(((fold-var_81) fold-var_222))" +"(let-values(((fold-var_223)" "(let-values()" "(cons" "(let-values()" @@ -36871,7 +37298,7 @@ static const char *startup_source = "(let-values(((id32_1)" " id_54)" "((phase33_1)" -" phase_96)" +" phase_97)" "((counter34_1)" " counter_3))" "(add-local-binding!35.1" @@ -36891,12 +37318,12 @@ static const char *startup_source = " variable))" " key_76)))" " fold-var_81))))" -"(values fold-var_222)))))" -"(if(not #f)(for-loop_238 fold-var_80 rest_151) fold-var_80)))" -" fold-var_221)))))" +"(values fold-var_223)))))" +"(if(not #f)(for-loop_238 fold-var_80 rest_150) fold-var_80)))" +" fold-var_222)))))" " for-loop_238)" " null" -" lst_275))))))" +" lst_272))))))" "(values ids_17(lifted-bind2.1 ids_17 keys_2 rhs_13)))))))" "(define-values" "(make-top-level-lift)" @@ -36908,47 +37335,47 @@ 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_267) ids_18))" +"(let-values(((lst_264) ids_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_267)))" +"(let-values()(check-list lst_264)))" "((letrec-values(((for-loop_225)" -"(lambda(fold-var_223 lst_178)" +"(lambda(fold-var_224 lst_178)" "(begin" " 'for-loop" "(if(pair? lst_178)" -"(let-values(((id_56)(unsafe-car lst_178))" -"((rest_152)(unsafe-cdr lst_178)))" -"(let-values(((fold-var_224)" -"(let-values(((fold-var_225) fold-var_223))" -"(let-values(((fold-var_226)" +"(let-values(((id_57)(unsafe-car lst_178))" +"((rest_151)(unsafe-cdr lst_178)))" +"(let-values(((fold-var_225)" +"(let-values(((fold-var_226) fold-var_224))" +"(let-values(((fold-var_227)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_56" +" id_57" " post-scope_0))" -" fold-var_225))))" -"(values fold-var_226)))))" +" fold-var_226))))" +"(values fold-var_227)))))" "(if(not #f)" -"(for-loop_225 fold-var_224 rest_152)" -" fold-var_224)))" -" fold-var_223)))))" +"(for-loop_225 fold-var_225 rest_151)" +" fold-var_225)))" +" fold-var_224)))))" " for-loop_225)" " null" -" lst_267))))))" +" lst_264))))))" "(let-values(((syms_20)(select-defined-syms-and-bind!/ctx tl-ids_1 ctx_11)))" "(values tl-ids_1(lifted-bind2.1 tl-ids_1 syms_20 rhs_14)))))))))" "(define-values" "(wrap-lifts-as-let)" -"(lambda(lifts_3 body_5 phase_97)" +"(lambda(lifts_3 body_5 phase_24)" "(begin" "(datum->syntax$1" " #f" -"(let-values(((lst_277)(reverse$1 lifts_3)))" +"(let-values(((lst_274)(reverse$1 lifts_3)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_277)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_274)))" "((letrec-values(((for-loop_239)" "(lambda(body_6 lst_185)" "(begin" @@ -36966,7 +37393,7 @@ static const char *startup_source = " (error \"non-bindings in `lift-context`\")))" "(list" "(datum->syntax$1" -"(syntax-shift-phase-level$1 core-stx phase_97)" +"(syntax-shift-phase-level$1 core-stx phase_24)" " 'let-values)" "(list" "(list" @@ -36978,7 +37405,7 @@ static const char *startup_source = " body_6)))))" " for-loop_239)" " body_5" -" lst_277)))))))" +" lst_274)))))))" "(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)" @@ -36996,21 +37423,21 @@ static const char *startup_source = "(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_98) 'begin)" "(append" "(reverse$1" -"(let-values(((lst_278) lifts_4))" +"(let-values(((lst_275) lifts_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_278)))" -"((letrec-values(((for-loop_184)" -"(lambda(fold-var_227 lst_279)" +"(let-values()(check-list lst_275)))" +"((letrec-values(((for-loop_185)" +"(lambda(fold-var_228 lst_276)" "(begin" " 'for-loop" -"(if(pair? lst_279)" -"(let-values(((lift_1)(unsafe-car lst_279))" -"((rest_153)(unsafe-cdr lst_279)))" +"(if(pair? lst_276)" +"(let-values(((lift_1)(unsafe-car lst_276))" +"((rest_152)(unsafe-cdr lst_276)))" "(let-values(((fold-var_3)" -"(let-values(((fold-var_88) fold-var_227))" -"(let-values(((fold-var_228)" +"(let-values(((fold-var_88) fold-var_228))" +"(let-values(((fold-var_229)" "(let-values()" "(cons" "(let-values()" @@ -37030,30 +37457,30 @@ static const char *startup_source = " lift_1))))" "(let-values() lift_1))))" " fold-var_88))))" -"(values fold-var_228)))))" -"(if(not #f)(for-loop_184 fold-var_3 rest_153) fold-var_3)))" -" fold-var_227)))))" -" for-loop_184)" +"(values fold-var_229)))))" +"(if(not #f)(for-loop_185 fold-var_3 rest_152) fold-var_3)))" +" fold-var_228)))))" +" for-loop_185)" " null" -" lst_278))))" +" lst_275))))" "(list(adjust-body_0 body_10))))))))))))))" "(define-values" "(get-lifts-as-lists)" "(lambda(lifts_5)" "(begin" "(reverse$1" -"(let-values(((lst_280) lifts_5))" +"(let-values(((lst_277) lifts_5))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_280)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_277)))" "((letrec-values(((for-loop_240)" -"(lambda(fold-var_181 lst_281)" +"(lambda(fold-var_181 lst_278)" "(begin" " 'for-loop" -"(if(pair? lst_281)" -"(let-values(((lift_2)(unsafe-car lst_281))((rest_154)(unsafe-cdr lst_281)))" -"(let-values(((fold-var_229)" -"(let-values(((fold-var_230) fold-var_181))" -"(let-values(((fold-var_231)" +"(if(pair? lst_278)" +"(let-values(((lift_2)(unsafe-car lst_278))((rest_153)(unsafe-cdr lst_278)))" +"(let-values(((fold-var_230)" +"(let-values(((fold-var_231) fold-var_181))" +"(let-values(((fold-var_232)" "(let-values()" "(cons" "(let-values()" @@ -37061,13 +37488,13 @@ static const char *startup_source = "(lifted-bind-ids lift_2)" "(lifted-bind-keys lift_2)" "(lifted-bind-rhs lift_2)))" -" fold-var_230))))" -"(values fold-var_231)))))" -"(if(not #f)(for-loop_240 fold-var_229 rest_154) fold-var_229)))" +" fold-var_231))))" +"(values fold-var_232)))))" +"(if(not #f)(for-loop_240 fold-var_230 rest_153) fold-var_230)))" " fold-var_181)))))" " for-loop_240)" " null" -" lst_280)))))))" +" lst_277)))))))" "(define-values" "(struct:module-lift-context" " module-lift-context19.1" @@ -37105,34 +37532,34 @@ 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_394 phase_100)" +"(lambda(module-lifts_2 s_395 phase_100)" "(begin" "(begin" -"(if(let-values(((or-part_260)" +"(if(let-values(((or-part_266)" "(if(module-lift-context? module-lifts_2)" "(module-lift-context-module*-ok? module-lifts_2)" " #f)))" -"(if or-part_260" -" or-part_260" +"(if or-part_266" +" or-part_266" "(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_394 phase_100)))" -"(if(equal? tmp_30 'module)" +"(let-values(((tmp_31)(core-form-sym s_395 phase_100)))" +"(if(equal? tmp_31 'module)" "(let-values()(void))" -"(if(equal? tmp_30 'module*)" +"(if(equal? tmp_31 'module*)" "(let-values()" "(raise-arguments-error" " 'syntax-local-lift-module" " \"cannot lift `module*' to a top-level context\"" " \"syntax\"" -" s_394))" +" s_395))" "(let-values()" -" (raise-arguments-error 'syntax-local-lift-module \"not a `module' declaration\" \"syntax\" s_394)))))))" +" (raise-arguments-error 'syntax-local-lift-module \"not a `module' declaration\" \"syntax\" s_395)))))))" "(if(module-lift-context? module-lifts_2)" -"(let-values()(box-cons!(module-lift-context-lifts module-lifts_2) s_394))" +"(let-values()(box-cons!(module-lift-context-lifts module-lifts_2) s_395))" "(if(lift-context? module-lifts_2)" -"(let-values()(box-cons!(lift-context-lifts module-lifts_2) s_394))" +"(let-values()(box-cons!(lift-context-lifts module-lifts_2) s_395))" " (let-values () (error \"internal error: unrecognized lift-context type for module lift\"))))))))" "(define-values" "(struct:require-lift-context" @@ -37212,10 +37639,10 @@ static const char *startup_source = "(lambda(end-as-expressions?23_0 shared-module-ends22_0 phase26_1)" "(begin" " 'make-to-module-lift-context27" -"(let-values(((phase_93) phase26_1))" +"(let-values(((phase_94) phase26_1))" "(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_93(box null) end-as-expressions?_0 ends_0))))))))" +"(let-values()(to-module-lift-context21.1 phase_94(box null) end-as-expressions?_0 ends_0))))))))" "(define-values(make-shared-module-ends)(lambda()(begin(box null))))" "(define-values" "(get-and-clear-end-lifts!)" @@ -37229,8 +37656,8 @@ static const char *startup_source = "(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_213))))" "(define-values" "(add-lifted-to-module-end!)" -"(lambda(to-module-lifts_4 s_395 phase_103)" -"(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_395))))" +"(lambda(to-module-lifts_4 s_396 phase_103)" +"(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_396))))" "(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)" @@ -37279,15 +37706,15 @@ static const char *startup_source = "(1/prop:expansion-contexts expansion-contexts? expansion-contexts-ref)" "(make-struct-type-property" " 'expansion-contexts" -"(lambda(v_26 info_1)" +"(lambda(v_29 info_1)" "(begin" -"(if(if(list? v_26)" -"(let-values(((lst_71) v_26))" +"(if(if(list? v_29)" +"(let-values(((lst_71) v_29))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_71)))" -"((letrec-values(((for-loop_90)" +"((letrec-values(((for-loop_91)" "(lambda(result_70 lst_72)" "(begin" " 'for-loop" @@ -37295,7 +37722,7 @@ static const char *startup_source = "(let-values(((s_2)(unsafe-car lst_72))((rest_33)(unsafe-cdr lst_72)))" "(let-values(((result_62)" "(let-values()" -"(let-values(((result_108)" +"(let-values(((result_110)" "(let-values()" "(let-values()" "(memq" @@ -37305,12 +37732,12 @@ static const char *startup_source = " module" " module-begin" " definition-context))))))" -"(values result_108)))))" -"(if(if(not((lambda x_75(not result_62)) s_2))(not #f) #f)" -"(for-loop_90 result_62 rest_33)" +"(values result_110)))))" +"(if(if(not((lambda x_76(not result_62)) s_2))(not #f) #f)" +"(for-loop_91 result_62 rest_33)" " result_62)))" " result_70)))))" -" for-loop_90)" +" for-loop_91)" " #t" " lst_71)))" " #f)" @@ -37319,8 +37746,8 @@ static const char *startup_source = "(raise-argument-error" " 'guard-for-prop:expansion-contexts" " \"(listof (or/c 'expression 'top-level 'module 'module-begin 'definition-context))\"" -" v_26)))" -" v_26))))" +" v_29)))" +" v_29))))" "(define-values" "(not-in-this-expand-context?)" "(lambda(t_42 ctx_12)" @@ -37334,13 +37761,13 @@ static const char *startup_source = "(lambda(s_170 t_43 ctx_13)" "(begin" "(let-values(((wrap_1)" -"(lambda(sym_61)" +"(lambda(sym_62)" "(begin" " 'wrap" "(datum->syntax$1" " #f" "(list" -"(syntax-shift-phase-level$1(datum->syntax$1 core-stx sym_61)(expand-context-phase ctx_13))" +"(syntax-shift-phase-level$1(datum->syntax$1 core-stx sym_62)(expand-context-phase ctx_13))" " s_170))))))" "(let-values(((fail_0)" "(lambda()" @@ -37352,10 +37779,10 @@ static const char *startup_source = " \"not allowed in context\\n expansion context: ~a\"" "(context->symbol(expand-context-context ctx_13)))" " s_170)))))" -"(let-values(((tmp_31)(context->symbol(expand-context-context ctx_13))))" -"(if(equal? tmp_31 'module-begin)" +"(let-values(((tmp_32)(context->symbol(expand-context-context ctx_13))))" +"(if(equal? tmp_32 'module-begin)" "(let-values()(wrap_1 'begin))" -"(if(if(equal? tmp_31 'module) #t(if(equal? tmp_31 'top-level) #t(equal? tmp_31 'definition-context)))" +"(if(if(equal? tmp_32 'module) #t(if(equal? tmp_32 'top-level) #t(equal? tmp_32 'definition-context)))" "(let-values()(if(memq 'expression(expansion-contexts-ref t_43))(wrap_1 '#%expression)(fail_0)))" "(let-values()(fail_0))))))))))" "(define-values" @@ -37400,7 +37827,7 @@ static const char *startup_source = "(let-values(((lst_39) rrs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_39)))" -"((letrec-values(((for-loop_178)" +"((letrec-values(((for-loop_179)" "(lambda(lst_84)" "(begin" " 'for-loop" @@ -37417,9 +37844,9 @@ static const char *startup_source = "(let-values()" "(set-reference-record-all-referenced?! rr_1 #t))" "(values)))))" -"(if(post-guard-var_0)(for-loop_178 rest_116)(values))))))))" +"(if(post-guard-var_0)(for-loop_179 rest_116)(values))))))))" "(values))))))" -" for-loop_178)" +" for-loop_179)" " lst_39)))" "(void)))))" "(define-values" @@ -37437,12 +37864,12 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_76)" -"(let-values(((key_78)(unsafe-car lst_76))((rest_141)(unsafe-cdr lst_76)))" +"(let-values(((key_78)(unsafe-car lst_76))((rest_140)(unsafe-cdr lst_76)))" "(let-values(((ab_4)" "(let-values(((ab_5) ab_3))" "(let-values(((ab_6)(let-values()(set-add ab_5 key_78))))" "(values ab_6)))))" -"(if(not #f)(for-loop_241 ab_4 rest_141) ab_4)))" +"(if(not #f)(for-loop_241 ab_4 rest_140) ab_4)))" " ab_3)))))" " for-loop_241)" "(reference-record-already-bound rr_2)" @@ -37471,8 +37898,8 @@ static const char *startup_source = "(reference-record-forward-references?)" "(lambda(rr_3)" "(begin" -"(let-values(((or-part_167)(reference-record-all-referenced? rr_3)))" -"(if or-part_167 or-part_167(positive?(set-count(reference-record-reference-before-bound rr_3))))))))" +"(let-values(((or-part_174)(reference-record-all-referenced? rr_3)))" +"(if or-part_174 or-part_174(positive?(set-count(reference-record-reference-before-bound rr_3))))))))" "(define-values" "(reference-record-clear!)" "(lambda(rr_4)" @@ -37480,19 +37907,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_80 . args_5)" +"(lambda(obs_0 key_80 . args_8)" "(begin" "(begin" "(let-values(((c1_27)(hash-ref key->arity key_80 #f)))" "(if c1_27" "((lambda(arity_2)" -"(if(let-values(((or-part_34)(eq? arity_2 'any)))" -"(if or-part_34 or-part_34(eqv?(length args_5) arity_2)))" +"(if(let-values(((or-part_40)(eq? arity_2 'any)))" +"(if or-part_40 or-part_40(eqv?(length args_8) arity_2)))" "(void)" -" (let-values () (error 'call-expand-observe \"wrong arity for ~s: ~e\" key_80 args_5))))" +" (let-values () (error 'call-expand-observe \"wrong arity for ~s: ~e\" key_80 args_8))))" " c1_27)" " (let-values () (error 'call-expand-observe \"bad key: ~s\" key_80))))" -"(obs_0 key_80(if(null? args_5)(let-values() #f)(let-values()(apply list* args_5))))))))" +"(obs_0 key_80(if(null? args_8)(let-values() #f)(let-values()(apply list* args_8))))))))" "(define-values" "(key->arity)" " '#hash((block->letrec . 1)" @@ -37678,19 +38105,19 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_173)))" "((letrec-values(((for-loop_242)" -"(lambda(fold-var_5 lst_282)" +"(lambda(fold-var_5 lst_279)" "(begin" " 'for-loop" -"(if(pair? lst_282)" -"(let-values(((i_27)(unsafe-car lst_282))((rest_81)(unsafe-cdr lst_282)))" +"(if(pair? lst_279)" +"(let-values(((i_27)(unsafe-car lst_279))((rest_81)(unsafe-cdr lst_279)))" "(let-values(((fold-var_219)" "(let-values(((fold-var_155) fold-var_5))" -"(if(let-values(((or-part_69)(parsed? i_27)))" -"(if or-part_69" -" or-part_69" -"(let-values(((or-part_225)(expanded+parsed? i_27)))" -"(if or-part_225" -" or-part_225" +"(if(let-values(((or-part_75)(parsed? i_27)))" +"(if or-part_75" +" or-part_75" +"(let-values(((or-part_232)(expanded+parsed? i_27)))" +"(if or-part_232" +" or-part_232" "(semi-parsed-begin-for-syntax? i_27)))))" "(let-values(((fold-var_173) fold-var_155))" "(let-values(((fold-var_174)" @@ -37721,26 +38148,26 @@ static const char *startup_source = "(lambda(l_70)" "(begin" "(reverse$1" -"(let-values(((lst_275) l_70))" +"(let-values(((lst_272) l_70))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_275)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_272)))" "((letrec-values(((for-loop_238)" -"(lambda(fold-var_221 lst_276)" +"(lambda(fold-var_222 lst_273)" "(begin" " 'for-loop" -"(if(pair? lst_276)" -"(let-values(((i_35)(unsafe-car lst_276))((rest_151)(unsafe-cdr lst_276)))" +"(if(pair? lst_273)" +"(let-values(((i_35)(unsafe-car lst_273))((rest_150)(unsafe-cdr lst_273)))" "(let-values(((fold-var_80)" -"(let-values(((fold-var_81) fold-var_221))" -"(if(let-values(((or-part_209)(syntax?$1 i_35)))" -"(if or-part_209" -" or-part_209" -"(let-values(((or-part_261)(expanded+parsed? i_35)))" -"(if or-part_261" -" or-part_261" +"(let-values(((fold-var_81) fold-var_222))" +"(if(let-values(((or-part_217)(syntax?$1 i_35)))" +"(if or-part_217" +" or-part_217" +"(let-values(((or-part_267)(expanded+parsed? i_35)))" +"(if or-part_267" +" or-part_267" "(semi-parsed-begin-for-syntax? i_35)))))" "(let-values(((fold-var_82) fold-var_81))" -"(let-values(((fold-var_232)" +"(let-values(((fold-var_233)" "(let-values()" "(cons" "(let-values()" @@ -37748,7 +38175,7 @@ static const char *startup_source = "(let-values()(expanded+parsed-s i_35))" "(if(semi-parsed-begin-for-syntax? i_35)" "(let-values()" -"(let-values(((s_396)" +"(let-values(((s_397)" "(semi-parsed-begin-for-syntax-s" " i_35)))" "(let-values(((nested-bodys_0)" @@ -37756,22 +38183,22 @@ static const char *startup_source = " i_35)))" "(let-values(((disarmed-s_0)" "(syntax-disarm$1" -" s_396)))" +" s_397)))" "(let-values(((ok?_27" " begin-for-syntax7_0" " _8_0)" -"(let-values(((s_397)" +"(let-values(((s_398)" " disarmed-s_0))" "(let-values(((orig-s_32)" -" s_397))" +" s_398))" "(let-values(((begin-for-syntax7_1" " _8_1)" "(let-values(((s_27)" "(if(syntax?$1" -" s_397)" +" s_398)" "(syntax-e$1" -" s_397)" -" s_397)))" +" s_398)" +" s_398)))" "(if(pair?" " s_27)" "(let-values(((begin-for-syntax9_0)" @@ -37812,7 +38239,7 @@ static const char *startup_source = " #t" " begin-for-syntax7_1" " _8_1))))))" -"(let-values(((s11_0) s_396)" +"(let-values(((s11_0) s_397)" "((temp12_2)" "(list*" " begin-for-syntax7_0" @@ -37825,19 +38252,19 @@ static const char *startup_source = " temp12_2)))))))" "(let-values() i_35))))" " fold-var_82))))" -"(values fold-var_232)))" +"(values fold-var_233)))" " fold-var_81))))" -"(if(not #f)(for-loop_238 fold-var_80 rest_151) fold-var_80)))" -" fold-var_221)))))" +"(if(not #f)(for-loop_238 fold-var_80 rest_150) fold-var_80)))" +" fold-var_222)))))" " for-loop_238)" " null" -" lst_275)))))))" +" lst_272)))))))" "(define-values" "(expand7.1)" "(lambda(alternate-id1_0 alternate-id3_0 skip-log?2_0 skip-log?4_0 s5_0 ctx6_0)" "(begin" " 'expand7" -"(let-values(((s_398) s5_0))" +"(let-values(((s_399) s5_0))" "(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)))" @@ -37851,25 +38278,25 @@ static const char *startup_source = "(call-expand-observe" " obs_1" "(if(expand-context-only-immediate? ctx_14) 'enter-check 'visit)" -" s_398))" +" s_399))" "(void)))" "(void)))" -"(if(identifier? s_398)" -"(let-values()(expand-identifier s_398 ctx_14 alternate-id_0))" -"(if(if(pair?(syntax-content s_398))(identifier?(car(syntax-content s_398))) #f)" -"(let-values()(expand-id-application-form s_398 ctx_14 alternate-id_0))" -"(if(let-values(((or-part_29)(pair?(syntax-content s_398))))" -"(if or-part_29 or-part_29(null?(syntax-content s_398))))" -"(let-values()(expand-implicit '#%app s_398 ctx_14 #f))" -"(if(already-expanded?(syntax-content s_398))" -"(let-values()(expand-already-expanded s_398 ctx_14))" -"(let-values()(expand-implicit '#%datum s_398 ctx_14 #f)))))))))))))))" +"(if(identifier? s_399)" +"(let-values()(expand-identifier s_399 ctx_14 alternate-id_0))" +"(if(if(pair?(syntax-content s_399))(identifier?(car(syntax-content s_399))) #f)" +"(let-values()(expand-id-application-form s_399 ctx_14 alternate-id_0))" +"(if(let-values(((or-part_35)(pair?(syntax-content s_399))))" +"(if or-part_35 or-part_35(null?(syntax-content s_399))))" +"(let-values()(expand-implicit '#%app s_399 ctx_14 #f))" +"(if(already-expanded?(syntax-content s_399))" +"(let-values()(expand-already-expanded s_399 ctx_14))" +"(let-values()(expand-implicit '#%datum s_399 ctx_14 #f)))))))))))))))" "(define-values" "(expand-identifier)" "(lambda(s_43 ctx_15 alternate-id_1)" "(begin" -"(let-values(((id_57)(let-values(((or-part_166) alternate-id_1))(if or-part_166 or-part_166 s_43))))" -"(if(free-id-set-member?(expand-context-stops ctx_15)(expand-context-phase ctx_15) id_57)" +"(let-values(((id_58)(let-values(((or-part_173) alternate-id_1))(if or-part_173 or-part_173 s_43))))" +"(if(free-id-set-member?(expand-context-stops ctx_15)(expand-context-phase ctx_15) id_58)" "(let-values()" "(begin" "(let-values(((obs_2)(expand-context-observer ctx_15)))" @@ -37878,7 +38305,7 @@ static const char *startup_source = "(if(not(expand-context-only-immediate? ctx_15))" "(let-values()" "(begin" -"(call-expand-observe obs_2 'resolve id_57)" +"(call-expand-observe obs_2 'resolve id_58)" "(call-expand-observe obs_2 'enter-prim s_43)" "(call-expand-observe obs_2 'prim-stop)" "(call-expand-observe obs_2 'exit-prim s_43)" @@ -37891,33 +38318,33 @@ static const char *startup_source = "(let-values(((temp78_2)(expand-context-phase ctx_15))" "((temp79_0) 'ambiguous)" "((temp80_1) #t))" -"(resolve+shift30.1 temp79_0 #t #f #f #f #f temp80_1 #t #f #f id_57 temp78_2))))" +"(resolve+shift30.1 temp79_0 #t #f #f #f #f temp80_1 #t #f #f id_58 temp78_2))))" "(begin" "(let-values(((obs_3)(expand-context-observer ctx_15)))" "(if obs_3" "(let-values()" "(if(not(expand-context-only-immediate? ctx_15))" -"(let-values()(call-expand-observe obs_3 'resolve id_57))" +"(let-values()(call-expand-observe obs_3 'resolve id_58))" "(void)))" "(void)))" "(if(eq? binding_19 'ambiguous)" -"(let-values()(raise-ambiguous-error id_57 ctx_15))" +"(let-values()(raise-ambiguous-error id_58 ctx_15))" "(if(not binding_19)" "(let-values()(expand-implicit '#%top(substitute-alternate-id s_43 alternate-id_1) ctx_15 s_43))" "(let-values()" "(let-values(((t_44 primitive?_2 insp-of-t_0)" "(let-values(((temp84_0)(if alternate-id_1 s_43 #f))" "((temp85_0)(expand-context-in-local-expand? ctx_15)))" -"(lookup17.1 temp84_0 #t temp85_0 #t binding_19 ctx_15 id_57))))" -"(dispatch t_44 insp-of-t_0 s_43 id_57 ctx_15 binding_19 primitive?_2)))))))))))))" +"(lookup17.1 temp84_0 #t temp85_0 #t binding_19 ctx_15 id_58))))" +"(dispatch t_44 insp-of-t_0 s_43 id_58 ctx_15 binding_19 primitive?_2)))))))))))))" "(define-values" "(expand-id-application-form)" -"(lambda(s_399 ctx_16 alternate-id_2)" +"(lambda(s_400 ctx_16 alternate-id_2)" "(begin" -"(let-values(((id_58)" -"(let-values(((or-part_262) alternate-id_2))" -"(if or-part_262 or-part_262(car(syntax-e/no-taint s_399))))))" -"(if(free-id-set-member?(expand-context-stops ctx_16)(expand-context-phase ctx_16) id_58)" +"(let-values(((id_59)" +"(let-values(((or-part_268) alternate-id_2))" +"(if or-part_268 or-part_268(car(syntax-e/no-taint s_400))))))" +"(if(free-id-set-member?(expand-context-stops ctx_16)(expand-context-phase ctx_16) id_59)" "(let-values()" "(begin" "(let-values(((obs_4)(expand-context-observer ctx_16)))" @@ -37926,42 +38353,42 @@ static const char *startup_source = "(if(not(expand-context-only-immediate? ctx_16))" "(let-values()" "(begin" -"(call-expand-observe obs_4 'resolve id_58)" -"(call-expand-observe obs_4 'enter-prim s_399)" +"(call-expand-observe obs_4 'resolve id_59)" +"(call-expand-observe obs_4 'enter-prim s_400)" "(call-expand-observe obs_4 'prim-stop)" -"(call-expand-observe obs_4 'exit-prim s_399)" -"(call-expand-observe obs_4 'return s_399)))" +"(call-expand-observe obs_4 'exit-prim s_400)" +"(call-expand-observe obs_4 'return s_400)))" "(void)))" "(void)))" -" s_399))" +" s_400))" "(let-values()" "(let-values(((binding_20)" "(let-values(((temp87_1)(expand-context-phase ctx_16))" "((temp88_1) 'ambiguous)" "((temp89_1) #t))" -"(resolve+shift30.1 temp88_1 #t #f #f #f #f temp89_1 #t #f #f id_58 temp87_1))))" +"(resolve+shift30.1 temp88_1 #t #f #f #f #f temp89_1 #t #f #f id_59 temp87_1))))" "(begin" "(let-values(((obs_5)(expand-context-observer ctx_16)))" "(if obs_5" "(let-values()" "(if(not(expand-context-only-immediate? ctx_16))" -"(let-values()(call-expand-observe obs_5 'resolve id_58))" +"(let-values()(call-expand-observe obs_5 'resolve id_59))" "(void)))" "(void)))" "(if(eq? binding_20 'ambiguous)" -"(let-values()(raise-ambiguous-error id_58 ctx_16))" +"(let-values()(raise-ambiguous-error id_59 ctx_16))" "(if(not binding_20)" -"(let-values()(expand-implicit '#%app(substitute-alternate-id s_399 alternate-id_2) ctx_16 id_58))" +"(let-values()(expand-implicit '#%app(substitute-alternate-id s_400 alternate-id_2) ctx_16 id_59))" "(let-values()" "(let-values(((t_45 primitive?_3 insp-of-t_1)" -"(let-values(((temp93_2)(if alternate-id_2(car(syntax-e/no-taint s_399)) #f))" +"(let-values(((temp93_2)(if alternate-id_2(car(syntax-e/no-taint s_400)) #f))" "((temp94_1)(expand-context-in-local-expand? ctx_16)))" -"(lookup17.1 temp93_2 #t temp94_1 #t binding_20 ctx_16 id_58))))" +"(lookup17.1 temp93_2 #t temp94_1 #t binding_20 ctx_16 id_59))))" "(if(variable? t_45)" "(let-values()" -"(expand-implicit '#%app(substitute-alternate-id s_399 alternate-id_2) ctx_16 id_58))" +"(expand-implicit '#%app(substitute-alternate-id s_400 alternate-id_2) ctx_16 id_59))" "(let-values()" -"(dispatch t_45 insp-of-t_1 s_399 id_58 ctx_16 binding_20 primitive?_3)))))))))))))))" +"(dispatch t_45 insp-of-t_1 s_400 id_59 ctx_16 binding_20 primitive?_3)))))))))))))))" "(define-values" "(expand-implicit)" "(lambda(sym_25 s_17 ctx_17 trigger-id_1)" @@ -38068,14 +38495,14 @@ static const char *startup_source = "(let-values(((ae_0)(syntax-e$1 s_163)))" "(let-values(((exp-s_0)(already-expanded-s ae_0)))" "(begin" -"(if(let-values(((or-part_263)(syntax-any-macro-scopes? s_163)))" -"(if or-part_263" -" or-part_263" -"(let-values(((or-part_264)" +"(if(let-values(((or-part_269)(syntax-any-macro-scopes? s_163)))" +"(if or-part_269" +" or-part_269" +"(let-values(((or-part_270)" "(not" "(eq?(expand-context-binding-layer ctx_18)(already-expanded-binding-layer ae_0)))))" -"(if or-part_264" -" or-part_264" +"(if or-part_270" +" or-part_270" "(if(parsed? exp-s_0)" "(not" "(if(expand-context-to-parsed? ctx_18)" @@ -38105,25 +38532,25 @@ static const char *startup_source = " result-s_1)))))))))))" "(define-values" "(make-explicit)" -"(lambda(ctx_19 sym_62 s_77 disarmed-s_2)" +"(lambda(ctx_19 sym_63 s_77 disarmed-s_2)" "(begin" "(let-values(((new-s_0)" -"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_62 disarmed-s_2) s_77 s_77) s_77)))" +"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_63 disarmed-s_2) s_77 s_77) s_77)))" "(begin" "(let-values(((obs_10)(expand-context-observer ctx_19)))" "(if obs_10(let-values()(let-values()(call-expand-observe obs_10 'tag new-s_0)))(void)))" " new-s_0)))))" "(define-values" "(dispatch)" -"(lambda(t_31 insp-of-t_3 s_397 id_59 ctx_20 binding_21 primitive?_5)" +"(lambda(t_31 insp-of-t_3 s_398 id_60 ctx_20 binding_21 primitive?_5)" "(begin" "(if(core-form? t_31)" -"(let-values()(dispatch-core-form t_31 s_397 ctx_20))" +"(let-values()(dispatch-core-form t_31 s_398 ctx_20))" "(if(transformer? t_31)" -"(let-values()(dispatch-transformer t_31 insp-of-t_3 s_397 id_59 ctx_20 binding_21))" +"(let-values()(dispatch-transformer t_31 insp-of-t_3 s_398 id_60 ctx_20 binding_21))" "(if(variable? t_31)" -"(let-values()(dispatch-variable t_31 s_397 id_59 ctx_20 binding_21 primitive?_5))" -" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_397))))))))" +"(let-values()(dispatch-variable t_31 s_398 id_60 ctx_20 binding_21 primitive?_5))" +" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_398))))))))" "(define-values" "(dispatch-core-form)" "(lambda(t_47 s_29 ctx_21)" @@ -38157,18 +38584,18 @@ static const char *startup_source = "(let-values()((core-form-expander t_47) s_29 ctx_21)))))))" "(define-values" "(dispatch-implicit-#%top-core-form)" -"(lambda(t_48 s_400 ctx_0)" +"(lambda(t_48 s_401 ctx_22)" "(begin" "(let-values((()" "(begin" -"(let-values(((obs_14)(expand-context-observer ctx_0)))" +"(let-values(((obs_14)(expand-context-observer ctx_22)))" "(if obs_14" -"(let-values()(let-values()(call-expand-observe obs_14 'enter-prim s_400)))" +"(let-values()(let-values()(call-expand-observe obs_14 'enter-prim s_401)))" "(void)))" "(values))))" -"(let-values(((result-s_3)((core-form-expander t_48) s_400 ctx_0 #t)))" +"(let-values(((result-s_3)((core-form-expander t_48) s_401 ctx_22 #t)))" "(begin" -"(let-values(((obs_15)(expand-context-observer ctx_0)))" +"(let-values(((obs_15)(expand-context-observer ctx_22)))" "(if obs_15" "(let-values()" "(let-values()" @@ -38179,90 +38606,90 @@ static const char *startup_source = " result-s_3))))))" "(define-values" "(dispatch-transformer)" -"(lambda(t_49 insp-of-t_4 s_401 id_60 ctx_22 binding_22)" +"(lambda(t_49 insp-of-t_4 s_402 id_61 ctx_23 binding_22)" "(begin" -"(if(not-in-this-expand-context? t_49 ctx_22)" +"(if(not-in-this-expand-context? t_49 ctx_23)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_16)(expand-context-observer ctx_22)))" +"(let-values(((obs_16)(expand-context-observer ctx_23)))" "(if obs_16" -"(let-values()(let-values()(call-expand-observe obs_16 'enter-macro s_401)))" +"(let-values()(let-values()(call-expand-observe obs_16 'enter-macro s_402)))" "(void)))" "(values))))" -"(let-values(((adj-s_0)(avoid-current-expand-context(substitute-alternate-id s_401 id_60) t_49 ctx_22)))" +"(let-values(((adj-s_0)(avoid-current-expand-context(substitute-alternate-id s_402 id_61) t_49 ctx_23)))" "(begin" -"(let-values(((obs_17)(expand-context-observer ctx_22)))" -"(if obs_17(let-values()(let-values()(call-expand-observe obs_17 'exit-macro s_401)))(void)))" -"(let-values(((adj-s106_0) adj-s_0)((ctx107_0) ctx_22))" +"(let-values(((obs_17)(expand-context-observer ctx_23)))" +"(if obs_17(let-values()(let-values()(call-expand-observe obs_17 'exit-macro s_402)))(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_22)" +"(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_401))" +" (raise-syntax-error$1 #f \"encountered a macro binding in form that should be fully expanded\" s_402))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_18)(expand-context-observer ctx_22)))" +"(let-values(((obs_18)(expand-context-observer ctx_23)))" "(if obs_18" "(let-values()" -"(if(if(expand-context-only-immediate? ctx_22)(not(1/rename-transformer? t_49)) #f)" +"(if(if(expand-context-only-immediate? ctx_23)(not(1/rename-transformer? t_49)) #f)" "(let-values()" "(begin" -"(call-expand-observe obs_18 'visit s_401)" -"(call-expand-observe obs_18 'resolve id_60)))" +"(call-expand-observe obs_18 'visit s_402)" +"(call-expand-observe obs_18 'resolve id_61)))" "(void)))" "(void)))" "(values))))" "(let-values(((exp-s_1 re-ctx_0)" "(if(1/rename-transformer? t_49)" -"(values s_401 ctx_22)" -"(apply-transformer t_49 insp-of-t_4 s_401 id_60 ctx_22 binding_22))))" +"(values s_402 ctx_23)" +"(apply-transformer t_49 insp-of-t_4 s_402 id_61 ctx_23 binding_22))))" "(begin" -"(let-values(((obs_19)(expand-context-observer ctx_22)))" +"(let-values(((obs_19)(expand-context-observer ctx_23)))" "(if obs_19" "(let-values()" -"(if(if(expand-context-only-immediate? ctx_22)(not(1/rename-transformer? t_49)) #f)" +"(if(if(expand-context-only-immediate? ctx_23)(not(1/rename-transformer? t_49)) #f)" "(let-values()(call-expand-observe obs_19 'return exp-s_1))" "(void)))" "(void)))" -"(if(expand-context-just-once? ctx_22)" +"(if(expand-context-just-once? ctx_23)" "(let-values() exp-s_1)" "(let-values()" "(let-values(((temp110_0)" "(if(1/rename-transformer? t_49)" "(syntax-track-origin$1" -"(rename-transformer-target-in-context t_49 ctx_22)" -" id_60" -" id_60)" +"(rename-transformer-target-in-context t_49 ctx_23)" +" id_61" +" id_61)" " #f))" "((temp111_0)" -"(let-values(((or-part_171)(expand-context-only-immediate? ctx_22)))" -"(if or-part_171 or-part_171(1/rename-transformer? t_49)))))" +"(let-values(((or-part_179)(expand-context-only-immediate? ctx_23)))" +"(if or-part_179 or-part_179(1/rename-transformer? t_49)))))" "(expand7.1 temp110_0 #t temp111_0 #t exp-s_1 re-ctx_0)))))))))))))" "(define-values" "(dispatch-variable)" -"(lambda(t_50 s_311 id_61 ctx_23 binding_23 primitive?_6)" +"(lambda(t_50 s_311 id_62 ctx_24 binding_23 primitive?_6)" "(begin" -"(if(expand-context-only-immediate? ctx_23)" +"(if(expand-context-only-immediate? ctx_24)" "(let-values()" "(begin" -"(let-values(((obs_20)(expand-context-observer ctx_23)))" +"(let-values(((obs_20)(expand-context-observer ctx_24)))" "(if obs_20(let-values()(let-values()(call-expand-observe obs_20 'exit-check s_311)))(void)))" -" id_61))" +" id_62))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_21)(expand-context-observer ctx_23)))" +"(let-values(((obs_21)(expand-context-observer ctx_24)))" "(if obs_21" -"(let-values()(let-values()(call-expand-observe obs_21 'variable s_311 id_61)))" +"(let-values()(let-values()(call-expand-observe obs_21 'variable s_311 id_62)))" "(void)))" "(values))))" "(let-values((()(begin(register-variable-referenced-if-local! binding_23)(values))))" "(let-values(((result-s_4)" "(let-values(((temp114_0)" -"(free-id-set-empty-or-just-module*?(expand-context-stops ctx_23))))" -"(substitute-variable6.1 temp114_0 id_61 t_50))))" -"(if(if(expand-context-to-parsed? ctx_23)(free-id-set-empty?(expand-context-stops ctx_23)) #f)" +"(free-id-set-empty-or-just-module*?(expand-context-stops ctx_24))))" +"(substitute-variable6.1 temp114_0 id_62 t_50))))" +"(if(if(expand-context-to-parsed? ctx_24)(free-id-set-empty?(expand-context-stops ctx_24)) #f)" "(let-values()" "(let-values(((prop-s_0)(keep-properties-only~ result-s_4)))" "(let-values(((insp_16)(syntax-inspector result-s_4)))" @@ -38271,19 +38698,19 @@ static const char *startup_source = "(parsed-id2.1 prop-s_0 binding_23 insp_16)))))" "(let-values()" "(begin" -"(let-values(((obs_22)(expand-context-observer ctx_23)))" +"(let-values(((obs_22)(expand-context-observer ctx_24)))" "(if obs_22" "(let-values()(let-values()(call-expand-observe obs_22 'return result-s_4)))" "(void)))" " result-s_4)))))))))))" "(define-values" "(apply-transformer)" -"(lambda(t_51 insp-of-t_5 s_54 id_62 ctx_24 binding_24)" +"(lambda(t_51 insp-of-t_5 s_54 id_63 ctx_25 binding_24)" "(begin" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_23)(expand-context-observer ctx_24)))" +"(let-values(((obs_23)(expand-context-observer ctx_25)))" "(if obs_23" "(let-values()(let-values()(call-expand-observe obs_23 'enter-macro s_54)))" "(void)))" @@ -38291,88 +38718,88 @@ static const char *startup_source = "(let-values(((disarmed-s_3)(syntax-disarm$1 s_54)))" "(let-values(((intro-scope_0)(new-scope 'macro)))" "(let-values(((intro-s_0)(flip-scope disarmed-s_3 intro-scope_0)))" -"(let-values(((use-s_0 use-scopes_0)(maybe-add-use-site-scope intro-s_0 ctx_24 binding_24)))" +"(let-values(((use-s_0 use-scopes_0)(maybe-add-use-site-scope intro-s_0 ctx_25 binding_24)))" "(let-values(((cleaned-s_0)(syntax-remove-taint-dispatch-properties use-s_0)))" "(let-values(((def-ctx-scopes_1)(box null)))" "(let-values(((transformed-s_0)" "(apply-transformer-in-context" " t_51" " cleaned-s_0" -" ctx_24" +" ctx_25" " insp-of-t_5" " intro-scope_0" " use-scopes_0" " def-ctx-scopes_1" -" id_62)))" +" id_63)))" "(let-values(((result-s_5)(flip-scope transformed-s_0 intro-scope_0)))" -"(let-values(((post-s_0)(maybe-add-post-expansion-scope result-s_5 ctx_24)))" -"(let-values(((tracked-s_0)(syntax-track-origin$1 post-s_0 cleaned-s_0 id_62)))" +"(let-values(((post-s_0)(maybe-add-post-expansion-scope result-s_5 ctx_25)))" +"(let-values(((tracked-s_0)(syntax-track-origin$1 post-s_0 cleaned-s_0 id_63)))" "(let-values(((rearmed-s_0)" "(taint-dispatch" " tracked-s_0" "(lambda(t-s_0)(syntax-rearm$1 t-s_0 s_54))" -"(expand-context-phase ctx_24))))" +"(expand-context-phase ctx_25))))" "(begin" -"(let-values(((obs_24)(expand-context-observer ctx_24)))" +"(let-values(((obs_24)(expand-context-observer ctx_25)))" "(if obs_24" "(let-values()" "(let-values()(call-expand-observe obs_24 'exit-macro rearmed-s_0)))" "(void)))" "(values" " rearmed-s_0" -"(accumulate-def-ctx-scopes ctx_24 def-ctx-scopes_1)))))))))))))))))))" +"(accumulate-def-ctx-scopes ctx_25 def-ctx-scopes_1)))))))))))))))))))" "(define-values" "(apply-transformer-in-context)" -"(lambda(t_52 cleaned-s_1 ctx_25 insp-of-t_6 intro-scope_1 use-scopes_1 def-ctx-scopes_2 id_63)" +"(lambda(t_52 cleaned-s_1 ctx_26 insp-of-t_6 intro-scope_1 use-scopes_1 def-ctx-scopes_2 id_64)" "(begin" "(let-values((()" "(begin" -"(let-values(((obs_25)(expand-context-observer ctx_25)))" +"(let-values(((obs_25)(expand-context-observer ctx_26)))" "(if obs_25" "(let-values()(let-values()(call-expand-observe obs_25 'macro-pre-x cleaned-s_1)))" "(void)))" "(values))))" "(let-values(((confine-def-ctx-scopes?_0)" "(not" -"(let-values(((or-part_265)(expand-context-only-immediate? ctx_25)))" -"(if or-part_265" -" or-part_265" -"(not(free-id-set-empty-or-just-module*?(expand-context-stops ctx_25))))))))" +"(let-values(((or-part_271)(expand-context-only-immediate? ctx_26)))" +"(if or-part_271" +" or-part_271" +"(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" -"(if(expand-context-def-ctx-scopes ctx_25)" -"(not(null?(unbox(expand-context-def-ctx-scopes ctx_25))))" +"(if(expand-context-def-ctx-scopes ctx_26)" +"(not(null?(unbox(expand-context-def-ctx-scopes ctx_26))))" " #f)" " #f)" -"(accumulate-def-ctx-scopes ctx_25(expand-context-def-ctx-scopes ctx_25))" -" ctx_25)))" +"(accumulate-def-ctx-scopes ctx_26(expand-context-def-ctx-scopes ctx_26))" +" ctx_26)))" "(let-values(((m-ctx_0)" -"(let-values(((v_184) accum-ctx_0))" -"(let-values(((the-struct_59) v_184))" -"(if(expand-context/outer? the-struct_59)" +"(let-values(((v_185) accum-ctx_0))" +"(let-values(((the-struct_61) v_185))" +"(if(expand-context/outer? the-struct_61)" "(let-values(((current-introduction-scopes115_0)(cons intro-scope_1 use-scopes_1))" "((def-ctx-scopes116_0)" "(if confine-def-ctx-scopes?_0" " def-ctx-scopes_2" -"(expand-context-def-ctx-scopes ctx_25)))" -"((inner117_0)(root-expand-context/outer-inner v_184)))" +"(expand-context-def-ctx-scopes ctx_26)))" +"((inner117_0)(root-expand-context/outer-inner v_185)))" "(expand-context/outer1.1" " inner117_0" -"(root-expand-context/outer-post-expansion-scope the-struct_59)" -"(root-expand-context/outer-use-site-scopes the-struct_59)" -"(root-expand-context/outer-frame-id the-struct_59)" -"(expand-context/outer-context the-struct_59)" -"(expand-context/outer-env the-struct_59)" -"(expand-context/outer-post-expansion-scope-action the-struct_59)" -"(expand-context/outer-scopes the-struct_59)" +"(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)" " def-ctx-scopes116_0" -"(expand-context/outer-binding-layer the-struct_59)" -"(expand-context/outer-reference-records the-struct_59)" -"(expand-context/outer-only-immediate? the-struct_59)" -"(expand-context/outer-need-eventually-defined the-struct_59)" +"(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)" " current-introduction-scopes115_0" -"(expand-context/outer-name the-struct_59)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_59))))))" +"(expand-context/outer-name the-struct_61)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_61))))))" "(let-values(((transformed-s_1)" "(with-continuation-mark" " parameterization-key" @@ -38382,16 +38809,16 @@ static const char *startup_source = " m-ctx_0" " 1/current-namespace" "(namespace->namespace-at-phase" -"(expand-context-namespace ctx_25)" -"(add1(expand-context-phase ctx_25)))" +"(expand-context-namespace ctx_26)" +"(add1(expand-context-phase ctx_26)))" " 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(((or-part_272) insp-of-t_6))" +"(if or-part_272 or-part_272(current-module-code-inspector))))" "(let-values()" "(call-with-continuation-barrier" "(lambda()((transformer->procedure t_52) cleaned-s_1)))))))" "(begin" -"(let-values(((obs_26)(expand-context-observer ctx_25)))" +"(let-values(((obs_26)(expand-context-observer ctx_26)))" "(if obs_26" "(let-values()" "(let-values()(call-expand-observe obs_26 'macro-post-x transformed-s_1 cleaned-s_1)))" @@ -38400,21 +38827,21 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-arguments-error" -"(syntax-e$1 id_63)" +"(syntax-e$1 id_64)" " \"received value from syntax expander was not syntax\"" " \"received\"" " transformed-s_1)))" " transformed-s_1)))))))))" "(define-values" "(maybe-add-use-site-scope)" -"(lambda(s_61 ctx_26 binding_1)" +"(lambda(s_61 ctx_27 binding_1)" "(begin" -"(if(if(root-expand-context-use-site-scopes ctx_26)" -"(matching-frame?(root-expand-context-frame-id ctx_26)(binding-frame-id binding_1))" +"(if(if(root-expand-context-use-site-scopes ctx_27)" +"(matching-frame?(root-expand-context-frame-id ctx_27)(binding-frame-id binding_1))" " #f)" "(let-values()" "(let-values(((sc_26)(new-scope 'use-site)))" -"(let-values(((b_79)(root-expand-context-use-site-scopes ctx_26)))" +"(let-values(((b_79)(root-expand-context-use-site-scopes ctx_27)))" "(begin(set-box! b_79(cons sc_26(unbox b_79)))(values(add-scope s_61 sc_26)(list sc_26))))))" "(let-values()(values s_61 null))))))" "(define-values" @@ -38422,62 +38849,62 @@ static const char *startup_source = "(lambda(current-frame-id_0 bind-frame-id_0)" "(begin" "(if current-frame-id_0" -"(let-values(((or-part_93)(eq? current-frame-id_0 bind-frame-id_0)))" -"(if or-part_93 or-part_93(eq? current-frame-id_0 'all)))" +"(let-values(((or-part_99)(eq? current-frame-id_0 bind-frame-id_0)))" +"(if or-part_99 or-part_99(eq? current-frame-id_0 'all)))" " #f))))" "(define-values" "(maybe-add-post-expansion-scope)" -"(lambda(s_319 ctx_27)" +"(lambda(s_320 ctx_28)" "(begin" -"(if(root-expand-context-post-expansion-scope ctx_27)" +"(if(root-expand-context-post-expansion-scope ctx_28)" "(let-values()" -"((expand-context-post-expansion-scope-action ctx_27) s_319(root-expand-context-post-expansion-scope ctx_27)))" -"(let-values() s_319)))))" +"((expand-context-post-expansion-scope-action ctx_28) s_320(root-expand-context-post-expansion-scope ctx_28)))" +"(let-values() s_320)))))" "(define-values" "(accumulate-def-ctx-scopes)" -"(lambda(ctx_28 def-ctx-scopes_3)" +"(lambda(ctx_29 def-ctx-scopes_3)" "(begin" "(if(null?(unbox def-ctx-scopes_3))" -" ctx_28" -"(let-values(((v_107) ctx_28))" -"(let-values(((the-struct_60) v_107))" -"(if(expand-context/outer? the-struct_60)" -"(let-values(((scopes118_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_28)))" -"((inner119_0)(root-expand-context/outer-inner v_107)))" +" ctx_29" +"(let-values(((v_108) ctx_29))" +"(let-values(((the-struct_62) v_108))" +"(if(expand-context/outer? the-struct_62)" +"(let-values(((scopes118_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_29)))" +"((inner119_0)(root-expand-context/outer-inner v_108)))" "(expand-context/outer1.1" " inner119_0" -"(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)" +"(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)" " scopes118_0" -"(expand-context/outer-def-ctx-scopes the-struct_60)" -"(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)" -"(expand-context/outer-current-introduction-scopes the-struct_60)" -"(expand-context/outer-name the-struct_60)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_60))))))))" +"(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))))))))" "(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_80) b14_0))" -"(let-values(((ctx_29) ctx15_0))" -"(let-values(((id_64) id16_1))" +"(let-values(((ctx_30) ctx15_0))" +"(let-values(((id_65) 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(((temp121_1)(expand-context-env ctx_29))" -"((temp122_0)(expand-context-lift-envs ctx_29))" -"((temp123_1)(expand-context-namespace ctx_29))" -"((temp124_0)(expand-context-phase ctx_29))" -"((id125_0) id_64)" +"(let-values(((temp121_1)(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))" +"((id125_0) id_65)" "((in-s126_0) in-s_7)" "((out-of-context-as-variable?127_0) out-of-context-as-variable?_1))" "(binding-lookup48.1" @@ -38528,17 +38955,17 @@ static const char *startup_source = "(begin" " 'expand/capture-lifts30" "(let-values(((s_209) s28_1))" -"(let-values(((ctx_30) ctx29_0))" +"(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)))" "(let-values(((lift-key_2)(if lift-key26_0 lift-key22_0(generate-lift-key))))" "(let-values(((always-wrap?_0)(if always-wrap?27_0 always-wrap?23_0 #f)))" "(let-values()" -"(let-values(((context_6)(expand-context-context ctx_30)))" -"(let-values(((phase_104)(expand-context-phase ctx_30)))" +"(let-values(((context_6)(expand-context-context ctx_31)))" +"(let-values(((phase_104)(expand-context-phase ctx_31)))" "(let-values(((local?_0)(not begin-form?_0)))" -"((letrec-values(((loop_93)" -"(lambda(s_102 always-wrap?_1 ctx_31)" +"((letrec-values(((loop_96)" +"(lambda(s_102 always-wrap?_1 ctx_32)" "(begin" " 'loop" "(let-values(((lift-env_2)(if local?_0(box empty-env) #f)))" @@ -38547,23 +38974,23 @@ static const char *startup_source = "(if local?_0" "(make-local-lift" " lift-env_2" -"(root-expand-context-counter ctx_31))" -"(make-top-level-lift ctx_31)))" +"(root-expand-context-counter ctx_32))" +"(make-top-level-lift ctx_32)))" "((temp129_0)" "(if(not local?_0)" "(eq? context_6 'module)" " #f)))" "(make-lift-context6.1 temp129_0 #t temp128_0))))" "(let-values(((capture-ctx_0)" -"(let-values(((v_185) ctx_31))" -"(let-values(((the-struct_61) v_185))" -"(if(expand-context/outer? the-struct_61)" +"(let-values(((v_186) ctx_32))" +"(let-values(((the-struct_63) v_186))" +"(if(expand-context/outer? the-struct_63)" "(let-values(((inner130_0)" -"(let-values(((the-struct_62)" +"(let-values(((the-struct_64)" "(root-expand-context/outer-inner" -" v_185)))" +" v_186)))" "(if(expand-context/inner?" -" the-struct_62)" +" the-struct_64)" "(let-values(((lift-key131_0)" " lift-key_2)" "((lifts132_0)" @@ -38573,101 +39000,103 @@ static const char *startup_source = "(cons" " lift-env_2" "(expand-context-lift-envs" -" ctx_31))" +" ctx_32))" "(expand-context-lift-envs" -" ctx_31)))" +" ctx_32)))" "((module-lifts134_0)" -"(if(let-values(((or-part_267)" +"(if(let-values(((or-part_273)" " local?_0))" -"(if or-part_267" -" or-part_267" +"(if or-part_273" +" or-part_273" "(not" "(memq" " context_6" " '(top-level" " module)))))" "(expand-context-module-lifts" -" ctx_31)" +" ctx_32)" " lift-ctx_0)))" "(expand-context/inner2.1" +"(root-expand-context/inner-self-mpi" +" the-struct_64)" "(root-expand-context/inner-module-scopes" -" the-struct_62)" +" the-struct_64)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_62)" +" the-struct_64)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_62)" +" the-struct_64)" "(root-expand-context/inner-defined-syms" -" the-struct_62)" +" the-struct_64)" "(root-expand-context/inner-counter" -" the-struct_62)" +" the-struct_64)" " lift-key131_0" "(expand-context/inner-to-parsed?" -" the-struct_62)" +" the-struct_64)" "(expand-context/inner-phase" -" the-struct_62)" +" the-struct_64)" "(expand-context/inner-namespace" -" the-struct_62)" +" the-struct_64)" "(expand-context/inner-just-once?" -" the-struct_62)" +" the-struct_64)" "(expand-context/inner-module-begin-k" -" the-struct_62)" +" the-struct_64)" "(expand-context/inner-allow-unbound?" -" the-struct_62)" +" the-struct_64)" "(expand-context/inner-in-local-expand?" -" the-struct_62)" +" the-struct_64)" "(expand-context/inner-stops" -" the-struct_62)" +" the-struct_64)" "(expand-context/inner-declared-submodule-names" -" the-struct_62)" +" the-struct_64)" " lifts132_0" " lift-envs133_0" " module-lifts134_0" "(expand-context/inner-require-lifts" -" the-struct_62)" +" the-struct_64)" "(expand-context/inner-to-module-lifts" -" the-struct_62)" +" the-struct_64)" "(expand-context/inner-requires+provides" -" the-struct_62)" +" the-struct_64)" "(expand-context/inner-observer" -" the-struct_62)" +" the-struct_64)" "(expand-context/inner-for-serializable?" -" the-struct_62)" +" the-struct_64)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_62)))" +" the-struct_64)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_62)))))" +" the-struct_64)))))" "(expand-context/outer1.1" " inner130_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_61)" +" the-struct_63)" "(root-expand-context/outer-use-site-scopes" -" the-struct_61)" +" the-struct_63)" "(root-expand-context/outer-frame-id" -" the-struct_61)" -"(expand-context/outer-context the-struct_61)" -"(expand-context/outer-env the-struct_61)" +" the-struct_63)" +"(expand-context/outer-context the-struct_63)" +"(expand-context/outer-env the-struct_63)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_61)" -"(expand-context/outer-scopes the-struct_61)" +" the-struct_63)" +"(expand-context/outer-scopes the-struct_63)" "(expand-context/outer-def-ctx-scopes" -" the-struct_61)" +" the-struct_63)" "(expand-context/outer-binding-layer" -" the-struct_61)" +" the-struct_63)" "(expand-context/outer-reference-records" -" the-struct_61)" +" the-struct_63)" "(expand-context/outer-only-immediate?" -" the-struct_61)" +" the-struct_63)" "(expand-context/outer-need-eventually-defined" -" the-struct_61)" +" the-struct_63)" "(expand-context/outer-current-introduction-scopes" -" the-struct_61)" -"(expand-context/outer-name the-struct_61)))" +" the-struct_63)" +"(expand-context/outer-name the-struct_63)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_61))))))" +" the-struct_63))))))" "(let-values(((rebuild-s_0)(keep-properties-only s_102)))" "(let-values(((exp-s_2)" "(let-values(((s135_0) s_102)" @@ -38683,13 +39112,13 @@ 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_163)" +"(if(let-values(((or-part_274)" "(pair? lifts_6)))" -"(if or-part_163" -" or-part_163" +"(if or-part_274" +" or-part_274" " always-wrap?_1))" "(let-values()" -"(if(expand-context-to-parsed? ctx_31)" +"(if(expand-context-to-parsed? ctx_32)" "(let-values()" "(begin" "(if expand-lifts?_0" @@ -38701,9 +39130,9 @@ static const char *startup_source = " lifts_6" " exp-s_2" " rebuild-s_0" -" ctx_31" +" ctx_32" "(lambda(rhs_15 rhs-ctx_0)" -"(loop_93 rhs_15 #f rhs-ctx_0)))))" +"(loop_96 rhs_15 #f rhs-ctx_0)))))" "(let-values()" "(if begin-form?_0" "(let-values(((lifts137_0) lifts_6)" @@ -38723,18 +39152,18 @@ static const char *startup_source = " exp-s_2" " phase_104)))))" "(let-values() exp-s_2))))" -"(if(let-values(((or-part_268)(not expand-lifts?_0)))" -"(if or-part_268" -" or-part_268" -"(let-values(((or-part_269)(null? lifts_6)))" -"(if or-part_269" -" or-part_269" -"(expand-context-to-parsed? ctx_31)))))" +"(if(let-values(((or-part_275)(not expand-lifts?_0)))" +"(if or-part_275" +" or-part_275" +"(let-values(((or-part_276)(null? lifts_6)))" +"(if or-part_276" +" or-part_276" +"(expand-context-to-parsed? ctx_32)))))" "(let-values() with-lifts-s_0)" "(let-values()" "(begin" "(let-values(((obs_27)" -"(expand-context-observer ctx_31)))" +"(expand-context-observer ctx_32)))" "(if obs_27" "(let-values()" "(let-values()" @@ -38743,11 +39172,11 @@ static const char *startup_source = " 'letlift-loop" " with-lifts-s_0)))" "(void)))" -"(loop_93 with-lifts-s_0 #f ctx_31)))))))))))))))" -" loop_93)" +"(loop_96 with-lifts-s_0 #f ctx_32)))))))))))))))" +" loop_96)" " s_209" " always-wrap?_0" -" ctx_30))))))))))))))" +" ctx_31))))))))))))))" "(define-values" "(expand-transformer47.1)" "(lambda(always-wrap?37_0" @@ -38755,7 +39184,7 @@ static const char *startup_source = " begin-form?34_0" " begin-form?40_0" " context33_0" -" context39_1" +" context39_0" " expand-lifts?35_0" " expand-lifts?41_0" " keep-stops?38_0" @@ -38767,8 +39196,8 @@ static const char *startup_source = "(begin" " 'expand-transformer47" "(let-values(((s_122) s45_0))" -"(let-values(((ctx_32) ctx46_0))" -"(let-values(((context_7)(if context39_1 context33_0 'expression)))" +"(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)))" "(let-values(((expand-lifts?_1)(if expand-lifts?41_0 expand-lifts?35_0 #t)))" "(let-values(((lift-key_3)(if lift-key42_0 lift-key36_0(generate-lift-key))))" @@ -38778,7 +39207,7 @@ static const char *startup_source = "(let-values()" "(let-values(((trans-ctx_0)" "(let-values(((keep-stops?148_0) keep-stops?_0))" -"(context->transformer-context55.1 keep-stops?148_0 #t ctx_32 context_7 #t))))" +"(context->transformer-context55.1 keep-stops?148_0 #t ctx_33 context_7 #t))))" "(let-values(((expand-lifts?142_0) expand-lifts?_1)" "((begin-form?143_0) begin-form?_1)" "((lift-key144_0) lift-key_3)" @@ -38799,79 +39228,80 @@ static const char *startup_source = "(lambda(keep-stops?50_0 keep-stops?51_0 ctx54_0 context52_0 context53_0)" "(begin" " 'context->transformer-context55" -"(let-values(((ctx_33) ctx54_0))" +"(let-values(((ctx_34) ctx54_0))" "(let-values(((context_8)(if context53_0 context52_0 'expression)))" "(let-values(((keep-stops?_1)(if keep-stops?51_0 keep-stops?50_0 #f)))" "(let-values()" -"(let-values(((phase_105)(add1(expand-context-phase ctx_33))))" -"(let-values(((ns_73)(namespace->namespace-at-phase(expand-context-namespace ctx_33) phase_105)))" +"(let-values(((phase_105)(add1(expand-context-phase ctx_34))))" +"(let-values(((ns_72)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_105)))" "(begin" -"(namespace-visit-available-modules! ns_73 phase_105)" -"(let-values(((v_186) ctx_33))" -"(let-values(((the-struct_63) v_186))" -"(if(expand-context/outer? the-struct_63)" +"(namespace-visit-available-modules! ns_72 phase_105)" +"(let-values(((v_187) ctx_34))" +"(let-values(((the-struct_65) v_187))" +"(if(expand-context/outer? the-struct_65)" "(let-values(((context149_0) context_8)" "((scopes150_0) null)" "((env151_0) empty-env)" "((only-immediate?152_0)" -"(if keep-stops?_1(expand-context-only-immediate? ctx_33) #f))" +"(if keep-stops?_1(expand-context-only-immediate? ctx_34) #f))" "((def-ctx-scopes153_0) #f)" "((post-expansion-scope154_0) #f)" "((inner155_0)" -"(let-values(((the-struct_64)(root-expand-context/outer-inner v_186)))" -"(if(expand-context/inner? the-struct_64)" +"(let-values(((the-struct_66)(root-expand-context/outer-inner v_187)))" +"(if(expand-context/inner? the-struct_66)" "(let-values(((phase156_0) phase_105)" -"((namespace157_0) ns_73)" +"((namespace157_0) ns_72)" "((stops158_0)" "(if keep-stops?_1" -"(expand-context-stops ctx_33)" +"(expand-context-stops ctx_34)" " empty-free-id-set)))" "(expand-context/inner2.1" -"(root-expand-context/inner-module-scopes the-struct_64)" -"(root-expand-context/inner-top-level-bind-scope the-struct_64)" -"(root-expand-context/inner-all-scopes-stx the-struct_64)" -"(root-expand-context/inner-defined-syms the-struct_64)" -"(root-expand-context/inner-counter the-struct_64)" -"(root-expand-context/inner-lift-key the-struct_64)" -"(expand-context/inner-to-parsed? the-struct_64)" +"(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)" " phase156_0" " namespace157_0" -"(expand-context/inner-just-once? the-struct_64)" -"(expand-context/inner-module-begin-k the-struct_64)" -"(expand-context/inner-allow-unbound? the-struct_64)" -"(expand-context/inner-in-local-expand? the-struct_64)" +"(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)" " stops158_0" -"(expand-context/inner-declared-submodule-names the-struct_64)" -"(expand-context/inner-lifts the-struct_64)" -"(expand-context/inner-lift-envs the-struct_64)" -"(expand-context/inner-module-lifts the-struct_64)" -"(expand-context/inner-require-lifts the-struct_64)" -"(expand-context/inner-to-module-lifts the-struct_64)" -"(expand-context/inner-requires+provides the-struct_64)" -"(expand-context/inner-observer the-struct_64)" -"(expand-context/inner-for-serializable? the-struct_64)" -"(expand-context/inner-should-not-encounter-macros? the-struct_64)))" +"(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)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_64)))))" +" the-struct_66)))))" "(expand-context/outer1.1" " inner155_0" " post-expansion-scope154_0" -"(root-expand-context/outer-use-site-scopes the-struct_63)" -"(root-expand-context/outer-frame-id the-struct_63)" +"(root-expand-context/outer-use-site-scopes the-struct_65)" +"(root-expand-context/outer-frame-id the-struct_65)" " context149_0" " env151_0" -"(expand-context/outer-post-expansion-scope-action the-struct_63)" +"(expand-context/outer-post-expansion-scope-action the-struct_65)" " scopes150_0" " def-ctx-scopes153_0" -"(expand-context/outer-binding-layer the-struct_63)" -"(expand-context/outer-reference-records the-struct_63)" +"(expand-context/outer-binding-layer the-struct_65)" +"(expand-context/outer-reference-records the-struct_65)" " only-immediate?152_0" -"(expand-context/outer-need-eventually-defined the-struct_63)" -"(expand-context/outer-current-introduction-scopes the-struct_63)" -"(expand-context/outer-name the-struct_63)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_63))))))))))))))" +"(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))))))))))))))" "(define-values" "(expand+eval-for-syntaxes-binding63.1)" "(lambda(log-next?58_0 log-next?59_0 rhs60_0 ids61_0 ctx62_0)" @@ -38879,25 +39309,25 @@ static const char *startup_source = " 'expand+eval-for-syntaxes-binding63" "(let-values(((rhs_16) rhs60_0))" "(let-values(((ids_19) ids61_0))" -"(let-values(((ctx_34) ctx62_0))" +"(let-values(((ctx_35) ctx62_0))" "(let-values(((log-next?_0)(if log-next?59_0 log-next?58_0 #t)))" "(let-values()" "(let-values(((exp-rhs_0)" -"(let-values(((rhs159_0) rhs_16)((temp160_1)(as-named-context ctx_34 ids_19)))" +"(let-values(((rhs159_0) rhs_16)((temp160_1)(as-named-context ctx_35 ids_19)))" "(expand-transformer47.1 #f #f #f #f #f #f #f #f #f #f #f #f rhs159_0 temp160_1))))" -"(let-values(((phase_106)(add1(expand-context-phase ctx_34))))" +"(let-values(((phase_106)(add1(expand-context-phase ctx_35))))" "(let-values(((parsed-rhs_0)" -"(if(expand-context-to-parsed? ctx_34)" +"(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_34)))" +"(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)))))" "(begin" "(if log-next?_0" "(let-values()" -"(let-values(((obs_28)(expand-context-observer ctx_34)))" +"(let-values(((obs_28)(expand-context-observer ctx_35)))" "(if obs_28(let-values()(let-values()(call-expand-observe obs_28 'next)))(void))))" "(void))" "(values" @@ -38907,26 +39337,26 @@ static const char *startup_source = " ids_19" " parsed-rhs_0" " phase_106" -"(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_106)" -" ctx_34))))))))))))))" +"(namespace->namespace-at-phase(expand-context-namespace ctx_35) phase_106)" +" ctx_35))))))))))))))" "(define-values" "(eval-for-syntaxes-binding)" -"(lambda(rhs_17 ids_20 ctx_35)" +"(lambda(rhs_17 ids_20 ctx_36)" "(begin" "(let-values(((exp-rhs_1 parsed-rhs_1 vals_3)" -"(let-values(((rhs164_0) rhs_17)((ids165_0) ids_20)((ctx166_0) ctx_35))" +"(let-values(((rhs164_0) rhs_17)((ids165_0) ids_20)((ctx166_0) ctx_36))" "(expand+eval-for-syntaxes-binding63.1 #f #f rhs164_0 ids165_0 ctx166_0))))" " vals_3))))" "(define-values" "(eval-for-bindings)" -"(lambda(ids_21 p_44 phase_107 ns_74 ctx_36)" +"(lambda(ids_21 p_48 phase_107 ns_73 ctx_37)" "(begin" "(let-values(((compiled_0)" -"(if(can-direct-eval? p_44 ns_74)" +"(if(can-direct-eval? p_48 ns_73(root-expand-context-self-mpi ctx_37))" " #f" "(compile-single" -" p_44" -"(let-values(((ns167_0) ns_74)((phase168_1) phase_107))" +" p_48" +"(let-values(((ns167_0) ns_73)((phase168_1) phase_107))" "(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" @@ -38936,20 +39366,23 @@ static const char *startup_source = "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " current-expand-context" -" ctx_36" +" ctx_37" " 1/current-namespace" -" ns_74" +" ns_73" " eval-jit-enabled" " #f)" -"(let-values()(if compiled_0(eval-single-top compiled_0 ns_74)(direct-eval p_44 ns_74)))))" +"(let-values()" +"(if compiled_0" +"(eval-single-top compiled_0 ns_73)" +"(direct-eval p_48 ns_73(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_44)))" +" (let-values () (error \"wrong number of results (\" (length vals_4) \"vs.\" (length ids_21) \")\" \"from\" p_48)))" " vals_4))))))" -"(define-values(keep-properties-only)(lambda(s_380)(begin(datum->syntax$1 #f 'props s_380 s_380))))" -"(define-values(keep-properties-only~)(lambda(s_381)(begin #f)))" +"(define-values(keep-properties-only)(lambda(s_381)(begin(datum->syntax$1 #f 'props s_381 s_381))))" +"(define-values(keep-properties-only~)(lambda(s_382)(begin #f)))" "(define-values" "(keep-as-needed74.1)" "(lambda(for-track?66_0" @@ -38962,65 +39395,65 @@ static const char *startup_source = " s73_0)" "(begin" " 'keep-as-needed74" -"(let-values(((ctx_37) ctx72_0))" -"(let-values(((s_387) s73_0))" +"(let-values(((ctx_38) ctx72_0))" +"(let-values(((s_388) s73_0))" "(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_33)(syntax-e$1 s_387)))" +"(let-values(((d_33)(syntax-e$1 s_388)))" "(let-values(((keep-e_0)" "(if(symbol? d_33)" "(let-values() d_33)" "(if(if(pair? d_33)(identifier?(car d_33)) #f)" "(let-values()(syntax-e$1(car d_33)))" "(let-values() #f)))))" -"(if(expand-context-to-parsed? ctx_37)" +"(if(expand-context-to-parsed? ctx_38)" "(let-values()" -"(if(let-values(((or-part_270) keep-for-parsed?_0))" -"(if or-part_270 or-part_270 keep-for-error?_0))" -"(datum->syntax$1 #f keep-e_0 s_387 s_387)" +"(if(let-values(((or-part_277) keep-for-parsed?_0))" +"(if or-part_277 or-part_277 keep-for-error?_0))" +"(datum->syntax$1 #f keep-e_0 s_388 s_388)" " #f))" "(let-values()" "(syntax-rearm$1" -"(datum->syntax$1(syntax-disarm$1 s_387) keep-e_0 s_387 s_387)" -" s_387))))))))))))))" +"(datum->syntax$1(syntax-disarm$1 s_388) keep-e_0 s_388 s_388)" +" s_388))))))))))))))" "(define-values" "(attach-disappeared-transformer-bindings)" -"(lambda(s_402 trans-idss_0)" +"(lambda(s_403 trans-idss_0)" "(begin" "(if(null? trans-idss_0)" -"(let-values() s_402)" +"(let-values() s_403)" "(let-values()" "(syntax-property$1" -" s_402" +" s_403" " 'disappeared-binding" "(append" "(apply append trans-idss_0)" -"(let-values(((or-part_271)(syntax-property$1 s_402 'disappeared-binding)))" -"(if or-part_271 or-part_271 null)))))))))" +"(let-values(((or-part_278)(syntax-property$1 s_403 'disappeared-binding)))" +"(if or-part_278 or-part_278 null)))))))))" "(define-values" "(increment-binding-layer)" -"(lambda(ids_22 ctx_38 layer-val_0)" +"(lambda(ids_22 ctx_39 layer-val_0)" "(begin" -"(if((letrec-values(((loop_94)" +"(if((letrec-values(((loop_97)" "(lambda(ids_23)" "(begin" " 'loop" -"(let-values(((or-part_272)(identifier? ids_23)))" -"(if or-part_272" -" or-part_272" +"(let-values(((or-part_279)(identifier? ids_23)))" +"(if or-part_279" +" or-part_279" "(if(pair? ids_23)" -"(let-values(((or-part_273)(loop_94(car ids_23))))" -"(if or-part_273 or-part_273(loop_94(cdr ids_23))))" +"(let-values(((or-part_280)(loop_97(car ids_23))))" +"(if or-part_280 or-part_280(loop_97(cdr ids_23))))" " #f)))))))" -" loop_94)" +" loop_97)" " ids_22)" " layer-val_0" -"(expand-context-binding-layer ctx_38)))))" +"(expand-context-binding-layer ctx_39)))))" "(define-values" "(wrap-lifts-as-parsed-let)" -"(lambda(lifts_7 exp-s_3 rebuild-s_1 ctx_39 parse-rhs_0)" +"(lambda(lifts_7 exp-s_3 rebuild-s_1 ctx_40 parse-rhs_0)" "(begin" "(let-values(((idss+keyss+rhss_0)(get-lifts-as-lists lifts_7)))" "((letrec-values(((lets-loop_0)" @@ -39041,39 +39474,39 @@ static const char *startup_source = "(list" "(lets-loop_0" "(cdr idss+keyss+rhss_1)" -"(let-values(((v_187) rhs-ctx_1))" -"(let-values(((the-struct_65) v_187))" -"(if(expand-context/outer? the-struct_65)" +"(let-values(((v_188) rhs-ctx_1))" +"(let-values(((the-struct_67) v_188))" +"(if(expand-context/outer? the-struct_67)" "(let-values(((env169_0)" -"(let-values(((lst_283) ids_24)((lst_119) keys_4))" +"(let-values(((lst_280) ids_24)((lst_119) keys_4))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_283)))" +"(let-values()(check-list lst_280)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-list lst_119)))" "((letrec-values(((for-loop_62)" -"(lambda(env_3 lst_284 lst_285)" +"(lambda(env_3 lst_281 lst_282)" "(begin" " 'for-loop" -"(if(if(pair? lst_284)" -"(pair? lst_285)" +"(if(if(pair? lst_281)" +"(pair? lst_282)" " #f)" -"(let-values(((id_65)" +"(let-values(((id_66)" "(unsafe-car" -" lst_284))" -"((rest_155)" +" lst_281))" +"((rest_154)" "(unsafe-cdr" -" lst_284))" +" lst_281))" "((key_81)" "(unsafe-car" -" lst_285))" -"((rest_156)" +" lst_282))" +"((rest_155)" "(unsafe-cdr" -" lst_285)))" +" lst_282)))" "(let-values(((env_4)" "(let-values(((env_5)" " env_3))" @@ -39083,62 +39516,62 @@ static const char *startup_source = " env_5" " key_81" "(local-variable1.1" -" id_65)))))" +" id_66)))))" "(values" " env_6)))))" "(if(not #f)" "(for-loop_62" " env_4" -" rest_155" -" rest_156)" +" rest_154" +" rest_155)" " env_4)))" " env_3)))))" " for-loop_62)" "(expand-context-env rhs-ctx_1)" -" lst_283" +" lst_280" " lst_119))))" -"((inner170_0)(root-expand-context/outer-inner v_187)))" +"((inner170_0)(root-expand-context/outer-inner v_188)))" "(expand-context/outer1.1" " inner170_0" -"(root-expand-context/outer-post-expansion-scope the-struct_65)" -"(root-expand-context/outer-use-site-scopes the-struct_65)" -"(root-expand-context/outer-frame-id the-struct_65)" -"(expand-context/outer-context the-struct_65)" +"(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)" " env169_0" -"(expand-context/outer-post-expansion-scope-action the-struct_65)" -"(expand-context/outer-scopes the-struct_65)" -"(expand-context/outer-def-ctx-scopes the-struct_65)" -"(expand-context/outer-binding-layer the-struct_65)" -"(expand-context/outer-reference-records the-struct_65)" -"(expand-context/outer-only-immediate? the-struct_65)" -"(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)))" +"(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)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_65)))))))))))))))))" +" the-struct_67)))))))))))))))))" " lets-loop_0)" " idss+keyss+rhss_0" -" ctx_39)))))" +" ctx_40)))))" "(define-values" "(rename-transformer-target-in-context)" -"(lambda(t_53 ctx_40)" +"(lambda(t_53 ctx_41)" "(begin" "(with-continuation-mark" " parameterization-key" -"(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_40)" +"(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_41)" "(let-values()(1/rename-transformer-target t_53))))))" "(define-values" "(maybe-install-free=id-in-context!)" -"(lambda(val_68 id_66 phase_108 ctx_41)" +"(lambda(val_68 id_67 phase_108 ctx_42)" "(begin" "(if(1/rename-transformer? val_68)" "(let-values()" "(with-continuation-mark" " parameterization-key" -"(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_41)" -"(let-values()(maybe-install-free=id! val_68 id_66 phase_108))))" +"(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_42)" +"(let-values()(maybe-install-free=id! val_68 id_67 phase_108))))" "(void)))))" "(define-values" "(stop-ids->all-stop-ids)" @@ -39161,12 +39594,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_95)))" -"((letrec-values(((for-loop_106)" +"((letrec-values(((for-loop_107)" "(lambda(fold-var_85 lst_6)" "(begin" " 'for-loop" "(if(pair? lst_6)" -"(let-values(((sym_63)(unsafe-car lst_6))((rest_46)(unsafe-cdr lst_6)))" +"(let-values(((sym_64)(unsafe-car lst_6))((rest_46)(unsafe-cdr lst_6)))" "(let-values(((fold-var_86)" "(let-values(((fold-var_87) fold-var_85))" "(let-values(((fold-var_59)" @@ -39175,12 +39608,12 @@ static const char *startup_source = "(let-values()" "(datum->syntax$1" " p-core-stx_0" -" sym_63))" +" sym_64))" " fold-var_87))))" "(values fold-var_59)))))" -"(if(not #f)(for-loop_106 fold-var_86 rest_46) fold-var_86)))" +"(if(not #f)(for-loop_107 fold-var_86 rest_46) fold-var_86)))" " fold-var_85)))))" -" for-loop_106)" +" for-loop_107)" " null" " lst_95)))))))))))))" "(define-values" @@ -39209,14 +39642,14 @@ static const char *startup_source = "(let-values(((lst_219) module-stop-syms))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_219)))" -"((letrec-values(((for-loop_237)" -"(lambda(fold-var_220 lst_261)" +"((letrec-values(((for-loop_243)" +"(lambda(fold-var_234 lst_283)" "(begin" " 'for-loop" -"(if(pair? lst_261)" -"(let-values(((sym_17)(unsafe-car lst_261))((rest_138)(unsafe-cdr lst_261)))" +"(if(pair? lst_283)" +"(let-values(((sym_17)(unsafe-car lst_283))((rest_156)(unsafe-cdr lst_283)))" "(let-values(((fold-var_217)" -"(let-values(((fold-var_30) fold-var_220))" +"(let-values(((fold-var_30) fold-var_234))" "(let-values(((fold-var_218)" "(let-values()" "(cons" @@ -39224,9 +39657,9 @@ static const char *startup_source = "(datum->syntax$1 p-core-stx_1 sym_17))" " fold-var_30))))" "(values fold-var_218)))))" -"(if(not #f)(for-loop_237 fold-var_217 rest_138) fold-var_217)))" -" fold-var_220)))))" -" for-loop_237)" +"(if(not #f)(for-loop_243 fold-var_217 rest_156) fold-var_217)))" +" fold-var_234)))))" +" for-loop_243)" " null" " lst_219))))))))" "(define-values" @@ -39290,9 +39723,9 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_225)(not parent-ctx_0)))" -"(if or-part_225" -" or-part_225" +"(if(let-values(((or-part_232)(not parent-ctx_0)))" +"(if or-part_232" +" or-part_232" "(1/internal-definition-context? parent-ctx_0)))" "(void)" "(let-values()" @@ -39301,20 +39734,20 @@ static const char *startup_source = " \"(or/c #f internal-definition-context?)\"" " parent-ctx_0)))" "(values))))" -"(let-values(((ctx_42)" +"(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(((frame-id_8)" -"(let-values(((or-part_227)(root-expand-context-frame-id ctx_42)))" -"(if or-part_227" -" or-part_227" -"(let-values(((or-part_228)" +"(let-values(((or-part_234)(root-expand-context-frame-id ctx_43)))" +"(if or-part_234" +" or-part_234" +"(let-values(((or-part_235)" "(if parent-ctx_0" "(internal-definition-context-frame-id parent-ctx_0)" " #f)))" -"(if or-part_228 or-part_228(gensym)))))))" +"(if or-part_235 or-part_235(gensym)))))))" "(let-values(((sc_27)(new-scope 'intdef)))" -"(let-values(((def-ctx-scopes_4)(expand-context-def-ctx-scopes ctx_42)))" +"(let-values(((def-ctx-scopes_4)(expand-context-def-ctx-scopes ctx_43)))" "(begin" "(if def-ctx-scopes_4" "(void)" @@ -39332,7 +39765,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_403 intdef_0)" +"(lambda(ids_25 s_404 intdef_0)" "(begin" " 'syntax-local-bind-syntaxes" "(let-values((()" @@ -39344,9 +39777,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_274)(not s_403)))(if or-part_274 or-part_274(syntax?$1 s_403)))" +"(if(let-values(((or-part_281)(not s_404)))(if or-part_281 or-part_281(syntax?$1 s_404)))" "(void)" -" (let-values () (raise-argument-error 'syntax-local-bind-syntaxes \"(or/c syntax? #f)\" s_403)))" +" (let-values () (raise-argument-error 'syntax-local-bind-syntaxes \"(or/c syntax? #f)\" s_404)))" "(values))))" "(let-values((()" "(begin" @@ -39358,44 +39791,44 @@ static const char *startup_source = " \"internal-definition-context?\"" " intdef_0)))" "(values))))" -"(let-values(((ctx_43)" +"(let-values(((ctx_44)" "(let-values(((temp43_1) 'local-expand))(get-current-expand-context17.1 #f #f temp43_1 #t))))" "(let-values((()" "(begin" -"(let-values(((obs_29)(expand-context-observer ctx_43)))" +"(let-values(((obs_29)(expand-context-observer ctx_44)))" "(if obs_29" "(let-values()(let-values()(call-expand-observe obs_29 'local-bind ids_25)))" "(void)))" "(values))))" -"(let-values(((phase_110)(expand-context-phase ctx_43)))" -"(let-values(((intdef-env_0)(add-intdef-bindings(expand-context-env ctx_43) intdef_0)))" +"(let-values(((phase_110)(expand-context-phase ctx_44)))" +"(let-values(((intdef-env_0)(add-intdef-bindings(expand-context-env ctx_44) intdef_0)))" "(let-values(((intdef-ids_0)" "(reverse$1" -"(let-values(((lst_286) ids_25))" +"(let-values(((lst_284) ids_25))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_286)))" -"((letrec-values(((for-loop_171)" +"(let-values()(check-list lst_284)))" +"((letrec-values(((for-loop_172)" "(lambda(fold-var_16 lst_181)" "(begin" " 'for-loop" "(if(pair? lst_181)" -"(let-values(((id_67)(unsafe-car lst_181))" +"(let-values(((id_68)(unsafe-car lst_181))" "((rest_157)(unsafe-cdr lst_181)))" -"(let-values(((fold-var_223)" -"(let-values(((fold-var_233)" +"(let-values(((fold-var_224)" +"(let-values(((fold-var_235)" " fold-var_16))" -"(let-values(((fold-var_234)" +"(let-values(((fold-var_236)" "(let-values()" "(cons" "(let-values()" "(let-values(((pre-id_0)" "(remove-use-site-scopes" "(flip-introduction-scopes" -" id_67" -" ctx_43)" -" ctx_43)))" +" id_68" +" ctx_44)" +" ctx_44)))" "(let-values(((temp46_2)" " #t))" "(add-intdef-scopes21.1" @@ -39405,18 +39838,18 @@ static const char *startup_source = " #t" " pre-id_0" " intdef_0))))" -" fold-var_233))))" -"(values fold-var_234)))))" +" fold-var_235))))" +"(values fold-var_236)))))" "(if(not #f)" -"(for-loop_171 fold-var_223 rest_157)" -" fold-var_223)))" +"(for-loop_172 fold-var_224 rest_157)" +" fold-var_224)))" " fold-var_16)))))" -" for-loop_171)" +" for-loop_172)" " null" -" lst_286))))))" +" lst_284))))))" "(let-values((()" "(begin" -"(let-values(((obs_30)(expand-context-observer ctx_43)))" +"(let-values(((obs_30)(expand-context-observer ctx_44)))" "(if obs_30" "(let-values()" "(let-values()(call-expand-observe obs_30 'rename-list intdef-ids_0)))" @@ -39429,23 +39862,23 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_183)))" -"((letrec-values(((for-loop_186)" -"(lambda(fold-var_235 lst_287)" +"((letrec-values(((for-loop_187)" +"(lambda(fold-var_237 lst_285)" "(begin" " 'for-loop" -"(if(pair? lst_287)" -"(let-values(((intdef-id_0)(unsafe-car lst_287))" -"((rest_158)(unsafe-cdr lst_287)))" -"(let-values(((fold-var_236)" -"(let-values(((fold-var_237)" -" fold-var_235))" +"(if(pair? lst_285)" +"(let-values(((intdef-id_0)(unsafe-car lst_285))" +"((rest_158)(unsafe-cdr lst_285)))" +"(let-values(((fold-var_238)" +"(let-values(((fold-var_239)" +" fold-var_237))" "(let-values(((fold-var_158)" "(let-values()" "(cons" "(let-values()" "(let-values(((temp49_1)" "(root-expand-context-counter" -" ctx_43))" +" ctx_44))" "((temp50_1)" "(internal-definition-context-frame-id" " intdef_0)))" @@ -39457,30 +39890,30 @@ static const char *startup_source = " intdef-id_0" " phase_110" " temp49_1)))" -" fold-var_237))))" +" fold-var_239))))" "(values fold-var_158)))))" "(if(not #f)" -"(for-loop_186 fold-var_236 rest_158)" -" fold-var_236)))" -" fold-var_235)))))" -" for-loop_186)" +"(for-loop_187 fold-var_238 rest_158)" +" fold-var_238)))" +" fold-var_237)))))" +" for-loop_187)" " null" " lst_183))))))" "(let-values(((vals_5)" -"(if s_403" +"(if s_404" "(let-values()" "(let-values(((input-s_0)" "(flip-introduction-scopes" "(let-values(((temp53_2) #t))" -"(add-intdef-scopes21.1 #f #f temp53_2 #t s_403 intdef_0))" -" ctx_43)))" +"(add-intdef-scopes21.1 #f #f temp53_2 #t s_404 intdef_0))" +" ctx_44)))" "(let-values(((tmp-env_0)" -"(let-values(((lst_288) syms_21))" +"(let-values(((lst_286) syms_21))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_288)))" +"(let-values()(check-list lst_286)))" "((letrec-values(((for-loop_35)" "(lambda(env_7 lst_164)" "(begin" @@ -39511,11 +39944,11 @@ static const char *startup_source = " env_7)))))" " for-loop_35)" " intdef-env_0" -" lst_288)))))" +" lst_286)))))" "(let-values((()" "(begin" "(let-values(((obs_31)" -"(expand-context-observer ctx_43)))" +"(expand-context-observer ctx_44)))" "(if obs_31" "(let-values()" "(let-values()" @@ -39527,47 +39960,47 @@ static const char *startup_source = " input-s_0" " ids_25" "(let-values(((temp54_1)" -"(let-values(((v_92) ctx_43))" -"(let-values(((the-struct_66) v_92))" +"(let-values(((v_189) ctx_44))" +"(let-values(((the-struct_68) v_189))" "(if(expand-context/outer?" -" the-struct_66)" +" the-struct_68)" "(let-values(((env57_0) tmp-env_0)" "((inner58_0)" "(root-expand-context/outer-inner" -" v_92)))" +" v_189)))" "(expand-context/outer1.1" " inner58_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_66)" +" the-struct_68)" "(root-expand-context/outer-use-site-scopes" -" the-struct_66)" +" the-struct_68)" "(root-expand-context/outer-frame-id" -" the-struct_66)" +" the-struct_68)" "(expand-context/outer-context" -" the-struct_66)" +" the-struct_68)" " env57_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_66)" +" the-struct_68)" "(expand-context/outer-scopes" -" the-struct_66)" +" the-struct_68)" "(expand-context/outer-def-ctx-scopes" -" the-struct_66)" +" the-struct_68)" "(expand-context/outer-binding-layer" -" the-struct_66)" +" the-struct_68)" "(expand-context/outer-reference-records" -" the-struct_66)" +" the-struct_68)" "(expand-context/outer-only-immediate?" -" the-struct_66)" +" the-struct_68)" "(expand-context/outer-need-eventually-defined" -" the-struct_66)" +" the-struct_68)" "(expand-context/outer-current-introduction-scopes" -" the-struct_66)" +" the-struct_68)" "(expand-context/outer-name" -" the-struct_66)))" +" the-struct_68)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_66)))))" +" the-struct_68)))))" "((temp55_1) 'expression)" "((intdef56_0) intdef_0))" "(make-local-expand-context37.1" @@ -39583,7 +40016,7 @@ static const char *startup_source = " #f" " temp54_1)))))" "(begin" -"(let-values(((obs_19)(expand-context-observer ctx_43)))" +"(let-values(((obs_19)(expand-context-observer ctx_44)))" "(if obs_19" "(let-values()" "(let-values()(call-expand-observe obs_19 'exit-bind)))" @@ -39601,21 +40034,21 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_12)" -"(let-values(((id_68)(unsafe-car lst_12))" +"(let-values(((id_69)(unsafe-car lst_12))" "((rest_2)(unsafe-cdr lst_12)))" -"(let-values(((fold-var_238)" +"(let-values(((fold-var_240)" "(let-values(((fold-var_35)" " fold-var_176))" -"(let-values(((fold-var_239)" +"(let-values(((fold-var_241)" "(let-values()" "(cons" "(let-values()" " variable)" " fold-var_35))))" -"(values fold-var_239)))))" +"(values fold-var_241)))))" "(if(not #f)" -"(for-loop_7 fold-var_238 rest_2)" -" fold-var_238)))" +"(for-loop_7 fold-var_240 rest_2)" +" fold-var_240)))" " fold-var_176)))))" " for-loop_7)" " null" @@ -39626,32 +40059,32 @@ static const char *startup_source = " env-mixins_0" "(append" "(reverse$1" -"(let-values(((lst_135) intdef-ids_0)((lst_289) syms_21)((lst_98) vals_5))" +"(let-values(((lst_135) intdef-ids_0)((lst_287) syms_21)((lst_98) vals_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_135)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_289)))" +"(let-values()(check-list lst_287)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_98)))" -"((letrec-values(((for-loop_113)" -"(lambda(fold-var_38 lst_99 lst_14 lst_290)" +"((letrec-values(((for-loop_114)" +"(lambda(fold-var_38 lst_99 lst_14 lst_288)" "(begin" " 'for-loop" "(if(if(pair? lst_99)" -"(if(pair? lst_14)(pair? lst_290) #f)" +"(if(pair? lst_14)(pair? lst_288) #f)" " #f)" "(let-values(((intdef-id_1)(unsafe-car lst_99))" "((rest_160)(unsafe-cdr lst_99))" -"((sym_64)(unsafe-car lst_14))" +"((sym_65)(unsafe-car lst_14))" "((rest_161)(unsafe-cdr lst_14))" -"((val_9)(unsafe-car lst_290))" -"((rest_162)(unsafe-cdr lst_290)))" -"(let-values(((fold-var_240)" -"(let-values(((fold-var_241)" +"((val_9)(unsafe-car lst_288))" +"((rest_162)(unsafe-cdr lst_288)))" +"(let-values(((fold-var_242)" +"(let-values(((fold-var_243)" " fold-var_38))" "(let-values(((fold-var_179)" "(let-values()" @@ -39662,29 +40095,29 @@ static const char *startup_source = " val_9" " intdef-id_1" " phase_110" -" ctx_43)" +" ctx_44)" "(env-mixin2.1" " intdef-id_1" -" sym_64" +" sym_65" " val_9" "(make-weak-hasheq))))" -" fold-var_241))))" +" fold-var_243))))" "(values fold-var_179)))))" "(if(not #f)" -"(for-loop_113" -" fold-var_240" +"(for-loop_114" +" fold-var_242" " rest_160" " rest_161" " rest_162)" -" fold-var_240)))" +" fold-var_242)))" " fold-var_38)))))" -" for-loop_113)" +" for-loop_114)" " null" " lst_135" -" lst_289" +" lst_287" " lst_98))))" "(unbox env-mixins_0)))" -"(let-values(((obs_32)(expand-context-observer ctx_43)))" +"(let-values(((obs_32)(expand-context-observer ctx_44)))" "(if obs_32" "(let-values()(let-values()(call-expand-observe obs_32 'exit-local-bind)))" "(void)))))))))))))))))))" @@ -39702,29 +40135,29 @@ static const char *startup_source = " \"internal-definition-context?\"" " intdef_1)))" "(reverse$1" -"(let-values(((lst_280)(unbox(internal-definition-context-env-mixins intdef_1))))" +"(let-values(((lst_277)(unbox(internal-definition-context-env-mixins intdef_1))))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_280)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_277)))" "((letrec-values(((for-loop_240)" -"(lambda(fold-var_181 lst_281)" +"(lambda(fold-var_181 lst_278)" "(begin" " 'for-loop" -"(if(pair? lst_281)" -"(let-values(((env-mixin_0)(unsafe-car lst_281))" -"((rest_154)(unsafe-cdr lst_281)))" -"(let-values(((fold-var_229)" -"(let-values(((fold-var_230) fold-var_181))" -"(let-values(((fold-var_231)" +"(if(pair? lst_278)" +"(let-values(((env-mixin_0)(unsafe-car lst_278))" +"((rest_153)(unsafe-cdr lst_278)))" +"(let-values(((fold-var_230)" +"(let-values(((fold-var_231) fold-var_181))" +"(let-values(((fold-var_232)" "(let-values()" "(cons" "(let-values()(env-mixin-id env-mixin_0))" -" fold-var_230))))" -"(values fold-var_231)))))" -"(if(not #f)(for-loop_240 fold-var_229 rest_154) fold-var_229)))" +" fold-var_231))))" +"(values fold-var_232)))))" +"(if(not #f)(for-loop_240 fold-var_230 rest_153) fold-var_230)))" " fold-var_181)))))" " for-loop_240)" " null" -" lst_280))))))))" +" lst_277))))))))" "(define-values" "(1/internal-definition-context-introduce)" "(let-values(((internal-definition-context-introduce13_0)" @@ -39732,7 +40165,7 @@ static const char *startup_source = "(begin" " 'internal-definition-context-introduce13" "(let-values(((intdef_2) intdef11_0))" -"(let-values(((s_404) s12_1))" +"(let-values(((s_405) s12_1))" "(let-values(((mode_12)(if mode10_0 mode9_0 'flip)))" "(let-values()" "(begin" @@ -39743,27 +40176,27 @@ static const char *startup_source = " 'internal-definition-context-introduce" " \"internal-definition-context?\"" " intdef_2)))" -"(if(syntax?$1 s_404)" +"(if(syntax?$1 s_405)" "(void)" "(let-values()" -" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_404)))" +" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_405)))" "(let-values(((temp61_1)" -"(let-values(((tmp_32) mode_12))" -"(if(equal? tmp_32 'add)" +"(let-values(((tmp_33) mode_12))" +"(if(equal? tmp_33 'add)" "(let-values() add-scope)" -"(if(equal? tmp_32 'remove)" +"(if(equal? tmp_33 'remove)" "(let-values() remove-scope)" -"(if(equal? tmp_32 'flip)" +"(if(equal? tmp_33 'flip)" "(let-values() flip-scope)" "(let-values()" "(raise-argument-error" " 1/internal-definition-context-introduce" " \"(or/c 'add 'remove 'flip)\"" " mode_12))))))))" -"(add-intdef-scopes21.1 temp61_1 #t #f #f s_404 intdef_2)))))))))))" +"(add-intdef-scopes21.1 temp61_1 #t #f #f s_405 intdef_2)))))))))))" "(case-lambda" -"((intdef_3 s_405)" -"(begin 'internal-definition-context-introduce(internal-definition-context-introduce13_0 intdef_3 s_405 #f #f)))" +"((intdef_3 s_406)" +"(begin 'internal-definition-context-introduce(internal-definition-context-introduce13_0 intdef_3 s_406 #f #f)))" "((intdef_4 s_59 mode9_1)(internal-definition-context-introduce13_0 intdef_4 s_59 mode9_1 #t)))))" "(define-values" "(1/internal-definition-context-seal)" @@ -39778,34 +40211,34 @@ static const char *startup_source = "(void)))))" "(define-values" "(1/identifier-remove-from-definition-context)" -"(lambda(id_69 intdef_6)" +"(lambda(id_8 intdef_6)" "(begin" " 'identifier-remove-from-definition-context" "(begin" -"(if(identifier? id_69)" +"(if(identifier? id_8)" "(void)" -" (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_69)))" -"(if(let-values(((or-part_275)(1/internal-definition-context? intdef_6)))" -"(if or-part_275 or-part_275(if(list? intdef_6)(andmap2 1/internal-definition-context? intdef_6) #f)))" +" (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_8)))" +"(if(let-values(((or-part_282)(1/internal-definition-context? intdef_6)))" +"(if or-part_282 or-part_282(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_76)" -"(let-values(((a_45) intdef_6))" -"(if(list? a_45)" -"(let-values()(reverse$1 a_45))" -"(if(not a_45)(let-values() null)(let-values()(list a_45)))))))" +"(let-values(((x_77)" +"(let-values(((a_51) intdef_6))" +"(if(list? a_51)" +"(let-values()(reverse$1 a_51))" +"(if(not a_51)(let-values() null)(let-values()(list a_51)))))))" "(begin" " #t" -"((letrec-values(((for-loop_243)" -"(lambda(id_70 a_46)" +"((letrec-values(((for-loop_244)" +"(lambda(id_70 a_52)" "(begin" " 'for-loop" -"(if(pair? a_46)" -"(let-values(((intdef_7)(car a_46)))" +"(if(pair? a_52)" +"(let-values(((intdef_7)(car a_52)))" "(let-values(((id_71)" "(let-values(((id_72) id_70))" "(let-values(((id_73)" @@ -39815,28 +40248,28 @@ static const char *startup_source = " id_72" " 'remove))))" "(values id_73)))))" -"(if(not #f)(for-loop_243 id_71(cdr a_46)) id_71)))" +"(if(not #f)(for-loop_244 id_71(cdr a_52)) id_71)))" " id_70)))))" -" for-loop_243)" -" id_69" -" x_76)))))))" +" for-loop_244)" +" id_8" +" x_77)))))))" "(define-values" "(add-intdef-bindings)" "(lambda(env_11 intdefs_0)" "(begin" -"(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)))))))" +"(let-values(((x_78)" +"(let-values(((a_53) intdefs_0))" +"(if(list? a_53)" +"(let-values()(reverse$1 a_53))" +"(if(not a_53)(let-values() null)(let-values()(list a_53)))))))" "(begin" " #t" -"((letrec-values(((for-loop_89)" -"(lambda(env_12 a_48)" +"((letrec-values(((for-loop_90)" +"(lambda(env_12 a_54)" "(begin" " 'for-loop" -"(if(pair? a_48)" -"(let-values(((intdef_8)(car a_48)))" +"(if(pair? a_54)" +"(let-values(((intdef_8)(car a_54)))" "(let-values(((env_13)" "(let-values(((env_14) env_12))" "(let-values(((env_15)" @@ -39845,7 +40278,7 @@ static const char *startup_source = "(unbox" "(internal-definition-context-env-mixins" " intdef_8))))" -"((letrec-values(((loop_95)" +"((letrec-values(((loop_98)" "(lambda(env_16 env-mixins_2)" "(begin" " 'loop" @@ -39855,17 +40288,17 @@ static const char *startup_source = "(let-values(((env-mixin_1)" "(car" " env-mixins_2)))" -"(let-values(((or-part_206)" +"(let-values(((or-part_214)" "(hash-ref" "(env-mixin-cache" " env-mixin_1)" " env_16" " #f)))" -"(if or-part_206" -" or-part_206" +"(if or-part_214" +" or-part_214" "(let-values(((new-env_0)" "(env-extend" -"(loop_95" +"(loop_98" " env_16" "(cdr" " env-mixins_2))" @@ -39880,59 +40313,59 @@ static const char *startup_source = " env_16" " new-env_0)" " new-env_0)))))))))))" -" loop_95)" +" loop_98)" " env_14" " env-mixins_1)))))" "(values env_15)))))" -"(if(not #f)(for-loop_89 env_13(cdr a_48)) env_13)))" +"(if(not #f)(for-loop_90 env_13(cdr a_54)) env_13)))" " env_12)))))" -" for-loop_89)" +" for-loop_90)" " env_11" -" x_77))))))" +" x_78))))))" "(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_406) s19_0))" +"(let-values(((s_407) 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_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)))))))" +"(let-values(((x_79)" +"(let-values(((a_55) intdefs_1))" +"(if(list? a_55)" +"(let-values()(reverse$1 a_55))" +"(if(not a_55)(let-values() null)(let-values()(list a_55)))))))" "(begin" " #t" -"((letrec-values(((for-loop_244)" -"(lambda(s_407 a_50)" +"((letrec-values(((for-loop_245)" +"(lambda(s_408 a_56)" "(begin" " 'for-loop" -"(if(pair? a_50)" -"(let-values(((intdef_9)(car a_50)))" -"(let-values(((s_408)" -"(let-values(((s_152) s_407))" -"(if(let-values(((or-part_276) always?_0))" -"(if or-part_276" -" or-part_276" +"(if(pair? a_56)" +"(let-values(((intdef_9)(car a_56)))" +"(let-values(((s_409)" +"(let-values(((s_152) s_408))" +"(if(let-values(((or-part_283) always?_0))" +"(if or-part_283" +" or-part_283" "(internal-definition-context-add-scope?" " intdef_9)))" "(let-values(((s_90) s_152))" -"(let-values(((s_409)" +"(let-values(((s_410)" "(let-values()" "(action_0" " s_90" "(internal-definition-context-scope" " intdef_9)))))" -"(values s_409)))" +"(values s_410)))" " s_152))))" -"(if(not #f)(for-loop_244 s_408(cdr a_50)) s_408)))" -" s_407)))))" -" for-loop_244)" -" s_406" -" x_78)))))))))))" +"(if(not #f)(for-loop_245 s_409(cdr a_56)) s_409)))" +" s_408)))))" +" for-loop_245)" +" s_407" +" x_79)))))))))))" "(define-values" "(make-local-expand-context37.1)" "(lambda(context24_0" @@ -39948,56 +40381,56 @@ static const char *startup_source = " ctx36_0)" "(begin" " 'make-local-expand-context37" -"(let-values(((ctx_44) ctx36_0))" +"(let-values(((ctx_45) ctx36_0))" "(let-values(((context_9) context24_0))" -"(let-values(((phase_111)(if phase31_0 phase25_0(expand-context-phase ctx_44))))" +"(let-values(((phase_111)(if phase31_0 phase25_0(expand-context-phase ctx_45))))" "(let-values(((intdefs_2) intdefs26_0))" "(let-values(((stop-ids_1)(if stop-ids33_0 stop-ids27_0 #f)))" "(let-values(((to-parsed-ok?_0)(if to-parsed-ok?34_0 to-parsed-ok?28_0 #f)))" "(let-values(((track-to-be-defined?_0)(if track-to-be-defined?35_0 track-to-be-defined?29_0 #f)))" "(let-values()" "(let-values(((same-kind?_0)" -"(let-values(((or-part_277)(eq? context_9(expand-context-context ctx_44))))" -"(if or-part_277" -" or-part_277" -"(if(list? context_9)(list?(expand-context-context ctx_44)) #f)))))" +"(let-values(((or-part_284)(eq? context_9(expand-context-context ctx_45))))" +"(if or-part_284" +" or-part_284" +"(if(list? context_9)(list?(expand-context-context ctx_45)) #f)))))" "(let-values(((all-stop-ids_0)" "(if stop-ids_1(stop-ids->all-stop-ids stop-ids_1 phase_111) #f)))" "(let-values(((def-ctx-scopes_5)" -"(if(expand-context-def-ctx-scopes ctx_44)" -"(unbox(expand-context-def-ctx-scopes ctx_44))" +"(if(expand-context-def-ctx-scopes ctx_45)" +"(unbox(expand-context-def-ctx-scopes ctx_45))" " null)))" -"(let-values(((v_188) ctx_44))" -"(let-values(((the-struct_67) v_188))" -"(if(expand-context/outer? the-struct_67)" +"(let-values(((v_190) ctx_45))" +"(let-values(((the-struct_69) v_190))" +"(if(expand-context/outer? the-struct_69)" "(let-values(((context62_0) context_9)" -"((env63_0)(add-intdef-bindings(expand-context-env ctx_44) intdefs_2))" +"((env63_0)(add-intdef-bindings(expand-context-env ctx_45) intdefs_2))" "((use-site-scopes64_0)" -"(if(let-values(((or-part_163)(eq? context_9 'module)))" -"(if or-part_163" -" or-part_163" -"(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)" -"(root-expand-context-use-site-scopes ctx_44)))" -"(if or-part_279 or-part_279(box null)))" +"(if(let-values(((or-part_274)(eq? context_9 'module)))" +"(if or-part_274" +" or-part_274" +"(let-values(((or-part_285)(eq? context_9 'module-begin)))" +"(if or-part_285 or-part_285(list? context_9)))))" +"(let-values(((or-part_169)" +"(root-expand-context-use-site-scopes ctx_45)))" +"(if or-part_169 or-part_169(box null)))" " #f))" "((frame-id65_0)" "(let-values(((x_3)" -"(let-values(((a_51) intdefs_2))" -"(if(list? a_51)" -"(let-values()(reverse$1 a_51))" -"(if(not a_51)" +"(let-values(((a_57) intdefs_2))" +"(if(list? a_57)" +"(let-values()(reverse$1 a_57))" +"(if(not a_57)" "(let-values() null)" -"(let-values()(list a_51)))))))" +"(let-values()(list a_57)))))))" "(begin" " #t" -"((letrec-values(((for-loop_245)" -"(lambda(frame-id_9 a_52)" +"((letrec-values(((for-loop_246)" +"(lambda(frame-id_9 a_58)" "(begin" " 'for-loop" -"(if(pair? a_52)" -"(let-values(((intdef_10)(car a_52)))" +"(if(pair? a_58)" +"(let-values(((intdef_10)(car a_58)))" "(let-values(((frame-id_10)" "(let-values(((frame-id_11)" " frame-id_9))" @@ -40017,25 +40450,25 @@ static const char *startup_source = "(let-values()" " 'all)" "(let-values()" -"(let-values(((or-part_280)" +"(let-values(((or-part_286)" " frame-id_11))" -"(if or-part_280" -" or-part_280" +"(if or-part_286" +" or-part_286" " i-frame-id_0))))))))" "(values frame-id_12)))))" "(if(not #f)" -"(for-loop_245 frame-id_10(cdr a_52))" +"(for-loop_246 frame-id_10(cdr a_58))" " frame-id_10)))" " frame-id_9)))))" -" for-loop_245)" -"(root-expand-context-frame-id ctx_44)" +" for-loop_246)" +"(root-expand-context-frame-id ctx_45)" " x_3))))" "((post-expansion-scope66_0)" "(if intdefs_2" "(new-scope 'macro)" "(if same-kind?_0" "(if(memq context_9 '(module module-begin top-level))" -"(root-expand-context-post-expansion-scope ctx_44)" +"(root-expand-context-post-expansion-scope ctx_45)" " #f)" " #f)))" "((post-expansion-scope-action67_0)" @@ -40045,59 +40478,60 @@ static const char *startup_source = " 'post-expansion-scope-action67" "(let-values(((s73_1) s_111)((intdefs74_0) intdefs_2))" "(add-intdef-scopes21.1 #f #f #f #f s73_1 intdefs74_0))))" -"(expand-context-post-expansion-scope-action ctx_44)))" -"((scopes68_0)(append def-ctx-scopes_5(expand-context-scopes ctx_44)))" +"(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_133)(expand-context-need-eventually-defined ctx_44)))" +"(let-values(((ht_135)(expand-context-need-eventually-defined ctx_45)))" "(if track-to-be-defined?_0" -"(let-values() ht_133)" -"(if ht_133(let-values()(make-hasheqv))(let-values() #f)))))" +"(let-values() ht_135)" +"(if ht_135(let-values()(make-hasheqv))(let-values() #f)))))" "((inner72_0)" -"(let-values(((the-struct_68)(root-expand-context/outer-inner v_188)))" -"(if(expand-context/inner? the-struct_68)" +"(let-values(((the-struct_70)(root-expand-context/outer-inner v_190)))" +"(if(expand-context/inner? the-struct_70)" "(let-values(((to-parsed?75_0)" "(if to-parsed-ok?_0" -"(expand-context-to-parsed? ctx_44)" +"(expand-context-to-parsed? ctx_45)" " #f))" "((just-once?76_0) #f)" "((in-local-expand?77_0) #t)" "((stops78_0)" "(free-id-set" " phase_111" -"(let-values(((or-part_281) all-stop-ids_0))" -"(if or-part_281 or-part_281 null)))))" +"(let-values(((or-part_287) all-stop-ids_0))" +"(if or-part_287 or-part_287 null)))))" "(expand-context/inner2.1" -"(root-expand-context/inner-module-scopes the-struct_68)" -"(root-expand-context/inner-top-level-bind-scope the-struct_68)" -"(root-expand-context/inner-all-scopes-stx the-struct_68)" -"(root-expand-context/inner-defined-syms the-struct_68)" -"(root-expand-context/inner-counter the-struct_68)" -"(root-expand-context/inner-lift-key the-struct_68)" +"(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_68)" -"(expand-context/inner-namespace the-struct_68)" +"(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_68)" -"(expand-context/inner-allow-unbound? the-struct_68)" +"(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_68)" -"(expand-context/inner-lifts the-struct_68)" -"(expand-context/inner-lift-envs the-struct_68)" -"(expand-context/inner-module-lifts the-struct_68)" -"(expand-context/inner-require-lifts the-struct_68)" -"(expand-context/inner-to-module-lifts the-struct_68)" -"(expand-context/inner-requires+provides the-struct_68)" -"(expand-context/inner-observer the-struct_68)" -"(expand-context/inner-for-serializable? the-struct_68)" +"(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_68)))" +" the-struct_70)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_68)))))" +" the-struct_70)))))" "(expand-context/outer1.1" " inner72_0" " post-expansion-scope66_0" @@ -40107,20 +40541,20 @@ static const char *startup_source = " env63_0" " post-expansion-scope-action67_0" " scopes68_0" -"(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-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_67)))" +"(expand-context/outer-name the-struct_69)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_67))))))))))))))))))" +" the-struct_69))))))))))))))))))" "(define-values" "(flip-introduction-scopes)" -"(lambda(s_410 ctx_45)(begin(flip-scopes s_410(expand-context-current-introduction-scopes ctx_45)))))" +"(lambda(s_411 ctx_46)(begin(flip-scopes s_411(expand-context-current-introduction-scopes ctx_46)))))" "(define-values" "(1/syntax-transforming?)" "(lambda()" @@ -40132,8 +40566,8 @@ static const char *startup_source = "(lambda()" "(begin" " 'syntax-transforming-with-lifts?" -"(let-values(((ctx_46)(let-values(((temp63_1) #t))(get-current-expand-context17.1 temp63_1 #t #f #f))))" -"(if ctx_46(if(expand-context-lifts ctx_46) #t #f) #f)))))" +"(let-values(((ctx_47)(let-values(((temp63_1) #t))(get-current-expand-context17.1 temp63_1 #t #f #f))))" +"(if ctx_47(if(expand-context-lifts ctx_47) #t #f) #f)))))" "(define-values" "(1/syntax-transforming-module-expression?)" "(lambda()" @@ -40146,8 +40580,8 @@ static const char *startup_source = "(lambda()" "(begin" " 'syntax-local-transforming-module-provides?" -"(let-values(((ctx_47)(let-values(((temp65_1) #t))(get-current-expand-context17.1 temp65_1 #t #f #f))))" -"(if ctx_47(if(expand-context-requires+provides ctx_47) #t #f) #f)))))" +"(let-values(((ctx_48)(let-values(((temp65_1) #t))(get-current-expand-context17.1 temp65_1 #t #f #f))))" +"(if ctx_48(if(expand-context-requires+provides ctx_48) #t #f) #f)))))" "(define-values" "(1/syntax-local-context)" "(lambda()" @@ -40159,19 +40593,19 @@ static const char *startup_source = "(expand-context-context ctx_13)))))" "(define-values" "(1/syntax-local-introduce)" -"(lambda(s_411)" +"(lambda(s_412)" "(begin" " 'syntax-local-introduce" "(let-values((()" "(begin" -"(if(syntax?$1 s_411)" +"(if(syntax?$1 s_412)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_411)))" +" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_412)))" "(values))))" -"(let-values(((ctx_48)" +"(let-values(((ctx_49)" "(let-values(((temp67_0) 'syntax-local-introduce))" "(get-current-expand-context17.1 #f #f temp67_0 #t))))" -"(flip-introduction-scopes s_411 ctx_48))))))" +"(flip-introduction-scopes s_412 ctx_49))))))" "(define-values" "(1/syntax-local-identifier-as-binding)" "(lambda(id_3)" @@ -40183,17 +40617,17 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 1/syntax-local-identifier-as-binding \"identifier?\" id_3)))" "(values))))" -"(let-values(((ctx_49)" +"(let-values(((ctx_50)" "(let-values(((temp68_0) 'syntax-local-identifier-as-binding))" "(get-current-expand-context17.1 #f #f temp68_0 #t))))" -"(remove-use-site-scopes id_3 ctx_49))))))" +"(remove-use-site-scopes id_3 ctx_50))))))" "(define-values" "(1/syntax-local-phase-level)" "(lambda()" "(begin" " 'syntax-local-phase-level" -"(let-values(((ctx_50)(let-values(((temp69_0) #t))(get-current-expand-context17.1 temp69_0 #t #f #f))))" -"(if ctx_50(expand-context-phase ctx_50) 0)))))" +"(let-values(((ctx_51)(let-values(((temp69_0) #t))(get-current-expand-context17.1 temp69_0 #t #f #f))))" +"(if ctx_51(expand-context-phase ctx_51) 0)))))" "(define-values" "(1/syntax-local-name)" "(lambda()" @@ -40224,12 +40658,12 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'syntax-introducer \"syntax?\" s_174)))" -"(let-values(((tmp_33) mode_13))" -"(if(equal? tmp_33 'add)" +"(let-values(((tmp_34) mode_13))" +"(if(equal? tmp_34 'add)" "(let-values()(add-scope s_174 sc_28))" -"(if(equal? tmp_33 'remove)" +"(if(equal? tmp_34 'remove)" "(let-values()(remove-scope s_174 sc_28))" -"(if(equal? tmp_33 'flip)" +"(if(equal? tmp_34 'flip)" "(let-values()(flip-scope s_174 sc_28))" "(let-values()" "(raise-argument-error" @@ -40261,8 +40695,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_166)(syntax?$1 base-s_0)))" -"(if or-part_166 or-part_166(not base-s_0)))" +"(if(let-values(((or-part_173)(syntax?$1 base-s_0)))" +"(if or-part_173 or-part_173(not base-s_0)))" "(void)" "(let-values()" "(raise-argument-error" @@ -40283,13 +40717,13 @@ static const char *startup_source = "(let-values(((ext-scs_0)(syntax-scope-set ext-s_0 phase_112)))" "(let-values(((base-scs_0)" "(syntax-scope-set" -"(let-values(((or-part_167) base-s_0))" -"(if or-part_167 or-part_167 empty-syntax))" +"(let-values(((or-part_174) base-s_0))" +"(if or-part_174 or-part_174 empty-syntax))" " phase_112)))" "(let-values(((use-base-scs_0)" "(if(subset? base-scs_0 ext-scs_0)" " base-scs_0" -"(let-values(((or-part_168)" +"(let-values(((or-part_175)" "(if(identifier? base-s_0)" "(let-values(((temp78_2) #t))" "(resolve33.1" @@ -40304,7 +40738,7 @@ static const char *startup_source = " base-s_0" " phase_112))" " #f)))" -"(if or-part_168 or-part_168(seteq))))))" +"(if or-part_175 or-part_175(seteq))))))" "(let-values(((delta-scs_0)" "(set->list(set-subtract ext-scs_0 use-base-scs_0))))" "(let-values(((maybe-taint_0)" @@ -40313,19 +40747,19 @@ static const char *startup_source = "(lambda(s81_0 mode79_0 mode80_0)" "(begin" " 'core82" -"(let-values(((s_412) s81_0))" +"(let-values(((s_413) 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_412 delta-scs_0))" -"(if(equal? tmp_34 'remove)" +"(let-values(((tmp_35) mode_14))" +"(if(equal? tmp_35 'add)" +"(let-values()(add-scopes s_413 delta-scs_0))" +"(if(equal? tmp_35 'remove)" "(let-values()" -"(remove-scopes s_412 delta-scs_0))" -"(if(equal? tmp_34 'flip)" +"(remove-scopes s_413 delta-scs_0))" +"(if(equal? tmp_35 'flip)" "(let-values()" -"(flip-scopes s_412 delta-scs_0))" +"(flip-scopes s_413 delta-scs_0))" "(let-values()" "(raise-argument-error" " 'syntax-introducer" @@ -40333,7 +40767,7 @@ static const char *startup_source = " mode_14))))))))))))))" "(case-lambda" "((s_180)(core82_0 s_180 #f #f))" -"((s_399 mode79_1)(core82_0 s_399 mode79_1 #t))))))))))))))))))))" +"((s_400 mode79_1)(core82_0 s_400 mode79_1 #t))))))))))))))))))))" "(case-lambda" "((ext-s_1 base-s_1)(begin 'make-syntax-delta-introducer(make-syntax-delta-introducer9_0 ext-s_1 base-s_1 #f #f)))" "((ext-s_2 base-s_2 phase5_1)(make-syntax-delta-introducer9_0 ext-s_2 base-s_2 phase5_1 #t)))))" @@ -40369,9 +40803,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_74)(not failure-thunk_0)))" -"(if or-part_74" -" or-part_74" +"(if(let-values(((or-part_80)(not failure-thunk_0)))" +"(if or-part_80" +" or-part_80" "(if(procedure? failure-thunk_0)" "(procedure-arity-includes? failure-thunk_0 0)" " #f)))" @@ -40384,8 +40818,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_75)(not intdef_11)))" -"(if or-part_75 or-part_75(1/internal-definition-context? intdef_11)))" +"(if(let-values(((or-part_81)(not intdef_11)))" +"(if or-part_81 or-part_81(1/internal-definition-context? intdef_11)))" "(void)" "(let-values()" "(raise-argument-error" @@ -40396,47 +40830,47 @@ static const char *startup_source = "(let-values(((current-ctx_0)" "(let-values(((who84_0) who_15))" "(get-current-expand-context17.1 #f #f who84_0 #t))))" -"(let-values(((ctx_51)" +"(let-values(((ctx_52)" "(if intdef_11" -"(let-values(((v_47) current-ctx_0))" -"(let-values(((the-struct_69) v_47))" -"(if(expand-context/outer? the-struct_69)" +"(let-values(((v_50) current-ctx_0))" +"(let-values(((the-struct_71) v_50))" +"(if(expand-context/outer? the-struct_71)" "(let-values(((env85_0)" "(add-intdef-bindings" "(expand-context-env current-ctx_0)" " intdef_11))" -"((inner86_0)(root-expand-context/outer-inner v_47)))" +"((inner86_0)(root-expand-context/outer-inner v_50)))" "(expand-context/outer1.1" " inner86_0" -"(root-expand-context/outer-post-expansion-scope the-struct_69)" -"(root-expand-context/outer-use-site-scopes the-struct_69)" -"(root-expand-context/outer-frame-id the-struct_69)" -"(expand-context/outer-context the-struct_69)" +"(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_69)" -"(expand-context/outer-scopes the-struct_69)" -"(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)" -"(expand-context/outer-only-immediate? the-struct_69)" -"(expand-context/outer-need-eventually-defined the-struct_69)" -"(expand-context/outer-current-introduction-scopes the-struct_69)" -"(expand-context/outer-name the-struct_69)))" +"(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_69))))" +" the-struct_71))))" " current-ctx_0)))" "(let-values((()" "(begin" -"(let-values(((obs_33)(expand-context-observer ctx_51)))" +"(let-values(((obs_33)(expand-context-observer ctx_52)))" "(if obs_33" "(let-values()" "(let-values()(call-expand-observe obs_33 'local-value id_74)))" "(void)))" "(values))))" -"(let-values(((phase_113)(expand-context-phase ctx_51)))" -"((letrec-values(((loop_96)" +"(let-values(((phase_113)(expand-context-phase ctx_52)))" +"((letrec-values(((loop_99)" "(lambda(id_75)" "(begin" " 'loop" @@ -40459,9 +40893,9 @@ static const char *startup_source = "(resolve+shift/extra-inspector" " id_75" " phase_113" -"(expand-context-namespace ctx_51)))))" +"(expand-context-namespace ctx_52)))))" "(begin" -"(let-values(((obs_34)(expand-context-observer ctx_51)))" +"(let-values(((obs_34)(expand-context-observer ctx_52)))" "(if obs_34" "(let-values()" "(let-values()" @@ -40471,7 +40905,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values(((obs_29)" -"(expand-context-observer ctx_51)))" +"(expand-context-observer ctx_52)))" "(if obs_29" "(let-values()" "(let-values()" @@ -40487,7 +40921,7 @@ static const char *startup_source = " \"unbound identifier: ~v\"" " id_75))))" "(let-values()" -"(let-values(((v_51 primitive?_7 insp_17)" +"(let-values(((v_54 primitive?_7 insp_17)" "(let-values(((temp93_3) #t))" "(lookup17.1" " #f" @@ -40495,14 +40929,14 @@ static const char *startup_source = " temp93_3" " #t" " b_54" -" ctx_51" +" ctx_52" " id_75))))" -"(if(let-values(((or-part_282)(variable? v_51)))" -"(if or-part_282 or-part_282(core-form? v_51)))" +"(if(let-values(((or-part_288)(variable? v_54)))" +"(if or-part_288 or-part_288(core-form? v_54)))" "(let-values()" "(begin" "(let-values(((obs_35)" -"(expand-context-observer ctx_51)))" +"(expand-context-observer ctx_52)))" "(if obs_35" "(let-values()" "(let-values()" @@ -40520,11 +40954,11 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values(((obs_36)" -"(expand-context-observer ctx_51)))" +"(expand-context-observer ctx_52)))" "(if obs_36" "(let-values()" "(if(not" -"(if(1/rename-transformer? v_51)" +"(if(1/rename-transformer? v_54)" "(not immediate?_1)" " #f))" "(let-values()" @@ -40534,19 +40968,19 @@ static const char *startup_source = " #t))" "(void)))" "(void)))" -"(if(1/rename-transformer? v_51)" +"(if(1/rename-transformer? v_54)" "(let-values()" "(if immediate?_1" "(values" -" v_51" -"(1/rename-transformer-target v_51))" -"(loop_96" -"(1/rename-transformer-target v_51))))" +" v_54" +"(1/rename-transformer-target v_54))" +"(loop_99" +"(1/rename-transformer-target v_54))))" "(if immediate?_1" -"(let-values()(values v_51 #f))" -"(let-values() v_51)))))))))))))))" -" loop_96)" -"(flip-introduction-scopes id_74 ctx_51))))))))))))))))))" +"(let-values()(values v_54 #f))" +"(let-values() v_54)))))))))))))))" +" loop_99)" +"(flip-introduction-scopes id_74 ctx_52))))))))))))))))))" "(define-values" "(1/syntax-local-value)" "(let-values(((syntax-local-value25_0)" @@ -40573,13 +41007,13 @@ static const char *startup_source = "(lambda(id31_1 failure-thunk27_0 intdef28_0 failure-thunk29_0 intdef30_0)" "(begin" " 'syntax-local-value/immediate32" -"(let-values(((id_68) id31_1))" +"(let-values(((id_69) 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_68)" +"((id101_1) id_69)" "((intdef102_0) intdef_13)" "((failure-thunk103_0) failure-thunk_3))" "(do-syntax-local-value17.1" @@ -40594,7 +41028,7 @@ static const char *startup_source = "((id_47 failure-thunk27_1)(syntax-local-value/immediate32_0 id_47 failure-thunk27_1 #f #t #f)))))" "(define-values" "(do-lift-values-expression)" -"(lambda(who_16 n_28 s_316)" +"(lambda(who_16 n_30 s_316)" "(begin" "(let-values((()" "(begin" @@ -40602,20 +41036,20 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(exact-nonnegative-integer? n_28)" +"(if(exact-nonnegative-integer? n_30)" "(void)" -" (let-values () (raise-argument-error who_16 \"exact-nonnegative-integer?\" n_28)))" +" (let-values () (raise-argument-error who_16 \"exact-nonnegative-integer?\" n_30)))" "(values))))" -"(let-values(((ctx_52)(let-values(((who104_0) who_16))(get-current-expand-context17.1 #f #f who104_0 #t))))" -"(let-values(((lifts_8)(expand-context-lifts ctx_52)))" +"(let-values(((ctx_53)(let-values(((who104_0) who_16))(get-current-expand-context17.1 #f #f who104_0 #t))))" +"(let-values(((lifts_8)(expand-context-lifts ctx_53)))" "(let-values((()" "(begin" " (if lifts_8 (void) (let-values () (raise-arguments-error who_16 \"no lift target\")))" "(values))))" -"(let-values(((counter_4)(root-expand-context-counter ctx_52)))" +"(let-values(((counter_4)(root-expand-context-counter ctx_53)))" "(let-values(((ids_26)" "(reverse$1" -"(let-values(((start_40) 0)((end_29) n_28)((inc_23) 1))" +"(let-values(((start_40) 0)((end_29) n_30)((inc_23) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -40626,9 +41060,9 @@ static const char *startup_source = " 'for-loop" "(if(< pos_102 end_29)" "(let-values()" -"(let-values(((fold-var_242)" -"(let-values(((fold-var_229) fold-var_181))" -"(let-values(((fold-var_230)" +"(let-values(((fold-var_244)" +"(let-values(((fold-var_230) fold-var_181))" +"(let-values(((fold-var_231)" "(let-values()" "(cons" "(let-values()" @@ -40652,46 +41086,46 @@ static const char *startup_source = " name_63)" "(new-scope" " 'macro)))))" -" fold-var_229))))" -"(values fold-var_230)))))" +" fold-var_230))))" +"(values fold-var_231)))))" "(if(not #f)" -"(for-loop_240 fold-var_242(+ pos_102 inc_23))" -" fold-var_242)))" +"(for-loop_240 fold-var_244(+ pos_102 inc_23))" +" fold-var_244)))" " fold-var_181)))))" " for-loop_240)" " null" " start_40))))))" "(begin" -"(let-values(((obs_37)(expand-context-observer ctx_52)))" +"(let-values(((obs_37)(expand-context-observer ctx_53)))" "(if obs_37" "(let-values()(let-values()(call-expand-observe obs_37 'lift-expr ids_26 s_316)))" "(void)))" "(map2" -"(lambda(id_81)(flip-introduction-scopes id_81 ctx_52))" +"(lambda(id_81)(flip-introduction-scopes id_81 ctx_53))" "(add-lifted!" " lifts_8" " ids_26" -"(flip-introduction-scopes s_316 ctx_52)" -"(expand-context-phase ctx_52))))))))))))))" +"(flip-introduction-scopes s_316 ctx_53)" +"(expand-context-phase ctx_53))))))))))))))" "(define-values" "(1/syntax-local-lift-expression)" -"(lambda(s_413)" -"(begin 'syntax-local-lift-expression(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_413)))))" +"(lambda(s_414)" +"(begin 'syntax-local-lift-expression(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_414)))))" "(define-values" "(1/syntax-local-lift-values-expression)" -"(lambda(n_29 s_414)" +"(lambda(n_31 s_415)" "(begin" " 'syntax-local-lift-values-expression" -"(do-lift-values-expression 'syntax-local-lift-values-expression n_29 s_414))))" +"(do-lift-values-expression 'syntax-local-lift-values-expression n_31 s_415))))" "(define-values" "(1/syntax-local-lift-context)" "(lambda()" "(begin" " 'syntax-local-lift-context" -"(let-values(((ctx_53)" +"(let-values(((ctx_54)" "(let-values(((temp105_0) 'syntax-local-lift-context))" "(get-current-expand-context17.1 #f #f temp105_0 #t))))" -"(root-expand-context-lift-key ctx_53)))))" +"(root-expand-context-lift-key ctx_54)))))" "(define-values" "(1/syntax-local-lift-module)" "(lambda(s_58)" @@ -40703,17 +41137,17 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'syntax-local-lift-module \"syntax?\" s_58)))" "(values))))" -"(let-values(((ctx_54)" +"(let-values(((ctx_55)" "(let-values(((temp106_1) 'syntax-local-lift-module))" "(get-current-expand-context17.1 #f #f temp106_1 #t))))" -"(let-values(((phase_114)(expand-context-phase ctx_54)))" +"(let-values(((phase_114)(expand-context-phase ctx_55)))" "(begin" -"(let-values(((tmp_35)(core-form-sym s_58 phase_114)))" -"(if(if(equal? tmp_35 'module) #t(equal? tmp_35 'module*))" +"(let-values(((tmp_36)(core-form-sym s_58 phase_114)))" +"(if(if(equal? tmp_36 'module) #t(equal? tmp_36 'module*))" "(let-values()" -"(let-values(((lifts_9)(expand-context-module-lifts ctx_54)))" +"(let-values(((lifts_0)(expand-context-module-lifts ctx_55)))" "(begin" -"(if lifts_9" +"(if lifts_0" "(void)" "(let-values()" "(raise-arguments-error" @@ -40721,10 +41155,10 @@ static const char *startup_source = " \"not currently transforming within a module declaration or top level\"" " \"form to lift\"" " s_58)))" -"(add-lifted-module! lifts_9(flip-introduction-scopes s_58 ctx_54) phase_114))))" +"(add-lifted-module! lifts_0(flip-introduction-scopes s_58 ctx_55) phase_114))))" "(let-values()" " (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_58))))" -"(let-values(((obs_38)(expand-context-observer ctx_54)))" +"(let-values(((obs_38)(expand-context-observer ctx_55)))" "(if obs_38" "(let-values()(let-values()(call-expand-observe obs_38 'lift-statement s_58)))" "(void))))))))))" @@ -40749,7 +41183,7 @@ static const char *startup_source = "(begin" " 'do-local-lift-to-module54" "(let-values(((who_17) who52_0))" -"(let-values(((s_321) s53_1))" +"(let-values(((s_322) 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)))" @@ -40759,7 +41193,7 @@ static const char *startup_source = "(let-values(((pre-wrap_0)" "(if pre-wrap49_0" " pre-wrap40_0" -"(lambda(s_415 phase_115 lift-ctx_1)(begin 'pre-wrap s_415)))))" +"(lambda(s_416 phase_115 lift-ctx_1)(begin 'pre-wrap s_416)))))" "(let-values(((shift-wrap_0)" "(if shift-wrap50_0" " shift-wrap41_0" @@ -40767,19 +41201,19 @@ static const char *startup_source = "(let-values(((post-wrap_0)" "(if post-wrap51_0" " post-wrap42_0" -"(lambda(s_416 phase_117 lift-ctx_3)(begin 'post-wrap s_416)))))" +"(lambda(s_417 phase_117 lift-ctx_3)(begin 'post-wrap s_417)))))" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_321)" +"(if(syntax?$1 s_322)" "(void)" -" (let-values () (raise-argument-error who_17 \"syntax?\" s_321)))" +" (let-values () (raise-argument-error who_17 \"syntax?\" s_322)))" "(values))))" "(let-values((()(begin(more-checks_0)(values))))" -"(let-values(((ctx_55)" +"(let-values(((ctx_56)" "(let-values(((who107_0) who_17))" "(get-current-expand-context17.1 #f #f who107_0 #t))))" -"(let-values(((lift-ctx_4)(get-lift-ctx_0 ctx_55)))" +"(let-values(((lift-ctx_4)(get-lift-ctx_0 ctx_56)))" "(let-values((()" "(begin" "(if lift-ctx_4" @@ -40789,12 +41223,12 @@ static const char *startup_source = " who_17" " no-target-msg_0" " \"form to lift\"" -" s_321)))" +" s_322)))" "(values))))" -"(let-values(((phase_118)(expand-context-phase ctx_55)))" +"(let-values(((phase_118)(expand-context-phase ctx_56)))" "(let-values(((wrt-phase_1)(get-wrt-phase_0 lift-ctx_4)))" "(let-values(((added-s_0)" -"(if intro?_0(flip-introduction-scopes s_321 ctx_55) s_321)))" +"(if intro?_0(flip-introduction-scopes s_322 ctx_56) s_322)))" "(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_118 lift-ctx_4)))" "(let-values(((shift-s_0)" "(let-values(((start_41) phase_118)" @@ -40806,7 +41240,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_41 end_30 inc_24)))" -"((letrec-values(((for-loop_246)" +"((letrec-values(((for-loop_247)" "(lambda(s_91 pos_103)" "(begin" " 'for-loop" @@ -40814,40 +41248,40 @@ static const char *startup_source = "(let-values(((phase_119)" " pos_103))" "(let-values(((s_39)" -"(let-values(((s_417)" +"(let-values(((s_418)" " s_91))" "(let-values(((s_206)" "(let-values()" "(shift-wrap_0" -" s_417" +" s_418" "(sub1" " phase_119)" " lift-ctx_4))))" "(values" " s_206)))))" "(if(not #f)" -"(for-loop_246" +"(for-loop_247" " s_39" "(+ pos_103 inc_24))" " s_39)))" " s_91)))))" -" for-loop_246)" +" for-loop_247)" " pre-s_0" " start_41)))))" "(let-values(((post-s_1)" "(post-wrap_0 shift-s_0 wrt-phase_1 lift-ctx_4)))" "(begin" "(add-lifted!_0 lift-ctx_4 post-s_1 wrt-phase_1)" -"(values ctx_55 post-s_1))))))))))))))))))))))))))))" +"(values ctx_56 post-s_1))))))))))))))))))))))))))))" "(define-values" "(1/syntax-local-lift-require)" -"(lambda(s_324 use-s_1)" +"(lambda(s_325 use-s_1)" "(begin" " 'syntax-local-lift-require" "(let-values(((sc_29)(new-scope 'macro)))" -"(let-values(((ctx_56 added-s_1)" +"(let-values(((ctx_57 added-s_1)" "(let-values(((temp108_0) 'syntax-local-lift-require)" -"((temp109_0)(datum->syntax$1 #f s_324))" +"((temp109_0)(datum->syntax$1 #f s_325))" " ((temp110_1) \"could not find target context\")" "((temp111_1) #f)" "((temp112_0)" @@ -40862,8 +41296,8 @@ static const char *startup_source = "((temp116_0)" "(lambda(s_211 phase_120 require-lift-ctx_0)(require-spec-shift-for-syntax s_211)))" "((temp117_1)" -"(lambda(s_418 phase_121 require-lift-ctx_1)" -"(wrap-form '#%require(add-scope s_418 sc_29) phase_121))))" +"(lambda(s_419 phase_121 require-lift-ctx_1)" +"(wrap-form '#%require(add-scope s_419 sc_29) phase_121))))" "(do-local-lift-to-module54.1" " add-lifted-require!115_0" " expand-context-require-lifts113_0" @@ -40884,12 +41318,12 @@ static const char *startup_source = "(let-values((()" "(begin" "(namespace-visit-available-modules!" -"(expand-context-namespace ctx_56)" -"(expand-context-phase ctx_56))" +"(expand-context-namespace ctx_57)" +"(expand-context-phase ctx_57))" "(values))))" "(let-values(((result-s_6)(add-scope use-s_1 sc_29)))" "(begin" -"(let-values(((obs_27)(expand-context-observer ctx_56)))" +"(let-values(((obs_27)(expand-context-observer ctx_57)))" "(if obs_27" "(let-values()" "(let-values()(call-expand-observe obs_27 'lift-require added-s_1 use-s_1 result-s_6)))" @@ -40897,18 +41331,18 @@ static const char *startup_source = " result-s_6))))))))" "(define-values" "(1/syntax-local-lift-provide)" -"(lambda(s_419)" +"(lambda(s_420)" "(begin" " 'syntax-local-lift-provide" -"(let-values(((ctx_57 result-s_7)" +"(let-values(((ctx_3 result-s_7)" "(let-values(((temp118_1) 'syntax-local-lift-provide)" -"((s119_0) s_419)" +"((s119_0) s_420)" " ((temp120_0) \"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_420 phase_122 to-module-lift-ctx_0)(wrap-form 'for-syntax s_420 #f)))" +"(lambda(s_421 phase_122 to-module-lift-ctx_0)(wrap-form 'for-syntax s_421 #f)))" "((temp125_0)" "(lambda(s_114 phase_123 to-module-lift-ctx_1)" "(wrap-form '#%provide s_114 phase_123))))" @@ -40929,7 +41363,7 @@ static const char *startup_source = " #t" " temp118_1" " s119_0))))" -"(let-values(((obs_39)(expand-context-observer ctx_57)))" +"(let-values(((obs_39)(expand-context-observer ctx_3)))" "(if obs_39(let-values()(let-values()(call-expand-observe obs_39 'lift-provide result-s_7)))(void)))))))" "(define-values" "(1/syntax-local-lift-module-end-declaration)" @@ -40972,11 +41406,11 @@ static const char *startup_source = "(if obs_40(let-values()(let-values()(call-expand-observe obs_40 'lift-statement s_215)))(void)))))))" "(define-values" "(wrap-form)" -"(lambda(sym_65 s_120 phase_126)" +"(lambda(sym_66 s_120 phase_126)" "(begin" "(datum->syntax$1" " #f" -"(list(datum->syntax$1(if phase_126(syntax-shift-phase-level$1 core-stx phase_126) #f) sym_65) s_120)))))" +"(list(datum->syntax$1(if phase_126(syntax-shift-phase-level$1 core-stx phase_126) #f) sym_66) s_120)))))" "(define-values" "(1/syntax-local-module-defined-identifiers)" "(lambda()" @@ -40997,13 +41431,13 @@ static const char *startup_source = "(requireds->phase-ht(extract-module-definitions(expand-context-requires+provides ctx_59))))))))" "(define-values" "(1/syntax-local-module-required-identifiers)" -"(lambda(mod-path_8 phase-level_20)" +"(lambda(mod-path_8 phase-level_21)" "(begin" " 'syntax-local-module-required-identifiers" "(let-values((()" "(begin" -"(if(let-values(((or-part_177)(not mod-path_8)))" -"(if or-part_177 or-part_177(1/module-path? mod-path_8)))" +"(if(let-values(((or-part_185)(not mod-path_8)))" +"(if or-part_185 or-part_185(1/module-path? mod-path_8)))" "(void)" "(let-values()" "(raise-argument-error" @@ -41013,14 +41447,14 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_283)(eq? phase-level_20 #t)))" -"(if or-part_283 or-part_283(phase? phase-level_20)))" +"(if(let-values(((or-part_289)(eq? phase-level_21 #t)))" +"(if or-part_289 or-part_289(phase? phase-level_21)))" "(void)" "(let-values()" "(raise-argument-error" " 'syntax-local-module-required-identifiers" " (format \"(or/c ~a #t)\" phase?-string)" -" phase-level_20)))" +" phase-level_21)))" "(values))))" "(let-values((()" "(begin" @@ -41040,37 +41474,37 @@ static const char *startup_source = "(extract-all-module-requires" " requires+provides_5" " mpi_44" -"(if(eq? phase-level_20 #t) 'all phase-level_20))))" +"(if(eq? phase-level_21 #t) 'all phase-level_21))))" "(if requireds_0" "(reverse$1" -"(let-values(((ht_134)(requireds->phase-ht requireds_0)))" +"(let-values(((ht_136)(requireds->phase-ht requireds_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_134)))" -"((letrec-values(((for-loop_247)" -"(lambda(fold-var_243 i_165)" +"(let-values()(check-in-hash ht_136)))" +"((letrec-values(((for-loop_248)" +"(lambda(fold-var_245 i_166)" "(begin" " 'for-loop" -"(if i_165" +"(if i_166" "(let-values(((phase_127 ids_7)" -"(hash-iterate-key+value ht_134 i_165)))" -"(let-values(((fold-var_244)" -"(let-values(((fold-var_245) fold-var_243))" +"(hash-iterate-key+value ht_136 i_166)))" "(let-values(((fold-var_246)" +"(let-values(((fold-var_247) fold-var_245))" +"(let-values(((fold-var_248)" "(let-values()" "(cons" "(let-values()" "(cons phase_127 ids_7))" -" fold-var_245))))" -"(values fold-var_246)))))" +" fold-var_247))))" +"(values fold-var_248)))))" "(if(not #f)" -"(for-loop_247 fold-var_244(hash-iterate-next ht_134 i_165))" -" fold-var_244)))" -" fold-var_243)))))" -" for-loop_247)" +"(for-loop_248 fold-var_246(hash-iterate-next ht_136 i_166))" +" fold-var_246)))" +" fold-var_245)))))" +" for-loop_248)" " null" -"(hash-iterate-first ht_134)))))" +"(hash-iterate-first ht_136)))))" " #f)))))))))))" "(define-values" "(requireds->phase-ht)" @@ -41079,25 +41513,25 @@ static const char *startup_source = "(let-values(((lst_112) requireds_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_112)))" -"((letrec-values(((for-loop_248)" -"(lambda(ht_135 lst_291)" +"((letrec-values(((for-loop_249)" +"(lambda(ht_137 lst_289)" "(begin" " 'for-loop" -"(if(pair? lst_291)" -"(let-values(((r_44)(unsafe-car lst_291))((rest_163)(unsafe-cdr lst_291)))" -"(let-values(((ht_136)" -"(let-values(((ht_137) ht_135))" +"(if(pair? lst_289)" +"(let-values(((r_43)(unsafe-car lst_289))((rest_163)(unsafe-cdr lst_289)))" "(let-values(((ht_138)" +"(let-values(((ht_139) ht_137))" +"(let-values(((ht_140)" "(let-values()" "(hash-update" -" ht_137" -"(required-phase r_44)" -"(lambda(l_71)(cons(required-id r_44) l_71))" +" ht_139" +"(required-phase r_43)" +"(lambda(l_71)(cons(required-id r_43) l_71))" " null))))" -"(values ht_138)))))" -"(if(not #f)(for-loop_248 ht_136 rest_163) ht_136)))" -" ht_135)))))" -" for-loop_248)" +"(values ht_140)))))" +"(if(not #f)(for-loop_249 ht_138 rest_163) ht_138)))" +" ht_137)))))" +" for-loop_249)" "(hasheqv)" " lst_112))))))" "(define-values" @@ -41107,9 +41541,9 @@ static const char *startup_source = " 'syntax-local-module-exports" "(let-values((()" "(begin" -"(if(let-values(((or-part_284)(1/module-path? mod-path_9)))" -"(if or-part_284" -" or-part_284" +"(if(let-values(((or-part_290)(1/module-path? mod-path_9)))" +"(if or-part_290" +" or-part_290" "(if(syntax?$1 mod-path_9)(1/module-path?(syntax->datum$1 mod-path_9)) #f)))" "(void)" "(let-values()" @@ -41125,88 +41559,88 @@ static const char *startup_source = "(let-values(((ctx_61)" "(let-values(((temp136_0) 'syntax-local-module-exports))" "(get-current-expand-context17.1 #f #f temp136_0 #t))))" -"(let-values(((ns_75)(expand-context-namespace ctx_61)))" +"(let-values(((ns_74)(expand-context-namespace ctx_61)))" "(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_61)" " #t)))" -"(let-values(((m_19)(namespace->module ns_75 mod-name_18)))" +"(let-values(((m_19)(namespace->module ns_74 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_139)(module-provides m_19)))" +"(let-values(((ht_141)(module-provides m_19)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_139)))" -"((letrec-values(((for-loop_197)" -"(lambda(fold-var_199 i_166)" +"(let-values()(check-in-hash ht_141)))" +"((letrec-values(((for-loop_198)" +"(lambda(fold-var_199 i_167)" "(begin" " 'for-loop" -"(if i_166" -"(let-values(((phase_128 syms_22)(hash-iterate-key+value ht_139 i_166)))" -"(let-values(((fold-var_247)" -"(let-values(((fold-var_248) fold-var_199))" +"(if i_167" +"(let-values(((phase_128 syms_22)(hash-iterate-key+value ht_141 i_167)))" "(let-values(((fold-var_249)" +"(let-values(((fold-var_250) fold-var_199))" +"(let-values(((fold-var_251)" "(let-values()" "(cons" "(let-values()" "(cons" " phase_128" "(reverse$1" -"(let-values(((ht_140) syms_22))" +"(let-values(((ht_142) syms_22))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-in-hash-keys" -" ht_140)))" -"((letrec-values(((for-loop_249)" -"(lambda(fold-var_250" -" i_167)" +" ht_142)))" +"((letrec-values(((for-loop_250)" +"(lambda(fold-var_252" +" i_168)" "(begin" " 'for-loop" -"(if i_167" -"(let-values(((sym_66)" +"(if i_168" +"(let-values(((sym_67)" "(hash-iterate-key" -" ht_140" -" i_167)))" +" ht_142" +" i_168)))" "(let-values(((fold-var_202)" -"(let-values(((fold-var_251)" -" fold-var_250))" -"(let-values(((fold-var_252)" +"(let-values(((fold-var_253)" +" fold-var_252))" +"(let-values(((fold-var_254)" "(let-values()" "(cons" "(let-values()" -" sym_66)" -" fold-var_251))))" +" sym_67)" +" fold-var_253))))" "(values" -" fold-var_252)))))" +" fold-var_254)))))" "(if(not" " #f)" -"(for-loop_249" +"(for-loop_250" " fold-var_202" "(hash-iterate-next" -" ht_140" -" i_167))" +" ht_142" +" i_168))" " fold-var_202)))" -" fold-var_250)))))" -" for-loop_249)" +" fold-var_252)))))" +" for-loop_250)" " null" "(hash-iterate-first" -" ht_140)))))))" -" fold-var_248))))" -"(values fold-var_249)))))" +" ht_142)))))))" +" fold-var_250))))" +"(values fold-var_251)))))" "(if(not #f)" -"(for-loop_197 fold-var_247(hash-iterate-next ht_139 i_166))" -" fold-var_247)))" +"(for-loop_198 fold-var_249(hash-iterate-next ht_141 i_167))" +" fold-var_249)))" " fold-var_199)))))" -" for-loop_197)" +" for-loop_198)" " null" -"(hash-iterate-first ht_139))))))))))))))" +"(hash-iterate-first ht_141))))))))))))))" "(define-values" "(1/syntax-local-submodules)" "(lambda()" @@ -41217,35 +41651,35 @@ static const char *startup_source = "(get-current-expand-context17.1 #f #f temp137_1 #t))))" "(let-values(((submods_3)(expand-context-declared-submodule-names ctx_62)))" "(reverse$1" -"(let-values(((ht_141) submods_3))" +"(let-values(((ht_143) submods_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_141)))" -"((letrec-values(((for-loop_250)" -"(lambda(fold-var_253 i_168)" +"(let-values()(check-in-hash ht_143)))" +"((letrec-values(((for-loop_251)" +"(lambda(fold-var_255 i_169)" "(begin" " 'for-loop" -"(if i_168" -"(let-values(((name_64 kind_8)(hash-iterate-key+value ht_141 i_168)))" -"(let-values(((fold-var_254)" -"(let-values(((fold-var_255) fold-var_253))" +"(if i_169" +"(let-values(((name_64 kind_8)(hash-iterate-key+value ht_143 i_169)))" +"(let-values(((fold-var_256)" +"(let-values(((fold-var_257) fold-var_255))" "(if(eq? kind_8 'module)" -"(let-values(((fold-var_204) fold-var_255))" +"(let-values(((fold-var_204) fold-var_257))" "(let-values(((fold-var_205)" "(let-values()" "(cons" "(let-values() name_64)" " fold-var_204))))" "(values fold-var_205)))" -" fold-var_255))))" +" fold-var_257))))" "(if(not #f)" -"(for-loop_250 fold-var_254(hash-iterate-next ht_141 i_168))" -" fold-var_254)))" -" fold-var_253)))))" -" for-loop_250)" +"(for-loop_251 fold-var_256(hash-iterate-next ht_143 i_169))" +" fold-var_256)))" +" fold-var_255)))))" +" for-loop_251)" " null" -"(hash-iterate-first ht_141))))))))))" +"(hash-iterate-first ht_143))))))))))" "(define-values" "(1/syntax-local-get-shadower)" "(let-values(((syntax-local-get-shadower60_0)" @@ -41287,57 +41721,57 @@ static const char *startup_source = "(define-values(1/syntax-span)(syntax-source-accessor 'syntax-span srcloc-span))" "(define-values" "(encoded-srcloc?)" -"(lambda(v_66)" +"(lambda(v_69)" "(begin" -"(let-values(((or-part_26)(if(list? v_66)(if(=(length v_66) 5)(srcloc-vector?(list->vector v_66)) #f) #f)))" -"(if or-part_26 or-part_26(if(vector? v_66)(if(=(vector-length v_66) 5)(srcloc-vector? v_66) #f) #f))))))" +"(let-values(((or-part_32)(if(list? v_69)(if(=(length v_69) 5)(srcloc-vector?(list->vector v_69)) #f) #f)))" +"(if or-part_32 or-part_32(if(vector? v_69)(if(=(vector-length v_69) 5)(srcloc-vector? v_69) #f) #f))))))" "(define-values" "(srcloc-vector?)" -"(lambda(v_68)" +"(lambda(v_71)" "(begin" -"(if(let-values(((or-part_285)(not(vector-ref v_68 1))))" -"(if or-part_285 or-part_285(exact-positive-integer?(vector-ref v_68 1))))" -"(if(let-values(((or-part_27)(not(vector-ref v_68 2))))" -"(if or-part_27 or-part_27(exact-nonnegative-integer?(vector-ref v_68 2))))" -"(if(let-values(((or-part_10)(not(vector-ref v_68 3))))" -"(if or-part_10 or-part_10(exact-positive-integer?(vector-ref v_68 3))))" -"(let-values(((or-part_159)(not(vector-ref v_68 4))))" -"(if or-part_159 or-part_159(exact-nonnegative-integer?(vector-ref v_68 4))))" +"(if(let-values(((or-part_291)(not(vector-ref v_71 1))))" +"(if or-part_291 or-part_291(exact-positive-integer?(vector-ref v_71 1))))" +"(if(let-values(((or-part_33)(not(vector-ref v_71 2))))" +"(if or-part_33 or-part_33(exact-nonnegative-integer?(vector-ref v_71 2))))" +"(if(let-values(((or-part_10)(not(vector-ref v_71 3))))" +"(if or-part_10 or-part_10(exact-positive-integer?(vector-ref v_71 3))))" +"(let-values(((or-part_165)(not(vector-ref v_71 4))))" +"(if or-part_165 or-part_165(exact-nonnegative-integer?(vector-ref v_71 4))))" " #f)" " #f)" " #f))))" "(define-values" "(to-srcloc-stx)" -"(lambda(v_189)" +"(lambda(v_191)" "(begin" -"(if(srcloc? v_189)" +"(if(srcloc? v_191)" "(let-values()" -"(let-values(((the-struct_70) empty-syntax))" -"(if(syntax?$1 the-struct_70)" -"(let-values(((srcloc1_2) v_189))" +"(let-values(((the-struct_72) empty-syntax))" +"(if(syntax?$1 the-struct_72)" +"(let-values(((srcloc1_2) v_191))" "(syntax1.1" -"(syntax-content the-struct_70)" -"(syntax-scopes the-struct_70)" -"(syntax-shifted-multi-scopes the-struct_70)" -"(syntax-scope-propagations+tamper the-struct_70)" -"(syntax-mpi-shifts the-struct_70)" +"(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_70)" -"(syntax-inspector the-struct_70)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_70))))" -"(if(pair? v_189)" -"(let-values()(to-srcloc-stx(list->vector v_189)))" -"(if(vector? v_189)" +"(syntax-props the-struct_72)" +"(syntax-inspector the-struct_72)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_72))))" +"(if(pair? v_191)" +"(let-values()(to-srcloc-stx(list->vector v_191)))" +"(if(vector? v_191)" "(let-values()" "(let-values(((the-struct_29) empty-syntax))" "(if(syntax?$1 the-struct_29)" "(let-values(((srcloc2_1)" "(srcloc" -"(vector-ref v_189 0)" -"(vector-ref v_189 1)" -"(vector-ref v_189 2)" -"(vector-ref v_189 3)" -"(vector-ref v_189 4))))" +"(vector-ref v_191 0)" +"(vector-ref v_191 1)" +"(vector-ref v_191 2)" +"(vector-ref v_191 3)" +"(vector-ref v_191 4))))" "(syntax1.1" "(syntax-content the-struct_29)" "(syntax-scopes the-struct_29)" @@ -41348,7 +41782,7 @@ static const char *startup_source = "(syntax-props the-struct_29)" "(syntax-inspector the-struct_29)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_29))))" -"(let-values() v_189)))))))" +"(let-values() v_191)))))))" "(define-values" "(1/syntax-e)" "(lambda(s_0)" @@ -41373,7 +41807,7 @@ static const char *startup_source = "(begin" " 'datum->syntax9" "(let-values(((stx-c_4) stx-c7_0))" -"(let-values(((s_421) s8_0))" +"(let-values(((s_422) 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()" @@ -41383,11 +41817,11 @@ 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_286)(not stx-l_2)))" -"(if or-part_286" -" or-part_286" -"(let-values(((or-part_28)(syntax?$1 stx-l_2)))" -"(if or-part_28 or-part_28(encoded-srcloc? stx-l_2)))))" +"(if(let-values(((or-part_292)(not stx-l_2)))" +"(if or-part_292" +" or-part_292" +"(let-values(((or-part_34)(syntax?$1 stx-l_2)))" +"(if or-part_34 or-part_34(encoded-srcloc? stx-l_2)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -41405,11 +41839,11 @@ 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_287)(not stx-p_1)))" -"(if or-part_287 or-part_287(syntax?$1 stx-p_1)))" +"(if(let-values(((or-part_293)(not stx-p_1)))" +"(if or-part_293 or-part_293(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_421(to-srcloc-stx stx-l_2) stx-p_1))))))))))))" +"(datum->syntax$1 stx-c_4 s_422(to-srcloc-stx stx-l_2) stx-p_1))))))))))))" "(case-lambda" "((stx-c_5 s_71)(begin 'datum->syntax(datum->syntax9_0 stx-c_5 s_71 #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))" @@ -41417,59 +41851,59 @@ static const char *startup_source = "((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_422)" +"(lambda(s_423)" "(begin" " 'syntax->list" "(begin" -" (if (syntax?$1 s_422) (void) (let-values () (raise-argument-error 'syntax->list \"syntax?\" s_422)))" -"(syntax->list$1 s_422)))))" +" (if (syntax?$1 s_423) (void) (let-values () (raise-argument-error 'syntax->list \"syntax?\" s_423)))" +"(syntax->list$1 s_423)))))" "(define-values" "(1/syntax-original?)" -"(lambda(s_423)" +"(lambda(s_424)" "(begin" " 'syntax-original?" "(begin" -" (if (syntax?$1 s_423) (void) (let-values () (raise-argument-error 'syntax-original? \"syntax?\" s_423)))" -"(if(syntax-property$1 s_423 original-property-sym)(not(syntax-any-macro-scopes? s_423)) #f)))))" +" (if (syntax?$1 s_424) (void) (let-values () (raise-argument-error 'syntax-original? \"syntax?\" s_424)))" +"(if(syntax-property$1 s_424 original-property-sym)(not(syntax-any-macro-scopes? s_424)) #f)))))" "(define-values" "(1/bound-identifier=?)" "(let-values(((bound-identifier=?15_0)" -"(lambda(a13_0 b14_1 phase11_1 phase12_0)" +"(lambda(a13_0 b14_1 phase11_0 phase12_1)" "(begin" " 'bound-identifier=?15" -"(let-values(((a_53) a13_0))" +"(let-values(((a_59) a13_0))" "(let-values(((b_48) b14_1))" -"(let-values(((phase_129)(if phase12_0 phase11_1(1/syntax-local-phase-level))))" +"(let-values(((phase_129)(if phase12_1 phase11_0(1/syntax-local-phase-level))))" "(let-values()" "(begin" -"(if(identifier? a_53)" +"(if(identifier? a_59)" "(void)" -" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" a_53)))" +" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" a_59)))" "(if(identifier? b_48)" "(void)" " (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_48)))" "(if(phase? phase_129)" "(void)" "(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_129)))" -"(bound-identifier=?$1 a_53 b_48 phase_129))))))))))" +"(bound-identifier=?$1 a_59 b_48 phase_129))))))))))" "(case-lambda" -"((a_54 b_81)(begin 'bound-identifier=?(bound-identifier=?15_0 a_54 b_81 #f #f)))" -"((a_55 b_82 phase11_2)(bound-identifier=?15_0 a_55 b_82 phase11_2 #t)))))" +"((a_60 b_81)(begin 'bound-identifier=?(bound-identifier=?15_0 a_60 b_81 #f #f)))" +"((a_61 b_82 phase11_1)(bound-identifier=?15_0 a_61 b_82 phase11_1 #t)))))" "(define-values" "(1/free-identifier=?)" "(let-values(((free-identifier=?23_0)" "(lambda(a21_0 b22_0 a-phase17_0 b-phase18_0 a-phase19_0 b-phase20_0)" "(begin" " 'free-identifier=?23" -"(let-values(((a_56) a21_0))" +"(let-values(((a_62) a21_0))" "(let-values(((b_83) 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()" "(begin" -"(if(identifier? a_56)" +"(if(identifier? a_62)" "(void)" -" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" a_56)))" +" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" a_62)))" "(if(identifier? b_83)" "(void)" " (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" b_83)))" @@ -41479,21 +41913,21 @@ static const char *startup_source = "(if(phase? b-phase_1)" "(void)" "(let-values()(raise-argument-error 'free-identifier=? phase?-string b-phase_1)))" -"(free-identifier=?$1 a_56 b_83 a-phase_1 b-phase_1)))))))))))" +"(free-identifier=?$1 a_62 b_83 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_84 a-phase_2 b-phase18_1)(free-identifier=?23_0 a_58 b_84 a-phase_2 b-phase18_1 #t #t))" -"((a_59 b_85 a-phase17_1)(free-identifier=?23_0 a_59 b_85 a-phase17_1 #f #t #f)))))" +"((a_63 b_43)(begin 'free-identifier=?(free-identifier=?23_0 a_63 b_43 #f #f #f #f)))" +"((a_64 b_84 a-phase_2 b-phase18_1)(free-identifier=?23_0 a_64 b_84 a-phase_2 b-phase18_1 #t #t))" +"((a_65 b_85 a-phase17_1)(free-identifier=?23_0 a_65 b_85 a-phase17_1 #f #t #f)))))" "(define-values" "(1/free-transformer-identifier=?)" -"(lambda(a_60 b_86)" +"(lambda(a_66 b_86)" "(begin" " 'free-transformer-identifier=?" "(let-values((()" "(begin" -"(if(identifier? a_60)" +"(if(identifier? a_66)" "(void)" -" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" a_60)))" +" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" a_66)))" "(values))))" "(let-values((()" "(begin" @@ -41502,17 +41936,17 @@ static const char *startup_source = " (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_86)))" "(values))))" "(let-values(((phase_130)(add1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_60 b_86 phase_130 phase_130)))))))" +"(free-identifier=?$1 a_66 b_86 phase_130 phase_130)))))))" "(define-values" "(1/free-template-identifier=?)" -"(lambda(a_61 b_87)" +"(lambda(a_67 b_87)" "(begin" " 'free-template-identifier=?" "(let-values((()" "(begin" -"(if(identifier? a_61)" +"(if(identifier? a_67)" "(void)" -" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" a_61)))" +" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" a_67)))" "(values))))" "(let-values((()" "(begin" @@ -41521,20 +41955,20 @@ static const char *startup_source = " (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_87)))" "(values))))" "(let-values(((phase_131)(sub1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_61 b_87 phase_131 phase_131)))))))" +"(free-identifier=?$1 a_67 b_87 phase_131 phase_131)))))))" "(define-values" "(1/free-label-identifier=?)" -"(lambda(a_62 b_88)" +"(lambda(a_68 b_88)" "(begin" " 'free-label-identifier=?" "(begin" -"(if(identifier? a_62)" +"(if(identifier? a_68)" "(void)" -" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" a_62)))" +" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" a_68)))" "(if(identifier? b_88)" "(void)" " (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" b_88)))" -"(free-identifier=?$1 a_62 b_88 #f #f)))))" +"(free-identifier=?$1 a_68 b_88 #f #f)))))" "(define-values" "(1/identifier-binding)" "(let-values(((identifier-binding30_0)" @@ -41542,17 +41976,17 @@ static const char *startup_source = "(begin" " 'identifier-binding30" "(let-values(((id_85) id29_0))" -"(let-values(((phase_86)(if phase27_0 phase25_1(1/syntax-local-phase-level))))" +"(let-values(((phase_87)(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_85)" "(void)" " (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_85)))" -"(if(phase? phase_86)" +"(if(phase? phase_87)" "(void)" -"(let-values()(raise-argument-error 'identifier-binding phase?-string phase_86)))" -"(identifier-binding$1 id_85 phase_86 top-level-symbol?_1))))))))))" +"(let-values()(raise-argument-error 'identifier-binding phase?-string phase_87)))" +"(identifier-binding$1 id_85 phase_87 top-level-symbol?_1))))))))))" "(case-lambda" "((id_86)(begin 'identifier-binding(identifier-binding30_0 id_86 #f #f #f #f)))" "((id_87 phase_132 top-level-symbol?26_1)(identifier-binding30_0 id_87 phase_132 top-level-symbol?26_1 #t #t))" @@ -41564,14 +41998,14 @@ static const char *startup_source = "(begin" " 'identifier-transformer-binding35" "(let-values(((id_53) id34_0))" -"(let-values(((phase_96)(if phase33_2 phase32_2(1/syntax-local-phase-level))))" +"(let-values(((phase_97)(if phase33_2 phase32_2(1/syntax-local-phase-level))))" "(let-values()" "(begin" "(if(identifier? id_53)" "(void)" "(let-values()" " (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_53)))" -"(identifier-binding$1 id_53(if phase_96(add1 phase_96) #f))))))))))" +"(identifier-binding$1 id_53(if phase_97(add1 phase_97) #f))))))))))" "(case-lambda" "((id_89)(begin 'identifier-transformer-binding(identifier-transformer-binding35_0 id_89 #f #f)))" "((id_90 phase32_3)(identifier-transformer-binding35_0 id_90 phase32_3 #t)))))" @@ -41636,25 +42070,25 @@ static const char *startup_source = " id_95))))))))" "(case-lambda" "((id_55)(begin 'identifier-prune-lexical-context(identifier-prune-lexical-context45_0 id_55 #f #f)))" -"((id_67 syms42_1)(identifier-prune-lexical-context45_0 id_67 syms42_1 #t)))))" +"((id_68 syms42_1)(identifier-prune-lexical-context45_0 id_68 syms42_1 #t)))))" "(define-values" "(1/syntax-debug-info)" "(let-values(((syntax-debug-info52_0)" "(lambda(s51_0 phase47_2 all-bindings?48_0 phase49_1 all-bindings?50_0)" "(begin" " 'syntax-debug-info52" -"(let-values(((s_397) s51_0))" +"(let-values(((s_398) s51_0))" "(let-values(((phase_12)(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_397)" +"(if(syntax?$1 s_398)" "(void)" -" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_397)))" +" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_398)))" "(if(phase? phase_12)" "(void)" "(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_12)))" -"(syntax-debug-info$1 s_397 phase_12 all-bindings?_1))))))))))" +"(syntax-debug-info$1 s_398 phase_12 all-bindings?_1))))))))))" "(case-lambda" "((s_309)(begin 'syntax-debug-info(syntax-debug-info52_0 s_309 #f #f #f #f)))" "((s_27 phase_134 all-bindings?48_1)(syntax-debug-info52_0 s_27 phase_134 all-bindings?48_1 #t #t))" @@ -41693,17 +42127,17 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_96)))" "(values))))" -"(let-values(((s_424)(syntax-track-origin$1 new-stx_8 old-stx_4 id_96)))" +"(let-values(((s_425)(syntax-track-origin$1 new-stx_8 old-stx_4 id_96)))" "(let-values(((ctx_64)(let-values(((temp54_2) #t))(get-current-expand-context17.1 temp54_2 #t #f #f))))" "(begin" "(if ctx_64" "(let-values()" "(let-values(((obs_15)(expand-context-observer ctx_64)))" "(if obs_15" -"(let-values()(let-values()(call-expand-observe obs_15 'track-origin new-stx_8 s_424)))" +"(let-values()(let-values()(call-expand-observe obs_15 'track-origin new-stx_8 s_425)))" "(void))))" "(void))" -" s_424)))))))))" +" s_425)))))))))" "(define-values" "(1/namespace-attach-module)" "(let-values(((namespace-attach-module5_0)" @@ -41781,8 +42215,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_56)(1/module-path? mod-path_16)))" -"(if or-part_56 or-part_56(1/resolved-module-path? mod-path_16)))" +"(if(let-values(((or-part_62)(1/module-path? mod-path_16)))" +"(if or-part_62 or-part_62(1/resolved-module-path? mod-path_16)))" "(void)" "(let-values()" "(raise-argument-error" @@ -41814,7 +42248,7 @@ static const char *startup_source = "(let-values(((missing_0)(gensym 'missing)))" "(let-values((()" "(begin" -"((letrec-values(((loop_77)" +"((letrec-values(((loop_80)" "(lambda(mpi_45" " phase_0" " attach-instances?_1" @@ -41845,10 +42279,10 @@ static const char *startup_source = " '#hasheqv())" " phase_0" " missing_0)))" -"(if(let-values(((or-part_167)" +"(if(let-values(((or-part_174)" "(eq? missing_0 m-ns_12)))" -"(if or-part_167" -" or-part_167" +"(if or-part_174" +" or-part_174" "(if attach-this-instance?_0" "(not m-ns_12)" " #f)))" @@ -41874,7 +42308,7 @@ static const char *startup_source = " #f)" " #f)" "(let-values()" -"(loop_77" +"(loop_80" " mpi_45" " 0" " attach-instances?_1" @@ -41902,10 +42336,10 @@ static const char *startup_source = "(values))))" "(let-values(((m-ns_13" " already?_0)" -"(if(let-values(((or-part_288)" +"(if(let-values(((or-part_294)" " attach-this-instance?_0))" -"(if or-part_288" -" or-part_288" +"(if or-part_294" +" or-part_294" "(module-cross-phase-persistent?" " m_20)))" "(let-values()" @@ -42040,9 +42474,9 @@ static const char *startup_source = "(hash-update!" " todo_0" " mod-name_19" -"(lambda(ht_142)" +"(lambda(ht_144)" "(hash-set" -" ht_142" +" ht_144" " phase_0" " m-ns_13))" " '#hasheqv())" @@ -42083,13 +42517,13 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_22)))" -"((letrec-values(((for-loop_179)" +"((letrec-values(((for-loop_180)" "(lambda(lst_174)" "(begin" " 'for-loop" "(if(pair?" " lst_174)" -"(let-values(((req_5)" +"(let-values(((req_9)" "(unsafe-car" " lst_174))" "((rest_117)" @@ -42101,9 +42535,9 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_77" +"(loop_80" "(module-path-index-shift" -" req_5" +" req_9" "(module-self" " m_20)" " mpi_45)" @@ -42117,11 +42551,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_179" +"(for-loop_180" " rest_117)" "(values))))" "(values))))))" -" for-loop_179)" +" for-loop_180)" " lst_22)))))" "(if(not" " #f)" @@ -42142,25 +42576,25 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_175)))" -"((letrec-values(((for-loop_251)" -"(lambda(lst_292)" +"((letrec-values(((for-loop_252)" +"(lambda(lst_290)" "(begin" " 'for-loop" "(if(pair?" -" lst_292)" +" lst_290)" "(let-values(((submod-name_0)" "(unsafe-car" -" lst_292))" +" lst_290))" "((rest_165)" "(unsafe-cdr" -" lst_292)))" +" lst_290)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(loop_77" +"(loop_80" "(1/module-path-index-join" "(list" " 'submod" @@ -42174,17 +42608,17 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_251" +"(for-loop_252" " rest_165)" "(values))))" "(values))))))" -" for-loop_251)" +" for-loop_252)" " lst_175)))" "(void)" "(if(module-supermodule-name" " m_20)" "(let-values()" -"(loop_77" +"(loop_80" "(1/module-path-index-join" " '(submod" " \"..\")" @@ -42194,7 +42628,7 @@ static const char *startup_source = " attach-phase_0))" "(void))))))))))))))" "(void)))))))))" -" loop_77)" +" loop_80)" "(1/module-path-index-join" "(if(1/resolved-module-path? mod-path_16)" "(resolved-module-path->module-path mod-path_16)" @@ -42206,20 +42640,20 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((ht_143) todo_0))" +"(let-values(((ht_145) todo_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_143)))" -"((letrec-values(((for-loop_252)" -"(lambda(i_169)" +"(let-values()(check-in-hash ht_145)))" +"((letrec-values(((for-loop_253)" +"(lambda(i_170)" "(begin" " 'for-loop" -"(if i_169" +"(if i_170" "(let-values(((mod-name_20 phases_0)" "(hash-iterate-key+value" -" ht_143" -" i_169)))" +" ht_145" +" i_170)))" "(let-values((()" "(let-values(((ht_24)" " phases_0))" @@ -42231,15 +42665,15 @@ static const char *startup_source = "(check-in-hash" " ht_24)))" "((letrec-values(((for-loop_19)" -"(lambda(i_98)" +"(lambda(i_99)" "(begin" " 'for-loop" -"(if i_98" +"(if i_99" "(let-values(((phase_136" " m-ns_15)" "(hash-iterate-key+value" " ht_24" -" i_98)))" +" i_99)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -42282,7 +42716,7 @@ static const char *startup_source = " src-namespace_6" " mod-name_20" " phase_136)" -"(let-values(((or-part_210)" +"(let-values(((or-part_218)" "(let-values(((dest-namespace47_0)" " dest-namespace_2)" "((mod-name48_0)" @@ -42299,8 +42733,8 @@ static const char *startup_source = " dest-namespace47_0" " mod-name48_0" " phase49_2))))" -"(if or-part_210" -" or-part_210" +"(if or-part_218" +" or-part_218" "(namespace-install-module-namespace!" " dest-namespace_2" " mod-name_20" @@ -42315,19 +42749,19 @@ static const char *startup_source = "(for-loop_19" "(hash-iterate-next" " ht_24" -" i_98))" +" i_99))" "(values))))" "(values))))))" " for-loop_19)" "(hash-iterate-first" " ht_24))))))" "(if(not #f)" -"(for-loop_252" -"(hash-iterate-next ht_143 i_169))" +"(for-loop_253" +"(hash-iterate-next ht_145 i_170))" "(values))))" "(values))))))" -" for-loop_252)" -"(hash-iterate-first ht_143))))" +" for-loop_253)" +"(hash-iterate-first ht_145))))" "(values))))" "(let-values()" "(let-values(((mnr_0)(1/current-module-name-resolver)))" @@ -42345,12 +42779,12 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash-keys ht_47)))" "((letrec-values(((for-loop_49)" -"(lambda(i_170)" +"(lambda(i_171)" "(begin" " 'for-loop" -"(if i_170" +"(if i_171" "(let-values(((mod-name_21)" -"(hash-iterate-key ht_47 i_170)))" +"(hash-iterate-key ht_47 i_171)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -42364,7 +42798,7 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_49" -"(hash-iterate-next ht_47 i_170))" +"(hash-iterate-next ht_47 i_171))" "(values))))" "(values))))))" " for-loop_49)" @@ -42409,26 +42843,26 @@ static const char *startup_source = "(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_79)" +"(let-values(((ht_80)" "(syntax-scope-set" "(root-expand-context-all-scopes-stx root-ctx_5)" "(namespace-phase ns_59))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_79)))" -"((letrec-values(((for-loop_237)" -"(lambda(fold-var_220 i_171)" +"(let-values()(check-in-immutable-hash-keys ht_80)))" +"((letrec-values(((for-loop_243)" +"(lambda(fold-var_234 i_172)" "(begin" " 'for-loop" -"(if i_171" +"(if i_172" "(let-values(((sc_30)" "(unsafe-immutable-hash-iterate-key" -" ht_79" -" i_171)))" +" ht_80" +" i_172)))" "(let-values(((fold-var_216)" "(let-values(((fold-var_217)" -" fold-var_220))" +" fold-var_234))" "(if(equal?" " sc_30" " post-scope_1)" @@ -42444,16 +42878,16 @@ static const char *startup_source = "(values" " fold-var_218)))))))" "(if(not #f)" -"(for-loop_237" +"(for-loop_243" " fold-var_216" "(unsafe-immutable-hash-iterate-next" -" ht_79" -" i_171))" +" ht_80" +" i_172))" " fold-var_216)))" -" fold-var_220)))))" -" for-loop_237)" +" fold-var_234)))))" +" for-loop_243)" " null" -"(unsafe-immutable-hash-iterate-first ht_79)))))))" +"(unsafe-immutable-hash-iterate-first ht_80)))))))" "(let-values(((add-ns-scopes_0)" "(lambda(s_171)" "(begin" @@ -42465,11 +42899,11 @@ static const char *startup_source = "((temp79_1)" "(root-expand-context-all-scopes-stx root-ctx_5))" "((temp80_2)" -"(let-values(((or-part_164)" +"(let-values(((or-part_171)" "(namespace-declaration-inspector" " ns_59)))" -"(if or-part_164" -" or-part_164" +"(if or-part_171" +" or-part_171" "(current-code-inspector))))" "((temp81_0) #t))" "(syntax-transfer-shifts39.1" @@ -42500,7 +42934,7 @@ static const char *startup_source = "(let-values()(add-ns-scopes_0 s_3)))))))))))))))))" "(case-lambda" "((s_72)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_72 #f #f)))" -"((s_425 ns1_3)(namespace-syntax-introduce4_0 s_425 ns1_3 #t)))))" +"((s_426 ns1_3)(namespace-syntax-introduce4_0 s_426 ns1_3 #t)))))" "(define-values" "(1/namespace-module-identifier)" "(let-values(((namespace-module-identifier8_0)" @@ -42510,8 +42944,8 @@ static const char *startup_source = "(let-values(((where_0)(if where7_0 where6_0(1/current-namespace))))" "(let-values()" "(begin" -"(if(let-values(((or-part_70)(1/namespace? where_0)))" -"(if or-part_70 or-part_70(phase? where_0)))" +"(if(let-values(((or-part_76)(1/namespace? where_0)))" +"(if or-part_76 or-part_76(phase? where_0)))" "(void)" "(let-values()" "(raise-argument-error" @@ -42528,14 +42962,14 @@ static const char *startup_source = "((where6_1)(namespace-module-identifier8_0 where6_1 #t)))))" "(define-values" "(1/namespace-symbol->identifier)" -"(lambda(sym_67)" +"(lambda(sym_68)" "(begin" " 'namespace-symbol->identifier" "(begin" -"(if(symbol? sym_67)" +"(if(symbol? sym_68)" "(void)" -" (let-values () (raise-argument-error 'namespace-symbol->identifier \"symbol?\" sym_67)))" -"(1/namespace-syntax-introduce(1/datum->syntax #f sym_67))))))" +" (let-values () (raise-argument-error 'namespace-symbol->identifier \"symbol?\" sym_68)))" +"(1/namespace-syntax-introduce(1/datum->syntax #f sym_68))))))" "(define-values" "(do-namespace-require23.1)" "(lambda(copy-variable-as-constant?13_0" @@ -42556,7 +42990,7 @@ static const char *startup_source = "(let-values(((run?_3)(if run?15_0 run?10_0 #t)))" "(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(((req_10) req21_0))" "(let-values(((ns_60) ns22_1))" "(let-values(((copy-variable-phase-level_2)" "(if copy-variable-phase-level17_0 copy-variable-phase-level12_0 #f)))" @@ -42575,13 +43009,13 @@ static const char *startup_source = "(add-scopes" " empty-syntax" "(root-expand-context-module-scopes(namespace-get-root-expand-ctx ns_60)))))" -"(if(let-values(((or-part_168)(1/module-path-index? req_6)))" -"(if or-part_168 or-part_168(1/module-path? req_6)))" +"(if(let-values(((or-part_175)(1/module-path-index? req_10)))" +"(if or-part_175 or-part_175(1/module-path? req_10)))" "(let-values()" "(let-values(((temp82_1)" -"(if(1/module-path-index? req_6)" -" req_6" -"(1/module-path-index-join req_6 #f)))" +"(if(1/module-path-index? req_10)" +" req_10" +"(1/module-path-index-join req_10 #f)))" "((temp83_1) #f)" "((temp84_1) #f)" "((ctx-stx85_0) ctx-stx_0)" @@ -42628,7 +43062,7 @@ static const char *startup_source = "(let-values()" "(let-values(((run?95_0) run?_3)" "((visit?96_0) visit?_3)" -"((temp97_2)(list(1/datum->syntax ctx-stx_0 req_6)))" +"((temp97_2)(list(1/datum->syntax ctx-stx_0 req_10)))" "((temp98_2) #f)" "((ns99_0) ns_60)" "((temp100_1)(namespace-phase ns_60))" @@ -42668,28 +43102,28 @@ static const char *startup_source = "(lambda(req28_0 ns26_0 ns27_0)" "(begin" " 'namespace-require29" -"(let-values(((req_7) req28_0))" -"(let-values(((ns_76)(if ns27_0 ns26_0(1/current-namespace))))" +"(let-values(((req_11) req28_0))" +"(let-values(((ns_75)(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_11)((ns107_0) ns_75))" "(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)))" -"((req_9 ns26_1)(namespace-require29_0 req_9 ns26_1 #t)))))" +"((req_12)(begin 'namespace-require(namespace-require29_0 req_12 #f #f)))" +"((req_13 ns26_1)(namespace-require29_0 req_13 ns26_1 #t)))))" "(define-values" "(1/namespace-require/expansion-time)" "(let-values(((namespace-require/expansion-time34_0)" "(lambda(req33_0 ns31_0 ns32_0)" "(begin" " 'namespace-require/expansion-time34" -"(let-values(((req_10) req33_0))" -"(let-values(((ns_77)(if ns32_0 ns31_0(1/current-namespace))))" +"(let-values(((req_14) req33_0))" +"(let-values(((ns_76)(if ns32_0 ns31_0(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))" +"((req111_0) req_14)" +"((ns112_0) ns_76))" "(do-namespace-require23.1" " #f" " #f" @@ -42705,20 +43139,20 @@ static const char *startup_source = " req111_0" " ns112_0)))))))))" "(case-lambda" -"((req_11)(begin 'namespace-require/expansion-time(namespace-require/expansion-time34_0 req_11 #f #f)))" -"((req_12 ns31_1)(namespace-require/expansion-time34_0 req_12 ns31_1 #t)))))" +"((req_15)(begin 'namespace-require/expansion-time(namespace-require/expansion-time34_0 req_15 #f #f)))" +"((req_16 ns31_1)(namespace-require/expansion-time34_0 req_16 ns31_1 #t)))))" "(define-values" "(1/namespace-require/constant)" "(let-values(((namespace-require/constant39_0)" "(lambda(req38_0 ns36_0 ns37_0)" "(begin" " 'namespace-require/constant39" -"(let-values(((req_13) req38_0))" -"(let-values(((ns_4)(if ns37_0 ns36_0(1/current-namespace))))" +"(let-values(((req_17) req38_0))" +"(let-values(((ns_77)(if ns37_0 ns36_0(1/current-namespace))))" "(let-values()" "(let-values(((temp113_0) 'namespace-require/constant)" -"((req114_0) req_13)" -"((ns115_0) ns_4)" +"((req114_0) req_17)" +"((ns115_0) ns_77)" "((temp116_1) 0)" "((temp117_2) #t))" "(do-namespace-require23.1" @@ -42736,19 +43170,19 @@ static const char *startup_source = " req114_0" " ns115_0)))))))))" "(case-lambda" -"((req_14)(begin 'namespace-require/constant(namespace-require/constant39_0 req_14 #f #f)))" -"((req_15 ns36_1)(namespace-require/constant39_0 req_15 ns36_1 #t)))))" +"((req_18)(begin 'namespace-require/constant(namespace-require/constant39_0 req_18 #f #f)))" +"((req_19 ns36_1)(namespace-require/constant39_0 req_19 ns36_1 #t)))))" "(define-values" "(1/namespace-require/copy)" "(let-values(((namespace-require/copy44_0)" "(lambda(req43_0 ns41_0 ns42_0)" "(begin" " 'namespace-require/copy44" -"(let-values(((req_16) req43_0))" +"(let-values(((req_20) req43_0))" "(let-values(((ns_78)(if ns42_0 ns41_0(1/current-namespace))))" "(let-values()" "(let-values(((temp118_2) 'namespace-require/copy)" -"((req119_0) req_16)" +"((req119_0) req_20)" "((ns120_0) ns_78)" "((temp121_2) 0)" "((temp122_1) 0))" @@ -42767,26 +43201,26 @@ static const char *startup_source = " req119_0" " ns120_0)))))))))" "(case-lambda" -"((req_17)(begin 'namespace-require/copy(namespace-require/copy44_0 req_17 #f #f)))" -"((req_18 ns41_1)(namespace-require/copy44_0 req_18 ns41_1 #t)))))" +"((req_21)(begin 'namespace-require/copy(namespace-require/copy44_0 req_21 #f #f)))" +"((req_22 ns41_1)(namespace-require/copy44_0 req_22 ns41_1 #t)))))" "(define-values" "(1/namespace-variable-value)" "(let-values(((namespace-variable-value53_0)" "(lambda(sym52_0 use-mapping?46_0 failure-thunk47_0 ns48_0 use-mapping?49_0 failure-thunk50_0 ns51_0)" "(begin" " 'namespace-variable-value53" -"(let-values(((sym_51) sym52_0))" +"(let-values(((sym_52) 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_79)(if ns51_0 ns48_0(1/current-namespace))))" +"(let-values(((ns_10)(if ns51_0 ns48_0(1/current-namespace))))" "(let-values()" "(begin" -"(if(symbol? sym_51)" +"(if(symbol? sym_52)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_51)))" -"(if(let-values(((or-part_103)(not failure-thunk_5)))" -"(if or-part_103" -" or-part_103" +" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_52)))" +"(if(let-values(((or-part_109)(not failure-thunk_5)))" +"(if or-part_109" +" or-part_109" "(if(procedure? failure-thunk_5)" "(procedure-arity-includes? failure-thunk_5 0)" " #f)))" @@ -42796,36 +43230,36 @@ static const char *startup_source = " 'namespace-variable-value" " \"(or/c #f (procedure-arity-includes/c 0))\"" " failure-thunk_5)))" -"(if(1/namespace? ns_79)" +"(if(1/namespace? ns_10)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"namespace?\" ns_79)))" +" (let-values () (raise-argument-error 'namespace-variable-value \"namespace?\" ns_10)))" "((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_97)(1/datum->syntax #f sym_51)))" +"(let-values(((id_97)(1/datum->syntax #f sym_52)))" "(let-values(((b_89)" "(resolve+shift/extra-inspector" -"(1/namespace-syntax-introduce id_97 ns_79)" -"(namespace-phase ns_79)" -" ns_79)))" +"(1/namespace-syntax-introduce id_97 ns_10)" +"(namespace-phase ns_10)" +" ns_10)))" "(let-values((()" "(begin" "(if b_89" "(let-values()" "(namespace-visit-available-modules!" -" ns_79))" +" ns_10))" "(void))" "(values))))" -"(let-values(((v_190 primitive?_8 extra-inspector_8)" +"(let-values(((v_192 primitive?_8 extra-inspector_8)" "(if b_89" "(let-values(((b123_0) b_89)" "((empty-env124_0) empty-env)" "((null125_0) null)" -"((ns126_0) ns_79)" +"((ns126_0) ns_10)" "((temp127_1)" -"(namespace-phase ns_79))" +"(namespace-phase ns_10))" "((id128_0) id_97))" "(binding-lookup48.1" " #f" @@ -42840,13 +43274,13 @@ static const char *startup_source = " id128_0))" "(values variable #f #f))))" "(begin" -"(if(variable? v_190)" +"(if(variable? v_192)" "(void)" "(let-values()" "(escape_0" -"(let-values(((or-part_289) failure-thunk_5))" -"(if or-part_289" -" or-part_289" +"(let-values(((or-part_295) failure-thunk_5))" +"(if or-part_295" +" or-part_295" "(lambda()" "(raise" "(make-exn:fail:syntax$1" @@ -42854,24 +43288,24 @@ static const char *startup_source = "(string-append" " \"namespace-variable-value: bound to syntax\\n\"" " \" in: ~s\")" -" sym_51)" +" sym_52)" "(current-continuation-marks)" " null))))))))" "(if(module-binding? b_89)" "(values" "(if(top-level-module-path-index?" "(module-binding-module b_89))" -" ns_79" +" ns_10" "(module-instance-namespace" "(binding->module-instance" " b_89" -" ns_79" -"(namespace-phase ns_79)" +" ns_10" +"(namespace-phase ns_10)" " id_97)))" "(module-binding-phase b_89)" "(module-binding-sym b_89))" -"(values ns_79(namespace-phase ns_79) sym_51))))))))" -"(let-values()(values ns_79(namespace-phase ns_79) sym_51)))))" +"(values ns_10(namespace-phase ns_10) sym_52))))))))" +"(let-values()(values ns_10(namespace-phase ns_10) sym_52)))))" "(let-values(((val_10)" "(namespace-get-variable" " var-ns_0" @@ -42879,61 +43313,61 @@ static const char *startup_source = " var-sym_6" "(lambda()" "(escape_0" -"(let-values(((or-part_290) failure-thunk_5))" -"(if or-part_290" -" or-part_290" +"(let-values(((or-part_296) failure-thunk_5))" +"(if or-part_296" +" or-part_296" "(raise" "(exn:fail:contract:variable" "(format" "(string-append" " \"namespace-variable-value: given name is not defined\\n\"" " \" name: ~s\")" -" sym_51)" +" sym_52)" "(current-continuation-marks)" -" sym_51)))))))))" +" sym_52)))))))))" "(lambda() val_10))))))))))))))))" "(case-lambda" -"((sym_68)(begin 'namespace-variable-value(namespace-variable-value53_0 sym_68 #f #f #f #f #f #f)))" -"((sym_69 use-mapping?_1 failure-thunk_6 ns48_1)" -"(namespace-variable-value53_0 sym_69 use-mapping?_1 failure-thunk_6 ns48_1 #t #t #t))" -"((sym_70 use-mapping?_2 failure-thunk47_1)" -"(namespace-variable-value53_0 sym_70 use-mapping?_2 failure-thunk47_1 #f #t #t #f))" -"((sym_71 use-mapping?46_1)(namespace-variable-value53_0 sym_71 use-mapping?46_1 #f #f #t #f #f)))))" +"((sym_69)(begin 'namespace-variable-value(namespace-variable-value53_0 sym_69 #f #f #f #f #f #f)))" +"((sym_70 use-mapping?_1 failure-thunk_6 ns48_1)" +"(namespace-variable-value53_0 sym_70 use-mapping?_1 failure-thunk_6 ns48_1 #t #t #t))" +"((sym_71 use-mapping?_2 failure-thunk47_1)" +"(namespace-variable-value53_0 sym_71 use-mapping?_2 failure-thunk47_1 #f #t #t #f))" +"((sym_72 use-mapping?46_1)(namespace-variable-value53_0 sym_72 use-mapping?46_1 #f #f #t #f #f)))))" "(define-values" "(1/namespace-set-variable-value!)" "(let-values(((namespace-set-variable-value!63_0)" "(lambda(sym61_0 val62_0 map?55_0 ns56_0 as-constant?57_0 map?58_0 ns59_0 as-constant?60_0)" "(begin" " 'namespace-set-variable-value!63" -"(let-values(((sym_72) sym61_0))" +"(let-values(((sym_73) sym61_0))" "(let-values(((val_69) val62_0))" "(let-values(((map?_0)(if map?58_0 map?55_0 #f)))" -"(let-values(((ns_80)(if ns59_0 ns56_0(1/current-namespace))))" +"(let-values(((ns_79)(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_72)" +"(if(symbol? sym_73)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_72)))" -"(if(1/namespace? ns_80)" +" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_73)))" +"(if(1/namespace? ns_79)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"namespace?\" ns_80)))" -"(namespace-set-variable! ns_80(namespace-phase ns_80) sym_72 val_69 as-constant?_2)" +" (let-values () (raise-argument-error 'namespace-variable-value \"namespace?\" ns_79)))" +"(namespace-set-variable! ns_79(namespace-phase ns_79) sym_73 val_69 as-constant?_2)" "(if map?_0" "(let-values()" "(let-values((()" "(begin" "(namespace-unset-transformer!" -" ns_80" -"(namespace-phase ns_80)" -" sym_72)" +" ns_79" +"(namespace-phase ns_79)" +" sym_73)" "(values))))" -"(let-values(((id_98)(1/datum->syntax #f sym_72)))" -"(let-values(((temp129_1)(1/namespace-syntax-introduce id_98 ns_80))" +"(let-values(((id_98)(1/datum->syntax #f sym_73)))" +"(let-values(((temp129_1)(1/namespace-syntax-introduce id_98 ns_79))" "((temp130_1)" -"(let-values(((temp132_1)(namespace-mpi ns_80))" -"((temp133_1)(namespace-phase ns_80))" -"((sym134_0) sym_72))" +"(let-values(((temp132_1)(namespace-mpi ns_79))" +"((temp133_1)(namespace-phase ns_79))" +"((sym134_0) sym_73))" "(make-module-binding22.1" " #f" " #f" @@ -42956,54 +43390,54 @@ static const char *startup_source = " temp132_1" " temp133_1" " sym134_0)))" -"((temp131_0)(namespace-phase ns_80)))" +"((temp131_0)(namespace-phase ns_79)))" "(add-binding!17.1 #f #f #f #f temp129_1 temp130_1 temp131_0)))))" "(void)))))))))))))" "(case-lambda" -"((sym_73 val_70)" -"(begin 'namespace-set-variable-value!(namespace-set-variable-value!63_0 sym_73 val_70 #f #f #f #f #f #f)))" -"((sym_74 val_71 map?_1 ns_81 as-constant?57_1)" -"(namespace-set-variable-value!63_0 sym_74 val_71 map?_1 ns_81 as-constant?57_1 #t #t #t))" -"((sym_75 val_50 map?_2 ns56_1)(namespace-set-variable-value!63_0 sym_75 val_50 map?_2 ns56_1 #f #t #t #f))" -"((sym_76 val_72 map?55_1)(namespace-set-variable-value!63_0 sym_76 val_72 map?55_1 #f #f #t #f #f)))))" +"((sym_74 val_70)" +"(begin 'namespace-set-variable-value!(namespace-set-variable-value!63_0 sym_74 val_70 #f #f #f #f #f #f)))" +"((sym_75 val_71 map?_1 ns_80 as-constant?57_1)" +"(namespace-set-variable-value!63_0 sym_75 val_71 map?_1 ns_80 as-constant?57_1 #t #t #t))" +"((sym_76 val_50 map?_2 ns56_1)(namespace-set-variable-value!63_0 sym_76 val_50 map?_2 ns56_1 #f #t #t #f))" +"((sym_77 val_72 map?55_1)(namespace-set-variable-value!63_0 sym_77 val_72 map?55_1 #f #f #t #f #f)))))" "(define-values" "(1/namespace-undefine-variable!)" "(let-values(((namespace-undefine-variable!68_0)" "(lambda(sym67_0 ns65_0 ns66_0)" "(begin" " 'namespace-undefine-variable!68" -"(let-values(((sym_77) sym67_0))" -"(let-values(((ns_82)(if ns66_0 ns65_0(1/current-namespace))))" +"(let-values(((sym_78) sym67_0))" +"(let-values(((ns_81)(if ns66_0 ns65_0(1/current-namespace))))" "(let-values()" "(begin" -"(if(symbol? sym_77)" +"(if(symbol? sym_78)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_77)))" -"(if(1/namespace? ns_82)" +" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_78)))" +"(if(1/namespace? ns_81)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"namespace?\" ns_82)))" -"(namespace-unset-variable! ns_82(namespace-phase ns_82) sym_77)))))))))" +" (let-values () (raise-argument-error 'namespace-variable-value \"namespace?\" ns_81)))" +"(namespace-unset-variable! ns_81(namespace-phase ns_81) sym_78)))))))))" "(case-lambda" -"((sym_78)(begin 'namespace-undefine-variable!(namespace-undefine-variable!68_0 sym_78 #f #f)))" -"((sym_79 ns65_1)(namespace-undefine-variable!68_0 sym_79 ns65_1 #t)))))" +"((sym_79)(begin 'namespace-undefine-variable!(namespace-undefine-variable!68_0 sym_79 #f #f)))" +"((sym_80 ns65_1)(namespace-undefine-variable!68_0 sym_80 ns65_1 #t)))))" "(define-values" "(1/namespace-mapped-symbols)" "(let-values(((namespace-mapped-symbols72_0)" "(lambda(ns70_0 ns71_0)" "(begin" " 'namespace-mapped-symbols72" -"(let-values(((ns_83)(if ns71_0 ns70_0(1/current-namespace))))" +"(let-values(((ns_82)(if ns71_0 ns70_0(1/current-namespace))))" "(let-values()" "(begin" -"(if(1/namespace? ns_83)" +"(if(1/namespace? ns_82)" "(void)" -" (let-values () (raise-argument-error 'namespace-mapped-symbols \"namespace?\" ns_83)))" +" (let-values () (raise-argument-error 'namespace-mapped-symbols \"namespace?\" ns_82)))" "(set->list" "(set-union" "(syntax-mapped-names" -"(root-expand-context-all-scopes-stx(namespace-get-root-expand-ctx ns_83))" -"(namespace-phase ns_83))" -"(list->set(1/instance-variable-names(namespace->instance ns_83 0))))))))))))" +"(root-expand-context-all-scopes-stx(namespace-get-root-expand-ctx ns_82))" +"(namespace-phase ns_82))" +"(list->set(1/instance-variable-names(namespace->instance ns_82 0))))))))))))" "(case-lambda" "(()(begin 'namespace-mapped-symbols(namespace-mapped-symbols72_0 #f #f)))" "((ns70_1)(namespace-mapped-symbols72_0 ns70_1 #t)))))" @@ -43013,13 +43447,13 @@ static const char *startup_source = "(lambda(ns74_0 ns75_0)" "(begin" " 'namespace-base-phase76" -"(let-values(((ns_84)(if ns75_0 ns74_0(1/current-namespace))))" +"(let-values(((ns_83)(if ns75_0 ns74_0(1/current-namespace))))" "(let-values()" "(begin" -"(if(1/namespace? ns_84)" +"(if(1/namespace? ns_83)" "(void)" -" (let-values () (raise-argument-error 'namespace-base-phase \"namespace?\" ns_84)))" -"(namespace-phase ns_84))))))))" +" (let-values () (raise-argument-error 'namespace-base-phase \"namespace?\" ns_83)))" +"(namespace-phase ns_83))))))))" "(case-lambda" "(()(begin 'namespace-base-phase(namespace-base-phase76_0 #f #f)))" "((ns74_1)(namespace-base-phase76_0 ns74_1 #t)))))" @@ -43034,26 +43468,26 @@ static const char *startup_source = "(let-values(((compile_1)" "(if compile4_0" " compile2_0" -"(lambda(s_411 ns_67)(begin 'compile(1/compile s_411 ns_67 #f))))))" +"(lambda(s_412 ns_66)(begin 'compile(1/compile s_412 ns_66 #f))))))" "(let-values()" -"(if(let-values(((or-part_291)(compiled-in-memory? s_146)))" -"(if or-part_291" -" or-part_291" -"(let-values(((or-part_292)(1/linklet-directory? s_146)))" -"(if or-part_292 or-part_292(1/linklet-bundle? s_146)))))" +"(if(let-values(((or-part_297)(compiled-in-memory? s_146)))" +"(if or-part_297" +" or-part_297" +"(let-values(((or-part_298)(1/linklet-directory? s_146)))" +"(if or-part_298 or-part_298(1/linklet-bundle? s_146)))))" "(let-values()(eval-compiled s_146 ns_42))" "(if(if(syntax?$1 s_146)" -"(let-values(((or-part_293)(compiled-in-memory?(1/syntax-e s_146))))" -"(if or-part_293" -" or-part_293" -"(let-values(((or-part_294)(1/linklet-directory?(1/syntax-e s_146))))" -"(if or-part_294 or-part_294(1/linklet-bundle?(1/syntax-e s_146))))))" +"(let-values(((or-part_299)(compiled-in-memory?(1/syntax-e s_146))))" +"(if or-part_299" +" or-part_299" +"(let-values(((or-part_300)(1/linklet-directory?(1/syntax-e s_146))))" +"(if or-part_300 or-part_300(1/linklet-bundle?(1/syntax-e s_146))))))" " #f)" "(let-values()(eval-compiled(1/syntax->datum s_146) ns_42))" "(let-values()" "(let-values(((temp82_2)" -"(lambda(s_172 ns_85 tail?_52)" -"(eval-compiled(compile_1 s_172 ns_85) ns_85 tail?_52)))" +"(lambda(s_172 ns_84 tail?_52)" +"(eval-compiled(compile_1 s_172 ns_84) ns_84 tail?_52)))" "((temp83_2) #f))" "(per-top-level68.1" " #f" @@ -43071,8 +43505,8 @@ static const char *startup_source = " s_146" " ns_42)))))))))))))" "(case-lambda" -"((s_425)(begin 'eval(eval6_0 s_425 #f #f #f #f)))" -"((s_426 ns_44 compile2_1)(eval6_0 s_426 ns_44 compile2_1 #t #t))" +"((s_426)(begin 'eval(eval6_0 s_426 #f #f #f #f)))" +"((s_427 ns_45 compile2_1)(eval6_0 s_427 ns_45 compile2_1 #t #t))" "((s_173 ns1_5)(eval6_0 s_173 ns1_5 #f #t #f)))))" "(define-values" "(eval-compiled)" @@ -43081,16 +43515,16 @@ static const char *startup_source = "(begin" " 'eval-compiled12" "(let-values(((c_52) c10_0))" -"(let-values(((ns_86) ns11_0))" +"(let-values(((ns_85) 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(((ns85_0) ns_86))(eval-module8.1 ns85_0 #t #f #f #f #f c_52)))" -"(let-values()(eval-top c_52 ns_86 eval-compiled as-tail?_3)))))))))))" +"(let-values(((ns85_0) ns_85))(eval-module8.1 ns85_0 #t #f #f #f #f c_52)))" +"(let-values()(eval-top c_52 ns_85 eval-compiled as-tail?_3)))))))))))" "(case-lambda" -"((c_39 ns_87)(begin(eval-compiled12_0 c_39 ns_87 #f #f)))" -"((c_40 ns_88 as-tail?8_1)(eval-compiled12_0 c_40 ns_88 as-tail?8_1 #t)))))" +"((c_39 ns_86)(begin(eval-compiled12_0 c_39 ns_86 #f #f)))" +"((c_40 ns_87 as-tail?8_1)(eval-compiled12_0 c_40 ns_87 as-tail?8_1 #t)))))" "(define-values" "(1/compile)" "(let-values(((compile23_0)" @@ -43106,7 +43540,7 @@ static const char *startup_source = "(begin" " 'compile23" "(let-values(((s_161) s22_1))" -"(let-values(((ns_89)(if ns18_0 ns14_2(1/current-namespace))))" +"(let-values(((ns_88)(if ns18_0 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)))" @@ -43120,11 +43554,11 @@ static const char *startup_source = "(let-values()(list(1/syntax-e s_161)))" "(let-values()" "(let-values(((temp88_2)" -"(lambda(s_427 ns_45 as-tail?_4)" +"(lambda(s_428 ns_46 as-tail?_4)" "(list" "(compile-single$1" -" s_427" -" ns_45" +" s_428" +" ns_46" " expand_0" " serializable?_4" " to-source?_5))))" @@ -43144,12 +43578,12 @@ static const char *startup_source = " #f" " #f" " s_161" -" ns_89)))))))" +" ns_88)))))))" "(if(if(= 1(length cs_0))(not(compiled-multiple-top?(car cs_0))) #f)" "(car cs_0)" "(let-values(((to-source?92_0) to-source?_5)" "((serializable?93_0) serializable?_4)" -"((ns94_0) ns_89))" +"((ns94_0) ns_88))" "(compiled-tops->compiled-top8.1" " serializable?93_0" " #t" @@ -43159,11 +43593,11 @@ static const char *startup_source = " #t" " cs_0))))))))))))))" "(case-lambda" -"((s_428)(begin 'compile(compile23_0 s_428 #f #f #f #f #f #f #f #f)))" -"((s_429 ns_47 serializable?_5 expand_1 to-source?17_1)" -"(compile23_0 s_429 ns_47 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" -"((s_149 ns_90 serializable?_6 expand16_1)(compile23_0 s_149 ns_90 serializable?_6 expand16_1 #f #t #t #t #f))" -"((s_185 ns_91 serializable?15_1)(compile23_0 s_185 ns_91 serializable?15_1 #f #f #t #t #f #f))" +"((s_429)(begin 'compile(compile23_0 s_429 #f #f #f #f #f #f #f #f)))" +"((s_430 ns_48 serializable?_5 expand_1 to-source?17_1)" +"(compile23_0 s_430 ns_48 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" +"((s_149 ns_89 serializable?_6 expand16_1)(compile23_0 s_149 ns_89 serializable?_6 expand16_1 #f #t #t #t #f))" +"((s_185 ns_90 serializable?15_1)(compile23_0 s_185 ns_90 serializable?15_1 #f #f #t #t #f #f))" "((s_17 ns14_3)(compile23_0 s_17 ns14_3 #f #f #f #t #f #f #f)))))" "(define-values" "(compile-to-linklets)" @@ -43175,7 +43609,7 @@ static const char *startup_source = "(let-values(((ns_62)(if ns26_2 ns25_0(1/current-namespace))))" "(let-values()(1/compile s_22 ns_62 #t expand$1 #t))))))))" "(case-lambda" -"((s_430)(begin(compile-to-linklets28_0 s_430 #f #f)))" +"((s_431)(begin(compile-to-linklets28_0 s_431 #f #f)))" "((s_24 ns25_1)(compile-to-linklets28_0 s_24 ns25_1 #t)))))" "(define-values" "(struct:lifted-parsed-begin" @@ -43206,18 +43640,18 @@ static const char *startup_source = "(make-struct-field-accessor -ref_73 1 'last))))" "(define-values" "(compile-single$1)" -"(lambda(s_431 ns_92 expand_2 serializable?_7 to-source?_6)" +"(lambda(s_432 ns_91 expand_2 serializable?_7 to-source?_6)" "(begin" " 'compile-single" -"(let-values(((exp-s_4)(expand_2 s_431 ns_92 #f #t serializable?_7)))" -"((letrec-values(((loop_97)" +"(let-values(((exp-s_4)(expand_2 s_432 ns_91 #f #t serializable?_7)))" +"((letrec-values(((loop_100)" "(lambda(exp-s_5)" "(begin" " 'loop" "(if(parsed-module? exp-s_5)" "(let-values()" "(let-values(((temp97_3)" -"(let-values(((ns100_0) ns_92))" +"(let-values(((ns100_0) ns_91))" "(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))" @@ -43246,8 +43680,8 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_163)))" -"((letrec-values(((for-loop_183)" -"(lambda(fold-var_256 lst_180)" +"((letrec-values(((for-loop_184)" +"(lambda(fold-var_258 lst_180)" "(begin" " 'for-loop" "(if(pair? lst_180)" @@ -43257,28 +43691,28 @@ static const char *startup_source = "(unsafe-cdr lst_180)))" "(let-values(((fold-var_160)" "(let-values(((fold-var_161)" -" fold-var_256))" -"(let-values(((fold-var_257)" +" fold-var_258))" +"(let-values(((fold-var_259)" "(let-values()" "(cons" "(let-values()" -"(loop_97" +"(loop_100" " e_72))" " fold-var_161))))" "(values" -" fold-var_257)))))" +" fold-var_259)))))" "(if(not #f)" -"(for-loop_183 fold-var_160 rest_95)" +"(for-loop_184 fold-var_160 rest_95)" " fold-var_160)))" -" fold-var_256)))))" -" for-loop_183)" +" fold-var_258)))))" +" for-loop_184)" " null" " lst_163)))))" "((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(((temp104_1)" -"(let-values(((ns107_1) ns_92))" +"(let-values(((ns107_1) ns_91))" "(make-compile-context14.1" " #f" " #f" @@ -43303,7 +43737,7 @@ static const char *startup_source = " #t" " exp-s_5" " temp104_1)))))))))" -" loop_97)" +" loop_100)" " exp-s_4)))))" "(define-values" "(expand$1)" @@ -43320,7 +43754,7 @@ static const char *startup_source = "(begin" " 'expand40" "(let-values(((s_50) s39_0))" -"(let-values(((ns_93)(if ns35_0 ns31_2(1/current-namespace))))" +"(let-values(((ns_5)(if ns35_0 ns31_2(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)))" @@ -43336,10 +43770,10 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values(((temp110_3)" -"(lambda(s_52 ns_94 as-tail?_5)" +"(lambda(s_52 ns_92 as-tail?_5)" "(expand-single" " s_52" -" ns_94" +" ns_92" " observer_2" " to-parsed?_2" " serializable?_8)))" @@ -43360,39 +43794,39 @@ static const char *startup_source = " re-pair112_0" " #t" " s_50" -" ns_93))))))))))))))))" +" ns_5))))))))))))))))" "(case-lambda" -"((s_432)(begin 'expand(expand40_0 s_432 #f #f #f #f #f #f #f #f)))" -"((s_433 ns_95 observable?_1 to-parsed?_3 serializable?34_1)" -"(expand40_0 s_433 ns_95 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" -"((s_434 ns_96 observable?_2 to-parsed?33_1)(expand40_0 s_434 ns_96 observable?_2 to-parsed?33_1 #f #t #t #t #f))" -"((s_317 ns_97 observable?32_1)(expand40_0 s_317 ns_97 observable?32_1 #f #f #t #t #f #f))" -"((s_435 ns31_3)(expand40_0 s_435 ns31_3 #f #f #f #t #f #f #f)))))" +"((s_433)(begin 'expand(expand40_0 s_433 #f #f #f #f #f #f #f #f)))" +"((s_434 ns_93 observable?_1 to-parsed?_3 serializable?34_1)" +"(expand40_0 s_434 ns_93 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" +"((s_435 ns_94 observable?_2 to-parsed?33_1)(expand40_0 s_435 ns_94 observable?_2 to-parsed?33_1 #f #t #t #t #f))" +"((s_317 ns_95 observable?32_1)(expand40_0 s_317 ns_95 observable?32_1 #f #f #t #t #f #f))" +"((s_436 ns31_3)(expand40_0 s_436 ns31_3 #f #f #f #t #f #f #f)))))" "(define-values" "(expand-single)" -"(lambda(s_436 ns_98 observer_3 to-parsed?_4 serializable?_9)" +"(lambda(s_437 ns_96 observer_3 to-parsed?_4 serializable?_9)" "(begin" -"(let-values(((rebuild-s_2)(keep-properties-only s_436)))" +"(let-values(((rebuild-s_2)(keep-properties-only s_437)))" "(let-values(((ctx_65)" "(let-values(((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 ns_98))))" -"(let-values(((require-lifts_3 lifts_10 exp-s_6)(expand-capturing-lifts s_436 ctx_65)))" -"(if(if(null? require-lifts_3)(null? lifts_10) #f)" +"(make-expand-context10.1 serializable?116_0 #t observer117_0 #t to-parsed?115_0 #t ns_96))))" +"(let-values(((require-lifts_3 lifts_9 exp-s_6)(expand-capturing-lifts s_437 ctx_65)))" +"(if(if(null? require-lifts_3)(null? lifts_9) #f)" "(let-values() exp-s_6)" "(if to-parsed?_4" "(let-values()" "(let-values(((temp122_2)" -"(lambda(form_0)(expand-single form_0 ns_98 observer_3 to-parsed?_4 serializable?_9))))" -"(wrap-lifts-as-lifted-parsed-begin77.1 temp122_2 require-lifts_3 lifts_10 exp-s_6 rebuild-s_2)))" +"(lambda(form_0)(expand-single form_0 ns_96 observer_3 to-parsed?_4 serializable?_9))))" +"(wrap-lifts-as-lifted-parsed-begin77.1 temp122_2 require-lifts_3 lifts_9 exp-s_6 rebuild-s_2)))" "(let-values()" "(let-values((()" "(begin" -"(log-top-lift-begin-before ctx_65 require-lifts_3 lifts_10 exp-s_6 ns_98)" +"(log-top-lift-begin-before ctx_65 require-lifts_3 lifts_9 exp-s_6 ns_96)" "(values))))" "(let-values(((new-s_1)" -"(let-values(((temp123_2)(append require-lifts_3 lifts_10))" +"(let-values(((temp123_2)(append require-lifts_3 lifts_9))" "((temp124_2)" "(lambda(form_1)" "(begin" @@ -43403,7 +43837,7 @@ static const char *startup_source = "(void)))" "(expand-single" " form_1" -" ns_98" +" ns_96" " observer_3" " to-parsed?_4" " serializable?_9))))" @@ -43420,12 +43854,12 @@ static const char *startup_source = "(void)))" "(expand-single" " form_2" -" ns_98" +" ns_96" " observer_3" " to-parsed?_4" " serializable?_9))))))" "((exp-s126_0) exp-s_6)" -"((temp127_2)(namespace-phase ns_98)))" +"((temp127_2)(namespace-phase ns_96)))" "(wrap-lifts-as-begin16.1" " temp125_1" " #t" @@ -43442,9 +43876,9 @@ static const char *startup_source = "(begin" " 'expand-once45" "(let-values(((s_197) s44_1))" -"(let-values(((ns_15)(if ns43_0 ns42_1(1/current-namespace))))" +"(let-values(((ns_97)(if ns43_0 ns42_1(1/current-namespace))))" "(let-values()" -"(let-values(((temp130_2)(lambda(s_37 ns_18 as-tail?_6)(expand-single-once s_37 ns_18)))" +"(let-values(((temp130_2)(lambda(s_37 ns_17 as-tail?_6)(expand-single-once s_37 ns_17)))" "((cons131_0) cons)" "((re-pair132_0) re-pair)" "((temp133_2) #t)" @@ -43463,55 +43897,56 @@ static const char *startup_source = " re-pair132_0" " #t" " s_197" -" ns_15)))))))))" +" ns_97)))))))))" "(case-lambda" -"((s_437)(begin 'expand-once(expand-once45_0 s_437 #f #f)))" -"((s_438 ns42_2)(expand-once45_0 s_438 ns42_2 #t)))))" +"((s_438)(begin 'expand-once(expand-once45_0 s_438 #f #f)))" +"((s_439 ns42_2)(expand-once45_0 s_439 ns42_2 #t)))))" "(define-values" "(expand-single-once)" -"(lambda(s_320 ns_99)" +"(lambda(s_321 ns_98)" "(begin" -"(let-values(((require-lifts_4 lifts_11 exp-s_7)" +"(let-values(((require-lifts_4 lifts_10 exp-s_7)" "(expand-capturing-lifts" -" s_320" -"(let-values(((v_112)" -"(let-values(((ns135_1) ns_99))" +" s_321" +"(let-values(((v_113)" +"(let-values(((ns135_1) ns_98))" "(make-expand-context10.1 #f #f #f #f #f #f ns135_1))))" -"(let-values(((the-struct_55) v_112))" +"(let-values(((the-struct_55) v_113))" "(if(expand-context/outer? the-struct_55)" "(let-values(((inner136_0)" -"(let-values(((the-struct_71)(root-expand-context/outer-inner v_112)))" -"(if(expand-context/inner? the-struct_71)" +"(let-values(((the-struct_73)(root-expand-context/outer-inner v_113)))" +"(if(expand-context/inner? the-struct_73)" "(let-values(((just-once?137_0) #t))" "(expand-context/inner2.1" -"(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)" -"(expand-context/inner-to-parsed? the-struct_71)" -"(expand-context/inner-phase the-struct_71)" -"(expand-context/inner-namespace the-struct_71)" +"(root-expand-context/inner-self-mpi the-struct_73)" +"(root-expand-context/inner-module-scopes the-struct_73)" +"(root-expand-context/inner-top-level-bind-scope the-struct_73)" +"(root-expand-context/inner-all-scopes-stx the-struct_73)" +"(root-expand-context/inner-defined-syms the-struct_73)" +"(root-expand-context/inner-counter the-struct_73)" +"(root-expand-context/inner-lift-key the-struct_73)" +"(expand-context/inner-to-parsed? the-struct_73)" +"(expand-context/inner-phase the-struct_73)" +"(expand-context/inner-namespace the-struct_73)" " just-once?137_0" -"(expand-context/inner-module-begin-k the-struct_71)" -"(expand-context/inner-allow-unbound? the-struct_71)" -"(expand-context/inner-in-local-expand? the-struct_71)" -"(expand-context/inner-stops the-struct_71)" -"(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-should-not-encounter-macros? the-struct_71)))" +"(expand-context/inner-module-begin-k the-struct_73)" +"(expand-context/inner-allow-unbound? the-struct_73)" +"(expand-context/inner-in-local-expand? the-struct_73)" +"(expand-context/inner-stops the-struct_73)" +"(expand-context/inner-declared-submodule-names the-struct_73)" +"(expand-context/inner-lifts the-struct_73)" +"(expand-context/inner-lift-envs the-struct_73)" +"(expand-context/inner-module-lifts the-struct_73)" +"(expand-context/inner-require-lifts the-struct_73)" +"(expand-context/inner-to-module-lifts the-struct_73)" +"(expand-context/inner-requires+provides the-struct_73)" +"(expand-context/inner-observer the-struct_73)" +"(expand-context/inner-for-serializable? the-struct_73)" +"(expand-context/inner-should-not-encounter-macros? the-struct_73)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_71)))))" +" the-struct_73)))))" "(expand-context/outer1.1" " inner136_0" "(root-expand-context/outer-post-expansion-scope the-struct_55)" @@ -43529,12 +43964,12 @@ static const char *startup_source = "(expand-context/outer-current-introduction-scopes the-struct_55)" "(expand-context/outer-name the-struct_55)))" " (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_55)))))))" -"(if(if(null? require-lifts_4)(null? lifts_11) #f)" +"(if(if(null? require-lifts_4)(null? lifts_10) #f)" "(let-values() exp-s_7)" "(let-values()" -"(let-values(((temp138_2)(append require-lifts_4 lifts_11))" +"(let-values(((temp138_2)(append require-lifts_4 lifts_10))" "((exp-s139_0) exp-s_7)" -"((temp140_0)(namespace-phase ns_99)))" +"((temp140_0)(namespace-phase ns_98)))" "(wrap-lifts-as-begin16.1 #f #f #f #f temp138_2 exp-s139_0 temp140_0))))))))" "(define-values" "(expand-to-top-form$1)" @@ -43543,7 +43978,7 @@ static const char *startup_source = "(begin" " 'expand-to-top-form50" "(let-values(((s_203) s49_0))" -"(let-values(((ns_81)(if ns48_2 ns47_0(1/current-namespace))))" +"(let-values(((ns_80)(if ns48_2 ns47_0(1/current-namespace))))" "(let-values()" "(let-values(((observer_4)(current-expand-observe)))" "(begin" @@ -43570,7 +44005,7 @@ static const char *startup_source = " #f" " #f" " s_203" -" ns_81)))))))))))))" +" ns_80)))))))))))))" "(case-lambda" "((s_151)(begin 'expand-to-top-form(expand-to-top-form50_0 s_151 #f #f)))" "((s_89 ns47_1)(expand-to-top-form50_0 s_89 ns47_1 #t)))))" @@ -43593,7 +44028,7 @@ static const char *startup_source = "(begin" " 'per-top-level68" "(let-values(((given-s_0) given-s66_0))" -"(let-values(((ns_100) ns67_1))" +"(let-values(((ns_99) 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)))" @@ -43602,114 +44037,116 @@ 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_439)(maybe-intro given-s_0 ns_100)))" +"(let-values(((s_440)(maybe-intro given-s_0 ns_99)))" "(let-values(((ctx_66)" "(let-values(((observer147_0) observer_5))" -"(make-expand-context10.1 #f #f observer147_0 #t #f #f ns_100))))" -"(let-values(((phase_137)(namespace-phase ns_100)))" -"((letrec-values(((loop_98)" -"(lambda(s_440 phase_138 ns_101 as-tail?_7)" +"(make-expand-context10.1 #f #f observer147_0 #t #f #f ns_99))))" +"(let-values(((phase_137)(namespace-phase ns_99)))" +"((letrec-values(((loop_101)" +"(lambda(s_441 phase_138 ns_100 as-tail?_7)" "(begin" " 'loop" "(let-values(((tl-ctx_0)" -"(let-values(((v_191) ctx_66))" -"(let-values(((the-struct_72) v_191))" -"(if(expand-context/outer? the-struct_72)" +"(let-values(((v_193) ctx_66))" +"(let-values(((the-struct_74) v_193))" +"(if(expand-context/outer? the-struct_74)" "(let-values(((inner148_0)" -"(let-values(((the-struct_73)" +"(let-values(((the-struct_75)" "(root-expand-context/outer-inner" -" v_191)))" +" v_193)))" "(if(expand-context/inner?" -" the-struct_73)" +" the-struct_75)" "(let-values(((phase149_0)" " phase_138)" "((namespace150_0)" -" ns_101)" +" ns_100)" "((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_75)" "(root-expand-context/inner-module-scopes" -" the-struct_73)" +" the-struct_75)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_73)" +" the-struct_75)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_73)" +" the-struct_75)" "(root-expand-context/inner-defined-syms" -" the-struct_73)" +" the-struct_75)" "(root-expand-context/inner-counter" -" the-struct_73)" +" the-struct_75)" "(root-expand-context/inner-lift-key" -" the-struct_73)" +" the-struct_75)" "(expand-context/inner-to-parsed?" -" the-struct_73)" +" the-struct_75)" " phase149_0" " namespace150_0" " just-once?151_0" "(expand-context/inner-module-begin-k" -" the-struct_73)" +" the-struct_75)" "(expand-context/inner-allow-unbound?" -" the-struct_73)" +" the-struct_75)" "(expand-context/inner-in-local-expand?" -" the-struct_73)" +" the-struct_75)" "(expand-context/inner-stops" -" the-struct_73)" +" the-struct_75)" "(expand-context/inner-declared-submodule-names" -" the-struct_73)" +" the-struct_75)" "(expand-context/inner-lifts" -" the-struct_73)" +" the-struct_75)" "(expand-context/inner-lift-envs" -" the-struct_73)" +" the-struct_75)" "(expand-context/inner-module-lifts" -" the-struct_73)" +" the-struct_75)" "(expand-context/inner-require-lifts" -" the-struct_73)" +" the-struct_75)" "(expand-context/inner-to-module-lifts" -" the-struct_73)" +" the-struct_75)" "(expand-context/inner-requires+provides" -" the-struct_73)" +" the-struct_75)" "(expand-context/inner-observer" -" the-struct_73)" +" the-struct_75)" " for-serializable?152_0" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_73)))" +" the-struct_75)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_73)))))" +" the-struct_75)))))" "(expand-context/outer1.1" " inner148_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_72)" +" the-struct_74)" "(root-expand-context/outer-use-site-scopes" -" the-struct_72)" +" the-struct_74)" "(root-expand-context/outer-frame-id" -" the-struct_72)" +" the-struct_74)" "(expand-context/outer-context" -" the-struct_72)" -"(expand-context/outer-env the-struct_72)" +" the-struct_74)" +"(expand-context/outer-env the-struct_74)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_72)" -"(expand-context/outer-scopes the-struct_72)" +" the-struct_74)" +"(expand-context/outer-scopes the-struct_74)" "(expand-context/outer-def-ctx-scopes" -" the-struct_72)" +" the-struct_74)" "(expand-context/outer-binding-layer" -" the-struct_72)" +" the-struct_74)" "(expand-context/outer-reference-records" -" the-struct_72)" +" the-struct_74)" "(expand-context/outer-only-immediate?" -" the-struct_72)" +" the-struct_74)" "(expand-context/outer-need-eventually-defined" -" the-struct_72)" +" the-struct_74)" "(expand-context/outer-current-introduction-scopes" -" the-struct_72)" -"(expand-context/outer-name the-struct_72)))" +" the-struct_74)" +"(expand-context/outer-name the-struct_74)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_72))))))" -"(let-values(((wb-s_0)(if just-once?_1 s_440 #f)))" +" the-struct_74))))))" +"(let-values(((wb-s_0)(if just-once?_1 s_441 #f)))" "(let-values((()" "(begin" "(let-values(((obs_42)" @@ -43721,80 +44158,82 @@ static const char *startup_source = "(call-expand-observe" " obs_42" " 'visit" -" s_440)))" +" s_441)))" "(void)))" "(values))))" -"(let-values(((require-lifts_5 lifts_12 exp-s_8)" +"(let-values(((require-lifts_5 lifts_11 exp-s_8)" "(expand-capturing-lifts" -" s_440" -"(let-values(((v_143) tl-ctx_0))" -"(let-values(((the-struct_16) v_143))" +" s_441" +"(let-values(((v_145) tl-ctx_0))" +"(let-values(((the-struct_16) v_145))" "(if(expand-context/outer? the-struct_16)" "(let-values(((only-immediate?153_0)" " #t)" "((def-ctx-scopes154_0)" "(box null))" "((inner155_1)" -"(let-values(((the-struct_74)" +"(let-values(((the-struct_76)" "(root-expand-context/outer-inner" -" v_143)))" +" v_145)))" "(if(expand-context/inner?" -" the-struct_74)" +" the-struct_76)" "(let-values(((phase156_1)" " phase_138)" "((namespace157_1)" -" ns_101))" +" ns_100))" "(expand-context/inner2.1" +"(root-expand-context/inner-self-mpi" +" the-struct_76)" "(root-expand-context/inner-module-scopes" -" the-struct_74)" +" the-struct_76)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_74)" +" the-struct_76)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_74)" +" the-struct_76)" "(root-expand-context/inner-defined-syms" -" the-struct_74)" +" the-struct_76)" "(root-expand-context/inner-counter" -" the-struct_74)" +" the-struct_76)" "(root-expand-context/inner-lift-key" -" the-struct_74)" +" the-struct_76)" "(expand-context/inner-to-parsed?" -" the-struct_74)" +" the-struct_76)" " phase156_1" " namespace157_1" "(expand-context/inner-just-once?" -" the-struct_74)" +" the-struct_76)" "(expand-context/inner-module-begin-k" -" the-struct_74)" +" the-struct_76)" "(expand-context/inner-allow-unbound?" -" the-struct_74)" +" the-struct_76)" "(expand-context/inner-in-local-expand?" -" the-struct_74)" +" the-struct_76)" "(expand-context/inner-stops" -" the-struct_74)" +" the-struct_76)" "(expand-context/inner-declared-submodule-names" -" the-struct_74)" +" the-struct_76)" "(expand-context/inner-lifts" -" the-struct_74)" +" the-struct_76)" "(expand-context/inner-lift-envs" -" the-struct_74)" +" the-struct_76)" "(expand-context/inner-module-lifts" -" the-struct_74)" +" the-struct_76)" "(expand-context/inner-require-lifts" -" the-struct_74)" +" the-struct_76)" "(expand-context/inner-to-module-lifts" -" the-struct_74)" +" the-struct_76)" "(expand-context/inner-requires+provides" -" the-struct_74)" +" the-struct_76)" "(expand-context/inner-observer" -" the-struct_74)" +" the-struct_76)" "(expand-context/inner-for-serializable?" -" the-struct_74)" +" the-struct_76)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_74)))" +" the-struct_76)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_74)))))" +" the-struct_76)))))" "(expand-context/outer1.1" " inner155_1" "(root-expand-context/outer-post-expansion-scope" @@ -43829,15 +44268,15 @@ static const char *startup_source = " the-struct_16)))))))" "(let-values(((disarmed-exp-s_0)" "(syntax-disarm$1 exp-s_8)))" -"(if(let-values(((or-part_295)" +"(if(let-values(((or-part_301)" "(pair? require-lifts_5)))" -"(if or-part_295 or-part_295(pair? lifts_12)))" +"(if or-part_301 or-part_301(pair? lifts_11)))" "(let-values()" "(let-values(((new-s_2)" "(let-values(((temp158_0)" "(append" " require-lifts_5" -" lifts_12))" +" lifts_11))" "((exp-s159_0) exp-s_8)" "((phase160_0) phase_138))" "(wrap-lifts-as-begin16.1" @@ -43862,10 +44301,10 @@ static const char *startup_source = "(void)))" "(if just-once?_1" " new-s_2" -"(loop_98" +"(loop_101" " new-s_2" " phase_138" -" ns_101" +" ns_100" " as-tail?_7)))))" "(if(not single_0)" "(let-values()" @@ -43885,11 +44324,11 @@ static const char *startup_source = "(if(if just-once?_1(not(eq? exp-s_8 wb-s_0)) #f)" "(let-values() exp-s_8)" "(let-values()" -"(let-values(((tmp_36)" +"(let-values(((tmp_37)" "(core-form-sym" " disarmed-exp-s_0" " phase_138)))" -"(if(equal? tmp_36 'begin)" +"(if(equal? tmp_37 'begin)" "(let-values()" "(let-values((()" "(begin" @@ -43905,29 +44344,29 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_28 begin161_0 e162_0)" -"(let-values(((s_441)" +"(let-values(((s_442)" " disarmed-exp-s_0))" "(let-values(((orig-s_33)" -" s_441))" +" s_442))" "(let-values(((begin161_1" " e162_1)" -"(let-values(((s_442)" +"(let-values(((s_443)" "(if(syntax?$1" -" s_441)" -"(syntax-e$1" -" s_441)" -" s_441)))" -"(if(pair?" " s_442)" +"(syntax-e$1" +" s_442)" +" s_442)))" +"(if(pair?" +" s_443)" "(let-values(((begin163_0)" "(let-values(((s_113)" "(car" -" s_442)))" +" s_443)))" " s_113))" "((e164_0)" "(let-values(((s_114)" "(cdr" -" s_442)))" +" s_443)))" "(let-values(((s_115)" "(if(syntax?$1" " s_114)" @@ -43973,10 +44412,10 @@ static const char *startup_source = " es_2))" " #f)" "(let-values()" -"(loop_98" +"(loop_101" "(car es_2)" " phase_138" -" ns_101" +" ns_100" " as-tail?_7))" "(let-values()" "(let-values((()" @@ -43992,25 +44431,25 @@ static const char *startup_source = " 'next)))" "(void)))" "(values))))" -"(let-values(((a_63)" +"(let-values(((a_69)" "(if combine_0" -"(loop_98" +"(loop_101" "(car" " es_2)" " phase_138" -" ns_101" +" ns_100" " #f)" "(begin" -"(loop_98" +"(loop_101" "(car" " es_2)" " phase_138" -" ns_101" +" ns_100" " #f)" "(void)))))" "(if combine_0" "(combine_0" -" a_63" +" a_69" "(begin-loop_0" "(cdr" " es_2)))" @@ -44040,7 +44479,7 @@ static const char *startup_source = " new-s_3)))" "(let-values()" "(begin-loop_0 e162_0)))))))" -"(if(equal? tmp_36 'begin-for-syntax)" +"(if(equal? tmp_37 'begin-for-syntax)" "(let-values()" "(let-values((()" "(begin" @@ -44058,38 +44497,38 @@ static const char *startup_source = "(let-values(((ok?_29" " begin-for-syntax165_0" " e166_0)" -"(let-values(((s_443)" +"(let-values(((s_444)" " disarmed-exp-s_0))" "(let-values(((orig-s_34)" -" s_443))" +" s_444))" "(let-values(((begin-for-syntax165_1" " e166_1)" -"(let-values(((s_444)" -"(if(syntax?$1" -" s_443)" -"(syntax-e$1" -" s_443)" -" s_443)))" -"(if(pair?" -" s_444)" -"(let-values(((begin-for-syntax167_0)" "(let-values(((s_445)" -"(car" -" s_444)))" -" s_445))" -"((e168_0)" -"(let-values(((s_446)" -"(cdr" -" s_444)))" -"(let-values(((s_447)" "(if(syntax?$1" -" s_446)" +" s_444)" "(syntax-e$1" -" s_446)" -" s_446)))" +" s_444)" +" s_444)))" +"(if(pair?" +" s_445)" +"(let-values(((begin-for-syntax167_0)" +"(let-values(((s_446)" +"(car" +" s_445)))" +" s_446))" +"((e168_0)" +"(let-values(((s_447)" +"(cdr" +" s_445)))" +"(let-values(((s_448)" +"(if(syntax?$1" +" s_447)" +"(syntax-e$1" +" s_447)" +" s_447)))" "(let-values(((flat-s_21)" "(to-syntax-list.1" -" s_447)))" +" s_448)))" "(if(not" " flat-s_21)" "(let-values()" @@ -44114,7 +44553,7 @@ static const char *startup_source = "(add1 phase_138)))" "(let-values(((next-ns_0)" "(namespace->namespace-at-phase" -" ns_101" +" ns_100" " next-phase_0)))" "(let-values((()" "(begin" @@ -44134,7 +44573,7 @@ static const char *startup_source = "(if quick-immediate?_0" "(let-values()" "(namespace-visit-available-modules!" -" ns_101))" +" ns_100))" "(void))" "(values))))" "(let-values((()" @@ -44144,7 +44583,7 @@ static const char *startup_source = "(values))))" "(let-values(((l_72)" "(reverse$1" -"(let-values(((lst_293)" +"(let-values(((lst_291)" " e166_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -44152,24 +44591,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_293)))" -"((letrec-values(((for-loop_247)" -"(lambda(fold-var_243" -" lst_294)" +" lst_291)))" +"((letrec-values(((for-loop_248)" +"(lambda(fold-var_245" +" lst_292)" "(begin" " 'for-loop" "(if(pair?" -" lst_294)" -"(let-values(((s_448)" +" lst_292)" +"(let-values(((s_449)" "(unsafe-car" -" lst_294))" +" lst_292))" "((rest_166)" "(unsafe-cdr" -" lst_294)))" -"(let-values(((fold-var_244)" -"(let-values(((fold-var_245)" -" fold-var_243))" +" lst_292)))" "(let-values(((fold-var_246)" +"(let-values(((fold-var_247)" +" fold-var_245))" +"(let-values(((fold-var_248)" "(let-values()" "(cons" "(let-values()" @@ -44184,24 +44623,24 @@ static const char *startup_source = " obs_50" " 'next)))" "(void)))" -"(loop_98" -" s_448" +"(loop_101" +" s_449" " next-phase_0" " next-ns_0" " #f)))" -" fold-var_245))))" +" fold-var_247))))" "(values" -" fold-var_246)))))" +" fold-var_248)))))" "(if(not" " #f)" -"(for-loop_247" -" fold-var_244" +"(for-loop_248" +" fold-var_246" " rest_166)" -" fold-var_244)))" -" fold-var_243)))))" -" for-loop_247)" +" fold-var_246)))" +" fold-var_245)))))" +" for-loop_248)" " null" -" lst_293))))))" +" lst_291))))))" "(if wrap_2" "(let-values()" "(let-values(((new-s_4)" @@ -44229,111 +44668,113 @@ static const char *startup_source = "(let-values()" "(single_0" " exp-s_8" -" ns_101" -" as-tail?_7))))))))))))))))))" -" loop_98)" -" s_439" -" phase_137" " ns_100" +" as-tail?_7))))))))))))))))))" +" loop_101)" +" s_440" +" phase_137" +" ns_99" " #t)))))))))))))))))" "(define-values" "(maybe-intro)" -"(lambda(s_345 ns_102)" -"(begin(if(syntax?$1 s_345) s_345(1/namespace-syntax-introduce(1/datum->syntax #f s_345) ns_102)))))" +"(lambda(s_346 ns_101)" +"(begin(if(syntax?$1 s_346) s_346(1/namespace-syntax-introduce(1/datum->syntax #f s_346) ns_101)))))" "(define-values" "(re-pair)" -"(lambda(form-id_0 s_449 r_45)" -"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_449)(cons form-id_0 r_45) s_449 s_449) s_449))))" +"(lambda(form-id_0 s_450 r_44)" +"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_450)(cons form-id_0 r_44) s_450 s_450) s_450))))" "(define-values" "(expand-capturing-lifts)" -"(lambda(s_450 ctx_67)" +"(lambda(s_451 ctx_67)" "(begin" "(let-values()" -"(let-values(((ns_103)(expand-context-namespace ctx_67)))" -"(let-values((()(begin(namespace-visit-available-modules! ns_103)(values))))" +"(let-values(((ns_102)(expand-context-namespace ctx_67)))" +"(let-values((()(begin(namespace-visit-available-modules! ns_102)(values))))" "(let-values(((lift-ctx_6)" "(let-values(((temp169_0)(make-top-level-lift ctx_67)))" "(make-lift-context6.1 #f #f temp169_0))))" "(let-values(((require-lift-ctx_2)" "(make-require-lift-context" -"(namespace-phase ns_103)" -"(make-parse-top-lifted-require ns_103))))" +"(namespace-phase ns_102)" +"(make-parse-top-lifted-require ns_102))))" "(let-values(((exp-s_9)" -"(let-values(((s170_0) s_450)" +"(let-values(((s170_0) s_451)" "((temp171_0)" -"(let-values(((v_160) ctx_67))" -"(let-values(((the-struct_75) v_160))" -"(if(expand-context/outer? the-struct_75)" +"(let-values(((v_161) ctx_67))" +"(let-values(((the-struct_77) v_161))" +"(if(expand-context/outer? the-struct_77)" "(let-values(((inner172_0)" -"(let-values(((the-struct_76)" -"(root-expand-context/outer-inner v_160)))" -"(if(expand-context/inner? the-struct_76)" +"(let-values(((the-struct_78)" +"(root-expand-context/outer-inner v_161)))" +"(if(expand-context/inner? the-struct_78)" "(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)" "(root-expand-context/inner-module-scopes" -" the-struct_76)" +" the-struct_78)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_76)" +" the-struct_78)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_76)" +" the-struct_78)" "(root-expand-context/inner-defined-syms" -" the-struct_76)" -"(root-expand-context/inner-counter the-struct_76)" +" the-struct_78)" +"(root-expand-context/inner-counter the-struct_78)" "(root-expand-context/inner-lift-key" -" the-struct_76)" -"(expand-context/inner-to-parsed? the-struct_76)" -"(expand-context/inner-phase the-struct_76)" -"(expand-context/inner-namespace the-struct_76)" -"(expand-context/inner-just-once? the-struct_76)" +" 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)" "(expand-context/inner-module-begin-k" -" the-struct_76)" +" the-struct_78)" "(expand-context/inner-allow-unbound?" -" the-struct_76)" +" the-struct_78)" "(expand-context/inner-in-local-expand?" -" the-struct_76)" -"(expand-context/inner-stops the-struct_76)" +" the-struct_78)" +"(expand-context/inner-stops the-struct_78)" "(expand-context/inner-declared-submodule-names" -" the-struct_76)" +" the-struct_78)" " lifts173_0" -"(expand-context/inner-lift-envs the-struct_76)" +"(expand-context/inner-lift-envs the-struct_78)" " module-lifts174_0" " require-lifts175_0" "(expand-context/inner-to-module-lifts" -" the-struct_76)" +" the-struct_78)" "(expand-context/inner-requires+provides" -" the-struct_76)" -"(expand-context/inner-observer the-struct_76)" +" the-struct_78)" +"(expand-context/inner-observer the-struct_78)" "(expand-context/inner-for-serializable?" -" the-struct_76)" +" the-struct_78)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_76)))" +" the-struct_78)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_76)))))" +" the-struct_78)))))" "(expand-context/outer1.1" " inner172_0" -"(root-expand-context/outer-post-expansion-scope the-struct_75)" -"(root-expand-context/outer-use-site-scopes the-struct_75)" -"(root-expand-context/outer-frame-id the-struct_75)" -"(expand-context/outer-context the-struct_75)" -"(expand-context/outer-env the-struct_75)" -"(expand-context/outer-post-expansion-scope-action the-struct_75)" -"(expand-context/outer-scopes the-struct_75)" -"(expand-context/outer-def-ctx-scopes the-struct_75)" -"(expand-context/outer-binding-layer the-struct_75)" -"(expand-context/outer-reference-records the-struct_75)" -"(expand-context/outer-only-immediate? the-struct_75)" -"(expand-context/outer-need-eventually-defined the-struct_75)" -"(expand-context/outer-current-introduction-scopes the-struct_75)" -"(expand-context/outer-name the-struct_75)))" +"(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)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_75))))))" +" the-struct_77))))))" "(expand7.1 #f #f #f #f s170_0 temp171_0))))" "(values" "(get-and-clear-require-lifts! require-lift-ctx_2)" @@ -44341,33 +44782,33 @@ static const char *startup_source = " exp-s_9))))))))))" "(define-values" "(make-parse-top-lifted-require)" -"(lambda(ns_104)" +"(lambda(ns_103)" "(begin" "(lambda(s_241 phase_139)" "(let-values(((ok?_30 #%require176_0 req177_0)" -"(let-values(((s_451)(syntax-disarm$1 s_241)))" -"(let-values(((orig-s_35) s_451))" +"(let-values(((s_452)(syntax-disarm$1 s_241)))" +"(let-values(((orig-s_35) s_452))" "(let-values(((#%require176_1 req177_1)" -"(let-values(((s_452)(if(syntax?$1 s_451)(syntax-e$1 s_451) s_451)))" -"(if(pair? s_452)" -"(let-values(((#%require178_0)(let-values(((s_358)(car s_452))) s_358))" -"((req179_0)" -"(let-values(((s_359)(cdr s_452)))" -"(let-values(((s_453)" -"(if(syntax?$1 s_359)" -"(syntax-e$1 s_359)" -" s_359)))" +"(let-values(((s_453)(if(syntax?$1 s_452)(syntax-e$1 s_452) s_452)))" "(if(pair? s_453)" -"(let-values(((req180_0)" -"(let-values(((s_361)(car s_453)))" -" s_361))" -"(()" -"(let-values(((s_362)(cdr s_453)))" +"(let-values(((#%require178_0)(let-values(((s_359)(car s_453))) s_359))" +"((req179_0)" +"(let-values(((s_360)(cdr s_453)))" "(let-values(((s_454)" -"(if(syntax?$1 s_362)" -"(syntax-e$1 s_362)" -" s_362)))" -"(if(null? s_454)" +"(if(syntax?$1 s_360)" +"(syntax-e$1 s_360)" +" s_360)))" +"(if(pair? s_454)" +"(let-values(((req180_0)" +"(let-values(((s_362)(car s_454)))" +" s_362))" +"(()" +"(let-values(((s_363)(cdr s_454)))" +"(let-values(((s_455)" +"(if(syntax?$1 s_363)" +"(syntax-e$1 s_363)" +" s_363)))" +"(if(null? s_455)" "(values)" "(raise-syntax-error$1" " #f" @@ -44380,7 +44821,7 @@ static const char *startup_source = "(values #t #%require176_1 req177_1))))))" "(let-values(((temp181_0)(list req177_0))" "((s182_0) s_241)" -"((ns183_0) ns_104)" +"((ns183_0) ns_103)" "((phase184_1) phase_139)" "((phase185_0) phase_139)" "((temp186_0)(let-values(((temp188_0) #f))(make-requires+provides8.1 #f #f temp188_0)))" @@ -44416,7 +44857,7 @@ static const char *startup_source = "(begin" " 'wrap-lifts-as-lifted-parsed-begin77" "(let-values(((require-lifts_6) require-lifts73_0))" -"(let-values(((lifts_13) lifts74_0))" +"(let-values(((lifts_12) lifts74_0))" "(let-values(((exp-s_10) exp-s75_0))" "(let-values(((rebuild-s_3) rebuild-s76_0))" "(let-values(((adjust-form_1) adjust-form71_0))" @@ -44424,48 +44865,48 @@ static const char *startup_source = "(lifted-parsed-begin30.1" "(append" "(reverse$1" -"(let-values(((lst_295) require-lifts_6))" +"(let-values(((lst_293) require-lifts_6))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_295)))" -"((letrec-values(((for-loop_253)" -"(lambda(fold-var_258 lst_296)" +"(let-values()(check-list lst_293)))" +"((letrec-values(((for-loop_254)" +"(lambda(fold-var_260 lst_294)" "(begin" " 'for-loop" -"(if(pair? lst_296)" -"(let-values(((req_19)(unsafe-car lst_296))" -"((rest_167)(unsafe-cdr lst_296)))" -"(let-values(((fold-var_259)" -"(let-values(((fold-var_260) fold-var_258))" +"(if(pair? lst_294)" +"(let-values(((req_23)(unsafe-car lst_294))" +"((rest_167)(unsafe-cdr lst_294)))" "(let-values(((fold-var_261)" +"(let-values(((fold-var_262) fold-var_260))" +"(let-values(((fold-var_263)" "(let-values()" "(cons" "(let-values()" -"(parsed-require23.1 req_19))" -" fold-var_260))))" -"(values fold-var_261)))))" -"(if(not #f)(for-loop_253 fold-var_259 rest_167) fold-var_259)))" -" fold-var_258)))))" -" for-loop_253)" +"(parsed-require23.1 req_23))" +" fold-var_262))))" +"(values fold-var_263)))))" +"(if(not #f)(for-loop_254 fold-var_261 rest_167) fold-var_261)))" +" fold-var_260)))))" +" for-loop_254)" " null" -" lst_295))))" +" lst_293))))" "(reverse$1" -"(let-values(((lst_140)(get-lifts-as-lists lifts_13)))" +"(let-values(((lst_140)(get-lifts-as-lists lifts_12)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_140)))" -"((letrec-values(((for-loop_254)" -"(lambda(fold-var_262 lst_297)" +"((letrec-values(((for-loop_255)" +"(lambda(fold-var_264 lst_295)" "(begin" " 'for-loop" -"(if(pair? lst_297)" -"(let-values(((ids+syms+rhs_0)(unsafe-car lst_297))" -"((rest_168)(unsafe-cdr lst_297)))" -"(let-values(((fold-var_263)" -"(let-values(((fold-var_264) fold-var_262))" +"(if(pair? lst_295)" +"(let-values(((ids+syms+rhs_0)(unsafe-car lst_295))" +"((rest_168)(unsafe-cdr lst_295)))" "(let-values(((fold-var_265)" +"(let-values(((fold-var_266) fold-var_264))" +"(let-values(((fold-var_267)" "(let-values()" "(cons" "(let-values()" @@ -44489,40 +44930,40 @@ static const char *startup_source = " just-rhs_0)))" "(if(lifted-parsed-begin?" " exp-rhs_3)" -"(let-values(((the-struct_77)" +"(let-values(((the-struct_79)" " exp-rhs_3))" "(if(lifted-parsed-begin?" -" the-struct_77)" +" the-struct_79)" "(let-values(((last189_0)" " dv_0))" "(lifted-parsed-begin30.1" "(lifted-parsed-begin-seq" -" the-struct_77)" +" the-struct_79)" " last189_0))" "(raise-argument-error" " 'struct-copy" " \"lifted-parsed-begin?\"" -" the-struct_77)))" +" the-struct_79)))" " dv_0)))))" -" fold-var_264))))" -"(values fold-var_265)))))" -"(if(not #f)(for-loop_254 fold-var_263 rest_168) fold-var_263)))" -" fold-var_262)))))" -" for-loop_254)" +" fold-var_266))))" +"(values fold-var_267)))))" +"(if(not #f)(for-loop_255 fold-var_265 rest_168) fold-var_265)))" +" fold-var_264)))))" +" for-loop_255)" " null" " lst_140)))))" " exp-s_10))))))))))" "(define-values" "(log-top-lift-begin-before)" -"(lambda(ctx_68 require-lifts_7 lifts_14 exp-s_11 ns_105)" +"(lambda(ctx_68 require-lifts_7 lifts_13 exp-s_11 ns_104)" "(begin" "(let-values(((obs_52)(expand-context-observer ctx_68)))" "(if obs_52" "(let-values()" "(let-values(((new-s_5)" -"(let-values(((temp190_0)(append require-lifts_7 lifts_14))" +"(let-values(((temp190_0)(append require-lifts_7 lifts_13))" "((exp-s191_0) exp-s_11)" -"((temp192_0)(namespace-phase ns_105)))" +"((temp192_0)(namespace-phase ns_104)))" "(wrap-lifts-as-begin16.1 #f #f #f #f temp190_0 exp-s191_0 temp192_0))))" "(begin(call-expand-observe obs_52 'lift-loop new-s_5)(log-top-begin-before ctx_68 new-s_5))))" "(void))))))" @@ -44534,19 +44975,19 @@ static const char *startup_source = "(if obs_53" "(let-values()" "(let-values(((ok?_31 begin193_0 e194_0)" -"(let-values(((s_455) new-s_6))" -"(let-values(((orig-s_36) s_455))" +"(let-values(((s_456) new-s_6))" +"(let-values(((orig-s_36) s_456))" "(let-values(((begin193_1 e194_1)" -"(let-values(((s_456)(if(syntax?$1 s_455)(syntax-e$1 s_455) s_455)))" -"(if(pair? s_456)" -"(let-values(((begin195_0)(let-values(((s_457)(car s_456))) s_457))" +"(let-values(((s_457)(if(syntax?$1 s_456)(syntax-e$1 s_456) s_456)))" +"(if(pair? s_457)" +"(let-values(((begin195_0)(let-values(((s_458)(car s_457))) s_458))" "((e196_0)" -"(let-values(((s_458)(cdr s_456)))" -"(let-values(((s_459)" -"(if(syntax?$1 s_458)" -"(syntax-e$1 s_458)" -" s_458)))" -"(let-values(((flat-s_22)(to-syntax-list.1 s_459)))" +"(let-values(((s_459)(cdr s_457)))" +"(let-values(((s_460)" +"(if(syntax?$1 s_459)" +"(syntax-e$1 s_459)" +" s_459)))" +"(let-values(((flat-s_22)(to-syntax-list.1 s_460)))" "(if(not flat-s_22)" "(let-values()" "(raise-syntax-error$1" @@ -44572,19 +45013,19 @@ static const char *startup_source = "(if obs_54" "(let-values()" "(let-values(((ok?_32 begin197_0 e198_0)" -"(let-values(((s_460) new-s_7))" -"(let-values(((orig-s_37) s_460))" +"(let-values(((s_461) new-s_7))" +"(let-values(((orig-s_37) s_461))" "(let-values(((begin197_1 e198_1)" -"(let-values(((s_461)(if(syntax?$1 s_460)(syntax-e$1 s_460) s_460)))" -"(if(pair? s_461)" -"(let-values(((begin199_0)(let-values(((s_462)(car s_461))) s_462))" +"(let-values(((s_462)(if(syntax?$1 s_461)(syntax-e$1 s_461) s_461)))" +"(if(pair? s_462)" +"(let-values(((begin199_0)(let-values(((s_463)(car s_462))) s_463))" "((e200_0)" -"(let-values(((s_463)(cdr s_461)))" -"(let-values(((s_464)" -"(if(syntax?$1 s_463)" -"(syntax-e$1 s_463)" -" s_463)))" -"(let-values(((flat-s_23)(to-syntax-list.1 s_464)))" +"(let-values(((s_464)(cdr s_462)))" +"(let-values(((s_465)" +"(if(syntax?$1 s_464)" +"(syntax-e$1 s_464)" +" s_464)))" +"(let-values(((flat-s_23)(to-syntax-list.1 s_465)))" "(if(not flat-s_23)" "(let-values()" "(raise-syntax-error$1" @@ -44613,7 +45054,7 @@ static const char *startup_source = " 'do-dynamic-require6" "(let-values(((who_20) who3_0))" "(let-values(((mod-path_5) mod-path4_0))" -"(let-values(((sym_80) sym5_0))" +"(let-values(((sym_81) sym5_0))" "(let-values(((fail-k_2)(if fail-k2_0 fail-k1_0 default-dynamic-require-fail-thunk)))" "(let-values()" "(let-values((()" @@ -44632,17 +45073,17 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_5)(symbol? sym_80)))" +"(if(let-values(((or-part_5)(symbol? sym_81)))" "(if or-part_5" " or-part_5" -"(let-values(((or-part_6)(not sym_80)))" +"(let-values(((or-part_6)(not sym_81)))" "(if or-part_6" " or-part_6" -"(let-values(((or-part_286)(equal? sym_80 0)))" -"(if or-part_286 or-part_286(void? sym_80)))))))" +"(let-values(((or-part_292)(equal? sym_81 0)))" +"(if or-part_292 or-part_292(void? sym_81)))))))" "(void)" "(let-values()" -" (raise-argument-error who_20 \"(or/c symbol? #f 0 void?)\" sym_80)))" +" (raise-argument-error who_20 \"(or/c symbol? #f 0 void?)\" sym_81)))" "(values))))" "(let-values((()" "(begin" @@ -44664,13 +45105,13 @@ static const char *startup_source = " #f))))))" "(let-values(((mod-name_22)(1/module-path-index-resolve mpi_46 #t)))" "(let-values(((phase_140)(namespace-phase ns_57)))" -"(if(not sym_80)" +"(if(not sym_81)" "(let-values()" -"(let-values(((phase23_0) phase_140)((temp24_5) #f))" +"(let-values(((phase23_1) phase_140)((temp24_5) #f))" "(namespace-module-instantiate!96.1" " temp24_5" " #t" -" phase23_0" +" phase23_1" " #t" " #f" " #f" @@ -44679,7 +45120,7 @@ static const char *startup_source = " ns_57" " mpi_46" " phase_140)))" -"(if(equal? sym_80 0)" +"(if(equal? sym_81 0)" "(let-values()" "(let-values(((phase28_1) phase_140))" "(namespace-module-instantiate!96.1" @@ -44694,7 +45135,7 @@ static const char *startup_source = " ns_57" " mpi_46" " phase_140)))" -"(if(void? sym_80)" +"(if(void? sym_81)" "(let-values()" "(let-values(((phase32_4) phase_140))" "(namespace-module-visit!104.1" @@ -44717,7 +45158,7 @@ static const char *startup_source = "(let-values(((binding/p_5)" "(hash-ref" "(hash-ref(module-provides m_22) 0 '#hasheq())" -" sym_80" +" sym_81" " #f)))" "(if(not binding/p_5)" "(let-values()" @@ -44726,7 +45167,7 @@ static const char *startup_source = " 'dynamic-require" " \"name is not provided\"" " \"name\"" -" sym_80" +" sym_81" " \"module\"" " mod-name_22)" "(fail-k_2)))" @@ -44781,11 +45222,11 @@ static const char *startup_source = " ns_57" " ex-mod-name_0)))" "(let-values(((access_4)" -"(let-values(((or-part_70)" +"(let-values(((or-part_76)" "(module-access" " ex-m_0)))" -"(if or-part_70" -" or-part_70" +"(if or-part_76" +" or-part_76" "(module-compute-access!" " ex-m_0)))))" "(let-values((()" @@ -44821,7 +45262,7 @@ static const char *startup_source = " 'dynamic-require" " \"name is protected\"" " \"name\"" -" sym_80" +" sym_81" " \"module\"" " mod-name_22))" "(void))" @@ -44837,7 +45278,7 @@ static const char *startup_source = " 'dynamic-require" " \"name's binding is missing\"" " \"name\"" -" sym_80" +" sym_81" " \"module\"" " mod-name_22)" "(fail-k_2))))))" @@ -44900,11 +45341,11 @@ static const char *startup_source = " tmp-ns_0)" "(let-values()" "(1/eval" -" sym_80" +" sym_81" " tmp-ns_0))))))))))))))))))))))))))))))))))))))))))))))))" "(case-lambda" -"((who_21 mod-path_16 sym_81)(begin(do-dynamic-require6_0 who_21 mod-path_16 sym_81 #f #f)))" -"((who_22 mod-path_18 sym_82 fail-k1_1)(do-dynamic-require6_0 who_22 mod-path_18 sym_82 fail-k1_1 #t)))))" +"((who_21 mod-path_16 sym_82)(begin(do-dynamic-require6_0 who_21 mod-path_16 sym_82 #f #f)))" +"((who_22 mod-path_18 sym_83 fail-k1_1)(do-dynamic-require6_0 who_22 mod-path_18 sym_83 fail-k1_1 #t)))))" " (define-values (default-dynamic-require-fail-thunk) (lambda () (begin (error \"failed\"))))" "(define-values" "(1/dynamic-require)" @@ -44913,12 +45354,12 @@ static const char *startup_source = "(begin" " 'dynamic-require12" "(let-values(((mod-path_19) mod-path10_2))" -"(let-values(((sym_83) sym11_0))" +"(let-values(((sym_84) sym11_0))" "(let-values(((fail-k_3)(if fail-k9_0 fail-k8_0 default-dynamic-require-fail-thunk)))" -"(let-values()(do-dynamic-require 'dynamic-require mod-path_19 sym_83 fail-k_3)))))))))" +"(let-values()(do-dynamic-require 'dynamic-require mod-path_19 sym_84 fail-k_3)))))))))" "(case-lambda" "((mod-path_20 sym_10)(begin 'dynamic-require(dynamic-require12_0 mod-path_20 sym_10 #f #f)))" -"((mod-path_21 sym_84 fail-k8_1)(dynamic-require12_0 mod-path_21 sym_84 fail-k8_1 #t)))))" +"((mod-path_21 sym_85 fail-k8_1)(dynamic-require12_0 mod-path_21 sym_85 fail-k8_1 #t)))))" "(define-values" "(1/dynamic-require-for-syntax)" "(let-values(((dynamic-require-for-syntax18_0)" @@ -44926,7 +45367,7 @@ static const char *startup_source = "(begin" " 'dynamic-require-for-syntax18" "(let-values(((mod-path_22) mod-path16_0))" -"(let-values(((sym_85) sym17_1))" +"(let-values(((sym_86) sym17_1))" "(let-values(((fail-k_4)(if fail-k15_0 fail-k14_0 default-dynamic-require-fail-thunk)))" "(let-values()" "(with-continuation-mark" @@ -44934,63 +45375,63 @@ static const char *startup_source = "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " 1/current-namespace" -"(let-values(((ns_106)(1/current-namespace)))" -"(namespace->namespace-at-phase ns_106(add1(namespace-phase ns_106)))))" +"(let-values(((ns_105)(1/current-namespace)))" +"(namespace->namespace-at-phase ns_105(add1(namespace-phase ns_105)))))" "(let-values()" -"(do-dynamic-require 'dynamic-require-for-syntax mod-path_22 sym_85 fail-k_4)))))))))))" +"(do-dynamic-require 'dynamic-require-for-syntax mod-path_22 sym_86 fail-k_4)))))))))))" "(case-lambda" -"((mod-path_23 sym_86)" -"(begin 'dynamic-require-for-syntax(dynamic-require-for-syntax18_0 mod-path_23 sym_86 #f #f)))" -"((mod-path_24 sym_87 fail-k14_1)(dynamic-require-for-syntax18_0 mod-path_24 sym_87 fail-k14_1 #t)))))" -" (define-values (replace-me) (lambda (who_0) (begin (lambda args_6 (error who_0 \"this stub must be replaced\")))))" +"((mod-path_23 sym_87)" +"(begin 'dynamic-require-for-syntax(dynamic-require-for-syntax18_0 mod-path_23 sym_87 #f #f)))" +"((mod-path_24 sym_88 fail-k14_1)(dynamic-require-for-syntax18_0 mod-path_24 sym_88 fail-k14_1 #t)))))" +" (define-values (replace-me) (lambda (who_0) (begin (lambda args_9 (error who_0 \"this stub must be replaced\")))))" "(define-values" "(1/current-eval)" "(let-values()" "(let-values()" "(make-parameter" "(replace-me 'current-eval)" -"(lambda(p_45)" +"(lambda(p_49)" "(begin" -"(if((lambda(p_46)(if(procedure? p_46)(procedure-arity-includes? p_46 1) #f)) p_45)" +"(if((lambda(p_50)(if(procedure? p_50)(procedure-arity-includes? p_50 1) #f)) p_49)" "(void)" -" (let-values () (raise-argument-error 'current-eval \"(procedure-arity-includes/c 1)\" p_45)))" -" p_45))))))" +" (let-values () (raise-argument-error 'current-eval \"(procedure-arity-includes/c 1)\" p_49)))" +" p_49))))))" "(define-values" "(1/current-compile)" "(let-values()" "(let-values()" "(make-parameter" "(replace-me 'current-compile)" -"(lambda(p_30)" +"(lambda(p_34)" "(begin" -"(if((lambda(p_47)(if(procedure? p_47)(procedure-arity-includes? p_47 2) #f)) p_30)" +"(if((lambda(p_51)(if(procedure? p_51)(procedure-arity-includes? p_51 2) #f)) p_34)" "(void)" -" (let-values () (raise-argument-error 'current-compile \"(procedure-arity-includes/c 2)\" p_30)))" -" p_30))))))" +" (let-values () (raise-argument-error 'current-compile \"(procedure-arity-includes/c 2)\" p_34)))" +" p_34))))))" "(define-values" "(1/current-load)" "(let-values()" "(let-values()" "(make-parameter" "(replace-me 'current-load)" -"(lambda(p_48)" +"(lambda(p_52)" "(begin" -"(if((lambda(p_49)(if(procedure? p_49)(procedure-arity-includes? p_49 2) #f)) p_48)" +"(if((lambda(p_53)(if(procedure? p_53)(procedure-arity-includes? p_53 2) #f)) p_52)" "(void)" -" (let-values () (raise-argument-error 'current-load \"(procedure-arity-includes/c 2)\" p_48)))" -" p_48))))))" +" (let-values () (raise-argument-error 'current-load \"(procedure-arity-includes/c 2)\" p_52)))" +" p_52))))))" "(define-values" "(1/current-load/use-compiled)" "(let-values()" "(let-values()" "(make-parameter" "(replace-me 'current-load/use-compiled)" -"(lambda(p_34)" +"(lambda(p_38)" "(begin" -"(if((lambda(p_50)(if(procedure? p_50)(procedure-arity-includes? p_50 2) #f)) p_34)" +"(if((lambda(p_47)(if(procedure? p_47)(procedure-arity-includes? p_47 2) #f)) p_38)" "(void)" -" (let-values () (raise-argument-error 'current-load/use-compiled \"(procedure-arity-includes/c 2)\" p_34)))" -" p_34))))))" +" (let-values () (raise-argument-error 'current-load/use-compiled \"(procedure-arity-includes/c 2)\" p_38)))" +" p_38))))))" "(define-values" "(1/current-library-collection-paths)" "(let-values()" @@ -45018,36 +45459,36 @@ static const char *startup_source = "(if((lambda(l_8)" "(if(list? l_8)" "(andmap2" -"(lambda(p_51)" -"(let-values(((or-part_291)(not p_51)))" -"(if or-part_291" -" or-part_291" -"(let-values(((or-part_292)(complete-path-string? p_51)))" -"(if or-part_292" -" or-part_292" -"(if(hash? p_51)" -"(let-values(((ht_144) p_51))" +"(lambda(p_54)" +"(let-values(((or-part_297)(not p_54)))" +"(if or-part_297" +" or-part_297" +"(let-values(((or-part_298)(complete-path-string? p_54)))" +"(if or-part_298" +" or-part_298" +"(if(hash? p_54)" +"(let-values(((ht_146) p_54))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_144)))" -"((letrec-values(((for-loop_177)" -"(lambda(result_109 i_85)" +"(let-values()(check-in-hash ht_146)))" +"((letrec-values(((for-loop_178)" +"(lambda(result_111 i_86)" "(begin" " 'for-loop" -"(if i_85" +"(if i_86" "(let-values(((k_34 v_3)" -"(hash-iterate-key+value ht_144 i_85)))" -"(let-values(((result_110)" +"(hash-iterate-key+value ht_146 i_86)))" +"(let-values(((result_112)" "(let-values()" -"(let-values(((result_111)" +"(let-values(((result_113)" "(let-values()" "(let-values()" -"(if(let-values(((or-part_78)" +"(if(let-values(((or-part_84)" "(not" " k_34)))" -"(if or-part_78" -" or-part_78" +"(if or-part_84" +" or-part_84" "(if(symbol?" " k_34)" "(1/module-path?" @@ -45059,18 +45500,18 @@ static const char *startup_source = " v_3)" " #f)" " #f)))))" -"(values result_111)))))" -"(if(if(not((lambda x_79(not result_110)) k_34 v_3))" +"(values result_113)))))" +"(if(if(not((lambda x_80(not result_112)) k_34 v_3))" "(not #f)" " #f)" -"(for-loop_177" -" result_110" -"(hash-iterate-next ht_144 i_85))" -" result_110)))" -" result_109)))))" -" for-loop_177)" +"(for-loop_178" +" result_112" +"(hash-iterate-next ht_146 i_86))" +" result_112)))" +" result_111)))))" +" for-loop_178)" " #t" -"(hash-iterate-first ht_144))))" +"(hash-iterate-first ht_146))))" " #f))))))" " l_8)" " #f))" @@ -45086,46 +45527,46 @@ static const char *startup_source = " \" (listof (and/c path-string? complete-path?)))))\")" " l_74)))" "(map2" -"(lambda(p_3)" -"(if(not p_3)" +"(lambda(p_7)" +"(if(not p_7)" "(let-values() #f)" -"(if(path? p_3)" -"(let-values() p_3)" -"(if(string? p_3)" -"(let-values()(string->path p_3))" +"(if(path? p_7)" +"(let-values() p_7)" +"(if(string? p_7)" +"(let-values()(string->path p_7))" "(let-values()" -"(let-values(((ht_145) p_3))" +"(let-values(((ht_147) p_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_145)))" -"((letrec-values(((for-loop_255)" -"(lambda(table_201 i_86)" +"(let-values()(check-in-hash ht_147)))" +"((letrec-values(((for-loop_256)" +"(lambda(table_203 i_87)" "(begin" " 'for-loop" -"(if i_86" -"(let-values(((k_35 v_192)(hash-iterate-key+value ht_145 i_86)))" -"(let-values(((table_202)" -"(let-values(((table_103) table_201))" -"(let-values(((table_203)" +"(if i_87" +"(let-values(((k_35 v_194)(hash-iterate-key+value ht_147 i_87)))" +"(let-values(((table_204)" +"(let-values(((table_106) table_203))" +"(let-values(((table_205)" "(let-values()" "(let-values(((key_82 val_73)" "(let-values()" "(values" " k_35" -"(to-path v_192)))))" +"(to-path v_194)))))" "(hash-set" -" table_103" +" table_106" " key_82" " val_73)))))" -"(values table_203)))))" +"(values table_205)))))" "(if(not #f)" -"(for-loop_255 table_202(hash-iterate-next ht_145 i_86))" -" table_202)))" -" table_201)))))" -" for-loop_255)" +"(for-loop_256 table_204(hash-iterate-next ht_147 i_87))" +" table_204)))" +" table_203)))))" +" for-loop_256)" " '#hash()" -"(hash-iterate-first ht_145)))))))))" +"(hash-iterate-first ht_147)))))))))" " l_74)))))))" "(define-values" "(1/use-compiled-file-paths)" @@ -45151,8 +45592,8 @@ static const char *startup_source = "(if((lambda(l_77)" "(if(list? l_77)" "(andmap2" -"(lambda(p_52)" -"(let-values(((or-part_8)(path-string? p_52)))(if or-part_8 or-part_8(eq? p_52 'same))))" +"(lambda(p_55)" +"(let-values(((or-part_8)(path-string? p_55)))(if or-part_8 or-part_8(eq? p_55 'same))))" " l_77)" " #f))" " l_76)" @@ -45166,22 +45607,22 @@ static const char *startup_source = "(let-values()" "(make-parameter" " 'modify-seconds" -"(lambda(v_181)" +"(lambda(v_182)" "(begin" -"(if((lambda(v_64)" -"(let-values(((or-part_21)(eq? v_64 'modify-seconds)))" -"(if or-part_21 or-part_21(eq? v_64 'exists))))" -" v_181)" +"(if((lambda(v_67)" +"(let-values(((or-part_27)(eq? v_67 'modify-seconds)))" +"(if or-part_27 or-part_27(eq? v_67 'exists))))" +" v_182)" "(void)" -" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_181)))" -" v_181))))))" -"(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_193)(if v_193 #t #f))))" -"(define-values(complete-path-string?)(lambda(p_20)(begin(if(path-string? p_20)(complete-path? p_20) #f))))" +" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_182)))" +" v_182))))))" +"(define-values(1/use-collection-link-paths)(make-parameter #t(lambda(v_79)(if v_79 #t #f))))" +"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_195)(if v_195 #t #f))))" +"(define-values(complete-path-string?)(lambda(p_24)(begin(if(path-string? p_24)(complete-path? p_24) #f))))" "(define-values" "(relative-path-string?$1)" -"(lambda(p_53)(begin 'relative-path-string?(if(path-string? p_53)(relative-path? p_53) #f))))" -"(define-values(to-path)(lambda(p_54)(begin(if(string? p_54)(string->path p_54) p_54))))" +"(lambda(p_56)(begin 'relative-path-string?(if(path-string? p_56)(relative-path? p_56) #f))))" +"(define-values(to-path)(lambda(p_57)(begin(if(string? p_57)(string->path p_57) p_57))))" "(define-values" "(1/load)" "(lambda(s_0)" @@ -45204,9 +45645,9 @@ static const char *startup_source = "(call-with-current-load-relative-directory s_157(lambda()((current-load-extension) s_157 #f)))))))))" "(define-values" "(call-with-current-load-relative-directory)" -"(lambda(p_46 thunk_4)" +"(lambda(p_50 thunk_4)" "(begin" -"(let-values(((base_2 name_3 dir?_2)(split-path p_46)))" +"(let-values(((base_2 name_3 dir?_2)(split-path p_50)))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -45236,11 +45677,11 @@ static const char *startup_source = "(let-values(((sp_0)(find-system-path 'exec-file)))" "(let-values(((exe_0)(find-executable-path sp_0 #f)))" "(let-values(((start_43)" -"(let-values(((or-part_28)(1/string->number start_42)))" -"(if or-part_28 or-part_28 0))))" +"(let-values(((or-part_34)(1/string->number start_42)))" +"(if or-part_34 or-part_34 0))))" "(let-values(((end_32)" -"(let-values(((or-part_291)(1/string->number end_31)))" -"(if or-part_291 or-part_291 0))))" +"(let-values(((or-part_297)(1/string->number end_31)))" +"(if or-part_297 or-part_297 0))))" "(let-values(((exe4_0) exe_0)" "((temp5_6)" "(lambda()" @@ -45250,7 +45691,7 @@ static const char *startup_source = "(file-position(current-input-port) start_43)" "(read-bytes(max 0(- end_32 start_43))))))))" "(with-input-from-file45.1 #f #f exe4_0 temp5_6)))))))))" -"(let-values(((p_55)(open-input-bytes s_170)))" +"(let-values(((p_58)(open-input-bytes s_170)))" "((letrec-values(((loop_2)" "(lambda()" "(begin" @@ -45268,7 +45709,7 @@ static const char *startup_source = " #t" " read-on-demand-source" " #t)" -"(let-values()(1/read p_55)))))" +"(let-values()(1/read p_58)))))" "(if(eof-object? e_73)" "(void)" "(let-values()" @@ -45305,8 +45746,8 @@ static const char *startup_source = "(let-values(((base_18 name_65 dir?_3)(split-path exec_0)))" "(simplify-path(path->complete-path collects-path_0 base_18)))))" "(let-values()" -"(let-values(((p_56)(find-executable-path(find-system-path 'exec-file) collects-path_0 #t)))" -"(if p_56(simplify-path p_56) #f))))))))" +"(let-values(((p_59)(find-executable-path(find-system-path 'exec-file) collects-path_0 #t)))" +"(if p_59(simplify-path p_59) #f))))))))" "(define-values(relative-path-string?)(lambda(s_0)(begin(if(path-string? s_0)(relative-path? s_0) #f))))" "(define-values" "(check-collection)" @@ -45323,7 +45764,7 @@ static const char *startup_source = "(check-fail)" "(lambda(who_24 fail_2)" "(begin" -"(if((lambda(p_47)(if(procedure? p_47)(procedure-arity-includes? p_47 1) #f)) fail_2)" +"(if((lambda(p_51)(if(procedure? p_51)(procedure-arity-includes? p_51 1) #f)) fail_2)" "(void)" " (let-values () (raise-argument-error who_24 \"(procedure-arity-includes/c 1)\" fail_2))))))" "(define-values" @@ -45356,11 +45797,11 @@ static const char *startup_source = "(get-config-table)" "(lambda(d_34)" "(begin" -" (let-values (((p_57) (if d_34 (build-path d_34 \"config.rktd\") #f)))" -"(let-values(((or-part_287)" -"(if p_57" -"(if(file-exists? p_57)" -"(let-values(((p9_0) p_57)" +" (let-values (((p_60) (if d_34 (build-path d_34 \"config.rktd\") #f)))" +"(let-values(((or-part_293)" +"(if p_60" +"(if(file-exists? p_60)" +"(let-values(((p9_0) p_60)" "((temp10_3)" "(lambda()" "(begin" @@ -45370,7 +45811,7 @@ static const char *startup_source = "(with-input-from-file45.1 #f #f p9_0 temp10_3))" " #f)" " #f)))" -"(if or-part_287 or-part_287 '#hash()))))))" +"(if or-part_293 or-part_293 '#hash()))))))" "(define-values" "(get-installation-name)" "(lambda(config-table_0)(begin(hash-ref config-table_0 'installation-name(version)))))" @@ -45385,30 +45826,30 @@ static const char *startup_source = "(if(path? p_1)(let-values()(collects-relative-path->complete-path p_1))(let-values() p_1)))))))" "(define-values" "(collects-relative-path->complete-path)" -"(lambda(p_58)" +"(lambda(p_61)" "(begin" -"(if(complete-path? p_58)" -"(let-values() p_58)" +"(if(complete-path? p_61)" +"(let-values() p_61)" "(let-values()" "(path->complete-path" -" p_58" -"(let-values(((or-part_160)(find-main-collects)))(if or-part_160 or-part_160(current-directory)))))))))" +" p_61" +"(let-values(((or-part_166)(find-main-collects)))(if or-part_166 or-part_166(current-directory)))))))))" "(define-values" "(add-config-search)" -"(lambda(ht_146 key_83 orig-l_9)" +"(lambda(ht_148 key_83 orig-l_9)" "(begin" -"(let-values(((l_66)(hash-ref ht_146 key_83 #f)))" +"(let-values(((l_66)(hash-ref ht_148 key_83 #f)))" "(if l_66" -"((letrec-values(((loop_99)" +"((letrec-values(((loop_102)" "(lambda(l_67)" "(begin" " 'loop" "(if(null? l_67)" "(let-values() null)" "(if(not(car l_67))" -"(let-values()(append orig-l_9(loop_99(cdr l_67))))" -"(let-values()(cons(coerce-to-path(car l_67))(loop_99(cdr l_67))))))))))" -" loop_99)" +"(let-values()(append orig-l_9(loop_102(cdr l_67))))" +"(let-values()(cons(coerce-to-path(car l_67))(loop_102(cdr l_67))))))))))" +" loop_102)" " l_66)" " orig-l_9)))))" "(define-values" @@ -45416,22 +45857,22 @@ static const char *startup_source = "(lambda()" "(begin" " 'find-library-collection-links" -"(let-values(((ht_147)(get-config-table(find-main-config))))" +"(let-values(((ht_149)(get-config-table(find-main-config))))" "(let-values(((lf_0)" "(coerce-to-path" -"(let-values(((or-part_70)(hash-ref ht_147 'links-file #f)))" -"(if or-part_70" -" or-part_70" +"(let-values(((or-part_76)(hash-ref ht_149 'links-file #f)))" +"(if or-part_76" +" or-part_76" "(build-path" -"(let-values(((or-part_71)(hash-ref ht_147 'share-dir #f)))" -" (if or-part_71 or-part_71 (build-path 'up \"share\")))" +"(let-values(((or-part_77)(hash-ref ht_149 'share-dir #f)))" +" (if or-part_77 or-part_77 (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_147) \"links.rktd\"))" +" (list (build-path (find-system-path 'addon-dir) (get-installation-name ht_149) \"links.rktd\"))" " null)" -"(if(1/use-collection-link-paths)(add-config-search ht_147 'links-search-files(list lf_0)) null)))))))" +"(if(1/use-collection-link-paths)(add-config-search ht_149 '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" @@ -45451,7 +45892,7 @@ static const char *startup_source = "(lambda()" "(let-values(((dir-evt_0)" "(if(vector-ref(system-type 'fs-change) 2)" -"((letrec-values(((loop_62)" +"((letrec-values(((loop_65)" "(lambda(path_8)" "(begin" " 'loop" @@ -45459,9 +45900,9 @@ static const char *startup_source = "(if(path? base_19)" "(if(directory-exists? base_19)" "(filesystem-change-evt base_19(lambda() #f))" -"(loop_62 base_19))" +"(loop_65 base_19))" " #f))))))" -" loop_62)" +" loop_65)" " path_7)" " #f)))" "(if(not(file-exists? path_7))" @@ -45481,27 +45922,27 @@ static const char *startup_source = "(begin" "(let-values(((path11_0) path_9)" "((temp12_3)" -"(lambda(p_59)" +"(lambda(p_62)" "(begin" " 'temp12" -"(let-values(((bstr_1)(read-bytes 8192 p_59)))" +"(let-values(((bstr_1)(read-bytes 8192 p_62)))" "(if(if(bytes? bstr_1)(>=(bytes-length bstr_1) 8192) #f)" "(apply" " bytes-append" "(cons" " bstr_1" -"((letrec-values(((loop_100)" +"((letrec-values(((loop_103)" "(lambda()" "(begin" " 'loop" -"(let-values(((bstr_2)(read-bytes 8192 p_59)))" -"(if(eof-object? bstr_2) null(cons bstr_2(loop_100))))))))" -" loop_100))))" +"(let-values(((bstr_2)(read-bytes 8192 p_62)))" +"(if(eof-object? bstr_2) null(cons bstr_2(loop_103))))))))" +" loop_103))))" " bstr_1))))))" "(call-with-input-file*61.1 #f #f path11_0 temp12_3)))))" "(define-values" "(no-file-stamp?)" -"(lambda(a_64)(begin(let-values(((or-part_53)(not a_64)))(if or-part_53 or-part_53(not(car a_64)))))))" +"(lambda(a_70)(begin(let-values(((or-part_59)(not a_70)))(if or-part_59 or-part_59(not(car a_70)))))))" "(define-values" "(get-linked-collections)" "(lambda(links-path_0)" @@ -45546,62 +45987,62 @@ static const char *startup_source = "(lambda()" "(call-with-default-reading-parameterization" "(lambda()" -"(let-values(((v_131)" +"(let-values(((v_133)" "(if(no-file-stamp? ts_1)" " null" "(let-values(((links-path13_0) links-path_0)" "((temp14_5)" -"(lambda(p_60)" +"(lambda(p_63)" "(begin" " 'temp14" "(begin0" -"(1/read p_60)" -"(if(eof-object?(1/read p_60))" +"(1/read p_63)" +"(if(eof-object?(1/read p_63))" "(void)" "(let-values()" " (error \"expected a single S-expression\"))))))))" "(call-with-input-file*61.1 #f #f links-path13_0 temp14_5)))))" "(let-values((()" "(begin" -"(if(if(list? v_131)" +"(if(if(list? v_133)" "(andmap2" -"(lambda(p_61)" -"(if(list? p_61)" -"(if(let-values(((or-part_64)(= 2(length p_61))))" -"(if or-part_64 or-part_64(= 3(length p_61))))" -"(if(let-values(((or-part_296)(string?(car p_61))))" -"(if or-part_296" -" or-part_296" -"(let-values(((or-part_262)" -"(eq? 'root(car p_61))))" -"(if or-part_262" -" or-part_262" -"(eq? 'static-root(car p_61))))))" -"(if(path-string?(cadr p_61))" -"(let-values(((or-part_65)(null?(cddr p_61))))" -"(if or-part_65 or-part_65(regexp?(caddr p_61))))" +"(lambda(p_64)" +"(if(list? p_64)" +"(if(let-values(((or-part_70)(= 2(length p_64))))" +"(if or-part_70 or-part_70(= 3(length p_64))))" +"(if(let-values(((or-part_302)(string?(car p_64))))" +"(if or-part_302" +" or-part_302" +"(let-values(((or-part_268)" +"(eq? 'root(car p_64))))" +"(if or-part_268" +" or-part_268" +"(eq? 'static-root(car p_64))))))" +"(if(path-string?(cadr p_64))" +"(let-values(((or-part_71)(null?(cddr p_64))))" +"(if or-part_71 or-part_71(regexp?(caddr p_64))))" " #f)" " #f)" " #f)" " #f))" -" v_131)" +" v_133)" " #f)" "(void)" " (let-values () (error \"ill-formed content\")))" "(values))))" -"(let-values(((ht_148)(make-hasheq)))" +"(let-values(((ht_150)(make-hasheq)))" "(let-values(((dir_0)" "(let-values(((base_20 name_42 dir?_5)(split-path links-path_0)))" " base_20)))" "(begin" "(for-each2" -"(lambda(p_62)" -"(if(let-values(((or-part_66)(null?(cddr p_62))))" -"(if or-part_66 or-part_66(regexp-match?(caddr p_62)(version))))" +"(lambda(p_65)" +"(if(let-values(((or-part_72)(null?(cddr p_65))))" +"(if or-part_72 or-part_72(regexp-match?(caddr p_65)(version))))" "(let-values()" "(let-values(((dir_1)" -"(simplify-path(path->complete-path(cadr p_62) dir_0))))" -"(if(eq?(car p_62) 'static-root)" +"(simplify-path(path->complete-path(cadr p_65) dir_0))))" +"(if(eq?(car p_65) 'static-root)" "(let-values()" "(for-each2" "(lambda(sub_1)" @@ -45609,34 +46050,34 @@ static const char *startup_source = "(let-values()" "(let-values(((k_36)(string->symbol(path->string sub_1))))" "(hash-set!" -" ht_148" +" ht_150" " k_36" -"(cons dir_1(hash-ref ht_148 k_36 null)))))" +"(cons dir_1(hash-ref ht_150 k_36 null)))))" "(void)))" "(directory-list dir_1)))" -"(if(eq?(car p_62) 'root)" +"(if(eq?(car p_65) 'root)" "(let-values()" "(begin" -"(if(hash-ref ht_148 #f #f)" +"(if(hash-ref ht_150 #f #f)" "(void)" -"(let-values()(hash-set! ht_148 #f null)))" +"(let-values()(hash-set! ht_150 #f null)))" "(hash-for-each" -" ht_148" -"(lambda(k_37 v_194)" -"(hash-set! ht_148 k_37(cons dir_1 v_194))))))" +" ht_150" +"(lambda(k_37 v_196)" +"(hash-set! ht_150 k_37(cons dir_1 v_196))))))" "(let-values()" -"(let-values(((s_16)(string->symbol(car p_62))))" +"(let-values(((s_16)(string->symbol(car p_65))))" "(hash-set!" -" ht_148" +" ht_150" " s_16" -"(cons(box dir_1)(hash-ref ht_148 s_16 null)))))))))" +"(cons(box dir_1)(hash-ref ht_150 s_16 null)))))))))" "(void)))" -" v_131)" +" v_133)" "(hash-for-each" -" ht_148" -"(lambda(k_38 v_195)(hash-set! ht_148 k_38(reverse$1 v_195))))" -"(hash-set! links-cache links-path_0(cons ts_1 ht_148))" -" ht_148))))))))))))))))))))))" +" ht_150" +"(lambda(k_38 v_197)(hash-set! ht_150 k_38(reverse$1 v_197))))" +"(hash-set! links-cache links-path_0(cons ts_1 ht_150))" +" ht_150))))))))))))))))))))))" "(define-values" "(normalize-collection-reference)" "(lambda(collection_2 collection-path_2)" @@ -45664,10 +46105,10 @@ static const char *startup_source = "(let-values(((collection_3 collection-path_3)" "(normalize-collection-reference collection-in_0 collection-path-in_0)))" "(let-values(((all-paths_0)" -"(let-values(((sym_88)" +"(let-values(((sym_89)" "(string->symbol" "(if(path? collection_3)(path->string collection_3) collection_3))))" -"((letrec-values(((loop_101)" +"((letrec-values(((loop_104)" "(lambda(l_79)" "(begin" " 'loop" @@ -45675,30 +46116,30 @@ static const char *startup_source = "(let-values() null)" "(if(not(car l_79))" "(let-values()" -"(append(1/current-library-collection-paths)(loop_101(cdr l_79))))" +"(append(1/current-library-collection-paths)(loop_104(cdr l_79))))" "(if(hash?(car l_79))" "(let-values()" "(append" -"(map2 box(hash-ref(car l_79) sym_88 null))" +"(map2 box(hash-ref(car l_79) sym_89 null))" "(hash-ref(car l_79) #f null)" -"(loop_101(cdr l_79))))" +"(loop_104(cdr l_79))))" "(let-values()" -"(let-values(((ht_149)(get-linked-collections(car l_79))))" +"(let-values(((ht_151)(get-linked-collections(car l_79))))" "(append" -"(hash-ref ht_149 sym_88 null)" -"(hash-ref ht_149 #f null)" -"(loop_101(cdr l_79))))))))))))" -" loop_101)" +"(hash-ref ht_151 sym_89 null)" +"(hash-ref ht_151 #f null)" +"(loop_104(cdr l_79))))))))))))" +" loop_104)" "(1/current-library-collection-links)))))" -"(let-values(((done_1)(lambda(p_11)(begin 'done(if file-name_1(build-path p_11 file-name_1) p_11)))))" +"(let-values(((done_1)(lambda(p_15)(begin 'done(if file-name_1(build-path p_15 file-name_1) p_15)))))" "(let-values(((*build-path-rep_0)" -"(lambda(p_25 c_53)" -"(begin '*build-path-rep(if(path? p_25)(build-path p_25 c_53)(unbox p_25))))))" +"(lambda(p_29 c_53)" +"(begin '*build-path-rep(if(path? p_29)(build-path p_29 c_53)(unbox p_29))))))" "(let-values(((*directory-exists?_0)" -"(lambda(orig_0 p_63)" -"(begin '*directory-exists?(if(path? orig_0)(directory-exists? p_63) #t)))))" +"(lambda(orig_0 p_66)" +"(begin '*directory-exists?(if(path? orig_0)(directory-exists? p_66) #t)))))" "(let-values(((to-string_0)" -"(lambda(p_64)(begin 'to-string(if(path? p_64)(path->string p_64) p_64)))))" +"(lambda(p_67)(begin 'to-string(if(path? p_67)(path->string p_67) p_67)))))" "((letrec-values(((cloop_0)" "(lambda(paths_1 found-col_0)" "(begin" @@ -45711,7 +46152,7 @@ static const char *startup_source = " \"\"" "(apply" " string-append" -"((letrec-values(((loop_48)" +"((letrec-values(((loop_51)" "(lambda(cp_0)" "(begin" " 'loop" @@ -45720,8 +46161,8 @@ static const char *startup_source = "(list*" "(to-string_0(car cp_0))" " \"/\"" -"(loop_48(cdr cp_0))))))))" -" loop_48)" +"(loop_51(cdr cp_0))))))))" +" loop_51)" " collection-path_3)))))" "(letrec-values(((filter_1)" "(lambda(f_37 l_28)" @@ -45741,7 +46182,7 @@ static const char *startup_source = "(apply" " string-append" "(map2" -" (lambda (p_26) (format \"\\n ~a ~a\" \" \" p_26))" +" (lambda (p_30) (format \"\\n ~a ~a\" \" \" p_30))" "(let-values(((len_34)(length all-paths_0))" "((clen_0)" "(length(1/current-library-collection-paths))))" @@ -45760,7 +46201,7 @@ static const char *startup_source = "(apply" " string-append" "(map2" -" (lambda (p_65) (format \"\\n ~a\" (unbox p_65)))" +" (lambda (p_68) (format \"\\n ~a\" (unbox p_68)))" "(filter_1 box? all-paths_0))))" " \"\"))))))" "(let-values(((dir_2)(*build-path-rep_0(car paths_1) collection_3)))" @@ -45768,13 +46209,13 @@ static const char *startup_source = "(let-values(((cpath_0)(apply build-path dir_2 collection-path_3)))" "(if(if(null? collection-path_3) #t(directory-exists? cpath_0))" "(if file-name_1" -"(if(let-values(((or-part_146)" +"(if(let-values(((or-part_144)" "(file-exists?/maybe-compiled" " cpath_0" " file-name_1" " check-compiled?_1)))" -"(if or-part_146" -" or-part_146" +"(if or-part_144" +" or-part_144" "(let-values(((alt-file-name_0)" "(let-values(((file-name_2)" "(if(path? file-name_1)" @@ -45805,8 +46246,8 @@ static const char *startup_source = "(done_1 cpath_0)" "(cloop_0" "(cdr paths_1)" -"(let-values(((or-part_218) found-col_0))" -"(if or-part_218 or-part_218 cpath_0))))" +"(let-values(((or-part_225) found-col_0))" +"(if or-part_225 or-part_225 cpath_0))))" "(done_1 cpath_0))" "(cloop_0(cdr paths_1) found-col_0)))" "(cloop_0(cdr paths_1) found-col_0))))))))" @@ -45817,9 +46258,9 @@ static const char *startup_source = "(file-exists?/maybe-compiled)" "(lambda(dir_3 path_10 check-compiled?_2)" "(begin" -"(let-values(((or-part_98)(file-exists?(build-path dir_3 path_10))))" -"(if or-part_98" -" or-part_98" +"(let-values(((or-part_104)(file-exists?(build-path dir_3 path_10))))" +"(if or-part_104" +" or-part_104" "(if check-compiled?_2" " (let-values (((try-path_0) (path-add-extension path_10 #\".zo\"))" "((modes_0)(1/use-compiled-file-paths))" @@ -45829,12 +46270,12 @@ static const char *startup_source = "(ormap2" "(lambda(mode_15)" "(file-exists?" -"(let-values(((p_66)(build-path dir_3 mode_15 try-path_0)))" +"(let-values(((p_69)(build-path dir_3 mode_15 try-path_0)))" "(if(eq? d_35 'same)" -"(let-values() p_66)" +"(let-values() p_69)" "(if(relative-path? d_35)" -"(let-values()(build-path p_66 d_35))" -"(let-values()(reroot-path p_66 d_35)))))))" +"(let-values()(build-path p_69 d_35))" +"(let-values()(reroot-path p_69 d_35)))))))" " modes_0))" " roots_0))" " #f))))))" @@ -45849,7 +46290,7 @@ static const char *startup_source = "(let-values()" "(let-values(((user-too?_0)(1/use-user-specific-search-paths))" "((cons-if_0)" -"(lambda(f_38 r_46)(begin 'cons-if(if f_38(cons f_38 r_46) r_46))))" +"(lambda(f_38 r_45)(begin 'cons-if(if f_38(cons f_38 r_45) r_45))))" "((config-table_1)(get-config-table(find-main-config))))" "(path-list-string->path-list" "(if user-too?_0" @@ -45869,23 +46310,23 @@ static const char *startup_source = "(get-installation-name config-table_1)" " \"collects\")" " #f)" -"((letrec-values(((loop_83)" +"((letrec-values(((loop_86)" "(lambda(l_80)" "(begin" " 'loop" "(if(null? l_80)" " null" "(let-values(((collects-path_1)(car l_80)))" -"(let-values(((v_196)" +"(let-values(((v_198)" "(exe-relative-path->complete-path" " collects-path_1)))" -"(if v_196" +"(if v_198" "(cons" "(simplify-path" -"(path->complete-path v_196(current-directory)))" -"(loop_83(cdr l_80)))" -"(loop_83(cdr l_80))))))))))" -" loop_83)" +"(path->complete-path v_198(current-directory)))" +"(loop_86(cdr l_80)))" +"(loop_86(cdr l_80))))))))))" +" loop_86)" "(append" " extra-collects-dirs_0" "(list(find-system-path 'collects-dir))" @@ -45900,12 +46341,12 @@ static const char *startup_source = "(1/current-readtable)" "(make-parameter" " #f" -"(lambda(v_26)" +"(lambda(v_29)" "(begin" -"(if(let-values(((or-part_0)(not v_26)))(if or-part_0 or-part_0(prop:readtable? v_26)))" +"(if(let-values(((or-part_0)(not v_29)))(if or-part_0 or-part_0(prop:readtable? v_29)))" "(void)" -" (let-values () (raise-argument-error 'current-readtable \"(or/c readtable? #f)\" v_26)))" -" v_26))))" +" (let-values () (raise-argument-error 'current-readtable \"(or/c readtable? #f)\" v_29)))" +" v_29))))" "(define-values" "(struct:read-config/outer" " read-config/outer1.1" @@ -45917,7 +46358,7 @@ static const char *startup_source = " read-config/outer-pos" " read-config/outer-indentations" " read-config/outer-keep-comment?)" -"(let-values(((struct:_39 make-_39 ?_39 -ref_39 -set!_39)" +"(let-values(((struct:_33 make-_33 ?_33 -ref_33 -set!_33)" "(let-values()" "(let-values()" "(make-struct-type" @@ -45933,16 +46374,16 @@ static const char *startup_source = " #f" " 'read-config/outer)))))" "(values" -" struct:_39" -" make-_39" -" ?_39" -"(make-struct-field-accessor -ref_39 0 'inner)" -"(make-struct-field-accessor -ref_39 1 'wrap)" -"(make-struct-field-accessor -ref_39 2 'line)" -"(make-struct-field-accessor -ref_39 3 'col)" -"(make-struct-field-accessor -ref_39 4 'pos)" -"(make-struct-field-accessor -ref_39 5 'indentations)" -"(make-struct-field-accessor -ref_39 6 'keep-comment?))))" +" 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?))))" "(define-values" "(struct:read-config/inner" " read-config/inner2.1" @@ -46031,44 +46472,44 @@ static const char *startup_source = " pos_104" " indentations_0" " keep-comment?_0))))" -"(define-values(read-config-wrap)(lambda(v_183)(begin(read-config/outer-wrap v_183))))" -"(define-values(read-config-line)(lambda(v_197)(begin(read-config/outer-line v_197))))" -"(define-values(read-config-col)(lambda(v_198)(begin(read-config/outer-col v_198))))" -"(define-values(read-config-pos)(lambda(v_199)(begin(read-config/outer-pos v_199))))" -"(define-values(read-config-indentations)(lambda(v_200)(begin(read-config/outer-indentations v_200))))" -"(define-values(read-config-keep-comment?)(lambda(v_201)(begin(read-config/outer-keep-comment? v_201))))" +"(define-values(read-config-wrap)(lambda(v_184)(begin(read-config/outer-wrap v_184))))" +"(define-values(read-config-line)(lambda(v_199)(begin(read-config/outer-line v_199))))" +"(define-values(read-config-col)(lambda(v_200)(begin(read-config/outer-col v_200))))" +"(define-values(read-config-pos)(lambda(v_201)(begin(read-config/outer-pos v_201))))" +"(define-values(read-config-indentations)(lambda(v_202)(begin(read-config/outer-indentations v_202))))" +"(define-values(read-config-keep-comment?)(lambda(v_203)(begin(read-config/outer-keep-comment? v_203))))" "(define-values" "(read-config-readtable)" -"(lambda(v_202)(begin(read-config/inner-readtable(read-config/outer-inner v_202)))))" +"(lambda(v_204)(begin(read-config/inner-readtable(read-config/outer-inner v_204)))))" "(define-values" "(read-config-next-readtable)" -"(lambda(v_92)(begin(read-config/inner-next-readtable(read-config/outer-inner v_92)))))" +"(lambda(v_189)(begin(read-config/inner-next-readtable(read-config/outer-inner v_189)))))" "(define-values" "(read-config-for-syntax?)" -"(lambda(v_203)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_203)))))" -"(define-values(read-config-source)(lambda(v_71)(begin(read-config/inner-source(read-config/outer-inner v_71)))))" +"(lambda(v_94)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_94)))))" +"(define-values(read-config-source)(lambda(v_74)(begin(read-config/inner-source(read-config/outer-inner v_74)))))" "(define-values" "(read-config-read-compiled)" -"(lambda(v_204)(begin(read-config/inner-read-compiled(read-config/outer-inner v_204)))))" +"(lambda(v_205)(begin(read-config/inner-read-compiled(read-config/outer-inner v_205)))))" "(define-values" "(read-config-dynamic-require)" -"(lambda(v_205)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_205)))))" +"(lambda(v_206)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_206)))))" "(define-values" "(read-config-module-declared?)" -"(lambda(v_38)(begin(read-config/inner-module-declared?(read-config/outer-inner v_38)))))" +"(lambda(v_41)(begin(read-config/inner-module-declared?(read-config/outer-inner v_41)))))" "(define-values" "(read-config-coerce)" -"(lambda(v_206)(begin(read-config/inner-coerce(read-config/outer-inner v_206)))))" +"(lambda(v_207)(begin(read-config/inner-coerce(read-config/outer-inner v_207)))))" "(define-values" "(read-config-coerce-key)" -"(lambda(v_207)(begin(read-config/inner-coerce-key(read-config/outer-inner v_207)))))" +"(lambda(v_208)(begin(read-config/inner-coerce-key(read-config/outer-inner v_208)))))" "(define-values" "(read-config-parameter-override)" -"(lambda(v_196)(begin(read-config/inner-parameter-override(read-config/outer-inner v_196)))))" +"(lambda(v_198)(begin(read-config/inner-parameter-override(read-config/outer-inner v_198)))))" "(define-values" "(read-config-parameter-cache)" -"(lambda(v_208)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_208)))))" -"(define-values(read-config-st)(lambda(v_209)(begin(read-config/inner-st(read-config/outer-inner v_209)))))" +"(lambda(v_209)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_209)))))" +"(define-values(read-config-st)(lambda(v_210)(begin(read-config/inner-st(read-config/outer-inner v_210)))))" "(define-values" "(struct:read-config-state" " read-config-state3.1" @@ -46145,21 +46586,21 @@ static const char *startup_source = " for-syntax?_1" " source_2" " wrap_4" -"(let-values(((or-part_92) read-compiled_1))" -" (if or-part_92 or-part_92 (lambda (in_0) (error 'read \"no `read-compiled` provided\"))))" -"(let-values(((or-part_94) dynamic-require_1))" -"(if or-part_94" -" or-part_94" -"(lambda(mod-path_25 sym_89 failure-k_0)" +"(let-values(((or-part_98) read-compiled_1))" +" (if or-part_98 or-part_98 (lambda (in_0) (error 'read \"no `read-compiled` provided\"))))" +"(let-values(((or-part_100) dynamic-require_1))" +"(if or-part_100" +" or-part_100" +"(lambda(mod-path_25 sym_90 failure-k_0)" " (error 'read \"no `dynamic-require` provided\"))))" -"(let-values(((or-part_221) module-declared?_1))" -"(if or-part_221" -" or-part_221" +"(let-values(((or-part_228) module-declared?_1))" +"(if or-part_228" +" or-part_228" " (lambda (mod-path_26) (error 'read \"no `module-declare?` provided\"))))" -"(let-values(((or-part_297) coerce_1))" -"(if or-part_297 or-part_297(lambda(for-syntax?_2 v_111 srcloc_8) v_111)))" -"(let-values(((or-part_298) coerce-key_1))" -"(if or-part_298 or-part_298(lambda(for-syntax?_3 v_115) v_115)))" +"(let-values(((or-part_303) coerce_1))" +"(if or-part_303 or-part_303(lambda(for-syntax?_2 v_112 srcloc_8) v_112)))" +"(let-values(((or-part_304) coerce-key_1))" +"(if or-part_304 or-part_304(lambda(for-syntax?_3 v_116) v_116)))" " #f" " #f" " #f" @@ -46189,14 +46630,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_210) config_0))" -"(let-values(((the-struct_78) v_210))" -"(if(read-config/outer? the-struct_78)" +"(let-values(((v_211) config_0))" +"(let-values(((the-struct_80) v_211))" +"(if(read-config/outer? the-struct_80)" "(let-values(((wrap48_0) wrap_5)" "((keep-comment?49_0) keep-comment?_2)" -"((inner50_0)" -"(let-values(((the-struct_79)(read-config/outer-inner v_210)))" -"(if(read-config/inner? the-struct_79)" +"((inner50_1)" +"(let-values(((the-struct_81)(read-config/outer-inner v_211)))" +"(if(read-config/inner? the-struct_81)" "(let-values(((for-syntax?51_0) for-syntax?_4)" "((readtable52_0) readtable_2)" "((next-readtable53_0) next-readtable_2)" @@ -46208,25 +46649,25 @@ static const char *startup_source = " readtable52_0" " next-readtable53_0" " for-syntax?51_0" -"(read-config/inner-source the-struct_79)" -"(read-config/inner-read-compiled the-struct_79)" -"(read-config/inner-dynamic-require the-struct_79)" -"(read-config/inner-module-declared? the-struct_79)" -"(read-config/inner-coerce the-struct_79)" -"(read-config/inner-coerce-key the-struct_79)" -"(read-config/inner-parameter-override the-struct_79)" -"(read-config/inner-parameter-cache the-struct_79)" +"(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)" " st54_0))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_79)))))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_81)))))" "(read-config/outer1.1" -" inner50_0" +" inner50_1" " wrap48_0" -"(read-config/outer-line the-struct_78)" -"(read-config/outer-col the-struct_78)" -"(read-config/outer-pos the-struct_78)" -"(read-config/outer-indentations the-struct_78)" +"(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)" " keep-comment?49_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_78)))))))))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_80)))))))))))))))" "(define-values" "(port+config->srcloc)" "(lambda(in_1 config_1)" @@ -46242,56 +46683,56 @@ static const char *startup_source = "(reading-at)" "(lambda(config_2 line_2 col_1 pos_105)" "(begin" -"(let-values(((v_211) config_2))" -"(let-values(((the-struct_80) v_211))" -"(if(read-config/outer? the-struct_80)" +"(let-values(((v_212) config_2))" +"(let-values(((the-struct_82) v_212))" +"(if(read-config/outer? the-struct_82)" "(let-values(((line55_0) line_2)" "((col56_0) col_1)" "((pos57_0) pos_105)" -"((inner58_1)(read-config/outer-inner v_211)))" +"((inner58_1)(read-config/outer-inner v_212)))" "(read-config/outer1.1" " inner58_1" -"(read-config/outer-wrap the-struct_80)" +"(read-config/outer-wrap the-struct_82)" " line55_0" " col56_0" " pos57_0" -"(read-config/outer-indentations the-struct_80)" -"(read-config/outer-keep-comment? the-struct_80)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_80)))))))" +"(read-config/outer-indentations the-struct_82)" +"(read-config/outer-keep-comment? the-struct_82)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_82)))))))" "(define-values" "(disable-wrapping)" "(lambda(config_3)" "(begin" -"(let-values(((v_212) config_3))" -"(let-values(((the-struct_81) v_212))" -"(if(read-config/outer? the-struct_81)" -"(let-values(((wrap59_0) #f)((inner60_0)(read-config/outer-inner v_212)))" +"(let-values(((v_213) config_3))" +"(let-values(((the-struct_83) v_213))" +"(if(read-config/outer? the-struct_83)" +"(let-values(((wrap59_0) #f)((inner60_0)(read-config/outer-inner v_213)))" "(read-config/outer1.1" " inner60_0" " wrap59_0" -"(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)))))))" +"(read-config/outer-line the-struct_83)" +"(read-config/outer-col the-struct_83)" +"(read-config/outer-pos the-struct_83)" +"(read-config/outer-indentations the-struct_83)" +"(read-config/outer-keep-comment? the-struct_83)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_83)))))))" "(define-values" "(keep-comment)" "(lambda(config_4)" "(begin" -"(let-values(((v_144) config_4))" -"(let-values(((the-struct_82) v_144))" -"(if(read-config/outer? the-struct_82)" -"(let-values(((keep-comment?61_0) #t)((inner62_0)(read-config/outer-inner v_144)))" +"(let-values(((v_146) config_4))" +"(let-values(((the-struct_84) v_146))" +"(if(read-config/outer? the-struct_84)" +"(let-values(((keep-comment?61_0) #t)((inner62_0)(read-config/outer-inner v_146)))" "(read-config/outer1.1" " inner62_0" -"(read-config/outer-wrap the-struct_82)" -"(read-config/outer-line the-struct_82)" -"(read-config/outer-col the-struct_82)" -"(read-config/outer-pos the-struct_82)" -"(read-config/outer-indentations the-struct_82)" +"(read-config/outer-wrap the-struct_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)" " keep-comment?61_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_82)))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_84)))))))" "(define-values" "(discard-comment)" "(lambda(config_5)" @@ -46299,19 +46740,19 @@ static const char *startup_source = "(if(not(read-config-keep-comment? config_5))" "(let-values() config_5)" "(let-values()" -"(let-values(((v_213) config_5))" -"(let-values(((the-struct_83) v_213))" -"(if(read-config/outer? the-struct_83)" -"(let-values(((keep-comment?63_0) #f)((inner64_0)(read-config/outer-inner v_213)))" +"(let-values(((v_214) config_5))" +"(let-values(((the-struct_85) v_214))" +"(if(read-config/outer? the-struct_85)" +"(let-values(((keep-comment?63_0) #f)((inner64_0)(read-config/outer-inner v_214)))" "(read-config/outer1.1" " inner64_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_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)" " keep-comment?63_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_83)))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_85)))))))))" "(define-values" "(next-readtable)" "(lambda(config_6)" @@ -46319,36 +46760,36 @@ static const char *startup_source = "(if(eq?(read-config-readtable config_6)(read-config-next-readtable config_6))" "(let-values() config_6)" "(let-values()" -"(let-values(((v_214) config_6))" -"(let-values(((the-struct_84) v_214))" -"(if(read-config/outer? the-struct_84)" +"(let-values(((v_215) config_6))" +"(let-values(((the-struct_86) v_215))" +"(if(read-config/outer? the-struct_86)" "(let-values(((inner65_0)" -"(let-values(((the-struct_85)(read-config/outer-inner v_214)))" -"(if(read-config/inner? the-struct_85)" +"(let-values(((the-struct_87)(read-config/outer-inner v_215)))" +"(if(read-config/inner? the-struct_87)" "(let-values(((readtable66_0)(read-config-next-readtable config_6)))" "(read-config/inner2.1" " readtable66_0" -"(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/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)" +"(read-config/inner-parameter-override the-struct_87)" +"(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" " inner65_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-keep-comment? the-struct_84)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_84)))))))))" +"(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" "(coerce)" "(lambda(val_74 in_2 config_7)" @@ -46358,30 +46799,30 @@ static const char *startup_source = " for-syntax?_5" " val_74" "(if for-syntax?_5(port+config->srcloc in_2 config_7) #f))))))" -"(define-values(default-reader-guard$1)(lambda(v_215)(begin 'default-reader-guard v_215)))" +"(define-values(default-reader-guard$1)(lambda(v_216)(begin 'default-reader-guard v_216)))" "(define-values" "(1/current-reader-guard)" "(make-parameter" " default-reader-guard$1" -"(lambda(v_216)" +"(lambda(v_217)" "(begin" -"(if(if(procedure? v_216)(procedure-arity-includes? v_216 1) #f)" +"(if(if(procedure? v_217)(procedure-arity-includes? v_217 1) #f)" "(void)" -" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_216)))" -" v_216))))" +" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_217)))" +" v_217))))" "(define-values(1/read-square-bracket-as-paren)(make-parameter #t(lambda(v_1)(if v_1 #t #f))))" -"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_217)(if v_217 #t #f))))" -"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_218)(if v_218 #t #f))))" -"(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_62)(if v_62 #t #f))))" -"(define-values(1/read-cdot)(make-parameter #f(lambda(v_29)(if v_29 #t #f))))" -"(define-values(1/read-accept-graph)(make-parameter #t(lambda(v_63)(if v_63 #t #f))))" +"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_218)(if v_218 #t #f))))" +"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_219)(if v_219 #t #f))))" +"(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_65)(if v_65 #t #f))))" +"(define-values(1/read-cdot)(make-parameter #f(lambda(v_32)(if v_32 #t #f))))" +"(define-values(1/read-accept-graph)(make-parameter #t(lambda(v_66)(if v_66 #t #f))))" "(define-values(1/read-accept-compiled)(make-parameter #f(lambda(v_2)(if v_2 #t #f))))" -"(define-values(1/read-accept-box)(make-parameter #t(lambda(v_82)(if v_82 #t #f))))" -"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_30)(if v_30 #t #f))))" -"(define-values(1/read-accept-dot)(make-parameter #t(lambda(v_75)(if v_75 #t #f))))" -"(define-values(1/read-accept-infix-dot)(make-parameter #t(lambda(v_31)(if v_31 #t #f))))" +"(define-values(1/read-accept-box)(make-parameter #t(lambda(v_85)(if v_85 #t #f))))" +"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_33)(if v_33 #t #f))))" +"(define-values(1/read-accept-dot)(make-parameter #t(lambda(v_78)(if v_78 #t #f))))" +"(define-values(1/read-accept-infix-dot)(make-parameter #t(lambda(v_34)(if v_34 #t #f))))" "(define-values(1/read-accept-quasiquote)(make-parameter #t(lambda(v_3)(if v_3 #t #f))))" -"(define-values(1/read-accept-reader)(make-parameter #f(lambda(v_32)(if v_32 #t #f))))" +"(define-values(1/read-accept-reader)(make-parameter #f(lambda(v_35)(if v_35 #t #f))))" "(define-values(1/read-accept-lang)(make-parameter #t(lambda(v_4)(if v_4 #t #f))))" "(define-values(unknown)(gensym 'unknown))" "(define-values" @@ -46389,46 +46830,46 @@ static const char *startup_source = "(lambda(param_0 config_8)" "(begin" "(let-values(((cache_4)(read-config-parameter-cache config_8)))" -"(let-values(((v_65)" +"(let-values(((v_68)" "(hash-ref(read-config-parameter-override config_8) param_0(hash-ref cache_4 param_0 unknown))))" -"(if(eq? v_65 unknown)" -"(let-values()(let-values(((v_66)(param_0)))(begin(hash-set! cache_4 param_0 v_66) v_66)))" -"(let-values() v_65)))))))" +"(if(eq? v_68 unknown)" +"(let-values()(let-values(((v_69)(param_0)))(begin(hash-set! cache_4 param_0 v_69) v_69)))" +"(let-values() v_68)))))))" "(define-values" "(override-parameter)" -"(lambda(param_1 config_9 v_28)" +"(lambda(param_1 config_9 v_31)" "(begin" -"(let-values(((v_93) config_9))" -"(let-values(((the-struct_86) v_93))" -"(if(read-config/outer? the-struct_86)" +"(let-values(((v_95) config_9))" +"(let-values(((the-struct_88) v_95))" +"(if(read-config/outer? the-struct_88)" "(let-values(((inner1_0)" -"(let-values(((the-struct_87)(read-config/outer-inner v_93)))" -"(if(read-config/inner? the-struct_87)" +"(let-values(((the-struct_89)(read-config/outer-inner v_95)))" +"(if(read-config/inner? the-struct_89)" "(let-values(((parameter-override2_0)" -"(hash-set(read-config-parameter-override config_9) param_1 v_28)))" +"(hash-set(read-config-parameter-override config_9) param_1 v_31)))" "(read-config/inner2.1" -"(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)" +"(read-config/inner-readtable the-struct_89)" +"(read-config/inner-next-readtable the-struct_89)" +"(read-config/inner-for-syntax? the-struct_89)" +"(read-config/inner-source the-struct_89)" +"(read-config/inner-read-compiled the-struct_89)" +"(read-config/inner-dynamic-require the-struct_89)" +"(read-config/inner-module-declared? the-struct_89)" +"(read-config/inner-coerce the-struct_89)" +"(read-config/inner-coerce-key the-struct_89)" " parameter-override2_0" -"(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/inner-parameter-cache the-struct_89)" +"(read-config/inner-st the-struct_89)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_89)))))" "(read-config/outer1.1" " inner1_0" -"(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)))))))" +"(read-config/outer-wrap the-struct_88)" +"(read-config/outer-line the-struct_88)" +"(read-config/outer-col the-struct_88)" +"(read-config/outer-pos the-struct_88)" +"(read-config/outer-indentations the-struct_88)" +"(read-config/outer-keep-comment? the-struct_88)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_88)))))))" "(define-values" "(force-parameters!)" "(lambda(config_10)" @@ -46506,25 +46947,25 @@ static const char *startup_source = "(make-struct-field-accessor -ref_19 3 'delimiter-ht))))" "(define-values" "(1/make-readtable)" -"(lambda(rt_0 . args_7)" +"(lambda(rt_0 . args_10)" "(begin" " 'make-readtable" "(begin" -"(if(let-values(((or-part_55)(not rt_0)))(if or-part_55 or-part_55(1/readtable? rt_0)))" +"(if(let-values(((or-part_61)(not rt_0)))(if or-part_61 or-part_61(1/readtable? rt_0)))" "(void)" " (let-values () (raise-argument-error 'make-readtable \"(or/c readtable? #f)\" rt_0)))" -"((letrec-values(((loop_102)" -"(lambda(args_8 symbol-parser_0 char-ht_0 dispatch-ht_0 delimiter-ht_0)" +"((letrec-values(((loop_105)" +"(lambda(args_11 symbol-parser_0 char-ht_0 dispatch-ht_0 delimiter-ht_0)" "(begin" " 'loop" -"(if(null? args_8)" +"(if(null? args_11)" "(let-values()(readtable1.1 symbol-parser_0 char-ht_0 dispatch-ht_0 delimiter-ht_0))" "(let-values()" -"(let-values(((key_84)(car args_8)))" +"(let-values(((key_84)(car args_11)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_168)(not key_84)))" -"(if or-part_168 or-part_168(char? key_84)))" +"(if(let-values(((or-part_175)(not key_84)))" +"(if or-part_175 or-part_175(char? key_84)))" "(void)" "(let-values()" "(raise-argument-error" @@ -46534,7 +46975,7 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(null? args_8)" +"(if(null? args_11)" "(let-values()" "(if key_84" "(let-values()" @@ -46551,25 +46992,25 @@ static const char *startup_source = " \"expected 'non-terminating-macro after #f\"))))" "(void))" "(values))))" -"(let-values(((mode_16)(cadr args_8)))" +"(let-values(((mode_16)(cadr args_11)))" "(let-values((()" "(begin" "(if key_84" "(let-values()" -"(if(let-values(((or-part_169)" +"(if(let-values(((or-part_176)" "(eq? mode_16 'terminating-macro)))" -"(if or-part_169" -" or-part_169" -"(let-values(((or-part_33)" +"(if or-part_176" +" or-part_176" +"(let-values(((or-part_39)" "(eq?" " mode_16" " 'non-terminating-macro)))" -"(if or-part_33" -" or-part_33" -"(let-values(((or-part_299)" +"(if or-part_39" +" or-part_39" +"(let-values(((or-part_305)" "(eq? mode_16 'dispatch-macro)))" -"(if or-part_299" -" or-part_299" +"(if or-part_305" +" or-part_305" "(char? mode_16)))))))" "(void)" "(let-values()" @@ -46587,7 +47028,7 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(null?(cddr args_8))" +"(if(null?(cddr args_11))" "(let-values()" "(raise-arguments-error" " 'make-readtable" @@ -46598,8 +47039,8 @@ static const char *startup_source = " mode_16))" "(void))" "(values))))" -"(let-values(((target_0)(caddr args_8)))" -"(let-values(((rest-args_0)(cdddr args_8)))" +"(let-values(((target_0)(caddr args_11)))" +"(let-values(((rest-args_0)(cdddr args_11)))" "(if(not key_84)" "(let-values()" "(begin" @@ -46612,7 +47053,7 @@ static const char *startup_source = " 'make-readtable" " \"(procedure-arity-includes/c 6)\"" " target_0)))" -"(loop_102" +"(loop_105" " rest-args_0" " target_0" " char-ht_0" @@ -46630,7 +47071,7 @@ static const char *startup_source = " 'make-readtable" " \"(procedure-arity-includes/c 6)\"" " target_0)))" -"(loop_102" +"(loop_105" " rest-args_0" " symbol-parser_0" " char-ht_0" @@ -46640,10 +47081,10 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_99)" +"(if(let-values(((or-part_105)" "(not target_0)))" -"(if or-part_99" -" or-part_99" +"(if or-part_105" +" or-part_105" "(1/readtable? target_0)))" "(void)" "(let-values()" @@ -46653,14 +47094,14 @@ static const char *startup_source = " target_0)))" "(values))))" "(let-values(((actual-target_0)" -"(let-values(((or-part_170)" +"(let-values(((or-part_177)" "(if target_0" "(hash-ref" "(readtable-char-ht target_0)" " mode_16" " #f)" " #f)))" -"(if or-part_170 or-part_170 mode_16))))" +"(if or-part_177 or-part_177 mode_16))))" "(let-values(((new-char-ht_0)" "(if actual-target_0" "(hash-set" @@ -46678,7 +47119,7 @@ static const char *startup_source = " mode_16" " mode_16)" " mode_16))))" -"(loop_102" +"(loop_105" " rest-args_0" " symbol-parser_0" " new-char-ht_0" @@ -46706,14 +47147,14 @@ static const char *startup_source = "(if(eq? mode_16 'terminating-macro)" " 'delimit" " 'no-delimit))))" -"(loop_102" +"(loop_105" " rest-args_0" " symbol-parser_0" " new-char-ht_1" " dispatch-ht_0" " new-delimiter-ht_1))))))))))))))))))))))" -" loop_102)" -" args_7" +" loop_105)" +" args_10" "(if rt_0(readtable-symbol-parser rt_0) #f)" "(if rt_0(readtable-char-ht rt_0) '#hasheqv())" "(if rt_0(readtable-dispatch-ht rt_0) '#hasheqv())" @@ -46729,7 +47170,7 @@ static const char *startup_source = "(lambda(c_55 config_11)" "(begin" "(let-values(((rt_2)(read-config-readtable config_11))((c_56) c_55))" -"(if(let-values(((or-part_23)(not rt_2)))(if or-part_23 or-part_23(not(char? c_56))))" +"(if(let-values(((or-part_29)(not rt_2)))(if or-part_29 or-part_29(not(char? c_56))))" "(let-values() c_56)" "(let-values()(*readtable-effective-char rt_2 c_56)))))))" "(define-values" @@ -46753,7 +47194,7 @@ static const char *startup_source = "(lambda(handler_0 c_59 in_3 config_14 line_3 col_2 pos_106)" "(begin" "(let-values(((for-syntax?_6)(read-config-for-syntax? config_14)))" -"(let-values(((v_88)" +"(let-values(((v_220)" "(if(not for-syntax?_6)" "(let-values()" "(with-continuation-mark" @@ -46775,7 +47216,7 @@ static const char *startup_source = " config_14)" "(let-values()" "(handler_0 c_59 in_3(read-config-source config_14) line_3 col_2 pos_106)))))))" -"(if(1/special-comment? v_88) v_88(coerce v_88 in_3 config_14)))))))" +"(if(1/special-comment? v_220) v_220(coerce v_220 in_3 config_14)))))))" "(define-values" "(1/readtable-mapping)" "(lambda(rt_5 c_60)" @@ -46793,7 +47234,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_228)" +"(let-values(((or-part_235)" "(if handler_1" "(if(char? handler_1)" "(let-values() handler_1)" @@ -46801,44 +47242,44 @@ static const char *startup_source = "(let-values() 'terminating-macro)" "(let-values() 'non-terminating-macro)))" " #f)))" -"(if or-part_228 or-part_228 c_60))" +"(if or-part_235 or-part_235 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_150)(readtable-char-ht rt_6)))" +"(let-values(((ht_152)(readtable-char-ht rt_6)))" "(append" -"(if(hash-ref ht_150 c_61 #f) null(list c_61))" +"(if(hash-ref ht_152 c_61 #f) null(list c_61))" "(reverse$1" -"(let-values(((ht_151) ht_150))" +"(let-values(((ht_153) ht_152))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_151)))" -"((letrec-values(((for-loop_256)" -"(lambda(fold-var_79 i_172)" +"(let-values()(check-in-hash ht_153)))" +"((letrec-values(((for-loop_257)" +"(lambda(fold-var_79 i_173)" "(begin" " 'for-loop" -"(if i_172" -"(let-values(((k_39 v_219)(hash-iterate-key+value ht_151 i_172)))" -"(let-values(((fold-var_266)" +"(if i_173" +"(let-values(((k_39 v_90)(hash-iterate-key+value ht_153 i_173)))" +"(let-values(((fold-var_268)" "(let-values(((fold-var_82) fold-var_79))" -"(if(eqv? v_219 c_61)" -"(let-values(((fold-var_232) fold-var_82))" +"(if(eqv? v_90 c_61)" +"(let-values(((fold-var_233) fold-var_82))" "(let-values(((fold-var_13)" "(let-values()" -"(cons(let-values() k_39) fold-var_232))))" +"(cons(let-values() k_39) fold-var_233))))" "(values fold-var_13)))" " fold-var_82))))" "(if(not #f)" -"(for-loop_256 fold-var_266(hash-iterate-next ht_151 i_172))" -" fold-var_266)))" +"(for-loop_257 fold-var_268(hash-iterate-next ht_153 i_173))" +" fold-var_268)))" " fold-var_79)))))" -" for-loop_256)" +" for-loop_257)" " null" -"(hash-iterate-first ht_151))))))))))" +"(hash-iterate-first ht_153))))))))))" "(define-values" "(struct:special special1.1 special? special-value)" "(let-values(((struct:_76 make-_76 ?_76 -ref_76 -set!_76)" @@ -46877,8 +47318,8 @@ static const char *startup_source = "(let-values(((due-to_0)(if due-to5_0 due-to2_0 '#\\x)))" "(let-values(((who_25)(if who6_0 who3_1(if(read-config-for-syntax? config_16) 'read-syntax 'read))))" "(let-values(((str_25) str9_0))" -"(let-values(((args_9) new-rest_0))" -" (let-values (((msg_0) (format \"~a: ~a\" who_25 (apply format str_25 args_9))))" +"(let-values(((args_12) new-rest_0))" +" (let-values (((msg_0) (format \"~a: ~a\" who_25 (apply format str_25 args_12))))" "(let-values(((srcloc_9)(if in_6(port+config->srcloc in_6 config_16) #f)))" "(raise" "((if(eof-object? due-to_0)" @@ -46916,8 +47357,8 @@ static const char *startup_source = " 'with-handlers-handler27" " (let-values (((temp30_2) \"~a\")" "((temp31_4)" -"(let-values(((s_465)(exn-message exn_2)))" -" (regexp-replace \"^[a-z-]*: \" s_465 \"\")))" +"(let-values(((s_466)(exn-message exn_2)))" +" (regexp-replace \"^[a-z-]*: \" s_466 \"\")))" "((temp32_2)(exn-continuation-marks exn_2)))" "(reader-error10.1 temp32_2 #t #f #f #f #f in_8 config_18 temp30_2(list temp31_4)))))))" "(let-values(((bpz_3)(continuation-mark-set-first #f break-enabled-key)))" @@ -46946,9 +47387,9 @@ static const char *startup_source = "(begin" " 'skip-loop" "(let-values(((c_36)" -"(let-values(((or-part_159) init-c_2))" -"(if or-part_159" -" or-part_159" +"(let-values(((or-part_165) init-c_2))" +"(if or-part_165" +" or-part_165" "(let-values(((in_9) in_5)((source_4) source_3))" "(read-char-or-special in_9 special1.1 source_4))))))" "(let-values(((ec_0)" @@ -46972,7 +47413,7 @@ static const char *startup_source = "(if(char=? '#\\; ec_0)" "(let-values()" "(begin" -"((letrec-values(((loop_76)" +"((letrec-values(((loop_79)" "(lambda()" "(begin" " 'loop" @@ -46983,16 +47424,16 @@ static const char *startup_source = " in_10" " special1.1" " source_5))))" -"(if(let-values(((or-part_293)" +"(if(let-values(((or-part_299)" "(eof-object? c_48)))" -"(if or-part_293" -" or-part_293" +"(if or-part_299" +" or-part_299" "(eqv?" " '#\\newline" "(effective-char c_48 config_15))))" "(void)" -"(let-values()(loop_76))))))))" -" loop_76))" +"(let-values()(loop_79))))))))" +" loop_79))" "(if(read-config-keep-comment? config_15)" "(result-special-comment)" "(skip-loop_0 #f))))" @@ -47040,8 +47481,8 @@ static const char *startup_source = "(if(eq? c_64 'special)" "(special1.1 'special)" " c_64)))))" -"(let-values(((or-part_84)(eqv? '#\\space c3_1)))" -"(if or-part_84 or-part_84(eqv? '#\\/ c3_1))))" +"(let-values(((or-part_90)(eqv? '#\\space c3_1)))" +"(if or-part_90 or-part_90(eqv? '#\\/ c3_1))))" " #f)" " #f)" "(let-values()" @@ -47066,11 +47507,11 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values((()(begin(consume-char in_5 '#\\;)(values))))" -"(let-values(((v_180)(read-one_0 #f in_5 config_15)))" +"(let-values(((v_181)(read-one_0 #f in_5 config_15)))" "(begin" -"(if(eof-object? v_180)" +"(if(eof-object? v_181)" "(let-values()" -"(let-values(((v3_0) v_180)" +"(let-values(((v3_0) v_181)" "((temp4_3)" " \"expected a commented-out element for `~a;', but found end-of-file\")" "((ec5_0) ec_0))" @@ -47101,7 +47542,7 @@ static const char *startup_source = "(let-values(((line_5 col_4 pos_108)(port-next-location in_15)))" "(begin" "(consume-char in_15 '#\\|)" -"((letrec-values(((loop_103)" +"((letrec-values(((loop_106)" "(lambda(prev-c_0 depth_10)" "(begin" " 'loop" @@ -47110,28 +47551,28 @@ static const char *startup_source = "(read-char-or-special in_16 special1.1 source_11))))" "(if(eof-object? c_65)" "(let-values()" -"(let-values(((temp7_2)(reading-at config_19 line_5 col_4 pos_108))" +"(let-values(((temp7_3)(reading-at config_19 line_5 col_4 pos_108))" "((c8_0) c_65)" -" ((temp9_2) \"end of file in `#|` comment\"))" -"(reader-error10.1 #f #f c8_0 #t #f #f in_15 temp7_2 temp9_2(list))))" +" ((temp9_3) \"end of file in `#|` comment\"))" +"(reader-error10.1 #f #f c8_0 #t #f #f in_15 temp7_3 temp9_3(list))))" "(if(not(char? c_65))" -"(let-values()(loop_103 #f depth_10))" +"(let-values()(loop_106 #f depth_10))" "(if(if(char=? '#\\| c_65)(eqv? prev-c_0 '#\\#) #f)" -"(let-values()(loop_103 #f(add1 depth_10)))" +"(let-values()(loop_106 #f(add1 depth_10)))" "(if(if(char=? '#\\# c_65)(eqv? prev-c_0 '#\\|) #f)" "(let-values()" "(if(positive? depth_10)" -"(let-values()(loop_103 #f(sub1 depth_10)))" +"(let-values()(loop_106 #f(sub1 depth_10)))" "(void)))" -"(let-values()(loop_103 c_65 depth_10)))))))))))" -" loop_103)" +"(let-values()(loop_106 c_65 depth_10)))))))))))" +" loop_106)" " #f" " 0)))))))" "(define-values" "(skip-unix-line-comment!)" "(lambda(in_17 config_20)" "(begin" -"((letrec-values(((loop_104)" +"((letrec-values(((loop_107)" "(lambda(backslash?_0)" "(begin" " 'loop" @@ -47141,13 +47582,13 @@ static const char *startup_source = "(if(eof-object? c_44)" "(let-values()(void))" "(if(not(char? c_44))" -"(let-values()(loop_104 #f))" +"(let-values()(loop_107 #f))" "(if(char=? c_44 '#\\newline)" -"(let-values()(if backslash?_0(let-values()(loop_104 #f))(void)))" +"(let-values()(if backslash?_0(let-values()(loop_107 #f))(void)))" "(if(char=? c_44 '#\\\\)" -"(let-values()(loop_104 #t))" -"(let-values()(loop_104 #f)))))))))))" -" loop_104)" +"(let-values()(loop_107 #t))" +"(let-values()(loop_107 #f)))))))))))" +" loop_107)" " #f))))" "(define-values" "(readtable-char-delimiter?)" @@ -47161,33 +47602,33 @@ static const char *startup_source = "(if(not(char? dc_0))" "(let-values() #t)" "(let-values()" -"(let-values(((or-part_26)(char-whitespace? dc_0)))" -"(if or-part_26" -" or-part_26" -"(let-values(((or-part_300)(char=? dc_0 '#\\()))" -"(if or-part_300" -" or-part_300" -"(let-values(((or-part_285)(char=? dc_0 '#\\))))" -"(if or-part_285" -" or-part_285" -"(let-values(((or-part_27)(char=? dc_0 '#\\[)))" -"(if or-part_27" -" or-part_27" +"(let-values(((or-part_32)(char-whitespace? dc_0)))" +"(if or-part_32" +" or-part_32" +"(let-values(((or-part_306)(char=? dc_0 '#\\()))" +"(if or-part_306" +" or-part_306" +"(let-values(((or-part_291)(char=? dc_0 '#\\))))" +"(if or-part_291" +" or-part_291" +"(let-values(((or-part_33)(char=? dc_0 '#\\[)))" +"(if or-part_33" +" or-part_33" "(let-values(((or-part_10)(char=? dc_0 '#\\])))" "(if or-part_10" " or-part_10" -"(let-values(((or-part_159)(char=? dc_0 '#\\{)))" -"(if or-part_159" -" or-part_159" +"(let-values(((or-part_165)(char=? dc_0 '#\\{)))" +"(if or-part_165" +" or-part_165" "(let-values(((or-part_12)(char=? dc_0 '#\\})))" "(if or-part_12" " or-part_12" "(let-values(((or-part_13)(char=? dc_0 '#\\')))" "(if or-part_13" " or-part_13" -"(let-values(((or-part_215)(char=? dc_0 '#\\`)))" -"(if or-part_215" -" or-part_215" +"(let-values(((or-part_222)(char=? dc_0 '#\\`)))" +"(if or-part_222" +" or-part_222" "(let-values(((or-part_3)(char=? dc_0 '#\\,)))" "(if or-part_3" " or-part_3" @@ -47233,42 +47674,42 @@ static const char *startup_source = "(let-values()" "(apply" " string-append" -"((letrec-values(((loop_105)" +"((letrec-values(((loop_108)" "(lambda(cs_2)" "(begin" " 'loop" "(if(null?(cdr cs_2))" " (let-values () (list (format \"or `~a`\" (car cs_2))))" "(let-values()" -" (cons (format \"`~a`, \" (car cs_2)) (loop_105 (cdr cs_2)))))))))" -" loop_105)" +" (cons (format \"`~a`, \" (car cs_2)) (loop_108 (cdr cs_2)))))))))" +" loop_108)" " cs_1)))))))))))))" "(define-values" "(closer->opener)" "(lambda(c_62)" "(begin" -"(let-values(((tmp_37) c_62))" -"(if(equal? tmp_37 '#\\))" +"(let-values(((tmp_38) c_62))" +"(if(equal? tmp_38 '#\\))" "(let-values() '#\\()" -"(if(equal? tmp_37 '#\\])" +"(if(equal? tmp_38 '#\\])" "(let-values() '#\\[)" -"(if(equal? tmp_37 '#\\})(let-values() '#\\{)(let-values() c_62))))))))" +"(if(equal? tmp_38 '#\\})(let-values() '#\\{)(let-values() c_62))))))))" " (define-values (dot-name) (lambda (config_25) (begin \"`.`\")))" "(define-values" "(all-openers-str)" "(lambda(config_21)" "(begin" -"(let-values(((p_57)(opener-name '#\\( config_21)))" +"(let-values(((p_60)(opener-name '#\\( config_21)))" "(let-values(((s_10)" "(if(check-parameter 1/read-square-bracket-as-paren config_21)(opener-name '#\\[ config_21) #f)))" "(let-values(((c_49)" "(if(check-parameter 1/read-curly-brace-as-paren config_21)(opener-name '#\\{ config_21) #f)))" "(if(if s_10 c_49 #f)" -" (let-values () (format \"~a, ~a, or ~a\" p_57 s_10 c_49))" -"(if(let-values(((or-part_292) s_10))(if or-part_292 or-part_292 c_49))" +" (let-values () (format \"~a, ~a, or ~a\" p_60 s_10 c_49))" +"(if(let-values(((or-part_298) s_10))(if or-part_298 or-part_298 c_49))" "(let-values()" -" (format \"~a or ~a\" p_57 (let-values (((or-part_293) s_10)) (if or-part_293 or-part_293 c_49))))" -"(let-values() p_57)))))))))" +" (format \"~a or ~a\" p_60 (let-values (((or-part_299) s_10)) (if or-part_299 or-part_299 c_49))))" +"(let-values() p_60)))))))))" "(define-values" "(struct:accum-string" " accum-string1.1" @@ -47294,66 +47735,66 @@ static const char *startup_source = "(lambda(config_26)" "(begin" "(let-values(((st_1)(read-config-st config_26)))" -"(let-values(((a_65)(read-config-state-accum-str st_1)))" -"(if a_65" -"(let-values()(begin(set-read-config-state-accum-str! st_1 #f)(set-accum-string-pos! a_65 0) a_65))" +"(let-values(((a_71)(read-config-state-accum-str st_1)))" +"(if a_71" +"(let-values()(begin(set-read-config-state-accum-str! st_1 #f)(set-accum-string-pos! a_71 0) a_71))" "(let-values()(accum-string1.1 0(make-string 32)))))))))" "(define-values" "(accum-string-add!)" -"(lambda(a_66 c_66)" +"(lambda(a_72 c_66)" "(begin" -"(let-values(((pos_109)(accum-string-pos a_66)))" -"(let-values(((str_27)(accum-string-str a_66)))" +"(let-values(((pos_109)(accum-string-pos a_72)))" +"(let-values(((str_27)(accum-string-str a_72)))" "(let-values(((str2_0)" "(if(< pos_109(string-length str_27))" "(let-values() str_27)" "(let-values()" "(let-values(((str2_1)(make-string(*(string-length str_27) 2))))" -"(begin(string-copy! str2_1 0 str_27)(set-accum-string-str! a_66 str2_1) str2_1))))))" -"(begin(string-set! str2_0 pos_109 c_66)(set-accum-string-pos! a_66(add1 pos_109)))))))))" -"(define-values(accum-string-count)(lambda(a_67)(begin(accum-string-pos a_67))))" -"(define-values(set-accum-string-count!)(lambda(a_68 pos_11)(begin(set-accum-string-pos! a_68 pos_11))))" +"(begin(string-copy! str2_1 0 str_27)(set-accum-string-str! a_72 str2_1) str2_1))))))" +"(begin(string-set! str2_0 pos_109 c_66)(set-accum-string-pos! a_72(add1 pos_109)))))))))" +"(define-values(accum-string-count)(lambda(a_73)(begin(accum-string-pos a_73))))" +"(define-values(set-accum-string-count!)(lambda(a_74 pos_11)(begin(set-accum-string-pos! a_74 pos_11))))" "(define-values" "(accum-string-convert!)" -"(lambda(a_69 convert_1 start-pos_6)" +"(lambda(a_75 convert_1 start-pos_6)" "(begin" -"(let-values(((str_28)(accum-string-str a_69)))" -"(let-values(((s_74)(convert_1(substring str_28 start-pos_6(accum-string-pos a_69)))))" +"(let-values(((str_28)(accum-string-str a_75)))" +"(let-values(((s_74)(convert_1(substring str_28 start-pos_6(accum-string-pos a_75)))))" "(let-values(((len_36)(string-length s_74)))" "(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_74)" -"(set-accum-string-pos! a_69(+ start-pos_6 len_36)))))))))" +"(begin(string-copy! str2_2 0 str_28 0 start-pos_6)(set-accum-string-str! a_75 str2_2)))))" +"(string-copy!(accum-string-str a_75) start-pos_6 s_74)" +"(set-accum-string-pos! a_75(+ start-pos_6 len_36)))))))))" "(define-values" "(accum-string-get!6.1)" "(lambda(start-pos2_0 start-pos3_0 a4_0 config5_0)" "(begin" " 'accum-string-get!6" -"(let-values(((a_70) a4_0))" +"(let-values(((a_76) a4_0))" "(let-values(((config_27) config5_0))" "(let-values(((start-pos_7)(if start-pos3_0 start-pos2_0 0)))" "(let-values()" -"(let-values(((s_184)(substring(accum-string-str a_70) start-pos_7(accum-string-pos a_70))))" -"(begin(accum-string-abandon! a_70 config_27) s_184)))))))))" +"(let-values(((s_184)(substring(accum-string-str a_76) start-pos_7(accum-string-pos a_76))))" +"(begin(accum-string-abandon! a_76 config_27) s_184)))))))))" "(define-values" "(accum-string-get-bytes!13.1)" "(lambda(start-pos9_0 start-pos10_0 a11_0 config12_0)" "(begin" " 'accum-string-get-bytes!13" -"(let-values(((a_61) a11_0))" +"(let-values(((a_67) a11_0))" "(let-values(((config_28) config12_0))" "(let-values(((start-pos_8)(if start-pos10_0 start-pos9_0 0)))" "(let-values()" "(let-values(((bstr_3)" -"(string->bytes/latin-1(accum-string-str a_61) #f start-pos_8(accum-string-pos a_61))))" -"(begin(accum-string-abandon! a_61 config_28) bstr_3)))))))))" +"(string->bytes/latin-1(accum-string-str a_67) #f start-pos_8(accum-string-pos a_67))))" +"(begin(accum-string-abandon! a_67 config_28) bstr_3)))))))))" "(define-values" "(accum-string-abandon!)" -"(lambda(a_71 config_29)(begin(set-read-config-state-accum-str!(read-config-st config_29) a_71))))" +"(lambda(a_77 config_29)(begin(set-read-config-state-accum-str!(read-config-st config_29) a_77))))" "(define-values" "(struct:indentation" " indentation1.1" @@ -47449,21 +47890,21 @@ static const char *startup_source = " (let-values () (format \"unexpected `~a`\" c_43))" "(let-values()" "(let-values(((missing_2)" -"(let-values(((or-part_262)" -"(let-values(((lst_298)(cdr indts_1)))" +"(let-values(((or-part_268)" +"(let-values(((lst_296)(cdr indts_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_298)))" -"((letrec-values(((for-loop_257)" -"(lambda(result_37 lst_299)" +"(let-values()(check-list lst_296)))" +"((letrec-values(((for-loop_258)" +"(lambda(result_37 lst_297)" "(begin" " 'for-loop" -"(if(pair? lst_299)" -"(let-values(((indt_3)(unsafe-car lst_299))" +"(if(pair? lst_297)" +"(let-values(((indt_3)(unsafe-car lst_297))" "((rest_169)" -"(unsafe-cdr lst_299)))" -"(let-values(((result_112)" +"(unsafe-cdr lst_297)))" +"(let-values(((result_114)" "(let-values()" "(let-values(((result_76)" "(let-values()" @@ -47476,17 +47917,17 @@ static const char *startup_source = " #f)))))" "(values result_76)))))" "(if(if(not" -"((lambda x_80 result_112)" +"((lambda x_81 result_114)" " indt_3))" "(not #f)" " #f)" -"(for-loop_257 result_112 rest_169)" -" result_112)))" +"(for-loop_258 result_114 rest_169)" +" result_114)))" " result_37)))))" -" for-loop_257)" +" for-loop_258)" " #f" -" lst_298)))))" -" (if or-part_262 or-part_262 \"expected\"))))" +" lst_296)))))" +" (if or-part_268 or-part_268 \"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`\"" @@ -47534,8 +47975,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_56) v_5))" -"(if(read-config/outer? the-struct_56)" +"(let-values(((the-struct_58) v_5))" +"(if(read-config/outer? the-struct_58)" "(let-values(((indentations20_0)" "(cons" " indentation_0" @@ -47543,16 +47984,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_56)" -"(read-config/outer-line the-struct_56)" -"(read-config/outer-col the-struct_56)" -"(read-config/outer-pos the-struct_56)" +"(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)" " indentations20_0" -"(read-config/outer-keep-comment? the-struct_56)))" +"(read-config/outer-keep-comment? the-struct_58)))" "(raise-argument-error" " 'struct-copy" " \"read-config/outer?\"" -" the-struct_56))))))" +" the-struct_58))))))" "(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)" @@ -47584,7 +48025,7 @@ static const char *startup_source = "(void))" " e_69))))))" "(let-values(((seq_0)" -"((letrec-values(((loop_106)" +"((letrec-values(((loop_109)" "(lambda(depth_11" " accum_0" " init-c_3" @@ -47677,7 +48118,7 @@ static const char *startup_source = " temp31_5" "(list)))))" "(values))))" -"(let-values(((v_220)" +"(let-values(((v_221)" "(read-one/not-eof_0" " #f" " first-read-one_1" @@ -47698,11 +48139,11 @@ static const char *startup_source = "(let-values()" "(if(null?" " accum_0)" -" v_220" +" v_221" "(append" "(reverse$1" " accum_0)" -" v_220)))" +" v_221)))" "(if(if(eqv?" " rest-ec_0" " '#\\.)" @@ -47741,7 +48182,7 @@ static const char *startup_source = "(begin" "(set! head_0" "(box" -" v_220))" +" v_221))" "(values))))" "(let-values(((dot2-line_0" " dot2-col_0" @@ -47766,11 +48207,11 @@ static const char *startup_source = " post-c_0" " seq-config_0)))" "(begin" -"(if(let-values(((or-part_23)" +"(if(let-values(((or-part_29)" "(eof-object?" " post-ec_0)))" -"(if or-part_23" -" or-part_23" +"(if or-part_29" +" or-part_29" "(eqv?" " post-ec_0" " closer_1)))" @@ -47797,7 +48238,7 @@ static const char *startup_source = " temp35_1" "(list))))" "(void))" -"(loop_106" +"(loop_109" " depth_11" " accum_0" " post-c_0" @@ -47826,14 +48267,14 @@ static const char *startup_source = " temp39_5" "(list)))))))))))))" "(let-values()" -"(let-values(((v_194)" +"(let-values(((v_196)" "(read-one/not-eof_0" " c_67" " first-read-one_1" " config/keep-comment_0)))" -"(if(1/special-comment? v_194)" +"(if(1/special-comment? v_196)" "(let-values()" -"(loop_106" +"(loop_109" " depth_11" " accum_0" " #f" @@ -47841,22 +48282,22 @@ static const char *startup_source = " read-one_1))" "(if(> depth_11 1024)" "(let-values()" -"(loop_106" +"(loop_109" " depth_11" -"(cons v_194 accum_0)" +"(cons v_196 accum_0)" " #f" " #f" " read-one_1))" "(let-values()" "(cons" -" v_194" -"(loop_106" +" v_196" +"(loop_109" "(add1 depth_11)" " null" " #f" " #f" " read-one_1)))))))))))))))" -" loop_106)" +" loop_109)" " 0" " null" " #f" @@ -47871,17 +48312,17 @@ static const char *startup_source = "(lambda(opener_1 in_22 config_35 seq_1)" "(begin" "(let-values(((tag_0)" -"(let-values(((tmp_38) opener_1))" -"(if(equal? tmp_38 '#\\[)" +"(let-values(((tmp_39) opener_1))" +"(if(equal? tmp_39 '#\\[)" "(let-values()(if(check-parameter 1/read-square-bracket-with-tag config_35) '#%brackets #f))" -"(if(equal? tmp_38 '#\\{)" +"(if(equal? tmp_39 '#\\{)" "(let-values()(if(check-parameter 1/read-curly-brace-with-tag config_35) '#%braces #f))" "(let-values() #f))))))" "(if tag_0(cons(wrap tag_0 in_22 config_35 #f) seq_1) seq_1)))))" -" (define-values (not-an-fX.1) (lambda (who_26 v_221) (begin 'not-an-fX (raise-argument-error who_26 \"fixnum?\" v_221))))" +" (define-values (not-an-fX.1) (lambda (who_26 v_222) (begin 'not-an-fX (raise-argument-error who_26 \"fixnum?\" v_222))))" "(define-values" "(not-an-fX.1$1)" -" (lambda (who_26 v_221) (begin 'not-an-fX (raise-argument-error who_26 \"flonum?\" v_221))))" +" (lambda (who_26 v_222) (begin 'not-an-fX (raise-argument-error who_26 \"flonum?\" v_222))))" "(define-values" "(read-digits13.1)" "(lambda(base1_0" @@ -47916,12 +48357,12 @@ static const char *startup_source = "(begin" "(consume-char in_12 c_69)" "(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_69))(void))" -"((letrec-values(((loop_62)" -"(lambda(v_222 max-count_1)" +"((letrec-values(((loop_65)" +"(lambda(v_223 max-count_1)" "(begin" " 'loop" "(if(zero? max-count_1)" -"(let-values() v_222)" +"(let-values() v_223)" "(let-values()" "(let-values(((c_39)" "(let-values(((in_24) in_12)" @@ -47944,11 +48385,11 @@ static const char *startup_source = "(if accum-str_0" "(let-values()(accum-string-add! accum-str_0 c_39))" "(void))" -"(loop_62" -"(+(digit->number c_39)(* v_222 base_22))" +"(loop_65" +"(+(digit->number c_39)(* v_223 base_22))" "(sub1 max-count_1))))" -"(let-values() v_222)))))))))" -" loop_62)" +"(let-values() v_223)))))))))" +" loop_65)" "(+(digit->number c_69)(* init-v_0 base_22))" "(sub1 max-count_0))))" "(if zero-digits-result_0" @@ -47970,11 +48411,11 @@ static const char *startup_source = "(hex-digit?)" "(lambda(c_74)" "(begin" -"(let-values(((or-part_301)(if(char>=? c_74 '#\\0)(char<=? c_74 '#\\9) #f)))" -"(if or-part_301" -" or-part_301" -"(let-values(((or-part_102)(if(char>=? c_74 '#\\A)(char<=? c_74 '#\\F) #f)))" -"(if or-part_102 or-part_102(if(char>=? c_74 '#\\a)(char<=? c_74 '#\\f) #f))))))))" +"(let-values(((or-part_307)(if(char>=? c_74 '#\\0)(char<=? c_74 '#\\9) #f)))" +"(if or-part_307" +" or-part_307" +"(let-values(((or-part_108)(if(char>=? c_74 '#\\A)(char<=? c_74 '#\\F) #f)))" +"(if or-part_108 or-part_108(if(char>=? c_74 '#\\a)(char<=? c_74 '#\\f) #f))))))))" "(define-values" "(digit->number)" "(lambda(c_6)" @@ -48005,13 +48446,13 @@ static const char *startup_source = "(if(string? s_182)" "(void)" " (let-values () (raise-argument-error 'string->number \"string?\" s_182)))" -"(if((lambda(p_67)(if(exact-integer? radix_0)(<= 2 radix_0 16) #f)) radix_0)" +"(if((lambda(p_70)(if(exact-integer? radix_0)(<= 2 radix_0 16) #f)) radix_0)" "(void)" "(let-values()" " (raise-argument-error 'string->number \"(integer-in 2 16)\" radix_0)))" -"(if((lambda(p_59)" -"(let-values(((or-part_7)(eq? p_59 'number-or-false)))" -"(if or-part_7 or-part_7(eq? p_59 'read))))" +"(if((lambda(p_62)" +"(let-values(((or-part_7)(eq? p_62 'number-or-false)))" +"(if or-part_7 or-part_7(eq? p_62 'read))))" " convert-mode_0)" "(void)" "(let-values()" @@ -48019,9 +48460,9 @@ static const char *startup_source = " 'string->number" " \"(or/c 'number-or-false 'read)\"" " convert-mode_0)))" -"(if((lambda(p_68)" -"(let-values(((or-part_9)(eq? p_68 'decimal-as-inexact)))" -"(if or-part_9 or-part_9(eq? p_68 'decimal-as-exact))))" +"(if((lambda(p_71)" +"(let-values(((or-part_9)(eq? p_71 'decimal-as-inexact)))" +"(if or-part_9 or-part_9(eq? p_71 'decimal-as-exact))))" " decimal-mode_0)" "(void)" "(let-values()" @@ -48046,11 +48487,11 @@ static const char *startup_source = " decimal-mode74_0" " convert-mode75_0))))))))))))))" "(case-lambda" -"((s_466)(begin 'string->number(string->number8_0 s_466 #f #f #f #f #f #f)))" -"((s_467 radix_1 convert-mode_1 decimal-mode3_1)" -"(string->number8_0 s_467 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" +"((s_467)(begin 'string->number(string->number8_0 s_467 #f #f #f #f #f #f)))" +"((s_468 radix_1 convert-mode_1 decimal-mode3_1)" +"(string->number8_0 s_468 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" "((s_78 radix_2 convert-mode2_1)(string->number8_0 s_78 radix_2 convert-mode2_1 #f #t #t #f))" -"((s_427 radix1_1)(string->number8_0 s_427 radix1_1 #f #f #t #f #f)))))" +"((s_428 radix1_1)(string->number8_0 s_428 radix1_1 #f #f #t #f #f)))))" "(define-values" "(do-string->number20.1)" "(lambda(in-complex11_0" @@ -48090,10 +48531,10 @@ static const char *startup_source = "(let-values() #f)))" "(let-values()" "(let-values(((i_35)(string-ref s_22 next_4)))" -"(let-values(((tmp_39) i_35))" +"(let-values(((tmp_40) i_35))" "(let-values(((index_2)" -"(if(char? tmp_39)" -"(let-values(((codepoint_0)(char->integer tmp_39)))" +"(if(char? tmp_40)" +"(let-values(((codepoint_0)(char->integer tmp_40)))" "(if(if(unsafe-fx>= codepoint_0 66)" "(unsafe-fx< codepoint_0 121)" " #f)" @@ -48169,8 +48610,8 @@ static const char *startup_source = "(let-values() #f)))" "(if(unsafe-fx< index_2 2)" "(let-values()" -"(if(let-values(((or-part_261)(exactness-set? exactness_0)))" -"(if or-part_261 or-part_261 in-complex_0))" +"(if(let-values(((or-part_267)(exactness-set? exactness_0)))" +"(if or-part_267 or-part_267 in-complex_0))" "(let-values()" "(if(eq? convert-mode_2 'must-read)" "(let-values()" @@ -48184,10 +48625,10 @@ static const char *startup_source = "((radix79_0) radix_3)" "((radix-set?80_0) radix-set?_0)" "((temp81_1)" -"(if(let-values(((or-part_302)" +"(if(let-values(((or-part_308)" "(char=? i_35 '#\\e)))" -"(if or-part_302" -" or-part_302" +"(if or-part_308" +" or-part_308" "(char=? i_35 '#\\E)))" " 'exact" " 'inexact))" @@ -48206,8 +48647,8 @@ static const char *startup_source = " temp81_1" " temp82_3)))))" "(let-values()" -"(if(let-values(((or-part_135) radix-set?_0))" -"(if or-part_135 or-part_135 in-complex_0))" +"(if(let-values(((or-part_141) radix-set?_0))" +"(if or-part_141 or-part_141 in-complex_0))" "(let-values()" "(if(eq? convert-mode_2 'must-read)" "(let-values()" @@ -48217,18 +48658,18 @@ static const char *startup_source = "(let-values() #f)))" "(let-values()" "(let-values(((radix_4)" -"(let-values(((tmp_40) i_35))" -"(if(if(equal? tmp_40 '#\\b)" +"(let-values(((tmp_41) i_35))" +"(if(if(equal? tmp_41 '#\\b)" " #t" -"(equal? tmp_40 '#\\B))" +"(equal? tmp_41 '#\\B))" "(let-values() 2)" -"(if(if(equal? tmp_40 '#\\o)" +"(if(if(equal? tmp_41 '#\\o)" " #t" -"(equal? tmp_40 '#\\O))" +"(equal? tmp_41 '#\\O))" "(let-values() 8)" -"(if(if(equal? tmp_40 '#\\d)" +"(if(if(equal? tmp_41 '#\\d)" " #t" -"(equal? tmp_40 '#\\D))" +"(equal? tmp_41 '#\\D))" "(let-values() 10)" "(let-values() 16)))))))" "(let-values(((temp84_2)(add1 next_4))" @@ -48255,13 +48696,13 @@ static const char *startup_source = "(read-special-number s_22 start_44 end_33 convert-mode_2)" " #f)))" "(if c1_28" -"((lambda(v_223)" +"((lambda(v_224)" "(if(eq? exactness_0 'exact)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_223))" +" (let-values () (format \"no exact representation for `~a`\" v_224))" "(let-values() #f)))" -"(let-values() v_223)))" +"(let-values() v_224)))" " c1_28)" "(let-values(((c2_3)" "(if(char-sign? c_75)" @@ -48280,17 +48721,17 @@ static const char *startup_source = " #f)" " #f)))" "(if c2_3" -"((lambda(v_224)" +"((lambda(v_225)" "(let-values(((temp91_0)(+ start_44 6))" "((temp92_1)(sub1 end_33))" "((radix93_0) radix_3)" "((exactness94_0) exactness_0)" "((convert-mode95_0) convert-mode_2)" "((temp96_3) 'i)" -"((v97_0) v_224)" +"((v97_0) v_225)" "((temp98_3)" -"(lambda(v_225 v2_0)" -"(begin 'temp98(make-rectangular v_225 v2_0)))))" +"(lambda(v_226 v2_1)" +"(begin 'temp98(make-rectangular v_226 v2_1)))))" "(read-for-special-compound65.1" " temp96_3" " #f" @@ -48319,9 +48760,9 @@ static const char *startup_source = " #f)" " #f)))" "(if c3_2" -"((lambda(v2_1)" -"(if(if(= start_44(- end_33 7))(not(extflonum? v2_1)) #f)" -"(let-values()(make-rectangular 0 v2_1))" +"((lambda(v2_2)" +"(if(if(= start_44(- end_33 7))(not(extflonum? v2_2)) #f)" +"(let-values()(make-rectangular 0 v2_2))" "(let-values()" "(let-values(((temp101_2)(- end_33 7))" "((radix102_0) radix_3)" @@ -48329,10 +48770,10 @@ static const char *startup_source = "((convert-mode104_0) convert-mode_2)" "((temp105_2) 'i)" "((temp106_2) #t)" -"((v2107_0) v2_1)" +"((v2107_0) v2_2)" "((temp108_2)" -"(lambda(v2_2 v_198)" -"(begin 'temp108(make-rectangular v_198 v2_2)))))" +"(lambda(v2_3 v_200)" +"(begin 'temp108(make-rectangular v_200 v2_3)))))" "(read-for-special-compound65.1" " temp105_2" " temp106_2" @@ -48361,17 +48802,17 @@ static const char *startup_source = " #f)" " #f)))" "(if c4_0" -"((lambda(v_200)" +"((lambda(v_202)" "(let-values(((temp110_4)(+ start_44 7))" "((end111_0) end_33)" "((radix112_0) radix_3)" "((exactness113_0) exactness_0)" "((convert-mode114_0) convert-mode_2)" "((temp115_0) '@)" -"((v116_0) v_200)" +"((v116_0) v_202)" "((temp117_3)" -"(lambda(v_206 v2_3)" -"(begin 'temp117(make-polar v_206 v2_3)))))" +"(lambda(v_207 v2_4)" +"(begin 'temp117(make-polar v_207 v2_4)))))" "(read-for-special-compound65.1" " temp115_0" " #f" @@ -48398,17 +48839,17 @@ static const char *startup_source = " #f)" " #f)))" "(if c5_1" -"((lambda(v2_4)" +"((lambda(v2_5)" "(let-values(((temp120_1)(- end_33 7))" "((radix121_0) radix_3)" "((exactness122_0) exactness_0)" "((convert-mode123_0) convert-mode_2)" "((temp124_3) '@)" "((temp125_2) #t)" -"((v2126_0) v2_4)" +"((v2126_0) v2_5)" "((temp127_3)" -"(lambda(v2_5 v_226)" -"(begin 'temp127(make-polar v_226 v2_5)))))" +"(lambda(v2_6 v_227)" +"(begin 'temp127(make-polar v_227 v2_6)))))" "(read-for-special-compound65.1" " temp124_3" " temp125_2" @@ -48459,8 +48900,8 @@ static const char *startup_source = "(let-values(((in-complex_1)(if in-complex26_0 in-complex24_0 #f)))" "(let-values(((convert-mode_3) convert-mode32_0))" "(let-values()" -"((letrec-values(((loop_107)" -"(lambda(i_173" +"((letrec-values(((loop_110)" +"(lambda(i_174" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -48472,7 +48913,7 @@ static const char *startup_source = " must-i?_0)" "(begin" " 'loop" -"(if(= i_173 end_34)" +"(if(= i_174 end_34)" "(let-values()" "(if(if(not any-digits?_0)(not i-pos_3) #f)" "(let-values()" @@ -48491,10 +48932,10 @@ static const char *startup_source = "(substring s_86 start_45 end_34)))" "(let-values() #f)))" "(if(if sign-pos_0" -"(let-values(((or-part_303)" +"(let-values(((or-part_309)" "(if dot-pos_1(< dot-pos_1 sign-pos_0) #f)))" -"(if or-part_303" -" or-part_303" +"(if or-part_309" +" or-part_309" "(if slash-pos_0(< slash-pos_0 sign-pos_0) #f)))" " #f)" "(let-values()" @@ -48564,11 +49005,11 @@ static const char *startup_source = " exactness_1" " convert-mode_3))))))))" "(let-values()" -"(let-values(((c_76)(string-ref s_86 i_173)))" +"(let-values(((c_76)(string-ref s_86 i_174)))" "(if(digit? c_76 radix_5)" "(let-values()" -"(loop_107" -"(add1 i_173)" +"(loop_110" +"(add1 i_174)" " #t" " any-hashes?_0" " i-pos_3" @@ -48580,8 +49021,8 @@ static const char *startup_source = " must-i?_0))" "(if(char=? c_76 '#\\#)" "(let-values()" -"(loop_107" -"(add1 i_173)" +"(loop_110" +"(add1 i_174)" " #t" " #t" " i-pos_3" @@ -48602,38 +49043,38 @@ static const char *startup_source = "(substring s_86 start_45 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_107" -"(add1 i_173)" +"(loop_110" +"(add1 i_174)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" -" i_173" +" i_174" " dot-pos_1" " slash-pos_0" " #f" -"(if(> i_173 start_45)" -"(let-values(((or-part_304)(not @-pos_0)))" -"(if or-part_304" -" or-part_304" -"(> i_173(add1 @-pos_0))))" +"(if(> i_174 start_45)" +"(let-values(((or-part_310)(not @-pos_0)))" +"(if or-part_310" +" or-part_310" +"(> i_174(add1 @-pos_0))))" " #f)))))" "(if(char=? c_76 '#\\.)" "(let-values()" -"(if(let-values(((or-part_305)" +"(if(let-values(((or-part_311)" "(if exp-pos_0" -"(let-values(((or-part_306)" +"(let-values(((or-part_312)" "(not sign-pos_0)))" -"(if or-part_306" -" or-part_306" +"(if or-part_312" +" or-part_312" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_305" -" or-part_305" +"(if or-part_311" +" or-part_311" "(if dot-pos_1" -"(let-values(((or-part_307)(not sign-pos_0)))" -"(if or-part_307" -" or-part_307" +"(let-values(((or-part_313)(not sign-pos_0)))" +"(if or-part_313" +" or-part_313" "(> dot-pos_1 sign-pos_0)))" " #f)))" "(let-values()" @@ -48644,9 +49085,9 @@ static const char *startup_source = "(substring s_86 start_45 end_34)))" "(let-values() #f)))" "(if(if slash-pos_0" -"(let-values(((or-part_106)(not sign-pos_0)))" -"(if or-part_106" -" or-part_106" +"(let-values(((or-part_112)(not sign-pos_0)))" +"(if or-part_112" +" or-part_112" "(> slash-pos_0 sign-pos_0)))" " #f)" "(let-values()" @@ -48657,23 +49098,23 @@ static const char *startup_source = "(substring s_86 start_45 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_107" -"(add1 i_173)" +"(loop_110" +"(add1 i_174)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" " sign-pos_0" -" i_173" +" i_174" " #f" " #f" " must-i?_0)))))" "(if(char=? c_76 '#\\/)" "(let-values()" "(if(if dot-pos_1" -"(let-values(((or-part_61)(not sign-pos_0)))" -"(if or-part_61" -" or-part_61" +"(let-values(((or-part_67)(not sign-pos_0)))" +"(if or-part_67" +" or-part_67" "(> dot-pos_1 sign-pos_0)))" " #f)" "(let-values()" @@ -48683,21 +49124,21 @@ static const char *startup_source = " \"decimal points and fractions annot be mixed `~.a`\"" "(substring s_86 start_45 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_107)" +"(if(let-values(((or-part_113)" "(if exp-pos_0" -"(let-values(((or-part_62)" +"(let-values(((or-part_68)" "(not sign-pos_0)))" -"(if or-part_62" -" or-part_62" +"(if or-part_68" +" or-part_68" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_107" -" or-part_107" +"(if or-part_113" +" or-part_113" "(if slash-pos_0" -"(let-values(((or-part_63)" +"(let-values(((or-part_69)" "(not sign-pos_0)))" -"(if or-part_63" -" or-part_63" +"(if or-part_69" +" or-part_69" "(> slash-pos_0 sign-pos_0)))" " #f)))" "(let-values()" @@ -48708,69 +49149,69 @@ static const char *startup_source = "(substring s_86 start_45 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_107" -"(add1 i_173)" +"(loop_110" +"(add1 i_174)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" " sign-pos_0" " #f" -" i_173" +" i_174" " #f" " must-i?_0)))))" -"(if(let-values(((or-part_308)(char=? c_76 '#\\e)))" -"(if or-part_308" -" or-part_308" -"(let-values(((or-part_309)(char=? c_76 '#\\E)))" -"(if or-part_309" -" or-part_309" -"(let-values(((or-part_310)" -"(char=? c_76 '#\\f)))" -"(if or-part_310" -" or-part_310" -"(let-values(((or-part_181)" -"(char=? c_76 '#\\F)))" -"(if or-part_181" -" or-part_181" -"(let-values(((or-part_311)" -"(char=? c_76 '#\\d)))" -"(if or-part_311" -" or-part_311" -"(let-values(((or-part_312)" -"(char=? c_76 '#\\D)))" -"(if or-part_312" -" or-part_312" -"(let-values(((or-part_313)" -"(char=?" -" c_76" -" '#\\s)))" -"(if or-part_313" -" or-part_313" -"(let-values(((or-part_314)" -"(char=?" -" c_76" -" '#\\S)))" +"(if(let-values(((or-part_314)(char=? c_76 '#\\e)))" "(if or-part_314" " or-part_314" -"(let-values(((or-part_315)" -"(char=?" -" c_76" -" '#\\l)))" +"(let-values(((or-part_315)(char=? c_76 '#\\E)))" "(if or-part_315" " or-part_315" "(let-values(((or-part_316)" +"(char=? c_76 '#\\f)))" +"(if or-part_316" +" or-part_316" +"(let-values(((or-part_189)" +"(char=? c_76 '#\\F)))" +"(if or-part_189" +" or-part_189" +"(let-values(((or-part_317)" +"(char=? c_76 '#\\d)))" +"(if or-part_317" +" or-part_317" +"(let-values(((or-part_318)" +"(char=? c_76 '#\\D)))" +"(if or-part_318" +" or-part_318" +"(let-values(((or-part_319)" +"(char=?" +" c_76" +" '#\\s)))" +"(if or-part_319" +" or-part_319" +"(let-values(((or-part_320)" +"(char=?" +" c_76" +" '#\\S)))" +"(if or-part_320" +" or-part_320" +"(let-values(((or-part_321)" +"(char=?" +" c_76" +" '#\\l)))" +"(if or-part_321" +" or-part_321" +"(let-values(((or-part_322)" "(char=?" " c_76" " '#\\L)))" -"(if or-part_316" -" or-part_316" -"(let-values(((or-part_317)" +"(if or-part_322" +" or-part_322" +"(let-values(((or-part_323)" "(char=?" " c_76" " '#\\t)))" -"(if or-part_317" -" or-part_317" +"(if or-part_323" +" or-part_323" "(char=?" " c_76" " '#\\T)))))))))))))))))))))))" @@ -48784,12 +49225,12 @@ static const char *startup_source = " c_76" "(substring s_86 start_45 end_34)))" "(let-values() #f)))" -"(if(if(<(add1 i_173) end_34)" -"(char-sign?(string-ref s_86(add1 i_173)))" +"(if(if(<(add1 i_174) end_34)" +"(char-sign?(string-ref s_86(add1 i_174)))" " #f)" "(let-values()" -"(loop_107" -"(+ i_173 2)" +"(loop_110" +"(+ i_174 2)" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -48797,12 +49238,12 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_318) exp-pos_0))" -"(if or-part_318 or-part_318 i_173))" +"(let-values(((or-part_324) exp-pos_0))" +"(if or-part_324 or-part_324 i_174))" " must-i?_0))" "(let-values()" -"(loop_107" -"(+ i_173 1)" +"(loop_110" +"(+ i_174 1)" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -48810,8 +49251,8 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_319) exp-pos_0))" -"(if or-part_319 or-part_319 i_173))" +"(let-values(((or-part_325) exp-pos_0))" +"(if or-part_325 or-part_325 i_174))" " must-i?_0)))))" "(if(char=? c_76 '#\\@)" "(let-values()" @@ -48823,9 +49264,9 @@ static const char *startup_source = " \"cannot mix `@` and `i` in `~.a`\"" "(substring s_86 start_45 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_320) @-pos_0))" -"(if or-part_320" -" or-part_320" +"(if(let-values(((or-part_326) @-pos_0))" +"(if or-part_326" +" or-part_326" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -48834,7 +49275,7 @@ static const char *startup_source = " \"too many `@`s in `~.a`\"" "(substring s_86 start_45 end_34)))" "(let-values() #f)))" -"(if(= i_173 start_45)" +"(if(= i_174 start_45)" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" @@ -48851,28 +49292,28 @@ static const char *startup_source = "(substring s_86 start_45 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_107" -"(add1 i_173)" +"(loop_110" +"(add1 i_174)" " any-digits?_0" " any-hashes?_0" " i-pos_3" -" i_173" +" i_174" " #f" " #f" " #f" " #f" " must-i?_0)))))))" -"(if(if(let-values(((or-part_321)" +"(if(if(let-values(((or-part_327)" "(char=? c_76 '#\\i)))" -"(if or-part_321" -" or-part_321" +"(if or-part_327" +" or-part_327" "(char=? c_76 '#\\I)))" " sign-pos_0" " #f)" "(let-values()" -"(if(let-values(((or-part_322) @-pos_0))" -"(if or-part_322" -" or-part_322" +"(if(let-values(((or-part_328) @-pos_0))" +"(if or-part_328" +" or-part_328" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -48881,10 +49322,10 @@ static const char *startup_source = " \"cannot mix `@` and `i` in `~.a`\"" "(substring s_86 start_45 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_323)" -"(<(add1 i_173) end_34)))" -"(if or-part_323" -" or-part_323" +"(if(let-values(((or-part_329)" +"(<(add1 i_174) end_34)))" +"(if or-part_329" +" or-part_329" "(eq? in-complex_1 'i)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -48894,11 +49335,11 @@ static const char *startup_source = "(substring s_86 start_45 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_107" -"(add1 i_173)" +"(loop_110" +"(add1 i_174)" " any-digits?_0" " any-hashes?_0" -" i_173" +" i_174" " @-pos_0" " sign-pos_0" " #f" @@ -48917,7 +49358,7 @@ static const char *startup_source = "(let-values()" " (format \"bad digit `~a`\" c_76))" "(let-values() #f))))))))))))))))))))" -" loop_107)" +" loop_110)" " start_45" " #f" " #f" @@ -48944,7 +49385,7 @@ static const char *startup_source = " convert-mode49_0)" "(begin" " 'string->complex-number50" -"(let-values(((s_420) s40_0))" +"(let-values(((s_421) s40_0))" "(let-values(((start1_0) start141_0))" "(let-values(((end1_0) end142_0))" "(let-values(((start2_0) start243_0))" @@ -48969,16 +49410,16 @@ static const char *startup_source = " in-complex166_0" " #t" " radix-set?164_0" -" s_420" +" s_421" " start1_0" " end1_0" " radix_6" " exactness165_0" " convert-mode167_0))))))" -"(let-values(((v2_6)" +"(let-values(((v2_7)" "(if(if(eq? in-complex_2 'i)(=(- end2_0 start2_0) 1) #f)" "(let-values()" -"(let-values(((neg?_0)(char=?(string-ref s_420 start2_0) '#\\-)))" +"(let-values(((neg?_0)(char=?(string-ref s_421 start2_0) '#\\-)))" "(if(eq? exactness_2 'inexact)" "(let-values()(if neg?_0 -1.0 1.0))" "(let-values()(if neg?_0 -1 1)))))" @@ -48991,17 +49432,17 @@ static const char *startup_source = " in-complex174_0" " #t" " radix-set?172_0" -" s_420" +" s_421" " start2_0" " end2_0" " radix_6" " exactness173_0" " convert-mode175_0))))))" -"(if(let-values(((or-part_324)(not v1_0)))" -"(if or-part_324 or-part_324(not v2_6)))" +"(if(let-values(((or-part_330)(not v1_0)))" +"(if or-part_330 or-part_330(not v2_7)))" "(let-values() #f)" -"(if(if(let-values(((or-part_325)(extflonum? v1_0)))" -"(if or-part_325 or-part_325(extflonum? v2_6)))" +"(if(if(let-values(((or-part_331)(extflonum? v1_0)))" +"(if or-part_331 or-part_331(extflonum? v2_7)))" "(not(eq? convert-mode_4 'must-read))" " #f)" "(let-values()(fail-extflonum convert-mode_4 v1_0))" @@ -49009,46 +49450,46 @@ static const char *startup_source = "(let-values() v1_0)" "(if(extflonum? v1_0)" "(let-values()(fail-extflonum convert-mode_4 v1_0))" -"(if(string? v2_6)" -"(let-values() v2_6)" -"(if(extflonum? v2_6)" -"(let-values()(fail-extflonum convert-mode_4 v2_6))" +"(if(string? v2_7)" +"(let-values() v2_7)" +"(if(extflonum? v2_7)" +"(let-values()(fail-extflonum convert-mode_4 v2_7))" "(if(eq? in-complex_2 'i)" -"(let-values()(make-rectangular v1_0 v2_6))" +"(let-values()(make-rectangular v1_0 v2_7))" "(let-values()" -"(let-values(((p_69)(make-polar v1_0 v2_6)))" +"(let-values(((p_72)(make-polar v1_0 v2_7)))" "(if(eq? exactness_2 'exact)" -"(inexact->exact p_69)" -" p_69))))))))))))))))))))))))))))" +"(inexact->exact p_72)" +" p_72))))))))))))))))))))))))))))" "(define-values" "(string->real-number)" -"(lambda(s_468 start_46 end_35 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)" +"(lambda(s_469 start_46 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_468 exp-pos_1)) '#\\t)))))" +"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_469 exp-pos_1)) '#\\t)))))" "(let-values(((simple?_0)" "(if(not slash-pos_1)" -"(if(let-values(((or-part_326)(eq? exactness_3 'inexact)))" -"(if or-part_326" -" or-part_326" -"(let-values(((or-part_327)(eq? exactness_3 'decimal-as-inexact)))" -"(if or-part_327 or-part_327(if(not dot-pos_2)(not exp-pos_1) #f)))))" -"(if(let-values(((or-part_328)(not exp-pos_1)))" -"(if or-part_328" -" or-part_328" -"(let-values(((or-part_229)(not(eq? convert-mode_5 'number-or-false))))" -"(if or-part_229 or-part_229(not(extfl-mark?_0))))))" -"(not(if any-hashes?_1(hashes? s_468 start_46 end_35) #f))" +"(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_236)(not(eq? convert-mode_5 'number-or-false))))" +"(if or-part_236 or-part_236(not(extfl-mark?_0))))))" +"(not(if any-hashes?_1(hashes? s_469 start_46 end_35) #f))" " #f)" " #f)" " #f)))" -"(let-values(((has-sign?_0)(if(> end_35 start_46)(char-sign?(string-ref s_468 start_46)) #f)))" +"(let-values(((has-sign?_0)(if(> end_35 start_46)(char-sign?(string-ref s_469 start_46)) #f)))" "(if(=(- end_35 start_46)(+(if dot-pos_2 1 0)(if exp-pos_1 1 0)(if has-sign?_0 1 0)))" "(let-values()" "(if(= end_35 start_46)" " (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_468 start_46 end_35)))" +" (let-values () (format \"missing digits in `~.a`\" (substring s_469 start_46 end_35)))" "(let-values() #f))))" "(if simple?_0" "(let-values()" @@ -49060,56 +49501,56 @@ 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_468 start_46 end_35)))" +" (format \"missing digits before exponent marker in `~.a`\" (substring s_469 start_46 end_35)))" "(let-values() #f)))" "(if(if exp-pos_1" -"(let-values(((or-part_329)(= exp-pos_1(sub1 end_35))))" -"(if or-part_329" -" or-part_329" -"(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_468(sub1 end_35))) #f)))" +"(let-values(((or-part_335)(= exp-pos_1(sub1 end_35))))" +"(if or-part_335" +" or-part_335" +"(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_469(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_468 start_46 end_35)))" +" (format \"missing digits after exponent marker in `~.a`\" (substring s_469 start_46 end_35)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_30)" +"(let-values(((n_32)" "(string->number$1" -"(maybe-substring s_468 start_46 end_35)" +"(maybe-substring s_469 start_46 end_35)" " radix_7" -"(if(let-values(((or-part_330)(eq? convert-mode_5 'number-or-false)))" -"(if or-part_330" -" or-part_330" -"(let-values(((or-part_230)(not exp-pos_1)))" -"(if or-part_230 or-part_230(not(extfl-mark?_0))))))" +"(if(let-values(((or-part_336)(eq? convert-mode_5 'number-or-false)))" +"(if or-part_336" +" or-part_336" +"(let-values(((or-part_237)(not exp-pos_1)))" +"(if or-part_237 or-part_237(not(extfl-mark?_0))))))" " 'number-or-false" " 'read))))" -"(if(let-values(((or-part_331)(not n_30)))(if or-part_331 or-part_331(string? n_30)))" +"(if(let-values(((or-part_337)(not n_32)))(if or-part_337 or-part_337(string? n_32)))" "(let-values()" "(error" " 'string->number" " \"host `string->number` failed on ~s\"" -"(substring s_468 start_46 end_35)))" +"(substring s_469 start_46 end_35)))" "(if(eq? exactness_3 'inexact)" "(let-values()" -"(if(extflonum? n_30)" +"(if(extflonum? n_32)" "(let-values()" "(if(eq? convert-mode_5 'must-read)" "(let-values()" "(format" " \"cannot convert extflonum `~.a` to inexact\"" -"(substring s_468 start_46 end_35)))" +"(substring s_469 start_46 end_35)))" "(let-values() #f)))" -"(if(if(eqv? n_30 0)(char=?(string-ref s_468 start_46) '#\\-) #f)" +"(if(if(eqv? n_32 0)(char=?(string-ref s_469 start_46) '#\\-) #f)" "(let-values() -0.0)" -"(let-values()(exact->inexact n_30)))))" -"(let-values() n_30))))))))" +"(let-values()(exact->inexact n_32)))))" +"(let-values() n_32))))))))" "(if exp-pos_1" "(let-values()" "(let-values(((m-v_0)" "(string->real-number" -" s_468" +" s_469" " start_46" " exp-pos_1" " dot-pos_2" @@ -49120,29 +49561,29 @@ static const char *startup_source = " 'exact" " convert-mode_5)))" "(let-values(((e-v_0)" -"(string->exact-integer-number s_468(+ exp-pos_1 1) end_35 radix_7 convert-mode_5)))" +"(string->exact-integer-number s_469(+ exp-pos_1 1) end_35 radix_7 convert-mode_5)))" "(let-values(((real->precision-inexact_0)" -"(lambda(r_47)" +"(lambda(r_46)" "(begin" " 'real->precision-inexact" -"(let-values(((tmp_41)(string-ref s_468 exp-pos_1)))" -"(if(if(equal? tmp_41 '#\\s)" +"(let-values(((tmp_42)(string-ref s_469 exp-pos_1)))" +"(if(if(equal? tmp_42 '#\\s)" " #t" -"(if(equal? tmp_41 '#\\S)" +"(if(equal? tmp_42 '#\\S)" " #t" -"(if(equal? tmp_41 '#\\f) #t(equal? tmp_41 '#\\F))))" -"(let-values()(real->single-flonum r_47))" -"(if(if(equal? tmp_41 '#\\t) #t(equal? tmp_41 '#\\T))" +"(if(equal? tmp_42 '#\\f) #t(equal? tmp_42 '#\\F))))" +"(let-values()(real->single-flonum r_46))" +"(if(if(equal? tmp_42 '#\\t) #t(equal? tmp_42 '#\\T))" "(let-values()" "(if(extflonum-available?)" -"(real->extfl r_47)" +"(real->extfl r_46)" "(string->number$1" -"(replace-hashes s_468 start_46 end_35)" +"(replace-hashes s_469 start_46 end_35)" " radix_7" " 'read)))" -"(let-values()(real->double-flonum r_47)))))))))" +"(let-values()(real->double-flonum r_46)))))))))" "(let-values(((get-extfl?_0)(extfl-mark?_0)))" -"(if(let-values(((or-part_332)(not m-v_0)))(if or-part_332 or-part_332(not e-v_0)))" +"(if(let-values(((or-part_338)(not m-v_0)))(if or-part_338 or-part_338(not e-v_0)))" "(let-values() #f)" "(if(string? m-v_0)" "(let-values() m-v_0)" @@ -49150,14 +49591,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_333)(eq? exactness_3 'inexact)))" -"(if or-part_333 or-part_333(eq? exactness_3 'decimal-as-inexact)))" +"(if(if(let-values(((or-part_339)(eq? exactness_3 'inexact)))" +"(if or-part_339 or-part_339(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_468 start_46) '#\\-) -0.0 0.0))" +"(let-values()(if(char=?(string-ref s_469 start_46) '#\\-) -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))))))" @@ -49167,24 +49608,24 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to ~a\"" -"(substring s_468 start_46 end_35)" +"(substring s_469 start_46 end_35)" " exactness_3))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_31)(* m-v_0(expt radix_7 e-v_0))))" +"(let-values(((n_33)(* m-v_0(expt radix_7 e-v_0))))" "(if(if(not get-extfl?_0)" -"(let-values(((or-part_334)(eq? exactness_3 'exact)))" -"(if or-part_334 or-part_334(eq? exactness_3 'decimal-as-exact)))" +"(let-values(((or-part_340)(eq? exactness_3 'exact)))" +"(if or-part_340 or-part_340(eq? exactness_3 'decimal-as-exact)))" " #f)" -"(let-values() n_31)" -"(if(if(eqv? n_31 0)(char=?(string-ref s_468 start_46) '#\\-) #f)" +"(let-values() n_33)" +"(if(if(eqv? n_33 0)(char=?(string-ref s_469 start_46) '#\\-) #f)" "(let-values()(real->precision-inexact_0 -0.0))" -"(let-values()(real->precision-inexact_0 n_31)))))))))))))))))" +"(let-values()(real->precision-inexact_0 n_33)))))))))))))))))" "(if slash-pos_1" "(let-values()" "(let-values(((n-v_0)" "(string->real-number" -" s_468" +" s_469" " start_46" " slash-pos_1" " #f" @@ -49196,7 +49637,7 @@ static const char *startup_source = " convert-mode_5)))" "(let-values(((d-v_0)" "(string->real-number" -" s_468" +" s_469" "(add1 slash-pos_1)" " end_35" " #f" @@ -49210,13 +49651,13 @@ static const char *startup_source = "(lambda(from-pos_0)" "(begin" " 'get-inexact?" -"(let-values(((or-part_335)(eq? exactness_3 'inexact)))" -"(if or-part_335" -" or-part_335" +"(let-values(((or-part_341)(eq? exactness_3 'inexact)))" +"(if or-part_341" +" or-part_341" "(if(not(eq? exactness_3 'exact))" -"(hashes? s_468 from-pos_0 end_35)" +"(hashes? s_469 from-pos_0 end_35)" " #f)))))))" -"(if(let-values(((or-part_336)(not n-v_0)))(if or-part_336 or-part_336(not d-v_0)))" +"(if(let-values(((or-part_342)(not n-v_0)))(if or-part_342 or-part_342(not d-v_0)))" "(let-values() #f)" "(if(string? n-v_0)" "(let-values() n-v_0)" @@ -49229,14 +49670,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_468 start_46 end_35)))" +" (format \"division by zero in `~.a`\" (substring s_469 start_46 end_35)))" "(let-values() #f)))))" "(let-values()" -"(let-values(((n_32)(/ n-v_0 d-v_0)))" -"(if(get-inexact?_0 start_46)(exact->inexact n_32) n_32)))))))))))" +"(let-values(((n_34)(/ n-v_0 d-v_0)))" +"(if(get-inexact?_0 start_46)(exact->inexact n_34) n_34)))))))))))" "(let-values()" "(string->decimal-number" -" s_468" +" s_469" " start_46" " end_35" " dot-pos_2" @@ -49245,149 +49686,149 @@ static const char *startup_source = " convert-mode_5))))))))))))" "(define-values" "(string->decimal-number)" -"(lambda(s_469 start_47 end_36 dot-pos_3 radix_8 exactness_4 convert-mode_6)" +"(lambda(s_470 start_47 end_36 dot-pos_3 radix_8 exactness_4 convert-mode_6)" "(begin" "(let-values(((get-exact?_0)" -"(let-values(((or-part_337)(eq? exactness_4 'exact)))" -"(if or-part_337 or-part_337(eq? exactness_4 'decimal-as-exact)))))" +"(let-values(((or-part_343)(eq? exactness_4 'exact)))" +"(if or-part_343 or-part_343(eq? exactness_4 'decimal-as-exact)))))" "(let-values(((new-str_0)(make-string(- end_36 start_47(if(if dot-pos_3 get-exact?_0 #f) 1 0)))))" -"((letrec-values(((loop_108)" -"(lambda(i_174 j_3 hashes-pos_0)" +"((letrec-values(((loop_111)" +"(lambda(i_175 j_3 hashes-pos_0)" "(begin" " 'loop" -"(if(< i_174 start_47)" +"(if(< i_175 start_47)" "(let-values()" "(if(= hashes-pos_0 start_47)" "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" -" (format \"misplaced `#` in `~.a`\" (substring s_469 start_47 end_36)))" +" (format \"misplaced `#` in `~.a`\" (substring s_470 start_47 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_469 start_47 end_36))" +"(let-values(((n_35)(string->number$1 new-str_0 radix_8)))" +"(if(not n_35)" +"(let-values()(fail-bad-number convert-mode_6 s_470 start_47 end_36))" "(if(not get-exact?_0)" "(let-values()" -"(if(if(eqv? n_33 0)(char=?(string-ref s_469 start_47) '#\\-) #f)" +"(if(if(eqv? n_35 0)(char=?(string-ref s_470 start_47) '#\\-) #f)" " -0.0" -"(exact->inexact n_33)))" +"(exact->inexact n_35)))" "(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()(/ n_35(expt 10(- end_36 dot-pos_3 1))))" +"(let-values() n_35))))))))" "(let-values()" -"(let-values(((c_77)(string-ref s_469 i_174)))" +"(let-values(((c_77)(string-ref s_470 i_175)))" "(if(char=? c_77 '#\\.)" "(let-values()" "(if get-exact?_0" "(let-values()" -"(loop_108" -"(sub1 i_174)" +"(loop_111" +"(sub1 i_175)" " j_3" -"(if(= hashes-pos_0(add1 i_174)) i_174 hashes-pos_0)))" +"(if(= hashes-pos_0(add1 i_175)) i_175 hashes-pos_0)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_77)" -"(loop_108" -"(sub1 i_174)" +"(loop_111" +"(sub1 i_175)" "(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_174)) i_174 hashes-pos_0))))))" -"(if(let-values(((or-part_338)(char=? c_77 '#\\-)))" -"(if or-part_338 or-part_338(char=? c_77 '#\\+)))" +"(if(= hashes-pos_0(add1 i_175)) i_175 hashes-pos_0))))))" +"(if(let-values(((or-part_344)(char=? c_77 '#\\-)))" +"(if or-part_344 or-part_344(char=? c_77 '#\\+)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_77)" -"(loop_108" -"(sub1 i_174)" +"(loop_111" +"(sub1 i_175)" "(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_174)) i_174 hashes-pos_0))))" +"(if(= hashes-pos_0(add1 i_175)) i_175 hashes-pos_0))))" "(if(char=? c_77 '#\\#)" "(let-values()" -"(if(= hashes-pos_0(add1 i_174))" +"(if(= hashes-pos_0(add1 i_175))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 '#\\0)" -"(loop_108(sub1 i_174)(sub1 j_3) i_174)))" +"(loop_111(sub1 i_175)(sub1 j_3) i_175)))" "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" "(format" " \"misplaced `#` in `~.a`\"" -"(substring s_469 start_47 end_36)))" +"(substring s_470 start_47 end_36)))" "(let-values() #f)))))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_77)" -"(loop_108(sub1 i_174)(sub1 j_3) hashes-pos_0)))))))))))))" -" loop_108)" +"(loop_111(sub1 i_175)(sub1 j_3) hashes-pos_0)))))))))))))" +" loop_111)" "(sub1 end_36)" "(sub1(string-length new-str_0))" " end_36))))))" "(define-values" "(string->exact-integer-number)" -"(lambda(s_352 start_48 end_37 radix_9 convert-mode_7)" +"(lambda(s_353 start_48 end_37 radix_9 convert-mode_7)" "(begin" -"(if(hashes? s_352 start_48 end_37)" +"(if(hashes? s_353 start_48 end_37)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_352 start_48 end_37)))" +" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_353 start_48 end_37)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_34)(string->number$1(maybe-substring s_352 start_48 end_37) radix_9)))" -"(if(not n_34)" +"(let-values(((n_36)(string->number$1(maybe-substring s_353 start_48 end_37) radix_9)))" +"(if(not n_36)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"bad exponent `~.a`\" (substring s_352 start_48 end_37)))" +" (let-values () (format \"bad exponent `~.a`\" (substring s_353 start_48 end_37)))" "(let-values() #f)))" -"(let-values() n_34))))))))" +"(let-values() n_36))))))))" "(define-values" "(read-special-number)" -"(lambda(s_470 start_49 end_38 convert-mode_8)" +"(lambda(s_471 start_49 end_38 convert-mode_8)" "(begin" "(if(=(- end_38 start_49) 6)" -"(if(let-values(((or-part_339)(char=?(string-ref s_470 start_49) '#\\+)))" -"(if or-part_339 or-part_339(char=?(string-ref s_470 start_49) '#\\-)))" -"(let-values(((or-part_224)" -"(if(char=?(char-downcase(string-ref s_470(+ start_49 1))) '#\\i)" -"(if(char=?(char-downcase(string-ref s_470(+ start_49 2))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_470(+ start_49 3))) '#\\f)" -"(if(char=?(char-downcase(string-ref s_470(+ start_49 4))) '#\\.)" -"(let-values(((or-part_340)" -"(if(char=?(char-downcase(string-ref s_470(+ start_49 5))) '#\\0)" -"(if(char=?(string-ref s_470 start_49) '#\\+) +inf.0 -inf.0)" +"(if(let-values(((or-part_345)(char=?(string-ref s_471 start_49) '#\\+)))" +"(if or-part_345 or-part_345(char=?(string-ref s_471 start_49) '#\\-)))" +"(let-values(((or-part_231)" +"(if(char=?(char-downcase(string-ref s_471(+ start_49 1))) '#\\i)" +"(if(char=?(char-downcase(string-ref s_471(+ start_49 2))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_471(+ start_49 3))) '#\\f)" +"(if(char=?(char-downcase(string-ref s_471(+ start_49 4))) '#\\.)" +"(let-values(((or-part_346)" +"(if(char=?(char-downcase(string-ref s_471(+ start_49 5))) '#\\0)" +"(if(char=?(string-ref s_471 start_49) '#\\+) +inf.0 -inf.0)" " #f)))" -"(if or-part_340" -" or-part_340" -"(let-values(((or-part_341)" -"(if(char=?(char-downcase(string-ref s_470(+ start_49 5))) '#\\f)" -"(if(char=?(string-ref s_470 start_49) '#\\+) +inf.f -inf.f)" +"(if or-part_346" +" or-part_346" +"(let-values(((or-part_347)" +"(if(char=?(char-downcase(string-ref s_471(+ start_49 5))) '#\\f)" +"(if(char=?(string-ref s_471 start_49) '#\\+) +inf.f -inf.f)" " #f)))" -"(if or-part_341" -" or-part_341" -"(if(char=?(char-downcase(string-ref s_470(+ start_49 5))) '#\\t)" +"(if or-part_347" +" or-part_347" +"(if(char=?(char-downcase(string-ref s_471(+ start_49 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false))" -"(if(char=?(string-ref s_470 start_49) '#\\+) '+inf.t '-inf.t)" +"(if(char=?(string-ref s_471 start_49) '#\\+) '+inf.t '-inf.t)" " #f)" " #f)))))" " #f)" " #f)" " #f)" " #f)))" -"(if or-part_224" -" or-part_224" -"(if(char=?(char-downcase(string-ref s_470(+ start_49 1))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_470(+ start_49 2))) '#\\a)" -"(if(char=?(char-downcase(string-ref s_470(+ start_49 3))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_470(+ start_49 4))) '#\\.)" -"(let-values(((or-part_342)" -"(if(char=?(char-downcase(string-ref s_470(+ start_49 5))) '#\\0) +nan.0 #f)))" -"(if or-part_342" -" or-part_342" -"(let-values(((or-part_343)" -"(if(char=?(char-downcase(string-ref s_470(+ start_49 5))) '#\\f) +nan.f #f)))" -"(if or-part_343" -" or-part_343" -"(if(char=?(char-downcase(string-ref s_470(+ start_49 5))) '#\\t)" +"(if or-part_231" +" or-part_231" +"(if(char=?(char-downcase(string-ref s_471(+ start_49 1))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_471(+ start_49 2))) '#\\a)" +"(if(char=?(char-downcase(string-ref s_471(+ start_49 3))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_471(+ start_49 4))) '#\\.)" +"(let-values(((or-part_348)" +"(if(char=?(char-downcase(string-ref s_471(+ start_49 5))) '#\\0) +nan.0 #f)))" +"(if or-part_348" +" or-part_348" +"(let-values(((or-part_349)" +"(if(char=?(char-downcase(string-ref s_471(+ start_49 5))) '#\\f) +nan.f #f)))" +"(if or-part_349" +" or-part_349" +"(if(char=?(char-downcase(string-ref s_471(+ start_49 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)" " #f)))))" " #f)" @@ -49398,10 +49839,10 @@ static const char *startup_source = " #f))))" "(define-values" "(fail-extflonum)" -"(lambda(convert-mode_9 v_227)" +"(lambda(convert-mode_9 v_228)" "(begin" "(if(eq? convert-mode_9 'must-read)" -" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_227))" +" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_228))" "(let-values() #f)))))" "(define-values" "(read-for-special-compound65.1)" @@ -49418,7 +49859,7 @@ static const char *startup_source = " combine64_0)" "(begin" " 'read-for-special-compound65" -"(let-values(((s_471) s57_0))" +"(let-values(((s_472) s57_0))" "(let-values(((start_50) start58_0))" "(let-values(((end_39) end59_0))" "(let-values(((radix_10) radix60_0))" @@ -49426,21 +49867,21 @@ static const char *startup_source = "(let-values(((convert-mode_10) convert-mode62_0))" "(let-values(((in-complex_3) in-complex53_0))" "(let-values(((reading-first?_0)(if reading-first?56_0 reading-first?54_0 #f)))" -"(let-values(((v_228) v63_0))" +"(let-values(((v_229) v63_0))" "(let-values(((combine_1) combine64_0))" "(let-values()" "(if(eq? exactness_5 'exact)" "(let-values()" "(if(eq? convert-mode_10 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_228))" +" (let-values () (format \"no exact representation for `~a`\" v_229))" "(let-values() #f)))" -"(if(if(extflonum? v_228)" -"(let-values(((or-part_344)(not reading-first?_0)))" -"(if or-part_344 or-part_344(not(eq? convert-mode_10 'must-read))))" +"(if(if(extflonum? v_229)" +"(let-values(((or-part_350)(not reading-first?_0)))" +"(if or-part_350 or-part_350(not(eq? convert-mode_10 'must-read))))" " #f)" -"(let-values()(fail-extflonum convert-mode_10 v_228))" +"(let-values()(fail-extflonum convert-mode_10 v_229))" "(let-values()" -"(let-values(((v2_7)" +"(let-values(((v2_8)" "(let-values(((temp180_0) #t)" "((exactness181_0) exactness_5)" "((in-complex182_0) in-complex_3)" @@ -49449,51 +49890,51 @@ static const char *startup_source = " in-complex182_0" " #t" " temp180_0" -" s_471" +" s_472" " start_50" " end_39" " radix_10" " exactness181_0" " convert-mode183_0))))" -"(if(string? v2_7)" -"(let-values() v2_7)" -"(if(not v2_7)" -"(let-values() v2_7)" -"(if(extflonum? v_228)" -"(let-values()(fail-extflonum convert-mode_10 v_228))" -"(let-values()(combine_1 v_228 v2_7)))))))))))))))))))))))" +"(if(string? v2_8)" +"(let-values() v2_8)" +"(if(not v2_8)" +"(let-values() v2_8)" +"(if(extflonum? v_229)" +"(let-values()(fail-extflonum convert-mode_10 v_229))" +"(let-values()(combine_1 v_229 v2_8)))))))))))))))))))))))" "(define-values" "(hashes?)" -"(lambda(s_472 start_51 end_40)" +"(lambda(s_473 start_51 end_40)" "(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_472" +"(lambda(x_82)(string? x_82))" +"(lambda(x_83)(unsafe-string-length x_83))" +" s_473" " start_51" " end_40" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_258)" -"(lambda(result_113 idx_5)" +"((letrec-values(((for-loop_259)" +"(lambda(result_115 idx_5)" "(begin" " 'for-loop" "(if(unsafe-fx< idx_5 stop*_6)" "(let-values(((c_78)(string-ref v*_6 idx_5)))" -"(let-values(((result_114)" +"(let-values(((result_116)" "(let-values()" -"(let-values(((result_115)" +"(let-values(((result_117)" "(let-values()(let-values()(char=? c_78 '#\\#)))))" -"(values result_115)))))" -"(if(if(not((lambda x_83 result_114) c_78))(not #f) #f)" -"(for-loop_258 result_114(unsafe-fx+ idx_5 1))" -" result_114)))" -" result_113)))))" -" for-loop_258)" +"(values result_117)))))" +"(if(if(not((lambda x_84 result_116) c_78))(not #f) #f)" +"(for-loop_259 result_116(unsafe-fx+ idx_5 1))" +" result_116)))" +" result_115)))))" +" for-loop_259)" " #f" " start*_5))))))" "(define-values" @@ -49506,8 +49947,8 @@ static const char *startup_source = "(normalise-inputs" " 'in-string" " \"string\"" -"(lambda(x_84)(string? x_84))" -"(lambda(x_85)(unsafe-string-length x_85))" +"(lambda(x_85)(string? x_85))" +"(lambda(x_86)(unsafe-string-length x_86))" " s_263" " start_52" " end_41" @@ -49518,12 +49959,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_53)))" -"((letrec-values(((for-loop_259)" +"((letrec-values(((for-loop_260)" "(lambda(idx_6 pos_111)" "(begin" " 'for-loop" "(if(if(unsafe-fx< idx_6 stop*_7) #t #f)" -"(let-values(((c_79)(string-ref v*_7 idx_6))((i_175) pos_111))" +"(let-values(((c_79)(string-ref v*_7 idx_6))((i_176) pos_111))" "(let-values((()" "(let-values()" "(let-values((()" @@ -49531,52 +49972,52 @@ static const char *startup_source = "(begin" "(let-values()" "(if(char=? c_79 '#\\#)" -"(string-set! new-s_8 i_175 '#\\0)" -"(string-set! new-s_8 i_175 c_79)))" +"(string-set! new-s_8 i_176 '#\\0)" +"(string-set! new-s_8 i_176 c_79)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_259(unsafe-fx+ idx_6 1)(+ pos_111 1))(values))))" +"(if(not #f)(for-loop_260(unsafe-fx+ idx_6 1)(+ pos_111 1))(values))))" "(values))))))" -" for-loop_259)" +" for-loop_260)" " start*_6" " start_53)))" "(void)" " new-s_8)))))" "(define-values" "(maybe-substring)" -"(lambda(s_457 start_54 end_42)" -"(begin(if(if(= 0 start_54)(= end_42(string-length s_457)) #f) s_457(substring s_457 start_54 end_42)))))" +"(lambda(s_458 start_54 end_42)" +"(begin(if(if(= 0 start_54)(= end_42(string-length s_458)) #f) s_458(substring s_458 start_54 end_42)))))" "(define-values" "(exactness-set?)" "(lambda(exactness_6)" "(begin" -"(let-values(((or-part_345)(eq? exactness_6 'exact)))(if or-part_345 or-part_345(eq? exactness_6 'inexact))))))" +"(let-values(((or-part_351)(eq? exactness_6 'exact)))(if or-part_351 or-part_351(eq? exactness_6 'inexact))))))" "(define-values" "(char-sign?)" "(lambda(c_80)" -"(begin(let-values(((or-part_346)(char=? c_80 '#\\-)))(if or-part_346 or-part_346(char=? c_80 '#\\+))))))" +"(begin(let-values(((or-part_352)(char=? c_80 '#\\-)))(if or-part_352 or-part_352(char=? c_80 '#\\+))))))" "(define-values" "(digit?)" "(lambda(c_81 radix_11)" "(begin" -"(let-values(((v_229)(char->integer c_81)))" -"(let-values(((or-part_347)" -"(if(>= v_229(char->integer '#\\0))(<(- v_229(char->integer '#\\0)) radix_11) #f)))" -"(if or-part_347" -" or-part_347" +"(let-values(((v_230)(char->integer c_81)))" +"(let-values(((or-part_353)" +"(if(>= v_230(char->integer '#\\0))(<(- v_230(char->integer '#\\0)) radix_11) #f)))" +"(if or-part_353" +" or-part_353" "(if(> radix_11 10)" -"(let-values(((or-part_348)" -"(if(>= v_229(char->integer '#\\a))(<(- v_229(-(char->integer '#\\a) 10)) radix_11) #f)))" -"(if or-part_348" -" or-part_348" -"(if(>= v_229(char->integer '#\\A))(<(- v_229(-(char->integer '#\\A) 10)) radix_11) #f)))" +"(let-values(((or-part_354)" +"(if(>= v_230(char->integer '#\\a))(<(- v_230(-(char->integer '#\\a) 10)) radix_11) #f)))" +"(if or-part_354" +" or-part_354" +"(if(>= v_230(char->integer '#\\A))(<(- v_230(-(char->integer '#\\A) 10)) radix_11) #f)))" " #f)))))))" "(define-values" "(fail-bad-number)" -"(lambda(convert-mode_11 s_473 start_55 end_43)" +"(lambda(convert-mode_11 s_474 start_55 end_43)" "(begin" "(if(eq? convert-mode_11 'must-read)" -" (let-values () (format \"bad number `~.a`\" (substring s_473 start_55 end_43)))" +" (let-values () (format \"bad number `~.a`\" (substring s_474 start_55 end_43)))" "(let-values() #f)))))" "(define-values" "(read-complains)" @@ -49652,17 +50093,17 @@ static const char *startup_source = "(list temp15_5 after-c16_0 temp17_2)))))))" "(let-values((()" "(begin" -"((letrec-values(((loop_109)" +"((letrec-values(((loop_112)" "(lambda(init-c_5" " pipe-quote-c_0" " foldcase-from_0)" "(begin" " 'loop" "(let-values(((c_83)" -"(let-values(((or-part_70)" +"(let-values(((or-part_76)" " init-c_5))" -"(if or-part_70" -" or-part_70" +"(if or-part_76" +" or-part_76" "(let-values(((in_23)" " in_25)" "((skip-count_6)" @@ -49684,11 +50125,11 @@ static const char *startup_source = "(let-values(((ec_4)" "(let-values(((rt_12) rt_11)" "((c_46) c_83))" -"(if(let-values(((or-part_349)" +"(if(let-values(((or-part_355)" "(not" " rt_12)))" -"(if or-part_349" -" or-part_349" +"(if or-part_355" +" or-part_355" "(not" "(char? c_46))))" "(let-values() c_46)" @@ -49736,7 +50177,7 @@ static const char *startup_source = "(consume-char" " in_25" " c_83)))" -"(loop_109" +"(loop_112" " #f" " #f" "(accum-string-count" @@ -49762,7 +50203,7 @@ static const char *startup_source = " accum-str_1" " string-foldcase" " foldcase-from_0)))" -"(loop_109" +"(loop_112" " #f" " c_83" "(accum-string-count" @@ -49796,10 +50237,10 @@ static const char *startup_source = "(unexpected-quoted_0" " next-c_0" " c_83)))" -"(if(let-values(((or-part_32)" +"(if(let-values(((or-part_38)" " pipe-quote-c_0))" -"(if or-part_32" -" or-part_32" +"(if or-part_38" +" or-part_38" " case-sens?_0))" "(void)" "(let-values()" @@ -49812,7 +50253,7 @@ static const char *startup_source = " next-c_0)" "(set! quoted-ever?_0" " #t)" -"(loop_109" +"(loop_112" " #f" " #f" "(accum-string-count" @@ -49828,11 +50269,11 @@ static const char *startup_source = "(accum-string-add!" " accum-str_1" " c_83)" -"(loop_109" +"(loop_112" " #f" " pipe-quote-c_0" " foldcase-from_0))))))))))))))" -" loop_109)" +" loop_112)" " init-c_2" " #f" " 0)" @@ -49868,9 +50309,9 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((num_0)" -"(if(let-values(((or-part_350)" +"(if(let-values(((or-part_356)" "(eq? mode_17 'symbol-or-number)))" -"(if or-part_350 or-part_350(string? mode_17)))" +"(if or-part_356 or-part_356(string? mode_17)))" "(if(not quoted-ever?_0)" "(1/string->number" "(if(string? mode_17)" @@ -49921,14 +50362,14 @@ static const char *startup_source = "(list temp30_4))))" "(void))" "(wrap" -"(let-values(((or-part_299) num_0))" -"(if or-part_299" -" or-part_299" -"(let-values(((or-part_288)" +"(let-values(((or-part_305) num_0))" +"(if or-part_305" +" or-part_305" +"(let-values(((or-part_294)" "(if(eq? mode_17 'keyword)" "(string->keyword str_29)" " #f)))" -"(if or-part_288 or-part_288(string->symbol str_29)))))" +"(if or-part_294 or-part_294(string->symbol str_29)))))" " in_25" " config_24" " str_29)))))))))))))))))))))))))" @@ -49938,16 +50379,16 @@ static const char *startup_source = "(begin" "(let-values(((c_33)(read-char/skip-whitespace-and-comments init-c_0 read-one_3 in_5 config_15)))" "(let-values(((line_8 col_7 pos_112)(port-next-location* in_5 c_33)))" -" (let-values (((v_93) (read-number-literal c_33 in_5 config_15 \"#e\")))" -"(if(fixnum? v_93)" -"(let-values() v_93)" -"(if(eof-object? v_93)" -"(let-values() v_93)" +" (let-values (((v_95) (read-number-literal c_33 in_5 config_15 \"#e\")))" +"(if(fixnum? v_95)" +"(let-values() v_95)" +"(if(eof-object? v_95)" +"(let-values() v_95)" "(let-values()" "(let-values(((in1_0) in_5)" "((temp2_5)(reading-at config_15 line_8 col_7 pos_112))" " ((temp3_6) \"expected a fixnum, found ~a\")" -"((v4_1) v_93))" +"((v4_1) v_95))" "(reader-error10.1 #f #f #f #f #f #f in1_0 temp2_5 temp3_6(list v4_1))))))))))))" "(define-values" "(read-flonum)" @@ -49955,17 +50396,17 @@ static const char *startup_source = "(begin" "(let-values(((c_14)(read-char/skip-whitespace-and-comments init-c_6 read-one_4 in_26 config_37)))" "(let-values(((line_9 col_8 pos_92)(port-next-location* in_26 c_14)))" -" (let-values (((v_29) (read-number-literal c_14 in_26 config_37 \"#i\")))" -"(if(flonum? v_29)" -"(let-values() v_29)" -"(if(eof-object? v_29)" -"(let-values() v_29)" +" (let-values (((v_32) (read-number-literal c_14 in_26 config_37 \"#i\")))" +"(if(flonum? v_32)" +"(let-values() v_32)" +"(if(eof-object? v_32)" +"(let-values() v_32)" "(let-values()" "(let-values(((in5_0) in_26)" -"((temp6_2)(reading-at config_37 line_9 col_8 pos_92))" -" ((temp7_3) \"expected a flonum, found ~a\")" -"((v8_0) v_29))" -"(reader-error10.1 #f #f #f #f #f #f in5_0 temp6_2 temp7_3(list v8_0))))))))))))" +"((temp6_1)(reading-at config_37 line_9 col_8 pos_92))" +" ((temp7_4) \"expected a flonum, found ~a\")" +"((v8_0) v_32))" +"(reader-error10.1 #f #f #f #f #f #f in5_0 temp6_1 temp7_4(list v8_0))))))))))))" "(define-values" "(read-number-literal)" "(lambda(c_84 in_27 config_38 mode_18)" @@ -49989,16 +50430,16 @@ static const char *startup_source = "(let-values(((expected-len_0)(if length4_0 length2_0 #f)))" "(let-values()" "(let-values(((read-one-element_0)" -"(let-values(((tmp_31) vector-mode_0))" -"(if(equal? tmp_31 'any)" +"(let-values(((tmp_32) vector-mode_0))" +"(if(equal? tmp_32 'any)" "(let-values() read-one_5)" -"(if(equal? tmp_31 'fixnum)" +"(if(equal? tmp_32 'fixnum)" "(let-values()" "(lambda(init-c_7 in_29 config_40)" "(begin" " 'read-one-element" "(read-fixnum read-one_5 init-c_7 in_29 config_40))))" -"(if(equal? tmp_31 'flonum)" +"(if(equal? tmp_32 'flonum)" "(let-values()" "(lambda(init-c_8 in_30 config_41)" "(begin" @@ -50027,10 +50468,10 @@ static const char *startup_source = "(let-values(((vec_64)" "(if(not expected-len_0)" "(let-values()" -"(let-values(((tmp_42) vector-mode_0))" -"(if(equal? tmp_42 'any)" +"(let-values(((tmp_43) vector-mode_0))" +"(if(equal? tmp_43 'any)" "(let-values()(list->vector seq_2))" -"(if(equal? tmp_42 'fixnum)" +"(if(equal? tmp_43 'fixnum)" "(let-values()" "(let-values(((len_37)(length seq_2)))" "(begin" @@ -50042,29 +50483,29 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_37)))" "(let-values(((fill_0) 0))" -"(let-values(((v_83)(make-fxvector len_37 fill_0)))" +"(let-values(((v_86)(make-fxvector len_37 fill_0)))" "(begin" "(if(zero? len_37)" "(void)" "(let-values()" -"(let-values(((lst_263) seq_2))" +"(let-values(((lst_260) seq_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_263)))" -"((letrec-values(((for-loop_97)" -"(lambda(i_1 lst_300)" +"(let-values()(check-list lst_260)))" +"((letrec-values(((for-loop_98)" +"(lambda(i_1 lst_298)" "(begin" " 'for-loop" -"(if(pair? lst_300)" +"(if(pair? lst_298)" "(let-values(((e_75)" "(unsafe-car" -" lst_300))" +" lst_298))" "((rest_170)" "(unsafe-cdr" -" lst_300)))" -"(let-values(((i_176)" +" lst_298)))" +"(let-values(((i_177)" "(let-values(((i_3)" " i_1))" "(let-values(((i_36)" @@ -50076,7 +50517,7 @@ static const char *startup_source = "(if(fixnum?" " elem_0)" "(unsafe-fxvector-set!" -" v_83" +" v_86" " i_3" " elem_0)" "(not-an-fX.1" @@ -50088,23 +50529,23 @@ static const char *startup_source = "(values" " i_36)))))" "(if(if(not" -"((lambda x_86" +"((lambda x_87" "(unsafe-fx=" -" i_176" +" i_177" " len_37))" " e_75))" "(not #f)" " #f)" -"(for-loop_97" -" i_176" +"(for-loop_98" +" i_177" " rest_170)" -" i_176)))" +" i_177)))" " i_1)))))" -" for-loop_97)" +" for-loop_98)" " 0" -" lst_263)))))" -" v_83))))))" -"(if(equal? tmp_42 'flonum)" +" lst_260)))))" +" v_86))))))" +"(if(equal? tmp_43 'flonum)" "(let-values()" "(let-values(((len_38)(length seq_2)))" "(begin" @@ -50116,7 +50557,7 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_38)))" "(let-values(((fill_1) 0.0))" -"(let-values(((v_230)(make-flvector len_38 fill_1)))" +"(let-values(((v_231)(make-flvector len_38 fill_1)))" "(begin" "(if(zero? len_38)" "(void)" @@ -50127,7 +50568,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_78)))" -"((letrec-values(((for-loop_260)" +"((letrec-values(((for-loop_261)" "(lambda(i_56 lst_54)" "(begin" " 'for-loop" @@ -50138,10 +50579,10 @@ static const char *startup_source = "((rest_171)" "(unsafe-cdr" " lst_54)))" -"(let-values(((i_177)" "(let-values(((i_178)" +"(let-values(((i_179)" " i_56))" -"(let-values(((i_89)" +"(let-values(((i_90)" "(let-values()" "(begin" "(let-values(((elem_1)" @@ -50150,34 +50591,34 @@ static const char *startup_source = "(if(flonum?" " elem_1)" "(unsafe-flvector-set!" -" v_230" -" i_178" +" v_231" +" i_179" " elem_1)" "(not-an-fX.1$1" " 'for*/vector" " elem_1)))" "(unsafe-fx+" " 1" -" i_178)))))" +" i_179)))))" "(values" -" i_89)))))" +" i_90)))))" "(if(if(not" "((lambda x_24" "(unsafe-fx=" -" i_177" +" i_178" " len_38))" " e_76))" "(not #f)" " #f)" -"(for-loop_260" -" i_177" +"(for-loop_261" +" i_178" " rest_171)" -" i_177)))" +" i_178)))" " i_56)))))" -" for-loop_260)" +" for-loop_261)" " 0" " lst_78)))))" -" v_230))))))" +" v_231))))))" "(let-values()(void)))))))" "(let-values()" "(let-values(((len_39)(length seq_2)))" @@ -50190,12 +50631,12 @@ static const char *startup_source = "((temp24_7)" " \"~avector length ~a is too small, ~a values provided\")" "((temp25_7)" -"(let-values(((tmp_43) vector-mode_0))" -"(if(equal? tmp_43 'any)" +"(let-values(((tmp_44) vector-mode_0))" +"(if(equal? tmp_44 'any)" " (let-values () \"\")" -"(if(equal? tmp_43 'fixnum)" +"(if(equal? tmp_44 'fixnum)" " (let-values () \"fx\")" -"(if(equal? tmp_43 'flonum)" +"(if(equal? tmp_44 'flonum)" " (let-values () \"fl\")" "(let-values()(void)))))))" "((expected-len26_0) expected-len_0)" @@ -50213,20 +50654,20 @@ static const char *startup_source = "(list temp25_7 expected-len26_0 len27_0))))" "(let-values()" "(let-values(((last-or_0)" -"(lambda(v_231)" +"(lambda(v_232)" "(begin" " 'last-or" "(if(null? seq_2)" -"(wrap v_231 in_28 config_39 #f)" -"((letrec-values(((loop_110)" +"(wrap v_232 in_28 config_39 #f)" +"((letrec-values(((loop_113)" "(lambda(seq_3)" "(begin" " 'loop" "(if(null?(cdr seq_3))" "(car seq_3)" -"(loop_110" +"(loop_113" "(cdr seq_3)))))))" -" loop_110)" +" loop_113)" " seq_2))))))" "(let-values((()" "(begin" @@ -50239,26 +50680,26 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((vec_65)" -"(let-values(((tmp_44) vector-mode_0))" -"(if(equal? tmp_44 'any)" +"(let-values(((tmp_45) vector-mode_0))" +"(if(equal? tmp_45 'any)" "(let-values()" "(make-vector" " expected-len_0" "(last-or_0 0)))" -"(if(equal? tmp_44 'fixnum)" +"(if(equal? tmp_45 'fixnum)" "(let-values()" "(make-fxvector" " expected-len_0" "(last-or_0 0)))" -"(if(equal? tmp_44 'flonum)" +"(if(equal? tmp_45 'flonum)" "(let-values()" "(make-flvector" " expected-len_0" "(last-or_0 0.0)))" "(let-values()(void))))))))" "(begin" -"(let-values(((tmp_45) vector-mode_0))" -"(if(equal? tmp_45 'any)" +"(let-values(((tmp_46) vector-mode_0))" +"(if(equal? tmp_46 'any)" "(let-values()" "(begin" "(let-values(((lst_8) seq_2)((start_17) 0))" @@ -50272,19 +50713,19 @@ static const char *startup_source = "(void)" "(let-values()(check-naturals start_17)))" "((letrec-values(((for-loop_16)" -"(lambda(lst_301 pos_113)" +"(lambda(lst_299 pos_113)" "(begin" " 'for-loop" -"(if(if(pair? lst_301)" +"(if(if(pair? lst_299)" " #t" " #f)" "(let-values(((e_77)" "(unsafe-car" -" lst_301))" +" lst_299))" "((rest_172)" "(unsafe-cdr" -" lst_301))" -"((i_92)" +" lst_299))" +"((i_93)" " pos_113))" "(let-values((()" "(let-values()" @@ -50294,7 +50735,7 @@ static const char *startup_source = "(let-values()" "(vector-set!" " vec_65" -" i_92" +" i_93" " e_77))" "(values)))))" "(values)))))" @@ -50308,7 +50749,7 @@ static const char *startup_source = " lst_8" " start_17)))" "(void)))" -"(if(equal? tmp_45 'fixnum)" +"(if(equal? tmp_46 'fixnum)" "(let-values()" "(begin" "(let-values(((lst_220) seq_2)((start_56) 0))" @@ -50335,7 +50776,7 @@ static const char *startup_source = "((rest_7)" "(unsafe-cdr" " lst_158))" -"((i_179)" +"((i_180)" " pos_114))" "(let-values((()" "(let-values()" @@ -50345,7 +50786,7 @@ static const char *startup_source = "(let-values()" "(fxvector-set!" " vec_65" -" i_179" +" i_180" " e_40))" "(values)))))" "(values)))))" @@ -50361,36 +50802,36 @@ static const char *startup_source = " lst_220" " start_56)))" "(void)))" -"(if(equal? tmp_45 'flonum)" +"(if(equal? tmp_46 'flonum)" "(let-values()" "(begin" -"(let-values(((lst_282) seq_2)((start_57) 0))" +"(let-values(((lst_279) seq_2)((start_57) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_282)))" +"(let-values()(check-list lst_279)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals start_57)))" -"((letrec-values(((for-loop_251)" -"(lambda(lst_292" +"((letrec-values(((for-loop_252)" +"(lambda(lst_290" " pos_115)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_292)" +" lst_290)" " #t" " #f)" "(let-values(((e_78)" "(unsafe-car" -" lst_292))" +" lst_290))" "((rest_92)" "(unsafe-cdr" -" lst_292))" -"((i_95)" +" lst_290))" +"((i_96)" " pos_115))" "(let-values((()" "(let-values()" @@ -50400,20 +50841,20 @@ static const char *startup_source = "(let-values()" "(flvector-set!" " vec_65" -" i_95" +" i_96" " e_78))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_251" +"(for-loop_252" " rest_92" "(+" " pos_115" " 1))" "(values))))" "(values))))))" -" for-loop_251)" -" lst_282" +" for-loop_252)" +" lst_279" " start_57)))" "(void)))" "(let-values()(void))))))" @@ -50443,8 +50884,8 @@ static const char *startup_source = "(if(decimal-digit? c3_2)" "(let-values()(read-simple-number in_31 config_42 c3_2))" " (let-values () (values #f \"\" c3_2)))))" -"(let-values(((tmp_46) c4_1))" -"(if(equal? tmp_46 '#\\()" +"(let-values(((tmp_47) c4_1))" +"(if(equal? tmp_47 '#\\()" "(let-values()" "(let-values(((temp33_3) '#\\()" "((temp34_1) '#\\()" @@ -50464,7 +50905,7 @@ static const char *startup_source = " temp35_2" " in36_0" " config37_0)))" -"(if(equal? tmp_46 '#\\[)" +"(if(equal? tmp_47 '#\\[)" "(let-values()" "(if(check-parameter 1/read-square-bracket-as-paren config_42)" "(let-values()" @@ -50491,7 +50932,7 @@ static const char *startup_source = "((config49_0) config_42)" " ((temp50_2) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_85 c2_4))))" "(bad-syntax-error18.1 #f #f in48_0 config49_0 temp50_2)))))" -"(if(equal? tmp_46 '#\\{)" +"(if(equal? tmp_47 '#\\{)" "(let-values()" "(if(check-parameter 1/read-curly-brace-as-paren config_42)" "(let-values()" @@ -50542,7 +50983,7 @@ static const char *startup_source = "(let-values(((accum-str_2)(accum-string-init! config_43)))" "(let-values((()(begin(accum-string-add! accum-str_2 init-c_9)(values))))" "(let-values(((init-v_1)(digit->number init-c_9)))" -"(let-values(((v_232)" +"(let-values(((v_233)" "(let-values(((temp72_0) 10)" "((temp73_1) +inf.0)" "((init-v74_0) init-v_1)" @@ -50559,7 +51000,7 @@ static const char *startup_source = " accum-str_2" " #t))))" "(values" -" v_232" +" v_233" "(let-values(((accum-str76_0) accum-str_2)((config77_0) config_43))" "(accum-string-get!6.1 #f #f accum-str76_0 config77_0))" "(let-values(((in_34) in_33)((source_20)(read-config-source config_43)))" @@ -50573,10 +51014,10 @@ static const char *startup_source = "(read-char-or-special in_29 special1.1 source_21))))" "(let-values(((ec_5)(effective-char c_33 config_15)))" "(let-values(((seq_4)" -"(let-values(((tmp_47) ec_5))" -"(if(equal? tmp_47 '#\\()" +"(let-values(((tmp_48) ec_5))" +"(if(equal? tmp_48 '#\\()" "(let-values()(read-struct-sequence read-one_3 c_33 '#\\( '#\\) in_5 config_15))" -"(if(equal? tmp_47 '#\\[)" +"(if(equal? tmp_48 '#\\[)" "(let-values()" "(if(check-parameter 1/read-square-bracket-as-paren config_15)" "(let-values()(read-struct-sequence read-one_3 c_33 '#\\[ '#\\] in_5 config_15))" @@ -50585,19 +51026,19 @@ static const char *startup_source = "((config2_0) config_15)" " ((temp3_7) (format \"~as~a\" dispatch-c_1 c_33)))" "(bad-syntax-error18.1 #f #f in1_1 config2_0 temp3_7)))))" -"(if(equal? tmp_47 '#\\{)" +"(if(equal? tmp_48 '#\\{)" "(let-values()" "(if(check-parameter 1/read-curly-brace-as-paren config_15)" "(let-values()(read-struct-sequence read-one_3 c_33 '#\\{ '#\\} in_5 config_15))" "(let-values()" "(let-values(((in4_1) in_5)" "((config5_1) config_15)" -" ((temp6_3) (format \"~as~a\" dispatch-c_1 c_33)))" -"(bad-syntax-error18.1 #f #f in4_1 config5_1 temp6_3)))))" +" ((temp6_2) (format \"~as~a\" dispatch-c_1 c_33)))" +"(bad-syntax-error18.1 #f #f in4_1 config5_1 temp6_2)))))" "(let-values()" "(let-values(((in7_1) in_5)" "((config8_1) config_15)" -" ((temp9_3) \"expected ~a after `~as`\")" +" ((temp9_4) \"expected ~a after `~as`\")" "((temp10_0)(all-openers-str config_15))" "((dispatch-c11_0) dispatch-c_1))" "(reader-error10.1" @@ -50609,7 +51050,7 @@ static const char *startup_source = " #f" " in7_1" " config8_1" -" temp9_3" +" temp9_4" "(list temp10_0 dispatch-c11_0))))))))))" "(let-values((()" "(begin" @@ -50639,7 +51080,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in16_0) in_5)" "((config17_0) config_15)" -" ((temp18_4) \"invalid structure description in `~as' form\")" +" ((temp18_5) \"invalid structure description in `~as' form\")" "((dispatch-c19_0) dispatch-c_1))" "(reader-error10.1" " #f" @@ -50650,7 +51091,7 @@ static const char *startup_source = " #f" " in16_0" " config17_0" -" temp18_4" +" temp18_5" "(list dispatch-c19_0)))))" "(values))))" "(let-values(((st_2)" @@ -50720,7 +51161,7 @@ static const char *startup_source = "(let-values(((accum-str_3)(accum-string-init! config_45)))" "(let-values((()(begin(accum-string-add! accum-str_3 init-c_11)(values))))" "(let-values(((init-v_2)(digit->number init-c_11)))" -"(let-values(((v_28)" +"(let-values(((v_31)" "(let-values(((temp4_4) 10)((temp5_7) +inf.0)((init-v6_0) init-v_2)((init-v7_0) init-v_2))" "(read-digits13.1" " temp4_4" @@ -50748,8 +51189,8 @@ static const char *startup_source = "(let-values(((in_37) in_36)((source_22)(read-config-source config_45)))" "(read-char-or-special in_37 special1.1 source_22))))" "(let-values(((ec_6)(effective-char c_86 config_45)))" -"(let-values(((tmp_48) ec_6))" -"(if(equal? tmp_48 '#\\()" +"(let-values(((tmp_49) ec_6))" +"(if(equal? tmp_49 '#\\()" "(let-values()" "(begin" "(accum-string-abandon! accum-str_3 config_45)" @@ -50757,19 +51198,19 @@ static const char *startup_source = "((temp13_2) '#\\))" "((in14_0) in_36)" "((config15_0) config_45)" -"((v16_0) v_28))" +"((v16_0) v_31))" "(read-vector11.1 v16_0 #t #f #f read-one_3 c_86 temp12_4 temp13_2 in14_0 config15_0))))" -"(if(equal? tmp_48 '#\\[)" +"(if(equal? tmp_49 '#\\[)" "(let-values()" "(begin" "(accum-string-abandon! accum-str_3 config_45)" "(if(check-parameter 1/read-square-bracket-as-paren config_45)" "(let-values()" -"(let-values(((temp19_1) '#\\[)" +"(let-values(((temp19_2) '#\\[)" "((temp20_2) '#\\])" "((in21_1) in_36)" "((config22_0) config_45)" -"((v23_0) v_28))" +"((v23_0) v_31))" "(read-vector11.1" " v23_0" " #t" @@ -50777,7 +51218,7 @@ static const char *startup_source = " #f" " read-one_3" " c_86" -" temp19_1" +" temp19_2" " temp20_2" " in21_1" " config22_0)))" @@ -50786,7 +51227,7 @@ static const char *startup_source = "((config25_0) config_45)" "((temp26_5)(get-accum_0(get-accum_0 c_86))))" "(bad-syntax-error18.1 #f #f in24_0 config25_0 temp26_5))))))" -"(if(equal? tmp_48 '#\\{)" +"(if(equal? tmp_49 '#\\{)" "(let-values()" "(begin" "(accum-string-abandon! accum-str_3 config_45)" @@ -50796,7 +51237,7 @@ static const char *startup_source = "((temp30_6) '#\\})" "((in31_1) in_36)" "((config32_0) config_45)" -"((v33_0) v_28))" +"((v33_0) v_31))" "(read-vector11.1" " v33_0" " #t" @@ -50814,13 +51255,13 @@ static const char *startup_source = "((temp36_5)(get-accum_0(get-accum_0 c_86))))" "(bad-syntax-error18.1 #f #f in34_0 config35_0 temp36_5))))))" "(let-values()" -"(let-values(((tmp_6) c_86))" -"(if(if(equal? tmp_6 '#\\=) #t(equal? tmp_6 '#\\#))" +"(let-values(((tmp_7) c_86))" +"(if(if(equal? tmp_7 '#\\=) #t(equal? tmp_7 '#\\#))" "(let-values()" "(begin" -"(if(let-values(((or-part_288)(read-config-for-syntax? config_45)))" -"(if or-part_288" -" or-part_288" +"(if(let-values(((or-part_294)(read-config-for-syntax? config_45)))" +"(if or-part_294" +" or-part_294" "(not(check-parameter 1/read-accept-graph config_45))))" "(let-values()" "(let-values(((in37_0) in_36)" @@ -50866,14 +51307,14 @@ static const char *startup_source = " config43_0" " temp44_2" "(list dispatch-c45_0 temp46_3 c47_0)))))" -"(let-values(((tmp_49) c_86))" -"(if(equal? tmp_49 '#\\=)" +"(let-values(((tmp_50) c_86))" +"(if(equal? tmp_50 '#\\=)" "(let-values()" "(let-values(((ph_1)(make-placeholder 'placeholder)))" -"(let-values(((ht_152)(get-graph-hash config_45)))" +"(let-values(((ht_154)(get-graph-hash config_45)))" "(let-values((()" "(begin" -"(if(hash-ref ht_152 v_28 #f)" +"(if(hash-ref ht_154 v_31 #f)" "(let-values()" "(let-values(((in50_0) in_36)" "((config51_0) config_45)" @@ -50903,7 +51344,7 @@ static const char *startup_source = "(list dispatch-c53_0 temp54_4 c55_0))))" "(void))" "(values))))" -"(let-values((()(begin(hash-set! ht_152 v_28 ph_1)(values))))" +"(let-values((()(begin(hash-set! ht_154 v_31 ph_1)(values))))" "(let-values(((result-v_0)" "(read-one_3 #f in_36(next-readtable config_45))))" "(begin" @@ -50937,20 +51378,20 @@ static const char *startup_source = "(accum-string-abandon! accum-str_3 config_45)" "(placeholder-set! ph_1 result-v_0)" " ph_1)))))))" -"(if(equal? tmp_49 '#\\#)" +"(if(equal? tmp_50 '#\\#)" "(let-values()" "(begin0" "(hash-ref" -"(let-values(((or-part_227)" +"(let-values(((or-part_234)" "(read-config-state-graph(read-config-st config_45))))" -"(if or-part_227 or-part_227 '#hash()))" -" v_28" +"(if or-part_234 or-part_234 '#hash()))" +" v_31" "(lambda()" "(let-values(((in67_0) in_36)" "((config68_0) config_45)" " ((temp69_1) \"no preceding `~a~a=` for `~a~a~a`\")" "((dispatch-c70_0) dispatch-c_1)" -"((v71_0) v_28)" +"((v71_0) v_31)" "((dispatch-c72_0) dispatch-c_1)" "((temp73_2)" "(let-values(((accum-str75_0) accum-str_3)" @@ -50994,10 +51435,10 @@ static const char *startup_source = "(lambda(config_46)" "(begin" "(let-values(((st_3)(read-config-st config_46)))" -"(let-values(((or-part_263)(read-config-state-graph st_3)))" -"(if or-part_263" -" or-part_263" -"(let-values(((ht_153)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_153) ht_153))))))))" +"(let-values(((or-part_269)(read-config-state-graph st_3)))" +"(if or-part_269" +" or-part_269" +"(let-values(((ht_155)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_155) ht_155))))))))" "(define-values" "(coerce-key)" "(lambda(key_85 config_8)" @@ -51026,7 +51467,7 @@ static const char *startup_source = "(let-values(((c3_3) c_87)" " ((temp4_5) \"expected `~a` after `~a`\")" "((expect-c5_0) expect-c_0)" -"((temp6_0)" +"((temp6_3)" "(let-values(((accum-str7_0) accum-str_3)((config8_2) config_45))" "(accum-string-get!6.1 #f #f accum-str7_0 config8_2))))" "(reader-error10.1" @@ -51039,13 +51480,13 @@ static const char *startup_source = " in_36" " config_45" " temp4_5" -"(list expect-c5_0 temp6_0)))))" +"(list expect-c5_0 temp6_3)))))" "(accum-string-add! accum-str_3 c_87)))))))" "(let-values((()(begin(get-next!_0 '#\\a '#\\A)(values))))" "(let-values((()(begin(get-next!_0 '#\\s '#\\S)(values))))" "(let-values((()(begin(get-next!_0 '#\\h '#\\H)(values))))" "(let-values(((content_10 opener_4 mode_19)" -"((letrec-values(((loop_111)" +"((letrec-values(((loop_114)" "(lambda(mode_3)" "(begin" " 'loop" @@ -51058,8 +51499,8 @@ static const char *startup_source = " special1.1" " source_24))))" "(let-values(((ec_7)(effective-char c_84 config_45)))" -"(let-values(((tmp_50) ec_7))" -"(if(equal? tmp_50 '#\\()" +"(let-values(((tmp_51) ec_7))" +"(if(equal? tmp_51 '#\\()" "(let-values()" "(let-values(((read-one-key+value_0)" "(make-read-one-key+value" @@ -51072,9 +51513,9 @@ static const char *startup_source = "((in13_0) in_36)" "((config14_0) config_45)" "((config15_1) config_45)" -"((temp16_6) #f))" +"((temp16_5) #f))" "(read-unwrapped-sequence17.1" -" temp16_6" +" temp16_5" " #t" " config15_1" " #t" @@ -51092,7 +51533,7 @@ static const char *startup_source = " config14_0))" " ec_7" " mode_3)))" -"(if(equal? tmp_50 '#\\[)" +"(if(equal? tmp_51 '#\\[)" "(let-values()" "(if(check-parameter" " 1/read-square-bracket-as-paren" @@ -51104,7 +51545,7 @@ static const char *startup_source = " c_84" " '#\\])))" "(values" -"(let-values(((temp19_2) '#\\[)" +"(let-values(((temp19_3) '#\\[)" "((temp20_3) '#\\])" "((in21_2) in_36)" "((config22_1) config_45)" @@ -51123,7 +51564,7 @@ static const char *startup_source = " #f" " read-one-key+value_1" " c_84" -" temp19_2" +" temp19_3" " temp20_3" " in21_2" " config22_1))" @@ -51145,7 +51586,7 @@ static const char *startup_source = " config26_0" " temp27_6" "(list c28_0))))))" -"(if(equal? tmp_50 '#\\{)" +"(if(equal? tmp_51 '#\\{)" "(let-values()" "(if(check-parameter" " 1/read-curly-brace-as-paren" @@ -51199,22 +51640,22 @@ static const char *startup_source = " config38_1" " temp39_7" "(list c40_1))))))" -"(if(if(equal? tmp_50 '#\\e)" +"(if(if(equal? tmp_51 '#\\e)" " #t" -"(equal? tmp_50 '#\\E))" +"(equal? tmp_51 '#\\E))" "(let-values()" "(begin" "(accum-string-add! accum-str_3 c_84)" "(get-next!_0 '#\\q '#\\Q)" -"(loop_111 'eq)))" -"(if(if(equal? tmp_50 '#\\v)" +"(loop_114 'eq)))" +"(if(if(equal? tmp_51 '#\\v)" " #t" -"(equal? tmp_50 '#\\V))" +"(equal? tmp_51 '#\\V))" "(let-values()" "(begin" "(accum-string-add! accum-str_3 c_84)" "(if(eq? mode_3 'eq)" -"(loop_111 'eqv)" +"(loop_114 'eqv)" "(let-values(((in41_0) in_36)" "((config42_0) config_45)" "((temp43_3)" @@ -51269,18 +51710,18 @@ static const char *startup_source = " config_45" " temp50_3" "(list temp51_2)))))))))))))))))" -" loop_111)" +" loop_114)" " 'equal)))" "(let-values(((graph?_0)(if(read-config-state-graph(read-config-st config_45)) #t #f)))" "(wrap" -"(let-values(((tmp_44) mode_19))" -"(if(equal? tmp_44 'equal)" +"(let-values(((tmp_45) mode_19))" +"(if(equal? tmp_45 'equal)" "(let-values()" "(if graph?_0(make-hash-placeholder content_10)(make-immutable-hash content_10)))" -"(if(equal? tmp_44 'eq)" +"(if(equal? tmp_45 'eq)" "(let-values()" "(if graph?_0(make-hasheq-placeholder content_10)(make-immutable-hasheq content_10)))" -"(if(equal? tmp_44 'eqv)" +"(if(equal? tmp_45 'eqv)" "(let-values()" "(if graph?_0" "(make-hasheqv-placeholder content_10)" @@ -51299,13 +51740,13 @@ static const char *startup_source = "(let-values(((ec_8)(effective-char c_88 config_47)))" "(let-values(((elem-config_1)(next-readtable config_47)))" "(let-values(((closer_4)" -"(let-values(((tmp_51) ec_8))" -"(if(equal? tmp_51 '#\\()" +"(let-values(((tmp_52) ec_8))" +"(if(equal? tmp_52 '#\\()" "(let-values() '#\\))" -"(if(equal? tmp_51 '#\\[)" +"(if(equal? tmp_52 '#\\[)" "(let-values()" "(if(check-parameter 1/read-square-bracket-as-paren config_47) '#\\] #f))" -"(if(equal? tmp_51 '#\\{)" +"(if(equal? tmp_52 '#\\{)" "(let-values()" "(if(check-parameter 1/read-curly-brace-as-paren config_47) '#\\} #f))" "(let-values() #f)))))))" @@ -51337,8 +51778,8 @@ static const char *startup_source = "((temp63_3)(indentation-unexpected-closer-message ec_8 c_88 config_47)))" "(reader-error10.1 #f #f #f #f #f #f in60_0 temp61_4 temp62_1(list temp63_3))))" "(let-values()" -"(let-values(((v_89)(read-one_8 c_88 in_38(keep-comment elem-config_1))))" -"(if(1/special-comment? v_89)" +"(let-values(((v_234)(read-one_8 c_88 in_38(keep-comment elem-config_1))))" +"(if(1/special-comment? v_234)" "(let-values()" "((make-read-one-key+value read-one_8 overall-opener-c_0 overall-closer-ec_0)" " #f" @@ -51400,7 +51841,7 @@ static const char *startup_source = " temp71_1" "(list temp72_1)))))" "(values))))" -"(let-values(((v_233)(read-one_8 #f in_38 elem-config_1)))" +"(let-values(((v_89)(read-one_8 #f in_38 elem-config_1)))" "(let-values(((closer-c_0)" "(read-char/skip-whitespace-and-comments #f read-one_8 in_38 config_47)))" "(let-values(((closer-line_0 closer-col_0 closer-pos_0)" @@ -51430,7 +51871,7 @@ static const char *startup_source = " temp74_0" " temp76_0" "(list temp77_1)))))" -"(cons(coerce-key k_40 elem-config_1) v_233))))))))))))))))))))))" +"(cons(coerce-key k_40 elem-config_1) v_89))))))))))))))))))))))" "(define-values" "(read-string5.1)" "(lambda(mode1_1 mode2_0 in3_0 config4_0)" @@ -51467,7 +51908,7 @@ static const char *startup_source = "(list mode16_0)))))))))" "(let-values((()" "(begin" -"((letrec-values(((loop_112)" +"((letrec-values(((loop_115)" "(lambda()" "(begin" " 'loop" @@ -51504,7 +51945,7 @@ static const char *startup_source = "(let-values(((in17_0) in_40)" "((config18_0)" " config_22)" -"((temp19_3)" +"((temp19_4)" " \"unknown escape sequence `~a~a` in ~a\")" "((escaping-c20_0)" " escaping-c_0)" @@ -51521,18 +51962,18 @@ static const char *startup_source = " #f" " in17_0" " config18_0" -" temp19_3" +" temp19_4" "(list" " escaping-c20_0" " escaped-c21_0" " mode22_0)))))))" "(begin" -"(let-values(((tmp_52) escaped-c_0))" +"(let-values(((tmp_53) escaped-c_0))" "(let-values(((index_3)" -"(if(char? tmp_52)" +"(if(char? tmp_53)" "(let-values(((codepoint_1)" "(char->integer" -" tmp_52)))" +" tmp_53)))" "(if(if(unsafe-fx>=" " codepoint_1" " 10)" @@ -51753,7 +52194,7 @@ static const char *startup_source = "(let-values(((init-v_3)" "(digit->number" " escaped-c_0)))" -"(let-values(((v_180)" +"(let-values(((v_181)" "(let-values(((temp26_6)" " 8)" "((temp27_6)" @@ -51774,7 +52215,7 @@ static const char *startup_source = " accum-str_4" " #t))))" "(begin" -"(if(<= v_180 255)" +"(if(<= v_181 255)" "(void)" "(let-values()" "(let-values(((in30_0)" @@ -51815,13 +52256,13 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_180)))))))))" +" v_181)))))))))" "(if(unsafe-fx< index_3 14)" "(let-values()" "(let-values(((pos_117)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_193)" +"(let-values(((v_195)" "(let-values(((temp42_3)" " 16)" "((temp43_4)" @@ -51838,13 +52279,13 @@ static const char *startup_source = " accum-str_4" " #t))))" "(begin" -"(if(integer? v_193)" +"(if(integer? v_195)" "(void)" "(let-values()" "(no-hex-digits" " in_40" " config_22" -" v_193" +" v_195" " escaping-c_0" " escaped-c_0)))" "(set-accum-string-count!" @@ -51853,7 +52294,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_193))))))" +" v_195))))))" "(if(unsafe-fx< index_3 15)" "(let-values()" "(let-values((()" @@ -51868,7 +52309,7 @@ static const char *startup_source = "(let-values(((pos_99)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_220)" +"(let-values(((v_221)" "(let-values(((temp47_1)" " 16)" "((temp48_1)" @@ -51885,23 +52326,23 @@ static const char *startup_source = " accum-str_4" " #t))))" "(begin" -"(if(integer? v_220)" +"(if(integer? v_221)" "(void)" "(let-values()" "(no-hex-digits" " in_40" " config_22" -" v_220" +" v_221" " escaping-c_0" " escaped-c_0)))" -"(if(let-values(((or-part_22)" +"(if(let-values(((or-part_28)" "(<" -" v_220" +" v_221" " 55296)))" -"(if or-part_22" -" or-part_22" +"(if or-part_28" +" or-part_28" "(>" -" v_220" +" v_221" " 57343)))" "(let-values()" "(begin" @@ -51911,7 +52352,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_220))))" +" v_221))))" "(let-values()" "(let-values(((next!_0)" "(lambda()" @@ -51935,7 +52376,7 @@ static const char *startup_source = " next-c_1))" "(void))" " next-c_1))))))" -"(let-values(((v2_8)" +"(let-values(((v2_9)" "(let-values(((next-c_2)" "(next!_0)))" "(if(char=?" @@ -51948,7 +52389,7 @@ static const char *startup_source = " next-c_3" " '#\\u)" "(let-values()" -"(let-values(((v2_9)" +"(let-values(((v2_10)" "(let-values(((temp52_5)" " 16)" "((temp53_4)" @@ -51965,35 +52406,35 @@ static const char *startup_source = " accum-str_4" " #t))))" "(if(integer?" -" v2_9)" +" v2_10)" "(let-values()" "(if(>=" -" v2_9" +" v2_10" " 56320)" "(if(<=" -" v2_9" +" v2_10" " 57343)" -" v2_9" +" v2_10" " #f)" " #f))" "(let-values()" -" v2_9))))" +" v2_10))))" "(let-values()" " next-c_3))))" "(let-values()" " next-c_2)))))" "(if(integer?" -" v2_8)" +" v2_9)" "(let-values()" "(let-values(((combined-v_0)" "(+" "(arithmetic-shift" "(-" -" v_220" +" v_221" " 55296)" " 10)" "(-" -" v2_8" +" v2_9" " 56320)" " 65536)))" "(if(>" @@ -52040,7 +52481,7 @@ static const char *startup_source = " combined-v_0)))))))" "(let-values()" "(let-values(((v264_0)" -" v2_8)" +" v2_9)" "((temp65_4)" " \"bad or incomplete surrogate-style encoding at `~au~a`\")" "((escaping-c66_0)" @@ -52079,7 +52520,7 @@ static const char *startup_source = "(let-values(((pos_90)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_85)" +"(let-values(((v_235)" "(let-values(((temp74_1)" " 16)" "((temp75_1)" @@ -52096,26 +52537,26 @@ static const char *startup_source = " accum-str_4" " #t))))" "(begin" -"(if(integer? v_85)" +"(if(integer? v_235)" "(void)" "(let-values()" "(no-hex-digits" " in_40" " config_22" -" v_85" +" v_235" " escaping-c_0" " escaped-c_0)))" -"(if(if(let-values(((or-part_257)" +"(if(if(let-values(((or-part_264)" "(<" -" v_85" +" v_235" " 55296)))" -"(if or-part_257" -" or-part_257" +"(if or-part_264" +" or-part_264" "(>" -" v_85" +" v_235" " 57343)))" "(<=" -" v_85" +" v_235" " 1114111)" " #f)" "(let-values()" @@ -52126,7 +52567,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_85))))" +" v_235))))" "(let-values()" "(let-values(((in76_0)" " in_40)" @@ -52157,7 +52598,7 @@ static const char *startup_source = "(list" " escaping-c79_0" " temp80_4)))))))))))))))))" -"(loop_112)))))))" +"(loop_115)))))))" " (if (char=? '#\\\" c_91)" "(let-values() null)" "(let-values()" @@ -52185,8 +52626,8 @@ static const char *startup_source = "(list c87_0))))))" "(void))" "(accum-string-add! accum-str_4 c_91)" -"(loop_112)))))))))))" -" loop_112))" +"(loop_115)))))))))))" +" loop_115))" "(values))))" "(let-values(((str_30)" "(if(eq? mode_0 '|byte string|)" @@ -52204,7 +52645,7 @@ static const char *startup_source = "(let-values(((full-terminator_0)" "(cons" " '#\\newline" -"((letrec-values(((loop_113)" +"((letrec-values(((loop_116)" "(lambda()" "(begin" " 'loop" @@ -52245,11 +52686,11 @@ static const char *startup_source = "(list))))" "(if(char=? c_92 '#\\newline)" "(let-values() null)" -"(let-values()(cons c_92(loop_113)))))))))))" -" loop_113)))))" +"(let-values()(cons c_92(loop_116)))))))))))" +" loop_116)))))" "(let-values((()" "(begin" -"((letrec-values(((loop_114)" +"((letrec-values(((loop_117)" "(lambda(terminator_0 terminator-accum_0)" "(begin" " 'loop" @@ -52297,7 +52738,7 @@ static const char *startup_source = "(char=? c_93(car terminator_0))" " #f)" "(let-values()" -"(loop_114" +"(loop_117" "(cdr terminator_0)" "(cons(car terminator_0) terminator-accum_0)))" "(if(if(null? terminator_0)(char=? c_93 '#\\newline) #f)" @@ -52308,14 +52749,14 @@ static const char *startup_source = "(void)" "(let-values()" "(begin" -"(let-values(((lst_278)" +"(let-values(((lst_275)" "(reverse$1 terminator-accum_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_278)))" -"((letrec-values(((for-loop_184)" +"(let-values()(check-list lst_275)))" +"((letrec-values(((for-loop_185)" "(lambda(lst_97)" "(begin" " 'for-loop" @@ -52338,23 +52779,23 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_184" +"(for-loop_185" " rest_47)" "(values))))" "(values))))))" -" for-loop_184)" -" lst_278)))" +" for-loop_185)" +" lst_275)))" "(void))))" "(if(char=? c_93 '#\\newline)" "(let-values()" -"(loop_114" +"(loop_117" "(cdr full-terminator_0)" "(list '#\\newline)))" "(let-values()" "(begin" "(accum-string-add! accum-str_5 c_93)" -"(loop_114 full-terminator_0 null)))))))))))))))" -" loop_114)" +"(loop_117 full-terminator_0 null)))))))))))))))" +" loop_117)" "(cdr full-terminator_0)" " null)" "(values))))" @@ -52385,8 +52826,8 @@ static const char *startup_source = "(reader-error10.1 #f #f c3_4 #t #f #f in_4 config_8 temp4_0(list))))" "(if(not(char? c_96))" "(let-values()" -" (let-values (((c7_1) c_96) ((temp8_4) \"found non-character after `#\\\\`\"))" -"(reader-error10.1 #f #f c7_1 #t #f #f in_4 config_8 temp8_4(list))))" +" (let-values (((c7_1) c_96) ((temp8_3) \"found non-character after `#\\\\`\"))" +"(reader-error10.1 #f #f c7_1 #t #f #f in_4 config_8 temp8_3(list))))" "(if(octal-digit? c_96)" "(let-values()" "(let-values(((c2_5)" @@ -52407,7 +52848,7 @@ static const char *startup_source = "(let-values(((in_41) in_4)" "((source_27)(read-config-source config_8)))" "(read-char-or-special in_41 special1.1 source_27))))" -"(let-values(((v_217)" +"(let-values(((v_218)" "(if(if(char? c3_5)(octal-digit? c3_5) #f)" "(let-values()" "(+" @@ -52416,7 +52857,7 @@ static const char *startup_source = "(digit->number c3_5)))" "(let-values() #f))))" "(begin" -"(if(if v_217(<= v_217 255) #f)" +"(if(if v_218(<= v_218 255) #f)" "(void)" "(let-values()" "(let-values(((c311_0) c3_5)" @@ -52435,16 +52876,16 @@ static const char *startup_source = " config_8" " temp12_1" "(list c13_2 c214_0 temp15_7)))))" -"(integer->char v_217))))))" +"(integer->char v_218))))))" "(let-values() c_96))))" -"(if(let-values(((or-part_160)(char=? c_96 '#\\u)))" -"(if or-part_160 or-part_160(char=? c_96 '#\\U)))" +"(if(let-values(((or-part_166)(char=? c_96 '#\\u)))" +"(if or-part_166 or-part_166(char=? c_96 '#\\U)))" "(let-values()" "(let-values(((accum-str_6)(accum-string-init! config_8)))" -"(let-values(((v_32)" -"(let-values(((temp19_3) 16)((temp20_4)(if(char=? c_96 '#\\u) 4 8)))" +"(let-values(((v_35)" +"(let-values(((temp19_4) 16)((temp20_4)(if(char=? c_96 '#\\u) 4 8)))" "(read-digits13.1" -" temp19_3" +" temp19_4" " #f" " #f" " temp20_4" @@ -52454,14 +52895,14 @@ static const char *startup_source = " config_8" " accum-str_6" " #t))))" -"(if(integer? v_32)" +"(if(integer? v_35)" "(let-values()" -"(if(if(let-values(((or-part_78)(< v_32 55296)))" -"(if or-part_78 or-part_78(> v_32 57343)))" -"(<= v_32 1114111)" +"(if(if(let-values(((or-part_84)(< v_35 55296)))" +"(if or-part_84 or-part_84(> v_35 57343)))" +"(<= v_35 1114111)" " #f)" "(let-values()" -"(begin(accum-string-abandon! accum-str_6 config_8)(integer->char v_32)))" +"(begin(accum-string-abandon! accum-str_6 config_8)(integer->char v_35)))" "(let-values()" "(let-values(((in21_3) in_4)" "((config22_2) config_8)" @@ -52503,7 +52944,7 @@ static const char *startup_source = "(let-values((()(begin(consume-char in_4 next-c_4)(values))))" "(let-values((()" "(begin" -"((letrec-values(((loop_106)" +"((letrec-values(((loop_109)" "(lambda()" "(begin" " 'loop" @@ -52539,9 +52980,9 @@ static const char *startup_source = "(consume-char" " in_4" " next-c_5)" -"(loop_106)))" +"(loop_109)))" "(void)))))))" -" loop_106))" +" loop_109))" "(values))))" "(let-values(((name_68)" "(string-foldcase" @@ -52552,26 +52993,26 @@ static const char *startup_source = " #f" " accum-str27_0" " config28_1)))))" -"(let-values(((tmp_53) name_68))" -" (if (if (equal? tmp_53 \"nul\") #t (equal? tmp_53 \"null\"))" +"(let-values(((tmp_54) name_68))" +" (if (if (equal? tmp_54 \"nul\") #t (equal? tmp_54 \"null\"))" "(let-values() '#\\nul)" -" (if (equal? tmp_53 \"backspace\")" +" (if (equal? tmp_54 \"backspace\")" "(let-values() '#\\backspace)" -" (if (equal? tmp_53 \"tab\")" +" (if (equal? tmp_54 \"tab\")" "(let-values() '#\\tab)" -" (if (if (equal? tmp_53 \"newline\")" +" (if (if (equal? tmp_54 \"newline\")" " #t" -" (equal? tmp_53 \"linefeed\"))" +" (equal? tmp_54 \"linefeed\"))" "(let-values() '#\\newline)" -" (if (equal? tmp_53 \"vtab\")" +" (if (equal? tmp_54 \"vtab\")" "(let-values() '#\\vtab)" -" (if (equal? tmp_53 \"page\")" +" (if (equal? tmp_54 \"page\")" "(let-values() '#\\page)" -" (if (equal? tmp_53 \"return\")" +" (if (equal? tmp_54 \"return\")" "(let-values() '#\\return)" -" (if (equal? tmp_53 \"space\")" +" (if (equal? tmp_54 \"space\")" "(let-values() '#\\space)" -" (if (equal? tmp_53 \"rubout\")" +" (if (equal? tmp_54 \"rubout\")" "(let-values() '#\\rubout)" "(let-values()" "(let-values(((in29_2) in_4)" @@ -52615,7 +53056,7 @@ static const char *startup_source = "(let-values(((accum-str_8)(accum-string-init! config_22)))" "(begin" "(accum-string-add! accum-str_8 init-c_1)" -"((letrec-values(((loop_115)" +"((letrec-values(((loop_118)" "(lambda(chars_1)" "(begin" " 'loop" @@ -52679,14 +53120,14 @@ static const char *startup_source = "(begin" "(consume-char in_40 c_97)" "(accum-string-add! accum-str_8 c_97)" -"(loop_115(cdr chars_1))))" +"(loop_118(cdr chars_1))))" "(let-values()" "(begin" "(consume-char/special in_40 config_22 c_97)" "(accum-string-add! accum-str_8 c_97)" "(let-values(((in14_1) in_40)" "((config15_2) config_22)" -" ((temp16_7) \"bad syntax `#~a`\")" +" ((temp16_6) \"bad syntax `#~a`\")" "((temp17_2)" "(let-values(((accum-str18_1) accum-str_8)" "((config19_1) config_22))" @@ -52700,9 +53141,9 @@ static const char *startup_source = " #f" " in14_1" " config15_2" -" temp16_7" +" temp16_6" "(list temp17_2)))))))))))))" -" loop_115)" +" loop_118)" " chars_0)" "(wrap" " val_75" @@ -52730,9 +53171,9 @@ static const char *startup_source = "(if(eof-object? e_70)" "(let-values()" "(let-values(((e7_1) e_70)" -" ((temp8_4) \"expected an element for `~a&` box, found end-of-file\")" +" ((temp8_3) \"expected an element for `~a&` box, found end-of-file\")" "((dispatch-c9_0) dispatch-c_1))" -"(reader-error10.1 #f #f e7_1 #t #f #f in_5 config_15 temp8_4(list dispatch-c9_0))))" +"(reader-error10.1 #f #f e7_1 #t #f #f in_5 config_15 temp8_3(list dispatch-c9_0))))" "(void))" "(wrap(box e_70) in_5 config_15 #f)))))))" "(define-values" @@ -52744,8 +53185,8 @@ static const char *startup_source = "(read-char-or-special in_52 special1.1 source_36))))" "(let-values(((no-wrap-config_0)(disable-wrapping config_15)))" "(let-values(((rx_0)" -"(let-values(((tmp_17) c3_7))" -" (if (equal? tmp_17 '#\\\")" +"(let-values(((tmp_18) c3_7))" +" (if (equal? tmp_18 '#\\\")" "(let-values()" "(let-values((()(begin(accum-string-abandon! accum-str_9 config_15)(values))))" "(let-values(((str_32)" @@ -52755,15 +53196,15 @@ static const char *startup_source = " in_5" " config_15" "(lambda()((if(char=? mode-c_0 '#\\r) regexp pregexp) str_32))))))" -"(if(equal? tmp_17 '#\\#)" +"(if(equal? tmp_18 '#\\#)" "(let-values()" "(let-values((()(begin(accum-string-add! accum-str_9 c3_7)(values))))" "(let-values(((c4_2)" "(let-values(((in_26) in_5)" "((source_37)(read-config-source config_15)))" "(read-char-or-special in_26 special1.1 source_37))))" -"(let-values(((tmp_54) c4_2))" -" (if (equal? tmp_54 '#\\\")" +"(let-values(((tmp_55) c4_2))" +" (if (equal? tmp_55 '#\\\")" "(let-values()" "(let-values((()" "(begin(accum-string-abandon! accum-str_9 config_15)(values))))" @@ -52777,7 +53218,7 @@ static const char *startup_source = "((if(char=? mode-c_0 '#\\r) byte-regexp byte-pregexp) bstr_4))))))" "(let-values()" "(let-values(((c48_0) c4_2)" -" ((temp9_4) \"expected `\\\"` after `~a`\")" +" ((temp9_5) \"expected `\\\"` after `~a`\")" "((temp10_4)" "(let-values(((accum-str11_0) accum-str_9)" "((config12_2) config_15))" @@ -52791,11 +53232,11 @@ static const char *startup_source = " #f" " in_5" " config_15" -" temp9_4" +" temp9_5" "(list temp10_4)))))))))" "(let-values()" "(let-values(((c315_0) c3_7)" -" ((temp16_8) \"expected `\\\"` or `#` after `~a`\")" +" ((temp16_7) \"expected `\\\"` or `#` after `~a`\")" "((temp17_3)" "(let-values(((accum-str18_2) accum-str_9)((config19_2) config_15))" "(accum-string-get!6.1 #f #f accum-str18_2 config19_2))))" @@ -52808,7 +53249,7 @@ static const char *startup_source = " #f" " in_5" " config_15" -" temp16_8" +" temp16_7" "(list temp17_3)))))))))" "(wrap rx_0 in_5 config_15 #f)))))))" "(define-values" @@ -52986,7 +53427,7 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"((letrec-values(((loop_116)" +"((letrec-values(((loop_119)" "(lambda()" "(begin" " 'loop" @@ -53029,16 +53470,16 @@ static const char *startup_source = "(list extend-str96_0)))))" "(if(char-whitespace? c_98)" "(let-values()(void))" -"(if(let-values(((or-part_351)" +"(if(let-values(((or-part_357)" "(char-lang-nonsep? c_98)))" -"(if or-part_351" -" or-part_351" +"(if or-part_357" +" or-part_357" "(char=? '#\\/ c_98)))" "(let-values()" "(begin" "(consume-char in_55 c_98)" "(accum-string-add! accum-str_10 c_98)" -"(loop_116)))" +"(loop_119)))" "(let-values()" "(begin" "(consume-char in_55 c_98)" @@ -53064,7 +53505,7 @@ static const char *startup_source = "(list" " extend-str100_0" " c101_0))))))))))))))" -" loop_116))" +" loop_119))" "(values))))" "(let-values(((lang-str_0)" "(let-values(((accum-str102_0) accum-str_10)((config103_0) config_51))" @@ -53166,17 +53607,17 @@ static const char *startup_source = "(lambda(c_99)" "(begin" "(if(<(char->integer c_99) 128)" -"(let-values(((or-part_289)(char-alphabetic? c_99)))" -"(if or-part_289" -" or-part_289" -"(let-values(((or-part_290)(char-numeric? c_99)))" -"(if or-part_290" -" or-part_290" -"(let-values(((or-part_352)(char=? '#\\- c_99)))" -"(if or-part_352" -" or-part_352" -"(let-values(((or-part_353)(char=? '#\\+ c_99)))" -"(if or-part_353 or-part_353(char=? '#\\_ c_99)))))))))" +"(let-values(((or-part_295)(char-alphabetic? c_99)))" +"(if or-part_295" +" or-part_295" +"(let-values(((or-part_296)(char-numeric? c_99)))" +"(if or-part_296" +" or-part_296" +"(let-values(((or-part_358)(char=? '#\\- c_99)))" +"(if or-part_358" +" or-part_358" +"(let-values(((or-part_359)(char=? '#\\+ c_99)))" +"(if or-part_359 or-part_359(char=? '#\\_ c_99)))))))))" " #f))))" "(define-values" "(read-extension-prefix)" @@ -53188,11 +53629,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_30)))" "((letrec-values(((for-loop_24)" -"(lambda(lst_302)" +"(lambda(lst_300)" "(begin" " 'for-loop" -"(if(pair? lst_302)" -"(let-values(((c_100)(unsafe-car lst_302))((rest_173)(unsafe-cdr lst_302)))" +"(if(pair? lst_300)" +"(let-values(((c_100)(unsafe-car lst_300))((rest_173)(unsafe-cdr lst_300)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -53207,7 +53648,7 @@ static const char *startup_source = " for-loop_24)" " lst_30)))" "(void)" -"((letrec-values(((loop_117)" +"((letrec-values(((loop_120)" "(lambda(wanted_1)" "(begin" " 'loop" @@ -53229,8 +53670,8 @@ static const char *startup_source = "(accum-string-get!6.1 #f #f accum-str122_0 config123_0)))" "((c121_0) c_101))" "(bad-syntax-error18.1 c121_0 #t in_57 config_52 temp120_2))))" -"(loop_117(cdr wanted_1))))))))))" -" loop_117)" +"(loop_120(cdr wanted_1))))))))))" +" loop_120)" " wanted_0)" "(let-values(((accum-str116_0) accum-str_11)((config117_0) config_52))" "(accum-string-get!6.1 #f #f accum-str116_0 config117_0)))))))" @@ -53265,7 +53706,7 @@ static const char *startup_source = "(let-values((()(begin(force-parameters! config_53)(values))))" "(let-values(((guard_0)(1/current-reader-guard)))" "(let-values(((mod-path_27)" -"(let-values(((or-part_304)" +"(let-values(((or-part_310)" "(if try-first-mod-path_0" "(let-values(((mod-path_28)(guard_0 try-first-mod-path_0)))" "(if((read-config-module-declared? config_53)" @@ -53273,7 +53714,7 @@ static const char *startup_source = " mod-path_28" " #f))" " #f)))" -"(if or-part_304 or-part_304(guard_0 mod-path-datum_0)))))" +"(if or-part_310 or-part_310(guard_0 mod-path-datum_0)))))" "(let-values(((for-syntax?_8)(read-config-for-syntax? config_53)))" "(let-values(((dynamic-require_2)(read-config-dynamic-require config_53)))" "(let-values(((no-value_0)(gensym)))" @@ -53531,26 +53972,26 @@ static const char *startup_source = " #t" " wrap63_0" " #t)))))))" -"(let-values(((v_133)(read-one init-c_5 in_12 config_54)))" -"(if(if(let-values(((or-part_288)(not recursive?_0)))" -"(if or-part_288 or-part_288 local-graph?_1))" +"(let-values(((v_135)(read-one init-c_5 in_12 config_54)))" +"(if(if(let-values(((or-part_294)(not recursive?_0)))" +"(if or-part_294 or-part_294 local-graph?_1))" "(read-config-state-graph(read-config-st config_54))" " #f)" "(let-values()" "(catch-and-reraise-as-reader/proc" " #f" " config_54" -"(lambda()(make-reader-graph v_133))))" +"(lambda()(make-reader-graph v_135))))" "(if(if recursive?_0" "(if(not local-graph?_1)" "(if(not for-syntax?_9)" -"(if(not(eof-object? v_133))(not(1/special-comment? v_133)) #f)" +"(if(not(eof-object? v_135))(not(1/special-comment? v_135)) #f)" " #f)" " #f)" " #f)" "(let-values()" -"(begin(get-graph-hash config_54)(make-placeholder v_133)))" -"(let-values() v_133))))))))))))))))))))))))" +"(begin(get-graph-hash config_54)(make-placeholder v_135)))" +"(let-values() v_135))))))))))))))))))))))))" "(define-values" "(read-language49.1)" "(lambda(coerce38_0" @@ -53625,12 +54066,12 @@ static const char *startup_source = "(if(check-parameter 1/read-cdot config_57)" "(let-values()" "(let-values(((line_10 col_9 pos_98)(port-next-location in_61)))" -"(let-values(((v_234)(read-undotted init-c_14 in_61 config_57)))" -"(if(1/special-comment? v_234)" -"(let-values() v_234)" +"(let-values(((v_236)(read-undotted init-c_14 in_61 config_57)))" +"(if(1/special-comment? v_236)" +"(let-values() v_236)" "(let-values()" -"((letrec-values(((loop_118)" -"(lambda(v_235)" +"((letrec-values(((loop_121)" +"(lambda(v_237)" "(begin" " 'loop" "(let-values(((c_102)" @@ -53646,9 +54087,9 @@ static const char *startup_source = "(if(eq? c_103 'special)(special1.1 'special) c_103)))))" "(let-values(((ec_9)(effective-char c_102 config_57)))" "(if(not(char? ec_9))" -"(let-values() v_235)" +"(let-values() v_237)" "(if(char-whitespace? ec_9)" -"(let-values()(begin(consume-char in_61 c_102)(loop_118 v_235)))" +"(let-values()(begin(consume-char in_61 c_102)(loop_121 v_237)))" "(if(char=? ec_9 '#\\.)" "(let-values()" "(let-values(((dot-line_2 dot-col_2 dot-pos_5)" @@ -53666,15 +54107,15 @@ static const char *startup_source = " '#\\.)))" "(let-values(((post-v_0)" "(read-undotted #f in_61 config_57)))" -"(loop_118" +"(loop_121" "(wrap" -"(list cdot_0 v_235 post-v_0)" +"(list cdot_0 v_237 post-v_0)" " in_61" "(reading-at config_57 line_10 col_9 pos_98)" " '#\\.)))))))" -"(let-values() v_235))))))))))" -" loop_118)" -" v_234))))))" +"(let-values() v_237))))))))))" +" loop_121)" +" v_236))))))" "(void))))))" "(define-values" "(read-undotted)" @@ -53686,15 +54127,15 @@ static const char *startup_source = "(let-values() eof)" "(if(not(char? c_104))" "(let-values()" -"(let-values(((v_236)(special-value c_104)))" -"(if(1/special-comment? v_236)" -"(let-values()(if(read-config-keep-comment? config_58) v_236(read-undotted #f in_63 config_58)))" -"(let-values()(coerce v_236 in_63(reading-at config_58 line_11 col_10 pos_118))))))" +"(let-values(((v_238)(special-value c_104)))" +"(if(1/special-comment? v_238)" +"(let-values()(if(read-config-keep-comment? config_58) v_238(read-undotted #f in_63 config_58)))" +"(let-values()(coerce v_238 in_63(reading-at config_58 line_11 col_10 pos_118))))))" "(let-values(((c2_7)(readtable-handler config_58 c_104)))" "(if c2_7" "((lambda(handler_3)" -"(let-values(((v_237)(readtable-apply handler_3 c_104 in_63 config_58 line_11 col_10 pos_118)))" -"(retry-special-comment v_237 in_63 config_58)))" +"(let-values(((v_239)(readtable-apply handler_3 c_104 in_63 config_58 line_11 col_10 pos_118)))" +"(retry-special-comment v_239 in_63 config_58)))" " c2_7)" "(let-values()" "(let-values(((ec_10)(effective-char c_104 config_58)))" @@ -53705,10 +54146,10 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((r-config_0)(reading-at(discard-comment config_58) line_11 col_10 pos_118)))" -"(let-values(((tmp_55) ec_10))" +"(let-values(((tmp_56) ec_10))" "(let-values(((index_4)" -"(if(char? tmp_55)" -"(let-values(((codepoint_2)(char->integer tmp_55)))" +"(if(char? tmp_56)" +"(let-values(((codepoint_2)(char->integer tmp_56)))" "(if(if(unsafe-fx>= codepoint_2 34)(unsafe-fx< codepoint_2 126) #f)" "(if(unsafe-fx< codepoint_2 91)" "(if(unsafe-fx< codepoint_2 40)" @@ -53763,11 +54204,11 @@ static const char *startup_source = "(if(unsafe-fx< index_4 2)" "(if(unsafe-fx< index_4 1)" "(let-values()" -"(let-values(((v_191)" +"(let-values(((v_193)" "(let-values(((temp82_4)" -"(if(let-values(((or-part_354)(eq? c_104 ec_10)))" -"(if or-part_354" -" or-part_354" +"(if(let-values(((or-part_360)(eq? c_104 ec_10)))" +"(if or-part_360" +" or-part_360" "(if(<(char->integer ec_10) 128)" "(char-numeric? ec_10)" " #f)))" @@ -53781,7 +54222,7 @@ static const char *startup_source = " c_104" " in_63" " r-config_0))))" -"(retry-special-comment v_191 in_63 config_58)))" +"(retry-special-comment v_193 in_63 config_58)))" "(let-values()(read-dispatch c_104 in_63 r-config_0 config_58)))" "(if(unsafe-fx< index_4 3)" " (let-values () (read-quote read-one 'quote \"quoting '\" c_104 in_63 r-config_0))" @@ -53898,10 +54339,10 @@ static const char *startup_source = "(list temp101_3))))" "(if(unsafe-fx< index_4 8)" "(let-values()" -"(if(let-values(((or-part_278)" +"(if(let-values(((or-part_285)" "(check-parameter 1/read-square-bracket-as-paren config_58)))" -"(if or-part_278" -" or-part_278" +"(if or-part_285" +" or-part_285" "(check-parameter 1/read-square-bracket-with-tag config_58)))" "(let-values()" "(wrap" @@ -53947,10 +54388,10 @@ static const char *startup_source = " temp111_2" "(list c112_0))))))" "(let-values()" -"(if(let-values(((or-part_355)" +"(if(let-values(((or-part_361)" "(check-parameter 1/read-square-bracket-as-paren config_58)))" -"(if or-part_355" -" or-part_355" +"(if or-part_361" +" or-part_361" "(check-parameter 1/read-square-bracket-with-tag config_58)))" "(let-values()" "(let-values(((in113_0) in_63)" @@ -53990,10 +54431,10 @@ static const char *startup_source = "(list c120_0))))))))" "(if(unsafe-fx< index_4 10)" "(let-values()" -"(if(let-values(((or-part_356)" +"(if(let-values(((or-part_362)" "(check-parameter 1/read-curly-brace-as-paren config_58)))" -"(if or-part_356" -" or-part_356" +"(if or-part_362" +" or-part_362" "(check-parameter 1/read-curly-brace-with-tag config_58)))" "(let-values()" "(wrap" @@ -54040,10 +54481,10 @@ static const char *startup_source = "(list c131_0))))))" "(if(unsafe-fx< index_4 11)" "(let-values()" -"(if(let-values(((or-part_357)" +"(if(let-values(((or-part_363)" "(check-parameter 1/read-curly-brace-as-paren config_58)))" -"(if or-part_357" -" or-part_357" +"(if or-part_363" +" or-part_363" "(check-parameter 1/read-curly-brace-with-tag config_58)))" "(let-values()" "(let-values(((in132_0) in_63)" @@ -54116,16 +54557,16 @@ static const char *startup_source = "(let-values(((line_12)(read-config-line config_59)))" "(let-values(((col_11)(read-config-col config_59)))" "(let-values(((pos_119)(read-config-pos config_59)))" -"(let-values(((v_238)" +"(let-values(((v_240)" "(readtable-apply handler_4 c_106 in_65 config_59 line_12 col_11 pos_119)))" -"(retry-special-comment v_238 in_65 orig-config_0))))))" +"(retry-special-comment v_240 in_65 orig-config_0))))))" " c3_8)" "(let-values()" "(let-values()" -"(let-values(((tmp_56) c_106))" +"(let-values(((tmp_57) c_106))" "(let-values(((index_5)" -"(if(char? tmp_56)" -"(let-values(((codepoint_3)(char->integer tmp_56)))" +"(if(char? tmp_57)" +"(let-values(((codepoint_3)(char->integer tmp_57)))" "(if(if(unsafe-fx>= codepoint_3 33)(unsafe-fx< codepoint_3 127) #f)" "(let-values(((tbl_5)" " '#(34" @@ -54442,8 +54883,8 @@ static const char *startup_source = "(if(eq? c_110 'special)(special1.1 'special) c_110)))))" "(if(char-delimiter? c2_11 config_59)" "(let-values()(wrap #f in_65 config_59 c_106))" -"(if(let-values(((or-part_341)(char=? c2_11 '#\\x)))" -"(if or-part_341 or-part_341(char=? c2_11 '#\\l)))" +"(if(let-values(((or-part_347)(char=? c2_11 '#\\x)))" +"(if or-part_347 or-part_347(char=? c2_11 '#\\l)))" "(let-values()" "(read-fixnum-or-flonum-vector" " read-one" @@ -54557,11 +54998,11 @@ static const char *startup_source = "(let-values(((in_71) in_65)" "((source_51)(read-config-source config_59)))" "(read-char-or-special in_71 special1.1 source_51))))" -"(let-values(((tmp_57) c2_12))" -"(if(if(equal? tmp_57 '#\\s) #t(equal? tmp_57 '#\\S))" +"(let-values(((tmp_58) c2_12))" +"(if(if(equal? tmp_58 '#\\s) #t(equal? tmp_58 '#\\S))" "(let-values()" "(read-one #f in_65(override-parameter read-case-sensitive config_59 #t)))" -"(if(if(equal? tmp_57 '#\\i) #t(equal? tmp_57 '#\\I))" +"(if(if(equal? tmp_58 '#\\i) #t(equal? tmp_58 '#\\I))" "(let-values()" "(read-one" " #f" @@ -54598,10 +55039,10 @@ static const char *startup_source = "(if(char? c2_13)" "(let-values()(accum-string-add! accum-str_12 c2_13))" "(void))" -"(let-values(((tmp_58) c2_13))" -"(if(equal? tmp_58 '#\\x)" +"(let-values(((tmp_59) c2_13))" +"(if(equal? tmp_59 '#\\x)" "(let-values()(read-regexp c_106 accum-str_12 in_65 config_59))" -"(if(equal? tmp_58 '#\\e)" +"(if(equal? tmp_59 '#\\e)" "(let-values()" "(read-extension-reader" " read-one" @@ -54638,8 +55079,8 @@ static const char *startup_source = "(if(char? c2_14)" "(let-values()(accum-string-add! accum-str_13 c2_14))" "(void))" -"(let-values(((tmp_13) c2_14))" -"(if(equal? tmp_13 '#\\x)" +"(let-values(((tmp_14) c2_14))" +"(if(equal? tmp_14 '#\\x)" "(let-values()(read-regexp c_106 accum-str_13 in_65 config_59))" "(let-values()" "(let-values(((c2264_0) c2_14)" @@ -54705,11 +55146,11 @@ static const char *startup_source = "(list dispatch-c279_0)))))))))))))))))))))))))" "(define-values" "(retry-special-comment)" -"(lambda(v_239 in_74 config_60)" +"(lambda(v_241 in_74 config_60)" "(begin" -"(if(1/special-comment? v_239)" -"(let-values()(if(read-config-keep-comment? config_60) v_239(read-undotted #f in_74 config_60)))" -"(let-values() v_239)))))" +"(if(1/special-comment? v_241)" +"(let-values()(if(read-config-keep-comment? config_60) v_241(read-undotted #f in_74 config_60)))" +"(let-values() v_241)))))" "(define-values" "(1/module-declared?)" "(let-values(((module-declared?4_0)" @@ -54726,11 +55167,11 @@ static const char *startup_source = "(let-values()" "(raise-argument-error 'module-declared? module-reference-str mod_4)))" "(values))))" -"(let-values(((ns_107)(1/current-namespace)))" +"(let-values(((ns_106)(1/current-namespace)))" "(let-values(((name_69)" "(let-values(((load?36_0) load?_3))" "(reference->resolved-module-path32.1 load?36_0 mod_4))))" -"(if(namespace->module ns_107 name_69) #t #f)))))))))))" +"(if(namespace->module ns_106 name_69) #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)))))" @@ -54796,12 +55237,12 @@ static const char *startup_source = "(lambda(mod_15)" "(begin" " 'module->exports" -"(let-values(((provides_12 self_26)" +"(let-values(((provides_12 self_29)" "(module->" "(lambda(m_26)(values(module-provides m_26)(module-self m_26)))" " 'module->exports" " mod_15)))" -"(provides->api-provides provides_12 self_26)))))" +"(provides->api-provides provides_12 self_29)))))" "(define-values" "(1/module->indirect-exports)" "(lambda(mod_16)" @@ -54813,13 +55254,13 @@ static const char *startup_source = " mod_16))))" "(define-values" "(1/module-provide-protected?)" -"(lambda(mod_17 sym_90)" +"(lambda(mod_17 sym_91)" "(begin" " 'module-provide-protected?" "(module->" "(lambda(m_28)" -"(let-values(((b/p_3)(hash-ref(module-provides m_28) sym_90 #f)))" -"(let-values(((or-part_168)(not b/p_3)))(if or-part_168 or-part_168(provided-as-protected? b/p_3)))))" +"(let-values(((b/p_3)(hash-ref(module-provides m_28) sym_91 #f)))" +"(let-values(((or-part_175)(not b/p_3)))(if or-part_175 or-part_175(provided-as-protected? b/p_3)))))" " 'module-provide-protected?" " mod_17))))" "(define-values" @@ -54829,7 +55270,7 @@ static const char *startup_source = "(begin" " 'module->namespace21" "(let-values(((mod_18) mod20_0))" -"(let-values(((ns_108)(if ns19_0 ns18_1(1/current-namespace))))" +"(let-values(((ns_107)(if ns19_0 ns18_1(1/current-namespace))))" "(let-values()" "(let-values((()" "(begin" @@ -54840,19 +55281,19 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(1/namespace? ns_108)" +"(if(1/namespace? ns_107)" "(void)" "(let-values()" -" (raise-argument-error 'module->namespace \"namespace?\" ns_108)))" +" (raise-argument-error 'module->namespace \"namespace?\" ns_107)))" "(values))))" "(let-values(((name_41)" "(let-values(((temp45_1) #t))" "(reference->resolved-module-path32.1 temp45_1 mod_18))))" -"(let-values(((phase_94)(namespace-phase ns_108)))" +"(let-values(((phase_95)(namespace-phase ns_107)))" "(let-values(((m-ns_17)" -"(let-values(((ns46_0) ns_108)" -"((name47_1) name_41)" -"((phase48_0) phase_94))" +"(let-values(((ns46_0) ns_107)" +"((name47_0) name_41)" +"((phase48_0) phase_95))" "(namespace->module-namespace82.1" " #f" " #f" @@ -54861,14 +55302,14 @@ static const char *startup_source = " #f" " #f" " ns46_0" -" name47_1" +" name47_0" " phase48_0))))" "(begin" "(if m-ns_17" "(void)" "(let-values()" "(begin" -"(namespace->module/complain 'module->namespace ns_108 name_41)" +"(namespace->module/complain 'module->namespace ns_107 name_41)" "(raise-arguments-error" " 'module->namespace" " \"module not instantiated in the current namespace\"" @@ -54887,10 +55328,11 @@ static const char *startup_source = "(let-values()" "(namespace-set-root-expand-ctx!" " m-ns_17" -"(let-values()(make-root-expand-context11.1 #f #f #f #f #f #f #f #f)))))" -"(let-values(((ns41_2) ns_108)" +"(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_2) ns_107)" "((temp42_4)(namespace-mpi m-ns_17))" -"((phase43_2) phase_94))" +"((phase43_2) phase_95))" "(namespace-module-make-available!112.1 #f #f ns41_2 temp42_4 phase43_2))" " m-ns_17)))))))))))))" "(case-lambda" @@ -54902,19 +55344,19 @@ static const char *startup_source = "(lambda(insp25_0 mod26_0 ns23_0 ns24_1)" "(begin" " 'namespace-unprotect-module27" -"(let-values(((insp_18) insp25_0))" +"(let-values(((insp_11) insp25_0))" "(let-values(((mod_21) mod26_0))" -"(let-values(((ns_109)(if ns24_1 ns23_0(1/current-namespace))))" +"(let-values(((ns_108)(if ns24_1 ns23_0(1/current-namespace))))" "(let-values()" "(let-values((()" "(begin" -"(if(inspector? insp_18)" +"(if(inspector? insp_11)" "(void)" "(let-values()" "(raise-argument-error" " 'namespace-unprotect-module" " \"inspector?\"" -" insp_18)))" +" insp_11)))" "(values))))" "(let-values((()" "(begin" @@ -54928,22 +55370,22 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(1/namespace? ns_109)" +"(if(1/namespace? ns_108)" "(void)" "(let-values()" "(raise-argument-error" " 'namespace-unprotect-module" " \"namespace?\"" -" ns_109)))" +" ns_108)))" "(values))))" -"(let-values(((name_70)" -"(let-values(((temp50_4) #f))" -"(reference->resolved-module-path32.1 temp50_4 mod_21))))" -"(let-values(((phase_95)(namespace-phase ns_109)))" +"(let-values(((name_61)" +"(let-values(((temp51_3) #f))" +"(reference->resolved-module-path32.1 temp51_3 mod_21))))" +"(let-values(((phase_141)(namespace-phase ns_108)))" "(let-values(((m-ns_18)" -"(let-values(((ns51_1) ns_109)" -"((name52_0) name_70)" -"((phase53_0) phase_95))" +"(let-values(((ns52_0) ns_108)" +"((name53_0) name_61)" +"((phase54_0) phase_141))" "(namespace->module-namespace82.1" " #f" " #f" @@ -54951,9 +55393,9 @@ static const char *startup_source = " #f" " #f" " #f" -" ns51_1" -" name52_0" -" phase53_0))))" +" ns52_0" +" name53_0" +" phase54_0))))" "(begin" "(if m-ns_18" "(void)" @@ -54962,33 +55404,33 @@ static const char *startup_source = " 'namespace-unprotect-module" " \"module not instantiated\"" " \"module name\"" -" name_70)))" -"(if(inspector-superior? insp_18(namespace-inspector m-ns_18))" +" name_61)))" +"(if(inspector-superior? insp_11(namespace-inspector m-ns_18))" "(let-values()" "(set-namespace-inspector!" " m-ns_18" "(make-inspector(current-code-inspector))))" "(void)))))))))))))))))" "(case-lambda" -"((insp_12 mod_22)(begin 'namespace-unprotect-module(namespace-unprotect-module27_0 insp_12 mod_22 #f #f)))" +"((insp_18 mod_22)(begin 'namespace-unprotect-module(namespace-unprotect-module27_0 insp_18 mod_22 #f #f)))" "((insp_19 mod_23 ns23_1)(namespace-unprotect-module27_0 insp_19 mod_23 ns23_1 #t)))))" "(define-values" "(namespace->module/complain)" -"(lambda(who_32 ns_110 name_62)" +"(lambda(who_32 ns_109 name_70)" "(begin" -"(let-values(((or-part_25)(namespace->module ns_110 name_62)))" -"(if or-part_25" -" or-part_25" -" (raise-arguments-error who_32 \"unknown module in the current namespace\" \"name\" name_62))))))" +"(let-values(((or-part_30)(namespace->module ns_109 name_70)))" +"(if or-part_30" +" or-part_30" +" (raise-arguments-error who_32 \"unknown module in the current namespace\" \"name\" name_70))))))" "(define-values" "(module-reference?)" "(lambda(mod_24)" "(begin" -"(let-values(((or-part_358)(1/module-path? mod_24)))" -"(if or-part_358" -" or-part_358" -"(let-values(((or-part_255)(1/module-path-index? mod_24)))" -"(if or-part_255 or-part_255(1/resolved-module-path? mod_24))))))))" +"(let-values(((or-part_262)(1/module-path? mod_24)))" +"(if or-part_262" +" or-part_262" +"(let-values(((or-part_217)(1/module-path-index? mod_24)))" +"(if or-part_217 or-part_217(1/resolved-module-path? mod_24))))))))" " (define-values (module-reference-str) \"(or/c module-path? module-path-index? resolved-module-path?)\")" "(define-values" "(reference->resolved-module-path32.1)" @@ -55149,27 +55591,27 @@ static const char *startup_source = "(read-to-syntax)" "(lambda(s-exp_4 srcloc_10 rep_1)" "(begin" -"(let-values(((the-struct_88) empty-syntax))" -"(if(syntax?$1 the-struct_88)" +"(let-values(((the-struct_90) empty-syntax))" +"(if(syntax?$1 the-struct_90)" "(let-values(((content63_0)(datum-intern-literal s-exp_4))" "((srcloc64_0) srcloc_10)" "((props65_0)" -"(let-values(((tmp_59) rep_1))" -"(if(equal? tmp_59 '#\\[)" +"(let-values(((tmp_60) rep_1))" +"(if(equal? tmp_60 '#\\[)" "(let-values() original-square-props)" -"(if(equal? tmp_59 '#\\{)" +"(if(equal? tmp_60 '#\\{)" "(let-values() original-curly-props)" "(let-values() original-props))))))" "(syntax1.1" " content63_0" -"(syntax-scopes the-struct_88)" -"(syntax-shifted-multi-scopes the-struct_88)" -"(syntax-scope-propagations+tamper the-struct_88)" -"(syntax-mpi-shifts the-struct_88)" +"(syntax-scopes the-struct_90)" +"(syntax-shifted-multi-scopes the-struct_90)" +"(syntax-scope-propagations+tamper the-struct_90)" +"(syntax-mpi-shifts the-struct_90)" " srcloc64_0" " props65_0" -"(syntax-inspector the-struct_88)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_88))))))" +"(syntax-inspector the-struct_90)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_90))))))" "(define-values(original-props)(syntax-props(syntax-property$1 empty-syntax original-property-sym #t)))" "(define-values" "(original-square-props)" @@ -55180,11 +55622,11 @@ static const char *startup_source = "(define-values(read-module-declared?)(lambda(mod-path_29)(begin(1/module-declared? mod-path_29 #t))))" "(define-values" "(read-coerce)" -"(lambda(for-syntax?_12 v_240 srcloc_11)" +"(lambda(for-syntax?_12 v_242 srcloc_11)" "(begin" "(if(not for-syntax?_12)" -"(let-values()(if(syntax?$1 v_240)(let-values()(syntax->datum$1 v_240))(let-values() v_240)))" -"(let-values()(datum->syntax$1 #f v_240(if srcloc_11(to-srcloc-stx srcloc_11) #f)))))))" +"(let-values()(if(syntax?$1 v_242)(let-values()(syntax->datum$1 v_242))(let-values() v_242)))" +"(let-values()(datum->syntax$1 #f v_242(if srcloc_11(to-srcloc-stx srcloc_11) #f)))))))" "(define-values" "(read-coerce-key)" "(lambda(for-syntax?_13 k_41)" @@ -55214,7 +55656,7 @@ static const char *startup_source = "(begin" " 'dynamic-require-reader21" "(let-values(((mod-path_30) mod-path19_0))" -"(let-values(((sym_91) sym20_0))" +"(let-values(((sym_92) sym20_0))" "(let-values(((fail-thunk_1)" "(if fail-thunk18_0 fail-thunk17_0 default-dynamic-require-fail-thunk)))" "(let-values()" @@ -55226,11 +55668,11 @@ static const char *startup_source = "(continuation-mark-set-first #f parameterization-key)" " 1/current-namespace" " root-ns_0)" -"(let-values()(1/dynamic-require mod-path_30 sym_91 fail-thunk_1)))" -"(1/dynamic-require mod-path_30 sym_91 fail-thunk_1)))))))))))" +"(let-values()(1/dynamic-require mod-path_30 sym_92 fail-thunk_1)))" +"(1/dynamic-require mod-path_30 sym_92 fail-thunk_1)))))))))))" "(case-lambda" "((mod-path_31 sym_14)(begin(dynamic-require-reader21_0 mod-path_31 sym_14 #f #f)))" -"((mod-path_32 sym_92 fail-thunk17_1)(dynamic-require-reader21_0 mod-path_32 sym_92 fail-thunk17_1 #t)))))" +"((mod-path_32 sym_93 fail-thunk17_1)(dynamic-require-reader21_0 mod-path_32 sym_93 fail-thunk17_1 #t)))))" "(define-values" "(1/read-syntax)" "(let-values(((read-syntax5_0)" @@ -55274,13 +55716,13 @@ static const char *startup_source = "(if(input-port? in_76)" "(void)" " (let-values () (raise-argument-error 'read-syntax/recursive \"input-port?\" in_76)))" -"(if(let-values(((or-part_259)(char? start_58)))" -"(if or-part_259 or-part_259(not start_58)))" +"(if(let-values(((or-part_364)(char? start_58)))" +"(if or-part_364 or-part_364(not start_58)))" "(void)" "(let-values()" " (raise-argument-error 'read-syntax/recursive \"(or/c char? #f)\" start_58)))" -"(if(let-values(((or-part_160)(1/readtable? readtable_5)))" -"(if or-part_160 or-part_160(not readtable_5)))" +"(if(let-values(((or-part_166)(1/readtable? readtable_5)))" +"(if or-part_166 or-part_166(not readtable_5)))" "(void)" "(let-values()" " (raise-argument-error 'read-syntax/recursive \"(or/c readtable? #f)\" readtable_5)))" @@ -55323,12 +55765,12 @@ static const char *startup_source = "(if(input-port? in_83)" "(void)" " (let-values () (raise-argument-error 'read/recursive \"input-port?\" in_83)))" -"(if(let-values(((or-part_168)(char? start_61)))" -"(if or-part_168 or-part_168(not start_61)))" +"(if(let-values(((or-part_175)(char? start_61)))" +"(if or-part_175 or-part_175(not start_61)))" "(void)" " (let-values () (raise-argument-error 'read/recursive \"(or/c char? #f)\" start_61)))" -"(if(let-values(((or-part_169)(1/readtable? readtable_8)))" -"(if or-part_169 or-part_169(not readtable_8)))" +"(if(let-values(((or-part_176)(1/readtable? readtable_8)))" +"(if or-part_176 or-part_176(not readtable_8)))" "(void)" "(let-values()" " (raise-argument-error 'read/recursive \"(or/c readtable? #f)\" readtable_8)))" @@ -55384,13 +55826,13 @@ 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_168 ns_111)" +"((s_168 ns_110)" "(begin" " (if (syntax?$1 s_168) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_168)))" -" (if (1/namespace? ns_111) (void) (let-values () (raise-argument-error 'eval-syntax \"namespace?\" ns_111)))" +" (if (1/namespace? ns_110) (void) (let-values () (raise-argument-error 'eval-syntax \"namespace?\" ns_110)))" "(with-continuation-mark" " parameterization-key" -"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_111)" +"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_110)" "(let-values()((1/current-eval) s_168)))))))" "(define-values(compile$1)(lambda(s_2)(begin 'compile((1/current-compile)(intro s_2) #f))))" "(define-values" @@ -55421,15 +55863,15 @@ static const char *startup_source = "(expand-once$1 s_9)))))" "(define-values" "(1/expand-to-top-form)" -"(lambda(s_474)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_474)))))" +"(lambda(s_475)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_475)))))" "(define-values" "(1/expand-syntax-to-top-form)" -"(lambda(s_421)" +"(lambda(s_422)" "(begin" " 'expand-syntax-to-top-form" "(begin" -" (if (syntax?$1 s_421) (void) (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_421)))" -"(expand-to-top-form$1 s_421)))))" +" (if (syntax?$1 s_422) (void) (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_422)))" +"(expand-to-top-form$1 s_422)))))" "(define-values" "(intro)" "(let-values(((intro4_0)" @@ -55437,10 +55879,10 @@ static const char *startup_source = "(begin" " 'intro4" "(let-values(((given-s_1) given-s3_0))" -"(let-values(((ns_112)(if ns2_1 ns1_6(1/current-namespace))))" +"(let-values(((ns_111)(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_112)))))))))" +"(1/namespace-syntax-introduce s_10 ns_111)))))))))" "(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!)" @@ -55453,24 +55895,24 @@ static const char *startup_source = "((cross-phase-persistent?5_0) cross-phase-persistent?_3)" "((temp6_4)(zero?(hash-count protected_0)))" "((mpi7_0) mpi_48)" -"((temp8_5)" +"((temp8_4)" "(hasheqv" " 0" -"(let-values(((lst_260)(1/instance-variable-names inst_7)))" +"(let-values(((lst_301)(1/instance-variable-names inst_7)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_260)))" -"((letrec-values(((for-loop_202)" -"(lambda(table_163 lst_94)" +"(let-values()(check-list lst_301)))" +"((letrec-values(((for-loop_203)" +"(lambda(table_166 lst_94)" "(begin" " 'for-loop" "(if(pair? lst_94)" -"(let-values(((sym_93)(unsafe-car lst_94))" +"(let-values(((sym_94)(unsafe-car lst_94))" "((rest_45)(unsafe-cdr lst_94)))" -"(let-values(((table_204)" -"(let-values(((table_205) table_163))" -"(let-values(((table_164)" +"(let-values(((table_206)" +"(let-values(((table_207) table_166))" +"(let-values(((table_167)" "(let-values()" "(let-values(((key_86" " val_76)" @@ -55481,7 +55923,7 @@ static const char *startup_source = "((temp11_6)" " 0)" "((sym12_0)" -" sym_93))" +" sym_94))" "(make-module-binding22.1" " #f" " #f" @@ -55505,10 +55947,10 @@ static const char *startup_source = " temp11_6" " sym12_0))))" "(values" -" sym_93" +" sym_94" "(if(hash-ref" " protected_0" -" sym_93" +" sym_94" " #f)" "(provided1.1" " binding_27" @@ -55516,40 +55958,40 @@ static const char *startup_source = " #f)" " binding_27))))))" "(hash-set" -" table_205" +" table_207" " key_86" " val_76)))))" -"(values table_164)))))" +"(values table_167)))))" "(if(not #f)" -"(for-loop_202 table_204 rest_45)" -" table_204)))" -" table_163)))))" -" for-loop_202)" +"(for-loop_203 table_206 rest_45)" +" table_206)))" +" table_166)))))" +" for-loop_203)" " '#hash()" -" lst_260)))))" -"((temp9_5)" +" lst_301)))))" +"((temp9_6)" "(lambda(data-box_5" -" ns_113" +" ns_112" " phase-shift_19" -" phase-level_21" -" self_27" +" phase-level_22" +" self_30" " bulk-binding-registry_18" " insp_20)" -"(if(= 0 phase-level_21)" +"(if(= 0 phase-level_22)" "(let-values()" "(begin" -"(let-values(((lst_300)(1/instance-variable-names inst_7)))" +"(let-values(((lst_298)(1/instance-variable-names inst_7)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_300)))" +"(let-values()(check-list lst_298)))" "((letrec-values(((for-loop_220)" -"(lambda(lst_264)" +"(lambda(lst_261)" "(begin" " 'for-loop" -"(if(pair? lst_264)" -"(let-values(((sym_94)(unsafe-car lst_264))" -"((rest_174)(unsafe-cdr lst_264)))" +"(if(pair? lst_261)" +"(let-values(((sym_95)(unsafe-car lst_261))" +"((rest_174)(unsafe-cdr lst_261)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -55559,11 +56001,11 @@ static const char *startup_source = "(let-values(((val_77)" "(1/instance-variable-value" " inst_7" -" sym_94)))" +" sym_95)))" "(namespace-set-variable!" -" ns_113" +" ns_112" " 0" -" sym_94" +" sym_95" " val_77)))" "(values)))))" "(values)))))" @@ -55572,7 +56014,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_220)" -" lst_300)))" +" lst_298)))" "(void)))" "(void)))))" "(make-module39.1" @@ -55582,7 +56024,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp9_5" +" temp9_6" " #f" " #f" " #f" @@ -55599,7 +56041,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp8_5" +" temp8_4" " #f" " #f" " mpi7_0" @@ -55615,12 +56057,12 @@ static const char *startup_source = "(1/prop:missing-module 1/exn:missing-module? 1/exn:missing-module-accessor)" "(make-struct-type-property" " 'missing-module" -"(lambda(v_27 info_6)" +"(lambda(v_30 info_6)" "(begin" -"(if(if(procedure? v_27)(procedure-arity-includes? v_27 1) #f)" +"(if(if(procedure? v_30)(procedure-arity-includes? v_30 1) #f)" "(void)" -" (let-values () (raise-argument-error 'guard-for-prop:missing-module \"(procedure-arity-includes/c 1)\" v_27)))" -" v_27))))" +" (let-values () (raise-argument-error 'guard-for-prop:missing-module \"(procedure-arity-includes/c 1)\" v_30)))" +" v_30))))" "(define-values" "(1/struct:exn:fail:filesystem:missing-module" " 1/make-exn:fail:filesystem:missing-module" @@ -55668,13 +56110,13 @@ static const char *startup_source = "(1/current-module-path-for-load)" "(make-parameter" " #f" -"(lambda(v_180)" +"(lambda(v_181)" "(begin" -"(if(let-values(((or-part_30)(not v_180)))" -"(if or-part_30" -" or-part_30" -"(let-values(((or-part_31)(1/module-path? v_180)))" -"(if or-part_31 or-part_31(if(syntax?$1 v_180)(1/module-path?(syntax->datum$1 v_180)) #f)))))" +"(if(let-values(((or-part_36)(not v_181)))" +"(if or-part_36" +" or-part_36" +"(let-values(((or-part_37)(1/module-path? v_181)))" +"(if or-part_37 or-part_37(if(syntax?$1 v_181)(1/module-path?(syntax->datum$1 v_181)) #f)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -55683,8 +56125,8 @@ static const char *startup_source = " \"(or/c module-path?\"" " \" (and/c syntax? (lambda (stx) (module-path? (syntax->datum stx))))\"" " \" #f)\")" -" v_180)))" -" v_180))))" +" v_181)))" +" v_181))))" "(define-values" "(maybe-raise-missing-module)" "(lambda(name_72 filename_0 pre_0 rel_0 post_0 errstr_0)" @@ -55776,14 +56218,14 @@ static const char *startup_source = "(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_425) s12_2))" +"(let-values(((s_426) 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_425)" +"((s65_0) s_426)" "((context66_0) context_12)" "((stop-ids67_0) stop-ids_5)" "((intdefs68_0) intdefs_4)" @@ -55866,7 +56308,7 @@ static const char *startup_source = "(let-values(((context_19) context29_0))" "(let-values(((stop-ids_12) stop-ids30_0))" "(let-values(((intdefs_7)(if intdefs26_1 intdefs24_0 #f)))" -"(let-values(((lift-key_0)(if lift-key27_0 lift-key25_0(generate-lift-key))))" +"(let-values(((lift-key_5)(if lift-key27_0 lift-key25_0(generate-lift-key))))" "(let-values()" "(let-values(((temp77_2) 'local-expand)" "((s78_0) s_185)" @@ -55875,7 +56317,7 @@ static const char *startup_source = "((intdefs81_0) intdefs_7)" "((temp82_5) #t)" "((temp83_3) #t)" -"((lift-key84_0) lift-key_0))" +"((lift-key84_0) lift-key_5))" "(do-local-expand56.1" " temp82_5" " #t" @@ -55900,22 +56342,22 @@ static const char *startup_source = "(begin" " 'local-transformer-expand/capture-lifts" "(local-transformer-expand/capture-lifts31_0 s_304 context_20 stop-ids_13 #f #f #f #f)))" -"((s_475 context_21 stop-ids_14 intdefs_8 lift-key25_1)" -"(local-transformer-expand/capture-lifts31_0 s_475 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" -"((s_476 context_22 stop-ids_15 intdefs24_1)" -"(local-transformer-expand/capture-lifts31_0 s_476 context_22 stop-ids_15 intdefs24_1 #f #t #f)))))" +"((s_476 context_21 stop-ids_14 intdefs_8 lift-key25_1)" +"(local-transformer-expand/capture-lifts31_0 s_476 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" +"((s_477 context_22 stop-ids_15 intdefs24_1)" +"(local-transformer-expand/capture-lifts31_0 s_477 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_465) s35_0))" +"(let-values(((s_466) 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_2) 'syntax-local-expand-expression)" -"((s86_0) s_465)" +"((s86_0) s_466)" "((temp87_3) 'expression)" "((null88_0) null)" "((temp89_6) #f)" @@ -55995,11 +56437,11 @@ static const char *startup_source = "(let-values(((capture-lifts?_0)(if capture-lifts?44_0 capture-lifts?38_0 #f)))" "(let-values(((as-transformer?_5)(if as-transformer?45_0 as-transformer?39_0 #f)))" "(let-values(((to-parsed-ok?_1)(if to-parsed-ok?46_0 to-parsed-ok?40_0 #f)))" -"(let-values(((lift-key_5)" +"(let-values(((lift-key_6)" "(if lift-key47_0" " lift-key41_0" -"(if(let-values(((or-part_45) capture-lifts?_0))" -"(if or-part_45 or-part_45 as-transformer?_5))" +"(if(let-values(((or-part_51) capture-lifts?_0))" +"(if or-part_51 or-part_51 as-transformer?_5))" "(generate-lift-key)" " #f))))" "(let-values(((track-to-be-defined?_1)" @@ -56010,9 +56452,9 @@ static const char *startup_source = "(let-values(((s_310)(datum->syntax$1 #f s-or-s-exp_0)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_359)(list? context_23)))" -"(if or-part_359" -" or-part_359" +"(if(let-values(((or-part_365)(list? context_23)))" +"(if or-part_365" +" or-part_365" "(memq" " context_23" "(if as-transformer?_5" @@ -56029,9 +56471,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_360)(not stop-ids_16)))" -"(if or-part_360" -" or-part_360" +"(if(let-values(((or-part_366)(not stop-ids_16)))" +"(if or-part_366" +" or-part_366" "(if(list? stop-ids_16)" "(andmap2 identifier? stop-ids_16)" " #f)))" @@ -56044,13 +56486,13 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_361)(not intdefs_9)))" -"(if or-part_361" -" or-part_361" -"(let-values(((or-part_362)" +"(if(let-values(((or-part_367)(not intdefs_9)))" +"(if or-part_367" +" or-part_367" +"(let-values(((or-part_368)" "(1/internal-definition-context? intdefs_9)))" -"(if or-part_362" -" or-part_362" +"(if or-part_368" +" or-part_368" "(if(list? intdefs_9)" "(andmap2 1/internal-definition-context? intdefs_9)" " #f)))))" @@ -56064,13 +56506,13 @@ static const char *startup_source = "(let-values(((ctx_72)" "(let-values(((who93_0) who_33))" "(get-current-expand-context17.1 #f #f who93_0 #t))))" -"(let-values(((phase_25)" +"(let-values(((phase_142)" "(if as-transformer?_5" "(add1(expand-context-phase ctx_72))" "(expand-context-phase ctx_72))))" "(let-values(((local-ctx_0)" "(let-values(((context95_0) context_23)" -"((phase96_0) phase_25)" +"((phase96_0) phase_142)" "((intdefs97_0) intdefs_9)" "((stop-ids98_0) stop-ids_16)" "((to-parsed-ok?99_0) to-parsed-ok?_1)" @@ -56092,7 +56534,7 @@ static const char *startup_source = "(begin" "(namespace-visit-available-modules!" "(expand-context-namespace ctx_72)" -" phase_25)" +" phase_142)" "(values))))" "(let-values((()" "(begin" @@ -56168,7 +56610,7 @@ static const char *startup_source = "(let-values(((context105_0) context_23)" "((temp106_4) #f)" "((temp107_0) #t)" -"((lift-key108_0) lift-key_5)" +"((lift-key108_0) lift-key_6)" "((temp109_2) #t)" "((temp110_6) #t))" "(expand-transformer47.1" @@ -56192,7 +56634,7 @@ static const char *startup_source = "((temp114_3) #f)" "((temp115_2)" "(eq? 'top-level context_23))" -"((lift-key116_0) lift-key_5)" +"((lift-key116_0) lift-key_6)" "((temp117_4) #t))" "(expand-transformer47.1" " #f" @@ -56213,7 +56655,7 @@ static const char *startup_source = "(let-values()" "(let-values(((temp120_3) #t)" "((lift-key121_0)" -" lift-key_5)" +" lift-key_6)" "((temp122_3) #t))" "(expand/capture-lifts30.1" " temp122_3" @@ -56313,32 +56755,32 @@ static const char *startup_source = "(let-values()" "(taint-dispatch" " s_3" -"(lambda(s_474)(syntax-arm$1 s_474 insp_21))" +"(lambda(s_475)(syntax-arm$1 s_475 insp_21))" "(1/syntax-local-phase-level)))" "(let-values()(syntax-arm$1 s_3 insp_21))))))))))))))" "(case-lambda" -"((s_421)(begin 'syntax-arm(syntax-arm6_0 s_421 #f #f #f #f)))" -"((s_477 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_477 maybe-insp_1 use-mode?2_1 #t #t))" -"((s_478 maybe-insp1_1)(syntax-arm6_0 s_478 maybe-insp1_1 #f #t #f)))))" +"((s_422)(begin 'syntax-arm(syntax-arm6_0 s_422 #f #f #f #f)))" +"((s_478 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_478 maybe-insp_1 use-mode?2_1 #t #t))" +"((s_479 maybe-insp1_1)(syntax-arm6_0 s_479 maybe-insp1_1 #f #t #f)))))" "(define-values" "(1/syntax-disarm)" -"(lambda(s_411 maybe-insp_2)" +"(lambda(s_412 maybe-insp_2)" "(begin" " 'syntax-disarm" "(let-values((()" "(begin" -"(if(syntax?$1 s_411)" +"(if(syntax?$1 s_412)" "(void)" -" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_411)))" +" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_412)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_292)(not maybe-insp_2)))" -"(if or-part_292 or-part_292(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_411 insp_22)))))))" +"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_412 insp_22)))))))" "(define-values" "(1/syntax-rearm)" "(let-values(((syntax-rearm12_0)" @@ -56360,7 +56802,7 @@ static const char *startup_source = "(let-values()" "(taint-dispatch" " s_40" -"(lambda(s_426)(syntax-rearm$1 s_426 from-s_2))" +"(lambda(s_427)(syntax-rearm$1 s_427 from-s_2))" "(1/syntax-local-phase-level)))" "(let-values()(syntax-rearm$1 s_40 from-s_2))))))))))))" "(case-lambda" @@ -56378,11 +56820,11 @@ static const char *startup_source = "(inspector-for-taint)" "(lambda(maybe-insp_3)" "(begin" -"(let-values(((or-part_83) maybe-insp_3))" -"(if or-part_83" -" or-part_83" -"(let-values(((or-part_84)(current-module-code-inspector)))" -"(if or-part_84 or-part_84(current-code-inspector))))))))" +"(let-values(((or-part_89) maybe-insp_3))" +"(if or-part_89" +" or-part_89" +"(let-values(((or-part_90)(current-module-code-inspector)))" +"(if or-part_90 or-part_90(current-code-inspector))))))))" "(define-values" "(1/variable-reference->empty-namespace)" "(lambda(vr_0)" @@ -56392,7 +56834,7 @@ static const char *startup_source = "(if(1/variable-reference? vr_0)" "(void)" " (let-values () (raise-argument-error 'variable-reference->empty-namespace \"variable-reference?\" vr_0)))" -"(let-values(((temp1_3)(1/variable-reference->namespace vr_0)))(new-namespace9.1 #f #f #f #f temp1_3 #t))))))" +"(let-values(((temp1_4)(1/variable-reference->namespace vr_0)))(new-namespace9.1 #f #f #f #f temp1_4 #t))))))" "(define-values" "(1/variable-reference->namespace)" "(lambda(vr_1)" @@ -56452,7 +56894,7 @@ static const char *startup_source = "(let-values()" " (raise-argument-error 'variable-reference->module-source \"variable-reference?\" vr_4)))" "(values))))" -"(let-values(((ns_114)(1/variable-reference->namespace vr_4)))(namespace-source-name ns_114))))))" +"(let-values(((ns_113)(1/variable-reference->namespace vr_4)))(namespace-source-name ns_113))))))" "(define-values" "(1/variable-reference->phase)" "(lambda(vr_5)" @@ -56491,9 +56933,9 @@ static const char *startup_source = " \"variable reference\"" " vr_7))" "(void))" -"(let-values(((or-part_215)(namespace-declaration-inspector(1/variable-reference->namespace vr_7))))" -"(if or-part_215" -" or-part_215" +"(let-values(((or-part_222)(namespace-declaration-inspector(1/variable-reference->namespace vr_7))))" +"(if or-part_222" +" or-part_222" "(raise-arguments-error" " 'variable-reference->module-declaration-inspector" " \"given variable reference is not from a module\")))))))" @@ -56777,7 +57219,7 @@ static const char *startup_source = "(lambda(eval1_0 main-ids2_0 read-ids3_0 ns7_1)" "(begin" " 'declare-kernel-module!8" -"(let-values(((ns_85) ns7_1))" +"(let-values(((ns_84) ns7_1))" "(let-values()" "(let-values(((main-ids_0) main-ids2_0))" "(let-values(((read-ids_0) read-ids3_0))" @@ -56794,9 +57236,9 @@ static const char *startup_source = " 1/variable-reference-constant?" " 'variable-reference-from-unsafe?" " 1/variable-reference-from-unsafe?))" -"((ns57_0) ns_85))" +"((ns57_0) ns_84))" "(copy-runtime-module!26.1 #f #f temp56_2 #t ns57_0 #f #f #f #f temp55_3 #t temp54_6 #t temp53_5))" -"(let-values(((temp58_5) '#%kernel)((temp59_5) '(#%core #%runtime #%main #%read))((ns60_0) ns_85))" +"(let-values(((temp58_5) '#%kernel)((temp59_5) '(#%core #%runtime #%main #%read))((ns60_0) ns_84))" "(declare-reexporting-module!50.1 ns60_0 #f #f temp58_5 temp59_5)))))))))))" "(define-values" "(copy-runtime-module!26.1)" @@ -56818,7 +57260,7 @@ static const char *startup_source = " 'copy-runtime-module!26" "(let-values(((name_73) name25_0))" "(let-values(((to-name_0)(if to18_0 to11_0 name_73)))" -"(let-values(((ns_115) namespace12_0))" +"(let-values(((ns_114) 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())))" @@ -56828,18 +57270,18 @@ static const char *startup_source = "(let-values(((prims_0)(1/primitive-table name_73)))" "(let-values((()" "(begin" -"(let-values(((ht_154) prims_0))" +"(let-values(((ht_156) prims_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_154)))" +"(let-values()(check-in-hash-keys ht_156)))" "((letrec-values(((for-loop_242)" -"(lambda(i_179)" +"(lambda(i_180)" "(begin" " 'for-loop" -"(if i_179" -"(let-values(((sym_95)" -"(hash-iterate-key ht_154 i_179)))" +"(if i_180" +"(let-values(((sym_96)" +"(hash-iterate-key ht_156 i_180)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -56847,106 +57289,106 @@ static const char *startup_source = "(begin" "(let-values()" "(register-built-in-symbol!" -" sym_95))" +" sym_96))" "(values)))))" "(values)))))" "(if(not #f)" "(for-loop_242" -"(hash-iterate-next ht_154 i_179))" +"(hash-iterate-next ht_156 i_180))" "(values))))" "(values))))))" " for-loop_242)" -"(hash-iterate-first ht_154))))" +"(hash-iterate-first ht_156))))" "(values))))" "(let-values()" -"(let-values(((ht_155)" -"(let-values(((ht_156) prims_0))" +"(let-values(((ht_157)" +"(let-values(((ht_158) prims_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_156)))" -"((letrec-values(((for-loop_251)" -"(lambda(table_206 i_180)" +"(let-values()(check-in-hash ht_158)))" +"((letrec-values(((for-loop_252)" +"(lambda(table_208 i_181)" "(begin" " 'for-loop" -"(if i_180" -"(let-values(((sym_96 val_78)" +"(if i_181" +"(let-values(((sym_97 val_78)" "(hash-iterate-key+value" -" ht_156" -" i_180)))" +" ht_158" +" i_181)))" "(let-values(((table_13)" "(let-values(((table_14)" -" table_206))" +" table_208))" "(if(set-member?" " skip-syms_0" -" sym_96)" +" sym_97)" " table_14" -"(let-values(((table_207)" +"(let-values(((table_209)" " table_14))" -"(let-values(((table_208)" +"(let-values(((table_210)" "(let-values()" "(let-values(((key_87" " val_79)" "(let-values()" "(values" -" sym_96" -"(let-values(((or-part_75)" +" sym_97" +"(let-values(((or-part_81)" "(hash-ref" " alts_0" -" sym_96" +" sym_97" " #f)))" -"(if or-part_75" -" or-part_75" +"(if or-part_81" +" or-part_81" " val_78))))))" "(hash-set" -" table_207" +" table_209" " key_87" " val_79)))))" -"(values table_208)))))))" +"(values table_210)))))))" "(if(not #f)" -"(for-loop_251" +"(for-loop_252" " table_13" -"(hash-iterate-next ht_156 i_180))" +"(hash-iterate-next ht_158 i_181))" " table_13)))" -" table_206)))))" -" for-loop_251)" +" table_208)))))" +" for-loop_252)" " '#hasheq()" -"(hash-iterate-first ht_156))))))" +"(hash-iterate-first ht_158))))))" "(let-values(((ht+extras_0)" -"(let-values(((ht_157) extras_0))" +"(let-values(((ht_159) extras_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_157)))" -"((letrec-values(((for-loop_261)" -"(lambda(ht_158 i_181)" +"(let-values()(check-in-hash ht_159)))" +"((letrec-values(((for-loop_262)" +"(lambda(ht_160 i_182)" "(begin" " 'for-loop" -"(if i_181" -"(let-values(((k_42 v_40)" +"(if i_182" +"(let-values(((k_42 v_43)" "(hash-iterate-key+value" -" ht_157" -" i_181)))" -"(let-values(((ht_159)" -"(let-values(((ht_149)" -" ht_158))" -"(let-values(((ht_160)" +" ht_159" +" i_182)))" +"(let-values(((ht_161)" +"(let-values(((ht_151)" +" ht_160))" +"(let-values(((ht_162)" "(let-values()" "(hash-set" -" ht_149" +" ht_151" " k_42" -" v_40))))" -"(values ht_160)))))" +" v_43))))" +"(values ht_162)))))" "(if(not #f)" -"(for-loop_261" -" ht_159" -"(hash-iterate-next ht_157 i_181))" -" ht_159)))" -" ht_158)))))" -" for-loop_261)" -" ht_155" -"(hash-iterate-first ht_157))))))" -"(let-values(((ns63_0) ns_115)" +"(for-loop_262" +" ht_161" +"(hash-iterate-next ht_159 i_182))" +" ht_161)))" +" ht_160)))))" +" for-loop_262)" +" ht_157" +"(hash-iterate-first ht_159))))))" +"(let-values(((ns63_0) ns_114)" "((primitive?64_0) primitive?_9)" "((protected?65_0) protected?_2))" "(declare-hash-based-module!41.1" @@ -56977,15 +57419,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_116) namespace29_0))" +"(let-values(((ht_163) ht40_0))" +"(let-values(((ns_115) namespace29_0))" "(let-values(((primitive?_6)(if primitive?35_0 primitive?30_0 #f)))" "(let-values(((protected?_3)(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_50)(1/module-path-index-join(list 'quote name_74) #f)))" -"(let-values(((ns66_1) ns_116)" +"(let-values(((ns66_1) ns_115)" "((temp67_3)" "(let-values(((temp69_5) #t)" "((primitive?70_0) primitive?_6)" @@ -56995,24 +57437,24 @@ static const char *startup_source = "((temp74_2)" "(hasheqv" " 0" -"(let-values(((ht_162) ht_161))" +"(let-values(((ht_164) ht_163))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_162)))" -"((letrec-values(((for-loop_189)" -"(lambda(table_209 i_182)" +"(let-values()(check-in-hash-keys ht_164)))" +"((letrec-values(((for-loop_190)" +"(lambda(table_211 i_183)" "(begin" " 'for-loop" -"(if i_182" -"(let-values(((sym_97)" +"(if i_183" +"(let-values(((sym_98)" "(hash-iterate-key" -" ht_162" -" i_182)))" +" ht_164" +" i_183)))" "(let-values(((table_36)" "(let-values(((table_37)" -" table_209))" -"(let-values(((table_210)" +" table_211))" +"(let-values(((table_212)" "(let-values()" "(let-values(((key_88" " val_80)" @@ -57022,7 +57464,7 @@ static const char *startup_source = "(if register-builtin?_0" "(let-values()" "(register-built-in-symbol!" -" sym_97))" +" sym_98))" "(void))" "(values))))" "(let-values(((binding_28)" @@ -57031,7 +57473,7 @@ static const char *startup_source = "((temp77_3)" " 0)" "((sym78_0)" -" sym_97))" +" sym_98))" "(make-module-binding22.1" " #f" " #f" @@ -57055,13 +57497,13 @@ static const char *startup_source = " temp77_3" " sym78_0))))" "(values" -" sym_97" -"(if(let-values(((or-part_363)" +" sym_98" +"(if(let-values(((or-part_369)" " protected?_3))" -"(if or-part_363" -" or-part_363" +"(if or-part_369" +" or-part_369" "(member" -" sym_97" +" sym_98" " protected-syms_0)))" "(provided1.1" " binding_28" @@ -57073,44 +57515,44 @@ static const char *startup_source = " key_88" " val_80)))))" "(values" -" table_210)))))" +" table_212)))))" "(if(not #f)" -"(for-loop_189" +"(for-loop_190" " table_36" "(hash-iterate-next" -" ht_162" -" i_182))" +" ht_164" +" i_183))" " table_36)))" -" table_209)))))" -" for-loop_189)" +" table_211)))))" +" for-loop_190)" " '#hash()" -"(hash-iterate-first ht_162))))))" +"(hash-iterate-first ht_164))))))" "((temp75_2)" "(lambda(data-box_6" -" ns_117" +" ns_116" " phase-shift_20" -" phase-level_5" -" self_7" +" phase-level_23" +" self_10" " bulk-binding-registry_2" " insp_23)" -"(if(= 0 phase-level_5)" +"(if(= 0 phase-level_23)" "(let-values()" "(begin" -"(let-values(((ht_125) ht_161))" +"(let-values(((ht_127) ht_163))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_125)))" -"((letrec-values(((for-loop_262)" -"(lambda(i_183)" +"(let-values()(check-in-hash ht_127)))" +"((letrec-values(((for-loop_263)" +"(lambda(i_184)" "(begin" " 'for-loop" -"(if i_183" -"(let-values(((sym_98 val_81)" +"(if i_184" +"(let-values(((sym_99 val_81)" "(hash-iterate-key+value" -" ht_125" -" i_183)))" +" ht_127" +" i_184)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -57118,21 +57560,21 @@ static const char *startup_source = "(begin" "(let-values()" "(namespace-set-variable!" -" ns_117" +" ns_116" " 0" -" sym_98" +" sym_99" " val_81))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_262" +"(for-loop_263" "(hash-iterate-next" -" ht_125" -" i_183))" +" ht_127" +" i_184))" "(values))))" "(values))))))" -" for-loop_262)" -"(hash-iterate-first ht_125))))" +" for-loop_263)" +"(hash-iterate-first ht_127))))" "(void)))" "(void)))))" "(make-module39.1" @@ -57173,13 +57615,13 @@ static const char *startup_source = "(declare-module!58.1 #f #f ns66_1 temp67_3 temp68_1))))))))))))))" "(define-values" "(declare-reexporting-module!50.1)" -"(lambda(namespace45_0 reexport?44_0 reexport?46_0 name48_0 require-names49_0)" +"(lambda(namespace45_0 reexport?44_0 reexport?46_0 name48_1 require-names49_0)" "(begin" " 'declare-reexporting-module!50" -"(let-values(((name_75) name48_0))" +"(let-values(((name_75) 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_118) namespace45_0))" +"(let-values(((ns_117) namespace45_0))" "(let-values()" "(let-values(((mpi_51)(1/module-path-index-join(list 'quote name_75) #f)))" "(let-values(((require-mpis_0)" @@ -57189,16 +57631,16 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_150)))" -"((letrec-values(((for-loop_244)" -"(lambda(fold-var_267 lst_303)" +"((letrec-values(((for-loop_245)" +"(lambda(fold-var_269 lst_302)" "(begin" " 'for-loop" -"(if(pair? lst_303)" -"(let-values(((require-name_0)(unsafe-car lst_303))" -"((rest_175)(unsafe-cdr lst_303)))" +"(if(pair? lst_302)" +"(let-values(((require-name_0)(unsafe-car lst_302))" +"((rest_175)(unsafe-cdr lst_302)))" "(let-values(((fold-var_138)" -"(let-values(((fold-var_268) fold-var_267))" -"(let-values(((fold-var_269)" +"(let-values(((fold-var_270) fold-var_269))" +"(let-values(((fold-var_271)" "(let-values()" "(cons" "(let-values()" @@ -57207,16 +57649,16 @@ static const char *startup_source = " 'quote" " require-name_0)" " #f))" -" fold-var_268))))" -"(values fold-var_269)))))" +" fold-var_270))))" +"(values fold-var_271)))))" "(if(not #f)" -"(for-loop_244 fold-var_138 rest_175)" +"(for-loop_245 fold-var_138 rest_175)" " fold-var_138)))" -" fold-var_267)))))" -" for-loop_244)" +" fold-var_269)))))" +" for-loop_245)" " null" " lst_150))))))" -"(let-values(((ns79_1) ns_118)" +"(let-values(((ns79_1) ns_117)" "((temp80_6)" "(let-values(((temp82_6) #t)" "((temp83_4) #t)" @@ -57226,35 +57668,35 @@ static const char *startup_source = "(if reexport?_0" "(hasheqv" " 0" -"(let-values(((lst_304) require-mpis_0))" +"(let-values(((lst_303) require-mpis_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_304)))" -"((letrec-values(((for-loop_120)" -"(lambda(table_211 lst_305)" +"(let-values()(check-list lst_303)))" +"((letrec-values(((for-loop_121)" +"(lambda(table_213 lst_304)" "(begin" " 'for-loop" -"(if(pair? lst_305)" +"(if(pair? lst_304)" "(let-values(((require-mpi_0)" -"(unsafe-car lst_305))" +"(unsafe-car lst_304))" "((rest_176)" -"(unsafe-cdr lst_305)))" -"(let-values(((table_212)" +"(unsafe-cdr lst_304)))" +"(let-values(((table_214)" "(let-values(((m_29)" "(namespace->module" -" ns_118" +" ns_117" "(1/module-path-index-resolve" " require-mpi_0))))" "(begin" " #t" -"((letrec-values(((for-loop_263)" -"(lambda(table_213)" +"((letrec-values(((for-loop_264)" +"(lambda(table_215)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_214)" -"(let-values(((ht_163)" +"(let-values(((table_216)" +"(let-values(((ht_165)" "(hash-ref" "(shift-provides-module-path-index" "(module-provides" @@ -57269,58 +57711,58 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_163)))" -"((letrec-values(((for-loop_121)" -"(lambda(table_107" -" i_184)" +" ht_165)))" +"((letrec-values(((for-loop_122)" +"(lambda(table_110" +" i_185)" "(begin" " 'for-loop" -"(if i_184" -"(let-values(((sym_99" +"(if i_185" +"(let-values(((sym_100" " binding_29)" "(hash-iterate-key+value" -" ht_163" -" i_184)))" +" ht_165" +" i_185)))" "(let-values(((table_32)" -"(let-values(((table_215)" -" table_107))" -"(let-values(((table_108)" +"(let-values(((table_217)" +" table_110))" +"(let-values(((table_111)" "(let-values()" "(let-values(((key_89" " val_82)" "(let-values()" "(values" -" sym_99" +" sym_100" " binding_29))))" "(hash-set" -" table_215" +" table_217" " key_89" " val_82)))))" "(values" -" table_108)))))" +" table_111)))))" "(if(not" " #f)" -"(for-loop_121" +"(for-loop_122" " table_32" "(hash-iterate-next" -" ht_163" -" i_184))" +" ht_165" +" i_185))" " table_32)))" -" table_107)))))" -" for-loop_121)" -" table_213" +" table_110)))))" +" for-loop_122)" +" table_215" "(hash-iterate-first" -" ht_163))))))" -" table_214))))))" -" for-loop_263)" -" table_211)))))" +" ht_165))))))" +" table_216))))))" +" for-loop_264)" +" table_213)))))" "(if(not #f)" -"(for-loop_120 table_212 rest_176)" -" table_212)))" -" table_211)))))" -" for-loop_120)" +"(for-loop_121 table_214 rest_176)" +" table_214)))" +" table_213)))))" +" for-loop_121)" " '#hash()" -" lst_304))))" +" lst_303))))" " '#hasheqv()))" "((void87_0) void))" "(make-module39.1" @@ -57581,10 +58023,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_87)(TH-place-channel-ref x_87 0))))))" +"(make-struct-type 'TH-place-channel #f 2 0 #f(list(cons prop:evt(lambda(x_88)(TH-place-channel-ref x_88 0))))))" "(define-values" "(TH-place-channel-in TH-place-channel-out)" -"(values(lambda(x_88)(TH-place-channel-ref x_88 0))(lambda(x_89)(TH-place-channel-ref x_89 1))))" +"(values(lambda(x_89)(TH-place-channel-ref x_89 0))(lambda(x_90)(TH-place-channel-ref x_90 1))))" "(define-values" "(place-struct-primitives)" "(hasheq" @@ -57708,8 +58150,8 @@ static const char *startup_source = "(check-module-form)" "(lambda(exp_0 filename_1)" "(begin" -"(if(let-values(((or-part_300)(eof-object? exp_0)))" -"(if or-part_300 or-part_300(eof-object?(1/syntax-e exp_0))))" +"(if(let-values(((or-part_306)(eof-object? exp_0)))" +"(if or-part_306 or-part_306(eof-object?(1/syntax-e exp_0))))" "(let-values()" "(if filename_1" "(error" @@ -57722,9 +58164,9 @@ static const char *startup_source = "(if(if(syntax?$1 exp_0)" "(if(pair?(1/syntax-e exp_0))" "(if(eq? 'module(1/syntax-e(car(1/syntax-e exp_0))))" -"(let-values(((r_48)(cdr(1/syntax-e exp_0))))" -"(let-values(((r_49)(if(syntax?$1 r_48)(1/syntax-e r_48) r_48)))" -"(if(pair? r_49)(identifier?(car r_49)) #f)))" +"(let-values(((r_42)(cdr(1/syntax-e exp_0))))" +"(let-values(((r_47)(if(syntax?$1 r_42)(1/syntax-e r_42) r_42)))" +"(if(pair? r_47)(identifier?(car r_47)) #f)))" " #f)" " #f)" " #f)" @@ -57757,8 +58199,8 @@ static const char *startup_source = " or-part_2" "(if(pair? expected-mod_0)" "(if(list? expected-mod_0)" -"(if(let-values(((or-part_26)(not(car expected-mod_0))))" -"(if or-part_26 or-part_26(symbol?(car expected-mod_0))))" +"(if(let-values(((or-part_32)(not(car expected-mod_0))))" +"(if or-part_32 or-part_32(symbol?(car expected-mod_0))))" "(andmap2 symbol?(cdr expected-mod_0))" " #f)" " #f)" @@ -57771,35 +58213,35 @@ static const char *startup_source = " expected-mod_0)))" "(values))))" "(let-values(((maybe-count-lines!_0)" -"(lambda(i_124)" +"(lambda(i_125)" "(begin" " 'maybe-count-lines!" " (if (regexp-match? '#rx\"[.]zo$\" path_12)" "(void)" -"(let-values()(port-count-lines! i_124)))))))" +"(let-values()(port-count-lines! i_125)))))))" "(if expected-mod_0" "(let-values()" "((call-with-input-module-file" " path_12" -"(lambda(i_185)" +"(lambda(i_186)" "(begin" -"(maybe-count-lines!_0 i_185)" +"(maybe-count-lines!_0 i_186)" "(with-module-reading-parameterization+delay-source" " path_12" "(lambda()" -"(let-values(((c1_31)(linklet-directory-start i_185)))" +"(let-values(((c1_31)(linklet-directory-start i_186)))" "(if c1_31" "((lambda(pos_120)" "(let-values(((b-pos_0)" -"(search-directory i_185 pos_120(encode-symbols expected-mod_0))))" +"(search-directory i_186 pos_120(encode-symbols expected-mod_0))))" "(if b-pos_0" "(let-values()" "(begin" -"(file-position i_185 b-pos_0)" -"(let-values(((or-part_12)(cached-bundle i_185)))" +"(file-position i_186 b-pos_0)" +"(let-values(((or-part_12)(cached-bundle i_186)))" "(if or-part_12" " or-part_12" -"(let-values(((v_0)(1/read i_185)))" +"(let-values(((v_0)(1/read i_186)))" "(if(1/compiled-module-expression? v_0)" "(lambda()((1/current-eval) v_0))" "(error" @@ -57808,7 +58250,7 @@ static const char *startup_source = " \"expected a compiled module\\n\"" " \" in: ~e\\n\"" " \" found: ~e\")" -"(object-name i_185)" +"(object-name i_186)" " v_0)))))))" "(if(pair? expected-mod_0)" "(let-values() void)" @@ -57816,15 +58258,15 @@ static const char *startup_source = "(error" " 'default-load-handler" " (string-append \"could not find main module\\n\" \" in: ~e\")" -"(object-name i_185)))))))" +"(object-name i_186)))))))" " c1_31)" "(if(if(pair? expected-mod_0)(not(car expected-mod_0)) #f)" "(let-values() void)" -"(let-values(((c2_15)(cached-bundle i_185)))" +"(let-values(((c2_15)(cached-bundle i_186)))" "(if c2_15" "((lambda(thunk_6) thunk_6) c2_15)" "(let-values()" -"(let-values(((s_170)(1/read-syntax(object-name i_185) i_185)))" +"(let-values(((s_170)(1/read-syntax(object-name i_186) i_186)))" "(let-values((()" "(begin" "(if(eof-object? s_170)" @@ -57835,11 +58277,11 @@ static const char *startup_source = " \"expected a `module' declaration;\\n\"" " \" found end-of-file\\n\"" " \" in: ~e\")" -"(object-name i_185)))" +"(object-name i_186)))" "(void))" "(values))))" "(let-values(((m-s_0)(check-module-form s_170 path_12)))" -"(let-values(((s2_7)(1/read-syntax(object-name i_185) i_185)))" +"(let-values(((s2_7)(1/read-syntax(object-name i_186) i_186)))" "(begin" "(if(eof-object? s2_7)" "(void)" @@ -57851,16 +58293,16 @@ static const char *startup_source = " \" found an extra form\\n\"" " \" in: ~e\\n\"" " \" found: ~.s\")" -"(object-name i_185)" +"(object-name i_186)" " s2_7)))" "(lambda()((1/current-eval) m-s_0))))))))))))))))))))" "(let-values()" "(let-values(((add-top-interaction_0)" -"(lambda(s_411)" +"(lambda(s_412)" "(begin" " 'add-top-interaction" "(1/namespace-syntax-introduce" -"(1/datum->syntax #f(cons '#%top-interaction s_411)))))))" +"(1/datum->syntax #f(cons '#%top-interaction s_412)))))))" "(let-values(((path1_0) path_12)" "((temp2_7)" "(lambda(i_74)" @@ -57868,7 +58310,7 @@ static const char *startup_source = " 'temp2" "(begin" "(maybe-count-lines!_0 i_74)" -"((letrec-values(((loop_119)" +"((letrec-values(((loop_122)" "(lambda(vals_7)" "(begin" " 'loop" @@ -57904,7 +58346,7 @@ static const char *startup_source = " i_74))))))" "(if(eof-object? s_302)" "(apply values vals_7)" -"(loop_119" +"(loop_122" "(call-with-continuation-prompt" "(lambda()" "(call-with-values" @@ -57912,38 +58354,38 @@ static const char *startup_source = "((1/current-eval)(add-top-interaction_0 s_302)))" " list))" "(default-continuation-prompt-tag)" -"(lambda args_10" +"(lambda args_13" "(apply" " abort-current-continuation" "(default-continuation-prompt-tag)" -" args_10))))))))))" -" loop_119)" +" args_13))))))))))" +" loop_122)" "(list(void))))))))" "(call-with-input-file*61.1 #f #f path1_0 temp2_7)))))))))))" "(define-values" "(linklet-bundle-or-directory-start)" -"(lambda(i_145 tag_1)" +"(lambda(i_146 tag_1)" "(begin" "(let-values(((version-length_0)(string-length(version))))" -"(if(equal?(peek-byte i_145)(char->integer '#\\#))" -"(if(equal?(peek-byte i_145 1)(char->integer '#\\~))" -"(if(equal?(peek-byte i_145 2) version-length_0)" -"(if(equal?(peek-bytes version-length_0 3 i_145)(string->bytes/utf-8(version)))" -"(if(equal?(peek-byte i_145(+ 3 version-length_0))(char->integer tag_1))(+ version-length_0 4) #f)" +"(if(equal?(peek-byte i_146)(char->integer '#\\#))" +"(if(equal?(peek-byte i_146 1)(char->integer '#\\~))" +"(if(equal?(peek-byte i_146 2) version-length_0)" +"(if(equal?(peek-bytes version-length_0 3 i_146)(string->bytes/utf-8(version)))" +"(if(equal?(peek-byte i_146(+ 3 version-length_0))(char->integer tag_1))(+ version-length_0 4) #f)" " #f)" " #f)" " #f)" " #f)))))" "(define-values" "(linklet-directory-start)" -"(lambda(i_186)" -"(begin(let-values(((pos_93)(linklet-bundle-or-directory-start i_186 '#\\D)))(if pos_93(+ pos_93 4) #f)))))" +"(lambda(i_187)" +"(begin(let-values(((pos_93)(linklet-bundle-or-directory-start i_187 '#\\D)))(if pos_93(+ pos_93 4) #f)))))" "(define-values" "(linklet-bundle-hash-code)" -"(lambda(i_80)" +"(lambda(i_81)" "(begin" -"(let-values(((pos_14)(linklet-bundle-or-directory-start i_80 '#\\B)))" -"(let-values(((hash-code_5)(if pos_14(peek-bytes 20 pos_14 i_80) #f)))" +"(let-values(((pos_14)(linklet-bundle-or-directory-start i_81 '#\\B)))" +"(let-values(((hash-code_5)(if pos_14(peek-bytes 20 pos_14 i_81) #f)))" "(if(bytes? hash-code_5)" "(if(= 20(bytes-length hash-code_5))" "(if(let-values(((vec_66 len_40)" @@ -57952,21 +58394,21 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_220)" -"(lambda(result_116 pos_121)" +"(lambda(result_118 pos_121)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_121 len_40)" "(let-values(((c_52)(unsafe-bytes-ref vec_66 pos_121)))" -"(let-values(((result_117)" +"(let-values(((result_119)" "(let-values()" -"(let-values(((result_118)" +"(let-values(((result_120)" "(let-values()" "(let-values()(not(eq? c_52 0))))))" -"(values result_118)))))" -"(if(if(not((lambda x_90 result_117) c_52))(not #f) #f)" -"(for-loop_220 result_117(unsafe-fx+ 1 pos_121))" -" result_117)))" -" result_116)))))" +"(values result_120)))))" +"(if(if(not((lambda x_91 result_119) c_52))(not #f) #f)" +"(for-loop_220 result_119(unsafe-fx+ 1 pos_121))" +" result_119)))" +" result_118)))))" " for-loop_220)" " #f" " 0)))" @@ -57976,9 +58418,9 @@ static const char *startup_source = " #f))))))" "(define-values" "(cached-bundle)" -"(lambda(i_187)" +"(lambda(i_188)" "(begin" -"(let-values(((c3_9)(module-cache-ref(make-module-cache-key(linklet-bundle-hash-code i_187)))))" +"(let-values(((c3_9)(module-cache-ref(make-module-cache-key(linklet-bundle-hash-code i_188)))))" "(if c3_9" "((lambda(declare-module_0)(lambda()(declare-module_0(1/current-namespace)))) c3_9)" "(let-values() #f))))))" @@ -57987,10 +58429,10 @@ static const char *startup_source = "(lambda(i_41)" "(begin" "(let-values(((read-byte/not-eof_0)" -"(lambda(i_188)" +"(lambda(i_189)" "(begin" " 'read-byte/not-eof" -"(let-values(((v_241)(read-byte i_188)))(if(eof-object? v_241) 0 v_241))))))" +"(let-values(((v_243)(read-byte i_189)))(if(eof-object? v_243) 0 v_243))))))" "(bitwise-ior" "(read-byte/not-eof_0 i_41)" "(arithmetic-shift(read-byte/not-eof_0 i_41) 8)" @@ -57998,16 +58440,16 @@ static const char *startup_source = "(arithmetic-shift(read-byte/not-eof_0 i_41) 24))))))" "(define-values" "(search-directory)" -"(lambda(i_189 pos_122 bstr_5)" +"(lambda(i_190 pos_122 bstr_5)" "(begin" "(if(zero? pos_122)" "(let-values() #f)" "(let-values()" -"(let-values((()(begin(file-position i_189 pos_122)(values))))" -"(let-values(((name-len_0)(read-number i_189)))" -"(let-values(((v_242)(read-bytes name-len_0 i_189)))" +"(let-values((()(begin(file-position i_190 pos_122)(values))))" +"(let-values(((name-len_0)(read-number i_190)))" +"(let-values(((v_244)(read-bytes name-len_0 i_190)))" "(begin" -"(if(if(bytes? v_242)(=(bytes-length v_242) name-len_0) #f)" +"(if(if(bytes? v_244)(=(bytes-length v_244) name-len_0) #f)" "(void)" "(let-values()" "(error" @@ -58018,24 +58460,24 @@ static const char *startup_source = " \" at position: ~a\\n\"" " \" expected bytes: ~a\\n\"" " \" read bytes: ~e\")" -"(object-name i_189)" +"(object-name i_190)" " pos_122" " name-len_0" -" v_242)))" -"(if(bytes=? bstr_5 v_242)" -"(let-values()(read-number i_189))" -"(if(bytesbytes/utf-8" -"(symbol->string s_479))))" +"(symbol->string s_480))))" "(let-values(((len_41)" "(bytes-length bstr_6)))" "(if(< len_41 255)" @@ -58084,11 +58526,11 @@ static const char *startup_source = " bstr_6))))))" " fold-var_68))))" "(values fold-var_69)))))" -"(if(not #f)(for-loop_102 fold-var_20 rest_42) fold-var_20)))" +"(if(not #f)(for-loop_103 fold-var_20 rest_42) fold-var_20)))" " fold-var_67)))))" -" for-loop_102)" +" for-loop_103)" " null" -" lst_306))))))))))" +" lst_305))))))))))" "(define-values" "(with-module-reading-parameterization+delay-source)" "(lambda(path_13 thunk_7)" @@ -58104,13 +58546,13 @@ static const char *startup_source = "(with-module-reading-parameterization thunk_7)))))" "(define-values" "(call-with-input-module-file)" -"(lambda(path_14 proc_9)" +"(lambda(path_14 proc_11)" "(begin" -"(let-values(((i_190) #f))" +"(let-values(((i_191) #f))" "(dynamic-wind" -"(lambda()(set! i_190(let-values(((temp4_7) #t))(open-input-file6.1 temp4_7 #t #f #f path_14))))" -"(lambda()(proc_9 i_190))" -"(lambda()(close-input-port i_190)))))))" +"(lambda()(set! i_191(let-values(((temp4_7) #t))(open-input-file6.1 temp4_7 #t #f #f path_14))))" +"(lambda()(proc_11 i_191))" +"(lambda()(close-input-port i_191)))))))" "(define-values(dll-suffix)(system-type 'so-suffix))" "(define-values" "(default-load/use-compiled)" @@ -58123,31 +58565,31 @@ static const char *startup_source = "(let-values(((d_36)(current-load-relative-directory)))" "(if d_36(path->complete-path s_156 d_36) s_156)))))))" "(let-values(((date-of-1_0)" -"(lambda(a_28)" +"(lambda(a_34)" "(begin" " 'date-of-1" -"(let-values(((v_67)(file-or-directory-modify-seconds a_28 #f(lambda() #f))))" -"(if v_67(cons a_28 v_67) #f))))))" +"(let-values(((v_70)(file-or-directory-modify-seconds a_34 #f(lambda() #f))))" +"(if v_70(cons a_34 v_70) #f))))))" "(let-values(((date-of_0)" -"(lambda(a_35 modes_1 roots_1)" +"(lambda(a_41 modes_1 roots_1)" "(begin" " 'date-of" "(ormap2" "(lambda(root-dir_0)" "(ormap2" "(lambda(compiled-dir_0)" -"(let-values(((a_36)(a_35 root-dir_0 compiled-dir_0)))(date-of-1_0 a_36)))" +"(let-values(((a_42)(a_41 root-dir_0 compiled-dir_0)))(date-of-1_0 a_42)))" " modes_1))" " roots_1)))))" "(let-values(((date>=?_0)" -"(lambda(modes_2 roots_2 a_72 bm_0)" +"(lambda(modes_2 roots_2 a_78 bm_0)" "(begin" " 'date>=?" -"(if a_72" -"(let-values(((am_0)(date-of_0 a_72 modes_2 roots_2)))" -"(let-values(((or-part_28)(if(not bm_0) am_0 #f)))" -"(if or-part_28" -" or-part_28" +"(if a_78" +"(let-values(((am_0)(date-of_0 a_78 modes_2 roots_2)))" +"(let-values(((or-part_34)(if(not bm_0) am_0 #f)))" +"(if or-part_34" +" or-part_34" "(if am_0(if bm_0(if(>=(cdr am_0)(cdr bm_0)) am_0 #f) #f) #f))))" " #f)))))" "(let-values(((with-dir*_0)" @@ -58171,16 +58613,16 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_164)(not expect-module_0)))" -"(if or-part_164" -" or-part_164" -"(let-values(((or-part_76)(symbol? expect-module_0)))" -"(if or-part_76" -" or-part_76" +"(if(let-values(((or-part_171)(not expect-module_0)))" +"(if or-part_171" +" or-part_171" +"(let-values(((or-part_82)(symbol? expect-module_0)))" +"(if or-part_82" +" or-part_82" "(if(list? expect-module_0)" "(if(>(length expect-module_0) 1)" -"(if(let-values(((or-part_77)(symbol?(car expect-module_0))))" -"(if or-part_77 or-part_77(not(car expect-module_0))))" +"(if(let-values(((or-part_83)(symbol?(car expect-module_0))))" +"(if or-part_83 or-part_83(not(car expect-module_0))))" "(andmap2 symbol?(cdr expect-module_0))" " #f)" " #f)" @@ -58237,22 +58679,22 @@ static const char *startup_source = "(let-values(((modes_3)(1/use-compiled-file-paths)))" "(let-values(((roots_3)(1/current-compiled-file-roots)))" "(let-values(((reroot_0)" -"(lambda(p_70 d_37)" +"(lambda(p_73 d_37)" "(begin" " 'reroot" "(if(eq? d_37 'same)" -"(let-values() p_70)" +"(let-values() p_73)" "(if(relative-path? d_37)" -"(let-values()(build-path p_70 d_37))" -"(let-values()(reroot-path p_70 d_37))))))))" +"(let-values()(build-path p_73 d_37))" +"(let-values()(reroot-path p_73 d_37))))))))" "(let-values(((main-path-d_0)(date-of-1_0 path_16)))" "(let-values(((alt-path-d_0)" "(if alt-path_0" "(if(not main-path-d_0)(date-of-1_0 alt-path_0) #f)" " #f)))" "(let-values(((path-d_0)" -"(let-values(((or-part_55) main-path-d_0))" -"(if or-part_55 or-part_55 alt-path-d_0))))" +"(let-values(((or-part_61) main-path-d_0))" +"(if or-part_61 or-part_61 alt-path-d_0))))" "(let-values(((get-so_0)" "(lambda(file_2 rep-sfx?_0)" "(begin" @@ -58285,16 +58727,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_288) main-path-d_0))" -"(if or-part_288" -" or-part_288" +"(let-values(((or-part_294) main-path-d_0))" +"(if or-part_294" +" or-part_294" "(not alt-path-d_0)))))" "(let-values(((try-alt?_0)" "(if alt-file_0" -"(let-values(((or-part_364)" +"(let-values(((or-part_370)" " alt-path-d_0))" -"(if or-part_364" -" or-part_364" +"(if or-part_370" +" or-part_370" "(not main-path-d_0)))" " #f)))" "(let-values(((with-dir_0)" @@ -58416,22 +58858,22 @@ static const char *startup_source = "(car zo-d_1)" " expect-module_0)))))))" " c4_3)" -"(if(let-values(((or-part_365)" +"(if(let-values(((or-part_371)" "(not" "(pair?" " expect-module_0))))" -"(if or-part_365" -" or-part_365" +"(if or-part_371" +" or-part_371" "(car expect-module_0)))" "(let-values()" -"(let-values(((p_71)" +"(let-values(((p_74)" "(if try-main?_0" " path_16" " alt-path_0)))" "(if(if(pair?" " expect-module_0)" "(not" -"(file-exists? p_71))" +"(file-exists? p_74))" " #f)" "(void)" "(let-values()" @@ -58444,14 +58886,14 @@ static const char *startup_source = " 1/current-module-declare-source" "(if expect-module_0" "(if(not try-main?_0)" -" p_71" +" p_74" " #f)" " #f))" "(let-values()" "(with-dir_0" "(lambda()" "((1/current-load)" -" p_71" +" p_74" " expect-module_0)))))))))" "(void))))))))))))))))))))))))))))))))))))))))))))" "(define-values" @@ -58466,70 +58908,70 @@ static const char *startup_source = "(begin(let-values(((e_40)(hash-ref -module-hash-table-table reg_0 #f)))(if e_40(ephemeron-value e_40) #f)))))" "(define-values" "(registry-table-set!)" -"(lambda(reg_1 v_195)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_195)))))" +"(lambda(reg_1 v_197)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_197)))))" "(define-values(CACHE-N) 512)" "(define-values(-path-cache)(make-vector CACHE-N #f))" "(define-values" "(path-cache-get)" -"(lambda(p_72)" +"(lambda(p_75)" "(begin" -"(let-values(((i_27)(modulo(abs(equal-hash-code p_72)) CACHE-N)))" +"(let-values(((i_27)(modulo(abs(equal-hash-code p_75)) CACHE-N)))" "(let-values(((w_1)(vector-ref -path-cache i_27)))" "(let-values(((l_81)(if w_1(weak-box-value w_1) #f)))" -"(if l_81(let-values(((a_71)(1/assoc p_72 l_81)))(if a_71(cdr a_71) #f)) #f)))))))" +"(if l_81(let-values(((a_77)(1/assoc p_75 l_81)))(if a_77(cdr a_77) #f)) #f)))))))" "(define-values" "(path-cache-set!)" -"(lambda(p_73 v_89)" +"(lambda(p_76 v_234)" "(begin" -"(let-values(((i_95)(modulo(abs(equal-hash-code p_73)) CACHE-N)))" -"(let-values(((w_2)(vector-ref -path-cache i_95)))" +"(let-values(((i_96)(modulo(abs(equal-hash-code p_76)) CACHE-N)))" +"(let-values(((w_2)(vector-ref -path-cache i_96)))" "(let-values(((l_70)(if w_2(weak-box-value w_2) #f)))" "(vector-set!" " -path-cache" -" i_95" +" i_96" "(make-weak-box" -"(cons(cons p_73 v_89)(let-values(((or-part_72) l_70))(if or-part_72 or-part_72 null)))))))))))" +"(cons(cons p_76 v_234)(let-values(((or-part_78) l_70))(if or-part_78 or-part_78 null)))))))))))" "(define-values(-loading-filename)(gensym))" "(define-values(-loading-prompt-tag)(make-continuation-prompt-tag 'module-loading))" "(define-values(-prev-relto) #f)" "(define-values(-prev-relto-dir) #f)" "(define-values" "(split-relative-string)" -"(lambda(s_475 coll-mode?_0)" +"(lambda(s_476 coll-mode?_0)" "(begin" "(let-values(((l_19)" -"((letrec-values(((loop_120)" -"(lambda(s_480)" +"((letrec-values(((loop_123)" +"(lambda(s_481)" "(begin" " 'loop" -"(let-values(((len_42)(string-length s_480)))" +"(let-values(((len_42)(string-length s_481)))" "((letrec-values(((iloop_2)" -"(lambda(i_191)" +"(lambda(i_192)" "(begin" " 'iloop" -"(if(= i_191 len_42)" -"(let-values()(list s_480))" -"(if(char=? '#\\/(string-ref s_480 i_191))" +"(if(= i_192 len_42)" +"(let-values()(list s_481))" +"(if(char=? '#\\/(string-ref s_481 i_192))" "(let-values()" "(cons" -"(substring s_480 0 i_191)" -"(loop_120(substring s_480(add1 i_191)))))" -"(let-values()(iloop_2(add1 i_191)))))))))" +"(substring s_481 0 i_192)" +"(loop_123(substring s_481(add1 i_192)))))" +"(let-values()(iloop_2(add1 i_192)))))))))" " iloop_2)" " 0))))))" -" loop_120)" -" s_475)))" +" loop_123)" +" s_476)))" "(if coll-mode?_0" " l_19" -"((letrec-values(((loop_101)" +"((letrec-values(((loop_104)" "(lambda(l_79)" "(begin" " 'loop" "(if(null?(cdr l_79))" "(values null(car l_79))" -"(let-values(((c_111 f_39)(loop_101(cdr l_79))))" +"(let-values(((c_111 f_39)(loop_104(cdr l_79))))" "(values(cons(car l_79) c_111) f_39)))))))" -" loop_101)" +" loop_104)" " l_19))))))" "(define-values" "(format-source-location)" @@ -58569,8 +59011,8 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_165)))" -"(if(let-values(((or-part_366)(not from-namespace_1)))" -"(if or-part_366 or-part_366(1/namespace? from-namespace_1)))" +"(if(let-values(((or-part_372)(not from-namespace_1)))" +"(if or-part_372 or-part_372(1/namespace? from-namespace_1)))" "(void)" "(let-values()" "(raise-argument-error" @@ -58579,11 +59021,11 @@ static const char *startup_source = " from-namespace_1)))" "(if planet-resolver_0(let-values()(planet-resolver_0 s_165))(void))" "(let-values(((hts_1)" -"(let-values(((or-part_256)" +"(let-values(((or-part_263)" "(registry-table-ref" "(1/namespace-module-registry(1/current-namespace)))))" -"(if or-part_256" -" or-part_256" +"(if or-part_263" +" or-part_263" "(let-values(((hts_2)(cons(make-hasheq)(make-hasheq))))" "(begin" "(registry-table-set!" @@ -58610,14 +59052,14 @@ static const char *startup_source = "(void))))" "(void))))" "(void)))))))" -"((s_481 relto_0 stx_17)" +"((s_482 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_481 relto_0 stx_17 #t)))" +"(standard-module-name-resolver_0 s_482 relto_0 stx_17 #t)))" "((s_26 relto_1 stx_18 load?_7)" "(let-values((()" "(begin" @@ -58633,8 +59075,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_147)(not relto_1)))" -"(if or-part_147 or-part_147(1/resolved-module-path? relto_1)))" +"(if(let-values(((or-part_153)(not relto_1)))" +"(if or-part_153 or-part_153(1/resolved-module-path? relto_1)))" "(void)" "(let-values()" "(raise-argument-error" @@ -58644,8 +59086,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_57)(not stx_18)))" -"(if or-part_57 or-part_57(syntax?$1 stx_18)))" +"(if(let-values(((or-part_63)(not stx_18)))" +"(if or-part_63 or-part_63(syntax?$1 stx_18)))" "(void)" "(let-values()" "(raise-argument-error" @@ -58657,18 +59099,18 @@ static const char *startup_source = "(lambda(base_27 orig-l_10)" "(begin" " 'flatten-sub-path" -"((letrec-values(((loop_121)" -"(lambda(a_73 l_33)" +"((letrec-values(((loop_124)" +"(lambda(a_79 l_33)" "(begin" " 'loop" "(if(null? l_33)" "(let-values()" -"(if(null? a_73)" +"(if(null? a_79)" " base_27" -"(cons base_27(reverse$1 a_73))))" +"(cons base_27(reverse$1 a_79))))" " (if (equal? (car l_33) \"..\")" "(let-values()" -"(if(null? a_73)" +"(if(null? a_79)" "(error" " 'standard-module-name-resolver" " \"too many \\\"..\\\"s in submodule path: ~.s\"" @@ -58684,12 +59126,12 @@ static const char *startup_source = " 'file)" " base_27)))" " orig-l_10))" -"(loop_121(cdr a_73)(cdr l_33))))" +"(loop_124(cdr a_79)(cdr l_33))))" "(let-values()" -"(loop_121" -"(cons(car l_33) a_73)" +"(loop_124" +"(cons(car l_33) a_79)" "(cdr l_33)))))))))" -" loop_121)" +" loop_124)" " null" " orig-l_10)))))" "(if(if(pair? s_26)(eq?(car s_26) 'quote) #f)" @@ -58703,14 +59145,14 @@ static const char *startup_source = "(1/make-resolved-module-path(flatten-sub-path_0(cadadr s_26)(cddr s_26))))" "(if(if(pair? s_26)" "(if(eq?(car s_26) 'submod)" -" (if (let-values (((or-part_98) (equal? (cadr s_26) \".\")))" -" (if or-part_98 or-part_98 (equal? (cadr s_26) \"..\")))" +" (if (let-values (((or-part_104) (equal? (cadr s_26) \".\")))" +" (if or-part_104 or-part_104 (equal? (cadr s_26) \"..\")))" "(if relto_1" -"(let-values(((p_74)(1/resolved-module-path-name relto_1)))" -"(let-values(((or-part_38)(symbol? p_74)))" -"(if or-part_38" -" or-part_38" -"(if(pair? p_74)(symbol?(car p_74)) #f))))" +"(let-values(((p_77)(1/resolved-module-path-name relto_1)))" +"(let-values(((or-part_44)(symbol? p_77)))" +"(if or-part_44" +" or-part_44" +"(if(pair? p_77)(symbol?(car p_77)) #f))))" " #f)" " #f)" " #f)" @@ -58720,9 +59162,9 @@ static const char *startup_source = "(1/make-resolved-module-path" "(flatten-sub-path_0" "(if(pair? rp_0)(car rp_0) rp_0)" -"(let-values(((r_50)" +"(let-values(((r_48)" " (if (equal? (cadr s_26) \"..\") (cdr s_26) (cddr s_26))))" -"(if(pair? rp_0)(append(cdr rp_0) r_50) r_50))))))" +"(if(pair? rp_0)(append(cdr rp_0) r_48) r_48))))))" "(if(if(pair? s_26)(eq?(car s_26) 'planet) #f)" "(let-values()" "(begin" @@ -58748,23 +59190,23 @@ static const char *startup_source = "(lambda()" "(begin" " 'get-dir" -"(let-values(((or-part_58)" +"(let-values(((or-part_64)" "(if relto_1" "(if(eq? relto_1 -prev-relto)" " -prev-relto-dir" -"(let-values(((p_75)" +"(let-values(((p_78)" "(1/resolved-module-path-name" " relto_1)))" -"(let-values(((p_76)" -"(if(pair? p_75)" -"(car p_75)" -" p_75)))" -"(if(path? p_76)" +"(let-values(((p_79)" +"(if(pair? p_78)" +"(car p_78)" +" p_78)))" +"(if(path? p_79)" "(let-values(((base_28" -" n_35" +" n_37" " d?_0)" "(split-path" -" p_76)))" +" p_79)))" "(begin" "(set! -prev-relto relto_1)" "(set! -prev-relto-dir" @@ -58772,12 +59214,12 @@ static const char *startup_source = " base_28))" " #f))))" " #f)))" -"(if or-part_58" -" or-part_58" -"(let-values(((or-part_45)" +"(if or-part_64" +" or-part_64" +"(let-values(((or-part_51)" "(current-load-relative-directory)))" -"(if or-part_45" -" or-part_45" +"(if or-part_51" +" or-part_51" "(current-directory))))))))" "((get-reg_0)" "(lambda()" @@ -58790,15 +59232,15 @@ static const char *startup_source = " 'show-collection-err" "(let-values(((msg_2)" "(string-append" -"(let-values(((or-part_139)" +"(let-values(((or-part_178)" "(if stx_18" "(if(error-print-source-location)" "(format-source-location" " stx_18)" " #f)" " #f)))" -"(if or-part_139" -" or-part_139" +"(if or-part_178" +" or-part_178" " \"standard-module-name-resolver\"))" " \": \"" "(regexp-replace" @@ -58819,65 +59261,65 @@ static const char *startup_source = "(current-continuation-marks)" " s_26)))))))" "((ss->rkt_0)" -"(lambda(s_482)" +"(lambda(s_483)" "(begin" " 'ss->rkt" -"(let-values(((len_43)(string-length s_482)))" +"(let-values(((len_43)(string-length s_483)))" "(if(if(>= len_43 3)" "(if(equal?" " '#\\." -"(string-ref s_482(- len_43 3)))" +"(string-ref s_483(- len_43 3)))" "(if(equal?" " '#\\s" -"(string-ref s_482(- len_43 2)))" +"(string-ref s_483(- len_43 2)))" "(equal?" " '#\\s" -"(string-ref s_482(- len_43 1)))" +"(string-ref s_483(- len_43 1)))" " #f)" " #f)" " #f)" "(string-append" -"(substring s_482 0(- len_43 3))" +"(substring s_483 0(- len_43 3))" " \".rkt\")" -" s_482)))))" +" s_483)))))" "((path-ss->rkt_0)" -"(lambda(p_77)" +"(lambda(p_80)" "(begin" " 'path-ss->rkt" "(let-values(((base_29 name_78 dir?_8)" -"(split-path p_77)))" +"(split-path p_80)))" " (if (regexp-match '#rx\"[.]ss$\" (path->bytes name_78))" -" (path-replace-extension p_77 #\".rkt\")" -" p_77)))))" +" (path-replace-extension p_80 #\".rkt\")" +" p_80)))))" "((s_31)" "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)" -"(let-values(((v_243)(cadr s_26)))" -" (if (let-values (((or-part_360) (equal? v_243 \".\")))" -" (if or-part_360 or-part_360 (equal? v_243 \"..\")))" +"(let-values(((v_245)(cadr s_26)))" +" (if (let-values (((or-part_366) (equal? v_245 \".\")))" +" (if or-part_366 or-part_366 (equal? v_245 \"..\")))" "(if relto_1" -"(let-values(((p_78)" +"(let-values(((p_81)" "(1/resolved-module-path-name" " relto_1)))" -"(if(pair? p_78)(car p_78) p_78))" +"(if(pair? p_81)(car p_81) p_81))" "(error" " 'standard-module-name-resolver" " \"no base path for relative submodule path: ~.s\"" " s_26))" -" v_243))" +" v_245))" " s_26))" "((subm-path_0)" "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)" -"(let-values(((p_79)" -"(if(if(let-values(((or-part_46)" +"(let-values(((p_82)" +"(if(if(let-values(((or-part_52)" "(equal?" "(cadr s_26)" " \".\")))" -"(if or-part_46" -" or-part_46" +"(if or-part_52" +" or-part_52" " (equal? (cadr s_26) \"..\")))" " relto_1" " #f)" -"(let-values(((p_80)" +"(let-values(((p_83)" "(1/resolved-module-path-name" " relto_1))" "((r_15)" @@ -58886,26 +59328,26 @@ static const char *startup_source = " \"..\")" "(cdr s_26)" "(cddr s_26))))" -"(if(pair? p_80)" +"(if(pair? p_83)" "(flatten-sub-path_0" -"(car p_80)" -"(append(cdr p_80) r_15))" -"(flatten-sub-path_0 p_80 r_15)))" +"(car p_83)" +"(append(cdr p_83) r_15))" +"(flatten-sub-path_0 p_83 r_15)))" "(flatten-sub-path_0" " \".\"" " (if (equal? (cadr s_26) \"..\")" "(cdr s_26)" "(cddr s_26))))))" -"(if(pair? p_79)(cdr p_79) #f))" +"(if(pair? p_82)(cdr p_82) #f))" " #f)))" "(let-values(((s-parsed_0)" "(if(symbol? s_31)" "(let-values()" -"(let-values(((or-part_49)" +"(let-values(((or-part_55)" "(path-cache-get" "(cons s_31(get-reg_0)))))" -"(if or-part_49" -" or-part_49" +"(if or-part_55" +" or-part_55" "(let-values(((cols_0 file_3)" "(split-relative-string" "(symbol->string s_31)" @@ -58925,11 +59367,11 @@ static const char *startup_source = "(if(string? s_31)" "(let-values()" "(let-values(((dir_4)(get-dir_0)))" -"(let-values(((or-part_367)" +"(let-values(((or-part_373)" "(path-cache-get" "(cons s_31 dir_4))))" -"(if or-part_367" -" or-part_367" +"(if or-part_373" +" or-part_373" "(let-values(((cols_1 file_4)" "(split-relative-string" " s_31" @@ -58941,12 +59383,12 @@ static const char *startup_source = " dir_4" "(append" "(map2" -"(lambda(s_158)" -" (if (string=? s_158 \".\")" +"(lambda(s_318)" +" (if (string=? s_318 \".\")" "(let-values() 'same)" -" (if (string=? s_158 \"..\")" +" (if (string=? s_318 \"..\")" "(let-values() 'up)" -"(let-values() s_158))))" +"(let-values() s_318))))" " cols_1)" "(list(ss->rkt_0 file_4))))))))))" "(if(path? s_31)" @@ -58958,11 +59400,11 @@ static const char *startup_source = "(path->complete-path s_31(get-dir_0))))))" "(if(eq?(car s_31) 'lib)" "(let-values()" -"(let-values(((or-part_88)" +"(let-values(((or-part_94)" "(path-cache-get" "(cons s_31(get-reg_0)))))" -"(if or-part_88" -" or-part_88" +"(if or-part_94" +" or-part_94" "(let-values(((cols_2 file_5)" "(split-relative-string" "(cadr s_31)" @@ -58996,9 +59438,9 @@ static const char *startup_source = "(apply" " append" "(map2" -"(lambda(p_81)" +"(lambda(p_84)" "(split-relative-string" -" p_81" +" p_84" " #t))" "(cddr s_31))))" " cols_2)" @@ -59020,8 +59462,8 @@ static const char *startup_source = "(get-dir_0)))))" "(void))))))))" "(begin" -"(if(let-values(((or-part_368)(path? s-parsed_0)))" -"(if or-part_368 or-part_368(vector? s-parsed_0)))" +"(if(let-values(((or-part_374)(path? s-parsed_0)))" +"(if or-part_374 or-part_374(vector? s-parsed_0)))" "(void)" "(let-values()" "(if stx_18" @@ -59059,11 +59501,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_369)" +"(let-values(((or-part_375)" "(registry-table-ref" "(get-reg_0))))" -"(if or-part_369" -" or-part_369" +"(if or-part_375" +" or-part_375" "(let-values(((hts_4)" "(cons" "(make-hasheq)" @@ -59106,11 +59548,11 @@ static const char *startup_source = "((nsr_0)(get-reg_0)))" "(begin" "(for-each2" -"(lambda(s_405)" +"(lambda(s_406)" "(if(if(equal?" -"(cdr s_405)" +"(cdr s_406)" " normal-filename_0)" -"(eq?(car s_405) nsr_0)" +"(eq?(car s_406) nsr_0)" " #f)" "(let-values()" "(error" @@ -59119,7 +59561,7 @@ static const char *startup_source = " filename_2" "(apply" " string-append" -"((letrec-values(((loop_122)" +"((letrec-values(((loop_125)" "(lambda(l_82)" "(begin" " 'loop" @@ -59131,10 +59573,10 @@ static const char *startup_source = "(path->string" "(cdar" " l_82))" -"(loop_122" +"(loop_125" "(cdr" " l_82))))))))" -" loop_122)" +" loop_125)" "(reverse$1 loading_0)))))" "(void)))" " loading_0)" @@ -59161,10 +59603,10 @@ static const char *startup_source = " root-modname_0" " 1/current-module-path-for-load" "((if stx_18" -"(lambda(p_82)" +"(lambda(p_85)" "(1/datum->syntax" " #f" -" p_82" +" p_85" " stx_18))" " values)" "(if(symbol? s_31)" @@ -59188,7 +59630,7 @@ static const char *startup_source = "(let-values()" "((1/current-load/use-compiled)" " filename_2" -"(let-values(((sym_100)" +"(let-values(((sym_101)" "(string->symbol" "(path->string" " no-sfx_0))))" @@ -59199,20 +59641,20 @@ static const char *startup_source = " #f)" "(cons #f subm-path_0)" "(cons" -" sym_100" +" sym_101" " subm-path_0))" -" sym_100))))))))))))))" +" sym_101))))))))))))))" "(void))" "(if(if(not(vector? s-parsed_0))" "(if load?_7" -"(let-values(((or-part_266)" +"(let-values(((or-part_272)" "(string? s_31)))" -"(if or-part_266" -" or-part_266" -"(let-values(((or-part_370)" +"(if or-part_272" +" or-part_272" +"(let-values(((or-part_376)" "(symbol? s_31)))" -"(if or-part_370" -" or-part_370" +"(if or-part_376" +" or-part_376" "(if(pair? s_31)" "(eq?(car s_31) 'lib)" " #f)))))" @@ -59240,12 +59682,12 @@ static const char *startup_source = " s_61" "(1/current-namespace)" "(let-values(((c_112)(1/current-compile)))" -"(lambda(e_83 ns_119)" -"(if(eq? ns_119(1/current-namespace))" +"(lambda(e_83 ns_118)" +"(if(eq? ns_118(1/current-namespace))" "(c_112 e_83 #t)" "(with-continuation-mark" " parameterization-key" -"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_119)" +"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_118)" "(let-values()(c_112 e_83 #t))))))))))" "(define-values" "(default-compile-handler)" @@ -59313,18 +59755,18 @@ static const char *startup_source = "(let-values(((inside-sc_0)(new-scope 'intdef)))" "(let-values(((init-bodys_0)" "(reverse$1" -"(let-values(((lst_264) bodys_7))" +"(let-values(((lst_261) bodys_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_264)))" -"((letrec-values(((for-loop_264)" +"(let-values()(check-list lst_261)))" +"((letrec-values(((for-loop_265)" "(lambda(fold-var_65 lst_168)" "(begin" " 'for-loop" "(if(pair? lst_168)" "(let-values(((body_11)(unsafe-car lst_168))" -"((rest_140)(unsafe-cdr lst_168)))" +"((rest_139)(unsafe-cdr lst_168)))" "(let-values(((fold-var_11)" "(let-values(((fold-var_12) fold-var_65))" "(let-values(((fold-var_211)" @@ -59337,12 +59779,12 @@ static const char *startup_source = " fold-var_12))))" "(values fold-var_211)))))" "(if(not #f)" -"(for-loop_264 fold-var_11 rest_140)" +"(for-loop_265 fold-var_11 rest_139)" " fold-var_11)))" " fold-var_65)))))" -" for-loop_264)" +" for-loop_265)" " null" -" lst_264))))))" +" lst_261))))))" "(let-values((()" "(begin" "(let-values(((obs_64)(expand-context-observer ctx_14)))" @@ -59356,15 +59798,15 @@ static const char *startup_source = "(datum->syntax$1 #f bodys_7))))" "(void)))" "(values))))" -"(let-values(((phase_141)(expand-context-phase ctx_14)))" +"(let-values(((phase_143)(expand-context-phase ctx_14)))" "(let-values(((frame-id_2)(make-reference-record)))" "(let-values(((def-ctx-scopes_6)(box null)))" "(let-values(((body-ctx_0)" -"(let-values(((v_244) ctx_14))" -"(let-values(((the-struct_89) v_244))" -"(if(expand-context/outer? the-struct_89)" +"(let-values(((v_246) ctx_14))" +"(let-values(((the-struct_91) v_246))" +"(if(expand-context/outer? the-struct_91)" "(let-values(((context51_0)(list(make-liberal-define-context)))" -"((name52_1) #f)" +"((name52_0) #f)" "((only-immediate?53_0) #t)" "((def-ctx-scopes54_0) def-ctx-scopes_6)" "((post-expansion-scope55_0) inside-sc_0)" @@ -59377,27 +59819,27 @@ static const char *startup_source = "(cons" " frame-id_2" "(expand-context-reference-records ctx_14)))" -"((inner61_0)(root-expand-context/outer-inner v_244)))" +"((inner61_0)(root-expand-context/outer-inner v_246)))" "(expand-context/outer1.1" " inner61_0" " post-expansion-scope55_0" " use-site-scopes58_0" " frame-id59_0" " context51_0" -"(expand-context/outer-env the-struct_89)" +"(expand-context/outer-env the-struct_91)" " post-expansion-scope-action56_0" " scopes57_1" " def-ctx-scopes54_0" -"(expand-context/outer-binding-layer the-struct_89)" +"(expand-context/outer-binding-layer the-struct_91)" " reference-records60_0" " only-immediate?53_0" -"(expand-context/outer-need-eventually-defined the-struct_89)" -"(expand-context/outer-current-introduction-scopes the-struct_89)" -" name52_1))" +"(expand-context/outer-need-eventually-defined the-struct_91)" +"(expand-context/outer-current-introduction-scopes the-struct_91)" +" name52_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_89))))))" +" the-struct_91))))))" "(let-values(((maybe-increment-binding-layer_0)" "(lambda(ids_27 body-ctx_1)" "(begin" @@ -59408,7 +59850,7 @@ static const char *startup_source = "(increment-binding-layer ids_27 body-ctx_1 inside-sc_0)" "(expand-context-binding-layer body-ctx_1))))))" "(let-values(((name_79)(expand-context-name ctx_14)))" -"((letrec-values(((loop_123)" +"((letrec-values(((loop_126)" "(lambda(body-ctx_2" " bodys_8" " done-bodys_0" @@ -59469,50 +59911,50 @@ static const char *startup_source = "(null?" "(cdr bodys_8))" " #f)" -"(let-values(((v_85)" +"(let-values(((v_235)" " body-ctx_2))" -"(let-values(((the-struct_90)" -" v_85))" +"(let-values(((the-struct_92)" +" v_235))" "(if(expand-context/outer?" -" the-struct_90)" +" the-struct_92)" "(let-values(((name77_0)" " name_79)" "((inner78_0)" "(root-expand-context/outer-inner" -" v_85)))" +" v_235)))" "(expand-context/outer1.1" " inner78_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_90)" +" the-struct_92)" "(root-expand-context/outer-use-site-scopes" -" the-struct_90)" +" the-struct_92)" "(root-expand-context/outer-frame-id" -" the-struct_90)" +" the-struct_92)" "(expand-context/outer-context" -" the-struct_90)" +" the-struct_92)" "(expand-context/outer-env" -" the-struct_90)" +" the-struct_92)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_90)" +" the-struct_92)" "(expand-context/outer-scopes" -" the-struct_90)" +" the-struct_92)" "(expand-context/outer-def-ctx-scopes" -" the-struct_90)" +" the-struct_92)" "(expand-context/outer-binding-layer" -" the-struct_90)" +" the-struct_92)" "(expand-context/outer-reference-records" -" the-struct_90)" +" the-struct_92)" "(expand-context/outer-only-immediate?" -" the-struct_90)" +" the-struct_92)" "(expand-context/outer-need-eventually-defined" -" the-struct_90)" +" the-struct_92)" "(expand-context/outer-current-introduction-scopes" -" the-struct_90)" +" the-struct_92)" " name77_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_90))))" +" the-struct_92))))" " body-ctx_2)))" "(expand7.1" " #f" @@ -59523,11 +59965,11 @@ static const char *startup_source = " temp76_3))))" "(let-values(((disarmed-exp-body_0)" "(syntax-disarm$1 exp-body_0)))" -"(let-values(((tmp_60)" +"(let-values(((tmp_61)" "(core-form-sym" " disarmed-exp-body_0" -" phase_141)))" -"(if(equal? tmp_60 'begin)" +" phase_143)))" +"(if(equal? tmp_61 'begin)" "(let-values()" "(let-values((()" "(begin" @@ -59543,29 +59985,29 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_0 begin79_0 e80_0)" -"(let-values(((s_396)" +"(let-values(((s_397)" " disarmed-exp-body_0))" "(let-values(((orig-s_38)" -" s_396))" +" s_397))" "(let-values(((begin79_1" " e80_1)" -"(let-values(((s_483)" +"(let-values(((s_484)" "(if(syntax?$1" -" s_396)" +" s_397)" "(syntax-e$1" -" s_396)" -" s_396)))" +" s_397)" +" s_397)))" "(if(pair?" -" s_483)" +" s_484)" "(let-values(((begin81_0)" "(let-values(((s_44)" "(car" -" s_483)))" +" s_484)))" " s_44))" "((e82_0)" "(let-values(((s_166)" "(cdr" -" s_483)))" +" s_484)))" "(let-values(((s_167)" "(if(syntax?$1" " s_166)" @@ -59618,7 +60060,7 @@ static const char *startup_source = " 'splice" " splice-bodys_0)))" "(void)))" -"(loop_123" +"(loop_126" " body-ctx_2" " splice-bodys_0" " done-bodys_0" @@ -59629,7 +60071,7 @@ static const char *startup_source = " trans-idss_1" " stx-clauses_0" " dups_0)))))))" -"(if(equal? tmp_60 'define-values)" +"(if(equal? tmp_61 'define-values)" "(let-values()" "(let-values((()" "(begin" @@ -59664,10 +60106,10 @@ static const char *startup_source = "(if(pair?" " s_46)" "(let-values(((define-values86_0)" -"(let-values(((s_393)" +"(let-values(((s_394)" "(car" " s_46)))" -" s_393))" +" s_394))" "((id87_0" " rhs88_0)" "(let-values(((s_47)" @@ -59703,7 +60145,7 @@ static const char *startup_source = " orig-s_39))" "(let-values()" "(let-values(((id_16)" -"(let-values(((lst_307)" +"(let-values(((lst_306)" " flat-s_25))" "(begin" "(if(variable-reference-from-unsafe?" @@ -59711,20 +60153,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_307)))" -"((letrec-values(((for-loop_265)" +" lst_306)))" +"((letrec-values(((for-loop_266)" "(lambda(id_99" -" lst_308)" +" lst_307)" "(begin" " 'for-loop" "(if(pair?" -" lst_308)" +" lst_307)" "(let-values(((s_314)" "(unsafe-car" -" lst_308))" +" lst_307))" "((rest_177)" "(unsafe-cdr" -" lst_308)))" +" lst_307)))" "(let-values(((id_100)" "(let-values(((id_101)" " id_99))" @@ -59732,15 +60174,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id92_0)" "(let-values()" -"(if(let-values(((or-part_47)" +"(if(let-values(((or-part_53)" "(if(syntax?$1" " s_314)" "(symbol?" "(syntax-e$1" " s_314))" " #f)))" -"(if or-part_47" -" or-part_47" +"(if or-part_53" +" or-part_53" "(symbol?" " s_314)))" " s_314" @@ -59756,43 +60198,43 @@ static const char *startup_source = " id_79)))))" "(if(not" " #f)" -"(for-loop_265" +"(for-loop_266" " id_100" " rest_177)" " id_100)))" " id_99)))))" -" for-loop_265)" +" for-loop_266)" " null" -" lst_307)))))" +" lst_306)))))" "(reverse$1" " id_16))))))))" "((rhs90_0)" -"(let-values(((s_484)" +"(let-values(((s_485)" "(cdr" " s_69)))" -"(let-values(((s_485)" +"(let-values(((s_486)" "(if(syntax?$1" -" s_484)" -"(syntax-e$1" -" s_484)" -" s_484)))" -"(if(pair?" " s_485)" +"(syntax-e$1" +" s_485)" +" s_485)))" +"(if(pair?" +" s_486)" "(let-values(((rhs91_0)" "(let-values(((s_54)" "(car" -" s_485)))" +" s_486)))" " s_54))" "(()" -"(let-values(((s_434)" +"(let-values(((s_435)" "(cdr" -" s_485)))" +" s_486)))" "(let-values(((s_316)" "(if(syntax?$1" -" s_434)" +" s_435)" "(syntax-e$1" -" s_434)" -" s_434)))" +" s_435)" +" s_435)))" "(if(null?" " s_316)" "(values)" @@ -59852,7 +60294,7 @@ static const char *startup_source = "(let-values(((ids93_0)" " ids_4)" "((phase94_0)" -" phase_141)" +" phase_143)" "((exp-body95_0)" " exp-body_0)" "((dups96_0)" @@ -59880,22 +60322,22 @@ static const char *startup_source = "(check-list" " lst_191)))" "((letrec-values(((for-loop_12)" -"(lambda(fold-var_270" -" lst_309)" +"(lambda(fold-var_272" +" lst_308)" "(begin" " 'for-loop" "(if(pair?" -" lst_309)" +" lst_308)" "(let-values(((id_102)" "(unsafe-car" -" lst_309))" +" lst_308))" "((rest_178)" "(unsafe-cdr" -" lst_309)))" -"(let-values(((fold-var_271)" -"(let-values(((fold-var_242)" -" fold-var_270))" -"(let-values(((fold-var_229)" +" lst_308)))" +"(let-values(((fold-var_273)" +"(let-values(((fold-var_244)" +" fold-var_272))" +"(let-values(((fold-var_230)" "(let-values()" "(cons" "(let-values()" @@ -59909,23 +60351,23 @@ static const char *startup_source = " exp-body101_0" " #t" " id_102" -" phase_141" +" phase_143" " counter_5)))" -" fold-var_242))))" +" fold-var_244))))" "(values" -" fold-var_229)))))" +" fold-var_230)))))" "(if(not" " #f)" "(for-loop_12" -" fold-var_271" +" fold-var_273" " rest_178)" -" fold-var_271)))" -" fold-var_270)))))" +" fold-var_273)))" +" fold-var_272)))))" " for-loop_12)" " null" " lst_191))))))" "(let-values(((extended-env_0)" -"(let-values(((lst_310)" +"(let-values(((lst_309)" " keys_5)" "((lst_221)" " ids_4))" @@ -59935,14 +60377,14 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_310)))" +" lst_309)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" " lst_221)))" -"((letrec-values(((for-loop_229)" +"((letrec-values(((for-loop_230)" "(lambda(env_17" " lst_192" " lst_223)" @@ -59979,22 +60421,22 @@ static const char *startup_source = " env_20)))))" "(if(not" " #f)" -"(for-loop_229" +"(for-loop_230" " env_18" " rest_179" " rest_102)" " env_18)))" " env_17)))))" -" for-loop_229)" +" for-loop_230)" "(expand-context-env" " body-ctx_2)" -" lst_310" +" lst_309" " lst_221)))))" -"(loop_123" -"(let-values(((v_245)" +"(loop_126" +"(let-values(((v_247)" " body-ctx_2))" "(let-values(((the-struct_52)" -" v_245))" +" v_247))" "(if(expand-context/outer?" " the-struct_52)" "(let-values(((env102_0)" @@ -60005,7 +60447,7 @@ static const char *startup_source = " body-ctx_2))" "((inner104_0)" "(root-expand-context/outer-inner" -" v_245)))" +" v_247)))" "(expand-context/outer1.1" " inner104_0" "(root-expand-context/outer-post-expansion-scope" @@ -60066,23 +60508,23 @@ static const char *startup_source = "((rest_180)" "(unsafe-cdr" " lst_196)))" -"(let-values(((fold-var_272)" -"(let-values(((fold-var_273)" -" fold-var_187))" "(let-values(((fold-var_274)" +"(let-values(((fold-var_275)" +" fold-var_187))" +"(let-values(((fold-var_276)" "(let-values()" "(cons" "(let-values()" " null)" -" fold-var_273))))" +" fold-var_275))))" "(values" -" fold-var_274)))))" +" fold-var_276)))))" "(if(not" " #f)" "(for-loop_41" -" fold-var_272" +" fold-var_274" " rest_180)" -" fold-var_272)))" +" fold-var_274)))" " fold-var_187)))))" " for-loop_41)" " null" @@ -60092,7 +60534,7 @@ static const char *startup_source = " keys_5" "(append" "(reverse$1" -"(let-values(((lst_311)" +"(let-values(((lst_310)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -60100,41 +60542,41 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_311)))" -"((letrec-values(((for-loop_266)" +" lst_310)))" +"((letrec-values(((for-loop_267)" "(lambda(fold-var_190" -" lst_312)" +" lst_311)" "(begin" " 'for-loop" "(if(pair?" -" lst_312)" +" lst_311)" "(let-values(((done-body_1)" "(unsafe-car" -" lst_312))" +" lst_311))" "((rest_181)" "(unsafe-cdr" -" lst_312)))" -"(let-values(((fold-var_275)" -"(let-values(((fold-var_276)" -" fold-var_190))" +" lst_311)))" "(let-values(((fold-var_277)" +"(let-values(((fold-var_278)" +" fold-var_190))" +"(let-values(((fold-var_279)" "(let-values()" "(cons" "(let-values()" " null)" -" fold-var_276))))" +" fold-var_278))))" "(values" -" fold-var_277)))))" +" fold-var_279)))))" "(if(not" " #f)" -"(for-loop_266" -" fold-var_275" +"(for-loop_267" +" fold-var_277" " rest_181)" -" fold-var_275)))" +" fold-var_277)))" " fold-var_190)))))" -" for-loop_266)" +" for-loop_267)" " null" -" lst_311))))" +" lst_310))))" " val-keyss_0))" "(cons" " rhs85_0" @@ -60149,22 +60591,22 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_148)))" -"((letrec-values(((for-loop_115)" -"(lambda(fold-var_278" -" lst_313)" +"((letrec-values(((for-loop_116)" +"(lambda(fold-var_280" +" lst_312)" "(begin" " 'for-loop" "(if(pair?" -" lst_313)" +" lst_312)" "(let-values(((done-body_2)" "(unsafe-car" -" lst_313))" +" lst_312))" "((rest_182)" "(unsafe-cdr" -" lst_313)))" +" lst_312)))" "(let-values(((fold-var_41)" -"(let-values(((fold-var_279)" -" fold-var_278))" +"(let-values(((fold-var_281)" +" fold-var_280))" "(let-values(((fold-var_22)" "(let-values()" "(cons" @@ -60172,18 +60614,18 @@ static const char *startup_source = "(no-binds" " done-body_2" " s_40" -" phase_141))" -" fold-var_279))))" +" phase_143))" +" fold-var_281))))" "(values" " fold-var_22)))))" "(if(not" " #f)" -"(for-loop_115" +"(for-loop_116" " fold-var_41" " rest_182)" " fold-var_41)))" -" fold-var_278)))))" -" for-loop_115)" +" fold-var_280)))))" +" for-loop_116)" " null" " lst_148))))" " val-rhss_0))" @@ -60200,7 +60642,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_102)))" -"((letrec-values(((for-loop_117)" +"((letrec-values(((for-loop_118)" "(lambda(fold-var_25" " lst_149)" "(begin" @@ -60226,19 +60668,19 @@ static const char *startup_source = " fold-var_133)))))" "(if(not" " #f)" -"(for-loop_117" +"(for-loop_118" " fold-var_131" " rest_75)" " fold-var_131)))" " fold-var_25)))))" -" for-loop_117)" +" for-loop_118)" " null" " lst_102))))" " track-stxs_0))" " trans-idss_1" " stx-clauses_0" " new-dups_0))))))))))" -"(if(equal? tmp_60 'define-syntaxes)" +"(if(equal? tmp_61 'define-syntaxes)" "(let-values()" "(let-values((()" "(begin" @@ -60273,33 +60715,33 @@ static const char *startup_source = "(if(pair?" " s_95)" "(let-values(((define-syntaxes108_0)" -"(let-values(((s_486)" +"(let-values(((s_487)" "(car" " s_95)))" -" s_486))" +" s_487))" "((id109_0" " rhs110_0)" -"(let-values(((s_487)" +"(let-values(((s_488)" "(cdr" " s_95)))" -"(let-values(((s_488)" -"(if(syntax?$1" -" s_487)" -"(syntax-e$1" -" s_487)" -" s_487)))" -"(if(pair?" -" s_488)" -"(let-values(((id111_0)" "(let-values(((s_489)" -"(car" +"(if(syntax?$1" +" s_488)" +"(syntax-e$1" +" s_488)" " s_488)))" +"(if(pair?" +" s_489)" +"(let-values(((id111_0)" +"(let-values(((s_490)" +"(car" +" s_489)))" "(let-values(((s_208)" "(if(syntax?$1" -" s_489)" +" s_490)" "(syntax-e$1" -" s_489)" -" s_489)))" +" s_490)" +" s_490)))" "(let-values(((flat-s_26)" "(to-syntax-list.1" " s_208)))" @@ -60341,15 +60783,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id114_0)" "(let-values()" -"(if(let-values(((or-part_371)" +"(if(let-values(((or-part_377)" "(if(syntax?$1" " s_67)" "(symbol?" "(syntax-e$1" " s_67))" " #f)))" -"(if or-part_371" -" or-part_371" +"(if or-part_377" +" or-part_377" "(symbol?" " s_67)))" " s_67" @@ -60378,7 +60820,7 @@ static const char *startup_source = "((rhs112_0)" "(let-values(((s_102)" "(cdr" -" s_488)))" +" s_489)))" "(let-values(((s_154)" "(if(syntax?$1" " s_102)" @@ -60388,22 +60830,22 @@ static const char *startup_source = "(if(pair?" " s_154)" "(let-values(((rhs113_0)" -"(let-values(((s_490)" +"(let-values(((s_491)" "(car" " s_154)))" -" s_490))" +" s_491))" "(()" -"(let-values(((s_491)" +"(let-values(((s_492)" "(cdr" " s_154)))" -"(let-values(((s_492)" +"(let-values(((s_493)" "(if(syntax?$1" -" s_491)" -"(syntax-e$1" -" s_491)" -" s_491)))" -"(if(null?" " s_492)" +"(syntax-e$1" +" s_492)" +" s_492)))" +"(if(null?" +" s_493)" "(values)" "(raise-syntax-error$1" " #f" @@ -60461,7 +60903,7 @@ static const char *startup_source = "(let-values(((ids115_0)" " ids_28)" "((phase116_0)" -" phase_141)" +" phase_143)" "((exp-body117_0)" " exp-body_0)" "((dups118_0)" @@ -60479,7 +60921,7 @@ static const char *startup_source = " ctx_14)))" "(let-values(((keys_6)" "(reverse$1" -"(let-values(((lst_314)" +"(let-values(((lst_313)" " ids_28))" "(begin" "(if(variable-reference-from-unsafe?" @@ -60487,24 +60929,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_314)))" -"((letrec-values(((for-loop_267)" -"(lambda(fold-var_280" -" lst_315)" +" lst_313)))" +"((letrec-values(((for-loop_268)" +"(lambda(fold-var_282" +" lst_314)" "(begin" " 'for-loop" "(if(pair?" -" lst_315)" +" lst_314)" "(let-values(((id_109)" "(unsafe-car" -" lst_315))" +" lst_314))" "((rest_183)" "(unsafe-cdr" -" lst_315)))" -"(let-values(((fold-var_281)" -"(let-values(((fold-var_282)" -" fold-var_280))" +" lst_314)))" "(let-values(((fold-var_283)" +"(let-values(((fold-var_284)" +" fold-var_282))" +"(let-values(((fold-var_285)" "(let-values()" "(cons" "(let-values()" @@ -60518,21 +60960,21 @@ static const char *startup_source = " exp-body123_0" " #t" " id_109" -" phase_141" +" phase_143" " counter_6)))" -" fold-var_282))))" +" fold-var_284))))" "(values" -" fold-var_283)))))" +" fold-var_285)))))" "(if(not" " #f)" -"(for-loop_267" -" fold-var_281" +"(for-loop_268" +" fold-var_283" " rest_183)" -" fold-var_281)))" -" fold-var_280)))))" -" for-loop_267)" +" fold-var_283)))" +" fold-var_282)))))" +" for-loop_268)" " null" -" lst_314))))))" +" lst_313))))))" "(let-values((()" "(begin" "(let-values(((obs_71)" @@ -60570,11 +61012,11 @@ static const char *startup_source = " ids_28" " body-ctx_2)))" "(let-values(((extended-env_1)" -"(let-values(((lst_316)" +"(let-values(((lst_315)" " keys_6)" -"((lst_317)" +"((lst_316)" " vals_8)" -"((lst_318)" +"((lst_317)" " ids_28))" "(begin" "(if(variable-reference-from-unsafe?" @@ -60582,6 +61024,12 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" +" lst_315)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" " lst_316)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -60589,45 +61037,39 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_317)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_318)))" -"((letrec-values(((for-loop_268)" +"((letrec-values(((for-loop_269)" "(lambda(env_21" +" lst_318" " lst_319" -" lst_320" -" lst_321)" +" lst_320)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_319)" +" lst_318)" "(if(pair?" -" lst_320)" +" lst_319)" "(pair?" -" lst_321)" +" lst_320)" " #f)" " #f)" "(let-values(((key_91)" "(unsafe-car" -" lst_319))" +" lst_318))" "((rest_184)" "(unsafe-cdr" -" lst_319))" +" lst_318))" "((val_83)" "(unsafe-car" -" lst_320))" +" lst_319))" "((rest_185)" "(unsafe-cdr" -" lst_320))" +" lst_319))" "((id_110)" "(unsafe-car" -" lst_321))" +" lst_320))" "((rest_186)" "(unsafe-cdr" -" lst_321)))" +" lst_320)))" "(let-values(((env_22)" "(let-values(((env_23)" " env_21))" @@ -60637,7 +61079,7 @@ static const char *startup_source = "(maybe-install-free=id-in-context!" " val_83" " id_110" -" phase_141" +" phase_143" " body-ctx_2)" "(env-extend" " env_23" @@ -60647,19 +61089,19 @@ static const char *startup_source = " env_24)))))" "(if(not" " #f)" -"(for-loop_268" +"(for-loop_269" " env_22" " rest_184" " rest_185" " rest_186)" " env_22)))" " env_21)))))" -" for-loop_268)" +" for-loop_269)" "(expand-context-env" " body-ctx_2)" +" lst_315" " lst_316" -" lst_317" -" lst_318)))))" +" lst_317)))))" "(begin" "(let-values(((obs_73)" "(expand-context-observer" @@ -60671,13 +61113,13 @@ static const char *startup_source = " obs_73" " 'exit-bind)))" "(void)))" -"(loop_123" -"(let-values(((v_246)" +"(loop_126" +"(let-values(((v_248)" " body-ctx_2))" -"(let-values(((the-struct_91)" -" v_246))" +"(let-values(((the-struct_93)" +" v_248))" "(if(expand-context/outer?" -" the-struct_91)" +" the-struct_93)" "(let-values(((env124_0)" " extended-env_1)" "((binding-layer125_0)" @@ -60686,39 +61128,39 @@ static const char *startup_source = " body-ctx_2))" "((inner126_0)" "(root-expand-context/outer-inner" -" v_246)))" +" v_248)))" "(expand-context/outer1.1" " inner126_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_91)" +" the-struct_93)" "(root-expand-context/outer-use-site-scopes" -" the-struct_91)" +" the-struct_93)" "(root-expand-context/outer-frame-id" -" the-struct_91)" +" the-struct_93)" "(expand-context/outer-context" -" the-struct_91)" +" the-struct_93)" " env124_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_91)" +" the-struct_93)" "(expand-context/outer-scopes" -" the-struct_91)" +" the-struct_93)" "(expand-context/outer-def-ctx-scopes" -" the-struct_91)" +" the-struct_93)" " binding-layer125_0" "(expand-context/outer-reference-records" -" the-struct_91)" +" the-struct_93)" "(expand-context/outer-only-immediate?" -" the-struct_91)" +" the-struct_93)" "(expand-context/outer-need-eventually-defined" -" the-struct_91)" +" the-struct_93)" "(expand-context/outer-current-introduction-scopes" -" the-struct_91)" +" the-struct_93)" "(expand-context/outer-name" -" the-struct_91)))" +" the-struct_93)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_91))))" +" the-struct_93))))" " rest-bodys_0" " done-bodys_0" " val-idss_0" @@ -60746,7 +61188,7 @@ static const char *startup_source = "(let-values()" "(error" " \"internal error: accumulated expressions not empty\")))" -"(loop_123" +"(loop_126" " body-ctx_2" " null" "(if(if(null? val-idss_0)" @@ -60762,7 +61204,7 @@ static const char *startup_source = "(cons" "(core-id" " '#%stratified-body" -" phase_141)" +" phase_143)" "(cons" " exp-body_0" " rest-bodys_0)))))" @@ -60774,7 +61216,7 @@ static const char *startup_source = " stx-clauses_0" " dups_0)))" "(let-values()" -"(loop_123" +"(loop_126" " body-ctx_2" " rest-bodys_0" "(cons exp-body_0 done-bodys_0)" @@ -60785,7 +61227,7 @@ static const char *startup_source = " trans-idss_1" " stx-clauses_0" " dups_0))))))))))))))))))" -" loop_123)" +" loop_126)" " body-ctx_0" " init-bodys_0" " null" @@ -60822,7 +61264,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_493) source10_0))" +"(let-values(((s_494) source10_0))" "(let-values(((stratified?_1) stratified?11_0))" "(let-values(((name_80) name12_0))" "(let-values(((disappeared-transformer-bindings_0) disappeared-transformer-bindings13_0))" @@ -60834,16 +61276,16 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"no expression after a sequence of internal definitions\"" -" s_493))" +" s_494))" "(void))" "(values))))" "(let-values(((finish-ctx_0)" -"(let-values(((v_247)" +"(let-values(((v_249)" "(accumulate-def-ctx-scopes" " body-ctx_3" " def-ctx-scopes_7)))" -"(let-values(((the-struct_92) v_247))" -"(if(expand-context/outer? the-struct_92)" +"(let-values(((the-struct_94) v_249))" +"(if(expand-context/outer? the-struct_94)" "(let-values(((context127_0) 'expression)" "((use-site-scopes128_0)(box null))" "((scopes129_0)" @@ -60856,29 +61298,29 @@ static const char *startup_source = "((def-ctx-scopes131_0) #f)" "((post-expansion-scope132_0) #f)" "((inner133_0)" -"(root-expand-context/outer-inner v_247)))" +"(root-expand-context/outer-inner v_249)))" "(expand-context/outer1.1" " inner133_0" " post-expansion-scope132_0" " use-site-scopes128_0" -"(root-expand-context/outer-frame-id the-struct_92)" +"(root-expand-context/outer-frame-id the-struct_94)" " context127_0" -"(expand-context/outer-env the-struct_92)" +"(expand-context/outer-env the-struct_94)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_92)" +" the-struct_94)" " scopes129_0" " def-ctx-scopes131_0" -"(expand-context/outer-binding-layer the-struct_92)" -"(expand-context/outer-reference-records the-struct_92)" +"(expand-context/outer-binding-layer the-struct_94)" +"(expand-context/outer-reference-records the-struct_94)" " only-immediate?130_0" -"(expand-context/outer-need-eventually-defined the-struct_92)" +"(expand-context/outer-need-eventually-defined the-struct_94)" "(expand-context/outer-current-introduction-scopes" -" the-struct_92)" -"(expand-context/outer-name the-struct_92)))" +" the-struct_94)" +"(expand-context/outer-name the-struct_94)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_92))))))" +" the-struct_94))))))" "(let-values(((finish-bodys_0)" "(lambda()" "(begin" @@ -60919,41 +61361,41 @@ static const char *startup_source = "(values))))" "(let-values(((exp-bodys_0)" "(reverse$1" -"(let-values(((lst_322) done-bodys_1)" +"(let-values(((lst_321) done-bodys_1)" "((start_64) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_322)))" +"(check-list lst_321)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals start_64)))" -"((letrec-values(((for-loop_132)" -"(lambda(fold-var_284" -" lst_323" +"((letrec-values(((for-loop_133)" +"(lambda(fold-var_286" +" lst_322" " pos_123)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_323)" +" lst_322)" " #t" " #f)" "(let-values(((done-body_4)" "(unsafe-car" -" lst_323))" +" lst_322))" "((rest_187)" "(unsafe-cdr" -" lst_323))" -"((i_192)" +" lst_322))" +"((i_193)" " pos_123))" -"(let-values(((fold-var_285)" +"(let-values(((fold-var_287)" "(let-values(((fold-var_203)" -" fold-var_284))" -"(let-values(((fold-var_286)" +" fold-var_286))" +"(let-values(((fold-var_288)" "(let-values()" "(cons" "(let-values()" @@ -60973,53 +61415,53 @@ static const char *startup_source = "((temp135_2)" "(if(if name_80" "(=" -" i_192" +" i_193" " last-i_1)" " #f)" -"(let-values(((v_248)" +"(let-values(((v_250)" " finish-ctx_0))" -"(let-values(((the-struct_93)" -" v_248))" +"(let-values(((the-struct_95)" +" v_250))" "(if(expand-context/outer?" -" the-struct_93)" +" the-struct_95)" "(let-values(((name136_0)" " name_80)" "((inner137_0)" "(root-expand-context/outer-inner" -" v_248)))" +" v_250)))" "(expand-context/outer1.1" " inner137_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_93)" +" the-struct_95)" "(root-expand-context/outer-use-site-scopes" -" the-struct_93)" +" the-struct_95)" "(root-expand-context/outer-frame-id" -" the-struct_93)" +" the-struct_95)" "(expand-context/outer-context" -" the-struct_93)" +" the-struct_95)" "(expand-context/outer-env" -" the-struct_93)" +" the-struct_95)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_93)" +" the-struct_95)" "(expand-context/outer-scopes" -" the-struct_93)" +" the-struct_95)" "(expand-context/outer-def-ctx-scopes" -" the-struct_93)" +" the-struct_95)" "(expand-context/outer-binding-layer" -" the-struct_93)" +" the-struct_95)" "(expand-context/outer-reference-records" -" the-struct_93)" +" the-struct_95)" "(expand-context/outer-only-immediate?" -" the-struct_93)" +" the-struct_95)" "(expand-context/outer-need-eventually-defined" -" the-struct_93)" +" the-struct_95)" "(expand-context/outer-current-introduction-scopes" -" the-struct_93)" +" the-struct_95)" " name136_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_93))))" +" the-struct_95))))" " finish-ctx_0)))" "(expand7.1" " #f" @@ -61030,20 +61472,20 @@ static const char *startup_source = " temp135_2))))" " fold-var_203))))" "(values" -" fold-var_286)))))" +" fold-var_288)))))" "(if(not" " #f)" -"(for-loop_132" -" fold-var_285" +"(for-loop_133" +" fold-var_287" " rest_187" "(+" " pos_123" " 1))" -" fold-var_285)))" -" fold-var_284)))))" -" for-loop_132)" +" fold-var_287)))" +" fold-var_286)))))" +" for-loop_133)" " null" -" lst_322" +" lst_321" " start_64))))))" "(begin" "(let-values(((obs_77)" @@ -61068,7 +61510,7 @@ static const char *startup_source = "(call-expand-observe" " obs_78" " 'block->list" -"(datum->syntax$1 s_493 done-bodys_1))))" +"(datum->syntax$1 s_494 done-bodys_1))))" "(void)))" "(finish-bodys_0)))" "(let-values()" @@ -61081,7 +61523,7 @@ static const char *startup_source = "(log-letrec-values$1" " obs_79" " finish-ctx_0" -" s_493" +" s_494" " val-idss_1" " val-rhss_1" " track-stxs_1" @@ -61093,7 +61535,7 @@ static const char *startup_source = "(let-values(((temp142_1)(not stratified?_1))" "((frame-id143_0) frame-id_13)" "((finish-ctx144_0) finish-ctx_0)" -"((s145_0) s_493)" +"((s145_0) s_494)" "((temp146_1)(pair? stx-clauses_1))" "((finish-bodys147_0) finish-bodys_0)" "((temp148_1) #f))" @@ -61146,13 +61588,13 @@ static const char *startup_source = "(let-values(((split?_0) split?30_0))" "(let-values(((frame-id_14) frame-id31_0))" "(let-values(((ctx_74) ctx32_0))" -"(let-values(((s_370) source33_0))" +"(let-values(((s_371) 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_142)(expand-context-phase ctx_74)))" -"((letrec-values(((loop_124)" +"(let-values(((phase_144)(expand-context-phase ctx_74)))" +"((letrec-values(((loop_127)" "(lambda(idss_2" " keyss_1" " rhss_2" @@ -61176,12 +61618,12 @@ static const char *startup_source = "(if(expand-context-to-parsed? ctx_74)" "(if(null? accum-idss_0)" "(parsed-let-values17.1" -"(keep-properties-only s_370)" +"(keep-properties-only s_371)" " null" " null" " exp-body_1)" "(parsed-letrec-values18.1" -"(keep-properties-only s_370)" +"(keep-properties-only s_371)" "(reverse$1 accum-idss_0)" "(reverse$1" "(map2" @@ -61190,16 +61632,16 @@ static const char *startup_source = " accum-rhss_0))" " exp-body_1))" "(let-values(((track?149_0) track?_2)" -"((s150_0) s_370)" +"((s150_0) s_371)" "((temp151_2)" "(list*" "(if(null? accum-idss_0)" "(core-id" " 'let-values" -" phase_142)" +" phase_144)" "(core-id" " 'letrec-values" -" phase_142))" +" phase_144))" "(build-clauses" " accum-idss_0" " accum-rhss_0" @@ -61278,7 +61720,7 @@ static const char *startup_source = " \"internal error: accumulated ids not empty\")))" "(values))))" "(let-values(((exp-rest_0)" -"(loop_124" +"(loop_127" "(cdr idss_2)" "(cdr keyss_1)" "(cdr rhss_2)" @@ -61295,7 +61737,7 @@ static const char *startup_source = " ctx_74)" "(parsed-let-values17.1" "(keep-properties-only" -" s_370)" +" s_371)" "(list ids_29)" "(list" "(list" @@ -61305,12 +61747,12 @@ static const char *startup_source = "(let-values(((track?154_0)" " track?_2)" "((s155_0)" -" s_370)" +" s_371)" "((temp156_0)" "(list*" "(core-id" " 'let-values" -" phase_142)" +" phase_144)" "(list" "(build-clause" " ids_29" @@ -61344,14 +61786,14 @@ static const char *startup_source = "(list result-s_10)" " result-s_10))))))" "(if(if(not forward-references?_0)" -"(let-values(((or-part_372) split?_0))" -"(if or-part_372" -" or-part_372" +"(let-values(((or-part_378) split?_0))" +"(if or-part_378" +" or-part_378" "(null?(cdr idss_2))))" " #f)" "(let-values()" "(let-values(((exp-rest_1)" -"(loop_124" +"(loop_127" "(cdr idss_2)" "(cdr keyss_1)" "(cdr rhss_2)" @@ -61368,7 +61810,7 @@ static const char *startup_source = " ctx_74)" "(parsed-letrec-values18.1" "(keep-properties-only" -" s_370)" +" s_371)" "(reverse$1" "(cons" " ids_29" @@ -61386,12 +61828,12 @@ static const char *startup_source = "(let-values(((track?157_0)" " track?_2)" "((s158_0)" -" s_370)" +" s_371)" "((temp159_1)" "(list*" "(core-id" " 'letrec-values" -" phase_142)" +" phase_144)" "(build-clauses" "(cons" " ids_29" @@ -61430,7 +61872,7 @@ static const char *startup_source = "(list result-s_11)" " result-s_11)))))" "(let-values()" -"(loop_124" +"(loop_127" "(cdr idss_2)" "(cdr keyss_1)" "(cdr rhss_2)" @@ -61442,7 +61884,7 @@ static const char *startup_source = " track?_2" " get-list?_0" " can-log?_0)))))))))))))))))" -" loop_124)" +" loop_127)" " idss_1" " keyss_0" " rhss_1" @@ -61466,49 +61908,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_494 phase_143)" +"(lambda(expr_10 s_495 phase_145)" "(begin" -"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_143)))" +"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_145)))" "(datum->syntax$1" -"(core-id '#%app phase_143)" -"(list(core-id 'begin phase_143) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" -" s_494)))))" +"(core-id '#%app phase_145)" +"(list(core-id 'begin phase_145) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" +" s_495)))))" "(define-values" "(log-tag?)" "(lambda(had-stxes?_1 ctx_75)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_75)) #f))))" "(define-values" "(log-letrec-values$1)" -"(lambda(obs_85 ctx_76 s_495 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" +"(lambda(obs_85 ctx_76 s_496 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" "(begin" " 'log-letrec-values" -"(let-values(((phase_144)(expand-context-phase ctx_76)))" +"(let-values(((phase_146)(expand-context-phase ctx_76)))" "(let-values(((clauses_0)" "(reverse$1" -"(let-values(((lst_324) val-idss_2)((lst_325) val-rhss_2)((lst_326) track-stxs_4))" +"(let-values(((lst_323) val-idss_2)((lst_324) val-rhss_2)((lst_325) track-stxs_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_323)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_324)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_325)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_326)))" -"((letrec-values(((for-loop_269)" -"(lambda(fold-var_287 lst_238 lst_327 lst_328)" +"((letrec-values(((for-loop_270)" +"(lambda(fold-var_289 lst_238 lst_326 lst_327)" "(begin" " 'for-loop" -"(if(if(pair? lst_238)(if(pair? lst_327)(pair? lst_328) #f) #f)" +"(if(if(pair? lst_238)(if(pair? lst_326)(pair? lst_327) #f) #f)" "(let-values(((val-ids_0)(unsafe-car lst_238))" "((rest_188)(unsafe-cdr lst_238))" -"((val-rhs_0)(unsafe-car lst_327))" -"((rest_189)(unsafe-cdr lst_327))" -"((track-stx_2)(unsafe-car lst_328))" -"((rest_190)(unsafe-cdr lst_328)))" -"(let-values(((fold-var_288)" -"(let-values(((fold-var_289) fold-var_287))" +"((val-rhs_0)(unsafe-car lst_326))" +"((rest_189)(unsafe-cdr lst_326))" +"((track-stx_2)(unsafe-car lst_327))" +"((rest_190)(unsafe-cdr lst_327)))" "(let-values(((fold-var_290)" +"(let-values(((fold-var_291) fold-var_289))" +"(let-values(((fold-var_292)" "(let-values()" "(cons" "(let-values()" @@ -61516,26 +61958,26 @@ static const char *startup_source = " #f" "(list val-ids_0 val-rhs_0)" " track-stx_2))" -" fold-var_289))))" -"(values fold-var_290)))))" +" fold-var_291))))" +"(values fold-var_292)))))" "(if(not #f)" -"(for-loop_269 fold-var_288 rest_188 rest_189 rest_190)" -" fold-var_288)))" -" fold-var_287)))))" -" for-loop_269)" +"(for-loop_270 fold-var_290 rest_188 rest_189 rest_190)" +" fold-var_290)))" +" fold-var_289)))))" +" for-loop_270)" " null" +" lst_323" " lst_324" -" lst_325" -" lst_326))))))" +" lst_325))))))" "(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_144)))" +"(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_146)))" "(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_495)))" +" s_496)))" "(begin" "(call-expand-observe obs_85 'block->letrec(list lv-s_0))" "(call-expand-observe obs_85 'visit lv-s_0)" @@ -61550,7 +61992,7 @@ static const char *startup_source = " 'letrec-syntaxes-renames" " stx-clauses_2" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_495))" +"(datum->syntax$1 #f done-bodys_2 s_496))" "(call-expand-observe obs_85 'prepare-env)" "(call-expand-observe obs_85 'next-group)" "(if(null? val-idss_2)" @@ -61562,7 +62004,7 @@ static const char *startup_source = " obs_85" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_495)))))))" +"(datum->syntax$1 #f done-bodys_2 s_496)))))))" "(let-values()" "(begin" "(call-expand-observe obs_85 'prim-letrec-values)" @@ -61570,7 +62012,7 @@ static const char *startup_source = " obs_85" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_495))))))))))))))" +"(datum->syntax$1 #f done-bodys_2 s_496))))))))))))))" "(define-values" "(lambda-clause-expander)" "(lambda(s_70 disarmed-s_5 formals_1 bodys_9 ctx_77 log-renames-tag_0)" @@ -61586,19 +62028,19 @@ static const char *startup_source = "(let-values(((counter_7)(root-expand-context-counter ctx_77)))" "(let-values(((keys_7)" "(reverse$1" -"(let-values(((lst_269) ids_31))" +"(let-values(((lst_266) ids_31))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_269)))" -"((letrec-values(((for-loop_270)" +"(let-values()(check-list lst_266)))" +"((letrec-values(((for-loop_271)" "(lambda(fold-var_63 lst_38)" "(begin" " 'for-loop" "(if(pair? lst_38)" "(let-values(((id_111)(unsafe-car lst_38))" "((rest_191)(unsafe-cdr lst_38)))" -"(let-values(((fold-var_291)" +"(let-values(((fold-var_293)" "(let-values(((fold-var_64) fold-var_63))" "(let-values(((fold-var_150)" "(let-values()" @@ -61617,18 +62059,18 @@ static const char *startup_source = " fold-var_64))))" "(values fold-var_150)))))" "(if(not #f)" -"(for-loop_270 fold-var_291 rest_191)" -" fold-var_291)))" +"(for-loop_271 fold-var_293 rest_191)" +" fold-var_293)))" " fold-var_63)))))" -" for-loop_270)" +" for-loop_271)" " null" -" lst_269))))))" +" lst_266))))))" "(let-values(((body-env_0)" -"(let-values(((lst_300) keys_7)((lst_23) ids_31))" +"(let-values(((lst_298) keys_7)((lst_23) ids_31))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_300)))" +"(let-values()(check-list lst_298)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_23)))" @@ -61638,9 +62080,9 @@ static const char *startup_source = " 'for-loop" "(if(if(pair? lst_24)(pair? lst_168) #f)" "(let-values(((key_92)(unsafe-car lst_24))" -"((rest_140)(unsafe-cdr lst_24))" +"((rest_139)(unsafe-cdr lst_24))" "((id_112)(unsafe-car lst_168))" -"((rest_141)(unsafe-cdr lst_168)))" +"((rest_140)(unsafe-cdr lst_168)))" "(let-values(((env_26)" "(let-values(((env_27) env_25))" "(let-values(((env_28)" @@ -61652,12 +62094,12 @@ static const char *startup_source = " id_112)))))" "(values env_28)))))" "(if(not #f)" -"(for-loop_20 env_26 rest_140 rest_141)" +"(for-loop_20 env_26 rest_139 rest_140)" " env_26)))" " env_25)))))" " for-loop_20)" "(expand-context-env ctx_77)" -" lst_300" +" lst_298" " lst_23)))))" "(let-values(((sc-formals_0)(add-scope formals_1 sc_31)))" "(let-values(((sc-bodys_0)" @@ -61674,10 +62116,10 @@ static const char *startup_source = "(if(pair? lst_18)" "(let-values(((body_12)(unsafe-car lst_18))" "((rest_5)(unsafe-cdr lst_18)))" -"(let-values(((fold-var_292)" +"(let-values(((fold-var_294)" "(let-values(((fold-var_167)" " fold-var_164))" -"(let-values(((fold-var_293)" +"(let-values(((fold-var_295)" "(let-values()" "(cons" "(let-values()" @@ -61685,10 +62127,10 @@ static const char *startup_source = " body_12" " sc_31))" " fold-var_167))))" -"(values fold-var_293)))))" +"(values fold-var_295)))))" "(if(not #f)" -"(for-loop_10 fold-var_292 rest_5)" -" fold-var_292)))" +"(for-loop_10 fold-var_294 rest_5)" +" fold-var_294)))" " fold-var_164)))))" " for-loop_10)" " null" @@ -61707,40 +62149,40 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_4)" -"(let-values(((v_249) ctx_77))" -"(let-values(((the-struct_94) v_249))" -"(if(expand-context/outer? the-struct_94)" +"(let-values(((v_251) ctx_77))" +"(let-values(((the-struct_96) v_251))" +"(if(expand-context/outer? the-struct_96)" "(let-values(((env42_0) body-env_0)" "((scopes43_0)(cons sc_31(expand-context-scopes ctx_77)))" "((binding-layer44_0)" "(increment-binding-layer ids_31 ctx_77 sc_31))" "((frame-id45_0) #f)" -"((inner46_1)(root-expand-context/outer-inner v_249)))" +"((inner46_0)(root-expand-context/outer-inner v_251)))" "(expand-context/outer1.1" -" inner46_1" -"(root-expand-context/outer-post-expansion-scope the-struct_94)" -"(root-expand-context/outer-use-site-scopes the-struct_94)" +" inner46_0" +"(root-expand-context/outer-post-expansion-scope the-struct_96)" +"(root-expand-context/outer-use-site-scopes the-struct_96)" " frame-id45_0" -"(expand-context/outer-context the-struct_94)" +"(expand-context/outer-context the-struct_96)" " env42_0" -"(expand-context/outer-post-expansion-scope-action the-struct_94)" +"(expand-context/outer-post-expansion-scope-action the-struct_96)" " scopes43_0" -"(expand-context/outer-def-ctx-scopes the-struct_94)" +"(expand-context/outer-def-ctx-scopes the-struct_96)" " binding-layer44_0" -"(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)))" +"(expand-context/outer-reference-records the-struct_96)" +"(expand-context/outer-only-immediate? the-struct_96)" +"(expand-context/outer-need-eventually-defined the-struct_96)" +"(expand-context/outer-current-introduction-scopes the-struct_96)" +"(expand-context/outer-name the-struct_96)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_94))))))" +" the-struct_96))))))" "(let-values(((exp-body_2)" -"(let-values(((temp49_2)" +"(let-values(((temp49_3)" "(let-values(((temp52_6) #t))" "(keep-as-needed74.1 #f #f temp52_6 #t #f #f ctx_77 s_70))))" -"(expand-body7.1 temp49_2 #f #f sc-bodys_0 body-ctx_4))))" +"(expand-body7.1 temp49_3 #f #f sc-bodys_0 body-ctx_4))))" "(values" "(if(expand-context-to-parsed? ctx_77)" "(unflatten-like-formals keys_7 formals_1)" @@ -61765,21 +62207,21 @@ static const char *startup_source = "(if(pair? s_304)" "(let-values(((lambda56_0)(let-values(((s_186)(car s_304))) s_186))" "((formals57_0 body58_0)" -"(let-values(((s_496)(cdr s_304)))" -"(let-values(((s_403)" -"(if(syntax?$1 s_496)" -"(syntax-e$1 s_496)" -" s_496)))" -"(if(pair? s_403)" +"(let-values(((s_497)(cdr s_304)))" +"(let-values(((s_404)" +"(if(syntax?$1 s_497)" +"(syntax-e$1 s_497)" +" s_497)))" +"(if(pair? s_404)" "(let-values(((formals59_0)" -"(let-values(((s_497)(car s_403)))" -" s_497))" +"(let-values(((s_498)(car s_404)))" +" s_498))" "((body60_0)" -"(let-values(((s_498)(cdr s_403)))" +"(let-values(((s_499)(cdr s_404)))" "(let-values(((s_162)" -"(if(syntax?$1 s_498)" -"(syntax-e$1 s_498)" -" s_498)))" +"(if(syntax?$1 s_499)" +"(syntax-e$1 s_499)" +" s_499)))" "(let-values(((flat-s_27)" "(to-syntax-list.1" " s_162)))" @@ -61828,7 +62270,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'case-lambda" -"(lambda(s_499 ctx_81)" +"(lambda(s_500 ctx_81)" "(let-values((()" "(begin" "(let-values(((obs_31)(expand-context-observer ctx_81)))" @@ -61836,7 +62278,7 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_31 'prim-case-lambda)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_7)(syntax-disarm$1 s_499)))" +"(let-values(((disarmed-s_7)(syntax-disarm$1 s_500)))" "(let-values(((ok?_35 case-lambda66_0 formals67_0 body68_0)" "(let-values(((s_32) disarmed-s_7))" "(let-values(((orig-s_42) s_32))" @@ -61845,25 +62287,25 @@ static const char *startup_source = "(if(pair? s_69)" "(let-values(((case-lambda69_0)(let-values(((s_310)(car s_69))) s_310))" "((formals70_0 body71_0)" -"(let-values(((s_482)(cdr s_69)))" -"(let-values(((s_500)" -"(if(syntax?$1 s_482)" -"(syntax-e$1 s_482)" -" s_482)))" -"(let-values(((flat-s_28)(to-syntax-list.1 s_500)))" +"(let-values(((s_483)(cdr s_69)))" +"(let-values(((s_501)" +"(if(syntax?$1 s_483)" +"(syntax-e$1 s_483)" +" s_483)))" +"(let-values(((flat-s_28)(to-syntax-list.1 s_501)))" "(if(not flat-s_28)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_42))" "(let-values()" "(let-values(((formals_3 body_14)" -"(let-values(((lst_308) flat-s_28))" +"(let-values(((lst_307) flat-s_28))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_308)))" -"((letrec-values(((for-loop_271)" +"(check-list lst_307)))" +"((letrec-values(((for-loop_272)" "(lambda(formals_4" " body_15" " lst_98)" @@ -61871,7 +62313,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_98)" -"(let-values(((s_501)" +"(let-values(((s_158)" "(unsafe-car" " lst_98))" "((rest_192)" @@ -61891,30 +62333,30 @@ static const char *startup_source = "(let-values()" "(let-values(((s_55)" "(if(syntax?$1" -" s_501)" +" s_158)" "(syntax-e$1" -" s_501)" -" s_501)))" +" s_158)" +" s_158)))" "(if(pair?" " s_55)" "(let-values(((formals72_0)" -"(let-values(((s_318)" +"(let-values(((s_319)" "(car" " s_55)))" -" s_318))" +" s_319))" "((body73_0)" -"(let-values(((s_435)" +"(let-values(((s_436)" "(cdr" " s_55)))" -"(let-values(((s_388)" +"(let-values(((s_389)" "(if(syntax?$1" -" s_435)" +" s_436)" "(syntax-e$1" -" s_435)" -" s_435)))" +" s_436)" +" s_436)))" "(let-values(((flat-s_29)" "(to-syntax-list.1" -" s_388)))" +" s_389)))" "(if(not" " flat-s_29)" "(let-values()" @@ -61950,7 +62392,7 @@ static const char *startup_source = " body_18)))))" "(if(not" " #f)" -"(for-loop_271" +"(for-loop_272" " formals_5" " body_16" " rest_192)" @@ -61960,10 +62402,10 @@ static const char *startup_source = "(values" " formals_4" " body_15))))))" -" for-loop_271)" +" for-loop_272)" " null" " null" -" lst_308)))))" +" lst_307)))))" "(values" "(reverse$1 formals_3)" "(reverse$1 body_14))))))))))" @@ -61977,7 +62419,7 @@ static const char *startup_source = "(let-values(((s_303)(if(syntax?$1 s_56)(syntax-e$1 s_56) s_56)))" "(if(pair? s_303)" "(let-values(((case-lambda76_0)" -"(let-values(((s_391)(car s_303))) s_391))" +"(let-values(((s_392)(car s_303))) s_392))" "((clause77_0)" "(let-values(((s_502)(cdr s_303)))" "(let-values(((s_57)" @@ -61993,7 +62435,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))" "(values #t case-lambda74_1 clause75_1))))))" "(let-values(((rebuild-s_5)" -"(let-values(((temp82_7) #t))(keep-as-needed74.1 #f #f #f #f temp82_7 #t ctx_81 s_499))))" +"(let-values(((temp82_7) #t))(keep-as-needed74.1 #f #f #f #f temp82_7 #t ctx_81 s_500))))" "(let-values(((clauses_1)" "(reverse$1" "(let-values(((lst_192) formals67_0)((lst_223) body68_0)((lst_224) clause75_0))" @@ -62007,21 +62449,21 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_224)))" -"((letrec-values(((for-loop_272)" -"(lambda(fold-var_294 lst_329 lst_330 lst_331)" +"((letrec-values(((for-loop_273)" +"(lambda(fold-var_296 lst_328 lst_329 lst_330)" "(begin" " 'for-loop" -"(if(if(pair? lst_329)" -"(if(pair? lst_330)(pair? lst_331) #f)" +"(if(if(pair? lst_328)" +"(if(pair? lst_329)(pair? lst_330) #f)" " #f)" -"(let-values(((formals_8)(unsafe-car lst_329))" -"((rest_193)(unsafe-cdr lst_329))" -"((body_19)(unsafe-car lst_330))" -"((rest_194)(unsafe-cdr lst_330))" -"((clause_3)(unsafe-car lst_331))" -"((rest_195)(unsafe-cdr lst_331)))" -"(let-values(((fold-var_295)" -"(let-values(((fold-var_296) fold-var_294))" +"(let-values(((formals_8)(unsafe-car lst_328))" +"((rest_193)(unsafe-cdr lst_328))" +"((body_19)(unsafe-car lst_329))" +"((rest_194)(unsafe-cdr lst_329))" +"((clause_3)(unsafe-car lst_330))" +"((rest_195)(unsafe-cdr lst_330)))" +"(let-values(((fold-var_297)" +"(let-values(((fold-var_298) fold-var_296))" "(let-values(((fold-var_187)" "(let-values()" "(cons" @@ -62056,7 +62498,7 @@ static const char *startup_source = "(let-values(((exp-formals_0" " exp-body_3)" "(lambda-clause-expander" -" s_499" +" s_500" " disarmed-s_7" " formals_8" " body_19" @@ -62078,13 +62520,13 @@ static const char *startup_source = " #f" " rebuild-clause85_0" " temp86_2)))))))" -" fold-var_296))))" +" fold-var_298))))" "(values fold-var_187)))))" "(if(not #f)" -"(for-loop_272 fold-var_295 rest_193 rest_194 rest_195)" -" fold-var_295)))" -" fold-var_294)))))" -" for-loop_272)" +"(for-loop_273 fold-var_297 rest_193 rest_194 rest_195)" +" fold-var_297)))" +" fold-var_296)))))" +" for-loop_273)" " null" " lst_192" " lst_223" @@ -62095,9 +62537,9 @@ static const char *startup_source = "(rebuild5.1 #f #f rebuild-s87_0 temp88_3))))))))))))" "(define-values" "(parse-and-flatten-formals)" -"(lambda(all-formals_0 sc_32 s_320)" +"(lambda(all-formals_0 sc_32 s_321)" "(begin" -"((letrec-values(((loop_125)" +"((letrec-values(((loop_128)" "(lambda(formals_9)" "(begin" " 'loop" @@ -62105,42 +62547,42 @@ static const char *startup_source = "(let-values()(list(add-scope formals_9 sc_32)))" "(if(syntax?$1 formals_9)" "(let-values()" -"(let-values(((p_83)(syntax-e$1 formals_9)))" -"(if(pair? p_83)" -"(let-values()(loop_125 p_83))" -"(if(null? p_83)" +"(let-values(((p_86)(syntax-e$1 formals_9)))" +"(if(pair? p_86)" +"(let-values()(loop_128 p_86))" +"(if(null? p_86)" "(let-values() null)" -" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_320 p_83))))))" +" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_321 p_86))))))" "(if(pair? formals_9)" "(let-values()" "(begin" "(if(identifier?(car formals_9))" "(void)" "(let-values()" -" (raise-syntax-error$1 #f \"not an identifier\" s_320 (car formals_9))))" -"(cons(add-scope(car formals_9) sc_32)(loop_125(cdr formals_9)))))" +" (raise-syntax-error$1 #f \"not an identifier\" s_321 (car formals_9))))" +"(cons(add-scope(car formals_9) sc_32)(loop_128(cdr formals_9)))))" "(if(null? formals_9)" "(let-values() null)" "(let-values()" -" (raise-syntax-error$1 \"bad argument sequence\" s_320 all-formals_0))))))))))" -" loop_125)" +" (raise-syntax-error$1 \"bad argument sequence\" s_321 all-formals_0))))))))))" +" loop_128)" " all-formals_0))))" "(define-values" "(unflatten-like-formals)" "(lambda(keys_8 formals_10)" "(begin" -"((letrec-values(((loop_126)" +"((letrec-values(((loop_129)" "(lambda(keys_9 formals_11)" "(begin" " 'loop" "(if(null? formals_11)" "(let-values() null)" "(if(pair? formals_11)" -"(let-values()(cons(car keys_9)(loop_126(cdr keys_9)(cdr formals_11))))" +"(let-values()(cons(car keys_9)(loop_129(cdr keys_9)(cdr formals_11))))" "(if(syntax?$1 formals_11)" -"(let-values()(loop_126 keys_9(syntax-e$1 formals_11)))" +"(let-values()(loop_129 keys_9(syntax-e$1 formals_11)))" "(let-values()(car keys_9)))))))))" -" loop_126)" +" loop_129)" " keys_8" " formals_10))))" "(define-values" @@ -62200,16 +62642,16 @@ static const char *startup_source = " val-rhs99_0" " body100_0)" "(let-values(((s_111)(cdr s_212)))" -"(let-values(((s_441)" +"(let-values(((s_442)" "(if(syntax?$1 s_111)" "(syntax-e$1 s_111)" " s_111)))" -"(if(pair? s_441)" +"(if(pair? s_442)" "(let-values(((id:trans101_0" " trans-rhs102_0)" "(let-values(((s_504)" "(car" -" s_441)))" +" s_442)))" "(let-values(((s_113)" "(if(syntax?$1" " s_504)" @@ -62229,7 +62671,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans_0" " trans-rhs_0)" -"(let-values(((lst_332)" +"(let-values(((lst_331)" " flat-s_31))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62237,21 +62679,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_332)))" -"((letrec-values(((for-loop_273)" +" lst_331)))" +"((letrec-values(((for-loop_274)" "(lambda(id:trans_1" " trans-rhs_1" -" lst_333)" +" lst_332)" "(begin" " 'for-loop" "(if(pair?" -" lst_333)" +" lst_332)" "(let-values(((s_505)" "(unsafe-car" -" lst_333))" +" lst_332))" "((rest_196)" "(unsafe-cdr" -" lst_333)))" +" lst_332)))" "(let-values(((id:trans_2" " trans-rhs_2)" "(let-values(((id:trans_3)" @@ -62294,7 +62736,7 @@ static const char *startup_source = " orig-s_44))" "(let-values()" "(let-values(((id:trans_5)" -"(let-values(((lst_334)" +"(let-values(((lst_333)" " flat-s_32))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62302,20 +62744,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_334)))" -"((letrec-values(((for-loop_274)" +" lst_333)))" +"((letrec-values(((for-loop_275)" "(lambda(id:trans_6" -" lst_335)" +" lst_334)" "(begin" " 'for-loop" "(if(pair?" -" lst_335)" -"(let-values(((s_444)" +" lst_334)" +"(let-values(((s_445)" "(unsafe-car" -" lst_335))" +" lst_334))" "((rest_197)" "(unsafe-cdr" -" lst_335)))" +" lst_334)))" "(let-values(((id:trans_7)" "(let-values(((id:trans_8)" " id:trans_6))" @@ -62323,23 +62765,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans134_0)" "(let-values()" -"(if(let-values(((or-part_283)" +"(if(let-values(((or-part_289)" "(if(syntax?$1" -" s_444)" +" s_445)" "(symbol?" "(syntax-e$1" -" s_444))" +" s_445))" " #f)))" -"(if or-part_283" -" or-part_283" +"(if or-part_289" +" or-part_289" "(symbol?" -" s_444)))" -" s_444" +" s_445)))" +" s_445" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_44" -" s_444)))))" +" s_445)))))" "(cons" " id:trans134_0" " id:trans_8)))))" @@ -62347,14 +62789,14 @@ static const char *startup_source = " id:trans_9)))))" "(if(not" " #f)" -"(for-loop_274" +"(for-loop_275" " id:trans_7" " rest_197)" " id:trans_7)))" " id:trans_6)))))" -" for-loop_274)" +" for-loop_275)" " null" -" lst_334)))))" +" lst_333)))))" "(reverse$1" " id:trans_5))))))))" "((trans-rhs107_0)" @@ -62378,14 +62820,14 @@ static const char *startup_source = "(let-values(((s_511)" "(cdr" " s_509)))" -"(let-values(((s_448)" +"(let-values(((s_449)" "(if(syntax?$1" " s_511)" "(syntax-e$1" " s_511)" " s_511)))" "(if(null?" -" s_448)" +" s_449)" "(values)" "(raise-syntax-error$1" " #f" @@ -62416,7 +62858,7 @@ static const char *startup_source = " trans-rhs_4)))))" "(if(not" " #f)" -"(for-loop_273" +"(for-loop_274" " id:trans_2" " trans-rhs_2" " rest_196)" @@ -62426,10 +62868,10 @@ static const char *startup_source = "(values" " id:trans_1" " trans-rhs_1))))))" -" for-loop_273)" +" for-loop_274)" " null" " null" -" lst_332)))))" +" lst_331)))))" "(values" "(reverse$1" " id:trans_0)" @@ -62440,7 +62882,7 @@ static const char *startup_source = " body105_0)" "(let-values(((s_123)" "(cdr" -" s_441)))" +" s_442)))" "(let-values(((s_512)" "(if(syntax?$1" " s_123)" @@ -62481,7 +62923,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_201)))" -"((letrec-values(((for-loop_275)" +"((letrec-values(((for-loop_276)" "(lambda(id:val_1" " val-rhs_2" " lst_204)" @@ -62537,7 +62979,7 @@ static const char *startup_source = " orig-s_44))" "(let-values()" "(let-values(((id:val_5)" -"(let-values(((lst_336)" +"(let-values(((lst_335)" " flat-s_34))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62545,20 +62987,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_336)))" -"((letrec-values(((for-loop_276)" +" lst_335)))" +"((letrec-values(((for-loop_277)" "(lambda(id:val_6" -" lst_337)" +" lst_336)" "(begin" " 'for-loop" "(if(pair?" -" lst_337)" -"(let-values(((s_340)" +" lst_336)" +"(let-values(((s_341)" "(unsafe-car" -" lst_337))" +" lst_336))" "((rest_199)" "(unsafe-cdr" -" lst_337)))" +" lst_336)))" "(let-values(((id:val_7)" "(let-values(((id:val_8)" " id:val_6))" @@ -62566,23 +63008,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val137_0)" "(let-values()" -"(if(let-values(((or-part_333)" +"(if(let-values(((or-part_339)" "(if(syntax?$1" -" s_340)" +" s_341)" "(symbol?" "(syntax-e$1" -" s_340))" +" s_341))" " #f)))" -"(if or-part_333" -" or-part_333" +"(if or-part_339" +" or-part_339" "(symbol?" -" s_340)))" -" s_340" +" s_341)))" +" s_341" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_44" -" s_340)))))" +" s_341)))))" "(cons" " id:val137_0" " id:val_8)))))" @@ -62590,37 +63032,37 @@ static const char *startup_source = " id:val_9)))))" "(if(not" " #f)" -"(for-loop_276" +"(for-loop_277" " id:val_7" " rest_199)" " id:val_7)))" " id:val_6)))))" -" for-loop_276)" +" for-loop_277)" " null" -" lst_336)))))" +" lst_335)))))" "(reverse$1" " id:val_5))))))))" "((val-rhs113_0)" -"(let-values(((s_347)" +"(let-values(((s_348)" "(cdr" " s_230)))" -"(let-values(((s_449)" -"(if(syntax?$1" -" s_347)" -"(syntax-e$1" -" s_347)" -" s_347)))" -"(if(pair?" -" s_449)" -"(let-values(((val-rhs114_0)" "(let-values(((s_450)" +"(if(syntax?$1" +" s_348)" +"(syntax-e$1" +" s_348)" +" s_348)))" +"(if(pair?" +" s_450)" +"(let-values(((val-rhs114_0)" +"(let-values(((s_451)" "(car" -" s_449)))" -" s_450))" +" s_450)))" +" s_451))" "(()" "(let-values(((s_516)" "(cdr" -" s_449)))" +" s_450)))" "(let-values(((s_235)" "(if(syntax?$1" " s_516)" @@ -62659,7 +63101,7 @@ static const char *startup_source = " val-rhs_5)))))" "(if(not" " #f)" -"(for-loop_275" +"(for-loop_276" " id:val_2" " val-rhs_3" " rest_198)" @@ -62669,7 +63111,7 @@ static const char *startup_source = "(values" " id:val_1" " val-rhs_2))))))" -" for-loop_275)" +" for-loop_276)" " null" " null" " lst_201)))))" @@ -62682,7 +63124,7 @@ static const char *startup_source = "(let-values(((s_517)" "(cdr" " s_512)))" -"(let-values(((s_348)" +"(let-values(((s_349)" "(if(syntax?$1" " s_517)" "(syntax-e$1" @@ -62690,7 +63132,7 @@ static const char *startup_source = " s_517)))" "(let-values(((flat-s_35)" "(to-syntax-list.1" -" s_348)))" +" s_349)))" "(if(not" " flat-s_35)" "(let-values()" @@ -62743,14 +63185,14 @@ static const char *startup_source = " body94_1)))" "(values #f #f #f #f #f #f #f)))))" "(let-values(((ok?_38 let-values115_0 id:val116_0 val-rhs117_0 body118_0)" -"(let-values(((s_469) disarmed-s_8))" +"(let-values(((s_470) disarmed-s_8))" "(if(if(not syntaxes?_0) #t #f)" -"(let-values(((orig-s_45) s_469))" +"(let-values(((orig-s_45) s_470))" "(let-values(((let-values115_1 id:val116_1 val-rhs117_1 body118_1)" "(let-values(((s_238)" -"(if(syntax?$1 s_469)" -"(syntax-e$1 s_469)" -" s_469)))" +"(if(syntax?$1 s_470)" +"(syntax-e$1 s_470)" +" s_470)))" "(if(pair? s_238)" "(let-values(((let-values119_0)" "(let-values(((s_241)(car s_238)))" @@ -62764,15 +63206,15 @@ static const char *startup_source = "(if(pair? s_518)" "(let-values(((id:val123_0" " val-rhs124_0)" -"(let-values(((s_352)" +"(let-values(((s_353)" "(car" " s_518)))" "(let-values(((s_519)" "(if(syntax?$1" -" s_352)" +" s_353)" "(syntax-e$1" -" s_352)" -" s_352)))" +" s_353)" +" s_353)))" "(let-values(((flat-s_36)" "(to-syntax-list.1" " s_519)))" @@ -62786,7 +63228,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_10" " val-rhs_6)" -"(let-values(((lst_338)" +"(let-values(((lst_337)" " flat-s_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62794,8 +63236,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_338)))" -"((letrec-values(((for-loop_277)" +" lst_337)))" +"((letrec-values(((for-loop_278)" "(lambda(id:val_11" " val-rhs_7" " lst_212)" @@ -62821,18 +63263,18 @@ static const char *startup_source = "(let-values(((id:val138_0" " val-rhs139_0)" "(let-values()" -"(let-values(((s_361)" +"(let-values(((s_362)" "(if(syntax?$1" " s_520)" "(syntax-e$1" " s_520)" " s_520)))" "(if(pair?" -" s_361)" +" s_362)" "(let-values(((id:val126_0)" "(let-values(((s_521)" "(car" -" s_361)))" +" s_362)))" "(let-values(((s_522)" "(if(syntax?$1" " s_521)" @@ -62851,7 +63293,7 @@ static const char *startup_source = " orig-s_45))" "(let-values()" "(let-values(((id:val_15)" -"(let-values(((lst_339)" +"(let-values(((lst_338)" " flat-s_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62859,20 +63301,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_339)))" -"((letrec-values(((for-loop_278)" +" lst_338)))" +"((letrec-values(((for-loop_279)" "(lambda(id:val_16" -" lst_340)" +" lst_339)" "(begin" " 'for-loop" "(if(pair?" -" lst_340)" +" lst_339)" "(let-values(((s_523)" "(unsafe-car" -" lst_340))" +" lst_339))" "((rest_201)" "(unsafe-cdr" -" lst_340)))" +" lst_339)))" "(let-values(((id:val_17)" "(let-values(((id:val_18)" " id:val_16))" @@ -62880,15 +63322,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val140_0)" "(let-values()" -"(if(let-values(((or-part_373)" +"(if(let-values(((or-part_379)" "(if(syntax?$1" " s_523)" "(symbol?" "(syntax-e$1" " s_523))" " #f)))" -"(if or-part_373" -" or-part_373" +"(if or-part_379" +" or-part_379" "(symbol?" " s_523)))" " s_523" @@ -62904,20 +63346,20 @@ static const char *startup_source = " id:val_19)))))" "(if(not" " #f)" -"(for-loop_278" +"(for-loop_279" " id:val_17" " rest_201)" " id:val_17)))" " id:val_16)))))" -" for-loop_278)" +" for-loop_279)" " null" -" lst_339)))))" +" lst_338)))))" "(reverse$1" " id:val_15))))))))" "((val-rhs127_0)" "(let-values(((s_524)" "(cdr" -" s_361)))" +" s_362)))" "(let-values(((s_525)" "(if(syntax?$1" " s_524)" @@ -62973,7 +63415,7 @@ static const char *startup_source = " val-rhs_10)))))" "(if(not" " #f)" -"(for-loop_277" +"(for-loop_278" " id:val_12" " val-rhs_8" " rest_200)" @@ -62983,10 +63425,10 @@ static const char *startup_source = "(values" " id:val_11" " val-rhs_7))))))" -" for-loop_277)" +" for-loop_278)" " null" " null" -" lst_338)))))" +" lst_337)))))" "(values" "(reverse$1" " id:val_10)" @@ -63038,33 +63480,33 @@ static const char *startup_source = "(values #t let-values115_1 id:val116_1 val-rhs117_1 body118_1)))" "(values #f #f #f #f #f)))))" "(let-values(((sc_7)(new-scope 'local)))" -"(let-values(((phase_145)(expand-context-phase ctx_82)))" +"(let-values(((phase_147)(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_341)(if syntaxes?_0 id:trans90_0 null)))" +"(let-values(((lst_340)(if syntaxes?_0 id:trans90_0 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_341)))" -"((letrec-values(((for-loop_279)" -"(lambda(fold-var_297 lst_342)" +"(let-values()(check-list lst_340)))" +"((letrec-values(((for-loop_280)" +"(lambda(fold-var_299 lst_341)" "(begin" " 'for-loop" -"(if(pair? lst_342)" +"(if(pair? lst_341)" "(let-values(((ids_32)" -"(unsafe-car lst_342))" +"(unsafe-car lst_341))" "((rest_202)" -"(unsafe-cdr lst_342)))" -"(let-values(((fold-var_258)" -"(let-values(((fold-var_298)" -" fold-var_297))" -"(let-values(((fold-var_299)" +"(unsafe-cdr lst_341)))" +"(let-values(((fold-var_260)" +"(let-values(((fold-var_300)" +" fold-var_299))" +"(let-values(((fold-var_301)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_343)" +"(let-values(((lst_342)" " ids_32))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63072,78 +63514,78 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_343)))" -"((letrec-values(((for-loop_280)" -"(lambda(fold-var_260" -" lst_344)" +" lst_342)))" +"((letrec-values(((for-loop_281)" +"(lambda(fold-var_262" +" lst_343)" "(begin" " 'for-loop" "(if(pair?" -" lst_344)" +" lst_343)" "(let-values(((id_113)" "(unsafe-car" -" lst_344))" +" lst_343))" "((rest_203)" "(unsafe-cdr" -" lst_344)))" -"(let-values(((fold-var_262)" -"(let-values(((fold-var_300)" -" fold-var_260))" -"(let-values(((fold-var_301)" +" lst_343)))" +"(let-values(((fold-var_264)" +"(let-values(((fold-var_302)" +" fold-var_262))" +"(let-values(((fold-var_303)" "(let-values()" "(cons" "(let-values()" "(add-scope" " id_113" " sc_7))" +" fold-var_302))))" +"(values" +" fold-var_303)))))" +"(if(not" +" #f)" +"(for-loop_281" +" fold-var_264" +" rest_203)" +" fold-var_264)))" +" fold-var_262)))))" +" for-loop_281)" +" null" +" lst_342)))))" " fold-var_300))))" "(values" " fold-var_301)))))" -"(if(not" -" #f)" -"(for-loop_280" -" fold-var_262" -" rest_203)" -" fold-var_262)))" -" fold-var_260)))))" +"(if(not #f)" +"(for-loop_280 fold-var_260 rest_202)" +" fold-var_260)))" +" fold-var_299)))))" " for-loop_280)" " null" -" lst_343)))))" -" fold-var_298))))" -"(values" -" fold-var_299)))))" -"(if(not #f)" -"(for-loop_279 fold-var_258 rest_202)" -" fold-var_258)))" -" fold-var_297)))))" -" for-loop_279)" -" null" -" lst_341))))))" +" lst_340))))))" "(let-values(((val-idss_3)" "(reverse$1" -"(let-values(((lst_345)(if syntaxes?_0 id:val92_0 id:val116_0)))" +"(let-values(((lst_344)(if syntaxes?_0 id:val92_0 id:val116_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_345)))" -"((letrec-values(((for-loop_281)" -"(lambda(fold-var_264 lst_346)" +"(let-values()(check-list lst_344)))" +"((letrec-values(((for-loop_282)" +"(lambda(fold-var_266 lst_345)" "(begin" " 'for-loop" -"(if(pair? lst_346)" +"(if(pair? lst_345)" "(let-values(((ids_20)" -"(unsafe-car lst_346))" +"(unsafe-car lst_345))" "((rest_204)" -"(unsafe-cdr lst_346)))" -"(let-values(((fold-var_302)" -"(let-values(((fold-var_303)" -" fold-var_264))" +"(unsafe-cdr lst_345)))" "(let-values(((fold-var_304)" +"(let-values(((fold-var_305)" +" fold-var_266))" +"(let-values(((fold-var_306)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_347)" +"(let-values(((lst_346)" " ids_20))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63151,100 +63593,100 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_347)))" -"((letrec-values(((for-loop_282)" -"(lambda(fold-var_305" -" lst_348)" +" lst_346)))" +"((letrec-values(((for-loop_283)" +"(lambda(fold-var_307" +" lst_347)" "(begin" " 'for-loop" "(if(pair?" -" lst_348)" +" lst_347)" "(let-values(((id_114)" "(unsafe-car" -" lst_348))" +" lst_347))" "((rest_205)" "(unsafe-cdr" -" lst_348)))" -"(let-values(((fold-var_306)" -"(let-values(((fold-var_307)" -" fold-var_305))" +" lst_347)))" "(let-values(((fold-var_308)" +"(let-values(((fold-var_309)" +" fold-var_307))" +"(let-values(((fold-var_310)" "(let-values()" "(cons" "(let-values()" "(add-scope" " id_114" " sc_7))" -" fold-var_307))))" +" fold-var_309))))" "(values" -" fold-var_308)))))" +" fold-var_310)))))" "(if(not" " #f)" -"(for-loop_282" -" fold-var_306" +"(for-loop_283" +" fold-var_308" " rest_205)" -" fold-var_306)))" -" fold-var_305)))))" +" fold-var_308)))" +" fold-var_307)))))" +" for-loop_283)" +" null" +" lst_346)))))" +" fold-var_305))))" +"(values" +" fold-var_306)))))" +"(if(not #f)" +"(for-loop_282" +" fold-var_304" +" rest_204)" +" fold-var_304)))" +" fold-var_266)))))" " for-loop_282)" " null" -" lst_347)))))" -" fold-var_303))))" -"(values" -" fold-var_304)))))" -"(if(not #f)" -"(for-loop_281" -" fold-var_302" -" rest_204)" -" fold-var_302)))" -" fold-var_264)))))" -" for-loop_281)" -" null" -" lst_345))))))" +" lst_344))))))" "(let-values(((val-rhss_3)" "(if rec?_1" "(reverse$1" -"(let-values(((lst_349)" +"(let-values(((lst_348)" "(if syntaxes?_0 val-rhs93_0 val-rhs117_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_349)))" -"((letrec-values(((for-loop_283)" -"(lambda(fold-var_309 lst_350)" +"(let-values()(check-list lst_348)))" +"((letrec-values(((for-loop_284)" +"(lambda(fold-var_311 lst_349)" "(begin" " 'for-loop" -"(if(pair? lst_350)" +"(if(pair? lst_349)" "(let-values(((rhs_20)" -"(unsafe-car lst_350))" +"(unsafe-car lst_349))" "((rest_206)" -"(unsafe-cdr lst_350)))" -"(let-values(((fold-var_310)" -"(let-values(((fold-var_311)" -" fold-var_309))" +"(unsafe-cdr lst_349)))" "(let-values(((fold-var_312)" +"(let-values(((fold-var_313)" +" fold-var_311))" +"(let-values(((fold-var_314)" "(let-values()" "(cons" "(let-values()" "(add-scope" " rhs_20" " sc_7))" -" fold-var_311))))" +" fold-var_313))))" "(values" -" fold-var_312)))))" +" fold-var_314)))))" "(if(not #f)" -"(for-loop_283" -" fold-var_310" +"(for-loop_284" +" fold-var_312" " rest_206)" -" fold-var_310)))" -" fold-var_309)))))" -" for-loop_283)" +" fold-var_312)))" +" fold-var_311)))))" +" for-loop_284)" " null" -" lst_349))))" +" lst_348))))" "(if syntaxes?_0 val-rhs93_0 val-rhs117_0))))" "(let-values((()" "(begin" "(let-values(((temp129_2)(list trans-idss_2 val-idss_3))" -"((phase130_0) phase_145)" +"((phase130_0) phase_147)" "((s131_0) s_89))" "(check-no-duplicate-ids8.1" " #f" @@ -63258,32 +63700,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_351) trans-idss_2))" +"(let-values(((lst_350) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_351)))" -"((letrec-values(((for-loop_284)" -"(lambda(fold-var_313 lst_352)" +"(let-values()(check-list lst_350)))" +"((letrec-values(((for-loop_285)" +"(lambda(fold-var_315 lst_351)" "(begin" " 'for-loop" -"(if(pair? lst_352)" +"(if(pair? lst_351)" "(let-values(((ids_33)" "(unsafe-car" -" lst_352))" +" lst_351))" "((rest_207)" "(unsafe-cdr" -" lst_352)))" -"(let-values(((fold-var_314)" -"(let-values(((fold-var_315)" -" fold-var_313))" +" lst_351)))" "(let-values(((fold-var_316)" +"(let-values(((fold-var_317)" +" fold-var_315))" +"(let-values(((fold-var_318)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_353)" +"(let-values(((lst_352)" " ids_33))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63291,23 +63733,23 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_353)))" -"((letrec-values(((for-loop_285)" -"(lambda(fold-var_317" -" lst_354)" +" lst_352)))" +"((letrec-values(((for-loop_286)" +"(lambda(fold-var_319" +" lst_353)" "(begin" " 'for-loop" "(if(pair?" -" lst_354)" +" lst_353)" "(let-values(((id_115)" "(unsafe-car" -" lst_354))" +" lst_353))" "((rest_208)" "(unsafe-cdr" -" lst_354)))" -"(let-values(((fold-var_318)" +" lst_353)))" +"(let-values(((fold-var_320)" "(let-values(((fold-var_98)" -" fold-var_317))" +" fold-var_319))" "(let-values(((fold-var_99)" "(let-values()" "(cons" @@ -63322,61 +63764,61 @@ static const char *startup_source = " s145_1" " #t" " id_115" -" phase_145" +" phase_147" " counter_8)))" " fold-var_98))))" "(values" " fold-var_99)))))" "(if(not" " #f)" -"(for-loop_285" -" fold-var_318" +"(for-loop_286" +" fold-var_320" " rest_208)" -" fold-var_318)))" -" fold-var_317)))))" +" fold-var_320)))" +" fold-var_319)))))" +" for-loop_286)" +" null" +" lst_352)))))" +" fold-var_317))))" +"(values" +" fold-var_318)))))" +"(if(not #f)" +"(for-loop_285" +" fold-var_316" +" rest_207)" +" fold-var_316)))" +" fold-var_315)))))" " for-loop_285)" " null" -" lst_353)))))" -" fold-var_315))))" -"(values" -" fold-var_316)))))" -"(if(not #f)" -"(for-loop_284" -" fold-var_314" -" rest_207)" -" fold-var_314)))" -" fold-var_313)))))" -" for-loop_284)" -" null" -" lst_351))))))" +" lst_350))))))" "(let-values(((val-keyss_2)" "(reverse$1" -"(let-values(((lst_355) val-idss_3))" +"(let-values(((lst_354) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_355)))" -"((letrec-values(((for-loop_286)" -"(lambda(fold-var_319 lst_356)" +"(let-values()(check-list lst_354)))" +"((letrec-values(((for-loop_287)" +"(lambda(fold-var_321 lst_355)" "(begin" " 'for-loop" -"(if(pair? lst_356)" +"(if(pair? lst_355)" "(let-values(((ids_34)" "(unsafe-car" -" lst_356))" +" lst_355))" "((rest_209)" "(unsafe-cdr" -" lst_356)))" -"(let-values(((fold-var_320)" -"(let-values(((fold-var_321)" -" fold-var_319))" +" lst_355)))" "(let-values(((fold-var_322)" +"(let-values(((fold-var_323)" +" fold-var_321))" +"(let-values(((fold-var_324)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_357)" +"(let-values(((lst_356)" " ids_34))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63384,24 +63826,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_357)))" -"((letrec-values(((for-loop_287)" -"(lambda(fold-var_323" -" lst_358)" +" lst_356)))" +"((letrec-values(((for-loop_288)" +"(lambda(fold-var_325" +" lst_357)" "(begin" " 'for-loop" "(if(pair?" -" lst_358)" +" lst_357)" "(let-values(((id_116)" "(unsafe-car" -" lst_358))" +" lst_357))" "((rest_210)" "(unsafe-cdr" -" lst_358)))" -"(let-values(((fold-var_324)" -"(let-values(((fold-var_325)" -" fold-var_323))" +" lst_357)))" "(let-values(((fold-var_326)" +"(let-values(((fold-var_327)" +" fold-var_325))" +"(let-values(((fold-var_328)" "(let-values()" "(cons" "(let-values()" @@ -63415,75 +63857,75 @@ static const char *startup_source = " s150_1" " #t" " id_116" -" phase_145" +" phase_147" " counter_8)))" -" fold-var_325))))" +" fold-var_327))))" "(values" -" fold-var_326)))))" +" fold-var_328)))))" "(if(not" " #f)" -"(for-loop_287" -" fold-var_324" +"(for-loop_288" +" fold-var_326" " rest_210)" -" fold-var_324)))" -" fold-var_323)))))" +" fold-var_326)))" +" fold-var_325)))))" +" for-loop_288)" +" null" +" lst_356)))))" +" fold-var_323))))" +"(values" +" fold-var_324)))))" +"(if(not #f)" +"(for-loop_287" +" fold-var_322" +" rest_209)" +" fold-var_322)))" +" fold-var_321)))))" " for-loop_287)" " null" -" lst_357)))))" -" fold-var_321))))" -"(values" -" fold-var_322)))))" -"(if(not #f)" -"(for-loop_286" -" fold-var_320" -" rest_209)" -" fold-var_320)))" -" fold-var_319)))))" -" for-loop_286)" -" null" -" lst_355))))))" +" lst_354))))))" "(let-values(((bodys_10)" "(reverse$1" -"(let-values(((lst_359)" +"(let-values(((lst_358)" "(if syntaxes?_0 body94_0 body118_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_359)))" -"((letrec-values(((for-loop_288)" -"(lambda(fold-var_327 lst_360)" +"(let-values()(check-list lst_358)))" +"((letrec-values(((for-loop_289)" +"(lambda(fold-var_329 lst_359)" "(begin" " 'for-loop" -"(if(pair? lst_360)" +"(if(pair? lst_359)" "(let-values(((body_20)" "(unsafe-car" -" lst_360))" +" lst_359))" "((rest_211)" "(unsafe-cdr" -" lst_360)))" -"(let-values(((fold-var_328)" -"(let-values(((fold-var_329)" -" fold-var_327))" +" lst_359)))" "(let-values(((fold-var_330)" +"(let-values(((fold-var_331)" +" fold-var_329))" +"(let-values(((fold-var_332)" "(let-values()" "(cons" "(let-values()" "(add-scope" " body_20" " sc_7))" -" fold-var_329))))" +" fold-var_331))))" "(values" -" fold-var_330)))))" +" fold-var_332)))))" "(if(not #f)" -"(for-loop_288" -" fold-var_328" +"(for-loop_289" +" fold-var_330" " rest_211)" -" fold-var_328)))" -" fold-var_327)))))" -" for-loop_288)" +" fold-var_330)))" +" fold-var_329)))))" +" for-loop_289)" " null" -" lst_359))))))" +" lst_358))))))" "(let-values((()" "(begin" "(let-values(((obs_89)" @@ -63521,26 +63963,26 @@ static const char *startup_source = "(values))))" "(let-values(((trans-valss_0)" "(reverse$1" -"(let-values(((lst_361)" +"(let-values(((lst_360)" "(if syntaxes?_0 trans-rhs91_0 '()))" -"((lst_362) trans-idss_2))" +"((lst_361) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" +"(let-values()(check-list lst_360)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" "(let-values()(check-list lst_361)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_362)))" -"((letrec-values(((for-loop_289)" -"(lambda(fold-var_331" +"((letrec-values(((for-loop_290)" +"(lambda(fold-var_333" " lst_231" -" lst_363)" +" lst_362)" "(begin" " 'for-loop" "(if(if(pair? lst_231)" -"(pair? lst_363)" +"(pair? lst_362)" " #f)" "(let-values(((rhs_19)" "(unsafe-car" @@ -63550,14 +63992,14 @@ static const char *startup_source = " lst_231))" "((ids_35)" "(unsafe-car" -" lst_363))" +" lst_362))" "((rest_213)" "(unsafe-cdr" -" lst_363)))" -"(let-values(((fold-var_332)" -"(let-values(((fold-var_333)" -" fold-var_331))" +" lst_362)))" "(let-values(((fold-var_334)" +"(let-values(((fold-var_335)" +" fold-var_333))" +"(let-values(((fold-var_336)" "(let-values()" "(cons" "(let-values()" @@ -63597,33 +64039,33 @@ static const char *startup_source = " 'exit-bind)))" "(void)))" " trans-val_1))))" -" fold-var_333))))" +" fold-var_335))))" "(values" -" fold-var_334)))))" +" fold-var_336)))))" "(if(not #f)" -"(for-loop_289" -" fold-var_332" +"(for-loop_290" +" fold-var_334" " rest_212" " rest_213)" -" fold-var_332)))" -" fold-var_331)))))" -" for-loop_289)" +" fold-var_334)))" +" fold-var_333)))))" +" for-loop_290)" " null" -" lst_361" -" lst_362))))))" +" lst_360" +" lst_361))))))" "(let-values(((rec-val-env_0)" -"(let-values(((lst_364) val-keyss_2)" +"(let-values(((lst_363) val-keyss_2)" "((lst_120) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_364)))" +"(let-values()(check-list lst_363)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-list lst_120)))" -"((letrec-values(((for-loop_290)" +"((letrec-values(((for-loop_291)" "(lambda(env_29" " lst_234" " lst_235)" @@ -63635,7 +64077,7 @@ static const char *startup_source = "(let-values(((keys_10)" "(unsafe-car" " lst_234))" -"((rest_156)" +"((rest_155)" "(unsafe-cdr" " lst_234))" "((ids_36)" @@ -63647,9 +64089,9 @@ static const char *startup_source = "(let-values(((env_6)" "(let-values(((env_30)" " env_29))" -"(let-values(((lst_324)" +"(let-values(((lst_323)" " keys_10)" -"((lst_325)" +"((lst_324)" " ids_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63657,30 +64099,30 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_324)))" +" lst_323)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_325)))" -"((letrec-values(((for-loop_291)" +" lst_324)))" +"((letrec-values(((for-loop_292)" "(lambda(env_31" -" lst_365" +" lst_364" " lst_238)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_365)" +" lst_364)" "(pair?" " lst_238)" " #f)" "(let-values(((key_93)" "(unsafe-car" -" lst_365))" +" lst_364))" "((rest_215)" "(unsafe-cdr" -" lst_365))" +" lst_364))" "((id_117)" "(unsafe-car" " lst_238))" @@ -63701,57 +64143,57 @@ static const char *startup_source = " env_34)))))" "(if(not" " #f)" -"(for-loop_291" +"(for-loop_292" " env_32" " rest_215" " rest_188)" " env_32)))" " env_31)))))" -" for-loop_291)" +" for-loop_292)" " env_30" -" lst_324" -" lst_325))))))" +" lst_323" +" lst_324))))))" "(if(not #f)" -"(for-loop_290" +"(for-loop_291" " env_6" -" rest_156" +" rest_155" " rest_214)" " env_6)))" " env_29)))))" -" for-loop_290)" +" for-loop_291)" "(expand-context-env ctx_82)" -" lst_364" +" lst_363" " lst_120)))))" "(let-values(((rec-env_0)" -"(let-values(((lst_366) trans-keyss_0)" -"((lst_367) trans-valss_0)" -"((lst_368) trans-idss_2))" +"(let-values(((lst_365) trans-keyss_0)" +"((lst_366) trans-valss_0)" +"((lst_367) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" +"(let-values()(check-list lst_365)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" "(let-values()(check-list lst_366)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-list lst_367)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_368)))" -"((letrec-values(((for-loop_292)" +"((letrec-values(((for-loop_293)" "(lambda(env_35" " lst_241" -" lst_369" -" lst_370)" +" lst_368" +" lst_369)" "(begin" " 'for-loop" "(if(if(pair?" " lst_241)" "(if(pair?" -" lst_369)" +" lst_368)" "(pair?" -" lst_370)" +" lst_369)" " #f)" " #f)" "(let-values(((keys_11)" @@ -63762,16 +64204,16 @@ static const char *startup_source = " lst_241))" "((vals_9)" "(unsafe-car" -" lst_369))" +" lst_368))" "((rest_217)" "(unsafe-cdr" -" lst_369))" +" lst_368))" "((ids_37)" "(unsafe-car" -" lst_370))" +" lst_369))" "((rest_218)" "(unsafe-cdr" -" lst_370)))" +" lst_369)))" "(let-values(((env_36)" "(let-values(((env_37)" " env_35))" @@ -63779,9 +64221,9 @@ static const char *startup_source = "(let-values()" "(let-values(((lst_121)" " keys_11)" -"((lst_371)" +"((lst_370)" " vals_9)" -"((lst_372)" +"((lst_371)" " ids_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63795,46 +64237,46 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_371)))" +" lst_370)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_372)))" -"((letrec-values(((for-loop_293)" +" lst_371)))" +"((letrec-values(((for-loop_294)" "(lambda(env_39" +" lst_372" " lst_373" -" lst_374" -" lst_375)" +" lst_374)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_373)" +" lst_372)" "(if(pair?" -" lst_374)" +" lst_373)" "(pair?" -" lst_375)" +" lst_374)" " #f)" " #f)" "(let-values(((key_94)" "(unsafe-car" -" lst_373))" +" lst_372))" "((rest_219)" "(unsafe-cdr" -" lst_373))" +" lst_372))" "((val_84)" "(unsafe-car" -" lst_374))" +" lst_373))" "((rest_220)" "(unsafe-cdr" -" lst_374))" +" lst_373))" "((id_118)" "(unsafe-car" -" lst_375))" +" lst_374))" "((rest_221)" "(unsafe-cdr" -" lst_375)))" +" lst_374)))" "(let-values(((env_40)" "(let-values(((env_41)" " env_39))" @@ -63844,7 +64286,7 @@ static const char *startup_source = "(maybe-install-free=id-in-context!" " val_84" " id_118" -" phase_145" +" phase_147" " ctx_82)" "(env-extend" " env_41" @@ -63854,42 +64296,42 @@ static const char *startup_source = " env_42)))))" "(if(not" " #f)" -"(for-loop_293" +"(for-loop_294" " env_40" " rest_219" " rest_220" " rest_221)" " env_40)))" " env_39)))))" -" for-loop_293)" +" for-loop_294)" " env_37" " lst_121" -" lst_371" -" lst_372))))))" +" lst_370" +" lst_371))))))" "(values" " env_38)))))" "(if(not #f)" -"(for-loop_292" +"(for-loop_293" " env_36" " rest_216" " rest_217" " rest_218)" " env_36)))" " env_35)))))" -" for-loop_292)" +" for-loop_293)" " rec-val-env_0" +" lst_365" " lst_366" -" lst_367" -" lst_368)))))" +" lst_367)))))" "(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_250) expr-ctx_0))" -"(let-values(((the-struct_95) v_250))" +"(let-values(((v_252) expr-ctx_0))" +"(let-values(((the-struct_97) v_252))" "(if(expand-context/outer?" -" the-struct_95)" +" the-struct_97)" "(let-values(((env151_1) rec-env_0)" "((scopes152_0)" "(cons" @@ -63911,42 +64353,42 @@ static const char *startup_source = " sc_7))" "((inner155_2)" "(root-expand-context/outer-inner" -" v_250)))" +" v_252)))" "(expand-context/outer1.1" " inner155_2" "(root-expand-context/outer-post-expansion-scope" -" the-struct_95)" +" the-struct_97)" "(root-expand-context/outer-use-site-scopes" -" the-struct_95)" +" the-struct_97)" "(root-expand-context/outer-frame-id" -" the-struct_95)" +" the-struct_97)" "(expand-context/outer-context" -" the-struct_95)" +" the-struct_97)" " env151_1" "(expand-context/outer-post-expansion-scope-action" -" the-struct_95)" +" the-struct_97)" " scopes152_0" "(expand-context/outer-def-ctx-scopes" -" the-struct_95)" +" the-struct_97)" " binding-layer154_0" " reference-records153_0" "(expand-context/outer-only-immediate?" -" the-struct_95)" +" the-struct_97)" "(expand-context/outer-need-eventually-defined" -" the-struct_95)" +" the-struct_97)" "(expand-context/outer-current-introduction-scopes" -" the-struct_95)" +" the-struct_97)" "(expand-context/outer-name" -" the-struct_95)))" +" the-struct_97)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_95))))))" +" the-struct_97))))))" "(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_147)" " let-values115_0)" " #f)))" "(let-values(((rebuild-s_6)" @@ -63964,36 +64406,36 @@ static const char *startup_source = "(if(expand-context-to-parsed?" " ctx_82)" "(reverse$1" -"(let-values(((lst_376)" +"(let-values(((lst_375)" " val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_376)))" -"((letrec-values(((for-loop_294)" +"(check-list lst_375)))" +"((letrec-values(((for-loop_295)" "(lambda(fold-var_106" -" lst_377)" +" lst_376)" "(begin" " 'for-loop" "(if(pair?" -" lst_377)" +" lst_376)" "(let-values(((val-ids_1)" "(unsafe-car" -" lst_377))" +" lst_376))" "((rest_222)" "(unsafe-cdr" -" lst_377)))" -"(let-values(((fold-var_335)" -"(let-values(((fold-var_336)" -" fold-var_106))" +" lst_376)))" "(let-values(((fold-var_337)" +"(let-values(((fold-var_338)" +" fold-var_106))" +"(let-values(((fold-var_339)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_378)" +"(let-values(((lst_377)" " val-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64001,24 +64443,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_378)))" -"((letrec-values(((for-loop_295)" -"(lambda(fold-var_338" -" lst_379)" +" lst_377)))" +"((letrec-values(((for-loop_296)" +"(lambda(fold-var_340" +" lst_378)" "(begin" " 'for-loop" "(if(pair?" -" lst_379)" +" lst_378)" "(let-values(((val-id_0)" "(unsafe-car" -" lst_379))" +" lst_378))" "((rest_223)" "(unsafe-cdr" -" lst_379)))" +" lst_378)))" "(let-values(((fold-var_109)" -"(let-values(((fold-var_339)" -" fold-var_338))" -"(let-values(((fold-var_340)" +"(let-values(((fold-var_341)" +" fold-var_340))" +"(let-values(((fold-var_342)" "(let-values()" "(cons" "(let-values()" @@ -64028,32 +64470,32 @@ static const char *startup_source = " val-id_0)" " val-id_0" " val-id_0))" -" fold-var_339))))" +" fold-var_341))))" "(values" -" fold-var_340)))))" +" fold-var_342)))))" "(if(not" " #f)" -"(for-loop_295" +"(for-loop_296" " fold-var_109" " rest_223)" " fold-var_109)))" -" fold-var_338)))))" -" for-loop_295)" +" fold-var_340)))))" +" for-loop_296)" " null" -" lst_378)))))" -" fold-var_336))))" +" lst_377)))))" +" fold-var_338))))" "(values" -" fold-var_337)))))" +" fold-var_339)))))" "(if(not" " #f)" -"(for-loop_294" -" fold-var_335" +"(for-loop_295" +" fold-var_337" " rest_222)" -" fold-var_335)))" +" fold-var_337)))" " fold-var_106)))))" -" for-loop_294)" +" for-loop_295)" " null" -" lst_376))))" +" lst_375))))" " val-idss_3)))" "(let-values((()" "(begin" @@ -64096,50 +64538,50 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_5)" -"(let-values(((v_251)" +"(let-values(((v_253)" " rec-ctx_0))" -"(let-values(((the-struct_96)" -" v_251))" +"(let-values(((the-struct_98)" +" v_253))" "(if(expand-context/outer?" -" the-struct_96)" +" the-struct_98)" "(let-values(((reference-records162_0)" " orig-rrs_0)" "((inner163_0)" "(root-expand-context/outer-inner" -" v_251)))" +" v_253)))" "(expand-context/outer1.1" " inner163_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_96)" +" the-struct_98)" "(root-expand-context/outer-use-site-scopes" -" the-struct_96)" +" the-struct_98)" "(root-expand-context/outer-frame-id" -" the-struct_96)" +" the-struct_98)" "(expand-context/outer-context" -" the-struct_96)" +" the-struct_98)" "(expand-context/outer-env" -" the-struct_96)" +" the-struct_98)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_96)" +" the-struct_98)" "(expand-context/outer-scopes" -" the-struct_96)" +" the-struct_98)" "(expand-context/outer-def-ctx-scopes" -" the-struct_96)" +" the-struct_98)" "(expand-context/outer-binding-layer" -" the-struct_96)" +" the-struct_98)" " reference-records162_0" "(expand-context/outer-only-immediate?" -" the-struct_96)" +" the-struct_98)" "(expand-context/outer-need-eventually-defined" -" the-struct_96)" +" the-struct_98)" "(expand-context/outer-current-introduction-scopes" -" the-struct_96)" +" the-struct_98)" "(expand-context/outer-name" -" the-struct_96)))" +" the-struct_98)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_96))))))" +" the-struct_98))))))" "(let-values(((temp160_2)" "(let-values(((ctx165_0)" " ctx_82))" @@ -64160,11 +64602,11 @@ static const char *startup_source = "(let-values()" "(let-values(((clauses_2)" "(reverse$1" -"(let-values(((lst_380)" +"(let-values(((lst_379)" " val-name-idss_0)" -"((lst_381)" +"((lst_380)" " val-keyss_2)" -"((lst_382)" +"((lst_381)" " val-rhss_3))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64172,6 +64614,12 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" +" lst_379)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" " lst_380)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -64179,46 +64627,40 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_381)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_382)))" -"((letrec-values(((for-loop_158)" +"((letrec-values(((for-loop_159)" "(lambda(fold-var_116" +" lst_382" " lst_383" -" lst_384" -" lst_385)" +" lst_384)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_383)" +" lst_382)" "(if(pair?" -" lst_384)" +" lst_383)" "(pair?" -" lst_385)" +" lst_384)" " #f)" " #f)" "(let-values(((ids_38)" "(unsafe-car" -" lst_383))" +" lst_382))" "((rest_224)" "(unsafe-cdr" -" lst_383))" +" lst_382))" "((keys_12)" "(unsafe-car" -" lst_384))" +" lst_383))" "((rest_225)" "(unsafe-cdr" -" lst_384))" +" lst_383))" "((rhs_21)" "(unsafe-car" -" lst_385))" +" lst_384))" "((rest_226)" "(unsafe-cdr" -" lst_385)))" -"(let-values(((fold-var_341)" +" lst_384)))" +"(let-values(((fold-var_343)" "(let-values(((fold-var_119)" " fold-var_116))" "(let-values(((fold-var_120)" @@ -64269,18 +64711,18 @@ static const char *startup_source = " fold-var_120)))))" "(if(not" " #f)" -"(for-loop_158" -" fold-var_341" +"(for-loop_159" +" fold-var_343" " rest_224" " rest_225" " rest_226)" -" fold-var_341)))" +" fold-var_343)))" " fold-var_116)))))" -" for-loop_158)" +" for-loop_159)" " null" +" lst_379" " lst_380" -" lst_381" -" lst_382))))))" +" lst_381))))))" "(let-values(((exp-body_4)" "(get-body_1)))" "(begin" @@ -64317,7 +64759,7 @@ static const char *startup_source = "(let-values()" "(let-values(((temp173_0)" "(reverse$1" -"(let-values(((lst_386)" +"(let-values(((lst_385)" " val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64325,41 +64767,41 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_386)))" -"((letrec-values(((for-loop_296)" -"(lambda(fold-var_342" -" lst_387)" +" lst_385)))" +"((letrec-values(((for-loop_297)" +"(lambda(fold-var_344" +" lst_386)" "(begin" " 'for-loop" "(if(pair?" -" lst_387)" +" lst_386)" "(let-values(((rhs_22)" "(unsafe-car" -" lst_387))" +" lst_386))" "((rest_227)" "(unsafe-cdr" -" lst_387)))" -"(let-values(((fold-var_343)" -"(let-values(((fold-var_344)" -" fold-var_342))" +" lst_386)))" "(let-values(((fold-var_345)" +"(let-values(((fold-var_346)" +" fold-var_344))" +"(let-values(((fold-var_347)" "(let-values()" "(cons" "(let-values()" " #f)" -" fold-var_344))))" +" fold-var_346))))" "(values" -" fold-var_345)))))" +" fold-var_347)))))" "(if(not" " #f)" -"(for-loop_296" -" fold-var_343" +"(for-loop_297" +" fold-var_345" " rest_227)" -" fold-var_343)))" -" fold-var_342)))))" -" for-loop_296)" +" fold-var_345)))" +" fold-var_344)))))" +" for-loop_297)" " null" -" lst_386)))))" +" lst_385)))))" "((temp174_0)" " #t)" "((frame-id175_0)" @@ -64398,41 +64840,41 @@ static const char *startup_source = "(let-values(((vals+body_0)" "(cons" "(reverse$1" -"(let-values(((lst_388) val-idss_4)((lst_59) val-rhss_4))" +"(let-values(((lst_387) val-idss_4)((lst_59) val-rhss_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_388)))" +"(let-values()(check-list lst_387)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_59)))" -"((letrec-values(((for-loop_297)" -"(lambda(fold-var_346 lst_389 lst_390)" +"((letrec-values(((for-loop_298)" +"(lambda(fold-var_348 lst_388 lst_389)" "(begin" " 'for-loop" -"(if(if(pair? lst_389)(pair? lst_390) #f)" -"(let-values(((val-ids_2)(unsafe-car lst_389))" -"((rest_228)(unsafe-cdr lst_389))" -"((val-rhs_11)(unsafe-car lst_390))" -"((rest_229)(unsafe-cdr lst_390)))" -"(let-values(((fold-var_347)" -"(let-values(((fold-var_348) fold-var_346))" +"(if(if(pair? lst_388)(pair? lst_389) #f)" +"(let-values(((val-ids_2)(unsafe-car lst_388))" +"((rest_228)(unsafe-cdr lst_388))" +"((val-rhs_11)(unsafe-car lst_389))" +"((rest_229)(unsafe-cdr lst_389)))" "(let-values(((fold-var_349)" +"(let-values(((fold-var_350) fold-var_348))" +"(let-values(((fold-var_351)" "(let-values()" "(cons" "(let-values()" "(datum->syntax$1" " #f" "(list val-ids_2 val-rhs_11)))" -" fold-var_348))))" -"(values fold-var_349)))))" +" fold-var_350))))" +"(values fold-var_351)))))" "(if(not #f)" -"(for-loop_297 fold-var_347 rest_228 rest_229)" -" fold-var_347)))" -" fold-var_346)))))" -" for-loop_297)" +"(for-loop_298 fold-var_349 rest_228 rest_229)" +" fold-var_349)))" +" fold-var_348)))))" +" for-loop_298)" " null" -" lst_388" +" lst_387" " lst_59))))" "(datum->syntax$1 #f bodys_11))))" "(call-expand-observe" @@ -64442,26 +64884,26 @@ static const char *startup_source = " vals+body_0" "(cons" "(reverse$1" -"(let-values(((lst_62) trans-idss_3)((lst_391) trans-rhss_0))" +"(let-values(((lst_62) trans-idss_3)((lst_390) trans-rhss_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_62)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_391)))" -"((letrec-values(((for-loop_298)" -"(lambda(fold-var_350 lst_392 lst_393)" +"(let-values()(check-list lst_390)))" +"((letrec-values(((for-loop_299)" +"(lambda(fold-var_352 lst_391 lst_392)" "(begin" " 'for-loop" -"(if(if(pair? lst_392)(pair? lst_393) #f)" -"(let-values(((trans-ids_0)(unsafe-car lst_392))" -"((rest_230)(unsafe-cdr lst_392))" -"((trans-rhs_5)(unsafe-car lst_393))" -"((rest_231)(unsafe-cdr lst_393)))" +"(if(if(pair? lst_391)(pair? lst_392) #f)" +"(let-values(((trans-ids_0)(unsafe-car lst_391))" +"((rest_230)(unsafe-cdr lst_391))" +"((trans-rhs_5)(unsafe-car lst_392))" +"((rest_231)(unsafe-cdr lst_392)))" "(let-values(((fold-var_122)" -"(let-values(((fold-var_351) fold-var_350))" -"(let-values(((fold-var_352)" +"(let-values(((fold-var_353) fold-var_352))" +"(let-values(((fold-var_354)" "(let-values()" "(cons" "(let-values()" @@ -64470,14 +64912,14 @@ static const char *startup_source = "(list" " trans-ids_0" "(add-scope trans-rhs_5 sc_33))))" -" fold-var_351))))" -"(values fold-var_352)))))" -"(if(not #f)(for-loop_298 fold-var_122 rest_230 rest_231) fold-var_122)))" -" fold-var_350)))))" -" for-loop_298)" +" fold-var_353))))" +"(values fold-var_354)))))" +"(if(not #f)(for-loop_299 fold-var_122 rest_230 rest_231) fold-var_122)))" +" fold-var_352)))))" +" for-loop_299)" " null" " lst_62" -" lst_391))))" +" lst_390))))" " vals+body_0)))))))" "(define-values" "(log-letrec-values)" @@ -64591,10 +65033,10 @@ 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_148)(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_535)(syntax->datum$1 datum_2))" -"(let-values(((s206_0) s_535)((temp207_0)(list(core-id 'quote phase_146) datum_2)))" +"(let-values(((s206_0) s_535)((temp207_0)(list(core-id 'quote phase_148) datum_2)))" "(rebuild5.1 #f #f s206_0 temp207_0))))))))))))" "(void" "(add-core-form!*" @@ -64630,10 +65072,10 @@ static const char *startup_source = "(let-values(((es_3) e209_0))" "(if(null? es_3)" "(let-values()" -"(let-values(((phase_147)(expand-context-phase ctx_85)))" +"(let-values(((phase_149)(expand-context-phase ctx_85)))" "(if(expand-context-to-parsed? ctx_85)" "(parsed-quote14.1(keep-properties-only~ s_539) null)" -"(let-values(((s212_0) s_539)((temp213_1)(list(core-id 'quote phase_147) null)))" +"(let-values(((s212_0) s_539)((temp213_1)(list(core-id 'quote phase_149) null)))" "(rebuild5.1 #f #f s212_0 temp213_1)))))" "(let-values()" "(let-values(((keep-for-parsed?_1)(eq?(system-type 'vm) 'chez-scheme)))" @@ -64667,23 +65109,23 @@ static const char *startup_source = "(expand7.1 #f #f #f #f temp220_1 expr-ctx221_0))))" "(let-values(((exp-es_0)" "(reverse$1" -"(let-values(((lst_394) rest-es_0))" +"(let-values(((lst_393) rest-es_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_394)))" -"((letrec-values(((for-loop_299)" -"(lambda(fold-var_56 lst_395)" +"(let-values()(check-list lst_393)))" +"((letrec-values(((for-loop_300)" +"(lambda(fold-var_56 lst_394)" "(begin" " 'for-loop" -"(if(pair? lst_395)" -"(let-values(((e_85)(unsafe-car lst_395))" +"(if(pair? lst_394)" +"(let-values(((e_85)(unsafe-car lst_394))" "((rest_232)" -"(unsafe-cdr lst_395)))" -"(let-values(((fold-var_353)" -"(let-values(((fold-var_354)" -" fold-var_56))" +"(unsafe-cdr lst_394)))" "(let-values(((fold-var_355)" +"(let-values(((fold-var_356)" +" fold-var_56))" +"(let-values(((fold-var_357)" "(let-values()" "(cons" "(let-values()" @@ -64709,21 +65151,21 @@ static const char *startup_source = " #f" " e222_0" " expr-ctx223_0))))" -" fold-var_354))))" +" fold-var_356))))" "(values" -" fold-var_355)))))" +" fold-var_357)))))" "(if(not #f)" -"(for-loop_299 fold-var_353 rest_232)" -" fold-var_353)))" +"(for-loop_300 fold-var_355 rest_232)" +" fold-var_355)))" " fold-var_56)))))" -" for-loop_299)" +" for-loop_300)" " null" -" lst_394))))))" +" lst_393))))))" "(if(expand-context-to-parsed? ctx_85)" "(let-values()" "(parsed-app7.1" -"(let-values(((or-part_374) rebuild-prefixless_0))" -"(if or-part_374 or-part_374 rebuild-s_8))" +"(let-values(((or-part_380) rebuild-prefixless_0))" +"(if or-part_380 or-part_380 rebuild-s_8))" " exp-rator_0" " exp-es_0))" "(let-values()" @@ -65377,7 +65819,7 @@ static const char *startup_source = "(let-values(((ctx321_0) ctx_90)((s322_0) s_637))" "(keep-as-needed74.1 #f #f #f #f #f #f ctx321_0 s322_0))))" "(let-values(((exp-es_2)" -"((letrec-values(((loop_127)" +"((letrec-values(((loop_130)" "(lambda(es_5 index_6)" "(begin" " 'loop" @@ -65431,8 +65873,8 @@ static const char *startup_source = " #f" " temp323_0" " temp324_0))" -"(loop_127 rest-es_1(sub1 index_6))))))))))))" -" loop_127)" +"(loop_130 rest-es_1(sub1 index_6))))))))))))" +" loop_130)" " e318_0" " list-start-index_0)))" "(begin" @@ -65460,8 +65902,8 @@ static const char *startup_source = "(make-begin20.1 temp332_1 temp331_0 temp329_0 parsed-begin330_0))))" "(lambda(s_643 ctx_91)" "(let-values(((context_24)(expand-context-context ctx_91)))" -"(if(let-values(((or-part_375)(eq? context_24 'top-level)))" -"(if or-part_375 or-part_375(eq? context_24 'module)))" +"(if(let-values(((or-part_381)(eq? context_24 'top-level)))" +"(if or-part_381 or-part_381(eq? context_24 'module)))" "(let-values()" "(let-values(((disarmed-s_16)(syntax-disarm$1 s_643)))" "(let-values(((ok?_50 begin333_0)" @@ -65552,15 +65994,15 @@ static const char *startup_source = "(let-values(((s_657)" "(cdr" " s_655)))" -"(if(let-values(((or-part_376)" +"(if(let-values(((or-part_382)" "(if(syntax?$1" " s_657)" "(symbol?" "(syntax-e$1" " s_657))" " #f)))" -"(if or-part_376" -" or-part_376" +"(if or-part_382" +" or-part_382" "(symbol?" " s_657)))" " s_657" @@ -65596,9 +66038,7 @@ static const char *startup_source = "(let-values()(raise-ambiguous-error id_120 ctx_93))" "(if(if b_90" "(if(module-binding? b_90)" -"(eq?" -"(module-binding-module b_90)" -"(namespace-mpi(expand-context-namespace ctx_93)))" +"(eq?(module-binding-module b_90)(root-expand-context-self-mpi ctx_93))" " #f)" " #f)" "(let-values()" @@ -65669,15 +66109,15 @@ static const char *startup_source = "(let-values(((s_661)" "(cdr" " s_659)))" -"(if(let-values(((or-part_377)" +"(if(let-values(((or-part_383)" "(if(syntax?$1" " s_661)" "(symbol?" "(syntax-e$1" " s_661))" " #f)))" -"(if or-part_377" -" or-part_377" +"(if or-part_383" +" or-part_383" "(symbol?" " s_661)))" " s_661" @@ -65730,14 +66170,14 @@ static const char *startup_source = "(if(pair? s_669)" "(let-values(((id366_0)" "(let-values(((s_670)(car s_669)))" -"(if(let-values(((or-part_378)" +"(if(let-values(((or-part_384)" "(if(syntax?$1 s_670)" "(symbol?" "(syntax-e$1" " s_670))" " #f)))" -"(if or-part_378" -" or-part_378" +"(if or-part_384" +" or-part_384" "(symbol? s_670)))" " s_670" "(raise-syntax-error$1" @@ -65824,14 +66264,14 @@ static const char *startup_source = "(let-values()" "(let-values()(call-expand-observe obs_117 'resolve id_122)))" "(void)))" -"(if(let-values(((or-part_379)(variable? t_57)))" -"(if or-part_379" -" or-part_379" +"(if(let-values(((or-part_385)(variable? t_57)))" +"(if or-part_385" +" or-part_385" "(if(not binding_30)" -"(let-values(((or-part_380)" +"(let-values(((or-part_386)" "(register-eventual-variable!? id_122 ctx_96)))" -"(if or-part_380" -" or-part_380" +"(if or-part_386" +" or-part_386" "(expand-context-allow-unbound? ctx_96)))" " #f)))" "(let-values()" @@ -65841,8 +66281,7 @@ static const char *startup_source = "(not" "(eq?" "(module-binding-module binding_30)" -"(namespace-mpi" -"(expand-context-namespace ctx_96))))" +"(root-expand-context-self-mpi ctx_96)))" " #f)" "(let-values()" "(raise-syntax-error$1" @@ -65990,8 +66429,8 @@ static const char *startup_source = "(let-values(((ctx_97) ctx31_0))" "(let-values(((t_58)(if t24_0 t23_0 #f)))" "(let-values()" -"(if(let-values(((or-part_381) t_58))" -"(if or-part_381 or-part_381 from-rename?_1))" +"(if(let-values(((or-part_387) t_58))" +"(if or-part_387 or-part_387 from-rename?_1))" "(let-values()" "(let-values(((new-id_1)" "(if t_58" @@ -66031,9 +66470,9 @@ static const char *startup_source = "(let-values(((s_684)(if(syntax?$1 s_683)(syntax-e$1 s_683) s_683)))" "(if(pair? s_684)" "(if(let-values(((s_685)(car s_684)))" -"(let-values(((or-part_382)" +"(let-values(((or-part_388)" "(if(syntax?$1 s_685)(symbol?(syntax-e$1 s_685)) #f)))" -"(if or-part_382 or-part_382(symbol? s_685))))" +"(if or-part_388 or-part_388(symbol? s_685))))" "(let-values(((s_686)(cdr s_684)))" "(let-values(((s_687)(if(syntax?$1 s_686)(syntax-e$1 s_686) s_686)))" "(null? s_687)))" @@ -66080,11 +66519,11 @@ static const char *startup_source = "(if(pair? s_701)" "(if(let-values(((s_702)(car s_701))) #t)" "(let-values(((s_703)(cdr s_701)))" -"(let-values(((or-part_383)" +"(let-values(((or-part_389)" "(if(syntax?$1 s_703)" "(symbol?(syntax-e$1 s_703))" " #f)))" -"(if or-part_383 or-part_383(symbol? s_703))))" +"(if or-part_389 or-part_389(symbol? s_703))))" " #f)" " #f)))" "(let-values(((s_704)(cdr s_699)))" @@ -66136,7 +66575,7 @@ static const char *startup_source = "(values #f #f #f #f)))))" "(let-values(((ok?_56 #%variable-reference406_0)" "(let-values(((s_716) disarmed-s_22))" -"(if(if(not(let-values(((or-part_384) ok?_54))(if or-part_384 or-part_384 ok?_55)))" +"(if(if(not(let-values(((or-part_390) ok?_54))(if or-part_390 or-part_390 ok?_55)))" " #t" " #f)" "(let-values(((orig-s_58) s_716))" @@ -66161,7 +66600,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_58)))))" "(values #t #%variable-reference406_1)))" "(values #f #f)))))" -"(if(let-values(((or-part_385) ok?_54))(if or-part_385 or-part_385 ok?_55))" +"(if(let-values(((or-part_391) ok?_54))(if or-part_391 or-part_391 ok?_55))" "(let-values()" "(let-values(((var-id_0)(if ok?_54 id392_0 id398_0)))" "(let-values(((binding_31)" @@ -66175,8 +66614,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_386) binding_31))" -"(if or-part_386 or-part_386(expand-context-allow-unbound? ctx_100)))" +"(if(let-values(((or-part_392) binding_31))" +"(if or-part_392 or-part_392(expand-context-allow-unbound? ctx_100)))" "(void)" "(let-values()" "(raise-unbound-syntax-error" @@ -66267,11 +66706,11 @@ static const char *startup_source = "(expand7.1 #f #f #f #f temp424_0 temp425_0))))" "(if(expand-context-to-parsed? ctx_101)" " exp-e_0" -"(let-values(((tmp_61)" +"(let-values(((tmp_62)" "(if(not(expand-context-in-local-expand? ctx_101))" "(expand-context-context ctx_101)" " #f)))" -"(if(equal? tmp_61 'expression)" +"(if(equal? tmp_62 'expression)" "(let-values()" "(let-values(((result-s_13)(syntax-track-origin$1 exp-e_0 rebuild-s_13)))" "(begin" @@ -66287,12 +66726,12 @@ static const char *startup_source = " (void (add-core-form!* 'unquote-splicing (lambda (s_731 ctx_103) (raise-syntax-error$1 #f \"not in quasiquote\" s_731))))" "(define-values" "(binding-for-transformer?)" -"(lambda(b_41 id_126 at-phase_12 ns_120)" +"(lambda(b_41 id_126 at-phase_12 ns_119)" "(begin" "(if(not at-phase_12)" "(let-values()" "(let-values(((m_30)" -"(namespace->module ns_120(1/module-path-index-resolve(module-binding-nominal-module b_41)))))" +"(namespace->module ns_119(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())" @@ -66304,7 +66743,7 @@ static const char *startup_source = "(let-values(((b1_8) b_41)" "((empty-env2_0) empty-env)" "((null3_0) null)" -"((ns4_0) ns_120)" +"((ns4_0) ns_119)" "((at-phase5_0) at-phase_12)" "((id6_0) id_126))" "(binding-lookup48.1 #f #f #f #f b1_8 empty-env2_0 null3_0 ns4_0 at-phase5_0 id6_0))))" @@ -66313,10 +66752,10 @@ static const char *startup_source = "(define-values(provide-form-name) 'provide)" "(define-values" "(parse-and-expand-provides!)" -"(lambda(specs_0 orig-s_60 rp_1 self_28 phase_41 ctx_104)" +"(lambda(specs_0 orig-s_60 rp_1 self_31 phase_41 ctx_104)" "(begin" -"(let-values(((ns_121)(expand-context-namespace ctx_104)))" -"((letrec-values(((loop_115)" +"(let-values(((ns_120)(expand-context-namespace ctx_104)))" +"((letrec-values(((loop_118)" "(lambda(specs_1 at-phase_13 protected?_4 layer_6)" "(begin" " 'loop" @@ -66328,19 +66767,19 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_73)))" -"((letrec-values(((for-loop_91)" +"((letrec-values(((for-loop_92)" "(lambda(track-stxes_1" " exp-specs_1" -" lst_396)" +" lst_395)" "(begin" " 'for-loop" -"(if(pair? lst_396)" +"(if(pair? lst_395)" "(let-values(((spec_0)" "(unsafe-car" -" lst_396))" +" lst_395))" "((rest_233)" "(unsafe-cdr" -" lst_396)))" +" lst_395)))" "(let-values(((track-stxes_2" " exp-specs_2)" "(let-values(((track-stxes_3)" @@ -66388,11 +66827,11 @@ static const char *startup_source = " fm_2)" " orig-s_60" " spec_0)))))))" -"(let-values(((tmp_62)" +"(let-values(((tmp_63)" " fm_2))" "(let-values(((index_7)" "(if(symbol?" -" tmp_62)" +" tmp_63)" "(hash-ref" " '#hasheq((all-defined" " ." @@ -66432,7 +66871,7 @@ static const char *startup_source = "(struct" " ." " 6))" -" tmp_62" +" tmp_63" "(lambda()" " 0))" " 0)))" @@ -66456,7 +66895,7 @@ static const char *startup_source = "(syntax-e$1" " spec_0)" " at-phase_13" -" ns_121" +" ns_120" " rp_1" " protected?_4)" "(values" @@ -66486,47 +66925,47 @@ static const char *startup_source = "(let-values(((for-meta3_1" " phase-level4_1" " spec5_1)" -"(let-values(((s_466)" +"(let-values(((s_467)" "(if(syntax?$1" " s_306)" "(syntax-e$1" " s_306)" " s_306)))" "(if(pair?" -" s_466)" +" s_467)" "(let-values(((for-meta6_0)" "(let-values(((s_178)" "(car" -" s_466)))" +" s_467)))" " s_178))" "((phase-level7_0" " spec8_0)" "(let-values(((s_78)" "(cdr" -" s_466)))" -"(let-values(((s_412)" +" s_467)))" +"(let-values(((s_413)" "(if(syntax?$1" " s_78)" "(syntax-e$1" " s_78)" " s_78)))" "(if(pair?" -" s_412)" +" s_413)" "(let-values(((phase-level9_0)" "(let-values(((s_180)" "(car" -" s_412)))" +" s_413)))" " s_180))" "((spec10_0)" -"(let-values(((s_399)" +"(let-values(((s_400)" "(cdr" -" s_412)))" +" s_413)))" "(let-values(((s_148)" "(if(syntax?$1" -" s_399)" +" s_400)" "(syntax-e$1" -" s_399)" -" s_399)))" +" s_400)" +" s_400)))" "(let-values(((flat-s_42)" "(to-syntax-list.1" " s_148)))" @@ -66559,13 +66998,13 @@ static const char *startup_source = " for-meta3_1" " phase-level4_1" " spec5_1))))))" -"(let-values(((p_68)" +"(let-values(((p_71)" "(syntax-e$1" " phase-level4_0)))" "(let-values((()" "(begin" "(if(phase?" -" p_68)" +" p_71)" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -66576,10 +67015,10 @@ static const char *startup_source = "(values))))" "(let-values(((track-stxes_5" " exp-specs_5)" -"(loop_115" +"(loop_118" " spec5_0" "(phase+" -" p_68" +" p_71" " at-phase_13)" " protected?_4" " 'phaseless)))" @@ -66666,7 +67105,7 @@ static const char *startup_source = " spec14_1))))))" "(let-values(((track-stxes_6" " exp-specs_6)" -"(loop_115" +"(loop_118" " spec14_0" "(phase+" " 1" @@ -66680,7 +67119,7 @@ static const char *startup_source = " track-stxes_6" "(let-values(((spec17_0)" " spec_0)" -"((temp18_5)" +"((temp18_6)" "(list*" " for-syntax13_0" " exp-specs_6)))" @@ -66688,7 +67127,7 @@ static const char *startup_source = " #f" " #f" " spec17_0" -" temp18_5)))))))))" +" temp18_6)))))))))" "(if(unsafe-fx<" " index_7" " 4)" @@ -66716,15 +67155,15 @@ static const char *startup_source = "(if(pair?" " s_733)" "(let-values(((for-label21_0)" -"(let-values(((s_481)" +"(let-values(((s_482)" "(car" " s_733)))" -" s_481))" +" s_482))" "((spec22_0)" "(let-values(((s_45)" "(cdr" " s_733)))" -"(let-values(((s_397)" +"(let-values(((s_398)" "(if(syntax?$1" " s_45)" "(syntax-e$1" @@ -66732,7 +67171,7 @@ static const char *startup_source = " s_45)))" "(let-values(((flat-s_44)" "(to-syntax-list.1" -" s_397)))" +" s_398)))" "(if(not" " flat-s_44)" "(let-values()" @@ -66755,7 +67194,7 @@ static const char *startup_source = " spec20_1))))))" "(let-values(((track-stxes_7" " exp-specs_7)" -"(loop_115" +"(loop_118" " spec20_0" " #f" " protected?_4" @@ -66822,7 +67261,7 @@ static const char *startup_source = "(let-values(((s_735)" "(cdr" " s_31)))" -"(let-values(((s_393)" +"(let-values(((s_394)" "(if(syntax?$1" " s_735)" "(syntax-e$1" @@ -66830,7 +67269,7 @@ static const char *startup_source = " s_735)))" "(let-values(((flat-s_45)" "(to-syntax-list.1" -" s_393)))" +" s_394)))" "(if(not" " flat-s_45)" "(let-values()" @@ -66853,7 +67292,7 @@ static const char *startup_source = " p-spec26_1))))))" "(let-values(((track-stxes_8" " exp-specs_8)" -"(loop_115" +"(loop_118" " p-spec26_0" " at-phase_13" " #t" @@ -66884,52 +67323,52 @@ static const char *startup_source = " rename31_0" " id:from32_0" " id:to33_0)" -"(let-values(((s_484)" +"(let-values(((s_485)" " disarmed-spec_0))" "(let-values(((orig-s_63)" -" s_484))" +" s_485))" "(let-values(((rename31_1" " id:from32_1" " id:to33_1)" "(let-values(((s_316)" "(if(syntax?$1" -" s_484)" +" s_485)" "(syntax-e$1" -" s_484)" -" s_484)))" +" s_485)" +" s_485)))" "(if(pair?" " s_316)" "(let-values(((rename34_0)" -"(let-values(((s_158)" +"(let-values(((s_318)" "(car" " s_316)))" -" s_158))" +" s_318))" "((id:from35_0" " id:to36_0)" -"(let-values(((s_318)" +"(let-values(((s_319)" "(cdr" " s_316)))" -"(let-values(((s_435)" +"(let-values(((s_436)" "(if(syntax?$1" -" s_318)" +" s_319)" "(syntax-e$1" -" s_318)" -" s_318)))" +" s_319)" +" s_319)))" "(if(pair?" -" s_435)" +" s_436)" "(let-values(((id:from37_0)" "(let-values(((s_56)" "(car" -" s_435)))" -"(if(let-values(((or-part_60)" +" s_436)))" +"(if(let-values(((or-part_66)" "(if(syntax?$1" " s_56)" "(symbol?" "(syntax-e$1" " s_56))" " #f)))" -"(if or-part_60" -" or-part_60" +"(if or-part_66" +" or-part_66" "(symbol?" " s_56)))" " s_56" @@ -66939,48 +67378,48 @@ static const char *startup_source = " orig-s_63" " s_56))))" "((id:to38_0)" -"(let-values(((s_389)" +"(let-values(((s_390)" "(cdr" -" s_435)))" +" s_436)))" "(let-values(((s_736)" "(if(syntax?$1" -" s_389)" +" s_390)" "(syntax-e$1" -" s_389)" -" s_389)))" +" s_390)" +" s_390)))" "(if(pair?" " s_736)" "(let-values(((id:to39_0)" -"(let-values(((s_390)" +"(let-values(((s_391)" "(car" " s_736)))" -"(if(let-values(((or-part_104)" +"(if(let-values(((or-part_110)" "(if(syntax?$1" -" s_390)" +" s_391)" "(symbol?" "(syntax-e$1" -" s_390))" +" s_391))" " #f)))" -"(if or-part_104" -" or-part_104" +"(if or-part_110" +" or-part_110" "(symbol?" -" s_390)))" -" s_390" +" s_391)))" +" s_391" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_63" -" s_390))))" +" s_391))))" "(()" -"(let-values(((s_391)" +"(let-values(((s_392)" "(cdr" " s_736)))" "(let-values(((s_502)" "(if(syntax?$1" -" s_391)" +" s_392)" "(syntax-e$1" -" s_391)" -" s_391)))" +" s_392)" +" s_392)))" "(if(null?" " s_502)" "(values)" @@ -67021,7 +67460,7 @@ static const char *startup_source = "(syntax-e$1" " id:to33_0)" " at-phase_13" -" ns_121" +" ns_120" " rp_1" " protected?_4)" "(values" @@ -67078,43 +67517,43 @@ static const char *startup_source = "(if(pair?" " s_86)" "(let-values(((id:struct46_0)" -"(let-values(((s_438)" +"(let-values(((s_439)" "(car" " s_86)))" -"(if(let-values(((or-part_258)" +"(if(let-values(((or-part_265)" "(if(syntax?$1" -" s_438)" +" s_439)" "(symbol?" "(syntax-e$1" -" s_438))" +" s_439))" " #f)))" -"(if or-part_258" -" or-part_258" +"(if or-part_265" +" or-part_265" "(symbol?" -" s_438)))" -" s_438" +" s_439)))" +" s_439" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_64" -" s_438))))" +" s_439))))" "((id:field47_0)" -"(let-values(((s_320)" +"(let-values(((s_321)" "(cdr" " s_86)))" -"(let-values(((s_394)" +"(let-values(((s_395)" "(if(syntax?$1" -" s_320)" +" s_321)" "(syntax-e$1" -" s_320)" -" s_320)))" +" s_321)" +" s_321)))" "(if(pair?" -" s_394)" +" s_395)" "(let-values(((id:field48_0)" "(let-values(((s_64)" "(car" -" s_394)))" -"(let-values(((s_321)" +" s_395)))" +"(let-values(((s_322)" "(if(syntax?$1" " s_64)" "(syntax-e$1" @@ -67122,7 +67561,7 @@ static const char *startup_source = " s_64)))" "(let-values(((flat-s_46)" "(to-syntax-list.1" -" s_321)))" +" s_322)))" "(if(not" " flat-s_46)" "(let-values()" @@ -67141,19 +67580,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_100)))" -"((letrec-values(((for-loop_116)" +"((letrec-values(((for-loop_117)" "(lambda(id:field_1" -" lst_397)" +" lst_396)" "(begin" " 'for-loop" "(if(pair?" -" lst_397)" +" lst_396)" "(let-values(((s_66)" "(unsafe-car" -" lst_397))" +" lst_396))" "((rest_234)" "(unsafe-cdr" -" lst_397)))" +" lst_396)))" "(let-values(((id:field_2)" "(let-values(((id:field_3)" " id:field_1))" @@ -67161,15 +67600,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id:field49_0)" "(let-values()" -"(if(let-values(((or-part_387)" +"(if(let-values(((or-part_393)" "(if(syntax?$1" " s_66)" "(symbol?" "(syntax-e$1" " s_66))" " #f)))" -"(if or-part_387" -" or-part_387" +"(if or-part_393" +" or-part_393" "(symbol?" " s_66)))" " s_66" @@ -67185,12 +67624,12 @@ static const char *startup_source = " id:field_4)))))" "(if(not" " #f)" -"(for-loop_116" +"(for-loop_117" " id:field_2" " rest_234)" " id:field_2)))" " id:field_1)))))" -" for-loop_116)" +" for-loop_117)" " null" " lst_100)))))" "(reverse$1" @@ -67198,15 +67637,15 @@ static const char *startup_source = "(()" "(let-values(((s_203)" "(cdr" -" s_394)))" -"(let-values(((s_406)" +" s_395)))" +"(let-values(((s_407)" "(if(syntax?$1" " s_203)" "(syntax-e$1" " s_203)" " s_203)))" "(if(null?" -" s_406)" +" s_407)" "(values)" "(raise-syntax-error$1" " #f" @@ -67244,7 +67683,7 @@ static const char *startup_source = " orig-s_60" " id:field42_0" " at-phase_13" -" ns_121" +" ns_120" " rp_1" " protected?_4)" "(values" @@ -67263,25 +67702,25 @@ static const char *startup_source = "(let-values(((ok?_64" " all-from50_0" " mod-path51_0)" -"(let-values(((s_409)" +"(let-values(((s_410)" " disarmed-spec_0))" "(let-values(((orig-s_65)" -" s_409))" +" s_410))" "(let-values(((all-from50_1" " mod-path51_1)" "(let-values(((s_738)" "(if(syntax?$1" -" s_409)" +" s_410)" "(syntax-e$1" -" s_409)" -" s_409)))" +" s_410)" +" s_410)))" "(if(pair?" " s_738)" "(let-values(((all-from52_0)" -"(let-values(((s_417)" +"(let-values(((s_418)" "(car" " s_738)))" -" s_417))" +" s_418))" "((mod-path53_0)" "(let-values(((s_206)" "(cdr" @@ -67303,14 +67742,14 @@ static const char *startup_source = "(let-values(((s_739)" "(cdr" " s_207)))" -"(let-values(((s_322)" +"(let-values(((s_323)" "(if(syntax?$1" " s_739)" "(syntax-e$1" " s_739)" " s_739)))" "(if(null?" -" s_322)" +" s_323)" "(values)" "(raise-syntax-error$1" " #f" @@ -67337,10 +67776,10 @@ static const char *startup_source = "(parse-all-from" " mod-path51_0" " orig-s_60" -" self_28" +" self_31" " null" " at-phase_13" -" ns_121" +" ns_120" " rp_1" " protected?_4" " ctx_104)" @@ -67392,20 +67831,20 @@ static const char *startup_source = "(if(pair?" " s_154)" "(let-values(((mod-path61_0)" -"(let-values(((s_491)" +"(let-values(((s_492)" "(car" " s_154)))" -" s_491))" +" s_492))" "((id62_0)" -"(let-values(((s_492)" +"(let-values(((s_493)" "(cdr" " s_154)))" "(let-values(((s_741)" "(if(syntax?$1" -" s_492)" +" s_493)" "(syntax-e$1" -" s_492)" -" s_492)))" +" s_493)" +" s_493)))" "(let-values(((flat-s_47)" "(to-syntax-list.1" " s_741)))" @@ -67418,7 +67857,7 @@ static const char *startup_source = " orig-s_66))" "(let-values()" "(let-values(((id_127)" -"(let-values(((lst_398)" +"(let-values(((lst_397)" " flat-s_47))" "(begin" "(if(variable-reference-from-unsafe?" @@ -67426,20 +67865,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_398)))" -"((letrec-values(((for-loop_300)" +" lst_397)))" +"((letrec-values(((for-loop_301)" "(lambda(id_128" -" lst_399)" +" lst_398)" "(begin" " 'for-loop" "(if(pair?" -" lst_399)" -"(let-values(((s_325)" +" lst_398)" +"(let-values(((s_326)" "(unsafe-car" -" lst_399))" +" lst_398))" "((rest_235)" "(unsafe-cdr" -" lst_399)))" +" lst_398)))" "(let-values(((id_109)" "(let-values(((id_129)" " id_128))" @@ -67447,23 +67886,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id63_0)" "(let-values()" -"(if(let-values(((or-part_388)" +"(if(let-values(((or-part_394)" "(if(syntax?$1" -" s_325)" +" s_326)" "(symbol?" "(syntax-e$1" -" s_325))" +" s_326))" " #f)))" -"(if or-part_388" -" or-part_388" +"(if or-part_394" +" or-part_394" "(symbol?" -" s_325)))" -" s_325" +" s_326)))" +" s_326" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_66" -" s_325)))))" +" s_326)))))" "(cons" " id63_0" " id_129)))))" @@ -67471,14 +67910,14 @@ static const char *startup_source = " id_130)))))" "(if(not" " #f)" -"(for-loop_300" +"(for-loop_301" " id_109" " rest_235)" " id_109)))" " id_128)))))" -" for-loop_300)" +" for-loop_301)" " null" -" lst_398)))))" +" lst_397)))))" "(reverse$1" " id_127)))))))))" "(values" @@ -67505,10 +67944,10 @@ static const char *startup_source = "(parse-all-from" " mod-path56_0" " orig-s_60" -" self_28" +" self_31" " id57_0" " at-phase_13" -" ns_121" +" ns_120" " rp_1" " protected?_4" " ctx_104)" @@ -67535,23 +67974,23 @@ static const char *startup_source = "(let-values(((orig-s_67)" " s_213))" "(let-values(((all-defined64_1)" -"(let-values(((s_395)" +"(let-values(((s_396)" "(if(syntax?$1" " s_213)" "(syntax-e$1" " s_213)" " s_213)))" "(if(pair?" -" s_395)" +" s_396)" "(let-values(((all-defined65_0)" "(let-values(((s_742)" "(car" -" s_395)))" +" s_396)))" " s_742))" "(()" "(let-values(((s_503)" "(cdr" -" s_395)))" +" s_396)))" "(let-values(((s_111)" "(if(syntax?$1" " s_503)" @@ -67576,13 +68015,13 @@ static const char *startup_source = " all-defined64_1))))))" "(begin" "(parse-all-from-module" -" self_28" +" self_31" " spec_0" " orig-s_60" " null" " #f" " at-phase_13" -" ns_121" +" ns_120" " rp_1" " protected?_4)" "(values" @@ -67613,10 +68052,10 @@ static const char *startup_source = "(if(pair?" " s_216)" "(let-values(((all-defined-except68_0)" -"(let-values(((s_330)" +"(let-values(((s_331)" "(car" " s_216)))" -" s_330))" +" s_331))" "((id69_0)" "(let-values(((s_217)" "(cdr" @@ -67639,7 +68078,7 @@ static const char *startup_source = " orig-s_68))" "(let-values()" "(let-values(((id_131)" -"(let-values(((lst_400)" +"(let-values(((lst_399)" " flat-s_48))" "(begin" "(if(variable-reference-from-unsafe?" @@ -67647,20 +68086,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_400)))" -"((letrec-values(((for-loop_301)" +" lst_399)))" +"((letrec-values(((for-loop_302)" "(lambda(id_132" -" lst_401)" +" lst_400)" "(begin" " 'for-loop" "(if(pair?" -" lst_401)" +" lst_400)" "(let-values(((s_506)" "(unsafe-car" -" lst_401))" +" lst_400))" "((rest_236)" "(unsafe-cdr" -" lst_401)))" +" lst_400)))" "(let-values(((id_133)" "(let-values(((id_134)" " id_132))" @@ -67668,15 +68107,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id70_0)" "(let-values()" -"(if(let-values(((or-part_389)" +"(if(let-values(((or-part_395)" "(if(syntax?$1" " s_506)" "(symbol?" "(syntax-e$1" " s_506))" " #f)))" -"(if or-part_389" -" or-part_389" +"(if or-part_395" +" or-part_395" "(symbol?" " s_506)))" " s_506" @@ -67692,14 +68131,14 @@ static const char *startup_source = " id_30)))))" "(if(not" " #f)" -"(for-loop_301" +"(for-loop_302" " id_133" " rest_236)" " id_133)))" " id_132)))))" -" for-loop_301)" +" for-loop_302)" " null" -" lst_400)))))" +" lst_399)))))" "(reverse$1" " id_131)))))))))" "(values" @@ -67715,13 +68154,13 @@ static const char *startup_source = " id67_1))))))" "(begin" "(parse-all-from-module" -" self_28" +" self_31" " spec_0" " orig-s_60" " id67_0" " #f" " at-phase_13" -" ns_121" +" ns_120" " rp_1" " protected?_4)" "(values" @@ -67740,18 +68179,18 @@ static const char *startup_source = "(let-values(((ok?_68" " prefix-all-defined71_0" " id:prefix72_0)" -"(let-values(((s_448)" +"(let-values(((s_449)" " disarmed-spec_0))" "(let-values(((orig-s_69)" -" s_448))" +" s_449))" "(let-values(((prefix-all-defined71_1" " id:prefix72_1)" "(let-values(((s_744)" "(if(syntax?$1" -" s_448)" +" s_449)" "(syntax-e$1" -" s_448)" -" s_448)))" +" s_449)" +" s_449)))" "(if(pair?" " s_744)" "(let-values(((prefix-all-defined73_0)" @@ -67775,15 +68214,15 @@ static const char *startup_source = "(let-values(((s_747)" "(car" " s_746)))" -"(if(let-values(((or-part_390)" +"(if(let-values(((or-part_396)" "(if(syntax?$1" " s_747)" "(symbol?" "(syntax-e$1" " s_747))" " #f)))" -"(if or-part_390" -" or-part_390" +"(if or-part_396" +" or-part_396" "(symbol?" " s_747)))" " s_747" @@ -67796,14 +68235,14 @@ static const char *startup_source = "(let-values(((s_748)" "(cdr" " s_746)))" -"(let-values(((s_468)" +"(let-values(((s_469)" "(if(syntax?$1" " s_748)" "(syntax-e$1" " s_748)" " s_748)))" "(if(null?" -" s_468)" +" s_469)" "(values)" "(raise-syntax-error$1" " #f" @@ -67828,14 +68267,14 @@ static const char *startup_source = " id:prefix72_1))))))" "(begin" "(parse-all-from-module" -" self_28" +" self_31" " spec_0" " orig-s_60" " null" "(syntax-e$1" " id:prefix72_0)" " at-phase_13" -" ns_121" +" ns_120" " rp_1" " protected?_4)" "(values" @@ -67862,63 +68301,63 @@ static const char *startup_source = "(let-values(((prefix-all-defined-except76_1" " id:prefix77_1" " id78_1)" -"(let-values(((s_339)" +"(let-values(((s_340)" "(if(syntax?$1" " s_234)" "(syntax-e$1" " s_234)" " s_234)))" "(if(pair?" -" s_339)" +" s_340)" "(let-values(((prefix-all-defined-except79_0)" -"(let-values(((s_343)" +"(let-values(((s_344)" "(car" -" s_339)))" -" s_343))" +" s_340)))" +" s_344))" "((id:prefix80_0" " id81_0)" -"(let-values(((s_344)" -"(cdr" -" s_339)))" "(let-values(((s_345)" +"(cdr" +" s_340)))" +"(let-values(((s_346)" "(if(syntax?$1" -" s_344)" -"(syntax-e$1" -" s_344)" -" s_344)))" -"(if(pair?" " s_345)" -"(let-values(((id:prefix82_0)" -"(let-values(((s_449)" -"(car" +"(syntax-e$1" +" s_345)" " s_345)))" -"(if(let-values(((or-part_391)" +"(if(pair?" +" s_346)" +"(let-values(((id:prefix82_0)" +"(let-values(((s_450)" +"(car" +" s_346)))" +"(if(let-values(((or-part_397)" "(if(syntax?$1" -" s_449)" +" s_450)" "(symbol?" "(syntax-e$1" -" s_449))" +" s_450))" " #f)))" -"(if or-part_391" -" or-part_391" +"(if or-part_397" +" or-part_397" "(symbol?" -" s_449)))" -" s_449" +" s_450)))" +" s_450" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_70" -" s_449))))" +" s_450))))" "((id83_0)" -"(let-values(((s_450)" +"(let-values(((s_451)" "(cdr" -" s_345)))" +" s_346)))" "(let-values(((s_516)" "(if(syntax?$1" -" s_450)" +" s_451)" "(syntax-e$1" -" s_450)" -" s_450)))" +" s_451)" +" s_451)))" "(let-values(((flat-s_49)" "(to-syntax-list.1" " s_516)))" @@ -67940,19 +68379,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_4)))" -"((letrec-values(((for-loop_302)" +"((letrec-values(((for-loop_303)" "(lambda(id_136" -" lst_402)" +" lst_401)" "(begin" " 'for-loop" "(if(pair?" -" lst_402)" +" lst_401)" "(let-values(((s_749)" "(unsafe-car" -" lst_402))" +" lst_401))" "((rest_237)" "(unsafe-cdr" -" lst_402)))" +" lst_401)))" "(let-values(((id_82)" "(let-values(((id_137)" " id_136))" @@ -67960,15 +68399,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id84_2)" "(let-values()" -"(if(let-values(((or-part_392)" +"(if(let-values(((or-part_398)" "(if(syntax?$1" " s_749)" "(symbol?" "(syntax-e$1" " s_749))" " #f)))" -"(if or-part_392" -" or-part_392" +"(if or-part_398" +" or-part_398" "(symbol?" " s_749)))" " s_749" @@ -67984,12 +68423,12 @@ static const char *startup_source = " id_138)))))" "(if(not" " #f)" -"(for-loop_302" +"(for-loop_303" " id_82" " rest_237)" " id_82)))" " id_136)))))" -" for-loop_302)" +" for-loop_303)" " null" " lst_4)))))" "(reverse$1" @@ -68016,14 +68455,14 @@ static const char *startup_source = " id78_1))))))" "(begin" "(parse-all-from-module" -" self_28" +" self_31" " spec_0" " orig-s_60" " id78_0" "(syntax-e$1" " id:prefix77_0)" " at-phase_13" -" ns_121" +" ns_120" " rp_1" " protected?_4)" "(values" @@ -68057,15 +68496,15 @@ static const char *startup_source = " s_249))" "((id89_1" " datum90_0)" -"(let-values(((s_471)" +"(let-values(((s_472)" "(cdr" " s_248)))" "(let-values(((s_250)" "(if(syntax?$1" -" s_471)" +" s_472)" "(syntax-e$1" -" s_471)" -" s_471)))" +" s_472)" +" s_472)))" "(if(pair?" " s_250)" "(let-values(((id91_1" @@ -68085,15 +68524,15 @@ static const char *startup_source = "(let-values(((s_752)" "(car" " s_252)))" -"(if(let-values(((or-part_393)" +"(if(let-values(((or-part_399)" "(if(syntax?$1" " s_752)" "(symbol?" "(syntax-e$1" " s_752))" " #f)))" -"(if or-part_393" -" or-part_393" +"(if or-part_399" +" or-part_399" "(symbol?" " s_752)))" " s_752" @@ -68103,10 +68542,10 @@ static const char *startup_source = " orig-s_71" " s_752))))" "((datum94_0)" -"(let-values(((s_364)" +"(let-values(((s_365)" "(cdr" " s_252)))" -" s_364)))" +" s_365)))" "(values" " id93_0" " datum94_0))" @@ -68115,17 +68554,17 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_71)))))" "(()" -"(let-values(((s_365)" +"(let-values(((s_366)" "(cdr" " s_250)))" -"(let-values(((s_366)" +"(let-values(((s_367)" "(if(syntax?$1" -" s_365)" -"(syntax-e$1" -" s_365)" -" s_365)))" -"(if(null?" " s_366)" +"(syntax-e$1" +" s_366)" +" s_366)))" +"(if(null?" +" s_367)" "(values)" "(raise-syntax-error$1" " #f" @@ -68154,46 +68593,46 @@ static const char *startup_source = "(let-values(((ok?_71" " expand95_0" " form96_0)" -"(let-values(((s_367)" +"(let-values(((s_368)" " disarmed-spec_0))" "(let-values(((orig-s_72)" -" s_367))" +" s_368))" "(let-values(((expand95_1" " form96_1)" -"(let-values(((s_370)" +"(let-values(((s_371)" "(if(syntax?$1" -" s_367)" +" s_368)" "(syntax-e$1" -" s_367)" -" s_367)))" +" s_368)" +" s_368)))" "(if(pair?" -" s_370)" +" s_371)" "(let-values(((expand97_0)" -"(let-values(((s_373)" -"(car" -" s_370)))" -" s_373))" -"((form98_0)" "(let-values(((s_374)" -"(cdr" -" s_370)))" +"(car" +" s_371)))" +" s_374))" +"((form98_0)" "(let-values(((s_375)" +"(cdr" +" s_371)))" +"(let-values(((s_376)" "(if(syntax?$1" -" s_374)" -"(syntax-e$1" -" s_374)" -" s_374)))" -"(if(pair?" " s_375)" +"(syntax-e$1" +" s_375)" +" s_375)))" +"(if(pair?" +" s_376)" "(let-values(((form99_0)" "(let-values(((s_753)" "(car" -" s_375)))" +" s_376)))" " s_753))" "(()" "(let-values(((s_754)" "(cdr" -" s_375)))" +" s_376)))" "(let-values(((s_755)" "(if(syntax?$1" " s_754)" @@ -68228,21 +68667,21 @@ static const char *startup_source = "(let-values(((temp104_4)" " form96_0)" "((temp105_4)" -"(let-values(((v_252)" +"(let-values(((v_254)" " ctx_104))" -"(let-values(((the-struct_97)" -" v_252))" +"(let-values(((the-struct_99)" +" v_254))" "(if(expand-context/outer?" -" the-struct_97)" +" the-struct_99)" "(let-values(((def-ctx-scopes106_0)" "(box" " null))" "((inner107_0)" -"(let-values(((the-struct_98)" +"(let-values(((the-struct_100)" "(root-expand-context/outer-inner" -" v_252)))" +" v_254)))" "(if(expand-context/inner?" -" the-struct_98)" +" the-struct_100)" "(let-values(((stops108_0)" "(free-id-set" " at-phase_13" @@ -68251,90 +68690,92 @@ static const char *startup_source = " 'begin" " at-phase_13)))))" "(expand-context/inner2.1" +"(root-expand-context/inner-self-mpi" +" the-struct_100)" "(root-expand-context/inner-module-scopes" -" the-struct_98)" +" the-struct_100)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_98)" +" the-struct_100)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_98)" +" the-struct_100)" "(root-expand-context/inner-defined-syms" -" the-struct_98)" +" the-struct_100)" "(root-expand-context/inner-counter" -" the-struct_98)" +" the-struct_100)" "(root-expand-context/inner-lift-key" -" the-struct_98)" +" the-struct_100)" "(expand-context/inner-to-parsed?" -" the-struct_98)" +" the-struct_100)" "(expand-context/inner-phase" -" the-struct_98)" +" the-struct_100)" "(expand-context/inner-namespace" -" the-struct_98)" +" the-struct_100)" "(expand-context/inner-just-once?" -" the-struct_98)" +" the-struct_100)" "(expand-context/inner-module-begin-k" -" the-struct_98)" +" the-struct_100)" "(expand-context/inner-allow-unbound?" -" the-struct_98)" +" the-struct_100)" "(expand-context/inner-in-local-expand?" -" the-struct_98)" +" the-struct_100)" " stops108_0" "(expand-context/inner-declared-submodule-names" -" the-struct_98)" +" the-struct_100)" "(expand-context/inner-lifts" -" the-struct_98)" +" the-struct_100)" "(expand-context/inner-lift-envs" -" the-struct_98)" +" the-struct_100)" "(expand-context/inner-module-lifts" -" the-struct_98)" +" the-struct_100)" "(expand-context/inner-require-lifts" -" the-struct_98)" +" the-struct_100)" "(expand-context/inner-to-module-lifts" -" the-struct_98)" +" the-struct_100)" "(expand-context/inner-requires+provides" -" the-struct_98)" +" the-struct_100)" "(expand-context/inner-observer" -" the-struct_98)" +" the-struct_100)" "(expand-context/inner-for-serializable?" -" the-struct_98)" +" the-struct_100)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_98)))" +" the-struct_100)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_98)))))" +" the-struct_100)))))" "(expand-context/outer1.1" " inner107_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_97)" +" the-struct_99)" "(root-expand-context/outer-use-site-scopes" -" the-struct_97)" +" the-struct_99)" "(root-expand-context/outer-frame-id" -" the-struct_97)" +" the-struct_99)" "(expand-context/outer-context" -" the-struct_97)" +" the-struct_99)" "(expand-context/outer-env" -" the-struct_97)" +" the-struct_99)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_97)" +" the-struct_99)" "(expand-context/outer-scopes" -" the-struct_97)" +" the-struct_99)" " def-ctx-scopes106_0" "(expand-context/outer-binding-layer" -" the-struct_97)" +" the-struct_99)" "(expand-context/outer-reference-records" -" the-struct_97)" +" the-struct_99)" "(expand-context/outer-only-immediate?" -" the-struct_97)" +" the-struct_99)" "(expand-context/outer-need-eventually-defined" -" the-struct_97)" +" the-struct_99)" "(expand-context/outer-current-introduction-scopes" -" the-struct_97)" +" the-struct_99)" "(expand-context/outer-name" -" the-struct_97)))" +" the-struct_99)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_97))))))" +" the-struct_99))))))" "(expand7.1" " #f" " #f" @@ -68369,38 +68810,38 @@ static const char *startup_source = "(let-values(((ok?_72" " begin100_0" " spec101_0)" -"(let-values(((s_379)" +"(let-values(((s_380)" " exp-spec_0))" "(let-values(((orig-s_73)" -" s_379))" +" s_380))" "(let-values(((begin100_1" " spec101_1)" -"(let-values(((s_380)" +"(let-values(((s_381)" "(if(syntax?$1" -" s_379)" -"(syntax-e$1" -" s_379)" -" s_379)))" -"(if(pair?" " s_380)" +"(syntax-e$1" +" s_380)" +" s_380)))" +"(if(pair?" +" s_381)" "(let-values(((begin102_0)" "(let-values(((s_756)" "(car" -" s_380)))" +" s_381)))" " s_756))" "((spec103_0)" -"(let-values(((s_472)" +"(let-values(((s_473)" "(cdr" -" s_380)))" -"(let-values(((s_382)" +" s_381)))" +"(let-values(((s_383)" "(if(syntax?$1" -" s_472)" +" s_473)" "(syntax-e$1" -" s_472)" -" s_472)))" +" s_473)" +" s_473)))" "(let-values(((flat-s_50)" "(to-syntax-list.1" -" s_382)))" +" s_383)))" "(if(not" " flat-s_50)" "(let-values()" @@ -68423,7 +68864,7 @@ static const char *startup_source = " spec101_1))))))" "(let-values(((track-stxes_9" " exp-specs_9)" -"(loop_115" +"(loop_118" " spec101_0" " at-phase_13" " protected?_4" @@ -68445,7 +68886,7 @@ static const char *startup_source = " track-stxes_4" " exp-specs_4)))))" "(if(not #f)" -"(for-loop_91" +"(for-loop_92" " track-stxes_2" " exp-specs_2" " rest_233)" @@ -68455,22 +68896,22 @@ static const char *startup_source = "(values" " track-stxes_1" " exp-specs_1))))))" -" for-loop_91)" +" for-loop_92)" " null" " null" " lst_73)))))" "(values(reverse$1 track-stxes_0)(reverse$1 exp-specs_0)))))" "(values(apply append track-stxess_0)(apply append exp-specss_0)))))))" -" loop_115)" +" loop_118)" " specs_0" " phase_41" " #f" " 'raw)))))" "(define-values" "(parse-identifier!)" -"(lambda(spec_1 orig-s_74 sym_101 at-phase_14 ns_122 rp_2 protected?_5)" +"(lambda(spec_1 orig-s_74 sym_102 at-phase_14 ns_121 rp_2 protected?_5)" "(begin" -"(let-values(((b_91)(resolve+shift/extra-inspector spec_1 at-phase_14 ns_122)))" +"(let-values(((b_91)(resolve+shift/extra-inspector spec_1 at-phase_14 ns_121)))" "(let-values((()" "(begin" "(if b_91" @@ -68482,7 +68923,7 @@ static const char *startup_source = " orig-s_74" " spec_1)))" "(values))))" -"(let-values(((as-transformer?_6)(binding-for-transformer? b_91 spec_1 at-phase_14 ns_122)))" +"(let-values(((as-transformer?_6)(binding-for-transformer? b_91 spec_1 at-phase_14 ns_121)))" "(let-values(((immed-b_0)" "(let-values(((temp120_4) #t))" "(resolve+shift30.1 #f #f #f #f #f #f temp120_4 #t #f #f spec_1 at-phase_14))))" @@ -68491,7 +68932,7 @@ static const char *startup_source = " protected?116_0" " as-transformer?117_0" " rp_2" -" sym_101" +" sym_102" " at-phase_14" " b_91" " immed-b_0" @@ -68499,34 +68940,34 @@ static const char *startup_source = " orig-s_74)))))))))" "(define-values" "(parse-struct!)" -"(lambda(id:struct_0 orig-s_75 fields_0 at-phase_15 ns_123 rp_3 protected?_6)" +"(lambda(id:struct_0 orig-s_75 fields_0 at-phase_15 ns_122 rp_3 protected?_6)" "(begin" "(let-values(((mk_0)" "(lambda(fmt_1)" "(begin" " 'mk" -"(let-values(((sym_102)(string->symbol(format fmt_1(syntax-e$1 id:struct_0)))))" -"(datum->syntax$1 id:struct_0 sym_102 id:struct_0))))))" +"(let-values(((sym_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(((mk2_0)" "(lambda(fmt_2 field-id_0)" "(begin" " 'mk2" -"(let-values(((sym_103)" +"(let-values(((sym_104)" "(string->symbol" "(format fmt_2(syntax-e$1 id:struct_0)(syntax-e$1 field-id_0)))))" -"(datum->syntax$1 id:struct_0 sym_103 id:struct_0))))))" +"(datum->syntax$1 id:struct_0 sym_104 id:struct_0))))))" "(begin" -" (let-values (((lst_403) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" +" (let-values (((lst_402) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_403)))" -"((letrec-values(((for-loop_303)" -"(lambda(lst_404)" +"(let-values()(check-list lst_402)))" +"((letrec-values(((for-loop_304)" +"(lambda(lst_403)" "(begin" " 'for-loop" -"(if(pair? lst_404)" -"(let-values(((fmt_3)(unsafe-car lst_404))((rest_238)(unsafe-cdr lst_404)))" +"(if(pair? lst_403)" +"(let-values(((fmt_3)(unsafe-car lst_403))((rest_238)(unsafe-cdr lst_403)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -68539,27 +68980,27 @@ static const char *startup_source = " orig-s_75" "(syntax-e$1 id_139)" " at-phase_15" -" ns_123" +" ns_122" " rp_3" " protected?_6)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_303 rest_238)(values))))" +"(if(not #f)(for-loop_304 rest_238)(values))))" "(values))))))" -" for-loop_303)" -" lst_403)))" +" for-loop_304)" +" lst_402)))" "(void)" -"(let-values(((lst_405) fields_0))" +"(let-values(((lst_404) fields_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_405)))" -"((letrec-values(((for-loop_304)" -"(lambda(lst_406)" +"(let-values()(check-list lst_404)))" +"((letrec-values(((for-loop_305)" +"(lambda(lst_405)" "(begin" " 'for-loop" -"(if(pair? lst_406)" -"(let-values(((field_0)(unsafe-car lst_406))((rest_239)(unsafe-cdr lst_406)))" +"(if(pair? lst_405)" +"(let-values(((field_0)(unsafe-car lst_405))((rest_239)(unsafe-cdr lst_405)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -68578,7 +69019,7 @@ static const char *startup_source = " orig-s_75" "(syntax-e$1 get-id_0)" " at-phase_15" -" ns_123" +" ns_122" " rp_3" " protected?_6)" "(parse-identifier!" @@ -68586,19 +69027,19 @@ static const char *startup_source = " orig-s_75" "(syntax-e$1 set-id_0)" " at-phase_15" -" ns_123" +" ns_122" " rp_3" " protected?_6)))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_304 rest_239)(values))))" +"(if(not #f)(for-loop_305 rest_239)(values))))" "(values))))))" -" for-loop_304)" -" lst_405)))" +" for-loop_305)" +" lst_404)))" "(void)))))))" "(define-values" "(parse-all-from)" -"(lambda(mod-path-stx_0 orig-s_76 self_29 except-ids_0 at-phase_16 ns_124 rp_4 protected?_7 ctx_105)" +"(lambda(mod-path-stx_0 orig-s_76 self_32 except-ids_0 at-phase_16 ns_123 rp_4 protected?_7 ctx_105)" "(begin" "(let-values(((mod-path_33)(syntax->datum$1 mod-path-stx_0)))" "(let-values((()" @@ -68609,7 +69050,7 @@ static const char *startup_source = " (raise-syntax-error$1 provide-form-name \"not a module path\" orig-s_76 mod-path-stx_0)))" "(values))))" "(let-values(((mpi_52)(module-path->mpi/context mod-path_33 ctx_105)))" -"(parse-all-from-module mpi_52 #f orig-s_76 except-ids_0 #f at-phase_16 ns_124 rp_4 protected?_7)))))))" +"(parse-all-from-module mpi_52 #f orig-s_76 except-ids_0 #f at-phase_16 ns_123 rp_4 protected?_7)))))))" "(define-values" "(parse-all-from-module)" "(lambda(mpi_53 matching-stx_0 orig-s_77 except-ids_1 prefix-sym_0 at-phase_17 ns_26 rp_5 protected?_8)" @@ -68636,24 +69077,24 @@ static const char *startup_source = " matching-stx_0)))" "(values))))" "(let-values(((add-prefix_1)" -"(lambda(sym_104)" +"(lambda(sym_105)" "(begin" " 'add-prefix" -" (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_104)) sym_104)))))" +" (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_105)) sym_105)))))" "(let-values(((found_0)(make-hasheq)))" "(begin" -"(let-values(((lst_407) requireds_2))" +"(let-values(((lst_406) requireds_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_407)))" -"((letrec-values(((for-loop_305)" -"(lambda(lst_283)" +"(let-values()(check-list lst_406)))" +"((letrec-values(((for-loop_306)" +"(lambda(lst_280)" "(begin" " 'for-loop" -"(if(pair? lst_283)" -"(let-values(((i_193)(unsafe-car lst_283))" -"((rest_240)(unsafe-cdr lst_283)))" +"(if(pair? lst_280)" +"(let-values(((i_194)(unsafe-car lst_280))" +"((rest_240)(unsafe-cdr lst_280)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -68661,15 +69102,15 @@ static const char *startup_source = "(begin" "(let-values()" "(let-values(((id_140)" -"(required-id i_193)))" -"(let-values(((phase_148)" +"(required-id i_194)))" +"(let-values(((phase_150)" "(required-phase" -" i_193)))" -"(if(let-values(((or-part_394)" +" i_194)))" +"(if(let-values(((or-part_400)" "(if matching-stx_0" "(not" "(if(eqv?" -" phase_148" +" phase_150" " at-phase_17)" "(free-identifier=?$1" " id_140" @@ -68677,12 +69118,12 @@ static const char *startup_source = " matching-stx_0" "(syntax-e$1" " id_140))" -" phase_148" -" phase_148)" +" phase_150" +" phase_150)" " #f))" " #f)))" -"(if or-part_394" -" or-part_394" +"(if or-part_400" +" or-part_400" "(let-values(((lst_234)" " except-ids_1))" "(begin" @@ -68692,49 +69133,49 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_234)))" -"((letrec-values(((for-loop_306)" -"(lambda(result_119" -" lst_408)" +"((letrec-values(((for-loop_307)" +"(lambda(result_121" +" lst_407)" "(begin" " 'for-loop" "(if(pair?" -" lst_408)" +" lst_407)" "(let-values(((except-id_0)" "(unsafe-car" -" lst_408))" +" lst_407))" "((rest_214)" "(unsafe-cdr" -" lst_408)))" -"(let-values(((result_120)" +" lst_407)))" +"(let-values(((result_122)" "(let-values()" -"(let-values(((result_121)" +"(let-values(((result_123)" "(let-values()" "(let-values()" "(if(free-identifier=?$1" " id_140" " except-id_0" -" phase_148" -" phase_148)" +" phase_150" +" phase_150)" "(hash-set!" " found_0" " except-id_0" " #t)" " #f)))))" "(values" -" result_121)))))" +" result_123)))))" "(if(if(not" -"((lambda x_91" -" result_120)" +"((lambda x_92" +" result_122)" " except-id_0))" "(not" " #f)" " #f)" -"(for-loop_306" -" result_120" +"(for-loop_307" +" result_122" " rest_214)" -" result_120)))" -" result_119)))))" -" for-loop_306)" +" result_122)))" +" result_121)))))" +" for-loop_307)" " #f" " lst_234)))))" "(void)" @@ -68742,7 +69183,7 @@ static const char *startup_source = "(let-values(((b_92)" "(resolve+shift/extra-inspector" " id_140" -" phase_148" +" phase_150" " ns_26)))" "(let-values(((immed-b_1)" "(let-values(((temp132_2)" @@ -68759,13 +69200,13 @@ static const char *startup_source = " #f" " #f" " id_140" -" phase_148))))" +" phase_150))))" "(let-values(((temp122_4)" "(add-prefix_1" "(syntax-e$1" " id_140)))" "((phase123_0)" -" phase_148)" +" phase_150)" "((b124_0)" " b_92)" "((immed-b125_0)" @@ -68778,7 +69219,7 @@ static const char *startup_source = " protected?_8)" "((temp129_3)" "(required-as-transformer?" -" i_193)))" +" i_194)))" "(add-provide!107.1" " protected?128_0" " temp129_3" @@ -68791,41 +69232,41 @@ static const char *startup_source = " orig-s127_0)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_305 rest_240)(values))))" +"(if(not #f)(for-loop_306 rest_240)(values))))" "(values))))))" -" for-loop_305)" -" lst_407)))" +" for-loop_306)" +" lst_406)))" "(void)" "(if(=(hash-count found_0)(length except-ids_1))" "(void)" "(let-values()" "(begin" -"(let-values(((lst_366) except-ids_1))" +"(let-values(((lst_365) except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_366)))" -"((letrec-values(((for-loop_307)" -"(lambda(lst_368)" +"(let-values()(check-list lst_365)))" +"((letrec-values(((for-loop_308)" +"(lambda(lst_367)" "(begin" " 'for-loop" -"(if(pair? lst_368)" -"(let-values(((except-id_1)(unsafe-car lst_368))" -"((rest_241)(unsafe-cdr lst_368)))" +"(if(pair? lst_367)" +"(let-values(((except-id_1)(unsafe-car lst_367))" +"((rest_241)(unsafe-cdr lst_367)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(if(let-values(((or-part_156)" +"(if(let-values(((or-part_162)" "(hash-ref" " found_0" " except-id_1" " #f)))" -"(if or-part_156" -" or-part_156" -"(let-values(((lst_369)" +"(if or-part_162" +" or-part_162" +"(let-values(((lst_368)" " requireds_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -68833,53 +69274,53 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_369)))" -"((letrec-values(((for-loop_308)" -"(lambda(result_122" +" lst_368)))" +"((letrec-values(((for-loop_309)" +"(lambda(result_124" " lst_141)" "(begin" " 'for-loop" "(if(pair?" " lst_141)" -"(let-values(((i_194)" +"(let-values(((i_195)" "(unsafe-car" " lst_141))" "((rest_217)" "(unsafe-cdr" " lst_141)))" -"(let-values(((result_123)" +"(let-values(((result_125)" "(let-values()" -"(let-values(((result_124)" +"(let-values(((result_126)" "(let-values()" "(let-values()" "(let-values(((id_141)" "(required-id" -" i_194)))" -"(let-values(((phase_149)" +" i_195)))" +"(let-values(((phase_151)" "(required-phase" -" i_194)))" +" i_195)))" "(free-identifier=?$1" " id_141" " except-id_1" -" phase_149" -" phase_149)))))))" +" phase_151" +" phase_151)))))))" "(values" -" result_124)))))" +" result_126)))))" "(if(if(not" -"((lambda x_92" -" result_123)" -" i_194))" +"((lambda x_93" +" result_125)" +" i_195))" "(not" " #f)" " #f)" -"(for-loop_308" -" result_123" +"(for-loop_309" +" result_125" " rest_217)" -" result_123)))" -" result_122)))))" -" for-loop_308)" +" result_125)))" +" result_124)))))" +" for-loop_309)" " #f" -" lst_369)))))" +" lst_368)))))" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -68893,26 +69334,26 @@ static const char *startup_source = " except-id_1))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_307 rest_241)(values))))" +"(if(not #f)(for-loop_308 rest_241)(values))))" "(values))))))" -" for-loop_307)" -" lst_366)))" +" for-loop_308)" +" lst_365)))" "(void)))))))))))))" "(define-values" "(check-cross-phase-persistent-form)" -"(lambda(bodys_13 self-mpi_0)" +"(lambda(bodys_13 self-mpi_6)" "(begin" "(letrec-values(((check-body_0)" "(lambda(bodys_14)" "(begin" " 'check-body" "(begin" -"(let-values(((lst_409) bodys_14))" +"(let-values(((lst_408) bodys_14))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_409)))" -"((letrec-values(((for-loop_309)" +"(let-values()(check-list lst_408)))" +"((letrec-values(((for-loop_310)" "(lambda(lst_80)" "(begin" " 'for-loop" @@ -68925,45 +69366,45 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((p_34)" +"(let-values(((p_38)" "(if(expanded+parsed?" " body_21)" "(expanded+parsed-parsed" " body_21)" " body_21)))" "(if(parsed-define-values?" -" p_34)" +" p_38)" "(let-values()" "(check-expr_0" "(parsed-define-values-rhs" -" p_34)" +" p_38)" "(length" "(parsed-define-values-syms" -" p_34))" -" p_34))" -"(if(let-values(((or-part_215)" +" p_38))" +" p_38))" +"(if(let-values(((or-part_222)" "(parsed-#%declare?" -" p_34)))" -"(if or-part_215" -" or-part_215" +" p_38)))" +"(if or-part_222" +" or-part_222" "(let-values(((or-part_3)" "(parsed-module?" -" p_34)))" +" p_38)))" "(if or-part_3" " or-part_3" "(syntax?$1" -" p_34)))))" +" p_38)))))" "(let-values()" "(void))" "(let-values()" "(disallow" -" p_34))))))" +" p_38))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_309 rest_38)(values))))" +"(if(not #f)(for-loop_310 rest_38)(values))))" "(values))))))" -" for-loop_309)" -" lst_409)))" +" for-loop_310)" +" lst_408)))" "(void)))))" "((check-expr_0)" "(lambda(e_86 num-results_0 enclosing_15)" @@ -69013,24 +69454,24 @@ static const char *startup_source = " for-loop_70)" " lst_74)))" "(void)" -"(let-values(((tmp_63)(cross-phase-primitive-name(parsed-app-rator e_86))))" -"(if(if(equal? tmp_63 'cons) #t(equal? tmp_63 'list))" +"(let-values(((tmp_64)(cross-phase-primitive-name(parsed-app-rator e_86))))" +"(if(if(equal? tmp_64 'cons) #t(equal? tmp_64 'list))" "(let-values()(check-count 1 num-results_0 enclosing_15))" -"(if(equal? tmp_63 'make-struct-type)" +"(if(equal? tmp_64 'make-struct-type)" "(let-values()(check-count 5 num-results_0 enclosing_15))" -"(if(equal? tmp_63 'make-struct-type-property)" +"(if(equal? tmp_64 'make-struct-type-property)" "(let-values()(check-count 3 num-results_0 enclosing_15))" -"(if(equal? tmp_63 'gensym)" +"(if(equal? tmp_64 'gensym)" "(let-values()" -"(if(let-values(((or-part_395)(= 0(length rands_1))))" -"(if or-part_395" -" or-part_395" +"(if(let-values(((or-part_401)(= 0(length rands_1))))" +"(if or-part_401" +" or-part_401" "(if(= 1(length rands_1))" "(quoted-string?(car rands_1))" " #f)))" "(void)" "(let-values()(disallow e_86))))" -"(if(equal? tmp_63 'string->uninterned-symbol)" +"(if(equal? tmp_64 'string->uninterned-symbol)" "(let-values()" "(if(if(= 1(length rands_1))(quoted-string?(car rands_1)) #f)" "(void)" @@ -69046,18 +69487,18 @@ static const char *startup_source = "(if(parsed-case-lambda? e_73)" "(let-values()" "(begin" -"(let-values(((lst_269)(parsed-case-lambda-clauses e_73)))" +"(let-values(((lst_266)(parsed-case-lambda-clauses e_73)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_269)))" -"((letrec-values(((for-loop_270)" -"(lambda(lst_262)" +"(let-values()(check-list lst_266)))" +"((letrec-values(((for-loop_271)" +"(lambda(lst_409)" "(begin" " 'for-loop" -"(if(pair? lst_262)" -"(let-values(((clause_4)(unsafe-car lst_262))" -"((rest_243)(unsafe-cdr lst_262)))" +"(if(pair? lst_409)" +"(let-values(((clause_4)(unsafe-car lst_409))" +"((rest_243)(unsafe-cdr lst_409)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -69068,10 +69509,10 @@ static const char *startup_source = "(cadr clause_4)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_270 rest_243)(values))))" +"(if(not #f)(for-loop_271 rest_243)(values))))" "(values))))))" -" for-loop_270)" -" lst_269)))" +" for-loop_271)" +" lst_266)))" "(void)))" "(if(parsed-app? e_73)" "(let-values()" @@ -69082,13 +69523,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_217)))" -"((letrec-values(((for-loop_100)" -"(lambda(lst_263)" +"((letrec-values(((for-loop_101)" +"(lambda(lst_260)" "(begin" " 'for-loop" -"(if(pair? lst_263)" -"(let-values(((e_87)(unsafe-car lst_263))" -"((rest_244)(unsafe-cdr lst_263)))" +"(if(pair? lst_260)" +"(let-values(((e_87)(unsafe-car lst_260))" +"((rest_244)(unsafe-cdr lst_260)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -69099,9 +69540,9 @@ static const char *startup_source = " e_87))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_100 rest_244)(values))))" +"(if(not #f)(for-loop_101 rest_244)(values))))" "(values))))))" -" for-loop_100)" +" for-loop_101)" " lst_217)))" "(void)))" "(if(parsed-if? e_73)" @@ -69115,13 +69556,15 @@ static const char *startup_source = "(let-values(((id_142)(parsed-set!-id e_73)))" "(let-values(((normal-b_1)(parsed-id-binding id_142)))" "(begin" -"(if(let-values(((or-part_83)(not normal-b_1)))" -"(if or-part_83" -" or-part_83" -"(let-values(((or-part_84)(parsed-top-id? id_142)))" -"(if or-part_84" -" or-part_84" -"(eq?(module-binding-module normal-b_1) self-mpi_0)))))" +"(if(let-values(((or-part_89)(not normal-b_1)))" +"(if or-part_89" +" or-part_89" +"(let-values(((or-part_90)(parsed-top-id? id_142)))" +"(if or-part_90" +" or-part_90" +"(if(not(symbol? normal-b_1))" +"(eq?(module-binding-module normal-b_1) self-mpi_6)" +" #f)))))" "(let-values()(disallow e_73))" "(void))" "(check-no-disallowed-expr_0(parsed-set!-rhs e_73))))))" @@ -69171,8 +69614,8 @@ static const char *startup_source = " lst_24)))" "(void)" "(check-body-no-disallowed-expr_0(parsed-let_-values-body e_73))))" -"(if(let-values(((or-part_97)(parsed-quote-syntax? e_73)))" -"(if or-part_97 or-part_97(parsed-#%variable-reference? e_73)))" +"(if(let-values(((or-part_103)(parsed-quote-syntax? e_73)))" +"(if or-part_103 or-part_103(parsed-#%variable-reference? e_73)))" "(let-values()(disallow e_73))" "(let-values()(void)))))))))))))))" "((check-body-no-disallowed-expr_0)" @@ -69185,7 +69628,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_78)))" -"((letrec-values(((for-loop_260)" +"((letrec-values(((for-loop_261)" "(lambda(lst_17)" "(begin" " 'for-loop" @@ -69202,9 +69645,9 @@ static const char *startup_source = " e_88))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_260 rest_36)(values))))" +"(if(not #f)(for-loop_261 rest_36)(values))))" "(values))))))" -" for-loop_260)" +" for-loop_261)" " lst_78)))" "(void))))))" "(check-body_0 bodys_13)))))" @@ -69216,19 +69659,19 @@ static const char *startup_source = "(check-datum)" "(lambda(d_38 e_89)" "(begin" -"(if(let-values(((or-part_161)(number? d_38)))" -"(if or-part_161" -" or-part_161" -"(let-values(((or-part_166)(boolean? d_38)))" -"(if or-part_166" -" or-part_166" -"(let-values(((or-part_167)(symbol? d_38)))" +"(if(let-values(((or-part_167)(number? d_38)))" "(if or-part_167" " or-part_167" -"(let-values(((or-part_168)(string? d_38)))" -"(if or-part_168" -" or-part_168" -"(let-values(((or-part_169)(bytes? d_38)))(if or-part_169 or-part_169(null? d_38)))))))))))" +"(let-values(((or-part_173)(boolean? d_38)))" +"(if or-part_173" +" or-part_173" +"(let-values(((or-part_174)(symbol? d_38)))" +"(if or-part_174" +" or-part_174" +"(let-values(((or-part_175)(string? d_38)))" +"(if or-part_175" +" or-part_175" +"(let-values(((or-part_176)(bytes? d_38)))(if or-part_176 or-part_176(null? d_38)))))))))))" "(let-values()(void))" "(let-values()(disallow e_89))))))" "(define-values" @@ -69293,64 +69736,65 @@ static const char *startup_source = " (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_83)))" "((expand-context-module-begin-k ctx_108)" " s_83" -"(let-values(((v_35) ctx_108))" -"(let-values(((the-struct_99) v_35))" -"(if(expand-context/outer? the-struct_99)" +"(let-values(((v_38) ctx_108))" +"(let-values(((the-struct_101) v_38))" +"(if(expand-context/outer? the-struct_101)" "(let-values(((inner226_0)" -"(let-values(((the-struct_100)(root-expand-context/outer-inner v_35)))" -"(if(expand-context/inner? the-struct_100)" +"(let-values(((the-struct_102)(root-expand-context/outer-inner v_38)))" +"(if(expand-context/inner? the-struct_102)" "(let-values(((module-begin-k227_0) #f))" "(expand-context/inner2.1" -"(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)" +"(root-expand-context/inner-self-mpi the-struct_102)" +"(root-expand-context/inner-module-scopes the-struct_102)" +"(root-expand-context/inner-top-level-bind-scope the-struct_102)" +"(root-expand-context/inner-all-scopes-stx the-struct_102)" +"(root-expand-context/inner-defined-syms the-struct_102)" +"(root-expand-context/inner-counter the-struct_102)" +"(root-expand-context/inner-lift-key the-struct_102)" +"(expand-context/inner-to-parsed? the-struct_102)" +"(expand-context/inner-phase the-struct_102)" +"(expand-context/inner-namespace the-struct_102)" +"(expand-context/inner-just-once? the-struct_102)" " module-begin-k227_0" -"(expand-context/inner-allow-unbound? the-struct_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/inner-allow-unbound? the-struct_102)" +"(expand-context/inner-in-local-expand? the-struct_102)" +"(expand-context/inner-stops the-struct_102)" +"(expand-context/inner-declared-submodule-names the-struct_102)" +"(expand-context/inner-lifts the-struct_102)" +"(expand-context/inner-lift-envs the-struct_102)" +"(expand-context/inner-module-lifts the-struct_102)" +"(expand-context/inner-require-lifts the-struct_102)" +"(expand-context/inner-to-module-lifts the-struct_102)" +"(expand-context/inner-requires+provides the-struct_102)" +"(expand-context/inner-observer the-struct_102)" +"(expand-context/inner-for-serializable? the-struct_102)" +"(expand-context/inner-should-not-encounter-macros? the-struct_102)))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_102)))))" "(expand-context/outer1.1" " inner226_0" -"(root-expand-context/outer-post-expansion-scope the-struct_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)))))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_101)" +"(root-expand-context/outer-use-site-scopes the-struct_101)" +"(root-expand-context/outer-frame-id the-struct_101)" +"(expand-context/outer-context the-struct_101)" +"(expand-context/outer-env the-struct_101)" +"(expand-context/outer-post-expansion-scope-action the-struct_101)" +"(expand-context/outer-scopes the-struct_101)" +"(expand-context/outer-def-ctx-scopes the-struct_101)" +"(expand-context/outer-binding-layer the-struct_101)" +"(expand-context/outer-reference-records the-struct_101)" +"(expand-context/outer-only-immediate? the-struct_101)" +"(expand-context/outer-need-eventually-defined the-struct_101)" +"(expand-context/outer-current-introduction-scopes the-struct_101)" +"(expand-context/outer-name the-struct_101)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_101)))))))))" "(void" "(add-core-form!*" " '#%declare" -"(lambda(s_412 ctx_109)" +"(lambda(s_413 ctx_109)" "(begin" "(let-values(((obs_125)(expand-context-observer ctx_109)))" "(if obs_125(let-values()(let-values()(call-expand-observe obs_125 'prim-declare)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_412)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_413)))))" "(define-values" "(expand-module18.1)" "(lambda(always-produce-compiled?1_0" @@ -69401,42 +69845,42 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_24)(syntax-disarm$1 s_16)))" "(let-values(((ok?_73 module228_0 id:module-name229_0 initial-require230_0 body231_0)" -"(let-values(((s_500) disarmed-s_24))" -"(let-values(((orig-s_78) s_500))" +"(let-values(((s_501) disarmed-s_24))" +"(let-values(((orig-s_78) s_501))" "(let-values(((module228_1" " id:module-name229_1" " initial-require230_1" " body231_1)" "(let-values(((s_315)" -"(if(syntax?$1 s_500)" -"(syntax-e$1 s_500)" -" s_500)))" +"(if(syntax?$1 s_501)" +"(syntax-e$1 s_501)" +" s_501)))" "(if(pair? s_315)" "(let-values(((module232_0)" -"(let-values(((s_433)(car s_315)))" -" s_433))" +"(let-values(((s_434)(car s_315)))" +" s_434))" "((id:module-name233_0" " initial-require234_0" " body235_0)" -"(let-values(((s_484)(cdr s_315)))" -"(let-values(((s_485)" -"(if(syntax?$1 s_484)" -"(syntax-e$1 s_484)" -" s_484)))" -"(if(pair? s_485)" +"(let-values(((s_485)(cdr s_315)))" +"(let-values(((s_486)" +"(if(syntax?$1 s_485)" +"(syntax-e$1 s_485)" +" s_485)))" +"(if(pair? s_486)" "(let-values(((id:module-name236_0)" "(let-values(((s_316)" "(car" -" s_485)))" -"(if(let-values(((or-part_367)" +" s_486)))" +"(if(let-values(((or-part_373)" "(if(syntax?$1" " s_316)" "(symbol?" "(syntax-e$1" " s_316))" " #f)))" -"(if or-part_367" -" or-part_367" +"(if or-part_373" +" or-part_373" "(symbol?" " s_316)))" " s_316" @@ -69449,7 +69893,7 @@ static const char *startup_source = " body238_0)" "(let-values(((s_55)" "(cdr" -" s_485)))" +" s_486)))" "(let-values(((s_317)" "(if(syntax?$1" " s_55)" @@ -69459,23 +69903,23 @@ static const char *startup_source = "(if(pair?" " s_317)" "(let-values(((initial-require239_0)" -"(let-values(((s_435)" +"(let-values(((s_436)" "(car" " s_317)))" -" s_435))" +" s_436))" "((body240_0)" -"(let-values(((s_388)" +"(let-values(((s_389)" "(cdr" " s_317)))" -"(let-values(((s_436)" +"(let-values(((s_437)" "(if(syntax?$1" -" s_388)" +" s_389)" "(syntax-e$1" -" s_388)" -" s_388)))" +" s_389)" +" s_389)))" "(let-values(((flat-s_51)" "(to-syntax-list.1" -" s_436)))" +" s_437)))" "(if(not" " flat-s_51)" "(let-values()" @@ -69526,9 +69970,9 @@ static const char *startup_source = "(let-values(((initial-require_0)(syntax->datum$1 initial-require230_0)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_368) keep-enclosing-scope-at-phase_0))" -"(if or-part_368" -" or-part_368" +"(if(let-values(((or-part_374) keep-enclosing-scope-at-phase_0))" +"(if or-part_374" +" or-part_374" "(1/module-path? initial-require_0)))" "(void)" "(let-values()" @@ -69538,11 +69982,11 @@ static const char *startup_source = " s_16" " initial-require230_0)))" "(values))))" -"(let-values(((phase_150) 0))" +"(let-values(((phase_152) 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)))" -"(let-values(((self_30)" +"(let-values(((self_33)" "(make-self-module-path-index" "(if enclosing-self_1" " module-name-sym_0" @@ -69551,7 +69995,7 @@ static const char *startup_source = " enclosing-self_1)))" "(let-values(((enclosing-mod_1)" "(if enclosing-self_1" -" (1/module-path-index-join '(submod \"..\") self_30)" +" (1/module-path-index-join '(submod \"..\") self_33)" " #f)))" "(let-values((()" "(begin" @@ -69572,7 +70016,7 @@ static const char *startup_source = " inside-scope_0" " init-ctx_0" " keep-enclosing-scope-at-phase_0" -" self_30" +" self_33" " enclosing-self_1" " enclosing-mod_1)))" "(let-values(((initial-require-s_0)" @@ -69585,26 +70029,28 @@ static const char *startup_source = " keep-enclosing-scope-at-phase_0))" " initial-require-s_0)))" "(let-values(((root-ctx_6)" -"(let-values(((temp257_0)" +"(let-values(((self257_0) self_33)" +"((temp258_0)" "(if keep-enclosing-scope-at-phase_0" "(root-expand-context-module-scopes" " init-ctx_0)" " null))" -"((outside-scope258_0)" +"((outside-scope259_0)" " outside-scope_1)" -"((inside-scope259_0)" +"((inside-scope260_0)" " inside-scope_0)" -"((all-scopes-s260_0)" +"((all-scopes-s261_0)" " all-scopes-s_0))" -"(make-root-expand-context11.1" -" all-scopes-s260_0" +"(make-root-expand-context13.1" +" all-scopes-s261_0" " #t" -" temp257_0" +" temp258_0" " #t" -" outside-scope258_0" +" outside-scope259_0" " #t" -" inside-scope259_0" -" #t))))" +" inside-scope260_0" +" #t" +" self257_0))))" "(let-values(((new-module-scopes_0)" "(root-expand-context-module-scopes" " root-ctx_6)))" @@ -69617,7 +70063,7 @@ static const char *startup_source = " ns243_0)" "(begin" " 'make-m-ns244" -"(let-values(((ns_11) ns243_0))" +"(let-values(((ns_124) ns243_0))" "(let-values(((for-submodule?_1)" "(if for-submodule?242_0" " for-submodule?241_0" @@ -69625,261 +70071,263 @@ static const char *startup_source = " #t" " #f))))" "(let-values()" -"(let-values(((self262_0)" -" self_30)" -"((root-ctx263_0)" +"(let-values(((self263_0)" +" self_33)" +"((root-ctx264_0)" " root-ctx_6)" -"((for-submodule?264_0)" +"((for-submodule?265_0)" " for-submodule?_1))" "(make-module-namespace50.1" -" for-submodule?264_0" -" self262_0" -" root-ctx263_0" -" ns_11)))))))))" +" for-submodule?265_0" +" self263_0" +" root-ctx264_0" +" ns_124)))))))))" "(let-values()" "(let-values()" "(let-values(((m-ns_19)" -"(let-values(((temp265_1)" +"(let-values(((temp266_0)" "(expand-context-namespace" " init-ctx_0)))" "(make-m-ns244_0" " #f" " #f" -" temp265_1))))" +" temp266_0))))" "(let-values(((ctx_110)" -"(let-values(((v_97)" +"(let-values(((v_99)" "(copy-root-expand-context" " init-ctx_0" " root-ctx_6)))" -"(let-values(((the-struct_101)" -" v_97))" +"(let-values(((the-struct_103)" +" v_99))" "(if(expand-context/outer?" -" the-struct_101)" -"(let-values(((post-expansion-scope-action266_0)" +" the-struct_103)" +"(let-values(((post-expansion-scope-action267_0)" " add-scope)" -"((inner267_0)" -"(let-values(((the-struct_102)" +"((inner268_0)" +"(let-values(((the-struct_104)" "(root-expand-context/outer-inner" -" v_97)))" +" v_99)))" "(if(expand-context/inner?" -" the-struct_102)" -"(let-values(((allow-unbound?268_0)" +" the-struct_104)" +"(let-values(((allow-unbound?269_0)" " #f)" -"((namespace269_0)" +"((namespace270_0)" " m-ns_19)" -"((phase270_0)" -" phase_150)" -"((just-once?271_0)" +"((phase271_0)" +" phase_152)" +"((just-once?272_0)" " #f))" "(expand-context/inner2.1" +"(root-expand-context/inner-self-mpi" +" the-struct_104)" "(root-expand-context/inner-module-scopes" -" the-struct_102)" +" the-struct_104)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_102)" +" the-struct_104)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_102)" +" the-struct_104)" "(root-expand-context/inner-defined-syms" -" the-struct_102)" +" the-struct_104)" "(root-expand-context/inner-counter" -" the-struct_102)" +" the-struct_104)" "(root-expand-context/inner-lift-key" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-to-parsed?" -" the-struct_102)" -" phase270_0" -" namespace269_0" -" just-once?271_0" +" the-struct_104)" +" phase271_0" +" namespace270_0" +" just-once?272_0" "(expand-context/inner-module-begin-k" -" the-struct_102)" -" allow-unbound?268_0" +" the-struct_104)" +" allow-unbound?269_0" "(expand-context/inner-in-local-expand?" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-stops" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-declared-submodule-names" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-lifts" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-lift-envs" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-module-lifts" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-require-lifts" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-to-module-lifts" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-requires+provides" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-observer" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-for-serializable?" -" the-struct_102)" +" the-struct_104)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_102)))" +" the-struct_104)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_102)))))" +" the-struct_104)))))" "(expand-context/outer1.1" -" inner267_0" +" inner268_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_101)" +" the-struct_103)" "(root-expand-context/outer-use-site-scopes" -" the-struct_101)" +" the-struct_103)" "(root-expand-context/outer-frame-id" -" the-struct_101)" +" the-struct_103)" "(expand-context/outer-context" -" the-struct_101)" +" the-struct_103)" "(expand-context/outer-env" -" the-struct_101)" -" post-expansion-scope-action266_0" +" the-struct_103)" +" post-expansion-scope-action267_0" "(expand-context/outer-scopes" -" the-struct_101)" +" the-struct_103)" "(expand-context/outer-def-ctx-scopes" -" the-struct_101)" +" the-struct_103)" "(expand-context/outer-binding-layer" -" the-struct_101)" +" the-struct_103)" "(expand-context/outer-reference-records" -" the-struct_101)" +" the-struct_103)" "(expand-context/outer-only-immediate?" -" the-struct_101)" +" the-struct_103)" "(expand-context/outer-need-eventually-defined" -" the-struct_101)" +" the-struct_103)" "(expand-context/outer-current-introduction-scopes" -" the-struct_101)" +" the-struct_103)" "(expand-context/outer-name" -" the-struct_101)))" +" the-struct_103)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_101))))))" +" the-struct_103))))))" "(let-values(((bodys_15)" "(let-values(((scoped-s_0)" "(apply-module-scopes_0" " disarmed-s_24)))" "(let-values(((ok?_74" -" _272_0" " _273_0" " _274_0" -" body275_0)" -"(let-values(((s_406)" +" _275_0" +" body276_0)" +"(let-values(((s_417)" " scoped-s_0))" "(let-values(((orig-s_79)" -" s_406))" -"(let-values(((_272_1" -" _273_1" +" s_417))" +"(let-values(((_273_1" " _274_1" -" body275_1)" -"(let-values(((s_89)" +" _275_1" +" body276_1)" +"(let-values(((s_408)" "(if(syntax?$1" -" s_406)" +" s_417)" "(syntax-e$1" -" s_406)" -" s_406)))" +" s_417)" +" s_417)))" "(if(pair?" -" s_89)" -"(let-values(((_276_0)" -"(let-values(((s_152)" -"(car" -" s_89)))" -" s_152))" -"((_277_0" -" _278_0" -" body279_0)" +" s_408)" +"(let-values(((_277_0)" "(let-values(((s_153)" -"(cdr" -" s_89)))" +"(car" +" s_408)))" +" s_153))" +"((_278_0" +" _279_0" +" body280_0)" "(let-values(((s_90)" +"(cdr" +" s_408)))" +"(let-values(((s_410)" "(if(syntax?$1" -" s_153)" -"(syntax-e$1" -" s_153)" -" s_153)))" -"(if(pair?" " s_90)" -"(let-values(((_280_0)" -"(let-values(((s_91)" -"(car" -" s_90)))" -" s_91))" -"((_281_0" -" body282_0)" -"(let-values(((s_738)" -"(cdr" -" s_90)))" -"(let-values(((s_205)" -"(if(syntax?$1" -" s_738)" "(syntax-e$1" -" s_738)" -" s_738)))" +" s_90)" +" s_90)))" "(if(pair?" -" s_205)" -"(let-values(((_283_0)" -"(let-values(((s_206)" +" s_410)" +"(let-values(((_281_0)" +"(let-values(((s_738)" "(car" -" s_205)))" -" s_206))" -"((body284_0)" -"(let-values(((s_207)" +" s_410)))" +" s_738))" +"((_282_0" +" body283_0)" +"(let-values(((s_205)" "(cdr" -" s_205)))" -"(let-values(((s_92)" +" s_410)))" +"(let-values(((s_39)" "(if(syntax?$1" -" s_207)" +" s_205)" "(syntax-e$1" -" s_207)" -" s_207)))" -"(let-values(((flat-s_2)" -"(to-syntax-list.1" +" s_205)" +" s_205)))" +"(if(pair?" +" s_39)" +"(let-values(((_284_0)" +"(let-values(((s_207)" +"(car" +" s_39)))" +" s_207))" +"((body285_0)" +"(let-values(((s_92)" +"(cdr" +" s_39)))" +"(let-values(((s_93)" +"(if(syntax?$1" +" s_92)" +"(syntax-e$1" +" s_92)" " s_92)))" +"(let-values(((flat-s_52)" +"(to-syntax-list.1" +" s_93)))" "(if(not" -" flat-s_2)" +" flat-s_52)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_79))" "(let-values()" -" flat-s_2)))))))" +" flat-s_52)))))))" "(values" -" _283_0" -" body284_0))" +" _284_0" +" body285_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_79))))))" "(values" -" _280_0" " _281_0" -" body282_0))" +" _282_0" +" body283_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_79))))))" "(values" -" _276_0" " _277_0" " _278_0" -" body279_0))" +" _279_0" +" body280_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_79)))))" "(values" " #t" -" _272_1" " _273_1" " _274_1" -" body275_1))))))" -" body275_0))))" +" _275_1" +" body276_1))))))" +" body276_0))))" "(let-values(((requires+provides_6)" -"(let-values(((self285_0)" -" self_30))" +"(let-values(((self286_0)" +" self_33))" "(make-requires+provides8.1" " #f" " #f" -" self285_0))))" +" self286_0))))" "(let-values(((defined-syms_10)" "(root-expand-context-defined-syms" " root-ctx_6)))" @@ -69899,15 +70347,15 @@ static const char *startup_source = "(if(not" " keep-enclosing-scope-at-phase_0)" "(let-values()" -"(let-values(((bind?291_0)" +"(let-values(((bind?292_0)" " bind?_3)" -"((temp292_0)" +"((temp293_0)" " 'module))" "(perform-initial-require!42.1" -" bind?291_0" -" temp292_0" +" bind?292_0" +" temp293_0" " initial-require_0" -" self_30" +" self_33" " all-scopes-s_0" " m-ns_19" " requires+provides_6)))" @@ -69918,29 +70366,29 @@ static const char *startup_source = " enclosing-mod_1" " keep-enclosing-scope-at-phase_0" " enclosing-is-cross-phase-persistent?_0)" -"(let-values(((enclosing-r+p294_0)" +"(let-values(((enclosing-r+p295_0)" " enclosing-r+p_1)" -"((enclosing-mod295_0)" +"((enclosing-mod296_0)" " enclosing-mod_1)" -"((keep-enclosing-scope-at-phase296_0)" +"((keep-enclosing-scope-at-phase297_0)" " keep-enclosing-scope-at-phase_0))" "(add-enclosing-module-defined-and-required!67.1" -" enclosing-r+p294_0" +" enclosing-r+p295_0" " requires+provides_6" -" enclosing-mod295_0" -" keep-enclosing-scope-at-phase296_0))" -"(let-values(((m-ns297_0)" +" enclosing-mod296_0" +" keep-enclosing-scope-at-phase297_0))" +"(let-values(((m-ns298_0)" " m-ns_19)" -"((enclosing-mod298_0)" +"((enclosing-mod299_0)" " enclosing-mod_1)" -"((keep-enclosing-scope-at-phase299_0)" +"((keep-enclosing-scope-at-phase300_0)" " keep-enclosing-scope-at-phase_0))" "(namespace-module-visit!104.1" " #f" " #f" -" m-ns297_0" -" enclosing-mod298_0" -" keep-enclosing-scope-at-phase299_0)))))))))))" +" m-ns298_0" +" enclosing-mod299_0" +" keep-enclosing-scope-at-phase300_0)))))))))))" "(let-values()" "(let-values()" "(let-values((()" @@ -69977,10 +70425,10 @@ static const char *startup_source = "(begin" "(requires+provides-reset!" " requires+provides_6)" -"(let-values(((temp304_0)" +"(let-values(((temp305_0)" " #f))" "(initial-require!249_0" -" temp304_0))" +" temp305_0))" "(hash-clear!" " compiled-submodules_1)" "(set-box!" @@ -69994,164 +70442,166 @@ static const char *startup_source = " #t)" "(values))))" "(let-values(((ctx_111)" -"(let-values(((v_126)" +"(let-values(((v_211)" " mb-init-ctx_0))" -"(let-values(((the-struct_43)" -" v_126))" +"(let-values(((the-struct_80)" +" v_211))" "(if(expand-context/outer?" -" the-struct_43)" -"(let-values(((inner305_0)" -"(let-values(((the-struct_103)" +" the-struct_80)" +"(let-values(((inner306_0)" +"(let-values(((the-struct_105)" "(root-expand-context/outer-inner" -" v_126)))" +" v_211)))" "(if(expand-context/inner?" -" the-struct_103)" -"(let-values(((module-begin-k306_0)" -"(lambda(s_213" -" ctx_3)" +" the-struct_105)" +"(let-values(((module-begin-k307_0)" +"(lambda(s_214" +" ctx_112)" "(begin" -" 'module-begin-k306" +" 'module-begin-k307" "(let-values(((new-requires+provides_0)" -"(let-values(((requires+provides314_0)" +"(let-values(((requires+provides315_0)" " requires+provides_6))" "(make-requires+provides8.1" -" requires+provides314_0" +" requires+provides315_0" " #t" -" self_30))))" -"(let-values(((requires+provides307_0)" +" self_33))))" +"(let-values(((requires+provides308_0)" " requires+provides_6)" -"((compiled-submodules308_0)" +"((compiled-submodules309_0)" " compiled-submodules_1)" -"((compiled-module-box309_0)" +"((compiled-module-box310_0)" " compiled-module-box_0)" -"((requires+provides310_0)" +"((requires+provides311_0)" " new-requires+provides_0)" -"((compiled-submodules311_0)" +"((compiled-submodules312_0)" "(make-hasheq))" -"((compiled-module-box312_0)" +"((compiled-module-box313_0)" "(box" " #f)))" "(dynamic-wind" "(lambda()" "(begin" "(set! requires+provides_6" -" requires+provides310_0)" +" requires+provides311_0)" "(set! compiled-submodules_1" -" compiled-submodules311_0)" +" compiled-submodules312_0)" "(set! compiled-module-box_0" -" compiled-module-box312_0)))" +" compiled-module-box313_0)))" "(lambda()" "(module-begin-k_1" -" s_213" -" ctx_3))" +" s_214" +" ctx_112))" "(lambda()" "(begin" "(set! requires+provides_6" -" requires+provides307_0)" +" requires+provides308_0)" "(set! compiled-submodules_1" -" compiled-submodules308_0)" +" compiled-submodules309_0)" "(set! compiled-module-box_0" -" compiled-module-box309_0))))))))))" +" compiled-module-box310_0))))))))))" "(expand-context/inner2.1" +"(root-expand-context/inner-self-mpi" +" the-struct_105)" "(root-expand-context/inner-module-scopes" -" the-struct_103)" +" the-struct_105)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_103)" +" the-struct_105)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_103)" +" the-struct_105)" "(root-expand-context/inner-defined-syms" -" the-struct_103)" +" the-struct_105)" "(root-expand-context/inner-counter" -" the-struct_103)" +" the-struct_105)" "(root-expand-context/inner-lift-key" -" the-struct_103)" +" the-struct_105)" "(expand-context/inner-to-parsed?" -" the-struct_103)" +" the-struct_105)" "(expand-context/inner-phase" -" the-struct_103)" +" the-struct_105)" "(expand-context/inner-namespace" -" the-struct_103)" +" the-struct_105)" "(expand-context/inner-just-once?" -" the-struct_103)" -" module-begin-k306_0" +" the-struct_105)" +" module-begin-k307_0" "(expand-context/inner-allow-unbound?" -" the-struct_103)" +" the-struct_105)" "(expand-context/inner-in-local-expand?" -" the-struct_103)" +" the-struct_105)" "(expand-context/inner-stops" -" the-struct_103)" +" the-struct_105)" "(expand-context/inner-declared-submodule-names" -" the-struct_103)" +" the-struct_105)" "(expand-context/inner-lifts" -" the-struct_103)" +" the-struct_105)" "(expand-context/inner-lift-envs" -" the-struct_103)" +" the-struct_105)" "(expand-context/inner-module-lifts" -" the-struct_103)" +" the-struct_105)" "(expand-context/inner-require-lifts" -" the-struct_103)" +" the-struct_105)" "(expand-context/inner-to-module-lifts" -" the-struct_103)" +" the-struct_105)" "(expand-context/inner-requires+provides" -" the-struct_103)" +" the-struct_105)" "(expand-context/inner-observer" -" the-struct_103)" +" the-struct_105)" "(expand-context/inner-for-serializable?" -" the-struct_103)" +" the-struct_105)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_103)))" +" the-struct_105)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_103)))))" +" the-struct_105)))))" "(expand-context/outer1.1" -" inner305_0" +" inner306_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_43)" +" the-struct_80)" "(root-expand-context/outer-use-site-scopes" -" the-struct_43)" +" the-struct_80)" "(root-expand-context/outer-frame-id" -" the-struct_43)" +" the-struct_80)" "(expand-context/outer-context" -" the-struct_43)" +" the-struct_80)" "(expand-context/outer-env" -" the-struct_43)" +" the-struct_80)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_43)" +" the-struct_80)" "(expand-context/outer-scopes" -" the-struct_43)" +" the-struct_80)" "(expand-context/outer-def-ctx-scopes" -" the-struct_43)" +" the-struct_80)" "(expand-context/outer-binding-layer" -" the-struct_43)" +" the-struct_80)" "(expand-context/outer-reference-records" -" the-struct_43)" +" the-struct_80)" "(expand-context/outer-only-immediate?" -" the-struct_43)" +" the-struct_80)" "(expand-context/outer-need-eventually-defined" -" the-struct_43)" +" the-struct_80)" "(expand-context/outer-current-introduction-scopes" -" the-struct_43)" +" the-struct_80)" "(expand-context/outer-name" -" the-struct_43)))" +" the-struct_80)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_43))))))" +" the-struct_80))))))" "(let-values(((added-s_2)" "(add-scope" " mb-s_0" " inside-scope_0)))" "(let-values((()" "(begin" -"(let-values(((obs_128)" +"(let-values(((obs_73)" "(expand-context-observer" " ctx_111)))" -"(if obs_128" +"(if obs_73" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_128" +" obs_73" " 'rename-one" " added-s_2)))" "(void)))" @@ -70159,67 +70609,67 @@ static const char *startup_source = "(let-values(((disarmed-mb-s_0)" "(syntax-disarm$1" " added-s_2)))" -"(let-values(((ok?_6" -" #%module-begin300_0" -" body301_1)" -"(let-values(((s_112)" +"(let-values(((ok?_75" +" #%module-begin301_0" +" body302_0)" +"(let-values(((s_443)" " disarmed-mb-s_0))" "(let-values(((orig-s_80)" -" s_112))" -"(let-values(((#%module-begin300_1" -" body301_2)" -"(let-values(((s_113)" +" s_443))" +"(let-values(((#%module-begin301_1" +" body302_1)" +"(let-values(((s_114)" "(if(syntax?$1" -" s_112)" +" s_443)" "(syntax-e$1" -" s_112)" -" s_112)))" +" s_443)" +" s_443)))" "(if(pair?" -" s_113)" -"(let-values(((#%module-begin302_0)" -"(let-values(((s_116)" -"(car" -" s_113)))" -" s_116))" -"((body303_1)" +" s_114)" +"(let-values(((#%module-begin303_0)" "(let-values(((s_757)" -"(cdr" -" s_113)))" +"(car" +" s_114)))" +" s_757))" +"((body304_1)" "(let-values(((s_215)" +"(cdr" +" s_114)))" +"(let-values(((s_743)" "(if(syntax?$1" -" s_757)" +" s_215)" "(syntax-e$1" -" s_757)" -" s_757)))" -"(let-values(((flat-s_52)" -"(to-syntax-list.1" +" s_215)" " s_215)))" +"(let-values(((flat-s_53)" +"(to-syntax-list.1" +" s_743)))" "(if(not" -" flat-s_52)" +" flat-s_53)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_80))" "(let-values()" -" flat-s_52)))))))" +" flat-s_53)))))))" "(values" -" #%module-begin302_0" -" body303_1))" +" #%module-begin303_0" +" body304_1))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_80)))))" "(values" " #t" -" #%module-begin300_1" -" body301_2))))))" +" #%module-begin301_1" +" body302_1))))))" "(let-values(((bodys_16)" -" body301_1))" +" body302_0))" "(let-values(((rebuild-mb-s_0)" -"(let-values(((ctx315_0)" +"(let-values(((ctx316_0)" " ctx_111)" -"((mb-s316_0)" +"((mb-s317_0)" " mb-s_0))" "(keep-as-needed74.1" " #f" @@ -70228,8 +70678,8 @@ static const char *startup_source = " #f" " #f" " #f" -" ctx315_0" -" mb-s316_0))))" +" ctx316_0" +" mb-s317_0))))" "(let-values(((need-eventually-defined_1)" "(make-hasheqv)))" "(let-values(((module-ends_0)" @@ -70241,7 +70691,7 @@ static const char *startup_source = "(let-values(((expression-expanded-bodys_0)" "((letrec-values(((pass-1-and-2-loop_0)" "(lambda(bodys_17" -" phase_151)" +" phase_153)" "(begin" " 'pass-1-and-2-loop" "(let-values(((def-ctx-scopes_8)" @@ -70251,43 +70701,43 @@ static const char *startup_source = "(expand-context-to-parsed?" " ctx_111)))" "(let-values(((partial-body-ctx_0)" -"(let-values(((v_253)" +"(let-values(((v_255)" " ctx_111))" -"(let-values(((the-struct_104)" -" v_253))" +"(let-values(((the-struct_106)" +" v_255))" "(if(expand-context/outer?" -" the-struct_104)" -"(let-values(((context325_0)" +" the-struct_106)" +"(let-values(((context326_0)" " 'module)" -"((def-ctx-scopes326_0)" +"((def-ctx-scopes327_0)" " def-ctx-scopes_8)" -"((need-eventually-defined327_0)" +"((need-eventually-defined328_0)" " need-eventually-defined_1)" -"((inner328_0)" -"(let-values(((the-struct_48)" +"((inner329_0)" +"(let-values(((the-struct_107)" "(root-expand-context/outer-inner" -" v_253)))" +" v_255)))" "(if(expand-context/inner?" -" the-struct_48)" -"(let-values(((phase329_0)" -" phase_151)" -"((namespace330_0)" +" the-struct_107)" +"(let-values(((phase330_0)" +" phase_153)" +"((namespace331_0)" "(namespace->namespace-at-phase" " m-ns_19" -" phase_151))" -"((stops331_0)" +" phase_153))" +"((stops332_0)" "(free-id-set" -" phase_151" +" phase_153" "(module-expand-stop-ids" -" phase_151)))" -"((declared-submodule-names332_0)" +" phase_153)))" +"((declared-submodule-names333_0)" " declared-submodule-names_3)" -"((lift-key333_0)" +"((lift-key334_0)" "(generate-lift-key))" -"((lifts334_0)" -"(let-values(((temp338_1)" +"((lifts335_0)" +"(let-values(((temp339_0)" "(make-wrap-as-definition" -" self_30" +" self_33" " frame-id_16" " inside-scope_0" " all-scopes-s_0" @@ -70296,158 +70746,321 @@ static const char *startup_source = "(make-lift-context6.1" " #f" " #f" -" temp338_1)))" -"((module-lifts335_0)" +" temp339_0)))" +"((module-lifts336_0)" "(make-module-lift-context" -" phase_151" +" phase_153" " #t))" -"((require-lifts336_0)" +"((require-lifts337_0)" "(make-require-lift-context" -" phase_151" -"(let-values(((declared-submodule-names342_0)" +" phase_153" +"(let-values(((declared-submodule-names343_0)" " declared-submodule-names_3))" "(make-parse-lifted-require220.1" -" declared-submodule-names342_0" +" declared-submodule-names343_0" " m-ns_19" -" self_30" +" self_33" " requires+provides_6))))" -"((to-module-lifts337_0)" -"(let-values(((module-ends344_0)" +"((to-module-lifts338_0)" +"(let-values(((module-ends345_0)" " module-ends_0)" -"((temp345_0)" +"((temp346_0)" " #f))" "(make-to-module-lift-context27.1" -" temp345_0" -" module-ends344_0" -" phase_151))))" +" temp346_0" +" module-ends345_0" +" phase_153))))" "(expand-context/inner2.1" +"(root-expand-context/inner-self-mpi" +" the-struct_107)" "(root-expand-context/inner-module-scopes" -" the-struct_48)" +" the-struct_107)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_48)" +" the-struct_107)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_48)" +" the-struct_107)" "(root-expand-context/inner-defined-syms" -" the-struct_48)" +" the-struct_107)" "(root-expand-context/inner-counter" -" the-struct_48)" -" lift-key333_0" +" the-struct_107)" +" lift-key334_0" "(expand-context/inner-to-parsed?" -" the-struct_48)" -" phase329_0" -" namespace330_0" +" the-struct_107)" +" phase330_0" +" namespace331_0" "(expand-context/inner-just-once?" -" the-struct_48)" +" the-struct_107)" "(expand-context/inner-module-begin-k" -" the-struct_48)" +" the-struct_107)" "(expand-context/inner-allow-unbound?" -" the-struct_48)" +" the-struct_107)" "(expand-context/inner-in-local-expand?" -" the-struct_48)" -" stops331_0" -" declared-submodule-names332_0" -" lifts334_0" +" the-struct_107)" +" stops332_0" +" declared-submodule-names333_0" +" lifts335_0" "(expand-context/inner-lift-envs" -" the-struct_48)" -" module-lifts335_0" -" require-lifts336_0" -" to-module-lifts337_0" +" the-struct_107)" +" module-lifts336_0" +" require-lifts337_0" +" to-module-lifts338_0" "(expand-context/inner-requires+provides" -" the-struct_48)" +" the-struct_107)" "(expand-context/inner-observer" -" the-struct_48)" +" the-struct_107)" "(expand-context/inner-for-serializable?" -" the-struct_48)" +" the-struct_107)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_48)))" +" the-struct_107)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_48)))))" +" the-struct_107)))))" "(expand-context/outer1.1" -" inner328_0" +" inner329_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_104)" +" the-struct_106)" "(root-expand-context/outer-use-site-scopes" -" the-struct_104)" +" the-struct_106)" "(root-expand-context/outer-frame-id" -" the-struct_104)" -" context325_0" +" the-struct_106)" +" context326_0" "(expand-context/outer-env" -" the-struct_104)" +" the-struct_106)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_104)" +" the-struct_106)" "(expand-context/outer-scopes" -" the-struct_104)" -" def-ctx-scopes326_0" +" the-struct_106)" +" def-ctx-scopes327_0" "(expand-context/outer-binding-layer" -" the-struct_104)" +" the-struct_106)" "(expand-context/outer-reference-records" -" the-struct_104)" +" the-struct_106)" "(expand-context/outer-only-immediate?" -" the-struct_104)" -" need-eventually-defined327_0" +" the-struct_106)" +" need-eventually-defined328_0" "(expand-context/outer-current-introduction-scopes" -" the-struct_104)" +" the-struct_106)" "(expand-context/outer-name" -" the-struct_104)))" +" the-struct_106)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_104))))))" +" the-struct_106))))))" "(let-values(((partially-expanded-bodys_0)" -"(let-values(((phase347_0)" -" phase_151)" -"((partial-body-ctx348_0)" +"(let-values(((phase348_0)" +" phase_153)" +"((partial-body-ctx349_0)" " partial-body-ctx_0)" -"((m-ns349_0)" +"((m-ns350_0)" " m-ns_19)" -"((self350_0)" -" self_30)" -"((frame-id351_0)" +"((self351_0)" +" self_33)" +"((frame-id352_0)" " frame-id_16)" -"((requires+provides352_0)" +"((requires+provides353_0)" " requires+provides_6)" -"((need-eventually-defined353_0)" +"((need-eventually-defined354_0)" " need-eventually-defined_1)" -"((all-scopes-s354_0)" +"((all-scopes-s355_0)" " all-scopes-s_0)" -"((defined-syms355_0)" +"((defined-syms356_0)" " defined-syms_10)" -"((declared-keywords356_0)" +"((declared-keywords357_0)" " declared-keywords_0)" -"((declared-submodule-names357_0)" +"((declared-submodule-names358_0)" " declared-submodule-names_3)" -"((compiled-submodules358_0)" +"((compiled-submodules359_0)" " compiled-submodules_1)" -"((modules-being-compiled359_0)" +"((modules-being-compiled360_0)" " modules-being-compiled_3)" -"((mpis-to-reset360_0)" +"((mpis-to-reset361_0)" " mpis-to-reset_0)" -"((pass-1-and-2-loop361_0)" +"((pass-1-and-2-loop362_0)" " pass-1-and-2-loop_0))" "(partially-expand-bodys81.1" -" all-scopes-s354_0" -" compiled-submodules358_0" -" partial-body-ctx348_0" -" declared-keywords356_0" -" declared-submodule-names357_0" -" defined-syms355_0" -" frame-id351_0" -" pass-1-and-2-loop361_0" -" modules-being-compiled359_0" -" mpis-to-reset360_0" -" m-ns349_0" -" need-eventually-defined353_0" -" phase347_0" -" requires+provides352_0" -" self350_0" +" all-scopes-s355_0" +" compiled-submodules359_0" +" partial-body-ctx349_0" +" declared-keywords357_0" +" declared-submodule-names358_0" +" defined-syms356_0" +" frame-id352_0" +" pass-1-and-2-loop362_0" +" modules-being-compiled360_0" +" mpis-to-reset361_0" +" m-ns350_0" +" need-eventually-defined354_0" +" phase348_0" +" requires+provides353_0" +" self351_0" " bodys_17))))" "(let-values((()" "(begin" +"(let-values(((obs_128)" +"(expand-context-observer" +" partial-body-ctx_0)))" +"(if obs_128" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_128" +" 'next-group)))" +"(void)))" +"(values))))" +"(let-values(((body-ctx_6)" +"(let-values(((v_256)" +"(accumulate-def-ctx-scopes" +" partial-body-ctx_0" +" def-ctx-scopes_8)))" +"(let-values(((the-struct_108)" +" v_256))" +"(if(expand-context/outer?" +" the-struct_108)" +"(let-values(((def-ctx-scopes363_0)" +" #f)" +"((post-expansion-scope364_0)" +" #f)" +"((inner365_0)" +"(let-values(((the-struct_109)" +"(root-expand-context/outer-inner" +" v_256)))" +"(if(expand-context/inner?" +" the-struct_109)" +"(let-values(((stops366_0)" +" empty-free-id-set)" +"((to-module-lifts367_0)" +"(let-values(((module-ends369_0)" +" module-ends_0)" +"((temp370_1)" +" #t))" +"(make-to-module-lift-context27.1" +" temp370_1" +" module-ends369_0" +" phase_153))))" +"(expand-context/inner2.1" +"(root-expand-context/inner-self-mpi" +" the-struct_109)" +"(root-expand-context/inner-module-scopes" +" the-struct_109)" +"(root-expand-context/inner-top-level-bind-scope" +" the-struct_109)" +"(root-expand-context/inner-all-scopes-stx" +" the-struct_109)" +"(root-expand-context/inner-defined-syms" +" the-struct_109)" +"(root-expand-context/inner-counter" +" the-struct_109)" +"(root-expand-context/inner-lift-key" +" the-struct_109)" +"(expand-context/inner-to-parsed?" +" the-struct_109)" +"(expand-context/inner-phase" +" the-struct_109)" +"(expand-context/inner-namespace" +" the-struct_109)" +"(expand-context/inner-just-once?" +" the-struct_109)" +"(expand-context/inner-module-begin-k" +" the-struct_109)" +"(expand-context/inner-allow-unbound?" +" the-struct_109)" +"(expand-context/inner-in-local-expand?" +" the-struct_109)" +" stops366_0" +"(expand-context/inner-declared-submodule-names" +" the-struct_109)" +"(expand-context/inner-lifts" +" the-struct_109)" +"(expand-context/inner-lift-envs" +" the-struct_109)" +"(expand-context/inner-module-lifts" +" the-struct_109)" +"(expand-context/inner-require-lifts" +" the-struct_109)" +" to-module-lifts367_0" +"(expand-context/inner-requires+provides" +" the-struct_109)" +"(expand-context/inner-observer" +" the-struct_109)" +"(expand-context/inner-for-serializable?" +" the-struct_109)" +"(expand-context/inner-should-not-encounter-macros?" +" the-struct_109)))" +"(raise-argument-error" +" 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_109)))))" +"(expand-context/outer1.1" +" inner365_0" +" post-expansion-scope364_0" +"(root-expand-context/outer-use-site-scopes" +" the-struct_108)" +"(root-expand-context/outer-frame-id" +" the-struct_108)" +"(expand-context/outer-context" +" the-struct_108)" +"(expand-context/outer-env" +" the-struct_108)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_108)" +"(expand-context/outer-scopes" +" the-struct_108)" +" def-ctx-scopes363_0" +"(expand-context/outer-binding-layer" +" the-struct_108)" +"(expand-context/outer-reference-records" +" the-struct_108)" +"(expand-context/outer-only-immediate?" +" the-struct_108)" +"(expand-context/outer-need-eventually-defined" +" the-struct_108)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_108)" +"(expand-context/outer-name" +" the-struct_108)))" +"(raise-argument-error" +" 'struct-copy" +" \"expand-context/outer?\"" +" the-struct_108))))))" +"(let-values(((phase319_0)" +" phase_153)" +"((body-ctx320_0)" +" body-ctx_6)" +"((self321_0)" +" self_33)" +"((declared-submodule-names322_0)" +" declared-submodule-names_3)" +"((compiled-submodules323_0)" +" compiled-submodules_1)" +"((modules-being-compiled324_0)" +" modules-being-compiled_3)" +"((mpis-to-reset325_0)" +" mpis-to-reset_0))" +"(finish-expanding-body-expressons99.1" +" compiled-submodules323_0" +" body-ctx320_0" +" declared-submodule-names322_0" +" modules-being-compiled324_0" +" mpis-to-reset325_0" +" phase319_0" +" self321_0" +" partially-expanded-bodys_0))))))))))))" +" pass-1-and-2-loop_0)" +" bodys_16" +" phase_152)))" +"(let-values((()" +"(begin" +"(check-defined-by-now" +" need-eventually-defined_1" +" self_33" +" ctx_111)" +"(values))))" +"(let-values((()" +"(begin" "(let-values(((obs_129)" "(expand-context-observer" -" partial-body-ctx_0)))" +" ctx_111)))" "(if obs_129" "(let-values()" "(let-values()" @@ -70456,185 +71069,26 @@ static const char *startup_source = " 'next-group)))" "(void)))" "(values))))" -"(let-values(((body-ctx_6)" -"(let-values(((v_254)" -"(accumulate-def-ctx-scopes" -" partial-body-ctx_0" -" def-ctx-scopes_8)))" -"(let-values(((the-struct_105)" -" v_254))" -"(if(expand-context/outer?" -" the-struct_105)" -"(let-values(((def-ctx-scopes362_0)" -" #f)" -"((post-expansion-scope363_0)" -" #f)" -"((inner364_0)" -"(let-values(((the-struct_106)" -"(root-expand-context/outer-inner" -" v_254)))" -"(if(expand-context/inner?" -" the-struct_106)" -"(let-values(((stops365_0)" -" empty-free-id-set)" -"((to-module-lifts366_0)" -"(let-values(((module-ends368_0)" -" module-ends_0)" -"((temp369_0)" -" #t))" -"(make-to-module-lift-context27.1" -" temp369_0" -" module-ends368_0" -" phase_151))))" -"(expand-context/inner2.1" -"(root-expand-context/inner-module-scopes" -" the-struct_106)" -"(root-expand-context/inner-top-level-bind-scope" -" the-struct_106)" -"(root-expand-context/inner-all-scopes-stx" -" the-struct_106)" -"(root-expand-context/inner-defined-syms" -" the-struct_106)" -"(root-expand-context/inner-counter" -" the-struct_106)" -"(root-expand-context/inner-lift-key" -" the-struct_106)" -"(expand-context/inner-to-parsed?" -" the-struct_106)" -"(expand-context/inner-phase" -" the-struct_106)" -"(expand-context/inner-namespace" -" the-struct_106)" -"(expand-context/inner-just-once?" -" the-struct_106)" -"(expand-context/inner-module-begin-k" -" the-struct_106)" -"(expand-context/inner-allow-unbound?" -" the-struct_106)" -"(expand-context/inner-in-local-expand?" -" the-struct_106)" -" stops365_0" -"(expand-context/inner-declared-submodule-names" -" the-struct_106)" -"(expand-context/inner-lifts" -" the-struct_106)" -"(expand-context/inner-lift-envs" -" the-struct_106)" -"(expand-context/inner-module-lifts" -" the-struct_106)" -"(expand-context/inner-require-lifts" -" the-struct_106)" -" to-module-lifts366_0" -"(expand-context/inner-requires+provides" -" the-struct_106)" -"(expand-context/inner-observer" -" the-struct_106)" -"(expand-context/inner-for-serializable?" -" the-struct_106)" -"(expand-context/inner-should-not-encounter-macros?" -" the-struct_106)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_106)))))" -"(expand-context/outer1.1" -" inner364_0" -" post-expansion-scope363_0" -"(root-expand-context/outer-use-site-scopes" -" the-struct_105)" -"(root-expand-context/outer-frame-id" -" the-struct_105)" -"(expand-context/outer-context" -" the-struct_105)" -"(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-scopes362_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)" -"(expand-context/outer-need-eventually-defined" -" the-struct_105)" -"(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_105))))))" -"(let-values(((phase318_0)" -" phase_151)" -"((body-ctx319_0)" -" body-ctx_6)" -"((self320_0)" -" self_30)" -"((declared-submodule-names321_0)" -" declared-submodule-names_3)" -"((compiled-submodules322_0)" -" compiled-submodules_1)" -"((modules-being-compiled323_0)" -" modules-being-compiled_3)" -"((mpis-to-reset324_0)" -" mpis-to-reset_0))" -"(finish-expanding-body-expressons99.1" -" compiled-submodules322_0" -" body-ctx319_0" -" declared-submodule-names321_0" -" modules-being-compiled323_0" -" mpis-to-reset324_0" -" phase318_0" -" self320_0" -" partially-expanded-bodys_0))))))))))))" -" pass-1-and-2-loop_0)" -" bodys_16" -" phase_150)))" -"(let-values((()" -"(begin" -"(check-defined-by-now" -" need-eventually-defined_1" -" self_30" -" ctx_111)" -"(values))))" -"(let-values((()" -"(begin" -"(let-values(((obs_130)" -"(expand-context-observer" -" ctx_111)))" -"(if obs_130" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_130" -" 'next-group)))" -"(void)))" -"(values))))" "(let-values(((fully-expanded-bodys-except-post-submodules_0)" -"(let-values(((requires+provides371_0)" +"(let-values(((requires+provides372_0)" " requires+provides_6)" -"((declared-submodule-names372_0)" +"((declared-submodule-names373_0)" " declared-submodule-names_3)" -"((m-ns373_0)" +"((m-ns374_0)" " m-ns_19)" -"((phase374_0)" -" phase_150)" -"((self375_0)" -" self_30)" -"((ctx376_1)" +"((phase375_0)" +" phase_152)" +"((self376_0)" +" self_33)" +"((ctx377_0)" " ctx_111))" "(resolve-provides115.1" -" ctx376_1" -" declared-submodule-names372_0" -" m-ns373_0" -" phase374_0" -" requires+provides371_0" -" self375_0" +" ctx377_0" +" declared-submodule-names373_0" +" m-ns374_0" +" phase375_0" +" requires+provides372_0" +" self376_0" " expression-expanded-bodys_0))))" "(let-values(((is-cross-phase-persistent?_1)" "(hash-ref" @@ -70659,168 +71113,170 @@ static const char *startup_source = " '#:cross-phase-persistent))))" "(check-cross-phase-persistent-form" " fully-expanded-bodys-except-post-submodules_0" -" self_30)))" +" self_33)))" "(void))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_74)" +"(let-values(((obs_75)" "(expand-context-observer" " ctx_111)))" -"(if obs_74" +"(if obs_75" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_74" +" obs_75" " 'next)))" "(void)))" "(values))))" "(let-values(((submod-m-ns_0)" -"(let-values(((temp378_1)" +"(let-values(((temp379_1)" " #t))" "(make-m-ns244_0" -" temp378_1" +" temp379_1" " #t" " m-ns_19))))" "(let-values(((submod-ctx_0)" -"(let-values(((v_255)" +"(let-values(((v_257)" " ctx_111))" -"(let-values(((the-struct_107)" -" v_255))" +"(let-values(((the-struct_110)" +" v_257))" "(if(expand-context/outer?" -" the-struct_107)" -"(let-values(((frame-id379_0)" +" the-struct_110)" +"(let-values(((frame-id380_0)" " #f)" -"((post-expansion-scope380_0)" +"((post-expansion-scope381_0)" " #f)" -"((inner381_0)" -"(let-values(((the-struct_108)" +"((inner382_0)" +"(let-values(((the-struct_111)" "(root-expand-context/outer-inner" -" v_255)))" +" v_257)))" "(if(expand-context/inner?" -" the-struct_108)" -"(let-values(((namespace382_0)" +" the-struct_111)" +"(let-values(((namespace383_0)" " submod-m-ns_0))" "(expand-context/inner2.1" +"(root-expand-context/inner-self-mpi" +" the-struct_111)" "(root-expand-context/inner-module-scopes" -" the-struct_108)" +" the-struct_111)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_108)" +" the-struct_111)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_108)" +" the-struct_111)" "(root-expand-context/inner-defined-syms" -" the-struct_108)" +" the-struct_111)" "(root-expand-context/inner-counter" -" the-struct_108)" +" the-struct_111)" "(root-expand-context/inner-lift-key" -" the-struct_108)" +" the-struct_111)" "(expand-context/inner-to-parsed?" -" the-struct_108)" +" the-struct_111)" "(expand-context/inner-phase" -" the-struct_108)" -" namespace382_0" +" the-struct_111)" +" namespace383_0" "(expand-context/inner-just-once?" -" the-struct_108)" +" the-struct_111)" "(expand-context/inner-module-begin-k" -" the-struct_108)" +" the-struct_111)" "(expand-context/inner-allow-unbound?" -" the-struct_108)" +" the-struct_111)" "(expand-context/inner-in-local-expand?" -" the-struct_108)" +" the-struct_111)" "(expand-context/inner-stops" -" the-struct_108)" +" the-struct_111)" "(expand-context/inner-declared-submodule-names" -" the-struct_108)" +" the-struct_111)" "(expand-context/inner-lifts" -" the-struct_108)" +" the-struct_111)" "(expand-context/inner-lift-envs" -" the-struct_108)" +" the-struct_111)" "(expand-context/inner-module-lifts" -" the-struct_108)" +" the-struct_111)" "(expand-context/inner-require-lifts" -" the-struct_108)" +" the-struct_111)" "(expand-context/inner-to-module-lifts" -" the-struct_108)" +" the-struct_111)" "(expand-context/inner-requires+provides" -" the-struct_108)" +" the-struct_111)" "(expand-context/inner-observer" -" the-struct_108)" +" the-struct_111)" "(expand-context/inner-for-serializable?" -" the-struct_108)" +" the-struct_111)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_108)))" +" the-struct_111)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_108)))))" +" the-struct_111)))))" "(expand-context/outer1.1" -" inner381_0" -" post-expansion-scope380_0" +" inner382_0" +" post-expansion-scope381_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_107)" -" frame-id379_0" +" the-struct_110)" +" frame-id380_0" "(expand-context/outer-context" -" the-struct_107)" +" the-struct_110)" "(expand-context/outer-env" -" the-struct_107)" +" the-struct_110)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_107)" +" the-struct_110)" "(expand-context/outer-scopes" -" the-struct_107)" +" the-struct_110)" "(expand-context/outer-def-ctx-scopes" -" the-struct_107)" +" the-struct_110)" "(expand-context/outer-binding-layer" -" the-struct_107)" +" the-struct_110)" "(expand-context/outer-reference-records" -" the-struct_107)" +" the-struct_110)" "(expand-context/outer-only-immediate?" -" the-struct_107)" +" the-struct_110)" "(expand-context/outer-need-eventually-defined" -" the-struct_107)" +" the-struct_110)" "(expand-context/outer-current-introduction-scopes" -" the-struct_107)" +" the-struct_110)" "(expand-context/outer-name" -" the-struct_107)))" +" the-struct_110)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_107))))))" +" the-struct_110))))))" "(let-values(((declare-enclosing-module_0)" "(delay" "(lambda()" "(begin" " 'declare-enclosing-module" -"(let-values(((temp384_1)" +"(let-values(((temp385_1)" " id:module-name229_0)" -"((rebuild-s385_0)" +"((rebuild-s386_0)" " rebuild-s_14)" -"((requires+provides386_0)" +"((requires+provides387_0)" " requires+provides_6)" -"((submod-m-ns387_0)" +"((submod-m-ns388_0)" " submod-m-ns_0)" -"((self388_0)" -" self_30)" -"((enclosing-self389_0)" +"((self389_0)" +" self_33)" +"((enclosing-self390_0)" " enclosing-self_1)" -"((root-ctx390_0)" +"((root-ctx391_0)" " root-ctx_6)" -"((submod-ctx391_0)" +"((submod-ctx392_0)" " submod-ctx_0)" -"((modules-being-compiled392_0)" +"((modules-being-compiled393_0)" " modules-being-compiled_3)" -"((compiled-module-box393_0)" +"((compiled-module-box394_0)" " compiled-module-box_0))" "(declare-module-for-expansion139.1" -" submod-ctx391_0" -" enclosing-self389_0" -" compiled-module-box393_0" -" temp384_1" -" modules-being-compiled392_0" -" submod-m-ns387_0" -" rebuild-s385_0" -" requires+provides386_0" -" root-ctx390_0" -" self388_0" +" submod-ctx392_0" +" enclosing-self390_0" +" compiled-module-box394_0" +" temp385_1" +" modules-being-compiled393_0" +" submod-m-ns388_0" +" rebuild-s386_0" +" requires+provides387_0" +" root-ctx391_0" +" self389_0" " fully-expanded-bodys-except-post-submodules_0)))))))" "(let-values(((fully-expanded-bodys_0)" "(if(stop-at-module*?" @@ -70828,40 +71284,40 @@ static const char *startup_source = "(let-values()" " fully-expanded-bodys-except-post-submodules_0)" "(let-values()" -"(let-values(((declare-enclosing-module395_0)" +"(let-values(((declare-enclosing-module396_0)" " declare-enclosing-module_0)" -"((phase396_0)" -" phase_150)" -"((self397_0)" -" self_30)" -"((requires+provides398_0)" +"((phase397_0)" +" phase_152)" +"((self398_0)" +" self_33)" +"((requires+provides399_0)" " requires+provides_6)" -"((is-cross-phase-persistent?399_0)" +"((is-cross-phase-persistent?400_0)" " is-cross-phase-persistent?_1)" -"((all-scopes-s400_0)" +"((all-scopes-s401_0)" " all-scopes-s_0)" -"((mpis-to-reset401_0)" +"((mpis-to-reset402_0)" " mpis-to-reset_0)" -"((declared-submodule-names402_0)" +"((declared-submodule-names403_0)" " declared-submodule-names_3)" -"((compiled-submodules403_0)" +"((compiled-submodules404_0)" " compiled-submodules_1)" -"((modules-being-compiled404_0)" +"((modules-being-compiled405_0)" " modules-being-compiled_3)" -"((submod-ctx405_0)" +"((submod-ctx406_0)" " submod-ctx_0))" "(expand-post-submodules165.1" -" all-scopes-s400_0" -" compiled-submodules403_0" -" submod-ctx405_0" -" declare-enclosing-module395_0" -" declared-submodule-names402_0" -" is-cross-phase-persistent?399_0" -" modules-being-compiled404_0" -" mpis-to-reset401_0" -" phase396_0" -" requires+provides398_0" -" self397_0" +" all-scopes-s401_0" +" compiled-submodules404_0" +" submod-ctx406_0" +" declare-enclosing-module396_0" +" declared-submodule-names403_0" +" is-cross-phase-persistent?400_0" +" modules-being-compiled405_0" +" mpis-to-reset402_0" +" phase397_0" +" requires+provides399_0" +" self398_0" " fully-expanded-bodys-except-post-submodules_0))))))" "(if(expand-context-to-parsed?" " submod-ctx_0)" @@ -70872,18 +71328,18 @@ static const char *startup_source = " fully-expanded-bodys_0)))" "(let-values()" "(let-values(((mb-result-s_0)" -"(let-values(((rebuild-mb-s406_0)" +"(let-values(((rebuild-mb-s407_0)" " rebuild-mb-s_0)" -"((temp407_0)" +"((temp408_0)" "(list*" -" #%module-begin300_0" +" #%module-begin301_0" "(syntax-only" " fully-expanded-bodys_0))))" "(rebuild5.1" " #f" " #f" -" rebuild-mb-s406_0" -" temp407_0))))" +" rebuild-mb-s407_0" +" temp408_0))))" "(if(not" "(expand-context-in-local-expand?" " submod-ctx_0))" @@ -70897,108 +71353,110 @@ static const char *startup_source = "(let-values()" " mb-result-s_0)))))))))))))))))))))))))))))))))" "(let-values(((mb-ctx_0)" -"(let-values(((v_256)" +"(let-values(((v_258)" " ctx_110))" -"(let-values(((the-struct_109)" -" v_256))" +"(let-values(((the-struct_112)" +" v_258))" "(if(expand-context/outer?" -" the-struct_109)" -"(let-values(((context408_0)" +" the-struct_112)" +"(let-values(((context409_0)" " 'module-begin)" -"((inner409_0)" -"(let-values(((the-struct_110)" +"((inner410_0)" +"(let-values(((the-struct_113)" "(root-expand-context/outer-inner" -" v_256)))" +" v_258)))" "(if(expand-context/inner?" -" the-struct_110)" -"(let-values(((module-begin-k410_0)" +" the-struct_113)" +"(let-values(((module-begin-k411_0)" " module-begin-k_1)" -"((in-local-expand?411_0)" +"((in-local-expand?412_0)" " #f))" "(expand-context/inner2.1" +"(root-expand-context/inner-self-mpi" +" the-struct_113)" "(root-expand-context/inner-module-scopes" -" the-struct_110)" +" the-struct_113)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_110)" +" the-struct_113)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_110)" +" the-struct_113)" "(root-expand-context/inner-defined-syms" -" the-struct_110)" +" the-struct_113)" "(root-expand-context/inner-counter" -" the-struct_110)" +" the-struct_113)" "(root-expand-context/inner-lift-key" -" the-struct_110)" +" the-struct_113)" "(expand-context/inner-to-parsed?" -" the-struct_110)" +" the-struct_113)" "(expand-context/inner-phase" -" the-struct_110)" +" the-struct_113)" "(expand-context/inner-namespace" -" the-struct_110)" +" the-struct_113)" "(expand-context/inner-just-once?" -" the-struct_110)" -" module-begin-k410_0" +" the-struct_113)" +" module-begin-k411_0" "(expand-context/inner-allow-unbound?" -" the-struct_110)" -" in-local-expand?411_0" +" the-struct_113)" +" in-local-expand?412_0" "(expand-context/inner-stops" -" the-struct_110)" +" the-struct_113)" "(expand-context/inner-declared-submodule-names" -" the-struct_110)" +" the-struct_113)" "(expand-context/inner-lifts" -" the-struct_110)" +" the-struct_113)" "(expand-context/inner-lift-envs" -" the-struct_110)" +" the-struct_113)" "(expand-context/inner-module-lifts" -" the-struct_110)" +" the-struct_113)" "(expand-context/inner-require-lifts" -" the-struct_110)" +" the-struct_113)" "(expand-context/inner-to-module-lifts" -" the-struct_110)" +" the-struct_113)" "(expand-context/inner-requires+provides" -" the-struct_110)" +" the-struct_113)" "(expand-context/inner-observer" -" the-struct_110)" +" the-struct_113)" "(expand-context/inner-for-serializable?" -" the-struct_110)" +" the-struct_113)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_110)))" +" the-struct_113)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_110)))))" +" the-struct_113)))))" "(expand-context/outer1.1" -" inner409_0" +" inner410_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_109)" +" the-struct_112)" "(root-expand-context/outer-use-site-scopes" -" the-struct_109)" +" the-struct_112)" "(root-expand-context/outer-frame-id" -" the-struct_109)" -" context408_0" +" the-struct_112)" +" context409_0" "(expand-context/outer-env" -" the-struct_109)" +" the-struct_112)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_109)" +" the-struct_112)" "(expand-context/outer-scopes" -" the-struct_109)" +" the-struct_112)" "(expand-context/outer-def-ctx-scopes" -" the-struct_109)" +" the-struct_112)" "(expand-context/outer-binding-layer" -" the-struct_109)" +" the-struct_112)" "(expand-context/outer-reference-records" -" the-struct_109)" +" the-struct_112)" "(expand-context/outer-only-immediate?" -" the-struct_109)" +" the-struct_112)" "(expand-context/outer-need-eventually-defined" -" the-struct_109)" +" the-struct_112)" "(expand-context/outer-current-introduction-scopes" -" the-struct_109)" +" the-struct_112)" "(expand-context/outer-name" -" the-struct_109)))" +" the-struct_112)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_109))))))" +" the-struct_112))))))" "(let-values(((mb-scopes-s_0)" "(if keep-enclosing-scope-at-phase_0" " disarmed-s_24" @@ -71007,34 +71465,34 @@ static const char *startup_source = "(box" " null)))" "(let-values(((mb_0)" -"(let-values(((module-name-sym413_0)" +"(let-values(((module-name-sym414_0)" " module-name-sym_0)" -"((mb-scopes-s414_0)" +"((mb-scopes-s415_0)" " mb-scopes-s_0)" -"((m-ns415_0)" +"((m-ns416_0)" " m-ns_19)" -"((mb-ctx416_0)" +"((mb-ctx417_0)" " mb-ctx_0)" -"((mb-def-ctx-scopes417_0)" +"((mb-def-ctx-scopes418_0)" " mb-def-ctx-scopes_0)" -"((phase418_0)" -" phase_150)" -"((s419_0)" +"((phase419_0)" +" phase_152)" +"((s420_0)" " s_16))" "(ensure-module-begin36.1" -" mb-ctx416_0" -" mb-def-ctx-scopes417_0" -" m-ns415_0" -" module-name-sym413_0" -" phase418_0" -" s419_0" -" mb-scopes-s414_0" +" mb-ctx417_0" +" mb-def-ctx-scopes418_0" +" m-ns416_0" +" module-name-sym414_0" +" phase419_0" +" s420_0" +" mb-scopes-s415_0" " bodys_15))))" "(let-values(((expanded-mb_0)" "(let-values()" -"(let-values(((mb420_0)" +"(let-values(((mb421_0)" " mb_0)" -"((temp421_0)" +"((temp422_0)" "(accumulate-def-ctx-scopes" " mb-ctx_0" " mb-def-ctx-scopes_0)))" @@ -71043,34 +71501,34 @@ static const char *startup_source = " #f" " #f" " #f" -" mb420_0" -" temp421_0)))))" +" mb421_0" +" temp422_0)))))" "(let-values(((requires_6" " provides_13)" "(extract-requires-and-provides" " requires+provides_6" -" self_30" -" self_30)))" +" self_33" +" self_33)))" "(let-values(((result-form_0)" -"(if(let-values(((or-part_342)" +"(if(let-values(((or-part_349)" "(expand-context-to-parsed?" " init-ctx_0)))" -"(if or-part_342" -" or-part_342" +"(if or-part_349" +" or-part_349" " always-produce-compiled?_0))" "(parsed-module25.1" " rebuild-s_14" " #f" " id:module-name229_0" -" self_30" +" self_33" " requires_6" " provides_13" "(requires+provides-all-bindings-simple?" " requires+provides_6)" "(root-expand-context-encode-for-module" " root-ctx_6" -" self_30" -" self_30)" +" self_33" +" self_33)" "(parsed-#%module-begin-body" "(if(expanded+parsed?" " expanded-mb_0)" @@ -71088,11 +71546,11 @@ static const char *startup_source = "(let-values()" "(let-values(((generic-self_0)" "(make-generic-self-module-path-index" -" self_30)))" +" self_33)))" "(begin" "(imitate-generic-module-path-index!" -" self_30)" -"(let-values(((lst_216)" +" self_33)" +"(let-values(((lst_410)" "(unbox" " mpis-to-reset_0)))" "(begin" @@ -71101,19 +71559,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_216)))" -"((letrec-values(((for-loop_310)" -"(lambda(lst_410)" +" lst_410)))" +"((letrec-values(((for-loop_311)" +"(lambda(lst_411)" "(begin" " 'for-loop" "(if(pair?" -" lst_410)" +" lst_411)" "(let-values(((mpi_54)" "(unsafe-car" -" lst_410))" -"((rest_114)" +" lst_411))" +"((rest_246)" "(unsafe-cdr" -" lst_410)))" +" lst_411)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71126,17 +71584,17 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_310" -" rest_114)" +"(for-loop_311" +" rest_246)" "(values))))" "(values))))))" -" for-loop_310)" -" lst_216)))" +" for-loop_311)" +" lst_410)))" "(void)" "(let-values(((result-s_15)" -"(let-values(((rebuild-s422_0)" +"(let-values(((rebuild-s423_0)" " rebuild-s_14)" -"((temp423_1)" +"((temp424_1)" "(list" " module228_0" " id:module-name229_0" @@ -71146,28 +71604,28 @@ static const char *startup_source = "(rebuild5.1" " #f" " #f" -" rebuild-s422_0" -" temp423_1))))" +" rebuild-s423_0" +" temp424_1))))" "(let-values(((result-s_16)" -"(let-values(((result-s424_0)" +"(let-values(((result-s425_0)" " result-s_15)" -"((self425_0)" -" self_30)" -"((generic-self426_0)" +"((self426_0)" +" self_33)" +"((generic-self427_0)" " generic-self_0))" "(syntax-module-path-index-shift15.1" " #f" " #f" -" result-s424_0" -" self425_0" -" generic-self426_0" +" result-s425_0" +" self426_0" +" generic-self427_0" " #f" " #f))))" "(let-values(((result-s_17)" "(attach-root-expand-context-properties" " result-s_16" " root-ctx_6" -" self_30" +" self_33" " generic-self_0)))" "(let-values(((result-s_18)" "(if(requires+provides-all-bindings-simple?" @@ -71178,14 +71636,14 @@ static const char *startup_source = " #t)" " result-s_17)))" "(begin" -"(let-values(((obs_131)" +"(let-values(((obs_130)" "(expand-context-observer" " init-ctx_0)))" -"(if obs_131" +"(if obs_130" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_131" +" obs_130" " 'rename-one" " result-s_18)))" "(void)))" @@ -71211,104 +71669,104 @@ static const char *startup_source = "(let-values(((module-name-sym_1) module-name-sym21_0))" "(let-values(((scopes-s_0) scopes-s22_0))" "(let-values()" -"(let-values(((ctx_112) ctx24_0))" +"(let-values(((ctx_113) ctx24_0))" "(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))" -"(let-values(((phase_152) phase26_2))" +"(let-values(((phase_154) phase26_2))" "(let-values(((s_758) s27_2))" "(let-values()" "(let-values(((make-mb-ctx_0)" "(lambda()" "(begin" " 'make-mb-ctx" -"(let-values(((v_257) ctx_112))" -"(let-values(((the-struct_111) v_257))" -"(if(expand-context/outer? the-struct_111)" -"(let-values(((context427_0) 'module-begin)" -"((only-immediate?428_0) #t)" -"((def-ctx-scopes429_0) def-ctx-scopes_9)" -"((inner430_0)(root-expand-context/outer-inner v_257)))" +"(let-values(((v_259) ctx_113))" +"(let-values(((the-struct_114) v_259))" +"(if(expand-context/outer? the-struct_114)" +"(let-values(((context428_0) 'module-begin)" +"((only-immediate?429_0) #t)" +"((def-ctx-scopes430_0) def-ctx-scopes_9)" +"((inner431_0)(root-expand-context/outer-inner v_259)))" "(expand-context/outer1.1" -" inner430_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)" -" context427_0" -"(expand-context/outer-env the-struct_111)" -"(expand-context/outer-post-expansion-scope-action the-struct_111)" -"(expand-context/outer-scopes the-struct_111)" -" def-ctx-scopes429_0" -"(expand-context/outer-binding-layer the-struct_111)" -"(expand-context/outer-reference-records the-struct_111)" -" only-immediate?428_0" -"(expand-context/outer-need-eventually-defined the-struct_111)" -"(expand-context/outer-current-introduction-scopes the-struct_111)" -"(expand-context/outer-name the-struct_111)))" +" 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)" +" 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)" +" def-ctx-scopes430_0" +"(expand-context/outer-binding-layer the-struct_114)" +"(expand-context/outer-reference-records the-struct_114)" +" 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)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_111))))))))" +" the-struct_114))))))))" "(let-values(((mb_1)" "(if(= 1(length bodys_18))" "(let-values()" "(begin" -"(let-values(((obs_132)(expand-context-observer ctx_112)))" -"(if obs_132" +"(let-values(((obs_131)(expand-context-observer ctx_113)))" +"(if obs_131" "(let-values()" "(let-values()" -"(call-expand-observe obs_132 'rename-one(car bodys_18))))" +"(call-expand-observe obs_131 'rename-one(car bodys_18))))" "(void)))" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_152))" +"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_154))" "(let-values()(car bodys_18))" "(let-values()" "(let-values(((partly-expanded-body_0)" "(let-values()" -"(let-values(((temp431_0)" +"(let-values(((temp432_0)" "(add-enclosing-name-property" "(car bodys_18)" " module-name-sym_1))" -"((temp432_0)(make-mb-ctx_0)))" -"(expand7.1 #f #f #f #f temp431_0 temp432_0)))))" +"((temp433_0)(make-mb-ctx_0)))" +"(expand7.1 #f #f #f #f temp432_0 temp433_0)))))" "(if(eq?" " '#%module-begin" "(core-form-sym" "(syntax-disarm$1 partly-expanded-body_0)" -" phase_152))" +" phase_154))" "(let-values() partly-expanded-body_0)" "(let-values()" -"(let-values(((temp433_0)(list partly-expanded-body_0))" -"((s434_0) s_758)" -"((scopes-s435_0) scopes-s_0)" -"((phase436_0) phase_152)" -"((module-name-sym437_0) module-name-sym_1)" -"((temp438_0)(make-mb-ctx_0))" -"((temp439_0) #f))" +"(let-values(((temp434_0)(list partly-expanded-body_0))" +"((s435_0) s_758)" +"((scopes-s436_0) scopes-s_0)" +"((phase437_0) phase_154)" +"((module-name-sym438_0) module-name-sym_1)" +"((temp439_0)(make-mb-ctx_0))" +"((temp440_0) #f))" "(add-module-begin47.1" -" temp439_0" +" temp440_0" " #t" -" temp433_0" -" s434_0" -" scopes-s435_0" -" phase436_0" -" module-name-sym437_0" -" temp438_0)))))))))" +" temp434_0" +" s435_0" +" scopes-s436_0" +" phase437_0" +" module-name-sym438_0" +" temp439_0)))))))))" "(let-values()" -"(let-values(((bodys440_0) bodys_18)" -"((s441_0) s_758)" -"((scopes-s442_0) scopes-s_0)" -"((phase443_0) phase_152)" -"((module-name-sym444_0) module-name-sym_1)" -"((temp445_0)(make-mb-ctx_0)))" +"(let-values(((bodys441_0) bodys_18)" +"((s442_0) s_758)" +"((scopes-s443_0) scopes-s_0)" +"((phase444_0) phase_154)" +"((module-name-sym445_0) module-name-sym_1)" +"((temp446_0)(make-mb-ctx_0)))" "(add-module-begin47.1" " #f" " #f" -" bodys440_0" -" s441_0" -" scopes-s442_0" -" phase443_0" -" module-name-sym444_0" -" temp445_0))))))" +" bodys441_0" +" s442_0" +" scopes-s443_0" +" phase444_0" +" module-name-sym445_0" +" temp446_0))))))" "(add-enclosing-name-property mb_1 module-name-sym_1)))))))))))))))" "(define-values" "(add-module-begin47.1)" @@ -71325,7 +71783,7 @@ static const char *startup_source = "(let-values(((bodys_19) bodys41_0))" "(let-values(((s_759) s42_0))" "(let-values(((scopes-s_1) scopes-s43_0))" -"(let-values(((phase_153) phase44_1))" +"(let-values(((phase_155) 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)))" @@ -71334,8 +71792,8 @@ 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-id446_0) mb-id_0)((phase447_0) phase_153))" -"(resolve33.1 #f #f #f #f #f #f #f #f mb-id446_0 phase447_0))" +"(if(let-values(((mb-id447_0) mb-id_0)((phase448_0) phase_155))" +"(resolve33.1 #f #f #f #f #f #f #f #f mb-id447_0 phase448_0))" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -71346,34 +71804,34 @@ static const char *startup_source = "(let-values(((mb_2)(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_759)))" "(let-values((()" "(begin" -"(let-values(((obs_133)(expand-context-observer mb-ctx_1)))" -"(if obs_133" +"(let-values(((obs_132)(expand-context-observer mb-ctx_1)))" +"(if obs_132" "(let-values()" -"(let-values()(call-expand-observe obs_133 'tag mb_2)))" +"(let-values()(call-expand-observe obs_132 'tag mb_2)))" "(void)))" "(values))))" "(let-values((()" "(begin" "(if log-rename-one?_0" "(let-values()" -"(let-values(((obs_134)(expand-context-observer mb-ctx_1)))" -"(if obs_134" +"(let-values(((obs_133)(expand-context-observer mb-ctx_1)))" +"(if obs_133" "(let-values()" "(let-values()" -"(call-expand-observe obs_134 'rename-one mb_2)))" +"(call-expand-observe obs_133 'rename-one mb_2)))" "(void))))" "(void))" "(values))))" "(let-values(((partly-expanded-mb_0)" "(let-values()" -"(let-values(((temp448_0)" +"(let-values(((temp449_0)" "(add-enclosing-name-property mb_2 module-name-sym_2))" -"((mb-ctx449_0) mb-ctx_1))" -"(expand7.1 #f #f #f #f temp448_0 mb-ctx449_0)))))" +"((mb-ctx450_0) mb-ctx_1))" +"(expand7.1 #f #f #f #f temp449_0 mb-ctx450_0)))))" "(begin" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_153))" +"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_155))" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -71391,7 +71849,7 @@ static const char *startup_source = " outside-scope_2" " init-ctx_1" " keep-enclosing-scope-at-phase_1" -" self_31" +" self_34" " enclosing-self_2" " enclosing-mod_2)" "(begin" @@ -71408,29 +71866,29 @@ static const char *startup_source = "(let-values(((s-with-suitable-enclosing_0)" "(if keep-enclosing-scope-at-phase_1" "(let-values()" -"(let-values(((s-with-edges454_0) s-with-edges_0)" -"((enclosing-self455_0) enclosing-self_2)" -"((enclosing-mod456_0) enclosing-mod_2))" +"(let-values(((s-with-edges455_0) s-with-edges_0)" +"((enclosing-self456_0) enclosing-self_2)" +"((enclosing-mod457_0) enclosing-mod_2))" "(syntax-module-path-index-shift15.1" " #f" " #f" -" s-with-edges454_0" -" enclosing-self455_0" -" enclosing-mod456_0" +" s-with-edges455_0" +" enclosing-self456_0" +" enclosing-mod457_0" " #f" " #f)))" "(let-values() s-with-edges_0))))" -"(let-values(((s-with-suitable-enclosing450_0) s-with-suitable-enclosing_0)" -"((temp451_0)(make-generic-self-module-path-index self_31))" -"((self452_0) self_31)" -"((temp453_0)(current-code-inspector)))" +"(let-values(((s-with-suitable-enclosing451_0) s-with-suitable-enclosing_0)" +"((temp452_0)(make-generic-self-module-path-index self_34))" +"((self453_0) self_34)" +"((temp454_0)(current-code-inspector)))" "(syntax-module-path-index-shift15.1" " #f" " #f" -" s-with-suitable-enclosing450_0" -" temp451_0" -" self452_0" -" temp453_0" +" s-with-suitable-enclosing451_0" +" temp452_0" +" self453_0" +" temp454_0" " #t))))))))))" "(define-values" "(partially-expand-bodys81.1)" @@ -71453,10 +71911,10 @@ static const char *startup_source = "(begin" " 'partially-expand-bodys81" "(let-values(((bodys_20) bodys80_0))" -"(let-values(((phase_154) phase50_0))" +"(let-values(((phase_156) phase50_0))" "(let-values(((partial-body-ctx_1) ctx51_0))" "(let-values(((m-ns_20) namespace52_0))" -"(let-values(((self_32) self53_0))" +"(let-values(((self_35) self53_0))" "(let-values(((frame-id_17) frame-id54_0))" "(let-values(((requires+provides_7) requires-and-provides55_0))" "(let-values(((need-eventually-defined_2) need-eventually-defined56_0))" @@ -71470,24 +71928,24 @@ 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_154)" -"((letrec-values(((loop_128)" +"(namespace-visit-available-modules! m-ns_20 phase_156)" +"((letrec-values(((loop_131)" "(lambda(tail?_53 bodys_21)" "(begin" " 'loop" "(if(null? bodys_21)" "(let-values()" -"(if(if tail?_53(not(zero? phase_154)) #f)" +"(if(if tail?_53(not(zero? phase_156)) #f)" "(let-values()" "(begin" -"(let-values(((obs_135)" +"(let-values(((obs_134)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_135" +"(if obs_134" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_135" +" obs_134" " 'module-lift-end-loop" " '())))" "(void)))" @@ -71503,21 +71961,21 @@ static const char *startup_source = "(expand-context-to-module-lifts" " partial-body-ctx_1)))))" "(begin" -"(let-values(((obs_136)" +"(let-values(((obs_135)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_136" +"(if obs_135" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_136" +" obs_135" " 'module-lift-end-loop" " bodys_22)))" "(void)))" "(if(null? bodys_22)" "(let-values() null)" "(let-values()" -"(loop_128" +"(loop_131" " #t" "(add-post-expansion-scope" " bodys_22" @@ -71527,30 +71985,30 @@ static const char *startup_source = "(let-values(((rest-bodys_1)(cdr bodys_21)))" "(let-values((()" "(begin" -"(let-values(((obs_137)" +"(let-values(((obs_136)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_137" +"(if obs_136" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_137" +" obs_136" " 'next)))" "(void)))" "(values))))" "(let-values(((exp-body_7)" "(let-values()" -"(let-values(((temp457_0)" +"(let-values(((temp458_0)" "(car bodys_21))" -"((partial-body-ctx458_0)" +"((partial-body-ctx459_0)" " partial-body-ctx_1))" "(expand7.1" " #f" " #f" " #f" " #f" -" temp457_0" -" partial-body-ctx458_0)))))" +" temp458_0" +" partial-body-ctx459_0)))))" "(let-values(((disarmed-exp-body_1)" "(syntax-disarm$1 exp-body_7)))" "(let-values(((lifted-defns_0)" @@ -71566,14 +72024,14 @@ static const char *startup_source = " exp-body_7" " rest-bodys_1))" "(void))" -"(let-values(((obs_138)" +"(let-values(((obs_137)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_138" +"(if obs_137" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_138" +" obs_137" " 'rename-one" " exp-body_7)))" "(void)))" @@ -71581,23 +72039,23 @@ static const char *startup_source = "(lambda()" "(begin" " 'finish" -"(let-values(((tmp_64)" +"(let-values(((tmp_65)" "(core-form-sym" " disarmed-exp-body_1" -" phase_154)))" +" phase_156)))" "(if(equal?" -" tmp_64" +" tmp_65" " 'begin)" "(let-values()" -"(let-values(((ok?_75" -" begin459_0" -" e460_0)" +"(let-values(((ok?_76" +" begin460_0" +" e461_0)" "(let-values(((s_761)" " disarmed-exp-body_1))" "(let-values(((orig-s_81)" " s_761))" -"(let-values(((begin459_1" -" e460_1)" +"(let-values(((begin460_1" +" e461_1)" "(let-values(((s_762)" "(if(syntax?$1" " s_761)" @@ -71606,12 +72064,12 @@ static const char *startup_source = " s_761)))" "(if(pair?" " s_762)" -"(let-values(((begin461_0)" +"(let-values(((begin462_0)" "(let-values(((s_763)" "(car" " s_762)))" " s_763))" -"((e462_0)" +"((e463_0)" "(let-values(((s_764)" "(cdr" " s_762)))" @@ -71621,29 +72079,29 @@ static const char *startup_source = "(syntax-e$1" " s_764)" " s_764)))" -"(let-values(((flat-s_53)" +"(let-values(((flat-s_54)" "(to-syntax-list.1" " s_765)))" "(if(not" -" flat-s_53)" +" flat-s_54)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_81))" "(let-values()" -" flat-s_53)))))))" +" flat-s_54)))))))" "(values" -" begin461_0" -" e462_0))" +" begin462_0" +" e463_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_81)))))" "(values" " #t" -" begin459_1" -" e460_1))))))" +" begin460_1" +" e461_1))))))" "(let-values(((track_1)" "(lambda(e_91)" "(begin" @@ -71655,9 +72113,60 @@ static const char *startup_source = "(append" "(map2" " track_1" -" e460_0)" +" e461_0)" " rest-bodys_1)))" "(begin" +"(let-values(((obs_95)" +"(expand-context-observer" +" partial-body-ctx_1)))" +"(if obs_95" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_95" +" 'splice" +" spliced-bodys_0)))" +"(void)))" +"(loop_131" +" tail?_53" +" spliced-bodys_0))))))" +"(if(equal?" +" tmp_65" +" 'begin-for-syntax)" +"(let-values()" +"(let-values((()" +"(begin" +"(let-values(((obs_138)" +"(expand-context-observer" +" partial-body-ctx_1)))" +"(if obs_138" +"(let-values()" +"(let-values()" +"(begin" +"(call-expand-observe" +" obs_138" +" 'enter-prim" +" exp-body_7)" +"(call-expand-observe" +" obs_138" +" 'prim-begin-for-syntax)" +"(call-expand-observe" +" obs_138" +" 'prepare-env))))" +"(void)))" +"(values))))" +"(let-values(((ct-m-ns_0)" +"(namespace->namespace-at-phase" +" m-ns_20" +"(add1" +" phase_156))))" +"(let-values((()" +"(begin" +"(prepare-next-phase-namespace" +" partial-body-ctx_1)" +"(values))))" +"(let-values((()" +"(begin" "(let-values(((obs_139)" "(expand-context-observer" " partial-body-ctx_1)))" @@ -71666,69 +72175,18 @@ static const char *startup_source = "(let-values()" "(call-expand-observe" " obs_139" -" 'splice" -" spliced-bodys_0)))" -"(void)))" -"(loop_128" -" tail?_53" -" spliced-bodys_0))))))" -"(if(equal?" -" tmp_64" -" 'begin-for-syntax)" -"(let-values()" -"(let-values((()" -"(begin" -"(let-values(((obs_140)" -"(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_140" -"(let-values()" -"(let-values()" -"(begin" -"(call-expand-observe" -" obs_140" -" 'enter-prim" -" exp-body_7)" -"(call-expand-observe" -" obs_140" -" 'prim-begin-for-syntax)" -"(call-expand-observe" -" obs_140" -" 'prepare-env))))" -"(void)))" -"(values))))" -"(let-values(((ct-m-ns_0)" -"(namespace->namespace-at-phase" -" m-ns_20" -"(add1" -" phase_154))))" -"(let-values((()" -"(begin" -"(prepare-next-phase-namespace" -" partial-body-ctx_1)" -"(values))))" -"(let-values((()" -"(begin" -"(let-values(((obs_141)" -"(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_141" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_141" " 'phase-up)))" "(void)))" "(values))))" -"(let-values(((ok?_76" -" begin-for-syntax463_0" -" e464_0)" +"(let-values(((ok?_77" +" begin-for-syntax464_0" +" e465_0)" "(let-values(((s_766)" " disarmed-exp-body_1))" "(let-values(((orig-s_82)" " s_766))" -"(let-values(((begin-for-syntax463_1" -" e464_1)" +"(let-values(((begin-for-syntax464_1" +" e465_1)" "(let-values(((s_767)" "(if(syntax?$1" " s_766)" @@ -71737,12 +72195,12 @@ static const char *startup_source = " s_766)))" "(if(pair?" " s_767)" -"(let-values(((begin-for-syntax465_0)" +"(let-values(((begin-for-syntax466_0)" "(let-values(((s_768)" "(car" " s_767)))" " s_768))" -"((e466_0)" +"((e467_0)" "(let-values(((s_769)" "(cdr" " s_767)))" @@ -71752,71 +72210,71 @@ static const char *startup_source = "(syntax-e$1" " s_769)" " s_769)))" -"(let-values(((flat-s_54)" +"(let-values(((flat-s_55)" "(to-syntax-list.1" " s_770)))" "(if(not" -" flat-s_54)" +" flat-s_55)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_82))" "(let-values()" -" flat-s_54)))))))" +" flat-s_55)))))))" "(values" -" begin-for-syntax465_0" -" e466_0))" +" begin-for-syntax466_0" +" e467_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_82)))))" "(values" " #t" -" begin-for-syntax463_1" -" e464_1))))))" +" begin-for-syntax464_1" +" e465_1))))))" "(let-values(((nested-bodys_1)" "(pass-1-and-2-loop_1" -" e464_0" +" e465_0" "(add1" -" phase_154))))" +" phase_156))))" "(begin" -"(let-values(((obs_142)" +"(let-values(((obs_140)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_142" +"(if obs_140" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_142" +" obs_140" " 'next-group)))" "(void)))" "(namespace-run-available-modules!" " m-ns_20" "(add1" -" phase_154))" +" phase_156))" "(eval-nested-bodys" " nested-bodys_1" "(add1" -" phase_154)" +" phase_156)" " ct-m-ns_0" -" self_32" +" self_35" " partial-body-ctx_1)" "(namespace-visit-available-modules!" " m-ns_20" -" phase_154)" -"(let-values(((obs_143)" +" phase_156)" +"(let-values(((obs_141)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_143" +"(if obs_141" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_143" +" obs_141" " 'exit-prim" "(let-values(((s-nested-bodys_0)" "(reverse$1" -"(let-values(((lst_47)" +"(let-values(((lst_256)" " nested-bodys_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -71824,46 +72282,46 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_47)))" -"((letrec-values(((for-loop_311)" -"(lambda(fold-var_351" -" lst_411)" +" lst_256)))" +"((letrec-values(((for-loop_143)" +"(lambda(fold-var_354" +" lst_412)" "(begin" " 'for-loop" "(if(pair?" -" lst_411)" +" lst_412)" "(let-values(((nested-body_0)" "(unsafe-car" -" lst_411))" -"((rest_246)" +" lst_412))" +"((rest_247)" "(unsafe-cdr" -" lst_411)))" -"(let-values(((fold-var_124)" +" lst_412)))" "(let-values(((fold-var_125)" -" fold-var_351))" -"(let-values(((fold-var_356)" +"(let-values(((fold-var_358)" +" fold-var_354))" +"(let-values(((fold-var_359)" "(let-values()" "(cons" "(let-values()" "(extract-syntax" " nested-body_0))" -" fold-var_125))))" +" fold-var_358))))" "(values" -" fold-var_356)))))" +" fold-var_359)))))" "(if(not" " #f)" -"(for-loop_311" -" fold-var_124" -" rest_246)" -" fold-var_124)))" -" fold-var_351)))))" -" for-loop_311)" +"(for-loop_143" +" fold-var_125" +" rest_247)" +" fold-var_125)))" +" fold-var_354)))))" +" for-loop_143)" " null" -" lst_47))))))" +" lst_256))))))" "(datum->syntax$1" " #f" "(cons" -" begin-for-syntax463_0" +" begin-for-syntax464_0" " s-nested-bodys_0)" " exp-body_7)))))" "(void)))" @@ -71871,42 +72329,42 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax3.1" " exp-body_7" " nested-bodys_1)" -"(loop_128" +"(loop_131" " tail?_53" " rest-bodys_1))))))))))" "(if(equal?" -" tmp_64" +" tmp_65" " 'define-values)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_144)" +"(let-values(((obs_142)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_144" +"(if obs_142" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_144" +" obs_142" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_144" +" obs_142" " 'prim-define-values))))" "(void)))" "(values))))" -"(let-values(((ok?_77" -" define-values467_0" -" id468_0" -" rhs469_0)" +"(let-values(((ok?_78" +" define-values468_0" +" id469_0" +" rhs470_0)" "(let-values(((s_771)" " disarmed-exp-body_1))" "(let-values(((orig-s_83)" " s_771))" -"(let-values(((define-values467_1" -" id468_1" -" rhs469_1)" +"(let-values(((define-values468_1" +" id469_1" +" rhs470_1)" "(let-values(((s_772)" "(if(syntax?$1" " s_771)" @@ -71915,39 +72373,39 @@ static const char *startup_source = " s_771)))" "(if(pair?" " s_772)" -"(let-values(((define-values470_0)" +"(let-values(((define-values471_0)" "(let-values(((s_773)" "(car" " s_772)))" " s_773))" -"((id471_0" -" rhs472_0)" -"(let-values(((s_774)" +"((id472_0" +" rhs473_0)" +"(let-values(((s_531)" "(cdr" " s_772)))" -"(let-values(((s_531)" +"(let-values(((s_774)" "(if(syntax?$1" -" s_774)" -"(syntax-e$1" -" s_774)" -" s_774)))" -"(if(pair?" " s_531)" -"(let-values(((id473_0)" -"(let-values(((s_532)" -"(car" -" s_531)))" -"(let-values(((s_533)" -"(if(syntax?$1" -" s_532)" "(syntax-e$1" -" s_532)" -" s_532)))" -"(let-values(((flat-s_55)" -"(to-syntax-list.1" +" s_531)" +" s_531)))" +"(if(pair?" +" s_774)" +"(let-values(((id474_0)" +"(let-values(((s_533)" +"(car" +" s_774)))" +"(let-values(((s_534)" +"(if(syntax?$1" +" s_533)" +"(syntax-e$1" +" s_533)" " s_533)))" +"(let-values(((flat-s_39)" +"(to-syntax-list.1" +" s_534)))" "(if(not" -" flat-s_55)" +" flat-s_39)" "(let-values()" "(raise-syntax-error$1" " #f" @@ -71955,44 +72413,44 @@ static const char *startup_source = " orig-s_83))" "(let-values()" "(let-values(((id_144)" -"(let-values(((lst_412)" -" flat-s_55))" +"(let-values(((lst_413)" +" flat-s_39))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_412)))" +" lst_413)))" "((letrec-values(((for-loop_312)" "(lambda(id_145" -" lst_413)" +" lst_414)" "(begin" " 'for-loop" "(if(pair?" -" lst_413)" +" lst_414)" "(let-values(((s_775)" "(unsafe-car" -" lst_413))" -"((rest_247)" +" lst_414))" +"((rest_248)" "(unsafe-cdr" -" lst_413)))" +" lst_414)))" "(let-values(((id_146)" "(let-values(((id_147)" " id_145))" "(let-values(((id_148)" "(let-values()" -"(let-values(((id483_0)" +"(let-values(((id484_0)" "(let-values()" -"(if(let-values(((or-part_396)" +"(if(let-values(((or-part_402)" "(if(syntax?$1" " s_775)" "(symbol?" "(syntax-e$1" " s_775))" " #f)))" -"(if or-part_396" -" or-part_396" +"(if or-part_402" +" or-part_402" "(symbol?" " s_775)))" " s_775" @@ -72002,7 +72460,7 @@ static const char *startup_source = " orig-s_83" " s_775)))))" "(cons" -" id483_0" +" id484_0" " id_147)))))" "(values" " id_148)))))" @@ -72010,18 +72468,18 @@ static const char *startup_source = " #f)" "(for-loop_312" " id_146" -" rest_247)" +" rest_248)" " id_146)))" " id_145)))))" " for-loop_312)" " null" -" lst_412)))))" +" lst_413)))))" "(reverse$1" " id_144))))))))" -"((rhs474_0)" +"((rhs475_0)" "(let-values(((s_776)" "(cdr" -" s_531)))" +" s_774)))" "(let-values(((s_777)" "(if(syntax?$1" " s_776)" @@ -72030,21 +72488,21 @@ static const char *startup_source = " s_776)))" "(if(pair?" " s_777)" -"(let-values(((rhs475_0)" -"(let-values(((s_778)" +"(let-values(((rhs476_0)" +"(let-values(((s_190)" "(car" " s_777)))" -" s_778))" +" s_190))" "(()" -"(let-values(((s_190)" +"(let-values(((s_778)" "(cdr" " s_777)))" "(let-values(((s_779)" "(if(syntax?$1" -" s_190)" +" s_778)" "(syntax-e$1" -" s_190)" -" s_190)))" +" s_778)" +" s_778)))" "(if(null?" " s_779)" "(values)" @@ -72053,104 +72511,104 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_83))))))" "(values" -" rhs475_0))" +" rhs476_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_83))))))" "(values" -" id473_0" -" rhs474_0))" +" id474_0" +" rhs475_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_83))))))" "(values" -" define-values470_0" -" id471_0" -" rhs472_0))" +" define-values471_0" +" id472_0" +" rhs473_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_83)))))" "(values" " #t" -" define-values467_1" -" id468_1" -" rhs469_1))))))" +" define-values468_1" +" id469_1" +" rhs470_1))))))" "(let-values(((ids_39)" "(remove-use-site-scopes" -" id468_0" +" id469_0" " partial-body-ctx_1)))" "(let-values((()" "(begin" -"(let-values(((ids476_0)" +"(let-values(((ids477_0)" " ids_39)" -"((phase477_0)" -" phase_154)" -"((exp-body478_0)" +"((phase478_0)" +" phase_156)" +"((exp-body479_0)" " exp-body_7))" "(check-no-duplicate-ids8.1" " #f" " #f" -" ids476_0" -" phase477_0" -" exp-body478_0" +" ids477_0" +" phase478_0" +" exp-body479_0" " #f" " #f))" "(values))))" "(let-values((()" "(begin" -"(let-values(((exp-body482_0)" +"(let-values(((exp-body483_0)" " exp-body_7))" "(check-ids-unbound173.1" -" exp-body482_0" +" exp-body483_0" " ids_39" -" phase_154" +" phase_156" " requires+provides_7))" "(values))))" "(let-values(((syms_24)" -"(let-values(((frame-id489_0)" +"(let-values(((frame-id490_0)" " frame-id_17)" -"((requires+provides490_0)" +"((requires+provides491_0)" " requires+provides_7)" -"((exp-body491_0)" +"((exp-body492_0)" " exp-body_7))" "(select-defined-syms-and-bind!16.1" " #f" " #f" -" frame-id489_0" -" exp-body491_0" +" frame-id490_0" +" exp-body492_0" " #t" -" requires+provides490_0" +" requires+provides491_0" " #t" " #f" " #f" " ids_39" " defined-syms_11" -" self_32" -" phase_154" +" self_35" +" phase_156" " all-scopes-stx_5))))" "(begin" "(add-defined-syms!" " requires+provides_7" " syms_24" -" phase_154)" -"(let-values(((obs_145)" +" phase_156)" +"(let-values(((obs_98)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_145" +"(if obs_98" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_145" +" obs_98" " 'exit-prim" "(datum->syntax$1" " #f" "(list" -" define-values467_0" +" define-values468_0" " ids_39" -" rhs469_0)" +" rhs470_0)" " exp-body_7))))" "(void)))" "(cons" @@ -72158,32 +72616,32 @@ static const char *startup_source = " exp-body_7" " syms_24" " ids_39" -" rhs469_0)" -"(loop_128" +" rhs470_0)" +"(loop_131" " tail?_53" " rest-bodys_1))))))))))" "(if(equal?" -" tmp_64" +" tmp_65" " 'define-syntaxes)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_146)" +"(let-values(((obs_143)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_146" +"(if obs_143" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_146" +" obs_143" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_146" +" obs_143" " 'prim-define-syntaxes)" "(call-expand-observe" -" obs_146" +" obs_143" " 'prepare-env))))" "(void)))" "(values))))" @@ -72194,69 +72652,69 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_147)" +"(let-values(((obs_144)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_147" +"(if obs_144" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_147" +" obs_144" " 'phase-up)))" "(void)))" "(values))))" -"(let-values(((ok?_78" -" define-syntaxes492_0" -" id493_0" -" rhs494_0)" +"(let-values(((ok?_79" +" define-syntaxes493_0" +" id494_0" +" rhs495_0)" "(let-values(((s_780)" " disarmed-exp-body_1))" "(let-values(((orig-s_84)" " s_780))" -"(let-values(((define-syntaxes492_1" -" id493_1" -" rhs494_1)" -"(let-values(((s_781)" +"(let-values(((define-syntaxes493_1" +" id494_1" +" rhs495_1)" +"(let-values(((s_540)" "(if(syntax?$1" " s_780)" "(syntax-e$1" " s_780)" " s_780)))" "(if(pair?" -" s_781)" -"(let-values(((define-syntaxes495_0)" -"(let-values(((s_782)" -"(car" -" s_781)))" -" s_782))" -"((id496_0" -" rhs497_0)" +" s_540)" +"(let-values(((define-syntaxes496_0)" "(let-values(((s_541)" +"(car" +" s_540)))" +" s_541))" +"((id497_0" +" rhs498_0)" +"(let-values(((s_781)" "(cdr" +" s_540)))" +"(let-values(((s_782)" +"(if(syntax?$1" +" s_781)" +"(syntax-e$1" +" s_781)" " s_781)))" +"(if(pair?" +" s_782)" +"(let-values(((id499_0)" +"(let-values(((s_544)" +"(car" +" s_782)))" "(let-values(((s_783)" "(if(syntax?$1" -" s_541)" +" s_544)" "(syntax-e$1" -" s_541)" -" s_541)))" -"(if(pair?" -" s_783)" -"(let-values(((id498_0)" -"(let-values(((s_543)" -"(car" -" s_783)))" -"(let-values(((s_544)" -"(if(syntax?$1" -" s_543)" -"(syntax-e$1" -" s_543)" -" s_543)))" -"(let-values(((flat-s_40)" -"(to-syntax-list.1" +" s_544)" " s_544)))" +"(let-values(((flat-s_56)" +"(to-syntax-list.1" +" s_783)))" "(if(not" -" flat-s_40)" +" flat-s_56)" "(let-values()" "(raise-syntax-error$1" " #f" @@ -72264,44 +72722,44 @@ static const char *startup_source = " orig-s_84))" "(let-values()" "(let-values(((id_149)" -"(let-values(((lst_414)" -" flat-s_40))" +"(let-values(((lst_66)" +" flat-s_56))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_414)))" -"((letrec-values(((for-loop_313)" +" lst_66)))" +"((letrec-values(((for-loop_86)" "(lambda(id_150" -" lst_415)" +" lst_67)" "(begin" " 'for-loop" "(if(pair?" -" lst_415)" +" lst_67)" "(let-values(((s_784)" "(unsafe-car" -" lst_415))" -"((rest_248)" +" lst_67))" +"((rest_30)" "(unsafe-cdr" -" lst_415)))" +" lst_67)))" "(let-values(((id_151)" "(let-values(((id_152)" " id_150))" "(let-values(((id_153)" "(let-values()" -"(let-values(((id508_0)" +"(let-values(((id509_0)" "(let-values()" -"(if(let-values(((or-part_397)" +"(if(let-values(((or-part_403)" "(if(syntax?$1" " s_784)" "(symbol?" "(syntax-e$1" " s_784))" " #f)))" -"(if or-part_397" -" or-part_397" +"(if or-part_403" +" or-part_403" "(symbol?" " s_784)))" " s_784" @@ -72311,26 +72769,26 @@ static const char *startup_source = " orig-s_84" " s_784)))))" "(cons" -" id508_0" +" id509_0" " id_152)))))" "(values" " id_153)))))" "(if(not" " #f)" -"(for-loop_313" +"(for-loop_86" " id_151" -" rest_248)" +" rest_30)" " id_151)))" " id_150)))))" -" for-loop_313)" +" for-loop_86)" " null" -" lst_414)))))" +" lst_66)))))" "(reverse$1" " id_149))))))))" -"((rhs499_0)" +"((rhs500_0)" "(let-values(((s_785)" "(cdr" -" s_783)))" +" s_782)))" "(let-values(((s_786)" "(if(syntax?$1" " s_785)" @@ -72339,7 +72797,7 @@ static const char *startup_source = " s_785)))" "(if(pair?" " s_786)" -"(let-values(((rhs500_0)" +"(let-values(((rhs501_0)" "(let-values(((s_787)" "(car" " s_786)))" @@ -72362,219 +72820,221 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_84))))))" "(values" -" rhs500_0))" +" rhs501_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_84))))))" "(values" -" id498_0" -" rhs499_0))" +" id499_0" +" rhs500_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_84))))))" "(values" -" define-syntaxes495_0" -" id496_0" -" rhs497_0))" +" define-syntaxes496_0" +" id497_0" +" rhs498_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_84)))))" "(values" " #t" -" define-syntaxes492_1" -" id493_1" -" rhs494_1))))))" +" define-syntaxes493_1" +" id494_1" +" rhs495_1))))))" "(let-values(((ids_40)" "(remove-use-site-scopes" -" id493_0" +" id494_0" " partial-body-ctx_1)))" "(let-values((()" "(begin" -"(let-values(((ids501_0)" +"(let-values(((ids502_0)" " ids_40)" -"((phase502_0)" -" phase_154)" -"((exp-body503_0)" +"((phase503_0)" +" phase_156)" +"((exp-body504_0)" " exp-body_7))" "(check-no-duplicate-ids8.1" " #f" " #f" -" ids501_0" -" phase502_0" -" exp-body503_0" +" ids502_0" +" phase503_0" +" exp-body504_0" " #f" " #f))" "(values))))" "(let-values((()" "(begin" -"(let-values(((exp-body507_0)" +"(let-values(((exp-body508_0)" " exp-body_7))" "(check-ids-unbound173.1" -" exp-body507_0" +" exp-body508_0" " ids_40" -" phase_154" +" phase_156" " requires+provides_7))" "(values))))" "(let-values(((syms_25)" -"(let-values(((frame-id514_0)" +"(let-values(((frame-id515_0)" " frame-id_17)" -"((requires+provides515_0)" +"((requires+provides516_0)" " requires+provides_7)" -"((exp-body516_0)" +"((exp-body517_0)" " exp-body_7)" -"((temp517_0)" +"((temp518_0)" " #t))" "(select-defined-syms-and-bind!16.1" -" temp517_0" +" temp518_0" " #t" -" frame-id514_0" -" exp-body516_0" +" frame-id515_0" +" exp-body517_0" " #t" -" requires+provides515_0" +" requires+provides516_0" " #t" " #f" " #f" " ids_40" " defined-syms_11" -" self_32" -" phase_154" +" self_35" +" phase_156" " all-scopes-stx_5))))" "(let-values((()" "(begin" "(add-defined-syms!" " requires+provides_7" " syms_25" -" phase_154)" +" phase_156)" "(values))))" "(let-values(((exp-rhs_6" " parsed-rhs_2" " vals_10)" -"(let-values(((temp518_0)" -" rhs494_0)" -"((ids519_0)" +"(let-values(((temp519_0)" +" rhs495_0)" +"((ids520_0)" " ids_40)" -"((temp520_0)" -"(let-values(((v_258)" +"((temp521_0)" +"(let-values(((v_260)" " partial-body-ctx_1))" -"(let-values(((the-struct_112)" -" v_258))" +"(let-values(((the-struct_115)" +" v_260))" "(if(expand-context/outer?" -" the-struct_112)" -"(let-values(((need-eventually-defined522_0)" +" the-struct_115)" +"(let-values(((need-eventually-defined523_0)" " need-eventually-defined_2)" -"((inner523_0)" -"(let-values(((the-struct_113)" +"((inner524_0)" +"(let-values(((the-struct_116)" "(root-expand-context/outer-inner" -" v_258)))" +" v_260)))" "(if(expand-context/inner?" -" the-struct_113)" -"(let-values(((lifts524_0)" +" the-struct_116)" +"(let-values(((lifts525_0)" " #f)" -"((module-lifts525_0)" +"((module-lifts526_0)" " #f)" -"((to-module-lifts526_0)" +"((to-module-lifts527_0)" " #f))" "(expand-context/inner2.1" +"(root-expand-context/inner-self-mpi" +" the-struct_116)" "(root-expand-context/inner-module-scopes" -" the-struct_113)" +" the-struct_116)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_113)" +" the-struct_116)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_113)" +" the-struct_116)" "(root-expand-context/inner-defined-syms" -" the-struct_113)" +" the-struct_116)" "(root-expand-context/inner-counter" -" the-struct_113)" +" the-struct_116)" "(root-expand-context/inner-lift-key" -" the-struct_113)" +" the-struct_116)" "(expand-context/inner-to-parsed?" -" the-struct_113)" +" the-struct_116)" "(expand-context/inner-phase" -" the-struct_113)" +" the-struct_116)" "(expand-context/inner-namespace" -" the-struct_113)" +" the-struct_116)" "(expand-context/inner-just-once?" -" the-struct_113)" +" the-struct_116)" "(expand-context/inner-module-begin-k" -" the-struct_113)" +" the-struct_116)" "(expand-context/inner-allow-unbound?" -" the-struct_113)" +" the-struct_116)" "(expand-context/inner-in-local-expand?" -" the-struct_113)" +" the-struct_116)" "(expand-context/inner-stops" -" the-struct_113)" +" the-struct_116)" "(expand-context/inner-declared-submodule-names" -" the-struct_113)" -" lifts524_0" +" the-struct_116)" +" lifts525_0" "(expand-context/inner-lift-envs" -" the-struct_113)" -" module-lifts525_0" +" the-struct_116)" +" module-lifts526_0" "(expand-context/inner-require-lifts" -" the-struct_113)" -" to-module-lifts526_0" +" the-struct_116)" +" to-module-lifts527_0" "(expand-context/inner-requires+provides" -" the-struct_113)" +" the-struct_116)" "(expand-context/inner-observer" -" the-struct_113)" +" the-struct_116)" "(expand-context/inner-for-serializable?" -" the-struct_113)" +" the-struct_116)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_113)))" +" the-struct_116)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_113)))))" +" the-struct_116)))))" "(expand-context/outer1.1" -" inner523_0" +" inner524_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_112)" +" the-struct_115)" "(root-expand-context/outer-use-site-scopes" -" the-struct_112)" +" the-struct_115)" "(root-expand-context/outer-frame-id" -" the-struct_112)" +" the-struct_115)" "(expand-context/outer-context" -" the-struct_112)" +" the-struct_115)" "(expand-context/outer-env" -" the-struct_112)" +" the-struct_115)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_112)" +" the-struct_115)" "(expand-context/outer-scopes" -" the-struct_112)" +" the-struct_115)" "(expand-context/outer-def-ctx-scopes" -" the-struct_112)" +" the-struct_115)" "(expand-context/outer-binding-layer" -" the-struct_112)" +" the-struct_115)" "(expand-context/outer-reference-records" -" the-struct_112)" +" the-struct_115)" "(expand-context/outer-only-immediate?" -" the-struct_112)" -" need-eventually-defined522_0" +" the-struct_115)" +" need-eventually-defined523_0" "(expand-context/outer-current-introduction-scopes" -" the-struct_112)" +" the-struct_115)" "(expand-context/outer-name" -" the-struct_112)))" +" the-struct_115)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_112)))))" -"((temp521_0)" +" the-struct_115)))))" +"((temp522_0)" " #f))" "(expand+eval-for-syntaxes-binding63.1" -" temp521_0" +" temp522_0" " #t" -" temp518_0" -" ids519_0" -" temp520_0))))" +" temp519_0" +" ids520_0" +" temp521_0))))" "(let-values((()" "(begin" -"(let-values(((lst_416)" +"(let-values(((lst_415)" " syms_25)" -"((lst_417)" +"((lst_416)" " vals_10)" -"((lst_418)" +"((lst_417)" " ids_40))" "(begin" "(if(variable-reference-from-unsafe?" @@ -72582,6 +73042,12 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" +" lst_415)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" " lst_416)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -72589,44 +73055,38 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_417)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_418)))" -"((letrec-values(((for-loop_314)" -"(lambda(lst_419" -" lst_420" -" lst_421)" +"((letrec-values(((for-loop_313)" +"(lambda(lst_418" +" lst_419" +" lst_420)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_419)" +" lst_418)" "(if(pair?" -" lst_420)" +" lst_419)" "(pair?" -" lst_421)" +" lst_420)" " #f)" " #f)" -"(let-values(((sym_105)" +"(let-values(((sym_106)" "(unsafe-car" -" lst_419))" +" lst_418))" "((rest_249)" "(unsafe-cdr" -" lst_419))" +" lst_418))" "((val_86)" "(unsafe-car" -" lst_420))" +" lst_419))" "((rest_250)" "(unsafe-cdr" -" lst_420))" +" lst_419))" "((id_154)" "(unsafe-car" -" lst_421))" +" lst_420))" "((rest_251)" "(unsafe-cdr" -" lst_421)))" +" lst_420)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -72637,44 +73097,44 @@ static const char *startup_source = "(maybe-install-free=id-in-context!" " val_86" " id_154" -" phase_154" +" phase_156" " partial-body-ctx_1)" "(namespace-set-transformer!" " m-ns_20" -" phase_154" -" sym_105" +" phase_156" +" sym_106" " val_86)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_314" +"(for-loop_313" " rest_249" " rest_250" " rest_251)" "(values))))" "(values))))))" -" for-loop_314)" +" for-loop_313)" +" lst_415" " lst_416" -" lst_417" -" lst_418)))" +" lst_417)))" "(values))))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_103)" +"(let-values(((obs_145)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_103" +"(if obs_145" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_103" +" obs_145" " 'exit-prim" "(datum->syntax$1" " #f" "(list" -" define-syntaxes492_0" +" define-syntaxes493_0" " ids_40" " exp-rhs_6)))))" "(void)))" @@ -72691,28 +73151,218 @@ static const char *startup_source = " partial-body-ctx_1)" " parsed-body_0" "(expanded+parsed1.1" -"(let-values(((exp-body527_0)" +"(let-values(((exp-body528_0)" " exp-body_7)" -"((temp528_0)" +"((temp529_0)" "(list" -" define-syntaxes492_0" +" define-syntaxes493_0" " ids_40" " exp-rhs_6)))" "(rebuild5.1" " #f" " #f" -" exp-body527_0" -" temp528_0))" +" exp-body528_0" +" temp529_0))" " parsed-body_0))" -"(loop_128" +"(loop_131" " tail?_53" " rest-bodys_1)))))))))))))))))" "(if(equal?" -" tmp_64" +" tmp_65" " '#%require)" "(let-values()" "(let-values((()" "(begin" +"(let-values(((obs_146)" +"(expand-context-observer" +" partial-body-ctx_1)))" +"(if obs_146" +"(let-values()" +"(let-values()" +"(begin" +"(call-expand-observe" +" obs_146" +" 'enter-prim" +" exp-body_7)" +"(call-expand-observe" +" obs_146" +" 'prim-require))))" +"(void)))" +"(values))))" +"(let-values(((ready-body_0)" +"(remove-use-site-scopes" +" disarmed-exp-body_1" +" partial-body-ctx_1)))" +"(let-values(((ok?_80" +" #%require530_0" +" req531_0)" +"(let-values(((s_790)" +" ready-body_0))" +"(let-values(((orig-s_85)" +" s_790))" +"(let-values(((#%require530_1" +" req531_1)" +"(let-values(((s_791)" +"(if(syntax?$1" +" s_790)" +"(syntax-e$1" +" s_790)" +" s_790)))" +"(if(pair?" +" s_791)" +"(let-values(((#%require532_0)" +"(let-values(((s_792)" +"(car" +" s_791)))" +" s_792))" +"((req533_0)" +"(let-values(((s_793)" +"(cdr" +" s_791)))" +"(let-values(((s_794)" +"(if(syntax?$1" +" s_793)" +"(syntax-e$1" +" s_793)" +" s_793)))" +"(let-values(((flat-s_57)" +"(to-syntax-list.1" +" s_794)))" +"(if(not" +" flat-s_57)" +"(let-values()" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_85))" +"(let-values()" +" flat-s_57)))))))" +"(values" +" #%require532_0" +" req533_0))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_85)))))" +"(values" +" #t" +" #%require530_1" +" req531_1))))))" +"(begin" +"(let-values(((temp534_0)" +" req531_0)" +"((exp-body535_0)" +" exp-body_7)" +"((self536_0)" +" self_35)" +"((m-ns537_0)" +" m-ns_20)" +"((phase538_0)" +" phase_156)" +"((phase539_0)" +" phase_156)" +"((requires+provides540_0)" +" requires+provides_7)" +"((declared-submodule-names541_0)" +" declared-submodule-names_4)" +"((temp542_0)" +" 'module))" +"(parse-and-perform-requires!30.1" +" #f" +" #f" +" #f" +" #f" +" declared-submodule-names541_0" +" #t" +" #f" +" #f" +" phase539_0" +" #t" +" #f" +" #f" +" self536_0" +" #t" +" #f" +" #f" +" #f" +" #f" +" temp542_0" +" temp534_0" +" exp-body535_0" +" m-ns537_0" +" phase538_0" +" requires+provides540_0))" +"(let-values(((obs_147)" +"(expand-context-observer" +" partial-body-ctx_1)))" +"(if obs_147" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_147" +" 'exit-prim" +" ready-body_0)))" +"(void)))" +"(cons" +" exp-body_7" +"(loop_131" +" tail?_53" +" rest-bodys_1)))))))" +"(if(equal?" +" tmp_65" +" '#%provide)" +"(let-values()" +"(cons" +" exp-body_7" +"(loop_131" +" tail?_53" +" rest-bodys_1)))" +"(if(equal?" +" tmp_65" +" 'module)" +"(let-values()" +"(let-values(((ready-body_1)" +"(remove-use-site-scopes" +" exp-body_7" +" partial-body-ctx_1)))" +"(let-values(((submod_2)" +"(let-values(((temp546_0)" +" #f)" +"((declared-submodule-names547_0)" +" declared-submodule-names_4)" +"((mpis-to-reset548_0)" +" mpis-to-reset_1)" +"((compiled-submodules549_0)" +" compiled-submodules_2)" +"((modules-being-compiled550_0)" +" modules-being-compiled_4))" +"(expand-submodule197.1" +" compiled-submodules549_0" +" declared-submodule-names547_0" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" temp546_0" +" #f" +" #f" +" modules-being-compiled550_0" +" mpis-to-reset548_0" +" ready-body_1" +" self_35" +" partial-body-ctx_1))))" +"(cons" +" submod_2" +"(loop_131" +" tail?_53" +" rest-bodys_1)))))" +"(if(equal?" +" tmp_65" +" 'module*)" +"(let-values()" +"(begin" "(let-values(((obs_148)" "(expand-context-observer" " partial-body-ctx_1)))" @@ -72726,289 +73376,99 @@ static const char *startup_source = " exp-body_7)" "(call-expand-observe" " obs_148" -" 'prim-require))))" -"(void)))" -"(values))))" -"(let-values(((ready-body_0)" -"(remove-use-site-scopes" -" disarmed-exp-body_1" -" partial-body-ctx_1)))" -"(let-values(((ok?_79" -" #%require529_0" -" req530_0)" -"(let-values(((s_790)" -" ready-body_0))" -"(let-values(((orig-s_85)" -" s_790))" -"(let-values(((#%require529_1" -" req530_1)" -"(let-values(((s_791)" -"(if(syntax?$1" -" s_790)" -"(syntax-e$1" -" s_790)" -" s_790)))" -"(if(pair?" -" s_791)" -"(let-values(((#%require531_0)" -"(let-values(((s_792)" -"(car" -" s_791)))" -" s_792))" -"((req532_0)" -"(let-values(((s_793)" -"(cdr" -" s_791)))" -"(let-values(((s_794)" -"(if(syntax?$1" -" s_793)" -"(syntax-e$1" -" s_793)" -" s_793)))" -"(let-values(((flat-s_56)" -"(to-syntax-list.1" -" s_794)))" -"(if(not" -" flat-s_56)" -"(let-values()" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_85))" -"(let-values()" -" flat-s_56)))))))" -"(values" -" #%require531_0" -" req532_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_85)))))" -"(values" -" #t" -" #%require529_1" -" req530_1))))))" -"(begin" -"(let-values(((temp533_0)" -" req530_0)" -"((exp-body534_0)" -" exp-body_7)" -"((self535_0)" -" self_32)" -"((m-ns536_0)" -" m-ns_20)" -"((phase537_0)" -" phase_154)" -"((phase538_0)" -" phase_154)" -"((requires+provides539_0)" -" requires+provides_7)" -"((declared-submodule-names540_0)" -" declared-submodule-names_4)" -"((temp541_0)" -" 'module))" -"(parse-and-perform-requires!30.1" -" #f" -" #f" -" #f" -" #f" -" declared-submodule-names540_0" -" #t" -" #f" -" #f" -" phase538_0" -" #t" -" #f" -" #f" -" self535_0" -" #t" -" #f" -" #f" -" #f" -" #f" -" temp541_0" -" temp533_0" -" exp-body534_0" -" m-ns536_0" -" phase537_0" -" requires+provides539_0))" -"(let-values(((obs_149)" -"(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_149" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_149" -" 'exit-prim" -" ready-body_0)))" -"(void)))" -"(cons" -" exp-body_7" -"(loop_128" -" tail?_53" -" rest-bodys_1)))))))" -"(if(equal?" -" tmp_64" -" '#%provide)" -"(let-values()" -"(cons" -" exp-body_7" -"(loop_128" -" tail?_53" -" rest-bodys_1)))" -"(if(equal?" -" tmp_64" -" 'module)" -"(let-values()" -"(let-values(((ready-body_1)" -"(remove-use-site-scopes" -" exp-body_7" -" partial-body-ctx_1)))" -"(let-values(((submod_2)" -"(let-values(((temp545_0)" -" #f)" -"((declared-submodule-names546_0)" -" declared-submodule-names_4)" -"((mpis-to-reset547_0)" -" mpis-to-reset_1)" -"((compiled-submodules548_0)" -" compiled-submodules_2)" -"((modules-being-compiled549_0)" -" modules-being-compiled_4))" -"(expand-submodule197.1" -" compiled-submodules548_0" -" declared-submodule-names546_0" -" #f" -" #f" -" #f" -" #f" -" #f" -" #f" -" temp545_0" -" #f" -" #f" -" modules-being-compiled549_0" -" mpis-to-reset547_0" -" ready-body_1" -" self_32" -" partial-body-ctx_1))))" -"(cons" -" submod_2" -"(loop_128" -" tail?_53" -" rest-bodys_1)))))" -"(if(equal?" -" tmp_64" -" 'module*)" -"(let-values()" -"(begin" -"(let-values(((obs_150)" -"(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_150" -"(let-values()" -"(let-values()" -"(begin" -"(call-expand-observe" -" obs_150" -" 'enter-prim" -" exp-body_7)" -"(call-expand-observe" -" obs_150" " 'prim-submodule*)" "(call-expand-observe" -" obs_150" +" obs_148" " 'exit-prim" " exp-body_7))))" "(void)))" "(cons" " exp-body_7" -"(loop_128" +"(loop_131" " tail?_53" " rest-bodys_1))))" "(if(equal?" -" tmp_64" +" tmp_65" " '#%declare)" "(let-values()" -"(let-values(((ok?_80" -" #%declare550_0" -" kw551_0)" +"(let-values(((ok?_81" +" #%declare551_0" +" kw552_0)" "(let-values(((s_795)" " disarmed-exp-body_1))" "(let-values(((orig-s_86)" " s_795))" -"(let-values(((#%declare550_1" -" kw551_1)" -"(let-values(((s_570)" +"(let-values(((#%declare551_1" +" kw552_1)" +"(let-values(((s_796)" "(if(syntax?$1" " s_795)" "(syntax-e$1" " s_795)" " s_795)))" "(if(pair?" -" s_570)" -"(let-values(((#%declare552_0)" -"(let-values(((s_572)" -"(car" -" s_570)))" -" s_572))" -"((kw553_0)" +" s_796)" +"(let-values(((#%declare553_0)" "(let-values(((s_573)" -"(cdr" -" s_570)))" +"(car" +" s_796)))" +" s_573))" +"((kw554_0)" "(let-values(((s_574)" +"(cdr" +" s_796)))" +"(let-values(((s_575)" "(if(syntax?$1" -" s_573)" +" s_574)" "(syntax-e$1" -" s_573)" -" s_573)))" -"(let-values(((flat-s_57)" -"(to-syntax-list.1" +" s_574)" " s_574)))" +"(let-values(((flat-s_58)" +"(to-syntax-list.1" +" s_575)))" "(if(not" -" flat-s_57)" +" flat-s_58)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_86))" "(let-values()" -" flat-s_57)))))))" +" flat-s_58)))))))" "(values" -" #%declare552_0" -" kw553_0))" +" #%declare553_0" +" kw554_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_86)))))" "(values" " #t" -" #%declare550_1" -" kw551_1))))))" +" #%declare551_1" +" kw552_1))))))" "(let-values((()" "(begin" -"(let-values(((lst_422)" -" kw551_0))" +"(let-values(((lst_421)" +" kw552_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_422)))" -"((letrec-values(((for-loop_315)" -"(lambda(lst_423)" +" lst_421)))" +"((letrec-values(((for-loop_314)" +"(lambda(lst_422)" "(begin" " 'for-loop" "(if(pair?" -" lst_423)" -"(let-values(((kw_1)" +" lst_422)" +"(let-values(((kw_2)" "(unsafe-car" -" lst_423))" +" lst_422))" "((rest_252)" "(unsafe-cdr" -" lst_423)))" +" lst_422)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -73018,17 +73478,17 @@ static const char *startup_source = "(begin" "(if(keyword?" "(syntax-e$1" -" kw_1))" +" kw_2))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"expected a keyword\"" " exp-body_7" -" kw_1)))" +" kw_2)))" "(if(memq" "(syntax-e$1" -" kw_1)" +" kw_2)" " '(#:cross-phase-persistent" " #:empty-namespace))" "(void)" @@ -73037,34 +73497,34 @@ static const char *startup_source = " #f" " \"not an allowed declaration keyword\"" " exp-body_7" -" kw_1)))" +" kw_2)))" "(if(hash-ref" " declared-keywords_1" "(syntax-e$1" -" kw_1)" +" kw_2)" " #f)" "(let-values()" "(raise-syntax-error$1" " #f" " \"keyword declared multiple times\"" " exp-body_7" -" kw_1))" +" kw_2))" "(void))" "(hash-set!" " declared-keywords_1" "(syntax-e$1" -" kw_1)" -" kw_1)))" +" kw_2)" +" kw_2)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_315" +"(for-loop_314" " rest_252)" "(values))))" "(values))))))" -" for-loop_315)" -" lst_422)))" +" for-loop_314)" +" lst_421)))" "(values))))" "(let-values()" "(let-values(((parsed-body_1)" @@ -73077,13 +73537,13 @@ static const char *startup_source = "(expanded+parsed1.1" " exp-body_7" " parsed-body_1))" -"(loop_128" +"(loop_131" " tail?_53" " rest-bodys_1)))))))" "(let-values()" "(cons" " exp-body_7" -"(loop_128" +"(loop_131" " tail?_53" " rest-bodys_1)))))))))))))))))" "(let-values(((l_84)" @@ -73092,7 +73552,7 @@ static const char *startup_source = "(expand-context-require-lifts" " partial-body-ctx_1))" " lifted-defns_0" -"(loop_128" +"(loop_131" " #f" "(add-post-expansion-scope" "(get-and-clear-module-lifts!" @@ -73104,100 +73564,100 @@ static const char *startup_source = "(append" " l_84" "(finish_2)))))))))))))))))" -" loop_128)" +" loop_131)" " #t" " bodys_20))))))))))))))))))))))" "(define-values" "(make-wrap-as-definition)" -"(lambda(self_33 frame-id_18 inside-scope_2 all-scopes-stx_6 defined-syms_12 requires+provides_8)" +"(lambda(self_36 frame-id_18 inside-scope_2 all-scopes-stx_6 defined-syms_12 requires+provides_8)" "(begin" -"(lambda(ids_41 rhs_23 phase_155)" +"(lambda(ids_41 rhs_23 phase_157)" "(let-values(((scoped-ids_0)" "(reverse$1" -"(let-values(((lst_424) ids_41))" +"(let-values(((lst_423) ids_41))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_424)))" -"((letrec-values(((for-loop_316)" -"(lambda(fold-var_357 lst_425)" +"(let-values()(check-list lst_423)))" +"((letrec-values(((for-loop_315)" +"(lambda(fold-var_360 lst_424)" "(begin" " 'for-loop" -"(if(pair? lst_425)" -"(let-values(((id_155)(unsafe-car lst_425))" -"((rest_253)(unsafe-cdr lst_425)))" -"(let-values(((fold-var_358)" -"(let-values(((fold-var_359) fold-var_357))" -"(let-values(((fold-var_360)" +"(if(pair? lst_424)" +"(let-values(((id_155)(unsafe-car lst_424))" +"((rest_253)(unsafe-cdr lst_424)))" +"(let-values(((fold-var_361)" +"(let-values(((fold-var_362) fold-var_360))" +"(let-values(((fold-var_363)" "(let-values()" "(cons" "(let-values()" "(add-scope" " id_155" " inside-scope_2))" -" fold-var_359))))" -"(values fold-var_360)))))" -"(if(not #f)(for-loop_316 fold-var_358 rest_253) fold-var_358)))" -" fold-var_357)))))" -" for-loop_316)" +" fold-var_362))))" +"(values fold-var_363)))))" +"(if(not #f)(for-loop_315 fold-var_361 rest_253) fold-var_361)))" +" fold-var_360)))))" +" for-loop_315)" " null" -" lst_424))))))" +" lst_423))))))" "(let-values(((syms_26)" -"(let-values(((frame-id559_0) frame-id_18)((requires+provides560_0) requires+provides_8))" +"(let-values(((frame-id560_0) frame-id_18)((requires+provides561_0) requires+provides_8))" "(select-defined-syms-and-bind!16.1" " #f" " #f" -" frame-id559_0" +" frame-id560_0" " #f" " #f" -" requires+provides560_0" +" requires+provides561_0" " #t" " #f" " #f" " scoped-ids_0" " defined-syms_12" -" self_33" -" phase_155" +" self_36" +" phase_157" " all-scopes-stx_6))))" -"(let-values(((s_796)" +"(let-values(((s_797)" "(add-scope" "(datum->syntax$1" " #f" "(list" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_155) 'define-values)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_157) 'define-values)" " scoped-ids_0" " rhs_23))" " inside-scope_2)))" -"(values scoped-ids_0(semi-parsed-define-values2.1 s_796 syms_26 scoped-ids_0 rhs_23)))))))))" +"(values scoped-ids_0(semi-parsed-define-values2.1 s_797 syms_26 scoped-ids_0 rhs_23)))))))))" "(define-values" "(add-post-expansion-scope)" -"(lambda(bodys_23 ctx_113)" +"(lambda(bodys_23 ctx_114)" "(begin" -"(let-values(((sc_34)(root-expand-context-post-expansion-scope ctx_113)))" +"(let-values(((sc_34)(root-expand-context-post-expansion-scope ctx_114)))" "(if sc_34" "(reverse$1" -"(let-values(((lst_426) bodys_23))" +"(let-values(((lst_425) bodys_23))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_426)))" -"((letrec-values(((for-loop_317)" -"(lambda(fold-var_361 lst_427)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_425)))" +"((letrec-values(((for-loop_316)" +"(lambda(fold-var_364 lst_426)" "(begin" " 'for-loop" -"(if(pair? lst_427)" -"(let-values(((body_23)(unsafe-car lst_427))((rest_254)(unsafe-cdr lst_427)))" -"(let-values(((fold-var_362)" -"(let-values(((fold-var_363) fold-var_361))" -"(let-values(((fold-var_364)" +"(if(pair? lst_426)" +"(let-values(((body_23)(unsafe-car lst_426))((rest_254)(unsafe-cdr lst_426)))" +"(let-values(((fold-var_365)" +"(let-values(((fold-var_366) fold-var_364))" +"(let-values(((fold-var_367)" "(let-values()" "(cons" "(let-values()(add-scope body_23 sc_34))" -" fold-var_363))))" -"(values fold-var_364)))))" -"(if(not #f)(for-loop_317 fold-var_362 rest_254) fold-var_362)))" -" fold-var_361)))))" -" for-loop_317)" +" fold-var_366))))" +"(values fold-var_367)))))" +"(if(not #f)(for-loop_316 fold-var_365 rest_254) fold-var_365)))" +" fold-var_364)))))" +" for-loop_316)" " null" -" lst_426))))" +" lst_425))))" " bodys_23)))))" "(define-values" "(finish-expanding-body-expressons99.1)" @@ -73212,29 +73672,29 @@ static const char *startup_source = "(begin" " 'finish-expanding-body-expressons99" "(let-values(((partially-expanded-bodys_1) partially-expanded-bodys98_0))" -"(let-values(((phase_156) phase84_0))" +"(let-values(((phase_158) phase84_0))" "(let-values(((body-ctx_7) ctx85_0))" -"(let-values(((self_34) self86_0))" +"(let-values(((self_37) self86_0))" "(let-values(((declared-submodule-names_5) declared-submodule-names87_0))" "(let-values(((compiled-submodules_3) compiled-submodules88_0))" "(let-values(((modules-being-compiled_5) modules-being-compiled89_0))" "(let-values(((mpis-to-reset_2) mpis-to-reset90_0))" "(let-values()" -"((letrec-values(((loop_129)" +"((letrec-values(((loop_132)" "(lambda(tail?_54 bodys_24)" "(begin" " 'loop" "(if(null? bodys_24)" "(let-values()" -"(if(if tail?_54(not(zero? phase_156)) #f)" +"(if(if tail?_54(not(zero? phase_158)) #f)" "(let-values()" "(begin" -"(let-values(((obs_151)(expand-context-observer body-ctx_7)))" -"(if obs_151" +"(let-values(((obs_149)(expand-context-observer body-ctx_7)))" +"(if obs_149" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_151" +" obs_149" " 'module-lift-end-loop" " '())))" "(void)))" @@ -73250,44 +73710,44 @@ static const char *startup_source = "(if(null? bodys_25)" "(let-values()" "(begin" -"(let-values(((obs_152)" +"(let-values(((obs_150)" "(expand-context-observer body-ctx_7)))" -"(if obs_152" +"(if obs_150" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_152" +" obs_150" " 'module-lift-end-loop" " '())))" "(void)))" " null))" "(let-values()" -"(loop_129" +"(loop_132" " #t" "(add-post-expansion-scope bodys_25 body-ctx_7))))))" "(let-values() null))))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_153)" +"(let-values(((obs_151)" "(expand-context-observer body-ctx_7)))" -"(if obs_153" +"(if obs_151" "(let-values()" "(let-values()" -"(call-expand-observe obs_153 'next)))" +"(call-expand-observe obs_151 'next)))" "(void)))" "(values))))" "(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_398)" +"(if(let-values(((or-part_404)" "(parsed? body_24)))" -"(if or-part_398" -" or-part_398" -"(let-values(((or-part_399)" +"(if or-part_404" +" or-part_404" +"(let-values(((or-part_405)" "(expanded+parsed? body_24)))" -"(if or-part_399" -" or-part_399" +"(if or-part_405" +" or-part_405" "(semi-parsed-begin-for-syntax?" " body_24)))))" "(let-values() body_24)" @@ -73304,134 +73764,134 @@ static const char *startup_source = "(let-values(((syms_27)" "(semi-parsed-define-values-syms" " body_24)))" -"(let-values(((s_300)" +"(let-values(((s_301)" "(semi-parsed-define-values-s" " body_24)))" -"(let-values(((ok?_81" -" define-values561_0" -" _562_0" -" _563_0)" -"(let-values(((s_797)" +"(let-values(((ok?_82" +" define-values562_0" +" _563_0" +" _564_0)" +"(let-values(((s_798)" "(syntax-disarm$1" -" s_300)))" +" s_301)))" "(if(if(not" "(expand-context-to-parsed?" " rhs-ctx_2))" " #t" " #f)" "(let-values(((orig-s_87)" -" s_797))" -"(let-values(((define-values561_1" -" _562_1" -" _563_1)" -"(let-values(((s_798)" -"(if(syntax?$1" -" s_797)" -"(syntax-e$1" -" s_797)" -" s_797)))" -"(if(pair?" -" s_798)" -"(let-values(((define-values564_0)" +" s_798))" +"(let-values(((define-values562_1" +" _563_1" +" _564_1)" "(let-values(((s_799)" -"(car" +"(if(syntax?$1" +" s_798)" +"(syntax-e$1" +" s_798)" " s_798)))" -" s_799))" -"((_565_0" -" _566_0)" +"(if(pair?" +" s_799)" +"(let-values(((define-values565_0)" "(let-values(((s_800)" -"(cdr" -" s_798)))" +"(car" +" s_799)))" +" s_800))" +"((_566_0" +" _567_0)" "(let-values(((s_801)" -"(if(syntax?$1" -" s_800)" -"(syntax-e$1" -" s_800)" -" s_800)))" -"(if(pair?" -" s_801)" -"(let-values(((_567_0)" +"(cdr" +" s_799)))" "(let-values(((s_802)" -"(car" -" s_801)))" -" s_802))" -"((_568_0)" -"(let-values(((s_803)" -"(cdr" -" s_801)))" -"(let-values(((s_804)" "(if(syntax?$1" -" s_803)" +" s_801)" "(syntax-e$1" -" s_803)" -" s_803)))" +" s_801)" +" s_801)))" "(if(pair?" -" s_804)" -"(let-values(((_569_0)" -"(let-values(((s_805)" +" s_802)" +"(let-values(((_568_0)" +"(let-values(((s_803)" "(car" -" s_804)))" -" s_805))" -"(()" -"(let-values(((s_806)" +" s_802)))" +" s_803))" +"((_569_0)" +"(let-values(((s_804)" "(cdr" -" s_804)))" -"(let-values(((s_807)" +" s_802)))" +"(let-values(((s_805)" "(if(syntax?$1" -" s_806)" +" s_804)" "(syntax-e$1" -" s_806)" -" s_806)))" -"(if(null?" +" s_804)" +" s_804)))" +"(if(pair?" +" s_805)" +"(let-values(((_570_0)" +"(let-values(((s_806)" +"(car" +" s_805)))" +" s_806))" +"(()" +"(let-values(((s_807)" +"(cdr" +" s_805)))" +"(let-values(((s_808)" +"(if(syntax?$1" " s_807)" +"(syntax-e$1" +" s_807)" +" s_807)))" +"(if(null?" +" s_808)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_87))))))" "(values" -" _569_0))" +" _570_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_87))))))" "(values" -" _567_0" -" _568_0))" +" _568_0" +" _569_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_87))))))" "(values" -" define-values564_0" -" _565_0" -" _566_0))" +" define-values565_0" +" _566_0" +" _567_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_87)))))" "(values" " #t" -" define-values561_1" -" _562_1" -" _563_1)))" +" define-values562_1" +" _563_1" +" _564_1)))" "(values" " #f" " #f" " #f" " #f)))))" "(let-values(((rebuild-s_15)" -"(let-values(((temp572_0)" +"(let-values(((temp573_0)" " #t))" "(keep-as-needed74.1" " #f" " #f" " #f" " #f" -" temp572_0" +" temp573_0" " #t" " rhs-ctx_2" -" s_300))))" +" s_301))))" "(let-values((()" "(begin" "(log-defn-enter" @@ -73440,18 +73900,18 @@ static const char *startup_source = "(values))))" "(let-values(((exp-rhs_7)" "(let-values()" -"(let-values(((temp573_0)" +"(let-values(((temp574_0)" "(semi-parsed-define-values-rhs" " body_24))" -"((rhs-ctx574_0)" +"((rhs-ctx575_0)" " rhs-ctx_2))" "(expand7.1" " #f" " #f" " #f" " #f" -" temp573_0" -" rhs-ctx574_0)))))" +" temp574_0" +" rhs-ctx575_0)))))" "(let-values((()" "(begin" "(log-defn-exit" @@ -73467,9 +73927,9 @@ static const char *startup_source = "(if(expand-context-to-parsed?" " rhs-ctx_2)" " exp-rhs_7" -"(let-values(((exp-rhs575_0)" +"(let-values(((exp-rhs576_0)" " exp-rhs_7)" -"((temp576_0)" +"((temp577_0)" "(as-to-parsed-context" " rhs-ctx_2)))" "(expand7.1" @@ -73477,44 +73937,44 @@ static const char *startup_source = " #f" " #f" " #f" -" exp-rhs575_0" -" temp576_0))))))" +" exp-rhs576_0" +" temp577_0))))))" "(if(expand-context-to-parsed?" " rhs-ctx_2)" " comp-form_0" "(expanded+parsed1.1" -"(let-values(((rebuild-s577_0)" +"(let-values(((rebuild-s578_0)" " rebuild-s_15)" -"((temp578_0)" +"((temp579_0)" "(list" -" define-values561_0" +" define-values562_0" " ids_42" " exp-rhs_7)))" "(rebuild5.1" " #f" " #f" -" rebuild-s577_0" -" temp578_0))" +" rebuild-s578_0" +" temp579_0))" " comp-form_0)))))))))))))" "(let-values()" "(let-values(((disarmed-body_0)" "(syntax-disarm$1 body_24)))" -"(let-values(((tmp_65)" +"(let-values(((tmp_66)" "(core-form-sym" " disarmed-body_0" -" phase_156)))" -"(if(if(equal? tmp_65 '#%require)" +" phase_158)))" +"(if(if(equal? tmp_66 '#%require)" " #t" -"(if(equal? tmp_65 '#%provide)" +"(if(equal? tmp_66 '#%provide)" " #t" -"(equal? tmp_65 'module*)))" +"(equal? tmp_66 'module*)))" "(let-values() body_24)" "(let-values()" "(let-values()" "(let-values(((exp-body_9)" -"(let-values(((body579_0)" +"(let-values(((body580_0)" " body_24)" -"((temp580_0)" +"((temp581_0)" "(as-expression-context" " body-ctx_7)))" "(expand7.1" @@ -73522,16 +73982,16 @@ static const char *startup_source = " #f" " #f" " #f" -" body579_0" -" temp580_0))))" +" body580_0" +" temp581_0))))" "(if(expand-context-to-parsed?" " body-ctx_7)" " exp-body_9" "(expanded+parsed1.1" " exp-body_9" -"(let-values(((exp-body581_0)" +"(let-values(((exp-body582_0)" " exp-body_9)" -"((temp582_0)" +"((temp583_0)" "(as-to-parsed-context" " body-ctx_7)))" "(expand7.1" @@ -73539,8 +73999,8 @@ static const char *startup_source = " #f" " #f" " #f" -" exp-body581_0" -" temp582_0)))))))))))))))" +" exp-body582_0" +" temp583_0)))))))))))))))" "(let-values(((lifted-defns_1)" "(get-and-clear-lifts!" "(expand-context-lifts body-ctx_7))))" @@ -73561,14 +74021,14 @@ static const char *startup_source = "(if no-lifts?_0" "(void)" "(let-values()" -"(let-values(((obs_108)" +"(let-values(((obs_152)" "(expand-context-observer" " body-ctx_7)))" -"(if obs_108" +"(if obs_152" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_108" +" obs_152" " 'module-lift-loop" "(append" " lifted-requires_0" @@ -73580,37 +74040,37 @@ static const char *startup_source = "(void)))))" "(values))))" "(let-values(((exp-lifted-modules_0)" -"(let-values(((mpis-to-reset587_0)" +"(let-values(((mpis-to-reset588_0)" " mpis-to-reset_2)" -"((declared-submodule-names588_0)" +"((declared-submodule-names589_0)" " declared-submodule-names_5)" -"((compiled-submodules589_0)" +"((compiled-submodules590_0)" " compiled-submodules_3)" -"((modules-being-compiled590_0)" +"((modules-being-compiled591_0)" " modules-being-compiled_5))" "(expand-non-module*-submodules212.1" -" compiled-submodules589_0" -" declared-submodule-names588_0" -" modules-being-compiled590_0" -" mpis-to-reset587_0" +" compiled-submodules590_0" +" declared-submodule-names589_0" +" modules-being-compiled591_0" +" mpis-to-reset588_0" " lifted-modules_0" -" phase_156" -" self_34" +" phase_158" +" self_37" " body-ctx_7))))" "(let-values(((exp-lifted-defns_0)" -"(loop_129 #f lifted-defns_1)))" +"(loop_132 #f lifted-defns_1)))" "(begin" "(if no-lifts?_0" "(void)" "(let-values()" -"(let-values(((obs_154)" +"(let-values(((obs_153)" "(expand-context-observer" " body-ctx_7)))" -"(if obs_154" +"(if obs_153" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_154" +" obs_153" " 'next)))" "(void)))))" "(append" @@ -73619,26 +74079,26 @@ static const char *startup_source = " exp-lifted-modules_0" "(cons" " exp-body_8" -"(loop_129" +"(loop_132" " tail?_54" " rest-bodys_2)))))))))))))))))))))" -" loop_129)" +" loop_132)" " #t" " partially-expanded-bodys_1)))))))))))))" "(define-values" "(check-defined-by-now)" -"(lambda(need-eventually-defined_3 self_35 ctx_114)" +"(lambda(need-eventually-defined_3 self_38 ctx_115)" "(begin" "(begin" -"(let-values(((ht_164) need-eventually-defined_3))" +"(let-values(((ht_166) need-eventually-defined_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_164)))" -"((letrec-values(((for-loop_318)" -"(lambda(i_195)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_166)))" +"((letrec-values(((for-loop_317)" +"(lambda(i_196)" "(begin" " 'for-loop" -"(if i_195" -"(let-values(((phase_157 l_85)(hash-iterate-key+value ht_164 i_195)))" +"(if i_196" +"(let-values(((phase_159 l_85)(hash-iterate-key+value ht_166 i_196)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -73646,24 +74106,24 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_428) l_85))" +"(let-values(((lst_427) l_85))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_428)))" -"((letrec-values(((for-loop_319)" -"(lambda(lst_429)" +"(let-values()(check-list lst_427)))" +"((letrec-values(((for-loop_318)" +"(lambda(lst_428)" "(begin" " 'for-loop" "(if(pair?" -" lst_429)" +" lst_428)" "(let-values(((id_156)" "(unsafe-car" -" lst_429))" +" lst_428))" "((rest_255)" "(unsafe-cdr" -" lst_429)))" +" lst_428)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -73671,10 +74131,10 @@ static const char *startup_source = "(begin" "(let-values()" "(let-values(((b_93)" -"(let-values(((id591_0)" +"(let-values(((id592_0)" " id_156)" -"((phase592_0)" -" phase_157))" +"((phase593_0)" +" phase_159))" "(resolve+shift30.1" " #f" " #f" @@ -73686,8 +74146,8 @@ static const char *startup_source = " #f" " #f" " #f" -" id591_0" -" phase592_0))))" +" id592_0" +" phase593_0))))" "(if(if b_93" "(if(module-binding?" " b_93)" @@ -73699,7 +74159,7 @@ static const char *startup_source = "(eq?" "(module-binding-module" " b_93)" -" self_35)" +" self_38)" " #f)" " #f)" " #f)" @@ -73713,23 +74173,23 @@ static const char *startup_source = " null" "(syntax-debug-info-string" " id_156" -" ctx_114))))))" +" ctx_115))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_319" +"(for-loop_318" " rest_255)" "(values))))" "(values))))))" -" for-loop_319)" -" lst_428)))" +" for-loop_318)" +" lst_427)))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_318(hash-iterate-next ht_164 i_195))(values))))" +"(if(not #f)(for-loop_317(hash-iterate-next ht_166 i_196))(values))))" "(values))))))" -" for-loop_318)" -"(hash-iterate-first ht_164))))" +" for-loop_317)" +"(hash-iterate-first ht_166))))" "(void)))))" "(define-values" "(resolve-provides115.1)" @@ -73746,1180 +74206,146 @@ 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_158) phase105_0))" -"(let-values(((self_36) self106_0))" -"(let-values(((ctx_115) ctx107_1))" +"(let-values(((phase_160) phase105_0))" +"(let-values(((self_39) self106_0))" +"(let-values(((ctx_116) ctx107_1))" "(let-values()" "(let-values()" -"((letrec-values(((loop_130)" -"(lambda(bodys_26 phase_159)" +"((letrec-values(((loop_133)" +"(lambda(bodys_26 phase_161)" "(begin" " 'loop" "(if(null? bodys_26)" "(let-values() null)" -"(if(let-values(((or-part_400)(parsed?(car bodys_26))))" -"(if or-part_400 or-part_400(expanded+parsed?(car bodys_26))))" +"(if(let-values(((or-part_406)(parsed?(car bodys_26))))" +"(if or-part_406 or-part_406(expanded+parsed?(car bodys_26))))" "(let-values()" -"(cons(car bodys_26)(loop_130(cdr bodys_26) phase_159)))" +"(cons(car bodys_26)(loop_133(cdr bodys_26) phase_161)))" "(if(semi-parsed-begin-for-syntax?(car bodys_26))" "(let-values()" "(let-values(((nested-bodys_2)" -"(loop_130" +"(loop_133" "(semi-parsed-begin-for-syntax-body(car bodys_26))" -"(add1 phase_159))))" +"(add1 phase_161))))" "(cons" -"(let-values(((the-struct_114)(car bodys_26)))" -"(if(semi-parsed-begin-for-syntax? the-struct_114)" -"(let-values(((body593_0) nested-bodys_2))" +"(let-values(((the-struct_117)(car bodys_26)))" +"(if(semi-parsed-begin-for-syntax? the-struct_117)" +"(let-values(((body594_0) nested-bodys_2))" "(semi-parsed-begin-for-syntax3.1" -"(semi-parsed-begin-for-syntax-s the-struct_114)" -" body593_0))" +"(semi-parsed-begin-for-syntax-s the-struct_117)" +" body594_0))" "(raise-argument-error" " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" -" the-struct_114)))" -"(loop_130(cdr bodys_26) phase_159))))" +" the-struct_117)))" +"(loop_133(cdr bodys_26) phase_161))))" "(let-values()" "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))" -"(let-values(((tmp_66)" -"(core-form-sym disarmed-body_1 phase_159)))" -"(if(equal? tmp_66 '#%provide)" +"(let-values(((tmp_67)" +"(core-form-sym disarmed-body_1 phase_161)))" +"(if(equal? tmp_67 '#%provide)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_155)" +"(let-values(((obs_114)" "(expand-context-observer" -" ctx_115)))" -"(if obs_155" +" ctx_116)))" +"(if obs_114" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_155" +" obs_114" " 'enter-prim" "(car bodys_26))" "(call-expand-observe" -" obs_155" +" obs_114" " 'prim-provide))))" "(void)))" "(values))))" -"(let-values(((ok?_82 #%provide594_0 spec595_0)" -"(let-values(((s_808) disarmed-body_1))" -"(let-values(((orig-s_88) s_808))" -"(let-values(((#%provide594_1" -" spec595_1)" -"(let-values(((s_809)" -"(if(syntax?$1" -" s_808)" -"(syntax-e$1" -" s_808)" -" s_808)))" -"(if(pair? s_809)" -"(let-values(((#%provide596_0)" +"(let-values(((ok?_83 #%provide595_0 spec596_0)" +"(let-values(((s_809) disarmed-body_1))" +"(let-values(((orig-s_88) s_809))" +"(let-values(((#%provide595_1" +" spec596_1)" "(let-values(((s_810)" -"(car" -" s_809)))" -" s_810))" -"((spec597_0)" -"(let-values(((s_811)" -"(cdr" -" s_809)))" -"(let-values(((s_812)" "(if(syntax?$1" -" s_811)" +" s_809)" "(syntax-e$1" -" s_811)" -" s_811)))" -"(let-values(((flat-s_58)" -"(to-syntax-list.1" +" s_809)" +" s_809)))" +"(if(pair? s_810)" +"(let-values(((#%provide597_0)" +"(let-values(((s_811)" +"(car" +" s_810)))" +" s_811))" +"((spec598_0)" +"(let-values(((s_812)" +"(cdr" +" s_810)))" +"(let-values(((s_813)" +"(if(syntax?$1" +" s_812)" +"(syntax-e$1" +" s_812)" " s_812)))" +"(let-values(((flat-s_59)" +"(to-syntax-list.1" +" s_813)))" "(if(not" -" flat-s_58)" +" flat-s_59)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_88))" "(let-values()" -" flat-s_58)))))))" +" flat-s_59)))))))" "(values" -" #%provide596_0" -" spec597_0))" +" #%provide597_0" +" spec598_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_88)))))" "(values" " #t" -" #%provide594_1" -" spec595_1))))))" +" #%provide595_1" +" spec596_1))))))" "(let-values(((track-stxes_10 specs_2)" "(parse-and-expand-provides!" -" spec595_0" +" spec596_0" "(car bodys_26)" " requires+provides_9" -" self_36" -" phase_159" -"(let-values(((v_259) ctx_115))" -"(let-values(((the-struct_115)" -" v_259))" +" self_39" +" phase_161" +"(let-values(((v_261) ctx_116))" +"(let-values(((the-struct_118)" +" v_261))" "(if(expand-context/outer?" -" the-struct_115)" -"(let-values(((context598_0)" +" the-struct_118)" +"(let-values(((context599_0)" " 'top-level)" -"((inner599_0)" -"(let-values(((the-struct_116)" -"(root-expand-context/outer-inner" -" v_259)))" -"(if(expand-context/inner?" -" the-struct_116)" -"(let-values(((phase600_0)" -" phase_159)" -"((namespace601_0)" -"(namespace->namespace-at-phase" -" m-ns_21" -" phase_159))" -"((requires+provides602_0)" -" requires+provides_9)" -"((declared-submodule-names603_0)" -" declared-submodule-names_6))" -"(expand-context/inner2.1" -"(root-expand-context/inner-module-scopes" -" the-struct_116)" -"(root-expand-context/inner-top-level-bind-scope" -" the-struct_116)" -"(root-expand-context/inner-all-scopes-stx" -" the-struct_116)" -"(root-expand-context/inner-defined-syms" -" the-struct_116)" -"(root-expand-context/inner-counter" -" the-struct_116)" -"(root-expand-context/inner-lift-key" -" the-struct_116)" -"(expand-context/inner-to-parsed?" -" the-struct_116)" -" phase600_0" -" namespace601_0" -"(expand-context/inner-just-once?" -" the-struct_116)" -"(expand-context/inner-module-begin-k" -" the-struct_116)" -"(expand-context/inner-allow-unbound?" -" the-struct_116)" -"(expand-context/inner-in-local-expand?" -" the-struct_116)" -"(expand-context/inner-stops" -" the-struct_116)" -" declared-submodule-names603_0" -"(expand-context/inner-lifts" -" the-struct_116)" -"(expand-context/inner-lift-envs" -" the-struct_116)" -"(expand-context/inner-module-lifts" -" the-struct_116)" -"(expand-context/inner-require-lifts" -" the-struct_116)" -"(expand-context/inner-to-module-lifts" -" the-struct_116)" -" requires+provides602_0" -"(expand-context/inner-observer" -" the-struct_116)" -"(expand-context/inner-for-serializable?" -" the-struct_116)" -"(expand-context/inner-should-not-encounter-macros?" -" the-struct_116)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_116)))))" -"(expand-context/outer1.1" -" inner599_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)" -" context598_0" -"(expand-context/outer-env" -" the-struct_115)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_115)" -"(expand-context/outer-scopes" -" the-struct_115)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_115)" -"(expand-context/outer-binding-layer" -" the-struct_115)" -"(expand-context/outer-reference-records" -" the-struct_115)" -"(expand-context/outer-only-immediate?" -" the-struct_115)" -"(expand-context/outer-need-eventually-defined" -" the-struct_115)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_115)" -"(expand-context/outer-name" -" the-struct_115)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/outer?\"" -" the-struct_115)))))))" -"(if(expand-context-to-parsed? ctx_115)" -"(let-values()" -"(loop_130(cdr bodys_26) phase_159))" -"(let-values()" -"(let-values(((new-s_9)" -"(syntax-track-origin*" -" track-stxes_10" -"(let-values(((temp604_0)" -"(car bodys_26))" -"((temp605_0)" -"(list*" -" #%provide594_0" -" specs_2)))" -"(rebuild5.1" -" #f" -" #f" -" temp604_0" -" temp605_0)))))" -"(begin" -"(let-values(((obs_156)" -"(expand-context-observer" -" ctx_115)))" -"(if obs_156" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_156" -" 'exit-prim" -" new-s_9)))" -"(void)))" -"(cons" -" new-s_9" -"(loop_130" -"(cdr bodys_26)" -" phase_159))))))))))" -"(let-values()" -"(cons" -"(car bodys_26)" -"(loop_130(cdr bodys_26) phase_159))))))))))))))" -" loop_130)" -" expression-expanded-bodys_1" -" phase_158)))))))))))))" -"(define-values" -"(declare-module-for-expansion139.1)" -"(lambda(ctx125_0" -" enclosing123_0" -" fill127_0" -" module-name-id118_0" -" modules-being-compiled126_0" -" namespace121_0" -" rebuild-s119_0" -" requires-and-provides120_0" -" root-ctx124_0" -" self122_0" -" fully-expanded-bodys-except-post-submodules138_0)" -"(begin" -" 'declare-module-for-expansion139" -"(let-values(((fully-expanded-bodys-except-post-submodules_1) fully-expanded-bodys-except-post-submodules138_0))" -"(let-values(((module-name-id_0) module-name-id118_0))" -"(let-values(((rebuild-s_16) rebuild-s119_0))" -"(let-values(((requires+provides_10) requires-and-provides120_0))" -"(let-values(((m-ns_22) namespace121_0))" -"(let-values(((self_37) self122_0))" -"(let-values(((enclosing-self_3) enclosing123_0))" -"(let-values(((root-ctx_7) root-ctx124_0))" -"(let-values(((ctx_116) ctx125_0))" -"(let-values(((modules-being-compiled_6) modules-being-compiled126_0))" -"(let-values(((compiled-module-box_1) fill127_0))" -"(let-values()" -"(let-values(((requires_7 provides_14)" -"(extract-requires-and-provides requires+provides_10 self_37 self_37)))" -"(let-values(((parsed-mod_0)" -"(parsed-module25.1" -" rebuild-s_16" -" #f" -" module-name-id_0" -" self_37" -" requires_7" -" provides_14" -"(requires+provides-all-bindings-simple? requires+provides_10)" -"(root-expand-context-encode-for-module root-ctx_7 self_37 self_37)" -"(parsed-only fully-expanded-bodys-except-post-submodules_1)" -" #f" -"(hasheq))))" -"(let-values(((module-name_2)" -"(1/module-path-index-resolve" -"(let-values(((or-part_401) enclosing-self_3))" -"(if or-part_401 or-part_401 self_37)))))" -"(let-values(((compiled-module_0)" -"(let-values(((temp607_0)" -"(let-values(((m-ns611_0) m-ns_22)" -"((enclosing-self612_0) enclosing-self_3)" -"((temp613_0)" -"(if enclosing-self_3" -"(1/resolved-module-path-name" -" module-name_2)" -" #f)))" -"(make-compile-context14.1" -" temp613_0" -" #t" -" #f" -" #f" -" enclosing-self612_0" -" #t" -" m-ns611_0" -" #t" -" #f" -" #f" -" #f" -" #f)))" -"((temp608_0)(expand-context-for-serializable? ctx_116))" -"((modules-being-compiled609_0) modules-being-compiled_6)" -"((temp610_0) #f))" -"(compile-module13.1" -" #f" -" #f" -" modules-being-compiled609_0" -" #t" -" temp610_0" -" #t" -" temp608_0" -" #t" -" #f" -" #f" -" parsed-mod_0" -" temp607_0))))" -"(let-values((()" -"(begin" -"(set-box! compiled-module-box_1 compiled-module_0)" -"(values))))" -"(let-values(((root-module-name_0)" -"(resolved-module-path-root-name module-name_2)))" -"(with-continuation-mark" -" parameterization-key" -"(extend-parameterization" -"(continuation-mark-set-first #f parameterization-key)" -" 1/current-namespace" -" m-ns_22" -" 1/current-module-declare-name" -"(1/make-resolved-module-path root-module-name_0))" -"(let-values()" -"(let-values(((temp615_0) #f))" -"(eval-module8.1" -" #f" -" #f" -" #f" -" #f" -" temp615_0" -" #t" -" compiled-module_0)))))))))))))))))))))))))" -"(define-values" -"(attach-root-expand-context-properties)" -"(lambda(s_813 root-ctx_8 orig-self_1 new-self_2)" -"(begin" -"(let-values(((s_814)" -"(syntax-property$1 s_813 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" -"(let-values(((s_815)" -"(syntax-property$1" -" s_814" -" 'module-body-inside-context" -"(add-scope empty-syntax(root-expand-context-post-expansion-scope root-ctx_8)))))" -" s_815)))))" -"(define-values" -"(expand-post-submodules165.1)" -"(lambda(all-scopes-s147_0" -" compiled-submodules150_0" -" ctx152_0" -" declare-enclosing142_0" -" declared-submodule-names149_0" -" enclosing-is-cross-phase-persistent?146_0" -" modules-being-compiled151_0" -" mpis-to-reset148_0" -" phase143_0" -" requires-and-provides145_0" -" self144_0" -" fully-expanded-bodys-except-post-submodules164_0)" -"(begin" -" '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_160) phase143_0))" -"(let-values(((self_38) 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))" -"(let-values(((all-scopes-s_1) all-scopes-s147_0))" -"(let-values(((mpis-to-reset_3) mpis-to-reset148_0))" -"(let-values(((declared-submodule-names_7) declared-submodule-names149_0))" -"(let-values(((compiled-submodules_4) compiled-submodules150_0))" -"(let-values(((modules-being-compiled_7) modules-being-compiled151_0))" -"(let-values(((submod-ctx_1) ctx152_0))" -"(let-values()" -"((letrec-values(((loop_131)" -"(lambda(bodys_27 phase_161)" -"(begin" -" 'loop" -"(if(null? bodys_27)" -"(let-values() null)" -"(let-values()" -"(let-values(((body_25)(car bodys_27)))" -"(let-values(((rest-bodys_3)(cdr bodys_27)))" -"(if(semi-parsed-begin-for-syntax? body_25)" -"(let-values()" -"(let-values(((body-s_0)" -"(semi-parsed-begin-for-syntax-s" -" body_25)))" -"(let-values(((ok?_83 begin-for-syntax616_0 _617_0)" -"(let-values(((s_816)" -"(syntax-disarm$1" -" body-s_0)))" -"(let-values(((orig-s_89) s_816))" -"(let-values(((begin-for-syntax616_1" -" _617_1)" -"(let-values(((s_817)" -"(if(syntax?$1" -" s_816)" -"(syntax-e$1" -" s_816)" -" s_816)))" -"(if(pair? s_817)" -"(let-values(((begin-for-syntax618_0)" -"(let-values(((s_818)" -"(car" -" s_817)))" -" s_818))" -"((_619_0)" -"(let-values(((s_819)" -"(cdr" -" s_817)))" -"(let-values(((s_820)" -"(if(syntax?$1" -" s_819)" -"(syntax-e$1" -" s_819)" -" s_819)))" -"(let-values(((flat-s_59)" -"(to-syntax-list.1" -" s_820)))" -"(if(not" -" flat-s_59)" -"(let-values()" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_89))" -"(let-values()" -" flat-s_59)))))))" -"(values" -" begin-for-syntax618_0" -" _619_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_89)))))" -"(values" -" #t" -" begin-for-syntax616_1" -" _617_1))))))" -"(let-values(((rebuild-body-s_0)" -"(let-values(((submod-ctx620_0)" -" submod-ctx_1)" -"((body-s621_0)" -" body-s_0))" -"(keep-as-needed74.1" -" #f" -" #f" -" #f" -" #f" -" #f" -" #f" -" submod-ctx620_0" -" body-s621_0))))" -"(let-values(((nested-bodys_3)" -"(loop_131" -"(semi-parsed-begin-for-syntax-body" -" body_25)" -"(add1 phase_161))))" -"(let-values(((parsed-bfs_0)" -"(parsed-begin-for-syntax21.1" -" rebuild-body-s_0" -"(parsed-only nested-bodys_3))))" -"(cons" -"(if(expand-context-to-parsed?" -" submod-ctx_1)" -" parsed-bfs_0" -"(expanded+parsed1.1" -"(let-values(((rebuild-body-s622_0)" -" rebuild-body-s_0)" -"((temp623_0)" -"(list*" -" begin-for-syntax616_0" -"(syntax-only" -" nested-bodys_3))))" -"(rebuild5.1" -" #f" -" #f" -" rebuild-body-s622_0" -" temp623_0))" -" parsed-bfs_0))" -"(loop_131 rest-bodys_3 phase_161))))))))" -"(if(let-values(((or-part_402)(parsed? body_25)))" -"(if or-part_402" -" or-part_402" -"(expanded+parsed? body_25)))" -"(let-values()" -"(cons body_25(loop_131 rest-bodys_3 phase_161)))" -"(let-values()" -"(let-values(((disarmed-body_2)" -"(syntax-disarm$1 body_25)))" -"(let-values(((tmp_67)" -"(core-form-sym" -" disarmed-body_2" -" phase_161)))" -"(if(equal? tmp_67 'module*)" -"(let-values()" -"(let-values((()" -"(begin" -"(force" -" declare-enclosing-module_1)" -"(values))))" -"(let-values(((ready-body_2)" -"(remove-use-site-scopes" -" body_25" -" submod-ctx_1)))" -"(let-values(((ok?_84" -" module*624_0" -" name625_0" -" _626_0)" -"(let-values(((s_678)" -" disarmed-body_2))" -"(if(let-values(((s_821)" -"(if(syntax?$1" -" s_678)" -"(syntax-e$1" -" s_678)" -" s_678)))" -"(if(pair? s_821)" -"(if(let-values(((s_822)" -"(car" -" s_821)))" -" #t)" -"(let-values(((s_823)" -"(cdr" -" s_821)))" -"(let-values(((s_824)" -"(if(syntax?$1" -" s_823)" -"(syntax-e$1" -" s_823)" -" s_823)))" -"(if(pair?" -" s_824)" -"(if(let-values(((s_825)" -"(car" -" s_824)))" -" #t)" -"(let-values(((s_826)" -"(cdr" -" s_824)))" -"(let-values(((s_827)" -"(if(syntax?$1" -" s_826)" -"(syntax-e$1" -" s_826)" -" s_826)))" -"(if(pair?" -" s_827)" -"(if(let-values(((s_679)" -"(car" -" s_827)))" -"(let-values(((s_828)" -"(if(syntax?$1" -" s_679)" -"(syntax-e$1" -" s_679)" -" s_679)))" -"(eq?" -" #f" -" s_828)))" -"(let-values(((s_829)" -"(cdr" -" s_827)))" -" #t)" -" #f)" -" #f)))" -" #f)" -" #f)))" -" #f)" -" #f))" -"(let-values()" -"(let-values(((module*624_1" -" name625_1" -" _626_1)" -"(let-values(((s_830)" -"(if(syntax?$1" -" s_678)" -"(syntax-e$1" -" s_678)" -" s_678)))" -"(let-values(((module*627_0)" -"(let-values(((s_831)" -"(car" -" s_830)))" -" s_831))" -"((name628_0" -" _629_0)" -"(let-values(((s_832)" -"(cdr" -" s_830)))" -"(let-values(((s_833)" -"(if(syntax?$1" -" s_832)" -"(syntax-e$1" -" s_832)" -" s_832)))" -"(let-values(((name630_0)" -"(let-values(((s_834)" -"(car" -" s_833)))" -" s_834))" -"((_631_0)" -"(let-values(((s_835)" -"(cdr" -" s_833)))" -"(let-values(((s_836)" -"(if(syntax?$1" -" s_835)" -"(syntax-e$1" -" s_835)" -" s_835)))" -"(let-values((()" -"(let-values(((s_837)" -"(car" -" s_836)))" -"(let-values(((s_838)" -"(if(syntax?$1" -" s_837)" -"(syntax-e$1" -" s_837)" -" s_837)))" -"(values))))" -"((_632_0)" -"(let-values(((s_839)" -"(cdr" -" s_836)))" -" s_839)))" -"(values" -" _632_0))))))" -"(values" -" name630_0" -" _631_0))))))" -"(values" -" module*627_0" -" name628_0" -" _629_0)))))" -"(values" -" #t" -" module*624_1" -" name625_1" -" _626_1)))" -"(values" -" #f" -" #f" -" #f" -" #f)))))" -"(let-values(((submod_3)" -"(if ok?_84" -"(let-values()" -"(let-values(((neg-phase_0)" -"(phase-" -" 0" -" phase_161)))" -"(let-values(((shifted-s_0)" -"(syntax-shift-phase-level$1" -" ready-body_2" -" neg-phase_0)))" -"(let-values(((submod_4)" -"(let-values(((temp636_0)" -" #t)" -"((neg-phase637_0)" -" neg-phase_0)" -"((all-scopes-s638_0)" -" all-scopes-s_1)" -"((requires+provides639_0)" -" requires+provides_11)" -"((enclosing-is-cross-phase-persistent?640_0)" -" enclosing-is-cross-phase-persistent?_1)" -"((mpis-to-reset641_0)" -" mpis-to-reset_3)" -"((declared-submodule-names642_0)" -" declared-submodule-names_7)" -"((compiled-submodules643_0)" -" compiled-submodules_4)" -"((modules-being-compiled644_0)" -" modules-being-compiled_7))" -"(expand-submodule197.1" -" compiled-submodules643_0" -" declared-submodule-names642_0" -" all-scopes-s638_0" -" #t" -" enclosing-is-cross-phase-persistent?640_0" -" #t" -" requires+provides639_0" -" #t" -" temp636_0" -" neg-phase637_0" -" #t" -" modules-being-compiled644_0" -" mpis-to-reset641_0" -" shifted-s_0" -" self_38" -" submod-ctx_1))))" -"(if(parsed?" -" submod_4)" -"(let-values()" -" submod_4)" -"(if(expanded+parsed?" -" submod_4)" -"(let-values()" -"(let-values(((the-struct_117)" -" submod_4))" -"(if(expanded+parsed?" -" the-struct_117)" -"(let-values(((s645_0)" -"(syntax-shift-phase-level$1" -"(expanded+parsed-s" -" submod_4)" -" phase_161)))" -"(expanded+parsed1.1" -" s645_0" -"(expanded+parsed-parsed" -" the-struct_117)))" -"(raise-argument-error" -" 'struct-copy" -" \"expanded+parsed?\"" -" the-struct_117))))" -"(let-values()" -"(syntax-shift-phase-level$1" -" submod_4" -" phase_161))))))))" -"(let-values()" -"(let-values(((temp649_0)" -" #t)" -"((mpis-to-reset650_0)" -" mpis-to-reset_3)" -"((declared-submodule-names651_0)" -" declared-submodule-names_7)" -"((compiled-submodules652_0)" -" compiled-submodules_4)" -"((modules-being-compiled653_0)" -" modules-being-compiled_7))" -"(expand-submodule197.1" -" compiled-submodules652_0" -" declared-submodule-names651_0" -" #f" -" #f" -" #f" -" #f" -" #f" -" #f" -" temp649_0" -" #f" -" #f" -" modules-being-compiled653_0" -" mpis-to-reset650_0" -" ready-body_2" -" self_38" -" submod-ctx_1))))))" -"(cons" -" submod_3" -"(loop_131" -" rest-bodys_3" -" phase_161)))))))" -"(let-values()" -"(cons" -" body_25" -"(loop_131" -" rest-bodys_3" -" phase_161)))))))))))))))))" -" loop_131)" -" fully-expanded-bodys-except-post-submodules_2" -" phase_160)))))))))))))))))" -"(define-values" -"(stop-at-module*?)" -"(lambda(ctx_117)" -"(begin" -"(free-id-set-member?" -"(expand-context-stops ctx_117)" -"(expand-context-phase ctx_117)" -"(syntax-shift-phase-level$1(datum->syntax$1 core-stx 'module*)(expand-context-phase ctx_117))))))" -"(define-values" -"(check-ids-unbound173.1)" -"(lambda(in168_0 ids170_0 phase171_1 requires+provides172_0)" -"(begin" -" 'check-ids-unbound173" -"(let-values(((ids_43) ids170_0))" -"(let-values(((phase_162) phase171_1))" -"(let-values(((requires+provides_12) requires+provides172_0))" -"(let-values(((s_840) in168_0))" -"(let-values()" -"(begin" -"(let-values(((lst_430) ids_43))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_430)))" -"((letrec-values(((for-loop_320)" -"(lambda(lst_431)" -"(begin" -" 'for-loop" -"(if(pair? lst_431)" -"(let-values(((id_157)(unsafe-car lst_431))" -"((rest_256)(unsafe-cdr lst_431)))" -"(let-values((()" -"(let-values()" -"(let-values((()" -"(let-values()" -"(begin" -"(let-values()" -"(let-values(((s657_0) s_840)" -"((temp658_0) 'module))" -"(check-not-defined93.1" -" #f" -" #f" -" #f" -" #f" -" s657_0" -" #f" -" #f" -" #f" -" #f" -" temp658_0" -" requires+provides_12" -" id_157" -" phase_162)))" -"(values)))))" -"(values)))))" -"(if(not #f)(for-loop_320 rest_256)(values))))" -"(values))))))" -" for-loop_320)" -" lst_430)))" -"(void))))))))))" -"(define-values" -"(eval-nested-bodys)" -"(lambda(bodys_28 phase_163 m-ns_23 self_39 ctx_118)" -"(begin" -"(begin" -"(let-values(((lst_432) bodys_28))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_432)))" -"((letrec-values(((for-loop_321)" -"(lambda(lst_433)" -"(begin" -" 'for-loop" -"(if(pair? lst_433)" -"(let-values(((body_26)(unsafe-car lst_433))((rest_257)(unsafe-cdr lst_433)))" -"(let-values((()" -"(let-values()" -"(let-values((()" -"(let-values()" -"(begin" -"(let-values()" -"(let-values(((p_84)" -"(if(expanded+parsed? body_26)" -"(expanded+parsed-parsed" -" body_26)" -" body_26)))" -"(if(parsed-define-values? p_84)" -"(let-values()" -"(let-values(((ids_44)" -"(parsed-define-values-ids" -" p_84)))" -"(let-values(((vals_11)" -"(eval-for-bindings" -" ids_44" -"(parsed-define-values-rhs" -" p_84)" -" phase_163" -" m-ns_23" -" ctx_118)))" -"(begin" -"(let-values(((lst_434) ids_44)" -"((lst_435)" -"(parsed-define-values-syms" -" p_84))" -"((lst_436) vals_11))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list lst_434)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list lst_435)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list lst_436)))" -"((letrec-values(((for-loop_322)" -"(lambda(lst_437" -" lst_438" -" lst_439)" -"(begin" -" 'for-loop" -"(if(if(pair?" -" lst_437)" -"(if(pair?" -" lst_438)" -"(pair?" -" lst_439)" -" #f)" -" #f)" -"(let-values(((id_158)" -"(unsafe-car" -" lst_437))" -"((rest_258)" -"(unsafe-cdr" -" lst_437))" -"((sym_106)" -"(unsafe-car" -" lst_438))" -"((rest_259)" -"(unsafe-cdr" -" lst_438))" -"((val_87)" -"(unsafe-car" -" lst_439))" -"((rest_260)" -"(unsafe-cdr" -" lst_439)))" -"(let-values((()" -"(let-values()" -"(let-values((()" -"(let-values()" -"(begin" -"(let-values()" -"(namespace-set-variable!" -" m-ns_23" -" phase_163" -" sym_106" -" val_87))" -"(values)))))" -"(values)))))" -"(if(not" -" #f)" -"(for-loop_322" -" rest_258" -" rest_259" -" rest_260)" -"(values))))" -"(values))))))" -" for-loop_322)" -" lst_434" -" lst_435" -" lst_436)))" -"(void)))))" -"(if(let-values(((or-part_403)" -"(parsed-define-syntaxes?" -" p_84)))" -"(if or-part_403" -" or-part_403" -"(semi-parsed-begin-for-syntax?" -" p_84)))" -"(let-values()(void))" -"(if(let-values(((or-part_404)" -"(parsed-#%declare?" -" p_84)))" -"(if or-part_404" -" or-part_404" -"(syntax?$1 p_84)))" -"(let-values()(void))" -"(let-values()" -"(with-continuation-mark" -" parameterization-key" -"(extend-parameterization" -"(continuation-mark-set-first" -" #f" -" parameterization-key)" -" current-expand-context" -" ctx_118" -" 1/current-namespace" -" m-ns_23)" -"(let-values()" -"(eval-single-top" -"(compile-single" -" p_84" -"(let-values(((m-ns659_0)" -" m-ns_23)" -"((phase660_0)" -" phase_163))" -"(make-compile-context14.1" -" #f" -" #f" -" #f" -" #f" -" #f" -" #f" -" m-ns659_0" -" #t" -" phase660_0" -" #t" -" #f" -" #f)))" -" m-ns_23)))))))))" -"(values)))))" -"(values)))))" -"(if(not #f)(for-loop_321 rest_257)(values))))" -"(values))))))" -" for-loop_321)" -" lst_432)))" -"(void)))))" -"(define-values" -"(expand-submodule197.1)" -"(lambda(compiled-submodules183_0" -" declared-submodule-names182_0" -" enclosing-all-scopes-stx180_0" -" enclosing-all-scopes-stx189_0" -" enclosing-is-cross-phase-persistent?179_0" -" enclosing-is-cross-phase-persistent?188_0" -" enclosing-requires+provides178_0" -" enclosing-requires+provides187_0" -" is-star?176_0" -" keep-enclosing-scope-at-phase177_0" -" keep-enclosing-scope-at-phase186_0" -" modules-being-compiled184_0" -" mpis-to-reset181_0" -" s194_0" -" self195_0" -" ctx196_0)" -"(begin" -" 'expand-submodule197" -"(let-values(((s_841) s194_0))" -"(let-values(((self_40) self195_0))" -"(let-values(((ctx_119) ctx196_0))" -"(let-values(((is-star?_0) is-star?176_0))" -"(let-values(((keep-enclosing-scope-at-phase_2)" -"(if keep-enclosing-scope-at-phase186_0 keep-enclosing-scope-at-phase177_0 #f)))" -"(let-values(((enclosing-r+p_2)" -"(if enclosing-requires+provides187_0 enclosing-requires+provides178_0 #f)))" -"(let-values(((enclosing-is-cross-phase-persistent?_2)" -"(if enclosing-is-cross-phase-persistent?188_0" -" enclosing-is-cross-phase-persistent?179_0" -" #f)))" -"(let-values(((enclosing-all-scopes-stx_1)" -"(if enclosing-all-scopes-stx189_0 enclosing-all-scopes-stx180_0 #f)))" -"(let-values(((mpis-to-reset_4) mpis-to-reset181_0))" -"(let-values(((declared-submodule-names_8) declared-submodule-names182_0))" -"(let-values(((compiled-submodules_5) compiled-submodules183_0))" -"(let-values(((modules-being-compiled_8) modules-being-compiled184_0))" -"(let-values()" -"(let-values((()" -"(begin" -"(if is-star?_0" -"(void)" -"(let-values()" -"(let-values(((obs_157)(expand-context-observer ctx_119)))" -"(if obs_157" -"(let-values()" -"(let-values()" -"(begin" -"(call-expand-observe obs_157 'enter-prim s_841)" -"(call-expand-observe" -" obs_157" -"(if is-star?_0 'prim-submodule* 'prim-submodule)))))" -"(void)))))" -"(values))))" -"(let-values(((ok?_85 module661_0 name662_0 _663_0)" -"(let-values(((s_842) s_841))" -"(let-values(((orig-s_90) s_842))" -"(let-values(((module661_1 name662_1 _663_1)" -"(let-values(((s_843)" -"(if(syntax?$1 s_842)" -"(syntax-e$1 s_842)" -" s_842)))" -"(if(pair? s_843)" -"(let-values(((module664_0)" -"(let-values(((s_844)(car s_843)))" -" s_844))" -"((name665_0 _666_0)" -"(let-values(((s_845)(cdr s_843)))" -"(let-values(((s_846)" -"(if(syntax?$1" -" s_845)" -"(syntax-e$1 s_845)" -" s_845)))" -"(if(pair? s_846)" -"(let-values(((name667_0)" -"(let-values(((s_847)" -"(car" -" s_846)))" -" s_847))" -"((_668_0)" -"(let-values(((s_848)" -"(cdr" -" s_846)))" -" s_848)))" -"(values name667_0 _668_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_90))))))" -"(values module664_0 name665_0 _666_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_90)))))" -"(values #t module661_1 name662_1 _663_1))))))" -"(let-values(((name_81)(syntax-e$1 name662_0)))" -"(let-values((()" -"(begin" -"(if(hash-ref declared-submodule-names_8 name_81 #f)" -"(let-values()" -"(raise-syntax-error$1" -" #f" -" \"submodule already declared with the same name\"" -" s_841" -" name_81))" -"(void))" -"(values))))" -"(let-values((()" -"(begin" -"(hash-set!" -" declared-submodule-names_8" -" name_81" -"(syntax-e$1 module661_0))" -"(values))))" -"(let-values((()" -"(begin" -"(let-values(((obs_158)(expand-context-observer ctx_119)))" -"(if obs_158" -"(let-values()" -"(let-values()" -"(call-expand-observe obs_158 'enter-prim s_841)))" -"(void)))" -"(values))))" -"(let-values(((submod_5)" -"(let-values(((temp670_0)" -"(let-values(((v_260) ctx_119))" -"(let-values(((the-struct_118) v_260))" -"(if(expand-context/outer? the-struct_118)" -"(let-values(((context679_0) 'module)" -"((post-expansion-scope680_0)" -" #f)" -"((inner681_0)" +"((inner600_0)" "(let-values(((the-struct_119)" "(root-expand-context/outer-inner" -" v_260)))" +" v_261)))" "(if(expand-context/inner?" " the-struct_119)" -"(let-values(((stops682_0)" -" empty-free-id-set))" +"(let-values(((phase601_0)" +" phase_161)" +"((namespace602_0)" +"(namespace->namespace-at-phase" +" m-ns_21" +" phase_161))" +"((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)" "(root-expand-context/inner-module-scopes" " the-struct_119)" "(root-expand-context/inner-top-level-bind-scope" @@ -74934,10 +74360,8 @@ static const char *startup_source = " the-struct_119)" "(expand-context/inner-to-parsed?" " the-struct_119)" -"(expand-context/inner-phase" -" the-struct_119)" -"(expand-context/inner-namespace" -" the-struct_119)" +" phase601_0" +" namespace602_0" "(expand-context/inner-just-once?" " the-struct_119)" "(expand-context/inner-module-begin-k" @@ -74946,9 +74370,9 @@ static const char *startup_source = " the-struct_119)" "(expand-context/inner-in-local-expand?" " the-struct_119)" -" stops682_0" -"(expand-context/inner-declared-submodule-names" +"(expand-context/inner-stops" " the-struct_119)" +" declared-submodule-names604_0" "(expand-context/inner-lifts" " the-struct_119)" "(expand-context/inner-lift-envs" @@ -74959,8 +74383,7 @@ static const char *startup_source = " the-struct_119)" "(expand-context/inner-to-module-lifts" " the-struct_119)" -"(expand-context/inner-requires+provides" -" the-struct_119)" +" requires+provides603_0" "(expand-context/inner-observer" " the-struct_119)" "(expand-context/inner-for-serializable?" @@ -74969,16 +74392,17 @@ static const char *startup_source = " the-struct_119)))" "(raise-argument-error" " 'struct-copy" -" \"expand-context/inner?\"" +" \"expand-context/inner?\"" " the-struct_119)))))" "(expand-context/outer1.1" -" inner681_0" -" post-expansion-scope680_0" +" 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)" -" context679_0" +" context599_0" "(expand-context/outer-env" " the-struct_118)" "(expand-context/outer-post-expansion-scope-action" @@ -75001,99 +74425,1139 @@ static const char *startup_source = " the-struct_118)))" "(raise-argument-error" " 'struct-copy" -" \"expand-context/outer?\"" -" the-struct_118)))))" -"((self671_0) self_40)" -"((temp672_0) #t)" -"((keep-enclosing-scope-at-phase673_0)" -" keep-enclosing-scope-at-phase_2)" -"((enclosing-all-scopes-stx674_0)" -" enclosing-all-scopes-stx_1)" -"((enclosing-r+p675_0) enclosing-r+p_2)" -"((enclosing-is-cross-phase-persistent?676_0)" -" enclosing-is-cross-phase-persistent?_2)" -"((mpis-to-reset677_0) mpis-to-reset_4)" -"((modules-being-compiled678_0)" -" modules-being-compiled_8))" -"(expand-module18.1" -" temp672_0" -" #t" -" enclosing-all-scopes-stx674_0" -" #t" -" enclosing-is-cross-phase-persistent?676_0" -" #t" -" enclosing-r+p675_0" -" #t" -" keep-enclosing-scope-at-phase673_0" -" #t" -" modules-being-compiled678_0" -" #t" -" mpis-to-reset677_0" -" #t" -" s_841" -" temp670_0" -" self671_0))))" -"(let-values((()" +" \"expand-context/outer?\"" +" the-struct_118)))))))" +"(if(expand-context-to-parsed? ctx_116)" +"(let-values()" +"(loop_133(cdr bodys_26) phase_161))" +"(let-values()" +"(let-values(((new-s_9)" +"(syntax-track-origin*" +" track-stxes_10" +"(let-values(((temp605_0)" +"(car bodys_26))" +"((temp606_0)" +"(list*" +" #%provide595_0" +" specs_2)))" +"(rebuild5.1" +" #f" +" #f" +" temp605_0" +" temp606_0)))))" "(begin" -"(let-values(((obs_159)" -"(expand-context-observer ctx_119)))" -"(if obs_159" +"(let-values(((obs_154)" +"(expand-context-observer" +" ctx_116)))" +"(if obs_154" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_159" +" obs_154" " 'exit-prim" -"(extract-syntax submod_5))))" +" new-s_9)))" "(void)))" -"(values))))" -"(let-values(((ns_125)(expand-context-namespace ctx_119)))" -"(let-values(((module-name_3)(1/module-path-index-resolve self_40)))" -"(let-values(((root-module-name_1)" -"(resolved-module-path-root-name module-name_3)))" -"(let-values(((compiled-submodule_0)" -"(let-values(((temp683_0)" -"(if(expanded+parsed? submod_5)" -"(expanded+parsed-parsed submod_5)" -" submod_5))" -"((temp684_0)" -"(let-values(((ns689_0) ns_125)" -"((self690_0) self_40)" -"((temp691_0)" +"(cons" +" new-s_9" +"(loop_133" +"(cdr bodys_26)" +" phase_161))))))))))" +"(let-values()" +"(cons" +"(car bodys_26)" +"(loop_133(cdr bodys_26) phase_161))))))))))))))" +" loop_133)" +" expression-expanded-bodys_1" +" phase_160)))))))))))))" +"(define-values" +"(declare-module-for-expansion139.1)" +"(lambda(ctx125_0" +" enclosing123_0" +" fill127_0" +" module-name-id118_0" +" modules-being-compiled126_0" +" namespace121_0" +" rebuild-s119_0" +" requires-and-provides120_0" +" root-ctx124_0" +" self122_0" +" fully-expanded-bodys-except-post-submodules138_0)" +"(begin" +" 'declare-module-for-expansion139" +"(let-values(((fully-expanded-bodys-except-post-submodules_1) fully-expanded-bodys-except-post-submodules138_0))" +"(let-values(((module-name-id_0) module-name-id118_0))" +"(let-values(((rebuild-s_16) rebuild-s119_0))" +"(let-values(((requires+provides_10) requires-and-provides120_0))" +"(let-values(((m-ns_22) namespace121_0))" +"(let-values(((self_40) self122_0))" +"(let-values(((enclosing-self_3) enclosing123_0))" +"(let-values(((root-ctx_7) root-ctx124_0))" +"(let-values(((ctx_117) ctx125_0))" +"(let-values(((modules-being-compiled_6) modules-being-compiled126_0))" +"(let-values(((compiled-module-box_1) fill127_0))" +"(let-values()" +"(let-values(((requires_7 provides_14)" +"(extract-requires-and-provides requires+provides_10 self_40 self_40)))" +"(let-values(((parsed-mod_0)" +"(parsed-module25.1" +" rebuild-s_16" +" #f" +" module-name-id_0" +" self_40" +" requires_7" +" provides_14" +"(requires+provides-all-bindings-simple? requires+provides_10)" +"(root-expand-context-encode-for-module root-ctx_7 self_40 self_40)" +"(parsed-only fully-expanded-bodys-except-post-submodules_1)" +" #f" +"(hasheq))))" +"(let-values(((module-name_2)" +"(1/module-path-index-resolve" +"(let-values(((or-part_407) enclosing-self_3))" +"(if or-part_407 or-part_407 self_40)))))" +"(let-values(((compiled-module_0)" +"(let-values(((temp608_0)" +"(let-values(((m-ns612_0) m-ns_22)" +"((enclosing-self613_0) enclosing-self_3)" +"((temp614_0)" +"(if enclosing-self_3" "(1/resolved-module-path-name" -" module-name_3)))" +" module-name_2)" +" #f)))" "(make-compile-context14.1" -" temp691_0" +" temp614_0" " #t" " #f" " #f" -" self690_0" +" enclosing-self613_0" " #t" -" ns689_0" +" m-ns612_0" " #t" " #f" " #f" " #f" " #f)))" -"((temp685_0) #t)" -"((temp686_0)" -"(expand-context-for-serializable?" -" ctx_119))" -"((modules-being-compiled687_0)" -" modules-being-compiled_8)" -"((temp688_0) #f))" +"((temp609_0)(expand-context-for-serializable? ctx_117))" +"((modules-being-compiled610_0) modules-being-compiled_6)" +"((temp611_0) #f))" "(compile-module13.1" -" temp685_0" +" #f" +" #f" +" modules-being-compiled610_0" " #t" -" modules-being-compiled687_0" +" temp611_0" " #t" -" temp688_0" +" temp609_0" " #t" +" #f" +" #f" +" parsed-mod_0" +" temp608_0))))" +"(let-values((()" +"(begin" +"(set-box! compiled-module-box_1 compiled-module_0)" +"(values))))" +"(let-values(((root-module-name_0)" +"(resolved-module-path-root-name module-name_2)))" +"(with-continuation-mark" +" parameterization-key" +"(extend-parameterization" +"(continuation-mark-set-first #f parameterization-key)" +" 1/current-namespace" +" m-ns_22" +" 1/current-module-declare-name" +"(1/make-resolved-module-path root-module-name_0))" +"(let-values()" +"(let-values(((temp616_0) #f))" +"(eval-module8.1" +" #f" +" #f" +" #f" +" #f" +" temp616_0" +" #t" +" compiled-module_0)))))))))))))))))))))))))" +"(define-values" +"(attach-root-expand-context-properties)" +"(lambda(s_814 root-ctx_8 orig-self_1 new-self_2)" +"(begin" +"(let-values(((s_815)" +"(syntax-property$1 s_814 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" +"(let-values(((s_816)" +"(syntax-property$1" +" s_815" +" 'module-body-inside-context" +"(add-scope empty-syntax(root-expand-context-post-expansion-scope root-ctx_8)))))" +" s_816)))))" +"(define-values" +"(expand-post-submodules165.1)" +"(lambda(all-scopes-s147_0" +" compiled-submodules150_0" +" ctx152_0" +" declare-enclosing142_0" +" declared-submodule-names149_0" +" enclosing-is-cross-phase-persistent?146_0" +" modules-being-compiled151_0" +" mpis-to-reset148_0" +" phase143_0" +" requires-and-provides145_0" +" self144_0" +" fully-expanded-bodys-except-post-submodules164_0)" +"(begin" +" '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_162) phase143_0))" +"(let-values(((self_41) 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))" +"(let-values(((all-scopes-s_1) all-scopes-s147_0))" +"(let-values(((mpis-to-reset_3) mpis-to-reset148_0))" +"(let-values(((declared-submodule-names_7) declared-submodule-names149_0))" +"(let-values(((compiled-submodules_4) compiled-submodules150_0))" +"(let-values(((modules-being-compiled_7) modules-being-compiled151_0))" +"(let-values(((submod-ctx_1) ctx152_0))" +"(let-values()" +"((letrec-values(((loop_134)" +"(lambda(bodys_27 phase_163)" +"(begin" +" 'loop" +"(if(null? bodys_27)" +"(let-values() null)" +"(let-values()" +"(let-values(((body_25)(car bodys_27)))" +"(let-values(((rest-bodys_3)(cdr bodys_27)))" +"(if(semi-parsed-begin-for-syntax? body_25)" +"(let-values()" +"(let-values(((body-s_0)" +"(semi-parsed-begin-for-syntax-s" +" body_25)))" +"(let-values(((ok?_84 begin-for-syntax617_0 _618_0)" +"(let-values(((s_817)" +"(syntax-disarm$1" +" body-s_0)))" +"(let-values(((orig-s_89) s_817))" +"(let-values(((begin-for-syntax617_1" +" _618_1)" +"(let-values(((s_818)" +"(if(syntax?$1" +" s_817)" +"(syntax-e$1" +" s_817)" +" s_817)))" +"(if(pair? s_818)" +"(let-values(((begin-for-syntax619_0)" +"(let-values(((s_819)" +"(car" +" s_818)))" +" s_819))" +"((_620_0)" +"(let-values(((s_820)" +"(cdr" +" s_818)))" +"(let-values(((s_821)" +"(if(syntax?$1" +" s_820)" +"(syntax-e$1" +" s_820)" +" s_820)))" +"(let-values(((flat-s_60)" +"(to-syntax-list.1" +" s_821)))" +"(if(not" +" flat-s_60)" +"(let-values()" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_89))" +"(let-values()" +" flat-s_60)))))))" +"(values" +" begin-for-syntax619_0" +" _620_0))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_89)))))" +"(values" +" #t" +" begin-for-syntax617_1" +" _618_1))))))" +"(let-values(((rebuild-body-s_0)" +"(let-values(((submod-ctx621_0)" +" submod-ctx_1)" +"((body-s622_0)" +" body-s_0))" +"(keep-as-needed74.1" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" submod-ctx621_0" +" body-s622_0))))" +"(let-values(((nested-bodys_3)" +"(loop_134" +"(semi-parsed-begin-for-syntax-body" +" body_25)" +"(add1 phase_163))))" +"(let-values(((parsed-bfs_0)" +"(parsed-begin-for-syntax21.1" +" rebuild-body-s_0" +"(parsed-only nested-bodys_3))))" +"(cons" +"(if(expand-context-to-parsed?" +" submod-ctx_1)" +" parsed-bfs_0" +"(expanded+parsed1.1" +"(let-values(((rebuild-body-s623_0)" +" rebuild-body-s_0)" +"((temp624_0)" +"(list*" +" begin-for-syntax617_0" +"(syntax-only" +" nested-bodys_3))))" +"(rebuild5.1" +" #f" +" #f" +" rebuild-body-s623_0" +" temp624_0))" +" parsed-bfs_0))" +"(loop_134 rest-bodys_3 phase_163))))))))" +"(if(let-values(((or-part_408)(parsed? body_25)))" +"(if or-part_408" +" or-part_408" +"(expanded+parsed? body_25)))" +"(let-values()" +"(cons body_25(loop_134 rest-bodys_3 phase_163)))" +"(let-values()" +"(let-values(((disarmed-body_2)" +"(syntax-disarm$1 body_25)))" +"(let-values(((tmp_68)" +"(core-form-sym" +" disarmed-body_2" +" phase_163)))" +"(if(equal? tmp_68 'module*)" +"(let-values()" +"(let-values((()" +"(begin" +"(force" +" declare-enclosing-module_1)" +"(values))))" +"(let-values(((ready-body_2)" +"(remove-use-site-scopes" +" body_25" +" submod-ctx_1)))" +"(let-values(((ok?_85" +" module*625_0" +" name626_0" +" _627_0)" +"(let-values(((s_822)" +" disarmed-body_2))" +"(if(let-values(((s_823)" +"(if(syntax?$1" +" s_822)" +"(syntax-e$1" +" s_822)" +" s_822)))" +"(if(pair? s_823)" +"(if(let-values(((s_824)" +"(car" +" s_823)))" +" #t)" +"(let-values(((s_825)" +"(cdr" +" s_823)))" +"(let-values(((s_826)" +"(if(syntax?$1" +" s_825)" +"(syntax-e$1" +" s_825)" +" s_825)))" +"(if(pair?" +" s_826)" +"(if(let-values(((s_827)" +"(car" +" s_826)))" +" #t)" +"(let-values(((s_828)" +"(cdr" +" s_826)))" +"(let-values(((s_679)" +"(if(syntax?$1" +" s_828)" +"(syntax-e$1" +" s_828)" +" s_828)))" +"(if(pair?" +" s_679)" +"(if(let-values(((s_829)" +"(car" +" s_679)))" +"(let-values(((s_830)" +"(if(syntax?$1" +" s_829)" +"(syntax-e$1" +" s_829)" +" s_829)))" +"(eq?" +" #f" +" s_830)))" +"(let-values(((s_831)" +"(cdr" +" s_679)))" +" #t)" +" #f)" +" #f)))" +" #f)" +" #f)))" +" #f)" +" #f))" +"(let-values()" +"(let-values(((module*625_1" +" name626_1" +" _627_1)" +"(let-values(((s_832)" +"(if(syntax?$1" +" s_822)" +"(syntax-e$1" +" s_822)" +" s_822)))" +"(let-values(((module*628_0)" +"(let-values(((s_833)" +"(car" +" s_832)))" +" s_833))" +"((name629_0" +" _630_0)" +"(let-values(((s_834)" +"(cdr" +" s_832)))" +"(let-values(((s_835)" +"(if(syntax?$1" +" s_834)" +"(syntax-e$1" +" s_834)" +" s_834)))" +"(let-values(((name631_0)" +"(let-values(((s_836)" +"(car" +" s_835)))" +" s_836))" +"((_632_0)" +"(let-values(((s_837)" +"(cdr" +" s_835)))" +"(let-values(((s_838)" +"(if(syntax?$1" +" s_837)" +"(syntax-e$1" +" s_837)" +" s_837)))" +"(let-values((()" +"(let-values(((s_839)" +"(car" +" s_838)))" +"(let-values(((s_840)" +"(if(syntax?$1" +" s_839)" +"(syntax-e$1" +" s_839)" +" s_839)))" +"(values))))" +"((_633_0)" +"(let-values(((s_841)" +"(cdr" +" s_838)))" +" s_841)))" +"(values" +" _633_0))))))" +"(values" +" name631_0" +" _632_0))))))" +"(values" +" module*628_0" +" name629_0" +" _630_0)))))" +"(values" +" #t" +" module*625_1" +" name626_1" +" _627_1)))" +"(values" +" #f" +" #f" +" #f" +" #f)))))" +"(let-values(((submod_3)" +"(if ok?_85" +"(let-values()" +"(let-values(((neg-phase_0)" +"(phase-" +" 0" +" phase_163)))" +"(let-values(((shifted-s_0)" +"(syntax-shift-phase-level$1" +" ready-body_2" +" neg-phase_0)))" +"(let-values(((submod_4)" +"(let-values(((temp637_0)" +" #t)" +"((neg-phase638_0)" +" neg-phase_0)" +"((all-scopes-s639_0)" +" all-scopes-s_1)" +"((requires+provides640_0)" +" requires+provides_11)" +"((enclosing-is-cross-phase-persistent?641_0)" +" enclosing-is-cross-phase-persistent?_1)" +"((mpis-to-reset642_0)" +" mpis-to-reset_3)" +"((declared-submodule-names643_0)" +" declared-submodule-names_7)" +"((compiled-submodules644_0)" +" compiled-submodules_4)" +"((modules-being-compiled645_0)" +" modules-being-compiled_7))" +"(expand-submodule197.1" +" compiled-submodules644_0" +" declared-submodule-names643_0" +" all-scopes-s639_0" +" #t" +" enclosing-is-cross-phase-persistent?641_0" +" #t" +" requires+provides640_0" +" #t" +" temp637_0" +" neg-phase638_0" +" #t" +" modules-being-compiled645_0" +" mpis-to-reset642_0" +" shifted-s_0" +" self_41" +" submod-ctx_1))))" +"(if(parsed?" +" submod_4)" +"(let-values()" +" submod_4)" +"(if(expanded+parsed?" +" submod_4)" +"(let-values()" +"(let-values(((the-struct_120)" +" submod_4))" +"(if(expanded+parsed?" +" the-struct_120)" +"(let-values(((s646_0)" +"(syntax-shift-phase-level$1" +"(expanded+parsed-s" +" submod_4)" +" phase_163)))" +"(expanded+parsed1.1" +" s646_0" +"(expanded+parsed-parsed" +" the-struct_120)))" +"(raise-argument-error" +" 'struct-copy" +" \"expanded+parsed?\"" +" the-struct_120))))" +"(let-values()" +"(syntax-shift-phase-level$1" +" submod_4" +" phase_163))))))))" +"(let-values()" +"(let-values(((temp650_0)" +" #t)" +"((mpis-to-reset651_0)" +" mpis-to-reset_3)" +"((declared-submodule-names652_0)" +" declared-submodule-names_7)" +"((compiled-submodules653_0)" +" compiled-submodules_4)" +"((modules-being-compiled654_0)" +" modules-being-compiled_7))" +"(expand-submodule197.1" +" compiled-submodules653_0" +" declared-submodule-names652_0" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" temp650_0" +" #f" +" #f" +" modules-being-compiled654_0" +" mpis-to-reset651_0" +" ready-body_2" +" self_41" +" submod-ctx_1))))))" +"(cons" +" submod_3" +"(loop_134" +" rest-bodys_3" +" phase_163)))))))" +"(let-values()" +"(cons" +" body_25" +"(loop_134" +" rest-bodys_3" +" phase_163)))))))))))))))))" +" loop_134)" +" fully-expanded-bodys-except-post-submodules_2" +" phase_162)))))))))))))))))" +"(define-values" +"(stop-at-module*?)" +"(lambda(ctx_118)" +"(begin" +"(free-id-set-member?" +"(expand-context-stops ctx_118)" +"(expand-context-phase ctx_118)" +"(syntax-shift-phase-level$1(datum->syntax$1 core-stx 'module*)(expand-context-phase ctx_118))))))" +"(define-values" +"(check-ids-unbound173.1)" +"(lambda(in168_0 ids170_0 phase171_1 requires+provides172_0)" +"(begin" +" 'check-ids-unbound173" +"(let-values(((ids_43) ids170_0))" +"(let-values(((phase_164) phase171_1))" +"(let-values(((requires+provides_12) requires+provides172_0))" +"(let-values(((s_842) in168_0))" +"(let-values()" +"(begin" +"(let-values(((lst_429) ids_43))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_429)))" +"((letrec-values(((for-loop_319)" +"(lambda(lst_430)" +"(begin" +" 'for-loop" +"(if(pair? lst_430)" +"(let-values(((id_157)(unsafe-car lst_430))" +"((rest_256)(unsafe-cdr lst_430)))" +"(let-values((()" +"(let-values()" +"(let-values((()" +"(let-values()" +"(begin" +"(let-values()" +"(let-values(((s658_0) s_842)" +"((temp659_0) 'module))" +"(check-not-defined93.1" +" #f" +" #f" +" #f" +" #f" +" s658_0" +" #f" +" #f" +" #f" +" #f" +" temp659_0" +" requires+provides_12" +" id_157" +" phase_164)))" +"(values)))))" +"(values)))))" +"(if(not #f)(for-loop_319 rest_256)(values))))" +"(values))))))" +" for-loop_319)" +" lst_429)))" +"(void))))))))))" +"(define-values" +"(eval-nested-bodys)" +"(lambda(bodys_28 phase_165 m-ns_23 self_42 ctx_119)" +"(begin" +"(begin" +"(let-values(((lst_431) bodys_28))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_431)))" +"((letrec-values(((for-loop_320)" +"(lambda(lst_432)" +"(begin" +" 'for-loop" +"(if(pair? lst_432)" +"(let-values(((body_26)(unsafe-car lst_432))((rest_257)(unsafe-cdr lst_432)))" +"(let-values((()" +"(let-values()" +"(let-values((()" +"(let-values()" +"(begin" +"(let-values()" +"(let-values(((p_87)" +"(if(expanded+parsed? body_26)" +"(expanded+parsed-parsed" +" body_26)" +" body_26)))" +"(if(parsed-define-values? p_87)" +"(let-values()" +"(let-values(((ids_44)" +"(parsed-define-values-ids" +" p_87)))" +"(let-values(((vals_11)" +"(eval-for-bindings" +" ids_44" +"(parsed-define-values-rhs" +" p_87)" +" phase_165" +" m-ns_23" +" ctx_119)))" +"(begin" +"(let-values(((lst_433) ids_44)" +"((lst_434)" +"(parsed-define-values-syms" +" p_87))" +"((lst_435) vals_11))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list lst_433)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list lst_434)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list lst_435)))" +"((letrec-values(((for-loop_321)" +"(lambda(lst_436" +" lst_437" +" lst_438)" +"(begin" +" 'for-loop" +"(if(if(pair?" +" lst_436)" +"(if(pair?" +" lst_437)" +"(pair?" +" lst_438)" +" #f)" +" #f)" +"(let-values(((id_158)" +"(unsafe-car" +" lst_436))" +"((rest_258)" +"(unsafe-cdr" +" lst_436))" +"((sym_107)" +"(unsafe-car" +" lst_437))" +"((rest_259)" +"(unsafe-cdr" +" lst_437))" +"((val_87)" +"(unsafe-car" +" lst_438))" +"((rest_260)" +"(unsafe-cdr" +" lst_438)))" +"(let-values((()" +"(let-values()" +"(let-values((()" +"(let-values()" +"(begin" +"(let-values()" +"(namespace-set-variable!" +" m-ns_23" +" phase_165" +" sym_107" +" val_87))" +"(values)))))" +"(values)))))" +"(if(not" +" #f)" +"(for-loop_321" +" rest_258" +" rest_259" +" rest_260)" +"(values))))" +"(values))))))" +" for-loop_321)" +" lst_433" +" lst_434" +" lst_435)))" +"(void)))))" +"(if(let-values(((or-part_409)" +"(parsed-define-syntaxes?" +" p_87)))" +"(if or-part_409" +" or-part_409" +"(semi-parsed-begin-for-syntax?" +" p_87)))" +"(let-values()(void))" +"(if(let-values(((or-part_410)" +"(parsed-#%declare?" +" p_87)))" +"(if or-part_410" +" or-part_410" +"(syntax?$1 p_87)))" +"(let-values()(void))" +"(let-values()" +"(with-continuation-mark" +" parameterization-key" +"(extend-parameterization" +"(continuation-mark-set-first" +" #f" +" parameterization-key)" +" current-expand-context" +" ctx_119" +" 1/current-namespace" +" m-ns_23)" +"(let-values()" +"(eval-single-top" +"(compile-single" +" p_87" +"(let-values(((m-ns660_0)" +" m-ns_23)" +"((phase661_0)" +" phase_165))" +"(make-compile-context14.1" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" m-ns660_0" +" #t" +" phase661_0" +" #t" +" #f" +" #f)))" +" m-ns_23)))))))))" +"(values)))))" +"(values)))))" +"(if(not #f)(for-loop_320 rest_257)(values))))" +"(values))))))" +" for-loop_320)" +" lst_431)))" +"(void)))))" +"(define-values" +"(expand-submodule197.1)" +"(lambda(compiled-submodules183_0" +" declared-submodule-names182_0" +" enclosing-all-scopes-stx180_0" +" enclosing-all-scopes-stx189_0" +" enclosing-is-cross-phase-persistent?179_0" +" enclosing-is-cross-phase-persistent?188_0" +" enclosing-requires+provides178_0" +" enclosing-requires+provides187_0" +" is-star?176_0" +" keep-enclosing-scope-at-phase177_0" +" keep-enclosing-scope-at-phase186_0" +" modules-being-compiled184_0" +" mpis-to-reset181_0" +" s194_0" +" self195_0" +" ctx196_0)" +"(begin" +" 'expand-submodule197" +"(let-values(((s_843) s194_0))" +"(let-values(((self_43) self195_0))" +"(let-values(((ctx_120) ctx196_0))" +"(let-values(((is-star?_0) is-star?176_0))" +"(let-values(((keep-enclosing-scope-at-phase_2)" +"(if keep-enclosing-scope-at-phase186_0 keep-enclosing-scope-at-phase177_0 #f)))" +"(let-values(((enclosing-r+p_2)" +"(if enclosing-requires+provides187_0 enclosing-requires+provides178_0 #f)))" +"(let-values(((enclosing-is-cross-phase-persistent?_2)" +"(if enclosing-is-cross-phase-persistent?188_0" +" enclosing-is-cross-phase-persistent?179_0" +" #f)))" +"(let-values(((enclosing-all-scopes-stx_1)" +"(if enclosing-all-scopes-stx189_0 enclosing-all-scopes-stx180_0 #f)))" +"(let-values(((mpis-to-reset_4) mpis-to-reset181_0))" +"(let-values(((declared-submodule-names_8) declared-submodule-names182_0))" +"(let-values(((compiled-submodules_5) compiled-submodules183_0))" +"(let-values(((modules-being-compiled_8) modules-being-compiled184_0))" +"(let-values()" +"(let-values((()" +"(begin" +"(if is-star?_0" +"(void)" +"(let-values()" +"(let-values(((obs_155)(expand-context-observer ctx_120)))" +"(if obs_155" +"(let-values()" +"(let-values()" +"(begin" +"(call-expand-observe obs_155 'enter-prim s_843)" +"(call-expand-observe" +" obs_155" +"(if is-star?_0 'prim-submodule* 'prim-submodule)))))" +"(void)))))" +"(values))))" +"(let-values(((ok?_86 module662_0 name663_0 _664_0)" +"(let-values(((s_844) s_843))" +"(let-values(((orig-s_90) s_844))" +"(let-values(((module662_1 name663_1 _664_1)" +"(let-values(((s_845)" +"(if(syntax?$1 s_844)" +"(syntax-e$1 s_844)" +" s_844)))" +"(if(pair? s_845)" +"(let-values(((module665_0)" +"(let-values(((s_846)(car s_845)))" +" s_846))" +"((name666_0 _667_0)" +"(let-values(((s_847)(cdr s_845)))" +"(let-values(((s_848)" +"(if(syntax?$1" +" s_847)" +"(syntax-e$1 s_847)" +" s_847)))" +"(if(pair? s_848)" +"(let-values(((name668_0)" +"(let-values(((s_849)" +"(car" +" s_848)))" +" s_849))" +"((_669_0)" +"(let-values(((s_850)" +"(cdr" +" s_848)))" +" s_850)))" +"(values name668_0 _669_0))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_90))))))" +"(values module665_0 name666_0 _667_0))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_90)))))" +"(values #t module662_1 name663_1 _664_1))))))" +"(let-values(((name_81)(syntax-e$1 name663_0)))" +"(let-values((()" +"(begin" +"(if(hash-ref declared-submodule-names_8 name_81 #f)" +"(let-values()" +"(raise-syntax-error$1" +" #f" +" \"submodule already declared with the same name\"" +" s_843" +" name_81))" +"(void))" +"(values))))" +"(let-values((()" +"(begin" +"(hash-set!" +" declared-submodule-names_8" +" name_81" +"(syntax-e$1 module662_0))" +"(values))))" +"(let-values((()" +"(begin" +"(let-values(((obs_156)(expand-context-observer ctx_120)))" +"(if obs_156" +"(let-values()" +"(let-values()" +"(call-expand-observe obs_156 'enter-prim s_843)))" +"(void)))" +"(values))))" +"(let-values(((submod_5)" +"(let-values(((temp671_0)" +"(let-values(((v_262) ctx_120))" +"(let-values(((the-struct_121) v_262))" +"(if(expand-context/outer? the-struct_121)" +"(let-values(((context680_0) 'module)" +"((post-expansion-scope681_0)" +" #f)" +"((inner682_0)" +"(let-values(((the-struct_122)" +"(root-expand-context/outer-inner" +" v_262)))" +"(if(expand-context/inner?" +" the-struct_122)" +"(let-values(((stops683_0)" +" empty-free-id-set))" +"(expand-context/inner2.1" +"(root-expand-context/inner-self-mpi" +" the-struct_122)" +"(root-expand-context/inner-module-scopes" +" the-struct_122)" +"(root-expand-context/inner-top-level-bind-scope" +" the-struct_122)" +"(root-expand-context/inner-all-scopes-stx" +" the-struct_122)" +"(root-expand-context/inner-defined-syms" +" the-struct_122)" +"(root-expand-context/inner-counter" +" the-struct_122)" +"(root-expand-context/inner-lift-key" +" the-struct_122)" +"(expand-context/inner-to-parsed?" +" the-struct_122)" +"(expand-context/inner-phase" +" the-struct_122)" +"(expand-context/inner-namespace" +" the-struct_122)" +"(expand-context/inner-just-once?" +" the-struct_122)" +"(expand-context/inner-module-begin-k" +" the-struct_122)" +"(expand-context/inner-allow-unbound?" +" the-struct_122)" +"(expand-context/inner-in-local-expand?" +" the-struct_122)" +" stops683_0" +"(expand-context/inner-declared-submodule-names" +" the-struct_122)" +"(expand-context/inner-lifts" +" the-struct_122)" +"(expand-context/inner-lift-envs" +" the-struct_122)" +"(expand-context/inner-module-lifts" +" the-struct_122)" +"(expand-context/inner-require-lifts" +" the-struct_122)" +"(expand-context/inner-to-module-lifts" +" the-struct_122)" +"(expand-context/inner-requires+provides" +" the-struct_122)" +"(expand-context/inner-observer" +" the-struct_122)" +"(expand-context/inner-for-serializable?" +" the-struct_122)" +"(expand-context/inner-should-not-encounter-macros?" +" the-struct_122)))" +"(raise-argument-error" +" 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_122)))))" +"(expand-context/outer1.1" +" inner682_0" +" post-expansion-scope681_0" +"(root-expand-context/outer-use-site-scopes" +" the-struct_121)" +"(root-expand-context/outer-frame-id" +" the-struct_121)" +" context680_0" +"(expand-context/outer-env" +" the-struct_121)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_121)" +"(expand-context/outer-scopes" +" the-struct_121)" +"(expand-context/outer-def-ctx-scopes" +" the-struct_121)" +"(expand-context/outer-binding-layer" +" the-struct_121)" +"(expand-context/outer-reference-records" +" the-struct_121)" +"(expand-context/outer-only-immediate?" +" the-struct_121)" +"(expand-context/outer-need-eventually-defined" +" the-struct_121)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_121)" +"(expand-context/outer-name" +" the-struct_121)))" +"(raise-argument-error" +" 'struct-copy" +" \"expand-context/outer?\"" +" the-struct_121)))))" +"((self672_0) self_43)" +"((temp673_0) #t)" +"((keep-enclosing-scope-at-phase674_0)" +" keep-enclosing-scope-at-phase_2)" +"((enclosing-all-scopes-stx675_0)" +" enclosing-all-scopes-stx_1)" +"((enclosing-r+p676_0) enclosing-r+p_2)" +"((enclosing-is-cross-phase-persistent?677_0)" +" enclosing-is-cross-phase-persistent?_2)" +"((mpis-to-reset678_0) mpis-to-reset_4)" +"((modules-being-compiled679_0)" +" modules-being-compiled_8))" +"(expand-module18.1" +" temp673_0" +" #t" +" enclosing-all-scopes-stx675_0" +" #t" +" enclosing-is-cross-phase-persistent?677_0" +" #t" +" enclosing-r+p676_0" +" #t" +" keep-enclosing-scope-at-phase674_0" +" #t" +" modules-being-compiled679_0" +" #t" +" mpis-to-reset678_0" +" #t" +" s_843" +" temp671_0" +" self672_0))))" +"(let-values((()" +"(begin" +"(let-values(((obs_157)" +"(expand-context-observer ctx_120)))" +"(if obs_157" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_157" +" 'exit-prim" +"(extract-syntax submod_5))))" +"(void)))" +"(values))))" +"(let-values(((ns_125)(expand-context-namespace ctx_120)))" +"(let-values(((module-name_3)(1/module-path-index-resolve self_43)))" +"(let-values(((root-module-name_1)" +"(resolved-module-path-root-name module-name_3)))" +"(let-values(((compiled-submodule_0)" +"(let-values(((temp684_0)" +"(if(expanded+parsed? submod_5)" +"(expanded+parsed-parsed submod_5)" +" submod_5))" +"((temp685_0)" +"(let-values(((ns690_0) ns_125)" +"((self691_0) self_43)" +"((temp692_0)" +"(1/resolved-module-path-name" +" module-name_3)))" +"(make-compile-context14.1" +" temp692_0" +" #t" +" #f" +" #f" +" self691_0" +" #t" +" ns690_0" +" #t" +" #f" +" #f" +" #f" +" #f)))" +"((temp686_0) #t)" +"((temp687_0)" +"(expand-context-for-serializable?" +" ctx_120))" +"((modules-being-compiled688_0)" +" modules-being-compiled_8)" +"((temp689_0) #f))" +"(compile-module13.1" " temp686_0" " #t" +" modules-being-compiled688_0" +" #t" +" temp689_0" +" #t" +" temp687_0" +" #t" " #f" " #f" -" temp683_0" -" temp684_0))))" +" temp684_0" +" temp685_0))))" "(begin" "(hash-set!" " compiled-submodules_5" @@ -75108,25 +75572,25 @@ static const char *startup_source = " 1/current-module-declare-name" "(1/make-resolved-module-path root-module-name_1))" "(let-values()" -"(let-values(((temp693_0) #f))" +"(let-values(((temp694_0) #f))" "(eval-module8.1" " #f" " #f" " #f" " #f" -" temp693_0" +" temp694_0" " #t" " compiled-submodule_0))))" "(if is-star?_0" "(void)" "(let-values()" -"(let-values(((obs_160)" -"(expand-context-observer ctx_119)))" -"(if obs_160" +"(let-values(((obs_158)" +"(expand-context-observer ctx_120)))" +"(if obs_158" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_160" +" obs_158" " 'exit-prim" "(extract-syntax submod_5))))" "(void)))))" @@ -75134,67 +75598,67 @@ static const char *startup_source = "(let-values() submod_5)" "(if(expanded+parsed? submod_5)" "(let-values()" -"(let-values(((the-struct_120) submod_5))" -"(if(expanded+parsed? the-struct_120)" -"(let-values(((parsed694_0)" -"(let-values(((the-struct_121)" +"(let-values(((the-struct_123) submod_5))" +"(if(expanded+parsed? the-struct_123)" +"(let-values(((parsed695_0)" +"(let-values(((the-struct_124)" "(expanded+parsed-parsed" " submod_5)))" -"(if(parsed-module? the-struct_121)" -"(let-values(((star?695_0) #t))" +"(if(parsed-module? the-struct_124)" +"(let-values(((star?696_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_121)" -" star?695_0" +"(parsed-s the-struct_124)" +" star?696_0" "(parsed-module-name-id" -" the-struct_121)" +" the-struct_124)" "(parsed-module-self" -" the-struct_121)" +" the-struct_124)" "(parsed-module-requires" -" the-struct_121)" +" the-struct_124)" "(parsed-module-provides" -" the-struct_121)" +" the-struct_124)" "(parsed-module-root-ctx-simple?" -" the-struct_121)" +" the-struct_124)" "(parsed-module-encoded-root-ctx" -" the-struct_121)" +" the-struct_124)" "(parsed-module-body" -" the-struct_121)" +" the-struct_124)" "(parsed-module-compiled-module" -" the-struct_121)" +" the-struct_124)" "(parsed-module-compiled-submodules" -" the-struct_121)))" +" the-struct_124)))" "(raise-argument-error" " 'struct-copy" " \"parsed-module?\"" -" the-struct_121)))))" +" the-struct_124)))))" "(expanded+parsed1.1" -"(expanded+parsed-s the-struct_120)" -" parsed694_0))" +"(expanded+parsed-s the-struct_123)" +" parsed695_0))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_120))))" +" the-struct_123))))" "(let-values()" -"(let-values(((the-struct_122) submod_5))" -"(if(parsed-module? the-struct_122)" -"(let-values(((star?696_0) #t))" +"(let-values(((the-struct_125) submod_5))" +"(if(parsed-module? the-struct_125)" +"(let-values(((star?697_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_122)" -" star?696_0" -"(parsed-module-name-id the-struct_122)" -"(parsed-module-self the-struct_122)" -"(parsed-module-requires the-struct_122)" -"(parsed-module-provides the-struct_122)" -"(parsed-module-root-ctx-simple? the-struct_122)" -"(parsed-module-encoded-root-ctx the-struct_122)" -"(parsed-module-body the-struct_122)" -"(parsed-module-compiled-module the-struct_122)" +"(parsed-s the-struct_125)" +" 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-compiled-submodules" -" the-struct_122)))" +" the-struct_125)))" "(raise-argument-error" " 'struct-copy" " \"parsed-module?\"" -" the-struct_122)))))))))))))))))))))))))))))))))))" +" the-struct_125)))))))))))))))))))))))))))))))))))" "(define-values" "(expand-non-module*-submodules212.1)" "(lambda(compiled-submodules202_0" @@ -75208,165 +75672,165 @@ static const char *startup_source = "(begin" " 'expand-non-module*-submodules212" "(let-values(((bodys_29) bodys208_0))" -"(let-values(((phase_164) phase209_0))" -"(let-values(((self_41) self210_0))" -"(let-values(((ctx_120) ctx211_0))" +"(let-values(((phase_166) phase209_0))" +"(let-values(((self_44) self210_0))" +"(let-values(((ctx_121) ctx211_0))" "(let-values(((mpis-to-reset_5) mpis-to-reset200_0))" "(let-values(((declared-submodule-names_9) declared-submodule-names201_0))" "(let-values(((compiled-submodules_6) compiled-submodules202_0))" "(let-values(((modules-being-compiled_9) modules-being-compiled203_0))" "(let-values()" "(reverse$1" -"(let-values(((lst_440) bodys_29))" +"(let-values(((lst_439) bodys_29))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_440)))" -"((letrec-values(((for-loop_323)" -"(lambda(fold-var_365 lst_441)" +"(let-values()(check-list lst_439)))" +"((letrec-values(((for-loop_322)" +"(lambda(fold-var_368 lst_440)" "(begin" " 'for-loop" -"(if(pair? lst_441)" -"(let-values(((body_27)(unsafe-car lst_441))" -"((rest_261)(unsafe-cdr lst_441)))" -"(let-values(((fold-var_366)" -"(let-values(((fold-var_367) fold-var_365))" -"(let-values(((fold-var_368)" +"(if(pair? lst_440)" +"(let-values(((body_27)(unsafe-car lst_440))" +"((rest_261)(unsafe-cdr lst_440)))" +"(let-values(((fold-var_369)" +"(let-values(((fold-var_370) fold-var_368))" +"(let-values(((fold-var_371)" "(let-values()" "(cons" "(let-values()" -"(let-values(((tmp_68)" +"(let-values(((tmp_69)" "(core-form-sym" "(syntax-disarm$1" " body_27)" -" phase_164)))" -"(if(equal? tmp_68 'module)" +" phase_166)))" +"(if(equal? tmp_69 'module)" "(let-values()" -"(let-values(((temp700_0)" +"(let-values(((temp701_0)" " #f)" -"((mpis-to-reset701_0)" +"((mpis-to-reset702_0)" " mpis-to-reset_5)" -"((declared-submodule-names702_0)" +"((declared-submodule-names703_0)" " declared-submodule-names_9)" -"((compiled-submodules703_0)" +"((compiled-submodules704_0)" " compiled-submodules_6)" -"((modules-being-compiled704_0)" +"((modules-being-compiled705_0)" " modules-being-compiled_9))" "(expand-submodule197.1" -" compiled-submodules703_0" -" declared-submodule-names702_0" +" compiled-submodules704_0" +" declared-submodule-names703_0" " #f" " #f" " #f" " #f" " #f" " #f" -" temp700_0" +" temp701_0" " #f" " #f" -" modules-being-compiled704_0" -" mpis-to-reset701_0" +" modules-being-compiled705_0" +" mpis-to-reset702_0" " body_27" -" self_41" -" ctx_120)))" +" self_44" +" ctx_121)))" "(let-values() body_27))))" -" fold-var_367))))" -"(values fold-var_368)))))" +" fold-var_370))))" +"(values fold-var_371)))))" "(if(not #f)" -"(for-loop_323 fold-var_366 rest_261)" -" fold-var_366)))" -" fold-var_365)))))" -" for-loop_323)" +"(for-loop_322 fold-var_369 rest_261)" +" fold-var_369)))" +" fold-var_368)))))" +" for-loop_322)" " null" -" lst_440))))))))))))))))" +" lst_439))))))))))))))))" "(define-values" "(make-parse-lifted-require220.1)" "(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_42) self218_0))" +"(let-values(((self_45) self218_0))" "(let-values(((requires+provides_13) requires+provides219_0))" "(let-values(((declared-submodule-names_10) declared-submodule-names215_0))" "(let-values()" -"(lambda(s_849 phase_165)" -"(let-values(((ok?_86 #%require705_0 req706_0)" -"(let-values(((s_850)(syntax-disarm$1 s_849)))" -"(let-values(((orig-s_91) s_850))" -"(let-values(((#%require705_1 req706_1)" -"(let-values(((s_851)" -"(if(syntax?$1 s_850)(syntax-e$1 s_850) s_850)))" -"(if(pair? s_851)" -"(let-values(((#%require707_0)" -"(let-values(((s_852)(car s_851))) s_852))" -"((req708_0)" -"(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(((req709_0)" -"(let-values(((s_855)" -"(car s_854)))" -" s_855))" -"(()" +"(lambda(s_851 phase_167)" +"(let-values(((ok?_87 #%require706_0 req707_0)" +"(let-values(((s_852)(syntax-disarm$1 s_851)))" +"(let-values(((orig-s_91) s_852))" +"(let-values(((#%require706_1 req707_1)" +"(let-values(((s_853)" +"(if(syntax?$1 s_852)(syntax-e$1 s_852) s_852)))" +"(if(pair? s_853)" +"(let-values(((#%require708_0)" +"(let-values(((s_854)(car s_853))) s_854))" +"((req709_0)" +"(let-values(((s_855)(cdr s_853)))" "(let-values(((s_856)" -"(cdr s_854)))" +"(if(syntax?$1 s_855)" +"(syntax-e$1 s_855)" +" s_855)))" +"(if(pair? s_856)" +"(let-values(((req710_0)" "(let-values(((s_857)" +"(car s_856)))" +" s_857))" +"(()" +"(let-values(((s_858)" +"(cdr s_856)))" +"(let-values(((s_859)" "(if(syntax?$1" -" s_856)" +" s_858)" "(syntax-e$1" -" s_856)" -" s_856)))" -"(if(null? s_857)" +" s_858)" +" s_858)))" +"(if(null? s_859)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_91))))))" -"(values req709_0))" +"(values req710_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_91))))))" -"(values #%require707_0 req708_0))" +"(values #%require708_0 req709_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_91)))))" -"(values #t #%require705_1 req706_1))))))" -"(let-values(((temp710_0)(list req706_0))" -"((s711_0) s_849)" -"((self712_0) self_42)" -"((m-ns713_0) m-ns_24)" -"((phase714_0) phase_165)" -"((phase715_0) phase_165)" -"((requires+provides716_0) requires+provides_13)" -"((declared-submodule-names717_0) declared-submodule-names_10)" -"((temp718_0) 'require))" +"(values #t #%require706_1 req707_1))))))" +"(let-values(((temp711_0)(list req707_0))" +"((s712_0) s_851)" +"((self713_0) self_45)" +"((m-ns714_0) m-ns_24)" +"((phase715_0) phase_167)" +"((phase716_0) phase_167)" +"((requires+provides717_0) requires+provides_13)" +"((declared-submodule-names718_0) declared-submodule-names_10)" +"((temp719_0) 'require))" "(parse-and-perform-requires!30.1" " #f" " #f" " #f" " #f" -" declared-submodule-names717_0" +" declared-submodule-names718_0" " #t" " #f" " #f" +" phase716_0" +" #t" +" #f" +" #f" +" self713_0" +" #t" +" #f" +" #f" +" #f" +" #f" +" temp719_0" +" temp711_0" +" s712_0" +" m-ns714_0" " phase715_0" -" #t" -" #f" -" #f" -" self712_0" -" #t" -" #f" -" #f" -" #f" -" #f" -" temp718_0" -" temp710_0" -" s711_0" -" m-ns713_0" -" phase714_0" -" requires+provides716_0))))))))))))" +" requires+provides717_0))))))))))))" "(define-values" "(defn-extract-syntax)" "(lambda(defn_0)" @@ -75380,249 +75844,249 @@ static const char *startup_source = "(lambda(lifted-defns_2)" "(begin" "(reverse$1" -"(let-values(((lst_442) lifted-defns_2))" +"(let-values(((lst_441) lifted-defns_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_442)))" -"((letrec-values(((for-loop_324)" -"(lambda(fold-var_369 lst_443)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_441)))" +"((letrec-values(((for-loop_323)" +"(lambda(fold-var_372 lst_442)" "(begin" " 'for-loop" -"(if(pair? lst_443)" -"(let-values(((lifted-defn_0)(unsafe-car lst_443))" -"((rest_262)(unsafe-cdr lst_443)))" -"(let-values(((fold-var_370)" -"(let-values(((fold-var_371) fold-var_369))" -"(let-values(((fold-var_372)" +"(if(pair? lst_442)" +"(let-values(((lifted-defn_0)(unsafe-car lst_442))" +"((rest_262)(unsafe-cdr lst_442)))" +"(let-values(((fold-var_373)" +"(let-values(((fold-var_374) fold-var_372))" +"(let-values(((fold-var_375)" "(let-values()" "(cons" "(let-values()" "(defn-extract-syntax lifted-defn_0))" -" fold-var_371))))" -"(values fold-var_372)))))" -"(if(not #f)(for-loop_324 fold-var_370 rest_262) fold-var_370)))" -" fold-var_369)))))" -" for-loop_324)" +" fold-var_374))))" +"(values fold-var_375)))))" +"(if(not #f)(for-loop_323 fold-var_373 rest_262) fold-var_373)))" +" fold-var_372)))))" +" for-loop_323)" " null" -" lst_442)))))))" +" lst_441)))))))" "(define-values" "(log-lifted-defns)" "(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)" "(begin" -"(let-values(((obs_161)(expand-context-observer partial-body-ctx_2)))" -"(if obs_161" +"(let-values(((obs_159)(expand-context-observer partial-body-ctx_2)))" +"(if obs_159" "(let-values()" "(let-values(((s-lifted-defns_0)(lifted-defns-extract-syntax lifted-defns_3)))" "(let-values((()" "(begin" -"(call-expand-observe obs_161 'rename-list(cons exp-body_10 rest-bodys_4))" +"(call-expand-observe obs_159 'rename-list(cons exp-body_10 rest-bodys_4))" "(values))))" -"(let-values((()(begin(call-expand-observe obs_161 'module-lift-loop s-lifted-defns_0)(values))))" +"(let-values((()(begin(call-expand-observe obs_159 'module-lift-loop s-lifted-defns_0)(values))))" "(let-values((()" "(begin" -"(let-values(((lst_444) s-lifted-defns_0))" +"(let-values(((lst_443) s-lifted-defns_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_444)))" -"((letrec-values(((for-loop_325)" -"(lambda(lst_445)" +"(let-values()(check-list lst_443)))" +"((letrec-values(((for-loop_324)" +"(lambda(lst_444)" "(begin" " 'for-loop" -"(if(pair? lst_445)" -"(let-values(((s-lifted-defn_0)(unsafe-car lst_445))" -"((rest_263)(unsafe-cdr lst_445)))" +"(if(pair? lst_444)" +"(let-values(((s-lifted-defn_0)(unsafe-car lst_444))" +"((rest_263)(unsafe-cdr lst_444)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((ok?_87" -" define-values723_0" -" _724_0)" -"(let-values(((s_858)" +"(let-values(((ok?_88" +" define-values724_0" +" _725_0)" +"(let-values(((s_860)" " s-lifted-defn_0))" "(let-values(((orig-s_92)" -" s_858))" -"(let-values(((define-values723_1" -" _724_1)" -"(let-values(((s_859)" -"(if(syntax?$1" -" s_858)" -"(syntax-e$1" -" s_858)" -" s_858)))" -"(if(pair?" -" s_859)" -"(let-values(((define-values725_0)" -"(let-values(((s_860)" -"(car" -" s_859)))" " s_860))" -"((_726_0)" +"(let-values(((define-values724_1" +" _725_1)" "(let-values(((s_861)" -"(cdr" -" s_859)))" -"(let-values(((s_862)" "(if(syntax?$1" -" s_861)" +" s_860)" "(syntax-e$1" +" s_860)" +" s_860)))" +"(if(pair?" " s_861)" +"(let-values(((define-values726_0)" +"(let-values(((s_862)" +"(car" " s_861)))" -"(let-values(((flat-s_60)" +" s_862))" +"((_727_0)" +"(let-values(((s_863)" +"(cdr" +" s_861)))" +"(let-values(((s_864)" +"(if(syntax?$1" +" s_863)" +"(syntax-e$1" +" s_863)" +" s_863)))" +"(let-values(((flat-s_61)" "(to-syntax-list.1" -" s_862)))" +" s_864)))" "(if(not" -" flat-s_60)" +" flat-s_61)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_92))" "(let-values()" -" flat-s_60)))))))" +" flat-s_61)))))))" "(values" -" define-values725_0" -" _726_0))" +" define-values726_0" +" _727_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_92)))))" "(values" " #t" -" define-values723_1" -" _724_1))))))" +" define-values724_1" +" _725_1))))))" "(begin" "(call-expand-observe" -" obs_161" +" obs_159" " 'next)" "(call-expand-observe" -" obs_161" +" obs_159" " 'visit" " s-lifted-defn_0)" "(call-expand-observe" -" obs_161" +" obs_159" " 'resolve" -" define-values723_0)" +" define-values724_0)" "(call-expand-observe" -" obs_161" +" obs_159" " 'enter-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_161" +" obs_159" " 'prim-stop)" "(call-expand-observe" -" obs_161" +" obs_159" " 'exit-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_161" +" obs_159" " 'return" " s-lifted-defn_0)" "(call-expand-observe" -" obs_161" +" obs_159" " 'rename-one" " s-lifted-defn_0)" "(call-expand-observe" -" obs_161" +" obs_159" " 'enter-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_161" +" obs_159" " 'prim-define-values)" "(call-expand-observe" -" obs_161" +" obs_159" " 'exit-prim" " s-lifted-defn_0))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_325 rest_263)(values))))" +"(if(not #f)(for-loop_324 rest_263)(values))))" "(values))))))" -" for-loop_325)" -" lst_444)))" +" for-loop_324)" +" lst_443)))" "(values))))" "(let-values()" -"(let-values(((ok?_88 form-id719_0 _720_0)" -"(let-values(((s_863) exp-body_10))" -"(let-values(((orig-s_93) s_863))" -"(let-values(((form-id719_1 _720_1)" -"(let-values(((s_864)" -"(if(syntax?$1 s_863)(syntax-e$1 s_863) s_863)))" -"(if(pair? s_864)" -"(let-values(((form-id721_0)" -"(let-values(((s_865)(car s_864))) s_865))" -"((_722_0)" -"(let-values(((s_866)(cdr s_864))) s_866)))" -"(values form-id721_0 _722_0))" +"(let-values(((ok?_89 form-id720_0 _721_0)" +"(let-values(((s_865) exp-body_10))" +"(let-values(((orig-s_93) s_865))" +"(let-values(((form-id720_1 _721_1)" +"(let-values(((s_866)" +"(if(syntax?$1 s_865)(syntax-e$1 s_865) s_865)))" +"(if(pair? s_866)" +"(let-values(((form-id722_0)" +"(let-values(((s_867)(car s_866))) s_867))" +"((_723_0)" +"(let-values(((s_868)(cdr s_866))) s_868)))" +"(values form-id722_0 _723_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_93)))))" -"(values #t form-id719_1 _720_1))))))" +"(values #t form-id720_1 _721_1))))))" "(begin" -"(call-expand-observe obs_161 'next)" -"(call-expand-observe obs_161 'visit exp-body_10)" -"(call-expand-observe obs_161 'resolve form-id719_0)" -"(call-expand-observe obs_161 'enter-prim exp-body_10)" -"(call-expand-observe obs_161 'prim-stop)" -"(call-expand-observe obs_161 'exit-prim exp-body_10)" -"(call-expand-observe obs_161 'return exp-body_10)))))))))" +"(call-expand-observe obs_159 'next)" +"(call-expand-observe obs_159 'visit exp-body_10)" +"(call-expand-observe obs_159 'resolve form-id720_0)" +"(call-expand-observe obs_159 'enter-prim exp-body_10)" +"(call-expand-observe obs_159 'prim-stop)" +"(call-expand-observe obs_159 'exit-prim exp-body_10)" +"(call-expand-observe obs_159 'return exp-body_10)))))))))" "(void))))))" "(define-values" "(log-defn-enter)" -"(lambda(ctx_121 defn_1)" +"(lambda(ctx_122 defn_1)" "(begin" -"(let-values(((obs_162)(expand-context-observer ctx_121)))" -"(if obs_162" +"(let-values(((obs_160)(expand-context-observer ctx_122)))" +"(if obs_160" "(let-values()" "(let-values(((s-defn_0)(defn-extract-syntax defn_1)))" -"(let-values(((ok?_89 define-values727_0 _728_0)" -"(let-values(((s_867) s-defn_0))" -"(let-values(((orig-s_94) s_867))" -"(let-values(((define-values727_1 _728_1)" -"(let-values(((s_868)(if(syntax?$1 s_867)(syntax-e$1 s_867) s_867)))" -"(if(pair? s_868)" -"(let-values(((define-values729_0)" -"(let-values(((s_869)(car s_868))) s_869))" -"((_730_0)" -"(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_61)(to-syntax-list.1 s_871)))" -"(if(not flat-s_61)" +"(let-values(((ok?_90 define-values728_0 _729_0)" +"(let-values(((s_869) s-defn_0))" +"(let-values(((orig-s_94) s_869))" +"(let-values(((define-values728_1 _729_1)" +"(let-values(((s_870)(if(syntax?$1 s_869)(syntax-e$1 s_869) s_869)))" +"(if(pair? s_870)" +"(let-values(((define-values730_0)" +"(let-values(((s_871)(car s_870))) s_871))" +"((_731_0)" +"(let-values(((s_872)(cdr s_870)))" +"(let-values(((s_873)" +"(if(syntax?$1 s_872)" +"(syntax-e$1 s_872)" +" s_872)))" +"(let-values(((flat-s_62)(to-syntax-list.1 s_873)))" +"(if(not flat-s_62)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_94))" -"(let-values() flat-s_61)))))))" -"(values define-values729_0 _730_0))" +"(let-values() flat-s_62)))))))" +"(values define-values730_0 _731_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_94)))))" -"(values #t define-values727_1 _728_1))))))" +"(values #t define-values728_1 _729_1))))))" "(begin" -"(call-expand-observe obs_162 'visit s-defn_0)" -"(call-expand-observe obs_162 'resolve define-values727_0)" -"(call-expand-observe obs_162 'enter-prim s-defn_0)" -"(call-expand-observe obs_162 'prim-define-values)))))" +"(call-expand-observe obs_160 'visit s-defn_0)" +"(call-expand-observe obs_160 'resolve define-values728_0)" +"(call-expand-observe obs_160 'enter-prim s-defn_0)" +"(call-expand-observe obs_160 'prim-define-values)))))" "(void))))))" "(define-values" "(log-defn-exit)" -"(lambda(ctx_122 defn_2 exp-rhs_8)" +"(lambda(ctx_123 defn_2 exp-rhs_8)" "(begin" -"(let-values(((obs_163)(expand-context-observer ctx_122)))" -"(if obs_163" +"(let-values(((obs_161)(expand-context-observer ctx_123)))" +"(if obs_161" "(let-values()" "(let-values(((s-defn_1)" "(datum->syntax$1" " #f" "(list 'define-values(semi-parsed-define-values-ids defn_2) exp-rhs_8)" "(semi-parsed-define-values-s defn_2))))" -"(begin(call-expand-observe obs_163 'exit-prim s-defn_1)(call-expand-observe obs_163 'return s-defn_1))))" +"(begin(call-expand-observe obs_161 'exit-prim s-defn_1)(call-expand-observe obs_161 'return s-defn_1))))" "(void))))))" "(define-values" "(as-expand-time-top-level-bindings)" -"(lambda(ids_45 s_156 ctx_123)" +"(lambda(ids_45 s_156 ctx_124)" "(begin" -"(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_123)))" +"(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_124)))" "(let-values(((tl-ids_2)" "(reverse$1" "(let-values(((lst_6) ids_45))" @@ -75630,32 +76094,32 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_6)))" -"((letrec-values(((for-loop_98)" -"(lambda(fold-var_373 lst_80)" +"((letrec-values(((for-loop_99)" +"(lambda(fold-var_376 lst_80)" "(begin" " 'for-loop" "(if(pair? lst_80)" "(let-values(((id_159)(unsafe-car lst_80))" "((rest_38)(unsafe-cdr lst_80)))" "(let-values(((fold-var_60)" -"(let-values(((fold-var_61) fold-var_373))" -"(let-values(((fold-var_374)" +"(let-values(((fold-var_61) fold-var_376))" +"(let-values(((fold-var_377)" "(let-values()" "(cons" "(let-values()" "(remove-use-site-scopes" " id_159" -" ctx_123))" +" ctx_124))" " fold-var_61))))" -"(values fold-var_374)))))" -"(if(not #f)(for-loop_98 fold-var_60 rest_38) fold-var_60)))" -" fold-var_373)))))" -" for-loop_98)" +"(values fold-var_377)))))" +"(if(not #f)(for-loop_99 fold-var_60 rest_38) fold-var_60)))" +" fold-var_376)))))" +" for-loop_99)" " null" " lst_6))))))" "(let-values((()" "(begin" -"(let-values(((tl-ids1_0) tl-ids_2)((temp2_8)(expand-context-phase ctx_123))((s3_3) s_156))" +"(let-values(((tl-ids1_0) tl-ids_2)((temp2_8)(expand-context-phase ctx_124))((s3_3) s_156))" "(check-no-duplicate-ids8.1 #f #f tl-ids1_0 temp2_8 s3_3 #f #f))" "(values))))" "(let-values(((tmp-bind-ids_0)" @@ -75665,14 +76129,14 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_94)))" -"((letrec-values(((for-loop_326)" +"((letrec-values(((for-loop_325)" "(lambda(fold-var_217 lst_81)" "(begin" " 'for-loop" "(if(pair? lst_81)" "(let-values(((id_3)(unsafe-car lst_81))" "((rest_242)(unsafe-cdr lst_81)))" -"(let-values(((fold-var_375)" +"(let-values(((fold-var_221)" "(let-values(((fold-var_31) fold-var_217))" "(let-values(((fold-var_32)" "(let-values()" @@ -75684,22 +76148,22 @@ static const char *startup_source = " fold-var_31))))" "(values fold-var_32)))))" "(if(not #f)" -"(for-loop_326 fold-var_375 rest_242)" -" fold-var_375)))" +"(for-loop_325 fold-var_221 rest_242)" +" fold-var_221)))" " fold-var_217)))))" -" for-loop_326)" +" for-loop_325)" " null" " lst_94))))))" -"(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_123)))))))))" +"(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_124)))))))))" "(void" "(add-core-form!*" " 'define-values" "(lambda(s_0 ctx_7)" "(let-values((()" "(begin" -"(let-values(((obs_164)(expand-context-observer ctx_7)))" -"(if obs_164" -"(let-values()(let-values()(call-expand-observe obs_164 'prim-define-values)))" +"(let-values(((obs_162)(expand-context-observer ctx_7)))" +"(if obs_162" +"(let-values()(let-values()(call-expand-observe obs_162 'prim-define-values)))" "(void)))" "(values))))" "(let-values((()" @@ -75730,10 +76194,10 @@ static const char *startup_source = "(if(syntax?$1 s_160)" "(syntax-e$1 s_160)" " s_160)))" -"(let-values(((flat-s_62)" +"(let-values(((flat-s_63)" "(to-syntax-list.1" " s_5)))" -"(if(not flat-s_62)" +"(if(not flat-s_63)" "(let-values()" "(raise-syntax-error$1" " #f" @@ -75742,7 +76206,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id_160)" "(let-values(((lst_24)" -" flat-s_62))" +" flat-s_63))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -75760,7 +76224,7 @@ static const char *startup_source = "(let-values(((s_182)" "(unsafe-car" " lst_76))" -"((rest_141)" +"((rest_140)" "(unsafe-cdr" " lst_76)))" "(let-values(((id_162)" @@ -75768,17 +76232,17 @@ static const char *startup_source = " id_161))" "(let-values(((id_163)" "(let-values()" -"(let-values(((id10_0)" +"(let-values(((id10_1)" "(let-values()" -"(if(let-values(((or-part_56)" +"(if(let-values(((or-part_62)" "(if(syntax?$1" " s_182)" "(symbol?" "(syntax-e$1" " s_182))" " #f)))" -"(if or-part_56" -" or-part_56" +"(if or-part_62" +" or-part_62" "(symbol?" " s_182)))" " s_182" @@ -75788,7 +76252,7 @@ static const char *startup_source = " orig-s_95" " s_182)))))" "(cons" -" id10_0" +" id10_1" " id_52)))))" "(values" " id_163)))))" @@ -75796,7 +76260,7 @@ static const char *startup_source = " #f)" "(for-loop_241" " id_162" -" rest_141)" +" rest_140)" " id_162)))" " id_161)))))" " for-loop_241)" @@ -75853,51 +76317,51 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'define-syntaxes" -"(lambda(s_467 ctx_124)" +"(lambda(s_468 ctx_125)" "(let-values((()" "(begin" -"(let-values(((obs_165)(expand-context-observer ctx_124)))" -"(if obs_165" -"(let-values()(let-values()(call-expand-observe obs_165 'prim-define-syntaxes)))" +"(let-values(((obs_163)(expand-context-observer ctx_125)))" +"(if obs_163" +"(let-values()(let-values()(call-expand-observe obs_163 'prim-define-syntaxes)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_166)(expand-context-observer ctx_124)))" -"(if obs_166(let-values()(let-values()(call-expand-observe obs_166 'prepare-env)))(void)))" +"(let-values(((obs_164)(expand-context-observer ctx_125)))" +"(if obs_164(let-values()(let-values()(call-expand-observe obs_164 'prepare-env)))(void)))" "(values))))" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_124) 'top-level)" +"(if(eq?(expand-context-context ctx_125) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not allowed in an expression position\" s_467)))" +" (let-values () (raise-syntax-error$1 #f \"not allowed in an expression position\" s_468)))" "(values))))" -"(let-values(((disarmed-s_26)(syntax-disarm$1 s_467)))" -"(let-values(((ok?_90 define-syntaxes15_0 id16_2 rhs17_0)" -"(let-values(((s_872) disarmed-s_26))" -"(let-values(((orig-s_96) s_872))" +"(let-values(((disarmed-s_26)(syntax-disarm$1 s_468)))" +"(let-values(((ok?_91 define-syntaxes15_0 id16_2 rhs17_0)" +"(let-values(((s_874) disarmed-s_26))" +"(let-values(((orig-s_96) s_874))" "(let-values(((define-syntaxes15_1 id16_3 rhs17_1)" -"(let-values(((s_20)(if(syntax?$1 s_872)(syntax-e$1 s_872) s_872)))" +"(let-values(((s_20)(if(syntax?$1 s_874)(syntax-e$1 s_874) s_874)))" "(if(pair? s_20)" "(let-values(((define-syntaxes18_0)" "(let-values(((s_23)(car s_20))) s_23))" "((id19_0 rhs20_0)" -"(let-values(((s_430)(cdr s_20)))" +"(let-values(((s_431)(cdr s_20)))" "(let-values(((s_24)" -"(if(syntax?$1 s_430)" -"(syntax-e$1 s_430)" -" s_430)))" +"(if(syntax?$1 s_431)" +"(syntax-e$1 s_431)" +" s_431)))" "(if(pair? s_24)" "(let-values(((id21_0)" "(let-values(((s_732)(car s_24)))" -"(let-values(((s_475)" +"(let-values(((s_476)" "(if(syntax?$1 s_732)" "(syntax-e$1 s_732)" " s_732)))" -"(let-values(((flat-s_63)" +"(let-values(((flat-s_64)" "(to-syntax-list.1" -" s_475)))" -"(if(not flat-s_63)" +" s_476)))" +"(if(not flat-s_64)" "(let-values()" "(raise-syntax-error$1" " #f" @@ -75906,7 +76370,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id_92)" "(let-values(((lst_177)" -" flat-s_63))" +" flat-s_64))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -75914,19 +76378,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_177)))" -"((letrec-values(((for-loop_261)" +"((letrec-values(((for-loop_262)" "(lambda(id_164" -" lst_446)" +" lst_445)" "(begin" " 'for-loop" "(if(pair?" -" lst_446)" -"(let-values(((s_498)" +" lst_445)" +"(let-values(((s_499)" "(unsafe-car" -" lst_446))" +" lst_445))" "((rest_264)" "(unsafe-cdr" -" lst_446)))" +" lst_445)))" "(let-values(((id_94)" "(let-values(((id_75)" " id_164))" @@ -75934,23 +76398,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id24_1)" "(let-values()" -"(if(let-values(((or-part_263)" +"(if(let-values(((or-part_269)" "(if(syntax?$1" -" s_498)" +" s_499)" "(symbol?" "(syntax-e$1" -" s_498))" +" s_499))" " #f)))" -"(if or-part_263" -" or-part_263" +"(if or-part_269" +" or-part_269" "(symbol?" -" s_498)))" -" s_498" +" s_499)))" +" s_499" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_96" -" s_498)))))" +" s_499)))))" "(cons" " id24_1" " id_75)))))" @@ -75958,31 +76422,31 @@ static const char *startup_source = " id_165)))))" "(if(not" " #f)" -"(for-loop_261" +"(for-loop_262" " id_94" " rest_264)" " id_94)))" " id_164)))))" -" for-loop_261)" +" for-loop_262)" " null" " lst_177)))))" "(reverse$1 id_92))))))))" "((rhs22_0)" -"(let-values(((s_873)(cdr s_24)))" -"(let-values(((s_483)" -"(if(syntax?$1 s_873)" -"(syntax-e$1 s_873)" -" s_873)))" -"(if(pair? s_483)" +"(let-values(((s_875)(cdr s_24)))" +"(let-values(((s_484)" +"(if(syntax?$1 s_875)" +"(syntax-e$1 s_875)" +" s_875)))" +"(if(pair? s_484)" "(let-values(((rhs23_2)" -"(let-values(((s_499)" +"(let-values(((s_500)" "(car" -" s_483)))" -" s_499))" +" s_484)))" +" s_500))" "(()" "(let-values(((s_44)" "(cdr" -" s_483)))" +" s_484)))" "(let-values(((s_166)" "(if(syntax?$1" " s_44)" @@ -76009,52 +76473,52 @@ static const char *startup_source = "(values define-syntaxes18_0 id19_0 rhs20_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_96)))))" "(values #t define-syntaxes15_1 id16_3 rhs17_1))))))" -"(let-values(((ids_47 syms_29)(as-expand-time-top-level-bindings id16_2 s_467 ctx_124)))" +"(let-values(((ids_47 syms_29)(as-expand-time-top-level-bindings id16_2 s_468 ctx_125)))" "(let-values(((exp-rhs_10)" -"(let-values(((temp25_8) rhs17_0)((temp26_7)(as-named-context ctx_124 ids_47)))" +"(let-values(((temp25_8) rhs17_0)((temp26_7)(as-named-context ctx_125 ids_47)))" "(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_124)" -"(parsed-define-syntaxes20.1 s_467 ids_47 syms_29 exp-rhs_10)" -"(let-values(((s27_3) s_467)((temp28_5)(list define-syntaxes15_0 ids_47 exp-rhs_10)))" +"(if(expand-context-to-parsed? ctx_125)" +"(parsed-define-syntaxes20.1 s_468 ids_47 syms_29 exp-rhs_10)" +"(let-values(((s27_3) s_468)((temp28_5)(list define-syntaxes15_0 ids_47 exp-rhs_10)))" "(rebuild5.1 #f #f s27_3 temp28_5)))))))))))))" "(void" "(add-core-form!*" " 'begin-for-syntax" -" (lambda (s_307 ctx_125) (raise-syntax-error$1 #f \"not allowed in an expression position\" s_307))))" +" (lambda (s_307 ctx_126) (raise-syntax-error$1 #f \"not allowed in an expression position\" s_307))))" "(void" "(add-core-form!*" " '#%require" -"(lambda(s_45 ctx_126)" +"(lambda(s_45 ctx_127)" "(let-values((()" "(begin" -"(let-values(((obs_14)(expand-context-observer ctx_126)))" +"(let-values(((obs_14)(expand-context-observer ctx_127)))" "(if obs_14(let-values()(let-values()(call-expand-observe obs_14 'prim-require)))(void)))" "(values))))" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_126) 'top-level)" +"(if(eq?(expand-context-context ctx_127) 'top-level)" "(void)" " (let-values () (raise-syntax-error$1 #f \"allowed only in a module or the top level\" s_45)))" "(values))))" "(let-values(((disarmed-s_27)(syntax-disarm$1 s_45)))" -"(let-values(((ok?_91 #%require29_0 req30_0)" -"(let-values(((s_874) disarmed-s_27))" -"(let-values(((orig-s_97) s_874))" +"(let-values(((ok?_92 #%require29_0 req30_0)" +"(let-values(((s_876) disarmed-s_27))" +"(let-values(((orig-s_97) s_876))" "(let-values(((#%require29_1 req30_1)" -"(let-values(((s_875)(if(syntax?$1 s_874)(syntax-e$1 s_874) s_874)))" -"(if(pair? s_875)" -"(let-values(((#%require31_0)(let-values(((s_46)(car s_875))) s_46))" +"(let-values(((s_877)(if(syntax?$1 s_876)(syntax-e$1 s_876) s_876)))" +"(if(pair? s_877)" +"(let-values(((#%require31_0)(let-values(((s_46)(car s_877))) s_46))" "((req32_0)" -"(let-values(((s_32)(cdr s_875)))" +"(let-values(((s_32)(cdr s_877)))" "(let-values(((s_734)" "(if(syntax?$1 s_32)" "(syntax-e$1 s_32)" " s_32)))" -"(let-values(((flat-s_64)(to-syntax-list.1 s_734)))" -"(if(not flat-s_64)" +"(let-values(((flat-s_65)(to-syntax-list.1 s_734)))" +"(if(not flat-s_65)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_97))" -"(let-values() flat-s_64)))))))" +"(let-values() flat-s_65)))))))" "(values #%require31_0 req32_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_97)))))" "(values #t #%require29_1 req30_1))))))" @@ -76067,35 +76531,35 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_12)))" -"((letrec-values(((for-loop_327)" -"(lambda(fold-var_376 lst_447)" +"((letrec-values(((for-loop_326)" +"(lambda(fold-var_378 lst_446)" "(begin" " 'for-loop" -"(if(pair? lst_447)" -"(let-values(((req_20)(unsafe-car lst_447))" -"((rest_265)(unsafe-cdr lst_447)))" -"(let-values(((fold-var_377)" -"(let-values(((fold-var_378) fold-var_376))" +"(if(pair? lst_446)" +"(let-values(((req_24)(unsafe-car lst_446))" +"((rest_265)(unsafe-cdr lst_446)))" +"(let-values(((fold-var_379)" +"(let-values(((fold-var_380) fold-var_378))" "(let-values(((fold-var_36)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" req_20" +" req_24" " sc_35))" -" fold-var_378))))" +" fold-var_380))))" "(values fold-var_36)))))" "(if(not #f)" -"(for-loop_327 fold-var_377 rest_265)" -" fold-var_377)))" -" fold-var_376)))))" -" for-loop_327)" +"(for-loop_326 fold-var_379 rest_265)" +" fold-var_379)))" +" fold-var_378)))))" +" for-loop_326)" " null" " lst_12)))))" "((s34_0) s_45)" "((temp35_3) #f)" -"((temp36_7)(expand-context-namespace ctx_126))" -"((temp37_5)(expand-context-phase ctx_126))" +"((temp36_7)(expand-context-namespace ctx_127))" +"((temp37_5)(expand-context-phase ctx_127))" "((temp38_3)(let-values(((temp41_5) #f))(make-requires+provides8.1 #f #f temp41_5)))" "((temp39_8) 'require)" "((temp40_4) #t))" @@ -76124,25 +76588,25 @@ static const char *startup_source = " temp36_7" " temp37_5" " temp38_3))" -"(if(expand-context-to-parsed? ctx_126)(parsed-require23.1 s_45) s_45))))))))))" +"(if(expand-context-to-parsed? ctx_127)(parsed-require23.1 s_45) s_45))))))))))" "(void" "(add-core-form!*" " '#%provide" -"(lambda(s_432 ctx_127)" +"(lambda(s_433 ctx_128)" "(begin" -"(let-values(((obs_22)(expand-context-observer ctx_127)))" +"(let-values(((obs_22)(expand-context-observer ctx_128)))" "(if obs_22(let-values()(let-values()(call-expand-observe obs_22 'prim-provide)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_432)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_433)))))" "(define-values(ns)(make-namespace))" "(void" "(begin" "(declare-core-module! ns)" -"(let-values(((temp1_4) '#%read)((read-primitives2_0) read-primitives)((ns3_1) ns))" -"(declare-hash-based-module!41.1 ns3_1 #f #f #f #f #f #f #f #f temp1_4 read-primitives2_0))" +"(let-values(((temp1_5) '#%read)((read-primitives2_0) read-primitives)((ns3_1) ns))" +"(declare-hash-based-module!41.1 ns3_1 #f #f #f #f #f #f #f #f temp1_5 read-primitives2_0))" "(let-values(((temp4_8) '#%main)((main-primitives5_0) main-primitives)((ns6_1) ns))" "(declare-hash-based-module!41.1 ns6_1 #f #f #f #f #f #f #f #f temp4_8 main-primitives5_0))" -"(let-values(((temp7_4) '#%utils)((utils-primitives8_0) utils-primitives)((ns9_1) ns))" -"(declare-hash-based-module!41.1 ns9_1 #f #f #f #f #f #f #f #f temp7_4 utils-primitives8_0))" +"(let-values(((temp7_5) '#%utils)((utils-primitives8_0) utils-primitives)((ns9_1) ns))" +"(declare-hash-based-module!41.1 ns9_1 #f #f #f #f #f #f #f #f temp7_5 utils-primitives8_0))" "(let-values(((temp10_6) '#%place-struct)" "((place-struct-primitives11_0) place-struct-primitives)" "((ns12_1) ns)" @@ -76162,71 +76626,71 @@ static const char *startup_source = "(declare-hash-based-module!41.1 ns24_2 #f #f #f #f temp25_9 #t #f #f temp22_6 expobs-primitives23_0))" "(let-values(((eval27_0) 1/eval)" "((temp28_6)" -"(let-values(((ht_66) main-primitives))" +"(let-values(((ht_67) main-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_66)))" -"((letrec-values(((for-loop_77)" -"(lambda(table_216 i_80)" +"(let-values()(check-in-hash-keys ht_67)))" +"((letrec-values(((for-loop_78)" +"(lambda(table_218 i_81)" "(begin" " 'for-loop" -"(if i_80" -"(let-values(((name_82)(hash-iterate-key ht_66 i_80)))" -"(let-values(((table_102)" -"(let-values(((table_217) table_216))" -"(let-values(((table_218)" +"(if i_81" +"(let-values(((name_82)(hash-iterate-key ht_67 i_81)))" +"(let-values(((table_105)" +"(let-values(((table_219) table_218))" +"(let-values(((table_220)" "(let-values()" "(let-values(((key_67 val_88)" "(let-values()" "(values" "(let-values() name_82)" " #t))))" -"(hash-set table_217 key_67 val_88)))))" -"(values table_218)))))" +"(hash-set table_219 key_67 val_88)))))" +"(values table_220)))))" "(if(not #f)" -"(for-loop_77 table_102(hash-iterate-next ht_66 i_80))" -" table_102)))" -" table_216)))))" -" for-loop_77)" +"(for-loop_78 table_105(hash-iterate-next ht_67 i_81))" +" table_105)))" +" table_218)))))" +" for-loop_78)" " '#hash()" -"(hash-iterate-first ht_66)))))" +"(hash-iterate-first ht_67)))))" "((temp29_4)" -"(let-values(((ht_165) read-primitives))" +"(let-values(((ht_167) read-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_165)))" -"((letrec-values(((for-loop_264)" -"(lambda(table_202 i_36)" +"(let-values()(check-in-hash-keys ht_167)))" +"((letrec-values(((for-loop_265)" +"(lambda(table_204 i_36)" "(begin" " 'for-loop" "(if i_36" -"(let-values(((name_83)(hash-iterate-key ht_165 i_36)))" -"(let-values(((table_219)" -"(let-values(((table_175) table_202))" -"(let-values(((table_95)" +"(let-values(((name_83)(hash-iterate-key ht_167 i_36)))" +"(let-values(((table_221)" +"(let-values(((table_178) table_204))" +"(let-values(((table_98)" "(let-values()" "(let-values(((key_95 val_89)" "(let-values()" "(values" "(let-values() name_83)" " #t))))" -"(hash-set table_175 key_95 val_89)))))" -"(values table_95)))))" +"(hash-set table_178 key_95 val_89)))))" +"(values table_98)))))" "(if(not #f)" -"(for-loop_264 table_219(hash-iterate-next ht_165 i_36))" -" table_219)))" -" table_202)))))" -" for-loop_264)" +"(for-loop_265 table_221(hash-iterate-next ht_167 i_36))" +" table_221)))" +" table_204)))))" +" for-loop_265)" " '#hash()" -"(hash-iterate-first ht_165))))))" +"(hash-iterate-first ht_167))))))" "(declare-kernel-module!8.1 eval27_0 temp28_6 temp29_4 ns))" "(begin" -"(let-values(((lst_270) runtime-instances))" +"(let-values(((lst_267) runtime-instances))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_270)))" -"((letrec-values(((for-loop_328)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_267)))" +"((letrec-values(((for-loop_327)" "(lambda(lst_54)" "(begin" " 'for-loop" @@ -76243,18 +76707,18 @@ static const char *startup_source = "(let-values()" "(let-values(((ns31_4) ns)" "((temp32_1)" -"(let-values(((or-part_53)" +"(let-values(((or-part_59)" "(eq?" " name_84" " '#%foreign)))" -"(if or-part_53" -" or-part_53" -"(let-values(((or-part_21)" +"(if or-part_59" +" or-part_59" +"(let-values(((or-part_27)" "(eq?" " name_84" " '#%futures)))" -"(if or-part_21" -" or-part_21" +"(if or-part_27" +" or-part_27" "(eq?" " name_84" " '#%unsafe)))))))" @@ -76275,10 +76739,10 @@ static const char *startup_source = " name_84)))" "(values)))))" "(values)))))))" -"(if(not #f)(for-loop_328 rest_171)(values))))" +"(if(not #f)(for-loop_327 rest_171)(values))))" "(values))))))" -" for-loop_328)" -" lst_270)))" +" for-loop_327)" +" lst_267)))" "(void))" "(let-values(((temp33_5) '#%builtin)" "((temp34_4)(list* '#%place-struct '#%utils '#%boot '#%expobs '#%linklet runtime-instances))" @@ -76287,5 +76751,5 @@ static const char *startup_source = "(declare-reexporting-module!50.1 ns35_1 temp36_8 #t temp33_5 temp34_4))" "(1/current-namespace ns)" "(1/dynamic-require ''#%kernel 0)))" -"(define-values(datum->kernel-syntax)(lambda(s_467)(begin(1/datum->syntax core-stx s_467)))))" +"(define-values(datum->kernel-syntax)(lambda(s_468)(begin(1/datum->syntax core-stx s_468)))))" ;