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)))))" ;