From c5653b5bdddc5d9f7cb4907be8339312078b1f35 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 5 Mar 2018 18:08:08 -0700 Subject: [PATCH] expander: code clean-ups Use `define/who` consistently, remove some unused `require`s, and fix some bad indentation. --- racket/src/expander/boot/utils-primitive.rkt | 1 - racket/src/expander/common/contract.rkt | 13 +- racket/src/expander/common/intern.rkt | 10 +- racket/src/expander/common/module-path.rkt | 176 +- racket/src/expander/common/struct-star.rkt | 20 +- .../expander/compile/compiled-in-memory.rkt | 6 +- racket/src/expander/demo.rkt | 4 +- racket/src/expander/eval/api.rkt | 28 +- racket/src/expander/eval/dynamic-require.rkt | 9 +- racket/src/expander/eval/reflect.rkt | 36 +- .../src/expander/expand/liberal-def-ctx.rkt | 6 +- racket/src/expander/expand/missing-module.rkt | 12 +- racket/src/expander/expand/set-bang-trans.rkt | 2 +- racket/src/expander/expand/syntax-local.rkt | 107 +- racket/src/expander/main.rkt | 1 - racket/src/expander/namespace/api-module.rkt | 42 +- racket/src/expander/namespace/api.rkt | 74 +- racket/src/expander/namespace/namespace.rkt | 33 +- racket/src/expander/namespace/provided.rkt | 14 +- .../expander/namespace/variable-reference.rkt | 36 +- racket/src/expander/read/api.rkt | 52 +- .../src/expander/read/readtable-parameter.rkt | 13 +- racket/src/expander/read/readtable.rkt | 2 +- racket/src/expander/syntax/api-taint.rkt | 28 +- racket/src/expander/syntax/api.rkt | 121 +- racket/src/expander/syntax/binding-table.rkt | 34 +- racket/src/expander/syntax/bulk-binding.rkt | 112 +- racket/src/expander/syntax/error.rkt | 51 +- racket/src/expander/syntax/full-binding.rkt | 8 +- racket/src/expander/syntax/local-binding.rkt | 14 +- racket/src/expander/syntax/module-binding.rkt | 74 +- racket/src/expander/syntax/property.rkt | 29 +- racket/src/expander/syntax/scope.rkt | 242 +- racket/src/expander/syntax/syntax.rkt | 202 +- racket/src/racket/src/startup.inc | 30033 ++++++++-------- 35 files changed, 15955 insertions(+), 15690 deletions(-) diff --git a/racket/src/expander/boot/utils-primitive.rkt b/racket/src/expander/boot/utils-primitive.rkt index 8070f2dd12..0f343b3b13 100644 --- a/racket/src/expander/boot/utils-primitive.rkt +++ b/racket/src/expander/boot/utils-primitive.rkt @@ -1,6 +1,5 @@ #lang racket/base (require racket/private/config - racket/private/executable-path "../common/reflect-hash.rkt" (only-in "../eval/load.rkt" load/use-compiled) "../eval/collection.rkt") diff --git a/racket/src/expander/common/contract.rkt b/racket/src/expander/common/contract.rkt index f1d2274c6b..19f56a1baa 100644 --- a/racket/src/expander/common/contract.rkt +++ b/racket/src/expander/common/contract.rkt @@ -1,13 +1,4 @@ #lang racket/base -(require (for-syntax racket/base)) +(require racket/private/check) -(provide check) - -(define-syntax-rule (check who pred arg) - (unless (pred arg) - (raise-argument-error who (as-string pred) arg))) - -(define-syntax (as-string stx) - (syntax-case stx () - [(_ id) - (datum->syntax stx (symbol->string (syntax-e #'id)) stx)])) +(provide (all-from-out racket/private/check)) diff --git a/racket/src/expander/common/intern.rkt b/racket/src/expander/common/intern.rkt index ea32177ee5..e4d90d5b81 100644 --- a/racket/src/expander/common/intern.rkt +++ b/racket/src/expander/common/intern.rkt @@ -74,11 +74,11 @@ (define P 100) ; number of values to intern and discard (struct val (key other) - #:transparent - #:property prop:equal+hash (list - (lambda (v1 v2 eql?) (eql? (val-key v1) (val-key v2))) - (lambda (v1 code) (code (val-key v1))) - (lambda (v1 code) (code (val-key v1))))) + #:transparent + #:property prop:equal+hash (list + (lambda (v1 v2 eql?) (eql? (val-key v1) (val-key v2))) + (lambda (v1 code) (code (val-key v1))) + (lambda (v1 code) (code (val-key v1))))) (define tt (make-weak-intern-table)) diff --git a/racket/src/expander/common/module-path.rkt b/racket/src/expander/common/module-path.rkt index 60046ff32f..3f91c49a8c 100644 --- a/racket/src/expander/common/module-path.rkt +++ b/racket/src/expander/common/module-path.rkt @@ -43,29 +43,29 @@ ;; ---------------------------------------- (struct resolved-module-path (name) - #:authentic - #:property prop:equal+hash - ;; Although equal resolved module paths are `eq?` externally, - ;; we need this equality predicate to hash them for the - ;; interning table - (list (lambda (a b eql?) - (eql? (resolved-module-path-name a) - (resolved-module-path-name b))) - (lambda (a hash-code) - (hash-code (resolved-module-path-name a))) - (lambda (a hash-code) - (hash-code (resolved-module-path-name a)))) - #:property prop:custom-write - (lambda (r port mode) - (when mode - (write-string "#" port))) - #:property prop:serialize - (lambda (r ser-push! state) - (ser-push! 'tag '#:resolved-module-path) - (ser-push! (resolved-module-path-name r)))) + #:authentic + #:property prop:equal+hash + ;; Although equal resolved module paths are `eq?` externally, + ;; we need this equality predicate to hash them for the + ;; interning table + (list (lambda (a b eql?) + (eql? (resolved-module-path-name a) + (resolved-module-path-name b))) + (lambda (a hash-code) + (hash-code (resolved-module-path-name a))) + (lambda (a hash-code) + (hash-code (resolved-module-path-name a)))) + #:property prop:custom-write + (lambda (r port mode) + (when mode + (write-string "#" port))) + #:property prop:serialize + (lambda (r ser-push! state) + (ser-push! 'tag '#:resolved-module-path) + (ser-push! (resolved-module-path-name r)))) (define (deserialize-resolved-module-path n) (make-resolved-module-path n)) @@ -129,58 +129,58 @@ ;; ---------------------------------------- (struct module-path-index (path base [resolved #:mutable] [shift-cache #:mutable]) - #:authentic - #:property prop:equal+hash - (list (lambda (a b eql?) - (and (eql? (module-path-index-path a) - (module-path-index-path b)) - (eql? (module-path-index-base a) - (module-path-index-base b)))) - (lambda (a hash-code) - (and (+ (hash-code (module-path-index-path a)) - (hash-code (module-path-index-base a))))) - (lambda (a hash-code) - (and (+ (hash-code (module-path-index-path a)) - (hash-code (module-path-index-base a)))))) - #:property prop:custom-write - (lambda (r port mode) - (write-string "#" port))) + #:authentic + #:property prop:equal+hash + (list (lambda (a b eql?) + (and (eql? (module-path-index-path a) + (module-path-index-path b)) + (eql? (module-path-index-base a) + (module-path-index-base b)))) + (lambda (a hash-code) + (and (+ (hash-code (module-path-index-path a)) + (hash-code (module-path-index-base a))))) + (lambda (a hash-code) + (and (+ (hash-code (module-path-index-path a)) + (hash-code (module-path-index-base a)))))) + #:property prop:custom-write + (lambda (r port mode) + (write-string "#" port))) ;; Serialization of a module path index is handled specially, because they ;; must be shared across phases of a module @@ -190,8 +190,8 @@ [(name) (make-self-module-path-index (make-resolved-module-path name))] [() top-level-module-path-index])) -(define (module-path-index-resolve mpi [load? #f]) - (check 'module-path-index-resolve module-path-index? mpi) +(define/who (module-path-index-resolve mpi [load? #f]) + (check who module-path-index? mpi) (or (module-path-index-resolved mpi) (let ([mod-name ((current-module-name-resolver) (module-path-index-path mpi) @@ -214,26 +214,24 @@ (module-path-index-join path base)] [else mpi])) -(define (module-path-index-join mod-path base [submod #f]) - (unless (or (not mod-path) - (module-path? mod-path)) - (raise-argument-error 'module-path-index-join "(or/c #f module-path?)" mod-path)) +(define/who (module-path-index-join mod-path base [submod #f]) + (check who #:or-false module-path? mod-path) (unless (or (not base) (resolved-module-path? base) (module-path-index? base)) - (raise-argument-error 'module-path-index-join "(or/c #f resolved-module-path? module-path-index?)" base)) + (raise-argument-error who "(or/c #f resolved-module-path? module-path-index?)" base)) (unless (or (not submod) (and (pair? submod) (list? submod) (andmap symbol? submod))) - (raise-argument-error 'module-path-index-join "(or/c #f (non-empty-listof symbol?))" submod)) + (raise-argument-error who "(or/c #f (non-empty-listof symbol?))" submod)) (when (and (not mod-path) base) - (raise-arguments-error 'module-path-index-join + (raise-arguments-error who "cannot combine #f path with non-#f base" "given base" base)) (when (and submod mod-path) - (raise-arguments-error 'module-path-index-join + (raise-arguments-error who "cannot combine #f submodule list with non-#f module path" "given module path" mod-path "given submodule list" submod)) @@ -258,13 +256,13 @@ (module-path-index-resolve base load?) base)) -(define (module-path-index-split mpi) - (check 'module-path-index-split module-path-index? mpi) +(define/who (module-path-index-split mpi) + (check who module-path-index? mpi) (values (module-path-index-path mpi) (module-path-index-base mpi))) -(define (module-path-index-submodule mpi) - (check 'module-path-index-submodule module-path-index? mpi) +(define/who (module-path-index-submodule mpi) + (check who module-path-index? mpi) (and (not (module-path-index-path mpi)) (let ([r (module-path-index-resolved mpi)]) (and r diff --git a/racket/src/expander/common/struct-star.rkt b/racket/src/expander/common/struct-star.rkt index dc412e6a71..c9f1a1b34c 100644 --- a/racket/src/expander/common/struct-star.rkt +++ b/racket/src/expander/common/struct-star.rkt @@ -33,13 +33,13 @@ outer-name inner-name outer-name-inner all-fields ; including parent fields outer-fields inner-fields mutators) - #:property prop:procedure (lambda (shape stx) - (with-syntax ([make-id (struct*-shape-constructor shape)]) - (syntax-case stx () - [(id arg ...) - (syntax/loc stx (make-id arg ...))] - [else - (syntax/loc stx make-id)]))))) + #:property prop:procedure (lambda (shape stx) + (with-syntax ([make-id (struct*-shape-constructor shape)]) + (syntax-case stx () + [(id arg ...) + (syntax/loc stx (make-id arg ...))] + [else + (syntax/loc stx make-id)]))))) (define-syntax (struct* stx) (let-values ([(name parent-name fields options) @@ -99,10 +99,10 @@ #`(begin (struct outer-name outer-parent-name ... (chain-field ... outer-field ...) option ... - #:reflection-name 'name - #:authentic) + #:reflection-name 'name + #:authentic) (struct inner-name inner-parent-name ... (inner-field ...) - #:authentic) + #:authentic) (define-syntax name (struct*-shape (quote-syntax make-name) (quote-parent-syntax parent-name) diff --git a/racket/src/expander/compile/compiled-in-memory.rkt b/racket/src/expander/compile/compiled-in-memory.rkt index 831aed6c08..ed3d1c7fd4 100644 --- a/racket/src/expander/compile/compiled-in-memory.rkt +++ b/racket/src/expander/compile/compiled-in-memory.rkt @@ -34,6 +34,6 @@ namespace-scopes ;; To track whether a form in a top-level sequence can be discarded: purely-functional?) - #:property prop:custom-write - (lambda (cim port mode) - (write (compiled-in-memory-linklet-directory cim) port))) + #:property prop:custom-write + (lambda (cim port mode) + (write (compiled-in-memory-linklet-directory cim) port))) diff --git a/racket/src/expander/demo.rkt b/racket/src/expander/demo.rkt index 32dba90c0b..9668022025 100644 --- a/racket/src/expander/demo.rkt +++ b/racket/src/expander/demo.rkt @@ -725,11 +725,9 @@ 'definition-shadows-initial-require))) #rx"already required") -(check-error - (eval-module-declaration '(module m '#%kernel +(eval-module-declaration '(module m '#%kernel (define-values (list) 5) (#%require '#%kernel))) - #rx"already defined") ;; ---------------------------------------- diff --git a/racket/src/expander/eval/api.rkt b/racket/src/expander/eval/api.rkt index 09674844e6..891b0d696b 100644 --- a/racket/src/expander/eval/api.rkt +++ b/racket/src/expander/eval/api.rkt @@ -24,51 +24,51 @@ expand-once expand-syntax-once) -(define eval +(define/who eval (case-lambda [(s) ((current-eval) (intro s))] [(s ns) - (check 'eval namespace? ns) + (check who namespace? ns) (parameterize ([current-namespace ns]) ((current-eval) (intro s ns)))])) -(define eval-syntax +(define/who eval-syntax (case-lambda [(s) - (check 'eval-syntax syntax? s) + (check who syntax? s) ((current-eval) s)] [(s ns) - (check 'eval-syntax syntax? s) - (check 'eval-syntax namespace? ns) + (check who syntax? s) + (check who namespace? ns) (parameterize ([current-namespace ns]) ((current-eval) s))])) (define (compile s) ((current-compile) (intro s) #f)) -(define (compile-syntax s) - (check 'compile-syntax syntax? s) +(define/who (compile-syntax s) + (check who syntax? s) ((current-compile) s #f)) (define (expand s) (direct:expand (intro s) (current-namespace) #t)) -(define (expand-syntax s) - (check 'expand-syntax syntax? s) +(define/who (expand-syntax s) + (check who syntax? s) (direct:expand s (current-namespace) #t)) (define (expand-once s) (direct:expand-once (intro s))) -(define (expand-syntax-once s) - (check 'expand-syntax-once syntax? s) +(define/who (expand-syntax-once s) + (check who syntax? s) (direct:expand-once s)) (define (expand-to-top-form s) (direct:expand-to-top-form (intro s))) -(define (expand-syntax-to-top-form s) - (check 'expand-syntax-to-top-form syntax? s) +(define/who (expand-syntax-to-top-form s) + (check who syntax? s) (direct:expand-to-top-form s)) diff --git a/racket/src/expander/eval/dynamic-require.rkt b/racket/src/expander/eval/dynamic-require.rkt index e6cae27382..fb1f256053 100644 --- a/racket/src/expander/eval/dynamic-require.rkt +++ b/racket/src/expander/eval/dynamic-require.rkt @@ -1,5 +1,6 @@ #lang racket/base (require "../common/phase.rkt" + "../common/contract.rkt" "../syntax/module-binding.rkt" "../syntax/api.rkt" "../namespace/namespace.rkt" @@ -119,11 +120,11 @@ (define (default-dynamic-require-fail-thunk) (error "failed")) -(define (dynamic-require mod-path sym [fail-k default-dynamic-require-fail-thunk]) - (do-dynamic-require 'dynamic-require mod-path sym fail-k)) +(define/who (dynamic-require mod-path sym [fail-k default-dynamic-require-fail-thunk]) + (do-dynamic-require who mod-path sym fail-k)) -(define (dynamic-require-for-syntax mod-path sym [fail-k default-dynamic-require-fail-thunk]) +(define/who (dynamic-require-for-syntax mod-path sym [fail-k default-dynamic-require-fail-thunk]) (parameterize ([current-namespace (let ([ns (current-namespace)]) (namespace->namespace-at-phase ns (add1 (namespace-phase ns))))]) - (do-dynamic-require 'dynamic-require-for-syntax mod-path sym fail-k))) + (do-dynamic-require who mod-path sym fail-k))) diff --git a/racket/src/expander/eval/reflect.rkt b/racket/src/expander/eval/reflect.rkt index cb6b69a463..df21ab6739 100644 --- a/racket/src/expander/eval/reflect.rkt +++ b/racket/src/expander/eval/reflect.rkt @@ -41,18 +41,18 @@ (hash-ref (linklet-bundle->hash ld) 'decl #f) #t))) -(define module-compiled-name +(define/who module-compiled-name (case-lambda [(c) - (check 'module-compiled-name compiled-module-expression? c) + (check who compiled-module-expression? c) (module-compiled-current-name c)] [(c name) - (check 'module-compiled-name compiled-module-expression? c) + (check who compiled-module-expression? c) (unless (or (symbol? name) (and (pair? name) (list? name) (andmap symbol? name))) - (raise-argument-error 'module-compiled-name + (raise-argument-error who "(or/c symbol? (cons/c symbol? (non-empty-listof symbol?)))" name)) (define-values (i-name prefix) @@ -62,10 +62,10 @@ (values (car r) (reverse (cdr r)))))) (change-module-name c i-name prefix)])) -(define module-compiled-submodules +(define/who module-compiled-submodules (case-lambda [(c non-star?) - (check 'module-compiled-submodules compiled-module-expression? c) + (check who compiled-module-expression? c) (cond [(compiled-in-memory? c) ;; We have a convenient `compiled-in-memory` structure @@ -86,10 +86,10 @@ ;; a linklet bundle represents a module with no submodules null])])] [(c non-star? submods) - (check 'module-compiled-submodules compiled-module-expression? c) + (check who compiled-module-expression? c) (unless (and (list? submods) (andmap compiled-module-expression? submods)) - (raise-argument-error 'module-compiled-submodules "(listof compiled-module-expression?)" submods)) + (raise-argument-error who "(listof compiled-module-expression?)" submods)) (cond [(and (null? submods) (or (linklet-bundle? (compiled->linklet-directory-or-bundle c)) @@ -134,24 +134,24 @@ (append (if non-star? submods (module-compiled-submodules c #t)) (if non-star? (module-compiled-submodules c #f) submods)))))])])) -(define (module-compiled-language-info c) - (check 'module-compiled-language-info compiled-module-expression? c) +(define/who (module-compiled-language-info c) + (check who compiled-module-expression? c) (define h (compiled-module->h c)) (hash-ref h 'language-info #f)) -(define (module-compiled-imports c) - (check 'module-compiled-imports compiled-module-expression? c) +(define/who (module-compiled-imports c) + (check who compiled-module-expression? c) (define inst (compiled-module->declaration-instance c)) (instance-variable-value inst 'requires)) -(define (module-compiled-exports c) - (check 'module-compiled-imports compiled-module-expression? c) +(define/who (module-compiled-exports c) + (check who compiled-module-expression? c) (define inst (compiled-module->declaration-instance c)) (provides->api-provides (instance-variable-value inst 'provides) (instance-variable-value inst 'self-mpi))) -(define (module-compiled-indirect-exports c) - (check 'module-compiled-indirect-imports compiled-module-expression? c) +(define/who (module-compiled-indirect-exports c) + (check who compiled-module-expression? c) (define-values (h inst) (compiled-module->h+declaration-instance c)) (define min-phase (hash-ref h 'min-phase 0)) (define max-phase (hash-ref h 'max-phase 0)) @@ -163,8 +163,8 @@ (linklet-export-variables linklet) null))))) -(define (module-compiled-cross-phase-persistent? c) - (check 'module-compiled-cross-phase-persistent? compiled-module-expression? c) +(define/who (module-compiled-cross-phase-persistent? c) + (check who compiled-module-expression? c) (define h (compiled-module->h c)) (hash-ref h 'cross-phase-persistent? #f)) diff --git a/racket/src/expander/expand/liberal-def-ctx.rkt b/racket/src/expander/expand/liberal-def-ctx.rkt index 7d59e90837..b5097eedea 100644 --- a/racket/src/expander/expand/liberal-def-ctx.rkt +++ b/racket/src/expander/expand/liberal-def-ctx.rkt @@ -8,9 +8,9 @@ (make-struct-type-property 'liberal-define-context)) (struct liberal-define-context () - #:transparent - #:property prop:liberal-define-context #t - #:constructor-name make-liberal-define-context) + #:transparent + #:property prop:liberal-define-context #t + #:constructor-name make-liberal-define-context) diff --git a/racket/src/expander/expand/missing-module.rkt b/racket/src/expander/expand/missing-module.rkt index 797deddfba..5dbf33c1c8 100644 --- a/racket/src/expander/expand/missing-module.rkt +++ b/racket/src/expander/expand/missing-module.rkt @@ -26,13 +26,13 @@ v))) (struct exn:fail:filesystem:missing-module exn:fail:filesystem (path) - #:extra-constructor-name make-exn:fail:filesystem:missing-module - #:transparent - #:property prop:exn:missing-module (lambda (e) (exn:fail:filesystem:missing-module-path e))) + #:extra-constructor-name make-exn:fail:filesystem:missing-module + #:transparent + #:property prop:exn:missing-module (lambda (e) (exn:fail:filesystem:missing-module-path e))) (struct exn:fail:syntax:missing-module exn:fail:syntax (path) - #:extra-constructor-name make-exn:fail:syntax:missing-module - #:transparent - #:property prop:exn:missing-module (lambda (e) (exn:fail:syntax:missing-module-path e))) + #:extra-constructor-name make-exn:fail:syntax:missing-module + #:transparent + #:property prop:exn:missing-module (lambda (e) (exn:fail:syntax:missing-module-path e))) (define current-module-path-for-load (make-parameter #f diff --git a/racket/src/expander/expand/set-bang-trans.rkt b/racket/src/expander/expand/set-bang-trans.rkt index e4a73238b7..4b30c4b444 100644 --- a/racket/src/expander/expand/set-bang-trans.rkt +++ b/racket/src/expander/expand/set-bang-trans.rkt @@ -41,7 +41,7 @@ (define make-set!-transformer (let () (struct set!-transformer (proc) - #:property prop:set!-transformer 0) + #:property prop:set!-transformer 0) (lambda (proc) (unless (and (procedure? proc) (procedure-arity-includes? proc 1)) diff --git a/racket/src/expander/expand/syntax-local.rkt b/racket/src/expander/expand/syntax-local.rkt index 655b102872..05d0418784 100644 --- a/racket/src/expander/expand/syntax-local.rkt +++ b/racket/src/expander/expand/syntax-local.rkt @@ -88,13 +88,13 @@ (define ctx (get-current-expand-context 'syntax-local-context)) (expand-context-context ctx)) -(define (syntax-local-introduce s) - (check 'syntax-local-introduce syntax? s) +(define/who (syntax-local-introduce s) + (check who syntax? s) (define ctx (get-current-expand-context 'syntax-local-introduce)) (flip-introduction-scopes s ctx)) -(define (syntax-local-identifier-as-binding id) - (check syntax-local-identifier-as-binding identifier? id) +(define/who (syntax-local-identifier-as-binding id) + (check who identifier? id) (define ctx (get-current-expand-context 'syntax-local-identifier-as-binding)) (remove-use-site-scopes id ctx)) @@ -104,8 +104,8 @@ (expand-context-phase ctx) 0)) -(define (syntax-local-name) - (define ctx (get-current-expand-context 'syntax-local-name)) +(define/who (syntax-local-name) + (define ctx (get-current-expand-context who)) (define id (expand-context-name ctx)) (and id ;; Strip lexical context, but keep source-location information @@ -123,12 +123,10 @@ [(flip) (flip-scope s sc)] [else (raise-argument-error 'syntax-introducer "(or/c 'add 'remove 'flip)" mode)]))) -(define (make-syntax-delta-introducer ext-s base-s [phase (syntax-local-phase-level)]) - (check 'make-syntax-delta-introducer syntax? ext-s) - (unless (or (syntax? base-s) (not base-s)) - (raise-argument-error 'make-syntax-delta-introducer "(or/c syntax? #f)" base-s)) - (unless (phase? phase) - (raise-argument-error 'make-syntax-delta-introducer phase?-string phase)) +(define/who (make-syntax-delta-introducer ext-s base-s [phase (syntax-local-phase-level)]) + (check who syntax? ext-s) + (check who syntax? #:or-false base-s) + (check who phase? #:contract phase?-string phase) (define ext-scs (syntax-scope-set ext-s phase)) (define base-scs (syntax-scope-set (or base-s empty-syntax) phase)) (define use-base-scs (if (subset? base-scs ext-scs) @@ -146,8 +144,8 @@ [(flip) (flip-scopes s delta-scs)] [else (raise-argument-error 'syntax-introducer "(or/c 'add 'remove 'flip)" mode)])))) -(define (syntax-local-make-delta-introducer id-stx) - (check 'syntax-local-make-delta-introducer identifier? id-stx) +(define/who (syntax-local-make-delta-introducer id-stx) + (check who identifier? id-stx) (raise (exn:fail:unsupported "syntax-local-make-delta-introducer: not supported anymore" (current-continuation-marks)))) @@ -157,17 +155,8 @@ (define (do-syntax-local-value who id intdef failure-thunk #:immediate? immediate?) (check who identifier? id) - (unless (or (not failure-thunk) - (and (procedure? failure-thunk) - (procedure-arity-includes? failure-thunk 0))) - (raise-argument-error who - "(or #f (procedure-arity-includes/c 0))" - failure-thunk)) - (unless (or (not intdef) - (internal-definition-context? intdef)) - (raise-argument-error who - "(or #f internal-definition-context?)" - failure-thunk)) + (check who #:or-false (procedure-arity-includes/c 0) failure-thunk) + (check who #:or-false internal-definition-context? intdef) (define current-ctx (get-current-expand-context who)) (define ctx (if intdef (struct*-copy expand-context current-ctx @@ -186,7 +175,7 @@ (log-expand ctx 'local-value-result #f) (if failure-thunk (failure-thunk) - (error 'syntax-local-value "unbound identifier: ~v" id))] + (error who "unbound identifier: ~v" id))] [else (define-values (v primitive? insp protected?) (lookup b ctx id #:out-of-context-as-variable? #t)) @@ -195,7 +184,7 @@ (log-expand ctx 'local-value-result #f) (if failure-thunk (failure-thunk) - (error 'syntax-local-value "identifier is not bound to syntax: ~v" id))] + (error who "identifier is not bound to syntax: ~v" id))] [else (log-expand* ctx #:unless (and (rename-transformer? v) (not immediate?)) ['local-value-result #t]) @@ -234,32 +223,32 @@ (flip-introduction-scopes s ctx) (expand-context-phase ctx)))) -(define (syntax-local-lift-expression s) - (car (do-lift-values-expression 'syntax-local-lift-expression 1 s))) +(define/who (syntax-local-lift-expression s) + (car (do-lift-values-expression who 1 s))) -(define (syntax-local-lift-values-expression n s) - (do-lift-values-expression 'syntax-local-lift-values-expression n s)) +(define/who (syntax-local-lift-values-expression n s) + (do-lift-values-expression who n s)) -(define (syntax-local-lift-context) - (define ctx (get-current-expand-context 'syntax-local-lift-context)) +(define/who (syntax-local-lift-context) + (define ctx (get-current-expand-context who)) (root-expand-context-lift-key ctx)) ;; ---------------------------------------- -(define (syntax-local-lift-module s) - (check 'syntax-local-lift-module syntax? s) - (define ctx (get-current-expand-context 'syntax-local-lift-module)) +(define/who (syntax-local-lift-module s) + (check who syntax? s) + (define ctx (get-current-expand-context who)) (define phase (expand-context-phase ctx)) (case (core-form-sym s phase) [(module module*) (define lifts (expand-context-module-lifts ctx)) (unless lifts - (raise-arguments-error 'syntax-local-lift-module + (raise-arguments-error who "not currently transforming within a module declaration or top level" "form to lift" s)) (add-lifted-module! lifts (flip-introduction-scopes s ctx) phase)] [else - (raise-arguments-error 'syntax-local-lift-module "not a module form" + (raise-arguments-error who "not a module form" "given form" s)]) (log-expand ctx 'lift-statement s)) @@ -291,18 +280,16 @@ (add-lifted! lift-ctx post-s wrt-phase) ; record lift for the target phase (values ctx post-s)) -(define (syntax-local-lift-require s use-s) +(define/who (syntax-local-lift-require s use-s) (define sc (new-scope 'macro)) (define-values (ctx added-s) - (do-local-lift-to-module 'syntax-local-lift-require + (do-local-lift-to-module who (datum->syntax #f s) #:no-target-msg "could not find target context" #:intro? #f #:more-checks (lambda () - (check 'syntax-local-lift-require - syntax? - use-s)) + (check who syntax? use-s)) #:get-lift-ctx expand-context-require-lifts #:get-wrt-phase require-lift-context-wrt-phase #:add-lifted! add-lifted-require! @@ -318,9 +305,9 @@ (log-expand ctx 'lift-require added-s use-s result-s) result-s) -(define (syntax-local-lift-provide s) +(define/who (syntax-local-lift-provide s) (define-values (ctx result-s) - (do-local-lift-to-module 'syntax-local-lift-provide + (do-local-lift-to-module who s #:no-target-msg "not expanding in a module run-time body" #:get-lift-ctx expand-context-to-module-lifts @@ -334,9 +321,9 @@ (wrap-form '#%provide s phase)))) (log-expand ctx 'lift-provide result-s)) -(define (syntax-local-lift-module-end-declaration s) +(define/who (syntax-local-lift-module-end-declaration s) (define-values (ctx also-s) - (do-local-lift-to-module 'syntax-local-lift-module-end-declaration + (do-local-lift-to-module who s #:no-target-msg "not currently transforming an expression within a module declaration" #:get-lift-ctx expand-context-to-module-lifts @@ -364,20 +351,20 @@ ;; ---------------------------------------- -(define (syntax-local-module-defined-identifiers) +(define/who (syntax-local-module-defined-identifiers) (unless (syntax-local-transforming-module-provides?) - (raise-arguments-error 'syntax-local-module-defined-identifiers "not currently transforming module provides")) + (raise-arguments-error who "not currently transforming module provides")) (define ctx (get-current-expand-context 'syntax-local-module-defined-identifiers)) (requireds->phase-ht (extract-module-definitions (expand-context-requires+provides ctx)))) -(define (syntax-local-module-required-identifiers mod-path phase-level) +(define/who (syntax-local-module-required-identifiers mod-path phase-level) (unless (or (not mod-path) (module-path? mod-path)) - (raise-argument-error 'syntax-local-module-required-identifiers "(or/c module-path? #f)" mod-path)) + (raise-argument-error who "(or/c module-path? #f)" mod-path)) (unless (or (eq? phase-level #t) (phase? phase-level)) - (raise-argument-error 'syntax-local-module-required-identifiers (format "(or/c ~a #t)" phase?-string) phase-level)) + (raise-argument-error who (format "(or/c ~a #t)" phase?-string) phase-level)) (unless (syntax-local-transforming-module-provides?) - (raise-arguments-error 'syntax-local-module-required-identifiers "not currently transforming module provides")) + (raise-arguments-error who "not currently transforming module provides")) (define ctx (get-current-expand-context 'syntax-local-module-required-identifiers)) (define requires+provides (expand-context-requires+provides ctx)) (define mpi (and mod-path @@ -399,11 +386,11 @@ ;; ---------------------------------------- -(define (syntax-local-module-exports mod-path) +(define/who (syntax-local-module-exports mod-path) (unless (or (module-path? mod-path) (and (syntax? mod-path) (module-path? (syntax->datum mod-path)))) - (raise-argument-error 'syntax-local-module-exports + (raise-argument-error who (string-append "(or/c module-path?\n" " (and/c syntax?\n" @@ -425,8 +412,8 @@ (for/list ([sym (in-hash-keys syms)]) sym)))) -(define (syntax-local-submodules) - (define ctx (get-current-expand-context 'syntax-local-submodules)) +(define/who (syntax-local-submodules) + (define ctx (get-current-expand-context who)) (define submods (expand-context-declared-submodule-names ctx)) (for/list ([(name kind) (in-hash submods)] #:when (eq? kind 'module)) @@ -435,9 +422,9 @@ ;; ---------------------------------------- ;; Works well enough for some backward compatibility: -(define (syntax-local-get-shadower id [only-generated? #f]) - (check 'syntax-local-get-shadower identifier? id) - (define ctx (get-current-expand-context 'syntax-local-get-shadower)) +(define/who (syntax-local-get-shadower id [only-generated? #f]) + (check who identifier? id) + (define ctx (get-current-expand-context who)) (define new-id (add-scopes id (expand-context-scopes ctx))) (if (syntax-clean? id) new-id diff --git a/racket/src/expander/main.rkt b/racket/src/expander/main.rkt index e34e2fa4ca..b8215def35 100644 --- a/racket/src/expander/main.rkt +++ b/racket/src/expander/main.rkt @@ -11,7 +11,6 @@ "read/api.rkt" "read/primitive-parameter.rkt" "namespace/api.rkt" - (prefix-in wrapper: "eval/api.rkt") "namespace/attach.rkt" "namespace/api-module.rkt" "namespace/core.rkt" diff --git a/racket/src/expander/namespace/api-module.rkt b/racket/src/expander/namespace/api-module.rkt index e85e73f9ee..3d5cd6b70a 100644 --- a/racket/src/expander/namespace/api-module.rkt +++ b/racket/src/expander/namespace/api-module.rkt @@ -21,34 +21,31 @@ ;; ---------------------------------------- -(define (module-declared? mod [load? #f]) - (unless (module-reference? mod) - (raise-argument-error 'module-declared? module-reference-str mod)) +(define/who (module-declared? mod [load? #f]) + (check who module-reference? #:contract module-reference-str mod) (define ns (current-namespace)) (define name (reference->resolved-module-path mod #:load? load?)) (and (namespace->module ns name) #t)) -(define (module-predefined? mod) - (unless (module-reference? mod) - (raise-argument-error 'module-predefined? module-reference-str mod)) +(define/who (module-predefined? mod) + (check who module-reference? #:contract module-reference-str mod) (define ns (current-namespace)) (define name (reference->resolved-module-path mod #:load? #f)) (define m (namespace->module ns name)) (and m (module-is-predefined? m))) (define (module-> extract who mod [load? #f]) - (unless (module-reference? mod) - (raise-argument-error who module-reference-str mod)) + (check who module-reference? #:contract module-reference-str mod) (define m (namespace->module/complain who (current-namespace) (reference->resolved-module-path mod #:load? load?))) (extract m)) -(define (module->language-info mod [load? #f]) - (module-> module-language-info 'module->language-info mod load?)) +(define/who (module->language-info mod [load? #f]) + (module-> module-language-info who mod load?)) -(define (module->imports mod) - (module-> module-requires 'module->imports mod)) +(define/who (module->imports mod) + (module-> module-requires who mod)) (define (module->exports mod) (define-values (provides self) @@ -67,10 +64,9 @@ (or (not b/p) (provided-as-protected? b/p))) 'module-provide-protected? mod)) -(define (module->namespace mod [ns (current-namespace)]) - (unless (module-reference? mod) - (raise-argument-error 'module->namespace module-reference-str mod)) - (check 'module->namespace namespace? ns) +(define/who (module->namespace mod [ns (current-namespace)]) + (check who module-reference? #:contract module-reference-str mod) + (check who namespace? ns) (define name (reference->resolved-module-path mod #:load? #t)) (define phase (namespace-phase ns)) (define m-ns (namespace->module-namespace ns name phase)) @@ -78,11 +74,11 @@ ;; Check for declaration: (namespace->module/complain 'module->namespace ns name) ;; Must be declared, but not instantiated - (raise-arguments-error 'module->namespace + (raise-arguments-error who "module not instantiated in the current namespace" "name" name)) (unless (inspector-superior? (current-code-inspector) (namespace-inspector m-ns)) - (raise-arguments-error 'module->namespace + (raise-arguments-error who "current code inspector cannot access namespace of module" "module name" name)) (unless (namespace-get-root-expand-ctx m-ns) @@ -93,15 +89,15 @@ (namespace-module-make-available! ns (namespace-mpi m-ns) phase) m-ns) -(define (namespace-unprotect-module insp mod [ns (current-namespace)]) - (check 'namespace-unprotect-module inspector? insp) - (check 'namespace-unprotect-module module-path? mod) - (check 'namespace-unprotect-module namespace? ns) +(define/who (namespace-unprotect-module insp mod [ns (current-namespace)]) + (check who inspector? insp) + (check who module-path? mod) + (check who namespace? ns) (define name (reference->resolved-module-path mod #:load? #f)) (define phase (namespace-phase ns)) (define m-ns (namespace->module-namespace ns name phase)) (unless m-ns - (raise-arguments-error 'namespace-unprotect-module + (raise-arguments-error who "module not instantiated" "module name" name)) (when (inspector-superior? insp (namespace-inspector m-ns)) diff --git a/racket/src/expander/namespace/api.rkt b/racket/src/expander/namespace/api.rkt index 9737ae8279..483e143c1f 100644 --- a/racket/src/expander/namespace/api.rkt +++ b/racket/src/expander/namespace/api.rkt @@ -54,9 +54,9 @@ (namespace-primitive-module-visit! ns '#%kernel) ns) -(define (namespace-syntax-introduce s [ns (current-namespace)]) - (check 'namespace-syntax-introduce syntax? s) - (check 'namespace-syntax-introduce namespace? ns) +(define/who (namespace-syntax-introduce s [ns (current-namespace)]) + (check who syntax? s) + (check who namespace? ns) (define root-ctx (namespace-get-root-expand-ctx ns)) (define post-scope (root-expand-context-post-expansion-scope root-ctx)) (define other-namespace-scopes (for/list ([sc (in-set @@ -91,10 +91,10 @@ (define (namespace-datum-introduce s) (namespace-syntax-introduce (datum->syntax #f s))) -(define (namespace-module-identifier [where (current-namespace)]) +(define/who (namespace-module-identifier [where (current-namespace)]) (unless (or (namespace? where) (phase? where)) - (raise-argument-error 'namespace-module-identifier + (raise-argument-error who (string-append "(or/c namespace? " phase?-string ")") where)) (datum->syntax (syntax-shift-phase-level core-stx @@ -103,8 +103,8 @@ where)) 'module)) -(define (namespace-symbol->identifier sym) - (check 'namespace-symbol->identifier symbol? sym) +(define/who (namespace-symbol->identifier sym) + (check who symbol? sym) (namespace-syntax-introduce (datum->syntax #f sym))) ;; ---------------------------------------- @@ -146,36 +146,36 @@ #:skip-variable-phase-level skip-variable-phase-level #:who who)])) -(define (namespace-require req [ns (current-namespace)]) - (do-namespace-require 'namespace-require req ns)) +(define/who (namespace-require req [ns (current-namespace)]) + (do-namespace-require who req ns)) -(define (namespace-require/expansion-time req [ns (current-namespace)]) - (do-namespace-require #:run? #f #:visit? #t 'namespace-require/expansion-time req ns)) +(define/who (namespace-require/expansion-time req [ns (current-namespace)]) + (do-namespace-require #:run? #f #:visit? #t who req ns)) -(define (namespace-require/constant req [ns (current-namespace)]) - (do-namespace-require 'namespace-require/constant req ns +(define/who (namespace-require/constant req [ns (current-namespace)]) + (do-namespace-require who req ns #:copy-variable-phase-level 0 #:copy-variable-as-constant? #t)) -(define (namespace-require/copy req [ns (current-namespace)]) - (do-namespace-require 'namespace-require/copy req ns +(define/who (namespace-require/copy req [ns (current-namespace)]) + (do-namespace-require who req ns #:copy-variable-phase-level 0 #:skip-variable-phase-level 0)) ;; ---------------------------------------- -(define (namespace-variable-value sym - [use-mapping? #t] - [failure-thunk #f] - [ns (current-namespace)]) - (check 'namespace-variable-value symbol? sym) +(define/who (namespace-variable-value sym + [use-mapping? #t] + [failure-thunk #f] + [ns (current-namespace)]) + (check who symbol? sym) (unless (or (not failure-thunk) (and (procedure? failure-thunk) (procedure-arity-includes? failure-thunk 0))) - (raise-argument-error 'namespace-variable-value + (raise-argument-error who "(or/c #f (procedure-arity-includes/c 0))" failure-thunk)) - (check 'namespace-variable-value namespace? ns) + (check who namespace? ns) ((let/ec escape (define-values (var-ns var-phase-level var-sym) (cond @@ -221,13 +221,13 @@ sym))))))) (lambda () val)))) -(define (namespace-set-variable-value! sym - val - [map? #f] - [ns (current-namespace)] - [as-constant? #f]) - (check 'namespace-variable-value symbol? sym) - (check 'namespace-variable-value namespace? ns) +(define/who (namespace-set-variable-value! sym + val + [map? #f] + [ns (current-namespace)] + [as-constant? #f]) + (check who symbol? sym) + (check who namespace? ns) (namespace-set-variable! ns (namespace-phase ns) sym val as-constant?) (when map? (namespace-unset-transformer! ns (namespace-phase ns) sym) @@ -238,14 +238,14 @@ sym) (namespace-phase ns)))) -(define (namespace-undefine-variable! sym - [ns (current-namespace)]) - (check 'namespace-variable-value symbol? sym) - (check 'namespace-variable-value namespace? ns) +(define/who (namespace-undefine-variable! sym + [ns (current-namespace)]) + (check who symbol? sym) + (check who namespace? ns) (namespace-unset-variable! ns (namespace-phase ns) sym)) -(define (namespace-mapped-symbols [ns (current-namespace)]) - (check 'namespace-mapped-symbols namespace? ns) +(define/who (namespace-mapped-symbols [ns (current-namespace)]) + (check who namespace? ns) (set->list (set-union (syntax-mapped-names (root-expand-context-all-scopes-stx (namespace-get-root-expand-ctx ns)) @@ -253,6 +253,6 @@ (list->set (instance-variable-names (namespace->instance ns 0)))))) -(define (namespace-base-phase [ns (current-namespace)]) - (check 'namespace-base-phase namespace? ns) +(define/who (namespace-base-phase [ns (current-namespace)]) + (check who namespace? ns) (namespace-phase ns)) diff --git a/racket/src/expander/namespace/namespace.rkt b/racket/src/expander/namespace/namespace.rkt index 35d3da4850..160d4ba250 100644 --- a/racket/src/expander/namespace/namespace.rkt +++ b/racket/src/expander/namespace/namespace.rkt @@ -2,7 +2,6 @@ (require racket/promise "../common/phase.rkt" "../common/small-hash.rkt" - "../syntax/scope.rkt" "../syntax/bulk-binding.rkt" "../common/module-path.rkt" "../expand/root-expand-context.rkt" @@ -62,22 +61,22 @@ [inspector #:mutable] ; instantiation-time inspector available-module-instances ; phase -> list of module-instance [shared among modules] module-instances) ; union resolved-module-path -> module-instance [shared among modules] - ;; ; 0-phase -> resolved-module-path -> module-instance - ;; ; where the first option is for cross phase persistent modules - #:property prop:custom-write - (lambda (ns port mode) - (write-string "#name ns))) - (define 0-phase (namespace-0-phase ns)) - (define phase-level (phase- (namespace-phase ns) - 0-phase)) - (unless (zero-phase? phase-level) - (fprintf port ":~s" phase-level)) - (unless (zero-phase? 0-phase) - (fprintf port "~a~s" (if (positive? 0-phase) "+" "") 0-phase)) - (write-string ">" port))) + ;; ; 0-phase -> resolved-module-path -> module-instance + ;; ; where the first option is for cross phase persistent modules + #:property prop:custom-write + (lambda (ns port mode) + (write-string "#name ns))) + (define 0-phase (namespace-0-phase ns)) + (define phase-level (phase- (namespace-phase ns) + 0-phase)) + (unless (zero-phase? phase-level) + (fprintf port ":~s" phase-level)) + (unless (zero-phase? 0-phase) + (fprintf port "~a~s" (if (positive? 0-phase) "+" "") 0-phase)) + (write-string ">" port))) (struct definitions (variables ; linklet instance transformers)) ; sym -> val diff --git a/racket/src/expander/namespace/provided.rkt b/racket/src/expander/namespace/provided.rkt index cac212fadd..3b97cd629c 100644 --- a/racket/src/expander/namespace/provided.rkt +++ b/racket/src/expander/namespace/provided.rkt @@ -10,13 +10,13 @@ ;; Wrapper for provides that are protected or syntax (struct provided (binding protected? syntax?) - #:transparent - #:property prop:serialize - (lambda (p ser-push! state) - (ser-push! 'tag '#:provided) - (ser-push! (provided-binding p)) - (ser-push! (provided-protected? p)) - (ser-push! (provided-syntax? p)))) + #:transparent + #:property prop:serialize + (lambda (p ser-push! state) + (ser-push! 'tag '#:provided) + (ser-push! (provided-binding p)) + (ser-push! (provided-protected? p)) + (ser-push! (provided-syntax? p)))) (define (provided-as-binding v) (if (provided? v) (provided-binding v) v)) diff --git a/racket/src/expander/namespace/variable-reference.rkt b/racket/src/expander/namespace/variable-reference.rkt index 2af324e13a..ce847c8f30 100644 --- a/racket/src/expander/namespace/variable-reference.rkt +++ b/racket/src/expander/namespace/variable-reference.rkt @@ -18,12 +18,12 @@ variable-reference->module-base-phase variable-reference->module-declaration-inspector) -(define (variable-reference->empty-namespace vr) - (check 'variable-reference->empty-namespace variable-reference? vr) +(define/who (variable-reference->empty-namespace vr) + (check who variable-reference? vr) (new-namespace (variable-reference->namespace vr))) -(define (variable-reference->namespace vr) - (check 'variable-reference->namespace variable-reference? vr) +(define/who (variable-reference->namespace vr) + (check who variable-reference? vr) (define inst (variable-reference->instance vr)) (cond [(symbol? inst) @@ -40,37 +40,37 @@ ;; Get the defining namespace for the referenced variable (instance-data inst)])) -(define (variable-reference->module-path-index vr) - (check 'variable-reference->module-path-index variable-reference? vr) +(define/who (variable-reference->module-path-index vr) + (check who variable-reference? vr) (define mpi (namespace-mpi (variable-reference->namespace vr))) (if (top-level-module-path-index? mpi) #f mpi)) -(define (variable-reference->resolved-module-path vr) - (check 'variable-reference->resolved-module-path variable-reference? vr) +(define/who (variable-reference->resolved-module-path vr) + (check who variable-reference? vr) (define mpi (variable-reference->module-path-index vr)) (and mpi (module-path-index-resolve mpi))) -(define (variable-reference->module-source vr) - (check 'variable-reference->module-source variable-reference? vr) +(define/who (variable-reference->module-source vr) + (check who variable-reference? vr) (define ns (variable-reference->namespace vr)) (namespace-source-name ns)) -(define (variable-reference->phase vr) - (check 'variable-reference->phase variable-reference? vr) +(define/who (variable-reference->phase vr) + (check who variable-reference? vr) (namespace-phase (variable-reference->namespace vr))) -(define (variable-reference->module-base-phase vr) - (check 'variable-reference->module-base-phase variable-reference? vr) +(define/who (variable-reference->module-base-phase vr) + (check who variable-reference? vr) (namespace-0-phase (variable-reference->namespace vr))) -(define (variable-reference->module-declaration-inspector vr) - (check 'variable-reference->module-declaration-inspector variable-reference? vr) +(define/who (variable-reference->module-declaration-inspector vr) + (check who variable-reference? vr) (when (variable-reference->instance vr) - (raise-arguments-error 'variable-reference->module-declaration-inspector + (raise-arguments-error who "variable reference does not refer to an anonymous module variable" "variable reference" vr)) (or (namespace-declaration-inspector (variable-reference->namespace vr)) - (raise-arguments-error 'variable-reference->module-declaration-inspector + (raise-arguments-error who "given variable reference is not from a module"))) diff --git a/racket/src/expander/read/api.rkt b/racket/src/expander/read/api.rkt index 993c56c111..795c8a687f 100644 --- a/racket/src/expander/read/api.rkt +++ b/racket/src/expander/read/api.rkt @@ -14,43 +14,37 @@ read/recursive read-language) -(define (read-syntax [src (object-name (current-input-port))] [in (current-input-port)]) - (check 'read-syntax input-port? in) +(define/who (read-syntax [src (object-name (current-input-port))] [in (current-input-port)]) + (check who input-port? in) (raw:read-syntax src in)) -(define (read-syntax/recursive [src (object-name (current-input-port))] - [in (current-input-port)] - [start #f] - [readtable (current-readtable)] - [graph? #t]) - (check 'read-syntax/recursive input-port? in) - (unless (or (char? start) (not start)) - (raise-argument-error 'read-syntax/recursive "(or/c char? #f)" start)) - (unless (or (readtable? readtable) (not readtable)) - (raise-argument-error 'read-syntax/recursive "(or/c readtable? #f)" readtable)) +(define/who (read-syntax/recursive [src (object-name (current-input-port))] + [in (current-input-port)] + [start #f] + [readtable (current-readtable)] + [graph? #t]) + (check who input-port? in) + (check who char? #:or-false start) + (check who readtable? #:or-false readtable) (raw:read-syntax/recursive src in start readtable graph?)) -(define (read [in (current-input-port)]) - (check 'read input-port? in) +(define/who (read [in (current-input-port)]) + (check who input-port? in) (raw:read in)) -(define (read/recursive [in (current-input-port)] - [start #f] - [readtable (current-readtable)] - [graph? #t]) - (check 'read/recursive input-port? in) - (unless (or (char? start) (not start)) - (raise-argument-error 'read/recursive "(or/c char? #f)" start)) - (unless (or (readtable? readtable) (not readtable)) - (raise-argument-error 'read/recursive "(or/c readtable? #f)" readtable)) +(define/who (read/recursive [in (current-input-port)] + [start #f] + [readtable (current-readtable)] + [graph? #t]) + (check who input-port? in) + (check who char? #:or-false start) + (check who readtable? #:or-false readtable) (raw:read/recursive in start readtable graph?)) -(define (read-language [in (current-input-port)] - [fail-thunk read-language-fail-thunk]) - (check 'read-language input-port? in) - (unless (and (procedure? fail-thunk) - (procedure-arity-includes? fail-thunk 0)) - (raise-argument-error 'read-language "(procedure-arity-includes?/c 0)" fail-thunk)) +(define/who (read-language [in (current-input-port)] + [fail-thunk read-language-fail-thunk]) + (check who input-port? in) + (check who (procedure-arity-includes/c 0) fail-thunk) (raw:read-language in (if (eq? fail-thunk read-language-fail-thunk) #f fail-thunk))) diff --git a/racket/src/expander/read/readtable-parameter.rkt b/racket/src/expander/read/readtable-parameter.rkt index e2f4ef1a8b..1cf65cd266 100644 --- a/racket/src/expander/read/readtable-parameter.rkt +++ b/racket/src/expander/read/readtable-parameter.rkt @@ -1,4 +1,5 @@ #lang racket/base +(require "../common/contract.rkt") (provide current-readtable prop:readtable prop:readtable?) @@ -6,11 +7,7 @@ (define-values (prop:readtable prop:readtable? prop:readtable-ref) (make-struct-type-property 'readtable)) -(define current-readtable (make-parameter #f - (lambda (v) - (unless (or (not v) - (prop:readtable? v)) - (raise-argument-error 'current-readtable - "(or/c readtable? #f)" - v)) - v))) +(define/who current-readtable (make-parameter #f + (lambda (v) + (check who prop:readtable? #:or-false v) + v))) diff --git a/racket/src/expander/read/readtable.rkt b/racket/src/expander/read/readtable.rkt index e124ee5666..04ccf39dea 100644 --- a/racket/src/expander/read/readtable.rkt +++ b/racket/src/expander/read/readtable.rkt @@ -30,7 +30,7 @@ ;; 'no-delimit, or a character whose default to use; ;; absence of a mapping is the default for that character delimiter-ht) - #:property prop:readtable #t) + #:property prop:readtable #t) (define (make-readtable rt . args) (unless (or (not rt) (readtable? rt)) diff --git a/racket/src/expander/syntax/api-taint.rkt b/racket/src/expander/syntax/api-taint.rkt index c32589e71b..d950b3bb78 100644 --- a/racket/src/expander/syntax/api-taint.rkt +++ b/racket/src/expander/syntax/api-taint.rkt @@ -22,15 +22,15 @@ syntax-rearm syntax-taint) -(define (syntax-tainted? s) - (check 'syntax-tainted? syntax? s) +(define/who (syntax-tainted? s) + (check who syntax? s) (raw:syntax-tainted? s)) -(define (syntax-arm s [maybe-insp #f] [use-mode? #f]) - (check 'syntax-arm syntax? s) +(define/who (syntax-arm s [maybe-insp #f] [use-mode? #f]) + (check who syntax? s) (unless (or (not maybe-insp) (inspector? maybe-insp)) - (raise-argument-error 'syntax-arm "(or/c inspector? #f)" maybe-insp)) + (raise-argument-error who "(or/c inspector? #f)" maybe-insp)) (define insp (inspector-for-taint maybe-insp)) (cond [use-mode? @@ -41,17 +41,17 @@ [else (raw:syntax-arm s insp)])) -(define (syntax-disarm s maybe-insp) - (check 'syntax-disarm syntax? s) +(define/who (syntax-disarm s maybe-insp) + (check who syntax? s) (unless (or (not maybe-insp) (inspector? maybe-insp)) - (raise-argument-error 'syntax-disarm "(or/c inspector? #f)" maybe-insp)) + (raise-argument-error who "(or/c inspector? #f)" maybe-insp)) (define insp (inspector-for-taint maybe-insp)) (raw:syntax-disarm s insp)) -(define (syntax-rearm s from-s [use-mode? #f]) - (check 'syntax-disarm syntax? s) - (check 'syntax-disarm syntax? from-s) +(define/who (syntax-rearm s from-s [use-mode? #f]) + (check who syntax? s) + (check who syntax? from-s) (cond [use-mode? (taint-dispatch s @@ -60,8 +60,8 @@ [else (raw:syntax-rearm s from-s)])) -(define (syntax-taint s) - (check 'syntax-taint syntax? s) +(define/who (syntax-taint s) + (check who syntax? s) (raw:syntax-taint s)) ;; ---------------------------------------- @@ -70,5 +70,3 @@ (or maybe-insp (current-module-code-inspector) (current-code-inspector))) - -;; ---------------------------------------- diff --git a/racket/src/expander/syntax/api.rkt b/racket/src/expander/syntax/api.rkt index a18c601d93..61a67cf1ef 100644 --- a/racket/src/expander/syntax/api.rkt +++ b/racket/src/expander/syntax/api.rkt @@ -54,12 +54,12 @@ syntax-track-origin syntax-debug-info) -(define (syntax-e s) - (check 'syntax-e syntax? s) +(define/who (syntax-e s) + (check who syntax? s) (raw:syntax-e s)) -(define (syntax->datum s) - (check 'syntax->datum syntax? s) +(define/who (syntax->datum s) + (check who syntax? s) (raw:syntax->datum s)) (define (maybe-syntax->datum s) @@ -67,13 +67,13 @@ (raw:syntax->datum s) s)) -(define (datum->syntax stx-c s [stx-l #f] [stx-p #f] [ignored #f]) +(define/who (datum->syntax stx-c s [stx-l #f] [stx-p #f] [ignored #f]) (unless (or (not stx-c) (syntax? stx-c)) - (raise-argument-error 'datum->syntax "(or #f syntax?)" stx-c)) + (raise-argument-error who "(or #f syntax?)" stx-c)) (unless (or (not stx-l) (syntax? stx-l) (encoded-srcloc? stx-l)) - (raise-argument-error 'datum->syntax + (raise-argument-error who (string-append "(or #f syntax?\n" " (list/c any/c\n" " (or/c exact-positive-integer? #f)\n" @@ -87,101 +87,94 @@ " (or/c exact-nonnegative-integer? #f)))") stx-l)) (unless (or (not stx-p) (syntax? stx-p)) - (raise-argument-error 'datum->syntax "(or #f syntax?)" stx-p)) + (raise-argument-error who "(or #f syntax?)" stx-p)) (raw:datum->syntax stx-c s (to-srcloc-stx stx-l) stx-p)) -(define (syntax->list s) - (check 'syntax->list syntax? s) +(define/who (syntax->list s) + (check who syntax? s) (raw:syntax->list s)) -(define (syntax-original? s) - (check 'syntax-original? syntax? s) +(define/who (syntax-original? s) + (check who syntax? s) (and (syntax-property s original-property-sym) (not (syntax-any-macro-scopes? s)))) -(define (bound-identifier=? a b [phase (syntax-local-phase-level)]) - (check 'bound-identifier=? identifier? a) - (check 'bound-identifier=? identifier? b) - (unless (phase? phase) - (raise-argument-error 'bound-identifier=? phase?-string phase)) +(define/who (bound-identifier=? a b [phase (syntax-local-phase-level)]) + (check who identifier? a) + (check who identifier? b) + (check who phase? #:contract phase?-string phase) (raw:bound-identifier=? a b phase)) -(define (free-identifier=? a b - [a-phase (syntax-local-phase-level)] - [b-phase a-phase]) - (check 'free-identifier=? identifier? a) - (check 'free-identifier=? identifier? b) - (unless (phase? a-phase) - (raise-argument-error 'free-identifier=? phase?-string a-phase)) - (unless (phase? b-phase) - (raise-argument-error 'free-identifier=? phase?-string b-phase)) +(define/who (free-identifier=? a b + [a-phase (syntax-local-phase-level)] + [b-phase a-phase]) + (check who identifier? a) + (check who identifier? b) + (check who phase? #:contract phase?-string a-phase) + (check who phase? #:contract phase?-string b-phase) (raw:free-identifier=? a b a-phase b-phase)) -(define (free-transformer-identifier=? a b) - (check 'free-transformer-identifier=? identifier? a) - (check 'free-transformer-identifier=? identifier? b) +(define/who (free-transformer-identifier=? a b) + (check who identifier? a) + (check who identifier? b) (define phase (add1 (syntax-local-phase-level))) (raw:free-identifier=? a b phase phase)) -(define (free-template-identifier=? a b) - (check 'free-template-identifier=? identifier? a) - (check 'free-template-identifier=? identifier? b) +(define/who (free-template-identifier=? a b) + (check who identifier? a) + (check who identifier? b) (define phase (sub1 (syntax-local-phase-level))) (raw:free-identifier=? a b phase phase)) -(define (free-label-identifier=? a b) - (check 'free-label-identifier=? identifier? a) - (check 'free-label-identifier=? identifier? b) +(define/who (free-label-identifier=? a b) + (check who identifier? a) + (check who identifier? b) (raw:free-identifier=? a b #f #f)) -(define (identifier-binding id [phase (syntax-local-phase-level)] [top-level-symbol? #f]) - (check 'identifier-binding identifier? id) - (unless (phase? phase) - (raise-argument-error 'identifier-binding phase?-string phase)) +(define/who (identifier-binding id [phase (syntax-local-phase-level)] [top-level-symbol? #f]) + (check who identifier? id) + (check who phase? #:contract phase?-string phase) (raw:identifier-binding id phase top-level-symbol?)) -(define (identifier-transformer-binding id [phase (syntax-local-phase-level)]) - (check 'identifier-transformer-binding identifier? id) +(define/who (identifier-transformer-binding id [phase (syntax-local-phase-level)]) + (check who identifier? id) (raw:identifier-binding id (and phase (add1 phase)))) -(define (identifier-template-binding id) - (check 'identifier-template-binding identifier? id) +(define/who (identifier-template-binding id) + (check who identifier? id) (raw:identifier-binding id (sub1 (syntax-local-phase-level)))) -(define (identifier-label-binding id) - (check 'identifier-label-binding identifier? id) +(define/who (identifier-label-binding id) + (check who identifier? id) (raw:identifier-binding id #f)) -(define (identifier-binding-symbol id [phase (syntax-local-phase-level)]) - (check 'identifier-binding-symbol identifier? id) - (unless (phase? phase) - (raise-argument-error 'identifier-binding-symbol phase?-string phase)) +(define/who (identifier-binding-symbol id [phase (syntax-local-phase-level)]) + (check who identifier? id) + (check who phase? #:contract phase?-string phase) (raw:identifier-binding-symbol id phase)) -(define (identifier-prune-lexical-context id [syms null]) - (check 'identifier-prune-lexical-context identifier? id) +(define/who (identifier-prune-lexical-context id [syms null]) + (check who identifier? id) (unless (and (list? syms) (andmap symbol? syms)) - (raise-argument-error 'identifier-prune-lexical-context "(listof symbol?)" syms)) + (raise-argument-error who "(listof symbol?)" syms)) ;; It's a no-op in the Racket v6.5 expander id) -(define (syntax-debug-info s [phase (syntax-local-phase-level)] [all-bindings? #f]) - (check 'syntax-debug-info syntax? s) - (unless (phase? phase) - (raise-argument-error 'syntax-debug-info phase?-string phase)) +(define/who (syntax-debug-info s [phase (syntax-local-phase-level)] [all-bindings? #f]) + (check who syntax? s) + (check who phase? #:contract phase?-string phase) (raw:syntax-debug-info s phase all-bindings?)) -(define (syntax-shift-phase-level s phase) - (check 'syntax-shift-phase-level syntax? s) - (unless (phase? phase) - (raise-argument-error 'syntax-shift-phase-level phase?-string phase)) +(define/who (syntax-shift-phase-level s phase) + (check who syntax? s) + (check who phase? #:contract phase?-string phase) (raw:syntax-shift-phase-level s phase)) -(define (syntax-track-origin new-stx old-stx id) - (check 'syntax-track-origin syntax? new-stx) - (check 'syntax-track-origin syntax? old-stx) - (check 'syntax-track-origin identifier? id) +(define/who (syntax-track-origin new-stx old-stx id) + (check who syntax? new-stx) + (check who syntax? old-stx) + (check who identifier? id) (define s (raw:syntax-track-origin new-stx old-stx id)) (define ctx (get-current-expand-context #:fail-ok? #t)) (when ctx (log-expand ctx 'track-origin new-stx s)) diff --git a/racket/src/expander/syntax/binding-table.rkt b/racket/src/expander/syntax/binding-table.rkt index f125e2e59a..b1a35c41f1 100644 --- a/racket/src/expander/syntax/binding-table.rkt +++ b/racket/src/expander/syntax/binding-table.rkt @@ -43,11 +43,11 @@ (struct table-with-bulk-bindings (syms syms/serialize ; copy of `syms`, but maybe with less nominal info bulk-bindings) - #:property prop:serialize - (lambda (twbb ser-push! state) - (ser-push! 'tag '#:table-with-bulk-bindings) - (ser-push! (table-with-bulk-bindings-syms/serialize twbb)) - (ser-push! (table-with-bulk-bindings-bulk-bindings twbb)))) + #:property prop:serialize + (lambda (twbb ser-push! state) + (ser-push! 'tag '#:table-with-bulk-bindings) + (ser-push! (table-with-bulk-bindings-syms/serialize twbb)) + (ser-push! (table-with-bulk-bindings-bulk-bindings twbb)))) (define (deserialize-table-with-bulk-bindings syms bulk-bindings) (table-with-bulk-bindings syms syms bulk-bindings)) @@ -56,18 +56,18 @@ (struct bulk-binding-at (scopes ; scope set bulk) ; bulk-binding - #:property prop:serialize - (lambda (bba ser-push! state) - ;; Data that is interpreted by the deserializer: - (ser-push! 'tag '#:bulk-binding-at) - (ser-push! (bulk-binding-at-scopes bba)) - (ser-push! (bulk-binding-at-bulk bba))) - #:property prop:reach-scopes - (lambda (sms reach) - ;; bulk bindings are pruned dependong on whether all scopes - ;; in `scopes` are reachable, and we shouldn't get here - ;; when looking for scopes - (error "shouldn't get here"))) + #:property prop:serialize + (lambda (bba ser-push! state) + ;; Data that is interpreted by the deserializer: + (ser-push! 'tag '#:bulk-binding-at) + (ser-push! (bulk-binding-at-scopes bba)) + (ser-push! (bulk-binding-at-bulk bba))) + #:property prop:reach-scopes + (lambda (sms reach) + ;; bulk bindings are pruned dependong on whether all scopes + ;; in `scopes` are reachable, and we shouldn't get here + ;; when looking for scopes + (error "shouldn't get here"))) (define (deserialize-bulk-binding-at scopes bulk) (bulk-binding-at scopes bulk)) diff --git a/racket/src/expander/syntax/bulk-binding.rkt b/racket/src/expander/syntax/bulk-binding.rkt index 9c929ee18d..3cd6b852e5 100644 --- a/racket/src/expander/syntax/bulk-binding.rkt +++ b/racket/src/expander/syntax/bulk-binding.rkt @@ -1,10 +1,8 @@ #lang racket/base (require "../compile/serialize-property.rkt" - "syntax.rkt" "binding-table.rkt" ; defines `prop:bulk-binding` "binding.rkt" "../common/module-path.rkt" - (only-in "../compile/reserved-symbol.rkt" bulk-binding-registry-id) "../namespace/provided.rkt") (provide provide-binding-to-require-binding @@ -81,61 +79,61 @@ provide-phase-level ; providing module's import phase phase-shift ; providing module's instantiation phase bulk-binding-registry) ; a registry for finding bulk bindings lazily - #:property prop:bulk-binding - (bulk-binding-class - (lambda (b mpi-shifts) - (or (bulk-binding-provides b) - ;; Here's where we find provided bindings for unmarshaled syntax - (let ([mod-name (module-path-index-resolve - (apply-syntax-shifts - (bulk-binding-mpi b) - mpi-shifts))]) - (unless (bulk-binding-bulk-binding-registry b) - (error "namespace mismatch: no bulk-binding registry available:" - mod-name)) - (define table (bulk-binding-registry-table (bulk-binding-bulk-binding-registry b))) - (define bulk-provide (hash-ref table mod-name #f)) - (unless bulk-provide - (error "namespace mismatch: bulk bindings not found in registry for module:" - mod-name)) - ;; Reset `provide` and `self` to the discovered information - (set-bulk-binding-self! b (bulk-provide-self bulk-provide)) - (define provides (hash-ref (bulk-provide-provides bulk-provide) - (bulk-binding-provide-phase-level b))) - ;; Remove exceptions and add prefix - (define excepts (bulk-binding-excepts b)) - (define prefix (bulk-binding-prefix b)) - (define adjusted-provides - (cond - [(or prefix (positive? (hash-count excepts))) - (bulk-provides-add-prefix-remove-exceptions provides prefix excepts)] - [else provides])) - ;; Record the adjusted `provides` table for quick future access: - (set-bulk-binding-provides! b adjusted-provides) - adjusted-provides))) - (lambda (b binding sym) - ;; Convert the provided binding to a required binding on - ;; demand during binding resolution - (provide-binding-to-require-binding - binding (if (bulk-binding-prefix b) - (string->symbol - (substring (symbol->string sym) - (string-length (symbol->string (bulk-binding-prefix b))))) - sym) - #:self (bulk-binding-self b) - #:mpi (bulk-binding-mpi b) - #:provide-phase-level (bulk-binding-provide-phase-level b) - #:phase-shift (bulk-binding-phase-shift b)))) - #:property prop:serialize - ;; Serialization drops the `provides` table and the providing module's `self` - (lambda (b ser-push! reachable-scopes) - (ser-push! 'tag '#:bulk-binding) - (ser-push! (bulk-binding-prefix b)) - (ser-push! (bulk-binding-excepts b)) - (ser-push! (bulk-binding-mpi b)) - (ser-push! (bulk-binding-provide-phase-level b)) - (ser-push! (bulk-binding-phase-shift b)) - (ser-push! 'tag '#:bulk-binding-registry))) + #:property prop:bulk-binding + (bulk-binding-class + (lambda (b mpi-shifts) + (or (bulk-binding-provides b) + ;; Here's where we find provided bindings for unmarshaled syntax + (let ([mod-name (module-path-index-resolve + (apply-syntax-shifts + (bulk-binding-mpi b) + mpi-shifts))]) + (unless (bulk-binding-bulk-binding-registry b) + (error "namespace mismatch: no bulk-binding registry available:" + mod-name)) + (define table (bulk-binding-registry-table (bulk-binding-bulk-binding-registry b))) + (define bulk-provide (hash-ref table mod-name #f)) + (unless bulk-provide + (error "namespace mismatch: bulk bindings not found in registry for module:" + mod-name)) + ;; Reset `provide` and `self` to the discovered information + (set-bulk-binding-self! b (bulk-provide-self bulk-provide)) + (define provides (hash-ref (bulk-provide-provides bulk-provide) + (bulk-binding-provide-phase-level b))) + ;; Remove exceptions and add prefix + (define excepts (bulk-binding-excepts b)) + (define prefix (bulk-binding-prefix b)) + (define adjusted-provides + (cond + [(or prefix (positive? (hash-count excepts))) + (bulk-provides-add-prefix-remove-exceptions provides prefix excepts)] + [else provides])) + ;; Record the adjusted `provides` table for quick future access: + (set-bulk-binding-provides! b adjusted-provides) + adjusted-provides))) + (lambda (b binding sym) + ;; Convert the provided binding to a required binding on + ;; demand during binding resolution + (provide-binding-to-require-binding + binding (if (bulk-binding-prefix b) + (string->symbol + (substring (symbol->string sym) + (string-length (symbol->string (bulk-binding-prefix b))))) + sym) + #:self (bulk-binding-self b) + #:mpi (bulk-binding-mpi b) + #:provide-phase-level (bulk-binding-provide-phase-level b) + #:phase-shift (bulk-binding-phase-shift b)))) + #:property prop:serialize + ;; Serialization drops the `provides` table and the providing module's `self` + (lambda (b ser-push! reachable-scopes) + (ser-push! 'tag '#:bulk-binding) + (ser-push! (bulk-binding-prefix b)) + (ser-push! (bulk-binding-excepts b)) + (ser-push! (bulk-binding-mpi b)) + (ser-push! (bulk-binding-provide-phase-level b)) + (ser-push! (bulk-binding-phase-shift b)) + (ser-push! 'tag '#:bulk-binding-registry))) (define (deserialize-bulk-binding prefix excepts mpi provide-phase-level phase-shift bulk-binding-registry) (bulk-binding #f prefix excepts #f mpi provide-phase-level phase-shift bulk-binding-registry)) diff --git a/racket/src/expander/syntax/error.rkt b/racket/src/expander/syntax/error.rkt index 28d7a04c4d..b623b04ec9 100644 --- a/racket/src/expander/syntax/error.rkt +++ b/racket/src/expander/syntax/error.rkt @@ -13,47 +13,46 @@ raise-unbound-syntax-error) (struct exn:fail:syntax exn:fail (exprs) - #:extra-constructor-name make-exn:fail:syntax - #:transparent - #:property prop:exn:srclocs (lambda (e) (filter values (map syntax-srcloc (exn:fail:syntax-exprs e)))) - #:guard (lambda (str cm exprs info) - (unless (and (list? exprs) - (andmap syntax? exprs)) - (raise-argument-error 'exn:fail:syntax "(listof syntax?)" exprs)) - (values str cm exprs))) + #:extra-constructor-name make-exn:fail:syntax + #:transparent + #:property prop:exn:srclocs (lambda (e) (filter values (map syntax-srcloc (exn:fail:syntax-exprs e)))) + #:guard (lambda (str cm exprs info) + (unless (and (list? exprs) + (andmap syntax? exprs)) + (raise-argument-error 'exn:fail:syntax "(listof syntax?)" exprs)) + (values str cm exprs))) (struct exn:fail:syntax:unbound exn:fail:syntax () - #:extra-constructor-name make-exn:fail:syntax:unbound - #:transparent) + #:extra-constructor-name make-exn:fail:syntax:unbound + #:transparent) -(define (raise-syntax-error given-name message - [expr #f] [sub-expr #f] - [extra-sources null] - [message-suffix ""]) - (do-raise-syntax-error exn:fail:syntax given-name message +(define/who (raise-syntax-error given-name message + [expr #f] [sub-expr #f] + [extra-sources null] + [message-suffix ""]) + (do-raise-syntax-error who exn:fail:syntax given-name message expr sub-expr extra-sources message-suffix)) -(define (raise-unbound-syntax-error given-name message - [expr #f] [sub-expr #f] - [extra-sources null] - [message-suffix ""]) - (do-raise-syntax-error exn:fail:syntax:unbound given-name message +(define/who (raise-unbound-syntax-error given-name message + [expr #f] [sub-expr #f] + [extra-sources null] + [message-suffix ""]) + (do-raise-syntax-error who exn:fail:syntax:unbound given-name message expr sub-expr extra-sources message-suffix)) -(define (do-raise-syntax-error exn:fail:syntax given-name message +(define (do-raise-syntax-error who exn:fail:syntax given-name message expr sub-expr extra-sources message-suffix) - (unless (or (not given-name) (symbol? given-name)) - (raise-argument-error 'raise-syntax-error "(or/c symbol? #f)" given-name)) - (check 'raise-syntax-error string? message) + (check who symbol? #:or-false given-name) + (check who string? message) (unless (and (list? extra-sources) (andmap syntax? extra-sources)) - (raise-argument-error 'raise-syntax-error "(listof syntax?)" extra-sources)) - (check 'raise-syntax-error string? message-suffix) + (raise-argument-error who "(listof syntax?)" extra-sources)) + (check who string? message-suffix) (define name (format "~a" (or given-name (extract-form-name expr) diff --git a/racket/src/expander/syntax/full-binding.rkt b/racket/src/expander/syntax/full-binding.rkt index ca2377cbb5..390844067c 100644 --- a/racket/src/expander/syntax/full-binding.rkt +++ b/racket/src/expander/syntax/full-binding.rkt @@ -9,10 +9,10 @@ ;; `free-identifier=?` equivalence (struct full-binding (frame-id ; used to trigger use-site scopes free=id) ; `free-identifier=?` equivalence via a rename-transformer binding - #:authentic - #:property prop:binding-reach-scopes - (lambda (b) - (binding-free=id b))) + #:authentic + #:property prop:binding-reach-scopes + (lambda (b) + (binding-free=id b))) (define (binding-frame-id b) (and (full-binding? b) diff --git a/racket/src/expander/syntax/local-binding.rkt b/racket/src/expander/syntax/local-binding.rkt index 585101d236..582cb8d183 100644 --- a/racket/src/expander/syntax/local-binding.rkt +++ b/racket/src/expander/syntax/local-binding.rkt @@ -22,13 +22,13 @@ ;; the binding was local. The `frame-id` field is used to ;; trigger use-site scopes as needed (struct full-local-binding full-binding (key) - #:authentic - #:property prop:serialize - (lambda (b ser-push! state) - ;; Data that is interpreted by the deserializer: - (ser-push! 'tag '#:local-binding) - (ser-push! (full-local-binding-key b)) - (ser-push! (full-binding-free=id b)))) + #:authentic + #:property prop:serialize + (lambda (b ser-push! state) + ;; Data that is interpreted by the deserializer: + (ser-push! 'tag '#:local-binding) + (ser-push! (full-local-binding-key b)) + (ser-push! (full-binding-free=id b)))) (define (deserialize-full-local-binding key free=id) (full-local-binding #f free=id key)) diff --git a/racket/src/expander/syntax/module-binding.rkt b/racket/src/expander/syntax/module-binding.rkt index 1af5903993..e46988dc34 100644 --- a/racket/src/expander/syntax/module-binding.rkt +++ b/racket/src/expander/syntax/module-binding.rkt @@ -1,7 +1,5 @@ #lang racket/base -(require "../common/set.rkt" - "../compile/serialize-property.rkt" - "../compile/serialize-state.rkt" +(require "../compile/serialize-property.rkt" "full-binding.rkt") (provide make-module-binding @@ -84,43 +82,43 @@ nominal-require-phase extra-inspector ; preserves access to protected definitions extra-nominal-bindings) - #:authentic - #:transparent - #:property prop:serialize - (lambda (b ser-push! state) - ;; Dropping the frame id may simplify the representation: - (define simplified-b - (if (full-binding-frame-id b) - (module-binding-update b #:frame-id #f) - b)) - (cond - [(full-module-binding? simplified-b) - (ser-push! 'tag '#:module-binding) - (ser-push! (full-module-binding-module b)) - (ser-push! (full-module-binding-sym b)) - (ser-push! (full-module-binding-phase b)) - (ser-push! (full-module-binding-nominal-module b)) - (ser-push! (full-module-binding-nominal-phase b)) - (ser-push! (full-module-binding-nominal-sym b)) - (ser-push! (full-module-binding-nominal-require-phase b)) - (ser-push! (full-binding-free=id b)) - (if (full-module-binding-extra-inspector b) - (ser-push! 'tag '#:inspector) - (ser-push! #f)) - (ser-push! (full-module-binding-extra-nominal-bindings b))] - [else - (ser-push! simplified-b)]))) + #:authentic + #:transparent + #:property prop:serialize + (lambda (b ser-push! state) + ;; Dropping the frame id may simplify the representation: + (define simplified-b + (if (full-binding-frame-id b) + (module-binding-update b #:frame-id #f) + b)) + (cond + [(full-module-binding? simplified-b) + (ser-push! 'tag '#:module-binding) + (ser-push! (full-module-binding-module b)) + (ser-push! (full-module-binding-sym b)) + (ser-push! (full-module-binding-phase b)) + (ser-push! (full-module-binding-nominal-module b)) + (ser-push! (full-module-binding-nominal-phase b)) + (ser-push! (full-module-binding-nominal-sym b)) + (ser-push! (full-module-binding-nominal-require-phase b)) + (ser-push! (full-binding-free=id b)) + (if (full-module-binding-extra-inspector b) + (ser-push! 'tag '#:inspector) + (ser-push! #f)) + (ser-push! (full-module-binding-extra-nominal-bindings b))] + [else + (ser-push! simplified-b)]))) (struct simple-module-binding (module phase sym nominal-module) - #:authentic - #:transparent - #:property prop:serialize - (lambda (b ser-push! state) - (ser-push! 'tag '#:simple-module-binding) - (ser-push! (simple-module-binding-module b)) - (ser-push! (simple-module-binding-sym b)) - (ser-push! (simple-module-binding-phase b)) - (ser-push! (simple-module-binding-nominal-module b)))) + #:authentic + #:transparent + #:property prop:serialize + (lambda (b ser-push! state) + (ser-push! 'tag '#:simple-module-binding) + (ser-push! (simple-module-binding-module b)) + (ser-push! (simple-module-binding-sym b)) + (ser-push! (simple-module-binding-phase b)) + (ser-push! (simple-module-binding-nominal-module b)))) (define (deserialize-full-module-binding module sym phase nominal-module diff --git a/racket/src/expander/syntax/property.rkt b/racket/src/expander/syntax/property.rkt index 61ee39359b..301d35e729 100644 --- a/racket/src/expander/syntax/property.rkt +++ b/racket/src/expander/syntax/property.rkt @@ -10,24 +10,24 @@ ;; ---------------------------------------- -(define syntax-property +(define/who syntax-property (case-lambda [(s key) - (check 'syntax-property syntax? s) + (check who syntax? s) (define v (hash-ref (syntax-props s) key #f)) (plain-property-value v)] [(s key val) - (check 'syntax-property syntax? s) + (check who syntax? s) (define pval (if (eq? key 'paren-shape) (preserved-property-value val) val)) (struct-copy syntax s [props (hash-set (syntax-props s) key pval)])] [(s key val preserved?) - (check 'syntax-property syntax? s) + (check who syntax? s) (when preserved? (unless (and (symbol? key) (symbol-interned? key)) - (raise-arguments-error 'syntax-property + (raise-arguments-error who "key for a perserved property must be an interned symbol" "given key" key "given value" val))) @@ -37,19 +37,18 @@ (struct-copy syntax s [props (hash-set (syntax-props s) key pval)])])) -(define (syntax-property-preserved? s key) - (check 'syntax-property-preserved syntax? s) +(define/who (syntax-property-preserved? s key) + (check who syntax? s) (unless (and (symbol? key) (symbol-interned? key)) - (raise-argument-error 'syntax-property "(and/c symbol? symbol-interned?)" key)) + (raise-argument-error who "(and/c symbol? symbol-interned?)" key)) (preserved-property-value? (hash-ref (syntax-props s) key #f))) -(define syntax-property-symbol-keys - (lambda (s) - (unless (syntax? s) - (raise-argument-error 'syntax-property-symbol-keys "syntax" s)) - (for/list ([(k v) (in-immutable-hash (syntax-props s))] - #:when (and (symbol? k) (symbol-interned? k))) - k))) +(define/who (syntax-property-symbol-keys s) + (unless (syntax? s) + (raise-argument-error who "syntax" s)) + (for/list ([(k v) (in-immutable-hash (syntax-props s))] + #:when (and (symbol? k) (symbol-interned? k))) + k)) (define (syntax-property-remove s key) (if (hash-ref (syntax-props s) key #f) diff --git a/racket/src/expander/syntax/scope.rkt b/racket/src/expander/syntax/scope.rkt index 80d2084f75..6788e4f96d 100644 --- a/racket/src/expander/syntax/scope.rkt +++ b/racket/src/expander/syntax/scope.rkt @@ -74,43 +74,43 @@ (struct scope (id ; internal scope identity; used for sorting kind ; debug info [binding-table #:mutable]) ; see "binding-table.rkt" - #:authentic - ;; Custom printer: - #:property prop:custom-write - (lambda (sc port mode) - (write-string "#" port)) - #:property prop:serialize - (lambda (s ser-push! state) - (unless (set-member? (serialize-state-reachable-scopes state) s) - (error "internal error: found supposedly unreachable scope")) - (cond - [(eq? s top-level-common-scope) - (ser-push! 'tag '#:scope)] - [else - (ser-push! 'tag '#:scope+kind) - (ser-push! (scope-kind s))])) - #:property prop:serialize-fill! - (lambda (s ser-push! state) - (cond - [(binding-table-empty? (scope-binding-table s)) - (ser-push! 'tag #f)] - [else - (ser-push! 'tag '#:scope-fill!) - (ser-push! (binding-table-prune-to-reachable (scope-binding-table s) state))])) - #:property prop:reach-scopes - (lambda (s reach) - ;; the `bindings` field is handled via `prop:scope-with-bindings` - (void)) - #:property prop:scope-with-bindings - (lambda (s get-reachable-scopes reach register-trigger) - (binding-table-register-reachable (scope-binding-table s) - get-reachable-scopes - reach - register-trigger))) + #:authentic + ;; Custom printer: + #:property prop:custom-write + (lambda (sc port mode) + (write-string "#" port)) + #:property prop:serialize + (lambda (s ser-push! state) + (unless (set-member? (serialize-state-reachable-scopes state) s) + (error "internal error: found supposedly unreachable scope")) + (cond + [(eq? s top-level-common-scope) + (ser-push! 'tag '#:scope)] + [else + (ser-push! 'tag '#:scope+kind) + (ser-push! (scope-kind s))])) + #:property prop:serialize-fill! + (lambda (s ser-push! state) + (cond + [(binding-table-empty? (scope-binding-table s)) + (ser-push! 'tag #f)] + [else + (ser-push! 'tag '#:scope-fill!) + (ser-push! (binding-table-prune-to-reachable (scope-binding-table s) state))])) + #:property prop:reach-scopes + (lambda (s reach) + ;; the `bindings` field is handled via `prop:scope-with-bindings` + (void)) + #:property prop:scope-with-bindings + (lambda (s get-reachable-scopes reach register-trigger) + (binding-table-register-reachable (scope-binding-table s) + get-reachable-scopes + reach + register-trigger))) (define deserialize-scope (case-lambda @@ -138,76 +138,76 @@ scopes ; phase -> representative-scope shifted ; box of table: interned shifted-multi-scopes for non-label phases label-shifted) ; box of table: interned shifted-multi-scopes for label phases - #:authentic - #:property prop:serialize - (lambda (ms ser-push! state) - (ser-push! 'tag '#:multi-scope) - (ser-push! (multi-scope-name ms)) - ;; Prune to reachable representative scopes - (define multi-scope-tables (serialize-state-multi-scope-tables state)) - (ser-push! (or (hash-ref multi-scope-tables (multi-scope-scopes ms) #f) - (let ([ht (make-hasheqv)]) - (for ([(phase sc) (in-hash (multi-scope-scopes ms))]) - (when (set-member? (serialize-state-reachable-scopes state) sc) - (hash-set! ht phase sc))) - (hash-set! multi-scope-tables (multi-scope-scopes ms) ht) - ht)))) - #:property prop:reach-scopes - (lambda (s reach) - ;; the `scopes` field is handled via `prop:scope-with-bindings` - (void)) - #:property prop:scope-with-bindings - (lambda (ms get-reachable-scopes reach register-trigger) - ;; This scope is reachable via its multi-scope, but it only - ;; matters if it's reachable through a binding (otherwise it - ;; can be re-generated later). We don't want to keep a scope - ;; that can be re-generated, because pruning it makes - ;; compilation more deterministic relative to other - ;; compilations that involve a shared module. If the scope - ;; itself has any bindings, then we count it as reachable - ;; through a binding (which is an approxmation, because - ;; other scopes in the binding may be unreachable, but it - ;; seems good enough for determinism). - ;; To make that work, `binding-table-register-reachable` - ;; needs to recognize representative scopes and treat - ;; them differently, hence `prop:implicitly-reachable`. - (for ([sc (in-hash-values (multi-scope-scopes ms))]) - (unless (binding-table-empty? (scope-binding-table sc)) - (reach sc))))) + #:authentic + #:property prop:serialize + (lambda (ms ser-push! state) + (ser-push! 'tag '#:multi-scope) + (ser-push! (multi-scope-name ms)) + ;; Prune to reachable representative scopes + (define multi-scope-tables (serialize-state-multi-scope-tables state)) + (ser-push! (or (hash-ref multi-scope-tables (multi-scope-scopes ms) #f) + (let ([ht (make-hasheqv)]) + (for ([(phase sc) (in-hash (multi-scope-scopes ms))]) + (when (set-member? (serialize-state-reachable-scopes state) sc) + (hash-set! ht phase sc))) + (hash-set! multi-scope-tables (multi-scope-scopes ms) ht) + ht)))) + #:property prop:reach-scopes + (lambda (s reach) + ;; the `scopes` field is handled via `prop:scope-with-bindings` + (void)) + #:property prop:scope-with-bindings + (lambda (ms get-reachable-scopes reach register-trigger) + ;; This scope is reachable via its multi-scope, but it only + ;; matters if it's reachable through a binding (otherwise it + ;; can be re-generated later). We don't want to keep a scope + ;; that can be re-generated, because pruning it makes + ;; compilation more deterministic relative to other + ;; compilations that involve a shared module. If the scope + ;; itself has any bindings, then we count it as reachable + ;; through a binding (which is an approxmation, because + ;; other scopes in the binding may be unreachable, but it + ;; seems good enough for determinism). + ;; To make that work, `binding-table-register-reachable` + ;; needs to recognize representative scopes and treat + ;; them differently, hence `prop:implicitly-reachable`. + (for ([sc (in-hash-values (multi-scope-scopes ms))]) + (unless (binding-table-empty? (scope-binding-table sc)) + (reach sc))))) (define (deserialize-multi-scope name scopes) (multi-scope (new-deserialize-scope-id!) name scopes (box (hasheqv)) (box (hash)))) (struct representative-scope scope (owner ; a multi-scope for which this one is a phase-specific identity phase) ; phase of this scope - #:authentic - #:mutable ; to support serialization - #:property prop:custom-write - (lambda (sc port mode) - (write-string "#" port)) - #:property prop:serialize - (lambda (s ser-push! state) - (ser-push! 'tag '#:representative-scope) - (ser-push! (scope-kind s)) - (ser-push! (representative-scope-phase s))) - #:property prop:serialize-fill! - (lambda (s ser-push! state) - (ser-push! 'tag '#:representative-scope-fill!) - (ser-push! (binding-table-prune-to-reachable (scope-binding-table s) state)) - (ser-push! (representative-scope-owner s))) - #:property prop:reach-scopes - (lambda (s reach) - ;; the inherited `bindings` field is handled via `prop:scope-with-bindings` - (reach (representative-scope-owner s))) - ;; Used by `binding-table-register-reachable`: - #:property prop:implicitly-reachable #t) + #:authentic + #:mutable ; to support serialization + #:property prop:custom-write + (lambda (sc port mode) + (write-string "#" port)) + #:property prop:serialize + (lambda (s ser-push! state) + (ser-push! 'tag '#:representative-scope) + (ser-push! (scope-kind s)) + (ser-push! (representative-scope-phase s))) + #:property prop:serialize-fill! + (lambda (s ser-push! state) + (ser-push! 'tag '#:representative-scope-fill!) + (ser-push! (binding-table-prune-to-reachable (scope-binding-table s) state)) + (ser-push! (representative-scope-owner s))) + #:property prop:reach-scopes + (lambda (s reach) + ;; the inherited `bindings` field is handled via `prop:scope-with-bindings` + (reach (representative-scope-owner s))) + ;; Used by `binding-table-register-reachable`: + #:property prop:implicitly-reachable #t) (define (deserialize-representative-scope kind phase) (define v (representative-scope (new-deserialize-scope-id!) kind #f #f phase)) @@ -219,22 +219,22 @@ (struct shifted-multi-scope (phase ; non-label phase shift or shifted-to-label-phase multi-scope) ; a multi-scope - #:authentic - #:property prop:custom-write - (lambda (sms port mode) - (write-string "#" port)) - #:property prop:serialize - (lambda (sms ser-push! state) - (ser-push! 'tag '#:shifted-multi-scope) - (ser-push! (shifted-multi-scope-phase sms)) - (ser-push! (shifted-multi-scope-multi-scope sms))) - #:property prop:reach-scopes - (lambda (sms reach) - (reach (shifted-multi-scope-multi-scope sms)))) + #:authentic + #:property prop:custom-write + (lambda (sms port mode) + (write-string "#" port)) + #:property prop:serialize + (lambda (sms ser-push! state) + (ser-push! 'tag '#:shifted-multi-scope) + (ser-push! (shifted-multi-scope-phase sms)) + (ser-push! (shifted-multi-scope-multi-scope sms))) + #:property prop:reach-scopes + (lambda (sms reach) + (reach (shifted-multi-scope-multi-scope sms)))) (define (deserialize-shifted-multi-scope phase multi-scope) (intern-shifted-multi-scope phase multi-scope)) @@ -466,10 +466,10 @@ add-mpi-shifts ; #f or (mpi-shifts -> mpi-shifts) inspector ; #f or inspector tamper) ; see "tamper.rkt" - #:authentic - #:property prop:propagation syntax-e - #:property prop:propagation-tamper (lambda (p) (propagation-tamper p)) - #:property prop:propagation-set-tamper (lambda (p v) (propagation-set-tamper p v))) + #:authentic + #:property prop:propagation syntax-e + #:property prop:propagation-tamper (lambda (p) (propagation-tamper p)) + #:property prop:propagation-set-tamper (lambda (p v) (propagation-set-tamper p v))) (define (propagation-add prop sc prev-scs prev-smss prev-mss) (if (propagation? prop) diff --git a/racket/src/expander/syntax/syntax.rkt b/racket/src/expander/syntax/syntax.rkt index 2adf9e9f4d..0483e2933a 100644 --- a/racket/src/expander/syntax/syntax.rkt +++ b/racket/src/expander/syntax/syntax.rkt @@ -37,107 +37,107 @@ srcloc ; source location props ; properties inspector) ; inspector for access to protected bindings - #:authentic - ;; Custom printer: - #:property prop:custom-write - (lambda (s port mode) - (write-string "#string srcloc)) - (when srcloc-str - (fprintf port ":~a" srcloc-str))) - (fprintf port " ~.s" (syntax->datum s)) - (write-string ">" port)) - #:property prop:serialize - (lambda (s ser-push! state) - (define prop (syntax-scope-propagations+tamper s)) - (define content - (if (propagation? prop) - ((propagation-ref prop) s) - (syntax-content s))) - (define properties - (intern-properties - (syntax-props s) - (lambda () - (for/hasheq ([(k v) (in-hash (syntax-props s))] - #:when (preserved-property-value? v)) - (values k (check-value-to-preserve (plain-property-value v) syntax?)))) - state)) - (define tamper - (serialize-tamper (syntax-tamper s))) - (define context-triple - (intern-context-triple (intern-scopes (syntax-scopes s) state) - (intern-shifted-multi-scopes (syntax-shifted-multi-scopes s) state) - (intern-mpi-shifts (syntax-mpi-shifts s) state) - state)) - (define stx-state (get-syntax-context state)) - (cond - [(or properties tamper) - (ser-push! 'tag '#:syntax+props) - (push-syntax-context! state #f) - (ser-push! content) - (pop-syntax-context! state) - (ser-push! 'reference context-triple) - (ser-push! 'reference (syntax-srcloc s)) - (ser-push! properties) - (ser-push! tamper) - (when stx-state (set-syntax-state-all-sharing?! stx-state #f))] - [else - ;; We rely on two passes to reach a fixpoint on sharing: - (define sharing-mode (hash-ref (serialize-state-sharing-syntaxes state) s 'unknown)) - (cond - [(eq? sharing-mode 'share) - (ser-push! 'tag '#:datum->syntax) - (ser-push! (syntax->datum s))] - [(eq? sharing-mode 'unknown) - (ser-push! 'tag '#:syntax) - ;; Communicate to nested syntax objects the info that they might share - (define this-state (and (no-pair-syntax-in-cdr? content) - (syntax-state #t context-triple (syntax-srcloc s)))) - (push-syntax-context! state this-state) - ;; Serialize content - (ser-push! content) - ;; Check whether we're sharing for all nested syntax objects - (pop-syntax-context! state) - (define new-sharing-mode - (if (and this-state - (syntax-state-all-sharing? this-state)) - 'share - 'none)) - (hash-set! (serialize-state-sharing-syntaxes state) - s - ;; If the syntax object has only simple content, - ;; it doesn't need any sharing support by itself - (if (datum-has-elements? content) - new-sharing-mode - 'none)) - (when (and stx-state (eq? new-sharing-mode 'none)) - (set-syntax-state-all-sharing?! stx-state #f))] - [else - (ser-push! 'tag '#:syntax) - (push-syntax-context! state #f) - (ser-push! content) - (pop-syntax-context! state)]) - ;; Finish up - (ser-push! 'reference context-triple) - (ser-push! 'reference (syntax-srcloc s)) - (when stx-state - (unless (and (eq? context-triple (syntax-state-context-triple stx-state)) - (equal? (syntax-srcloc s) (syntax-state-srcloc stx-state))) - (set-syntax-state-all-sharing?! stx-state #f)))])) - #:property prop:reach-scopes - (lambda (s reach) - (define prop (syntax-scope-propagations+tamper s)) - (reach (if (propagation? prop) - ((propagation-ref prop) s) - (syntax-content s))) - (reach (syntax-scopes s)) - (reach (syntax-shifted-multi-scopes s)) - (for ([(k v) (in-immutable-hash (syntax-props s))] - #:when (preserved-property-value? v)) - (reach (plain-property-value v))) - (reach (syntax-srcloc s)))) + #:authentic + ;; Custom printer: + #:property prop:custom-write + (lambda (s port mode) + (write-string "#string srcloc)) + (when srcloc-str + (fprintf port ":~a" srcloc-str))) + (fprintf port " ~.s" (syntax->datum s)) + (write-string ">" port)) + #:property prop:serialize + (lambda (s ser-push! state) + (define prop (syntax-scope-propagations+tamper s)) + (define content + (if (propagation? prop) + ((propagation-ref prop) s) + (syntax-content s))) + (define properties + (intern-properties + (syntax-props s) + (lambda () + (for/hasheq ([(k v) (in-hash (syntax-props s))] + #:when (preserved-property-value? v)) + (values k (check-value-to-preserve (plain-property-value v) syntax?)))) + state)) + (define tamper + (serialize-tamper (syntax-tamper s))) + (define context-triple + (intern-context-triple (intern-scopes (syntax-scopes s) state) + (intern-shifted-multi-scopes (syntax-shifted-multi-scopes s) state) + (intern-mpi-shifts (syntax-mpi-shifts s) state) + state)) + (define stx-state (get-syntax-context state)) + (cond + [(or properties tamper) + (ser-push! 'tag '#:syntax+props) + (push-syntax-context! state #f) + (ser-push! content) + (pop-syntax-context! state) + (ser-push! 'reference context-triple) + (ser-push! 'reference (syntax-srcloc s)) + (ser-push! properties) + (ser-push! tamper) + (when stx-state (set-syntax-state-all-sharing?! stx-state #f))] + [else + ;; We rely on two passes to reach a fixpoint on sharing: + (define sharing-mode (hash-ref (serialize-state-sharing-syntaxes state) s 'unknown)) + (cond + [(eq? sharing-mode 'share) + (ser-push! 'tag '#:datum->syntax) + (ser-push! (syntax->datum s))] + [(eq? sharing-mode 'unknown) + (ser-push! 'tag '#:syntax) + ;; Communicate to nested syntax objects the info that they might share + (define this-state (and (no-pair-syntax-in-cdr? content) + (syntax-state #t context-triple (syntax-srcloc s)))) + (push-syntax-context! state this-state) + ;; Serialize content + (ser-push! content) + ;; Check whether we're sharing for all nested syntax objects + (pop-syntax-context! state) + (define new-sharing-mode + (if (and this-state + (syntax-state-all-sharing? this-state)) + 'share + 'none)) + (hash-set! (serialize-state-sharing-syntaxes state) + s + ;; If the syntax object has only simple content, + ;; it doesn't need any sharing support by itself + (if (datum-has-elements? content) + new-sharing-mode + 'none)) + (when (and stx-state (eq? new-sharing-mode 'none)) + (set-syntax-state-all-sharing?! stx-state #f))] + [else + (ser-push! 'tag '#:syntax) + (push-syntax-context! state #f) + (ser-push! content) + (pop-syntax-context! state)]) + ;; Finish up + (ser-push! 'reference context-triple) + (ser-push! 'reference (syntax-srcloc s)) + (when stx-state + (unless (and (eq? context-triple (syntax-state-context-triple stx-state)) + (equal? (syntax-srcloc s) (syntax-state-srcloc stx-state))) + (set-syntax-state-all-sharing?! stx-state #f)))])) + #:property prop:reach-scopes + (lambda (s reach) + (define prop (syntax-scope-propagations+tamper s)) + (reach (if (propagation? prop) + ((propagation-ref prop) s) + (syntax-content s))) + (reach (syntax-scopes s)) + (reach (syntax-shifted-multi-scopes s)) + (for ([(k v) (in-immutable-hash (syntax-props s))] + #:when (preserved-property-value? v)) + (reach (plain-property-value v))) + (reach (syntax-srcloc s)))) ;; Property to abstract over handling of propagation for ;; serialization; property value takes a syntax object and diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index f3f6a8bf9f..69cbdf7d35 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -4052,18 +4052,22 @@ static const char *startup_source = "(let-values(((mpi_0) mpi5_0))" "(let-values(((load?_0)(if load?4_0 load?3_0 #f)))" "(let-values()" +"(let-values()" +"(let-values()" "(begin" "(if(1/module-path-index? mpi_0)" "(void)" "(let-values()" -" (raise-argument-error 'module-path-index-resolve \"module-path-index?\" mpi_0)))" +" (raise-argument-error 'module-path-index-resolve \"module-path-index?\" mpi_0)))" "(let-values(((or-part_54)(module-path-index-resolved mpi_0)))" "(if or-part_54" " or-part_54" "(let-values(((mod-name_0)" "((1/current-module-name-resolver)" "(module-path-index-path mpi_0)" -"(module-path-index-resolve/maybe(module-path-index-base mpi_0) load?_0)" +"(module-path-index-resolve/maybe" +"(module-path-index-base mpi_0)" +" load?_0)" " #f" " load?_0)))" "(begin" @@ -4072,11 +4076,11 @@ static const char *startup_source = "(let-values()" "(raise-arguments-error" " 'module-path-index-resolve" -" \"current module name resolver's result is not a resolved module path\"" -" \"result\"" +" \"current module name resolver's result is not a resolved module path\"" +" \"result\"" " mod-name_0)))" "(set-module-path-index-resolved! mpi_0 mod-name_0)" -" mod-name_0))))))))))))" +" mod-name_0))))))))))))))" "(case-lambda" "((mpi_1)(begin 'module-path-index-resolve(module-path-index-resolve6_0 mpi_1 #f #f)))" "((mpi_2 load?3_1)(module-path-index-resolve6_0 mpi_2 load?3_1 #t)))))" @@ -4098,49 +4102,56 @@ static const char *startup_source = "(let-values(((base_8) base11_0))" "(let-values(((submod_0)(if submod9_0 submod8_0 #f)))" "(let-values()" -"(begin" -"(if(let-values(((or-part_37)(not mod-path_0)))" -"(if or-part_37 or-part_37(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_38)(not base_8)))" -"(if or-part_38" -" or-part_38" -"(let-values(((or-part_55)(1/resolved-module-path? base_8)))" -"(if or-part_55 or-part_55(1/module-path-index? base_8)))))" +"(let-values()" +"(begin" +"(if((lambda(x_15)" +"(let-values(((or-part_55)(not x_15)))" +"(if or-part_55 or-part_55(1/module-path? x_15))))" +" mod-path_0)" "(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_56)(not submod_0)))" +" \"(or/c #f module-path?)\"" +" mod-path_0)))" +"(if(let-values(((or-part_56)(not base_8)))" "(if or-part_56" " or-part_56" +"(let-values(((or-part_39)(1/resolved-module-path? base_8)))" +"(if or-part_39 or-part_39(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_40)(not submod_0)))" +"(if or-part_40" +" or-part_40" "(if(pair? submod_0)(if(list? submod_0)(andmap2 symbol? submod_0) #f) #f)))" "(void)" "(let-values()" "(raise-argument-error" " 'module-path-index-join" -" \"(or/c #f (non-empty-listof symbol?))\"" +" \"(or/c #f (non-empty-listof symbol?))\"" " submod_0)))" "(if(if(not mod-path_0) base_8 #f)" "(let-values()" "(raise-arguments-error" " 'module-path-index-join" -" \"cannot combine #f path with non-#f base\"" -" \"given base\"" +" \"cannot combine #f path with non-#f base\"" +" \"given base\"" " base_8))" "(void))" "(if(if submod_0 mod-path_0 #f)" "(let-values()" "(raise-arguments-error" " 'module-path-index-join" -" \"cannot combine #f submodule list with non-#f module path\"" -" \"given module path\"" +" \"cannot combine #f submodule list with non-#f module path\"" +" \"given module path\"" " mod-path_0" -" \"given submodule list\"" +" \"given submodule list\"" " submod_0))" "(void))" "(if submod_0" @@ -4169,7 +4180,7 @@ static const char *startup_source = "(let-values() base_8)))))))))" " loop_58)" " mod-path_0)))" -"(module-path-index2.1 mod-path_0 keep-base_0 #f #f)))))))))))))" +"(module-path-index2.1 mod-path_0 keep-base_0 #f #f)))))))))))))))" "(case-lambda" "((mod-path_2 base_9)(begin 'module-path-index-join(module-path-index-join12_0 mod-path_2 base_9 #f #f)))" "((mod-path_3 base_10 submod8_1)(module-path-index-join12_0 mod-path_3 base_10 submod8_1 #t)))))" @@ -4182,32 +4193,36 @@ static const char *startup_source = "(lambda(mpi_4)" "(begin" " 'module-path-index-split" +"(let-values()" +"(let-values()" "(begin" "(if(1/module-path-index? mpi_4)" "(void)" -" (let-values () (raise-argument-error 'module-path-index-split \"module-path-index?\" mpi_4)))" -"(values(module-path-index-path mpi_4)(module-path-index-base mpi_4))))))" +" (let-values () (raise-argument-error 'module-path-index-split \"module-path-index?\" mpi_4)))" +"(values(module-path-index-path mpi_4)(module-path-index-base mpi_4))))))))" "(define-values" "(1/module-path-index-submodule)" "(lambda(mpi_5)" "(begin" " 'module-path-index-submodule" +"(let-values()" +"(let-values()" "(begin" "(if(1/module-path-index? mpi_5)" "(void)" -" (let-values () (raise-argument-error 'module-path-index-submodule \"module-path-index?\" mpi_5)))" +" (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))" -" #f)))))" +" #f)))))))" "(define-values" "(make-self-module-path-index)" "(case-lambda" "((name_9)(begin(module-path-index2.1 #f #f name_9 #f)))" "((name_10 enclosing_0)" "(make-self-module-path-index" -"(let-values(((name23_0) name_10)((temp24_1)(if enclosing_0(1/module-path-index-resolve enclosing_0) #f)))" -"(build-module-name18.1 #f #f name23_0 temp24_1))))))" +"(let-values(((name27_0) name_10)((temp28_1)(if enclosing_0(1/module-path-index-resolve enclosing_0) #f)))" +"(build-module-name18.1 #f #f name27_0 temp28_1))))))" "(define-values(generic-self-mpis)(make-weak-hash))" "(define-values(generic-module-name) '|expanded module|)" "(define-values" @@ -4215,10 +4230,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_57)" +"(let-values(((or-part_45)" "(let-values(((e_9)(hash-ref generic-self-mpis r_15 #f)))(if e_9(ephemeron-value e_9) #f))))" -"(if or-part_57" -" or-part_57" +"(if or-part_45" +" or-part_45" "(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,11 +4279,11 @@ static const char *startup_source = "(module-path-index-shift-cache!)" "(lambda(mpi_9)" "(begin" -"(let-values(((or-part_58)" +"(let-values(((or-part_57)" "(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_58" -" or-part_58" +"(if or-part_57" +" or-part_57" "(let-values(((cache_1)(make-weak-box(box '#hasheq()))))" "(begin(set-module-path-index-shift-cache! mpi_9 cache_1) cache_1)))))))" "(define-values" @@ -4293,8 +4308,8 @@ static const char *startup_source = "(if(1/module-path? p_7)" "(void)" " (let-values () (raise-argument-error 'core-module-name-resolver \"module-path?\" p_7)))" -"(if(let-values(((or-part_59)(not enclosing_1)))" -"(if or-part_59 or-part_59(1/resolved-module-path? enclosing_1)))" +"(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)" @@ -4314,14 +4329,14 @@ static const char *startup_source = "(let-values(((enclosing_4) enclosing_2))" "(let-values(((enclosing_5)" "(let-values()" -"(let-values(((s25_0) s_36)" -"((enclosing26_0) enclosing_4)" -"((p27_0) p_7))" +"(let-values(((s29_0) s_36)" +"((enclosing30_0) enclosing_4)" +"((p31_0) p_7))" "(build-module-name18.1" -" p27_0" +" p31_0" " #t" -" s25_0" -" enclosing26_0)))))" +" s29_0" +" enclosing30_0)))))" "(values enclosing_5)))))" "(if(not #f)(for-loop_23 enclosing_3 rest_11) enclosing_3)))" " enclosing_2)))))" @@ -4345,14 +4360,14 @@ static const char *startup_source = "(let-values(((enclosing_8) enclosing_6))" "(let-values(((enclosing_9)" "(let-values()" -"(let-values(((s28_0) s_37)" -"((enclosing29_0) enclosing_8)" -"((p30_0) p_7))" +"(let-values(((s32_0) s_37)" +"((enclosing33_0) enclosing_8)" +"((p34_0) p_7))" "(build-module-name18.1" -" p30_0" +" p34_0" " #t" -" s28_0" -" enclosing29_0)))))" +" s32_0" +" enclosing33_0)))))" "(values enclosing_9)))))" "(if(not #f)(for-loop_24 enclosing_7 rest_12) enclosing_7)))" " enclosing_6)))))" @@ -4377,15 +4392,15 @@ static const char *startup_source = "(let-values(((enclosing_12) enclosing_10))" "(let-values(((enclosing_13)" "(let-values()" -"(let-values(((s31_0) s_38)" -"((enclosing32_0)" +"(let-values(((s35_0) s_38)" +"((enclosing36_0)" " enclosing_12)" -"((p33_0) p_7))" +"((p37_0) p_7))" "(build-module-name18.1" -" p33_0" +" p37_0" " #t" -" s31_0" -" enclosing32_0)))))" +" s35_0" +" enclosing36_0)))))" "(values enclosing_13)))))" "(if(not #f)(for-loop_25 enclosing_11 rest_13) enclosing_11)))" " enclosing_10)))))" @@ -4436,7 +4451,7 @@ static const char *startup_source = " #f" "(lambda(r_19)" "(begin" -"(if(let-values(((or-part_60)(not r_19)))(if or-part_60 or-part_60(1/resolved-module-path? r_19)))" +"(if(let-values(((or-part_59)(not r_19)))(if or-part_59 or-part_59(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))))" @@ -4446,11 +4461,11 @@ static const char *startup_source = " #f" "(lambda(s_39)" "(begin" -"(if(let-values(((or-part_61)(not s_39)))" -"(if or-part_61" -" or-part_61" -"(let-values(((or-part_62)(symbol? s_39)))" -"(if or-part_62 or-part_62(if(path? s_39)(complete-path? s_39) #f)))))" +"(if(let-values(((or-part_60)(not s_39)))" +"(if or-part_60" +" or-part_60" +"(let-values(((or-part_61)(symbol? s_39)))" +"(if or-part_61 or-part_61(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)))" @@ -4998,15 +5013,15 @@ static const char *startup_source = "(intern-scopes)" "(lambda(scs_0 state_2)" "(begin" -"(let-values(((or-part_63)(hash-ref(serialize-state-scopes state_2) scs_0 #f)))" -"(if or-part_63 or-part_63(begin(hash-set!(serialize-state-scopes state_2) scs_0 scs_0) scs_0))))))" +"(let-values(((or-part_62)(hash-ref(serialize-state-scopes state_2) scs_0 #f)))" +"(if or-part_62 or-part_62(begin(hash-set!(serialize-state-scopes state_2) scs_0 scs_0) scs_0))))))" "(define-values" "(intern-shifted-multi-scopes)" "(lambda(sms_0 state_3)" "(begin" -"(let-values(((or-part_64)(hash-ref(serialize-state-shifted-multi-scopes state_3) sms_0 #f)))" -"(if or-part_64" -" or-part_64" +"(let-values(((or-part_63)(hash-ref(serialize-state-shifted-multi-scopes state_3) sms_0 #f)))" +"(if or-part_63" +" or-part_63" "(begin(hash-set!(serialize-state-shifted-multi-scopes state_3) sms_0 sms_0) sms_0))))))" "(define-values" "(intern-mpi-shifts)" @@ -5017,14 +5032,14 @@ static const char *startup_source = "(let-values()" "(let-values(((tail_0)(intern-mpi-shifts(cdr mpi-shifts_0) state_4)))" "(let-values(((tail-table_0)" -"(let-values(((or-part_65)(hash-ref(serialize-state-mpi-shifts state_4) tail_0 #f)))" -"(if or-part_65" -" or-part_65" +"(let-values(((or-part_64)(hash-ref(serialize-state-mpi-shifts state_4) tail_0 #f)))" +"(if or-part_64" +" or-part_64" "(let-values(((ht_25)(make-hasheq)))" "(begin(hash-set!(serialize-state-mpi-shifts state_4) tail_0 ht_25) ht_25))))))" -"(let-values(((or-part_66)(hash-ref tail-table_0(car mpi-shifts_0) #f)))" -"(if or-part_66" -" or-part_66" +"(let-values(((or-part_65)(hash-ref tail-table_0(car mpi-shifts_0) #f)))" +"(if or-part_65" +" or-part_65" "(let-values(((v_55)(cons(car mpi-shifts_0) tail_0)))" "(begin(hash-set! tail-table_0(car mpi-shifts_0) v_55) v_55)))))))))))" "(define-values" @@ -5032,9 +5047,9 @@ static const char *startup_source = "(lambda(scs_1 sms_1 mpi-shifts_1 state_5)" "(begin" "(let-values(((scs-ht_0)" -"(let-values(((or-part_67)(hash-ref(serialize-state-context-triples state_5) scs_1 #f)))" -"(if or-part_67" -" or-part_67" +"(let-values(((or-part_66)(hash-ref(serialize-state-context-triples state_5) scs_1 #f)))" +"(if or-part_66" +" or-part_66" "(let-values(((ht_26)(make-hasheq)))" "(begin(hash-set!(serialize-state-context-triples state_5) scs_1 ht_26) ht_26))))))" "(let-values(((sms-ht_0)" @@ -5042,9 +5057,9 @@ static const char *startup_source = "(if or-part_35" " or-part_35" "(let-values(((ht_24)(make-hasheq)))(begin(hash-set! scs-ht_0 sms_1 ht_24) ht_24))))))" -"(let-values(((or-part_68)(hash-ref sms-ht_0 mpi-shifts_1 #f)))" -"(if or-part_68" -" or-part_68" +"(let-values(((or-part_67)(hash-ref sms-ht_0 mpi-shifts_1 #f)))" +"(if or-part_67" +" or-part_67" "(let-values(((vec_13)(vector-immutable scs_1 sms_1 mpi-shifts_1)))" "(begin(hash-set! sms-ht_0 mpi-shifts_1 vec_13) vec_13)))))))))" "(define-values" @@ -5128,11 +5143,11 @@ static const char *startup_source = "(if(pair? s_41)" "(let-values()" "(f_19 tail?_1(cons(loop_60 #f(car s_41) seen_1)(loop_60 #t(cdr s_41) seen_1))))" -"(if(let-values(((or-part_69)(symbol? s_41)))" -"(if or-part_69" -" or-part_69" -"(let-values(((or-part_70)(boolean? s_41)))" -"(if or-part_70 or-part_70(number? s_41)))))" +"(if(let-values(((or-part_68)(symbol? s_41)))" +"(if or-part_68" +" or-part_68" +"(let-values(((or-part_69)(boolean? s_41)))" +"(if or-part_69 or-part_69(number? s_41)))))" "(let-values()(f_19 #f s_41))" "(if(vector? s_41)" "(let-values()" @@ -5423,12 +5438,12 @@ static const char *startup_source = "(let-values(((or-part_36)(vector? d_0)))" "(if or-part_36" " or-part_36" -"(let-values(((or-part_68)(box? d_0)))" -"(if or-part_68" -" or-part_68" -"(let-values(((or-part_71)(immutable-prefab-struct-key d_0)))" -"(if or-part_71" -" or-part_71" +"(let-values(((or-part_67)(box? d_0)))" +"(if or-part_67" +" or-part_67" +"(let-values(((or-part_70)(immutable-prefab-struct-key d_0)))" +"(if or-part_70" +" or-part_70" "(if(hash? d_0)(if(immutable? d_0)(positive?(hash-count d_0)) #f) #f))))))))))))" "(define-values" "(struct:preserved-property-value" @@ -5464,45 +5479,45 @@ static const char *startup_source = "(begin" " 'f" "(begin" -"(if(let-values(((or-part_72)(null? v_3)))" +"(if(let-values(((or-part_71)(null? v_3)))" +"(if or-part_71" +" or-part_71" +"(let-values(((or-part_72)(boolean? v_3)))" "(if or-part_72" " or-part_72" -"(let-values(((or-part_73)(boolean? v_3)))" +"(let-values(((or-part_73)(symbol? v_3)))" "(if or-part_73" " or-part_73" -"(let-values(((or-part_74)(symbol? v_3)))" +"(let-values(((or-part_74)(number? v_3)))" "(if or-part_74" " or-part_74" -"(let-values(((or-part_75)(number? v_3)))" -"(if or-part_75" -" or-part_75" "(let-values(((or-part_29)(char? v_3)))" "(if or-part_29" " or-part_29" -"(let-values(((or-part_76)(string? v_3)))" +"(let-values(((or-part_75)(string? v_3)))" +"(if or-part_75" +" or-part_75" +"(let-values(((or-part_76)(bytes? v_3)))" "(if or-part_76" " or-part_76" -"(let-values(((or-part_77)(bytes? v_3)))" -"(if or-part_77" -" or-part_77" -"(let-values(((or-part_69)(regexp? v_3)))" +"(let-values(((or-part_68)(regexp? v_3)))" +"(if or-part_68" +" or-part_68" +"(let-values(((or-part_69)(syntax?_0 v_3)))" "(if or-part_69" " or-part_69" -"(let-values(((or-part_70)(syntax?_0 v_3)))" -"(if or-part_70" -" or-part_70" -"(let-values(((or-part_78)(pair? v_3)))" +"(let-values(((or-part_77)(pair? v_3)))" +"(if or-part_77" +" or-part_77" +"(let-values(((or-part_78)(vector? v_3)))" "(if or-part_78" " or-part_78" -"(let-values(((or-part_79)(vector? v_3)))" +"(let-values(((or-part_79)(box? v_3)))" "(if or-part_79" " or-part_79" -"(let-values(((or-part_80)(box? v_3)))" +"(let-values(((or-part_80)(hash? v_3)))" "(if or-part_80" " or-part_80" -"(let-values(((or-part_81)(hash? v_3)))" -"(if or-part_81" -" or-part_81" "(immutable-prefab-struct-key" " v_3)))))))))))))))))))))))))))" "(void)" @@ -5529,9 +5544,9 @@ static const char *startup_source = "(f_20" " tail?_2" "(cons(loop_61 #f(car s_7) depth_0)(loop_61 #t(cdr s_7) depth_0))))" -"(if(let-values(((or-part_82)(symbol? s_7)))" -"(if or-part_82" -" or-part_82" +"(if(let-values(((or-part_81)(symbol? s_7)))" +"(if or-part_81" +" or-part_81" "(let-values(((or-part_52)(boolean? s_7)))" "(if or-part_52 or-part_52(number? s_7)))))" "(let-values()(f_20 #f s_7))" @@ -5717,7 +5732,7 @@ static const char *startup_source = "(intern-mpi-shifts(syntax-mpi-shifts s_45) state_10)" " state_10)))" "(let-values(((stx-state_0)(get-syntax-context state_10)))" -"(if(let-values(((or-part_83) properties_0))(if or-part_83 or-part_83 tamper_0))" +"(if(let-values(((or-part_82) properties_0))(if or-part_82 or-part_82 tamper_0))" "(let-values()" "(begin" "(ser-push!_1 'tag '#:syntax+props)" @@ -5901,9 +5916,9 @@ static const char *startup_source = "(let-values(((or-part_48)(boolean? s_53)))" "(if or-part_48 or-part_48(number? s_53)))))" "(let-values()(f_22 #f s_53))" -"(if(let-values(((or-part_84)(vector? s_53)))" -"(if or-part_84" -" or-part_84" +"(if(let-values(((or-part_83)(vector? s_53)))" +"(if or-part_83" +" or-part_83" "(let-values(((or-part_49)(box? s_53)))" "(if or-part_49" " or-part_49" @@ -6000,31 +6015,31 @@ static const char *startup_source = " #t" "(cdr s_59)" " depth_2))))" -"(if(let-values(((or-part_85)" +"(if(let-values(((or-part_84)" "(symbol? s_59)))" -"(if or-part_85" -" or-part_85" -"(let-values(((or-part_86)" +"(if or-part_84" +" or-part_84" +"(let-values(((or-part_85)" "(boolean?" " s_59)))" -"(if or-part_86" -" or-part_86" +"(if or-part_85" +" or-part_85" "(number? s_59)))))" "(let-values()(f_24 #f s_59))" -"(if(let-values(((or-part_87)" +"(if(let-values(((or-part_86)" "(vector? s_59)))" +"(if or-part_86" +" or-part_86" +"(let-values(((or-part_87)" +"(box?" +" s_59)))" "(if or-part_87" " or-part_87" "(let-values(((or-part_88)" -"(box?" +"(prefab-struct-key" " s_59)))" "(if or-part_88" " or-part_88" -"(let-values(((or-part_89)" -"(prefab-struct-key" -" s_59)))" -"(if or-part_89" -" or-part_89" "(hash? s_59)))))))" "(let-values()" "(datum-map-slow" @@ -6062,7 +6077,7 @@ static const char *startup_source = "(disallow-cycles)" "(hasheq" " 'cycle-fail" -" (lambda (s_38) (raise-arguments-error 'datum->syntax \"cannot create syntax from cyclic datum\" s_38))))" +" (lambda (s_65) (raise-arguments-error 'datum->syntax \"cannot create syntax from cyclic datum\" s_65))))" "(define-values" "(struct:syntax-state" " syntax-state19.1" @@ -6149,8 +6164,8 @@ static const char *startup_source = "(deserialize-datum->syntax)" "(lambda(content_5 context-triple_2 srcloc_2 inspector_1)" "(begin" -"(let-values(((s_65)(deserialize-syntax #f context-triple_2 srcloc_2 #f #f inspector_1)))" -"(datum->syntax$1 s_65 content_5 s_65 s_65)))))" +"(let-values(((s_66)(deserialize-syntax #f context-triple_2 srcloc_2 #f #f inspector_1)))" +"(datum->syntax$1 s_66 content_5 s_66 s_66)))))" "(define-values" "(struct:full-binding full-binding1.1 full-binding? full-binding-frame-id full-binding-free=id)" "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" @@ -6220,12 +6235,12 @@ static const char *startup_source = "(if(let-values(((or-part_29) frame-id_0))" "(if or-part_29" " or-part_29" -"(let-values(((or-part_76) free=id_0))" +"(let-values(((or-part_75) free=id_0))" +"(if or-part_75" +" or-part_75" +"(let-values(((or-part_76) extra-inspector_0))" "(if or-part_76" " or-part_76" -"(let-values(((or-part_77) extra-inspector_0))" -"(if or-part_77" -" or-part_77" "(not" "(if(eqv? nominal-phase_0 phase_0)" "(if(eq? nominal-sym_0 sym_0)" @@ -6341,8 +6356,8 @@ static const char *startup_source = "(module-binding?)" "(lambda(b_24)" "(begin" -"(let-values(((or-part_87)(simple-module-binding? b_24)))" -"(if or-part_87 or-part_87(full-module-binding? b_24))))))" +"(let-values(((or-part_86)(simple-module-binding? b_24)))" +"(if or-part_86 or-part_86(full-module-binding? b_24))))))" "(define-values" "(struct:full-module-binding" " full-module-binding51.1" @@ -6662,11 +6677,11 @@ static const char *startup_source = "(make-struct-field-accessor -ref_11 1 'create))))" "(define-values" "(bulk-binding-symbols)" -"(lambda(b_12 s_66 extra-shifts_0)" +"(lambda(b_12 s_67 extra-shifts_0)" "(begin" "((bulk-binding-class-get-symbols(bulk-binding-ref b_12))" " b_12" -"(append extra-shifts_0(if s_66(syntax-mpi-shifts s_66) null))))))" +"(append extra-shifts_0(if s_67(syntax-mpi-shifts s_67) null))))))" "(define-values(bulk-binding-create)(lambda(b_36)(begin(bulk-binding-class-create(bulk-binding-ref b_36)))))" "(define-values(binding-table-empty?)(lambda(bt_0)(begin(if(hash? bt_0)(zero?(hash-count bt_0)) #f))))" "(define-values" @@ -6813,7 +6828,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_34)))" -"((letrec-values(((for-loop_23)" +"((letrec-values(((for-loop_34)" "(lambda(syms_7 i_47)" "(begin" " 'for-loop" @@ -6846,12 +6861,12 @@ static const char *startup_source = " syms_9)))))" "(values syms_10)))))" "(if(not #f)" -"(for-loop_23" +"(for-loop_34" " syms_8" "(unsafe-immutable-hash-iterate-next ht_34 i_47))" " syms_8)))" " syms_7)))))" -" for-loop_23)" +" for-loop_34)" " syms_2" "(unsafe-immutable-hash-iterate-first ht_34)))))))))))))))" "(define-values" @@ -6873,7 +6888,7 @@ static const char *startup_source = "(let-values()(hash-set syms_11 sym_7(hash-remove sym-bindings_2 scopes_4)))))))))))))" "(define-values" "(binding-table-symbols)" -"(lambda(table_33 scs_2 s_39 extra-shifts_1)" +"(lambda(table_33 scs_2 s_68 extra-shifts_1)" "(begin" "(let-values(((ht_35 bulk-bindings_1)" "(if(hash? table_33)" @@ -6885,7 +6900,7 @@ static const char *startup_source = "(let-values(((ht_36) ht_35))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_36)))" -"((letrec-values(((for-loop_34)" +"((letrec-values(((for-loop_35)" "(lambda(table_34 i_48)" "(begin" " 'for-loop" @@ -6899,7 +6914,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_37)))" -"((letrec-values(((for-loop_35)" +"((letrec-values(((for-loop_36)" "(lambda(result_29 i_49)" "(begin" " 'for-loop" @@ -6924,14 +6939,14 @@ static const char *startup_source = " an-scs_0))" "(not #f)" " #f)" -"(for-loop_35" +"(for-loop_36" " result_30" "(hash-iterate-next" " ht_37" " i_49))" " result_30)))" " result_29)))))" -" for-loop_35)" +" for-loop_36)" " #f" "(hash-iterate-first ht_37))))" "(let-values(((table_35) table_32))" @@ -6945,15 +6960,15 @@ static const char *startup_source = "(hash-set table_35 key_19 val_9)))))" "(values table_36)))" " table_32))))" -"(if(not #f)(for-loop_34 table_31(hash-iterate-next ht_36 i_48)) table_31)))" +"(if(not #f)(for-loop_35 table_31(hash-iterate-next ht_36 i_48)) table_31)))" " table_34)))))" -" for-loop_34)" +" for-loop_35)" " '#hasheq()" "(hash-iterate-first ht_36))))" "(let-values(((lst_35) bulk-bindings_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_35)))" -"((letrec-values(((for-loop_36)" +"((letrec-values(((for-loop_37)" "(lambda(table_37 lst_36)" "(begin" " 'for-loop" @@ -6965,14 +6980,14 @@ static const char *startup_source = "(let-values(((ht_38)" "(bulk-binding-symbols" "(bulk-binding-at-bulk bba_1)" -" s_39" +" s_68" " extra-shifts_1)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_38)))" -"((letrec-values(((for-loop_37)" +"((letrec-values(((for-loop_38)" "(lambda(table_40 i_50)" "(begin" " 'for-loop" @@ -7000,29 +7015,29 @@ static const char *startup_source = "(values" " table_43)))))" "(if(not #f)" -"(for-loop_37" +"(for-loop_38" " table_41" "(hash-iterate-next" " ht_38" " i_50))" " table_41)))" " table_40)))))" -" for-loop_37)" +" for-loop_38)" " table_39" "(hash-iterate-first ht_38))))" " table_39))))" -"(if(not #f)(for-loop_36 table_38 rest_14) table_38)))" +"(if(not #f)(for-loop_37 table_38 rest_14) table_38)))" " table_37)))))" -" for-loop_36)" +" for-loop_37)" " '#hasheq()" " lst_35))))))))" "(define-values" "(binding-table-prune-to-reachable)" "(lambda(bt_3 state_15)" "(begin" -"(let-values(((or-part_90)(hash-ref(serialize-state-bindings-intern state_15) bt_3 #f)))" -"(if or-part_90" -" or-part_90" +"(let-values(((or-part_89)(hash-ref(serialize-state-bindings-intern state_15) bt_3 #f)))" +"(if or-part_89" +" or-part_89" "(let-values(((reachable-scopes_1)(serialize-state-reachable-scopes state_15)))" "(let-values(((new-syms_2)" "(let-values(((ht_39)(if(hash? bt_3) bt_3(table-with-bulk-bindings-syms/serialize bt_3))))" @@ -7030,7 +7045,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_39)))" -"((letrec-values(((for-loop_38)" +"((letrec-values(((for-loop_39)" "(lambda(table_44 i_51)" "(begin" " 'for-loop" @@ -7050,7 +7065,7 @@ static const char *startup_source = "(let-values()" "(check-in-immutable-hash" " ht_40)))" -"((letrec-values(((for-loop_39)" +"((letrec-values(((for-loop_40)" "(lambda(table_46" " i_52)" "(begin" @@ -7088,20 +7103,20 @@ static const char *startup_source = " table_48))))" "(if(not" " #f)" -"(for-loop_39" +"(for-loop_40" " table_47" "(unsafe-immutable-hash-iterate-next" " ht_40" " i_52))" " table_47)))" " table_46)))))" -" for-loop_39)" +" for-loop_40)" " '#hash()" "(unsafe-immutable-hash-iterate-first" " ht_40))))))" "(begin" " #t" -"((letrec-values(((for-loop_40)" +"((letrec-values(((for-loop_41)" "(lambda(table_51)" "(begin" " 'for-loop" @@ -7130,15 +7145,15 @@ static const char *startup_source = " table_55)))" " table_53))))" " table_52))))))" -" for-loop_40)" +" for-loop_41)" " table_44)))))" "(if(not #f)" -"(for-loop_38" +"(for-loop_39" " table_45" "(unsafe-immutable-hash-iterate-next ht_39 i_51))" " table_45)))" " table_44)))))" -" for-loop_38)" +" for-loop_39)" " '#hasheq()" "(unsafe-immutable-hash-iterate-first ht_39))))))" "(let-values(((new-bulk-bindings_0)" @@ -7150,7 +7165,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_37)))" -"((letrec-values(((for-loop_41)" +"((letrec-values(((for-loop_42)" "(lambda(fold-var_21 lst_38)" "(begin" " 'for-loop" @@ -7188,10 +7203,10 @@ static const char *startup_source = "(values fold-var_25)))" " fold-var_23))))" "(if(not #f)" -"(for-loop_41 fold-var_22 rest_15)" +"(for-loop_42 fold-var_22 rest_15)" " fold-var_22)))" " fold-var_21)))))" -" for-loop_41)" +" for-loop_42)" " null" " lst_37)))))))" "(let-values(((new-bt_0)" @@ -7209,7 +7224,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_41)))" -"((letrec-values(((for-loop_42)" +"((letrec-values(((for-loop_43)" "(lambda(i_53)" "(begin" " 'for-loop" @@ -7222,7 +7237,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_42)))" -"((letrec-values(((for-loop_43)" +"((letrec-values(((for-loop_44)" "(lambda(i_54)" "(begin" " 'for-loop" @@ -7253,19 +7268,19 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_43" +"(for-loop_44" "(unsafe-immutable-hash-iterate-next" " ht_42" " i_54))" "(values))))" "(values))))))" -" for-loop_43)" +" for-loop_44)" "(unsafe-immutable-hash-iterate-first ht_42))))))" "(if(not #f)" -"(for-loop_42(unsafe-immutable-hash-iterate-next ht_41 i_53))" +"(for-loop_43(unsafe-immutable-hash-iterate-next ht_41 i_53))" "(values))))" "(values))))))" -" for-loop_42)" +" for-loop_43)" "(unsafe-immutable-hash-iterate-first ht_41))))" "(void)" "(if(table-with-bulk-bindings? bt_4)" @@ -7276,7 +7291,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_39)))" -"((letrec-values(((for-loop_44)" +"((letrec-values(((for-loop_45)" "(lambda(lst_40)" "(begin" " 'for-loop" @@ -7296,9 +7311,9 @@ static const char *startup_source = " register-trigger_0))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_44 rest_16)(values))))" +"(if(not #f)(for-loop_45 rest_16)(values))))" "(values))))))" -" for-loop_44)" +" for-loop_45)" " lst_39)))" "(void)))" "(void))))))" @@ -7316,7 +7331,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_43)))" -"((letrec-values(((for-loop_45)" +"((letrec-values(((for-loop_46)" "(lambda(table_56 i_55)" "(begin" " 'for-loop" @@ -7325,12 +7340,12 @@ static const char *startup_source = "(unsafe-immutable-hash-iterate-key ht_43 i_55)))" "(let-values(((table_57)" "(let-values(((table_58) table_56))" -"(if(let-values(((or-part_91)" +"(if(let-values(((or-part_90)" "(set-member?" " reachable-scopes_2" " sc_0)))" -"(if or-part_91" -" or-part_91" +"(if or-part_90" +" or-part_90" "(implicitly-reachable? sc_0)))" " table_58" "(let-values(((table_59) table_58))" @@ -7349,12 +7364,12 @@ static const char *startup_source = " val_13)))))" "(values table_60)))))))" "(if(not #f)" -"(for-loop_45" +"(for-loop_46" " table_57" "(unsafe-immutable-hash-iterate-next ht_43 i_55))" " table_57)))" " table_56)))))" -" for-loop_45)" +" for-loop_46)" " '#hasheq()" "(unsafe-immutable-hash-iterate-first ht_43))))))" "(let-values(((check-trigger_0)" @@ -7370,7 +7385,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_44)))" -"((letrec-values(((for-loop_46)" +"((letrec-values(((for-loop_47)" "(lambda(i_56)" "(begin" " 'for-loop" @@ -7394,13 +7409,13 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_46" +"(for-loop_47" "(unsafe-immutable-hash-iterate-next" " ht_44" " i_56))" "(values))))" "(values))))))" -" for-loop_46)" +" for-loop_47)" "(unsafe-immutable-hash-iterate-first ht_44))))" "(void)))" "(void))))))" @@ -7410,7 +7425,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_45)))" -"((letrec-values(((for-loop_47)" +"((letrec-values(((for-loop_48)" "(lambda(i_8)" "(begin" " 'for-loop" @@ -7434,18 +7449,168 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_47(unsafe-immutable-hash-iterate-next ht_45 i_8))" +"(for-loop_48(unsafe-immutable-hash-iterate-next ht_45 i_8))" "(values))))" "(values))))))" -" for-loop_47)" +" for-loop_48)" "(unsafe-immutable-hash-iterate-first ht_45))))" "(void)" "(check-trigger_0 reach_3))))))))))" "(define-values" +"(syntax-property$1)" +"(let-values()" +"(let-values()" +"(case-lambda" +"((s_69 key_24)" +"(begin" +" 'syntax-property" +"(let-values((()" +"(begin" +"(if(syntax?$1 s_69)" +"(void)" +" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_69)))" +"(values))))" +"(let-values(((v_63)(hash-ref(syntax-props s_69) key_24 #f)))(plain-property-value v_63)))))" +"((s_70 key_25 val_14)" +"(let-values((()" +"(begin" +"(if(syntax?$1 s_70)" +"(void)" +" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_70)))" +"(values))))" +"(let-values(((pval_0)(if(eq? key_25 'paren-shape)(preserved-property-value1.1 val_14) val_14)))" +"(let-values(((the-struct_3) s_70))" +"(if(syntax?$1 the-struct_3)" +"(let-values(((props2_0)(hash-set(syntax-props s_70) key_25 pval_0)))" +"(syntax1.1" +"(syntax-content the-struct_3)" +"(syntax-scopes the-struct_3)" +"(syntax-shifted-multi-scopes the-struct_3)" +"(syntax-scope-propagations+tamper the-struct_3)" +"(syntax-mpi-shifts the-struct_3)" +"(syntax-srcloc the-struct_3)" +" props2_0" +"(syntax-inspector the-struct_3)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_3))))))" +"((s_71 key_26 val_15 preserved?_0)" +"(let-values((()" +"(begin" +"(if(syntax?$1 s_71)" +"(void)" +" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_71)))" +"(values))))" +"(let-values((()" +"(begin" +"(if preserved?_0" +"(let-values()" +"(if(if(symbol? key_26)(symbol-interned? key_26) #f)" +"(void)" +"(let-values()" +"(raise-arguments-error" +" 'syntax-property" +" \"key for a perserved property must be an interned symbol\"" +" \"given key\"" +" key_26" +" \"given value\"" +" val_15))))" +"(void))" +"(values))))" +"(let-values(((pval_1)(if preserved?_0(preserved-property-value1.1 val_15) val_15)))" +"(let-values(((the-struct_4) s_71))" +"(if(syntax?$1 the-struct_4)" +"(let-values(((props3_0)(hash-set(syntax-props s_71) key_26 pval_1)))" +"(syntax1.1" +"(syntax-content the-struct_4)" +"(syntax-scopes the-struct_4)" +"(syntax-shifted-multi-scopes the-struct_4)" +"(syntax-scope-propagations+tamper the-struct_4)" +"(syntax-mpi-shifts the-struct_4)" +"(syntax-srcloc the-struct_4)" +" props3_0" +"(syntax-inspector the-struct_4)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_4)))))))))))" +"(define-values" +"(1/syntax-property-preserved?)" +"(lambda(s_72 key_27)" +"(begin" +" 'syntax-property-preserved?" +"(let-values()" +"(let-values()" +"(begin" +"(if(syntax?$1 s_72)" +"(void)" +" (let-values () (raise-argument-error 'syntax-property-preserved? \"syntax?\" s_72)))" +"(if(if(symbol? key_27)(symbol-interned? key_27) #f)" +"(void)" +"(let-values()" +" (raise-argument-error 'syntax-property-preserved? \"(and/c symbol? symbol-interned?)\" key_27)))" +"(preserved-property-value?(hash-ref(syntax-props s_72) key_27 #f))))))))" +"(define-values" +"(1/syntax-property-symbol-keys)" +"(lambda(s_10)" +"(begin" +" 'syntax-property-symbol-keys" +"(let-values()" +"(let-values()" +"(begin" +"(if(syntax?$1 s_10)" +"(void)" +" (let-values () (raise-argument-error 'syntax-property-symbol-keys \"syntax\" s_10)))" +"(reverse$1" +"(let-values(((ht_46)(syntax-props s_10)))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-in-immutable-hash ht_46)))" +"((letrec-values(((for-loop_49)" +"(lambda(fold-var_26 i_57)" +"(begin" +" 'for-loop" +"(if i_57" +"(let-values(((k_16 v_30)" +"(unsafe-immutable-hash-iterate-key+value ht_46 i_57)))" +"(let-values(((fold-var_27)" +"(let-values(((fold-var_28) fold-var_26))" +"(if(if(symbol? k_16)(symbol-interned? k_16) #f)" +"(let-values(((fold-var_29) fold-var_28))" +"(let-values(((fold-var_30)" +"(let-values()" +"(cons" +"(let-values() k_16)" +" fold-var_29))))" +"(values fold-var_30)))" +" fold-var_28))))" +"(if(not #f)" +"(for-loop_49 fold-var_27(unsafe-immutable-hash-iterate-next ht_46 i_57))" +" fold-var_27)))" +" fold-var_26)))))" +" for-loop_49)" +" null" +"(unsafe-immutable-hash-iterate-first ht_46)))))))))))" +"(define-values" +"(syntax-property-remove)" +"(lambda(s_73 key_28)" +"(begin" +"(if(hash-ref(syntax-props s_73) key_28 #f)" +"(let-values(((the-struct_5) s_73))" +"(if(syntax?$1 the-struct_5)" +"(let-values(((props6_0)(hash-remove(syntax-props s_73) key_28)))" +"(syntax1.1" +"(syntax-content the-struct_5)" +"(syntax-scopes the-struct_5)" +"(syntax-shifted-multi-scopes the-struct_5)" +"(syntax-scope-propagations+tamper the-struct_5)" +"(syntax-mpi-shifts the-struct_5)" +"(syntax-srcloc the-struct_5)" +" props6_0" +"(syntax-inspector the-struct_5)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_5)))" +" s_73))))" +"(define-values" "(taint-content)" "(lambda(d_2)" "(begin" -"(let-values(((s_67) d_2)" +"(let-values(((s_71) d_2)" "((f_25)(lambda(tail?_15 x_28)(begin 'f x_28)))" "((s->_1)" "(lambda(sub-s_0)" @@ -7455,8 +7620,8 @@ static const char *startup_source = "(let-values() sub-s_0)" "(let-values()" "(let-values(((stx_0) sub-s_0))" -"(let-values(((the-struct_3) stx_0))" -"(if(syntax?$1 the-struct_3)" +"(let-values(((the-struct_6) stx_0))" +"(if(syntax?$1 the-struct_6)" "(let-values(((scope-propagations+tamper6_0)" "(let-values(((t_16)" "(tamper-tainted-for-content(syntax-content sub-s_0)))" @@ -7465,17 +7630,17 @@ static const char *startup_source = " t_16" "((propagation-set-tamper-ref p_19) p_19 t_16)))))" "(syntax1.1" -"(syntax-content the-struct_3)" -"(syntax-scopes the-struct_3)" -"(syntax-shifted-multi-scopes the-struct_3)" +"(syntax-content the-struct_6)" +"(syntax-scopes the-struct_6)" +"(syntax-shifted-multi-scopes the-struct_6)" " scope-propagations+tamper6_0" -"(syntax-mpi-shifts the-struct_3)" -"(syntax-srcloc the-struct_3)" -"(syntax-props the-struct_3)" -"(syntax-inspector the-struct_3)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_3)))))))))" +"(syntax-mpi-shifts the-struct_6)" +"(syntax-srcloc the-struct_6)" +"(syntax-props the-struct_6)" +"(syntax-inspector the-struct_6)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_6)))))))))" "((seen_7) #f))" -"(let-values(((s_68) s_67)" +"(let-values(((s_74) s_71)" "((f_4)" "(lambda(tail?_16 v_75)" "(begin" @@ -7483,71 +7648,71 @@ static const char *startup_source = "(if(syntax?$1 v_75)(let-values()(s->_1 v_75))(let-values()(f_25 tail?_16 v_75))))))" "((seen_8) seen_7))" "((letrec-values(((loop_66)" -"(lambda(tail?_17 s_69 prev-depth_3)" +"(lambda(tail?_17 s_75 prev-depth_3)" "(begin" " 'loop" "(let-values(((depth_3)(add1 prev-depth_3)))" "(if(if seen_8(> depth_3 32) #f)" "(let-values()" -"(datum-map-slow tail?_17 s_69(lambda(tail?_1 s_41)(f_4 tail?_1 s_41)) seen_8))" -"(if(null? s_69)" -"(let-values()(f_4 tail?_17 s_69))" -"(if(pair? s_69)" +"(datum-map-slow tail?_17 s_75(lambda(tail?_1 s_41)(f_4 tail?_1 s_41)) seen_8))" +"(if(null? s_75)" +"(let-values()(f_4 tail?_17 s_75))" +"(if(pair? s_75)" "(let-values()" "(f_4" " tail?_17" -"(cons(loop_66 #f(car s_69) depth_3)(loop_66 #t(cdr s_69) depth_3))))" -"(if(let-values(((or-part_76)(symbol? s_69)))" -"(if or-part_76" -" or-part_76" -"(let-values(((or-part_77)(boolean? s_69)))" -"(if or-part_77 or-part_77(number? s_69)))))" -"(let-values()(f_4 #f s_69))" -"(if(let-values(((or-part_69)(vector? s_69)))" +"(cons(loop_66 #f(car s_75) depth_3)(loop_66 #t(cdr s_75) depth_3))))" +"(if(let-values(((or-part_75)(symbol? s_75)))" +"(if or-part_75" +" or-part_75" +"(let-values(((or-part_76)(boolean? s_75)))" +"(if or-part_76 or-part_76(number? s_75)))))" +"(let-values()(f_4 #f s_75))" +"(if(let-values(((or-part_68)(vector? s_75)))" +"(if or-part_68" +" or-part_68" +"(let-values(((or-part_69)(box? s_75)))" "(if or-part_69" " or-part_69" -"(let-values(((or-part_70)(box? s_69)))" -"(if or-part_70" -" or-part_70" -"(let-values(((or-part_78)(prefab-struct-key s_69)))" -"(if or-part_78 or-part_78(hash? s_69)))))))" +"(let-values(((or-part_77)(prefab-struct-key s_75)))" +"(if or-part_77 or-part_77(hash? s_75)))))))" "(let-values()" "(datum-map-slow" " tail?_17" -" s_69" -"(lambda(tail?_18 s_70)(f_4 tail?_18 s_70))" +" s_75" +"(lambda(tail?_18 s_76)(f_4 tail?_18 s_76))" " seen_8))" -"(let-values()(f_4 #f s_69))))))))))))" +"(let-values()(f_4 #f s_75))))))))))))" " loop_66)" " #f" -" s_68" +" s_74" " 0))))))" -"(define-values(syntax-tainted?$1)(lambda(s_71)(begin 'syntax-tainted?(tamper-tainted?(syntax-tamper s_71)))))" +"(define-values(syntax-tainted?$1)(lambda(s_77)(begin 'syntax-tainted?(tamper-tainted?(syntax-tamper s_77)))))" "(define-values(syntax-clean?)(lambda(s_6)(begin(tamper-clean?(syntax-tamper s_6)))))" "(define-values" "(syntax-arm$1)" -"(lambda(s_72 insp_0)" +"(lambda(s_78 insp_0)" "(begin" " 'syntax-arm" -"(let-values(((t_17)(syntax-tamper s_72)))" +"(let-values(((t_17)(syntax-tamper s_78)))" "(if(tamper-tainted? t_17)" -"(let-values() s_72)" +"(let-values() s_78)" "(if(if t_17" -"(let-values(((or-part_92)(set-member? t_17 insp_0)))" -"(if or-part_92" -" or-part_92" -"(let-values(((ht_46) t_17))" +"(let-values(((or-part_91)(set-member? t_17 insp_0)))" +"(if or-part_91" +" or-part_91" +"(let-values(((ht_47) t_17))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_46)))" -"((letrec-values(((for-loop_48)" -"(lambda(result_32 i_57)" +"(let-values()(check-in-immutable-hash-keys ht_47)))" +"((letrec-values(((for-loop_50)" +"(lambda(result_32 i_58)" "(begin" " 'for-loop" -"(if i_57" +"(if i_58" "(let-values(((already-insp_0)" -"(unsafe-immutable-hash-iterate-key ht_46 i_57)))" +"(unsafe-immutable-hash-iterate-key ht_47 i_58)))" "(let-values(((result_33)" "(let-values()" "(let-values(((result_34)" @@ -7558,49 +7723,49 @@ static const char *startup_source = " insp_0)))))" "(values result_34)))))" "(if(if(not((lambda x_29 result_33) already-insp_0))(not #f) #f)" -"(for-loop_48" +"(for-loop_50" " result_33" -"(unsafe-immutable-hash-iterate-next ht_46 i_57))" +"(unsafe-immutable-hash-iterate-next ht_47 i_58))" " result_33)))" " result_32)))))" -" for-loop_48)" +" for-loop_50)" " #f" -"(unsafe-immutable-hash-iterate-first ht_46))))))" +"(unsafe-immutable-hash-iterate-first ht_47))))))" " #f)" -"(let-values() s_72)" +"(let-values() s_78)" "(let-values()" -"(let-values(((stx_1) s_72))" -"(let-values(((the-struct_4) stx_1))" -"(if(syntax?$1 the-struct_4)" +"(let-values(((stx_1) s_78))" +"(let-values(((the-struct_7) stx_1))" +"(if(syntax?$1 the-struct_7)" "(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)))))" "(syntax1.1" -"(syntax-content the-struct_4)" -"(syntax-scopes the-struct_4)" -"(syntax-shifted-multi-scopes the-struct_4)" +"(syntax-content the-struct_7)" +"(syntax-scopes the-struct_7)" +"(syntax-shifted-multi-scopes the-struct_7)" " scope-propagations+tamper7_0" -"(syntax-mpi-shifts the-struct_4)" -"(syntax-srcloc the-struct_4)" -"(syntax-props the-struct_4)" -"(syntax-inspector the-struct_4)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_4)))))))))))" +"(syntax-mpi-shifts the-struct_7)" +"(syntax-srcloc the-struct_7)" +"(syntax-props the-struct_7)" +"(syntax-inspector the-struct_7)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_7)))))))))))" "(define-values" "(remove-inferior)" "(lambda(t_19 insp_1)" "(begin" -"(let-values(((ht_47) t_19))" +"(let-values(((ht_48) t_19))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_47)))" -"((letrec-values(((for-loop_49)" -"(lambda(table_61 i_58)" +"(let-values()(check-in-immutable-hash-keys ht_48)))" +"((letrec-values(((for-loop_51)" +"(lambda(table_61 i_59)" "(begin" " 'for-loop" -"(if i_58" -"(let-values(((already-insp_1)(unsafe-immutable-hash-iterate-key ht_47 i_58)))" +"(if i_59" +"(let-values(((already-insp_1)(unsafe-immutable-hash-iterate-key ht_48 i_59)))" "(let-values(((table_15)" "(let-values(((table_62) table_61))" "(if(inspector-superior-or-same? insp_1 already-insp_1)" @@ -7608,20 +7773,20 @@ static const char *startup_source = "(let-values(((table_63) table_62))" "(let-values(((table_64)" "(let-values()" -"(let-values(((key_24 val_14)" +"(let-values(((key_29 val_16)" "(let-values()" "(values" "(let-values() already-insp_1)" " #t))))" -"(hash-set table_63 key_24 val_14)))))" +"(hash-set table_63 key_29 val_16)))))" "(values table_64)))))))" "(if(not #f)" -"(for-loop_49 table_15(unsafe-immutable-hash-iterate-next ht_47 i_58))" +"(for-loop_51 table_15(unsafe-immutable-hash-iterate-next ht_48 i_59))" " table_15)))" " table_61)))))" -" for-loop_49)" +" for-loop_51)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_47)))))))" +"(unsafe-immutable-hash-iterate-first ht_48)))))))" "(define-values" "(syntax-disarm$1)" "(let-values(((syntax-disarm4_0)" @@ -7637,8 +7802,8 @@ static const char *startup_source = "(if(not insp_2)" "(let-values()" "(let-values(((stx_2) s_13))" -"(let-values(((the-struct_5) stx_2))" -"(if(syntax?$1 the-struct_5)" +"(let-values(((the-struct_8) stx_2))" +"(if(syntax?$1 the-struct_8)" "(let-values(((scope-propagations+tamper8_0)" "(let-values(((t_21) #f)" "((p_21)(syntax-scope-propagations+tamper stx_2)))" @@ -7646,20 +7811,20 @@ static const char *startup_source = " t_21" "((propagation-set-tamper-ref p_21) p_21 t_21)))))" "(syntax1.1" -"(syntax-content the-struct_5)" -"(syntax-scopes the-struct_5)" -"(syntax-shifted-multi-scopes the-struct_5)" +"(syntax-content the-struct_8)" +"(syntax-scopes the-struct_8)" +"(syntax-shifted-multi-scopes the-struct_8)" " scope-propagations+tamper8_0" -"(syntax-mpi-shifts the-struct_5)" -"(syntax-srcloc the-struct_5)" -"(syntax-props the-struct_5)" -"(syntax-inspector the-struct_5)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_5)))))" +"(syntax-mpi-shifts the-struct_8)" +"(syntax-srcloc the-struct_8)" +"(syntax-props the-struct_8)" +"(syntax-inspector the-struct_8)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_8)))))" "(let-values()" "(let-values(((new-t_1)(remove-inferior t_20 insp_2)))" "(let-values(((stx_3) s_13))" -"(let-values(((the-struct_6) stx_3))" -"(if(syntax?$1 the-struct_6)" +"(let-values(((the-struct_9) stx_3))" +"(if(syntax?$1 the-struct_9)" "(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)))" @@ -7667,18 +7832,18 @@ static const char *startup_source = " t_22" "((propagation-set-tamper-ref p_22) p_22 t_22)))))" "(syntax1.1" -"(syntax-content the-struct_6)" -"(syntax-scopes the-struct_6)" -"(syntax-shifted-multi-scopes the-struct_6)" +"(syntax-content the-struct_9)" +"(syntax-scopes the-struct_9)" +"(syntax-shifted-multi-scopes the-struct_9)" " scope-propagations+tamper9_0" -"(syntax-mpi-shifts the-struct_6)" -"(syntax-srcloc the-struct_6)" -"(syntax-props the-struct_6)" -"(syntax-inspector the-struct_6)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_6))))))))))))))))" +"(syntax-mpi-shifts the-struct_9)" +"(syntax-srcloc the-struct_9)" +"(syntax-props the-struct_9)" +"(syntax-inspector the-struct_9)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_9))))))))))))))))" "(case-lambda" "((s_21)(begin 'syntax-disarm(syntax-disarm4_0 s_21 #f #f)))" -"((s_73 insp1_1)(syntax-disarm4_0 s_73 insp1_1 #t)))))" +"((s_79 insp1_1)(syntax-disarm4_0 s_79 insp1_1 #t)))))" "(define-values" "(syntax-rearm$1)" "(lambda(s_23 from-s_0)" @@ -7694,61 +7859,61 @@ static const char *startup_source = "(if(tamper-tainted? from-t_0)" "(let-values()" "(let-values(((stx_4) s_23))" -"(let-values(((the-struct_7) stx_4))" -"(if(syntax?$1 the-struct_7)" +"(let-values(((the-struct_10) stx_4))" +"(if(syntax?$1 the-struct_10)" "(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)))))" "(syntax1.1" -"(syntax-content the-struct_7)" -"(syntax-scopes the-struct_7)" -"(syntax-shifted-multi-scopes the-struct_7)" +"(syntax-content the-struct_10)" +"(syntax-scopes the-struct_10)" +"(syntax-shifted-multi-scopes the-struct_10)" " scope-propagations+tamper10_0" -"(syntax-mpi-shifts the-struct_7)" -"(syntax-srcloc the-struct_7)" -"(syntax-props the-struct_7)" -"(syntax-inspector the-struct_7)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_7)))))" +"(syntax-mpi-shifts the-struct_10)" +"(syntax-srcloc the-struct_10)" +"(syntax-props the-struct_10)" +"(syntax-inspector the-struct_10)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_10)))))" "(if(tamper-clean? t_23)" "(let-values()" "(let-values(((stx_5) s_23))" -"(let-values(((the-struct_8) stx_5))" -"(if(syntax?$1 the-struct_8)" +"(let-values(((the-struct_11) stx_5))" +"(if(syntax?$1 the-struct_11)" "(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)))))" "(syntax1.1" -"(syntax-content the-struct_8)" -"(syntax-scopes the-struct_8)" -"(syntax-shifted-multi-scopes the-struct_8)" +"(syntax-content the-struct_11)" +"(syntax-scopes the-struct_11)" +"(syntax-shifted-multi-scopes the-struct_11)" " scope-propagations+tamper11_0" -"(syntax-mpi-shifts the-struct_8)" -"(syntax-srcloc the-struct_8)" -"(syntax-props the-struct_8)" -"(syntax-inspector the-struct_8)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_8)))))" +"(syntax-mpi-shifts the-struct_11)" +"(syntax-srcloc the-struct_11)" +"(syntax-props the-struct_11)" +"(syntax-inspector the-struct_11)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_11)))))" "(let-values()" "(let-values(((stx_6) s_23))" -"(let-values(((the-struct_9) stx_6))" -"(if(syntax?$1 the-struct_9)" +"(let-values(((the-struct_12) stx_6))" +"(if(syntax?$1 the-struct_12)" "(let-values(((scope-propagations+tamper12_0)" "(let-values(((t_26)" -"(let-values(((ht_48) from-t_0))" +"(let-values(((ht_49) from-t_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_48)))" -"((letrec-values(((for-loop_50)" -"(lambda(t_27 i_59)" +"(let-values()(check-in-immutable-hash-keys ht_49)))" +"((letrec-values(((for-loop_52)" +"(lambda(t_27 i_60)" "(begin" " 'for-loop" -"(if i_59" +"(if i_60" "(let-values(((from-i_0)" "(unsafe-immutable-hash-iterate-key" -" ht_48" -" i_59)))" +" ht_49" +" i_60)))" "(let-values(((t_28)" "(let-values(((t_29)" " t_27))" @@ -7773,86 +7938,86 @@ static const char *startup_source = "(values" " t_30)))))" "(if(not #f)" -"(for-loop_50" +"(for-loop_52" " t_28" "(unsafe-immutable-hash-iterate-next" -" ht_48" -" i_59))" +" ht_49" +" i_60))" " t_28)))" " t_27)))))" -" for-loop_50)" +" for-loop_52)" " t_23" -"(unsafe-immutable-hash-iterate-first ht_48)))))" +"(unsafe-immutable-hash-iterate-first ht_49)))))" "((p_25)(syntax-scope-propagations+tamper stx_6)))" "(if(tamper? p_25) t_26((propagation-set-tamper-ref p_25) p_25 t_26)))))" "(syntax1.1" -"(syntax-content the-struct_9)" -"(syntax-scopes the-struct_9)" -"(syntax-shifted-multi-scopes the-struct_9)" +"(syntax-content the-struct_12)" +"(syntax-scopes the-struct_12)" +"(syntax-shifted-multi-scopes the-struct_12)" " scope-propagations+tamper12_0" -"(syntax-mpi-shifts the-struct_9)" -"(syntax-srcloc the-struct_9)" -"(syntax-props the-struct_9)" -"(syntax-inspector the-struct_9)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_9)))))))))))))))" +"(syntax-mpi-shifts the-struct_12)" +"(syntax-srcloc the-struct_12)" +"(syntax-props the-struct_12)" +"(syntax-inspector the-struct_12)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_12)))))))))))))))" "(define-values" "(syntax-taint$1)" -"(lambda(s_74)" +"(lambda(s_80)" "(begin" " 'syntax-taint" -"(if(tamper-tainted?(syntax-tamper s_74))" -" s_74" -"(let-values(((stx_7) s_74))" -"(let-values(((the-struct_10) stx_7))" -"(if(syntax?$1 the-struct_10)" +"(if(tamper-tainted?(syntax-tamper s_80))" +" s_80" +"(let-values(((stx_7) s_80))" +"(let-values(((the-struct_13) stx_7))" +"(if(syntax?$1 the-struct_13)" "(let-values(((scope-propagations+tamper13_0)" -"(let-values(((t_31)(tamper-tainted-for-content(syntax-content s_74)))" +"(let-values(((t_31)(tamper-tainted-for-content(syntax-content s_80)))" "((p_26)(syntax-scope-propagations+tamper stx_7)))" "(if(tamper? p_26) t_31((propagation-set-tamper-ref p_26) p_26 t_31)))))" "(syntax1.1" -"(syntax-content the-struct_10)" -"(syntax-scopes the-struct_10)" -"(syntax-shifted-multi-scopes the-struct_10)" +"(syntax-content the-struct_13)" +"(syntax-scopes the-struct_13)" +"(syntax-shifted-multi-scopes the-struct_13)" " scope-propagations+tamper13_0" -"(syntax-mpi-shifts the-struct_10)" -"(syntax-srcloc the-struct_10)" -"(syntax-props the-struct_10)" -"(syntax-inspector the-struct_10)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_10))))))))" +"(syntax-mpi-shifts the-struct_13)" +"(syntax-srcloc the-struct_13)" +"(syntax-props the-struct_13)" +"(syntax-inspector the-struct_13)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_13))))))))" "(define-values" "(any-superior?)" "(lambda(t_5 from-i_1)" "(begin" -"(let-values(((ht_49) t_5))" +"(let-values(((ht_50) t_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_49)))" -"((letrec-values(((for-loop_51)" -"(lambda(result_35 i_60)" +"(let-values()(check-in-immutable-hash-keys ht_50)))" +"((letrec-values(((for-loop_53)" +"(lambda(result_35 i_61)" "(begin" " 'for-loop" -"(if i_60" -"(let-values(((i_61)(unsafe-immutable-hash-iterate-key ht_49 i_60)))" +"(if i_61" +"(let-values(((i_62)(unsafe-immutable-hash-iterate-key ht_50 i_61)))" "(let-values(((result_36)" "(let-values()" "(let-values(((result_37)" "(let-values()" "(let-values()" -"(inspector-superior-or-same? i_61 from-i_1)))))" +"(inspector-superior-or-same? i_62 from-i_1)))))" "(values result_37)))))" -"(if(if(not((lambda x_30 result_36) i_61))(not #f) #f)" -"(for-loop_51 result_36(unsafe-immutable-hash-iterate-next ht_49 i_60))" +"(if(if(not((lambda x_30 result_36) i_62))(not #f) #f)" +"(for-loop_53 result_36(unsafe-immutable-hash-iterate-next ht_50 i_61))" " result_36)))" " result_35)))))" -" for-loop_51)" +" for-loop_53)" " #f" -"(unsafe-immutable-hash-iterate-first ht_49)))))))" +"(unsafe-immutable-hash-iterate-first ht_50)))))))" "(define-values" "(inspector-superior-or-same?)" -"(lambda(sup-i_0 i_62)" +"(lambda(sup-i_0 i_63)" "(begin" -"(let-values(((or-part_93)(eq? sup-i_0 i_62)))(if or-part_93 or-part_93(inspector-superior? sup-i_0 i_62))))))" +"(let-values(((or-part_92)(eq? sup-i_0 i_63)))(if or-part_92 or-part_92(inspector-superior? sup-i_0 i_63))))))" "(define-values" "(struct:fallback fallback1.1 fallback? fallback-search-list)" "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" @@ -7895,23 +8060,23 @@ static const char *startup_source = "(let-values(((lst_41)(fallback-search-list smss_4)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_41)))" -"((letrec-values(((for-loop_52)" -"(lambda(fold-var_26 lst_42)" +"((letrec-values(((for-loop_54)" +"(lambda(fold-var_31 lst_42)" "(begin" " 'for-loop" "(if(pair? lst_42)" "(let-values(((smss_5)(unsafe-car lst_42))((rest_17)(unsafe-cdr lst_42)))" -"(let-values(((fold-var_27)" -"(let-values(((fold-var_28) fold-var_26))" -"(let-values(((fold-var_29)" +"(let-values(((fold-var_32)" +"(let-values(((fold-var_33) fold-var_31))" +"(let-values(((fold-var_34)" "(let-values()" "(cons" "(let-values()(f_19 smss_5))" -" fold-var_28))))" -"(values fold-var_29)))))" -"(if(not #f)(for-loop_52 fold-var_27 rest_17) fold-var_27)))" -" fold-var_26)))))" -" for-loop_52)" +" fold-var_33))))" +"(values fold-var_34)))))" +"(if(not #f)(for-loop_54 fold-var_32 rest_17) fold-var_32)))" +" fold-var_31)))))" +" for-loop_54)" " null" " lst_41)))))" "(f_19 smss_4)))))" @@ -7984,21 +8149,21 @@ static const char *startup_source = "(define-values(cached-hashes-pos) 0)" "(define-values" "(cache-or-reuse-set)" -"(lambda(s_75)" +"(lambda(s_81)" "(begin" "(let-values(((vec_16)" -"(let-values(((or-part_94)(weak-box-value cached-sets)))" -"(if or-part_94" -" or-part_94" +"(let-values(((or-part_93)(weak-box-value cached-sets)))" +"(if or-part_93" +" or-part_93" "(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_95)" +"(let-values(((or-part_94)" "(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))))))" "(begin" " #f" -"((letrec-values(((for-loop_53)" +"((letrec-values(((for-loop_55)" "(lambda(result_38 pos_7)" "(begin" " 'for-loop" @@ -8010,39 +8175,39 @@ static const char *startup_source = "(let-values()" "(let-values()" "(if s2_5" -"(if(set=? s_75 s2_5) s2_5 #f)" +"(if(set=? s_81 s2_5) s2_5 #f)" " #f)))))" "(values result_40)))))" "(if(if(not((lambda x_31 result_39) s2_5))(not #f) #f)" -"(for-loop_53 result_39(unsafe-fx+ 1 pos_7))" +"(for-loop_55 result_39(unsafe-fx+ 1 pos_7))" " result_39)))" " result_38)))))" -" for-loop_53)" +" for-loop_55)" " #f" " 0)))))" -"(if or-part_95" -" or-part_95" +"(if or-part_94" +" or-part_94" "(begin" -"(vector-set! vec_16 cached-sets-pos s_75)" +"(vector-set! vec_16 cached-sets-pos s_81)" "(set! cached-sets-pos(modulo(add1 cached-sets-pos) NUM-CACHE-SLOTS))" -" s_75)))))))" +" s_81)))))))" "(define-values" "(cache-or-reuse-hash)" -"(lambda(s_76)" +"(lambda(s_82)" "(begin" "(let-values(((vec_20)" -"(let-values(((or-part_96)(weak-box-value cached-hashes)))" -"(if or-part_96" -" or-part_96" +"(let-values(((or-part_95)(weak-box-value cached-hashes)))" +"(if or-part_95" +" or-part_95" "(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_97)" +"(let-values(((or-part_96)" "(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))))))" "(begin" " #f" -"((letrec-values(((for-loop_54)" +"((letrec-values(((for-loop_56)" "(lambda(result_41 pos_8)" "(begin" " 'for-loop" @@ -8054,22 +8219,22 @@ static const char *startup_source = "(let-values()" "(let-values()" "(if s2_6" -"(if(equal? s_76 s2_6) s2_6 #f)" +"(if(equal? s_82 s2_6) s2_6 #f)" " #f)))))" "(values result_43)))))" "(if(if(not((lambda x_32 result_42) s2_6))(not #f) #f)" -"(for-loop_54 result_42(unsafe-fx+ 1 pos_8))" +"(for-loop_56 result_42(unsafe-fx+ 1 pos_8))" " result_42)))" " result_41)))))" -" for-loop_54)" +" for-loop_56)" " #f" " 0)))))" -"(if or-part_97" -" or-part_97" +"(if or-part_96" +" or-part_96" "(begin" -"(vector-set! vec_20 cached-hashes-pos s_76)" +"(vector-set! vec_20 cached-hashes-pos s_82)" "(set! cached-hashes-pos(modulo(add1 cached-hashes-pos) NUM-CACHE-SLOTS))" -" s_76)))))))" +" s_82)))))))" "(define-values" "(struct:scope scope1.1 scope? scope-id scope-kind scope-binding-table set-scope-binding-table!)" "(let-values(((struct:_21 make-_21 ?_21 -ref_21 -set!_21)" @@ -8085,33 +8250,33 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:scope-with-bindings" -"(lambda(s_72 get-reachable-scopes_2 reach_6 register-trigger_2)" +"(lambda(s_78 get-reachable-scopes_2 reach_6 register-trigger_2)" "(binding-table-register-reachable" -"(scope-binding-table s_72)" +"(scope-binding-table s_78)" " get-reachable-scopes_2" " reach_6" " register-trigger_2)))" -"(cons prop:reach-scopes(lambda(s_77 reach_7)(void)))" +"(cons prop:reach-scopes(lambda(s_83 reach_7)(void)))" "(cons" " prop:serialize-fill!" -"(lambda(s_78 ser-push!_6 state_16)" -"(if(binding-table-empty?(scope-binding-table s_78))" +"(lambda(s_84 ser-push!_6 state_16)" +"(if(binding-table-empty?(scope-binding-table s_84))" "(let-values()(ser-push!_6 'tag #f))" "(let-values()" "(begin" "(ser-push!_6 'tag '#:scope-fill!)" -"(ser-push!_6(binding-table-prune-to-reachable(scope-binding-table s_78) state_16)))))))" +"(ser-push!_6(binding-table-prune-to-reachable(scope-binding-table s_84) state_16)))))))" "(cons" " prop:serialize" -"(lambda(s_79 ser-push!_7 state_17)" +"(lambda(s_85 ser-push!_7 state_17)" "(begin" -"(if(set-member?(serialize-state-reachable-scopes state_17) s_79)" +"(if(set-member?(serialize-state-reachable-scopes state_17) s_85)" "(void)" " (let-values () (error \"internal error: found supposedly unreachable scope\")))" -"(if(eq? s_79 top-level-common-scope)" +"(if(eq? s_85 top-level-common-scope)" "(let-values()(ser-push!_7 'tag '#:scope))" "(let-values()" -"(begin(ser-push!_7 'tag '#:scope+kind)(ser-push!_7(scope-kind s_79))))))))" +"(begin(ser-push!_7 'tag '#:scope+kind)(ser-push!_7(scope-kind s_85))))))))" "(cons" " prop:custom-write" "(lambda(sc_3 port_6 mode_6)" @@ -8139,7 +8304,7 @@ static const char *startup_source = "(case-lambda" "(()(begin top-level-common-scope))" "((kind_0)(scope1.1(new-deserialize-scope-id!) kind_0 empty-binding-table))))" -"(define-values(deserialize-scope-fill!)(lambda(s_80 bt_5)(begin(set-scope-binding-table! s_80 bt_5))))" +"(define-values(deserialize-scope-fill!)(lambda(s_86 bt_5)(begin(set-scope-binding-table! s_86 bt_5))))" "(define-values" "(struct:multi-scope" " multi-scope2.1" @@ -8164,17 +8329,17 @@ static const char *startup_source = " prop:scope-with-bindings" "(lambda(ms_0 get-reachable-scopes_3 reach_8 register-trigger_3)" "(begin" -"(let-values(((ht_50)(multi-scope-scopes ms_0)))" +"(let-values(((ht_51)(multi-scope-scopes ms_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-values ht_50)))" -"((letrec-values(((for-loop_55)" -"(lambda(i_63)" +"(let-values()(check-in-hash-values ht_51)))" +"((letrec-values(((for-loop_57)" +"(lambda(i_64)" "(begin" " 'for-loop" -"(if i_63" -"(let-values(((sc_4)(hash-iterate-value ht_50 i_63)))" +"(if i_64" +"(let-values(((sc_4)(hash-iterate-value ht_51 i_64)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -8190,13 +8355,13 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_55(hash-iterate-next ht_50 i_63))" +"(for-loop_57(hash-iterate-next ht_51 i_64))" "(values))))" "(values))))))" -" for-loop_55)" -"(hash-iterate-first ht_50))))" +" for-loop_57)" +"(hash-iterate-first ht_51))))" "(void))))" -"(cons prop:reach-scopes(lambda(s_81 reach_9)(void)))" +"(cons prop:reach-scopes(lambda(s_87 reach_9)(void)))" "(cons" " prop:serialize" "(lambda(ms_1 ser-push!_8 state_18)" @@ -8204,11 +8369,11 @@ static const char *startup_source = "(let-values((()(begin(ser-push!_8(multi-scope-name ms_1))(values))))" "(let-values(((multi-scope-tables_0)(serialize-state-multi-scope-tables state_18)))" "(ser-push!_8" -"(let-values(((or-part_98)" +"(let-values(((or-part_97)" "(hash-ref multi-scope-tables_0(multi-scope-scopes ms_1) #f)))" -"(if or-part_98" -" or-part_98" -"(let-values(((ht_51)(make-hasheqv)))" +"(if or-part_97" +" or-part_97" +"(let-values(((ht_52)(make-hasheqv)))" "(begin" "(let-values(((ht_18)(multi-scope-scopes ms_1)))" "(begin" @@ -8216,12 +8381,12 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_18)))" "((letrec-values(((for-loop_3)" -"(lambda(i_64)" +"(lambda(i_65)" "(begin" " 'for-loop" -"(if i_64" +"(if i_65" "(let-values(((phase_6 sc_5)" -"(hash-iterate-key+value ht_18 i_64)))" +"(hash-iterate-key+value ht_18 i_65)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -8234,21 +8399,21 @@ static const char *startup_source = " sc_5)" "(let-values()" "(hash-set!" -" ht_51" +" ht_52" " phase_6" " sc_5))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_3(hash-iterate-next ht_18 i_64))" +"(for-loop_3(hash-iterate-next ht_18 i_65))" "(values))))" "(values))))))" " for-loop_3)" "(hash-iterate-first ht_18))))" "(void)" -"(hash-set! multi-scope-tables_0(multi-scope-scopes ms_1) ht_51)" -" ht_51)))))))))))" +"(hash-set! multi-scope-tables_0(multi-scope-scopes ms_1) ht_52)" +" ht_52)))))))))))" "(current-inspector)" " #f" " '(0 1 2 3 4)" @@ -8287,7 +8452,7 @@ static const char *startup_source = "(list" "(cons prop:authentic #t)" "(cons prop:implicitly-reachable #t)" -"(cons prop:reach-scopes(lambda(s_82 reach_10)(reach_10(representative-scope-owner s_82))))" +"(cons prop:reach-scopes(lambda(s_88 reach_10)(reach_10(representative-scope-owner s_88))))" "(cons" " prop:serialize-fill!" "(lambda(s_31 ser-push!_9 state_19)" @@ -8297,11 +8462,11 @@ static const char *startup_source = "(ser-push!_9(representative-scope-owner s_31)))))" "(cons" " prop:serialize" -"(lambda(s_83 ser-push!_10 state_20)" +"(lambda(s_89 ser-push!_10 state_20)" "(begin" "(ser-push!_10 'tag '#:representative-scope)" -"(ser-push!_10(scope-kind s_83))" -"(ser-push!_10(representative-scope-phase s_83)))))" +"(ser-push!_10(scope-kind s_89))" +"(ser-push!_10(representative-scope-phase s_89)))))" "(cons" " prop:custom-write" "(lambda(sc_6 port_7 mode_7)" @@ -8336,8 +8501,8 @@ static const char *startup_source = "(begin(let-values(((v_77)(representative-scope3.1(new-deserialize-scope-id!) kind_1 #f #f phase_7))) v_77))))" "(define-values" "(deserialize-representative-scope-fill!)" -"(lambda(s_84 bt_6 owner_0)" -"(begin(begin(deserialize-scope-fill! s_84 bt_6)(set-representative-scope-owner! s_84 owner_0)))))" +"(lambda(s_90 bt_6 owner_0)" +"(begin(begin(deserialize-scope-fill! s_90 bt_6)(set-representative-scope-owner! s_90 owner_0)))))" "(define-values" "(struct:shifted-multi-scope" " shifted-multi-scope4.1" @@ -8393,31 +8558,31 @@ static const char *startup_source = "(lambda(phase_9 multi-scope_1)" "(begin" "(letrec-values(((transaction-loop_0)" -"(lambda(boxed-table_0 key_25 make_0)" +"(lambda(boxed-table_0 key_30 make_0)" "(begin" " 'transaction-loop" -"(let-values(((or-part_99)(hash-ref(unbox boxed-table_0) phase_9 #f)))" -"(if or-part_99" -" or-part_99" -"(let-values(((val_15)(make_0)))" +"(let-values(((or-part_98)(hash-ref(unbox boxed-table_0) phase_9 #f)))" +"(if or-part_98" +" or-part_98" +"(let-values(((val_17)(make_0)))" "(let-values(((current_0)(unbox boxed-table_0)))" -"(let-values(((next_3)(hash-set current_0 key_25 val_15)))" +"(let-values(((next_3)(hash-set current_0 key_30 val_17)))" "(if(box-cas! boxed-table_0 current_0 next_3)" -" val_15" -"(transaction-loop_0 boxed-table_0 key_25 make_0)))))))))))" +" val_17" +"(transaction-loop_0 boxed-table_0 key_30 make_0)))))))))))" "(if(phase? phase_9)" "(let-values()" -"(let-values(((or-part_100)(hash-ref(unbox(multi-scope-shifted multi-scope_1)) phase_9 #f)))" -"(if or-part_100" -" or-part_100" +"(let-values(((or-part_99)(hash-ref(unbox(multi-scope-shifted multi-scope_1)) phase_9 #f)))" +"(if or-part_99" +" or-part_99" "(transaction-loop_0" "(multi-scope-shifted multi-scope_1)" " phase_9" "(lambda()(shifted-multi-scope4.1 phase_9 multi-scope_1))))))" "(let-values()" -"(let-values(((or-part_101)(hash-ref(unbox(multi-scope-label-shifted multi-scope_1)) phase_9 #f)))" -"(if or-part_101" -" or-part_101" +"(let-values(((or-part_100)(hash-ref(unbox(multi-scope-label-shifted multi-scope_1)) phase_9 #f)))" +"(if or-part_100" +" or-part_100" "(transaction-loop_0" "(multi-scope-label-shifted multi-scope_1)" " phase_9" @@ -8462,17 +8627,17 @@ static const char *startup_source = "(multi-scope-to-scope-at-phase)" "(lambda(ms_2 phase_10)" "(begin" -"(let-values(((or-part_102)(hash-ref(multi-scope-scopes ms_2) phase_10 #f)))" -"(if or-part_102" -" or-part_102" -"(let-values(((s_85)" +"(let-values(((or-part_101)(hash-ref(multi-scope-scopes ms_2) phase_10 #f)))" +"(if or-part_101" +" or-part_101" +"(let-values(((s_91)" "(representative-scope3.1" "(if(deserialized-scope-id?(multi-scope-id ms_2))(new-deserialize-scope-id!)(new-scope-id!))" " 'module" " empty-binding-table" " ms_2" " phase_10)))" -"(begin(hash-set!(multi-scope-scopes ms_2) phase_10 s_85) s_85)))))))" +"(begin(hash-set!(multi-scope-scopes ms_2) phase_10 s_91) s_91)))))))" "(define-values(scope>?)(lambda(sc1_0 sc2_0)(begin(>(scope-id sc1_0)(scope-id sc2_0)))))" "(define-values(scope_2)" "(lambda(sub-s_1)" "(begin" " 's->" "(if(propagation? prop_3)" -"(let-values(((the-struct_11) sub-s_1))" -"(if(syntax?$1 the-struct_11)" +"(let-values(((the-struct_14) sub-s_1))" +"(if(syntax?$1 the-struct_14)" "(let-values(((scopes48_1)" -"(propagation-apply prop_3(syntax-scopes sub-s_1) s_86))" +"(propagation-apply prop_3(syntax-scopes sub-s_1) s_92))" "((shifted-multi-scopes49_0)" "(propagation-apply-shifted" " prop_3" "(syntax-shifted-multi-scopes sub-s_1)" -" s_86))" +" s_92))" "((mpi-shifts50_0)" "(propagation-apply-mpi-shifts" " prop_3" "(syntax-mpi-shifts sub-s_1)" -" s_86))" +" s_92))" "((inspector51_0)" "(propagation-apply-inspector" " prop_3" @@ -8532,18 +8697,18 @@ static const char *startup_source = "(syntax-shifted-multi-scopes sub-s_1)" "(syntax-mpi-shifts sub-s_1))))" "(syntax1.1" -"(syntax-content the-struct_11)" +"(syntax-content the-struct_14)" " scopes48_1" " shifted-multi-scopes49_0" " scope-propagations+tamper52_0" " mpi-shifts50_0" -"(syntax-srcloc the-struct_11)" -"(syntax-props the-struct_11)" +"(syntax-srcloc the-struct_14)" +"(syntax-props the-struct_14)" " inspector51_0))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_11)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_14)))" "(let-values(((stx_8) sub-s_1))" -"(let-values(((the-struct_12) stx_8))" -"(if(syntax?$1 the-struct_12)" +"(let-values(((the-struct_15) stx_8))" +"(if(syntax?$1 the-struct_15)" "(let-values(((scope-propagations+tamper53_0)" "(let-values(((t_32)" "(tamper-tainted-for-content" @@ -8554,17 +8719,17 @@ static const char *startup_source = " t_32" "((propagation-set-tamper-ref p_27) p_27 t_32)))))" "(syntax1.1" -"(syntax-content the-struct_12)" -"(syntax-scopes the-struct_12)" -"(syntax-shifted-multi-scopes the-struct_12)" +"(syntax-content the-struct_15)" +"(syntax-scopes the-struct_15)" +"(syntax-shifted-multi-scopes the-struct_15)" " scope-propagations+tamper53_0" -"(syntax-mpi-shifts the-struct_12)" -"(syntax-srcloc the-struct_12)" -"(syntax-props the-struct_12)" -"(syntax-inspector the-struct_12)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_12))))))))" +"(syntax-mpi-shifts the-struct_15)" +"(syntax-srcloc the-struct_15)" +"(syntax-props the-struct_15)" +"(syntax-inspector the-struct_15)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_15))))))))" "((seen_9) #f))" -"(let-values(((s_88) s_87)" +"(let-values(((s_94) s_93)" "((f_28)" "(lambda(tail?_20 v_78)" "(begin" @@ -8574,7 +8739,7 @@ static const char *startup_source = "(let-values()(f_27 tail?_20 v_78))))))" "((seen_10) seen_9))" "((letrec-values(((loop_67)" -"(lambda(tail?_21 s_89 prev-depth_4)" +"(lambda(tail?_21 s_95 prev-depth_4)" "(begin" " 'loop" "(let-values(((depth_4)(add1 prev-depth_4)))" @@ -8582,58 +8747,58 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_21" -" s_89" -"(lambda(tail?_22 s_90)(f_28 tail?_22 s_90))" +" s_95" +"(lambda(tail?_22 s_96)(f_28 tail?_22 s_96))" " seen_10))" -"(if(null? s_89)" -"(let-values()(f_28 tail?_21 s_89))" -"(if(pair? s_89)" +"(if(null? s_95)" +"(let-values()(f_28 tail?_21 s_95))" +"(if(pair? s_95)" "(let-values()" "(f_28" " tail?_21" "(cons" -"(loop_67 #f(car s_89) depth_4)" -"(loop_67 #t(cdr s_89) depth_4))))" -"(if(let-values(((or-part_104)(symbol? s_89)))" -"(if or-part_104" -" or-part_104" -"(let-values(((or-part_105)(boolean? s_89)))" -"(if or-part_105 or-part_105(number? s_89)))))" -"(let-values()(f_28 #f s_89))" -"(if(let-values(((or-part_106)(vector? s_89)))" +"(loop_67 #f(car s_95) depth_4)" +"(loop_67 #t(cdr s_95) depth_4))))" +"(if(let-values(((or-part_103)(symbol? s_95)))" +"(if or-part_103" +" or-part_103" +"(let-values(((or-part_104)(boolean? s_95)))" +"(if or-part_104 or-part_104(number? s_95)))))" +"(let-values()(f_28 #f s_95))" +"(if(let-values(((or-part_105)(vector? s_95)))" +"(if or-part_105" +" or-part_105" +"(let-values(((or-part_106)(box? s_95)))" "(if or-part_106" " or-part_106" -"(let-values(((or-part_107)(box? s_89)))" -"(if or-part_107" -" or-part_107" -"(let-values(((or-part_108)" -"(prefab-struct-key s_89)))" -"(if or-part_108 or-part_108(hash? s_89)))))))" +"(let-values(((or-part_107)" +"(prefab-struct-key s_95)))" +"(if or-part_107 or-part_107(hash? s_95)))))))" "(let-values()" "(datum-map-slow" " tail?_21" -" s_89" -"(lambda(tail?_23 s_91)(f_28 tail?_23 s_91))" +" s_95" +"(lambda(tail?_23 s_97)(f_28 tail?_23 s_97))" " seen_10))" -"(let-values()(f_28 #f s_89))))))))))))" +"(let-values()(f_28 #f s_95))))))))))))" " loop_67)" " #f" -" s_88" +" s_94" " 0)))))" "(begin" -"(set-syntax-content! s_86 new-content_0)" +"(set-syntax-content! s_92 new-content_0)" "(set-syntax-scope-propagations+tamper!" -" s_86" +" s_92" "(tamper-propagated(if(propagation? prop_3)(propagation-tamper prop_3) prop_3)))" " new-content_0))" -"(syntax-content s_86))))))" +"(syntax-content s_92))))))" "(define-values" "(syntax-e$1)" -"(lambda(s_92)" +"(lambda(s_98)" "(begin" " 'syntax-e" -"(let-values(((content_6)(syntax-e/no-taint s_92)))" -"(if(not(tamper-armed?(syntax-tamper s_92)))" +"(let-values(((content_6)(syntax-e/no-taint s_98)))" +"(if(not(tamper-armed?(syntax-tamper s_98)))" "(let-values() content_6)" "(if(datum-has-elements? content_6)(let-values()(taint-content content_6))(let-values() content_6)))))))" "(define-values" @@ -8645,238 +8810,238 @@ static const char *startup_source = " sc_7))))" "(define-values" "(add-scope)" -"(lambda(s_93 sc_8)" +"(lambda(s_99 sc_8)" "(begin" -"(let-values(((s_94) s_93)((sc_9)(generalize-scope sc_8))((op_0) set-add)((prop-op_0) propagation-add))" +"(let-values(((s_100) s_99)((sc_9)(generalize-scope sc_8))((op_0) set-add)((prop-op_0) propagation-add))" "(if(shifted-multi-scope? sc_9)" -"(let-values(((the-struct_13) s_94))" -"(if(syntax?$1 the-struct_13)" +"(let-values(((the-struct_16) s_100))" +"(if(syntax?$1 the-struct_16)" "(let-values(((shifted-multi-scopes54_0)" "(fallback-update-first" -"(syntax-shifted-multi-scopes s_94)" +"(syntax-shifted-multi-scopes s_100)" "(lambda(smss_9)(op_0(fallback-first smss_9) sc_9))))" "((scope-propagations+tamper55_0)" -"(if(datum-has-elements?(syntax-content s_94))" +"(if(datum-has-elements?(syntax-content s_100))" "(prop-op_0" -"(syntax-scope-propagations+tamper s_94)" +"(syntax-scope-propagations+tamper s_100)" " sc_9" -"(syntax-scopes s_94)" -"(syntax-shifted-multi-scopes s_94)" -"(syntax-mpi-shifts s_94))" -"(syntax-scope-propagations+tamper s_94))))" -"(syntax1.1" -"(syntax-content the-struct_13)" -"(syntax-scopes the-struct_13)" -" shifted-multi-scopes54_0" -" scope-propagations+tamper55_0" -"(syntax-mpi-shifts the-struct_13)" -"(syntax-srcloc the-struct_13)" -"(syntax-props the-struct_13)" -"(syntax-inspector the-struct_13)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_13)))" -"(let-values(((the-struct_14) s_94))" -"(if(syntax?$1 the-struct_14)" -"(let-values(((scopes56_0)(op_0(syntax-scopes s_94) sc_9))" -"((scope-propagations+tamper57_0)" -"(if(datum-has-elements?(syntax-content s_94))" -"(prop-op_0" -"(syntax-scope-propagations+tamper s_94)" -" sc_9" -"(syntax-scopes s_94)" -"(syntax-shifted-multi-scopes s_94)" -"(syntax-mpi-shifts s_94))" -"(syntax-scope-propagations+tamper s_94))))" -"(syntax1.1" -"(syntax-content the-struct_14)" -" scopes56_0" -"(syntax-shifted-multi-scopes the-struct_14)" -" scope-propagations+tamper57_0" -"(syntax-mpi-shifts the-struct_14)" -"(syntax-srcloc the-struct_14)" -"(syntax-props the-struct_14)" -"(syntax-inspector the-struct_14)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_14))))))))" -"(define-values" -"(add-scopes)" -"(lambda(s_95 scs_5)" -"(begin" -"(let-values(((lst_43) scs_5))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_43)))" -"((letrec-values(((for-loop_56)" -"(lambda(s_96 lst_44)" -"(begin" -" 'for-loop" -"(if(pair? lst_44)" -"(let-values(((sc_10)(unsafe-car lst_44))((rest_18)(unsafe-cdr lst_44)))" -"(let-values(((s_97)" -"(let-values(((s_98) s_96))" -"(let-values(((s_99)(let-values()(add-scope s_98 sc_10))))" -"(values s_99)))))" -"(if(not #f)(for-loop_56 s_97 rest_18) s_97)))" -" s_96)))))" -" for-loop_56)" -" s_95" -" lst_43))))))" -"(define-values" -"(remove-scope)" -"(lambda(s_100 sc_11)" -"(begin" -"(let-values(((s_101) s_100)" -"((sc_12)(generalize-scope sc_11))" -"((op_1) set-remove)" -"((prop-op_1) propagation-remove))" -"(if(shifted-multi-scope? sc_12)" -"(let-values(((the-struct_15) s_101))" -"(if(syntax?$1 the-struct_15)" -"(let-values(((shifted-multi-scopes58_0)" -"(fallback-update-first" -"(syntax-shifted-multi-scopes s_101)" -"(lambda(smss_10)(op_1(fallback-first smss_10) sc_12))))" -"((scope-propagations+tamper59_0)" -"(if(datum-has-elements?(syntax-content s_101))" -"(prop-op_1" -"(syntax-scope-propagations+tamper s_101)" -" sc_12" -"(syntax-scopes s_101)" -"(syntax-shifted-multi-scopes s_101)" -"(syntax-mpi-shifts s_101))" -"(syntax-scope-propagations+tamper s_101))))" -"(syntax1.1" -"(syntax-content the-struct_15)" -"(syntax-scopes the-struct_15)" -" shifted-multi-scopes58_0" -" scope-propagations+tamper59_0" -"(syntax-mpi-shifts the-struct_15)" -"(syntax-srcloc the-struct_15)" -"(syntax-props the-struct_15)" -"(syntax-inspector the-struct_15)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_15)))" -"(let-values(((the-struct_16) s_101))" -"(if(syntax?$1 the-struct_16)" -"(let-values(((scopes60_0)(op_1(syntax-scopes s_101) sc_12))" -"((scope-propagations+tamper61_0)" -"(if(datum-has-elements?(syntax-content s_101))" -"(prop-op_1" -"(syntax-scope-propagations+tamper s_101)" -" sc_12" -"(syntax-scopes s_101)" -"(syntax-shifted-multi-scopes s_101)" -"(syntax-mpi-shifts s_101))" -"(syntax-scope-propagations+tamper s_101))))" +"(syntax-scopes s_100)" +"(syntax-shifted-multi-scopes s_100)" +"(syntax-mpi-shifts s_100))" +"(syntax-scope-propagations+tamper s_100))))" "(syntax1.1" "(syntax-content the-struct_16)" -" scopes60_0" -"(syntax-shifted-multi-scopes the-struct_16)" -" scope-propagations+tamper61_0" +"(syntax-scopes the-struct_16)" +" shifted-multi-scopes54_0" +" scope-propagations+tamper55_0" "(syntax-mpi-shifts the-struct_16)" "(syntax-srcloc the-struct_16)" "(syntax-props the-struct_16)" "(syntax-inspector the-struct_16)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_16))))))))" -"(define-values" -"(remove-scopes)" -"(lambda(s_102 scs_6)" -"(begin" -"(let-values(((lst_45) scs_6))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_45)))" -"((letrec-values(((for-loop_39)" -"(lambda(s_103 lst_46)" -"(begin" -" 'for-loop" -"(if(pair? lst_46)" -"(let-values(((sc_13)(unsafe-car lst_46))((rest_19)(unsafe-cdr lst_46)))" -"(let-values(((s_104)" -"(let-values(((s_105) s_103))" -"(let-values(((s_106)(let-values()(remove-scope s_105 sc_13))))" -"(values s_106)))))" -"(if(not #f)(for-loop_39 s_104 rest_19) s_104)))" -" s_103)))))" -" for-loop_39)" -" s_102" -" lst_45))))))" -"(define-values" -"(set-flip)" -"(lambda(s_107 e_15)(begin(if(set-member? s_107 e_15)(set-remove s_107 e_15)(set-add s_107 e_15)))))" -"(define-values" -"(flip-scope)" -"(lambda(s_108 sc_14)" -"(begin" -"(let-values(((s_109) s_108)((sc_15)(generalize-scope sc_14))((op_2) set-flip)((prop-op_2) propagation-flip))" -"(if(shifted-multi-scope? sc_15)" -"(let-values(((the-struct_17) s_109))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_16)))" +"(let-values(((the-struct_17) s_100))" "(if(syntax?$1 the-struct_17)" -"(let-values(((shifted-multi-scopes62_0)" -"(fallback-update-first" -"(syntax-shifted-multi-scopes s_109)" -"(lambda(smss_11)(op_2(fallback-first smss_11) sc_15))))" -"((scope-propagations+tamper63_0)" -"(if(datum-has-elements?(syntax-content s_109))" -"(prop-op_2" -"(syntax-scope-propagations+tamper s_109)" -" sc_15" -"(syntax-scopes s_109)" -"(syntax-shifted-multi-scopes s_109)" -"(syntax-mpi-shifts s_109))" -"(syntax-scope-propagations+tamper s_109))))" +"(let-values(((scopes56_0)(op_0(syntax-scopes s_100) sc_9))" +"((scope-propagations+tamper57_0)" +"(if(datum-has-elements?(syntax-content s_100))" +"(prop-op_0" +"(syntax-scope-propagations+tamper s_100)" +" sc_9" +"(syntax-scopes s_100)" +"(syntax-shifted-multi-scopes s_100)" +"(syntax-mpi-shifts s_100))" +"(syntax-scope-propagations+tamper s_100))))" "(syntax1.1" "(syntax-content the-struct_17)" -"(syntax-scopes the-struct_17)" -" shifted-multi-scopes62_0" -" scope-propagations+tamper63_0" +" scopes56_0" +"(syntax-shifted-multi-scopes the-struct_17)" +" scope-propagations+tamper57_0" "(syntax-mpi-shifts the-struct_17)" "(syntax-srcloc the-struct_17)" "(syntax-props the-struct_17)" "(syntax-inspector the-struct_17)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_17)))" -"(let-values(((the-struct_18) s_109))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_17))))))))" +"(define-values" +"(add-scopes)" +"(lambda(s_101 scs_5)" +"(begin" +"(let-values(((lst_43) scs_5))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_43)))" +"((letrec-values(((for-loop_58)" +"(lambda(s_102 lst_44)" +"(begin" +" 'for-loop" +"(if(pair? lst_44)" +"(let-values(((sc_10)(unsafe-car lst_44))((rest_18)(unsafe-cdr lst_44)))" +"(let-values(((s_103)" +"(let-values(((s_104) s_102))" +"(let-values(((s_105)(let-values()(add-scope s_104 sc_10))))" +"(values s_105)))))" +"(if(not #f)(for-loop_58 s_103 rest_18) s_103)))" +" s_102)))))" +" for-loop_58)" +" s_101" +" lst_43))))))" +"(define-values" +"(remove-scope)" +"(lambda(s_106 sc_11)" +"(begin" +"(let-values(((s_107) s_106)" +"((sc_12)(generalize-scope sc_11))" +"((op_1) set-remove)" +"((prop-op_1) propagation-remove))" +"(if(shifted-multi-scope? sc_12)" +"(let-values(((the-struct_18) s_107))" "(if(syntax?$1 the-struct_18)" -"(let-values(((scopes64_0)(op_2(syntax-scopes s_109) sc_15))" -"((scope-propagations+tamper65_0)" -"(if(datum-has-elements?(syntax-content s_109))" -"(prop-op_2" -"(syntax-scope-propagations+tamper s_109)" -" sc_15" -"(syntax-scopes s_109)" -"(syntax-shifted-multi-scopes s_109)" -"(syntax-mpi-shifts s_109))" -"(syntax-scope-propagations+tamper s_109))))" +"(let-values(((shifted-multi-scopes58_0)" +"(fallback-update-first" +"(syntax-shifted-multi-scopes s_107)" +"(lambda(smss_10)(op_1(fallback-first smss_10) sc_12))))" +"((scope-propagations+tamper59_0)" +"(if(datum-has-elements?(syntax-content s_107))" +"(prop-op_1" +"(syntax-scope-propagations+tamper s_107)" +" sc_12" +"(syntax-scopes s_107)" +"(syntax-shifted-multi-scopes s_107)" +"(syntax-mpi-shifts s_107))" +"(syntax-scope-propagations+tamper s_107))))" "(syntax1.1" "(syntax-content the-struct_18)" -" scopes64_0" -"(syntax-shifted-multi-scopes the-struct_18)" -" scope-propagations+tamper65_0" +"(syntax-scopes the-struct_18)" +" shifted-multi-scopes58_0" +" scope-propagations+tamper59_0" "(syntax-mpi-shifts the-struct_18)" "(syntax-srcloc the-struct_18)" "(syntax-props the-struct_18)" "(syntax-inspector the-struct_18)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_18))))))))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_18)))" +"(let-values(((the-struct_19) s_107))" +"(if(syntax?$1 the-struct_19)" +"(let-values(((scopes60_0)(op_1(syntax-scopes s_107) sc_12))" +"((scope-propagations+tamper61_0)" +"(if(datum-has-elements?(syntax-content s_107))" +"(prop-op_1" +"(syntax-scope-propagations+tamper s_107)" +" sc_12" +"(syntax-scopes s_107)" +"(syntax-shifted-multi-scopes s_107)" +"(syntax-mpi-shifts s_107))" +"(syntax-scope-propagations+tamper s_107))))" +"(syntax1.1" +"(syntax-content the-struct_19)" +" scopes60_0" +"(syntax-shifted-multi-scopes the-struct_19)" +" scope-propagations+tamper61_0" +"(syntax-mpi-shifts the-struct_19)" +"(syntax-srcloc the-struct_19)" +"(syntax-props the-struct_19)" +"(syntax-inspector the-struct_19)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_19))))))))" +"(define-values" +"(remove-scopes)" +"(lambda(s_108 scs_6)" +"(begin" +"(let-values(((lst_45) scs_6))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_45)))" +"((letrec-values(((for-loop_40)" +"(lambda(s_109 lst_46)" +"(begin" +" 'for-loop" +"(if(pair? lst_46)" +"(let-values(((sc_13)(unsafe-car lst_46))((rest_19)(unsafe-cdr lst_46)))" +"(let-values(((s_110)" +"(let-values(((s_111) s_109))" +"(let-values(((s_112)(let-values()(remove-scope s_111 sc_13))))" +"(values s_112)))))" +"(if(not #f)(for-loop_40 s_110 rest_19) s_110)))" +" s_109)))))" +" for-loop_40)" +" s_108" +" lst_45))))))" +"(define-values" +"(set-flip)" +"(lambda(s_113 e_15)(begin(if(set-member? s_113 e_15)(set-remove s_113 e_15)(set-add s_113 e_15)))))" +"(define-values" +"(flip-scope)" +"(lambda(s_114 sc_14)" +"(begin" +"(let-values(((s_115) s_114)((sc_15)(generalize-scope sc_14))((op_2) set-flip)((prop-op_2) propagation-flip))" +"(if(shifted-multi-scope? sc_15)" +"(let-values(((the-struct_20) s_115))" +"(if(syntax?$1 the-struct_20)" +"(let-values(((shifted-multi-scopes62_0)" +"(fallback-update-first" +"(syntax-shifted-multi-scopes s_115)" +"(lambda(smss_11)(op_2(fallback-first smss_11) sc_15))))" +"((scope-propagations+tamper63_0)" +"(if(datum-has-elements?(syntax-content s_115))" +"(prop-op_2" +"(syntax-scope-propagations+tamper s_115)" +" sc_15" +"(syntax-scopes s_115)" +"(syntax-shifted-multi-scopes s_115)" +"(syntax-mpi-shifts s_115))" +"(syntax-scope-propagations+tamper s_115))))" +"(syntax1.1" +"(syntax-content the-struct_20)" +"(syntax-scopes the-struct_20)" +" shifted-multi-scopes62_0" +" scope-propagations+tamper63_0" +"(syntax-mpi-shifts the-struct_20)" +"(syntax-srcloc the-struct_20)" +"(syntax-props the-struct_20)" +"(syntax-inspector the-struct_20)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_20)))" +"(let-values(((the-struct_21) s_115))" +"(if(syntax?$1 the-struct_21)" +"(let-values(((scopes64_0)(op_2(syntax-scopes s_115) sc_15))" +"((scope-propagations+tamper65_0)" +"(if(datum-has-elements?(syntax-content s_115))" +"(prop-op_2" +"(syntax-scope-propagations+tamper s_115)" +" sc_15" +"(syntax-scopes s_115)" +"(syntax-shifted-multi-scopes s_115)" +"(syntax-mpi-shifts s_115))" +"(syntax-scope-propagations+tamper s_115))))" +"(syntax1.1" +"(syntax-content the-struct_21)" +" scopes64_0" +"(syntax-shifted-multi-scopes the-struct_21)" +" scope-propagations+tamper65_0" +"(syntax-mpi-shifts the-struct_21)" +"(syntax-srcloc the-struct_21)" +"(syntax-props the-struct_21)" +"(syntax-inspector the-struct_21)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_21))))))))" "(define-values" "(flip-scopes)" -"(lambda(s_110 scs_7)" +"(lambda(s_116 scs_7)" "(begin" "(let-values(((lst_47) scs_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_47)))" -"((letrec-values(((for-loop_57)" -"(lambda(s_111 lst_48)" +"((letrec-values(((for-loop_59)" +"(lambda(s_117 lst_48)" "(begin" " 'for-loop" "(if(pair? lst_48)" "(let-values(((sc_16)(unsafe-car lst_48))((rest_20)(unsafe-cdr lst_48)))" -"(let-values(((s_112)" -"(let-values(((s_113) s_111))" -"(let-values(((s_114)(let-values()(flip-scope s_113 sc_16))))" -"(values s_114)))))" -"(if(not #f)(for-loop_57 s_112 rest_20) s_112)))" -" s_111)))))" -" for-loop_57)" -" s_110" +"(let-values(((s_118)" +"(let-values(((s_119) s_117))" +"(let-values(((s_120)(let-values()(flip-scope s_119 sc_16))))" +"(values s_120)))))" +"(if(not #f)(for-loop_59 s_118 rest_20) s_118)))" +" s_117)))))" +" for-loop_59)" +" s_116" " lst_47))))))" "(define-values" "(push-scope)" -"(lambda(s_115 sms_6)" +"(lambda(s_121 sms_6)" "(begin" "(let-values(((smss/maybe-fallbacks66_0) #f))" "(let-values(((prev-result_0) #f))" @@ -8902,34 +9067,34 @@ static const char *startup_source = "(set! smss/maybe-fallbacks66_0 smss/maybe-fallbacks_0)" "(set! prev-result_0 r_22)" " r_22))))))))" -"(let-values(((s_116) s_115)" +"(let-values(((s_122) s_121)" "((f_29)(lambda(tail?_24 x_34)(begin 'f x_34)))" "((d->s_1)" -"(lambda(s_117 d_3)" +"(lambda(s_123 d_3)" "(begin" " 'd->s" -"(let-values(((the-struct_19) s_117))" -"(if(syntax?$1 the-struct_19)" +"(let-values(((the-struct_22) s_123))" +"(if(syntax?$1 the-struct_22)" "(let-values(((content67_0) d_3)" "((shifted-multi-scopes68_0)" -"(push_0(syntax-shifted-multi-scopes s_117))))" +"(push_0(syntax-shifted-multi-scopes s_123))))" "(syntax1.1" " content67_0" -"(syntax-scopes the-struct_19)" +"(syntax-scopes the-struct_22)" " shifted-multi-scopes68_0" -"(syntax-scope-propagations+tamper the-struct_19)" -"(syntax-mpi-shifts the-struct_19)" -"(syntax-srcloc the-struct_19)" -"(syntax-props the-struct_19)" -"(syntax-inspector the-struct_19)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_19))))))" +"(syntax-scope-propagations+tamper the-struct_22)" +"(syntax-mpi-shifts the-struct_22)" +"(syntax-srcloc the-struct_22)" +"(syntax-props the-struct_22)" +"(syntax-inspector the-struct_22)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_22))))))" "((s-e_1) syntax-e/no-taint)" "((seen_11) #f))" "((letrec-values(((loop_68)" -"(lambda(s_118)" +"(lambda(s_124)" "(begin" " 'loop" -"(let-values(((s_119) s_118)" +"(let-values(((s_125) s_124)" "((f_30)" "(lambda(tail?_25 v_79)" "(begin" @@ -8939,7 +9104,7 @@ static const char *startup_source = "(let-values()(f_29 tail?_25 v_79))))))" "((seen_12) seen_11))" "((letrec-values(((loop_69)" -"(lambda(tail?_26 s_120 prev-depth_5)" +"(lambda(tail?_26 s_126 prev-depth_5)" "(begin" " 'loop" "(let-values(((depth_5)(add1 prev-depth_5)))" @@ -8947,53 +9112,53 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_26" -" s_120" -"(lambda(tail?_27 s_121)(f_30 tail?_27 s_121))" +" s_126" +"(lambda(tail?_27 s_127)(f_30 tail?_27 s_127))" " seen_12))" -"(if(null? s_120)" -"(let-values()(f_30 tail?_26 s_120))" -"(if(pair? s_120)" +"(if(null? s_126)" +"(let-values()(f_30 tail?_26 s_126))" +"(if(pair? s_126)" "(let-values()" "(f_30" " tail?_26" "(cons" -"(loop_69 #f(car s_120) depth_5)" -"(loop_69 #t(cdr s_120) depth_5))))" -"(if(let-values(((or-part_109)(symbol? s_120)))" +"(loop_69 #f(car s_126) depth_5)" +"(loop_69 #t(cdr s_126) depth_5))))" +"(if(let-values(((or-part_108)(symbol? s_126)))" +"(if or-part_108" +" or-part_108" +"(let-values(((or-part_109)" +"(boolean? s_126)))" "(if or-part_109" " or-part_109" -"(let-values(((or-part_110)" -"(boolean? s_120)))" +"(number? s_126)))))" +"(let-values()(f_30 #f s_126))" +"(if(let-values(((or-part_110)(vector? s_126)))" "(if or-part_110" " or-part_110" -"(number? s_120)))))" -"(let-values()(f_30 #f s_120))" -"(if(let-values(((or-part_111)(vector? s_120)))" +"(let-values(((or-part_111)(box? s_126)))" "(if or-part_111" " or-part_111" -"(let-values(((or-part_112)(box? s_120)))" +"(let-values(((or-part_112)" +"(prefab-struct-key" +" s_126)))" "(if or-part_112" " or-part_112" -"(let-values(((or-part_113)" -"(prefab-struct-key" -" s_120)))" -"(if or-part_113" -" or-part_113" -"(hash? s_120)))))))" +"(hash? s_126)))))))" "(let-values()" "(datum-map-slow" " tail?_26" -" s_120" -"(lambda(tail?_28 s_122)" -"(f_30 tail?_28 s_122))" +" s_126" +"(lambda(tail?_28 s_128)" +"(f_30 tail?_28 s_128))" " seen_12))" -"(let-values()(f_30 #f s_120))))))))))))" +"(let-values()(f_30 #f s_126))))))))))))" " loop_69)" " #f" -" s_119" +" s_125" " 0))))))" " loop_68)" -" s_116))))))))" +" s_122))))))))" "(define-values" "(struct:propagation" " propagation14.1" @@ -9040,36 +9205,36 @@ static const char *startup_source = "(lambda(prop_4 sc_17 prev-scs_0 prev-smss_0 prev-mss_0)" "(begin" "(if(propagation? prop_4)" -"(let-values(((the-struct_20) prop_4))" -"(if(propagation? the-struct_20)" +"(let-values(((the-struct_23) prop_4))" +"(if(propagation? the-struct_23)" "(let-values(((scope-ops70_0)(hash-set(propagation-scope-ops prop_4) sc_17 'add)))" "(propagation14.1" -"(propagation-prev-scs the-struct_20)" -"(propagation-prev-smss the-struct_20)" +"(propagation-prev-scs the-struct_23)" +"(propagation-prev-smss the-struct_23)" " scope-ops70_0" -"(propagation-prev-mss the-struct_20)" -"(propagation-add-mpi-shifts the-struct_20)" -"(propagation-inspector the-struct_20)" -"(propagation-tamper the-struct_20)))" -" (raise-argument-error 'struct-copy \"propagation?\" the-struct_20)))" +"(propagation-prev-mss the-struct_23)" +"(propagation-add-mpi-shifts the-struct_23)" +"(propagation-inspector the-struct_23)" +"(propagation-tamper the-struct_23)))" +" (raise-argument-error 'struct-copy \"propagation?\" the-struct_23)))" "(propagation14.1 prev-scs_0 prev-smss_0(hasheq sc_17 'add) prev-mss_0 #f #f prop_4)))))" "(define-values" "(propagation-remove)" "(lambda(prop_5 sc_18 prev-scs_1 prev-smss_1 prev-mss_1)" "(begin" "(if(propagation? prop_5)" -"(let-values(((the-struct_21) prop_5))" -"(if(propagation? the-struct_21)" +"(let-values(((the-struct_24) prop_5))" +"(if(propagation? the-struct_24)" "(let-values(((scope-ops71_0)(hash-set(propagation-scope-ops prop_5) sc_18 'remove)))" "(propagation14.1" -"(propagation-prev-scs the-struct_21)" -"(propagation-prev-smss the-struct_21)" +"(propagation-prev-scs the-struct_24)" +"(propagation-prev-smss the-struct_24)" " scope-ops71_0" -"(propagation-prev-mss the-struct_21)" -"(propagation-add-mpi-shifts the-struct_21)" -"(propagation-inspector the-struct_21)" -"(propagation-tamper the-struct_21)))" -" (raise-argument-error 'struct-copy \"propagation?\" the-struct_21)))" +"(propagation-prev-mss the-struct_24)" +"(propagation-add-mpi-shifts the-struct_24)" +"(propagation-inspector the-struct_24)" +"(propagation-tamper the-struct_24)))" +" (raise-argument-error 'struct-copy \"propagation?\" the-struct_24)))" "(propagation14.1 prev-scs_1 prev-smss_1(hasheq sc_18 'remove) prev-mss_1 #f #f prop_5)))))" "(define-values" "(propagation-flip)" @@ -9085,8 +9250,8 @@ static const char *startup_source = " #f)" "(let-values() #f)" "(let-values()" -"(let-values(((the-struct_22) prop_6))" -"(if(propagation? the-struct_22)" +"(let-values(((the-struct_25) prop_6))" +"(if(propagation? the-struct_25)" "(let-values(((scope-ops72_0)" "(if(eq? current-op_0 'flip)" "(hash-remove ops_0 sc_19)" @@ -9098,39 +9263,39 @@ static const char *startup_source = "(let-values() 'remove)" "(if(equal? tmp_9 'remove)(let-values() 'add)(let-values() 'flip))))))))" "(propagation14.1" -"(propagation-prev-scs the-struct_22)" -"(propagation-prev-smss the-struct_22)" +"(propagation-prev-scs the-struct_25)" +"(propagation-prev-smss the-struct_25)" " scope-ops72_0" -"(propagation-prev-mss the-struct_22)" -"(propagation-add-mpi-shifts the-struct_22)" -"(propagation-inspector the-struct_22)" -"(propagation-tamper the-struct_22)))" -" (raise-argument-error 'struct-copy \"propagation?\" the-struct_22)))))))" +"(propagation-prev-mss the-struct_25)" +"(propagation-add-mpi-shifts the-struct_25)" +"(propagation-inspector the-struct_25)" +"(propagation-tamper the-struct_25)))" +" (raise-argument-error 'struct-copy \"propagation?\" the-struct_25)))))))" "(propagation14.1 prev-scs_2 prev-smss_2(hasheq sc_19 'flip) prev-mss_2 #f #f prop_6)))))" "(define-values" "(propagation-mpi-shift)" "(lambda(prop_7 add_0 inspector_2 prev-scs_3 prev-smss_3 prev-mss_3)" "(begin" "(if(propagation? prop_7)" -"(let-values(((the-struct_23) prop_7))" -"(if(propagation? the-struct_23)" +"(let-values(((the-struct_26) prop_7))" +"(if(propagation? the-struct_26)" "(let-values(((add-mpi-shifts73_0)" "(let-values(((base-add_0)(propagation-add-mpi-shifts prop_7)))" "(if(if add_0 base-add_0 #f)" "(lambda(mss_0)(begin 'add-mpi-shifts73(add_0(base-add_0 mss_0))))" -"(let-values(((or-part_114) add_0))(if or-part_114 or-part_114 base-add_0)))))" +"(let-values(((or-part_113) add_0))(if or-part_113 or-part_113 base-add_0)))))" "((inspector74_0)" -"(let-values(((or-part_115)(propagation-inspector prop_7)))" -"(if or-part_115 or-part_115 inspector_2))))" +"(let-values(((or-part_114)(propagation-inspector prop_7)))" +"(if or-part_114 or-part_114 inspector_2))))" "(propagation14.1" -"(propagation-prev-scs the-struct_23)" -"(propagation-prev-smss the-struct_23)" -"(propagation-scope-ops the-struct_23)" -"(propagation-prev-mss the-struct_23)" +"(propagation-prev-scs the-struct_26)" +"(propagation-prev-smss the-struct_26)" +"(propagation-scope-ops the-struct_26)" +"(propagation-prev-mss the-struct_26)" " add-mpi-shifts73_0" " inspector74_0" -"(propagation-tamper the-struct_23)))" -" (raise-argument-error 'struct-copy \"propagation?\" the-struct_23)))" +"(propagation-tamper the-struct_26)))" +" (raise-argument-error 'struct-copy \"propagation?\" the-struct_26)))" "(propagation14.1 prev-scs_3 prev-smss_3 '#hasheq() prev-mss_3 add_0 inspector_2 prop_7)))))" "(define-values" "(propagation-apply)" @@ -9140,18 +9305,18 @@ static const char *startup_source = "(let-values()(syntax-scopes parent-s_0))" "(let-values()" "(let-values(((new-scs_0)" -"(let-values(((ht_52)(propagation-scope-ops prop_8)))" +"(let-values(((ht_53)(propagation-scope-ops prop_8)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_52)))" -"((letrec-values(((for-loop_58)" -"(lambda(scs_9 i_65)" +"(let-values()(check-in-immutable-hash ht_53)))" +"((letrec-values(((for-loop_60)" +"(lambda(scs_9 i_66)" "(begin" " 'for-loop" -"(if i_65" +"(if i_66" "(let-values(((sc_20 op_3)" -"(unsafe-immutable-hash-iterate-key+value ht_52 i_65)))" +"(unsafe-immutable-hash-iterate-key+value ht_53 i_66)))" "(let-values(((scs_10)" "(let-values(((scs_11) scs_9))" "(if(not(shifted-multi-scope? sc_20))" @@ -9176,14 +9341,14 @@ static const char *startup_source = "(values scs_13)))" " scs_11))))" "(if(not #f)" -"(for-loop_58" +"(for-loop_60" " scs_10" -"(unsafe-immutable-hash-iterate-next ht_52 i_65))" +"(unsafe-immutable-hash-iterate-next ht_53 i_66))" " scs_10)))" " scs_9)))))" -" for-loop_58)" +" for-loop_60)" " scs_8" -"(unsafe-immutable-hash-iterate-first ht_52))))))" +"(unsafe-immutable-hash-iterate-first ht_53))))))" "(if(set=? new-scs_0(syntax-scopes parent-s_0))" "(syntax-scopes parent-s_0)" "(cache-or-reuse-set new-scs_0))))))))" @@ -9195,18 +9360,18 @@ static const char *startup_source = "(let-values()(syntax-shifted-multi-scopes parent-s_1))" "(let-values()" "(let-values(((new-smss_0)" -"(let-values(((ht_53)(propagation-scope-ops prop_9)))" +"(let-values(((ht_54)(propagation-scope-ops prop_9)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_53)))" -"((letrec-values(((for-loop_59)" -"(lambda(smss_14 i_66)" +"(let-values()(check-in-immutable-hash ht_54)))" +"((letrec-values(((for-loop_61)" +"(lambda(smss_14 i_67)" "(begin" " 'for-loop" -"(if i_66" +"(if i_67" "(let-values(((sms_7 op_4)" -"(unsafe-immutable-hash-iterate-key+value ht_53 i_66)))" +"(unsafe-immutable-hash-iterate-key+value ht_54 i_67)))" "(let-values(((smss_15)" "(let-values(((smss_16) smss_14))" "(if(shifted-multi-scope? sms_7)" @@ -9237,14 +9402,14 @@ static const char *startup_source = "(values smss_18)))" " smss_16))))" "(if(not #f)" -"(for-loop_59" +"(for-loop_61" " smss_15" -"(unsafe-immutable-hash-iterate-next ht_53 i_66))" +"(unsafe-immutable-hash-iterate-next ht_54 i_67))" " smss_15)))" " smss_14)))))" -" for-loop_59)" +" for-loop_61)" " smss_13" -"(unsafe-immutable-hash-iterate-first ht_53))))))" +"(unsafe-immutable-hash-iterate-first ht_54))))))" "(let-values(((parent-smss_0)(syntax-shifted-multi-scopes parent-s_1)))" "(if(if(set? new-smss_0)(if(set? parent-smss_0)(set=? new-smss_0 parent-smss_0) #f) #f)" " parent-smss_0" @@ -9258,25 +9423,25 @@ static const char *startup_source = "(let-values()(let-values(((add_1)(propagation-add-mpi-shifts prop_10)))(if add_1(add_1 mss_1) mss_1)))))))" "(define-values" "(propagation-apply-inspector)" -"(lambda(prop_11 i_67)" -"(begin(let-values(((or-part_116) i_67))(if or-part_116 or-part_116(propagation-inspector prop_11))))))" +"(lambda(prop_11 i_68)" +"(begin(let-values(((or-part_115) i_68))(if or-part_115 or-part_115(propagation-inspector prop_11))))))" "(define-values" "(propagation-set-tamper)" "(lambda(prop_12 t_33)" "(begin" "(if(propagation? prop_12)" -"(let-values(((the-struct_24) prop_12))" -"(if(propagation? the-struct_24)" +"(let-values(((the-struct_27) prop_12))" +"(if(propagation? the-struct_27)" "(let-values(((tamper75_0) t_33))" "(propagation14.1" -"(propagation-prev-scs the-struct_24)" -"(propagation-prev-smss the-struct_24)" -"(propagation-scope-ops the-struct_24)" -"(propagation-prev-mss the-struct_24)" -"(propagation-add-mpi-shifts the-struct_24)" -"(propagation-inspector the-struct_24)" +"(propagation-prev-scs the-struct_27)" +"(propagation-prev-smss the-struct_27)" +"(propagation-scope-ops the-struct_27)" +"(propagation-prev-mss the-struct_27)" +"(propagation-add-mpi-shifts the-struct_27)" +"(propagation-inspector the-struct_27)" " tamper75_0))" -" (raise-argument-error 'struct-copy \"propagation?\" the-struct_24)))" +" (raise-argument-error 'struct-copy \"propagation?\" the-struct_27)))" " t_33))))" "(define-values" "(propagation-merge)" @@ -9305,19 +9470,19 @@ static const char *startup_source = "(if(tamper-tainted?(propagation-tamper prop_13)) 'tainted/need-propagate base-prop_0)))))" "(let-values()" "(let-values(((new-ops_0)" -"(let-values(((ht_54)(propagation-scope-ops prop_13)))" +"(let-values(((ht_55)(propagation-scope-ops prop_13)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_54)))" -"((letrec-values(((for-loop_60)" +"(let-values()(check-in-immutable-hash ht_55)))" +"((letrec-values(((for-loop_62)" "(lambda(ops_1 i_15)" "(begin" " 'for-loop" "(if i_15" "(let-values(((sc_21 op_5)" "(unsafe-immutable-hash-iterate-key+value" -" ht_54" +" ht_55" " i_15)))" "(let-values(((ops_2)" "(let-values(((ops_3) ops_1))" @@ -9374,19 +9539,19 @@ static const char *startup_source = " 'flip))))))))))))))" "(values ops_4)))))" "(if(not #f)" -"(for-loop_60" +"(for-loop_62" " ops_2" -"(unsafe-immutable-hash-iterate-next ht_54 i_15))" +"(unsafe-immutable-hash-iterate-next ht_55 i_15))" " ops_2)))" " ops_1)))))" -" for-loop_60)" +" for-loop_62)" "(propagation-scope-ops base-prop_0)" -"(unsafe-immutable-hash-iterate-first ht_54))))))" +"(unsafe-immutable-hash-iterate-first ht_55))))))" "(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_117)(tamper-tainted?(propagation-tamper prop_13))))" -"(if or-part_117 or-part_117(tamper-tainted?(propagation-tamper base-prop_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))))" " 'tainted/need-propagate" "(propagation-tamper base-prop_0))))" "(if(if(zero?(hash-count new-ops_0))" @@ -9397,26 +9562,26 @@ static const char *startup_source = " #f)" " #f)" " new-tamper_0" -"(let-values(((the-struct_25) base-prop_0))" -"(if(propagation? the-struct_25)" +"(let-values(((the-struct_28) base-prop_0))" +"(if(propagation? the-struct_28)" "(let-values(((scope-ops76_0) new-ops_0)" "((add-mpi-shifts77_0)" "(if(if add_2 base-add_1 #f)" "(lambda(mss_2)(begin 'add-mpi-shifts77(add_2(base-add_1 mss_2))))" -"(let-values(((or-part_118) add_2))(if or-part_118 or-part_118 base-add_1))))" +"(let-values(((or-part_117) add_2))(if or-part_117 or-part_117 base-add_1))))" "((inspector78_0)" -"(let-values(((or-part_119)(propagation-inspector base-prop_0)))" -"(if or-part_119 or-part_119(propagation-inspector prop_13))))" +"(let-values(((or-part_118)(propagation-inspector base-prop_0)))" +"(if or-part_118 or-part_118(propagation-inspector prop_13))))" "((tamper79_0) new-tamper_0))" "(propagation14.1" -"(propagation-prev-scs the-struct_25)" -"(propagation-prev-smss the-struct_25)" +"(propagation-prev-scs the-struct_28)" +"(propagation-prev-smss the-struct_28)" " scope-ops76_0" -"(propagation-prev-mss the-struct_25)" +"(propagation-prev-mss the-struct_28)" " add-mpi-shifts77_0" " inspector78_0" " tamper79_0))" -" (raise-argument-error 'struct-copy \"propagation?\" the-struct_25))))))))))))))" +" (raise-argument-error 'struct-copy \"propagation?\" the-struct_28))))))))))))))" "(define-values" "(shift-multi-scope)" "(lambda(sms_8 delta_0)" @@ -9439,11 +9604,11 @@ static const char *startup_source = "(shifted-multi-scope-multi-scope sms_8)))))))))" "(define-values" "(syntax-shift-phase-level$1)" -"(lambda(s_123 phase_11)" +"(lambda(s_129 phase_11)" "(begin" " 'syntax-shift-phase-level" "(if(eqv? phase_11 0)" -" s_123" +" s_129" "(let-values()" "(let-values(((smss80_0) #f))" "(let-values(((prev-result_1) #f))" @@ -9459,20 +9624,20 @@ static const char *startup_source = "(fallback-map" " smss_20" "(lambda(smss_21)" -"(let-values(((ht_55) smss_21))" +"(let-values(((ht_56) smss_21))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_55)))" -"((letrec-values(((for-loop_61)" -"(lambda(table_65 i_68)" +"(let-values()(check-in-immutable-hash-keys ht_56)))" +"((letrec-values(((for-loop_63)" +"(lambda(table_65 i_69)" "(begin" " 'for-loop" -"(if i_68" +"(if i_69" "(let-values(((sms_9)" "(unsafe-immutable-hash-iterate-key" -" ht_55" -" i_68)))" +" ht_56" +" i_69)))" "(let-values(((table_66)" "(let-values(((new-sms_0)" "(shift-multi-scope" @@ -9480,7 +9645,7 @@ static const char *startup_source = " phase_11)))" "(begin" " #t" -"((letrec-values(((for-loop_62)" +"((letrec-values(((for-loop_64)" "(lambda(table_67)" "(begin" " 'for-loop" @@ -9493,8 +9658,8 @@ static const char *startup_source = " table_69))" "(let-values(((table_71)" "(let-values()" -"(let-values(((key_26" -" val_16)" +"(let-values(((key_31" +" val_18)" "(let-values()" "(values" "(let-values()" @@ -9502,54 +9667,54 @@ static const char *startup_source = " #t))))" "(hash-set" " table_70" -" key_26" -" val_16)))))" +" key_31" +" val_18)))))" "(values" " table_71)))" " table_69))))" " table_68))))))" -" for-loop_62)" +" for-loop_64)" " table_65)))))" "(if(not #f)" -"(for-loop_61" +"(for-loop_63" " table_66" "(unsafe-immutable-hash-iterate-next" -" ht_55" -" i_68))" +" ht_56" +" i_69))" " table_66)))" " table_65)))))" -" for-loop_61)" +" for-loop_63)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_55)))))))))" +"(unsafe-immutable-hash-iterate-first ht_56)))))))))" "(begin(set! smss80_0 smss_20)(set! prev-result_1 r_23) r_23))))))))" -"(let-values(((s_124) s_123)" +"(let-values(((s_130) s_129)" "((f_31)(lambda(tail?_29 d_4)(begin 'f d_4)))" "((d->s_2)" -"(lambda(s_125 d_5)" +"(lambda(s_131 d_5)" "(begin" " 'd->s" -"(let-values(((the-struct_26) s_125))" -"(if(syntax?$1 the-struct_26)" +"(let-values(((the-struct_29) s_131))" +"(if(syntax?$1 the-struct_29)" "(let-values(((content81_0) d_5)" "((shifted-multi-scopes82_0)" -"(shift-all_0(syntax-shifted-multi-scopes s_125))))" +"(shift-all_0(syntax-shifted-multi-scopes s_131))))" "(syntax1.1" " content81_0" -"(syntax-scopes the-struct_26)" +"(syntax-scopes the-struct_29)" " shifted-multi-scopes82_0" -"(syntax-scope-propagations+tamper the-struct_26)" -"(syntax-mpi-shifts the-struct_26)" -"(syntax-srcloc the-struct_26)" -"(syntax-props the-struct_26)" -"(syntax-inspector the-struct_26)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_26))))))" +"(syntax-scope-propagations+tamper the-struct_29)" +"(syntax-mpi-shifts the-struct_29)" +"(syntax-srcloc the-struct_29)" +"(syntax-props the-struct_29)" +"(syntax-inspector the-struct_29)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_29))))))" "((s-e_2) syntax-e/no-taint)" "((seen_13) #f))" "((letrec-values(((loop_70)" -"(lambda(s_126)" +"(lambda(s_132)" "(begin" " 'loop" -"(let-values(((s_127) s_126)" +"(let-values(((s_133) s_132)" "((f_32)" "(lambda(tail?_30 v_80)" "(begin" @@ -9559,7 +9724,7 @@ static const char *startup_source = "(let-values()(f_31 tail?_30 v_80))))))" "((seen_14) seen_13))" "((letrec-values(((loop_71)" -"(lambda(tail?_31 s_128 prev-depth_6)" +"(lambda(tail?_31 s_134 prev-depth_6)" "(begin" " 'loop" "(let-values(((depth_6)(add1 prev-depth_6)))" @@ -9567,81 +9732,81 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_31" -" s_128" -"(lambda(tail?_32 s_129)(f_32 tail?_32 s_129))" +" s_134" +"(lambda(tail?_32 s_135)(f_32 tail?_32 s_135))" " seen_14))" -"(if(null? s_128)" -"(let-values()(f_32 tail?_31 s_128))" -"(if(pair? s_128)" +"(if(null? s_134)" +"(let-values()(f_32 tail?_31 s_134))" +"(if(pair? s_134)" "(let-values()" "(f_32" " tail?_31" "(cons" -"(loop_71 #f(car s_128) depth_6)" -"(loop_71 #t(cdr s_128) depth_6))))" -"(if(let-values(((or-part_120)" -"(symbol? s_128)))" +"(loop_71 #f(car s_134) depth_6)" +"(loop_71 #t(cdr s_134) depth_6))))" +"(if(let-values(((or-part_119)" +"(symbol? s_134)))" +"(if or-part_119" +" or-part_119" +"(let-values(((or-part_120)" +"(boolean? s_134)))" "(if or-part_120" " or-part_120" -"(let-values(((or-part_121)" -"(boolean? s_128)))" +"(number? s_134)))))" +"(let-values()(f_32 #f s_134))" +"(if(let-values(((or-part_121)" +"(vector? s_134)))" "(if or-part_121" " or-part_121" -"(number? s_128)))))" -"(let-values()(f_32 #f s_128))" -"(if(let-values(((or-part_122)" -"(vector? s_128)))" +"(let-values(((or-part_122)" +"(box? s_134)))" "(if or-part_122" " or-part_122" "(let-values(((or-part_123)" -"(box? s_128)))" +"(prefab-struct-key" +" s_134)))" "(if or-part_123" " or-part_123" -"(let-values(((or-part_124)" -"(prefab-struct-key" -" s_128)))" -"(if or-part_124" -" or-part_124" -"(hash? s_128)))))))" +"(hash? s_134)))))))" "(let-values()" "(datum-map-slow" " tail?_31" -" s_128" -"(lambda(tail?_33 s_130)" -"(f_32 tail?_33 s_130))" +" s_134" +"(lambda(tail?_33 s_136)" +"(f_32 tail?_33 s_136))" " seen_14))" -"(let-values()(f_32 #f s_128))))))))))))" +"(let-values()(f_32 #f s_134))))))))))))" " loop_71)" " #f" -" s_127" +" s_133" " 0))))))" " loop_70)" -" s_124))))))))))" +" s_130))))))))))" "(define-values" "(syntax-swap-scopes)" -"(lambda(s_131 src-scopes_0 dest-scopes_0)" +"(lambda(s_137 src-scopes_0 dest-scopes_0)" "(begin" "(if(equal? src-scopes_0 dest-scopes_0)" -" s_131" +" s_137" "(let-values(((src-smss_0 src-scs_0)" "(set-partition" -"(let-values(((ht_56) src-scopes_0))" +"(let-values(((ht_57) src-scopes_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_56)))" -"((letrec-values(((for-loop_63)" -"(lambda(table_72 i_69)" +"(let-values()(check-in-immutable-hash-keys ht_57)))" +"((letrec-values(((for-loop_65)" +"(lambda(table_72 i_70)" "(begin" " 'for-loop" -"(if i_69" +"(if i_70" "(let-values(((sc_22)" -"(unsafe-immutable-hash-iterate-key ht_56 i_69)))" +"(unsafe-immutable-hash-iterate-key ht_57 i_70)))" "(let-values(((table_73)" "(let-values(((table_74) table_72))" "(let-values(((table_75)" "(let-values()" -"(let-values(((key_27 val_17)" +"(let-values(((key_32 val_19)" "(let-values()" "(values" "(let-values()" @@ -9650,40 +9815,40 @@ static const char *startup_source = " #t))))" "(hash-set" " table_74" -" key_27" -" val_17)))))" +" key_32" +" val_19)))))" "(values table_75)))))" "(if(not #f)" -"(for-loop_63" +"(for-loop_65" " table_73" -"(unsafe-immutable-hash-iterate-next ht_56 i_69))" +"(unsafe-immutable-hash-iterate-next ht_57 i_70))" " table_73)))" " table_72)))))" -" for-loop_63)" +" for-loop_65)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_56))))" +"(unsafe-immutable-hash-iterate-first ht_57))))" " shifted-multi-scope?" "(seteq)" "(seteq)))" "((dest-smss_0 dest-scs_0)" "(set-partition" -"(let-values(((ht_57) dest-scopes_0))" +"(let-values(((ht_58) dest-scopes_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_57)))" -"((letrec-values(((for-loop_64)" -"(lambda(table_76 i_70)" +"(let-values()(check-in-immutable-hash-keys ht_58)))" +"((letrec-values(((for-loop_66)" +"(lambda(table_76 i_71)" "(begin" " 'for-loop" -"(if i_70" +"(if i_71" "(let-values(((sc_23)" -"(unsafe-immutable-hash-iterate-key ht_57 i_70)))" +"(unsafe-immutable-hash-iterate-key ht_58 i_71)))" "(let-values(((table_77)" "(let-values(((table_78) table_76))" "(let-values(((table_79)" "(let-values()" -"(let-values(((key_28 val_18)" +"(let-values(((key_33 val_20)" "(let-values()" "(values" "(let-values()" @@ -9692,18 +9857,18 @@ static const char *startup_source = " #t))))" "(hash-set" " table_78" -" key_28" -" val_18)))))" +" key_33" +" val_20)))))" "(values table_79)))))" "(if(not #f)" -"(for-loop_64" +"(for-loop_66" " table_77" -"(unsafe-immutable-hash-iterate-next ht_57 i_70))" +"(unsafe-immutable-hash-iterate-next ht_58 i_71))" " table_77)))" " table_76)))))" -" for-loop_64)" +" for-loop_66)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_57))))" +"(unsafe-immutable-hash-iterate-first ht_58))))" " shifted-multi-scope?" "(seteq)" "(seteq))))" @@ -9740,35 +9905,35 @@ static const char *startup_source = "(set-union(set-subtract smss_23 src-smss_0) dest-smss_0)" " smss_23))))))" "(begin(set! smss84_0 smss_22)(set! prev-result_3 r_25) r_25))))))))" -"(let-values(((s_132) s_131)" +"(let-values(((s_138) s_137)" "((f_33)(lambda(tail?_34 d_6)(begin 'f d_6)))" "((d->s_3)" -"(lambda(s_133 d_7)" +"(lambda(s_139 d_7)" "(begin" " 'd->s" -"(let-values(((the-struct_27) s_133))" -"(if(syntax?$1 the-struct_27)" +"(let-values(((the-struct_30) s_139))" +"(if(syntax?$1 the-struct_30)" "(let-values(((content85_0) d_7)" -"((scopes86_0)(swap-scs_0(syntax-scopes s_133)))" +"((scopes86_0)(swap-scs_0(syntax-scopes s_139)))" "((shifted-multi-scopes87_0)" -"(swap-smss_0(syntax-shifted-multi-scopes s_133))))" +"(swap-smss_0(syntax-shifted-multi-scopes s_139))))" "(syntax1.1" " content85_0" " scopes86_0" " shifted-multi-scopes87_0" -"(syntax-scope-propagations+tamper the-struct_27)" -"(syntax-mpi-shifts the-struct_27)" -"(syntax-srcloc the-struct_27)" -"(syntax-props the-struct_27)" -"(syntax-inspector the-struct_27)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_27))))))" +"(syntax-scope-propagations+tamper the-struct_30)" +"(syntax-mpi-shifts the-struct_30)" +"(syntax-srcloc the-struct_30)" +"(syntax-props the-struct_30)" +"(syntax-inspector the-struct_30)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_30))))))" "((s-e_3) syntax-e/no-taint)" "((seen_15) #f))" "((letrec-values(((loop_72)" -"(lambda(s_134)" +"(lambda(s_140)" "(begin" " 'loop" -"(let-values(((s_135) s_134)" +"(let-values(((s_141) s_140)" "((f_34)" "(lambda(tail?_35 v_81)" "(begin" @@ -9778,7 +9943,7 @@ static const char *startup_source = "(let-values()(f_33 tail?_35 v_81))))))" "((seen_16) seen_15))" "((letrec-values(((loop_73)" -"(lambda(tail?_36 s_136 prev-depth_7)" +"(lambda(tail?_36 s_142 prev-depth_7)" "(begin" " 'loop" "(let-values(((depth_7)(add1 prev-depth_7)))" @@ -9786,82 +9951,82 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_36" -" s_136" -"(lambda(tail?_37 s_137)" -"(f_34 tail?_37 s_137))" +" s_142" +"(lambda(tail?_37 s_143)" +"(f_34 tail?_37 s_143))" " seen_16))" -"(if(null? s_136)" -"(let-values()(f_34 tail?_36 s_136))" -"(if(pair? s_136)" +"(if(null? s_142)" +"(let-values()(f_34 tail?_36 s_142))" +"(if(pair? s_142)" "(let-values()" "(f_34" " tail?_36" "(cons" -"(loop_73 #f(car s_136) depth_7)" -"(loop_73 #t(cdr s_136) depth_7))))" -"(if(let-values(((or-part_125)" -"(symbol? s_136)))" +"(loop_73 #f(car s_142) depth_7)" +"(loop_73 #t(cdr s_142) depth_7))))" +"(if(let-values(((or-part_124)" +"(symbol? s_142)))" +"(if or-part_124" +" or-part_124" +"(let-values(((or-part_125)" +"(boolean? s_142)))" "(if or-part_125" " or-part_125" -"(let-values(((or-part_126)" -"(boolean? s_136)))" +"(number? s_142)))))" +"(let-values()(f_34 #f s_142))" +"(if(let-values(((or-part_126)" +"(vector? s_142)))" "(if or-part_126" " or-part_126" -"(number? s_136)))))" -"(let-values()(f_34 #f s_136))" -"(if(let-values(((or-part_127)" -"(vector? s_136)))" +"(let-values(((or-part_127)" +"(box? s_142)))" "(if or-part_127" " or-part_127" "(let-values(((or-part_128)" -"(box? s_136)))" +"(prefab-struct-key" +" s_142)))" "(if or-part_128" " or-part_128" -"(let-values(((or-part_129)" -"(prefab-struct-key" -" s_136)))" -"(if or-part_129" -" or-part_129" -"(hash? s_136)))))))" +"(hash? s_142)))))))" "(let-values()" "(datum-map-slow" " tail?_36" -" s_136" -"(lambda(tail?_38 s_138)" -"(f_34 tail?_38 s_138))" +" s_142" +"(lambda(tail?_38 s_144)" +"(f_34 tail?_38 s_144))" " seen_16))" "(let-values()" -"(f_34 #f s_136))))))))))))" +"(f_34 #f s_142))))))))))))" " loop_73)" " #f" -" s_135" +" s_141" " 0))))))" " loop_72)" -" s_132)))))))))))))" +" s_138)))))))))))))" "(define-values" "(syntax-scope-set)" -"(lambda(s_139 phase_12)" -"(begin(scope-set-at-fallback s_139(fallback-first(syntax-shifted-multi-scopes s_139)) phase_12))))" +"(lambda(s_145 phase_12)" +"(begin(scope-set-at-fallback s_145(fallback-first(syntax-shifted-multi-scopes s_145)) phase_12))))" "(define-values" "(scope-set-at-fallback)" -"(lambda(s_140 smss_24 phase_13)" +"(lambda(s_146 smss_24 phase_13)" "(begin" -"(let-values(((ht_58) smss_24))" +"(let-values(((ht_59) smss_24))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_58)))" -"((letrec-values(((for-loop_65)" -"(lambda(scopes_9 i_71)" +"(let-values()(check-in-immutable-hash-keys ht_59)))" +"((letrec-values(((for-loop_67)" +"(lambda(scopes_9 i_72)" "(begin" " 'for-loop" -"(if i_71" -"(let-values(((sms_10)(unsafe-immutable-hash-iterate-key ht_58 i_71)))" +"(if i_72" +"(let-values(((sms_10)(unsafe-immutable-hash-iterate-key ht_59 i_72)))" "(let-values(((scopes_10)" "(let-values(((scopes_11) scopes_9))" -"(if(let-values(((or-part_130)(label-phase? phase_13)))" -"(if or-part_130" -" or-part_130" +"(if(let-values(((or-part_129)(label-phase? phase_13)))" +"(if or-part_129" +" or-part_129" "(not" "(shifted-to-label-phase?" "(shifted-multi-scope-phase sms_10)))))" @@ -9881,29 +10046,29 @@ static const char *startup_source = "(values scopes_13)))" " scopes_11))))" "(if(not #f)" -"(for-loop_65 scopes_10(unsafe-immutable-hash-iterate-next ht_58 i_71))" +"(for-loop_67 scopes_10(unsafe-immutable-hash-iterate-next ht_59 i_72))" " scopes_10)))" " scopes_9)))))" -" for-loop_65)" -"(syntax-scopes s_140)" -"(unsafe-immutable-hash-iterate-first ht_58)))))))" +" for-loop_67)" +"(syntax-scopes s_146)" +"(unsafe-immutable-hash-iterate-first ht_59)))))))" "(define-values" "(find-max-scope)" "(lambda(scopes_14)" "(begin" "(begin" " (if (set-empty? scopes_14) (let-values () (error \"cannot bind in empty scope set\")) (void))" -"(let-values(((ht_59) scopes_14))" +"(let-values(((ht_60) scopes_14))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_59)))" -"((letrec-values(((for-loop_66)" -"(lambda(max-sc_0 i_72)" +"(let-values()(check-in-immutable-hash-keys ht_60)))" +"((letrec-values(((for-loop_68)" +"(lambda(max-sc_0 i_73)" "(begin" " 'for-loop" -"(if i_72" -"(let-values(((sc_24)(unsafe-immutable-hash-iterate-key ht_59 i_72)))" +"(if i_73" +"(let-values(((sc_24)(unsafe-immutable-hash-iterate-key ht_60 i_73)))" "(let-values(((max-sc_1)" "(let-values(((max-sc_2) max-sc_0))" "(let-values(((max-sc_3)" @@ -9911,12 +10076,12 @@ static const char *startup_source = "(if(scope>? sc_24 max-sc_2) sc_24 max-sc_2))))" "(values max-sc_3)))))" "(if(not #f)" -"(for-loop_66 max-sc_1(unsafe-immutable-hash-iterate-next ht_59 i_72))" +"(for-loop_68 max-sc_1(unsafe-immutable-hash-iterate-next ht_60 i_73))" " max-sc_1)))" " max-sc_0)))))" -" for-loop_66)" +" for-loop_68)" "(set-first scopes_14)" -"(unsafe-immutable-hash-iterate-first ht_59))))))))" +"(unsafe-immutable-hash-iterate-first ht_60))))))))" "(define-values" "(add-binding-in-scopes!20.1)" "(lambda(just-for-nominal?15_0 just-for-nominal?16_0 scopes17_0 sym18_0 binding19_0)" @@ -9955,19 +10120,19 @@ static const char *startup_source = "(begin(set-scope-binding-table! max-sc_5 bt_8)(clear-resolve-cache!)))))))))))" "(define-values" "(syntax-any-macro-scopes?)" -"(lambda(s_141)" +"(lambda(s_147)" "(begin" -"(let-values(((ht_60)(syntax-scopes s_141)))" +"(let-values(((ht_61)(syntax-scopes s_147)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_60)))" -"((letrec-values(((for-loop_67)" -"(lambda(result_44 i_73)" +"(let-values()(check-in-immutable-hash-keys ht_61)))" +"((letrec-values(((for-loop_69)" +"(lambda(result_44 i_74)" "(begin" " 'for-loop" -"(if i_73" -"(let-values(((sc_25)(unsafe-immutable-hash-iterate-key ht_60 i_73)))" +"(if i_74" +"(let-values(((sc_25)(unsafe-immutable-hash-iterate-key ht_61 i_74)))" "(let-values(((result_45)" "(let-values()" "(let-values(((result_46)" @@ -9975,12 +10140,12 @@ static const char *startup_source = "(let-values()(eq?(scope-kind sc_25) 'macro)))))" "(values result_46)))))" "(if(if(not((lambda x_35 result_45) sc_25))(not #f) #f)" -"(for-loop_67 result_45(unsafe-immutable-hash-iterate-next ht_60 i_73))" +"(for-loop_69 result_45(unsafe-immutable-hash-iterate-next ht_61 i_74))" " result_45)))" " result_44)))))" -" for-loop_67)" +" for-loop_69)" " #f" -"(unsafe-immutable-hash-iterate-first ht_60)))))))" +"(unsafe-immutable-hash-iterate-first ht_61)))))))" "(define-values" "(resolve40.1)" "(lambda(ambiguous-value30_0" @@ -9995,14 +10160,14 @@ static const char *startup_source = " phase39_0)" "(begin" " 'resolve40" -"(let-values(((s_142) s38_0))" +"(let-values(((s_148) s38_0))" "(let-values(((phase_14) phase39_0))" "(let-values(((ambiguous-value_0)(if ambiguous-value34_0 ambiguous-value30_0 #f)))" "(let-values(((exactly?_0)(if exactly?35_0 exactly?31_0 #f)))" "(let-values(((get-scopes?_0)(if get-scopes?36_0 get-scopes?32_0 #f)))" "(let-values(((extra-shifts_2)(if extra-shifts37_0 extra-shifts33_0 null)))" "(let-values()" -"(let-values(((sym_15)(syntax-content s_142)))" +"(let-values(((sym_15)(syntax-content s_148)))" "((letrec-values(((fallback-loop_0)" "(lambda(smss_25)" "(begin" @@ -10013,7 +10178,7 @@ static const char *startup_source = "(resolve-cache-get" " sym_15" " phase_14" -"(syntax-scopes s_142)" +"(syntax-scopes s_148)" "(fallback-first smss_25))" " #f)" " #f)))" @@ -10029,31 +10194,31 @@ static const char *startup_source = "(let-values()" "(let-values(((scopes_17)" "(scope-set-at-fallback" -" s_142" +" s_148" "(fallback-first smss_25)" " phase_14)))" "(let-values(((best-scopes_0 best-binding_0)" -"(let-values(((ht_61) scopes_17))" +"(let-values(((ht_62) scopes_17))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-immutable-hash-keys ht_61)))" -"((letrec-values(((for-loop_68)" +"(check-in-immutable-hash-keys ht_62)))" +"((letrec-values(((for-loop_70)" "(lambda(best-scopes_1" " best-binding_1" -" i_74)" +" i_75)" "(begin" " 'for-loop" -"(if i_74" +"(if i_75" "(let-values(((sc_26)" "(unsafe-immutable-hash-iterate-key" -" ht_61" -" i_74)))" +" ht_62" +" i_75)))" "(let-values(((best-scopes_2" " best-binding_2)" -"(let-values(((ht_62" +"(let-values(((ht_63" " bulk-bindings_2)" "(let-values(((table_80)" "(scope-binding-table" @@ -10074,47 +10239,47 @@ static const char *startup_source = " '#hash())" "(table-with-bulk-bindings-bulk-bindings" " table_80)))))" -"((s_143)" -" s_142)" +"((s_149)" +" s_148)" "((extra-shifts_3)" " extra-shifts_2))" "(begin" " #t" -"((letrec-values(((for-loop_69)" +"((letrec-values(((for-loop_71)" "(lambda(best-scopes_3" " best-binding_3" -" i_75)" +" i_76)" "(begin" " 'for-loop" "(if(not" "(null?" -" i_75))" +" i_76))" "(let-values(((b-scopes_0)" "(if(pair?" -" i_75)" +" i_76)" "(let-values()" "(bulk-binding-at-scopes" "(car" -" i_75)))" +" i_76)))" "(let-values()" "(hash-iterate-key" -" ht_62" -" i_75))))" +" ht_63" +" i_76))))" "((binding_4)" "(if(pair?" -" i_75)" +" i_76)" "(let-values()" "(let-values(((bulk_3)" "(bulk-binding-at-bulk" "(car" -" i_75))))" +" i_76))))" "(let-values(((b-info_0)" "(if(symbol-interned?" " sym_15)" "(hash-ref" "(bulk-binding-symbols" " bulk_3" -" s_143" +" s_149" " extra-shifts_3)" " sym_15" " #f)" @@ -10128,8 +10293,8 @@ static const char *startup_source = " #f))))" "(let-values()" "(hash-iterate-value" -" ht_62" -" i_75)))))" +" ht_63" +" i_76)))))" "(let-values(((best-scopes_4" " best-binding_4)" "(let-values(((best-scopes_5)" @@ -10162,7 +10327,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_49)))" -"((letrec-values(((for-loop_70)" +"((letrec-values(((for-loop_72)" "(lambda(result_47" " lst_50)" "(begin" @@ -10193,12 +10358,12 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_70" +"(for-loop_72" " result_48" " rest_21)" " result_48)))" " result_47)))))" -" for-loop_70)" +" for-loop_72)" " #t" " lst_49)))" "(let-values()" @@ -10245,21 +10410,21 @@ static const char *startup_source = " best-binding_5)))))" "(if(not" " #f)" -"(for-loop_69" +"(for-loop_71" " best-scopes_4" " best-binding_4" "(if(pair?" -" i_75)" +" i_76)" "(let-values()" "(cdr" -" i_75))" +" i_76))" "(let-values()" -"(let-values(((or-part_131)" +"(let-values(((or-part_130)" "(hash-iterate-next" -" ht_62" -" i_75)))" -"(if or-part_131" -" or-part_131" +" ht_63" +" i_76)))" +"(if or-part_130" +" or-part_130" " bulk-bindings_2)))))" "(values" " best-scopes_4" @@ -10267,32 +10432,32 @@ static const char *startup_source = "(values" " best-scopes_3" " best-binding_3))))))" -" for-loop_69)" +" for-loop_71)" " best-scopes_1" " best-binding_1" -"(let-values(((or-part_132)" +"(let-values(((or-part_131)" "(hash-iterate-first" -" ht_62)))" -"(if or-part_132" -" or-part_132" +" ht_63)))" +"(if or-part_131" +" or-part_131" " bulk-bindings_2)))))))" "(if(not #f)" -"(for-loop_68" +"(for-loop_70" " best-scopes_2" " best-binding_2" "(unsafe-immutable-hash-iterate-next" -" ht_61" -" i_74))" +" ht_62" +" i_75))" "(values" " best-scopes_2" " best-binding_2))))" "(values" " best-scopes_1" " best-binding_1))))))" -" for-loop_68)" +" for-loop_70)" " #f" " #f" -"(unsafe-immutable-hash-iterate-first ht_61))))))" +"(unsafe-immutable-hash-iterate-first ht_62))))))" "(if(pair? best-scopes_0)" "(let-values()" "(if(fallback? smss_25)" @@ -10304,12 +10469,12 @@ static const char *startup_source = "(resolve-cache-set!" " sym_15" " phase_14" -"(syntax-scopes s_142)" +"(syntax-scopes s_148)" "(fallback-first smss_25)" " best-binding_0)" -"(if(let-values(((or-part_133)(not exactly?_0)))" -"(if or-part_133" -" or-part_133" +"(if(let-values(((or-part_132)(not exactly?_0)))" +"(if or-part_132" +" or-part_132" "(eqv?" "(set-count scopes_17)" "(set-count best-scopes_0))))" @@ -10320,14 +10485,14 @@ static const char *startup_source = "(resolve-cache-set!" " sym_15" " phase_14" -"(syntax-scopes s_142)" +"(syntax-scopes s_148)" "(fallback-first smss_25)" " '#:none)" "(if(fallback? smss_25)" "(fallback-loop_0(fallback-rest smss_25))" " #f))))))))))))))" " fallback-loop_0)" -"(syntax-shifted-multi-scopes s_142)))))))))))))" +"(syntax-shifted-multi-scopes s_148)))))))))))))" "(define-values" "(bound-identifier=?$1)" "(lambda(a_32 b_40 phase_15)" @@ -10337,138 +10502,6 @@ static const char *startup_source = "(equal?(syntax-scope-set a_32 phase_15)(syntax-scope-set b_40 phase_15))" " #f))))" "(define-values" -"(syntax-property$1)" -"(case-lambda" -"((s_0 key_11)" -"(begin" -" 'syntax-property" -"(let-values((()" -"(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)))))" -"((s_1 key_12 val_3)" -"(let-values((()" -"(begin" -" (if (syntax?$1 s_1) (void) (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_1)))" -"(values))))" -"(let-values(((pval_0)(if(eq? key_12 'paren-shape)(preserved-property-value1.1 val_3) val_3)))" -"(let-values(((the-struct_28) s_1))" -"(if(syntax?$1 the-struct_28)" -"(let-values(((props1_0)(hash-set(syntax-props s_1) key_12 pval_0)))" -"(syntax1.1" -"(syntax-content the-struct_28)" -"(syntax-scopes the-struct_28)" -"(syntax-shifted-multi-scopes the-struct_28)" -"(syntax-scope-propagations+tamper the-struct_28)" -"(syntax-mpi-shifts the-struct_28)" -"(syntax-srcloc the-struct_28)" -" props1_0" -"(syntax-inspector the-struct_28)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_28))))))" -"((s_144 key_29 val_19 preserved?_0)" -"(let-values((()" -"(begin" -"(if(syntax?$1 s_144)" -"(void)" -" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_144)))" -"(values))))" -"(let-values((()" -"(begin" -"(if preserved?_0" -"(let-values()" -"(if(if(symbol? key_29)(symbol-interned? key_29) #f)" -"(void)" -"(let-values()" -"(raise-arguments-error" -" 'syntax-property" -" \"key for a perserved property must be an interned symbol\"" -" \"given key\"" -" key_29" -" \"given value\"" -" val_19))))" -"(void))" -"(values))))" -"(let-values(((pval_1)(if preserved?_0(preserved-property-value1.1 val_19) val_19)))" -"(let-values(((the-struct_29) s_144))" -"(if(syntax?$1 the-struct_29)" -"(let-values(((props2_0)(hash-set(syntax-props s_144) key_29 pval_1)))" -"(syntax1.1" -"(syntax-content the-struct_29)" -"(syntax-scopes the-struct_29)" -"(syntax-shifted-multi-scopes the-struct_29)" -"(syntax-scope-propagations+tamper the-struct_29)" -"(syntax-mpi-shifts the-struct_29)" -"(syntax-srcloc the-struct_29)" -" props2_0" -"(syntax-inspector the-struct_29)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_29)))))))))" -"(define-values" -"(1/syntax-property-preserved?)" -"(lambda(s_145 key_30)" -"(begin" -" 'syntax-property-preserved?" -"(begin" -" (if (syntax?$1 s_145) (void) (let-values () (raise-argument-error 'syntax-property-preserved \"syntax?\" s_145)))" -"(if(if(symbol? key_30)(symbol-interned? key_30) #f)" -"(void)" -" (let-values () (raise-argument-error 'syntax-property \"(and/c symbol? symbol-interned?)\" key_30)))" -"(preserved-property-value?(hash-ref(syntax-props s_145) key_30 #f))))))" -"(define-values" -"(1/syntax-property-symbol-keys)" -"(lambda(s_146)" -"(begin" -" 'syntax-property-symbol-keys" -"(begin" -" (if (syntax?$1 s_146) (void) (let-values () (raise-argument-error 'syntax-property-symbol-keys \"syntax\" s_146)))" -"(reverse$1" -"(let-values(((ht_63)(syntax-props s_146)))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-in-immutable-hash ht_63)))" -"((letrec-values(((for-loop_71)" -"(lambda(fold-var_30 i_76)" -"(begin" -" 'for-loop" -"(if i_76" -"(let-values(((k_16 v_82)(unsafe-immutable-hash-iterate-key+value ht_63 i_76)))" -"(let-values(((fold-var_31)" -"(let-values(((fold-var_32) fold-var_30))" -"(if(if(symbol? k_16)(symbol-interned? k_16) #f)" -"(let-values(((fold-var_33) fold-var_32))" -"(let-values(((fold-var_34)" -"(let-values()" -"(cons(let-values() k_16) fold-var_33))))" -"(values fold-var_34)))" -" fold-var_32))))" -"(if(not #f)" -"(for-loop_71 fold-var_31(unsafe-immutable-hash-iterate-next ht_63 i_76))" -" fold-var_31)))" -" fold-var_30)))))" -" for-loop_71)" -" null" -"(unsafe-immutable-hash-iterate-first ht_63)))))))))" -"(define-values" -"(syntax-property-remove)" -"(lambda(s_69 key_31)" -"(begin" -"(if(hash-ref(syntax-props s_69) key_31 #f)" -"(let-values(((the-struct_30) s_69))" -"(if(syntax?$1 the-struct_30)" -"(let-values(((props3_0)(hash-remove(syntax-props s_69) key_31)))" -"(syntax1.1" -"(syntax-content the-struct_30)" -"(syntax-scopes the-struct_30)" -"(syntax-shifted-multi-scopes the-struct_30)" -"(syntax-scope-propagations+tamper the-struct_30)" -"(syntax-mpi-shifts the-struct_30)" -"(syntax-srcloc the-struct_30)" -" props3_0" -"(syntax-inspector the-struct_30)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_30)))" -" s_69))))" -"(define-values" "(local-binding?)" "(lambda(b_41)" "(begin(let-values(((or-part_0)(full-local-binding? b_41)))(if or-part_0 or-part_0(symbol? b_41))))))" @@ -10500,30 +10533,30 @@ static const char *startup_source = "(values struct:_27 make-_27 ?_27(make-struct-field-accessor -ref_27 0 'key))))" "(define-values" "(deserialize-full-local-binding)" -"(lambda(key_32 free=id_3)(begin(full-local-binding1.1 #f free=id_3 key_32))))" +"(lambda(key_34 free=id_3)(begin(full-local-binding1.1 #f free=id_3 key_34))))" "(define-values" "(make-local-binding7.1)" "(lambda(frame-id2_0 frame-id4_0 free=id3_0 free=id5_0 key6_0)" "(begin" " 'make-local-binding7" -"(let-values(((key_33) key6_0))" +"(let-values(((key_35) key6_0))" "(let-values(((frame-id_2)(if frame-id4_0 frame-id2_0 #f)))" "(let-values(((free=id_4)(if free=id5_0 free=id3_0 #f)))" "(let-values()" "(if(if(not frame-id_2)(not free=id_4) #f)" -"(let-values() key_33)" -"(let-values()(full-local-binding1.1 frame-id_2 free=id_4 key_33))))))))))" +"(let-values() key_35)" +"(let-values()(full-local-binding1.1 frame-id_2 free=id_4 key_35))))))))))" "(define-values" "(local-binding-update17.1)" "(lambda(frame-id11_0 frame-id14_0 free=id12_0 free=id15_0 key10_0 key13_0 b16_0)" "(begin" " 'local-binding-update17" "(let-values(((b_43) b16_0))" -"(let-values(((key_34)(if key13_0 key10_0(local-binding-key b_43))))" +"(let-values(((key_36)(if key13_0 key10_0(local-binding-key b_43))))" "(let-values(((frame-id_3)(if frame-id14_0 frame-id11_0(binding-frame-id b_43))))" "(let-values(((free=id_5)(if free=id15_0 free=id12_0(binding-free=id b_43))))" "(let-values()" -"(let-values(((key21_0) key_34)((frame-id22_0) frame-id_3)((free=id23_0) free=id_5))" +"(let-values(((key21_0) key_36)((frame-id22_0) frame-id_3)((free=id23_0) free=id_5))" "(make-local-binding7.1 frame-id22_0 #t free=id23_0 #t key21_0))))))))))" "(define-values" "(local-binding-key)" @@ -10581,8 +10614,8 @@ static const char *startup_source = "(if(integer? v_26)" "(let-values()" "(lambda(t_35)" -"(let-values(((val_20)(ref_0 t_35 v_26)))" -"(if(identifier? val_20) val_20(datum->syntax$1 #f '?)))))" +"(let-values(((val_21)(ref_0 t_35 v_26)))" +"(if(identifier? val_21) val_21(datum->syntax$1 #f '?)))))" "(let-values()" "(lambda(t_13)" "(let-values(((id_0)(call-with-continuation-prompt(lambda()(v_26 t_13)))))" @@ -10714,11 +10747,11 @@ static const char *startup_source = "((id_5 phase_19 top-level-symbol?1_1)(identifier-binding5_0 id_5 phase_19 top-level-symbol?1_1 #t)))))" "(define-values" "(maybe-install-free=id!)" -"(lambda(val_21 id_6 phase_20)" +"(lambda(val_22 id_6 phase_20)" "(begin" -"(if(1/rename-transformer? val_21)" +"(if(1/rename-transformer? val_22)" "(let-values()" -"(let-values(((free=id_6)(1/rename-transformer-target val_21)))" +"(let-values(((free=id_6)(1/rename-transformer-target val_22)))" "(if(syntax-property$1 free=id_6 'not-free-identifier=?)" "(void)" "(let-values()" @@ -10802,13 +10835,13 @@ static const char *startup_source = "(if(syntax?$1 the-struct_31)" "(let-values(((mpi-shifts70_0)(cons shift_0(syntax-mpi-shifts s_24)))" "((inspector71_0)" -"(let-values(((or-part_134)(syntax-inspector s_24)))" -"(if or-part_134 or-part_134 inspector_3)))" +"(let-values(((or-part_133)(syntax-inspector s_24)))" +"(if or-part_133 or-part_133 inspector_3)))" "((scope-propagations+tamper72_0)" "(if(datum-has-elements?(syntax-content s_24))" "(propagation-mpi-shift" "(syntax-scope-propagations+tamper s_24)" -"(lambda(s_147)(cons shift_0 s_147))" +"(lambda(s_150)(cons shift_0 s_150))" " inspector_3" "(syntax-scopes s_24)" "(syntax-shifted-multi-scopes s_24)" @@ -10836,11 +10869,11 @@ static const char *startup_source = " immediate?25_0" " unbound-sym?21_0" " unbound-sym?26_0" -" s28_1" +" s28_0" " phase29_0)" "(begin" " 'resolve+shift30" -"(let-values(((s_148) s28_1))" +"(let-values(((s_151) s28_0))" "(let-values(((phase_21) phase29_0))" "(let-values(((ambiguous-value_1)(if ambiguous-value23_0 ambiguous-value18_0 #f)))" "(let-values(((exactly?_1)(if exactly?24_0 exactly?19_0 #f)))" @@ -10849,7 +10882,7 @@ static const char *startup_source = "(let-values(((extra-shifts_4)(if extra-shifts27_0 extra-shifts22_0 null)))" "(let-values()" "(let-values(((immediate-b_0)" -"(let-values(((s73_0) s_148)" +"(let-values(((s73_0) s_151)" "((phase74_0) phase_21)" "((ambiguous-value75_0) ambiguous-value_1)" "((exactly?76_0) exactly?_1)" @@ -10871,7 +10904,7 @@ static const char *startup_source = " #f)" "(let-values(((temp78_0)(binding-free=id immediate-b_0))" "((phase79_0) phase_21)" -"((temp80_0)(append extra-shifts_4(syntax-mpi-shifts s_148)))" +"((temp80_0)(append extra-shifts_4(syntax-mpi-shifts s_151)))" "((ambiguous-value81_0) ambiguous-value_1)" "((exactly?82_0) exactly?_1)" "((unbound-sym?83_0) unbound-sym?_0))" @@ -10891,7 +10924,7 @@ static const char *startup_source = " immediate-b_0)))" "(if(module-binding? b_50)" "(let-values()" -"(let-values(((mpi-shifts_2)(syntax-mpi-shifts s_148)))" +"(let-values(((mpi-shifts_2)(syntax-mpi-shifts s_151)))" "(if(null? mpi-shifts_2)" "(let-values() b_50)" "(let-values()" @@ -10916,7 +10949,7 @@ static const char *startup_source = "((temp87_0)" "(if(binding-free=id b_50)" "(let-values(((temp89_0)(binding-free=id b_50))" -"((s90_0) s_148))" +"((s90_0) s_151))" "(syntax-transfer-shifts39.1 #f #f temp89_0 s90_0 #f #f))" " #f))" "((temp88_1)" @@ -10929,7 +10962,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_51)))" -"((letrec-values(((for-loop_72)" +"((letrec-values(((for-loop_73)" "(lambda(fold-var_35 lst_52)" "(begin" " 'for-loop" @@ -10954,12 +10987,12 @@ static const char *startup_source = "(values" " fold-var_38)))))" "(if(not #f)" -"(for-loop_72" +"(for-loop_73" " fold-var_36" " rest_22)" " fold-var_36)))" " fold-var_35)))))" -" for-loop_72)" +" for-loop_73)" " null" " lst_51))))))" "(module-binding-update48.1" @@ -10987,7 +11020,7 @@ static const char *startup_source = " #f" " b84_0)))))))))))" "(if(if(not b_50) unbound-sym?_0 #f)" -"(let-values()(syntax-e$1 s_148))" +"(let-values()(syntax-e$1 s_151))" "(let-values() b_50))))))))))))))))" "(define-values" "(apply-syntax-shifts)" @@ -11025,7 +11058,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_53)))" -"((letrec-values(((for-loop_73)" +"((letrec-values(((for-loop_74)" "(lambda(fold-var_39 lst_54)" "(begin" " 'for-loop" @@ -11044,9 +11077,9 @@ static const char *startup_source = " to-mpi_2))" " fold-var_41))))" "(values fold-var_42)))))" -"(if(not #f)(for-loop_73 fold-var_40 rest_23) fold-var_40)))" +"(if(not #f)(for-loop_74 fold-var_40 rest_23) fold-var_40)))" " fold-var_39)))))" -" for-loop_73)" +" for-loop_74)" " null" " lst_53))))))" "(module-binding-update48.1" @@ -11096,19 +11129,19 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_12)))" -"((letrec-values(((for-loop_74)" -"(lambda(s_39 lst_56 pos_9)" +"((letrec-values(((for-loop_75)" +"(lambda(s_68 lst_56 pos_9)" "(begin" " 'for-loop" "(if(if(pair? lst_56) #t #f)" "(let-values(((shift_3)(unsafe-car lst_56))" "((rest_24)(unsafe-cdr lst_56))" "((i_77) pos_9))" -"(let-values(((s_149)" -"(let-values(((s_150) s_39))" -"(let-values(((s_90)" +"(let-values(((s_152)" +"(let-values(((s_153) s_68))" +"(let-values(((s_96)" "(let-values()" -"(let-values(((s95_0) s_150)" +"(let-values(((s95_0) s_153)" "((temp96_0)" "(shift-from shift_3))" "((temp97_0)" @@ -11127,31 +11160,31 @@ static const char *startup_source = " temp97_0" " temp98_0" " #t)))))" -"(values s_90)))))" -"(if(not #f)(for-loop_74 s_149 rest_24(+ pos_9 1)) s_149)))" -" s_39)))))" -" for-loop_74)" +"(values s_96)))))" +"(if(not #f)(for-loop_75 s_152 rest_24(+ pos_9 1)) s_152)))" +" s_68)))))" +" for-loop_75)" " to-s_0" " lst_55" " start_12))))))))))))))" "(define-values" "(syntax-set-inspector)" -"(lambda(s_99 insp_3)" +"(lambda(s_105 insp_3)" "(begin" -"(let-values(((the-struct_32) s_99))" +"(let-values(((the-struct_32) s_105))" "(if(syntax?$1 the-struct_32)" "(let-values(((inspector100_0)" -"(let-values(((or-part_135)(syntax-inspector s_99)))(if or-part_135 or-part_135 insp_3)))" +"(let-values(((or-part_134)(syntax-inspector s_105)))(if or-part_134 or-part_134 insp_3)))" "((scope-propagations+tamper101_0)" -"(if(datum-has-elements?(syntax-content s_99))" +"(if(datum-has-elements?(syntax-content s_105))" "(propagation-mpi-shift" -"(syntax-scope-propagations+tamper s_99)" +"(syntax-scope-propagations+tamper s_105)" " #f" " insp_3" -"(syntax-scopes s_99)" -"(syntax-shifted-multi-scopes s_99)" -"(syntax-mpi-shifts s_99))" -"(syntax-scope-propagations+tamper s_99))))" +"(syntax-scopes s_105)" +"(syntax-shifted-multi-scopes s_105)" +"(syntax-mpi-shifts s_105))" +"(syntax-scope-propagations+tamper s_105))))" "(syntax1.1" "(syntax-content the-struct_32)" "(syntax-scopes the-struct_32)" @@ -11168,19 +11201,19 @@ static const char *startup_source = "(lambda(s44_0 source?42_0 source?43_0)" "(begin" " 'syntax-source-module45" -"(let-values(((s_151) s44_0))" +"(let-values(((s_154) s44_0))" "(let-values(((source?_0)(if source?43_0 source?42_0 #f)))" "(let-values()" "(begin" -"(if(syntax?$1 s_151)" +"(if(syntax?$1 s_154)" "(void)" -" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_151)))" -"(let-values(((lst_57)(reverse$1(syntax-mpi-shifts s_151))))" +" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_154)))" +"(let-values(((lst_57)(reverse$1(syntax-mpi-shifts s_154))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_57)))" -"((letrec-values(((for-loop_75)" +"((letrec-values(((for-loop_76)" "(lambda(result_50 lst_58)" "(begin" " 'for-loop" @@ -11209,7 +11242,7 @@ static const char *startup_source = "(apply-syntax-shifts" " from-mpi_3" "(syntax-mpi-shifts" -" s_151))))" +" s_154))))" "(if source?_0" "(1/resolved-module-path-name" "(1/module-path-index-resolve" @@ -11220,15 +11253,15 @@ static const char *startup_source = " #f)))))))" "(values result_53)))))))" "(if(if(not((lambda x_37 result_51) shift_4))(not #f) #f)" -"(for-loop_75 result_51 rest_25)" +"(for-loop_76 result_51 rest_25)" " result_51)))" " result_50)))))" -" for-loop_75)" +" for-loop_76)" " #f" " lst_57)))))))))))" "(case-lambda" -"((s_108)(begin 'syntax-source-module(syntax-source-module45_0 s_108 #f #f)))" -"((s_152 source?42_1)(syntax-source-module45_0 s_152 source?42_1 #t)))))" +"((s_114)(begin 'syntax-source-module(syntax-source-module45_0 s_114 #f #f)))" +"((s_155 source?42_1)(syntax-source-module45_0 s_155 source?42_1 #t)))))" "(define-values" "(1/identifier-prune-to-source-module)" "(lambda(id_7)" @@ -11251,67 +11284,6 @@ static const char *startup_source = "(syntax-props the-struct_33)" "(syntax-inspector the-struct_33)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_33)))))))" -"(define-values(built-in-symbols)(make-hasheq))" -"(define-values(register-built-in-symbol!)(lambda(s_0)(begin(hash-set! built-in-symbols s_0 #t))))" -"(define-values(built-in-symbol?)(lambda(s_153)(begin(hash-ref built-in-symbols s_153 #f))))" -"(define-values" -"(make-built-in-symbol!)" -"(lambda(s_154)" -"(begin" -" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_154))))" -"(begin(register-built-in-symbol! built-in-s_0) built-in-s_0)))))" -"(void" -"(begin" -"(for-each2" -" register-built-in-symbol!" -" '(lambda case-lambda" -" if" -" begin" -" begin0" -" let-values" -" letrec-values" -" set!" -" quote" -" with-continuation-mark" -" #%variable-reference))" -"(for-each2" -" register-built-in-symbol!" -" '(check-not-undefined" -" instance-variable-box" -" variable-reference" -" variable-reference?" -" variable-reference->instance" -" variable-reference-constant?" -" variable-reference-from-unsafe?))" -"(for-each2" -" register-built-in-symbol!" -" '(let letrec* define" -" or" -" and" -" pariah" -" variable-set!" -" variable-ref" -" variable-ref/no-check" -" make-instance-variable-reference" -" annotation?" -" annotation-expression" -" #%app" -" #%call-with-values" -" make-pthread-parameter))))" -"(define-values(phase-shift-id)(make-built-in-symbol! 'phase))" -"(define-values(dest-phase-id)(make-built-in-symbol! 'dest-phase))" -"(define-values(ns-id)(make-built-in-symbol! 'namespace))" -"(define-values(self-id)(make-built-in-symbol! 'self))" -"(define-values(syntax-literals-id)(make-built-in-symbol! 'syntax-literals))" -"(define-values(get-syntax-literal!-id)(make-built-in-symbol! 'get-syntax-literal!))" -"(define-values(bulk-binding-registry-id)(make-built-in-symbol! 'bulk-binding-registry))" -"(define-values(inspector-id)(make-built-in-symbol! 'inspector))" -"(define-values(deserialize-syntax-id)(make-built-in-symbol! 'deserialize-syntax))" -"(define-values(deserialized-syntax-vector-id)(make-built-in-symbol! 'deserialized-syntax-vector))" -"(define-values(set-transformer!-id)(make-built-in-symbol! 'set-transformer!))" -"(define-values(top-level-bind!-id)(make-built-in-symbol! 'top-level-bind!))" -"(define-values(top-level-require!-id)(make-built-in-symbol! 'top-level-require!))" -"(define-values(mpi-vector-id)(make-built-in-symbol! 'mpi-vector))" "(define-values" "(struct:provided provided1.1 provided? provided-binding provided-protected? provided-syntax?)" "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" @@ -11344,9 +11316,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_82)(begin(if(provided? v_82)(provided-binding v_82) v_82))))" "(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_84)(begin(if(provided? v_84)(provided-syntax? v_84) #f))))" +"(define-values(provided-as-transformer?)(lambda(v_83)(begin(if(provided? v_83)(provided-syntax? v_83) #f))))" "(define-values" "(deserialize-provided)" "(lambda(binding_5 protected?_0 syntax?_1)(begin(provided1.1 binding_5 protected?_0 syntax?_1))))" @@ -11371,13 +11343,13 @@ static const char *startup_source = "((sym21_1) sym_16)" "((phase-shift22_0) phase-shift_0)" "((temp23_1) #f)" -"((temp24_2)" +"((temp24_1)" "(if(not(provided-as-protected? binding/p_0))" "(module-binding-extra-inspector binding_6)" " #f))" "((null25_0) null))" "(module-binding-update48.1" -" temp24_2" +" temp24_1" " #t" " null25_0" " #t" @@ -11439,9 +11411,9 @@ static const char *startup_source = " prop:bulk-binding" "(bulk-binding-class3.1" "(lambda(b_54 mpi-shifts_3)" -"(let-values(((or-part_136)(bulk-binding-provides b_54)))" -"(if or-part_136" -" or-part_136" +"(let-values(((or-part_135)(bulk-binding-provides b_54)))" +"(if or-part_135" +" or-part_135" "(let-values(((mod-name_1)" "(1/module-path-index-resolve" "(apply-syntax-shifts(bulk-binding-mpi b_54) mpi-shifts_3))))" @@ -11478,9 +11450,9 @@ static const char *startup_source = "(let-values(((excepts_0)(bulk-binding-excepts b_54)))" "(let-values(((prefix_0)(bulk-binding-prefix b_54)))" "(let-values(((adjusted-provides_0)" -"(if(let-values(((or-part_137) prefix_0))" -"(if or-part_137" -" or-part_137" +"(if(let-values(((or-part_136) prefix_0))" +"(if or-part_136" +" or-part_136" "(positive?(hash-count excepts_0))))" "(let-values()" "(bulk-provides-add-prefix-remove-exceptions" @@ -11493,7 +11465,7 @@ static const char *startup_source = " adjusted-provides_0))))))))))))))" "(lambda(b_55 binding_7 sym_1)" "(let-values(((binding27_0) binding_7)" -"((temp28_1)" +"((temp28_2)" "(if(bulk-binding-prefix b_55)" "(string->symbol" "(substring" @@ -11510,7 +11482,7 @@ static const char *startup_source = " temp31_0" " temp29_0" " binding27_0" -" temp28_1))))))" +" temp28_2))))))" "(current-inspector)" " #f" " '(1 2 4 5 6 7)" @@ -11532,9 +11504,9 @@ static const char *startup_source = "(make-struct-field-mutator -set!_29 3 'self))))" "(define-values" "(deserialize-bulk-binding)" -"(lambda(prefix_1 excepts_1 mpi_3 provide-phase-level_1 phase-shift_1 bulk-binding-registry_0)" +"(lambda(prefix_1 excepts_1 mpi_14 provide-phase-level_1 phase-shift_1 bulk-binding-registry_0)" "(begin" -"(bulk-binding14.1 #f prefix_1 excepts_1 #f mpi_3 provide-phase-level_1 phase-shift_1 bulk-binding-registry_0))))" +"(bulk-binding14.1 #f prefix_1 excepts_1 #f mpi_14 provide-phase-level_1 phase-shift_1 bulk-binding-registry_0))))" "(define-values" "(bulk-provides-add-prefix-remove-exceptions)" "(lambda(provides_1 prefix_2 excepts_2)" @@ -11542,12 +11514,12 @@ static const char *startup_source = "(let-values(((ht_64) provides_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_64)))" -"((letrec-values(((for-loop_76)" +"((letrec-values(((for-loop_77)" "(lambda(table_82 i_78)" "(begin" " 'for-loop" "(if i_78" -"(let-values(((sym_17 val_22)(hash-iterate-key+value ht_64 i_78)))" +"(let-values(((sym_17 val_23)(hash-iterate-key+value ht_64 i_78)))" "(let-values(((table_83)" "(let-values(((table_84) table_82))" "(if(hash-ref excepts_2 sym_17 #f)" @@ -11557,7 +11529,7 @@ static const char *startup_source = "(let-values(((table_86) table_85))" "(let-values(((table_87)" "(let-values()" -"(let-values(((key_35 val_23)" +"(let-values(((key_37 val_24)" "(let-values()" "(values" "(if prefix_2" @@ -11567,13 +11539,13 @@ static const char *startup_source = " prefix_2" " sym_17))" " sym_17)" -" val_22))))" -"(hash-set table_86 key_35 val_23)))))" +" val_23))))" +"(hash-set table_86 key_37 val_24)))))" "(values table_87)))" " table_85))))))" -"(if(not #f)(for-loop_76 table_83(hash-iterate-next ht_64 i_78)) table_83)))" +"(if(not #f)(for-loop_77 table_83(hash-iterate-next ht_64 i_78)) table_83)))" " table_82)))))" -" for-loop_76)" +" for-loop_77)" " '#hash()" "(hash-iterate-first ht_64)))))))" "(define-values" @@ -11718,29 +11690,29 @@ static const char *startup_source = "(lambda(v_45)(begin(root-expand-context/outer-post-expansion-scope v_45))))" "(define-values" "(root-expand-context-use-site-scopes)" -"(lambda(v_85)(begin(root-expand-context/outer-use-site-scopes v_85))))" +"(lambda(v_84)(begin(root-expand-context/outer-use-site-scopes v_84))))" "(define-values(root-expand-context-frame-id)(lambda(v_46)(begin(root-expand-context/outer-frame-id v_46))))" "(define-values" "(root-expand-context-self-mpi)" -"(lambda(v_86)(begin(root-expand-context/inner-self-mpi(root-expand-context/outer-inner v_86)))))" +"(lambda(v_85)(begin(root-expand-context/inner-self-mpi(root-expand-context/outer-inner v_85)))))" "(define-values" "(root-expand-context-module-scopes)" "(lambda(v_47)(begin(root-expand-context/inner-module-scopes(root-expand-context/outer-inner v_47)))))" "(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_86)(begin(root-expand-context/inner-top-level-bind-scope(root-expand-context/outer-inner v_86)))))" "(define-values" "(root-expand-context-all-scopes-stx)" "(lambda(v_56)(begin(root-expand-context/inner-all-scopes-stx(root-expand-context/outer-inner v_56)))))" "(define-values" "(root-expand-context-defined-syms)" -"(lambda(v_88)(begin(root-expand-context/inner-defined-syms(root-expand-context/outer-inner v_88)))))" +"(lambda(v_87)(begin(root-expand-context/inner-defined-syms(root-expand-context/outer-inner v_87)))))" "(define-values" "(root-expand-context-counter)" "(lambda(v_40)(begin(root-expand-context/inner-counter(root-expand-context/outer-inner v_40)))))" "(define-values" "(root-expand-context-lift-key)" -"(lambda(v_89)(begin(root-expand-context/inner-lift-key(root-expand-context/outer-inner v_89)))))" +"(lambda(v_88)(begin(root-expand-context/inner-lift-key(root-expand-context/outer-inner v_88)))))" "(define-values" "(make-root-expand-context13.1)" "(lambda(all-scopes-stx7_0" @@ -11767,8 +11739,8 @@ static const char *startup_source = " module-scopes_1" " post-expansion-scope_1" "(new-scope 'module)" -"(let-values(((or-part_138) all-scopes-stx_1))" -"(if or-part_138 or-part_138(add-scopes empty-syntax module-scopes_1)))" +"(let-values(((or-part_137) all-scopes-stx_1))" +"(if or-part_137 or-part_137(add-scopes empty-syntax module-scopes_1)))" "(box null)" "(make-hasheqv)" " (string->uninterned-symbol \"root-frame\")" @@ -11791,7 +11763,7 @@ static const char *startup_source = "(let-values(((ht_65)(root-expand-context-defined-syms ctx_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_65)))" -"((letrec-values(((for-loop_77)" +"((letrec-values(((for-loop_78)" "(lambda(table_88 i_79)" "(begin" " 'for-loop" @@ -11801,14 +11773,14 @@ static const char *startup_source = "(let-values(((table_90) table_88))" "(let-values(((table_91)" "(let-values()" -"(let-values(((key_36 val_24)" +"(let-values(((key_38 val_25)" "(let-values()" "(values phase_22 ht_66))))" -"(hash-set table_90 key_36 val_24)))))" +"(hash-set table_90 key_38 val_25)))))" "(values table_91)))))" -"(if(not #f)(for-loop_77 table_89(hash-iterate-next ht_65 i_79)) table_89)))" +"(if(not #f)(for-loop_78 table_89(hash-iterate-next ht_65 i_79)) table_89)))" " table_88)))))" -" for-loop_77)" +" for-loop_78)" " '#hasheqv()" "(hash-iterate-first ht_65))))" "(root-expand-context-frame-id ctx_0)" @@ -11851,9 +11823,9 @@ static const char *startup_source = "(generate-lift-key)))))))" "(define-values" "(defined-syms-hash?)" -"(lambda(v_90)" +"(lambda(v_89)" "(begin" -"(let-values(((ht_67) v_90))" +"(let-values(((ht_67) v_89))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_67)))" "((letrec-values(((for-loop_8)" @@ -11875,7 +11847,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_68)))" -"((letrec-values(((for-loop_78)" +"((letrec-values(((for-loop_79)" "(lambda(result_57 i_81)" "(begin" " 'for-loop" @@ -11905,14 +11877,14 @@ static const char *startup_source = " id_8))" "(not #f)" " #f)" -"(for-loop_78" +"(for-loop_79" " result_58" "(hash-iterate-next" " ht_68" " i_81))" " result_58)))" " result_57)))))" -" for-loop_78)" +" for-loop_79)" " #t" "(hash-iterate-first ht_68))))" " #f)" @@ -11933,16 +11905,16 @@ static const char *startup_source = "(lambda(stx_10)(begin(if(syntax?$1 stx_10)(= 1(set-count(syntax-scope-set stx_10 0))) #f))))" "(define-values" "(extract-scope)" -"(lambda(stx_11)(begin(let-values(((s_155)(syntax-scope-set stx_11 0)))(generalize-scope(set-first s_155))))))" +"(lambda(stx_11)(begin(let-values(((s_156)(syntax-scope-set stx_11 0)))(generalize-scope(set-first s_156))))))" "(define-values" "(unpack-defined-syms)" -"(lambda(v_91)" +"(lambda(v_90)" "(begin" "(hash-copy" -"(let-values(((ht_69)(syntax-e$1 v_91)))" +"(let-values(((ht_69)(syntax-e$1 v_90)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_69)))" -"((letrec-values(((for-loop_79)" +"((letrec-values(((for-loop_80)" "(lambda(table_92 i_82)" "(begin" " 'for-loop" @@ -11952,7 +11924,7 @@ static const char *startup_source = "(let-values(((table_94) table_92))" "(let-values(((table_95)" "(let-values()" -"(let-values(((key_37 val_15)" +"(let-values(((key_39 val_17)" "(let-values()" "(values" " phase_24" @@ -11982,16 +11954,16 @@ static const char *startup_source = " table_96))" "(let-values(((table_99)" "(let-values()" -"(let-values(((key_38" -" val_25)" +"(let-values(((key_40" +" val_26)" "(let-values()" "(values" " sym_19" " id_9))))" "(hash-set" " table_98" -" key_38" -" val_25)))))" +" key_40" +" val_26)))))" "(values" " table_99)))))" "(if(not" @@ -12007,11 +11979,11 @@ static const char *startup_source = " '#hash()" "(hash-iterate-first" " ht_70)))))))))" -"(hash-set table_94 key_37 val_15)))))" +"(hash-set table_94 key_39 val_17)))))" "(values table_95)))))" -"(if(not #f)(for-loop_79 table_93(hash-iterate-next ht_69 i_82)) table_93)))" +"(if(not #f)(for-loop_80 table_93(hash-iterate-next ht_69 i_82)) table_93)))" " table_92)))))" -" for-loop_79)" +" for-loop_80)" " '#hasheqv()" "(hash-iterate-first ht_69))))))))" "(define-values(1/primitive-table) primitive-table)" @@ -12082,8 +12054,8 @@ static const char *startup_source = "(begin" " 'loop" "(let-values(((v_31)(unbox lock-box_0)))" -"(if(let-values(((or-part_73)(not v_31)))" -"(if or-part_73 or-part_73(sync/timeout 0(car v_31)(cdr v_31))))" +"(if(let-values(((or-part_72)(not v_31)))" +"(if or-part_72 or-part_72(sync/timeout 0(car v_31)(cdr v_31))))" "(let-values()" "(let-values(((sema_0)(make-semaphore)))" "(let-values(((lock_0)(cons(semaphore-peek-evt sema_0)(current-thread))))" @@ -12217,8 +12189,8 @@ static const char *startup_source = "(make-bulk-binding-registry))" "(make-small-hasheq)" "(if share-from-ns_0" -"(let-values(((or-part_139)(namespace-root-namespace share-from-ns_0)))" -"(if or-part_139 or-part_139 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))" " #f)" " #f" "(make-inspector(current-code-inspector))" @@ -12252,17 +12224,17 @@ static const char *startup_source = "(namespace->module)" "(lambda(ns_5 name_17)" "(begin" -"(let-values(((or-part_140)(small-hash-ref(namespace-submodule-declarations ns_5) name_17 #f)))" -"(if or-part_140" -" or-part_140" +"(let-values(((or-part_139)(small-hash-ref(namespace-submodule-declarations ns_5) name_17 #f)))" +"(if or-part_139" +" or-part_139" "(hash-ref(module-registry-declarations(1/namespace-module-registry ns_5)) name_17 #f))))))" "(define-values" "(namespace->namespace-at-phase)" "(lambda(ns_6 phase_26)" "(begin" -"(let-values(((or-part_141)(small-hash-ref(namespace-phase-to-namespace ns_6) phase_26 #f)))" -"(if or-part_141" -" or-part_141" +"(let-values(((or-part_140)(small-hash-ref(namespace-phase-to-namespace ns_6) phase_26 #f)))" +"(if or-part_140" +" or-part_140" "(let-values(((p-ns_0)" "(let-values(((the-struct_34) ns_6))" "(if(1/namespace? the-struct_34)" @@ -12290,22 +12262,22 @@ static const char *startup_source = "(lambda(ns_7)" "(begin" "(let-values(((n_20)(namespace-source-name ns_7)))" -"(let-values(((s_156)" +"(let-values(((s_157)" "(if(not n_20)" "(let-values() 'top-level)" "(if(symbol? n_20)" " (let-values () (format \"'~s\" n_20))" " (let-values () (string-append \"\\\"\" (path->string n_20) \"\\\"\"))))))" -"(let-values(((r_15)(1/resolved-module-path-name(1/module-path-index-resolve(namespace-mpi ns_7)))))" -" (if (pair? r_15) (string-append \"(submod \" s_156 \" \" (substring (format \"~s\" (cdr r_15)) 1)) s_156)))))))" +"(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_157 \" \" (substring (format \"~s\" (cdr r_27)) 1)) s_157)))))))" "(define-values" "(namespace->definitions)" "(lambda(ns_8 phase-level_1)" "(begin" "(let-values(((d_8)(small-hash-ref(namespace-phase-level-to-definitions ns_8) phase-level_1 #f)))" -"(let-values(((or-part_142) d_8))" -"(if or-part_142" -" or-part_142" +"(let-values(((or-part_141) d_8))" +"(if or-part_141" +" or-part_141" "(let-values()" "(let-values(((p-ns_1)" "(namespace->namespace-at-phase ns_8(phase+(namespace-0-phase ns_8) phase-level_1))))" @@ -12320,26 +12292,26 @@ static const char *startup_source = "(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(((val_27) 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_9 phase-level_2)))" "(1/instance-set-variable-value!" "(definitions-variables d_10)" " name_18" -" val_26" +" val_27" "(if as-constant?_0 'constant #f)))))))))))))" "(case-lambda" -"((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)))))" +"((ns_10 phase-level_3 name_19 val_28)" +"(begin(namespace-set-variable!18_0 ns_10 phase-level_3 name_19 val_28 #f #f)))" +"((ns_11 phase-level_4 name_20 val_29 as-constant?12_1)" +"(namespace-set-variable!18_0 ns_11 phase-level_4 name_20 val_29 as-constant?12_1 #t)))))" "(define-values" "(namespace-set-consistent!)" -"(lambda(ns_12 phase-level_5 name_21 val_29)" +"(lambda(ns_12 phase-level_5 name_21 val_30)" "(begin" "(let-values(((d_11)(namespace->definitions ns_12 phase-level_5)))" -"(1/instance-set-variable-value!(definitions-variables d_11) name_21 val_29 'consistent)))))" +"(1/instance-set-variable-value!(definitions-variables d_11) name_21 val_30 'consistent)))))" "(define-values" "(namespace-unset-variable!)" "(lambda(ns_13 phase-level_6 name_22)" @@ -12348,10 +12320,10 @@ static const char *startup_source = "(1/instance-unset-variable!(definitions-variables d_12) name_22)))))" "(define-values" "(namespace-set-transformer!)" -"(lambda(ns_14 phase-level_7 name_23 val_30)" +"(lambda(ns_14 phase-level_7 name_23 val_31)" "(begin" "(let-values(((d_13)(namespace->definitions ns_14(add1 phase-level_7))))" -"(hash-set!(definitions-transformers d_13) name_23 val_30)))))" +"(hash-set!(definitions-transformers d_13) name_23 val_31)))))" "(define-values" "(namespace-unset-transformer!)" "(lambda(ns_15 phase-level_8 name_24)" @@ -12413,8 +12385,8 @@ static const char *startup_source = " id1_0" "(if(identifier? old-stx_0)" " old-stx_0" -"(let-values(((v_92)(syntax-e/no-taint old-stx_0)))" -"(if(pair? v_92)(car v_92) #f))))))" +"(let-values(((v_91)(syntax-e/no-taint old-stx_0)))" +"(if(pair? v_91)(car v_91) #f))))))" "(let-values()" "(let-values(((old-props_0)(syntax-props old-stx_0)))" "(if(zero?(hash-count old-props_0))" @@ -12452,19 +12424,19 @@ static const char *startup_source = "(syntax-inspector the-struct_35)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_35))))))" "(let-values()" -"(let-values(((the-struct_36) new-stx_0))" -"(if(syntax?$1 the-struct_36)" +"(let-values(((the-struct_4) new-stx_0))" +"(if(syntax?$1 the-struct_4)" "(let-values(((props8_0) old-props_0))" "(syntax1.1" -"(syntax-content the-struct_36)" -"(syntax-scopes the-struct_36)" -"(syntax-shifted-multi-scopes the-struct_36)" -"(syntax-scope-propagations+tamper the-struct_36)" -"(syntax-mpi-shifts the-struct_36)" -"(syntax-srcloc the-struct_36)" +"(syntax-content the-struct_4)" +"(syntax-scopes the-struct_4)" +"(syntax-shifted-multi-scopes the-struct_4)" +"(syntax-scope-propagations+tamper the-struct_4)" +"(syntax-mpi-shifts the-struct_4)" +"(syntax-srcloc the-struct_4)" " props8_0" -"(syntax-inspector the-struct_36)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_36))))))" +"(syntax-inspector the-struct_4)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_4))))))" "(let-values()" "(let-values(((old-props-with-origin_0)" "(if id_10" @@ -12478,21 +12450,21 @@ static const char *startup_source = "(hash-count old-props-with-origin_0)" "(hash-count new-props_0))" "(let-values()" -"(let-values(((ht_63) old-props-with-origin_0))" +"(let-values(((ht_71) old-props-with-origin_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_63)))" -"((letrec-values(((for-loop_71)" -"(lambda(new-props_1 i_76)" +"(let-values()(check-in-immutable-hash ht_71)))" +"((letrec-values(((for-loop_81)" +"(lambda(new-props_1 i_84)" "(begin" " 'for-loop" -"(if i_76" -"(let-values(((k_16 v_82)" +"(if i_84" +"(let-values(((k_17 v_92)" "(unsafe-immutable-hash-iterate-key+value" -" ht_63" -" i_76)))" +" ht_71" +" i_84)))" "(let-values(((new-props_2)" "(let-values(((new-props_3)" " new-props_1))" @@ -12501,47 +12473,47 @@ static const char *startup_source = "(let-values(((new-v_0)" "(hash-ref" " new-props_3" -" k_16" +" k_17" " missing$1)))" "(hash-set" " new-props_3" -" k_16" +" k_17" "(if(eq?" " new-v_0" " missing$1)" -" v_82" +" v_92" "(cons/preserve" " new-v_0" -" v_82)))))))" +" v_92)))))))" "(values" " new-props_4)))))" "(if(not #f)" -"(for-loop_71" +"(for-loop_81" " new-props_2" "(unsafe-immutable-hash-iterate-next" -" ht_63" -" i_76))" +" ht_71" +" i_84))" " new-props_2)))" " new-props_1)))))" -" for-loop_71)" +" for-loop_81)" " new-props_0" -"(unsafe-immutable-hash-iterate-first ht_63)))))" +"(unsafe-immutable-hash-iterate-first ht_71)))))" "(let-values()" -"(let-values(((ht_71) new-props_0))" +"(let-values(((ht_72) new-props_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_71)))" -"((letrec-values(((for-loop_80)" -"(lambda(old-props_1 i_84)" +"(let-values()(check-in-immutable-hash ht_72)))" +"((letrec-values(((for-loop_82)" +"(lambda(old-props_1 i_85)" "(begin" " 'for-loop" -"(if i_84" -"(let-values(((k_17 v_5)" +"(if i_85" +"(let-values(((k_18 v_5)" "(unsafe-immutable-hash-iterate-key+value" -" ht_71" -" i_84)))" +" ht_72" +" i_85)))" "(let-values(((old-props_2)" "(let-values(((old-props_3)" " old-props_1))" @@ -12550,11 +12522,11 @@ static const char *startup_source = "(let-values(((old-v_0)" "(hash-ref" " old-props_3" -" k_17" +" k_18" " missing$1)))" "(hash-set" " old-props_3" -" k_17" +" k_18" "(if(eq?" " old-v_0" " missing$1)" @@ -12565,32 +12537,32 @@ static const char *startup_source = "(values" " old-props_4)))))" "(if(not #f)" -"(for-loop_80" +"(for-loop_82" " old-props_2" "(unsafe-immutable-hash-iterate-next" -" ht_71" -" i_84))" +" ht_72" +" i_85))" " old-props_2)))" " old-props_1)))))" -" for-loop_80)" +" for-loop_82)" " old-props-with-origin_0" -"(unsafe-immutable-hash-iterate-first ht_71))))))))" -"(let-values(((the-struct_37) new-stx_0))" -"(if(syntax?$1 the-struct_37)" +"(unsafe-immutable-hash-iterate-first ht_72))))))))" +"(let-values(((the-struct_36) new-stx_0))" +"(if(syntax?$1 the-struct_36)" "(let-values(((props9_0) updated-props_0))" "(syntax1.1" -"(syntax-content the-struct_37)" -"(syntax-scopes the-struct_37)" -"(syntax-shifted-multi-scopes the-struct_37)" -"(syntax-scope-propagations+tamper the-struct_37)" -"(syntax-mpi-shifts the-struct_37)" -"(syntax-srcloc the-struct_37)" +"(syntax-content the-struct_36)" +"(syntax-scopes the-struct_36)" +"(syntax-shifted-multi-scopes the-struct_36)" +"(syntax-scope-propagations+tamper the-struct_36)" +"(syntax-mpi-shifts the-struct_36)" +"(syntax-srcloc the-struct_36)" " props9_0" -"(syntax-inspector the-struct_37)))" +"(syntax-inspector the-struct_36)))" "(raise-argument-error" " 'struct-copy" " \"syntax?\"" -" the-struct_37)))))))))))))))))))" +" the-struct_36)))))))))))))))))))" "(case-lambda" "((new-stx_1 old-stx_1)(begin 'syntax-track-origin(syntax-track-origin5_0 new-stx_1 old-stx_1 #f #f)))" "((new-stx_2 old-stx_2 id1_1)(syntax-track-origin5_0 new-stx_2 old-stx_2 id1_1 #t)))))" @@ -12598,8 +12570,8 @@ static const char *startup_source = "(cons/preserve)" "(lambda(a_34 b_56)" "(begin" -"(if(let-values(((or-part_143)(preserved-property-value? a_34)))" -"(if or-part_143 or-part_143(preserved-property-value? b_56)))" +"(if(let-values(((or-part_142)(preserved-property-value? a_34)))" +"(if or-part_142 or-part_142(preserved-property-value? b_56)))" "(preserved-property-value1.1(cons(plain-property-value a_34)(plain-property-value b_56)))" "(cons a_34 b_56)))))" "(define-values" @@ -12609,7 +12581,7 @@ static const char *startup_source = "(let-values(((lst_59) old-stxes_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_59)))" -"((letrec-values(((for-loop_81)" +"((letrec-values(((for-loop_83)" "(lambda(new-stx_4 lst_60)" "(begin" " 'for-loop" @@ -12621,9 +12593,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_81 new-stx_5 rest_26) new-stx_5)))" +"(if(not #f)(for-loop_83 new-stx_5 rest_26) new-stx_5)))" " new-stx_4)))))" -" for-loop_81)" +" for-loop_83)" " new-stx_3" " lst_59))))))" "(define-values" @@ -12692,14 +12664,17 @@ static const char *startup_source = "(let-values(((extra-sources_0)(if extra-sources7_0 extra-sources3_0 null)))" " (let-values (((message-suffix_0) (if message-suffix8_0 message-suffix4_0 \"\")))" "(let-values()" +"(let-values()" +"(let-values()" "(do-raise-syntax-error" +" 'raise-syntax-error" " make-exn:fail:syntax$1" " given-name_0" " message_0" " expr_0" " sub-expr_0" " extra-sources_0" -" message-suffix_0))))))))))))" +" message-suffix_0))))))))))))))" "(case-lambda" "((given-name_1 message_1)" "(begin 'raise-syntax-error(raise-syntax-error11_0 given-name_1 message_1 #f #f #f #f #f #f #f #f)))" @@ -12732,14 +12707,17 @@ static const char *startup_source = "(let-values(((extra-sources_2)(if extra-sources19_0 extra-sources15_0 null)))" " (let-values (((message-suffix_1) (if message-suffix20_0 message-suffix16_0 \"\")))" "(let-values()" +"(let-values()" +"(let-values()" "(do-raise-syntax-error" +" 'raise-unbound-syntax-error" " make-exn:fail:syntax:unbound$1" " given-name_6" " message_6" " expr_4" " sub-expr_3" " extra-sources_2" -" message-suffix_1))))))))))))" +" message-suffix_1))))))))))))))" "(case-lambda" "((given-name_7 message_7)(begin(raise-unbound-syntax-error23_0 given-name_7 message_7 #f #f #f #f #f #f #f #f)))" "((given-name_8 message_8 expr_5 sub-expr_4 extra-sources_3 message-suffix16_1)" @@ -12762,50 +12740,50 @@ static const char *startup_source = "(raise-unbound-syntax-error23_0 given-name_11 message_11 expr13_1 #f #f #f #t #f #f #f)))))" "(define-values" "(do-raise-syntax-error)" -"(lambda(exn:fail:syntax_0 given-name_12 message_12 expr_8 sub-expr_6 extra-sources_4 message-suffix_2)" +"(lambda(who_8 exn:fail:syntax_0 given-name_12 message_12 expr_8 sub-expr_6 extra-sources_4 message-suffix_2)" "(begin" "(let-values((()" "(begin" -"(if(let-values(((or-part_137)(not given-name_12)))" -"(if or-part_137 or-part_137(symbol? given-name_12)))" +"(if((lambda(x_12)" +"(let-values(((or-part_143)(not x_12)))(if or-part_143 or-part_143(symbol? x_12))))" +" given-name_12)" "(void)" -" (let-values () (raise-argument-error 'raise-syntax-error \"(or/c symbol? #f)\" given-name_12)))" +" (let-values () (raise-argument-error who_8 \"(or/c symbol? #f)\" given-name_12)))" "(values))))" "(let-values((()" "(begin" "(if(string? message_12)" "(void)" -" (let-values () (raise-argument-error 'raise-syntax-error \"string?\" message_12)))" +" (let-values () (raise-argument-error who_8 \"string?\" message_12)))" "(values))))" "(let-values((()" "(begin" "(if(if(list? extra-sources_4)(andmap2 syntax?$1 extra-sources_4) #f)" "(void)" -"(let-values()" -" (raise-argument-error 'raise-syntax-error \"(listof syntax?)\" extra-sources_4)))" +" (let-values () (raise-argument-error who_8 \"(listof syntax?)\" extra-sources_4)))" "(values))))" "(let-values((()" "(begin" "(if(string? message-suffix_2)" "(void)" -" (let-values () (raise-argument-error 'raise-syntax-error \"string?\" message-suffix_2)))" +" (let-values () (raise-argument-error who_8 \"string?\" message-suffix_2)))" "(values))))" "(let-values(((name_27)" "(format" " \"~a\"" -"(let-values(((or-part_138) given-name_12))" -"(if or-part_138" -" or-part_138" -"(let-values(((or-part_144)(extract-form-name expr_8)))" -"(if or-part_144 or-part_144 '?)))))))" +"(let-values(((or-part_144) given-name_12))" +"(if or-part_144" +" or-part_144" +"(let-values(((or-part_145)(extract-form-name expr_8)))" +"(if or-part_145 or-part_145 '?)))))))" "(let-values(((at-message_0)" -"(let-values(((or-part_145)" +"(let-values(((or-part_138)" "(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_145 or-part_145 \"\"))))" +" (if or-part_138 or-part_138 \"\"))))" "(let-values(((in-message_0)" "(let-values(((or-part_146)" "(if expr_8" @@ -12815,32 +12793,32 @@ static const char *startup_source = " #f)))" " (if or-part_146 or-part_146 \"\"))))" "(let-values(((src-loc-str_0)" -"(let-values(((or-part_147)" +"(let-values(((or-part_54)" "(if(error-print-source-location)" -"(let-values(((or-part_148)(extract-source-location sub-expr_6)))" -"(if or-part_148 or-part_148(extract-source-location expr_8)))" +"(let-values(((or-part_147)(extract-source-location sub-expr_6)))" +"(if or-part_147 or-part_147(extract-source-location expr_8)))" " #f)))" -" (if or-part_147 or-part_147 \"\"))))" +" (if or-part_54 or-part_54 \"\"))))" "(raise" "(exn:fail:syntax_0" " (string-append src-loc-str_0 name_27 \": \" message_12 at-message_0 in-message_0 message-suffix_2)" "(current-continuation-marks)" "(map2" " syntax-taint$1" -"(if(let-values(((or-part_139) sub-expr_6))(if or-part_139 or-part_139 expr_8))" +"(if(let-values(((or-part_148) sub-expr_6))(if or-part_148 or-part_148 expr_8))" "(cons" "(datum->syntax$1" " #f" -"(let-values(((or-part_54) sub-expr_6))(if or-part_54 or-part_54 expr_8)))" +"(let-values(((or-part_149) sub-expr_6))(if or-part_149 or-part_149 expr_8)))" " extra-sources_4)" " extra-sources_4)))))))))))))))" "(define-values" "(extract-form-name)" -"(lambda(s_157)" +"(lambda(s_158)" "(begin" -"(if(syntax?$1 s_157)" +"(if(syntax?$1 s_158)" "(let-values()" -"(let-values(((e_17)(syntax-e$1 s_157)))" +"(let-values(((e_17)(syntax-e$1 s_158)))" "(if(symbol? e_17)" "(let-values() e_17)" "(if(if(pair? e_17)(identifier?(car e_17)) #f)" @@ -12849,11 +12827,11 @@ static const char *startup_source = "(let-values() #f)))))" "(define-values" "(extract-source-location)" -"(lambda(s_158)" +"(lambda(s_159)" "(begin" -"(if(syntax?$1 s_158)" -"(if(syntax-srcloc s_158)" -" (let-values (((str_2) (srcloc->string (syntax-srcloc s_158)))) (if str_2 (string-append str_2 \": \") #f))" +"(if(syntax?$1 s_159)" +"(if(syntax-srcloc s_159)" +" (let-values (((str_2) (srcloc->string (syntax-srcloc s_159)))) (if str_2 (string-append str_2 \": \") #f))" " #f)" " #f))))" "(define-values" @@ -13117,12 +13095,12 @@ static const char *startup_source = "(let-values(((phase_27) 0))" "(let-values(((name_28)(1/module-path-index-resolve name-mpi_0)))" "(let-values(((m-ns_1)" -"(let-values(((the-struct_38)" +"(let-values(((the-struct_37)" "(let-values(((ns160_0) ns_20)" "((root-expand-ctx161_0) root-expand-ctx_1)" "((temp162_0) #f))" "(new-namespace9.1 temp162_0 #t root-expand-ctx161_0 #t ns160_0 #t))))" -"(if(1/namespace? the-struct_38)" +"(if(1/namespace? the-struct_37)" "(let-values(((mpi152_0) name-mpi_0)" "((source-name153_0)(resolved-module-path-root-name name_28))" "((phase154_0) phase_27)" @@ -13137,20 +13115,20 @@ static const char *startup_source = "(namespace1.1" " mpi152_0" " source-name153_0" -"(namespace-root-expand-ctx the-struct_38)" +"(namespace-root-expand-ctx the-struct_37)" " phase154_0" " 0-phase155_0" -"(namespace-phase-to-namespace the-struct_38)" -"(namespace-phase-level-to-definitions the-struct_38)" -"(1/namespace-module-registry the-struct_38)" -"(namespace-bulk-binding-registry the-struct_38)" +"(namespace-phase-to-namespace the-struct_37)" +"(namespace-phase-level-to-definitions the-struct_37)" +"(1/namespace-module-registry the-struct_37)" +"(namespace-bulk-binding-registry the-struct_37)" " submodule-declarations156_0" -"(namespace-root-namespace the-struct_38)" +"(namespace-root-namespace the-struct_37)" " declaration-inspector159_0" -"(namespace-inspector the-struct_38)" +"(namespace-inspector the-struct_37)" " available-module-instances157_0" " module-instances158_0))" -" (raise-argument-error 'struct-copy \"namespace?\" the-struct_38)))))" +" (raise-argument-error 'struct-copy \"namespace?\" the-struct_37)))))" "(let-values((()" "(begin" "(small-hash-set!(namespace-phase-to-namespace m-ns_1) phase_27 m-ns_1)" @@ -13258,9 +13236,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_149)(module-instance-attached? prior-mi_1)))" -"(if or-part_149" -" or-part_149" +"(let-values(((or-part_150)(module-instance-attached? prior-mi_1)))" +"(if or-part_150" +" or-part_150" "(not" "(inspector-superior?" "(current-code-inspector)" @@ -13271,7 +13249,7 @@ static const char *startup_source = "(void))))))" "(define-values" "(raise-unknown-module-error)" -" (lambda (who_8 mod-name_6) (begin (raise-arguments-error who_8 \"unknown module\" \"module name\" mod-name_6))))" +" (lambda (who_9 mod-name_6) (begin (raise-arguments-error who_9 \"unknown module\" \"module name\" mod-name_6))))" "(define-values" "(namespace->module-linklet-info)" "(lambda(ns_22 name_29 phase-level_12)" @@ -13300,21 +13278,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_150)" +"(let-values(((or-part_151)" "(hash-ref" "(hash-ref(namespace-module-instances ns_23) 0-phase_1 '#hasheq())" " name_30" " #f)))" -"(if or-part_150" -" or-part_150" -"(let-values(((or-part_151)" -"(let-values(((c-ns_0)" -"(let-values(((or-part_152)" -"(namespace-root-namespace ns_23)))" -"(if or-part_152 or-part_152 ns_23))))" -"(hash-ref(namespace-module-instances c-ns_0) name_30 #f))))" "(if or-part_151" " or-part_151" +"(let-values(((or-part_152)" +"(let-values(((c-ns_0)" +"(let-values(((or-part_153)" +"(namespace-root-namespace ns_23)))" +"(if or-part_153 or-part_153 ns_23))))" +"(hash-ref(namespace-module-instances c-ns_0) name_30 #f))))" +"(if or-part_152" +" or-part_152" "(if complain-on-failure?_0" " (error \"no module instance found:\" name_30 0-phase_1)" " #f)))))))" @@ -13326,8 +13304,8 @@ static const char *startup_source = "(lambda(ns_24 name_31 0-phase_2 m_4 existing-m-ns_0)" "(begin" "(let-values(((m-ns_3)" -"(let-values(((the-struct_39) ns_24))" -"(if(1/namespace? the-struct_39)" +"(let-values(((the-struct_38) ns_24))" +"(if(1/namespace? the-struct_38)" "(let-values(((mpi172_0)(namespace-mpi existing-m-ns_0))" "((source-name173_0)(namespace-source-name existing-m-ns_0))" "((root-expand-ctx174_0)(box(unbox(namespace-root-expand-ctx existing-m-ns_0))))" @@ -13348,15 +13326,15 @@ static const char *startup_source = " 0-phase176_0" " phase-to-namespace177_0" " phase-level-to-definitions178_0" -"(1/namespace-module-registry the-struct_39)" -"(namespace-bulk-binding-registry the-struct_39)" -"(namespace-submodule-declarations the-struct_39)" -"(namespace-root-namespace the-struct_39)" +"(1/namespace-module-registry the-struct_38)" +"(namespace-bulk-binding-registry the-struct_38)" +"(namespace-submodule-declarations the-struct_38)" +"(namespace-root-namespace the-struct_38)" " declaration-inspector179_0" " inspector180_0" -"(namespace-available-module-instances the-struct_39)" -"(namespace-module-instances the-struct_39)))" -" (raise-argument-error 'struct-copy \"namespace?\" the-struct_39)))))" +"(namespace-available-module-instances the-struct_38)" +"(namespace-module-instances the-struct_38)))" +" (raise-argument-error 'struct-copy \"namespace?\" the-struct_38)))))" "(let-values(((mi_1)(make-module-instance m-ns_3 m_4)))" "(if(module-cross-phase-persistent? m_4)" "(let-values()" @@ -13373,7 +13351,7 @@ static const char *startup_source = "(namespace->definitions existing-m-ns_0 1))" "(hash-set!" "(namespace-module-instances" -"(let-values(((or-part_153)(namespace-root-namespace ns_24)))(if or-part_153 or-part_153 ns_24)))" +"(let-values(((or-part_154)(namespace-root-namespace ns_24)))(if or-part_154 or-part_154 ns_24)))" " name_31" " mi_1)" "(small-hash-set!(module-instance-phase-level-to-state mi_1) 0 'started)))" @@ -13392,10 +13370,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_154)" +"(let-values(((or-part_155)" "(hash-ref(namespace-module-instances ns_24) 0-phase_2 #f)))" -"(if or-part_154" -" or-part_154" +"(if or-part_155" +" or-part_155" "(let-values(((at-phase_3)(make-hasheq)))" "(begin" "(hash-set!(namespace-module-instances ns_24) 0-phase_2 at-phase_3)" @@ -13403,17 +13381,17 @@ static const char *startup_source = "(hash-set! at-phase_2 name_31 mi_1))))))))))))" "(define-values" "(namespace-create-module-instance!)" -"(lambda(ns_25 name_32 0-phase_3 m_5 mpi_14)" +"(lambda(ns_25 name_32 0-phase_3 m_5 mpi_15)" "(begin" "(let-values(((m-ns_4)" -"(let-values(((the-struct_24) ns_25))" -"(if(1/namespace? the-struct_24)" -"(let-values(((mpi181_0) mpi_14)" +"(let-values(((the-struct_27) ns_25))" +"(if(1/namespace? the-struct_27)" +"(let-values(((mpi181_0) mpi_15)" "((source-name182_0)" -"(let-values(((or-part_155)(module-source-name m_5)))" -"(if or-part_155" -" or-part_155" -"(resolved-module-path-root-name(1/module-path-index-resolve mpi_14)))))" +"(let-values(((or-part_156)(module-source-name m_5)))" +"(if or-part_156" +" or-part_156" +"(resolved-module-path-root-name(1/module-path-index-resolve mpi_15)))))" "((root-expand-ctx183_0)(box #f))" "((phase184_0) 0-phase_3)" "((0-phase185_0) 0-phase_3)" @@ -13429,24 +13407,24 @@ static const char *startup_source = " 0-phase185_0" " phase-to-namespace186_0" " phase-level-to-definitions187_0" -"(1/namespace-module-registry the-struct_24)" -"(namespace-bulk-binding-registry the-struct_24)" -"(namespace-submodule-declarations the-struct_24)" -"(namespace-root-namespace the-struct_24)" +"(1/namespace-module-registry the-struct_27)" +"(namespace-bulk-binding-registry the-struct_27)" +"(namespace-submodule-declarations the-struct_27)" +"(namespace-root-namespace the-struct_27)" " declaration-inspector188_0" " inspector189_0" -"(namespace-available-module-instances the-struct_24)" -"(namespace-module-instances the-struct_24)))" -" (raise-argument-error 'struct-copy \"namespace?\" the-struct_24)))))" +"(namespace-available-module-instances the-struct_27)" +"(namespace-module-instances the-struct_27)))" +" (raise-argument-error 'struct-copy \"namespace?\" the-struct_27)))))" "(let-values((()(begin(small-hash-set!(namespace-phase-to-namespace m-ns_4) 0-phase_3 m-ns_4)(values))))" "(let-values(((mi_2)(make-module-instance m-ns_4 m_5)))" "(begin" "(if(module-cross-phase-persistent? m_5)" "(hash-set!(namespace-module-instances ns_25) name_32 mi_2)" "(let-values(((at-phase_4)" -"(let-values(((or-part_156)(hash-ref(namespace-module-instances ns_25) 0-phase_3 #f)))" -"(if or-part_156" -" or-part_156" +"(let-values(((or-part_157)(hash-ref(namespace-module-instances ns_25) 0-phase_3 #f)))" +"(if or-part_157" +" or-part_157" "(let-values(((at-phase_5)(make-hasheq)))" "(begin" "(hash-set!(namespace-module-instances ns_25) 0-phase_3 at-phase_5)" @@ -13535,7 +13513,7 @@ static const char *startup_source = "(begin" " 'namespace-module-instantiate!96" "(let-values(((ns_29) ns93_0))" -"(let-values(((mpi_15) mpi94_0))" +"(let-values(((mpi_16) mpi94_0))" "(let-values(((instance-phase_0) instance-phase95_0))" "(let-values(((run-phase_0)(if run-phase89_0 run-phase85_0(namespace-phase ns_29))))" "(let-values(((skip-run?_0)(if skip-run?90_0 skip-run?86_0 #f)))" @@ -13544,11 +13522,11 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(1/module-path-index? mpi_15)" +"(if(1/module-path-index? mpi_16)" "(void)" -" (let-values () (error \"not a module path index:\" mpi_15)))" +" (let-values () (error \"not a module path index:\" mpi_16)))" "(values))))" -"(let-values(((name_34)(1/module-path-index-resolve mpi_15 #t)))" +"(let-values(((name_34)(1/module-path-index-resolve mpi_16 #t)))" "(let-values(((m_8)(namespace->module ns_29 name_34)))" "(let-values((()" "(begin" @@ -13561,7 +13539,7 @@ static const char *startup_source = "(begin" " 'instantiate!" "(let-values(((mi_6)" -"(let-values(((or-part_157)" +"(let-values(((or-part_158)" "(let-values(((ns205_0) ns_30)" "((name206_0) name_34)" "((instance-phase207_0)" @@ -13576,14 +13554,14 @@ static const char *startup_source = " ns205_0" " name206_0" " instance-phase207_0))))" -"(if or-part_157" -" or-part_157" +"(if or-part_158" +" or-part_158" "(namespace-create-module-instance!" " ns_30" " name_34" " instance-phase_1" " m_8" -" mpi_15)))))" +" mpi_16)))))" "(let-values(((mi199_0) mi_6)" "((ns200_0) ns_30)" "((run-phase201_0) run-phase_1)" @@ -13603,8 +13581,8 @@ static const char *startup_source = "(instantiate!_0" " 0" " 0" -"(let-values(((or-part_158)(namespace-root-namespace ns_29)))" -"(if or-part_158 or-part_158 ns_29))))" +"(let-values(((or-part_159)(namespace-root-namespace ns_29)))" +"(if or-part_159 or-part_159 ns_29))))" "(let-values()(instantiate!_0 instance-phase_0 run-phase_0 ns_29)))))))))))))))))))" "(define-values" "(namespace-module-visit!104.1)" @@ -13612,12 +13590,12 @@ static const char *startup_source = "(begin" " 'namespace-module-visit!104" "(let-values(((ns_31) ns101_0))" -"(let-values(((mpi_16) mpi102_0))" +"(let-values(((mpi_17) mpi102_0))" "(let-values(((instance-phase_2) instance-phase103_0))" "(let-values(((visit-phase_0)(if visit-phase100_0 visit-phase99_0(namespace-phase ns_31))))" "(let-values()" "(let-values(((ns208_0) ns_31)" -"((mpi209_0) mpi_16)" +"((mpi209_0) mpi_17)" "((instance-phase210_0) instance-phase_2)" "((temp211_0)(add1 visit-phase_0)))" "(namespace-module-instantiate!96.1" @@ -13638,12 +13616,12 @@ static const char *startup_source = "(begin" " 'namespace-module-make-available!112" "(let-values(((ns_32) ns109_0))" -"(let-values(((mpi_17) mpi110_0))" +"(let-values(((mpi_18) mpi110_0))" "(let-values(((instance-phase_3) instance-phase111_0))" "(let-values(((visit-phase_1)(if visit-phase108_0 visit-phase107_0(namespace-phase ns_32))))" "(let-values()" "(let-values(((ns212_0) ns_32)" -"((mpi213_0) mpi_17)" +"((mpi213_0) mpi_18)" "((instance-phase214_0) instance-phase_3)" "((temp215_0)(add1 visit-phase_1))" "((temp216_0) #t))" @@ -13675,22 +13653,22 @@ 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_159) skip-run?_1))" -"(if or-part_159" -" or-part_159" +"(if(if(let-values(((or-part_160) skip-run?_1))" +"(if or-part_160" +" or-part_160" "(eq?" " 'started" "(small-hash-ref" "(module-instance-phase-level-to-state mi_7)" " run-phase-level_0" " #f))))" -"(let-values(((or-part_160)(not otherwise-available?_1)))" -"(if or-part_160 or-part_160(module-instance-made-available? mi_7)))" +"(let-values(((or-part_161)(not otherwise-available?_1)))" +"(if or-part_161 or-part_161(module-instance-made-available? mi_7)))" " #f)" "(void)" "(let-values()" "(let-values(((m_9)(module-instance-module mi_7)))" -"(let-values(((mpi_18)(namespace-mpi m-ns_5)))" +"(let-values(((mpi_19)(namespace-mpi m-ns_5)))" "(let-values(((phase-shift_3) instance-phase_4))" "(let-values(((bulk-binding-registry_3)(namespace-bulk-binding-registry m-ns_5)))" "(begin" @@ -13709,7 +13687,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_61)))" -"((letrec-values(((for-loop_82)" +"((letrec-values(((for-loop_84)" "(lambda(fold-var_43 lst_62)" "(begin" " 'for-loop" @@ -13739,7 +13717,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_63)))" -"((letrec-values(((for-loop_83)" +"((letrec-values(((for-loop_85)" "(lambda(fold-var_47" " lst_64)" "(begin" @@ -13763,27 +13741,27 @@ static const char *startup_source = " req-mpi_0" "(module-self" " m_9)" -" mpi_18))" +" mpi_19))" " fold-var_49))))" "(values" " fold-var_50)))))" "(if(not" " #f)" -"(for-loop_83" +"(for-loop_85" " fold-var_48" " rest_28)" " fold-var_48)))" " fold-var_47)))))" -" for-loop_83)" +" for-loop_85)" " null" " lst_63))))))" " fold-var_45))))" "(values fold-var_46)))))" "(if(not #f)" -"(for-loop_82 fold-var_44 rest_27)" +"(for-loop_84 fold-var_44 rest_27)" " fold-var_44)))" " fold-var_43)))))" -" for-loop_82)" +" for-loop_84)" " null" " lst_61)))))))" "(let-values(((lst_65)(module-instance-shifted-requires mi_7)))" @@ -13791,7 +13769,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_65)))" -"((letrec-values(((for-loop_84)" +"((letrec-values(((for-loop_86)" "(lambda(lst_66)" "(begin" " 'for-loop" @@ -13818,7 +13796,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_67)))" -"((letrec-values(((for-loop_85)" +"((letrec-values(((for-loop_87)" "(lambda(lst_68)" "(begin" " 'for-loop" @@ -13871,18 +13849,18 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_85" +"(for-loop_87" " rest_30)" "(values))))" "(values))))))" -" for-loop_85)" +" for-loop_87)" " lst_67)))" "(void))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_84 rest_29)(values))))" +"(if(not #f)(for-loop_86 rest_29)(values))))" "(values))))))" -" for-loop_84)" +" for-loop_86)" " lst_65)))" "(void)" "(if(label-phase? instance-phase_4)" @@ -13896,7 +13874,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_13 end_9 inc_3)))" -"((letrec-values(((for-loop_86)" +"((letrec-values(((for-loop_88)" "(lambda(pos_10)" "(begin" " 'for-loop" @@ -13964,7 +13942,7 @@ static const char *startup_source = " data-box_0" " p-ns_2" " phase-shift_3" -" mpi_18" +" mpi_19" " bulk-binding-registry_3" " insp_5)" "(go_0" @@ -13972,7 +13950,7 @@ static const char *startup_source = " p-ns_2" " phase-shift_3" " phase-level_13" -" mpi_18" +" mpi_19" " bulk-binding-registry_3" " insp_5))))))))))))" "(if(if otherwise-available?_1" @@ -14007,10 +13985,10 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_86(+ pos_10 inc_3))" +"(for-loop_88(+ pos_10 inc_3))" "(values))))" "(values))))))" -" for-loop_86)" +" for-loop_88)" " start_13)))" "(void))))" "(if otherwise-available?_1" @@ -14073,7 +14051,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_69)))" -"((letrec-values(((for-loop_87)" +"((letrec-values(((for-loop_89)" "(lambda(lst_70)" "(begin" " 'for-loop" @@ -14111,10 +14089,10 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_87 rest_31)" +"(for-loop_89 rest_31)" "(values))))" "(values))))))" -" for-loop_87)" +" for-loop_89)" " lst_69)))" "(void)" "(loop_76)))))))))" @@ -14186,7 +14164,7 @@ static const char *startup_source = "(let-values(((lst_71) requires_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_71)))" -"((letrec-values(((for-loop_88)" +"((letrec-values(((for-loop_90)" "(lambda(fold-var_51 lst_72)" "(begin" " 'for-loop" @@ -14207,7 +14185,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_73)))" -"((letrec-values(((for-loop_89)" +"((letrec-values(((for-loop_91)" "(lambda(fold-var_55" " lst_74)" "(begin" @@ -14232,19 +14210,19 @@ static const char *startup_source = "(values" " fold-var_58)))))" "(if(not #f)" -"(for-loop_89" +"(for-loop_91" " fold-var_56" " rest_33)" " fold-var_56)))" " fold-var_55)))))" -" for-loop_89)" +" for-loop_91)" " null" " lst_73))))))" " fold-var_53))))" "(values fold-var_54)))))" -"(if(not #f)(for-loop_88 fold-var_52 rest_32) fold-var_52)))" +"(if(not #f)(for-loop_90 fold-var_52 rest_32) fold-var_52)))" " fold-var_51)))))" -" for-loop_88)" +" for-loop_90)" " null" " lst_71)))))))" "(define-values" @@ -14252,27 +14230,27 @@ static const char *startup_source = "(lambda(m_10)" "(begin" "(let-values(((access_0)" -"(let-values(((ht_72)(module-provides m_10)))" +"(let-values(((ht_73)(module-provides m_10)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_72)))" -"((letrec-values(((for-loop_90)" -"(lambda(table_100 i_85)" +"(let-values()(check-in-hash ht_73)))" +"((letrec-values(((for-loop_92)" +"(lambda(table_100 i_86)" "(begin" " 'for-loop" -"(if i_85" +"(if i_86" "(let-values(((phase_31 at-phase_6)" -"(hash-iterate-key+value ht_72 i_85)))" +"(hash-iterate-key+value ht_73 i_86)))" "(let-values(((table_101)" "(let-values(((table_102) table_100))" "(let-values(((table_103)" "(let-values()" -"(let-values(((key_39 val_31)" +"(let-values(((key_41 val_32)" "(let-values()" "(values" " phase_31" -"(let-values(((ht_73)" +"(let-values(((ht_74)" " at-phase_6))" "(begin" "(if(variable-reference-from-unsafe?" @@ -14280,25 +14258,25 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_73)))" -"((letrec-values(((for-loop_91)" +" ht_74)))" +"((letrec-values(((for-loop_93)" "(lambda(table_104" -" i_86)" +" i_87)" "(begin" " 'for-loop" -"(if i_86" +"(if i_87" "(let-values(((sym_20" " binding/p_1)" "(hash-iterate-key+value" -" ht_73" -" i_86)))" +" ht_74" +" i_87)))" "(let-values(((table_105)" "(let-values(((table_106)" " table_104))" "(let-values(((table_107)" "(let-values()" -"(let-values(((key_40" -" val_32)" +"(let-values(((key_42" +" val_33)" "(let-values()" "(values" "(module-binding-sym" @@ -14310,35 +14288,35 @@ static const char *startup_source = " 'provided)))))" "(hash-set" " table_106" -" key_40" -" val_32)))))" +" key_42" +" val_33)))))" "(values" " table_107)))))" "(if(not" " #f)" -"(for-loop_91" +"(for-loop_93" " table_105" "(hash-iterate-next" -" ht_73" -" i_86))" +" ht_74" +" i_87))" " table_105)))" " table_104)))))" -" for-loop_91)" +" for-loop_93)" " '#hash()" "(hash-iterate-first" -" ht_73))))))))" +" ht_74))))))))" "(hash-set" " table_102" -" key_39" -" val_31)))))" +" key_41" +" val_32)))))" "(values table_103)))))" "(if(not #f)" -"(for-loop_90 table_101(hash-iterate-next ht_72 i_85))" +"(for-loop_92 table_101(hash-iterate-next ht_73 i_86))" " table_101)))" " table_100)))))" -" for-loop_90)" +" for-loop_92)" " '#hasheqv()" -"(hash-iterate-first ht_72))))))" +"(hash-iterate-first ht_73))))))" "(begin(set-module-access! m_10 access_0) access_0)))))" "(define-values" "(binding->module-instance)" @@ -14405,13 +14383,13 @@ static const char *startup_source = "(if or-part_10 or-part_10(eq? a_35 'protected)))" "(let-values()" "(begin" -"(if(let-values(((or-part_161)" +"(if(let-values(((or-part_162)" "(inspector-superior?" "(let-values(((or-part_12)(syntax-inspector id_12)))" "(if or-part_12 or-part_12(current-code-inspector)))" "(namespace-inspector(module-instance-namespace mi_13)))))" -"(if or-part_161" -" or-part_161" +"(if or-part_162" +" or-part_162" "(if(module-binding-extra-inspector b_41)" "(inspector-superior?" "(module-binding-extra-inspector b_41)" @@ -14475,8 +14453,8 @@ static const char *startup_source = "(let-values(((next-b_0)" "(loop_77" " next-id_0" -"(let-values(((or-part_73) in-s_1))" -"(if or-part_73 or-part_73 id_2)))))" +"(let-values(((or-part_72) in-s_1))" +"(if or-part_72 or-part_72 id_2)))))" "(if(not next-b_0)" "(let-values() b_46)" "(if(if(module-binding? next-b_0)" @@ -14607,9 +14585,9 @@ static const char *startup_source = "(begin" " 'set!-transformer-procedure" "(let-values(((v_93)((set!-transformer-value t_37) t_37)))" -"(if(procedure-arity-includes? v_93 1) v_93(lambda(s_159)(v_93 t_37 s_159)))))))" +"(if(procedure-arity-includes? v_93 1) v_93(lambda(s_160)(v_93 t_37 s_160)))))))" "(define-values(empty-env) '#hasheq())" -"(define-values(env-extend)(lambda(env_0 key_41 val_20)(begin(hash-set env_0 key_41 val_20))))" +"(define-values(env-extend)(lambda(env_0 key_43 val_21)(begin(hash-set env_0 key_43 val_21))))" "(define-values(variable)(gensym 'variable))" "(define-values" "(variable?)" @@ -14654,15 +14632,15 @@ static const char *startup_source = "(let-values(((or-part_21)(procedure? t_39)))" "(if or-part_21" " or-part_21" -"(let-values(((or-part_162)(1/set!-transformer? t_39)))" -"(if or-part_162 or-part_162(1/rename-transformer? t_39))))))))" +"(let-values(((or-part_163)(1/set!-transformer? t_39)))" +"(if or-part_163 or-part_163(1/rename-transformer? t_39))))))))" "(define-values" "(transformer->procedure)" "(lambda(t_18)" "(begin" "(if(1/set!-transformer? t_18)" "(let-values()(1/set!-transformer-procedure t_18))" -"(if(1/rename-transformer? t_18)(let-values()(lambda(s_160) s_160))(let-values() t_18))))))" +"(if(1/rename-transformer? t_18)(let-values()(lambda(s_161) s_161))(let-values() t_18))))))" "(define-values" "(struct:core-form core-form9.1 core-form? core-form-expander core-form-name)" "(let-values(((struct:_22 make-_22 ?_22 -ref_22 -set!_22)" @@ -14709,17 +14687,17 @@ static const char *startup_source = "(lambda(in20_0 in22_0 shadow-except21_0 shadow-except23_1 s24_0 binding25_0 phase26_1)" "(begin" " 'add-bulk-binding!27" -"(let-values(((s_157) s24_0))" +"(let-values(((s_162) s24_0))" "(let-values(((binding_9) binding25_0))" "(let-values(((phase_35) phase26_1))" "(let-values(((in-s_3)(if in22_0 in20_0 #f)))" "(let-values(((shadow-except_2)(if shadow-except23_1 shadow-except21_0 #f)))" "(let-values()" "(begin" -"(if(syntax-tainted?$1 s_157)" -" (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_157))" +"(if(syntax-tainted?$1 s_162)" +" (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_162))" "(void))" -"(let-values(((temp59_1)(syntax-scope-set s_157 phase_35))" +"(let-values(((temp59_1)(syntax-scope-set s_162 phase_35))" "((binding60_0) binding_9)" "((shadow-except61_0) shadow-except_2))" "(add-bulk-binding-in-scopes!27.1 shadow-except61_0 #t temp59_1 binding60_0))))))))))))" @@ -14736,16 +14714,16 @@ static const char *startup_source = "(let-values()" "(let-values((()(begin(check-id-taint id_15 in-s_4)(values))))" "(let-values((()(begin(set-box! counter_1(add1(unbox counter_1)))(values))))" -"(let-values(((key_42)" +"(let-values(((key_44)" " (string->uninterned-symbol (format \"~a_~a\" (syntax-e$1 id_15) (unbox counter_1)))))" "(begin" "(let-values(((temp62_0)(syntax-scope-set id_15 phase_36))" "((temp63_1)(syntax-e$1 id_15))" "((temp64_1)" -"(let-values(((key65_0) key_42)((frame-id66_0) frame-id_5))" +"(let-values(((key65_0) key_44)((frame-id66_0) frame-id_5))" "(make-local-binding7.1 frame-id66_0 #t #f #f key65_0))))" "(add-binding-in-scopes!20.1 #f #f temp62_0 temp63_1 temp64_1))" -" key_42)))))))))))))" +" key_44)))))))))))))" "(define-values" "(check-id-taint)" "(lambda(id_16 in-s_5)" @@ -14819,21 +14797,21 @@ static const char *startup_source = "(if(eq? t_41 missing)" "(let-values()" "(values" -"(let-values(((or-part_163)" -"(let-values(((lst_75) lift-envs_0))" +"(let-values(((or-part_164)" +"(let-values(((lst_34) lift-envs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_75)))" -"((letrec-values(((for-loop_92)" -"(lambda(result_60 lst_76)" +"(let-values()(check-list lst_34)))" +"((letrec-values(((for-loop_94)" +"(lambda(result_60 lst_75)" "(begin" " 'for-loop" -"(if(pair? lst_76)" +"(if(pair? lst_75)" "(let-values(((lift-env_0)" -"(unsafe-car lst_76))" +"(unsafe-car lst_75))" "((rest_34)" -"(unsafe-cdr lst_76)))" +"(unsafe-cdr lst_75)))" "(let-values(((result_61)" "(let-values()" "(let-values(((result_62)" @@ -14852,14 +14830,14 @@ static const char *startup_source = " lift-env_0))" "(not #f)" " #f)" -"(for-loop_92 result_61 rest_34)" +"(for-loop_94 result_61 rest_34)" " result_61)))" " result_60)))))" -" for-loop_92)" +" for-loop_94)" " #f" -" lst_75)))))" -"(if or-part_163" -" or-part_163" +" lst_34)))))" +"(if or-part_164" +" or-part_164" "(if out-of-context-as-variable?_0" " variable" " (error \"identifier used out of context:\" id_17))))" @@ -14880,35 +14858,35 @@ static const char *startup_source = "(free-id-set)" "(lambda(phase_38 ids_0)" "(begin" -"(let-values(((lst_77) ids_0))" +"(let-values(((lst_76) ids_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_77)))" -"((letrec-values(((for-loop_93)" -"(lambda(ht_74 lst_78)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_76)))" +"((letrec-values(((for-loop_95)" +"(lambda(ht_75 lst_77)" "(begin" " 'for-loop" -"(if(pair? lst_78)" -"(let-values(((id_19)(unsafe-car lst_78))((rest_35)(unsafe-cdr lst_78)))" -"(let-values(((ht_75)" -"(let-values(((ht_76) ht_74))" -"(let-values(((ht_77)" +"(if(pair? lst_77)" +"(let-values(((id_19)(unsafe-car lst_77))((rest_35)(unsafe-cdr lst_77)))" +"(let-values(((ht_76)" +"(let-values(((ht_77) ht_75))" +"(let-values(((ht_78)" "(let-values()" "(let-values(((sym_21)" "(identifier-binding-symbol$1" " id_19" " phase_38)))" "(hash-set" -" ht_76" +" ht_77" " sym_21" "(cons-ish" " id_19" -"(hash-ref ht_76 sym_21 null)))))))" -"(values ht_77)))))" -"(if(not #f)(for-loop_93 ht_75 rest_35) ht_75)))" -" ht_74)))))" -" for-loop_93)" +"(hash-ref ht_77 sym_21 null)))))))" +"(values ht_78)))))" +"(if(not #f)(for-loop_95 ht_76 rest_35) ht_76)))" +" ht_75)))))" +" for-loop_95)" " '#hasheq()" -" lst_77))))))" +" lst_76))))))" "(define-values(empty-free-id-set)(free-id-set 0 null))" "(define-values(free-id-set-empty?)(lambda(fs_0)(begin(eq? fs_0 empty-free-id-set))))" "(define-values" @@ -14917,16 +14895,16 @@ static const char *startup_source = "(begin" "(if(zero?(hash-count fs_1))" " #f" -"(let-values(((lst_79)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_39) null)))" +"(let-values(((lst_78)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_39) null)))" "(begin" "(void)" -"((letrec-values(((for-loop_94)" -"(lambda(result_3 lst_80)" +"((letrec-values(((for-loop_96)" +"(lambda(result_3 lst_79)" "(begin" " 'for-loop" -"(if(not(null? lst_80))" -"(let-values(((id_20)(if(pair? lst_80)(car lst_80) lst_80))" -"((rest_36)(if(pair? lst_80)(cdr lst_80) null)))" +"(if(not(null? lst_79))" +"(let-values(((id_20)(if(pair? lst_79)(car lst_79) lst_79))" +"((rest_36)(if(pair? lst_79)(cdr lst_79) null)))" "(let-values(((result_63)" "(let-values()" "(let-values(((result_64)" @@ -14939,12 +14917,12 @@ static const char *startup_source = " phase_39)))))" "(values result_64)))))" "(if(if(not((lambda x_41 result_63) id_20))(not #f) #f)" -"(for-loop_94 result_63 rest_36)" +"(for-loop_96 result_63 rest_36)" " result_63)))" " result_3)))))" -" for-loop_94)" +" for-loop_96)" " #f" -" lst_79)))))))" +" lst_78)))))))" "(define-values" "(free-id-set-empty-or-just-module*?)" "(lambda(fs_2)(begin(let-values(((c_17)(hash-count fs_2)))(<= c_17 1)))))" @@ -15264,15 +15242,15 @@ static const char *startup_source = "(lambda(ctx_1 root-ctx_2)" "(begin" "(let-values(((v_123) ctx_1))" -"(let-values(((the-struct_40) v_123))" -"(if(expand-context/outer? the-struct_40)" +"(let-values(((the-struct_39) v_123))" +"(if(expand-context/outer? the-struct_39)" "(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_41)(root-expand-context/outer-inner v_123)))" -"(if(expand-context/inner? the-struct_41)" +"(let-values(((the-struct_40)(root-expand-context/outer-inner v_123)))" +"(if(expand-context/inner? the-struct_40)" "(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)" @@ -15289,63 +15267,63 @@ static const char *startup_source = " defined-syms37_0" " counter38_0" " lift-key39_0" -"(expand-context/inner-to-parsed? the-struct_41)" -"(expand-context/inner-phase the-struct_41)" -"(expand-context/inner-namespace the-struct_41)" -"(expand-context/inner-just-once? the-struct_41)" -"(expand-context/inner-module-begin-k the-struct_41)" -"(expand-context/inner-allow-unbound? the-struct_41)" -"(expand-context/inner-in-local-expand? the-struct_41)" -"(expand-context/inner-stops the-struct_41)" -"(expand-context/inner-declared-submodule-names the-struct_41)" -"(expand-context/inner-lifts the-struct_41)" -"(expand-context/inner-lift-envs the-struct_41)" -"(expand-context/inner-module-lifts the-struct_41)" -"(expand-context/inner-require-lifts the-struct_41)" -"(expand-context/inner-to-module-lifts the-struct_41)" -"(expand-context/inner-requires+provides the-struct_41)" -"(expand-context/inner-observer the-struct_41)" -"(expand-context/inner-for-serializable? the-struct_41)" -"(expand-context/inner-should-not-encounter-macros? the-struct_41)))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_41)))))" +"(expand-context/inner-to-parsed? the-struct_40)" +"(expand-context/inner-phase the-struct_40)" +"(expand-context/inner-namespace the-struct_40)" +"(expand-context/inner-just-once? the-struct_40)" +"(expand-context/inner-module-begin-k the-struct_40)" +"(expand-context/inner-allow-unbound? the-struct_40)" +"(expand-context/inner-in-local-expand? the-struct_40)" +"(expand-context/inner-stops the-struct_40)" +"(expand-context/inner-declared-submodule-names the-struct_40)" +"(expand-context/inner-lifts the-struct_40)" +"(expand-context/inner-lift-envs the-struct_40)" +"(expand-context/inner-module-lifts the-struct_40)" +"(expand-context/inner-require-lifts the-struct_40)" +"(expand-context/inner-to-module-lifts the-struct_40)" +"(expand-context/inner-requires+provides the-struct_40)" +"(expand-context/inner-observer the-struct_40)" +"(expand-context/inner-for-serializable? the-struct_40)" +"(expand-context/inner-should-not-encounter-macros? the-struct_40)))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_40)))))" "(expand-context/outer1.1" " inner32_0" " post-expansion-scope28_0" " use-site-scopes29_0" " frame-id30_1" -"(expand-context/outer-context the-struct_40)" -"(expand-context/outer-env the-struct_40)" -"(expand-context/outer-post-expansion-scope-action the-struct_40)" -"(expand-context/outer-scopes the-struct_40)" -"(expand-context/outer-def-ctx-scopes the-struct_40)" +"(expand-context/outer-context the-struct_39)" +"(expand-context/outer-env the-struct_39)" +"(expand-context/outer-post-expansion-scope-action the-struct_39)" +"(expand-context/outer-scopes the-struct_39)" +"(expand-context/outer-def-ctx-scopes the-struct_39)" " binding-layer31_0" -"(expand-context/outer-reference-records the-struct_40)" -"(expand-context/outer-only-immediate? the-struct_40)" -"(expand-context/outer-need-eventually-defined the-struct_40)" -"(expand-context/outer-current-introduction-scopes the-struct_40)" -"(expand-context/outer-name the-struct_40)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_40)))))))" +"(expand-context/outer-reference-records the-struct_39)" +"(expand-context/outer-only-immediate? the-struct_39)" +"(expand-context/outer-need-eventually-defined the-struct_39)" +"(expand-context/outer-current-introduction-scopes the-struct_39)" +"(expand-context/outer-name the-struct_39)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_39)))))))" "(define-values(current-expand-context)(make-parameter #f))" "(define-values" "(get-current-expand-context17.1)" "(lambda(fail-ok?13_0 fail-ok?14_0 who15_0 who16_0)" "(begin" " 'get-current-expand-context17" -"(let-values(((who_9)(if who16_0 who15_0 'unexpected)))" +"(let-values(((who_10)(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_164)(force(current-expand-context))))" -"(if or-part_164" -" or-part_164" -" (if fail-ok?_0 #f (raise-arguments-error who_9 \"not currently expanding\"))))))))))" +"(let-values(((or-part_165)(force(current-expand-context))))" +"(if or-part_165" +" or-part_165" +" (if fail-ok?_0 #f (raise-arguments-error who_10 \"not currently expanding\"))))))))))" "(define-values" "(current-expand-observe)" "(make-parameter" " #f" "(lambda(v_124)" "(begin" -"(if(let-values(((or-part_165)(not v_124)))" -"(if or-part_165 or-part_165(if(procedure? v_124)(procedure-arity-includes? v_124 2) #f)))" +"(if(let-values(((or-part_166)(not v_124)))" +"(if or-part_166 or-part_166(if(procedure? v_124)(procedure-arity-includes? v_124 2) #f)))" "(void)" "(let-values()" " (raise-argument-error 'current-expand-observe \"(or/c (procedure-arity-includes/c 2) #f)\" v_124)))" @@ -15358,8 +15336,8 @@ static const char *startup_source = "(let-values() ctx_2)" "(let-values()" "(let-values(((v_125) ctx_2))" -"(let-values(((the-struct_16) v_125))" -"(if(expand-context/outer? the-struct_16)" +"(let-values(((the-struct_19) v_125))" +"(if(expand-context/outer? the-struct_19)" "(let-values(((context40_0) 'expression)" "((name41_0) #f)" "((post-expansion-scope42_0) #f)" @@ -15367,20 +15345,20 @@ static const char *startup_source = "(expand-context/outer1.1" " inner43_0" " post-expansion-scope42_0" -"(root-expand-context/outer-use-site-scopes the-struct_16)" -"(root-expand-context/outer-frame-id the-struct_16)" +"(root-expand-context/outer-use-site-scopes the-struct_19)" +"(root-expand-context/outer-frame-id the-struct_19)" " context40_0" -"(expand-context/outer-env the-struct_16)" -"(expand-context/outer-post-expansion-scope-action the-struct_16)" -"(expand-context/outer-scopes the-struct_16)" -"(expand-context/outer-def-ctx-scopes the-struct_16)" -"(expand-context/outer-binding-layer the-struct_16)" -"(expand-context/outer-reference-records the-struct_16)" -"(expand-context/outer-only-immediate? the-struct_16)" -"(expand-context/outer-need-eventually-defined the-struct_16)" -"(expand-context/outer-current-introduction-scopes the-struct_16)" +"(expand-context/outer-env the-struct_19)" +"(expand-context/outer-post-expansion-scope-action the-struct_19)" +"(expand-context/outer-scopes the-struct_19)" +"(expand-context/outer-def-ctx-scopes the-struct_19)" +"(expand-context/outer-binding-layer the-struct_19)" +"(expand-context/outer-reference-records the-struct_19)" +"(expand-context/outer-only-immediate? the-struct_19)" +"(expand-context/outer-need-eventually-defined the-struct_19)" +"(expand-context/outer-current-introduction-scopes the-struct_19)" " name41_0))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_16)))))))))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_19)))))))))" "(define-values" "(as-begin-expression-context)" "(lambda(ctx_3)" @@ -15389,11 +15367,43 @@ static const char *startup_source = "(let-values() ctx_3)" "(let-values()" "(let-values(((v_126) ctx_3))" -"(let-values(((the-struct_42) v_126))" -"(if(expand-context/outer? the-struct_42)" +"(let-values(((the-struct_41) v_126))" +"(if(expand-context/outer? the-struct_41)" "(let-values(((name44_0) #f)((inner45_0)(root-expand-context/outer-inner v_126)))" "(expand-context/outer1.1" " inner45_0" +"(root-expand-context/outer-post-expansion-scope the-struct_41)" +"(root-expand-context/outer-use-site-scopes the-struct_41)" +"(root-expand-context/outer-frame-id the-struct_41)" +"(expand-context/outer-context the-struct_41)" +"(expand-context/outer-env the-struct_41)" +"(expand-context/outer-post-expansion-scope-action the-struct_41)" +"(expand-context/outer-scopes the-struct_41)" +"(expand-context/outer-def-ctx-scopes the-struct_41)" +"(expand-context/outer-binding-layer the-struct_41)" +"(expand-context/outer-reference-records the-struct_41)" +"(expand-context/outer-only-immediate? the-struct_41)" +"(expand-context/outer-need-eventually-defined the-struct_41)" +"(expand-context/outer-current-introduction-scopes the-struct_41)" +" name44_0))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_41)))))))))" +"(define-values" +"(as-tail-context23.1)" +"(lambda(wrt20_0 ctx22_0)" +"(begin" +" 'as-tail-context23" +"(let-values(((ctx_4) ctx22_0))" +"(let-values(((wrt-ctx_0) wrt20_0))" +"(let-values()" +"(if(expand-context-name wrt-ctx_0)" +"(let-values()" +"(let-values(((v_127) ctx_4))" +"(let-values(((the-struct_42) v_127))" +"(if(expand-context/outer? the-struct_42)" +"(let-values(((name46_0)(expand-context-name wrt-ctx_0))" +"((inner47_0)(root-expand-context/outer-inner v_127)))" +"(expand-context/outer1.1" +" inner47_0" "(root-expand-context/outer-post-expansion-scope the-struct_42)" "(root-expand-context/outer-use-site-scopes the-struct_42)" "(root-expand-context/outer-frame-id the-struct_42)" @@ -15407,40 +15417,8 @@ static const char *startup_source = "(expand-context/outer-only-immediate? the-struct_42)" "(expand-context/outer-need-eventually-defined the-struct_42)" "(expand-context/outer-current-introduction-scopes the-struct_42)" -" name44_0))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_42)))))))))" -"(define-values" -"(as-tail-context23.1)" -"(lambda(wrt20_0 ctx22_0)" -"(begin" -" 'as-tail-context23" -"(let-values(((ctx_4) ctx22_0))" -"(let-values(((wrt-ctx_0) wrt20_0))" -"(let-values()" -"(if(expand-context-name wrt-ctx_0)" -"(let-values()" -"(let-values(((v_127) ctx_4))" -"(let-values(((the-struct_43) v_127))" -"(if(expand-context/outer? the-struct_43)" -"(let-values(((name46_0)(expand-context-name wrt-ctx_0))" -"((inner47_0)(root-expand-context/outer-inner v_127)))" -"(expand-context/outer1.1" -" inner47_0" -"(root-expand-context/outer-post-expansion-scope the-struct_43)" -"(root-expand-context/outer-use-site-scopes the-struct_43)" -"(root-expand-context/outer-frame-id the-struct_43)" -"(expand-context/outer-context the-struct_43)" -"(expand-context/outer-env the-struct_43)" -"(expand-context/outer-post-expansion-scope-action the-struct_43)" -"(expand-context/outer-scopes the-struct_43)" -"(expand-context/outer-def-ctx-scopes the-struct_43)" -"(expand-context/outer-binding-layer the-struct_43)" -"(expand-context/outer-reference-records the-struct_43)" -"(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)" " name46_0))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_43)))))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_42)))))" "(let-values() ctx_4))))))))" "(define-values" "(as-named-context)" @@ -15475,68 +15453,68 @@ static const char *startup_source = "(lambda(ctx_6)" "(begin" "(let-values(((v_129) ctx_6))" -"(let-values(((the-struct_44) v_129))" -"(if(expand-context/outer? the-struct_44)" +"(let-values(((the-struct_43) v_129))" +"(if(expand-context/outer? the-struct_43)" "(let-values(((inner50_0)" -"(let-values(((the-struct_45)(root-expand-context/outer-inner v_129)))" -"(if(expand-context/inner? the-struct_45)" +"(let-values(((the-struct_44)(root-expand-context/outer-inner v_129)))" +"(if(expand-context/inner? the-struct_44)" "(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_45)" -"(root-expand-context/inner-module-scopes the-struct_45)" -"(root-expand-context/inner-top-level-bind-scope the-struct_45)" -"(root-expand-context/inner-all-scopes-stx the-struct_45)" -"(root-expand-context/inner-defined-syms the-struct_45)" -"(root-expand-context/inner-counter the-struct_45)" -"(root-expand-context/inner-lift-key the-struct_45)" +"(root-expand-context/inner-self-mpi the-struct_44)" +"(root-expand-context/inner-module-scopes the-struct_44)" +"(root-expand-context/inner-top-level-bind-scope the-struct_44)" +"(root-expand-context/inner-all-scopes-stx the-struct_44)" +"(root-expand-context/inner-defined-syms the-struct_44)" +"(root-expand-context/inner-counter the-struct_44)" +"(root-expand-context/inner-lift-key the-struct_44)" " to-parsed?51_0" -"(expand-context/inner-phase the-struct_45)" -"(expand-context/inner-namespace the-struct_45)" -"(expand-context/inner-just-once? the-struct_45)" -"(expand-context/inner-module-begin-k the-struct_45)" -"(expand-context/inner-allow-unbound? the-struct_45)" -"(expand-context/inner-in-local-expand? the-struct_45)" -"(expand-context/inner-stops the-struct_45)" -"(expand-context/inner-declared-submodule-names the-struct_45)" -"(expand-context/inner-lifts the-struct_45)" -"(expand-context/inner-lift-envs the-struct_45)" -"(expand-context/inner-module-lifts the-struct_45)" -"(expand-context/inner-require-lifts the-struct_45)" -"(expand-context/inner-to-module-lifts the-struct_45)" -"(expand-context/inner-requires+provides the-struct_45)" +"(expand-context/inner-phase the-struct_44)" +"(expand-context/inner-namespace the-struct_44)" +"(expand-context/inner-just-once? the-struct_44)" +"(expand-context/inner-module-begin-k the-struct_44)" +"(expand-context/inner-allow-unbound? the-struct_44)" +"(expand-context/inner-in-local-expand? the-struct_44)" +"(expand-context/inner-stops the-struct_44)" +"(expand-context/inner-declared-submodule-names the-struct_44)" +"(expand-context/inner-lifts the-struct_44)" +"(expand-context/inner-lift-envs the-struct_44)" +"(expand-context/inner-module-lifts the-struct_44)" +"(expand-context/inner-require-lifts the-struct_44)" +"(expand-context/inner-to-module-lifts the-struct_44)" +"(expand-context/inner-requires+provides the-struct_44)" " observer52_0" -"(expand-context/inner-for-serializable? the-struct_45)" +"(expand-context/inner-for-serializable? the-struct_44)" " should-not-encounter-macros?53_0))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_45)))))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_44)))))" "(expand-context/outer1.1" " inner50_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)" -"(expand-context/outer-context the-struct_44)" -"(expand-context/outer-env the-struct_44)" -"(expand-context/outer-post-expansion-scope-action the-struct_44)" -"(expand-context/outer-scopes the-struct_44)" -"(expand-context/outer-def-ctx-scopes the-struct_44)" -"(expand-context/outer-binding-layer the-struct_44)" -"(expand-context/outer-reference-records the-struct_44)" -"(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)" -"(expand-context/outer-name the-struct_44)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_44)))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_43)" +"(root-expand-context/outer-use-site-scopes the-struct_43)" +"(root-expand-context/outer-frame-id the-struct_43)" +"(expand-context/outer-context the-struct_43)" +"(expand-context/outer-env the-struct_43)" +"(expand-context/outer-post-expansion-scope-action the-struct_43)" +"(expand-context/outer-scopes the-struct_43)" +"(expand-context/outer-def-ctx-scopes the-struct_43)" +"(expand-context/outer-binding-layer the-struct_43)" +"(expand-context/outer-reference-records the-struct_43)" +"(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)" +"(expand-context/outer-name the-struct_43)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_43)))))))" "(define-values" "(to-syntax-list.1)" -"(lambda(s_161)" +"(lambda(s_163)" "(begin" " 'to-syntax-list" -"(if(list? s_161)" -"(let-values() s_161)" -"(if(pair? s_161)" -"(let-values()(let-values(((r_27)(to-syntax-list.1(cdr s_161))))(if r_27(cons(car s_161) r_27) #f)))" -"(if(syntax?$1 s_161)(let-values()(to-syntax-list.1(syntax-e$1 s_161)))(let-values() #f)))))))" +"(if(list? s_163)" +"(let-values() s_163)" +"(if(pair? s_163)" +"(let-values()(let-values(((r_28)(to-syntax-list.1(cdr s_163))))(if r_28(cons(car s_163) r_28) #f)))" +"(if(syntax?$1 s_163)(let-values()(to-syntax-list.1(syntax-e$1 s_163)))(let-values() #f)))))))" "(define-values(core-scope)(new-multi-scope))" "(define-values(core-stx)(add-scope empty-syntax core-scope))" "(define-values(core-module-name)(1/make-resolved-module-path '#%core))" @@ -15552,8 +15530,8 @@ static const char *startup_source = "(let-values(((or-part_6)(hash-ref id-cache-0 sym_11 #f)))" "(if or-part_6" " or-part_6" -"(let-values(((s_146)(datum->syntax$1 core-stx sym_11)))" -"(begin(hash-set! id-cache-0 sym_11 s_146) s_146)))))" +"(let-values(((s_164)(datum->syntax$1 core-stx sym_11)))" +"(begin(hash-set! id-cache-0 sym_11 s_164) s_164)))))" "(if(eq? phase_33 1)" "(let-values()" "(let-values(((or-part_28)(hash-ref id-cache-1 sym_11 #f)))" @@ -15570,8 +15548,8 @@ static const char *startup_source = "(begin(begin(add-core-binding! sym_22)(set! core-forms(hash-set core-forms sym_22 proc_4))))))" "(define-values" "(add-core-primitive!)" -"(lambda(sym_0 val_33)" -"(begin(begin(add-core-binding! sym_0)(set! core-primitives(hash-set core-primitives sym_0 val_33))))))" +"(lambda(sym_0 val_34)" +"(begin(begin(add-core-binding! sym_0)(set! core-primitives(hash-set core-primitives sym_0 val_34))))))" "(define-values" "(add-core-binding!)" "(lambda(sym_23)" @@ -15616,49 +15594,49 @@ static const char *startup_source = "((temp14_1)" "(hasheqv" " 0" -"(let-values(((lst_81)(list core-primitives core-forms))((lst_82) '(#f #t)))" +"(let-values(((lst_80)(list core-primitives core-forms))((lst_81) '(#f #t)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_80)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_81)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_82)))" -"((letrec-values(((for-loop_95)" -"(lambda(table_108 lst_83 lst_84)" +"((letrec-values(((for-loop_97)" +"(lambda(table_108 lst_82 lst_83)" "(begin" " 'for-loop" -"(if(if(pair? lst_83)(pair? lst_84) #f)" -"(let-values(((syms_12)(unsafe-car lst_83))" -"((rest_37)(unsafe-cdr lst_83))" -"((syntax?_2)(unsafe-car lst_84))" -"((rest_38)(unsafe-cdr lst_84)))" +"(if(if(pair? lst_82)(pair? lst_83) #f)" +"(let-values(((syms_12)(unsafe-car lst_82))" +"((rest_37)(unsafe-cdr lst_82))" +"((syntax?_2)(unsafe-car lst_83))" +"((rest_38)(unsafe-cdr lst_83)))" "(let-values(((table_109)" "(let-values(((table_110) table_108))" -"(let-values(((ht_78) syms_12))" +"(let-values(((ht_79) syms_12))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash-keys ht_78)))" -"((letrec-values(((for-loop_96)" +"(check-in-hash-keys ht_79)))" +"((letrec-values(((for-loop_98)" "(lambda(table_111" -" i_87)" +" i_88)" "(begin" " 'for-loop" -"(if i_87" +"(if i_88" "(let-values(((sym_24)" "(hash-iterate-key" -" ht_78" -" i_87)))" +" ht_79" +" i_88)))" "(let-values(((table_112)" "(let-values(((table_113)" " table_111))" "(let-values(((table_114)" "(let-values()" -"(let-values(((key_43" -" val_34)" +"(let-values(((key_45" +" val_35)" "(let-values()" "(let-values(((b_59)" "(let-values(((core-mpi17_0)" @@ -15699,30 +15677,30 @@ static const char *startup_source = " b_59))))))" "(hash-set" " table_113" -" key_43" -" val_34)))))" +" key_45" +" val_35)))))" "(values" " table_114)))))" "(if(not" " #f)" -"(for-loop_96" +"(for-loop_98" " table_112" "(hash-iterate-next" -" ht_78" -" i_87))" +" ht_79" +" i_88))" " table_112)))" " table_111)))))" -" for-loop_96)" +" for-loop_98)" " table_110" -"(hash-iterate-first ht_78)))))))" +"(hash-iterate-first ht_79)))))))" "(if(not #f)" -"(for-loop_95 table_109 rest_37 rest_38)" +"(for-loop_97 table_109 rest_37 rest_38)" " table_109)))" " table_108)))))" -" for-loop_95)" +" for-loop_97)" " '#hasheq()" -" lst_81" -" lst_82)))))" +" lst_80" +" lst_81)))))" "((temp15_1)" "(lambda(phase-level_14 ns_47 insp_7)" "(if(zero? phase-level_14)" @@ -15756,20 +15734,20 @@ static const char *startup_source = "(if(equal? tmp_14 0)" "(let-values()" "(begin" -"(let-values(((ht_79) core-primitives))" +"(let-values(((ht_80) core-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_79)))" -"((letrec-values(((for-loop_97)" -"(lambda(i_88)" +"(let-values()(check-in-hash ht_80)))" +"((letrec-values(((for-loop_99)" +"(lambda(i_89)" "(begin" " 'for-loop" -"(if i_88" -"(let-values(((sym_25 val_35)" +"(if i_89" +"(let-values(((sym_25 val_36)" "(hash-iterate-key+value" -" ht_79" -" i_88)))" +" ht_80" +" i_89)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -15780,31 +15758,31 @@ static const char *startup_source = " ns_49" " 0" " sym_25" -" val_35))" +" val_36))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_97" -"(hash-iterate-next ht_79 i_88))" +"(for-loop_99" +"(hash-iterate-next ht_80 i_89))" "(values))))" "(values))))))" -" for-loop_97)" -"(hash-iterate-first ht_79))))" +" for-loop_99)" +"(hash-iterate-first ht_80))))" "(void)" -"(let-values(((ht_80) core-forms))" +"(let-values(((ht_81) core-forms))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_80)))" -"((letrec-values(((for-loop_98)" -"(lambda(i_89)" +"(let-values()(check-in-hash ht_81)))" +"((letrec-values(((for-loop_100)" +"(lambda(i_90)" "(begin" " 'for-loop" -"(if i_89" +"(if i_90" "(let-values(((sym_26 proc_5)" "(hash-iterate-key+value" -" ht_80" -" i_89)))" +" ht_81" +" i_90)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -15825,12 +15803,12 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_98" -"(hash-iterate-next ht_80 i_89))" +"(for-loop_100" +"(hash-iterate-next ht_81 i_90))" "(values))))" "(values))))))" -" for-loop_98)" -"(hash-iterate-first ht_80))))" +" for-loop_100)" +"(hash-iterate-first ht_81))))" "(void)))" "(let-values()(void)))))))" "(make-module39.1" @@ -15874,20 +15852,20 @@ static const char *startup_source = "(lambda(s_23 phase_42)" "(begin" "(let-values(((ok?_0 id23_0 _24_0)" -"(let-values(((s_162) s_23))" -"(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_164)(car s_163)))" -"(let-values(((or-part_166)(if(syntax?$1 s_164)(symbol?(syntax-e$1 s_164)) #f)))" -"(if or-part_166 or-part_166(symbol? s_164))))" -"(let-values(((s_165)(cdr s_163))) #t)" +"(let-values(((s_165) s_23))" +"(if(let-values(((s_166)(if(syntax?$1 s_165)(syntax-e$1 s_165) s_165)))" +"(if(pair? s_166)" +"(if(let-values(((s_167)(car s_166)))" +"(let-values(((or-part_167)(if(syntax?$1 s_167)(symbol?(syntax-e$1 s_167)) #f)))" +"(if or-part_167 or-part_167(symbol? s_167))))" +"(let-values(((s_168)(cdr s_166))) #t)" " #f)" " #f))" "(let-values()" "(let-values(((id23_1 _24_1)" -"(let-values(((s_166)(if(syntax?$1 s_162)(syntax-e$1 s_162) s_162)))" -"(let-values(((id25_0)(let-values(((s_66)(car s_166))) s_66))" -"((_26_0)(let-values(((s_74)(cdr s_166))) s_74)))" +"(let-values(((s_169)(if(syntax?$1 s_165)(syntax-e$1 s_165) s_165)))" +"(let-values(((id25_0)(let-values(((s_67)(car s_169))) s_67))" +"((_26_0)(let-values(((s_80)(cdr s_169))) s_80)))" "(values id25_0 _26_0)))))" "(values #t id23_1 _24_1)))" "(values #f #f #f)))))" @@ -15906,30 +15884,30 @@ static const char *startup_source = "(lambda(s_0 proc_6 phase_32)" "(begin" "((letrec-values(((loop_33)" -"(lambda(s_167 mode_10)" +"(lambda(s_70 mode_10)" "(begin" " 'loop" "(let-values(((tmp_4) mode_10))" "(if(equal? tmp_4 'none)" -"(let-values() s_167)" +"(let-values() s_70)" "(if(equal? tmp_4 'opaque)" -"(let-values()(proc_6 s_167))" +"(let-values()(proc_6 s_70))" "(if(equal? tmp_4 'transparent)" "(let-values()" "(let-values(((c_18)" -"(let-values(((s_168)" -"(let-values(((or-part_13)(syntax->list$1 s_167)))" -"(if or-part_13 or-part_13(syntax-e$1 s_167))))" +"(let-values(((s_170)" +"(let-values(((or-part_13)(syntax->list$1 s_70)))" +"(if or-part_13 or-part_13(syntax-e$1 s_70))))" "((f_35)(lambda(tail?_39 d_18)(begin 'f d_18)))" "((s->_3)" -"(lambda(s_169)" +"(lambda(s_171)" "(begin" " 's->" "(loop_33" -" s_169" -"(syntax-taint-mode-property s_169)))))" +" s_171" +"(syntax-taint-mode-property s_171)))))" "((seen_19) #f))" -"(let-values(((s_145) s_168)" +"(let-values(((s_172) s_170)" "((f_36)" "(lambda(tail?_40 v_60)" "(begin" @@ -15939,7 +15917,7 @@ static const char *startup_source = "(let-values()(f_35 tail?_40 v_60))))))" "((seen_20) seen_19))" "((letrec-values(((loop_7)" -"(lambda(tail?_41 s_170 prev-depth_8)" +"(lambda(tail?_41 s_173 prev-depth_8)" "(begin" " 'loop" "(let-values(((depth_8)" @@ -15948,84 +15926,84 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_41" -" s_170" -"(lambda(tail?_42 s_171)" -"(f_36 tail?_42 s_171))" +" s_173" +"(lambda(tail?_42 s_174)" +"(f_36 tail?_42 s_174))" " seen_20))" -"(if(null? s_170)" +"(if(null? s_173)" "(let-values()" -"(f_36 tail?_41 s_170))" -"(if(pair? s_170)" +"(f_36 tail?_41 s_173))" +"(if(pair? s_173)" "(let-values()" "(f_36" " tail?_41" "(cons" "(loop_7" " #f" -"(car s_170)" +"(car s_173)" " depth_8)" "(loop_7" " #t" -"(cdr s_170)" +"(cdr s_173)" " depth_8))))" -"(if(let-values(((or-part_167)" +"(if(let-values(((or-part_168)" "(symbol?" -" s_170)))" -"(if or-part_167" -" or-part_167" -"(let-values(((or-part_72)" +" s_173)))" +"(if or-part_168" +" or-part_168" +"(let-values(((or-part_71)" "(boolean?" -" s_170)))" +" s_173)))" +"(if or-part_71" +" or-part_71" +"(number? s_173)))))" +"(let-values()(f_36 #f s_173))" +"(if(let-values(((or-part_72)" +"(vector?" +" s_173)))" "(if or-part_72" " or-part_72" -"(number? s_170)))))" -"(let-values()(f_36 #f s_170))" -"(if(let-values(((or-part_73)" -"(vector?" -" s_170)))" +"(let-values(((or-part_73)" +"(box?" +" s_173)))" "(if or-part_73" " or-part_73" "(let-values(((or-part_74)" -"(box?" -" s_170)))" +"(prefab-struct-key" +" s_173)))" "(if or-part_74" " or-part_74" -"(let-values(((or-part_75)" -"(prefab-struct-key" -" s_170)))" -"(if or-part_75" -" or-part_75" "(hash?" -" s_170)))))))" +" s_173)))))))" "(let-values()" "(datum-map-slow" " tail?_41" -" s_170" -"(lambda(tail?_43 s_172)" -"(f_36 tail?_43 s_172))" +" s_173" +"(lambda(tail?_43 s_175)" +"(f_36 tail?_43 s_175))" " seen_20))" "(let-values()" -"(f_36 #f s_170))))))))))))" +"(f_36 #f s_173))))))))))))" " loop_7)" " #f" -" s_145" +" s_172" " 0)))))" "(datum->syntax$1" " #f" " c_18" -" s_167" -"(if(syntax-any-macro-scopes? s_167)" -"(syntax-property-remove s_167 original-property-sym)" -" s_167))))" +" s_70" +"(if(syntax-any-macro-scopes? s_70)" +"(syntax-property-remove s_70 original-property-sym)" +" s_70))))" "(if(equal? tmp_4 'transparent-binding)" "(let-values()" -"(let-values(((c_19)(syntax-e$1 s_167)))" +"(let-values(((c_19)(syntax-e$1 s_70)))" "(if(pair? c_19)" "(let-values()" "(let-values(((cd_0)(cdr c_19)))" -"(if(let-values(((or-part_70)(pair? cd_0)))" -"(if or-part_70" -" or-part_70" +"(if(let-values(((or-part_69)(pair? cd_0)))" +"(if or-part_69" +" or-part_69" "(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)))" @@ -16035,20 +16013,20 @@ static const char *startup_source = "(loop_33(car c_19)(syntax-taint-mode-property(car c_19)))" "(cons" "(loop_33(car d_19) 'transparent)" -"(let-values(((s_173)" -"(let-values(((or-part_168)" +"(let-values(((s_176)" +"(let-values(((or-part_169)" "(syntax->list$1(cdr d_19))))" -"(if or-part_168 or-part_168(cdr d_19))))" +"(if or-part_169 or-part_169(cdr d_19))))" "((f_7)(lambda(tail?_44 d_20)(begin 'f d_20)))" "((s->_4)" -"(lambda(s_174)" +"(lambda(s_177)" "(begin" " 's->" "(loop_33" -" s_174" -"(syntax-taint-mode-property s_174)))))" +" s_177" +"(syntax-taint-mode-property s_177)))))" "((seen_21) #f))" -"(let-values(((s_77) s_173)" +"(let-values(((s_83) s_176)" "((f_8)" "(lambda(tail?_45 v_39)" "(begin" @@ -16058,7 +16036,7 @@ static const char *startup_source = "(let-values()(f_7 tail?_45 v_39))))))" "((seen_22) seen_21))" "((letrec-values(((loop_78)" -"(lambda(tail?_46 s_175 prev-depth_9)" +"(lambda(tail?_46 s_178 prev-depth_9)" "(begin" " 'loop" "(let-values(((depth_9)" @@ -16067,107 +16045,107 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_46" -" s_175" -"(lambda(tail?_47 s_176)" -"(f_8 tail?_47 s_176))" +" s_178" +"(lambda(tail?_47 s_179)" +"(f_8 tail?_47 s_179))" " seen_22))" -"(if(null? s_175)" +"(if(null? s_178)" "(let-values()" -"(f_8 tail?_46 s_175))" -"(if(pair? s_175)" +"(f_8 tail?_46 s_178))" +"(if(pair? s_178)" "(let-values()" "(f_8" " tail?_46" "(cons" "(loop_78" " #f" -"(car s_175)" +"(car s_178)" " depth_9)" "(loop_78" " #t" -"(cdr s_175)" +"(cdr s_178)" " depth_9))))" -"(if(let-values(((or-part_169)" +"(if(let-values(((or-part_170)" "(symbol?" -" s_175)))" -"(if or-part_169" -" or-part_169" -"(let-values(((or-part_170)" -"(boolean?" -" s_175)))" +" s_178)))" "(if or-part_170" " or-part_170" -"(number?" -" s_175)))))" -"(let-values()" -"(f_8 #f s_175))" -"(if(let-values(((or-part_171)" -"(vector?" -" s_175)))" +"(let-values(((or-part_171)" +"(boolean?" +" s_178)))" "(if or-part_171" " or-part_171" -"(let-values(((or-part_172)" -"(box?" -" s_175)))" +"(number?" +" s_178)))))" +"(let-values()" +"(f_8 #f s_178))" +"(if(let-values(((or-part_172)" +"(vector?" +" s_178)))" "(if or-part_172" " or-part_172" "(let-values(((or-part_173)" -"(prefab-struct-key" -" s_175)))" +"(box?" +" s_178)))" "(if or-part_173" " or-part_173" +"(let-values(((or-part_174)" +"(prefab-struct-key" +" s_178)))" +"(if or-part_174" +" or-part_174" "(hash?" -" s_175)))))))" +" s_178)))))))" "(let-values()" "(datum-map-slow" " tail?_46" -" s_175" +" s_178" "(lambda(tail?_48" -" s_177)" +" s_180)" "(f_8" " tail?_48" -" s_177))" +" s_180))" " seen_22))" "(let-values()" "(f_8" " #f" -" s_175))))))))))))" +" s_178))))))))))))" " loop_78)" " #f" -" s_77" +" s_83" " 0)))))" -" s_167" -"(if(syntax-any-macro-scopes? s_167)" -"(syntax-property-remove s_167 original-property-sym)" -" s_167))))" -"(let-values()(loop_33 s_167 'transparent)))))" -"(let-values()(loop_33 s_167 'transparent)))))" +" s_70" +"(if(syntax-any-macro-scopes? s_70)" +"(syntax-property-remove s_70 original-property-sym)" +" s_70))))" +"(let-values()(loop_33 s_70 'transparent)))))" +"(let-values()(loop_33 s_70 'transparent)))))" "(let-values()" -"(let-values(((c_20)(syntax-e$1 s_167)))" +"(let-values(((c_20)(syntax-e$1 s_70)))" "(let-values(((tmp_15)(core-form-sym c_20 phase_32)))" "(if(if(equal? tmp_15 'begin)" " #t" "(if(equal? tmp_15 'begin-for-syntax)" " #t" "(equal? tmp_15 '#%module-begin)))" -"(let-values()(loop_33 s_167 'transparent))" +"(let-values()(loop_33 s_70 'transparent))" "(if(if(equal? tmp_15 'define-values)" " #t" "(equal? tmp_15 'define-syntaxes))" -"(let-values()(loop_33 s_167 'transparent-binding))" -"(let-values()(loop_33 s_167 'opaque))))))))))))))))" +"(let-values()(loop_33 s_70 'transparent-binding))" +"(let-values()(loop_33 s_70 'opaque))))))))))))))))" " loop_33)" " s_0" "(syntax-taint-mode-property s_0)))))" "(define-values" "(syntax-taint-mode-property)" -"(lambda(s_178)" +"(lambda(s_181)" "(begin" -"(let-values(((or-part_174)(syntax-property$1 s_178 'taint-mode)))" -"(if or-part_174 or-part_174(syntax-property$1 s_178 'certify-mode))))))" +"(let-values(((or-part_175)(syntax-property$1 s_181 'taint-mode)))" +"(if or-part_175 or-part_175(syntax-property$1 s_181 'certify-mode))))))" "(define-values" "(syntax-remove-taint-dispatch-properties)" -"(lambda(s_179)(begin(syntax-property-remove(syntax-property-remove s_179 'taint-mode) 'certify-mode))))" +"(lambda(s_182)(begin(syntax-property-remove(syntax-property-remove s_182 'taint-mode) 'certify-mode))))" "(define-values(current-module-code-inspector)(make-parameter #f))" "(define-values" "(syntax-debug-info$1)" @@ -16176,18 +16154,18 @@ static const char *startup_source = " 'syntax-debug-info" "(let-values(((hts_0)" "(reverse$1" -"(let-values(((lst_78)(fallback->list(syntax-shifted-multi-scopes s_0))))" +"(let-values(((lst_77)(fallback->list(syntax-shifted-multi-scopes s_0))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_78)))" -"((letrec-values(((for-loop_99)" -"(lambda(fold-var_59 lst_85)" +"(let-values()(check-list lst_77)))" +"((letrec-values(((for-loop_101)" +"(lambda(fold-var_59 lst_84)" "(begin" " 'for-loop" -"(if(pair? lst_85)" -"(let-values(((smss_26)(unsafe-car lst_85))" -"((rest_39)(unsafe-cdr lst_85)))" +"(if(pair? lst_84)" +"(let-values(((smss_26)(unsafe-car lst_84))" +"((rest_39)(unsafe-cdr lst_84)))" "(let-values(((fold-var_60)" "(let-values(((fold-var_61) fold-var_59))" "(let-values(((fold-var_62)" @@ -16223,7 +16201,7 @@ static const char *startup_source = "(let-values()" "(let-values(((bindings_1" " covered-scopess_0)" -"(let-values(((ht_81)" +"(let-values(((ht_46)" " s-scs_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -16231,18 +16209,18 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-immutable-hash-keys" -" ht_81)))" -"((letrec-values(((for-loop_100)" +" ht_46)))" +"((letrec-values(((for-loop_49)" "(lambda(bindings_2" " covered-scope-sets_0" -" i_90)" +" i_91)" "(begin" " 'for-loop" -"(if i_90" +"(if i_91" "(let-values(((sc_27)" "(unsafe-immutable-hash-iterate-key" -" ht_81" -" i_90)))" +" ht_46" +" i_91)))" "(let-values(((bindings_3" " covered-scope-sets_1)" "(let-values(((ht_82" @@ -16266,47 +16244,47 @@ static const char *startup_source = " '#hash())" "(table-with-bulk-bindings-bulk-bindings" " table_115)))))" -"((s_180)" +"((s_73)" " s_0)" "((extra-shifts_5)" " null))" "(begin" " #t" -"((letrec-values(((for-loop_101)" +"((letrec-values(((for-loop_102)" "(lambda(bindings_4" " covered-scope-sets_2" -" i_91)" +" i_92)" "(begin" " 'for-loop" "(if(not" "(null?" -" i_91))" +" i_92))" "(let-values(((scs_15)" "(if(pair?" -" i_91)" +" i_92)" "(let-values()" "(bulk-binding-at-scopes" "(car" -" i_91)))" +" i_92)))" "(let-values()" "(hash-iterate-key" " ht_82" -" i_91))))" +" i_92))))" "((b_60)" "(if(pair?" -" i_91)" +" i_92)" "(let-values()" "(let-values(((bulk_4)" "(bulk-binding-at-bulk" "(car" -" i_91))))" +" i_92))))" "(let-values(((b-info_1)" "(if(symbol-interned?" " sym_16)" "(hash-ref" "(bulk-binding-symbols" " bulk_4" -" s_180" +" s_73" " extra-shifts_5)" " sym_16" " #f)" @@ -16321,7 +16299,7 @@ static const char *startup_source = "(let-values()" "(hash-iterate-value" " ht_82" -" i_91)))))" +" i_92)))))" "(let-values(((bindings_5" " covered-scope-sets_3)" "(let-values(((bindings_6)" @@ -16330,10 +16308,10 @@ static const char *startup_source = " covered-scope-sets_2))" "(if(if scs_15" "(if b_60" -"(if(let-values(((or-part_175)" +"(if(let-values(((or-part_176)" " all-bindings?_0))" -"(if or-part_175" -" or-part_175" +"(if or-part_176" +" or-part_176" "(subset?" " scs_15" " s-scs_0)))" @@ -16391,19 +16369,19 @@ static const char *startup_source = " covered-scope-sets_4)))))" "(if(not" " #f)" -"(for-loop_101" +"(for-loop_102" " bindings_5" " covered-scope-sets_3" "(if(pair?" -" i_91)" +" i_92)" "(let-values()" "(cdr" -" i_91))" +" i_92))" "(let-values()" "(let-values(((or-part_7)" "(hash-iterate-next" " ht_82" -" i_91)))" +" i_92)))" "(if or-part_7" " or-part_7" " bulk-bindings_3)))))" @@ -16413,7 +16391,7 @@ static const char *startup_source = "(values" " bindings_4" " covered-scope-sets_2))))))" -" for-loop_101)" +" for-loop_102)" " bindings_2" " covered-scope-sets_0" "(let-values(((or-part_8)" @@ -16424,23 +16402,23 @@ static const char *startup_source = " bulk-bindings_3)))))))" "(if(not" " #f)" -"(for-loop_100" +"(for-loop_49" " bindings_3" " covered-scope-sets_1" "(unsafe-immutable-hash-iterate-next" -" ht_81" -" i_90))" +" ht_46" +" i_91))" "(values" " bindings_3" " covered-scope-sets_1))))" "(values" " bindings_2" " covered-scope-sets_0))))))" -" for-loop_100)" +" for-loop_49)" " null" "(set)" "(unsafe-immutable-hash-iterate-first" -" ht_81))))))" +" ht_46))))))" " bindings_1))" "(let-values()" " null))))" @@ -16452,12 +16430,12 @@ static const char *startup_source = " bindings_0)))))))))" " fold-var_61))))" "(values fold-var_62)))))" -"(if(not #f)(for-loop_99 fold-var_60 rest_39) fold-var_60)))" +"(if(not #f)(for-loop_101 fold-var_60 rest_39) fold-var_60)))" " fold-var_59)))))" -" for-loop_99)" +" for-loop_101)" " null" -" lst_78))))))" -"(let-values(((ht_74)(car hts_0)))(if(null?(cdr hts_0)) ht_74(hash-set ht_74 'fallbacks(cdr hts_0))))))))" +" lst_77))))))" +"(let-values(((ht_75)(car hts_0)))(if(null?(cdr hts_0)) ht_75(hash-set ht_75 'fallbacks(cdr hts_0))))))))" "(define-values" "(scope-set->context)" "(lambda(scs_16)" @@ -16469,12 +16447,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_83)))" -"((letrec-values(((for-loop_102)" -"(lambda(fold-var_63 i_92)" +"((letrec-values(((for-loop_103)" +"(lambda(fold-var_63 i_93)" "(begin" " 'for-loop" -"(if i_92" -"(let-values(((sc_28)(unsafe-immutable-hash-iterate-key ht_83 i_92)))" +"(if i_93" +"(let-values(((sc_28)(unsafe-immutable-hash-iterate-key ht_83 i_93)))" "(let-values(((fold-var_19)" "(let-values(((fold-var_20) fold-var_63))" "(let-values(((fold-var_64)" @@ -16494,12 +16472,12 @@ static const char *startup_source = " fold-var_20))))" "(values fold-var_64)))))" "(if(not #f)" -"(for-loop_102" +"(for-loop_103" " fold-var_19" -"(unsafe-immutable-hash-iterate-next ht_83 i_92))" +"(unsafe-immutable-hash-iterate-next ht_83 i_93))" " fold-var_19)))" " fold-var_63)))))" -" for-loop_102)" +" for-loop_103)" " null" "(unsafe-immutable-hash-iterate-first ht_83))))))" "((<2_0) <)" @@ -16518,9 +16496,9 @@ static const char *startup_source = "(syntax-debug-info-string id_21 ctx_7)))))" "(define-values" "(syntax-debug-info-string)" -"(lambda(s_154 ctx_8)" +"(lambda(s_183 ctx_8)" "(begin" -"(let-values(((info_3)(syntax-debug-info$1 s_154(expand-context-phase ctx_8) #t)))" +"(let-values(((info_3)(syntax-debug-info$1 s_183(expand-context-phase ctx_8) #t)))" "(if(not" "(let-values(((or-part_26)(pair?(hash-ref info_3 'bindings null))))" "(if or-part_26" @@ -16530,13 +16508,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_6)))" -"((letrec-values(((for-loop_103)" -"(lambda(result_65 lst_86)" +"((letrec-values(((for-loop_104)" +"(lambda(result_65 lst_85)" "(begin" " 'for-loop" -"(if(pair? lst_86)" -"(let-values(((fb-info_0)(unsafe-car lst_86))" -"((rest_40)(unsafe-cdr lst_86)))" +"(if(pair? lst_85)" +"(let-values(((fb-info_0)(unsafe-car lst_85))" +"((rest_40)(unsafe-cdr lst_85)))" "(let-values(((result_1)" "(let-values()" "(let-values(((result_66)" @@ -16549,10 +16527,10 @@ static const char *startup_source = " null))))))" "(values result_66)))))" "(if(if(not((lambda x_28 result_1) fb-info_0))(not #f) #f)" -"(for-loop_103 result_1 rest_40)" +"(for-loop_104 result_1 rest_40)" " result_1)))" " result_65)))))" -" for-loop_103)" +" for-loop_104)" " #f" " lst_6))))))" " (let-values () \"\")" @@ -16567,58 +16545,58 @@ static const char *startup_source = "(cons" "(hash-ref info_4 'context)" "(reverse$1" -"(let-values(((lst_87)(hash-ref info_4 'bindings null)))" +"(let-values(((lst_86)(hash-ref info_4 'bindings null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_87)))" -"((letrec-values(((for-loop_104)" -"(lambda(fold-var_65 lst_88)" +"(let-values()(check-list lst_86)))" +"((letrec-values(((for-loop_105)" +"(lambda(fold-var_65 lst_87)" "(begin" " 'for-loop" -"(if(pair? lst_88)" -"(let-values(((b_21)(unsafe-car lst_88))" +"(if(pair? lst_87)" +"(let-values(((b_21)(unsafe-car lst_87))" "((rest_41)" -"(unsafe-cdr lst_88)))" -"(let-values(((fold-var_33)" -"(let-values(((fold-var_34)" -" fold-var_65))" +"(unsafe-cdr lst_87)))" "(let-values(((fold-var_66)" +"(let-values(((fold-var_27)" +" fold-var_65))" +"(let-values(((fold-var_28)" "(let-values()" "(cons" "(let-values()" "(hash-ref" " b_21" " 'context))" -" fold-var_34))))" +" fold-var_27))))" "(values" -" fold-var_66)))))" +" fold-var_28)))))" "(if(not #f)" -"(for-loop_104 fold-var_33 rest_41)" -" fold-var_33)))" +"(for-loop_105 fold-var_66 rest_41)" +" fold-var_66)))" " fold-var_65)))))" -" for-loop_104)" +" for-loop_105)" " null" -" lst_87)))))" +" lst_86)))))" "(let-values(((fallbacks_0)(hash-ref info_4 'fallbacks null)))" "(reverse$1" -"(let-values(((lst_89) fallbacks_0)((start_14)(add1 layer_0)))" +"(let-values(((lst_88) fallbacks_0)((start_14)(add1 layer_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_89)))" +"(let-values()(check-list lst_88)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_14)))" -"((letrec-values(((for-loop_105)" -"(lambda(fold-var_67 lst_90 pos_11)" +"((letrec-values(((for-loop_106)" +"(lambda(fold-var_67 lst_89 pos_11)" "(begin" " 'for-loop" -"(if(if(pair? lst_90) #t #f)" +"(if(if(pair? lst_89) #t #f)" "(let-values(((fallback_0)" -"(unsafe-car lst_90))" +"(unsafe-car lst_89))" "((rest_42)" -"(unsafe-cdr lst_90))" +"(unsafe-cdr lst_89))" "((layer_1) pos_11))" "(let-values(((fold-var_9)" "(let-values(((fold-var_68)" @@ -16634,15 +16612,15 @@ static const char *startup_source = "(values" " fold-var_69)))))" "(if(not #f)" -"(for-loop_105" +"(for-loop_106" " fold-var_9" " rest_42" "(+ pos_11 1))" " fold-var_9)))" " fold-var_67)))))" -" for-loop_105)" +" for-loop_106)" " null" -" lst_89" +" lst_88" " start_14))))))))))" " loop_77)" " info_3" @@ -16650,31 +16628,31 @@ static const char *startup_source = "(let-values(((common-scopes_0)" "(if(null? relevant-scope-sets_0)" "(set)" -"(let-values(((lst_91) relevant-scope-sets_0))" +"(let-values(((lst_90) relevant-scope-sets_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_91)))" -"((letrec-values(((for-loop_106)" -"(lambda(s_181 lst_92)" +"(let-values()(check-list lst_90)))" +"((letrec-values(((for-loop_107)" +"(lambda(s_184 lst_91)" "(begin" " 'for-loop" -"(if(pair? lst_92)" -"(let-values(((l_48)(unsafe-car lst_92))" -"((rest_43)(unsafe-cdr lst_92)))" -"(let-values(((s_78)" -"(let-values(((s_182) s_181))" -"(let-values(((s_183)" +"(if(pair? lst_91)" +"(let-values(((l_48)(unsafe-car lst_91))" +"((rest_43)(unsafe-cdr lst_91)))" +"(let-values(((s_84)" +"(let-values(((s_185) s_184))" +"(let-values(((s_186)" "(let-values()" "(set-intersect" -" s_182" +" s_185" "(list->set l_48)))))" -"(values s_183)))))" -"(if(not #f)(for-loop_106 s_78 rest_43) s_78)))" -" s_181)))))" -" for-loop_106)" +"(values s_186)))))" +"(if(not #f)(for-loop_107 s_84 rest_43) s_84)))" +" s_184)))))" +" for-loop_107)" "(list->set(car relevant-scope-sets_0))" -" lst_91))))))" +" lst_90))))))" "(string-append" "((letrec-values(((loop_78)" "(lambda(info_5 layer_2)" @@ -16688,7 +16666,7 @@ static const char *startup_source = "(apply" " string-append" "(reverse$1" -"(let-values(((lst_93)" +"(let-values(((lst_92)" "(let-values(((temp1_1)(hash-ref info_5 'bindings null))" "((temp2_2)" "(lambda(a_37 b_61)" @@ -16701,14 +16679,14 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_93)))" -"((letrec-values(((for-loop_102)" -"(lambda(fold-var_63 lst_94)" +"(let-values()(check-list lst_92)))" +"((letrec-values(((for-loop_103)" +"(lambda(fold-var_63 lst_93)" "(begin" " 'for-loop" -"(if(pair? lst_94)" -"(let-values(((b_38)(unsafe-car lst_94))" -"((rest_44)(unsafe-cdr lst_94)))" +"(if(pair? lst_93)" +"(let-values(((b_38)(unsafe-car lst_93))" +"((rest_44)(unsafe-cdr lst_93)))" "(let-values(((fold-var_20)" "(let-values(((fold-var_64)" " fold-var_63))" @@ -16748,31 +16726,31 @@ static const char *startup_source = " fold-var_64))))" "(values fold-var_70)))))" "(if(not #f)" -"(for-loop_102 fold-var_20 rest_44)" +"(for-loop_103 fold-var_20 rest_44)" " fold-var_20)))" " fold-var_63)))))" -" for-loop_102)" +" for-loop_103)" " null" -" lst_93)))))" +" lst_92)))))" "(let-values(((fallbacks_1)(hash-ref info_5 'fallbacks null)))" "(apply" " string-append" "(reverse$1" -"(let-values(((lst_95) fallbacks_1)((start_15)(add1 layer_2)))" +"(let-values(((lst_94) fallbacks_1)((start_15)(add1 layer_2)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_95)))" +"(let-values()(check-list lst_94)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_15)))" -"((letrec-values(((for-loop_107)" -"(lambda(fold-var_71 lst_96 pos_12)" +"((letrec-values(((for-loop_108)" +"(lambda(fold-var_71 lst_95 pos_12)" "(begin" " 'for-loop" -"(if(if(pair? lst_96) #t #f)" -"(let-values(((fallback_1)(unsafe-car lst_96))" -"((rest_0)(unsafe-cdr lst_96))" +"(if(if(pair? lst_95) #t #f)" +"(let-values(((fallback_1)(unsafe-car lst_95))" +"((rest_0)(unsafe-cdr lst_95))" "((layer_3) pos_12))" "(let-values(((fold-var_72)" "(let-values(((fold-var_73)" @@ -16787,15 +16765,15 @@ static const char *startup_source = " fold-var_73))))" "(values fold-var_74)))))" "(if(not #f)" -"(for-loop_107" +"(for-loop_108" " fold-var_72" " rest_0" "(+ pos_12 1))" " fold-var_72)))" " fold-var_71)))))" -" for-loop_107)" +" for-loop_108)" " null" -" lst_95" +" lst_94" " start_15)))))))))))" " loop_78)" " info_3" @@ -16816,16 +16794,16 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_10)" -"(let-values(((s_184)(unsafe-car lst_10))" +"(let-values(((s_187)(unsafe-car lst_10))" "((rest_1)(unsafe-cdr lst_10)))" "(let-values(((fold-var_76)" "(let-values(((fold-var_77) fold-var_75))" -"(if(set-member? common-scopes_0 s_184)" +"(if(set-member? common-scopes_0 s_187)" "(let-values(((fold-var_5) fold-var_77))" "(let-values(((fold-var_6)" "(let-values()" "(cons" -"(let-values() s_184)" +"(let-values() s_187)" " fold-var_5))))" "(values fold-var_6)))" " fold-var_77))))" @@ -16861,34 +16839,34 @@ static const char *startup_source = " scopes_19" "(append" "(reverse$1" -"(let-values(((lst_97) scopes_19))" +"(let-values(((lst_96) scopes_19))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_97)))" -"((letrec-values(((for-loop_108)" -"(lambda(fold-var_78 lst_98)" +"(let-values()(check-list lst_96)))" +"((letrec-values(((for-loop_109)" +"(lambda(fold-var_78 lst_97)" "(begin" " 'for-loop" -"(if(pair? lst_98)" -"(let-values(((s_185)(unsafe-car lst_98))" -"((rest_45)(unsafe-cdr lst_98)))" +"(if(pair? lst_97)" +"(let-values(((s_188)(unsafe-car lst_97))" +"((rest_45)(unsafe-cdr lst_97)))" "(let-values(((fold-var_79)" "(let-values(((fold-var_80) fold-var_78))" -"(if(not(set-member? common-scopes_1 s_185))" +"(if(not(set-member? common-scopes_1 s_188))" "(let-values(((fold-var_81) fold-var_80))" "(let-values(((fold-var_82)" "(let-values()" "(cons" -"(let-values() s_185)" +"(let-values() s_188)" " fold-var_81))))" "(values fold-var_82)))" " fold-var_80))))" -"(if(not #f)(for-loop_108 fold-var_79 rest_45) fold-var_79)))" +"(if(not #f)(for-loop_109 fold-var_79 rest_45) fold-var_79)))" " fold-var_78)))))" -" for-loop_108)" +" for-loop_109)" " null" -" lst_97))))" +" lst_96))))" " (list \"[common scopes]\"))))))" "(if(null? strs_0)" " (let-values () \"\\n [empty]\")" @@ -16896,17 +16874,17 @@ static const char *startup_source = "(apply" " string-append" "(reverse$1" -"(let-values(((lst_99) strs_0))" +"(let-values(((lst_98) strs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_99)))" -"((letrec-values(((for-loop_109)" -"(lambda(fold-var_83 lst_100)" +"(let-values()(check-list lst_98)))" +"((letrec-values(((for-loop_110)" +"(lambda(fold-var_83 lst_99)" "(begin" " 'for-loop" -"(if(pair? lst_100)" -"(let-values(((str_4)(unsafe-car lst_100))((rest_46)(unsafe-cdr lst_100)))" +"(if(pair? lst_99)" +"(let-values(((str_4)(unsafe-car lst_99))((rest_46)(unsafe-cdr lst_99)))" "(let-values(((fold-var_84)" "(let-values(((fold-var_85) fold-var_83))" "(let-values(((fold-var_14)" @@ -16916,11 +16894,11 @@ static const char *startup_source = " (string-append \"\\n \" str_4))" " fold-var_85))))" "(values fold-var_14)))))" -"(if(not #f)(for-loop_109 fold-var_84 rest_46) fold-var_84)))" +"(if(not #f)(for-loop_110 fold-var_84 rest_46) fold-var_84)))" " fold-var_83)))))" -" for-loop_109)" +" for-loop_110)" " null" -" lst_99)))))))))))" +" lst_98)))))))))))" " (define-values (layer->string) (lambda (layer_4) (begin (if (zero? layer_4) \"\" (format \" at layer ~a\" layer_4)))))" "(define-values" "(raise-syntax-implicit-error)" @@ -16970,8 +16948,8 @@ static const char *startup_source = " 'check-no-duplicate-ids8" "(let-values(((ids_2) ids5_0))" "(let-values(((phase_45) phase6_0))" -"(let-values(((s_144) s7_1))" -"(let-values(((ht_77)(if ht4_0 ht3_0(make-check-no-duplicate-table))))" +"(let-values(((s_189) s7_1))" +"(let-values(((ht_78)(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_80)" @@ -16982,19 +16960,19 @@ static const char *startup_source = "(let-values()" "(let-values(((l_7)(hash-ref ht_84(syntax-e$1 v_131) null)))" "(begin" -"(let-values(((lst_79) l_7))" +"(let-values(((lst_78) l_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_79)))" -"((letrec-values(((for-loop_94)" -"(lambda(lst_101)" +"(let-values()(check-list lst_78)))" +"((letrec-values(((for-loop_96)" +"(lambda(lst_100)" "(begin" " 'for-loop" -"(if(pair? lst_101)" -"(let-values(((id_2)(unsafe-car lst_101))" +"(if(pair? lst_100)" +"(let-values(((id_2)(unsafe-car lst_100))" "((rest_47)" -"(unsafe-cdr lst_101)))" +"(unsafe-cdr lst_100)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17011,17 +16989,17 @@ static const char *startup_source = "(string-append" " \"duplicate \"" " what_2)" -" s_144" +" s_189" " v_131))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_94 rest_47)" +"(for-loop_96 rest_47)" "(values))))" "(values))))))" -" for-loop_94)" -" lst_79)))" +" for-loop_96)" +" lst_78)))" "(void)" "(hash-set ht_84(syntax-e$1 v_131)(cons v_131 l_7)))))" "(if(pair? v_131)" @@ -17029,7 +17007,7 @@ static const char *startup_source = "(let-values() ht_84)))))))" " loop_80)" " ids_2" -" ht_77))))))))))" +" ht_78))))))))))" "(define-values" "(remove-use-site-scopes)" "(lambda(s_0 ctx_7)" @@ -17039,12 +17017,12 @@ static const char *startup_source = "(if(syntax?$1 s_0)" "(remove-scopes s_0(unbox use-sites_0))" "(reverse$1" -"(let-values(((lst_102) s_0))" +"(let-values(((lst_101) s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_102)))" -"((letrec-values(((for-loop_110)" +"(let-values()(check-list lst_101)))" +"((letrec-values(((for-loop_111)" "(lambda(fold-var_86 lst_6)" "(begin" " 'for-loop" @@ -17059,11 +17037,11 @@ static const char *startup_source = "(remove-scopes id_10(unbox use-sites_0)))" " fold-var_88))))" "(values fold-var_60)))))" -"(if(not #f)(for-loop_110 fold-var_87 rest_48) fold-var_87)))" +"(if(not #f)(for-loop_111 fold-var_87 rest_48) fold-var_87)))" " fold-var_86)))))" -" for-loop_110)" +" for-loop_111)" " null" -" lst_102)))))" +" lst_101)))))" " s_0)))))" "(define-values" "(struct:compile-context" @@ -17166,14 +17144,14 @@ static const char *startup_source = "(lambda()(begin(mpi-intern-table1.1(make-hash)(make-hasheq)))))" "(define-values" "(intern-module-path-index!)" -"(lambda(t_42 mpi_19)" +"(lambda(t_42 mpi_20)" "(begin" -"(let-values(((or-part_176)(hash-ref(mpi-intern-table-fast t_42) mpi_19 #f)))" -"(if or-part_176" -" or-part_176" -"(let-values(((name_2 base_15)(1/module-path-index-split mpi_19)))" +"(let-values(((or-part_177)(hash-ref(mpi-intern-table-fast t_42) mpi_20 #f)))" +"(if or-part_177" +" or-part_177" +"(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_42) mpi_19 mpi_19) mpi_19))" +"(let-values()(begin(hash-set!(mpi-intern-table-fast t_42) mpi_20 mpi_20) mpi_20))" "(let-values()" "(let-values(((interned-base_0)(if base_15(intern-module-path-index! t_42 base_15) #f)))" "(let-values(((at-name_0)" @@ -17183,26 +17161,87 @@ static const char *startup_source = "(let-values(((at-name_1)(make-hasheq)))" "(begin(hash-set!(mpi-intern-table-normal t_42) name_2 at-name_1) at-name_1))))))" "(let-values(((i-mpi_0)" -"(let-values(((or-part_77)(hash-ref at-name_0 interned-base_0 #f)))" -"(if or-part_77" -" or-part_77" -"(let-values(((mpi_20)" +"(let-values(((or-part_76)(hash-ref at-name_0 interned-base_0 #f)))" +"(if or-part_76" +" or-part_76" +"(let-values(((mpi_21)" "(if(eq? base_15 interned-base_0)" -" mpi_19" -"(let-values(((the-struct_46) mpi_19))" -"(if(1/module-path-index? the-struct_46)" +" mpi_20" +"(let-values(((the-struct_45) mpi_20))" +"(if(1/module-path-index? the-struct_45)" "(let-values(((base3_0) interned-base_0))" "(module-path-index2.1" -"(module-path-index-path the-struct_46)" +"(module-path-index-path the-struct_45)" " base3_0" -"(module-path-index-resolved the-struct_46)" -"(module-path-index-shift-cache the-struct_46)))" +"(module-path-index-resolved the-struct_45)" +"(module-path-index-shift-cache the-struct_45)))" "(raise-argument-error" " 'struct-copy" " \"module-path-index?\"" -" the-struct_46))))))" -"(begin(hash-set! at-name_0 interned-base_0 mpi_20) mpi_20))))))" -"(begin(hash-set!(mpi-intern-table-fast t_42) mpi_19 i-mpi_0) i-mpi_0))))))))))))" +" the-struct_45))))))" +"(begin(hash-set! at-name_0 interned-base_0 mpi_21) mpi_21))))))" +"(begin(hash-set!(mpi-intern-table-fast t_42) mpi_20 i-mpi_0) i-mpi_0))))))))))))" +"(define-values(built-in-symbols)(make-hasheq))" +"(define-values(register-built-in-symbol!)(lambda(s_0)(begin(hash-set! built-in-symbols s_0 #t))))" +"(define-values(built-in-symbol?)(lambda(s_69)(begin(hash-ref built-in-symbols s_69 #f))))" +"(define-values" +"(make-built-in-symbol!)" +"(lambda(s_183)" +"(begin" +" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_183))))" +"(begin(register-built-in-symbol! built-in-s_0) built-in-s_0)))))" +"(void" +"(begin" +"(for-each2" +" register-built-in-symbol!" +" '(lambda case-lambda" +" if" +" begin" +" begin0" +" let-values" +" letrec-values" +" set!" +" quote" +" with-continuation-mark" +" #%variable-reference))" +"(for-each2" +" register-built-in-symbol!" +" '(check-not-undefined" +" instance-variable-box" +" variable-reference" +" variable-reference?" +" variable-reference->instance" +" variable-reference-constant?" +" variable-reference-from-unsafe?))" +"(for-each2" +" register-built-in-symbol!" +" '(let letrec* define" +" or" +" and" +" pariah" +" variable-set!" +" variable-ref" +" variable-ref/no-check" +" make-instance-variable-reference" +" annotation?" +" annotation-expression" +" #%app" +" #%call-with-values" +" make-pthread-parameter))))" +"(define-values(phase-shift-id)(make-built-in-symbol! 'phase))" +"(define-values(dest-phase-id)(make-built-in-symbol! 'dest-phase))" +"(define-values(ns-id)(make-built-in-symbol! 'namespace))" +"(define-values(self-id)(make-built-in-symbol! 'self))" +"(define-values(syntax-literals-id)(make-built-in-symbol! 'syntax-literals))" +"(define-values(get-syntax-literal!-id)(make-built-in-symbol! 'get-syntax-literal!))" +"(define-values(bulk-binding-registry-id)(make-built-in-symbol! 'bulk-binding-registry))" +"(define-values(inspector-id)(make-built-in-symbol! 'inspector))" +"(define-values(deserialize-syntax-id)(make-built-in-symbol! 'deserialize-syntax))" +"(define-values(deserialized-syntax-vector-id)(make-built-in-symbol! 'deserialized-syntax-vector))" +"(define-values(set-transformer!-id)(make-built-in-symbol! 'set-transformer!))" +"(define-values(top-level-bind!-id)(make-built-in-symbol! 'top-level-bind!))" +"(define-values(top-level-require!-id)(make-built-in-symbol! 'top-level-require!))" +"(define-values(mpi-vector-id)(make-built-in-symbol! 'mpi-vector))" "(define-values" "(unsafe-vector-ref-id)" "(if(eq?(system-type 'vm) 'chez-scheme)(let-values() 'unsafe-vector*-ref)(let-values() 'vector*-ref)))" @@ -17238,25 +17277,25 @@ static const char *startup_source = "(lambda()(begin(module-path-index-table1.1(make-hasheq)(make-module-path-index-intern-table)))))" "(define-values" "(add-module-path-index!)" -"(lambda(mpis_0 mpi_19)" +"(lambda(mpis_0 mpi_20)" "(begin" -"(let-values(((pos_13)(add-module-path-index!/pos mpis_0 mpi_19)))" +"(let-values(((pos_13)(add-module-path-index!/pos mpis_0 mpi_20)))" "(if pos_13(list unsafe-vector-ref-id mpi-vector-id pos_13) #f)))))" "(define-values" "(add-module-path-index!/pos)" -"(lambda(mpis_1 mpi_21)" +"(lambda(mpis_1 mpi_22)" "(begin" -"(if(not mpi_21)" +"(if(not mpi_22)" "(let-values() #f)" -"(if mpi_21" +"(if mpi_22" "(let-values()" -"(let-values(((mpi_22)(intern-module-path-index!(module-path-index-table-intern mpis_1) mpi_21))" +"(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_75)(hash-ref positions_0 mpi_22 #f)))" -"(if or-part_75" -" or-part_75" +"(let-values(((or-part_74)(hash-ref positions_0 mpi_23 #f)))" +"(if or-part_74" +" or-part_74" "(let-values(((pos_14)(hash-count positions_0)))" -"(begin(hash-set! positions_0 mpi_22 pos_14) pos_14))))))" +"(begin(hash-set! positions_0 mpi_23 pos_14) pos_14))))))" "(void))))))" "(define-values" "(generate-module-path-index-deserialize)" @@ -17268,31 +17307,31 @@ static const char *startup_source = " 'unique-list" "(if(pair? v_132)" "(reverse$1" -"(let-values(((lst_103) v_132))" +"(let-values(((lst_102) v_132))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_103)))" +"(let-values()(check-list lst_102)))" "((letrec-values(((for-loop_26)" -"(lambda(fold-var_10 lst_82)" +"(lambda(fold-var_10 lst_81)" "(begin" " 'for-loop" -"(if(pair? lst_82)" -"(let-values(((i_93)(unsafe-car lst_82))" -"((rest_49)(unsafe-cdr lst_82)))" +"(if(pair? lst_81)" +"(let-values(((i_94)(unsafe-car lst_81))" +"((rest_49)(unsafe-cdr lst_81)))" "(let-values(((fold-var_89)" "(let-values(((fold-var_90) fold-var_10))" "(let-values(((fold-var_91)" "(let-values()" "(cons" -"(let-values() i_93)" +"(let-values() i_94)" " fold-var_90))))" "(values fold-var_91)))))" "(if(not #f)(for-loop_26 fold-var_89 rest_49) fold-var_89)))" " fold-var_10)))))" " for-loop_26)" " null" -" lst_103))))" +" lst_102))))" " v_132)))))" "(let-values(((positions_1)(module-path-index-table-positions mpis_2)))" "(let-values(((gen-order_0)(make-hasheqv)))" @@ -17302,31 +17341,31 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_85)))" -"((letrec-values(((for-loop_81)" -"(lambda(table_116 i_94)" +"((letrec-values(((for-loop_83)" +"(lambda(table_116 i_95)" "(begin" " 'for-loop" -"(if i_94" -"(let-values(((k_18 v_62)(hash-iterate-key+value ht_85 i_94)))" +"(if i_95" +"(let-values(((k_19 v_62)(hash-iterate-key+value ht_85 i_95)))" "(let-values(((table_117)" "(let-values(((table_111) table_116))" "(let-values(((table_118)" "(let-values()" -"(let-values(((key_44 val_36)" +"(let-values(((key_46 val_37)" "(let-values()" "(values" " v_62" -" k_18))))" +" k_19))))" "(hash-set" " table_111" -" key_44" -" val_36)))))" +" key_46" +" val_37)))))" "(values table_118)))))" "(if(not #f)" -"(for-loop_81 table_117(hash-iterate-next ht_85 i_94))" +"(for-loop_83 table_117(hash-iterate-next ht_85 i_95))" " table_117)))" " table_116)))))" -" for-loop_81)" +" for-loop_83)" " '#hasheqv()" "(hash-iterate-first ht_85))))))" "(let-values((()" @@ -17336,36 +17375,36 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_16 end_10 inc_4)))" -"((letrec-values(((for-loop_111)" +"((letrec-values(((for-loop_112)" "(lambda(pos_15)" "(begin" " 'for-loop" "(if(< pos_15 end_10)" -"(let-values(((i_95) pos_15))" +"(let-values(((i_96) pos_15))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((mpi_23)" +"(let-values(((mpi_24)" "(hash-ref" " rev-positions_0" -" i_95)))" +" i_96)))" "((letrec-values(((loop_81)" -"(lambda(mpi_24)" +"(lambda(mpi_25)" "(begin" " 'loop" "(if(hash-ref" " gen-order_0" -" mpi_24" +" mpi_25" " #f)" "(void)" "(let-values()" "(let-values(((name_37" " base_16)" "(1/module-path-index-split" -" mpi_24)))" +" mpi_25)))" "(begin" "(if base_16" "(let-values()" @@ -17374,16 +17413,16 @@ static const char *startup_source = "(void))" "(hash-set!" " gen-order_0" -" mpi_24" +" mpi_25" "(hash-count" " gen-order_0))))))))))" " loop_81)" -" mpi_23)))" +" mpi_24)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_111(+ pos_15 inc_4))(values))))" +"(if(not #f)(for-loop_112(+ pos_15 inc_4))(values))))" "(values))))))" -" for-loop_111)" +" for-loop_112)" " start_16)))" "(values))))" "(let-values()" @@ -17393,33 +17432,33 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_86)))" -"((letrec-values(((for-loop_53)" +"((letrec-values(((for-loop_55)" "(lambda(table_119 i_20)" "(begin" " 'for-loop" "(if i_20" -"(let-values(((k_19 v_133)" +"(let-values(((k_20 v_133)" "(hash-iterate-key+value ht_86 i_20)))" "(let-values(((table_19)" "(let-values(((table_120) table_119))" "(let-values(((table_9)" "(let-values()" -"(let-values(((key_45" -" val_37)" +"(let-values(((key_47" +" val_38)" "(let-values()" "(values" " v_133" -" k_19))))" +" k_20))))" "(hash-set" " table_120" -" key_45" -" val_37)))))" +" key_47" +" val_38)))))" "(values table_9)))))" "(if(not #f)" -"(for-loop_53 table_19(hash-iterate-next ht_86 i_20))" +"(for-loop_55 table_19(hash-iterate-next ht_86 i_20))" " table_19)))" " table_119)))))" -" for-loop_53)" +" for-loop_55)" " '#hasheqv()" "(hash-iterate-first ht_86))))))" "(let-values(((gens_0)" @@ -17442,43 +17481,43 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_17 end_11 inc_5)))" "((letrec-values(((for-loop_29)" -"(lambda(i_96 pos_16)" +"(lambda(i_97 pos_16)" "(begin" " 'for-loop" "(if(< pos_16 end_11)" -"(let-values(((i_89) pos_16))" -"(let-values(((i_97)" -"(let-values(((i_98) i_96))" -"(let-values(((i_99)" +"(let-values(((i_90) pos_16))" +"(let-values(((i_98)" +"(let-values(((i_99) i_97))" +"(let-values(((i_100)" "(let-values()" "(begin" "(unsafe-vector*-set!" " v_134" -" i_98" +" i_99" "(let-values()" -"(let-values(((mpi_25)" +"(let-values(((mpi_26)" "(hash-ref" " rev-gen-order_0" -" i_89)))" +" i_90)))" "(let-values(((path_6" " base_17)" "(1/module-path-index-split" -" mpi_25)))" +" mpi_26)))" "(if(top-level-module-path-index?" -" mpi_25)" +" mpi_26)" "(let-values()" " 'top)" "(if(not" " path_6)" "(let-values()" "(box" -"(let-values(((or-part_177)" +"(let-values(((or-part_178)" "(unique-list_0" "(1/resolved-module-path-name" "(module-path-index-resolved" -" mpi_25)))))" -"(if or-part_177" -" or-part_177" +" mpi_26)))))" +"(if or-part_178" +" or-part_178" " 'self))))" "(if(not" " base_17)" @@ -17495,17 +17534,17 @@ static const char *startup_source = "(void)))))))))" "(unsafe-fx+" " 1" -" i_98)))))" -"(values i_99)))))" +" i_99)))))" +"(values i_100)))))" "(if(if(not" "((lambda x_9" -"(unsafe-fx= i_97 len_11))" -" i_89))" +"(unsafe-fx= i_98 len_11))" +" i_90))" "(not #f)" " #f)" -"(for-loop_29 i_97(+ pos_16 inc_5))" -" i_97)))" -" i_96)))))" +"(for-loop_29 i_98(+ pos_16 inc_5))" +" i_98)))" +" i_97)))))" " for-loop_29)" " 0" " start_17)))))" @@ -17515,22 +17554,22 @@ static const char *startup_source = "(list 'quote gens_0)" "(list" " 'quote" -"(let-values(((vec_25 i_100)" +"(let-values(((vec_25 i_101)" "(let-values(((start_18) 0)((end_12)(hash-count rev-positions_0))((inc_6) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_18 end_12 inc_6)))" -"((letrec-values(((for-loop_55)" -"(lambda(vec_26 i_101 pos_17)" +"((letrec-values(((for-loop_57)" +"(lambda(vec_26 i_102 pos_17)" "(begin" " 'for-loop" "(if(< pos_17 end_12)" "(let-values(((i_21) pos_17))" -"(let-values(((vec_27 i_102)" +"(let-values(((vec_27 i_103)" "(let-values(((vec_28) vec_26)" -"((i_37) i_101))" -"(let-values(((vec_29 i_103)" +"((i_37) i_102))" +"(let-values(((vec_29 i_104)" "(let-values()" "(let-values(((new-vec_2)" "(if(eq?" @@ -17555,16 +17594,16 @@ static const char *startup_source = "(unsafe-fx+" " i_37" " 1)))))))" -"(values vec_29 i_103)))))" +"(values vec_29 i_104)))))" "(if(not #f)" -"(for-loop_55 vec_27 i_102(+ pos_17 inc_6))" -"(values vec_27 i_102))))" -"(values vec_26 i_101))))))" -" for-loop_55)" +"(for-loop_57 vec_27 i_103(+ pos_17 inc_6))" +"(values vec_27 i_103))))" +"(values vec_26 i_102))))))" +" for-loop_57)" "(make-vector 16)" " 0" " start_18)))))" -"(shrink-vector vec_25 i_100)))))))))))))))" +"(shrink-vector vec_25 i_101)))))))))))))))" "(define-values" "(deserialize-module-path-indexes)" "(lambda(gen-vec_0 order-vec_0)" @@ -17580,12 +17619,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_19)))" -"((letrec-values(((for-loop_112)" +"((letrec-values(((for-loop_113)" "(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_30 pos_18))((i_104) pos_19))" +"(let-values(((d_21)(unsafe-vector-ref vec_30 pos_18))((i_105) pos_19))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17594,7 +17633,7 @@ static const char *startup_source = "(let-values()" "(vector-set!" " gen_0" -" i_104" +" i_105" "(if(eq? d_21 'top)" "(let-values()" "(deserialize-module-path-index))" @@ -17612,9 +17651,9 @@ static const char *startup_source = " #f)))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_112(unsafe-fx+ 1 pos_18)(+ pos_19 1))(values))))" +"(if(not #f)(for-loop_113(unsafe-fx+ 1 pos_18)(+ pos_19 1))(values))))" "(values))))))" -" for-loop_112)" +" for-loop_113)" " 0" " start_19)))" "(void)" @@ -17633,31 +17672,31 @@ static const char *startup_source = "(begin(check-vector vec_33)(values vec_33(unsafe-vector-length vec_33))))))" "(begin" " #f" -"((letrec-values(((for-loop_113)" -"(lambda(i_105 pos_20)" +"((letrec-values(((for-loop_114)" +"(lambda(i_106 pos_20)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_20 len_14)" "(let-values(((p_32)(unsafe-vector-ref vec_32 pos_20)))" "(let-values(((i_45)" -"(let-values(((i_62) i_105))" -"(let-values(((i_106)" +"(let-values(((i_63) i_106))" +"(let-values(((i_107)" "(let-values()" "(begin" "(unsafe-vector*-set!" " v_135" -" i_62" +" i_63" "(let-values()" "(vector*-ref gen_0 p_32)))" -"(unsafe-fx+ 1 i_62)))))" -"(values i_106)))))" +"(unsafe-fx+ 1 i_63)))))" +"(values i_107)))))" "(if(if(not((lambda x_42(unsafe-fx= i_45 len_13)) p_32))" "(not #f)" " #f)" -"(for-loop_113 i_45(unsafe-fx+ 1 pos_20))" +"(for-loop_114 i_45(unsafe-fx+ 1 pos_20))" " i_45)))" -" i_105)))))" -" for-loop_113)" +" i_106)))))" +" for-loop_114)" " 0" " 0)))))" " v_135)))))))))" @@ -17673,24 +17712,24 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_87)))" -"((letrec-values(((for-loop_114)" -"(lambda(i_107)" +"((letrec-values(((for-loop_115)" +"(lambda(i_108)" "(begin" " 'for-loop" -"(if i_107" -"(let-values(((mpi_26 pos_21)(hash-iterate-key+value ht_87 i_107)))" +"(if i_108" +"(let-values(((mpi_27 pos_21)(hash-iterate-key+value ht_87 i_108)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(vector-set! vec_34 pos_21 mpi_26))" +"(vector-set! vec_34 pos_21 mpi_27))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_114(hash-iterate-next ht_87 i_107))(values))))" +"(if(not #f)(for-loop_115(hash-iterate-next ht_87 i_108))(values))))" "(values))))))" -" for-loop_114)" +" for-loop_115)" "(hash-iterate-first ht_87))))" "(void)" " vec_34))))))" @@ -17699,15 +17738,15 @@ static const char *startup_source = "(lambda(mus_0 mpis_4)" "(begin" "(reverse$1" -"(let-values(((lst_104) mus_0))" +"(let-values(((lst_103) mus_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_104)))" -"((letrec-values(((for-loop_115)" -"(lambda(fold-var_92 lst_105)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_103)))" +"((letrec-values(((for-loop_116)" +"(lambda(fold-var_92 lst_104)" "(begin" " 'for-loop" -"(if(pair? lst_105)" -"(let-values(((mu_1)(unsafe-car lst_105))((rest_50)(unsafe-cdr lst_105)))" +"(if(pair? lst_104)" +"(let-values(((mu_1)(unsafe-car lst_104))((rest_50)(unsafe-cdr lst_104)))" "(let-values(((fold-var_93)" "(let-values(((fold-var_94) fold-var_92))" "(let-values(((fold-var_95)" @@ -17722,30 +17761,30 @@ static const char *startup_source = "(module-use-phase mu_1)))" " fold-var_94))))" "(values fold-var_95)))))" -"(if(not #f)(for-loop_115 fold-var_93 rest_50) fold-var_93)))" +"(if(not #f)(for-loop_116 fold-var_93 rest_50) fold-var_93)))" " fold-var_92)))))" -" for-loop_115)" +" for-loop_116)" " null" -" lst_104)))))))" +" lst_103)))))))" "(define-values" "(interned-literal?)" -"(lambda(v_90)" +"(lambda(v_89)" "(begin" -"(let-values(((or-part_178)(null? v_90)))" -"(if or-part_178" -" or-part_178" -"(let-values(((or-part_179)(boolean? v_90)))" +"(let-values(((or-part_179)(null? v_89)))" "(if or-part_179" " or-part_179" -"(let-values(((or-part_180)" -"(if(fixnum? v_90)(if(< v_90(sub1(expt 2 30)))(> v_90(-(expt 2 30))) #f) #f)))" +"(let-values(((or-part_180)(boolean? v_89)))" "(if or-part_180" " or-part_180" -"(let-values(((or-part_57)(symbol? v_90)))" -"(if or-part_57" -" or-part_57" -"(let-values(((or-part_181)(char? v_90)))" -"(if or-part_181 or-part_181(keyword? v_90))))))))))))))" +"(let-values(((or-part_181)" +"(if(fixnum? v_89)(if(< v_89(sub1(expt 2 30)))(> v_89(-(expt 2 30))) #f) #f)))" +"(if or-part_181" +" or-part_181" +"(let-values(((or-part_182)(symbol? v_89)))" +"(if or-part_182" +" or-part_182" +"(let-values(((or-part_183)(char? v_89)))" +"(if or-part_183 or-part_183(keyword? v_89))))))))))))))" "(define-values" "(serialize-phase-to-link-module-uses)" "(lambda(phase-to-link-module-uses_0 mpis_5)" @@ -17758,15 +17797,15 @@ static const char *startup_source = "(apply" " append" "(reverse$1" -"(let-values(((lst_106) phases-in-order_0))" +"(let-values(((lst_105) phases-in-order_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_106)))" -"((letrec-values(((for-loop_116)" -"(lambda(fold-var_96 lst_107)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_105)))" +"((letrec-values(((for-loop_117)" +"(lambda(fold-var_96 lst_106)" "(begin" " 'for-loop" -"(if(pair? lst_107)" -"(let-values(((phase_47)(unsafe-car lst_107))((rest_51)(unsafe-cdr lst_107)))" +"(if(pair? lst_106)" +"(let-values(((phase_47)(unsafe-car lst_106))((rest_51)(unsafe-cdr lst_106)))" "(let-values(((fold-var_97)" "(let-values(((fold-var_35) fold-var_96))" "(let-values(((fold-var_98)" @@ -17784,11 +17823,11 @@ static const char *startup_source = " mpis_5))))" " fold-var_35))))" "(values fold-var_98)))))" -"(if(not #f)(for-loop_116 fold-var_97 rest_51) fold-var_97)))" +"(if(not #f)(for-loop_117 fold-var_97 rest_51) fold-var_97)))" " fold-var_96)))))" -" for-loop_116)" +" for-loop_117)" " null" -" lst_106))))))))))" +" lst_105))))))))))" "(define-values" "(generate-deserialize6.1)" "(lambda(syntax-support?2_0 syntax-support?3_0 v4_0 mpis5_0)" @@ -17820,11 +17859,11 @@ static const char *startup_source = "(lambda(v_105)" "(begin" " 'loop" -"(if(let-values(((or-part_182)" +"(if(let-values(((or-part_184)" "(interned-literal?" " v_105)))" -"(if or-part_182" -" or-part_182" +"(if or-part_184" +" or-part_184" "(1/module-path-index?" " v_105)))" "(let-values()(void))" @@ -17887,11 +17926,11 @@ static const char *startup_source = "(if(vector?" " v_105)" "(let-values()" -"(if(let-values(((or-part_183)" +"(if(let-values(((or-part_185)" "(immutable?" " v_105)))" -"(if or-part_183" -" or-part_183" +"(if or-part_185" +" or-part_185" "(zero?" "(vector-length" " v_105))))" @@ -17909,7 +17948,7 @@ static const char *startup_source = " vec_36))))))" "(begin" " #f" -"((letrec-values(((for-loop_117)" +"((letrec-values(((for-loop_118)" "(lambda(pos_22)" "(begin" " 'for-loop" @@ -17932,13 +17971,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_117" +"(for-loop_118" "(unsafe-fx+" " 1" " pos_22))" "(values))))" "(values))))))" -" for-loop_117)" +" for-loop_118)" " 0)))" "(void))" "(begin" @@ -17961,7 +18000,7 @@ static const char *startup_source = " vec_38))))))" "(begin" " #f" -"((letrec-values(((for-loop_118)" +"((letrec-values(((for-loop_119)" "(lambda(pos_23)" "(begin" " 'for-loop" @@ -17984,13 +18023,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_118" +"(for-loop_119" "(unsafe-fx+" " 1" " pos_23))" "(values))))" "(values))))))" -" for-loop_118)" +" for-loop_119)" " 0)))" "(void)))))" "(if(box?" @@ -18016,7 +18055,7 @@ static const char *startup_source = "(if(immutable?" " v_105)" "(begin" -"(let-values(((lst_76)" +"(let-values(((lst_75)" "(sorted-hash-keys" " v_105)))" "(begin" @@ -18025,19 +18064,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_76)))" -"((letrec-values(((for-loop_119)" -"(lambda(lst_108)" +" lst_75)))" +"((letrec-values(((for-loop_120)" +"(lambda(lst_107)" "(begin" " 'for-loop" "(if(pair?" -" lst_108)" -"(let-values(((k_20)" +" lst_107)" +"(let-values(((k_21)" "(unsafe-car" -" lst_108))" +" lst_107))" "((rest_52)" "(unsafe-cdr" -" lst_108)))" +" lst_107)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18046,21 +18085,21 @@ static const char *startup_source = "(let-values()" "(begin" "(loop_82" -" k_20)" +" k_21)" "(loop_82" "(hash-ref" " v_105" -" k_20))))" +" k_21))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_119" +"(for-loop_120" " rest_52)" "(values))))" "(values))))))" -" for-loop_119)" -" lst_76)))" +" for-loop_120)" +" lst_75)))" "(void))" "(begin" "(hash-set!" @@ -18069,7 +18108,7 @@ static const char *startup_source = "(hash-count" " mutables_0))" "(begin" -"(let-values(((lst_109)" +"(let-values(((lst_108)" "(sorted-hash-keys" " v_105)))" "(begin" @@ -18078,14 +18117,14 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_109)))" -"((letrec-values(((for-loop_120)" +" lst_108)))" +"((letrec-values(((for-loop_121)" "(lambda(lst_53)" "(begin" " 'for-loop" "(if(pair?" " lst_53)" -"(let-values(((k_21)" +"(let-values(((k_22)" "(unsafe-car" " lst_53))" "((rest_53)" @@ -18099,21 +18138,21 @@ static const char *startup_source = "(let-values()" "(begin" "(add-frontier!_0" -" k_21)" +" k_22)" "(add-frontier!_0" "(hash-ref" " v_105" -" k_21))))" +" k_22))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_120" +"(for-loop_121" " rest_53)" "(values))))" "(values))))))" -" for-loop_120)" -" lst_109)))" +" for-loop_121)" +" lst_108)))" "(void)))))" "(if(prefab-struct-key" " v_105)" @@ -18139,7 +18178,7 @@ static const char *startup_source = " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_121)" +"((letrec-values(((for-loop_122)" "(lambda(idx_1)" "(begin" " 'for-loop" @@ -18162,13 +18201,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_121" +"(for-loop_122" "(unsafe-fx+" " idx_1" " 1))" "(values))))" "(values))))))" -" for-loop_121)" +" for-loop_122)" " start*_1)))" "(void)))" "(if(srcloc?" @@ -18195,7 +18234,7 @@ static const char *startup_source = " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_122)" +"((letrec-values(((for-loop_123)" "(lambda(idx_2)" "(begin" " 'for-loop" @@ -18218,13 +18257,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_122" +"(for-loop_123" "(unsafe-fx+" " idx_2" " 1))" "(values))))" "(values))))))" -" for-loop_122)" +" for-loop_123)" " start*_2)))" "(void)))" "(let-values()" @@ -18244,20 +18283,20 @@ static const char *startup_source = "(let-values(((l_49) frontier_0))" "(begin" "(set! frontier_0 null)" -"(let-values(((lst_110) l_49))" +"(let-values(((lst_109) l_49))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_110)))" -"((letrec-values(((for-loop_123)" +"(check-list lst_109)))" +"((letrec-values(((for-loop_124)" "(lambda(lst_56)" "(begin" " 'for-loop" "(if(pair?" " lst_56)" -"(let-values(((v_137)" +"(let-values(((v_43)" "(unsafe-car" " lst_56))" "((rest_54)" @@ -18270,17 +18309,17 @@ static const char *startup_source = "(begin" "(let-values()" "(frontier-loop_0" -" v_137))" +" v_43))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_123" +"(for-loop_124" " rest_54)" "(values))))" "(values))))))" -" for-loop_123)" -" lst_110)))" +" for-loop_124)" +" lst_109)))" "(void))))))))))" " frontier-loop_0)" " v_136)" @@ -18295,15 +18334,15 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_88)))" -"((letrec-values(((for-loop_124)" -"(lambda(fold-var_99 i_108)" +"((letrec-values(((for-loop_125)" +"(lambda(fold-var_99 i_109)" "(begin" " 'for-loop" -"(if i_108" +"(if i_109" "(let-values(((obj_0)" "(hash-iterate-key" " ht_88" -" i_108)))" +" i_109)))" "(let-values(((fold-var_100)" "(let-values(((fold-var_101)" " fold-var_99))" @@ -18318,17 +18357,17 @@ static const char *startup_source = "(values" " fold-var_102)))))" "(if(not #f)" -"(for-loop_124" +"(for-loop_125" " fold-var_100" "(hash-iterate-next" " ht_88" -" i_108))" +" i_109))" " fold-var_100)))" " fold-var_99)))))" -" for-loop_124)" +" for-loop_125)" " null" "(hash-iterate-first ht_88)))))))" -"(let-values(((lst_111)" +"(let-values(((lst_110)" "(let-values(((share-steps12_0) share-steps_0)" "((<13_0) <))" "(sort7.1 #f #f #f #f share-steps12_0 <13_0)))" @@ -18336,46 +18375,46 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_111)))" +"(let-values()(check-list lst_110)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_20)))" -"((letrec-values(((for-loop_125)" -"(lambda(table_121 lst_112 pos_24)" +"((letrec-values(((for-loop_126)" +"(lambda(table_121 lst_111 pos_24)" "(begin" " 'for-loop" -"(if(if(pair? lst_112) #t #f)" +"(if(if(pair? lst_111) #t #f)" "(let-values(((step_3)" -"(unsafe-car lst_112))" +"(unsafe-car lst_111))" "((rest_55)" -"(unsafe-cdr lst_112))" +"(unsafe-cdr lst_111))" "((pos_25) pos_24))" "(let-values(((table_122)" "(let-values(((table_123)" " table_121))" "(let-values(((table_124)" "(let-values()" -"(let-values(((key_46" -" val_38)" +"(let-values(((key_48" +" val_39)" "(let-values()" "(values" " step_3" " pos_25))))" "(hash-set" " table_123" -" key_46" -" val_38)))))" +" key_48" +" val_39)))))" "(values table_124)))))" "(if(not #f)" -"(for-loop_125" +"(for-loop_126" " table_122" " rest_55" "(+ pos_24 1))" " table_122)))" " table_121)))))" -" for-loop_125)" +" for-loop_126)" " '#hasheqv()" -" lst_111" +" lst_110" " start_20))))))" "(let-values(((stream_0) null))" "(let-values(((stream-size_0) 0))" @@ -18385,12 +18424,12 @@ static const char *startup_source = "(lambda(pos_26)" "(begin" " 'quoted?" -"(let-values(((v_138)" +"(let-values(((v_137)" "(list-ref" " stream_0" "(- stream-size_0(add1 pos_26)))))" -"(let-values(((or-part_164)(not(keyword? v_138))))" -"(if or-part_164 or-part_164(eq? '#:quote v_138))))))))" +"(let-values(((or-part_165)(not(keyword? v_137))))" +"(if or-part_165 or-part_165(eq? '#:quote v_137))))))))" "(let-values(((ser-reset!_0)" "(lambda(pos_27)" "(begin" @@ -18409,20 +18448,20 @@ static const char *startup_source = "(set! stream-size_0 0))))))" "(letrec-values(((ser-push!_15)" "(case-lambda" -"((v_139)" +"((v_138)" "(begin" " 'ser-push!" -"(if(hash-ref shares_0 v_139 #f)" +"(if(hash-ref shares_0 v_138 #f)" "(let-values()" "(let-values(((n_21)" "(hash-ref" " share-step-positions_0" -"(hash-ref objs_0 v_139))))" +"(hash-ref objs_0 v_138))))" "(begin" "(ser-push!_15 'tag '#:ref)" "(ser-push!_15 'exact n_21))))" "(let-values(((c1_23)" -"(hash-ref mutables_0 v_139 #f)))" +"(hash-ref mutables_0 v_138 #f)))" "(if c1_23" "((lambda(n_22)" "(begin" @@ -18430,49 +18469,49 @@ static const char *startup_source = "(ser-push!_15 'exact n_22)))" " c1_23)" "(let-values()" -"(ser-push-encoded!_0 v_139)))))))" -"((kind_4 v_140)" +"(ser-push-encoded!_0 v_138)))))))" +"((kind_4 v_139)" "(let-values(((tmp_18) kind_4))" "(if(equal? tmp_18 'exact)" "(let-values()" "(begin" -"(set! stream_0(cons v_140 stream_0))" +"(set! stream_0(cons v_139 stream_0))" "(set! stream-size_0(add1 stream-size_0))))" "(if(equal? tmp_18 'tag)" -"(let-values()(ser-push!_15 'exact v_140))" +"(let-values()(ser-push!_15 'exact v_139))" "(if(equal? tmp_18 'reference)" "(let-values()" -"(if(hash-ref shares_0 v_140 #f)" +"(if(hash-ref shares_0 v_139 #f)" "(let-values()" "(let-values(((n_23)" "(hash-ref" " share-step-positions_0" "(hash-ref" " objs_0" -" v_140))))" +" v_139))))" "(ser-push!_15 'exact n_23)))" "(let-values(((c2_1)" "(hash-ref" " mutables_0" -" v_140" +" v_139" " #f)))" "(if c2_1" "((lambda(n_24)" "(ser-push!_15 'exact n_24))" " c2_1)" "(let-values()" -"(ser-push!_15 v_140))))))" -"(let-values()(ser-push!_15 v_140)))))))))" +"(ser-push!_15 v_139))))))" +"(let-values()(ser-push!_15 v_139)))))))))" "((ser-push-encoded!_0)" -"(lambda(v_141)" +"(lambda(v_140)" "(begin" " 'ser-push-encoded!" -"(if(keyword? v_141)" +"(if(keyword? v_140)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:quote)" -"(ser-push!_15 'exact v_141)))" -"(if(1/module-path-index? v_141)" +"(ser-push!_15 'exact v_140)))" +"(if(1/module-path-index? v_140)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:mpi)" @@ -18480,16 +18519,16 @@ static const char *startup_source = " 'exact" "(add-module-path-index!/pos" " mpis_6" -" v_141))))" -"(if(serialize? v_141)" +" v_140))))" +"(if(serialize? v_140)" "(let-values()" -"((serialize-ref v_141)" -" v_141" +"((serialize-ref v_140)" +" v_140" " ser-push!_15" " state_24))" -"(if(if(list? v_141)" -"(if(pair? v_141)" -"(pair?(cdr v_141))" +"(if(if(list? v_140)" +"(if(pair? v_140)" +"(pair?(cdr v_140))" " #f)" " #f)" "(let-values()" @@ -18505,31 +18544,31 @@ static const char *startup_source = "(begin" "(ser-push!_15" " 'exact" -"(length v_141))" +"(length v_140))" "(values))))" "(let-values(((all-quoted?_0)" -"(let-values(((lst_113)" -" v_141))" +"(let-values(((lst_112)" +" v_140))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_113)))" -"((letrec-values(((for-loop_126)" +" lst_112)))" +"((letrec-values(((for-loop_127)" "(lambda(all-quoted?_1" -" lst_114)" +" lst_113)" "(begin" " 'for-loop" "(if(pair?" -" lst_114)" -"(let-values(((i_109)" +" lst_113)" +"(let-values(((i_110)" "(unsafe-car" -" lst_114))" +" lst_113))" "((rest_56)" "(unsafe-cdr" -" lst_114)))" +" lst_113)))" "(let-values(((all-quoted?_2)" "(let-values(((all-quoted?_3)" " all-quoted?_1))" @@ -18539,7 +18578,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_15" -" i_109)" +" i_110)" "(if all-quoted?_3" "(quoted?_0" " i-pos_0)" @@ -18548,14 +18587,14 @@ static const char *startup_source = " all-quoted?_4)))))" "(if(not" " #f)" -"(for-loop_126" +"(for-loop_127" " all-quoted?_2" " rest_56)" " all-quoted?_2)))" " all-quoted?_1)))))" -" for-loop_126)" +" for-loop_127)" " #t" -" lst_113)))))" +" lst_112)))))" "(if all-quoted?_0" "(let-values()" "(begin" @@ -18563,9 +18602,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_141)))" +" v_140)))" "(void)))))))" -"(if(pair? v_141)" +"(if(pair? v_140)" "(let-values()" "(let-values(((start-pos_1)" "(next-push-position_0)))" @@ -18580,12 +18619,12 @@ static const char *startup_source = "(let-values((()" "(begin" "(ser-push!_15" -"(car v_141))" +"(car v_140))" "(values))))" "(let-values(((d-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_15(cdr v_141))" +"(ser-push!_15(cdr v_140))" "(if(if(quoted?_0 a-pos_0)" "(quoted?_0 d-pos_0)" " #f)" @@ -18596,9 +18635,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_141)))" +" v_140)))" "(void)))))))))" -"(if(box? v_141)" +"(if(box? v_140)" "(let-values()" "(let-values(((start-pos_2)" "(next-push-position_0)))" @@ -18611,7 +18650,7 @@ static const char *startup_source = "(let-values(((v-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_15(unbox v_141))" +"(ser-push!_15(unbox v_140))" "(if(quoted?_0 v-pos_0)" "(let-values()" "(begin" @@ -18620,9 +18659,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_141)))" +" v_140)))" "(void)))))))" -"(if(vector? v_141)" +"(if(vector? v_140)" "(let-values()" "(let-values(((start-pos_3)" "(next-push-position_0)))" @@ -18637,13 +18676,13 @@ static const char *startup_source = "(ser-push!_15" " 'exact" "(vector-length" -" v_141))" +" v_140))" "(values))))" "(let-values(((all-quoted?_5)" "(let-values(((vec_39" " len_17)" "(let-values(((vec_40)" -" v_141))" +" v_140))" "(begin" "(check-vector" " vec_40)" @@ -18653,7 +18692,7 @@ static const char *startup_source = " vec_40))))))" "(begin" " #f" -"((letrec-values(((for-loop_127)" +"((letrec-values(((for-loop_128)" "(lambda(all-quoted?_6" " pos_28)" "(begin" @@ -18661,7 +18700,7 @@ static const char *startup_source = "(if(unsafe-fx<" " pos_28" " len_17)" -"(let-values(((i_110)" +"(let-values(((i_111)" "(unsafe-vector-ref" " vec_39" " pos_28)))" @@ -18674,7 +18713,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_15" -" i_110)" +" i_111)" "(if all-quoted?_8" "(quoted?_0" " i-pos_1)" @@ -18683,14 +18722,14 @@ static const char *startup_source = " all-quoted?_9)))))" "(if(not" " #f)" -"(for-loop_127" +"(for-loop_128" " all-quoted?_7" "(unsafe-fx+" " 1" " pos_28))" " all-quoted?_7)))" " all-quoted?_6)))))" -" for-loop_127)" +" for-loop_128)" " #t" " 0)))))" "(if all-quoted?_5" @@ -18701,15 +18740,15 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_141)))" +" v_140)))" "(void)))))))" -"(if(hash? v_141)" +"(if(hash? v_140)" "(let-values()" "(let-values(((start-pos_4)" "(next-push-position_0)))" "(let-values(((as-set?_0)" "(let-values(((ht_89)" -" v_141))" +" v_140))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -18717,23 +18756,23 @@ static const char *startup_source = "(let-values()" "(check-in-hash-values" " ht_89)))" -"((letrec-values(((for-loop_41)" +"((letrec-values(((for-loop_42)" "(lambda(result_67" -" i_111)" +" i_112)" "(begin" " 'for-loop" -"(if i_111" -"(let-values(((val_39)" +"(if i_112" +"(let-values(((val_40)" "(hash-iterate-value" " ht_89" -" i_111)))" +" i_112)))" "(let-values(((result_68)" "(let-values()" "(let-values(((result_69)" "(let-values()" "(let-values()" "(eq?" -" val_39" +" val_40" " #t)))))" "(values" " result_69)))))" @@ -18741,18 +18780,18 @@ static const char *startup_source = "((lambda x_46" "(not" " result_68))" -" val_39))" +" val_40))" "(not" " #f)" " #f)" -"(for-loop_41" +"(for-loop_42" " result_68" "(hash-iterate-next" " ht_89" -" i_111))" +" i_112))" " result_68)))" " result_67)))))" -" for-loop_41)" +" for-loop_42)" " #t" "(hash-iterate-first" " ht_89))))))" @@ -18762,21 +18801,21 @@ static const char *startup_source = " 'tag" "(if as-set?_0" "(if(hash-eq?" -" v_141)" +" v_140)" "(let-values()" " '#:seteq)" "(if(hash-eqv?" -" v_141)" +" v_140)" "(let-values()" " '#:seteqv)" "(let-values()" " '#:set)))" "(if(hash-eq?" -" v_141)" +" v_140)" "(let-values()" " '#:hasheq)" "(if(hash-eqv?" -" v_141)" +" v_140)" "(let-values()" " '#:hasheqv)" "(let-values()" @@ -18787,11 +18826,11 @@ static const char *startup_source = "(ser-push!_15" " 'exact" "(hash-count" -" v_141))" +" v_140))" "(values))))" "(let-values(((ks_0)" "(sorted-hash-keys" -" v_141)))" +" v_140)))" "(let-values(((all-quoted?_10)" "(let-values(((lst_48)" " ks_0))" @@ -18802,19 +18841,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_48)))" -"((letrec-values(((for-loop_128)" +"((letrec-values(((for-loop_129)" "(lambda(all-quoted?_11" -" lst_115)" +" lst_114)" "(begin" " 'for-loop" "(if(pair?" -" lst_115)" -"(let-values(((k_22)" +" lst_114)" +"(let-values(((k_23)" "(unsafe-car" -" lst_115))" +" lst_114))" "((rest_57)" "(unsafe-cdr" -" lst_115)))" +" lst_114)))" "(let-values(((all-quoted?_12)" "(let-values(((all-quoted?_13)" " all-quoted?_11))" @@ -18825,7 +18864,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(ser-push!_15" -" k_22)" +" k_23)" "(values))))" "(let-values(((v-pos_1)" "(next-push-position_0)))" @@ -18835,15 +18874,15 @@ static const char *startup_source = "(let-values()" "(ser-push!_15" "(hash-ref" -" v_141" -" k_22))))" +" v_140" +" k_23))))" "(if all-quoted?_13" "(if(quoted?_0" " k-pos_0)" -"(let-values(((or-part_184)" +"(let-values(((or-part_186)" " as-set?_0))" -"(if or-part_184" -" or-part_184" +"(if or-part_186" +" or-part_186" "(quoted?_0" " v-pos_1)))" " #f)" @@ -18852,12 +18891,12 @@ static const char *startup_source = " all-quoted?_14)))))" "(if(not" " #f)" -"(for-loop_128" +"(for-loop_129" " all-quoted?_12" " rest_57)" " all-quoted?_12)))" " all-quoted?_11)))))" -" for-loop_128)" +" for-loop_129)" " #t" " lst_48)))))" "(if all-quoted?_10" @@ -18868,16 +18907,16 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_141)))" +" v_140)))" "(void)))))))))" "(let-values(((c3_0)" "(prefab-struct-key" -" v_141)))" +" v_140)))" "(if c3_0" -"((lambda(k_23)" +"((lambda(k_24)" "(let-values(((vec_41)" "(struct->vector" -" v_141)))" +" v_140)))" "(let-values(((start-pos_5)" "(next-push-position_0)))" "(let-values((()" @@ -18890,7 +18929,7 @@ static const char *startup_source = "(begin" "(ser-push!_15" " 'exact" -" k_23)" +" k_24)" "(values))))" "(let-values((()" "(begin" @@ -18920,7 +18959,7 @@ static const char *startup_source = " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_129)" +"((letrec-values(((for-loop_130)" "(lambda(all-quoted?_16" " idx_3)" "(begin" @@ -18928,7 +18967,7 @@ static const char *startup_source = "(if(unsafe-fx<" " idx_3" " stop*_4)" -"(let-values(((i_112)" +"(let-values(((i_113)" "(unsafe-vector-ref" " v*_4" " idx_3)))" @@ -18941,7 +18980,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_15" -" i_112)" +" i_113)" "(if all-quoted?_18" "(quoted?_0" " i-pos_2)" @@ -18950,14 +18989,14 @@ static const char *startup_source = " all-quoted?_19)))))" "(if(not" " #f)" -"(for-loop_129" +"(for-loop_130" " all-quoted?_17" "(unsafe-fx+" " idx_3" " 1))" " all-quoted?_17)))" " all-quoted?_16)))))" -" for-loop_129)" +" for-loop_130)" " #t" " start*_3)))))" "(if all-quoted?_15" @@ -18968,66 +19007,66 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_141)))" +" v_140)))" "(void)))))))))" " c3_0)" -"(if(srcloc? v_141)" +"(if(srcloc? v_140)" "(let-values()" "(begin" "(ser-push!_15" " 'tag" " '#:srcloc)" "(ser-push!_15" -"(srcloc-source v_141))" +"(srcloc-source v_140))" "(ser-push!_15" -"(srcloc-line v_141))" +"(srcloc-line v_140))" "(ser-push!_15" -"(srcloc-column v_141))" +"(srcloc-column v_140))" "(ser-push!_15" -"(srcloc-position v_141))" +"(srcloc-position v_140))" "(ser-push!_15" -"(srcloc-span v_141))))" +"(srcloc-span v_140))))" "(let-values()" "(begin" "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_141)))))))))))))))))" +" v_140)))))))))))))))))" "((ser-push-optional-quote!_0)" "(lambda()(begin 'ser-push-optional-quote!(void)))))" "(let-values(((ser-shell!_0)" -"(lambda(v_142)" +"(lambda(v_141)" "(begin" " 'ser-shell!" -"(if(serialize-fill!? v_142)" +"(if(serialize-fill!? v_141)" "(let-values()" -"((serialize-ref v_142)" -" v_142" +"((serialize-ref v_141)" +" v_141" " ser-push!_15" " state_24))" -"(if(box? v_142)" +"(if(box? v_141)" "(let-values()(ser-push!_15 'tag '#:box))" -"(if(vector? v_142)" +"(if(vector? v_141)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:vector)" "(ser-push!_15" " 'exact" -"(vector-length v_142))))" -"(if(hash? v_142)" +"(vector-length v_141))))" +"(if(hash? v_141)" "(let-values()" "(ser-push!_15" " 'tag" -"(if(hash-eq? v_142)" +"(if(hash-eq? v_141)" "(let-values() '#:hasheq)" -"(if(hash-eqv? v_142)" +"(if(hash-eqv? v_141)" "(let-values() '#:hasheqv)" "(let-values() '#:hash)))))" "(let-values()" "(error" " 'ser-shell" " \"unknown mutable: ~e\"" -" v_142))))))))))" +" v_141))))))))))" "(let-values(((ser-shell-fill!_0)" "(lambda(v_79)" "(begin" @@ -19061,14 +19100,14 @@ static const char *startup_source = " vec_43))))))" "(begin" " #f" -"((letrec-values(((for-loop_130)" +"((letrec-values(((for-loop_131)" "(lambda(pos_29)" "(begin" " 'for-loop" "(if(unsafe-fx<" " pos_29" " len_18)" -"(let-values(((v_143)" +"(let-values(((v_142)" "(unsafe-vector-ref" " vec_42" " pos_29)))" @@ -19079,18 +19118,18 @@ static const char *startup_source = "(begin" "(let-values()" "(ser-push!_15" -" v_143))" +" v_142))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_130" +"(for-loop_131" "(unsafe-fx+" " 1" " pos_29))" "(values))))" "(values))))))" -" for-loop_130)" +" for-loop_131)" " 0)))" "(void)))" "(if(hash? v_79)" @@ -19111,25 +19150,25 @@ static const char *startup_source = "(sorted-hash-keys" " v_79)))" "(begin" -"(let-values(((lst_116) ks_1))" +"(let-values(((lst_115) ks_1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_116)))" -"((letrec-values(((for-loop_131)" -"(lambda(lst_117)" +"(check-list lst_115)))" +"((letrec-values(((for-loop_132)" +"(lambda(lst_116)" "(begin" " 'for-loop" "(if(pair?" -" lst_117)" -"(let-values(((k_24)" +" lst_116)" +"(let-values(((k_25)" "(unsafe-car" -" lst_117))" +" lst_116))" "((rest_58)" "(unsafe-cdr" -" lst_117)))" +" lst_116)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -19138,21 +19177,21 @@ static const char *startup_source = "(let-values()" "(begin" "(ser-push!_15" -" k_24)" +" k_25)" "(ser-push!_15" "(hash-ref" " v_79" -" k_24))))" +" k_25))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_131" +"(for-loop_132" " rest_58)" "(values))))" "(values))))))" -" for-loop_131)" -" lst_116)))" +" for-loop_132)" +" lst_115)))" "(void))))))" "(let-values()" "(error" @@ -19166,13 +19205,13 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_90)))" -"((letrec-values(((for-loop_132)" +"((letrec-values(((for-loop_133)" "(lambda(table_125 i_7)" "(begin" " 'for-loop" "(if i_7" -"(let-values(((k_25" -" v_144)" +"(let-values(((k_26" +" v_143)" "(hash-iterate-key+value" " ht_90" " i_7)))" @@ -19181,27 +19220,27 @@ static const char *startup_source = " table_125))" "(let-values(((table_128)" "(let-values()" -"(let-values(((key_47" -" val_40)" +"(let-values(((key_49" +" val_41)" "(let-values()" "(values" -" v_144" -" k_25))))" +" v_143" +" k_26))))" "(hash-set" " table_127" -" key_47" -" val_40)))))" +" key_49" +" val_41)))))" "(values" " table_128)))))" "(if(not #f)" -"(for-loop_132" +"(for-loop_133" " table_126" "(hash-iterate-next" " ht_90" " i_7))" " table_126)))" " table_125)))))" -" for-loop_132)" +" for-loop_133)" " '#hasheqv()" "(hash-iterate-first ht_90))))))" "(let-values(((mutable-shell-bindings_0)" @@ -19217,14 +19256,14 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_21 end_13 inc_7)))" -"((letrec-values(((for-loop_133)" +"((letrec-values(((for-loop_134)" "(lambda(pos_30)" "(begin" " 'for-loop" "(if(<" " pos_30" " end_13)" -"(let-values(((i_113)" +"(let-values(((i_114)" " pos_30))" "(let-values((()" "(let-values()" @@ -19235,17 +19274,17 @@ static const char *startup_source = "(ser-shell!_0" "(hash-ref" " rev-mutables_0" -" i_113)))" +" i_114)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_133" +"(for-loop_134" "(+" " pos_30" " inc_7))" "(values))))" "(values))))))" -" for-loop_133)" +" for-loop_134)" " start_21)))" "(void))" "(reap-stream!_0))))" @@ -19257,22 +19296,22 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash-keys ht_91)))" -"((letrec-values(((for-loop_134)" -"(lambda(table_129 i_114)" +"((letrec-values(((for-loop_135)" +"(lambda(table_129 i_115)" "(begin" " 'for-loop" -"(if i_114" +"(if i_115" "(let-values(((obj_1)" "(hash-iterate-key" " ht_91" -" i_114)))" +" i_115)))" "(let-values(((table_130)" "(let-values(((table_131)" " table_129))" "(let-values(((table_132)" "(let-values()" -"(let-values(((key_48" -" val_41)" +"(let-values(((key_50" +" val_42)" "(let-values()" "(values" "(hash-ref" @@ -19283,19 +19322,19 @@ static const char *startup_source = " obj_1))))" "(hash-set" " table_131" -" key_48" -" val_41)))))" +" key_50" +" val_42)))))" "(values" " table_132)))))" "(if(not #f)" -"(for-loop_134" +"(for-loop_135" " table_130" "(hash-iterate-next" " ht_91" -" i_114))" +" i_115))" " table_130)))" " table_129)))))" -" for-loop_134)" +" for-loop_135)" " '#hasheqv()" "(hash-iterate-first ht_91))))))" "(let-values(((shared-bindings_0)" @@ -19316,14 +19355,14 @@ static const char *startup_source = " start_22" " end_14" " inc_8)))" -"((letrec-values(((for-loop_135)" +"((letrec-values(((for-loop_136)" "(lambda(pos_31)" "(begin" " 'for-loop" "(if(<" " pos_31" " end_14)" -"(let-values(((i_115)" +"(let-values(((i_116)" " pos_31))" "(let-values((()" "(let-values()" @@ -19334,18 +19373,18 @@ static const char *startup_source = "(ser-push-encoded!_0" "(hash-ref" " rev-shares_0" -" i_115)))" +" i_116)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_135" +"(for-loop_136" "(+" " pos_31" " inc_8))" "(values))))" "(values))))))" -" for-loop_135)" +" for-loop_136)" " start_22)))" "(void))" "(reap-stream!_0))))" @@ -19365,14 +19404,14 @@ static const char *startup_source = " start_23" " end_15" " inc_9)))" -"((letrec-values(((for-loop_136)" +"((letrec-values(((for-loop_137)" "(lambda(pos_32)" "(begin" " 'for-loop" "(if(<" " pos_32" " end_15)" -"(let-values(((i_116)" +"(let-values(((i_117)" " pos_32))" "(let-values((()" "(let-values()" @@ -19383,18 +19422,18 @@ static const char *startup_source = "(ser-shell-fill!_0" "(hash-ref" " rev-mutables_0" -" i_116)))" +" i_117)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_136" +"(for-loop_137" "(+" " pos_32" " inc_9))" "(values))))" "(values))))))" -" for-loop_136)" +" for-loop_137)" " start_23)))" "(void))" "(reap-stream!_0))))" @@ -19455,12 +19494,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_137)" +"((letrec-values(((for-loop_138)" "(lambda(pos_33 pos_34)" "(begin" " 'for-loop" "(if(< pos_34 end_16)" -"(let-values(((i_117) pos_34))" +"(let-values(((i_118) pos_34))" "(let-values(((pos_35)" "(let-values(((pos_36) pos_33))" "(let-values(((pos_37)" @@ -19476,13 +19515,13 @@ static const char *startup_source = "(begin" "(vector-set!" " shared_0" -" i_117" +" i_118" " d_22)" " next-pos_0)))))" "(values pos_37)))))" -"(if(not #f)(for-loop_137 pos_35(+ pos_34 inc_10)) pos_35)))" +"(if(not #f)(for-loop_138 pos_35(+ pos_34 inc_10)) pos_35)))" " pos_33)))))" -" for-loop_137)" +" for-loop_138)" " 0" " start_24)))" "(values))))" @@ -19495,12 +19534,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_138)" +"((letrec-values(((for-loop_139)" "(lambda(pos_38 pos_39)" "(begin" " 'for-loop" "(if(< pos_39 end_17)" -"(let-values(((i_118) pos_39))" +"(let-values(((i_119) pos_39))" "(let-values(((pos_40)" "(let-values(((pos_41) pos_38))" "(let-values(((pos_42)" @@ -19516,13 +19555,13 @@ static const char *startup_source = "(begin" "(vector-set!" " shared_0" -" i_118" +" i_119" " d_23)" " next-pos_1)))))" "(values pos_42)))))" -"(if(not #f)(for-loop_138 pos_40(+ pos_39 inc_11)) pos_40)))" +"(if(not #f)(for-loop_139 pos_40(+ pos_39 inc_11)) pos_40)))" " pos_38)))))" -" for-loop_138)" +" for-loop_139)" " 0" " start_25)))" "(values))))" @@ -19541,18 +19580,18 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_26 end_18 inc_12)))" " #f" -"((letrec-values(((for-loop_139)" +"((letrec-values(((for-loop_140)" "(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_145)(unsafe-vector-ref vec_44 pos_45)))" +"(let-values(((v_144)(unsafe-vector-ref vec_44 pos_45)))" "(let-values(((pos_46)" "(let-values(((pos_47) pos_43))" "(let-values(((pos_48)" "(let-values()" "(decode-fill!" -" v_145" +" v_144" " mutable-fill-vec_0" " pos_47" " mpis_7" @@ -19561,13 +19600,13 @@ static const char *startup_source = " shared_0))))" "(values pos_48)))))" "(if(not #f)" -"(for-loop_139" +"(for-loop_140" " pos_46" "(+ pos_44 inc_12)" "(unsafe-fx+ 1 pos_45))" " pos_46)))" " pos_43)))))" -" for-loop_139)" +" for-loop_140)" " 0" " start_26" " 0)))" @@ -19656,9 +19695,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(let-values(((context_2 next-pos_3)" -"(let-values(((i_119)(vector*-ref vec_47 next-pos_2)))" -"(if(exact-integer? i_119)" -"(values(vector*-ref shared_2 i_119)(add1 next-pos_2))" +"(let-values(((i_120)(vector*-ref vec_47 next-pos_2)))" +"(if(exact-integer? i_120)" +"(values(vector*-ref shared_2 i_120)(add1 next-pos_2))" "(decode" " vec_47" " next-pos_2" @@ -19667,9 +19706,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_3 next-pos_4)" -"(let-values(((i_120)(vector*-ref vec_47 next-pos_3)))" -"(if(exact-integer? i_120)" -"(values(vector*-ref shared_2 i_120)(add1 next-pos_3))" +"(let-values(((i_121)(vector*-ref vec_47 next-pos_3)))" +"(if(exact-integer? i_121)" +"(values(vector*-ref shared_2 i_121)(add1 next-pos_3))" "(decode" " vec_47" " next-pos_3" @@ -19690,9 +19729,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(let-values(((context_3 next-pos_6)" -"(let-values(((i_121)(vector*-ref vec_47 next-pos_5)))" -"(if(exact-integer? i_121)" -"(values(vector*-ref shared_2 i_121)(add1 next-pos_5))" +"(let-values(((i_122)(vector*-ref vec_47 next-pos_5)))" +"(if(exact-integer? i_122)" +"(values(vector*-ref shared_2 i_122)(add1 next-pos_5))" "(decode" " vec_47" " next-pos_5" @@ -19701,9 +19740,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_4 next-pos_7)" -"(let-values(((i_122)(vector*-ref vec_47 next-pos_6)))" -"(if(exact-integer? i_122)" -"(values(vector*-ref shared_2 i_122)(add1 next-pos_6))" +"(let-values(((i_123)(vector*-ref vec_47 next-pos_6)))" +"(if(exact-integer? i_123)" +"(values(vector*-ref shared_2 i_123)(add1 next-pos_6))" "(decode" " vec_47" " next-pos_6" @@ -19720,9 +19759,9 @@ static const char *startup_source = "(let-values(((content_10 next-pos_8)" "(decode vec_47(add1 pos_50) mpis_9 inspector_7 bulk-binding-registry_7 shared_2)))" "(let-values(((context_4 next-pos_9)" -"(let-values(((i_123)(vector*-ref vec_47 next-pos_8)))" -"(if(exact-integer? i_123)" -"(values(vector*-ref shared_2 i_123)(add1 next-pos_8))" +"(let-values(((i_124)(vector*-ref vec_47 next-pos_8)))" +"(if(exact-integer? i_124)" +"(values(vector*-ref shared_2 i_124)(add1 next-pos_8))" "(decode" " vec_47" " next-pos_8" @@ -19731,9 +19770,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_5 next-pos_10)" -"(let-values(((i_124)(vector*-ref vec_47 next-pos_9)))" -"(if(exact-integer? i_124)" -"(values(vector*-ref shared_2 i_124)(add1 next-pos_9))" +"(let-values(((i_125)(vector*-ref vec_47 next-pos_9)))" +"(if(exact-integer? i_125)" +"(values(vector*-ref shared_2 i_125)(add1 next-pos_9))" "(decode" " vec_47" " next-pos_9" @@ -19808,7 +19847,7 @@ static const char *startup_source = "(let-values()(values(vector*-ref mpis_9(vector*-ref vec_47(add1 pos_50)))(+ pos_50 2)))" "(if(unsafe-fx< index_0 11)" "(let-values()" -"(let-values(((v_146 next-pos_18)" +"(let-values(((v_145 next-pos_18)" "(decode" " vec_47" "(add1 pos_50)" @@ -19816,7 +19855,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(values(box-immutable v_146) next-pos_18)))" +"(values(box-immutable v_145) next-pos_18)))" "(if(unsafe-fx< index_0 12)" "(let-values()" "(let-values(((a_38 next-pos_19)" @@ -19838,26 +19877,26 @@ static const char *startup_source = "(values(cons a_38 d_24) next-pos_20))))" "(let-values()" "(let-values(((len_20)(vector*-ref vec_47(add1 pos_50))))" -"(let-values(((r_28)(make-vector len_20)))" +"(let-values(((r_29)(make-vector len_20)))" "(let-values(((next-pos_21)" "(let-values(((start_27) 0)((end_19) len_20)((inc_13) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_27 end_19 inc_13)))" -"((letrec-values(((for-loop_140)" +"((letrec-values(((for-loop_141)" "(lambda(pos_51 pos_52)" "(begin" " 'for-loop" "(if(< pos_52 end_19)" -"(let-values(((i_125) pos_52))" +"(let-values(((i_126) pos_52))" "(let-values(((pos_53)" "(let-values(((pos_54) pos_51))" "(let-values(((pos_55)" "(let-values()" -"(let-values(((v_147" +"(let-values(((v_146" " next-pos_22)" -"(let-values(((v_148" +"(let-values(((v_147" " next-pos_23)" "(decode" " vec_47" @@ -19867,26 +19906,26 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -" v_148" +" v_147" " next-pos_23))))" "(begin" "(vector-set!" -" r_28" -" i_125" -" v_147)" +" r_29" +" i_126" +" v_146)" " next-pos_22)))))" "(values pos_55)))))" "(if(not #f)" -"(for-loop_140 pos_53(+ pos_52 inc_13))" +"(for-loop_141 pos_53(+ pos_52 inc_13))" " pos_53)))" " pos_51)))))" -" for-loop_140)" +" for-loop_141)" "(+ pos_50 2)" " start_27)))))" "(values" "(if(eq?(vector*-ref vec_47 pos_50) '#:list)" -"(vector->list r_28)" -"(vector->immutable-vector r_28))" +"(vector->list r_29)" +"(vector->immutable-vector r_29))" " next-pos_21))))))))))" "(if(unsafe-fx< index_0 20)" "(if(unsafe-fx< index_0 16)" @@ -19907,7 +19946,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_28 end_20 inc_14)))" -"((letrec-values(((for-loop_141)" +"((letrec-values(((for-loop_142)" "(lambda(ht_94 pos_56 pos_57)" "(begin" " 'for-loop" @@ -19917,7 +19956,7 @@ static const char *startup_source = "(let-values(((ht_96) ht_94)((pos_59) pos_56))" "(let-values(((ht_97 pos_60)" "(let-values()" -"(let-values(((k_26 next-pos_24)" +"(let-values(((k_27 next-pos_24)" "(decode" " vec_47" " pos_59" @@ -19925,7 +19964,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((v_149" +"(let-values(((v_148" " next-pos_25)" "(decode" " vec_47" @@ -19935,20 +19974,20 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -"(hash-set ht_96 k_26 v_149)" +"(hash-set ht_96 k_27 v_148)" " next-pos_25))))))" "(values ht_97 pos_60)))))" "(if(not #f)" -"(for-loop_141 ht_95 pos_58(+ pos_57 inc_14))" +"(for-loop_142 ht_95 pos_58(+ pos_57 inc_14))" "(values ht_95 pos_58))))" "(values ht_94 pos_56))))))" -" for-loop_141)" +" for-loop_142)" " ht_93" "(+ pos_50 2)" " start_28))))))" "(if(unsafe-fx< index_0 15)" "(let-values()" -"(let-values(((s_186)" +"(let-values(((s_190)" "(let-values(((tmp_21)(vector*-ref vec_47 pos_50)))" "(if(equal? tmp_21 '#:set)" "(let-values()(set))" @@ -19963,17 +20002,17 @@ 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_142)" -"(lambda(s_187 pos_61 pos_62)" +"((letrec-values(((for-loop_143)" +"(lambda(s_191 pos_61 pos_62)" "(begin" " 'for-loop" "(if(< pos_62 end_21)" "(let-values()" -"(let-values(((s_188 pos_63)" -"(let-values(((s_137) s_187)((pos_64) pos_61))" -"(let-values(((s_189 pos_65)" +"(let-values(((s_192 pos_63)" +"(let-values(((s_143) s_191)((pos_64) pos_61))" +"(let-values(((s_193 pos_65)" "(let-values()" -"(let-values(((k_27" +"(let-values(((k_28" " next-pos_26)" "(decode" " vec_47" @@ -19983,20 +20022,20 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -"(set-add s_137 k_27)" +"(set-add s_143 k_28)" " next-pos_26)))))" -"(values s_189 pos_65)))))" +"(values s_193 pos_65)))))" "(if(not #f)" -"(for-loop_142 s_188 pos_63(+ pos_62 inc_15))" -"(values s_188 pos_63))))" -"(values s_187 pos_61))))))" -" for-loop_142)" -" s_186" +"(for-loop_143 s_192 pos_63(+ pos_62 inc_15))" +"(values s_192 pos_63))))" +"(values s_191 pos_61))))))" +" for-loop_143)" +" s_190" "(+ pos_50 2)" " start_29))))))" "(let-values()" -"(let-values(((key_49 next-pos_27)" -"(let-values(((k_28 next-pos_28)" +"(let-values(((key_51 next-pos_27)" +"(let-values(((k_29 next-pos_28)" "(decode" " vec_47" "(add1 pos_50)" @@ -20004,26 +20043,26 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(values k_28 next-pos_28))))" +"(values k_29 next-pos_28))))" "(let-values(((len_23)(vector*-ref vec_47 next-pos_27)))" -"(let-values(((r_29 done-pos_1)" +"(let-values(((r_30 done-pos_1)" "(let-values(((start_30) 0)((end_22) len_23)((inc_16) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_30 end_22 inc_16)))" -"((letrec-values(((for-loop_143)" -"(lambda(r_30 pos_66 pos_67)" +"((letrec-values(((for-loop_144)" +"(lambda(r_31 pos_66 pos_67)" "(begin" " 'for-loop" "(if(< pos_67 end_22)" "(let-values()" -"(let-values(((r_31 pos_68)" -"(let-values(((r_32) r_30)" +"(let-values(((r_32 pos_68)" +"(let-values(((r_33) r_31)" "((pos_69) pos_66))" -"(let-values(((r_33 pos_70)" +"(let-values(((r_34 pos_70)" "(let-values()" -"(let-values(((v_150" +"(let-values(((v_149" " next-pos_29)" "(decode" " vec_47" @@ -20034,19 +20073,19 @@ static const char *startup_source = " shared_2)))" "(values" "(cons" -" v_150" -" r_32)" +" v_149" +" r_33)" " next-pos_29)))))" -"(values r_33 pos_70)))))" +"(values r_34 pos_70)))))" "(if(not #f)" -"(for-loop_143 r_31 pos_68(+ pos_67 inc_16))" -"(values r_31 pos_68))))" -"(values r_30 pos_66))))))" -" for-loop_143)" +"(for-loop_144 r_32 pos_68(+ pos_67 inc_16))" +"(values r_32 pos_68))))" +"(values r_31 pos_66))))))" +" for-loop_144)" " null" "(add1 next-pos_27)" " start_30)))))" -"(values(apply make-prefab-struct key_49(reverse$1 r_29)) done-pos_1)))))))" +"(values(apply make-prefab-struct key_51(reverse$1 r_30)) done-pos_1)))))))" "(if(unsafe-fx< index_0 17)" "(let-values()(values(deserialize-scope)(add1 pos_50)))" "(if(unsafe-fx< index_0 18)" @@ -20276,7 +20315,7 @@ static const char *startup_source = " next-pos_54)))))))" "(if(unsafe-fx< index_0 26)" "(let-values()" -"(let-values(((key_50 next-pos_55)" +"(let-values(((key_52 next-pos_55)" "(decode" " vec_47" "(add1 pos_50)" @@ -20292,7 +20331,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(values(deserialize-full-local-binding key_50 free=id_9) next-pos_56))))" +"(values(deserialize-full-local-binding key_52 free=id_9) next-pos_56))))" "(if(unsafe-fx< index_0 27)" "(let-values()" "(let-values(((prefix_3 next-pos_57)" @@ -20311,7 +20350,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((mpi_27 next-pos_59)" +"(let-values(((mpi_28 next-pos_59)" "(decode" " vec_47" " next-pos_58" @@ -20347,7 +20386,7 @@ static const char *startup_source = "(deserialize-bulk-binding" " prefix_3" " excepts_3" -" mpi_27" +" mpi_28" " provide-phase-level_2" " phase-shift_5" " bulk-binding-registry_8)" @@ -20382,7 +20421,7 @@ static const char *startup_source = " next-pos_65)))))))))))))))))" "(define-values" "(decode-fill!)" -"(lambda(v_151 vec_48 pos_71 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)" +"(lambda(v_150 vec_48 pos_71 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)" "(begin" "(let-values(((tmp_22)(vector*-ref vec_48 pos_71)))" "(if(equal? tmp_22 #f)" @@ -20391,7 +20430,7 @@ static const char *startup_source = "(let-values()" "(let-values(((c_21 next-pos_66)" "(decode vec_48(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(set-box! v_151 c_21) next-pos_66)))" +"(begin(set-box! v_150 c_21) next-pos_66)))" "(if(equal? tmp_22 '#:set-vector!)" "(let-values()" "(let-values(((len_24)(vector*-ref vec_48(add1 pos_71))))" @@ -20400,12 +20439,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_144)" +"((letrec-values(((for-loop_145)" "(lambda(pos_72 pos_73)" "(begin" " 'for-loop" "(if(< pos_73 end_23)" -"(let-values(((i_126) pos_73))" +"(let-values(((i_127) pos_73))" "(let-values(((pos_74)" "(let-values(((pos_75) pos_72))" "(let-values(((pos_76)" @@ -20419,12 +20458,12 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(vector-set! v_151 i_126 c_22)" +"(vector-set! v_150 i_127 c_22)" " next-pos_67)))))" "(values pos_76)))))" -"(if(not #f)(for-loop_144 pos_74(+ pos_73 inc_17)) pos_74)))" +"(if(not #f)(for-loop_145 pos_74(+ pos_73 inc_17)) pos_74)))" " pos_72)))))" -" for-loop_144)" +" for-loop_145)" "(+ pos_71 2)" " start_31)))))" "(if(equal? tmp_22 '#:set-hash!)" @@ -20435,7 +20474,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_145)" +"((letrec-values(((for-loop_146)" "(lambda(pos_77 pos_78)" "(begin" " 'for-loop" @@ -20445,7 +20484,7 @@ static const char *startup_source = "(let-values(((pos_80) pos_77))" "(let-values(((pos_81)" "(let-values()" -"(let-values(((key_51 next-pos_68)" +"(let-values(((key_53 next-pos_68)" "(decode" " vec_48" " pos_80" @@ -20453,7 +20492,7 @@ static const char *startup_source = " inspector_8" " bulk-binding-registry_9" " shared_3)))" -"(let-values(((val_42 done-pos_2)" +"(let-values(((val_43 done-pos_2)" "(decode" " vec_48" " next-pos_68" @@ -20462,30 +20501,30 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(hash-set! v_151 key_51 val_42)" +"(hash-set! v_150 key_53 val_43)" " done-pos_2))))))" "(values pos_81)))))" -"(if(not #f)(for-loop_145 pos_79(+ pos_78 inc_18)) pos_79)))" +"(if(not #f)(for-loop_146 pos_79(+ pos_78 inc_18)) pos_79)))" " pos_77)))))" -" for-loop_145)" +" for-loop_146)" "(+ pos_71 2)" " start_32)))))" "(if(equal? tmp_22 '#:scope-fill!)" "(let-values()" "(let-values(((c_23 next-pos_69)" "(decode vec_48(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-scope-fill! v_151 c_23) next-pos_69)))" +"(begin(deserialize-scope-fill! v_150 c_23) next-pos_69)))" "(if(equal? tmp_22 '#:representative-scope-fill!)" "(let-values()" "(let-values(((a_39 next-pos_70)" "(decode vec_48(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" "(let-values(((d_25 done-pos_3)" "(decode vec_48 next-pos_70 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-representative-scope-fill! v_151 a_39 d_25) done-pos_3))))" +"(begin(deserialize-representative-scope-fill! v_150 a_39 d_25) done-pos_3))))" " (let-values () (error 'deserialize \"bad fill encoding: ~v\" (vector*-ref vec_48 pos_71)))))))))))))" "(define-values" "(find-reachable-scopes)" -"(lambda(v_152)" +"(lambda(v_151)" "(begin" "(let-values(((seen_23)(make-hasheq)))" "(let-values(((reachable-scopes_5)(seteq)))" @@ -20493,35 +20532,35 @@ static const char *startup_source = "(let-values(((scope-triggers_0)(make-hasheq)))" "(begin" "((letrec-values(((loop_83)" -"(lambda(v_153)" +"(lambda(v_152)" "(begin" " 'loop" -"(if(interned-literal? v_153)" +"(if(interned-literal? v_152)" "(let-values()(void))" -"(if(hash-ref seen_23 v_153 #f)" +"(if(hash-ref seen_23 v_152 #f)" "(let-values()(void))" "(let-values()" "(begin" -"(hash-set! seen_23 v_153 #t)" -"(if(scope-with-bindings? v_153)" +"(hash-set! seen_23 v_152 #t)" +"(if(scope-with-bindings? v_152)" "(let-values()" "(begin" -"(set! reachable-scopes_5(set-add reachable-scopes_5 v_153))" -"((reach-scopes-ref v_153) v_153 loop_83)" -"(let-values(((lst_118)(hash-ref scope-triggers_0 v_153 null)))" +"(set! reachable-scopes_5(set-add reachable-scopes_5 v_152))" +"((reach-scopes-ref v_152) v_152 loop_83)" +"(let-values(((lst_117)(hash-ref scope-triggers_0 v_152 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_118)))" -"((letrec-values(((for-loop_146)" -"(lambda(lst_119)" +"(let-values()(check-list lst_117)))" +"((letrec-values(((for-loop_147)" +"(lambda(lst_118)" "(begin" " 'for-loop" -"(if(pair? lst_119)" +"(if(pair? lst_118)" "(let-values(((proc_7)" -"(unsafe-car lst_119))" +"(unsafe-car lst_118))" "((rest_59)" -"(unsafe-cdr lst_119)))" +"(unsafe-cdr lst_118)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -20533,15 +20572,15 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_146 rest_59)" +"(for-loop_147 rest_59)" "(values))))" "(values))))))" -" for-loop_146)" -" lst_118)))" +" for-loop_147)" +" lst_117)))" "(void)" -"(hash-remove! scope-triggers_0 v_153)" -"((scope-with-bindings-ref v_153)" -" v_153" +"(hash-remove! scope-triggers_0 v_152)" +"((scope-with-bindings-ref v_152)" +" v_152" " get-reachable-scopes_4" " loop_83" "(lambda(sc-unreachable_0 b_62)" @@ -20550,15 +20589,15 @@ static const char *startup_source = " sc-unreachable_0" "(lambda(l_50)(cons b_62 l_50))" " null)))))" -"(if(reach-scopes? v_153)" -"(let-values()((reach-scopes-ref v_153) v_153 loop_83))" -"(if(pair? v_153)" -"(let-values()(begin(loop_83(car v_153))(loop_83(cdr v_153))))" -"(if(vector? v_153)" +"(if(reach-scopes? v_152)" +"(let-values()((reach-scopes-ref v_152) v_152 loop_83))" +"(if(pair? v_152)" +"(let-values()(begin(loop_83(car v_152))(loop_83(cdr v_152))))" +"(if(vector? v_152)" "(let-values()" "(begin" "(let-values(((vec_49 len_26)" -"(let-values(((vec_50) v_153))" +"(let-values(((vec_50) v_152))" "(begin" "(check-vector vec_50)" "(values" @@ -20566,7 +20605,7 @@ static const char *startup_source = "(unsafe-vector-length vec_50))))))" "(begin" " #f" -"((letrec-values(((for-loop_147)" +"((letrec-values(((for-loop_148)" "(lambda(pos_82)" "(begin" " 'for-loop" @@ -20586,33 +20625,33 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_147" +"(for-loop_148" "(unsafe-fx+ 1 pos_82))" "(values))))" "(values))))))" -" for-loop_147)" +" for-loop_148)" " 0)))" "(void)))" -"(if(box? v_153)" -"(let-values()(loop_83(unbox v_153)))" -"(if(hash? v_153)" +"(if(box? v_152)" +"(let-values()(loop_83(unbox v_152)))" +"(if(hash? v_152)" "(let-values()" "(begin" -"(let-values(((ht_98) v_153))" +"(let-values(((ht_98) v_152))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_98)))" -"((letrec-values(((for-loop_148)" -"(lambda(i_127)" +"((letrec-values(((for-loop_149)" +"(lambda(i_128)" "(begin" " 'for-loop" -"(if i_127" -"(let-values(((k_29 v_154)" +"(if i_128" +"(let-values(((k_30 v_153)" "(hash-iterate-key+value" " ht_98" -" i_127)))" +" i_128)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -20621,22 +20660,22 @@ static const char *startup_source = "(let-values()" "(begin" "(loop_83" -" k_29)" +" k_30)" "(loop_83" -" v_154)))" +" v_153)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_148" +"(for-loop_149" "(hash-iterate-next" " ht_98" -" i_127))" +" i_128))" "(values))))" "(values))))))" -" for-loop_148)" +" for-loop_149)" "(hash-iterate-first ht_98))))" "(void)))" -"(if(prefab-struct-key v_153)" +"(if(prefab-struct-key v_152)" "(let-values()" "(begin" "(let-values(((v*_5 start*_4 stop*_5 step*_4)" @@ -20646,13 +20685,13 @@ static const char *startup_source = "(lambda(x_49)(vector? x_49))" "(lambda(x_50)" "(unsafe-vector-length x_50))" -"(struct->vector v_153)" +"(struct->vector v_152)" " 1" " #f" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_149)" +"((letrec-values(((for-loop_150)" "(lambda(idx_4)" "(begin" " 'for-loop" @@ -20672,18 +20711,18 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_149" +"(for-loop_150" "(unsafe-fx+ idx_4 1))" "(values))))" "(values))))))" -" for-loop_149)" +" for-loop_150)" " start*_4)))" "(void)))" -"(if(srcloc? v_153)" -"(let-values()(loop_83(srcloc-source v_153)))" +"(if(srcloc? v_152)" +"(let-values()(loop_83(srcloc-source v_152)))" "(let-values()(void))))))))))))))))))" " loop_83)" -" v_152)" +" v_151)" " reachable-scopes_5))))))))" "(define-values" "(deserialize-imports)" @@ -20695,27 +20734,27 @@ static const char *startup_source = "(lambda(s24_1 from-mpi25_0 to-mpi26_0 inspector22_0 inspector23_0)" "(begin" " 'core27" -"(let-values(((s_190) s24_1))" +"(let-values(((s_194) s24_1))" "(let-values(((from-mpi_4) from-mpi25_0))" "(let-values(((to-mpi_3) to-mpi26_0))" "(let-values(((inspector_9)(if inspector23_0 inspector22_0 #f)))" "(let-values()" -"(let-values(((s29_0) s_190)" +"(let-values(((s29_1) s_194)" "((from-mpi30_0) from-mpi_4)" "((to-mpi31_0) to-mpi_3)" "((inspector32_0) inspector_9))" "(syntax-module-path-index-shift15.1" " #f" " #f" -" s29_0" +" s29_1" " from-mpi30_0" " to-mpi31_0" " inspector32_0" " #t)))))))))))" "(case-lambda" -"((s_191 from-mpi_5 to-mpi_4)" -"(begin 'syntax-module-path-index-shift(core27_0 s_191 from-mpi_5 to-mpi_4 #f #f)))" -"((s_192 from-mpi_6 to-mpi_5 inspector22_1)(core27_0 s_192 from-mpi_6 to-mpi_5 inspector22_1 #t))))))" +"((s_195 from-mpi_5 to-mpi_4)" +"(begin 'syntax-module-path-index-shift(core27_0 s_195 from-mpi_5 to-mpi_4 #f #f)))" +"((s_196 from-mpi_6 to-mpi_5 inspector22_1)(core27_0 s_196 from-mpi_6 to-mpi_5 inspector22_1 #t))))))" " syntax-module-path-index-shift_0))" "(define-values" "(deserialize-instance)" @@ -21323,12 +21362,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_99)))" -"((letrec-values(((for-loop_110)" -"(lambda(syms_14 i_128)" +"((letrec-values(((for-loop_111)" +"(lambda(syms_14 i_129)" "(begin" " 'for-loop" -"(if i_128" -"(let-values(((sc_29)(unsafe-immutable-hash-iterate-key ht_99 i_128)))" +"(if i_129" +"(let-values(((sc_29)(unsafe-immutable-hash-iterate-key ht_99 i_129)))" "(let-values(((syms_15)" "(let-values(((syms_16) syms_14))" "(let-values(((syms_17)" @@ -21342,10 +21381,10 @@ static const char *startup_source = " null)))))" "(values syms_17)))))" "(if(not #f)" -"(for-loop_110 syms_15(unsafe-immutable-hash-iterate-next ht_99 i_128))" +"(for-loop_111 syms_15(unsafe-immutable-hash-iterate-next ht_99 i_129))" " syms_15)))" " syms_14)))))" -" for-loop_110)" +" for-loop_111)" "(seteq)" "(unsafe-immutable-hash-iterate-first ht_99))))))))" "(define-values" @@ -21494,30 +21533,30 @@ static const char *startup_source = "(hash-clear!(requires+provides-also-required r+p_0))))))" "(define-values" "(intern-mpi)" -"(lambda(r+p_1 mpi_28)(begin(intern-module-path-index!(requires+provides-require-mpis r+p_1) mpi_28))))" +"(lambda(r+p_1 mpi_29)(begin(intern-module-path-index!(requires+provides-require-mpis r+p_1) mpi_29))))" "(define-values" "(add-required-module!)" "(lambda(r+p_2 mod-name_8 phase-shift_6 is-cross-phase-persistent?_0)" "(begin" -"(let-values(((mpi_29)(intern-mpi r+p_2 mod-name_8)))" +"(let-values(((mpi_30)(intern-mpi r+p_2 mod-name_8)))" "(begin" -"(if(hash-ref(hash-ref(requires+provides-requires r+p_2) mpi_29 '#hasheqv()) phase-shift_6 #f)" +"(if(hash-ref(hash-ref(requires+provides-requires r+p_2) mpi_30 '#hasheqv()) phase-shift_6 #f)" "(void)" "(let-values()" "(begin" "(hash-update!" "(requires+provides-require-mpis-in-order r+p_2)" " phase-shift_6" -"(lambda(l_51)(cons mpi_29 l_51))" +"(lambda(l_51)(cons mpi_30 l_51))" " null)" "(hash-set!" -"(hash-ref!(requires+provides-requires r+p_2) mpi_29 make-hasheqv)" +"(hash-ref!(requires+provides-requires r+p_2) mpi_30 make-hasheqv)" " phase-shift_6" "(make-hasheq)))))" "(if is-cross-phase-persistent?_0" "(void)" "(let-values()(set-requires+provides-can-cross-phase-persistent?! r+p_2 #f)))" -" mpi_29)))))" +" mpi_30)))))" "(define-values" "(add-defined-or-required-id!19.1)" "(lambda(as-transformer?12_0 can-be-shadowed?11_0 can-be-shadowed?13_0 r+p15_0 id16_0 phase17_0 binding18_0)" @@ -21605,7 +21644,7 @@ static const char *startup_source = "(begin" " 'add-bulk-required-ids!59" "(let-values(((r+p_5) r+p52_0))" -"(let-values(((s_193) s53_0))" +"(let-values(((s_197) s53_0))" "(let-values(((self_9) self54_0))" "(let-values(((nominal-module_7) nominal-module55_0))" "(let-values(((phase-shift_7) phase-shift56_0))" @@ -21618,20 +21657,20 @@ static const char *startup_source = "(let-values(((can-be-shadowed?_2) can-be-shadowed?40_0))" "(let-values(((check-and-remove?_0) check-and-remove?41_0))" "(let-values(((accum-update-nominals_0) accum-update-nominals42_0))" -"(let-values(((who_10) who43_0))" +"(let-values(((who_11) who43_0))" "(let-values()" "(let-values(((phase_54)(phase+ provide-phase-level_3 phase-shift_7)))" "(let-values(((shortcut-table_0)" "(if check-and-remove?_0" "(if(>(hash-count provides_4) 64)" -"(syntax-mapped-names s_193 phase_54)" +"(syntax-mapped-names s_197 phase_54)" " #f)" " #f)))" -"(let-values(((mpi_30)(intern-mpi r+p_5 nominal-module_7)))" +"(let-values(((mpi_31)(intern-mpi r+p_5 nominal-module_7)))" "(let-values(((at-mod_1)" "(hash-ref!" "(requires+provides-requires r+p_5)" -" mpi_30" +" mpi_31" " make-hasheqv)))" "(let-values(((sym-to-reqds_1)" "(hash-ref! at-mod_1 phase-shift_7 make-hasheq)))" @@ -21643,7 +21682,7 @@ static const char *startup_source = "(bulk-required4.1" " provides_4" " prefix-len_0" -" s_193" +" s_197" " provide-phase-level_3" " can-be-shadowed?_2)))" "(let-values(((ht_100) provides_4))" @@ -21651,15 +21690,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_100)))" -"((letrec-values(((for-loop_150)" -"(lambda(result_71 i_129)" +"((letrec-values(((for-loop_151)" +"(lambda(result_71 i_130)" "(begin" " 'for-loop" -"(if i_129" +"(if i_130" "(let-values(((out-sym_0 binding/p_2)" "(hash-iterate-key+value" " ht_100" -" i_129)))" +" i_130)))" "(let-values(((result_72)" "(let-values(((result_73)" " result_71))" @@ -21699,11 +21738,11 @@ static const char *startup_source = " out-sym_0))))))" "(let-values(((already-defined?_0)" "(if(if check-and-remove?_0" -"(let-values(((or-part_185)" +"(let-values(((or-part_187)" "(not" " shortcut-table_0)))" -"(if or-part_185" -" or-part_185" +"(if or-part_187" +" or-part_187" "(hash-ref" " shortcut-table_0" " sym_31" @@ -21718,9 +21757,9 @@ static const char *startup_source = " r+p_5)" "((temp126_0)" "(datum->syntax$1" -" s_193" +" s_197" " sym_31" -" s_193))" +" s_197))" "((phase127_0)" " phase_54)" "((orig-s128_0)" @@ -21734,7 +21773,7 @@ static const char *startup_source = "((self135_0)" " self_9)" "((mpi136_0)" -" mpi_30)" +" mpi_31)" "((provide-phase-level137_0)" " provide-phase-level_3)" "((phase-shift138_0)" @@ -21751,7 +21790,7 @@ static const char *startup_source = "((accum-update-nominals131_0)" " accum-update-nominals_0)" "((who132_0)" -" who_10))" +" who_11))" "(check-not-defined95.1" " accum-update-nominals131_0" " #t" @@ -21792,12 +21831,12 @@ static const char *startup_source = " binding/p_2))" "(not #f)" " #f)" -"(for-loop_150" +"(for-loop_151" " result_72" -"(hash-iterate-next ht_100 i_129))" +"(hash-iterate-next ht_100 i_130))" " result_72)))" " result_71)))))" -" for-loop_150)" +" for-loop_151)" " #f" "(hash-iterate-first ht_100))))))))))))))))))))))))))))))" "(define-values" @@ -21817,8 +21856,8 @@ static const char *startup_source = "(provided-as-transformer? binding/p_3))))))))" "(define-values" "(normalize-required)" -"(lambda(r_34 mod-name_9 phase_56 sym_33)" -"(begin(if(bulk-required? r_34)(bulk-required->required r_34 mod-name_9 phase_56 sym_33) r_34))))" +"(lambda(r_35 mod-name_9 phase_56 sym_33)" +"(begin(if(bulk-required? r_35)(bulk-required->required r_35 mod-name_9 phase_56 sym_33) r_35))))" "(define-values" "(add-enclosing-module-defined-and-required!67.1)" "(lambda(enclosing-requires+provides62_0 r+p64_0 enclosing-mod65_0 phase-shift66_0)" @@ -21836,13 +21875,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_101)))" -"((letrec-values(((for-loop_151)" -"(lambda(i_130)" +"((letrec-values(((for-loop_152)" +"(lambda(i_131)" "(begin" " 'for-loop" -"(if i_130" +"(if i_131" "(let-values(((mod-name_10 at-mod_2)" -"(hash-iterate-key+value ht_101 i_130)))" +"(hash-iterate-key+value ht_101 i_131)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -21857,16 +21896,16 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash ht_102)))" -"((letrec-values(((for-loop_152)" -"(lambda(i_131)" +"((letrec-values(((for-loop_153)" +"(lambda(i_132)" "(begin" " 'for-loop" -"(if i_131" +"(if i_132" "(let-values(((phase_57" " at-phase_8)" "(hash-iterate-key+value" " ht_102" -" i_131)))" +" i_132)))" "(let-values((()" "(let-values(((ht_103)" " at-phase_8))" @@ -21877,39 +21916,39 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_103)))" -"((letrec-values(((for-loop_153)" -"(lambda(i_132)" +"((letrec-values(((for-loop_154)" +"(lambda(i_133)" "(begin" " 'for-loop" -"(if i_132" +"(if i_133" "(let-values(((sym_34" " reqds_0)" "(hash-iterate-key+value" " ht_103" -" i_132)))" +" i_133)))" "(let-values((()" -"(let-values(((lst_120)" +"(let-values(((lst_119)" " reqds_0))" "(begin" "(void)" -"((letrec-values(((for-loop_154)" -"(lambda(lst_121)" +"((letrec-values(((for-loop_155)" +"(lambda(lst_120)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_121))" +" lst_120))" "(let-values(((reqd/maybe-bulk_0)" "(if(pair?" -" lst_121)" +" lst_120)" "(car" -" lst_121)" -" lst_121))" +" lst_120)" +" lst_120))" "((rest_60)" "(if(pair?" -" lst_121)" +" lst_120)" "(cdr" -" lst_121)" +" lst_120)" " null)))" "(let-values((()" "(let-values()" @@ -21970,42 +22009,42 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_154" +"(for-loop_155" " rest_60)" "(values))))" "(values))))))" -" for-loop_154)" -" lst_120)))))" +" for-loop_155)" +" lst_119)))))" "(if(not" " #f)" -"(for-loop_153" +"(for-loop_154" "(hash-iterate-next" " ht_103" -" i_132))" +" i_133))" "(values))))" "(values))))))" -" for-loop_153)" +" for-loop_154)" "(hash-iterate-first" " ht_103))))))" "(if(not" " #f)" -"(for-loop_152" +"(for-loop_153" "(hash-iterate-next" " ht_102" -" i_131))" +" i_132))" "(values))))" "(values))))))" -" for-loop_152)" +" for-loop_153)" "(hash-iterate-first" " ht_102))))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_151(hash-iterate-next ht_101 i_130))" +"(for-loop_152(hash-iterate-next ht_101 i_131))" "(values))))" "(values))))))" -" for-loop_151)" +" for-loop_152)" "(hash-iterate-first ht_101))))" "(void))))))))))" "(define-values" @@ -22023,8 +22062,8 @@ static const char *startup_source = "(resolve+shift30.1 #f #f temp151_0 #t #f #f #f #f #f #f id149_0 phase150_0))))" "(if b_63" "(let-values()" -"(let-values(((mpi_31)(intern-mpi r+p_7(module-binding-nominal-module b_63))))" -"(let-values(((at-mod_3)(hash-ref(requires+provides-requires r+p_7) mpi_31 #f)))" +"(let-values(((mpi_32)(intern-mpi r+p_7(module-binding-nominal-module b_63))))" +"(let-values(((at-mod_3)(hash-ref(requires+provides-requires r+p_7) mpi_32 #f)))" "(if at-mod_3" "(let-values()" "(let-values(((nominal-phase_4)(module-binding-nominal-require-phase b_63)))" @@ -22046,7 +22085,7 @@ static const char *startup_source = " l_52" " id_24" " phase_58" -" mpi_31" +" mpi_32" " nominal-phase_4" " sym_35)))))))))" "(void)))))" @@ -22054,29 +22093,29 @@ static const char *startup_source = "(void)))))))))))" "(define-values" "(remove-non-matching-requireds)" -"(lambda(reqds_1 id_25 phase_59 mpi_32 nominal-phase_5 sym_36)" +"(lambda(reqds_1 id_25 phase_59 mpi_33 nominal-phase_5 sym_36)" "(begin" "(reverse$1" -"(let-values(((lst_122) reqds_1))" +"(let-values(((lst_121) reqds_1))" "(begin" "(void)" -"((letrec-values(((for-loop_155)" -"(lambda(fold-var_103 lst_123)" +"((letrec-values(((for-loop_156)" +"(lambda(fold-var_103 lst_122)" "(begin" " 'for-loop" -"(if(not(null? lst_123))" -"(let-values(((r_35)(if(pair? lst_123)(car lst_123) lst_123))" -"((rest_61)(if(pair? lst_123)(cdr lst_123) null)))" +"(if(not(null? lst_122))" +"(let-values(((r_36)(if(pair? lst_122)(car lst_122) lst_122))" +"((rest_61)(if(pair? lst_122)(cdr lst_122) null)))" "(let-values(((fold-var_104)" -"(let-values(((r_36)" +"(let-values(((r_37)" "(normalize-required" -" r_35" -" mpi_32" +" r_36" +" mpi_33" " nominal-phase_5" " sym_36)))" "(begin" " #t" -"((letrec-values(((for-loop_156)" +"((letrec-values(((for-loop_157)" "(lambda(fold-var_105)" "(begin" " 'for-loop" @@ -22087,9 +22126,9 @@ static const char *startup_source = "(if(if(eqv?" " phase_59" "(required-phase" -" r_36))" +" r_37))" "(free-identifier=?$1" -"(required-id r_36)" +"(required-id r_37)" " id_25" " phase_59" " phase_59)" @@ -22101,18 +22140,18 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -" r_36)" +" r_37)" " fold-var_108))))" "(values" " fold-var_109)))))))" " fold-var_106))))))" +" for-loop_157)" +" fold-var_103)))))" +"(if(not #f)(for-loop_156 fold-var_104 rest_61) fold-var_104)))" +" fold-var_103)))))" " for-loop_156)" -" fold-var_103)))))" -"(if(not #f)(for-loop_155 fold-var_104 rest_61) fold-var_104)))" -" fold-var_103)))))" -" for-loop_155)" " null" -" lst_122)))))))" +" lst_121)))))))" "(define-values" "(check-not-defined95.1)" "(lambda(accum-update-nominals83_0" @@ -22142,7 +22181,7 @@ static const char *startup_source = "(let-values(((remove-shadowed!?_0)(if remove-shadowed!?89_0 remove-shadowed!?82_0 #f)))" "(let-values(((accum-update-nominals_1)" "(if accum-update-nominals90_0 accum-update-nominals83_0 #f)))" -"(let-values(((who_11) who84_0))" +"(let-values(((who_12) who84_0))" "(let-values()" "(let-values(((b_64)" "(let-values(((id152_0) id_26)((phase153_0) phase_60)((temp154_0) #t))" @@ -22182,10 +22221,10 @@ static const char *startup_source = "(let-values()" "(let-values(((define-shadowing-require?_0)" "(if(not defined?_0)(not check-not-required?_0) #f)))" -"(let-values(((mpi_33)" +"(let-values(((mpi_34)" "(intern-mpi r+p_8(module-binding-nominal-module b_64))))" "(let-values(((at-mod_4)" -"(hash-ref(requires+provides-requires r+p_8) mpi_33 #f)))" +"(hash-ref(requires+provides-requires r+p_8) mpi_34 #f)))" "(let-values(((ok-binding_0)" "(if(not define-shadowing-require?_0)" "(if(procedure? ok-binding/delayed_0)" @@ -22197,7 +22236,7 @@ static const char *startup_source = "(begin" " 'raise-already-bound" "(raise-syntax-error$1" -" who_11" +" who_12" "(string-append" " \"identifier already \"" " (if defined?_1 \"defined\" \"required\")" @@ -22310,28 +22349,28 @@ static const char *startup_source = "(syntax-e$1 id_26)" " null)))" "(let-values(((only-can-can-shadow-require?_0)" -"(let-values(((lst_124) reqds_2))" +"(let-values(((lst_123) reqds_2))" "(begin" "(void)" -"((letrec-values(((for-loop_157)" +"((letrec-values(((for-loop_158)" "(lambda(only-can-can-shadow-require?_1" -" lst_125)" +" lst_124)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_125))" -"(let-values(((r_37)" +" lst_124))" +"(let-values(((r_38)" "(if(pair?" -" lst_125)" +" lst_124)" "(car" -" lst_125)" -" lst_125))" +" lst_124)" +" lst_124))" "((rest_62)" "(if(pair?" -" lst_125)" +" lst_124)" "(cdr" -" lst_125)" +" lst_124)" " null)))" "(let-values(((only-can-can-shadow-require?_2)" "(let-values(((only-can-can-shadow-require?_3)" @@ -22339,11 +22378,11 @@ static const char *startup_source = "(let-values(((only-can-can-shadow-require?_4)" "(let-values()" "(if(if(bulk-required?" -" r_37)" +" r_38)" "(bulk-required-can-be-shadowed?" -" r_37)" +" r_38)" "(required-can-be-shadowed?" -" r_37))" +" r_38))" "(let-values()" "(begin" "(set-requires+provides-all-bindings-simple?!" @@ -22360,14 +22399,14 @@ static const char *startup_source = " only-can-can-shadow-require?_4)))))" "(if(not" " #f)" -"(for-loop_157" +"(for-loop_158" " only-can-can-shadow-require?_2" " rest_62)" " only-can-can-shadow-require?_2)))" " only-can-can-shadow-require?_1)))))" -" for-loop_157)" +" for-loop_158)" " #t" -" lst_124)))))" +" lst_123)))))" "(begin" "(if define-shadowing-require?_0" "(let-values()" @@ -22394,7 +22433,7 @@ static const char *startup_source = " reqds_2" " id_26" " phase_60" -" mpi_33" +" mpi_34" " nominal-phase_6" "(syntax-e$1 id_26))))" "(void))))" @@ -22406,18 +22445,18 @@ static const char *startup_source = "(let-values(((phase-to-defined-syms_0)(requires+provides-phase-to-defined-syms r+p_9)))" "(let-values(((defined-syms_2)(hash-ref phase-to-defined-syms_0 phase_61 '#hasheq())))" "(let-values(((new-defined-syms_0)" -"(let-values(((lst_126) syms_18))" +"(let-values(((lst_125) syms_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_126)))" -"((letrec-values(((for-loop_143)" -"(lambda(defined-syms_3 lst_127)" +"(let-values()(check-list lst_125)))" +"((letrec-values(((for-loop_144)" +"(lambda(defined-syms_3 lst_126)" "(begin" " 'for-loop" -"(if(pair? lst_127)" -"(let-values(((sym_37)(unsafe-car lst_127))" -"((rest_63)(unsafe-cdr lst_127)))" +"(if(pair? lst_126)" +"(let-values(((sym_37)(unsafe-car lst_126))" +"((rest_63)(unsafe-cdr lst_126)))" "(let-values(((defined-syms_4)" "(let-values(((defined-syms_5) defined-syms_3))" "(let-values(((defined-syms_6)" @@ -22428,19 +22467,19 @@ static const char *startup_source = " #t))))" "(values defined-syms_6)))))" "(if(not #f)" -"(for-loop_143 defined-syms_4 rest_63)" +"(for-loop_144 defined-syms_4 rest_63)" " defined-syms_4)))" " defined-syms_3)))))" -" for-loop_143)" +" for-loop_144)" " defined-syms_2" -" lst_126)))))" +" lst_125)))))" "(hash-set! phase-to-defined-syms_0 phase_61 new-defined-syms_0)))))))" "(define-values" "(extract-module-requires)" "(lambda(r+p_10 mod-name_11 phase_62)" "(begin" -"(let-values(((mpi_34)(intern-mpi r+p_10 mod-name_11)))" -"(let-values(((at-mod_5)(hash-ref(requires+provides-requires r+p_10) mpi_34 #f)))" +"(let-values(((mpi_35)(intern-mpi r+p_10 mod-name_11)))" +"(let-values(((at-mod_5)(hash-ref(requires+provides-requires r+p_10) mpi_35 #f)))" "(if at-mod_5" "(reverse$1" "(let-values(((ht_104)(hash-ref at-mod_5 phase_62 '#hasheq())))" @@ -22448,28 +22487,28 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_104)))" -"((letrec-values(((for-loop_158)" -"(lambda(fold-var_110 i_133)" +"((letrec-values(((for-loop_159)" +"(lambda(fold-var_110 i_134)" "(begin" " 'for-loop" -"(if i_133" -"(let-values(((sym_38 reqds_3)(hash-iterate-key+value ht_104 i_133)))" +"(if i_134" +"(let-values(((sym_38 reqds_3)(hash-iterate-key+value ht_104 i_134)))" "(let-values(((fold-var_111)" -"(let-values(((lst_128) reqds_3))" +"(let-values(((lst_127) reqds_3))" "(begin" "(void)" -"((letrec-values(((for-loop_159)" -"(lambda(fold-var_112 lst_129)" +"((letrec-values(((for-loop_160)" +"(lambda(fold-var_112 lst_128)" "(begin" " 'for-loop" -"(if(not(null? lst_129))" +"(if(not(null? lst_128))" "(let-values(((reqd_1)" -"(if(pair? lst_129)" -"(car lst_129)" -" lst_129))" +"(if(pair? lst_128)" +"(car lst_128)" +" lst_128))" "((rest_64)" -"(if(pair? lst_129)" -"(cdr lst_129)" +"(if(pair? lst_128)" +"(cdr lst_128)" " null)))" "(let-values(((fold-var_113)" "(let-values(((fold-var_114)" @@ -22480,26 +22519,26 @@ static const char *startup_source = "(let-values()" "(normalize-required" " reqd_1" -" mpi_34" +" mpi_35" " phase_62" " sym_38))" " fold-var_114))))" "(values" " fold-var_115)))))" "(if(not #f)" -"(for-loop_159" +"(for-loop_160" " fold-var_113" " rest_64)" " fold-var_113)))" " fold-var_112)))))" -" for-loop_159)" +" for-loop_160)" " fold-var_110" -" lst_128)))))" +" lst_127)))))" "(if(not #f)" -"(for-loop_158 fold-var_111(hash-iterate-next ht_104 i_133))" +"(for-loop_159 fold-var_111(hash-iterate-next ht_104 i_134))" " fold-var_111)))" " fold-var_110)))))" -" for-loop_158)" +" for-loop_159)" " null" "(hash-iterate-first ht_104)))))" " #f))))))" @@ -22507,8 +22546,8 @@ static const char *startup_source = "(extract-module-definitions)" "(lambda(r+p_11)" "(begin" -"(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)))))" +"(let-values(((or-part_188)(extract-module-requires r+p_11(requires+provides-self r+p_11) 0)))" +"(if or-part_188 or-part_188 null)))))" "(define-values" "(extract-all-module-requires)" "(lambda(r+p_12 mod-name_12 phase_49)" @@ -22518,18 +22557,18 @@ static const char *startup_source = "(call/ec" "(lambda(esc_0)" "(reverse$1" -"(let-values(((lst_130)(if mod-name_12(list(intern-mpi r+p_12 mod-name_12))(hash-keys requires_2))))" +"(let-values(((lst_129)(if mod-name_12(list(intern-mpi r+p_12 mod-name_12))(hash-keys requires_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_130)))" -"((letrec-values(((for-loop_160)" -"(lambda(fold-var_116 lst_131)" +"(let-values()(check-list lst_129)))" +"((letrec-values(((for-loop_161)" +"(lambda(fold-var_116 lst_130)" "(begin" " 'for-loop" -"(if(pair? lst_131)" -"(let-values(((mod-name_13)(unsafe-car lst_131))" -"((rest_65)(unsafe-cdr lst_131)))" +"(if(pair? lst_130)" +"(let-values(((mod-name_13)(unsafe-car lst_130))" +"((rest_65)(unsafe-cdr lst_130)))" "(let-values(((fold-var_117)" "(let-values(((fold-var_118) fold-var_116))" "(if(eq? mod-name_13 self_10)" @@ -22541,13 +22580,13 @@ static const char *startup_source = " '#hasheqv())))" "(begin" " #t" -"((letrec-values(((for-loop_161)" +"((letrec-values(((for-loop_162)" "(lambda(fold-var_119)" "(begin" " 'for-loop" "(let-values()" "(let-values(((fold-var_120)" -"(let-values(((lst_132)" +"(let-values(((lst_131)" "(if(eq?" " phase_49" " 'all)" @@ -22561,20 +22600,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_132)))" -"((letrec-values(((for-loop_162)" +" lst_131)))" +"((letrec-values(((for-loop_163)" "(lambda(fold-var_121" -" lst_133)" +" lst_132)" "(begin" " 'for-loop" "(if(pair?" -" lst_133)" +" lst_132)" "(let-values(((phase_63)" "(unsafe-car" -" lst_133))" +" lst_132))" "((rest_66)" "(unsafe-cdr" -" lst_133)))" +" lst_132)))" "(let-values(((fold-var_122)" "(let-values(((ht_105)" "(hash-ref" @@ -22590,41 +22629,41 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_105)))" -"((letrec-values(((for-loop_163)" +"((letrec-values(((for-loop_164)" "(lambda(fold-var_123" -" i_134)" +" i_135)" "(begin" " 'for-loop" -"(if i_134" +"(if i_135" "(let-values(((sym_39" " reqds_4)" "(hash-iterate-key+value" " ht_105" -" i_134)))" +" i_135)))" "(let-values(((fold-var_124)" -"(let-values(((lst_134)" +"(let-values(((lst_133)" " reqds_4))" "(begin" "(void)" -"((letrec-values(((for-loop_164)" +"((letrec-values(((for-loop_165)" "(lambda(fold-var_125" -" lst_135)" +" lst_134)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_135))" +" lst_134))" "(let-values(((reqd_2)" "(if(pair?" -" lst_135)" +" lst_134)" "(car" -" lst_135)" -" lst_135))" +" lst_134)" +" lst_134))" "((rest_67)" "(if(pair?" -" lst_135)" +" lst_134)" "(cdr" -" lst_135)" +" lst_134)" " null)))" "(let-values(((fold-var_126)" "(let-values(((fold-var_127)" @@ -22643,45 +22682,45 @@ static const char *startup_source = " fold-var_128)))))" "(if(not" " #f)" -"(for-loop_164" +"(for-loop_165" " fold-var_126" " rest_67)" " fold-var_126)))" " fold-var_125)))))" -" for-loop_164)" +" for-loop_165)" " fold-var_123" -" lst_134)))))" +" lst_133)))))" "(if(not" " #f)" -"(for-loop_163" +"(for-loop_164" " fold-var_124" "(hash-iterate-next" " ht_105" -" i_134))" +" i_135))" " fold-var_124)))" " fold-var_123)))))" -" for-loop_163)" +" for-loop_164)" " fold-var_121" "(hash-iterate-first" " ht_105))))))" "(if(not" " #f)" -"(for-loop_162" +"(for-loop_163" " fold-var_122" " rest_66)" " fold-var_122)))" " fold-var_121)))))" -" for-loop_162)" +" for-loop_163)" " fold-var_119" -" lst_132)))))" +" lst_131)))))" " fold-var_120))))))" -" for-loop_161)" +" for-loop_162)" " fold-var_118)))))))" -"(if(not #f)(for-loop_160 fold-var_117 rest_65) fold-var_117)))" +"(if(not #f)(for-loop_161 fold-var_117 rest_65) fold-var_117)))" " fold-var_116)))))" -" for-loop_160)" +" for-loop_161)" " null" -" lst_130)))))))))))" +" lst_129)))))))))))" "(define-values" "(add-provide!109.1)" "(lambda(as-protected?98_0" @@ -22751,8 +22790,8 @@ static const char *startup_source = "(hash-set" " at-phase_9" " sym_40" -"(if(let-values(((or-part_187) as-protected?_0))" -"(if or-part_187 or-part_187 as-transformer?_2))" +"(if(let-values(((or-part_189) as-protected?_0))" +"(if or-part_189 or-part_189 as-transformer?_2))" "(provided1.1 plain-binding_0 as-protected?_0 as-transformer?_2)" " plain-binding_0))))" "(if(same-binding? b_65 binding_13)" @@ -22778,18 +22817,18 @@ static const char *startup_source = "((phasemodule-path" " maybe-mp_0)" " maybe-mp_0)))" -"(let-values(((mpi_36)" +"(let-values(((mpi_37)" "(let-values(((mp219_0)" " mp_0)" "((self220_0)" @@ -24606,16 +24645,16 @@ static const char *startup_source = " self220_0))))" "(begin" "(let-values(((mpi202_0)" -" mpi_36)" +" mpi_37)" "((req203_0)" " req_0)" "((self204_0)" " self_11)" "((temp205_0)" -"(let-values(((or-part_206)" +"(let-values(((or-part_208)" " req_0))" -"(if or-part_206" -" or-part_206" +"(if or-part_208" +" or-part_208" " top-req_0)))" "((m-ns206_0)" " m-ns_8)" @@ -24642,7 +24681,7 @@ static const char *startup_source = "((initial-require?217_0)" " initial-require?_0)" "((who218_0)" -" who_12))" +" who_13))" "(perform-require!78.1" " adjust210_0" " #t" @@ -24684,14 +24723,14 @@ static const char *startup_source = " req_0))" "(not #f)" " #f)" -"(for-loop_169" +"(for-loop_170" " result_76" " rest_70)" " result_76)))" " result_75)))))" -" for-loop_169)" +" for-loop_170)" " #t" -" lst_140)))))))" +" lst_139)))))))" " loop_85)" " reqs_0" " #f" @@ -24705,31 +24744,31 @@ static const char *startup_source = "(ids->sym-set)" "(lambda(ids_3)" "(begin" -"(let-values(((lst_146) ids_3))" +"(let-values(((lst_145) ids_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_146)))" -"((letrec-values(((for-loop_171)" -"(lambda(table_141 lst_147)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_145)))" +"((letrec-values(((for-loop_172)" +"(lambda(table_141 lst_146)" "(begin" " 'for-loop" -"(if(pair? lst_147)" -"(let-values(((id_43)(unsafe-car lst_147))((rest_74)(unsafe-cdr lst_147)))" +"(if(pair? lst_146)" +"(let-values(((id_43)(unsafe-car lst_146))((rest_74)(unsafe-cdr lst_146)))" "(let-values(((table_142)" "(let-values(((table_143) table_141))" "(let-values(((table_144)" "(let-values()" -"(let-values(((key_54 val_45)" +"(let-values(((key_56 val_46)" "(let-values()" "(values" "(let-values()(syntax-e$1 id_43))" " #t))))" -"(hash-set table_143 key_54 val_45)))))" +"(hash-set table_143 key_56 val_46)))))" "(values table_144)))))" -"(if(not #f)(for-loop_171 table_142 rest_74) table_142)))" +"(if(not #f)(for-loop_172 table_142 rest_74) table_142)))" " table_141)))))" -" for-loop_171)" +" for-loop_172)" " '#hash()" -" lst_146))))))" +" lst_145))))))" "(define-values" "(perform-initial-require!42.1)" "(lambda(bind?33_0 who34_0 mod-path37_0 self38_0 in-stx39_0 m-ns40_0 requires+provides41_0)" @@ -24741,7 +24780,7 @@ static const char *startup_source = "(let-values(((m-ns_9) m-ns40_0))" "(let-values(((requires+provides_2) requires+provides41_0))" "(let-values(((bind?_0) bind?33_0))" -"(let-values(((who_13) who34_0))" +"(let-values(((who_14) who34_0))" "(let-values()" "(let-values(((temp222_0)" "(let-values(((mod-path234_0) mod-path_7)((self235_0) self_12))" @@ -24756,7 +24795,7 @@ static const char *startup_source = "((temp230_0) #t)" "((temp231_1) #t)" "((bind?232_0) bind?_0)" -"((who233_0) who_13))" +"((who233_0) who_14))" "(perform-require!78.1" " #f" " #f" @@ -24822,7 +24861,7 @@ static const char *startup_source = " m-ns77_0)" "(begin" " 'perform-require!78" -"(let-values(((mpi_37) mpi73_0))" +"(let-values(((mpi_38) mpi73_0))" "(let-values(((orig-s_14) orig-s74_0))" "(let-values()" "(let-values(((in-stx_1) in-stx76_0))" @@ -24847,10 +24886,10 @@ static const char *startup_source = " skip-variable-phase-level56_0" " #f)))" "(let-values(((bind?_1)(if bind?71_0 bind?57_0 #t)))" -"(let-values(((who_14) who58_0))" +"(let-values(((who_15) who58_0))" "(let-values()" "(let-values()" -"(let-values(((module-name_0)(1/module-path-index-resolve mpi_37 #t)))" +"(let-values(((module-name_0)(1/module-path-index-resolve mpi_38 #t)))" "(let-values(((bind-in-stx_0)" "(if(adjust-rename? adjust_1)" "(adjust-rename-to-id adjust_1)" @@ -24870,10 +24909,10 @@ static const char *startup_source = "(if requires+provides_3" "(add-required-module!" " requires+provides_3" -" mpi_37" +" mpi_38" " phase-shift_11" "(module-cross-phase-persistent? m_13))" -" mpi_37)))" +" mpi_38)))" "(let-values((()" "(begin" "(if visit?_2" @@ -24921,10 +24960,10 @@ static const char *startup_source = "(let-values((()" "(begin" "(if(not" -"(let-values(((or-part_207)" +"(let-values(((or-part_209)" " visit?_2))" -"(if or-part_207" -" or-part_207" +"(if or-part_209" +" or-part_209" " run?_2)))" "(let-values()" "(let-values(((m-ns260_0) m-ns_10)" @@ -24943,15 +24982,15 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((can-bulk-bind?_0)" -"(if(let-values(((or-part_208)" +"(if(let-values(((or-part_210)" "(not adjust_1)))" -"(if or-part_208" -" or-part_208" -"(let-values(((or-part_209)" +"(if or-part_210" +" or-part_210" +"(let-values(((or-part_211)" "(adjust-prefix?" " adjust_1)))" -"(if or-part_209" -" or-part_209" +"(if or-part_211" +" or-part_211" "(adjust-all-except?" " adjust_1)))))" "(not skip-variable-phase-level_1)" @@ -25035,7 +25074,7 @@ static const char *startup_source = "(module-self" " m_13))" "((mpi267_0)" -" mpi_37)" +" mpi_38)" "((phase-shift268_0)" " phase-shift_11)" "((provides269_0)" @@ -25062,7 +25101,7 @@ static const char *startup_source = "((update-nominals-box277_0)" " update-nominals-box_0)" "((who278_0)" -" who_14))" +" who_15))" "(add-bulk-required-ids!59.1" " update-nominals-box277_0" " can-be-shadowed?274_0" @@ -25082,11 +25121,11 @@ static const char *startup_source = " #f)" " #f))" "((temp251_0)" -"(if(let-values(((or-part_210)" +"(if(let-values(((or-part_212)" "(not" " can-bulk-bind?_0)))" -"(if or-part_210" -" or-part_210" +"(if or-part_212" +" or-part_212" " copy-variable-phase-level_1))" "(lambda(binding_16" " as-transformer?_3)" @@ -25182,7 +25221,7 @@ static const char *startup_source = " requires+provides_3" " #f)" "(let-values()" -"(let-values(((s_265)" +"(let-values(((s_268)" "(datum->syntax$1" " bind-in-stx_0" " adjusted-sym_0)))" @@ -25202,7 +25241,7 @@ static const char *startup_source = "((requires+provides281_0)" " requires+provides_3)" "((s282_0)" -" s_265)" +" s_268)" "((bind-phase283_0)" " bind-phase_0)" "((binding284_0)" @@ -25212,7 +25251,7 @@ static const char *startup_source = "((temp286_0)" " #t)" "((who287_0)" -" who_14))" +" who_15))" "(check-not-defined95.1" " #f" " #f" @@ -25236,7 +25275,7 @@ static const char *startup_source = "(let-values(((requires+provides288_0)" " requires+provides_3)" "((s289_0)" -" s_265)" +" s_268)" "((bind-phase290_0)" " bind-phase_0)" "((binding291_0)" @@ -25304,7 +25343,7 @@ static const char *startup_source = "(if update-nominals-box_0" "(let-values()" "(begin" -"(let-values(((lst_148)" +"(let-values(((lst_147)" "(unbox" " update-nominals-box_0)))" "(begin" @@ -25313,19 +25352,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_148)))" -"((letrec-values(((for-loop_172)" -"(lambda(lst_149)" +" lst_147)))" +"((letrec-values(((for-loop_173)" +"(lambda(lst_148)" "(begin" " 'for-loop" "(if(pair?" -" lst_149)" +" lst_148)" "(let-values(((update!_1)" "(unsafe-car" -" lst_149))" +" lst_148))" "((rest_75)" "(unsafe-cdr" -" lst_149)))" +" lst_148)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25337,12 +25376,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_172" +"(for-loop_173" " rest_75)" "(values))))" "(values))))))" -" for-loop_172)" -" lst_148)))" +" for-loop_173)" +" lst_147)))" "(void)))" "(void))" "(values))))" @@ -25381,15 +25420,15 @@ static const char *startup_source = "(let-values()" "(check-in-immutable-hash-keys" " ht_108)))" -"((letrec-values(((for-loop_173)" -"(lambda(i_137)" +"((letrec-values(((for-loop_174)" +"(lambda(i_138)" "(begin" " 'for-loop" -"(if i_137" +"(if i_138" "(let-values(((sym_43)" "(unsafe-immutable-hash-iterate-key" " ht_108" -" i_137)))" +" i_138)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25403,7 +25442,7 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-syntax-error$1" -" who_14" +" who_15" " \"not in nested spec\"" " orig-s_14" " sym_43))))" @@ -25411,13 +25450,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_173" +"(for-loop_174" "(unsafe-immutable-hash-iterate-next" " ht_108" -" i_137))" +" i_138))" "(values))))" "(values))))))" -" for-loop_173)" +" for-loop_174)" "(unsafe-immutable-hash-iterate-first" " ht_108))))" "(void)))" @@ -25446,7 +25485,7 @@ static const char *startup_source = "(let-values(((in-stx_2) in-stx102_0))" "(let-values(((phase-shift_12) phase-shift103_0))" "(let-values(((ns_50) ns104_0))" -"(let-values(((mpi_38) mpi105_0))" +"(let-values(((mpi_39) mpi105_0))" "(let-values(((module-name_1) module-name106_0))" "(let-values(((orig-s_15) in81_0))" "(let-values(((defines-mpi_0) defines-mpi82_0))" @@ -25466,23 +25505,23 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_109)))" -"((letrec-values(((for-loop_174)" -"(lambda(i_138)" +"((letrec-values(((for-loop_175)" +"(lambda(i_139)" "(begin" " 'for-loop" -"(if i_138" +"(if i_139" "(let-values(((provide-phase-level_5 provides_7)" "(hash-iterate-key+value" " ht_109" -" i_138)))" +" i_139)))" "(let-values((()" "(let-values()" -"(if(let-values(((or-part_211)" +"(if(let-values(((or-part_213)" "(eq?" " just-meta_2" " 'all)))" -"(if or-part_211" -" or-part_211" +"(if or-part_213" +" or-part_213" "(eqv?" " just-meta_2" " provide-phase-level_5)))" @@ -25507,11 +25546,11 @@ static const char *startup_source = "(if filter_0" "(let-values()" "(begin" -"(let-values(((lst_150)" -"(let-values(((or-part_212)" +"(let-values(((lst_149)" +"(let-values(((or-part_214)" " only-syms_0))" -"(if or-part_212" -" or-part_212" +"(if or-part_214" +" or-part_214" "(hash-keys" " provides_7)))))" "(begin" @@ -25520,19 +25559,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_150)))" -"((letrec-values(((for-loop_175)" -"(lambda(lst_151)" +" lst_149)))" +"((letrec-values(((for-loop_176)" +"(lambda(lst_150)" "(begin" " 'for-loop" "(if(pair?" -" lst_151)" +" lst_150)" "(let-values(((sym_44)" "(unsafe-car" -" lst_151))" +" lst_150))" "((rest_76)" "(unsafe-cdr" -" lst_151)))" +" lst_150)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25554,7 +25593,7 @@ static const char *startup_source = "((self296_0)" " self_13)" "((mpi297_0)" -" mpi_38)" +" mpi_39)" "((provide-phase-level298_0)" " provide-phase-level_5)" "((phase-shift299_0)" @@ -25598,12 +25637,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_175" +"(for-loop_176" " rest_76)" "(values))))" "(values))))))" -" for-loop_175)" -" lst_150)))" +" for-loop_176)" +" lst_149)))" "(void)))" "(void))" "(if can-bulk?_0" @@ -25615,7 +25654,7 @@ static const char *startup_source = " in-stx_2)" "((temp304_0)" "(bulk-binding14.1" -"(let-values(((or-part_213)" +"(let-values(((or-part_215)" "(if(not" " bulk-prefix_2)" "(if(zero?" @@ -25624,8 +25663,8 @@ static const char *startup_source = " provides_7" " #f)" " #f)))" -"(if or-part_213" -" or-part_213" +"(if or-part_215" +" or-part_215" "(if(not" "(registered-bulk-provide?" " bulk-binding-registry_10" @@ -25638,7 +25677,7 @@ static const char *startup_source = " bulk-prefix_2" " bulk-excepts_2" " self_13" -" mpi_38" +" mpi_39" " provide-phase-level_5" " phase-shift_12" " bulk-binding-registry_10))" @@ -25664,11 +25703,11 @@ static const char *startup_source = "(values)))" "(values)))))" "(if(not #f)" -"(for-loop_174" -"(hash-iterate-next ht_109 i_138))" +"(for-loop_175" +"(hash-iterate-next ht_109 i_139))" "(values))))" "(values))))))" -" for-loop_174)" +" for-loop_175)" "(hash-iterate-first ht_109))))" "(void)))))))))))))))))))))))" "(define-values" @@ -25692,46 +25731,46 @@ static const char *startup_source = "(if(equal? tmp_24 'for-meta)" "(let-values()" "(let-values(((ok?_12 for-meta308_0 phase-level309_0 spec310_0)" -"(let-values(((s_266) req_3))" -"(let-values(((orig-s_16) s_266))" +"(let-values(((s_269) req_3))" +"(let-values(((orig-s_16) s_269))" "(let-values(((for-meta308_1 phase-level309_1 spec310_1)" -"(let-values(((s_267)" -"(if(syntax?$1 s_266)" -"(syntax-e$1 s_266)" -" s_266)))" -"(if(pair? s_267)" -"(let-values(((for-meta311_0)" -"(let-values(((s_268)" -"(car s_267)))" -" s_268))" -"((phase-level312_0 spec313_0)" -"(let-values(((s_269)" -"(cdr s_267)))" "(let-values(((s_270)" -"(if(syntax?$1" -" s_269)" -"(syntax-e$1" -" s_269)" +"(if(syntax?$1 s_269)" +"(syntax-e$1 s_269)" " s_269)))" "(if(pair? s_270)" -"(let-values(((phase-level314_0)" +"(let-values(((for-meta311_0)" "(let-values(((s_271)" -"(car" -" s_270)))" +"(car s_270)))" " s_271))" -"((spec315_0)" +"((phase-level312_0 spec313_0)" "(let-values(((s_272)" -"(cdr" -" s_270)))" +"(cdr s_270)))" "(let-values(((s_273)" "(if(syntax?$1" " s_272)" "(syntax-e$1" " s_272)" " s_272)))" +"(if(pair? s_273)" +"(let-values(((phase-level314_0)" +"(let-values(((s_274)" +"(car" +" s_273)))" +" s_274))" +"((spec315_0)" +"(let-values(((s_275)" +"(cdr" +" s_273)))" +"(let-values(((s_276)" +"(if(syntax?$1" +" s_275)" +"(syntax-e$1" +" s_275)" +" s_275)))" "(let-values(((flat-s_8)" "(to-syntax-list.1" -" s_273)))" +" s_276)))" "(if(not" " flat-s_8)" "(let-values()" @@ -25768,30 +25807,30 @@ static const char *startup_source = "(if(equal? tmp_24 'for-syntax)" "(let-values()" "(let-values(((ok?_13 for-syntax316_0 spec317_0)" -"(let-values(((s_274) req_3))" -"(let-values(((orig-s_17) s_274))" +"(let-values(((s_277) req_3))" +"(let-values(((orig-s_17) s_277))" "(let-values(((for-syntax316_1 spec317_1)" -"(let-values(((s_275)" -"(if(syntax?$1 s_274)" -"(syntax-e$1 s_274)" -" s_274)))" -"(if(pair? s_275)" -"(let-values(((for-syntax318_0)" -"(let-values(((s_276)" -"(car s_275)))" -" s_276))" -"((spec319_0)" -"(let-values(((s_277)" -"(cdr s_275)))" "(let-values(((s_278)" -"(if(syntax?$1" -" s_277)" -"(syntax-e$1" -" s_277)" +"(if(syntax?$1 s_277)" +"(syntax-e$1 s_277)" " s_277)))" +"(if(pair? s_278)" +"(let-values(((for-syntax318_0)" +"(let-values(((s_279)" +"(car s_278)))" +" s_279))" +"((spec319_0)" +"(let-values(((s_280)" +"(cdr s_278)))" +"(let-values(((s_281)" +"(if(syntax?$1" +" s_280)" +"(syntax-e$1" +" s_280)" +" s_280)))" "(let-values(((flat-s_9)" "(to-syntax-list.1" -" s_278)))" +" s_281)))" "(if(not flat-s_9)" "(let-values()" "(raise-syntax-error$1" @@ -25810,30 +25849,30 @@ static const char *startup_source = "(if(equal? tmp_24 'for-template)" "(let-values()" "(let-values(((ok?_14 for-template320_0 spec321_0)" -"(let-values(((s_279) req_3))" -"(let-values(((orig-s_18) s_279))" +"(let-values(((s_282) req_3))" +"(let-values(((orig-s_18) s_282))" "(let-values(((for-template320_1 spec321_1)" -"(let-values(((s_280)" -"(if(syntax?$1 s_279)" -"(syntax-e$1 s_279)" -" s_279)))" -"(if(pair? s_280)" -"(let-values(((for-template322_0)" -"(let-values(((s_281)" -"(car s_280)))" -" s_281))" -"((spec323_0)" -"(let-values(((s_282)" -"(cdr s_280)))" "(let-values(((s_283)" -"(if(syntax?$1" -" s_282)" -"(syntax-e$1" -" s_282)" +"(if(syntax?$1 s_282)" +"(syntax-e$1 s_282)" " s_282)))" +"(if(pair? s_283)" +"(let-values(((for-template322_0)" +"(let-values(((s_284)" +"(car s_283)))" +" s_284))" +"((spec323_0)" +"(let-values(((s_285)" +"(cdr s_283)))" +"(let-values(((s_286)" +"(if(syntax?$1" +" s_285)" +"(syntax-e$1" +" s_285)" +" s_285)))" "(let-values(((flat-s_10)" "(to-syntax-list.1" -" s_283)))" +" s_286)))" "(if(not flat-s_10)" "(let-values()" "(raise-syntax-error$1" @@ -25852,32 +25891,32 @@ static const char *startup_source = "(if(equal? tmp_24 'for-label)" "(let-values()" "(let-values(((ok?_15 for-label324_0 spec325_0)" -"(let-values(((s_284) req_3))" -"(let-values(((orig-s_19) s_284))" +"(let-values(((s_287) req_3))" +"(let-values(((orig-s_19) s_287))" "(let-values(((for-label324_1 spec325_1)" -"(let-values(((s_285)" -"(if(syntax?$1 s_284)" -"(syntax-e$1 s_284)" -" s_284)))" -"(if(pair? s_285)" -"(let-values(((for-label326_0)" -"(let-values(((s_286)" -"(car" -" s_285)))" -" s_286))" -"((spec327_0)" -"(let-values(((s_287)" -"(cdr" -" s_285)))" "(let-values(((s_288)" -"(if(syntax?$1" -" s_287)" -"(syntax-e$1" -" s_287)" +"(if(syntax?$1 s_287)" +"(syntax-e$1 s_287)" " s_287)))" +"(if(pair? s_288)" +"(let-values(((for-label326_0)" +"(let-values(((s_289)" +"(car" +" s_288)))" +" s_289))" +"((spec327_0)" +"(let-values(((s_290)" +"(cdr" +" s_288)))" +"(let-values(((s_291)" +"(if(syntax?$1" +" s_290)" +"(syntax-e$1" +" s_290)" +" s_290)))" "(let-values(((flat-s_11)" "(to-syntax-list.1" -" s_288)))" +" s_291)))" "(if(not flat-s_11)" "(let-values()" "(raise-syntax-error$1" @@ -25898,39 +25937,23 @@ static const char *startup_source = "(if(equal? tmp_24 'just-meta)" "(let-values()" "(let-values(((ok?_16 just-meta328_0 phase-level329_0 spec330_0)" -"(let-values(((s_289) req_3))" -"(let-values(((orig-s_20) s_289))" +"(let-values(((s_292) req_3))" +"(let-values(((orig-s_20) s_292))" "(let-values(((just-meta328_1" " phase-level329_1" " spec330_1)" -"(let-values(((s_290)" -"(if(syntax?$1 s_289)" -"(syntax-e$1 s_289)" -" s_289)))" -"(if(pair? s_290)" -"(let-values(((just-meta331_0)" -"(let-values(((s_291)" -"(car" -" s_290)))" -" s_291))" -"((phase-level332_0" -" spec333_0)" -"(let-values(((s_292)" -"(cdr" -" s_290)))" "(let-values(((s_293)" -"(if(syntax?$1" -" s_292)" -"(syntax-e$1" -" s_292)" +"(if(syntax?$1 s_292)" +"(syntax-e$1 s_292)" " s_292)))" "(if(pair? s_293)" -"(let-values(((phase-level334_0)" +"(let-values(((just-meta331_0)" "(let-values(((s_294)" "(car" " s_293)))" " s_294))" -"((spec335_0)" +"((phase-level332_0" +" spec333_0)" "(let-values(((s_295)" "(cdr" " s_293)))" @@ -25940,9 +25963,25 @@ static const char *startup_source = "(syntax-e$1" " s_295)" " s_295)))" +"(if(pair? s_296)" +"(let-values(((phase-level334_0)" +"(let-values(((s_297)" +"(car" +" s_296)))" +" s_297))" +"((spec335_0)" +"(let-values(((s_298)" +"(cdr" +" s_296)))" +"(let-values(((s_299)" +"(if(syntax?$1" +" s_298)" +"(syntax-e$1" +" s_298)" +" s_298)))" "(let-values(((flat-s_12)" "(to-syntax-list.1" -" s_296)))" +" s_299)))" "(if(not" " flat-s_12)" "(let-values()" @@ -25993,7 +26032,7 @@ static const char *startup_source = "((temp338_0)(phase-(module-binding-phase binding_17) phase-level_16))" "((temp339_0) #t))" "(namespace->module-namespace82.1 #f #f temp339_0 #t #f #f m-ns336_0 temp337_0 temp338_0))))" -"(let-values(((val_46)" +"(let-values(((val_47)" "(namespace-get-variable" " i-ns_0" "(module-binding-phase binding_17)" @@ -26015,7 +26054,7 @@ static const char *startup_source = " m-ns_11" "(phase+ phase-shift_13 phase-level_16)" " adjusted-sym_1" -" val_46" +" val_47" " as-constant?_1))))))" "(define-values" "(top-level-instance)" @@ -26024,10 +26063,10 @@ static const char *startup_source = " #f" " 'constant" " top-level-bind!-id" -"(lambda(id_21 mpi_39 orig-phase_0 phase-shift_14 ns_51 sym_46 trans?_0 trans-val_0)" +"(lambda(id_21 mpi_40 orig-phase_0 phase-shift_14 ns_51 sym_46 trans?_0 trans-val_0)" "(let-values(((phase_45)(phase+ orig-phase_0 phase-shift_14)))" "(let-values(((b_67)" -"(let-values(((mpi4_0) mpi_39)" +"(let-values(((mpi4_0) mpi_40)" "((phase5_0) phase_45)" "((sym6_1) sym_46)" "((temp7_0)(root-expand-context-frame-id(namespace-get-root-expand-ctx ns_51))))" @@ -26162,7 +26201,7 @@ static const char *startup_source = "(make-struct-field-accessor -ref_0 1 'other))))" "(define-values" "(swap-top-level-scopes)" -"(lambda(s_297 original-scopes-s_0 new-ns_0)" +"(lambda(s_300 original-scopes-s_0 new-ns_0)" "(begin" "(let-values(((old-scs-post_0 old-scs-other_0)" "(if(namespace-scopes? original-scopes-s_0)" @@ -26170,7 +26209,7 @@ static const char *startup_source = "(decode-namespace-scopes original-scopes-s_0))))" "(let-values(((new-scs-post_0 new-scs-other_0)(extract-namespace-scopes/values new-ns_0)))" "(syntax-swap-scopes" -"(syntax-swap-scopes s_297 old-scs-post_0 new-scs-post_0)" +"(syntax-swap-scopes s_300 old-scs-post_0 new-scs-post_0)" " old-scs-other_0" " new-scs-other_0))))))" "(define-values" @@ -26314,7 +26353,7 @@ static const char *startup_source = "(begin(check-vector vec_54)(values vec_54(unsafe-vector-length vec_54))))))" "(begin" " #f" -"((letrec-values(((for-loop_176)" +"((letrec-values(((for-loop_177)" "(lambda(pos_85)" "(begin" " 'for-loop" @@ -26329,9 +26368,9 @@ static const char *startup_source = "(add-syntax-literal! sl_1 e_12))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_176(unsafe-fx+ 1 pos_85))(values))))" +"(if(not #f)(for-loop_177(unsafe-fx+ 1 pos_85))(values))))" "(values))))))" -" for-loop_176)" +" for-loop_177)" " 0)))" "(void)" "(cons pos_84(vector-length vec_52)))))))" @@ -26479,33 +26518,33 @@ static const char *startup_source = "(symbol-conflicts?)" "(lambda(sym_48 header_1)" "(begin" -"(let-values(((or-part_178)(built-in-symbol? sym_48)))" -"(if or-part_178 or-part_178(hash-ref(header-define-and-import-syms header_1) sym_48 #f))))))" +"(let-values(((or-part_179)(built-in-symbol? sym_48)))" +"(if or-part_179 or-part_179(hash-ref(header-define-and-import-syms header_1) sym_48 #f))))))" "(define-values" "(register-required-variable-use!19.1)" "(lambda(defined?12_0 defined?13_0 header14_0 mpi15_0 phase16_1 sym17_0 extra-inspector18_0)" "(begin" " 'register-required-variable-use!19" "(let-values(((header_2) header14_0))" -"(let-values(((mpi_40) mpi15_0))" +"(let-values(((mpi_41) mpi15_0))" "(let-values(((phase_68) phase16_1))" "(let-values(((sym_49) sym17_0))" "(let-values(((extra-inspector_4) extra-inspector18_0))" "(let-values(((defined?_2)(if defined?13_0 defined?12_0 #f)))" "(let-values()" -"(let-values(((key_55)(variable-use3.1(module-use1.1 mpi_40 phase_68) sym_49)))" +"(let-values(((key_57)(variable-use3.1(module-use1.1 mpi_41 phase_68) sym_49)))" "(let-values(((variable-uses_0)(header-require-var-to-import-sym header_2)))" -"(let-values(((prev-var-sym_0)(hash-ref variable-uses_0 key_55 #f)))" +"(let-values(((prev-var-sym_0)(hash-ref variable-uses_0 key_57 #f)))" "(let-values(((var-sym_0)" -"(let-values(((or-part_58) prev-var-sym_0))" -"(if or-part_58" -" or-part_58" -"(let-values(((sym_50)(select-fresh(variable-use-sym key_55) header_2)))" +"(let-values(((or-part_216) prev-var-sym_0))" +"(if or-part_216" +" or-part_216" +"(let-values(((sym_50)(select-fresh(variable-use-sym key_57) header_2)))" "(begin" -"(hash-set! variable-uses_0 key_55 sym_50)" +"(hash-set! variable-uses_0 key_57 sym_50)" "(set-header-require-vars-in-order!" " header_2" -"(cons key_55(header-require-vars-in-order header_2)))" +"(cons key_57(header-require-vars-in-order header_2)))" "(hash-set!" "(header-define-and-import-syms header_2)" " sym_50" @@ -26518,7 +26557,7 @@ static const char *startup_source = "(hash-update!" " extra-inspectors_0" " var-sym_0" -"(lambda(s_298)(set-add s_298 extra-inspector_4))" +"(lambda(s_301)(set-add s_301 extra-inspector_4))" " '#hasheq())))" "(void))" " var-sym_0)))))))))))))))" @@ -26534,18 +26573,18 @@ static const char *startup_source = "(lambda(header_5 phase_69 cctx_0 cross-linklet-inlining?_0)" "(begin" "(let-values(((mod-use-ht_0 link-mod-uses_0)" -"(let-values(((lst_152)(header-require-vars-in-order header_5)))" +"(let-values(((lst_151)(header-require-vars-in-order header_5)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_152)))" -"((letrec-values(((for-loop_177)" -"(lambda(ht_110 link-mod-uses_1 lst_153)" +"(let-values()(check-list lst_151)))" +"((letrec-values(((for-loop_178)" +"(lambda(ht_110 link-mod-uses_1 lst_152)" "(begin" " 'for-loop" -"(if(pair? lst_153)" -"(let-values(((vu_0)(unsafe-car lst_153))" -"((rest_77)(unsafe-cdr lst_153)))" +"(if(pair? lst_152)" +"(let-values(((vu_0)(unsafe-car lst_152))" +"((rest_77)(unsafe-cdr lst_152)))" "(let-values(((ht_111 link-mod-uses_2)" "(let-values(((ht_112) ht_110)" "((link-mod-uses_3) link-mod-uses_1))" @@ -26554,21 +26593,21 @@ static const char *startup_source = "(let-values(((mu_2)" "(variable-use-module-use" " vu_0)))" -"(if(let-values(((or-part_163)" +"(if(let-values(((or-part_164)" "(hash-ref" " ht_112" " mu_2" " #f)))" -"(if or-part_163" -" or-part_163" -"(let-values(((or-part_214)" +"(if or-part_164" +" or-part_164" +"(let-values(((or-part_217)" "(eq?" "(module-use-module" " mu_2)" "(compile-context-self" " cctx_0))))" -"(if or-part_214" -" or-part_214" +"(if or-part_217" +" or-part_217" "(top-level-module-path-index?" "(module-use-module" " mu_2))))))" @@ -26578,25 +26617,25 @@ static const char *startup_source = "(cons mu_2 link-mod-uses_3)))))))" "(values ht_113 link-mod-uses_4)))))" "(if(not #f)" -"(for-loop_177 ht_111 link-mod-uses_2 rest_77)" +"(for-loop_178 ht_111 link-mod-uses_2 rest_77)" "(values ht_111 link-mod-uses_2))))" "(values ht_110 link-mod-uses_1))))))" -" for-loop_177)" +" for-loop_178)" " '#hash()" " null" -" lst_152)))))" +" lst_151)))))" "(values" " link-mod-uses_0" "(reverse$1" -"(let-values(((lst_154) link-mod-uses_0))" +"(let-values(((lst_153) link-mod-uses_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_154)))" -"((letrec-values(((for-loop_178)" -"(lambda(fold-var_138 lst_155)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_153)))" +"((letrec-values(((for-loop_179)" +"(lambda(fold-var_138 lst_154)" "(begin" " 'for-loop" -"(if(pair? lst_155)" -"(let-values(((mu_3)(unsafe-car lst_155))((rest_78)(unsafe-cdr lst_155)))" +"(if(pair? lst_154)" +"(let-values(((mu_3)(unsafe-car lst_154))((rest_78)(unsafe-cdr lst_154)))" "(let-values(((fold-var_139)" "(let-values(((fold-var_140) fold-var_138))" "(let-values(((fold-var_141)" @@ -26612,7 +26651,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_53)))" -"((letrec-values(((for-loop_73)" +"((letrec-values(((for-loop_74)" "(lambda(fold-var_39" " lst_54)" "(begin" @@ -26657,31 +26696,31 @@ static const char *startup_source = " fold-var_142)))" " fold-var_41))))" "(if(not #f)" -"(for-loop_73" +"(for-loop_74" " fold-var_40" " rest_23)" " fold-var_40)))" " fold-var_39)))))" -" for-loop_73)" +" for-loop_74)" " null" " lst_53)))))" " fold-var_140))))" "(values fold-var_141)))))" -"(if(not #f)(for-loop_178 fold-var_139 rest_78) fold-var_139)))" +"(if(not #f)(for-loop_179 fold-var_139 rest_78) fold-var_139)))" " fold-var_138)))))" -" for-loop_178)" +" for-loop_179)" " null" -" lst_154))))" +" lst_153))))" "(reverse$1" -"(let-values(((lst_156) link-mod-uses_0))" +"(let-values(((lst_155) link-mod-uses_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_156)))" -"((letrec-values(((for-loop_179)" -"(lambda(fold-var_143 lst_157)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_155)))" +"((letrec-values(((for-loop_180)" +"(lambda(fold-var_143 lst_156)" "(begin" " 'for-loop" -"(if(pair? lst_157)" -"(let-values(((mu_4)(unsafe-car lst_157))((rest_79)(unsafe-cdr lst_157)))" +"(if(pair? lst_156)" +"(let-values(((mu_4)(unsafe-car lst_156))((rest_79)(unsafe-cdr lst_156)))" "(let-values(((fold-var_144)" "(let-values(((fold-var_145) fold-var_143))" "(let-values(((fold-var_146)" @@ -26689,7 +26728,7 @@ static const char *startup_source = "(cons" "(let-values()" "(let-values(((extra-inspectorss_0)" -"(let-values(((lst_110)" +"(let-values(((lst_109)" "(header-require-vars-in-order" " header_5)))" "(begin" @@ -26697,20 +26736,20 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_110)))" -"((letrec-values(((for-loop_123)" +"(check-list lst_109)))" +"((letrec-values(((for-loop_124)" "(lambda(table_145" -" lst_158)" +" lst_157)" "(begin" " 'for-loop" "(if(pair?" -" lst_158)" +" lst_157)" "(let-values(((vu_2)" "(unsafe-car" -" lst_158))" +" lst_157))" "((rest_24)" "(unsafe-cdr" -" lst_158)))" +" lst_157)))" "(let-values(((table_29)" "(let-values(((table_34)" " table_145))" @@ -26725,7 +26764,7 @@ static const char *startup_source = " vu_2)))" "(begin" " #t" -"((letrec-values(((for-loop_180)" +"((letrec-values(((for-loop_181)" "(lambda(table_30)" "(begin" " 'for-loop" @@ -26739,7 +26778,7 @@ static const char *startup_source = " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_181)" +"((letrec-values(((for-loop_182)" "(lambda(table_146)" "(begin" " 'for-loop" @@ -26747,74 +26786,74 @@ static const char *startup_source = "(let-values(((table_147)" "(let-values(((table_148)" " table_146))" -"(if(let-values(((or-part_215)" +"(if(let-values(((or-part_218)" " extra-inspectors_1))" -"(if or-part_215" -" or-part_215" +"(if or-part_218" +" or-part_218" " cross-linklet-inlining?_0))" "(let-values(((table_149)" " table_148))" "(let-values(((table_121)" "(let-values()" -"(let-values(((key_56" -" val_47)" +"(let-values(((key_58" +" val_48)" "(let-values()" "(values" " var-sym_3" " extra-inspectors_1))))" "(hash-set" " table_149" -" key_56" -" val_47)))))" +" key_58" +" val_48)))))" "(values" " table_121)))" " table_148))))" " table_147))))))" -" for-loop_181)" +" for-loop_182)" " table_30)))))" " table_31))))))" -" for-loop_180)" +" for-loop_181)" " table_34)))" " table_34))))" "(if(not" " #f)" -"(for-loop_123" +"(for-loop_124" " table_29" " rest_24)" " table_29)))" " table_145)))))" -" for-loop_123)" +" for-loop_124)" " '#hash()" -" lst_110)))))" +" lst_109)))))" "(if(hash-count extra-inspectorss_0)" " extra-inspectorss_0" " #f)))" " fold-var_145))))" "(values fold-var_146)))))" -"(if(not #f)(for-loop_179 fold-var_144 rest_79) fold-var_144)))" +"(if(not #f)(for-loop_180 fold-var_144 rest_79) fold-var_144)))" " fold-var_143)))))" -" for-loop_179)" +" for-loop_180)" " null" -" lst_156))))" +" lst_155))))" "(reverse$1" -"(let-values(((lst_159)(header-require-vars-in-order header_5)))" +"(let-values(((lst_158)(header-require-vars-in-order header_5)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_159)))" -"((letrec-values(((for-loop_182)" -"(lambda(fold-var_147 lst_160)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_158)))" +"((letrec-values(((for-loop_183)" +"(lambda(fold-var_147 lst_159)" "(begin" " 'for-loop" -"(if(pair? lst_160)" -"(let-values(((vu_3)(unsafe-car lst_160))((rest_80)(unsafe-cdr lst_160)))" +"(if(pair? lst_159)" +"(let-values(((vu_3)(unsafe-car lst_159))((rest_80)(unsafe-cdr lst_159)))" "(let-values(((fold-var_148)" "(let-values(((fold-var_149) fold-var_147))" "(if(let-values(((mod_2)" "(module-use-module" "(variable-use-module-use vu_3))))" -"(let-values(((or-part_216)" +"(let-values(((or-part_219)" "(eq? mod_2(compile-context-self cctx_0))))" -"(if or-part_216" -" or-part_216" +"(if or-part_219" +" or-part_219" "(top-level-module-path-index? mod_2))))" "(let-values(((fold-var_150) fold-var_149))" "(let-values(((fold-var_151)" @@ -26834,11 +26873,11 @@ static const char *startup_source = " fold-var_150))))" "(values fold-var_151)))" " fold-var_149))))" -"(if(not #f)(for-loop_182 fold-var_148 rest_80) fold-var_148)))" +"(if(not #f)(for-loop_183 fold-var_148 rest_80) fold-var_148)))" " fold-var_147)))))" -" for-loop_182)" +" for-loop_183)" " null" -" lst_159)))))))))" +" lst_158)))))))))" "(define-values" "(instance-imports)" "(list ns-id phase-shift-id self-id inspector-id bulk-binding-registry-id set-transformer!-id))" @@ -26882,7 +26921,7 @@ static const char *startup_source = "(1/make-instance 'empty-stx #f 'constant get-syntax-literal!-id(lambda(pos_89) #f) 'get-encoded-root-expand-ctx #f))" "(define-values" "(empty-module-body-instance)" -"(let-values(((temp21_0)(lambda(name_39 val_48)(void))))(make-module-body-instance-instance18.1 temp21_0)))" +"(let-values(((temp21_0)(lambda(name_39 val_49)(void))))(make-module-body-instance-instance18.1 temp21_0)))" "(define-values" "(empty-top-syntax-literal-instance)" "(1/make-instance 'top-syntax-literal #f 'constant mpi-vector-id #f syntax-literals-id #f))" @@ -26891,8 +26930,8 @@ static const char *startup_source = "(1/make-instance 'empty-stx-data #f 'constant deserialized-syntax-vector-id(vector) deserialize-syntax-id void))" "(define-values" "(empty-instance-instance)" -"(let-values(((temp22_2) #f)((temp23_2) #f)((temp24_3) #f)((temp25_2) #f)((temp26_0) #f)((temp27_3) #f))" -"(make-instance-instance13.1 temp26_0 temp25_2 temp22_2 temp23_2 temp24_3 temp27_3)))" +"(let-values(((temp22_2) #f)((temp23_2) #f)((temp24_2) #f)((temp25_2) #f)((temp26_0) #f)((temp27_3) #f))" +"(make-instance-instance13.1 temp26_0 temp25_2 temp22_2 temp23_2 temp24_2 temp27_3)))" "(define-values" "(eager-instance-imports)" "(list* ns-id dest-phase-id self-id bulk-binding-registry-id inspector-id '(swap-top-level-scopes)))" @@ -26982,18 +27021,18 @@ static const char *startup_source = "(define-values" "(correlated-property)" "(case-lambda" -"((e_30 k_30)(begin(syntax-property$2 e_30 k_30)))" -"((e_31 k_31 v_127)(syntax-property$2 e_31 k_31 v_127))))" +"((e_30 k_31)(begin(syntax-property$2 e_30 k_31)))" +"((e_31 k_32 v_127)(syntax-property$2 e_31 k_32 v_127))))" "(define-values" "(to-syntax-list.1$1)" -"(lambda(s_299)" +"(lambda(s_302)" "(begin" " 'to-syntax-list" -"(if(list? s_299)" -"(let-values() s_299)" -"(if(pair? s_299)" -"(let-values()(let-values(((r_38)(to-syntax-list.1$1(cdr s_299))))(if r_38(cons(car s_299) r_38) #f)))" -"(if(1/syntax? s_299)(let-values()(to-syntax-list.1$1(syntax-e$2 s_299)))(let-values() #f)))))))" +"(if(list? s_302)" +"(let-values() s_302)" +"(if(pair? s_302)" +"(let-values()(let-values(((r_39)(to-syntax-list.1$1(cdr s_302))))(if r_39(cons(car s_302) r_39) #f)))" +"(if(1/syntax? s_302)(let-values()(to-syntax-list.1$1(syntax-e$2 s_302)))(let-values() #f)))))))" "(define-values" "(srcloc->vector)" "(lambda(s_6)" @@ -27028,8 +27067,8 @@ static const char *startup_source = "(let-values(((s_10)(parsed-s p_36)))" "(if(parsed-id? p_36)" "(let-values()" -"(let-values(((p27_1) p_36)((cctx28_0) cctx_1))" -"(compile-identifier24.1 #f #f #f #f p27_1 cctx28_0)))" +"(let-values(((p27_0) p_36)((cctx28_0) cctx_1))" +"(compile-identifier24.1 #f #f #f #f p27_0 cctx28_0)))" "(if(parsed-lambda? p_36)" "(let-values()" "(if result-used?_0" @@ -27056,24 +27095,24 @@ static const char *startup_source = "(list*" " 'case-lambda" "(reverse$1" -"(let-values(((lst_161)(parsed-case-lambda-clauses p_36)))" +"(let-values(((lst_160)(parsed-case-lambda-clauses p_36)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_161)))" -"((letrec-values(((for-loop_183)" -"(lambda(fold-var_31 lst_162)" +"(let-values()(check-list lst_160)))" +"((letrec-values(((for-loop_184)" +"(lambda(fold-var_152 lst_161)" "(begin" " 'for-loop" -"(if(pair? lst_162)" +"(if(pair? lst_161)" "(let-values(((clause_0)" -"(unsafe-car lst_162))" +"(unsafe-car lst_161))" "((rest_81)" -"(unsafe-cdr lst_162)))" -"(let-values(((fold-var_66)" -"(let-values(((fold-var_152)" -" fold-var_31))" -"(let-values(((fold-var_153)" +"(unsafe-cdr lst_161)))" +"(let-values(((fold-var_28)" +"(let-values(((fold-var_29)" +" fold-var_152))" +"(let-values(((fold-var_30)" "(let-values()" "(cons" "(let-values()" @@ -27083,16 +27122,16 @@ static const char *startup_source = "(cadr" " clause_0)" " cctx_1))" -" fold-var_152))))" +" fold-var_29))))" "(values" -" fold-var_153)))))" +" fold-var_30)))))" "(if(not #f)" -"(for-loop_183 fold-var_66 rest_81)" -" fold-var_66)))" -" fold-var_31)))))" -" for-loop_183)" +"(for-loop_184 fold-var_28 rest_81)" +" fold-var_28)))" +" fold-var_152)))))" +" for-loop_184)" " null" -" lst_161))))))" +" lst_160))))))" " name_40" " s_10))" "(let-values()(correlate~ s_10 ''unused-case-lambda))))" @@ -27109,33 +27148,33 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_42)))" -"((letrec-values(((for-loop_184)" -"(lambda(fold-var_154 lst_163)" +"((letrec-values(((for-loop_185)" +"(lambda(fold-var_153 lst_162)" "(begin" " 'for-loop" -"(if(pair? lst_163)" -"(let-values(((r_39)(unsafe-car lst_163))" +"(if(pair? lst_162)" +"(let-values(((r_40)(unsafe-car lst_162))" "((rest_42)" -"(unsafe-cdr lst_163)))" -"(let-values(((fold-var_155)" +"(unsafe-cdr lst_162)))" +"(let-values(((fold-var_154)" "(let-values(((fold-var_9)" -" fold-var_154))" +" fold-var_153))" "(let-values(((fold-var_68)" "(let-values()" "(cons" "(let-values()" "(compile_0" -" r_39" +" r_40" " #f" " #t))" " fold-var_9))))" "(values" " fold-var_68)))))" "(if(not #f)" -"(for-loop_184 fold-var_155 rest_42)" -" fold-var_155)))" -" fold-var_154)))))" -" for-loop_184)" +"(for-loop_185 fold-var_154 rest_42)" +" fold-var_154)))" +" fold-var_153)))))" +" for-loop_185)" " null" " lst_42))))))))" "(if(parsed-if? p_36)" @@ -27175,24 +27214,24 @@ static const char *startup_source = " 'begin0" "(compile_0(car(parsed-begin0-body p_36)) name_40 result-used?_0)" "(reverse$1" -"(let-values(((lst_91)(cdr(parsed-begin0-body p_36))))" +"(let-values(((lst_90)(cdr(parsed-begin0-body p_36))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_91)))" -"((letrec-values(((for-loop_106)" -"(lambda(fold-var_11 lst_92)" +"(let-values()(check-list lst_90)))" +"((letrec-values(((for-loop_107)" +"(lambda(fold-var_11 lst_91)" "(begin" " 'for-loop" -"(if(pair? lst_92)" +"(if(pair? lst_91)" "(let-values(((e_32)" -"(unsafe-car lst_92))" +"(unsafe-car lst_91))" "((rest_43)" -"(unsafe-cdr lst_92)))" +"(unsafe-cdr lst_91)))" "(let-values(((fold-var_90)" "(let-values(((fold-var_91)" " fold-var_11))" -"(let-values(((fold-var_156)" +"(let-values(((fold-var_155)" "(let-values()" "(cons" "(let-values()" @@ -27202,16 +27241,16 @@ static const char *startup_source = " #f))" " fold-var_91))))" "(values" -" fold-var_156)))))" +" fold-var_155)))))" "(if(not #f)" -"(for-loop_106" +"(for-loop_107" " fold-var_90" " rest_43)" " fold-var_90)))" " fold-var_11)))))" -" for-loop_106)" +" for-loop_107)" " null" -" lst_91)))))))" +" lst_90)))))))" "(if(parsed-begin? p_36)" "(let-values()" "(correlate~" @@ -27242,14 +27281,14 @@ static const char *startup_source = " cctx30_0))))" "(if(parsed-let-values? p_36)" "(let-values()" -"(let-values(((p33_1) p_36)" +"(let-values(((p33_0) p_36)" "((cctx34_0) cctx_1)" "((name35_0) name_40)" "((temp36_0) #f)" "((result-used?37_0) result-used?_0))" "(compile-let15.1" " temp36_0" -" p33_1" +" p33_0" " cctx34_0" " name35_0" " result-used?37_0)))" @@ -27324,28 +27363,28 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_164) es_0)((start_33) 0))" +"(let-values(((lst_163) es_0)((start_33) 0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_164)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_163)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_33)))" -"((letrec-values(((for-loop_185)" -"(lambda(fold-var_157 lst_97 pos_90)" +"((letrec-values(((for-loop_186)" +"(lambda(fold-var_156 lst_96 pos_90)" "(begin" " 'for-loop" -"(if(if(pair? lst_97) #t #f)" -"(let-values(((e_33)(unsafe-car lst_97))" -"((rest_82)(unsafe-cdr lst_97))" -"((i_100) pos_90))" -"(let-values(((fold-var_158)" -"(let-values(((fold-var_79) fold-var_157))" +"(if(if(pair? lst_96) #t #f)" +"(let-values(((e_33)(unsafe-car lst_96))" +"((rest_82)(unsafe-cdr lst_96))" +"((i_101) pos_90))" +"(let-values(((fold-var_157)" +"(let-values(((fold-var_79) fold-var_156))" "(let-values(((fold-var_80)" "(let-values()" "(cons" "(let-values()" "(let-values(((used?_0)" -"(= i_100 used-pos_0)))" +"(= i_101 used-pos_0)))" "(compile$2" " e_33" " cctx_7" @@ -27353,44 +27392,44 @@ static const char *startup_source = "(if used?_0 result-used?_3 #f))))" " fold-var_79))))" "(values fold-var_80)))))" -"(if(not #f)(for-loop_185 fold-var_158 rest_82(+ pos_90 1)) fold-var_158)))" -" fold-var_157)))))" -" for-loop_185)" +"(if(not #f)(for-loop_186 fold-var_157 rest_82(+ pos_90 1)) fold-var_157)))" +" fold-var_156)))))" +" for-loop_186)" " null" -" lst_164" +" lst_163" " start_33)))))))))" "(define-values" "(add-lambda-properties)" -"(lambda(s_300 inferred-name_0 orig-s_21)" +"(lambda(s_303 inferred-name_0 orig-s_21)" "(begin" "(letrec-values(((simplify-name_0)" -"(lambda(v_155)" +"(lambda(v_154)" "(begin" " 'simplify-name" -"(if(pair? v_155)" +"(if(pair? v_154)" "(let-values()" -"(let-values(((n1_0)(simplify-name_0(car v_155))))" -"(let-values(((n2_0)(simplify-name_0(cdr v_155))))(if(eq? n1_0 n2_0) n1_0 v_155))))" -"(let-values() v_155))))))" +"(let-values(((n1_0)(simplify-name_0(car v_154))))" +"(let-values(((n2_0)(simplify-name_0(cdr v_154))))(if(eq? n1_0 n2_0) n1_0 v_154))))" +"(let-values() v_154))))))" "(let-values(((name_45)" -"(let-values(((or-part_217)" -"(let-values(((v_156)" +"(let-values(((or-part_220)" +"(let-values(((v_155)" "(simplify-name_0(syntax-property$1 orig-s_21 'inferred-name))))" -"(if(let-values(((or-part_136)(symbol? v_156)))" -"(if or-part_136" -" or-part_136" -"(let-values(((or-part_218)(syntax?$1 v_156)))" -"(if or-part_218 or-part_218(void? v_156)))))" -" v_156" +"(if(let-values(((or-part_135)(symbol? v_155)))" +"(if or-part_135" +" or-part_135" +"(let-values(((or-part_221)(syntax?$1 v_155)))" +"(if or-part_221 or-part_221(void? v_155)))))" +" v_155" " #f))))" -"(if or-part_217 or-part_217 inferred-name_0))))" +"(if or-part_220 or-part_220 inferred-name_0))))" "(let-values(((named-s_0)" "(if name_45" "(correlated-property" -"(->correlated s_300)" +"(->correlated s_303)" " 'inferred-name" "(if(syntax?$1 name_45)(syntax-e$1 name_45) name_45))" -" s_300)))" +" s_303)))" "(let-values(((as-method_0)(syntax-property$1 orig-s_21 'method-arity-error)))" "(if as-method_0" "(correlated-property(->correlated named-s_0) 'method-arity-error as-method_0)" @@ -27412,26 +27451,26 @@ static const char *startup_source = "(list" "(if rec?_0 'letrec-values 'let-values)" "(reverse$1" -"(let-values(((lst_165)(parsed-let_-values-clauses p_41))" -"((lst_166)(parsed-let_-values-idss p_41)))" +"(let-values(((lst_164)(parsed-let_-values-clauses p_41))" +"((lst_165)(parsed-let_-values-idss p_41)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_164)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_165)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_166)))" -"((letrec-values(((for-loop_186)" -"(lambda(fold-var_159 lst_167 lst_168)" +"((letrec-values(((for-loop_187)" +"(lambda(fold-var_158 lst_166 lst_167)" "(begin" " 'for-loop" -"(if(if(pair? lst_167)(pair? lst_168) #f)" -"(let-values(((clause_1)(unsafe-car lst_167))" -"((rest_83)(unsafe-cdr lst_167))" -"((ids_4)(unsafe-car lst_168))" -"((rest_84)(unsafe-cdr lst_168)))" -"(let-values(((fold-var_160)" -"(let-values(((fold-var_161) fold-var_159))" +"(if(if(pair? lst_166)(pair? lst_167) #f)" +"(let-values(((clause_1)(unsafe-car lst_166))" +"((rest_83)(unsafe-cdr lst_166))" +"((ids_4)(unsafe-car lst_167))" +"((rest_84)(unsafe-cdr lst_167)))" +"(let-values(((fold-var_159)" +"(let-values(((fold-var_160) fold-var_158))" "(let-values(((fold-var_0)" "(let-values()" "(cons" @@ -27439,10 +27478,10 @@ static const char *startup_source = "(list" "(if rec?_0" "(reverse$1" -"(let-values(((lst_169)" +"(let-values(((lst_168)" "(car" " clause_1))" -"((lst_170)" +"((lst_169)" " ids_4))" "(begin" "(if(variable-reference-from-unsafe?" @@ -27450,61 +27489,61 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_169)))" +" lst_168)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_170)))" -"((letrec-values(((for-loop_187)" +" lst_169)))" +"((letrec-values(((for-loop_188)" "(lambda(fold-var_2" -" lst_171" -" lst_172)" +" lst_170" +" lst_171)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_171)" +" lst_170)" "(pair?" -" lst_172)" +" lst_171)" " #f)" "(let-values(((sym_51)" "(unsafe-car" -" lst_171))" +" lst_170))" "((rest_85)" "(unsafe-cdr" -" lst_171))" +" lst_170))" "((id_45)" "(unsafe-car" -" lst_172))" +" lst_171))" "((rest_86)" "(unsafe-cdr" -" lst_172)))" +" lst_171)))" "(let-values(((fold-var_92)" -"(let-values(((fold-var_162)" +"(let-values(((fold-var_161)" " fold-var_2))" -"(let-values(((fold-var_163)" +"(let-values(((fold-var_162)" "(let-values()" "(cons" "(let-values()" "(add-undefined-error-name-property" " sym_51" " id_45))" -" fold-var_162))))" +" fold-var_161))))" "(values" -" fold-var_163)))))" +" fold-var_162)))))" "(if(not" " #f)" -"(for-loop_187" +"(for-loop_188" " fold-var_92" " rest_85" " rest_86)" " fold-var_92)))" " fold-var_2)))))" -" for-loop_187)" +" for-loop_188)" " null" -" lst_169" -" lst_170))))" +" lst_168" +" lst_169))))" "(car clause_1))" "(compile$2" "(cadr clause_1)" @@ -27512,16 +27551,16 @@ static const char *startup_source = "(if(= 1(length ids_4))" "(car ids_4)" " #f))))" -" fold-var_161))))" +" fold-var_160))))" "(values fold-var_0)))))" "(if(not #f)" -"(for-loop_186 fold-var_160 rest_83 rest_84)" -" fold-var_160)))" -" fold-var_159)))))" -" for-loop_186)" +"(for-loop_187 fold-var_159 rest_83 rest_84)" +" fold-var_159)))" +" fold-var_158)))))" +" for-loop_187)" " null" -" lst_165" -" lst_166))))" +" lst_164" +" lst_165))))" "(compile-sequence body_0 cctx_8 name_46 result-used?_4)))))))))))))" "(define-values" "(add-undefined-error-name-property)" @@ -27545,9 +27584,9 @@ static const char *startup_source = "(let-values()" "(let-values(((normal-b_0)(parsed-id-binding p_42)))" "(let-values(((b_68)" -"(let-values(((or-part_219) normal-b_0))" -"(if or-part_219" -" or-part_219" +"(let-values(((or-part_222) normal-b_0))" +"(if or-part_222" +" or-part_222" "(let-values(((temp45_0)(compile-context-self cctx_9))" "((temp46_0)(compile-context-phase cctx_9))" "((temp47_0)(syntax-e$1(parsed-s p_42))))" @@ -27578,7 +27617,7 @@ static const char *startup_source = "(let-values()(local-binding-key b_68))" "(if(module-binding? b_68)" "(let-values()" -"(let-values(((mpi_41)" +"(let-values(((mpi_42)" "(if(parsed-top-id? p_42)" "(compile-context-self cctx_9)" "(module-binding-module b_68))))" @@ -27596,7 +27635,7 @@ static const char *startup_source = "(module-binding-sym b_68)))" "(void))" "(module-binding-sym b_68)))" -"(if(eq? mpi_41(compile-context-module-self cctx_9))" +"(if(eq? mpi_42(compile-context-module-self cctx_9))" "(let-values()" "(let-values(((header_6)(compile-context-header cctx_9)))" "(hash-ref" @@ -27604,18 +27643,18 @@ static const char *startup_source = "(module-binding-sym b_68))))" "(let-values()" "(let-values(((temp48_0)(compile-context-header cctx_9))" -"((mpi49_0) mpi_41)" +"((mpi49_0) mpi_42)" "((temp50_0)(module-binding-phase b_68))" "((temp51_0)(module-binding-sym b_68))" "((temp52_1)" -"(let-values(((or-part_101)" +"(let-values(((or-part_100)" "(module-binding-extra-inspector b_68)))" -"(if or-part_101" -" or-part_101" -"(let-values(((or-part_220)" +"(if or-part_100" +" or-part_100" +"(let-values(((or-part_223)" "(parsed-id-inspector p_42)))" -"(if or-part_220" -" or-part_220" +"(if or-part_223" +" or-part_223" "(if(parsed-s p_42)" "(syntax-inspector(parsed-s p_42))" " #f)))))))" @@ -27654,12 +27693,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_114)))" -"((letrec-values(((for-loop_93)" -"(lambda(result_78 i_139)" +"((letrec-values(((for-loop_95)" +"(lambda(result_78 i_140)" "(begin" " 'for-loop" -"(if i_139" -"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_114 i_139)))" +"(if i_140" +"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_114 i_140)))" "(let-values(((result_79)" "(let-values()" "(let-values(((result_80)" @@ -27670,10 +27709,10 @@ static const char *startup_source = " guard-insp_0)))))" "(values result_80)))))" "(if(if(not((lambda x_53(not result_79)) extra-insp_0))(not #f) #f)" -"(for-loop_93 result_79(unsafe-immutable-hash-iterate-next ht_114 i_139))" +"(for-loop_95 result_79(unsafe-immutable-hash-iterate-next ht_114 i_140))" " result_79)))" " result_78)))))" -" for-loop_93)" +" for-loop_95)" " #t" "(unsafe-immutable-hash-iterate-first ht_114)))))" "(if(procedure? extra-inspectors_2)" @@ -27687,8 +27726,8 @@ static const char *startup_source = "(extra-inspectors-merge)" "(lambda(extra-inspectors-1_0 extra-inspectors-2_0)" "(begin" -"(if(let-values(((or-part_221)(not extra-inspectors-1_0)))" -"(if or-part_221 or-part_221(not extra-inspectors-2_0)))" +"(if(let-values(((or-part_224)(not extra-inspectors-1_0)))" +"(if or-part_224 or-part_224(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))" @@ -27735,22 +27774,22 @@ static const char *startup_source = "(if extra-inspectorsss_0" "(let-values()" "(reverse$1" -"(let-values(((lst_103) mus_1)((lst_91) extra-inspectorsss_0))" +"(let-values(((lst_102) mus_1)((lst_90) extra-inspectorsss_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_103)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_91)))" -"((letrec-values(((for-loop_106)" -"(lambda(fold-var_11 lst_92 lst_173)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_102)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_90)))" +"((letrec-values(((for-loop_107)" +"(lambda(fold-var_11 lst_91 lst_172)" "(begin" " 'for-loop" -"(if(if(pair? lst_92)(pair? lst_173) #f)" -"(let-values(((mu_5)(unsafe-car lst_92))" -"((rest_87)(unsafe-cdr lst_92))" -"((extra-inspectorss_1)(unsafe-car lst_173))" -"((rest_37)(unsafe-cdr lst_173)))" -"(let-values(((fold-var_164)" -"(let-values(((fold-var_165) fold-var_11))" -"(let-values(((fold-var_166)" +"(if(if(pair? lst_91)(pair? lst_172) #f)" +"(let-values(((mu_5)(unsafe-car lst_91))" +"((rest_87)(unsafe-cdr lst_91))" +"((extra-inspectorss_1)(unsafe-car lst_172))" +"((rest_37)(unsafe-cdr lst_172)))" +"(let-values(((fold-var_163)" +"(let-values(((fold-var_164) fold-var_11))" +"(let-values(((fold-var_165)" "(let-values()" "(cons" "(let-values()" @@ -27759,27 +27798,27 @@ static const char *startup_source = "(module-use-phase mu_5)" " extra-inspectorss_1" " #f))" -" fold-var_165))))" -"(values fold-var_166)))))" -"(if(not #f)(for-loop_106 fold-var_164 rest_87 rest_37) fold-var_164)))" +" fold-var_164))))" +"(values fold-var_165)))))" +"(if(not #f)(for-loop_107 fold-var_163 rest_87 rest_37) fold-var_163)))" " fold-var_11)))))" -" for-loop_106)" +" for-loop_107)" " null" -" lst_103" -" lst_91)))))" +" lst_102" +" lst_90)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_93) mus_1))" +"(let-values(((lst_92) mus_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_93)))" -"((letrec-values(((for-loop_188)" -"(lambda(fold-var_167 lst_17)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_92)))" +"((letrec-values(((for-loop_189)" +"(lambda(fold-var_166 lst_17)" "(begin" " 'for-loop" "(if(pair? lst_17)" "(let-values(((mu_6)(unsafe-car lst_17))((rest_88)(unsafe-cdr lst_17)))" "(let-values(((fold-var_63)" -"(let-values(((fold-var_168) fold-var_167))" +"(let-values(((fold-var_167) fold-var_166))" "(let-values(((fold-var_18)" "(let-values()" "(cons" @@ -27789,30 +27828,30 @@ static const char *startup_source = "(module-use-phase mu_6)" " #f" " #f))" -" fold-var_168))))" +" fold-var_167))))" "(values fold-var_18)))))" -"(if(not #f)(for-loop_188 fold-var_63 rest_88) fold-var_63)))" -" fold-var_167)))))" -" for-loop_188)" +"(if(not #f)(for-loop_189 fold-var_63 rest_88) fold-var_63)))" +" fold-var_166)))))" +" for-loop_189)" " null" -" lst_93)))))))))" +" lst_92)))))))))" "(define-values" "(module-uses-strip-extra-inspectorsss)" "(lambda(mu*s_0)" "(begin" "(reverse$1" -"(let-values(((lst_174) mu*s_0))" +"(let-values(((lst_173) mu*s_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_174)))" -"((letrec-values(((for-loop_189)" -"(lambda(fold-var_70 lst_175)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_173)))" +"((letrec-values(((for-loop_190)" +"(lambda(fold-var_70 lst_174)" "(begin" " 'for-loop" -"(if(pair? lst_175)" -"(let-values(((mu*_0)(unsafe-car lst_175))((rest_89)(unsafe-cdr lst_175)))" -"(let-values(((fold-var_169)" +"(if(pair? lst_174)" +"(let-values(((mu*_0)(unsafe-car lst_174))((rest_89)(unsafe-cdr lst_174)))" +"(let-values(((fold-var_168)" "(let-values(((fold-var_71) fold-var_70))" -"(let-values(((fold-var_170)" +"(let-values(((fold-var_169)" "(let-values()" "(cons" "(let-values()" @@ -27820,12 +27859,12 @@ static const char *startup_source = "(module-use-module mu*_0)" "(module-use-phase mu*_0)))" " fold-var_71))))" -"(values fold-var_170)))))" -"(if(not #f)(for-loop_189 fold-var_169 rest_89) fold-var_169)))" +"(values fold-var_169)))))" +"(if(not #f)(for-loop_190 fold-var_168 rest_89) fold-var_168)))" " fold-var_70)))))" -" for-loop_189)" +" for-loop_190)" " null" -" lst_174)))))))" +" lst_173)))))))" "(define-values" "(module-uses-extract-extra-inspectorsss)" "(lambda(mu*s_1 linklet_0 check-inlined-reference?_0 skip-n_0)" @@ -27833,72 +27872,72 @@ static const char *startup_source = "(if(not check-inlined-reference?_0)" "(let-values()" "(reverse$1" -"(let-values(((lst_176) mu*s_1))" +"(let-values(((lst_175) mu*s_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_176)))" -"((letrec-values(((for-loop_190)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_175)))" +"((letrec-values(((for-loop_191)" "(lambda(fold-var_74 lst_9)" "(begin" " 'for-loop" "(if(pair? lst_9)" "(let-values(((mu*_1)(unsafe-car lst_9))((rest_90)(unsafe-cdr lst_9)))" -"(let-values(((fold-var_171)" +"(let-values(((fold-var_170)" "(let-values(((fold-var_4) fold-var_74))" -"(let-values(((fold-var_172)" +"(let-values(((fold-var_171)" "(let-values()" "(cons" "(let-values()" "(module-use*-extra-inspectorss mu*_1))" " fold-var_4))))" -"(values fold-var_172)))))" -"(if(not #f)(for-loop_190 fold-var_171 rest_90) fold-var_171)))" +"(values fold-var_171)))))" +"(if(not #f)(for-loop_191 fold-var_170 rest_90) fold-var_170)))" " fold-var_74)))))" -" for-loop_190)" +" for-loop_191)" " null" -" lst_176)))))" +" lst_175)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_177) mu*s_1)((lst_178)(list-tail(1/linklet-import-variables linklet_0) skip-n_0)))" +"(let-values(((lst_176) mu*s_1)((lst_177)(list-tail(1/linklet-import-variables linklet_0) skip-n_0)))" "(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_176)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_177)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_178)))" "((letrec-values(((for-loop_29)" -"(lambda(fold-var_6 lst_179 lst_180)" +"(lambda(fold-var_6 lst_178 lst_179)" "(begin" " 'for-loop" -"(if(if(pair? lst_179)(pair? lst_180) #f)" -"(let-values(((mu*_2)(unsafe-car lst_179))" -"((rest_91)(unsafe-cdr lst_179))" -"((imports_0)(unsafe-car lst_180))" -"((rest_92)(unsafe-cdr lst_180)))" -"(let-values(((fold-var_157)" -"(let-values(((fold-var_173) fold-var_6))" -"(let-values(((fold-var_174)" +"(if(if(pair? lst_178)(pair? lst_179) #f)" +"(let-values(((mu*_2)(unsafe-car lst_178))" +"((rest_91)(unsafe-cdr lst_178))" +"((imports_0)(unsafe-car lst_179))" +"((rest_92)(unsafe-cdr lst_179)))" +"(let-values(((fold-var_156)" +"(let-values(((fold-var_172) fold-var_6))" +"(let-values(((fold-var_173)" "(let-values()" "(cons" "(let-values()" "(let-values(((extra-inspectorss_2)" "(module-use*-extra-inspectorss" " mu*_2)))" -"(let-values(((lst_98) imports_0))" +"(let-values(((lst_97) imports_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_98)))" +"(let-values()(check-list lst_97)))" "((letrec-values(((for-loop_19)" "(lambda(extra-inspectorss_3" -" lst_181)" +" lst_180)" "(begin" " 'for-loop" "(if(pair?" -" lst_181)" +" lst_180)" "(let-values(((import_0)" "(unsafe-car" -" lst_181))" +" lst_180))" "((rest_93)" "(unsafe-cdr" -" lst_181)))" +" lst_180)))" "(let-values(((extra-inspectorss_4)" "(let-values(((extra-inspectorss_5)" " extra-inspectorss_3))" @@ -27930,47 +27969,47 @@ static const char *startup_source = " extra-inspectorss_3)))))" " for-loop_19)" " extra-inspectorss_2" -" lst_98)))))" -" fold-var_173))))" -"(values fold-var_174)))))" -"(if(not #f)(for-loop_29 fold-var_157 rest_91 rest_92) fold-var_157)))" +" lst_97)))))" +" fold-var_172))))" +"(values fold-var_173)))))" +"(if(not #f)(for-loop_29 fold-var_156 rest_91 rest_92) fold-var_156)))" " fold-var_6)))))" " for-loop_29)" " null" -" lst_177" -" lst_178)))))))))" +" lst_176" +" lst_177)))))))))" "(define-values" "(module-use*-declaration-inspector!)" "(lambda(mu*_3 insp_9)(begin(set-module-use*-self-inspector! mu*_3 insp_9))))" "(define-values" "(module-use+extra-inspectors)" -"(lambda(mpi_42 phase_70 imports_1 inspector_12 extra-inspector_5 extra-inspectorss_7)" +"(lambda(mpi_43 phase_70 imports_1 inspector_12 extra-inspector_5 extra-inspectorss_7)" "(begin" "(let-values(((now-inspector_0)(current-code-inspector)))" "(let-values(((add-insp?_0)(if inspector_12(inspector-superior? inspector_12 now-inspector_0) #f)))" "(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_222) add-insp?_0))(if or-part_222 or-part_222 add-extra-insp?_0))" +"(if(let-values(((or-part_225) add-insp?_0))(if or-part_225 or-part_225 add-extra-insp?_0))" "(let-values()" -"(let-values(((lst_182) imports_1))" +"(let-values(((lst_181) imports_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_182)))" -"((letrec-values(((for-loop_191)" -"(lambda(table_150 lst_183)" +"(let-values()(check-list lst_181)))" +"((letrec-values(((for-loop_192)" +"(lambda(table_150 lst_182)" "(begin" " 'for-loop" -"(if(pair? lst_183)" -"(let-values(((import_1)(unsafe-car lst_183))" -"((rest_94)(unsafe-cdr lst_183)))" +"(if(pair? lst_182)" +"(let-values(((import_1)(unsafe-car lst_182))" +"((rest_94)(unsafe-cdr lst_182)))" "(let-values(((table_151)" "(let-values(((table_152) table_150))" "(let-values(((table_153)" "(let-values()" -"(let-values(((key_57" -" val_49)" +"(let-values(((key_59" +" val_50)" "(let-values()" "(values" " import_1" @@ -27982,48 +28021,48 @@ static const char *startup_source = " #f)" " #f)))" "(lambda(guard-insp_2)" -"(let-values(((or-part_223)" +"(let-values(((or-part_54)" "(if add-insp?_0" "(inspector-superior?" " inspector_12" " guard-insp_2)" " #f)))" -"(if or-part_223" -" or-part_223" -"(let-values(((or-part_224)" +"(if or-part_54" +" or-part_54" +"(let-values(((or-part_147)" "(if add-extra-insp?_0" "(inspector-superior?" " extra-inspector_5" " guard-insp_2)" " #f)))" -"(if or-part_224" -" or-part_224" +"(if or-part_147" +" or-part_147" "(extra-inspectors-allow?" " extra-inspectors_3" " guard-insp_2)))))))))))" "(hash-set" " table_152" -" key_57" -" val_49)))))" +" key_59" +" val_50)))))" "(values table_153)))))" -"(if(not #f)(for-loop_191 table_151 rest_94) table_151)))" +"(if(not #f)(for-loop_192 table_151 rest_94) table_151)))" " table_150)))))" -" for-loop_191)" +" for-loop_192)" " '#hash()" -" lst_182))))" +" lst_181))))" "(let-values()" -"(let-values(((lst_184) imports_1))" +"(let-values(((lst_183) imports_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_184)))" -"((letrec-values(((for-loop_192)" -"(lambda(extra-inspectorss_8 lst_185)" +"(let-values()(check-list lst_183)))" +"((letrec-values(((for-loop_193)" +"(lambda(extra-inspectorss_8 lst_184)" "(begin" " 'for-loop" -"(if(pair? lst_185)" -"(let-values(((import_2)(unsafe-car lst_185))" -"((rest_95)(unsafe-cdr lst_185)))" +"(if(pair? lst_184)" +"(let-values(((import_2)(unsafe-car lst_184))" +"((rest_95)(unsafe-cdr lst_184)))" "(let-values(((extra-inspectorss_9)" "(let-values(((extra-inspectorss_10)" " extra-inspectorss_8))" @@ -28040,14 +28079,14 @@ static const char *startup_source = " #f)))))" "(values extra-inspectorss_11)))))" "(if(not #f)" -"(for-loop_192 extra-inspectorss_9 rest_95)" +"(for-loop_193 extra-inspectorss_9 rest_95)" " extra-inspectorss_9)))" " extra-inspectorss_8)))))" -" for-loop_192)" -"(let-values(((or-part_225) extra-inspectorss_7))" -"(if or-part_225 or-part_225(seteq)))" -" lst_184)))))))" -"(module-use*1.1 mpi_42 phase_70 new-extra-inspectorss_0 #f))))))))" +" for-loop_193)" +"(let-values(((or-part_226) extra-inspectorss_7))" +"(if or-part_226 or-part_226(seteq)))" +" lst_183)))))))" +"(module-use*1.1 mpi_43 phase_70 new-extra-inspectorss_0 #f))))))))" "(define-values" "(module-use-merge-extra-inspectorss!)" "(lambda(existing-mu*_0 mu*_4)" @@ -28060,13 +28099,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_115)))" -"((letrec-values(((for-loop_193)" -"(lambda(new-extra-inspectorss_2 i_140)" +"((letrec-values(((for-loop_194)" +"(lambda(new-extra-inspectorss_2 i_141)" "(begin" " 'for-loop" -"(if i_140" +"(if i_141" "(let-values(((sym_52 extra-inspectors_4)" -"(hash-iterate-key+value ht_115 i_140)))" +"(hash-iterate-key+value ht_115 i_141)))" "(let-values(((new-extra-inspectorss_3)" "(let-values(((new-extra-inspectorss_4)" " new-extra-inspectorss_2))" @@ -28083,12 +28122,12 @@ static const char *startup_source = "(seteq)))))))" "(values new-extra-inspectorss_5)))))" "(if(not #f)" -"(for-loop_193" +"(for-loop_194" " new-extra-inspectorss_3" -"(hash-iterate-next ht_115 i_140))" +"(hash-iterate-next ht_115 i_141))" " new-extra-inspectorss_3)))" " new-extra-inspectorss_2)))))" -" for-loop_193)" +" for-loop_194)" " existing-extra-inspectorss_0" "(hash-iterate-first ht_115))))))" "(set-module-use*-extra-inspectorss! existing-mu*_0 new-extra-inspectorss_1)))))))" @@ -28187,13 +28226,13 @@ static const char *startup_source = "(lambda(phase_72)" "(begin" " 'find-or-create-header!" -"(let-values(((or-part_217)" +"(let-values(((or-part_220)" "(hash-ref" " phase-to-header_0" " phase_72" " #f)))" -"(if or-part_217" -" or-part_217" +"(if or-part_220" +" or-part_220" "(let-values(((header_7)" "(make-header" " mpis_15" @@ -28206,23 +28245,23 @@ static const char *startup_source = " header_7))))))))" "(let-values((()" "(begin" -"(let-values(((lst_186) force-phases_0))" +"(let-values(((lst_185) force-phases_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_186)))" -"((letrec-values(((for-loop_194)" -"(lambda(lst_187)" +"(let-values()(check-list lst_185)))" +"((letrec-values(((for-loop_195)" +"(lambda(lst_186)" "(begin" " 'for-loop" -"(if(pair? lst_187)" +"(if(pair? lst_186)" "(let-values(((phase_73)" "(unsafe-car" -" lst_187))" +" lst_186))" "((rest_96)" "(unsafe-cdr" -" lst_187)))" +" lst_186)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28238,12 +28277,12 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_194" +"(for-loop_195" " rest_96)" "(values))))" "(values))))))" -" for-loop_194)" -" lst_186)))" +" for-loop_195)" +" lst_185)))" "(values))))" "(let-values()" "(let-values(((saw-define-syntaxes?_0) #f))" @@ -28258,7 +28297,7 @@ static const char *startup_source = "(begin" " 'loop!" "(begin" -"(let-values(((lst_188)" +"(let-values(((lst_187)" " bodys_3))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28266,19 +28305,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_188)))" -"((letrec-values(((for-loop_195)" -"(lambda(lst_189)" +" lst_187)))" +"((letrec-values(((for-loop_196)" +"(lambda(lst_188)" "(begin" " 'for-loop" "(if(pair?" -" lst_189)" +" lst_188)" "(let-values(((body_2)" "(unsafe-car" -" lst_189))" +" lst_188))" "((rest_97)" "(unsafe-cdr" -" lst_189)))" +" lst_188)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28289,7 +28328,7 @@ static const char *startup_source = " body_2)" "(let-values()" "(begin" -"(let-values(((lst_190)" +"(let-values(((lst_189)" "(parsed-define-values-syms" " body_2)))" "(begin" @@ -28298,19 +28337,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_190)))" -"((letrec-values(((for-loop_196)" -"(lambda(lst_191)" +" lst_189)))" +"((letrec-values(((for-loop_197)" +"(lambda(lst_190)" "(begin" " 'for-loop" "(if(pair?" -" lst_191)" +" lst_190)" "(let-values(((sym_53)" "(unsafe-car" -" lst_191))" +" lst_190))" "((rest_98)" "(unsafe-cdr" -" lst_191)))" +" lst_190)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28340,12 +28379,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_196" +"(for-loop_197" " rest_98)" "(values))))" "(values))))))" -" for-loop_196)" -" lst_190)))" +" for-loop_197)" +" lst_189)))" "(void)))" "(if(parsed-begin-for-syntax?" " body_2)" @@ -28363,12 +28402,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_195" +"(for-loop_196" " rest_97)" "(values))))" "(values))))))" -" for-loop_195)" -" lst_188)))" +" for-loop_196)" +" lst_187)))" "(void))))))" " loop!_0)" " bodys_2" @@ -28394,7 +28433,7 @@ static const char *startup_source = "(begin" " 'loop!" "(begin" -"(let-values(((lst_192)" +"(let-values(((lst_191)" " bodys_4)" "((start_34)" " 0))" @@ -28404,29 +28443,29 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_192)))" +" lst_191)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals" " start_34)))" -"((letrec-values(((for-loop_114)" -"(lambda(lst_193" +"((letrec-values(((for-loop_115)" +"(lambda(lst_192" " pos_92)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_193)" +" lst_192)" " #t" " #f)" "(let-values(((body_3)" "(unsafe-car" -" lst_193))" +" lst_192))" "((rest_84)" "(unsafe-cdr" -" lst_193))" -"((i_141)" +" lst_192))" +"((i_142)" " pos_92))" "(let-values((()" "(let-values()" @@ -28448,7 +28487,7 @@ static const char *startup_source = " cctx_3)" "(let-values()" "(reverse$1" -"(let-values(((lst_194)" +"(let-values(((lst_193)" " binding-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28456,22 +28495,22 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_194)))" -"((letrec-values(((for-loop_197)" +" lst_193)))" +"((letrec-values(((for-loop_198)" "(lambda(fold-var_3" -" lst_172)" +" lst_171)" "(begin" " 'for-loop" "(if(pair?" -" lst_172)" +" lst_171)" "(let-values(((binding-sym_0)" "(unsafe-car" -" lst_172))" +" lst_171))" "((rest_85)" "(unsafe-cdr" -" lst_172)))" +" lst_171)))" +"(let-values(((fold-var_174)" "(let-values(((fold-var_175)" -"(let-values(((fold-var_176)" " fold-var_3))" "(let-values(((fold-var_92)" "(let-values()" @@ -28481,22 +28520,22 @@ static const char *startup_source = "(header-binding-sym-to-define-sym" " header_10)" " binding-sym_0))" -" fold-var_176))))" +" fold-var_175))))" "(values" " fold-var_92)))))" "(if(not" " #f)" -"(for-loop_197" -" fold-var_175" +"(for-loop_198" +" fold-var_174" " rest_85)" -" fold-var_175)))" +" fold-var_174)))" " fold-var_3)))))" -" for-loop_197)" +" for-loop_198)" " null" -" lst_194)))))" +" lst_193)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_105)" +"(let-values(((lst_104)" " binding-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28504,24 +28543,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_105)))" -"((letrec-values(((for-loop_198)" -"(lambda(fold-var_177" -" lst_195)" +" lst_104)))" +"((letrec-values(((for-loop_199)" +"(lambda(fold-var_176" +" lst_194)" "(begin" " 'for-loop" "(if(pair?" -" lst_195)" +" lst_194)" "(let-values(((binding-sym_1)" "(unsafe-car" -" lst_195))" +" lst_194))" "((rest_99)" "(unsafe-cdr" -" lst_195)))" +" lst_194)))" +"(let-values(((fold-var_177)" "(let-values(((fold-var_178)" +" fold-var_176))" "(let-values(((fold-var_179)" -" fold-var_177))" -"(let-values(((fold-var_180)" "(let-values()" "(cons" "(let-values()" @@ -28546,48 +28585,48 @@ static const char *startup_source = " phase37_1" " binding-sym38_0" " temp39_0)))" -" fold-var_179))))" +" fold-var_178))))" "(values" -" fold-var_180)))))" +" fold-var_179)))))" "(if(not" " #f)" -"(for-loop_198" -" fold-var_178" +"(for-loop_199" +" fold-var_177" " rest_99)" -" fold-var_178)))" -" fold-var_177)))))" -" for-loop_198)" +" fold-var_177)))" +" fold-var_176)))))" +" for-loop_199)" " null" -" lst_105))))))))" +" lst_104))))))))" "(let-values(((rhs_1)" "(compile$2" "(parsed-define-values-rhs" " body_3)" -"(let-values(((the-struct_47)" +"(let-values(((the-struct_46)" " cctx_3))" "(if(compile-context?" -" the-struct_47)" +" the-struct_46)" "(let-values(((phase41_0)" " phase_75)" "((header42_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_47)" +" the-struct_46)" " phase41_0" "(compile-context-self" -" the-struct_47)" +" the-struct_46)" "(compile-context-module-self" -" the-struct_47)" +" the-struct_46)" "(compile-context-full-module-name" -" the-struct_47)" +" the-struct_46)" "(compile-context-lazy-syntax-literals?" -" the-struct_47)" +" the-struct_46)" " header42_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_47)))" +" the-struct_46)))" "(if(=" "(length" " ids_5)" @@ -28634,7 +28673,7 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_107)" +"(let-values(((lst_106)" " def-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28642,23 +28681,23 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_107)))" -"((letrec-values(((for-loop_199)" -"(lambda(fold-var_181" -" lst_196)" +" lst_106)))" +"((letrec-values(((for-loop_200)" +"(lambda(fold-var_180" +" lst_195)" "(begin" " 'for-loop" "(if(pair?" -" lst_196)" +" lst_195)" "(let-values(((def-sym_2)" "(unsafe-car" -" lst_196))" +" lst_195))" "((rest_100)" "(unsafe-cdr" -" lst_196)))" +" lst_195)))" +"(let-values(((fold-var_181)" "(let-values(((fold-var_182)" -"(let-values(((fold-var_183)" -" fold-var_181))" +" fold-var_180))" "(let-values(((fold-var_36)" "(let-values()" "(cons" @@ -28667,50 +28706,50 @@ static const char *startup_source = " 'set!" " def-sym_2" " '(#f)))" -" fold-var_183))))" +" fold-var_182))))" "(values" " fold-var_36)))))" "(if(not" " #f)" -"(for-loop_199" -" fold-var_182" +"(for-loop_200" +" fold-var_181" " rest_100)" -" fold-var_182)))" -" fold-var_181)))))" -" for-loop_199)" +" fold-var_181)))" +" fold-var_180)))))" +" for-loop_200)" " null" -" lst_107)))))" +" lst_106)))))" " '((void))))" "(add-body!_0" " phase_75" "(compile-top-level-bind" " ids_5" " binding-syms_0" -"(let-values(((the-struct_48)" +"(let-values(((the-struct_47)" " cctx_3))" "(if(compile-context?" -" the-struct_48)" +" the-struct_47)" "(let-values(((phase43_0)" " phase_75)" "((header44_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_48)" +" the-struct_47)" " phase43_0" "(compile-context-self" -" the-struct_48)" +" the-struct_47)" "(compile-context-module-self" -" the-struct_48)" +" the-struct_47)" "(compile-context-full-module-name" -" the-struct_48)" +" the-struct_47)" "(compile-context-lazy-syntax-literals?" -" the-struct_48)" +" the-struct_47)" " header44_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_48)))" +" the-struct_47)))" " #f)))))))))))" "(if(parsed-define-syntaxes?" " body_3)" @@ -28727,7 +28766,7 @@ static const char *startup_source = " phase_75))))" "(let-values(((gen-syms_0)" "(reverse$1" -"(let-values(((lst_197)" +"(let-values(((lst_196)" " binding-syms_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28735,24 +28774,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_197)))" -"((letrec-values(((for-loop_200)" -"(lambda(fold-var_184" -" lst_198)" +" lst_196)))" +"((letrec-values(((for-loop_201)" +"(lambda(fold-var_183" +" lst_197)" "(begin" " 'for-loop" "(if(pair?" -" lst_198)" +" lst_197)" "(let-values(((binding-sym_2)" "(unsafe-car" -" lst_198))" +" lst_197))" "((rest_101)" "(unsafe-cdr" -" lst_198)))" +" lst_197)))" +"(let-values(((fold-var_184)" "(let-values(((fold-var_185)" +" fold-var_183))" "(let-values(((fold-var_186)" -" fold-var_184))" -"(let-values(((fold-var_187)" "(let-values()" "(cons" "(let-values()" @@ -28765,27 +28804,27 @@ static const char *startup_source = " next-header_0" " gen-sym_0)" " gen-sym_0)))" -" fold-var_186))))" +" fold-var_185))))" "(values" -" fold-var_187)))))" +" fold-var_186)))))" "(if(not" " #f)" -"(for-loop_200" -" fold-var_185" +"(for-loop_201" +" fold-var_184" " rest_101)" -" fold-var_185)))" -" fold-var_184)))))" -" for-loop_200)" +" fold-var_184)))" +" fold-var_183)))))" +" for-loop_201)" " null" -" lst_197))))))" +" lst_196))))))" "(let-values(((rhs_2)" "(compile$2" "(parsed-define-syntaxes-rhs" " body_3)" -"(let-values(((the-struct_49)" +"(let-values(((the-struct_48)" " cctx_3))" "(if(compile-context?" -" the-struct_49)" +" the-struct_48)" "(let-values(((phase45_0)" "(add1" " phase_75))" @@ -28793,21 +28832,21 @@ static const char *startup_source = " next-header_0))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_49)" +" the-struct_48)" " phase45_0" "(compile-context-self" -" the-struct_49)" +" the-struct_48)" "(compile-context-module-self" -" the-struct_49)" +" the-struct_48)" "(compile-context-full-module-name" -" the-struct_49)" +" the-struct_48)" "(compile-context-lazy-syntax-literals?" -" the-struct_49)" +" the-struct_48)" " header46_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_49))))))" +" the-struct_48))))))" "(let-values((()" "(begin" "(definition-callback_0)" @@ -28825,9 +28864,9 @@ static const char *startup_source = "(values))))" "(let-values(((transformer-set!s_0)" "(reverse$1" -"(let-values(((lst_199)" +"(let-values(((lst_198)" " binding-syms_1)" -"((lst_200)" +"((lst_199)" " gen-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28835,40 +28874,40 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_199)))" +" lst_198)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_200)))" -"((letrec-values(((for-loop_201)" -"(lambda(fold-var_188" -" lst_201" -" lst_202)" +" lst_199)))" +"((letrec-values(((for-loop_202)" +"(lambda(fold-var_187" +" lst_200" +" lst_201)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_201)" +" lst_200)" "(pair?" -" lst_202)" +" lst_201)" " #f)" "(let-values(((binding-sym_3)" "(unsafe-car" -" lst_201))" +" lst_200))" "((rest_102)" "(unsafe-cdr" -" lst_201))" +" lst_200))" "((gen-sym_1)" "(unsafe-car" -" lst_202))" +" lst_201))" "((rest_103)" "(unsafe-cdr" -" lst_202)))" +" lst_201)))" +"(let-values(((fold-var_188)" "(let-values(((fold-var_189)" +" fold-var_187))" "(let-values(((fold-var_190)" -" fold-var_188))" -"(let-values(((fold-var_191)" "(let-values()" "(cons" "(let-values()" @@ -28878,21 +28917,21 @@ static const char *startup_source = " 'quote" " binding-sym_3)" " gen-sym_1))" -" fold-var_190))))" +" fold-var_189))))" "(values" -" fold-var_191)))))" +" fold-var_190)))))" "(if(not" " #f)" -"(for-loop_201" -" fold-var_189" +"(for-loop_202" +" fold-var_188" " rest_102" " rest_103)" -" fold-var_189)))" -" fold-var_188)))))" -" for-loop_201)" +" fold-var_188)))" +" fold-var_187)))))" +" for-loop_202)" " null" -" lst_199" -" lst_200))))))" +" lst_198" +" lst_199))))))" "(begin" "(if(compile-context-module-self" " cctx_3)" @@ -28922,31 +28961,31 @@ static const char *startup_source = "(compile-top-level-bind" " ids_6" " binding-syms_1" -"(let-values(((the-struct_50)" +"(let-values(((the-struct_49)" " cctx_3))" "(if(compile-context?" -" the-struct_50)" +" the-struct_49)" "(let-values(((phase47_0)" " phase_75)" "((header48_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_50)" +" the-struct_49)" " phase47_0" "(compile-context-self" -" the-struct_50)" +" the-struct_49)" "(compile-context-module-self" -" the-struct_50)" +" the-struct_49)" "(compile-context-full-module-name" -" the-struct_50)" +" the-struct_49)" "(compile-context-lazy-syntax-literals?" -" the-struct_50)" +" the-struct_49)" " header48_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_50)))" +" the-struct_49)))" " gen-syms_0)))))" "(set! saw-define-syntaxes?_0" " #t)))))))))))" @@ -28961,47 +29000,47 @@ static const char *startup_source = "(find-or-create-header!_0" "(add1" " phase_75))))" -"(if(let-values(((or-part_226)" +"(if(let-values(((or-part_227)" "(parsed-#%declare?" " body_3)))" -"(if or-part_226" -" or-part_226" -"(let-values(((or-part_227)" -"(parsed-module?" -" body_3)))" "(if or-part_227" " or-part_227" +"(let-values(((or-part_228)" +"(parsed-module?" +" body_3)))" +"(if or-part_228" +" or-part_228" "(parsed-require?" " body_3)))))" "(let-values()" "(let-values(((e_34)" "(other-form-callback_0" " body_3" -"(let-values(((the-struct_51)" +"(let-values(((the-struct_50)" " cctx_3))" "(if(compile-context?" -" the-struct_51)" +" the-struct_50)" "(let-values(((phase49_0)" " phase_75)" "((header50_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_51)" +" the-struct_50)" " phase49_0" "(compile-context-self" -" the-struct_51)" +" the-struct_50)" "(compile-context-module-self" -" the-struct_51)" +" the-struct_50)" "(compile-context-full-module-name" -" the-struct_51)" +" the-struct_50)" "(compile-context-lazy-syntax-literals?" -" the-struct_51)" +" the-struct_50)" " header50_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_51))))))" +" the-struct_50))))))" "(if e_34" "(let-values()" "(begin" @@ -29019,34 +29058,34 @@ static const char *startup_source = "(let-values(((e_35)" "(compile$2" " body_3" -"(let-values(((the-struct_52)" +"(let-values(((the-struct_51)" " cctx_3))" "(if(compile-context?" -" the-struct_52)" +" the-struct_51)" "(let-values(((phase51_0)" " phase_75)" "((header52_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_52)" +" the-struct_51)" " phase51_0" "(compile-context-self" -" the-struct_52)" +" the-struct_51)" "(compile-context-module-self" -" the-struct_52)" +" the-struct_51)" "(compile-context-full-module-name" -" the-struct_52)" +" the-struct_51)" "(compile-context-lazy-syntax-literals?" -" the-struct_52)" +" the-struct_51)" " header52_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_52)))" +" the-struct_51)))" " #f" "(=" -" i_141" +" i_142" " last-i_0))))" "(begin" "(compiled-expression-callback_0" @@ -29062,15 +29101,15 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_114" +"(for-loop_115" " rest_84" "(+" " pos_92" " 1))" "(values))))" "(values))))))" -" for-loop_114)" -" lst_192" +" for-loop_115)" +" lst_191" " start_34)))" "(void))))))" " loop!_1)" @@ -29120,34 +29159,34 @@ static const char *startup_source = " phases-in-order_2))" " phase_71)))" "(let-values(((phase-to-link-info_0)" -"(let-values(((lst_203)" +"(let-values(((lst_202)" " phases-in-order_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_203)))" -"((letrec-values(((for-loop_118)" +"(check-list lst_202)))" +"((letrec-values(((for-loop_119)" "(lambda(table_154" -" lst_204)" +" lst_203)" "(begin" " 'for-loop" "(if(pair?" -" lst_204)" +" lst_203)" "(let-values(((phase_76)" "(unsafe-car" -" lst_204))" +" lst_203))" "((rest_104)" "(unsafe-cdr" -" lst_204)))" +" lst_203)))" "(let-values(((table_155)" "(let-values(((table_156)" " table_154))" "(let-values(((table_157)" "(let-values()" -"(let-values(((key_58" -" val_50)" +"(let-values(((key_60" +" val_51)" "(let-values()" "(let-values(((header_11)" "(hash-ref" @@ -29172,22 +29211,22 @@ static const char *startup_source = " def-decls_0)))))))" "(hash-set" " table_156" -" key_58" -" val_50)))))" +" key_60" +" val_51)))))" "(values" " table_157)))))" "(if(not" " #f)" -"(for-loop_118" +"(for-loop_119" " table_155" " rest_104)" " table_155)))" " table_154)))))" -" for-loop_118)" +" for-loop_119)" " '#hash()" -" lst_203)))))" +" lst_202)))))" "(let-values(((body-linklets+module-use*s_0)" -"(let-values(((lst_205)" +"(let-values(((lst_204)" " phases-in-order_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -29195,27 +29234,27 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_205)))" -"((letrec-values(((for-loop_202)" +" lst_204)))" +"((letrec-values(((for-loop_203)" "(lambda(table_158" -" lst_206)" +" lst_205)" "(begin" " 'for-loop" "(if(pair?" -" lst_206)" +" lst_205)" "(let-values(((phase_77)" "(unsafe-car" -" lst_206))" +" lst_205))" "((rest_105)" "(unsafe-cdr" -" lst_206)))" +" lst_205)))" "(let-values(((table_159)" "(let-values(((table_160)" " table_158))" "(let-values(((table_161)" "(let-values()" -"(let-values(((key_59" -" val_51)" +"(let-values(((key_61" +" val_52)" "(let-values()" "(let-values(((bodys_5)" "(hash-ref" @@ -29267,7 +29306,7 @@ static const char *startup_source = "(link-info-def-decls" " li_0)" "(reverse$1" -"(let-values(((lst_207)" +"(let-values(((lst_206)" "(header-binding-syms-in-order" "(hash-ref" " phase-to-header_0" @@ -29278,24 +29317,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_207)))" -"((letrec-values(((for-loop_180)" -"(lambda(fold-var_192" -" lst_208)" +" lst_206)))" +"((letrec-values(((for-loop_181)" +"(lambda(fold-var_191" +" lst_207)" "(begin" " 'for-loop" "(if(pair?" -" lst_208)" +" lst_207)" "(let-values(((binding-sym_4)" "(unsafe-car" -" lst_208))" +" lst_207))" "((rest_106)" "(unsafe-cdr" -" lst_208)))" +" lst_207)))" +"(let-values(((fold-var_192)" "(let-values(((fold-var_193)" +" fold-var_191))" "(let-values(((fold-var_194)" -" fold-var_192))" -"(let-values(((fold-var_195)" "(let-values()" "(cons" "(let-values()" @@ -29310,19 +29349,19 @@ static const char *startup_source = "(list" " def-sym_3" " binding-sym_4))))" -" fold-var_194))))" +" fold-var_193))))" "(values" -" fold-var_195)))))" +" fold-var_194)))))" "(if(not" " #f)" -"(for-loop_180" -" fold-var_193" +"(for-loop_181" +" fold-var_192" " rest_106)" -" fold-var_193)))" -" fold-var_192)))))" -" for-loop_180)" +" fold-var_192)))" +" fold-var_191)))))" +" for-loop_181)" " null" -" lst_207)))))" +" lst_206)))))" "(qq-append" "(reverse$1" " bodys_5)" @@ -29349,20 +29388,20 @@ static const char *startup_source = " body-imports_0))))))))))))" "(hash-set" " table_160" -" key_59" -" val_51)))))" +" key_61" +" val_52)))))" "(values" " table_161)))))" "(if(not" " #f)" -"(for-loop_202" +"(for-loop_203" " table_159" " rest_105)" " table_159)))" " table_158)))))" -" for-loop_202)" +" for-loop_203)" " '#hasheq()" -" lst_205)))))" +" lst_204)))))" "(let-values(((body-linklets_0)" "(let-values(((ht_116)" " body-linklets+module-use*s_0))" @@ -29373,24 +29412,24 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_116)))" -"((letrec-values(((for-loop_203)" +"((letrec-values(((for-loop_204)" "(lambda(table_162" -" i_142)" +" i_143)" "(begin" " 'for-loop" -"(if i_142" +"(if i_143" "(let-values(((phase_53" " l+mu*s_0)" "(hash-iterate-key+value" " ht_116" -" i_142)))" +" i_143)))" "(let-values(((table_163)" "(let-values(((table_122)" " table_162))" "(let-values(((table_123)" "(let-values()" -"(let-values(((key_60" -" val_52)" +"(let-values(((key_62" +" val_53)" "(let-values()" "(values" " phase_53" @@ -29398,20 +29437,20 @@ static const char *startup_source = " l+mu*s_0)))))" "(hash-set" " table_122" -" key_60" -" val_52)))))" +" key_62" +" val_53)))))" "(values" " table_123)))))" "(if(not" " #f)" -"(for-loop_203" +"(for-loop_204" " table_163" "(hash-iterate-next" " ht_116" -" i_142))" +" i_143))" " table_163)))" " table_162)))))" -" for-loop_203)" +" for-loop_204)" " '#hasheq()" "(hash-iterate-first" " ht_116))))))" @@ -29425,24 +29464,24 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_117)))" -"((letrec-values(((for-loop_204)" +"((letrec-values(((for-loop_205)" "(lambda(table_164" -" i_143)" +" i_144)" "(begin" " 'for-loop" -"(if i_143" +"(if i_144" "(let-values(((phase_78" " l+mu*s_1)" "(hash-iterate-key+value" " ht_117" -" i_143)))" +" i_144)))" "(let-values(((table_165)" "(let-values(((table_40)" " table_164))" "(let-values(((table_166)" "(let-values()" -"(let-values(((key_61" -" val_53)" +"(let-values(((key_63" +" val_54)" "(let-values()" "(values" " phase_78" @@ -29451,20 +29490,20 @@ static const char *startup_source = " l+mu*s_1))))))" "(hash-set" " table_40" -" key_61" -" val_53)))))" +" key_63" +" val_54)))))" "(values" " table_166)))))" "(if(not" " #f)" -"(for-loop_204" +"(for-loop_205" " table_165" "(hash-iterate-next" " ht_117" -" i_143))" +" i_144))" " table_165)))" " table_164)))))" -" for-loop_204)" +" for-loop_205)" " '#hasheq()" "(hash-iterate-first" " ht_117))))))" @@ -29482,17 +29521,17 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_118)))" -"((letrec-values(((for-loop_205)" +"((letrec-values(((for-loop_206)" "(lambda(table_167" -" i_144)" +" i_145)" "(begin" " 'for-loop" -"(if i_144" +"(if i_145" "(let-values(((phase_79" " l+mu*s_2)" "(hash-iterate-key+value" " ht_118" -" i_144)))" +" i_145)))" "(let-values(((table_168)" "(let-values(((extra-inspectorsss_2)" "(module-uses-extract-extra-inspectorsss" @@ -29505,7 +29544,7 @@ static const char *startup_source = " body-imports_0))))" "(begin" " #t" -"((letrec-values(((for-loop_126)" +"((letrec-values(((for-loop_127)" "(lambda(table_169)" "(begin" " 'for-loop" @@ -29518,32 +29557,32 @@ static const char *startup_source = " table_171))" "(let-values(((table_44)" "(let-values()" -"(let-values(((key_62" -" val_54)" +"(let-values(((key_64" +" val_55)" "(let-values()" "(values" " phase_79" " extra-inspectorsss_2))))" "(hash-set" " table_172" -" key_62" -" val_54)))))" +" key_64" +" val_55)))))" "(values" " table_44)))" " table_171))))" " table_170))))))" -" for-loop_126)" +" for-loop_127)" " table_167)))))" "(if(not" " #f)" -"(for-loop_205" +"(for-loop_206" " table_168" "(hash-iterate-next" " ht_118" -" i_144))" +" i_145))" " table_168)))" " table_167)))))" -" for-loop_205)" +" for-loop_206)" " '#hash()" "(hash-iterate-first" " ht_118))))))" @@ -29571,66 +29610,66 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_209) ids_7)" -"((lst_210) binding-syms_2)" -"((lst_116)" -"(let-values(((or-part_110) trans-exprs_0))" -"(if or-part_110" -" or-part_110" +"(let-values(((lst_208) ids_7)" +"((lst_209) binding-syms_2)" +"((lst_115)" +"(let-values(((or-part_109) trans-exprs_0))" +"(if or-part_109" +" or-part_109" "(reverse$1" -"(let-values(((lst_117) ids_7))" +"(let-values(((lst_116) ids_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_117)))" -"((letrec-values(((for-loop_206)" -"(lambda(fold-var_196 lst_211)" +"(let-values()(check-list lst_116)))" +"((letrec-values(((for-loop_207)" +"(lambda(fold-var_195 lst_210)" "(begin" " 'for-loop" -"(if(pair? lst_211)" -"(let-values(((id_47)(unsafe-car lst_211))" -"((rest_107)(unsafe-cdr lst_211)))" +"(if(pair? lst_210)" +"(let-values(((id_47)(unsafe-car lst_210))" +"((rest_107)(unsafe-cdr lst_210)))" +"(let-values(((fold-var_196)" "(let-values(((fold-var_197)" +" fold-var_195))" "(let-values(((fold-var_198)" -" fold-var_196))" -"(let-values(((fold-var_199)" "(let-values()" "(cons" "(let-values()" " ''#f)" -" fold-var_198))))" -"(values fold-var_199)))))" +" fold-var_197))))" +"(values fold-var_198)))))" "(if(not #f)" -"(for-loop_206 fold-var_197 rest_107)" -" fold-var_197)))" -" fold-var_196)))))" -" for-loop_206)" +"(for-loop_207 fold-var_196 rest_107)" +" fold-var_196)))" +" fold-var_195)))))" +" for-loop_207)" " null" -" lst_117))))))))" +" lst_116))))))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_208)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_209)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_210)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_116)))" -"((letrec-values(((for-loop_207)" -"(lambda(fold-var_200 lst_212 lst_3 lst_213)" +"(let-values()(check-list lst_115)))" +"((letrec-values(((for-loop_208)" +"(lambda(fold-var_199 lst_211 lst_3 lst_212)" "(begin" " 'for-loop" -"(if(if(pair? lst_212)(if(pair? lst_3)(pair? lst_213) #f) #f)" -"(let-values(((id_48)(unsafe-car lst_212))" -"((rest_108)(unsafe-cdr lst_212))" +"(if(if(pair? lst_211)(if(pair? lst_3)(pair? lst_212) #f) #f)" +"(let-values(((id_48)(unsafe-car lst_211))" +"((rest_108)(unsafe-cdr lst_211))" "((binding-sym_5)(unsafe-car lst_3))" "((rest_109)(unsafe-cdr lst_3))" -"((trans-expr_0)(unsafe-car lst_213))" -"((rest_110)(unsafe-cdr lst_213)))" -"(let-values(((fold-var_201)" -"(let-values(((fold-var_202) fold-var_200))" -"(let-values(((fold-var_203)" +"((trans-expr_0)(unsafe-car lst_212))" +"((rest_110)(unsafe-cdr lst_212)))" +"(let-values(((fold-var_200)" +"(let-values(((fold-var_201) fold-var_199))" +"(let-values(((fold-var_202)" "(let-values()" "(cons" "(let-values()" @@ -29650,17 +29689,17 @@ static const char *startup_source = "(list 'quote binding-sym_5)" "(if trans-exprs_0 #t #f)" " trans-expr_0)))" -" fold-var_202))))" -"(values fold-var_203)))))" +" fold-var_201))))" +"(values fold-var_202)))))" "(if(not #f)" -"(for-loop_207 fold-var_201 rest_108 rest_109 rest_110)" -" fold-var_201)))" -" fold-var_200)))))" -" for-loop_207)" +"(for-loop_208 fold-var_200 rest_108 rest_109 rest_110)" +" fold-var_200)))" +" fold-var_199)))))" +" for-loop_208)" " null" +" lst_208" " lst_209" -" lst_210" -" lst_116))))))))))))))" +" lst_115))))))))))))))" "(define-values" "(generate-top-level-define-syntaxes)" "(lambda(gen-syms_1 rhs_3 transformer-set!s_1 finish_1)" @@ -29681,36 +29720,36 @@ static const char *startup_source = "(list*" " 'values" "(reverse$1" -"(let-values(((lst_214) gen-syms_1))" +"(let-values(((lst_213) gen-syms_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_214)))" -"((letrec-values(((for-loop_208)" -"(lambda(fold-var_204 lst_215)" +"(let-values()(check-list lst_213)))" +"((letrec-values(((for-loop_209)" +"(lambda(fold-var_203 lst_214)" "(begin" " 'for-loop" -"(if(pair? lst_215)" -"(let-values(((s_301)(unsafe-car lst_215))((rest_111)(unsafe-cdr lst_215)))" -"(let-values(((fold-var_205)" -"(let-values(((fold-var_206) fold-var_204))" -"(let-values(((fold-var_207)" +"(if(pair? lst_214)" +"(let-values(((s_304)(unsafe-car lst_214))((rest_111)(unsafe-cdr lst_214)))" +"(let-values(((fold-var_204)" +"(let-values(((fold-var_205) fold-var_203))" +"(let-values(((fold-var_206)" "(let-values()" -"(cons(let-values() ''#f) fold-var_206))))" -"(values fold-var_207)))))" -"(if(not #f)(for-loop_208 fold-var_205 rest_111) fold-var_205)))" -" fold-var_204)))))" -" for-loop_208)" +"(cons(let-values() ''#f) fold-var_205))))" +"(values fold-var_206)))))" +"(if(not #f)(for-loop_209 fold-var_204 rest_111) fold-var_204)))" +" fold-var_203)))))" +" for-loop_209)" " null" -" lst_214)))))))" +" lst_213)))))))" "(list* 'begin finish_1 '((void)))))" "(list 'args(list* 'let-values(list(list* gen-syms_1 '((apply values args)))) '((void)))))))))" "(define-values" "(propagate-inline-property)" "(lambda(e_36 orig-s_22)" "(begin" -"(let-values(((v_157)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" -"(if v_157(correlated-property e_36 'compiler-hint:cross-module-inline v_157) e_36)))))" +"(let-values(((v_156)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" +"(if v_156(correlated-property e_36 'compiler-hint:cross-module-inline v_156) e_36)))))" "(define-values" "(make-module-use-to-linklet)" "(lambda(cross-linklet-inlining?_2 ns_57 get-module-linklet-info_1 init-mu*s_0)" @@ -29731,17 +29770,17 @@ static const char *startup_source = "(hash-set! mu*-intern-table_0(cons mod-name_15(module-use-phase mu*_5)) mu*_5)" " mu*_5)))))))))" "(begin" -"(let-values(((lst_142) init-mu*s_0))" +"(let-values(((lst_141) init-mu*s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_142)))" -"((letrec-values(((for-loop_170)" -"(lambda(lst_216)" +"(let-values()(check-list lst_141)))" +"((letrec-values(((for-loop_171)" +"(lambda(lst_215)" "(begin" " 'for-loop" -"(if(pair? lst_216)" -"(let-values(((mu*_6)(unsafe-car lst_216))((rest_112)(unsafe-cdr lst_216)))" +"(if(pair? lst_215)" +"(let-values(((mu*_6)(unsafe-car lst_215))((rest_112)(unsafe-cdr lst_215)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -29750,10 +29789,10 @@ static const char *startup_source = "(let-values()(intern-module-use*_0 mu*_6))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_170 rest_112)(values))))" +"(if(not #f)(for-loop_171 rest_112)(values))))" "(values))))))" -" for-loop_170)" -" lst_142)))" +" for-loop_171)" +" lst_141)))" "(void)" "(lambda(mu*-or-instance_0)" "(if(1/instance? mu*-or-instance_0)" @@ -29765,10 +29804,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_228)" +"(let-values(((or-part_229)" "(get-module-linklet-info_1 mod-name_16(module-use-phase mu*_7))))" -"(if or-part_228" -" or-part_228" +"(if or-part_229" +" or-part_229" "(namespace->module-linklet-info" " ns_57" " mod-name_16" @@ -29789,41 +29828,41 @@ static const char *startup_source = "((extra-inspectorsss_3)" "(module-linklet-info-extra-inspectorsss mli_0)))" "(reverse$1" -"(let-values(((lst_217) mus_2)" -"((lst_218)" +"(let-values(((lst_216) mus_2)" +"((lst_217)" "(1/linklet-import-variables" "(module-linklet-info-linklet-or-instance mli_0)))" -"((lst_219)" -"(let-values(((or-part_229) extra-inspectorsss_3))" -"(if or-part_229 or-part_229 mus_2))))" +"((lst_218)" +"(let-values(((or-part_230) extra-inspectorsss_3))" +"(if or-part_230 or-part_230 mus_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_216)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_217)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_218)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_219)))" -"((letrec-values(((for-loop_209)" -"(lambda(fold-var_208 lst_220 lst_221 lst_222)" +"((letrec-values(((for-loop_210)" +"(lambda(fold-var_207 lst_219 lst_220 lst_221)" "(begin" " 'for-loop" -"(if(if(pair? lst_220)" -"(if(pair? lst_221)(pair? lst_222) #f)" +"(if(if(pair? lst_219)" +"(if(pair? lst_220)(pair? lst_221) #f)" " #f)" -"(let-values(((sub-mu_0)(unsafe-car lst_220))" -"((rest_113)(unsafe-cdr lst_220))" -"((imports_3)(unsafe-car lst_221))" -"((rest_114)(unsafe-cdr lst_221))" +"(let-values(((sub-mu_0)(unsafe-car lst_219))" +"((rest_113)(unsafe-cdr lst_219))" +"((imports_3)(unsafe-car lst_220))" +"((rest_114)(unsafe-cdr lst_220))" "((extra-inspectorss_13)" -"(unsafe-car lst_222))" -"((rest_115)(unsafe-cdr lst_222)))" +"(unsafe-car lst_221))" +"((rest_115)(unsafe-cdr lst_221)))" +"(let-values(((fold-var_208)" "(let-values(((fold-var_209)" +" fold-var_207))" "(let-values(((fold-var_210)" -" fold-var_208))" -"(let-values(((fold-var_211)" "(let-values()" "(cons" "(let-values()" @@ -29846,21 +29885,21 @@ static const char *startup_source = "(if extra-inspectorsss_3" " extra-inspectorss_13" " #f))))" -" fold-var_210))))" -"(values fold-var_211)))))" +" fold-var_209))))" +"(values fold-var_210)))))" "(if(not #f)" -"(for-loop_209" -" fold-var_209" +"(for-loop_210" +" fold-var_208" " rest_113" " rest_114" " rest_115)" -" fold-var_209)))" -" fold-var_208)))))" -" for-loop_209)" +" fold-var_208)))" +" fold-var_207)))))" +" for-loop_210)" " null" +" lst_216" " lst_217" -" lst_218" -" lst_219)))))))" +" lst_218)))))))" " #f))" "(values #f #f)))))))" "(let-values()(values #f #f))))))))))))" @@ -29873,7 +29912,7 @@ static const char *startup_source = "(map-cim-tree" " cims_0" "(lambda(cim_1)" -"(let-values(((vec_55 i_145)" +"(let-values(((vec_55 i_146)" "(let-values(((vec_56 len_28)" "(let-values(((vec_57)(compiled-in-memory-mpis cim_1)))" "(begin" @@ -29881,21 +29920,21 @@ static const char *startup_source = "(values vec_57(unsafe-vector-length vec_57))))))" "(begin" " #f" -"((letrec-values(((for-loop_94)" -"(lambda(vec_58 i_146 pos_93)" +"((letrec-values(((for-loop_96)" +"(lambda(vec_58 i_147 pos_93)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_93 len_28)" -"(let-values(((mpi_43)" +"(let-values(((mpi_44)" "(unsafe-vector-ref vec_56 pos_93)))" -"(let-values(((vec_59 i_147)" +"(let-values(((vec_59 i_148)" "(let-values(((vec_60) vec_58)" -"((i_148) i_146))" +"((i_57) i_147))" "(let-values(((vec_61 i_149)" "(let-values()" "(let-values(((new-vec_3)" "(if(eq?" -" i_148" +" i_57" "(unsafe-vector*-length" " vec_60))" "(grow-vector" @@ -29904,29 +29943,29 @@ static const char *startup_source = "(begin" "(unsafe-vector*-set!" " new-vec_3" -" i_148" +" i_57" "(let-values()" "(add-module-path-index!/pos" " mpis_17" -" mpi_43)))" +" mpi_44)))" "(values" " new-vec_3" "(unsafe-fx+" -" i_148" +" i_57" " 1)))))))" "(values vec_61 i_149)))))" "(if(not #f)" -"(for-loop_94" +"(for-loop_96" " vec_59" -" i_147" +" i_148" "(unsafe-fx+ 1 pos_93))" -"(values vec_59 i_147))))" -"(values vec_58 i_146))))))" -" for-loop_94)" +"(values vec_59 i_148))))" +"(values vec_58 i_147))))))" +" for-loop_96)" "(make-vector 16)" " 0" " 0)))))" -"(shrink-vector vec_55 i_145))))))" +"(shrink-vector vec_55 i_146))))))" "(let-values(((syntax-literals_2)(make-syntax-literals)))" "(let-values(((syntax-literals-trees_0)" "(map-cim-tree" @@ -29953,21 +29992,21 @@ static const char *startup_source = "(list*" " 'vector" "(reverse$1" -"(let-values(((lst_223)(reverse$1 module-uses-tables_0)))" +"(let-values(((lst_222)(reverse$1 module-uses-tables_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_223)))" -"((letrec-values(((for-loop_105)" -"(lambda(fold-var_67 lst_90)" +"(let-values()(check-list lst_222)))" +"((letrec-values(((for-loop_106)" +"(lambda(fold-var_67 lst_89)" "(begin" " 'for-loop" -"(if(pair? lst_90)" +"(if(pair? lst_89)" "(let-values(((phase-to-link-module-uses_2)" -"(unsafe-car lst_90))" -"((rest_116)(unsafe-cdr lst_90)))" -"(let-values(((fold-var_29)" -"(let-values(((fold-var_155)" +"(unsafe-car lst_89))" +"((rest_116)(unsafe-cdr lst_89)))" +"(let-values(((fold-var_34)" +"(let-values(((fold-var_154)" " fold-var_67))" "(let-values(((fold-var_9)" "(let-values()" @@ -29976,15 +30015,15 @@ static const char *startup_source = "(serialize-phase-to-link-module-uses" " phase-to-link-module-uses_2" " mpis_17))" -" fold-var_155))))" +" fold-var_154))))" "(values fold-var_9)))))" "(if(not #f)" -"(for-loop_105 fold-var_29 rest_116)" -" fold-var_29)))" +"(for-loop_106 fold-var_34 rest_116)" +" fold-var_34)))" " fold-var_67)))))" -" for-loop_105)" +" for-loop_106)" " null" -" lst_223)))))))" +" lst_222)))))))" "(1/compile-linklet" "(list" " 'linklet" @@ -30017,21 +30056,21 @@ static const char *startup_source = "(begin" " 'loop" "(reverse$1" -"(let-values(((lst_82) cims_2))" +"(let-values(((lst_81) cims_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_82)))" -"((letrec-values(((for-loop_95)" -"(lambda(fold-var_212 lst_83)" +"(let-values()(check-list lst_81)))" +"((letrec-values(((for-loop_97)" +"(lambda(fold-var_211 lst_82)" "(begin" " 'for-loop" -"(if(pair? lst_83)" -"(let-values(((cim_4)(unsafe-car lst_83))" -"((rest_117)(unsafe-cdr lst_83)))" -"(let-values(((fold-var_156)" -"(let-values(((fold-var_164) fold-var_212))" -"(let-values(((fold-var_165)" +"(if(pair? lst_82)" +"(let-values(((cim_4)(unsafe-car lst_82))" +"((rest_117)(unsafe-cdr lst_82)))" +"(let-values(((fold-var_155)" +"(let-values(((fold-var_163) fold-var_211))" +"(let-values(((fold-var_164)" "(let-values()" "(cons" "(let-values()" @@ -30043,15 +30082,15 @@ static const char *startup_source = "(loop_38" "(compiled-in-memory-post-compiled-in-memorys" " cim_4))))" -" fold-var_164))))" -"(values fold-var_165)))))" +" fold-var_163))))" +"(values fold-var_164)))))" "(if(not #f)" -"(for-loop_95 fold-var_156 rest_117)" -" fold-var_156)))" -" fold-var_212)))))" -" for-loop_95)" +"(for-loop_97 fold-var_155 rest_117)" +" fold-var_155)))" +" fold-var_211)))))" +" for-loop_97)" " null" -" lst_82))))))))" +" lst_81))))))))" " loop_38)" " cims_1))))" "(define-values" @@ -30075,49 +30114,49 @@ static const char *startup_source = "(let-values()(car cims_3))" "(let-values()" "(let-values(((sequence-ht_0)" -"(let-values(((lst_224) cims_3)((start_35) 0))" +"(let-values(((lst_223) cims_3)((start_35) 0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_224)))" +"(let-values()(check-list lst_223)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_35)))" -"((letrec-values(((for-loop_210)" -"(lambda(table_173 lst_101 pos_95)" +"((letrec-values(((for-loop_211)" +"(lambda(table_173 lst_100 pos_95)" "(begin" " 'for-loop" -"(if(if(pair? lst_101) #t #f)" -"(let-values(((cim_5)(unsafe-car lst_101))" -"((rest_36)(unsafe-cdr lst_101))" -"((i_76) pos_95))" +"(if(if(pair? lst_100) #t #f)" +"(let-values(((cim_5)(unsafe-car lst_100))" +"((rest_36)(unsafe-cdr lst_100))" +"((i_84) pos_95))" "(let-values(((table_174)" "(let-values(((table_175) table_173))" "(let-values(((table_176)" "(let-values()" -"(let-values(((key_63" -" val_55)" +"(let-values(((key_65" +" val_56)" "(let-values()" "(values" "(string->symbol" "(number->string" -" i_76))" +" i_84))" "((if to-source?_1" " values" " compiled-in-memory-linklet-directory)" " cim_5)))))" "(hash-set" " table_175" -" key_63" -" val_55)))))" +" key_65" +" val_56)))))" "(values table_176)))))" "(if(not #f)" -"(for-loop_210 table_174 rest_36(+ pos_95 1))" +"(for-loop_211 table_174 rest_36(+ pos_95 1))" " table_174)))" " table_173)))))" -" for-loop_210)" +" for-loop_211)" " '#hasheq()" -" lst_224" +" lst_223" " start_35)))))" "(let-values(((ht_119)" "(if merge-serialization?_0" @@ -30163,37 +30202,37 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(< pos_96 end_25)" -"(let-values(((i_92) pos_96))" +"(let-values(((i_93) pos_96))" "(let-values(((fold-var_18)" "(let-values(((top_0)" "(hash-ref" " ht_120" -"(string->symbol(number->string i_92))" +"(string->symbol(number->string i_93))" " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_111)" +"((letrec-values(((for-loop_112)" "(lambda(fold-var_64)" "(begin" " 'for-loop" "(let-values()" "(let-values(((fold-var_70)" -"(let-values(((fold-var_213)" +"(let-values(((fold-var_212)" " fold-var_64))" "(if top_0" +"(let-values(((fold-var_213)" +" fold-var_212))" "(let-values(((fold-var_214)" -" fold-var_213))" -"(let-values(((fold-var_215)" "(let-values()" "(cons" "(let-values()" " top_0)" -" fold-var_214))))" -"(values" -" fold-var_215)))" " fold-var_213))))" +"(values" +" fold-var_214)))" +" fold-var_212))))" " fold-var_70))))))" -" for-loop_111)" +" for-loop_112)" " fold-var_17)))))" "(if(not #f)(for-loop_10 fold-var_18(+ pos_96 inc_19)) fold-var_18)))" " fold-var_17)))))" @@ -30371,12 +30410,12 @@ static const char *startup_source = "(if(unsafe-fx< index_1 1)" "(let-values()" "(let-values(((v_4)(correlated-e e_39)))" -"(if(let-values(((or-part_74)(string? v_4)))" +"(if(let-values(((or-part_73)(string? v_4)))" +"(if or-part_73" +" or-part_73" +"(let-values(((or-part_74)(number? v_4)))" "(if or-part_74" " or-part_74" -"(let-values(((or-part_75)(number? v_4)))" -"(if or-part_75" -" or-part_75" "(let-values(((or-part_29)" "(boolean? v_4)))" "(if or-part_29" @@ -30388,13 +30427,13 @@ static const char *startup_source = "(let-values(((rator_0)" "(correlated-e" "(car v_4))))" -"(let-values(((or-part_69)" +"(let-values(((or-part_68)" "(hash-ref" " locals_2" " rator_0" " #f)))" -"(if or-part_69" -" or-part_69" +"(if or-part_68" +" or-part_68" "(lookup-defn" " defns_1" " rator_0))))" @@ -30402,37 +30441,37 @@ static const char *startup_source = "(if c1_24" "((lambda(d_30)" "(let-values(((ok?_17 _17_0 e18_0)" -"(let-values(((s_79) e_39))" +"(let-values(((s_85) e_39))" "(let-values(((orig-s_23)" -" s_79))" +" s_85))" "(let-values(((_17_1" " e18_1)" -"(let-values(((s_302)" +"(let-values(((s_305)" "(if(1/syntax?" -" s_79)" +" s_85)" "(syntax-e$2" -" s_79)" -" s_79)))" +" s_85)" +" s_85)))" "(if(pair?" -" s_302)" +" s_305)" "(let-values(((_19_0)" -"(let-values(((s_80)" +"(let-values(((s_86)" "(car" -" s_302)))" -" s_80))" +" s_305)))" +" s_86))" "((e20_0)" -"(let-values(((s_160)" +"(let-values(((s_161)" "(cdr" -" s_302)))" -"(let-values(((s_303)" +" s_305)))" +"(let-values(((s_306)" "(if(1/syntax?" -" s_160)" +" s_161)" "(syntax-e$2" -" s_160)" -" s_160)))" +" s_161)" +" s_161)))" "(let-values(((flat-s_13)" "(to-syntax-list.1$1" -" s_303)))" +" s_306)))" "(if(not" " flat-s_13)" "(let-values()" @@ -30463,8 +30502,8 @@ static const char *startup_source = " e18_1))))))" "(let-values(((n-args_0)" "(length e18_0)))" -"(if(let-values(((or-part_230)" "(if(let-values(((or-part_231)" +"(if(let-values(((or-part_232)" "(if(known-struct-op?" " d_30)" "(if(eq?" @@ -30477,8 +30516,8 @@ static const char *startup_source = " n-args_0)" " #f)" " #f)))" -"(if or-part_231" -" or-part_231" +"(if or-part_232" +" or-part_232" "(if(known-function?" " d_30)" "(if(known-function-pure?" @@ -30498,19 +30537,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_8)))" -"((letrec-values(((for-loop_211)" +"((letrec-values(((for-loop_212)" "(lambda(result_81" -" lst_225)" +" lst_224)" "(begin" " 'for-loop" "(if(pair?" -" lst_225)" +" lst_224)" "(let-values(((e_42)" "(unsafe-car" -" lst_225))" +" lst_224))" "((rest_118)" "(unsafe-cdr" -" lst_225)))" +" lst_224)))" "(let-values(((result_40)" "(let-values()" "(let-values(((result_82)" @@ -30531,17 +30570,17 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_211" +"(for-loop_212" " result_40" " rest_118)" " result_40)))" " result_81)))))" -" for-loop_211)" +" for-loop_212)" " #t" " lst_8)))" " #f)))" -"(if or-part_230" -" or-part_230" +"(if or-part_231" +" or-part_231" "(if(known-function-of-satisfying?" " d_30)" "(if(=" @@ -30551,7 +30590,7 @@ static const char *startup_source = " d_30)))" "(let-values(((lst_10)" " e18_0)" -"((lst_226)" +"((lst_225)" "(known-function-of-satisfying-arg-predicate-keys" " d_30)))" "(begin" @@ -30566,30 +30605,30 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_226)))" -"((letrec-values(((for-loop_97)" +" lst_225)))" +"((letrec-values(((for-loop_99)" "(lambda(result_83" -" lst_178" -" lst_227)" +" lst_177" +" lst_226)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_178)" +" lst_177)" "(pair?" -" lst_227)" +" lst_226)" " #f)" "(let-values(((e_43)" "(unsafe-car" -" lst_178))" +" lst_177))" "((rest_119)" "(unsafe-cdr" -" lst_178))" -"((key_64)" +" lst_177))" +"((key_66)" "(unsafe-car" -" lst_227))" +" lst_226))" "((rest_120)" "(unsafe-cdr" -" lst_227)))" +" lst_226)))" "(let-values(((result_42)" "(let-values()" "(let-values(((result_43)" @@ -30602,7 +30641,7 @@ static const char *startup_source = " locals_2))" "(satisfies?" " e_43" -" key_64" +" key_66" " defns_1" " locals_2)" " #f)))))" @@ -30617,32 +30656,32 @@ static const char *startup_source = "((lambda x_55" "(not" " result_42))" -" key_64))" +" key_66))" "(not" " #f)" " #f)" " #f)" -"(for-loop_97" +"(for-loop_99" " result_42" " rest_119" " rest_120)" " result_42)))" " result_83)))))" -" for-loop_97)" +" for-loop_99)" " #t" " lst_10" -" lst_226)))" +" lst_225)))" " #f)" " #f)))" " 1" " #f))))" " c1_24)" "(let-values()" -"(if(let-values(((or-part_177)" +"(if(let-values(((or-part_178)" "(self-quoting-in-linklet?" " v_4)))" -"(if or-part_177" -" or-part_177" +"(if or-part_178" +" or-part_178" "(if(symbol? v_4)" "(let-values(((or-part_35)" "(hash-ref" @@ -30657,11 +30696,11 @@ static const char *startup_source = " v_4)))" "(if or-part_36" " or-part_36" -"(let-values(((or-part_68)" +"(let-values(((or-part_67)" "(built-in-symbol?" " v_4)))" -"(if or-part_68" -" or-part_68" +"(if or-part_67" +" or-part_67" "(ready-variable?_0" " v_4)))))))" " #f)))" @@ -30675,30 +30714,30 @@ static const char *startup_source = " ids22_0" " rhs23_0" " body24_0)" -"(let-values(((s_74) e_39))" -"(let-values(((orig-s_24) s_74))" +"(let-values(((s_80) e_39))" +"(let-values(((orig-s_24) s_80))" "(let-values(((_21_1" " ids22_1" " rhs23_1" " body24_1)" -"(let-values(((s_304)" +"(let-values(((s_307)" "(if(1/syntax?" -" s_74)" +" s_80)" "(syntax-e$2" -" s_74)" -" s_74)))" -"(if(pair? s_304)" +" s_80)" +" s_80)))" +"(if(pair? s_307)" "(let-values(((_25_0)" "(let-values(((s_28)" "(car" -" s_304)))" +" s_307)))" " s_28))" "((ids26_0" " rhs27_0" " body28_0)" "(let-values(((s_29)" "(cdr" -" s_304)))" +" s_307)))" "(let-values(((s_30)" "(if(1/syntax?" " s_29)" @@ -30709,33 +30748,33 @@ static const char *startup_source = " s_30)" "(let-values(((ids29_0" " rhs30_0)" -"(let-values(((s_305)" +"(let-values(((s_308)" "(car" " s_30)))" -"(let-values(((s_306)" +"(let-values(((s_158)" "(if(1/syntax?" -" s_305)" +" s_308)" "(syntax-e$2" -" s_305)" -" s_305)))" +" s_308)" +" s_308)))" "(let-values(((flat-s_14)" "(to-syntax-list.1$1" -" s_306)))" +" s_158)))" "(if(not" " flat-s_14)" "(let-values()" "((lambda(false_2" -" str_7" +" str_2" " e_44)" "(error" -" str_7))" +" str_2))" " #f" " \"bad syntax\"" " orig-s_24))" "(let-values()" "(let-values(((ids_8" " rhs_4)" -"(let-values(((lst_228)" +"(let-values(((lst_227)" " flat-s_14))" "(begin" "(if(variable-reference-from-unsafe?" @@ -30743,21 +30782,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_228)))" -"((letrec-values(((for-loop_212)" +" lst_227)))" +"((letrec-values(((for-loop_213)" "(lambda(ids_9" " rhs_5" -" lst_229)" +" lst_228)" "(begin" " 'for-loop" "(if(pair?" -" lst_229)" -"(let-values(((s_307)" +" lst_228)" +"(let-values(((s_309)" "(unsafe-car" -" lst_229))" +" lst_228))" "((rest_121)" "(unsafe-cdr" -" lst_229)))" +" lst_228)))" "(let-values(((ids_10" " rhs_6)" "(let-values(((ids_11)" @@ -30770,23 +30809,6 @@ static const char *startup_source = "(let-values(((ids36_0" " rhs37_0)" "(let-values()" -"(let-values(((s_308)" -"(if(1/syntax?" -" s_307)" -"(syntax-e$2" -" s_307)" -" s_307)))" -"(if(pair?" -" s_308)" -"(let-values(((ids32_0)" -"(let-values(((s_50)" -"(car" -" s_308)))" -" s_50))" -"((rhs33_0)" -"(let-values(((s_309)" -"(cdr" -" s_308)))" "(let-values(((s_310)" "(if(1/syntax?" " s_309)" @@ -30795,39 +30817,56 @@ static const char *startup_source = " s_309)))" "(if(pair?" " s_310)" -"(let-values(((rhs34_0)" -"(let-values(((s_52)" +"(let-values(((ids32_0)" +"(let-values(((s_50)" "(car" " s_310)))" -" s_52))" -"(()" +" s_50))" +"((rhs33_0)" "(let-values(((s_311)" "(cdr" " s_310)))" -"(let-values(((s_156)" +"(let-values(((s_312)" "(if(1/syntax?" " s_311)" "(syntax-e$2" " s_311)" " s_311)))" +"(if(pair?" +" s_312)" +"(let-values(((rhs34_0)" +"(let-values(((s_52)" +"(car" +" s_312)))" +" s_52))" +"(()" +"(let-values(((s_313)" +"(cdr" +" s_312)))" +"(let-values(((s_157)" +"(if(1/syntax?" +" s_313)" +"(syntax-e$2" +" s_313)" +" s_313)))" "(if(null?" -" s_156)" +" s_157)" "(values)" "((lambda(false_3" -" str_8" -" e_9)" +" str_7" +" e_45)" "(error" -" str_8))" +" str_7))" " #f" " \"bad syntax\"" " orig-s_24))))))" "(values" " rhs34_0))" "((lambda(false_4" -" str_9" -" e_45)" +" str_8" +" e_46)" "(error" -" str_9))" +" str_8))" " #f" " \"bad syntax\"" " orig-s_24))))))" @@ -30835,10 +30874,10 @@ static const char *startup_source = " ids32_0" " rhs33_0))" "((lambda(false_5" -" str_10" -" e_46)" +" str_9" +" e_47)" "(error" -" str_10))" +" str_9))" " #f" " \"bad syntax\"" " orig-s_24))))))" @@ -30854,7 +30893,7 @@ static const char *startup_source = " rhs_8)))))" "(if(not" " #f)" -"(for-loop_212" +"(for-loop_213" " ids_10" " rhs_6" " rest_121)" @@ -30864,60 +30903,60 @@ static const char *startup_source = "(values" " ids_9" " rhs_5))))))" -" for-loop_212)" +" for-loop_213)" " null" " null" -" lst_228)))))" +" lst_227)))))" "(values" "(reverse$1" " ids_8)" "(reverse$1" " rhs_4)))))))))" "((body31_0)" -"(let-values(((s_312)" +"(let-values(((s_314)" "(cdr" " s_30)))" -"(let-values(((s_313)" -"(if(1/syntax?" -" s_312)" -"(syntax-e$2" -" s_312)" -" s_312)))" -"(if(pair?" -" s_313)" -"(let-values(((body35_0)" -"(let-values(((s_314)" -"(car" -" s_313)))" -" s_314))" -"(()" "(let-values(((s_315)" -"(cdr" -" s_313)))" -"(let-values(((s_316)" "(if(1/syntax?" -" s_315)" +" s_314)" "(syntax-e$2" +" s_314)" +" s_314)))" +"(if(pair?" " s_315)" +"(let-values(((body35_0)" +"(let-values(((s_316)" +"(car" " s_315)))" +" s_316))" +"(()" +"(let-values(((s_317)" +"(cdr" +" s_315)))" +"(let-values(((s_318)" +"(if(1/syntax?" +" s_317)" +"(syntax-e$2" +" s_317)" +" s_317)))" "(if(null?" -" s_316)" +" s_318)" "(values)" "((lambda(false_6" -" str_11" -" e_47)" +" str_10" +" e_48)" "(error" -" str_11))" +" str_10))" " #f" " \"bad syntax\"" " orig-s_24))))))" "(values" " body35_0))" "((lambda(false_7" -" str_12" -" e_48)" +" str_11" +" e_49)" "(error" -" str_12))" +" str_11))" " #f" " \"bad syntax\"" " orig-s_24))))))" @@ -30926,10 +30965,10 @@ static const char *startup_source = " rhs30_0" " body31_0))" "((lambda(false_8" -" str_13" -" e_49)" +" str_12" +" e_50)" "(error" -" str_13))" +" str_12))" " #f" " \"bad syntax\"" " orig-s_24))))))" @@ -30939,10 +30978,10 @@ static const char *startup_source = " rhs27_0" " body28_0))" "((lambda(false_9" -" str_14" -" e_50)" +" str_13" +" e_51)" "(error" -" str_14))" +" str_13))" " #f" " \"bad syntax\"" " orig-s_24)))))" @@ -30953,40 +30992,40 @@ static const char *startup_source = " rhs23_1" " body24_1))))))" "(if(not" -"(let-values(((lst_230) ids22_0)" -"((lst_231) rhs23_0))" +"(let-values(((lst_229) ids22_0)" +"((lst_230) rhs23_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" +"(let-values()(check-list lst_229)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" "(let-values()(check-list lst_230)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_231)))" -"((letrec-values(((for-loop_213)" +"((letrec-values(((for-loop_214)" "(lambda(result_84" -" lst_232" -" lst_198)" +" lst_231" +" lst_197)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_232)" +" lst_231)" "(pair?" -" lst_198)" +" lst_197)" " #f)" "(let-values(((ids_13)" "(unsafe-car" -" lst_232))" +" lst_231))" "((rest_101)" "(unsafe-cdr" -" lst_232))" +" lst_231))" "((rhs_9)" "(unsafe-car" -" lst_198))" +" lst_197))" "((rest_122)" "(unsafe-cdr" -" lst_198)))" +" lst_197)))" "(let-values(((result_85)" "(let-values()" "(let-values(((result_14)" @@ -31011,16 +31050,16 @@ static const char *startup_source = " #f)" " #f)" " #f)" -"(for-loop_213" +"(for-loop_214" " result_85" " rest_101" " rest_122)" " result_85)))" " result_84)))))" -" for-loop_213)" +" for-loop_214)" " #f" -" lst_230" -" lst_231))))" +" lst_229" +" lst_230))))" "(loop_2" " body24_0" "(add-binding-info locals_2 ids22_0 rhs23_0))" @@ -31039,31 +31078,31 @@ static const char *startup_source = " s_61)))" "(if(pair? s_62)" "(let-values(((_40_0)" -"(let-values(((s_317)" +"(let-values(((s_319)" "(car" " s_62)))" -" s_317))" +" s_319))" "((e41_0)" -"(let-values(((s_318)" +"(let-values(((s_320)" "(cdr" " s_62)))" -"(let-values(((s_319)" +"(let-values(((s_321)" "(if(1/syntax?" -" s_318)" +" s_320)" "(syntax-e$2" -" s_318)" -" s_318)))" +" s_320)" +" s_320)))" "(let-values(((flat-s_15)" "(to-syntax-list.1$1" -" s_319)))" +" s_321)))" "(if(not" " flat-s_15)" "(let-values()" "((lambda(false_10" -" str_15" -" e_51)" +" str_14" +" e_52)" "(error" -" str_15))" +" str_14))" " #f" " \"bad syntax\"" " orig-s_25))" @@ -31073,33 +31112,33 @@ static const char *startup_source = " _40_0" " e41_0))" "((lambda(false_11" -" str_16" -" e_52)" +" str_15" +" e_53)" "(error" -" str_16))" +" str_15))" " #f" " \"bad syntax\"" " orig-s_25)))))" "(values #t _38_1 e39_1))))))" -"(if(let-values(((lst_155) e39_0))" +"(if(let-values(((lst_154) e39_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_155)))" -"((letrec-values(((for-loop_214)" +"(let-values()(check-list lst_154)))" +"((letrec-values(((for-loop_215)" "(lambda(result_61" -" lst_233)" +" lst_232)" "(begin" " 'for-loop" "(if(pair?" -" lst_233)" -"(let-values(((e_53)" +" lst_232)" +"(let-values(((e_54)" "(unsafe-car" -" lst_233))" +" lst_232))" "((rest_123)" "(unsafe-cdr" -" lst_233)))" +" lst_232)))" "(let-values(((result_86)" "(let-values()" "(let-values(((result_87)" @@ -31107,7 +31146,7 @@ static const char *startup_source = "(let-values()" "(not" "(effects?_0" -" e_53" +" e_54" " 1" " locals_2))))))" "(values" @@ -31116,59 +31155,59 @@ static const char *startup_source = "((lambda x_58" "(not" " result_86))" -" e_53))" +" e_54))" "(not" " #f)" " #f)" -"(for-loop_214" +"(for-loop_215" " result_86" " rest_123)" " result_86)))" " result_61)))))" -" for-loop_214)" +" for-loop_215)" " #t" -" lst_155)))" +" lst_154)))" "(length e39_0)" " #f)))" "(let-values()" "(let-values(((ok?_20 _42_0 e43_0)" -"(let-values(((s_207) e_39))" -"(let-values(((orig-s_26) s_207))" +"(let-values(((s_210) e_39))" +"(let-values(((orig-s_26) s_210))" "(let-values(((_42_1 e43_1)" -"(let-values(((s_320)" -"(if(1/syntax?" -" s_207)" -"(syntax-e$2" -" s_207)" -" s_207)))" -"(if(pair?" -" s_320)" -"(let-values(((_44_0)" -"(let-values(((s_321)" -"(car" -" s_320)))" -" s_321))" -"((e45_0)" "(let-values(((s_322)" -"(cdr" -" s_320)))" -"(let-values(((s_323)" "(if(1/syntax?" -" s_322)" +" s_210)" "(syntax-e$2" +" s_210)" +" s_210)))" +"(if(pair?" " s_322)" +"(let-values(((_44_0)" +"(let-values(((s_323)" +"(car" " s_322)))" +" s_323))" +"((e45_0)" +"(let-values(((s_324)" +"(cdr" +" s_322)))" +"(let-values(((s_325)" +"(if(1/syntax?" +" s_324)" +"(syntax-e$2" +" s_324)" +" s_324)))" "(let-values(((flat-s_16)" "(to-syntax-list.1$1" -" s_323)))" +" s_325)))" "(if(not" " flat-s_16)" "(let-values()" "((lambda(false_12" -" str_17" -" e_54)" +" str_16" +" e_55)" "(error" -" str_17))" +" str_16))" " #f" " \"bad syntax\"" " orig-s_26))" @@ -31178,33 +31217,33 @@ static const char *startup_source = " _44_0" " e45_0))" "((lambda(false_13" -" str_18" -" e_55)" +" str_17" +" e_56)" "(error" -" str_18))" +" str_17))" " #f" " \"bad syntax\"" " orig-s_26)))))" "(values #t _42_1 e43_1))))))" -"(if(let-values(((lst_234) e43_0))" +"(if(let-values(((lst_233) e43_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_234)))" -"((letrec-values(((for-loop_215)" +"(let-values()(check-list lst_233)))" +"((letrec-values(((for-loop_216)" "(lambda(result_88" -" lst_235)" +" lst_234)" "(begin" " 'for-loop" "(if(pair?" -" lst_235)" -"(let-values(((e_56)" +" lst_234)" +"(let-values(((e_57)" "(unsafe-car" -" lst_235))" +" lst_234))" "((rest_124)" "(unsafe-cdr" -" lst_235)))" +" lst_234)))" "(let-values(((result_89)" "(let-values()" "(let-values(((result_90)" @@ -31212,7 +31251,7 @@ static const char *startup_source = "(let-values()" "(not" "(effects?_0" -" e_56" +" e_57" " 1" " locals_2))))))" "(values" @@ -31221,60 +31260,60 @@ static const char *startup_source = "((lambda x_59" "(not" " result_89))" -" e_56))" +" e_57))" "(not" " #f)" " #f)" -"(for-loop_215" +"(for-loop_216" " result_89" " rest_124)" " result_89)))" " result_88)))))" -" for-loop_215)" +" for-loop_216)" " #t" -" lst_234)))" +" lst_233)))" " 1" " #f))))))" "(if(unsafe-fx< index_1 8)" "(if(unsafe-fx< index_1 6)" "(let-values()" "(let-values(((ok?_21 _46_0 e47_0)" -"(let-values(((s_324) e_39))" -"(let-values(((orig-s_27) s_324))" +"(let-values(((s_326) e_39))" +"(let-values(((orig-s_27) s_326))" "(let-values(((_46_1 e47_1)" -"(let-values(((s_98)" +"(let-values(((s_104)" "(if(1/syntax?" -" s_324)" +" s_326)" "(syntax-e$2" -" s_324)" -" s_324)))" -"(if(pair? s_98)" +" s_326)" +" s_326)))" +"(if(pair? s_104)" "(let-values(((_48_0)" -"(let-values(((s_325)" +"(let-values(((s_327)" "(car" -" s_98)))" -" s_325))" +" s_104)))" +" s_327))" "((e49_0)" -"(let-values(((s_101)" +"(let-values(((s_107)" "(cdr" -" s_98)))" -"(let-values(((s_326)" +" s_104)))" +"(let-values(((s_328)" "(if(1/syntax?" -" s_101)" +" s_107)" "(syntax-e$2" -" s_101)" -" s_101)))" +" s_107)" +" s_107)))" "(let-values(((flat-s_17)" "(to-syntax-list.1$1" -" s_326)))" +" s_328)))" "(if(not" " flat-s_17)" "(let-values()" "((lambda(false_14" -" str_19" -" e_57)" +" str_18" +" e_58)" "(error" -" str_19))" +" str_18))" " #f" " \"bad syntax\"" " orig-s_27))" @@ -31284,10 +31323,10 @@ static const char *startup_source = " _48_0" " e49_0))" "((lambda(false_15" -" str_20" -" e_58)" +" str_19" +" e_59)" "(error" -" str_20))" +" str_19))" " #f" " \"bad syntax\"" " orig-s_27)))))" @@ -31316,63 +31355,63 @@ static const char *startup_source = "(if(unsafe-fx< index_1 7)" "(let-values()" "(let-values(((ok?_7 _50_0 e051_0 e52_0)" -"(let-values(((s_216) e_39))" -"(let-values(((orig-s_9) s_216))" +"(let-values(((s_219) e_39))" +"(let-values(((orig-s_9) s_219))" "(let-values(((_50_1" " e051_1" " e52_1)" -"(let-values(((s_217)" -"(if(1/syntax?" -" s_216)" -"(syntax-e$2" -" s_216)" -" s_216)))" -"(if(pair?" -" s_217)" -"(let-values(((_53_0)" -"(let-values(((s_218)" -"(car" -" s_217)))" -" s_218))" -"((e054_0" -" e55_0)" -"(let-values(((s_219)" -"(cdr" -" s_217)))" -"(let-values(((s_111)" +"(let-values(((s_220)" "(if(1/syntax?" " s_219)" "(syntax-e$2" " s_219)" " s_219)))" "(if(pair?" -" s_111)" -"(let-values(((e056_0)" -"(let-values(((s_220)" +" s_220)" +"(let-values(((_53_0)" +"(let-values(((s_221)" "(car" -" s_111)))" -" s_220))" -"((e57_0)" -"(let-values(((s_112)" +" s_220)))" +" s_221))" +"((e054_0" +" e55_0)" +"(let-values(((s_222)" "(cdr" -" s_111)))" -"(let-values(((s_113)" +" s_220)))" +"(let-values(((s_117)" "(if(1/syntax?" -" s_112)" +" s_222)" "(syntax-e$2" -" s_112)" -" s_112)))" +" s_222)" +" s_222)))" +"(if(pair?" +" s_117)" +"(let-values(((e056_0)" +"(let-values(((s_223)" +"(car" +" s_117)))" +" s_223))" +"((e57_0)" +"(let-values(((s_118)" +"(cdr" +" s_117)))" +"(let-values(((s_119)" +"(if(1/syntax?" +" s_118)" +"(syntax-e$2" +" s_118)" +" s_118)))" "(let-values(((flat-s_5)" "(to-syntax-list.1$1" -" s_113)))" +" s_119)))" "(if(not" " flat-s_5)" "(let-values()" "((lambda(false_16" -" str_21" -" e_59)" +" str_20" +" e_60)" "(error" -" str_21))" +" str_20))" " #f" " \"bad syntax\"" " orig-s_9))" @@ -31382,10 +31421,10 @@ static const char *startup_source = " e056_0" " e57_0))" "((lambda(false_17" -" str_22" -" e_60)" +" str_21" +" e_61)" "(error" -" str_22))" +" str_21))" " #f" " \"bad syntax\"" " orig-s_9))))))" @@ -31394,10 +31433,10 @@ static const char *startup_source = " e054_0" " e55_0))" "((lambda(false_18" -" str_23" -" e_61)" +" str_22" +" e_62)" "(error" -" str_23))" +" str_22))" " #f" " \"bad syntax\"" " orig-s_9)))))" @@ -31412,19 +31451,19 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_39)))" -"((letrec-values(((for-loop_44)" +"((letrec-values(((for-loop_45)" "(lambda(result_91" -" lst_236)" +" lst_235)" "(begin" " 'for-loop" "(if(pair?" -" lst_236)" -"(let-values(((e_62)" +" lst_235)" +"(let-values(((e_63)" "(unsafe-car" -" lst_236))" +" lst_235))" "((rest_125)" "(unsafe-cdr" -" lst_236)))" +" lst_235)))" "(let-values(((result_92)" "(let-values()" "(let-values(((result_93)" @@ -31432,7 +31471,7 @@ static const char *startup_source = "(let-values()" "(not" "(effects?_0" -" e_62" +" e_63" " #f" " locals_2))))))" "(values" @@ -31441,16 +31480,16 @@ static const char *startup_source = "((lambda x_60" "(not" " result_92))" -" e_62))" +" e_63))" "(not" " #f)" " #f)" -"(for-loop_44" +"(for-loop_45" " result_92" " rest_125)" " result_92)))" " result_91)))))" -" for-loop_44)" +" for-loop_45)" " #t" " lst_39)))" "(loop_2 e051_0 locals_2)" @@ -31492,134 +31531,134 @@ static const char *startup_source = " id:arg60_0" " thn61_0" " els62_0)" -"(let-values(((s_327) e_39))" -"(if(let-values(((s_226)" -"(if(1/syntax?" -" s_327)" -"(syntax-e$2" -" s_327)" -" s_327)))" -"(if(pair? s_226)" -"(if(let-values(((s_227)" -"(car" -" s_226)))" -" #t)" -"(let-values(((s_328)" -"(cdr" -" s_226)))" -"(let-values(((s_228)" -"(if(1/syntax?" -" s_328)" -"(syntax-e$2" -" s_328)" -" s_328)))" -"(if(pair? s_228)" +"(let-values(((s_329) e_39))" "(if(let-values(((s_229)" -"(car" -" s_228)))" -"(let-values(((s_230)" -"(if(1/syntax?" -" s_229)" -"(syntax-e$2" -" s_229)" -" s_229)))" -"(if(pair?" -" s_230)" -"(if(let-values(((s_329)" -"(car" -" s_230)))" -"(let-values(((or-part_232)" "(if(1/syntax?" " s_329)" -"(symbol?" "(syntax-e$2" -" s_329))" -" #f)))" -"(if or-part_232" -" or-part_232" -"(symbol?" -" s_329))))" +" s_329)" +" s_329)))" +"(if(pair? s_229)" +"(if(let-values(((s_230)" +"(car" +" s_229)))" +" #t)" "(let-values(((s_330)" "(cdr" -" s_230)))" -"(let-values(((s_331)" +" s_229)))" +"(let-values(((s_231)" "(if(1/syntax?" " s_330)" "(syntax-e$2" " s_330)" " s_330)))" -"(if(pair?" -" s_331)" -"(if(let-values(((s_332)" +"(if(pair? s_231)" +"(if(let-values(((s_232)" "(car" -" s_331)))" +" s_231)))" +"(let-values(((s_233)" +"(if(1/syntax?" +" s_232)" +"(syntax-e$2" +" s_232)" +" s_232)))" +"(if(pair?" +" s_233)" +"(if(let-values(((s_331)" +"(car" +" s_233)))" "(let-values(((or-part_233)" "(if(1/syntax?" -" s_332)" +" s_331)" "(symbol?" "(syntax-e$2" -" s_332))" +" s_331))" " #f)))" "(if or-part_233" " or-part_233" "(symbol?" -" s_332))))" -"(let-values(((s_333)" +" s_331))))" +"(let-values(((s_332)" "(cdr" -" s_331)))" -"(let-values(((s_334)" +" s_233)))" +"(let-values(((s_333)" "(if(1/syntax?" -" s_333)" +" s_332)" "(syntax-e$2" +" s_332)" +" s_332)))" +"(if(pair?" " s_333)" +"(if(let-values(((s_334)" +"(car" " s_333)))" -"(null?" -" s_334)))" -" #f)" -" #f)))" -" #f)" +"(let-values(((or-part_234)" +"(if(1/syntax?" +" s_334)" +"(symbol?" +"(syntax-e$2" +" s_334))" " #f)))" +"(if or-part_234" +" or-part_234" +"(symbol?" +" s_334))))" "(let-values(((s_335)" "(cdr" -" s_228)))" +" s_333)))" "(let-values(((s_336)" "(if(1/syntax?" " s_335)" "(syntax-e$2" " s_335)" " s_335)))" -"(if(pair?" -" s_336)" -"(if(let-values(((s_337)" -"(car" -" s_336)))" -" #t)" -"(let-values(((s_338)" -"(cdr" -" s_336)))" -"(let-values(((s_339)" -"(if(1/syntax?" -" s_338)" -"(syntax-e$2" -" s_338)" -" s_338)))" -"(if(pair?" -" s_339)" -"(if(let-values(((s_340)" -"(car" -" s_339)))" -" #t)" -"(let-values(((s_341)" -"(cdr" -" s_339)))" -"(let-values(((s_342)" -"(if(1/syntax?" -" s_341)" -"(syntax-e$2" -" s_341)" -" s_341)))" "(null?" -" s_342)))" +" s_336)))" +" #f)" +" #f)))" +" #f)" +" #f)))" +"(let-values(((s_337)" +"(cdr" +" s_231)))" +"(let-values(((s_338)" +"(if(1/syntax?" +" s_337)" +"(syntax-e$2" +" s_337)" +" s_337)))" +"(if(pair?" +" s_338)" +"(if(let-values(((s_339)" +"(car" +" s_338)))" +" #t)" +"(let-values(((s_340)" +"(cdr" +" s_338)))" +"(let-values(((s_341)" +"(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)))" +"(null?" +" s_344)))" " #f)" " #f)))" " #f)" @@ -31634,71 +31673,71 @@ static const char *startup_source = " id:arg60_1" " thn61_1" " els62_1)" -"(let-values(((s_232)" -"(if(1/syntax?" -" s_327)" -"(syntax-e$2" -" s_327)" -" s_327)))" -"(let-values(((_63_0)" "(let-values(((s_235)" +"(if(1/syntax?" +" s_329)" +"(syntax-e$2" +" s_329)" +" s_329)))" +"(let-values(((_63_0)" +"(let-values(((s_238)" "(car" -" s_232)))" -" s_235))" +" s_235)))" +" s_238))" "((id:rator64_0" " id:arg65_0" " thn66_0" " els67_0)" -"(let-values(((s_343)" -"(cdr" -" s_232)))" -"(let-values(((s_344)" -"(if(1/syntax?" -" s_343)" -"(syntax-e$2" -" s_343)" -" s_343)))" -"(let-values(((id:rator68_0" -" id:arg69_0)" "(let-values(((s_345)" -"(car" -" s_344)))" +"(cdr" +" s_235)))" "(let-values(((s_346)" "(if(1/syntax?" " s_345)" "(syntax-e$2" " s_345)" " s_345)))" -"(let-values(((id:rator72_0)" +"(let-values(((id:rator68_0" +" id:arg69_0)" "(let-values(((s_347)" "(car" " s_346)))" -" s_347))" -"((id:arg73_0)" -"(let-values(((s_239)" -"(cdr" -" s_346)))" "(let-values(((s_348)" "(if(1/syntax?" -" s_239)" +" s_347)" "(syntax-e$2" -" s_239)" -" s_239)))" -"(let-values(((id:arg74_0)" +" s_347)" +" s_347)))" +"(let-values(((id:rator72_0)" "(let-values(((s_349)" "(car" " s_348)))" " s_349))" -"(()" -"(let-values(((s_350)" +"((id:arg73_0)" +"(let-values(((s_242)" "(cdr" " s_348)))" -"(let-values(((s_351)" +"(let-values(((s_350)" "(if(1/syntax?" -" s_350)" +" s_242)" "(syntax-e$2" -" s_350)" +" s_242)" +" s_242)))" +"(let-values(((id:arg74_0)" +"(let-values(((s_351)" +"(car" " s_350)))" +" s_351))" +"(()" +"(let-values(((s_352)" +"(cdr" +" s_350)))" +"(let-values(((s_353)" +"(if(1/syntax?" +" s_352)" +"(syntax-e$2" +" s_352)" +" s_352)))" "(values)))))" "(values" " id:arg74_0))))))" @@ -31707,45 +31746,45 @@ static const char *startup_source = " id:arg73_0)))))" "((thn70_0" " els71_0)" -"(let-values(((s_352)" -"(cdr" -" s_344)))" -"(let-values(((s_353)" -"(if(1/syntax?" -" s_352)" -"(syntax-e$2" -" s_352)" -" s_352)))" -"(let-values(((thn75_0)" "(let-values(((s_354)" -"(car" -" s_353)))" -" s_354))" -"((els76_0)" +"(cdr" +" s_346)))" "(let-values(((s_355)" -"(cdr" -" s_353)))" +"(if(1/syntax?" +" s_354)" +"(syntax-e$2" +" s_354)" +" s_354)))" +"(let-values(((thn75_0)" "(let-values(((s_356)" -"(if(1/syntax?" -" s_355)" -"(syntax-e$2" -" s_355)" -" s_355)))" -"(let-values(((els77_0)" -"(let-values(((s_357)" "(car" -" s_356)))" -" s_357))" -"(()" -"(let-values(((s_358)" +" s_355)))" +" s_356))" +"((els76_0)" +"(let-values(((s_357)" "(cdr" -" s_356)))" -"(let-values(((s_359)" +" s_355)))" +"(let-values(((s_358)" "(if(1/syntax?" -" s_358)" +" s_357)" "(syntax-e$2" -" s_358)" +" s_357)" +" s_357)))" +"(let-values(((els77_0)" +"(let-values(((s_359)" +"(car" " s_358)))" +" s_359))" +"(()" +"(let-values(((s_360)" +"(cdr" +" s_358)))" +"(let-values(((s_361)" +"(if(1/syntax?" +" s_360)" +"(syntax-e$2" +" s_360)" +" s_360)))" "(values)))))" "(values" " els77_0))))))" @@ -31774,13 +31813,13 @@ static const char *startup_source = "(if ok?_22" "(let-values()" "(let-values(((c2_2)" -"(let-values(((or-part_234)" +"(let-values(((or-part_235)" "(hash-ref" " locals_2" " id:rator59_0" " #f)))" -"(if or-part_234" -" or-part_234" +"(if or-part_235" +" or-part_235" "(lookup-defn" " defns_1" " id:rator59_0)))))" @@ -31808,74 +31847,74 @@ static const char *startup_source = " tst79_0" " thn80_0" " els81_0)" -"(let-values(((s_360) e_39))" -"(if(let-values(((s_361)" -"(if(1/syntax?" -" s_360)" -"(syntax-e$2" -" s_360)" -" s_360)))" -"(if(pair? s_361)" -"(if(let-values(((s_251)" -"(car" -" s_361)))" -" #t)" -"(let-values(((s_362)" -"(cdr" -" s_361)))" -"(let-values(((s_363)" +"(let-values(((s_362) e_39))" +"(if(let-values(((s_363)" "(if(1/syntax?" " s_362)" "(syntax-e$2" " s_362)" " s_362)))" -"(if(pair?" -" s_363)" -"(if(let-values(((s_364)" +"(if(pair? s_363)" +"(if(let-values(((s_254)" "(car" " s_363)))" " #t)" +"(let-values(((s_364)" +"(cdr" +" s_363)))" "(let-values(((s_365)" -"(cdr" -" s_363)))" -"(let-values(((s_366)" "(if(1/syntax?" -" s_365)" +" s_364)" "(syntax-e$2" +" s_364)" +" s_364)))" +"(if(pair?" " s_365)" +"(if(let-values(((s_366)" +"(car" " s_365)))" -"(if(pair?" -" s_366)" -"(if(let-values(((s_367)" -"(car" -" s_366)))" " #t)" +"(let-values(((s_367)" +"(cdr" +" s_365)))" "(let-values(((s_368)" -"(cdr" -" s_366)))" -"(let-values(((s_369)" "(if(1/syntax?" -" s_368)" +" s_367)" "(syntax-e$2" -" s_368)" -" s_368)))" +" s_367)" +" s_367)))" "(if(pair?" -" s_369)" -"(if(let-values(((s_370)" +" s_368)" +"(if(let-values(((s_369)" "(car" -" s_369)))" +" s_368)))" " #t)" -"(let-values(((s_371)" +"(let-values(((s_370)" "(cdr" -" s_369)))" -"(let-values(((s_372)" +" s_368)))" +"(let-values(((s_371)" "(if(1/syntax?" -" s_371)" +" s_370)" "(syntax-e$2" +" s_370)" +" s_370)))" +"(if(pair?" " s_371)" +"(if(let-values(((s_372)" +"(car" " s_371)))" +" #t)" +"(let-values(((s_373)" +"(cdr" +" s_371)))" +"(let-values(((s_374)" +"(if(1/syntax?" +" s_373)" +"(syntax-e$2" +" s_373)" +" s_373)))" "(null?" -" s_372)))" +" s_374)))" " #f)" " #f)))" " #f)" @@ -31889,75 +31928,75 @@ static const char *startup_source = " tst79_1" " thn80_1" " els81_1)" -"(let-values(((s_373)" +"(let-values(((s_375)" "(if(1/syntax?" -" s_360)" +" s_362)" "(syntax-e$2" -" s_360)" -" s_360)))" +" s_362)" +" s_362)))" "(let-values(((_82_0)" -"(let-values(((s_374)" +"(let-values(((s_376)" "(car" -" s_373)))" -" s_374))" +" s_375)))" +" s_376))" "((tst83_0" " thn84_0" " els85_0)" -"(let-values(((s_375)" -"(cdr" -" s_373)))" -"(let-values(((s_376)" -"(if(1/syntax?" -" s_375)" -"(syntax-e$2" -" s_375)" -" s_375)))" -"(let-values(((tst86_0)" "(let-values(((s_377)" +"(cdr" +" s_375)))" +"(let-values(((s_378)" +"(if(1/syntax?" +" s_377)" +"(syntax-e$2" +" s_377)" +" s_377)))" +"(let-values(((tst86_0)" +"(let-values(((s_379)" "(car" -" s_376)))" -" s_377))" +" s_378)))" +" s_379))" "((thn87_0" " els88_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(((thn89_0)" -"(let-values(((s_253)" -"(car" -" s_379)))" -" s_253))" -"((els90_0)" "(let-values(((s_380)" "(cdr" -" s_379)))" +" s_378)))" "(let-values(((s_381)" "(if(1/syntax?" " s_380)" "(syntax-e$2" " s_380)" " s_380)))" -"(let-values(((els91_0)" -"(let-values(((s_382)" +"(let-values(((thn89_0)" +"(let-values(((s_256)" "(car" " s_381)))" -" s_382))" -"(()" -"(let-values(((s_254)" +" s_256))" +"((els90_0)" +"(let-values(((s_382)" "(cdr" " s_381)))" -"(let-values(((s_255)" +"(let-values(((s_383)" "(if(1/syntax?" -" s_254)" +" s_382)" "(syntax-e$2" -" s_254)" -" s_254)))" +" s_382)" +" s_382)))" +"(let-values(((els91_0)" +"(let-values(((s_384)" +"(car" +" s_383)))" +" s_384))" +"(()" +"(let-values(((s_257)" +"(cdr" +" s_383)))" +"(let-values(((s_258)" +"(if(1/syntax?" +" s_257)" +"(syntax-e$2" +" s_257)" +" s_257)))" "(values)))))" "(values" " els91_0))))))" @@ -32002,34 +32041,34 @@ static const char *startup_source = " locals_0)))" "(not" "(if actual-results_0" -"(let-values(((or-part_235)(not expected-results_0)))" -"(if or-part_235 or-part_235(= actual-results_0 expected-results_0)))" +"(let-values(((or-part_236)(not expected-results_0)))" +"(if or-part_236 or-part_236(= actual-results_0 expected-results_0)))" " #f)))))))))))))" "(define-values" "(satisfies?)" -"(lambda(e_63 key_65 defns_2 locals_3)" +"(lambda(e_64 key_67 defns_2 locals_3)" "(begin" "(let-values(((d_4)" -"(let-values(((or-part_236)(hash-ref locals_3 e_63 #f)))" -"(if or-part_236 or-part_236(lookup-defn defns_2 e_63)))))" -"(if d_4(if(known-satisfies? d_4)(eq? key_65(known-satisfies-predicate-key d_4)) #f) #f)))))" +"(let-values(((or-part_237)(hash-ref locals_3 e_64 #f)))" +"(if or-part_237 or-part_237(lookup-defn defns_2 e_64)))))" +"(if d_4(if(known-satisfies? d_4)(eq? key_67(known-satisfies-predicate-key d_4)) #f) #f)))))" "(define-values" "(add-binding-info)" "(lambda(locals_4 idss_0 rhss_0)" "(begin" -"(let-values(((lst_237) idss_0)((lst_238) rhss_0))" +"(let-values(((lst_236) idss_0)((lst_237) rhss_0))" "(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_236)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_237)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_238)))" -"((letrec-values(((for-loop_216)" -"(lambda(locals_5 lst_239 lst_240)" +"((letrec-values(((for-loop_217)" +"(lambda(locals_5 lst_238 lst_239)" "(begin" " 'for-loop" -"(if(if(pair? lst_239)(pair? lst_240) #f)" -"(let-values(((ids_14)(unsafe-car lst_239))" -"((rest_126)(unsafe-cdr lst_239))" -"((rhs_10)(unsafe-car lst_240))" -"((rest_127)(unsafe-cdr lst_240)))" +"(if(if(pair? lst_238)(pair? lst_239) #f)" +"(let-values(((ids_14)(unsafe-car lst_238))" +"((rest_126)(unsafe-cdr lst_238))" +"((rhs_10)(unsafe-car lst_239))" +"((rest_127)(unsafe-cdr lst_239)))" "(let-values(((locals_6)" "(let-values(((locals_7) locals_5))" "(let-values(((locals_8)" @@ -32054,10 +32093,10 @@ static const char *startup_source = "(let-values(((field-count_0)" "(extract-struct-field-count-lower-bound" " rhs_11)))" -"(let-values(((lst_241)" +"(let-values(((lst_240)" "(correlated->list" " ids_14))" -"((lst_242)" +"((lst_241)" " '(struct-type" " constructor" " predicate" @@ -32069,36 +32108,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_241)))" +" lst_240)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_242)))" -"((letrec-values(((for-loop_217)" +" lst_241)))" +"((letrec-values(((for-loop_218)" "(lambda(locals_9" -" lst_243" -" lst_244)" +" lst_242" +" lst_243)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_243)" +" lst_242)" "(pair?" -" lst_244)" +" lst_243)" " #f)" "(let-values(((id_50)" "(unsafe-car" -" lst_243))" +" lst_242))" "((rest_128)" "(unsafe-cdr" -" lst_243))" +" lst_242))" "((type_0)" "(unsafe-car" -" lst_244))" +" lst_243))" "((rest_129)" "(unsafe-cdr" -" lst_244)))" +" lst_243)))" "(let-values(((locals_10)" "(let-values(((locals_11)" " locals_9))" @@ -32115,16 +32154,16 @@ static const char *startup_source = " locals_12)))))" "(if(not" " #f)" -"(for-loop_217" +"(for-loop_218" " locals_10" " rest_128" " rest_129)" " locals_10)))" " locals_9)))))" -" for-loop_217)" +" for-loop_218)" " locals_7" -" lst_241" -" lst_242)))))" +" lst_240" +" lst_241)))))" "(if(equal?" " tmp_26" " 'let-values)" @@ -32139,7 +32178,7 @@ static const char *startup_source = " rhs_11)))" "(loop_90 #f)))" "(let-values()" -"(let-values(((lst_245)" +"(let-values(((lst_244)" "(correlated->list" " ids_14)))" "(begin" @@ -32148,20 +32187,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_245)))" -"((letrec-values(((for-loop_218)" +" lst_244)))" +"((letrec-values(((for-loop_219)" "(lambda(locals_13" -" lst_246)" +" lst_245)" "(begin" " 'for-loop" "(if(pair?" -" lst_246)" +" lst_245)" "(let-values(((id_51)" "(unsafe-car" -" lst_246))" +" lst_245))" "((rest_130)" "(unsafe-cdr" -" lst_246)))" +" lst_245)))" "(let-values(((locals_14)" "(let-values(((locals_15)" " locals_13))" @@ -32176,50 +32215,50 @@ static const char *startup_source = " locals_16)))))" "(if(not" " #f)" -"(for-loop_218" +"(for-loop_219" " locals_14" " rest_130)" " locals_14)))" " locals_13)))))" -" for-loop_218)" +" for-loop_219)" " locals_7" -" lst_245)))))))))))" +" lst_244)))))))))))" " loop_90)" " rhs_10))))" "(values locals_8)))))" -"(if(not #f)(for-loop_216 locals_6 rest_126 rest_127) locals_6)))" +"(if(not #f)(for-loop_217 locals_6 rest_126 rest_127) locals_6)))" " locals_5)))))" -" for-loop_216)" +" for-loop_217)" " locals_4" -" lst_237" -" lst_238))))))" +" lst_236" +" lst_237))))))" "(define-values" "(ok-make-struct-type-property?)" -"(lambda(e_64 defns_3)" +"(lambda(e_65 defns_3)" "(begin" -"(let-values(((l_57)(correlated->list e_64)))" +"(let-values(((l_57)(correlated->list e_65)))" "(if(<= 2(length l_57) 5)" -"(let-values(((lst_247)(cdr l_57))" -"((lst_248)" +"(let-values(((lst_246)(cdr l_57))" +"((lst_247)" "(list" -"(lambda(v_158)(quoted? symbol? v_158))" -"(lambda(v_159)(is-lambda? v_159 2 defns_3))" -"(lambda(v_160)(ok-make-struct-type-property-super? v_160 defns_3))" -"(lambda(v_161)" -"(let-values(((v92_0) v_161)((temp93_1) 1)((defns94_0) defns_3))" +"(lambda(v_157)(quoted? symbol? v_157))" +"(lambda(v_158)(is-lambda? v_158 2 defns_3))" +"(lambda(v_159)(ok-make-struct-type-property-super? v_159 defns_3))" +"(lambda(v_160)" +"(let-values(((v92_0) v_160)((temp93_1) 1)((defns94_0) defns_3))" "(any-side-effects?9.1 defns94_0 #t #f #f #f #f v92_0 temp93_1))))))" "(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_246)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_247)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_248)))" -"((letrec-values(((for-loop_171)" -"(lambda(result_94 lst_147 lst_249)" +"((letrec-values(((for-loop_172)" +"(lambda(result_94 lst_146 lst_248)" "(begin" " 'for-loop" -"(if(if(pair? lst_147)(pair? lst_249) #f)" -"(let-values(((arg_0)(unsafe-car lst_147))" -"((rest_131)(unsafe-cdr lst_147))" -"((pred_1)(unsafe-car lst_249))" -"((rest_132)(unsafe-cdr lst_249)))" +"(if(if(pair? lst_146)(pair? lst_248) #f)" +"(let-values(((arg_0)(unsafe-car lst_146))" +"((rest_131)(unsafe-cdr lst_146))" +"((pred_1)(unsafe-car lst_248))" +"((rest_132)(unsafe-cdr lst_248)))" "(let-values(((result_95)" "(let-values()" "(let-values(((result_96)" @@ -32228,38 +32267,38 @@ static const char *startup_source = "(if(if(not((lambda x_61(not result_95)) arg_0))" "(if(not((lambda x_62(not result_95)) pred_1))(not #f) #f)" " #f)" -"(for-loop_171 result_95 rest_131 rest_132)" +"(for-loop_172 result_95 rest_131 rest_132)" " result_95)))" " result_94)))))" -" for-loop_171)" +" for-loop_172)" " #t" -" lst_247" -" lst_248)))" +" lst_246" +" lst_247)))" " #f)))))" "(define-values" "(ok-make-struct-type-property-super?)" -"(lambda(v_162 defns_4)" +"(lambda(v_161 defns_4)" "(begin" -"(let-values(((or-part_237)(quoted? null? v_162)))" -"(if or-part_237" -" or-part_237" -"(let-values(((or-part_238)(eq? 'null(correlated-e v_162))))" +"(let-values(((or-part_238)(quoted? null? v_161)))" "(if or-part_238" " or-part_238" -"(if(pair?(correlated-e v_162))" -"(if(eq?(correlated-e(car(correlated-e v_162))) 'list)" -"(if(let-values(((lst_250)(cdr(correlated->list v_162))))" +"(let-values(((or-part_239)(eq? 'null(correlated-e v_161))))" +"(if or-part_239" +" or-part_239" +"(if(pair?(correlated-e v_161))" +"(if(eq?(correlated-e(car(correlated-e v_161))) 'list)" +"(if(let-values(((lst_249)(cdr(correlated->list v_161))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_250)))" -"((letrec-values(((for-loop_219)" -"(lambda(result_97 lst_251)" +"(let-values()(check-list lst_249)))" +"((letrec-values(((for-loop_220)" +"(lambda(result_97 lst_250)" "(begin" " 'for-loop" -"(if(pair? lst_251)" -"(let-values(((prop+val_0)(unsafe-car lst_251))" -"((rest_133)(unsafe-cdr lst_251)))" +"(if(pair? lst_250)" +"(let-values(((prop+val_0)(unsafe-car lst_250))" +"((rest_133)(unsafe-cdr lst_250)))" "(let-values(((result_98)" "(let-values()" "(let-values(((result_99)" @@ -32276,7 +32315,7 @@ static const char *startup_source = " 'cons" "(correlated-e" "(car prop+val_1)))" -"(if(let-values(((or-part_239)" +"(if(let-values(((or-part_240)" "(memq" "(correlated-e" "(list-ref" @@ -32285,8 +32324,8 @@ static const char *startup_source = " '(prop:procedure" " prop:equal+hash" " prop:custom-write))))" -"(if or-part_239" -" or-part_239" +"(if or-part_240" +" or-part_240" "(known-property?" "(lookup-defn" " defns_4" @@ -32319,32 +32358,32 @@ static const char *startup_source = "(if(if(not((lambda x_63(not result_98)) prop+val_0))" "(not #f)" " #f)" -"(for-loop_219 result_98 rest_133)" +"(for-loop_220 result_98 rest_133)" " result_98)))" " result_97)))))" -" for-loop_219)" +" for-loop_220)" " #t" -" lst_250)))" +" lst_249)))" "(=" -"(sub1(correlated-length v_162))" +"(sub1(correlated-length v_161))" "(set-count" -"(let-values(((lst_252)(cdr(correlated->list v_162))))" +"(let-values(((lst_251)(cdr(correlated->list v_161))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_252)))" -"((letrec-values(((for-loop_220)" -"(lambda(table_177 lst_253)" +"(let-values()(check-list lst_251)))" +"((letrec-values(((for-loop_221)" +"(lambda(table_177 lst_252)" "(begin" " 'for-loop" -"(if(pair? lst_253)" -"(let-values(((prop+val_2)(unsafe-car lst_253))" -"((rest_134)(unsafe-cdr lst_253)))" +"(if(pair? lst_252)" +"(let-values(((prop+val_2)(unsafe-car lst_252))" +"((rest_134)(unsafe-cdr lst_252)))" "(let-values(((table_178)" "(let-values(((table_179) table_177))" "(let-values(((table_180)" "(let-values()" -"(let-values(((key_66 val_56)" +"(let-values(((key_68 val_57)" "(let-values()" "(values" "(let-values()" @@ -32356,22 +32395,22 @@ static const char *startup_source = " #t))))" "(hash-set" " table_179" -" key_66" -" val_56)))))" +" key_68" +" val_57)))))" "(values table_180)))))" -"(if(not #f)(for-loop_220 table_178 rest_134) table_178)))" +"(if(not #f)(for-loop_221 table_178 rest_134) table_178)))" " table_177)))))" -" for-loop_220)" +" for-loop_221)" " '#hash()" -" lst_252)))))" +" lst_251)))))" " #f)" " #f)" " #f))))))))" "(define-values" "(ok-make-struct-type?)" -"(lambda(e_65 ready-variable?_1 defns_5)" +"(lambda(e_66 ready-variable?_1 defns_5)" "(begin" -"(let-values(((l_58)(correlated->list e_65)))" +"(let-values(((l_58)(correlated->list e_66)))" "(let-values(((init-field-count-expr_0)(if(>(length l_58) 3)(list-ref l_58 3) #f)))" "(let-values(((auto-field-count-expr_0)(if(>(length l_58) 4)(list-ref l_58 4) #f)))" "(let-values(((num-fields_0)" @@ -32379,21 +32418,21 @@ 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_240)(if(>(length l_58) 9)(list-ref l_58 9) #f)))" -"(if or-part_240 or-part_240 'null))))" +"(let-values(((or-part_241)(if(>(length l_58) 9)(list-ref l_58 9) #f)))" +"(if or-part_241 or-part_241 'null))))" "(let-values(((super-expr_0)(if(>(length l_58) 2)(list-ref l_58 2) #f)))" "(if(>=(length l_58) 5)" "(if(<=(length l_58) 12)" -"(let-values(((lst_254)(cdr l_58))" -"((lst_255)" +"(let-values(((lst_253)(cdr l_58))" +"((lst_254)" "(list" -"(lambda(v_163)(quoted? symbol? v_163))" -"(lambda(v_164)(super-ok? v_164 defns_5))" +"(lambda(v_162)(quoted? symbol? v_162))" +"(lambda(v_163)(super-ok? v_163 defns_5))" +"(lambda(v_164)(field-count-expr-to-field-count v_164))" "(lambda(v_165)(field-count-expr-to-field-count v_165))" -"(lambda(v_166)(field-count-expr-to-field-count v_166))" -"(lambda(v_167)" +"(lambda(v_166)" "(not" -"(let-values(((v98_0) v_167)" +"(let-values(((v98_0) v_166)" "((temp99_0) 1)" "((ready-variable?100_0) ready-variable?_1)" "((defns101_0) defns_5))" @@ -32406,27 +32445,27 @@ static const char *startup_source = " #t" " v98_0" " temp99_0))))" -"(lambda(v_168)" -"(known-good-struct-properties? v_168 immutables-expr_0 super-expr_0 defns_5))" -"(lambda(v_169)(inspector-or-false? v_169))" -"(lambda(v_170)(procedure-spec? v_170 num-fields_0))" -"(lambda(v_171)(immutables-ok? v_171 init-field-count-expr_0)))))" +"(lambda(v_167)" +"(known-good-struct-properties? v_167 immutables-expr_0 super-expr_0 defns_5))" +"(lambda(v_168)(inspector-or-false? v_168))" +"(lambda(v_169)(procedure-spec? v_169 num-fields_0))" +"(lambda(v_170)(immutables-ok? v_170 init-field-count-expr_0)))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_253)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_254)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_255)))" -"((letrec-values(((for-loop_221)" -"(lambda(result_100 lst_256 lst_129)" +"((letrec-values(((for-loop_222)" +"(lambda(result_100 lst_255 lst_128)" "(begin" " 'for-loop" -"(if(if(pair? lst_256)(pair? lst_129) #f)" -"(let-values(((arg_1)(unsafe-car lst_256))" -"((rest_64)(unsafe-cdr lst_256))" -"((pred_2)(unsafe-car lst_129))" -"((rest_135)(unsafe-cdr lst_129)))" +"(if(if(pair? lst_255)(pair? lst_128) #f)" +"(let-values(((arg_1)(unsafe-car lst_255))" +"((rest_64)(unsafe-cdr lst_255))" +"((pred_2)(unsafe-car lst_128))" +"((rest_135)(unsafe-cdr lst_128)))" "(let-values(((result_101)" "(let-values()" "(let-values(((result_102)" @@ -32438,86 +32477,86 @@ static const char *startup_source = "(not #f)" " #f)" " #f)" -"(for-loop_221 result_101 rest_64 rest_135)" +"(for-loop_222 result_101 rest_64 rest_135)" " result_101)))" " result_100)))))" -" for-loop_221)" +" for-loop_222)" " #t" -" lst_254" -" lst_255)))" +" lst_253" +" lst_254)))" " #f)" " #f))))))))))" "(define-values" "(super-ok?)" -"(lambda(e_66 defns_6)" +"(lambda(e_67 defns_6)" "(begin" -"(let-values(((or-part_241)(quoted? false? e_66)))" -"(if or-part_241" -" or-part_241" -"(let-values(((o_0)(lookup-defn defns_6(correlated-e e_66))))" +"(let-values(((or-part_242)(quoted? false? e_67)))" +"(if or-part_242" +" or-part_242" +"(let-values(((o_0)(lookup-defn defns_6(correlated-e e_67))))" "(if o_0(if(known-struct-op? o_0)(eq? 'struct-type(known-struct-op-type o_0)) #f) #f)))))))" "(define-values" "(extract-struct-field-count-lower-bound)" -"(lambda(e_67)" +"(lambda(e_68)" "(begin" -"(let-values(((l_59)(correlated->list e_67)))" +"(let-values(((l_59)(correlated->list e_68)))" "(+(field-count-expr-to-field-count(list-ref l_59 3))(field-count-expr-to-field-count(list-ref l_59 4)))))))" "(define-values" "(quoted?)" -"(lambda(val?_0 v_172)" +"(lambda(val?_0 v_171)" "(begin" -"(let-values(((or-part_242)" -"(if(pair?(correlated-e v_172))" -"(if(eq?(correlated-e(car(correlated-e v_172))) 'quote)" -"(val?_0(correlated-e(correlated-cadr v_172)))" +"(let-values(((or-part_243)" +"(if(pair?(correlated-e v_171))" +"(if(eq?(correlated-e(car(correlated-e v_171))) 'quote)" +"(val?_0(correlated-e(correlated-cadr v_171)))" " #f)" " #f)))" -"(if or-part_242 or-part_242(val?_0(correlated-e v_172)))))))" +"(if or-part_243 or-part_243(val?_0(correlated-e v_171)))))))" "(define-values" "(quoted-value)" -"(lambda(v_173)" -"(begin(if(pair?(correlated-e v_173))(correlated-e(correlated-cadr v_173))(correlated-e v_173)))))" -"(define-values(false?)(lambda(v_174)(begin(eq?(correlated-e v_174) #f))))" +"(lambda(v_172)" +"(begin(if(pair?(correlated-e v_172))(correlated-e(correlated-cadr v_172))(correlated-e v_172)))))" +"(define-values(false?)(lambda(v_173)(begin(eq?(correlated-e v_173) #f))))" "(define-values" "(field-count-expr-to-field-count)" -"(lambda(v_175)(begin(if(quoted? exact-nonnegative-integer? v_175)(quoted-value v_175) #f))))" +"(lambda(v_174)(begin(if(quoted? exact-nonnegative-integer? v_174)(quoted-value v_174) #f))))" "(define-values" "(inspector-or-false?)" -"(lambda(v_176)" +"(lambda(v_175)" "(begin" -"(let-values(((or-part_243)(quoted? false? v_176)))" -"(if or-part_243" -" or-part_243" -"(let-values(((or-part_244)(if(quoted? symbol? v_176)(eq? 'prefab(quoted-value v_176)) #f)))" +"(let-values(((or-part_244)(quoted? false? v_175)))" "(if or-part_244" " or-part_244" -"(if(= 1(correlated-length v_176))" -"(eq? 'current-inspector(correlated-e(car(correlated-e v_176))))" +"(let-values(((or-part_245)(if(quoted? symbol? v_175)(eq? 'prefab(quoted-value v_175)) #f)))" +"(if or-part_245" +" or-part_245" +"(if(= 1(correlated-length v_175))" +"(eq? 'current-inspector(correlated-e(car(correlated-e v_175))))" " #f))))))))" "(define-values" "(known-good-struct-properties?)" -"(lambda(v_177 immutables-expr_1 super-expr_1 defns_7)" +"(lambda(v_176 immutables-expr_1 super-expr_1 defns_7)" "(begin" -"(let-values(((or-part_245)(quoted? null? v_177)))" -"(if or-part_245" -" or-part_245" -"(let-values(((or-part_246)(eq? 'null(correlated-e v_177))))" +"(let-values(((or-part_246)(quoted? null? v_176)))" "(if or-part_246" " or-part_246" -"(if(pair?(correlated-e v_177))" -"(if(eq?(correlated-e(car(correlated-e v_177))) 'list)" -"(if(let-values(((lst_257)(cdr(correlated->list v_177))))" +"(let-values(((or-part_247)(eq? 'null(correlated-e v_176))))" +"(if or-part_247" +" or-part_247" +"(if(pair?(correlated-e v_176))" +"(if(eq?(correlated-e(car(correlated-e v_176))) 'list)" +"(if(let-values(((lst_256)(cdr(correlated->list v_176))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_257)))" -"((letrec-values(((for-loop_222)" -"(lambda(result_103 lst_258)" +"(let-values()(check-list lst_256)))" +"((letrec-values(((for-loop_223)" +"(lambda(result_103 lst_257)" "(begin" " 'for-loop" -"(if(pair? lst_258)" -"(let-values(((prop+val_3)(unsafe-car lst_258))" -"((rest_136)(unsafe-cdr lst_258)))" +"(if(pair? lst_257)" +"(let-values(((prop+val_3)(unsafe-car lst_257))" +"((rest_136)(unsafe-cdr lst_257)))" "(let-values(((result_104)" "(let-values()" "(let-values(((result_105)" @@ -32546,32 +32585,32 @@ static const char *startup_source = "(if(if(not((lambda x_66(not result_104)) prop+val_3))" "(not #f)" " #f)" -"(for-loop_222 result_104 rest_136)" +"(for-loop_223 result_104 rest_136)" " result_104)))" " result_103)))))" -" for-loop_222)" +" for-loop_223)" " #t" -" lst_257)))" +" lst_256)))" "(=" -"(sub1(correlated-length v_177))" +"(sub1(correlated-length v_176))" "(set-count" -"(let-values(((lst_259)(cdr(correlated->list v_177))))" +"(let-values(((lst_258)(cdr(correlated->list v_176))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_259)))" -"((letrec-values(((for-loop_223)" -"(lambda(table_181 lst_260)" +"(let-values()(check-list lst_258)))" +"((letrec-values(((for-loop_224)" +"(lambda(table_181 lst_259)" "(begin" " 'for-loop" -"(if(pair? lst_260)" -"(let-values(((prop+val_5)(unsafe-car lst_260))" -"((rest_137)(unsafe-cdr lst_260)))" +"(if(pair? lst_259)" +"(let-values(((prop+val_5)(unsafe-car lst_259))" +"((rest_137)(unsafe-cdr lst_259)))" "(let-values(((table_182)" "(let-values(((table_183) table_181))" "(let-values(((table_184)" "(let-values()" -"(let-values(((key_67 val_57)" +"(let-values(((key_69 val_58)" "(let-values()" "(values" "(let-values()" @@ -32583,14 +32622,14 @@ static const char *startup_source = " #t))))" "(hash-set" " table_183" -" key_67" -" val_57)))))" +" key_69" +" val_58)))))" "(values table_184)))))" -"(if(not #f)(for-loop_223 table_182 rest_137) table_182)))" +"(if(not #f)(for-loop_224 table_182 rest_137) table_182)))" " table_181)))))" -" for-loop_223)" +" for-loop_224)" " '#hash()" -" lst_259)))))" +" lst_258)))))" " #f)" " #f)" " #f))))))))" @@ -32602,12 +32641,12 @@ static const char *startup_source = "(let-values(((tmp_27) prop-name_0))" "(if(equal? tmp_27 'prop:evt)" "(let-values()" -"(let-values(((or-part_247)(is-lambda? val-expr_0 1 defns_8)))" -"(if or-part_247 or-part_247(immutable-field? val-expr_0 immutables-expr_2))))" -"(if(equal? tmp_27 'prop:procedure)" -"(let-values()" "(let-values(((or-part_248)(is-lambda? val-expr_0 1 defns_8)))" "(if or-part_248 or-part_248(immutable-field? val-expr_0 immutables-expr_2))))" +"(if(equal? tmp_27 'prop:procedure)" +"(let-values()" +"(let-values(((or-part_249)(is-lambda? val-expr_0 1 defns_8)))" +"(if or-part_249 or-part_249(immutable-field? val-expr_0 immutables-expr_2))))" "(if(equal? tmp_27 'prop:custom-write)" "(let-values()(is-lambda? val-expr_0 3 defns_8))" "(if(equal? tmp_27 'prop:equal+hash)" @@ -32643,26 +32682,26 @@ static const char *startup_source = "(lambda(expr_9 arity_0 defns_9)" "(begin" "(let-values(((lookup_0)(lookup-defn defns_9 expr_9)))" -"(let-values(((or-part_249)" +"(let-values(((or-part_250)" "(if lookup_0" "(if(known-function? lookup_0)" -"(let-values(((or-part_250)(not arity_0)))" -"(if or-part_250 or-part_250(arity-includes?(known-function-arity lookup_0) arity_0)))" +"(let-values(((or-part_251)(not arity_0)))" +"(if or-part_251 or-part_251(arity-includes?(known-function-arity lookup_0) arity_0)))" " #f)" " #f)))" -"(if or-part_249" -" or-part_249" -"(let-values(((or-part_251)" +"(if or-part_250" +" or-part_250" +"(let-values(((or-part_252)" "(if(pair?(correlated-e expr_9))" "(if(eq? 'case-lambda(car(correlated-e expr_9)))(not arity_0) #f)" " #f)))" -"(if or-part_251" -" or-part_251" -"(if(pair?(correlated-e expr_9))" -"(if(eq? 'lambda(car(correlated-e expr_9)))" -"(let-values(((or-part_252)(not arity_0)))" "(if or-part_252" " or-part_252" +"(if(pair?(correlated-e expr_9))" +"(if(eq? 'lambda(car(correlated-e expr_9)))" +"(let-values(((or-part_253)(not arity_0)))" +"(if or-part_253" +" or-part_253" "((letrec-values(((loop_91)" "(lambda(args_4 arity_1)" "(begin" @@ -32683,19 +32722,19 @@ static const char *startup_source = "(arity-includes?)" "(lambda(a_40 n_25)" "(begin" -"(let-values(((or-part_253)(equal? a_40 n_25)))" -"(if or-part_253" -" or-part_253" +"(let-values(((or-part_254)(equal? a_40 n_25)))" +"(if or-part_254" +" or-part_254" "(if(list? a_40)" "(let-values(((lst_68) a_40))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_68)))" -"((letrec-values(((for-loop_224)" -"(lambda(result_106 lst_261)" +"((letrec-values(((for-loop_225)" +"(lambda(result_106 lst_260)" "(begin" " 'for-loop" -"(if(pair? lst_261)" -"(let-values(((a_41)(unsafe-car lst_261))((rest_138)(unsafe-cdr lst_261)))" +"(if(pair? lst_260)" +"(let-values(((a_41)(unsafe-car lst_260))((rest_138)(unsafe-cdr lst_260)))" "(let-values(((result_107)" "(let-values()" "(let-values(((result_108)" @@ -32703,10 +32742,10 @@ static const char *startup_source = "(let-values()(equal? a_41 n_25)))))" "(values result_108)))))" "(if(if(not((lambda x_67 result_107) a_41))(not #f) #f)" -"(for-loop_224 result_107 rest_138)" +"(for-loop_225 result_107 rest_138)" " result_107)))" " result_106)))))" -" for-loop_224)" +" for-loop_225)" " #f" " lst_68)))" " #f))))))" @@ -32719,80 +32758,80 @@ static const char *startup_source = " #f))))" "(define-values" "(immutables-expr-to-immutables)" -"(lambda(e_68 fail-v_0)" +"(lambda(e_69 fail-v_0)" "(begin" -"(let-values(((tmp_28)(if(pair?(correlated-e e_68))(correlated-e(car(correlated-e e_68))) #f)))" +"(let-values(((tmp_28)(if(pair?(correlated-e e_69))(correlated-e(car(correlated-e e_69))) #f)))" "(if(equal? tmp_28 'quote)" "(let-values()" -"(let-values(((v_178)(correlated-cadr e_68)))" -"(let-values(((or-part_254)" -"(if(correlated-length v_178)" -"(let-values(((l_61)(map2 correlated-e(correlated->list v_178))))" +"(let-values(((v_177)(correlated-cadr e_69)))" +"(let-values(((or-part_255)" +"(if(correlated-length v_177)" +"(let-values(((l_61)(map2 correlated-e(correlated->list v_177))))" "(if(andmap2 exact-nonnegative-integer? l_61)" "(if(=(length l_61)(set-count(list->set l_61))) l_61 #f)" " #f))" " #f)))" -"(if or-part_254 or-part_254 fail-v_0))))" +"(if or-part_255 or-part_255 fail-v_0))))" "(let-values() fail-v_0))))))" "(define-values" "(procedure-spec?)" -"(lambda(e_69 field-count_1)" +"(lambda(e_70 field-count_1)" "(begin" -"(let-values(((or-part_255)(quoted? false? e_69)))" -"(if or-part_255" -" or-part_255" -"(let-values(((or-part_256)" -"(if(quoted? exact-nonnegative-integer? e_69)" -"(if field-count_1(<(quoted-value e_69) field-count_1) #f)" +"(let-values(((or-part_256)(quoted? false? e_70)))" +"(if or-part_256" +" or-part_256" +"(let-values(((or-part_257)" +"(if(quoted? exact-nonnegative-integer? e_70)" +"(if field-count_1(<(quoted-value e_70) field-count_1) #f)" " #f)))" -"(if or-part_256 or-part_256(is-lambda? e_69 #f '#hasheq()))))))))" +"(if or-part_257 or-part_257(is-lambda? e_70 #f '#hasheq()))))))))" "(define-values" "(immutables-ok?)" -"(lambda(e_70 init-field-count-expr_1)" +"(lambda(e_71 init-field-count-expr_1)" "(begin" -"(let-values(((l_62)(immutables-expr-to-immutables e_70 #f)))" +"(let-values(((l_62)(immutables-expr-to-immutables e_71 #f)))" "(let-values(((c_24)(field-count-expr-to-field-count init-field-count-expr_1)))" "(if l_62" -"(let-values(((lst_262) l_62))" +"(let-values(((lst_261) l_62))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_262)))" -"((letrec-values(((for-loop_225)" -"(lambda(result_109 lst_119)" +"(let-values()(check-list lst_261)))" +"((letrec-values(((for-loop_226)" +"(lambda(result_109 lst_118)" "(begin" " 'for-loop" -"(if(pair? lst_119)" -"(let-values(((n_26)(unsafe-car lst_119))((rest_59)(unsafe-cdr lst_119)))" +"(if(pair? lst_118)" +"(let-values(((n_26)(unsafe-car lst_118))((rest_59)(unsafe-cdr lst_118)))" "(let-values(((result_110)" "(let-values()" "(let-values(((result_111)" "(let-values()(let-values()(< n_26 c_24)))))" "(values result_111)))))" "(if(if(not((lambda x_68(not result_110)) n_26))(not #f) #f)" -"(for-loop_225 result_110 rest_59)" +"(for-loop_226 result_110 rest_59)" " result_110)))" " result_109)))))" -" for-loop_225)" +" for-loop_226)" " #t" -" lst_262)))" +" lst_261)))" " #f))))))" "(define-values" "(ok-make-struct-field-accessor/mutator?)" -"(lambda(e_71 locals_17 type_1 defns_10)" +"(lambda(e_72 locals_17 type_1 defns_10)" "(begin" -"(let-values(((l_63)(correlated->list e_71)))" +"(let-values(((l_63)(correlated->list e_72)))" "(let-values(((a_42)" -"(if(let-values(((or-part_257)(=(length l_63) 3)))" -"(if or-part_257 or-part_257(=(length l_63) 4)))" -"(let-values(((or-part_258)(hash-ref locals_17(correlated-e(list-ref l_63 1)) #f)))" -"(if or-part_258 or-part_258(lookup-defn defns_10(correlated-e(list-ref l_63 1)))))" +"(if(let-values(((or-part_258)(=(length l_63) 3)))" +"(if or-part_258 or-part_258(=(length l_63) 4)))" +"(let-values(((or-part_259)(hash-ref locals_17(correlated-e(list-ref l_63 1)) #f)))" +"(if or-part_259 or-part_259(lookup-defn defns_10(correlated-e(list-ref l_63 1)))))" " #f)))" "(if(known-struct-op? a_42)" "(if(eq?(known-struct-op-type a_42) type_1)" "(if(<(field-count-expr-to-field-count(list-ref l_63 2))(known-struct-op-field-count a_42))" -"(let-values(((or-part_131)(=(length l_63) 3)))" -"(if or-part_131 or-part_131(quoted? symbol?(list-ref l_63 3))))" +"(let-values(((or-part_130)(=(length l_63) 3)))" +"(if or-part_130 or-part_130(quoted? symbol?(list-ref l_63 3))))" " #f)" " #f)" " #f))))))" @@ -32851,10 +32890,10 @@ static const char *startup_source = "((to-source?21_0) to-source?_2)" "((serializable?22_0) serializable?_1)" "((temp23_3)(lambda()(set! purely-functional?_0 #f)))" -"((temp24_4)" -"(lambda(e_72 expected-results_2 phase_81 required-reference?_0)" +"((temp24_3)" +"(lambda(e_73 expected-results_2 phase_81 required-reference?_0)" "(if(if purely-functional?_0" -"(let-values(((e27_0) e_72)" +"(let-values(((e27_0) e_73)" "((expected-results28_0) expected-results_2)" "((required-reference?29_0)" " required-reference?_0))" @@ -32871,17 +32910,17 @@ static const char *startup_source = "(let-values()(set! purely-functional?_0 #f))" "(void))))" "((temp25_3)" -"(lambda(s_383 cctx_14)" +"(lambda(s_385 cctx_14)" "(begin" "(set! purely-functional?_0 #f)" -"(compile-top-level-require s_383 cctx_14))))" +"(compile-top-level-require s_385 cctx_14))))" "((temp26_1)(not single-expression?_0)))" "(compile-forms31.1" " temp20_0" " temp19_0" " #f" " #f" -" temp24_4" +" temp24_3" " #t" " temp26_1" " #t" @@ -32908,8 +32947,8 @@ static const char *startup_source = "(lambda(ht_120)" "(begin" " 'add-metadata" -"(let-values(((ht_78)(hash-set ht_120 'original-phase phase_16)))" -"(let-values(((ht_121)(hash-set ht_78 'max-phase max-phase_1)))" +"(let-values(((ht_79)(hash-set ht_120 'original-phase phase_16)))" +"(let-values(((ht_121)(hash-set ht_79 'max-phase max-phase_1)))" " ht_121))))))" "(let-values(((bundle_0)" "((if to-source?_2 values 1/hash->linklet-bundle)" @@ -32927,11 +32966,11 @@ static const char *startup_source = "(let-values(((link-linklet_0)" "((if to-source?_2" " values" -"(lambda(s_160)" +"(lambda(s_161)" "(let-values()" "(let-values(((linklet_2 new-keys_0)" "(1/compile-linklet" -" s_160" +" s_161" " #f" "(vector" " deserialize-instance" @@ -33022,27 +33061,27 @@ 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_259)(hash-ref defined-syms_7 phase_82 #f)))" -"(if or-part_259" -" or-part_259" +"(let-values(((or-part_260)(hash-ref defined-syms_7 phase_82 #f)))" +"(if or-part_260" +" or-part_260" "(let-values(((ht_122)(make-hasheq)))" "(begin(hash-set! defined-syms_7 phase_82 ht_122) ht_122))))))" "(reverse$1" -"(let-values(((lst_81) ids_15))" +"(let-values(((lst_80) ids_15))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_81)))" -"((letrec-values(((for-loop_226)" -"(lambda(fold-var_12 lst_173)" +"(let-values()(check-list lst_80)))" +"((letrec-values(((for-loop_227)" +"(lambda(fold-var_12 lst_172)" "(begin" " 'for-loop" -"(if(pair? lst_173)" -"(let-values(((id_52)(unsafe-car lst_173))" -"((rest_87)(unsafe-cdr lst_173)))" +"(if(pair? lst_172)" +"(let-values(((id_52)(unsafe-car lst_172))" +"((rest_87)(unsafe-cdr lst_172)))" "(let-values(((fold-var_91)" -"(let-values(((fold-var_156) fold-var_12))" -"(let-values(((fold-var_164)" +"(let-values(((fold-var_155) fold-var_12))" +"(let-values(((fold-var_163)" "(let-values()" "(cons" "(let-values()" @@ -33073,7 +33112,7 @@ static const char *startup_source = "(lambda(pos_97)" "(begin" " 'loop" -"(let-values(((s_176)" +"(let-values(((s_179)" "(string->unreadable-symbol" "(format" " \"~a.~a\"" @@ -33082,7 +33121,7 @@ static const char *startup_source = "(if(defined-as-other?" "(hash-ref" " defined-syms-at-phase_0" -" s_176" +" s_179" " #f)" " id_52" " phase_82" @@ -33090,7 +33129,7 @@ static const char *startup_source = "(loop_92" "(add1" " pos_97))" -" s_176))))))" +" s_179))))))" " loop_92)" " 1))))" "(let-values((()" @@ -33188,23 +33227,23 @@ static const char *startup_source = " b35_0)))" "(void))" " defined-sym_0))))))" -" fold-var_156))))" -"(values fold-var_164)))))" +" fold-var_155))))" +"(values fold-var_163)))))" "(if(not #f)" -"(for-loop_226 fold-var_91 rest_87)" +"(for-loop_227 fold-var_91 rest_87)" " fold-var_91)))" " fold-var_12)))))" -" for-loop_226)" +" for-loop_227)" " null" -" lst_81)))))))))))))))))))" +" lst_80)))))))))))))))))))" "(define-values" "(no-extra-scopes?)" "(lambda(id_53 all-scopes-stx_4 top-level-bind-scope_4 phase_83)" "(begin" "(let-values(((m-id_0)(datum->syntax$1 all-scopes-stx_4(syntax-e$1 id_53))))" -"(let-values(((or-part_136)(bound-identifier=?$1 id_53 m-id_0 phase_83)))" -"(if or-part_136" -" or-part_136" +"(let-values(((or-part_135)(bound-identifier=?$1 id_53 m-id_0 phase_83)))" +"(if or-part_135" +" or-part_135" "(if top-level-bind-scope_4" "(bound-identifier=?$1 id_53(add-scope m-id_0 top-level-bind-scope_4) phase_83)" " #f)))))))" @@ -33214,9 +33253,9 @@ static const char *startup_source = "(begin" "(if prev-id_0" "(if(not(bound-identifier=?$1 prev-id_0 id_54 phase_73))" -"(let-values(((or-part_260)(not top-level-bind-scope_5)))" -"(if or-part_260" -" or-part_260" +"(let-values(((or-part_261)(not top-level-bind-scope_5)))" +"(if or-part_261" +" or-part_261" "(not" "(bound-identifier=?$1" "(remove-scope prev-id_0 top-level-bind-scope_5)" @@ -33255,9 +33294,9 @@ static const char *startup_source = "(lambda(defined-syms_8 phase_84 sym_55 id_55)" "(begin" "(let-values(((defined-syms-at-phase_1)" -"(let-values(((or-part_261)(hash-ref defined-syms_8 phase_84 #f)))" -"(if or-part_261" -" or-part_261" +"(let-values(((or-part_262)(hash-ref defined-syms_8 phase_84 #f)))" +"(if or-part_262" +" or-part_262" "(let-values(((ht_123)(make-hasheq)))" "(begin(hash-set! defined-syms_8 phase_84 ht_123) ht_123))))))" "(hash-set! defined-syms-at-phase_1 sym_55 id_55)))))" @@ -33272,12 +33311,12 @@ static const char *startup_source = "(let-values(((s_3)(add-scopes empty-syntax(root-expand-context-module-scopes root-ctx_4))))" "(let-values((()" "(begin" -"(let-values(((lst_263) requires_3))" +"(let-values(((lst_262) requires_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_263)))" -"((letrec-values(((for-loop_227)" +"(let-values()(check-list lst_262)))" +"((letrec-values(((for-loop_228)" "(lambda(lst_16)" "(begin" " 'for-loop" @@ -33294,7 +33333,7 @@ static const char *startup_source = "(car" " phase+reqs_0)))" "(begin" -"(let-values(((lst_264)" +"(let-values(((lst_263)" "(cdr" " phase+reqs_0)))" "(begin" @@ -33303,32 +33342,32 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_264)))" -"((letrec-values(((for-loop_228)" -"(lambda(lst_80)" +" lst_263)))" +"((letrec-values(((for-loop_229)" +"(lambda(lst_79)" "(begin" " 'for-loop" "(if(pair?" -" lst_80)" +" lst_79)" "(let-values(((req_4)" "(unsafe-car" -" lst_80))" +" lst_79))" "((rest_36)" "(unsafe-cdr" -" lst_80)))" +" lst_79)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((mpi_44)" +"(let-values(((mpi_45)" "(module-path-index-shift" " req_4" " original-self_0" " self_7)))" "(let-values(((mpi2_1)" -" mpi_44)" +" mpi_45)" "((s3_1)" " s_3)" "((self4_3)" @@ -33380,19 +33419,19 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_228" +"(for-loop_229" " rest_36)" "(values))))" "(values))))))" -" for-loop_228)" -" lst_264)))" +" for-loop_229)" +" lst_263)))" "(void))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_227 rest_4)(values))))" +"(if(not #f)(for-loop_228 rest_4)(values))))" "(values))))))" -" for-loop_227)" -" lst_263)))" +" for-loop_228)" +" lst_262)))" "(values))))" "(let-values()" "(let-values(((defined-syms_9)(root-expand-context-defined-syms root-ctx_4)))" @@ -33402,7 +33441,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_124)))" -"((letrec-values(((for-loop_105)" +"((letrec-values(((for-loop_106)" "(lambda(i_150)" "(begin" " 'for-loop" @@ -33416,7 +33455,7 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_265)" +"(let-values(((lst_264)" "(1/linklet-export-variables" " linklet_3)))" "(begin" @@ -33424,19 +33463,19 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_265)))" -"((letrec-values(((for-loop_229)" -"(lambda(lst_266)" +"(check-list lst_264)))" +"((letrec-values(((for-loop_230)" +"(lambda(lst_265)" "(begin" " 'for-loop" "(if(pair?" -" lst_266)" +" lst_265)" "(let-values(((sym_56)" "(unsafe-car" -" lst_266))" +" lst_265))" "((rest_139)" "(unsafe-cdr" -" lst_266)))" +" lst_265)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33498,20 +33537,20 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_229" +"(for-loop_230" " rest_139)" "(values))))" "(values))))))" -" for-loop_229)" -" lst_265)))" +" for-loop_230)" +" lst_264)))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_105(hash-iterate-next ht_124 i_150))" +"(for-loop_106(hash-iterate-next ht_124 i_150))" "(values))))" "(values))))))" -" for-loop_105)" +" for-loop_106)" "(hash-iterate-first ht_124))))" "(void)" " root-ctx_4))))))))))" @@ -33521,12 +33560,12 @@ static const char *startup_source = "(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_179) root-context_0))" -"(let-values(((the-struct_53) v_179))" -"(if(root-expand-context/outer? the-struct_53)" +"(let-values(((v_178) root-context_0))" +"(let-values(((the-struct_52) v_178))" +"(if(root-expand-context/outer? the-struct_52)" "(let-values(((inner16_0)" -"(let-values(((the-struct_54)(root-expand-context/outer-inner v_179)))" -"(if(root-expand-context/inner? the-struct_54)" +"(let-values(((the-struct_53)(root-expand-context/outer-inner v_178)))" +"(if(root-expand-context/inner? the-struct_53)" "(let-values(((self-mpi17_0) inside-mpi_0)" "((all-scopes-stx18_0)" "(let-values(((temp19_1)" @@ -33543,19 +33582,19 @@ static const char *startup_source = " #f))))" "(root-expand-context/inner2.1" " self-mpi17_0" -"(root-expand-context/inner-module-scopes the-struct_54)" -"(root-expand-context/inner-top-level-bind-scope the-struct_54)" +"(root-expand-context/inner-module-scopes the-struct_53)" +"(root-expand-context/inner-top-level-bind-scope the-struct_53)" " all-scopes-stx18_0" -"(root-expand-context/inner-defined-syms the-struct_54)" -"(root-expand-context/inner-counter the-struct_54)" -"(root-expand-context/inner-lift-key the-struct_54)))" -" (raise-argument-error 'struct-copy \"root-expand-context/inner?\" the-struct_54)))))" +"(root-expand-context/inner-defined-syms the-struct_53)" +"(root-expand-context/inner-counter the-struct_53)" +"(root-expand-context/inner-lift-key the-struct_53)))" +" (raise-argument-error 'struct-copy \"root-expand-context/inner?\" the-struct_53)))))" "(root-expand-context/outer1.1" " inner16_0" -"(root-expand-context/outer-post-expansion-scope the-struct_53)" -"(root-expand-context/outer-use-site-scopes the-struct_53)" -"(root-expand-context/outer-frame-id the-struct_53)))" -" (raise-argument-error 'struct-copy \"root-expand-context/outer?\" the-struct_53)))))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_52)" +"(root-expand-context/outer-use-site-scopes the-struct_52)" +"(root-expand-context/outer-frame-id the-struct_52)))" +" (raise-argument-error 'struct-copy \"root-expand-context/outer?\" the-struct_52)))))))))" "(define-values" "(check-require-access9.1)" "(lambda(skip-imports1_0" @@ -33577,39 +33616,39 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values(((lst_42)(list-tail(1/linklet-import-variables linklet_4) skip-num-imports_0))" -"((lst_267) import-module-uses_0)" -"((lst_90) import-module-instances_0)" -"((lst_163)" -"(let-values(((or-part_70) extra-inspectorsss_4))" -"(if or-part_70 or-part_70 import-module-uses_0))))" +"((lst_266) import-module-uses_0)" +"((lst_89) import-module-instances_0)" +"((lst_162)" +"(let-values(((or-part_69) extra-inspectorsss_4))" +"(if or-part_69 or-part_69 import-module-uses_0))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_42)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_267)))" +"(let-values()(check-list lst_266)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_90)))" +"(let-values()(check-list lst_89)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_163)))" -"((letrec-values(((for-loop_229)" -"(lambda(lst_266 lst_268 lst_24 lst_103)" +"(let-values()(check-list lst_162)))" +"((letrec-values(((for-loop_230)" +"(lambda(lst_265 lst_267 lst_24 lst_102)" "(begin" " 'for-loop" -"(if(if(pair? lst_266)" -"(if(pair? lst_268)(if(pair? lst_24)(pair? lst_103) #f) #f)" +"(if(if(pair? lst_265)" +"(if(pair? lst_267)(if(pair? lst_24)(pair? lst_102) #f) #f)" " #f)" -"(let-values(((import-syms_0)(unsafe-car lst_266))" -"((rest_140)(unsafe-cdr lst_266))" -"((mu_7)(unsafe-car lst_268))" -"((rest_141)(unsafe-cdr lst_268))" +"(let-values(((import-syms_0)(unsafe-car lst_265))" +"((rest_140)(unsafe-cdr lst_265))" +"((mu_7)(unsafe-car lst_267))" +"((rest_141)(unsafe-cdr lst_267))" "((mi_16)(unsafe-car lst_24))" "((rest_43)(unsafe-cdr lst_24))" -"((extra-inspectorss_14)(unsafe-car lst_103))" -"((rest_117)(unsafe-cdr lst_103)))" +"((extra-inspectorss_14)(unsafe-car lst_102))" +"((rest_117)(unsafe-cdr lst_102)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33641,7 +33680,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_60)))" -"((letrec-values(((for-loop_230)" +"((letrec-values(((for-loop_231)" "(lambda(lst_26)" "(begin" " 'for-loop" @@ -33668,12 +33707,12 @@ static const char *startup_source = " '#hasheq())" " import-sym_0" " 'unexported)))" -"(if(let-values(((or-part_170)" +"(if(let-values(((or-part_171)" "(eq?" " a_43" " 'unexported)))" -"(if or-part_170" -" or-part_170" +"(if or-part_171" +" or-part_171" "(eq?" " a_43" " 'protected)))" @@ -33682,20 +33721,20 @@ static const char *startup_source = "(namespace-inspector" "(module-instance-namespace" " mi_16))))" -"(if(let-values(((or-part_172)" +"(if(let-values(((or-part_173)" "(inspector-superior?" " insp_10" " guard-insp_3)))" -"(if or-part_172" -" or-part_172" -"(let-values(((or-part_173)" +"(if or-part_173" +" or-part_173" +"(let-values(((or-part_174)" "(if extra-inspector_0" "(inspector-superior?" " extra-inspector_0" " guard-insp_3)" " #f)))" -"(if or-part_173" -" or-part_173" +"(if or-part_174" +" or-part_174" "(if extra-inspectorsss_4" "(if extra-inspectorss_14" "(extra-inspectors-allow?" @@ -33725,24 +33764,24 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_230" +"(for-loop_231" " rest_9)" "(values))))" "(values))))))" -" for-loop_230)" +" for-loop_231)" " lst_60)))" "(void)))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_229 rest_140 rest_141 rest_43 rest_117)" +"(for-loop_230 rest_140 rest_141 rest_43 rest_117)" "(values))))" "(values))))))" -" for-loop_229)" +" for-loop_230)" " lst_42" -" lst_267" -" lst_90" -" lst_163)))" +" lst_266" +" lst_89" +" lst_162)))" "(void)))))))))))))" "(define-values" "(check-single-require-access)" @@ -33753,15 +33792,15 @@ static const char *startup_source = "(let-values() #t)" "(let-values()" "(let-values(((access_3)" -"(let-values(((or-part_262)(module-access m_16)))" -"(if or-part_262 or-part_262(module-compute-access! m_16)))))" +"(let-values(((or-part_263)(module-access m_16)))" +"(if or-part_263 or-part_263(module-compute-access! m_16)))))" "(let-values(((a_44)(hash-ref(hash-ref access_3 phase_86 '#hasheq()) sym_57 'unexported)))" -"(if(let-values(((or-part_263)(eq? a_44 'unexported)))" -"(if or-part_263 or-part_263(eq? a_44 'protected)))" +"(if(let-values(((or-part_264)(eq? a_44 'unexported)))" +"(if or-part_264 or-part_264(eq? a_44 'protected)))" "(let-values()" "(let-values(((guard-insp_4)(namespace-inspector(module-instance-namespace mi_17))))" -"(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(((or-part_265)(if insp_11(inspector-superior? insp_11 guard-insp_4) #f)))" +"(if or-part_265 or-part_265(inspector-superior?(current-code-inspector) guard-insp_4)))))" "(let-values() #t))))))))))" "(define-values(module-cache)(make-weak-hash))" "(define-values" @@ -33772,8 +33811,8 @@ static const char *startup_source = "(lambda(key_11 proc_9)(begin(hash-set! module-cache key_11(make-ephemeron key_11 proc_9)))))" "(define-values" "(module-cache-ref)" -"(lambda(key_68)" -"(begin(let-values(((e_73)(hash-ref module-cache key_68 #f)))(if e_73(ephemeron-value e_73) #f)))))" +"(lambda(key_70)" +"(begin(let-values(((e_74)(hash-ref module-cache key_70 #f)))(if e_74(ephemeron-value e_74) #f)))))" "(define-values(current-module-declare-as-predefined)(make-parameter #f))" "(define-values" "(eval-module8.1)" @@ -33807,8 +33846,8 @@ static const char *startup_source = "(let-values() empty-syntax-literals-instance/empty-namespace)" "(let-values() empty-syntax-literals-data-instance)))))))" "(let-values(((decl_0)" -"(lambda(key_69)" -"(begin 'decl(1/instance-variable-value declaration-instance_0 key_69)))))" +"(lambda(key_71)" +"(begin 'decl(1/instance-variable-value declaration-instance_0 key_71)))))" "(let-values(((pre-submodule-names_0)(hash-ref h_1 'pre null)))" "(let-values(((post-submodule-names_0)(hash-ref h_1 'post null)))" "(let-values(((default-name_1)(hash-ref h_1 'name 'module)))" @@ -33829,7 +33868,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_37 end_26 inc_20)))" -"((letrec-values(((for-loop_231)" +"((letrec-values(((for-loop_232)" "(lambda(table_185 pos_98)" "(begin" " 'for-loop" @@ -33837,14 +33876,14 @@ static const char *startup_source = "(let-values(((phase-level_17)" " pos_98))" "(let-values(((table_186)" -"(let-values(((v_180)" +"(let-values(((v_179)" "(hash-ref" " h_1" " phase-level_17" " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_232)" +"((letrec-values(((for-loop_233)" "(lambda(table_187)" "(begin" " 'for-loop" @@ -33852,35 +33891,35 @@ static const char *startup_source = "(let-values(((table_188)" "(let-values(((table_189)" " table_187))" -"(if v_180" +"(if v_179" "(let-values(((table_190)" " table_189))" "(let-values(((table_191)" "(let-values()" -"(let-values(((key_70" -" val_58)" +"(let-values(((key_72" +" val_59)" "(let-values()" "(values" " phase-level_17" "(1/eval-linklet" -" v_180)))))" +" v_179)))))" "(hash-set" " table_190" -" key_70" -" val_58)))))" +" key_72" +" val_59)))))" "(values" " table_191)))" " table_189))))" " table_188))))))" -" for-loop_232)" +" for-loop_233)" " table_185)))))" "(if(not #f)" -"(for-loop_231" +"(for-loop_232" " table_186" "(+ pos_98 inc_20))" " table_186)))" " table_185)))))" -" for-loop_231)" +" for-loop_232)" " '#hash()" " start_37)))))" "(let-values(((syntax-literals-linklet_0)" @@ -33922,18 +33961,18 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_20)))" -"((letrec-values(((for-loop_233)" -"(lambda(lst_94)" +"((letrec-values(((for-loop_234)" +"(lambda(lst_93)" "(begin" " 'for-loop" "(if(pair?" -" lst_94)" +" lst_93)" "(let-values(((c_25)" "(unsafe-car" -" lst_94))" +" lst_93))" "((rest_44)" "(unsafe-cdr" -" lst_94)))" +" lst_93)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33958,22 +33997,22 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_233" +"(for-loop_234" " rest_44)" "(values))))" "(values))))))" -" for-loop_233)" +" for-loop_234)" " lst_20)))" "(void))" "(begin" -"(let-values(((lst_95) names_0))" +"(let-values(((lst_94) names_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_95)))" -"((letrec-values(((for-loop_234)" +"(check-list lst_94)))" +"((letrec-values(((for-loop_235)" "(lambda(lst_7)" "(begin" " 'for-loop" @@ -34021,12 +34060,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_234" +"(for-loop_235" " rest_142)" "(values))))" "(values))))))" -" for-loop_234)" -" lst_95)))" +" for-loop_235)" +" lst_94)))" "(void)))))" " void)))" "(let-values(((declare-this-module_0)" @@ -34139,7 +34178,7 @@ static const char *startup_source = " import-instances_0)" "(let-values(((mis_1" " is_0)" -"(let-values(((lst_269)" +"(let-values(((lst_268)" " module-uses_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -34147,21 +34186,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_269)))" -"((letrec-values(((for-loop_235)" +" lst_268)))" +"((letrec-values(((for-loop_236)" "(lambda(mis_2" " is_1" -" lst_270)" +" lst_269)" "(begin" " 'for-loop" "(if(pair?" -" lst_270)" +" lst_269)" "(let-values(((mu_8)" "(unsafe-car" -" lst_270))" +" lst_269))" "((rest_143)" "(unsafe-cdr" -" lst_270)))" +" lst_269)))" "(let-values(((mis_3" " is_2)" "(let-values(((mis_4)" @@ -34209,7 +34248,7 @@ static const char *startup_source = " is_4)))))" "(if(not" " #f)" -"(for-loop_235" +"(for-loop_236" " mis_3" " is_2" " rest_143)" @@ -34219,10 +34258,10 @@ static const char *startup_source = "(values" " mis_2" " is_1))))))" -" for-loop_235)" +" for-loop_236)" " null" " null" -" lst_269)))))" +" lst_268)))))" "(values" "(reverse$1" " mis_1)" @@ -34259,13 +34298,13 @@ static const char *startup_source = "(let-values(((module-body-instance-instance_0)" "(let-values(((temp52_2)" "(lambda(name_50" -" val_59)" +" val_60)" "(namespace-set-transformer!" " ns_65" "(sub1" " phase-level_19)" " name_50" -" val_59))))" +" val_60))))" "(make-module-body-instance-instance18.1" " temp52_2))))" "(let-values(((instantiate-body_0)" @@ -34455,7 +34494,7 @@ static const char *startup_source = "((insp58_0) insp_15)" "((bulk-binding-registry59_0) bulk-binding-registry_16)" "((temp60_1)" -" (lambda (name_16 val_60) (error \"shouldn't get here for the root-ctx linklet\"))))" +" (lambda (name_16 val_61) (error \"shouldn't get here for the root-ctx linklet\"))))" "(make-instance-instance13.1" " bulk-binding-registry59_0" " insp58_0" @@ -34607,7 +34646,7 @@ static const char *startup_source = "(let-values(((ht_125) phases-h_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_125)))" -"((letrec-values(((for-loop_236)" +"((letrec-values(((for-loop_237)" "(lambda(table_192 i_151)" "(begin" " 'for-loop" @@ -34617,19 +34656,19 @@ static const char *startup_source = "(let-values(((table_194) table_192))" "(let-values(((table_145)" "(let-values()" -"(let-values(((key_71 val_61)" +"(let-values(((key_73 val_62)" "(let-values()" "(values" " phase_87" "(1/linklet-export-variables" " linklet_5)))))" -"(hash-set table_194 key_71 val_61)))))" +"(hash-set table_194 key_73 val_62)))))" "(values table_145)))))" "(if(not #f)" -"(for-loop_236 table_193(hash-iterate-next ht_125 i_151))" +"(for-loop_237 table_193(hash-iterate-next ht_125 i_151))" " table_193)))" " table_192)))))" -" for-loop_236)" +" for-loop_237)" " '#hash()" "(hash-iterate-first ht_125)))))))" "(define-values" @@ -34647,7 +34686,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_126)))" -"((letrec-values(((for-loop_99)" +"((letrec-values(((for-loop_101)" "(lambda(fold-var_59 i_152)" "(begin" " 'for-loop" @@ -34666,8 +34705,8 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_119)))" -"((letrec-values(((for-loop_237)" -"(lambda(fold-var_216" +"((letrec-values(((for-loop_238)" +"(lambda(fold-var_215" " i_153)" "(begin" " 'for-loop" @@ -34677,13 +34716,13 @@ static const char *startup_source = "(hash-iterate-key+value" " ht_119" " i_153)))" +"(let-values(((fold-var_216)" "(let-values(((fold-var_217)" -"(let-values(((fold-var_218)" -" fold-var_216))" +" fold-var_215))" "(if(ok?_24" " b/p_1)" -"(let-values(((fold-var_30)" -" fold-var_218))" +"(let-values(((fold-var_218)" +" fold-var_217))" "(let-values(((fold-var_219)" "(let-values()" "(cons" @@ -34701,7 +34740,7 @@ static const char *startup_source = " null)" "(let-values()" "(reverse$1" -"(let-values(((lst_88)" +"(let-values(((lst_87)" "(cons" " b_69" "(module-binding-extra-nominal-bindings" @@ -34712,24 +34751,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_88)))" -"((letrec-values(((for-loop_238)" -"(lambda(fold-var_32" -" lst_271)" +" lst_87)))" +"((letrec-values(((for-loop_239)" +"(lambda(fold-var_220" +" lst_270)" "(begin" " 'for-loop" "(if(pair?" -" lst_271)" +" lst_270)" "(let-values(((b_70)" "(unsafe-car" -" lst_271))" +" lst_270))" "((rest_144)" "(unsafe-cdr" -" lst_271)))" -"(let-values(((fold-var_152)" -"(let-values(((fold-var_153)" -" fold-var_32))" -"(let-values(((fold-var_26)" +" lst_270)))" +"(let-values(((fold-var_29)" +"(let-values(((fold-var_30)" +" fold-var_220))" +"(let-values(((fold-var_31)" "(let-values()" "(cons" "(let-values()" @@ -34755,52 +34794,52 @@ static const char *startup_source = " b_70)" "(module-binding-nominal-phase" " b_70)))))" -" fold-var_153))))" +" fold-var_30))))" "(values" -" fold-var_26)))))" +" fold-var_31)))))" +"(if(not" +" #f)" +"(for-loop_239" +" fold-var_29" +" rest_144)" +" fold-var_29)))" +" fold-var_220)))))" +" for-loop_239)" +" null" +" lst_87)))))))))" +" fold-var_218))))" +"(values" +" fold-var_219)))" +" fold-var_217))))" "(if(not" " #f)" "(for-loop_238" -" fold-var_152" -" rest_144)" -" fold-var_152)))" -" fold-var_32)))))" -" for-loop_238)" -" null" -" lst_88)))))))))" -" fold-var_30))))" -"(values" -" fold-var_219)))" -" fold-var_218))))" -"(if(not" -" #f)" -"(for-loop_237" -" fold-var_217" +" fold-var_216" "(hash-iterate-next" " ht_119" " i_153))" -" fold-var_217)))" -" fold-var_216)))))" -" for-loop_237)" +" fold-var_216)))" +" fold-var_215)))))" +" for-loop_238)" " null" "(hash-iterate-first" " ht_119)))))))" "(begin" " #t" -"((letrec-values(((for-loop_105)" +"((letrec-values(((for-loop_106)" "(lambda(fold-var_67)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_154)" -"(let-values(((fold-var_27)" +"(let-values(((fold-var_153)" +"(let-values(((fold-var_32)" " fold-var_67))" "(if(null?" " l_64)" -" fold-var_27" -"(let-values(((fold-var_28)" -" fold-var_27))" -"(let-values(((fold-var_29)" +" fold-var_32" +"(let-values(((fold-var_33)" +" fold-var_32))" +"(let-values(((fold-var_34)" "(let-values()" "(cons" "(let-values()" @@ -34819,19 +34858,19 @@ static const char *startup_source = " #t" " l4_0" " symbollinklet-directory" @@ -35038,37 +35077,37 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_127)))" -"((letrec-values(((for-loop_240)" +"((letrec-values(((for-loop_241)" "(lambda(table_195 i_154)" "(begin" " 'for-loop" "(if i_154" -"(let-values(((key_72 val_62)(hash-iterate-key+value ht_127 i_154)))" +"(let-values(((key_74 val_63)(hash-iterate-key+value ht_127 i_154)))" "(let-values(((table_196)" "(let-values(((table_115) table_195))" "(let-values(((table_197)" "(let-values()" -"(let-values(((key_73 val_63)" +"(let-values(((key_75 val_64)" "(let-values()" "(values" -" key_72" -"(if(not key_72)" +" key_74" +"(if(not key_74)" "(update-one-name" -" val_62" +" val_63" " full-name_0)" "(recur_0" -" val_62" -" key_72))))))" +" val_63" +" key_74))))))" "(hash-set" " table_115" -" key_73" -" val_63)))))" +" key_75" +" val_64)))))" "(values table_197)))))" "(if(not #f)" -"(for-loop_240 table_196(hash-iterate-next ht_127 i_154))" +"(for-loop_241 table_196(hash-iterate-next ht_127 i_154))" " table_196)))" " table_195)))))" -" for-loop_240)" +" for-loop_241)" " '#hasheq()" "(hash-iterate-first ht_127))))))" "(let-values()(update-one-name c_34 full-name_0))))))))))" @@ -35088,18 +35127,18 @@ static const char *startup_source = " main_0" "(1/hash->linklet-directory" "(hash-set" -"(let-values(((lst_173) submods_0))" +"(let-values(((lst_172) submods_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_173)))" -"((letrec-values(((for-loop_48)" -"(lambda(ht_128 lst_273)" +"(let-values()(check-list lst_172)))" +"((letrec-values(((for-loop_50)" +"(lambda(ht_128 lst_272)" "(begin" " 'for-loop" -"(if(pair? lst_273)" -"(let-values(((submod_1)(unsafe-car lst_273))" -"((rest_146)(unsafe-cdr lst_273)))" +"(if(pair? lst_272)" +"(let-values(((submod_1)(unsafe-car lst_272))" +"((rest_146)(unsafe-cdr lst_272)))" "(let-values(((ht_129)" "(let-values(((ht_130) ht_128))" "(let-values(((ht_120)" @@ -35121,11 +35160,11 @@ static const char *startup_source = "(compiled->linklet-directory-or-bundle" " submod_1))))))))" "(values ht_120)))))" -"(if(not #f)(for-loop_48 ht_129 rest_146) ht_129)))" +"(if(not #f)(for-loop_50 ht_129 rest_146) ht_129)))" " ht_128)))))" -" for-loop_48)" +" for-loop_50)" " '#hasheq()" -" lst_173)))" +" lst_172)))" " #f" " main_0))))))))))" "(define-values" @@ -35156,102 +35195,109 @@ static const char *startup_source = "(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)" +"(let-values()" +"(let-values()" "(case-lambda" -"((c_18)" +"((c_36)" "(begin" " 'module-compiled-name" "(begin" -"(if(1/compiled-module-expression? c_18)" -"(void)" -" (let-values () (raise-argument-error 'module-compiled-name \"compiled-module-expression?\" c_18)))" -"(module-compiled-current-name c_18))))" -"((c_36 name_54)" -"(let-values((()" -"(begin" "(if(1/compiled-module-expression? c_36)" "(void)" -" (let-values () (raise-argument-error 'module-compiled-name \"compiled-module-expression?\" c_36)))" +" (let-values () (raise-argument-error 'module-compiled-name \"compiled-module-expression?\" c_36)))" +"(module-compiled-current-name c_36))))" +"((c_37 name_54)" +"(let-values((()" +"(begin" +"(if(1/compiled-module-expression? c_37)" +"(void)" +"(let-values()" +" (raise-argument-error 'module-compiled-name \"compiled-module-expression?\" c_37)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_13)(symbol? name_54)))" -"(if or-part_13" -" or-part_13" +"(if(let-values(((or-part_224)(symbol? name_54)))" +"(if or-part_224" +" or-part_224" "(if(pair? name_54)(if(list? name_54)(andmap2 symbol? name_54) #f) #f)))" "(void)" "(let-values()" "(raise-argument-error" " 'module-compiled-name" -" \"(or/c symbol? (cons/c symbol? (non-empty-listof symbol?)))\"" +" \"(or/c symbol? (cons/c symbol? (non-empty-listof symbol?)))\"" " name_54)))" "(values))))" "(let-values(((i-name_0 prefix_5)" "(if(symbol? name_54)" "(values name_54 null)" -"(let-values(((r_40)(reverse$1 name_54)))(values(car r_40)(reverse$1(cdr r_40)))))))" -"(change-module-name c_36 i-name_0 prefix_5)))))))" +"(let-values(((r_41)(reverse$1 name_54)))(values(car r_41)(reverse$1(cdr r_41)))))))" +"(change-module-name c_37 i-name_0 prefix_5)))))))))" "(define-values" "(1/module-compiled-submodules)" +"(let-values()" +"(let-values()" "(case-lambda" -"((c_37 non-star?_0)" +"((c_13 non-star?_0)" "(begin" " 'module-compiled-submodules" "(begin" -"(if(1/compiled-module-expression? c_37)" +"(if(1/compiled-module-expression? c_13)" "(void)" -" (let-values () (raise-argument-error 'module-compiled-submodules \"compiled-module-expression?\" c_37)))" -"(if(compiled-in-memory? c_37)" +" (let-values () (raise-argument-error 'module-compiled-submodules \"compiled-module-expression?\" c_13)))" +"(if(compiled-in-memory? c_13)" "(let-values()" "(if non-star?_0" -"(compiled-in-memory-pre-compiled-in-memorys c_37)" -"(compiled-in-memory-post-compiled-in-memorys c_37)))" +"(compiled-in-memory-pre-compiled-in-memorys c_13)" +"(compiled-in-memory-post-compiled-in-memorys c_13)))" "(let-values()" -"(if(1/linklet-directory? c_37)" +"(if(1/linklet-directory? c_13)" "(let-values()" -"(let-values(((ht_131)(1/linklet-directory->hash c_37)))" +"(let-values(((ht_131)(1/linklet-directory->hash c_13)))" "(let-values(((bh_0)(1/linklet-bundle->hash(hash-ref ht_131 #f))))" "(let-values(((names_1)(hash-ref bh_0(if non-star?_0 'pre 'post) null)))" "(reverse$1" -"(let-values(((lst_80) names_1))" +"(let-values(((lst_86) names_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_80)))" -"((letrec-values(((for-loop_71)" -"(lambda(fold-var_30 lst_274)" +"(let-values()(check-list lst_86)))" +"((letrec-values(((for-loop_105)" +"(lambda(fold-var_65 lst_87)" "(begin" " 'for-loop" -"(if(pair? lst_274)" -"(let-values(((name_55)(unsafe-car lst_274))" -"((rest_147)(unsafe-cdr lst_274)))" -"(let-values(((fold-var_31)" -"(let-values(((fold-var_32) fold-var_30))" -"(let-values(((fold-var_33)" +"(if(pair? lst_87)" +"(let-values(((name_55)(unsafe-car lst_87))" +"((rest_41)(unsafe-cdr lst_87)))" +"(let-values(((fold-var_66)" +"(let-values(((fold-var_27) fold-var_65))" +"(let-values(((fold-var_28)" "(let-values()" "(cons" "(let-values()" "(hash-ref ht_131 name_55))" -" fold-var_32))))" -"(values fold-var_33)))))" -"(if(not #f)(for-loop_71 fold-var_31 rest_147) fold-var_31)))" -" fold-var_30)))))" -" for-loop_71)" +" fold-var_27))))" +"(values fold-var_28)))))" +"(if(not #f)" +"(for-loop_105 fold-var_66 rest_41)" +" fold-var_66)))" +" fold-var_65)))))" +" for-loop_105)" " null" -" lst_80))))))))" +" lst_86))))))))" "(let-values() null)))))))" "((c_38 non-star?_1 submods_1)" "(begin" "(if(1/compiled-module-expression? c_38)" "(void)" -" (let-values () (raise-argument-error 'module-compiled-submodules \"compiled-module-expression?\" c_38)))" +" (let-values () (raise-argument-error 'module-compiled-submodules \"compiled-module-expression?\" c_38)))" "(if(if(list? submods_1)(andmap2 1/compiled-module-expression? submods_1) #f)" "(void)" "(let-values()" -" (raise-argument-error 'module-compiled-submodules \"(listof compiled-module-expression?)\" submods_1)))" +" (raise-argument-error 'module-compiled-submodules \"(listof compiled-module-expression?)\" submods_1)))" "(if(if(null? submods_1)" -"(let-values(((or-part_74)(1/linklet-bundle?(compiled->linklet-directory-or-bundle c_38))))" -"(if or-part_74" -" or-part_74" +"(let-values(((or-part_29)(1/linklet-bundle?(compiled->linklet-directory-or-bundle c_38))))" +"(if or-part_29" +" or-part_29" "(if(compiled-in-memory? c_38)" "(null?" "(if non-star?_1" @@ -35268,12 +35314,12 @@ 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_55) n-c_0))" -"(if(compiled-in-memory? the-struct_55)" -"(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)" -"(let-values(((temp4_1)" +"(let-values(((the-struct_45) n-c_0))" +"(if(compiled-in-memory? the-struct_45)" +"(let-values(((pre-compiled-in-memorys3_0) pre-compiled-in-memorys_1)" +"((post-compiled-in-memorys4_0) post-compiled-in-memorys_1)" +"((linklet-directory5_0)" +"(let-values(((temp6_0)" "(reset-submodule-names" "(hash-ref" "(1/linklet-directory->hash" @@ -35281,96 +35327,109 @@ static const char *startup_source = " #f)" " non-star?_1" " submods_1))" -"((temp5_3)(symbol?(module-compiled-current-name c_38)))" -"((temp6_0)" +"((temp7_2)(symbol?(module-compiled-current-name c_38)))" +"((temp8_2)" "(append pre-compiled-in-memorys_1 post-compiled-in-memorys_1)))" -"(rebuild-linklet-directory5.1 temp5_3 #t temp4_1 temp6_0))))" +"(rebuild-linklet-directory5.1 temp7_2 #t temp6_0 temp8_2))))" "(compiled-in-memory1.1" -" linklet-directory3_0" -"(compiled-in-memory-original-self the-struct_55)" -"(compiled-in-memory-requires the-struct_55)" -"(compiled-in-memory-provides the-struct_55)" -"(compiled-in-memory-phase-to-link-module-uses the-struct_55)" -"(compiled-in-memory-compile-time-inspector the-struct_55)" -"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_55)" -"(compiled-in-memory-mpis the-struct_55)" -"(compiled-in-memory-syntax-literals the-struct_55)" -" pre-compiled-in-memorys1_0" -" post-compiled-in-memorys2_0" -"(compiled-in-memory-namespace-scopes the-struct_55)" -"(compiled-in-memory-purely-functional? the-struct_55)))" -" (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_55))))))))" +" linklet-directory5_0" +"(compiled-in-memory-original-self the-struct_45)" +"(compiled-in-memory-requires the-struct_45)" +"(compiled-in-memory-provides the-struct_45)" +"(compiled-in-memory-phase-to-link-module-uses the-struct_45)" +"(compiled-in-memory-compile-time-inspector the-struct_45)" +"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_45)" +"(compiled-in-memory-mpis the-struct_45)" +"(compiled-in-memory-syntax-literals the-struct_45)" +" pre-compiled-in-memorys3_0" +" post-compiled-in-memorys4_0" +"(compiled-in-memory-namespace-scopes the-struct_45)" +"(compiled-in-memory-purely-functional? the-struct_45)))" +" (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_45))))))))" "(let-values()" "(let-values(((n-c_1)(normalize-to-linklet-directory c_38)))" "(fixup-submodule-names" -"(let-values(((temp7_2)" +"(let-values(((temp9_3)" "(reset-submodule-names" -"(hash-ref(1/linklet-directory->hash(compiled->linklet-directory-or-bundle n-c_1)) #f)" +"(hash-ref" +"(1/linklet-directory->hash(compiled->linklet-directory-or-bundle n-c_1))" +" #f)" " non-star?_1" " submods_1))" -"((temp8_2)" +"((temp10_3)" "(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_2 temp8_2)))))))))))" +"(rebuild-linklet-directory5.1 #f #f temp9_3 temp10_3)))))))))))))" "(define-values" "(1/module-compiled-language-info)" "(lambda(c_39)" "(begin" " 'module-compiled-language-info" +"(let-values()" +"(let-values()" "(let-values((()" "(begin" "(if(1/compiled-module-expression? c_39)" "(void)" "(let-values()" -" (raise-argument-error 'module-compiled-language-info \"compiled-module-expression?\" c_39)))" +" (raise-argument-error 'module-compiled-language-info \"compiled-module-expression?\" c_39)))" "(values))))" -"(let-values(((h_7)(compiled-module->h c_39)))(hash-ref h_7 'language-info #f))))))" +"(let-values(((h_7)(compiled-module->h c_39)))(hash-ref h_7 'language-info #f))))))))" "(define-values" "(1/module-compiled-imports)" "(lambda(c_40)" "(begin" " 'module-compiled-imports" +"(let-values()" +"(let-values()" "(let-values((()" "(begin" "(if(1/compiled-module-expression? c_40)" "(void)" "(let-values()" -" (raise-argument-error 'module-compiled-imports \"compiled-module-expression?\" c_40)))" +" (raise-argument-error 'module-compiled-imports \"compiled-module-expression?\" c_40)))" "(values))))" "(let-values(((inst_2)(compiled-module->declaration-instance c_40)))" -"(1/instance-variable-value inst_2 'requires))))))" +"(1/instance-variable-value inst_2 'requires))))))))" "(define-values" "(1/module-compiled-exports)" "(lambda(c_41)" "(begin" " 'module-compiled-exports" +"(let-values()" +"(let-values()" "(let-values((()" "(begin" "(if(1/compiled-module-expression? c_41)" "(void)" "(let-values()" -" (raise-argument-error 'module-compiled-imports \"compiled-module-expression?\" c_41)))" +" (raise-argument-error 'module-compiled-exports \"compiled-module-expression?\" c_41)))" "(values))))" "(let-values(((inst_3)(compiled-module->declaration-instance c_41)))" "(provides->api-provides" "(1/instance-variable-value inst_3 'provides)" -"(1/instance-variable-value inst_3 'self-mpi)))))))" +"(1/instance-variable-value inst_3 'self-mpi)))))))))" "(define-values" "(1/module-compiled-indirect-exports)" -"(lambda(c_42)" +"(lambda(c_15)" "(begin" " 'module-compiled-indirect-exports" +"(let-values()" +"(let-values()" "(let-values((()" "(begin" -"(if(1/compiled-module-expression? c_42)" +"(if(1/compiled-module-expression? c_15)" "(void)" "(let-values()" -" (raise-argument-error 'module-compiled-indirect-imports \"compiled-module-expression?\" c_42)))" +"(raise-argument-error" +" 'module-compiled-indirect-exports" +" \"compiled-module-expression?\"" +" c_15)))" "(values))))" -"(let-values(((h_8 inst_4)(compiled-module->h+declaration-instance c_42)))" +"(let-values(((h_8 inst_4)(compiled-module->h+declaration-instance c_15)))" "(let-values(((min-phase_3)(hash-ref h_8 'min-phase 0)))" "(let-values(((max-phase_3)(hash-ref h_8 'max-phase 0)))" "(variables->api-nonprovides" @@ -35380,83 +35439,85 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_38 end_27 inc_21)))" -"((letrec-values(((for-loop_102)" -"(lambda(table_112 pos_100)" +"((letrec-values(((for-loop_190)" +"(lambda(table_198 pos_100)" "(begin" " 'for-loop" "(if(< pos_100 end_27)" "(let-values(((phase-level_20) pos_100))" -"(let-values(((table_198)" -"(let-values(((table_61) table_112))" -"(let-values(((table_199)" +"(let-values(((table_63)" +"(let-values(((table_64) table_198))" +"(let-values(((table_16)" "(let-values()" -"(let-values(((key_74 val_48)" +"(let-values(((key_76 val_65)" "(let-values()" -"(let-values(((linklet_6)" +"(let-values(((linklet_0)" "(hash-ref" " h_8" " phase-level_20" " #f)))" "(values" " phase-level_20" -"(if linklet_6" +"(if linklet_0" "(1/linklet-export-variables" -" linklet_6)" +" linklet_0)" " null))))))" -"(hash-set table_61 key_74 val_48)))))" -"(values table_199)))))" -"(if(not #f)(for-loop_102 table_198(+ pos_100 inc_21)) table_198)))" -" table_112)))))" -" for-loop_102)" +"(hash-set table_64 key_76 val_65)))))" +"(values table_16)))))" +"(if(not #f)(for-loop_190 table_63(+ pos_100 inc_21)) table_63)))" +" table_198)))))" +" for-loop_190)" " '#hash()" -" start_38)))))))))))" +" start_38)))))))))))))" "(define-values" "(1/module-compiled-cross-phase-persistent?)" -"(lambda(c_43)" +"(lambda(c_42)" "(begin" " 'module-compiled-cross-phase-persistent?" +"(let-values()" +"(let-values()" "(let-values((()" "(begin" -"(if(1/compiled-module-expression? c_43)" +"(if(1/compiled-module-expression? c_42)" "(void)" "(let-values()" "(raise-argument-error" " 'module-compiled-cross-phase-persistent?" -" \"compiled-module-expression?\"" -" c_43)))" +" \"compiled-module-expression?\"" +" c_42)))" "(values))))" -"(let-values(((h_9)(compiled-module->h c_43)))(hash-ref h_9 'cross-phase-persistent? #f))))))" +"(let-values(((h_9)(compiled-module->h c_42)))(hash-ref h_9 'cross-phase-persistent? #f))))))))" "(define-values" "(normalize-to-linklet-directory)" -"(lambda(c_44)" +"(lambda(c_43)" "(begin" -"(if(1/linklet-directory?(compiled->linklet-directory-or-bundle c_44))" -"(let-values() c_44)" -"(if(1/linklet-bundle? c_44)" -"(let-values()(1/hash->linklet-directory(hasheq #f c_44)))" +"(if(1/linklet-directory?(compiled->linklet-directory-or-bundle c_43))" +"(let-values() c_43)" +"(if(1/linklet-bundle? c_43)" +"(let-values()(1/hash->linklet-directory(hasheq #f c_43)))" "(let-values()" -"(let-values(((the-struct_56) c_44))" -"(if(compiled-in-memory? the-struct_56)" -"(let-values(((linklet-directory9_0)" -"(normalize-to-linklet-directory(compiled-in-memory-linklet-directory c_44))))" +"(let-values(((the-struct_54) c_43))" +"(if(compiled-in-memory? the-struct_54)" +"(let-values(((linklet-directory16_0)" +"(normalize-to-linklet-directory(compiled-in-memory-linklet-directory c_43))))" "(compiled-in-memory1.1" -" linklet-directory9_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-pre-compiled-in-memorys the-struct_56)" -"(compiled-in-memory-post-compiled-in-memorys the-struct_56)" -"(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)))))))))" +" linklet-directory16_0" +"(compiled-in-memory-original-self the-struct_54)" +"(compiled-in-memory-requires the-struct_54)" +"(compiled-in-memory-provides the-struct_54)" +"(compiled-in-memory-phase-to-link-module-uses the-struct_54)" +"(compiled-in-memory-compile-time-inspector the-struct_54)" +"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_54)" +"(compiled-in-memory-mpis the-struct_54)" +"(compiled-in-memory-syntax-literals the-struct_54)" +"(compiled-in-memory-pre-compiled-in-memorys the-struct_54)" +"(compiled-in-memory-post-compiled-in-memorys the-struct_54)" +"(compiled-in-memory-namespace-scopes the-struct_54)" +"(compiled-in-memory-purely-functional? the-struct_54)))" +" (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_54)))))))))" "(define-values" "(fixup-submodule-names)" -"(lambda(c_45)(begin(1/module-compiled-name c_45(1/module-compiled-name c_45)))))" +"(lambda(c_44)(begin(1/module-compiled-name c_44(1/module-compiled-name c_44)))))" "(define-values" "(reset-submodule-names)" "(lambda(b_72 pre?_1 submods_2)" @@ -35511,7 +35572,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_124)))" -"((letrec-values(((for-loop_105)" +"((letrec-values(((for-loop_106)" "(lambda(fold-var_67 i_155)" "(begin" " 'for-loop" @@ -35520,14 +35581,14 @@ static const char *startup_source = "(hash-iterate-key+value" " ht_124" " i_155)))" -"(let-values(((fold-var_29)" -"(let-values(((fold-var_155)" +"(let-values(((fold-var_34)" +"(let-values(((fold-var_154)" " fold-var_67))" "(if(eq?" " star?_0" "(car star?+compiled_0))" "(let-values(((fold-var_9)" -" fold-var_155))" +" fold-var_154))" "(let-values(((fold-var_68)" "(let-values()" "(cons" @@ -35548,34 +35609,34 @@ static const char *startup_source = " star?+compiled_0))))" " fold-var_9))))" "(values fold-var_68)))" -" fold-var_155))))" +" fold-var_154))))" "(if(not #f)" -"(for-loop_105" -" fold-var_29" +"(for-loop_106" +" fold-var_34" "(hash-iterate-next ht_124 i_155))" -" fold-var_29)))" +" fold-var_34)))" " fold-var_67)))))" -" for-loop_105)" +" for-loop_106)" " null" "(hash-iterate-first ht_124)))))))))" "(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_37)))" "(if c1_25" -"((lambda(c_46)" +"((lambda(c_45)" "(let-values(((name_58 prefix_6)" "(if(symbol? full-module-name_1)" "(values full-module-name_1 null)" "(let-values(((r_10)(reverse$1 full-module-name_1)))" "(values(car r_10)(reverse$1(cdr r_10)))))))" -"(let-values(((m_18)(change-module-name c_46 name_58 prefix_6)))" +"(let-values(((m_18)(change-module-name c_45 name_58 prefix_6)))" "(1/module-compiled-submodules" "(1/module-compiled-submodules m_18 #t(map2 cdr pre-submodules_0))" " #f" "(map2 cdr post-submodules_0)))))" " c1_25)" "(let-values()" -"(let-values(((p37_0) p_37)" +"(let-values(((p37_1) p_37)" "((cctx38_0) cctx_16)" "((full-module-name39_0) full-module-name_1)" "((force-linklet-directory?40_0) force-linklet-directory?_0)" @@ -35595,7 +35656,7 @@ static const char *startup_source = " pre-submodules44_0" " serializable?41_0" " to-source?42_0" -" p37_0" +" p37_1" " cctx38_0)))))))))))))))))))))" "(define-values" "(compile-module-from-parsed34.1)" @@ -35637,8 +35698,8 @@ static const char *startup_source = "(let-values(((empty-result-for-module->namespace?_0) #f))" "(let-values(((mpis_19)(make-module-path-index-table)))" "(let-values(((body-cctx_0)" -"(let-values(((the-struct_57) cctx_17))" -"(if(compile-context? the-struct_57)" +"(let-values(((the-struct_55) cctx_17))" +"(if(compile-context? the-struct_55)" "(let-values(((phase47_1) 0)" "((self48_0) self_25)" "((module-self49_0) self_25)" @@ -35646,21 +35707,21 @@ static const char *startup_source = " full-module-name_2)" "((lazy-syntax-literals?51_0) #t))" "(compile-context1.1" -"(compile-context-namespace the-struct_57)" +"(compile-context-namespace the-struct_55)" " phase47_1" " self48_0" " module-self49_0" " full-module-name50_0" " lazy-syntax-literals?51_0" -"(compile-context-header the-struct_57)))" +"(compile-context-header the-struct_55)))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_57)))))" +" the-struct_55)))))" "(let-values(((cross-phase-persistent?_2) #f))" "(let-values(((side-effects_0)(make-hasheqv)))" "(let-values(((check-side-effects!_0)" -"(lambda(e_74" +"(lambda(e_75" " expected-results_3" " phase_22" " required-reference?_1)" @@ -35669,7 +35730,7 @@ static const char *startup_source = "(if(hash-ref side-effects_0 phase_22 #f)" "(void)" "(let-values()" -"(if(let-values(((e52_2) e_74)" +"(if(let-values(((e52_2) e_75)" "((expected-results53_0)" " expected-results_3)" "((required-reference?54_0)" @@ -35741,39 +35802,39 @@ static const char *startup_source = "(let-values(((ok?_25" " _69_0" " kw70_0)" -"(let-values(((s_384)" +"(let-values(((s_386)" "(parsed-s" " body_4)))" "(let-values(((orig-s_29)" -" s_384))" +" s_386))" "(let-values(((_69_1" " kw70_1)" -"(let-values(((s_385)" -"(if(syntax?$1" -" s_384)" -"(syntax-e$1" -" s_384)" -" s_384)))" -"(if(pair?" -" s_385)" -"(let-values(((_71_0)" -"(let-values(((s_56)" -"(car" -" s_385)))" -" s_56))" -"((kw72_0)" -"(let-values(((s_386)" -"(cdr" -" s_385)))" "(let-values(((s_387)" "(if(syntax?$1" " s_386)" "(syntax-e$1" " s_386)" " s_386)))" +"(if(pair?" +" s_387)" +"(let-values(((_71_0)" +"(let-values(((s_56)" +"(car" +" s_387)))" +" s_56))" +"((kw72_0)" +"(let-values(((s_388)" +"(cdr" +" s_387)))" +"(let-values(((s_389)" +"(if(syntax?$1" +" s_388)" +"(syntax-e$1" +" s_388)" +" s_388)))" "(let-values(((flat-s_18)" "(to-syntax-list.1" -" s_387)))" +" s_389)))" "(if(not" " flat-s_18)" "(let-values()" @@ -35795,7 +35856,7 @@ static const char *startup_source = " _69_1" " kw70_1))))))" "(begin" -"(let-values(((lst_275)" +"(let-values(((lst_273)" " kw70_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -35803,19 +35864,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_275)))" +" lst_273)))" "((letrec-values(((for-loop_13)" -"(lambda(lst_29)" +"(lambda(lst_274)" "(begin" " 'for-loop" "(if(pair?" -" lst_29)" +" lst_274)" "(let-values(((kw_0)" "(unsafe-car" -" lst_29))" -"((rest_148)" +" lst_274))" +"((rest_147)" "(unsafe-cdr" -" lst_29)))" +" lst_274)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -35848,11 +35909,11 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_13" -" rest_148)" +" rest_147)" "(values))))" "(values))))))" " for-loop_13)" -" lst_275)))" +" lst_273)))" "(void)" " #f)))" "(let-values() #f))))" @@ -35917,29 +35978,29 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash ht_133)))" -"((letrec-values(((for-loop_241)" -"(lambda(table_200" +"((letrec-values(((for-loop_242)" +"(lambda(table_199" " i_156)" "(begin" " 'for-loop" "(if i_156" "(let-values(((phase_91" -" linklet_7)" +" linklet_6)" "(hash-iterate-key+value" " ht_133" " i_156)))" +"(let-values(((table_200)" "(let-values(((table_201)" +" table_199))" "(let-values(((table_202)" -" table_200))" -"(let-values(((table_203)" "(let-values()" -"(let-values(((key_75" -" val_64)" +"(let-values(((key_77" +" val_66)" "(let-values()" "(values" " phase_91" "(module-linklet-info2.1" -" linklet_7" +" linklet_6" "(hash-ref" " phase-to-link-module-uses_4" " phase_91" @@ -35954,21 +36015,21 @@ static const char *startup_source = " #f)" " #f))))))" "(hash-set" -" table_202" -" key_75" -" val_64)))))" +" table_201" +" key_77" +" val_66)))))" "(values" -" table_203)))))" +" table_202)))))" "(if(not" " #f)" -"(for-loop_241" -" table_201" +"(for-loop_242" +" table_200" "(hash-iterate-next" " ht_133" " i_156))" -" table_201)))" -" table_200)))))" -" for-loop_241)" +" table_200)))" +" table_199)))))" +" for-loop_242)" " '#hasheq()" "(hash-iterate-first ht_133))))))" "(void))" @@ -35977,9 +36038,11 @@ static const char *startup_source = "(if serializable?_3" "((if to-source?_4" " values" -"(lambda(s_37)" +"(lambda(s_390)" "(let-values()" -"(1/compile-linklet s_37 'decl))))" +"(1/compile-linklet" +" s_390" +" 'decl))))" "(list" " 'linklet" "(list" @@ -36030,12 +36093,12 @@ static const char *startup_source = " syntax-literals_4))" "((if to-source?_4" " values" -"(lambda(s_317)" +"(lambda(s_319)" "(let-values()" -"(let-values(((linklet_8" +"(let-values(((linklet_7" " new-keys_1)" "(1/compile-linklet" -" s_317" +" s_319" " 'syntax-literals" "(vector" " deserialize-instance" @@ -36047,7 +36110,7 @@ static const char *startup_source = " inst_5" " #f))" " serializable?_3)))" -" linklet_8))))" +" linklet_7))))" "(list*" " 'linklet" "(list" @@ -36098,10 +36161,10 @@ static const char *startup_source = " syntax-literals_4))" "((if to-source?_4" " values" -"(lambda(s_388)" +"(lambda(s_391)" "(let-values()" "(1/compile-linklet" -" s_388" +" s_391" " 'syntax-literals-data))))" "(list*" " 'linklet" @@ -36130,10 +36193,10 @@ static const char *startup_source = "(if serializable?_3" "((if to-source?_4" " values" -"(lambda(s_201)" +"(lambda(s_38)" "(let-values()" "(1/compile-linklet" -" s_201" +" s_38" " 'data))))" "(list" " 'linklet" @@ -36159,10 +36222,10 @@ static const char *startup_source = "(hash-set" " bundle_2" " 'decl" -"(let-values(((or-part_265)" +"(let-values(((or-part_266)" " declaration-linklet_0))" -"(if or-part_265" -" or-part_265" +"(if or-part_266" +" or-part_266" " 'in-memory)))))" "(let-values(((bundle_4)" "(if data-linklet_0" @@ -36276,7 +36339,7 @@ static const char *startup_source = "((if to-source?_4" " values" " 1/hash->linklet-directory)" -"(let-values(((lst_206)" +"(let-values(((lst_205)" "(append" " pre-submodules_1" " post-submodules_1)))" @@ -36286,20 +36349,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_206)))" -"((letrec-values(((for-loop_121)" +" lst_205)))" +"((letrec-values(((for-loop_122)" "(lambda(ht_134" -" lst_276)" +" lst_275)" "(begin" " 'for-loop" "(if(pair?" -" lst_276)" +" lst_275)" "(let-values(((sm_0)" "(unsafe-car" -" lst_276))" -"((rest_149)" +" lst_275))" +"((rest_148)" "(unsafe-cdr" -" lst_276)))" +" lst_275)))" "(let-values(((ht_135)" "(let-values(((ht_136)" " ht_134))" @@ -36318,14 +36381,14 @@ static const char *startup_source = " ht_125)))))" "(if(not" " #f)" -"(for-loop_121" +"(for-loop_122" " ht_135" -" rest_149)" +" rest_148)" " ht_135)))" " ht_134)))))" -" for-loop_121)" +" for-loop_122)" "(hasheq #f bundle_1)" -" lst_206))))))))" +" lst_205))))))))" "(if to-source?_4" "(let-values() ld_4)" "(let-values()" @@ -36357,23 +36420,23 @@ static const char *startup_source = "(lambda(modules-being-compiled_2 pre-submodules_2 self_26)" "(begin" "(begin" -"(let-values(((lst_277) pre-submodules_2))" +"(let-values(((lst_276) pre-submodules_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_277)))" -"((letrec-values(((for-loop_242)" -"(lambda(lst_278)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_276)))" +"((letrec-values(((for-loop_243)" +"(lambda(lst_277)" "(begin" " 'for-loop" -"(if(pair? lst_278)" -"(let-values(((s_100)(unsafe-car lst_278))((rest_150)(unsafe-cdr lst_278)))" +"(if(pair? lst_277)" +"(let-values(((s_106)(unsafe-car lst_277))((rest_149)(unsafe-cdr lst_277)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((name_60)(car s_100)))" -"(let-values(((cim_10)(cdr s_100)))" +"(let-values(((name_60)(car s_106)))" +"(let-values(((cim_10)(cdr s_106)))" "(let-values(((phase-to-link-module-uses_5)" "(compiled-in-memory-phase-to-link-module-uses" " cim_10)))" @@ -36409,33 +36472,33 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash ht_137)))" -"((letrec-values(((for-loop_243)" -"(lambda(table_204" +"((letrec-values(((for-loop_244)" +"(lambda(table_203" " i_5)" "(begin" " 'for-loop" "(if i_5" "(let-values(((phase_2" -" linklet_9)" +" linklet_8)" "(hash-iterate-key+value" " ht_137" " i_5)))" +"(let-values(((table_204)" "(let-values(((table_205)" -"(let-values(((table_206)" -" table_204))" +" table_203))" "(if(number?" " phase_2)" -"(let-values(((table_207)" -" table_206))" +"(let-values(((table_206)" +" table_205))" "(let-values(((table_46)" "(let-values()" -"(let-values(((key_76" -" val_65)" +"(let-values(((key_78" +" val_67)" "(let-values()" "(values" " phase_2" "(module-linklet-info2.1" -" linklet_9" +" linklet_8" "(hash-ref" " phase-to-link-module-uses_5" " phase_2" @@ -36452,31 +36515,31 @@ static const char *startup_source = " #f)" " #f))))))" "(hash-set" -" table_207" -" key_76" -" val_65)))))" +" table_206" +" key_78" +" val_67)))))" "(values" " table_46)))" -" table_206))))" +" table_205))))" "(if(not" " #f)" -"(for-loop_243" -" table_205" +"(for-loop_244" +" table_204" "(hash-iterate-next" " ht_137" " i_5))" -" table_205)))" -" table_204)))))" -" for-loop_243)" +" table_204)))" +" table_203)))))" +" for-loop_244)" " '#hasheq()" "(hash-iterate-first" " ht_137))))))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_242 rest_150)(values))))" +"(if(not #f)(for-loop_243 rest_149)(values))))" "(values))))))" -" for-loop_242)" -" lst_277)))" +" for-loop_243)" +" lst_276)))" "(void)))))" "(define-values" "(filter-language-info)" @@ -36504,33 +36567,33 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_138)))" -"((letrec-values(((for-loop_244)" -"(lambda(table_208 i_157)" +"((letrec-values(((for-loop_245)" +"(lambda(table_207 i_157)" "(begin" " 'for-loop" "(if i_157" -"(let-values(((k_32 v_66)(hash-iterate-key+value ht_138 i_157)))" -"(let-values(((table_209)" -"(let-values(((table_210) table_208))" -"(let-values(((table_211)" +"(let-values(((k_33 v_66)(hash-iterate-key+value ht_138 i_157)))" +"(let-values(((table_208)" +"(let-values(((table_209) table_207))" +"(let-values(((table_210)" "(let-values()" -"(let-values(((key_29 val_19)" +"(let-values(((key_79 val_68)" "(let-values()" "(if(1/linklet? v_66)" "(let-values()" "(values" -" k_32" +" k_33" "(1/recompile-linklet" " v_66)))" "(let-values()" -"(values k_32 v_66))))))" -"(hash-set table_210 key_29 val_19)))))" -"(values table_211)))))" +"(values k_33 v_66))))))" +"(hash-set table_209 key_79 val_68)))))" +"(values table_210)))))" "(if(not #f)" -"(for-loop_244 table_209(hash-iterate-next ht_138 i_157))" -" table_209)))" -" table_208)))))" -" for-loop_244)" +"(for-loop_245 table_208(hash-iterate-next ht_138 i_157))" +" table_208)))" +" table_207)))))" +" for-loop_245)" " '#hasheq()" "(hash-iterate-first ht_138))))))" "(if(1/linklet-directory? c_31)" @@ -36541,34 +36604,34 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_139)))" -"((letrec-values(((for-loop_245)" -"(lambda(table_212 i_158)" +"((letrec-values(((for-loop_246)" +"(lambda(table_211 i_158)" "(begin" " 'for-loop" "(if i_158" -"(let-values(((k_33 v_1)(hash-iterate-key+value ht_139 i_158)))" -"(let-values(((table_213)" -"(let-values(((table_214) table_212))" -"(let-values(((table_215)" +"(let-values(((k_34 v_1)(hash-iterate-key+value ht_139 i_158)))" +"(let-values(((table_212)" +"(let-values(((table_213) table_211))" +"(let-values(((table_214)" "(let-values()" -"(let-values(((key_77 val_66)" +"(let-values(((key_80 val_69)" "(let-values()" "(if(1/compiled-expression?" " v_1)" "(let-values()" "(values" -" k_33" +" k_34" "(1/compiled-expression-recompile" " v_1)))" "(let-values()" -"(values k_33 v_1))))))" -"(hash-set table_214 key_77 val_66)))))" -"(values table_215)))))" +"(values k_34 v_1))))))" +"(hash-set table_213 key_80 val_69)))))" +"(values table_214)))))" "(if(not #f)" -"(for-loop_245 table_213(hash-iterate-next ht_139 i_158))" -" table_213)))" -" table_212)))))" -" for-loop_245)" +"(for-loop_246 table_212(hash-iterate-next ht_139 i_158))" +" table_212)))" +" table_211)))))" +" for-loop_246)" " '#hasheq()" "(hash-iterate-first ht_139))))))" "(let-values() c_31)))))))" @@ -36584,10 +36647,10 @@ static const char *startup_source = "(let-values(((ns1_1) ns_59)" "((temp2_3)(namespace-phase ns_59))" "((temp3_3)(namespace-mpi ns_59))" -"((temp4_2)(namespace-bulk-binding-registry ns_59))" -"((temp5_4)(current-code-inspector)))" -"(make-eager-instance-instance11.1 temp4_2 temp2_3 temp5_4 ns1_1 temp3_3))))))" -"(let-values(((data_0)(lambda(key_78)(begin 'data(1/instance-variable-value data-instance_5 key_78)))))" +"((temp4_1)(namespace-bulk-binding-registry ns_59))" +"((temp5_3)(current-code-inspector)))" +"(make-eager-instance-instance11.1 temp4_1 temp2_3 temp5_3 ns1_1 temp3_3))))))" +"(let-values(((data_0)(lambda(key_81)(begin 'data(1/instance-variable-value data-instance_5 key_81)))))" "(let-values(((mpi-vector_0)(data_0 mpi-vector-id)))" "(let-values(((mpi-vector-trees_0)(data_0 'mpi-vector-trees)))" "(let-values(((phase-to-link-modules-vector_0)(data_0 'phase-to-link-modules-vector)))" @@ -36603,9 +36666,9 @@ static const char *startup_source = "(begin" " 'construct-compiled-in-memory" "(let-values(((is-module?_0)" -"(let-values(((or-part_73)(1/linklet-bundle? ld_6)))" -"(if or-part_73" -" or-part_73" +"(let-values(((or-part_72)(1/linklet-bundle? ld_6)))" +"(if or-part_72" +" or-part_72" "(let-values(((b_73)" "(hash-ref" "(1/linklet-directory->hash ld_6)" @@ -36630,16 +36693,16 @@ static const char *startup_source = "(begin" " 'map-construct-compiled-in-memory" "(reverse$1" -"(let-values(((lst_267) l_10)" -"((lst_90)" +"(let-values(((lst_266) l_10)" +"((lst_89)" "(vector-ref" " mpi-vector-tree_0" " vec-pos_0))" -"((lst_163)" +"((lst_162)" "(vector-ref" " phase-to-link-modules-tree_0" " vec-pos_0))" -"((lst_265)" +"((lst_264)" "(vector-ref" " syntax-literals-tree_0" " vec-pos_0)))" @@ -36647,44 +36710,44 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_267)))" +"(let-values()(check-list lst_266)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_90)))" +"(let-values()(check-list lst_89)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_163)))" +"(let-values()(check-list lst_162)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_265)))" -"((letrec-values(((for-loop_229)" -"(lambda(fold-var_155" -" lst_268" +"(let-values()(check-list lst_264)))" +"((letrec-values(((for-loop_230)" +"(lambda(fold-var_154" +" lst_267" " lst_24" -" lst_103" -" lst_91)" +" lst_102" +" lst_90)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_268)" +" lst_267)" "(if(pair?" " lst_24)" "(if(pair?" -" lst_103)" +" lst_102)" "(pair?" -" lst_91)" +" lst_90)" " #f)" " #f)" " #f)" "(let-values(((sub-ld_0)" "(unsafe-car" -" lst_268))" -"((rest_151)" +" lst_267))" +"((rest_150)" "(unsafe-cdr" -" lst_268))" +" lst_267))" "((mpi-vector-tree_1)" "(unsafe-car" " lst_24))" @@ -36693,20 +36756,20 @@ static const char *startup_source = " lst_24))" "((phase-to-link-modules-tree_1)" "(unsafe-car" -" lst_103))" +" lst_102))" "((rest_87)" "(unsafe-cdr" -" lst_103))" +" lst_102))" "((syntax-literals-tree_1)" "(unsafe-car" -" lst_91))" +" lst_90))" "((rest_37)" "(unsafe-cdr" -" lst_91)))" +" lst_90)))" +"(let-values(((fold-var_163)" "(let-values(((fold-var_164)" +" fold-var_154))" "(let-values(((fold-var_165)" -" fold-var_155))" -"(let-values(((fold-var_166)" "(let-values()" "(cons" "(let-values()" @@ -36715,24 +36778,24 @@ static const char *startup_source = " mpi-vector-tree_1" " phase-to-link-modules-tree_1" " syntax-literals-tree_1))" -" fold-var_165))))" +" fold-var_164))))" "(values" -" fold-var_166)))))" +" fold-var_165)))))" "(if(not #f)" -"(for-loop_229" -" fold-var_164" -" rest_151" +"(for-loop_230" +" fold-var_163" +" rest_150" " rest_49" " rest_87" " rest_37)" -" fold-var_164)))" -" fold-var_155)))))" -" for-loop_229)" +" fold-var_163)))" +" fold-var_154)))))" +" for-loop_230)" " null" -" lst_267" -" lst_90" -" lst_163" -" lst_265))))))))" +" lst_266" +" lst_89" +" lst_162" +" lst_264))))))))" "(compiled-in-memory1.1" " ld_6" " #f" @@ -36768,21 +36831,21 @@ static const char *startup_source = " vec_63))))))" "(begin" " #f" -"((letrec-values(((for-loop_102)" -"(lambda(i_159 pos_100)" +"((letrec-values(((for-loop_103)" +"(lambda(i_159 pos_101)" "(begin" " 'for-loop" "(if(unsafe-fx<" -" pos_100" +" pos_101" " len_30)" -"(let-values(((pos_101)" +"(let-values(((pos_102)" "(unsafe-vector-ref" " vec_62" -" pos_100)))" +" pos_101)))" "(let-values(((i_160)" "(let-values(((i_161)" " i_159))" -"(let-values(((i_58)" +"(let-values(((i_59)" "(let-values()" "(begin" "(unsafe-vector*-set!" @@ -36791,28 +36854,28 @@ static const char *startup_source = "(let-values()" "(vector-ref" " mpi-vector_0" -" pos_101)))" +" pos_102)))" "(unsafe-fx+" " 1" " i_161)))))" "(values" -" i_58)))))" +" i_59)))))" "(if(if(not" "((lambda x_19" "(unsafe-fx=" " i_160" " len_29))" -" pos_101))" +" pos_102))" "(not #f)" " #f)" -"(for-loop_102" +"(for-loop_103" " i_160" "(unsafe-fx+" " 1" -" pos_100))" +" pos_101))" " i_160)))" " i_159)))))" -" for-loop_102)" +" for-loop_103)" " 0" " 0)))))" " v_62))))" @@ -36840,13 +36903,13 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_15 end_28 inc_22)))" -"((letrec-values(((for-loop_246)" -"(lambda(i_162 pos_102)" +"((letrec-values(((for-loop_247)" +"(lambda(i_162 pos_103)" "(begin" " 'for-loop" -"(if(< pos_102 end_28)" +"(if(< pos_103 end_28)" "(let-values(((i_20)" -" pos_102))" +" pos_103))" "(let-values(((i_163)" "(let-values(((i_34)" " i_162))" @@ -36878,14 +36941,14 @@ static const char *startup_source = " i_20))" "(not #f)" " #f)" -"(for-loop_246" +"(for-loop_247" " i_163" "(+" -" pos_102" +" pos_103" " inc_22))" " i_163)))" " i_162)))))" -" for-loop_246)" +" for-loop_247)" " 0" " start_15)))))" " v_34))))" @@ -36912,21 +36975,21 @@ static const char *startup_source = "(let-values(((mh_0)(1/linklet-bundle->hash mod_3)))" "(let-values(((names_2)(hash-ref mh_0 names-key_0 null)))" "(reverse$1" -"(let-values(((lst_177) names_2))" +"(let-values(((lst_176) names_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_177)))" -"((letrec-values(((for-loop_247)" -"(lambda(fold-var_5 lst_279)" +"(let-values()(check-list lst_176)))" +"((letrec-values(((for-loop_248)" +"(lambda(fold-var_5 lst_278)" "(begin" " 'for-loop" -"(if(pair? lst_279)" -"(let-values(((name_44)(unsafe-car lst_279))" -"((rest_152)(unsafe-cdr lst_279)))" -"(let-values(((fold-var_224)" -"(let-values(((fold-var_225) fold-var_5))" -"(let-values(((fold-var_226)" +"(if(pair? lst_278)" +"(let-values(((name_44)(unsafe-car lst_278))" +"((rest_151)(unsafe-cdr lst_278)))" +"(let-values(((fold-var_225)" +"(let-values(((fold-var_226) fold-var_5))" +"(let-values(((fold-var_227)" "(let-values()" "(cons" "(let-values()" @@ -36937,13 +37000,13 @@ static const char *startup_source = "(error" " \"missing submodule declaration:\"" " name_44))))" -" fold-var_225))))" -"(values fold-var_226)))))" -"(if(not #f)(for-loop_247 fold-var_224 rest_152) fold-var_224)))" +" fold-var_226))))" +"(values fold-var_227)))))" +"(if(not #f)(for-loop_248 fold-var_225 rest_151) fold-var_225)))" " fold-var_5)))))" -" for-loop_247)" +" for-loop_248)" " null" -" lst_177))))))))))))))" +" lst_176))))))))))))))" "(define-values" "(eval-single-top)" "(lambda(c_31 ns_42)" @@ -36962,19 +37025,19 @@ static const char *startup_source = "(lambda(c5_0 ns6_1 eval-compiled1_0 as-tail?2_0 eval-compiled3_0 as-tail?4_0)" "(begin" " 'eval-top7" -"(let-values(((c_47) c5_0))" +"(let-values(((c_46) c5_0))" "(let-values(((ns_66) ns6_1))" "(let-values(((eval-compiled_0)(if eval-compiled3_0 eval-compiled1_0 eval-top)))" "(let-values(((as-tail?_0)(if as-tail?4_0 as-tail?2_0 #t)))" "(let-values()" -"(if(compiled-multiple-top? c_47)" -"(eval-multiple-tops c_47 ns_66 eval-compiled_0 as-tail?_0)" -"(let-values(((c21_0) c_47)((ns22_0) ns_66)((as-tail?23_0) as-tail?_0))" +"(if(compiled-multiple-top? c_46)" +"(eval-multiple-tops c_46 ns_66 eval-compiled_0 as-tail?_0)" +"(let-values(((c21_0) c_46)((ns22_0) ns_66)((as-tail?23_0) as-tail?_0))" "(eval-one-top15.1 #f #f c21_0 ns22_0 as-tail?23_0 #t))))))))))))" "(case-lambda" -"((c_48 ns_67)(begin(eval-top7_0 c_48 ns_67 #f #f #f #f)))" -"((c_49 ns_68 eval-compiled_1 as-tail?2_1)(eval-top7_0 c_49 ns_68 eval-compiled_1 as-tail?2_1 #t #t))" -"((c_38 ns_69 eval-compiled1_1)(eval-top7_0 c_38 ns_69 eval-compiled1_1 #f #t #f)))))" +"((c_47 ns_67)(begin(eval-top7_0 c_47 ns_67 #f #f #f #f)))" +"((c_48 ns_68 eval-compiled_1 as-tail?2_1)(eval-top7_0 c_48 ns_68 eval-compiled_1 as-tail?2_1 #t #t))" +"((c_49 ns_69 eval-compiled1_1)(eval-top7_0 c_49 ns_69 eval-compiled1_1 #f #t #f)))))" "(define-values" "(eval-multiple-tops)" "(lambda(c_50 ns_46 eval-compiled_2 as-tail?_1)" @@ -37036,11 +37099,11 @@ static const char *startup_source = "((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)))" +"((temp28_3)(current-code-inspector)))" "(make-eager-instance-instance11.1" " temp27_4" " temp25_4" -" temp28_2" +" temp28_3" " ns24_0" " temp26_2)))))))" "(let-values(((orig-phase_1)(hash-ref h_11 'original-phase)))" @@ -37066,12 +37129,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_39 end_29 inc_23)))" -"((letrec-values(((for-loop_234)" -"(lambda(prev-thunk_0 pos_103)" +"((letrec-values(((for-loop_235)" +"(lambda(prev-thunk_0 pos_104)" "(begin" " 'for-loop" -"(if(> pos_103 end_29)" -"(let-values(((phase_92) pos_103))" +"(if(> pos_104 end_29)" +"(let-values(((phase_92) pos_104))" "(let-values(((prev-thunk_1)" "(let-values(((prev-thunk_2)" " prev-thunk_0))" @@ -37091,7 +37154,7 @@ static const char *startup_source = " import-instances_1)" "(let-values(((mis_6" " is_5)" -"(let-values(((lst_226)" +"(let-values(((lst_225)" " module-uses_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -37099,21 +37162,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_226)))" -"((letrec-values(((for-loop_97)" +" lst_225)))" +"((letrec-values(((for-loop_99)" "(lambda(mis_7" " is_6" -" lst_227)" +" lst_226)" "(begin" " 'for-loop" "(if(pair?" -" lst_227)" +" lst_226)" "(let-values(((mu_9)" "(unsafe-car" -" lst_227))" +" lst_226))" "((rest_119)" "(unsafe-cdr" -" lst_227)))" +" lst_226)))" "(let-values(((mis_8" " is_7)" "(let-values(((mis_9)" @@ -37157,7 +37220,7 @@ static const char *startup_source = " is_9)))))" "(if(not" " #f)" -"(for-loop_97" +"(for-loop_99" " mis_8" " is_7" " rest_119)" @@ -37167,10 +37230,10 @@ static const char *startup_source = "(values" " mis_7" " is_6))))))" -" for-loop_97)" +" for-loop_99)" " null" " null" -" lst_226)))))" +" lst_225)))))" "(values" "(reverse$1" " mis_6)" @@ -37200,7 +37263,7 @@ static const char *startup_source = " ns_70))" "((temp39_3)" "(lambda(name_45" -" val_67)" +" val_70)" "(namespace-set-transformer!" " ns_70" "(phase+" @@ -37208,7 +37271,7 @@ static const char *startup_source = " phase_92)" " phase-shift_19)" " name_45" -" val_67))))" +" val_70))))" "(make-instance-instance13.1" " temp38_2" " temp37_1" @@ -37216,17 +37279,17 @@ static const char *startup_source = " phase-shift35_0" " temp36_3" " temp39_3)))))" -"(let-values(((linklet_10)" +"(let-values(((linklet_9)" "(hash-ref" " h_11" " phase_92" " #f)))" -"(if linklet_10" +"(if linklet_9" "(let-values()" "(let-values((()" "(begin" "(let-values(((linklet40_0)" -" linklet_10)" +" linklet_9)" "((temp41_2)" " 3)" "((module-uses42_0)" @@ -37256,7 +37319,7 @@ static const char *startup_source = "(begin" " 'instantiate" "(1/instantiate-linklet" -" linklet_10" +" linklet_9" "(list*" " top-level-instance" " link-instance_0" @@ -37328,12 +37391,12 @@ static const char *startup_source = "(values" " prev-thunk_3)))))" "(if(not #f)" -"(for-loop_234" +"(for-loop_235" " prev-thunk_1" -"(+ pos_103 inc_23))" +"(+ pos_104 inc_23))" " prev-thunk_1)))" " prev-thunk_0)))))" -" for-loop_234)" +" for-loop_235)" " void" " start_39)))))" "(thunk_3 as-tail?_2))))))))))))))))))))" @@ -37356,7 +37419,7 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_32)))" -"(let-values(((v_181)(make-vector len_32 0)))" +"(let-values(((v_180)(make-vector len_32 0)))" "(begin" "(if(zero? len_32)" "(void)" @@ -37368,24 +37431,24 @@ static const char *startup_source = "(values vec_65(unsafe-vector-length vec_65))))))" "(begin" " #f" -"((letrec-values(((for-loop_248)" -"(lambda(i_165 pos_104)" +"((letrec-values(((for-loop_249)" +"(lambda(i_165 pos_105)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_104 len_33)" -"(let-values(((s_389)" -"(unsafe-vector-ref vec_64 pos_104)))" +"(if(unsafe-fx< pos_105 len_33)" +"(let-values(((s_392)" +"(unsafe-vector-ref vec_64 pos_105)))" "(let-values(((i_166)" "(let-values(((i_167) i_165))" "(let-values(((i_168)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_181" +" v_180" " i_167" "(let-values()" "(swap-top-level-scopes" -" s_389" +" s_392" "(compiled-in-memory-namespace-scopes" " cim_11)" " to-ns_0)))" @@ -37396,16 +37459,16 @@ static const char *startup_source = "(if(if(not" "((lambda x_71" "(unsafe-fx= i_166 len_32))" -" s_389))" +" s_392))" "(not #f)" " #f)" -"(for-loop_248 i_166(unsafe-fx+ 1 pos_104))" +"(for-loop_249 i_166(unsafe-fx+ 1 pos_105))" " i_166)))" " i_165)))))" -" for-loop_248)" +" for-loop_249)" " 0" " 0)))))" -" v_181)))))))))" +" v_180)))))))))" "(1/make-instance" " 'link" " #f" @@ -37423,31 +37486,31 @@ static const char *startup_source = "(if(parsed-app? p_44)" "(let-values()" "(if(can-direct-eval?(parsed-app-rator p_44) ns_42 self-mpi_3)" -"(let-values(((lst_102)(parsed-app-rands p_44)))" +"(let-values(((lst_101)(parsed-app-rands p_44)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_102)))" -"((letrec-values(((for-loop_110)" +"(let-values()(check-list lst_101)))" +"((letrec-values(((for-loop_111)" "(lambda(result_112 lst_6)" "(begin" " 'for-loop" "(if(pair? lst_6)" -"(let-values(((r_41)(unsafe-car lst_6))((rest_48)(unsafe-cdr lst_6)))" +"(let-values(((r_42)(unsafe-car lst_6))((rest_48)(unsafe-cdr lst_6)))" "(let-values(((result_80)" "(let-values()" "(let-values(((result_113)" "(let-values()" "(let-values()" -"(can-direct-eval? r_41 ns_42 self-mpi_3)))))" +"(can-direct-eval? r_42 ns_42 self-mpi_3)))))" "(values result_113)))))" -"(if(if(not((lambda x_72(not result_80)) r_41))(not #f) #f)" -"(for-loop_110 result_80 rest_48)" +"(if(if(not((lambda x_72(not result_80)) r_42))(not #f) #f)" +"(for-loop_111 result_80 rest_48)" " result_80)))" " result_112)))))" -" for-loop_110)" +" for-loop_111)" " #t" -" lst_102)))" +" lst_101)))" " #f))" "(if(parsed-id? p_44)" "(let-values()(not(eq?(get-id-value p_44 ns_42 self-mpi_3) not-available)))" @@ -37463,29 +37526,29 @@ static const char *startup_source = "(apply" "(direct-eval(parsed-app-rator p_48) ns_71 self-mpi_4)" "(reverse$1" -"(let-values(((lst_79)(parsed-app-rands p_48)))" +"(let-values(((lst_78)(parsed-app-rands p_48)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_79)))" -"((letrec-values(((for-loop_94)" -"(lambda(fold-var_227 lst_80)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_78)))" +"((letrec-values(((for-loop_96)" +"(lambda(fold-var_228 lst_79)" "(begin" " 'for-loop" -"(if(pair? lst_80)" -"(let-values(((r_8)(unsafe-car lst_80))((rest_36)(unsafe-cdr lst_80)))" +"(if(pair? lst_79)" +"(let-values(((r_8)(unsafe-car lst_79))((rest_36)(unsafe-cdr lst_79)))" "(let-values(((fold-var_219)" -"(let-values(((fold-var_65) fold-var_227))" -"(let-values(((fold-var_228)" +"(let-values(((fold-var_65) fold-var_228))" +"(let-values(((fold-var_26)" "(let-values()" "(cons" "(let-values()" "(direct-eval r_8 ns_71 self-mpi_4))" " fold-var_65))))" -"(values fold-var_228)))))" -"(if(not #f)(for-loop_94 fold-var_219 rest_36) fold-var_219)))" -" fold-var_227)))))" -" for-loop_94)" +"(values fold-var_26)))))" +"(if(not #f)(for-loop_96 fold-var_219 rest_36) fold-var_219)))" +" fold-var_228)))))" +" for-loop_96)" " null" -" lst_79))))))" +" lst_78))))))" "(if(parsed-id? p_48)" "(let-values()(get-id-value p_48 ns_71 self-mpi_4))" "(if(parsed-quote? p_48)" @@ -37498,11 +37561,11 @@ static const char *startup_source = "(let-values(((b_70)(parsed-id-binding p_1)))" "(if(parsed-primitive-id? p_1)" "(let-values()(hash-ref(1/primitive-table '#%kernel)(module-binding-sym b_70) get-not-available))" -"(if(let-values(((or-part_72)(parsed-top-id? p_1)))" -"(if or-part_72" -" or-part_72" -"(let-values(((or-part_73)(not b_70)))" -"(if or-part_73 or-part_73(eq? self-mpi_5(module-binding-module b_70))))))" +"(if(let-values(((or-part_71)(parsed-top-id? p_1)))" +"(if or-part_71" +" or-part_71" +"(let-values(((or-part_72)(not b_70)))" +"(if or-part_72 or-part_72(eq? self-mpi_5(module-binding-module b_70))))))" "(let-values()" "(namespace-get-variable" " ns_72" @@ -37540,7 +37603,7 @@ static const char *startup_source = "(let-values(((temp1_3)(syntax-scope-set runtime-stx 0))" "((sym2_0) sym_59)" "((temp3_5)" -"(let-values(((runtime-mpi4_0) runtime-mpi)((temp5_5) 0)((sym6_2) sym_59))" +"(let-values(((runtime-mpi4_0) runtime-mpi)((temp5_4) 0)((sym6_2) sym_59))" "(make-module-binding22.1" " #f" " #f" @@ -37561,7 +37624,7 @@ static const char *startup_source = " #f" " #f" " runtime-mpi4_0" -" temp5_5" +" temp5_4" " sym6_2))))" "(add-binding-in-scopes!20.1 #f #f temp1_3 sym2_0 temp3_5)))))" "(void" @@ -37626,25 +37689,25 @@ static const char *startup_source = "(lambda(ids_17 rhs_13 phase_94)" "(let-values(((keys_2)" "(reverse$1" -"(let-values(((lst_280) ids_17))" +"(let-values(((lst_279) ids_17))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_280)))" -"((letrec-values(((for-loop_249)" -"(lambda(fold-var_229 lst_281)" +"(let-values()(check-list lst_279)))" +"((letrec-values(((for-loop_250)" +"(lambda(fold-var_229 lst_280)" "(begin" " 'for-loop" -"(if(pair? lst_281)" -"(let-values(((id_57)(unsafe-car lst_281))" -"((rest_153)(unsafe-cdr lst_281)))" +"(if(pair? lst_280)" +"(let-values(((id_57)(unsafe-car lst_280))" +"((rest_152)(unsafe-cdr lst_280)))" "(let-values(((fold-var_81)" "(let-values(((fold-var_82) fold-var_229))" "(let-values(((fold-var_230)" "(let-values()" "(cons" "(let-values()" -"(let-values(((key_79)" +"(let-values(((key_82)" "(let-values(((id32_0)" " id_57)" "((phase33_0)" @@ -37664,16 +37727,16 @@ static const char *startup_source = " lift-env_1" "(hash-set" "(unbox lift-env_1)" -" key_79" +" key_82" " variable))" -" key_79)))" +" key_82)))" " fold-var_82))))" "(values fold-var_230)))))" -"(if(not #f)(for-loop_249 fold-var_81 rest_153) fold-var_81)))" +"(if(not #f)(for-loop_250 fold-var_81 rest_152) fold-var_81)))" " fold-var_229)))))" -" for-loop_249)" +" for-loop_250)" " null" -" lst_280))))))" +" lst_279))))))" "(values ids_17(lifted-bind2.1 ids_17 keys_2 rhs_13)))))))" "(define-values" "(make-top-level-lift)" @@ -37685,18 +37748,18 @@ static const char *startup_source = "(namespace-get-root-expand-ctx(expand-context-namespace ctx_11)))))" "(let-values(((tl-ids_1)" "(reverse$1" -"(let-values(((lst_282) ids_18))" +"(let-values(((lst_281) ids_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_282)))" -"((letrec-values(((for-loop_250)" -"(lambda(fold-var_231 lst_182)" +"(let-values()(check-list lst_281)))" +"((letrec-values(((for-loop_251)" +"(lambda(fold-var_231 lst_181)" "(begin" " 'for-loop" -"(if(pair? lst_182)" -"(let-values(((id_58)(unsafe-car lst_182))" -"((rest_154)(unsafe-cdr lst_182)))" +"(if(pair? lst_181)" +"(let-values(((id_58)(unsafe-car lst_181))" +"((rest_153)(unsafe-cdr lst_181)))" "(let-values(((fold-var_232)" "(let-values(((fold-var_233) fold-var_231))" "(let-values(((fold-var_234)" @@ -37709,12 +37772,12 @@ static const char *startup_source = " fold-var_233))))" "(values fold-var_234)))))" "(if(not #f)" -"(for-loop_250 fold-var_232 rest_154)" +"(for-loop_251 fold-var_232 rest_153)" " fold-var_232)))" " fold-var_231)))))" -" for-loop_250)" +" for-loop_251)" " null" -" lst_282))))))" +" lst_281))))))" "(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" @@ -37723,15 +37786,15 @@ static const char *startup_source = "(begin" "(datum->syntax$1" " #f" -"(let-values(((lst_283)(reverse$1 lifts_3)))" +"(let-values(((lst_282)(reverse$1 lifts_3)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_283)))" -"((letrec-values(((for-loop_251)" -"(lambda(body_6 lst_191)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_282)))" +"((letrec-values(((for-loop_252)" +"(lambda(body_6 lst_190)" "(begin" " 'for-loop" -"(if(pair? lst_191)" -"(let-values(((lift_0)(unsafe-car lst_191))((rest_98)(unsafe-cdr lst_191)))" +"(if(pair? lst_190)" +"(let-values(((lift_0)(unsafe-car lst_190))((rest_98)(unsafe-cdr lst_190)))" "(let-values(((body_7)" "(let-values(((body_8) body_6))" "(let-values(((body_9)" @@ -37751,11 +37814,11 @@ static const char *startup_source = "(lifted-bind-rhs lift_0)))" " body_8)))))" "(values body_9)))))" -"(if(not #f)(for-loop_251 body_7 rest_98) body_7)))" +"(if(not #f)(for-loop_252 body_7 rest_98) body_7)))" " body_6)))))" -" for-loop_251)" +" for-loop_252)" " body_5" -" lst_283)))))))" +" lst_282)))))))" "(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)" @@ -37773,18 +37836,18 @@ static const char *startup_source = "(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_96) 'begin)" "(append" "(reverse$1" -"(let-values(((lst_284) lifts_4))" +"(let-values(((lst_283) lifts_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_284)))" -"((letrec-values(((for-loop_193)" -"(lambda(fold-var_235 lst_170)" +"(let-values()(check-list lst_283)))" +"((letrec-values(((for-loop_194)" +"(lambda(fold-var_235 lst_169)" "(begin" " 'for-loop" -"(if(pair? lst_170)" -"(let-values(((lift_1)(unsafe-car lst_170))" -"((rest_155)(unsafe-cdr lst_170)))" +"(if(pair? lst_169)" +"(let-values(((lift_1)(unsafe-car lst_169))" +"((rest_154)(unsafe-cdr lst_169)))" "(let-values(((fold-var_3)" "(let-values(((fold-var_236) fold-var_235))" "(let-values(((fold-var_237)" @@ -37808,26 +37871,26 @@ static const char *startup_source = "(let-values() lift_1))))" " fold-var_236))))" "(values fold-var_237)))))" -"(if(not #f)(for-loop_193 fold-var_3 rest_155) fold-var_3)))" +"(if(not #f)(for-loop_194 fold-var_3 rest_154) fold-var_3)))" " fold-var_235)))))" -" for-loop_193)" +" for-loop_194)" " null" -" lst_284))))" +" lst_283))))" "(list(adjust-body_0 body_10))))))))))))))" "(define-values" "(get-lifts-as-lists)" "(lambda(lifts_5)" "(begin" "(reverse$1" -"(let-values(((lst_196) lifts_5))" +"(let-values(((lst_195) lifts_5))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_196)))" -"((letrec-values(((for-loop_252)" -"(lambda(fold-var_98 lst_285)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_195)))" +"((letrec-values(((for-loop_253)" +"(lambda(fold-var_98 lst_284)" "(begin" " 'for-loop" -"(if(pair? lst_285)" -"(let-values(((lift_2)(unsafe-car lst_285))((rest_156)(unsafe-cdr lst_285)))" +"(if(pair? lst_284)" +"(let-values(((lift_2)(unsafe-car lst_284))((rest_155)(unsafe-cdr lst_284)))" "(let-values(((fold-var_37)" "(let-values(((fold-var_38) fold-var_98))" "(let-values(((fold-var_238)" @@ -37840,11 +37903,11 @@ static const char *startup_source = "(lifted-bind-rhs lift_2)))" " fold-var_38))))" "(values fold-var_238)))))" -"(if(not #f)(for-loop_252 fold-var_37 rest_156) fold-var_37)))" +"(if(not #f)(for-loop_253 fold-var_37 rest_155) fold-var_37)))" " fold-var_98)))))" -" for-loop_252)" +" for-loop_253)" " null" -" lst_196)))))))" +" lst_195)))))))" "(define-values" "(struct:module-lift-context" " module-lift-context19.1" @@ -37882,19 +37945,19 @@ static const char *startup_source = "(lambda(module-lifts_1)(begin(box-clear!(module-lift-context-lifts module-lifts_1)))))" "(define-values" "(add-lifted-module!)" -"(lambda(module-lifts_2 s_390 phase_98)" +"(lambda(module-lifts_2 s_393 phase_98)" "(begin" "(begin" -"(if(let-values(((or-part_227)" +"(if(let-values(((or-part_228)" "(if(module-lift-context? module-lifts_2)" "(module-lift-context-module*-ok? module-lifts_2)" " #f)))" -"(if or-part_227" -" or-part_227" +"(if or-part_228" +" or-part_228" "(if(lift-context? module-lifts_2)(lift-context-module*-ok? module-lifts_2) #f)))" "(void)" "(let-values()" -"(let-values(((tmp_29)(core-form-sym s_390 phase_98)))" +"(let-values(((tmp_29)(core-form-sym s_393 phase_98)))" "(if(equal? tmp_29 'module)" "(let-values()(void))" "(if(equal? tmp_29 'module*)" @@ -37903,13 +37966,13 @@ static const char *startup_source = " 'syntax-local-lift-module" " \"cannot lift `module*' to a top-level context\"" " \"syntax\"" -" s_390))" +" s_393))" "(let-values()" -" (raise-arguments-error 'syntax-local-lift-module \"not a `module' declaration\" \"syntax\" s_390)))))))" +" (raise-arguments-error 'syntax-local-lift-module \"not a `module' declaration\" \"syntax\" s_393)))))))" "(if(module-lift-context? module-lifts_2)" -"(let-values()(box-cons!(module-lift-context-lifts module-lifts_2) s_390))" +"(let-values()(box-cons!(module-lift-context-lifts module-lifts_2) s_393))" "(if(lift-context? module-lifts_2)" -"(let-values()(box-cons!(lift-context-lifts module-lifts_2) s_390))" +"(let-values()(box-cons!(lift-context-lifts module-lifts_2) s_393))" " (let-values () (error \"internal error: unrecognized lift-context type for module lift\"))))))))" "(define-values" "(struct:require-lift-context" @@ -37948,11 +38011,11 @@ static const char *startup_source = "(lambda(require-lifts_1)(begin(box-clear!(require-lift-context-requires require-lifts_1)))))" "(define-values" "(add-lifted-require!)" -"(lambda(require-lifts_2 s_391 phase_99)" +"(lambda(require-lifts_2 s_394 phase_99)" "(begin" "(begin" -"((require-lift-context-do-require require-lifts_2) s_391 phase_99)" -"(box-cons!(require-lift-context-requires require-lifts_2) s_391)))))" +"((require-lift-context-do-require require-lifts_2) s_394 phase_99)" +"(box-cons!(require-lift-context-requires require-lifts_2) s_394)))))" "(define-values" "(struct:to-module-lift-context" " to-module-lift-context21.1" @@ -38002,12 +38065,12 @@ static const char *startup_source = "(lambda(to-module-lifts_2)(begin(box-clear!(to-module-lift-context-provides to-module-lifts_2)))))" "(define-values" "(add-lifted-to-module-provide!)" -"(lambda(to-module-lifts_3 s_215 phase_101)" -"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_215))))" +"(lambda(to-module-lifts_3 s_218 phase_101)" +"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_218))))" "(define-values" "(add-lifted-to-module-end!)" -"(lambda(to-module-lifts_4 s_392 phase_102)" -"(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_392))))" +"(lambda(to-module-lifts_4 s_395 phase_102)" +"(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_395))))" "(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)" @@ -38059,17 +38122,17 @@ static const char *startup_source = "(lambda(v_26 info_1)" "(begin" "(if(if(list? v_26)" -"(let-values(((lst_77) v_26))" +"(let-values(((lst_76) v_26))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_77)))" -"((letrec-values(((for-loop_93)" -"(lambda(result_78 lst_78)" +"(let-values()(check-list lst_76)))" +"((letrec-values(((for-loop_95)" +"(lambda(result_78 lst_77)" "(begin" " 'for-loop" -"(if(pair? lst_78)" -"(let-values(((s_2)(unsafe-car lst_78))((rest_35)(unsafe-cdr lst_78)))" +"(if(pair? lst_77)" +"(let-values(((s_2)(unsafe-car lst_77))((rest_35)(unsafe-cdr lst_77)))" "(let-values(((result_65)" "(let-values()" "(let-values(((result_114)" @@ -38084,12 +38147,12 @@ static const char *startup_source = " definition-context))))))" "(values result_114)))))" "(if(if(not((lambda x_73(not result_65)) s_2))(not #f) #f)" -"(for-loop_93 result_65 rest_35)" +"(for-loop_95 result_65 rest_35)" " result_65)))" " result_78)))))" -" for-loop_93)" +" for-loop_95)" " #t" -" lst_77)))" +" lst_76)))" " #f)" "(void)" "(let-values()" @@ -38108,7 +38171,7 @@ static const char *startup_source = "(define-values(context->symbol)(lambda(context_5)(begin(if(symbol? context_5) context_5 'definition-context))))" "(define-values" "(avoid-current-expand-context)" -"(lambda(s_169 t_44 ctx_13)" +"(lambda(s_171 t_44 ctx_13)" "(begin" "(let-values(((wrap_1)" "(lambda(sym_60)" @@ -38118,7 +38181,7 @@ static const char *startup_source = " #f" "(list" "(syntax-shift-phase-level$1(datum->syntax$1 core-stx sym_60)(expand-context-phase ctx_13))" -" s_169))))))" +" s_171))))))" "(let-values(((fail_0)" "(lambda()" "(begin" @@ -38128,7 +38191,7 @@ static const char *startup_source = "(format" " \"not allowed in context\\n expansion context: ~a\"" "(context->symbol(expand-context-context ctx_13)))" -" s_169)))))" +" s_171)))))" "(let-values(((tmp_30)(context->symbol(expand-context-context ctx_13))))" "(if(equal? tmp_30 'module-begin)" "(let-values()(wrap_1 'begin))" @@ -38161,14 +38224,14 @@ static const char *startup_source = "(define-values(make-reference-record)(lambda()(begin(reference-record1.1(seteq)(seteq) #f))))" "(define-values" "(reference-record-used!)" -"(lambda(rr_0 key_72)" +"(lambda(rr_0 key_74)" "(begin" -"(if(set-member?(reference-record-already-bound rr_0) key_72)" +"(if(set-member?(reference-record-already-bound rr_0) key_74)" "(void)" "(let-values()" "(set-reference-record-reference-before-bound!" " rr_0" -"(set-add(reference-record-reference-before-bound rr_0) key_72)))))))" +"(set-add(reference-record-reference-before-bound rr_0) key_74)))))))" "(define-values" "(reference-records-all-used!)" "(lambda(rrs_0)" @@ -38177,12 +38240,12 @@ static const char *startup_source = "(let-values(((lst_42) rrs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_42)))" -"((letrec-values(((for-loop_184)" -"(lambda(lst_90)" +"((letrec-values(((for-loop_185)" +"(lambda(lst_89)" "(begin" " 'for-loop" -"(if(pair? lst_90)" -"(let-values(((rr_1)(unsafe-car lst_90))((rest_116)(unsafe-cdr lst_90)))" +"(if(pair? lst_89)" +"(let-values(((rr_1)(unsafe-car lst_89))((rest_116)(unsafe-cdr lst_89)))" "(let-values(((post-guard-var_0)(lambda()(begin 'post-guard-var #t))))" "(let-values()" "(if(reference-record-all-referenced? rr_1)" @@ -38194,9 +38257,9 @@ static const char *startup_source = "(let-values()" "(set-reference-record-all-referenced?! rr_1 #t))" "(values)))))" -"(if(post-guard-var_0)(for-loop_184 rest_116)(values))))))))" +"(if(post-guard-var_0)(for-loop_185 rest_116)(values))))))))" "(values))))))" -" for-loop_184)" +" for-loop_185)" " lst_42)))" "(void)))))" "(define-values" @@ -38209,47 +38272,47 @@ static const char *startup_source = "(let-values(((lst_24) keys_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_253)" -"(lambda(ab_3 lst_81)" +"((letrec-values(((for-loop_254)" +"(lambda(ab_3 lst_80)" "(begin" " 'for-loop" -"(if(pair? lst_81)" -"(let-values(((key_80)(unsafe-car lst_81))((rest_141)(unsafe-cdr lst_81)))" +"(if(pair? lst_80)" +"(let-values(((key_83)(unsafe-car lst_80))((rest_141)(unsafe-cdr lst_80)))" "(let-values(((ab_4)" "(let-values(((ab_5) ab_3))" -"(let-values(((ab_6)(let-values()(set-add ab_5 key_80))))" +"(let-values(((ab_6)(let-values()(set-add ab_5 key_83))))" "(values ab_6)))))" -"(if(not #f)(for-loop_253 ab_4 rest_141) ab_4)))" +"(if(not #f)(for-loop_254 ab_4 rest_141) ab_4)))" " ab_3)))))" -" for-loop_253)" +" for-loop_254)" "(reference-record-already-bound rr_2)" " lst_24))))" "(set-reference-record-reference-before-bound!" " rr_2" -"(let-values(((lst_273) keys_3))" +"(let-values(((lst_272) keys_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_273)))" -"((letrec-values(((for-loop_254)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_272)))" +"((letrec-values(((for-loop_255)" "(lambda(rbb_0 lst_25)" "(begin" " 'for-loop" "(if(pair? lst_25)" -"(let-values(((key_81)(unsafe-car lst_25))((rest_157)(unsafe-cdr lst_25)))" +"(let-values(((key_84)(unsafe-car lst_25))((rest_156)(unsafe-cdr lst_25)))" "(let-values(((rbb_1)" "(let-values(((rbb_2) rbb_0))" -"(let-values(((rbb_3)(let-values()(set-remove rbb_2 key_81))))" +"(let-values(((rbb_3)(let-values()(set-remove rbb_2 key_84))))" "(values rbb_3)))))" -"(if(not #f)(for-loop_254 rbb_1 rest_157) rbb_1)))" +"(if(not #f)(for-loop_255 rbb_1 rest_156) rbb_1)))" " rbb_0)))))" -" for-loop_254)" +" for-loop_255)" "(reference-record-reference-before-bound rr_2)" -" lst_273))))))))" +" lst_272))))))))" "(define-values" "(reference-record-forward-references?)" "(lambda(rr_3)" "(begin" -"(let-values(((or-part_170)(reference-record-all-referenced? rr_3)))" -"(if or-part_170 or-part_170(positive?(set-count(reference-record-reference-before-bound rr_3))))))))" +"(let-values(((or-part_171)(reference-record-all-referenced? rr_3)))" +"(if or-part_171 or-part_171(positive?(set-count(reference-record-reference-before-bound rr_3))))))))" "(define-values" "(reference-record-clear!)" "(lambda(rr_4)" @@ -38257,19 +38320,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_82 . args_5)" +"(lambda(obs_0 key_85 . args_5)" "(begin" "(begin" -"(let-values(((c1_27)(hash-ref key->arity key_82 #f)))" +"(let-values(((c1_27)(hash-ref key->arity key_85 #f)))" "(if c1_27" "((lambda(arity_2)" -"(if(let-values(((or-part_65)(eq? arity_2 'any)))" -"(if or-part_65 or-part_65(eqv?(length args_5) arity_2)))" +"(if(let-values(((or-part_64)(eq? arity_2 'any)))" +"(if or-part_64 or-part_64(eqv?(length args_5) arity_2)))" "(void)" -" (let-values () (error 'call-expand-observe \"wrong arity for ~s: ~e\" key_82 args_5))))" +" (let-values () (error 'call-expand-observe \"wrong arity for ~s: ~e\" key_85 args_5))))" " c1_27)" -" (let-values () (error 'call-expand-observe \"bad key: ~s\" key_82))))" -"(obs_0 key_82(if(null? args_5)(let-values() #f)(let-values()(apply list* args_5))))))))" +" (let-values () (error 'call-expand-observe \"bad key: ~s\" key_85))))" +"(obs_0 key_85(if(null? args_5)(let-values() #f)(let-values()(apply list* args_5))))))))" "(define-values" "(key->arity)" " '#hash((block->letrec . 1)" @@ -38445,32 +38508,32 @@ static const char *startup_source = " ?_10" "(make-struct-field-accessor -ref_10 0 's)" "(make-struct-field-accessor -ref_10 1 'body))))" -"(define-values(extract-syntax)(lambda(s_184)(begin(if(expanded+parsed? s_184)(expanded+parsed-s s_184) s_184))))" +"(define-values(extract-syntax)(lambda(s_187)(begin(if(expanded+parsed? s_187)(expanded+parsed-s s_187) s_187))))" "(define-values" "(parsed-only)" "(lambda(l_66)" "(begin" "(reverse$1" -"(let-values(((lst_177) l_66))" +"(let-values(((lst_176) l_66))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_177)))" -"((letrec-values(((for-loop_247)" -"(lambda(fold-var_5 lst_279)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_176)))" +"((letrec-values(((for-loop_248)" +"(lambda(fold-var_5 lst_278)" "(begin" " 'for-loop" -"(if(pair? lst_279)" -"(let-values(((i_26)(unsafe-car lst_279))((rest_152)(unsafe-cdr lst_279)))" -"(let-values(((fold-var_224)" -"(let-values(((fold-var_225) fold-var_5))" -"(if(let-values(((or-part_266)(parsed? i_26)))" -"(if or-part_266" -" or-part_266" +"(if(pair? lst_278)" +"(let-values(((i_26)(unsafe-car lst_278))((rest_151)(unsafe-cdr lst_278)))" +"(let-values(((fold-var_225)" +"(let-values(((fold-var_226) fold-var_5))" +"(if(let-values(((or-part_267)(parsed? i_26)))" +"(if or-part_267" +" or-part_267" "(let-values(((or-part_33)(expanded+parsed? i_26)))" "(if or-part_33" " or-part_33" "(semi-parsed-begin-for-syntax? i_26)))))" -"(let-values(((fold-var_157) fold-var_225))" -"(let-values(((fold-var_173)" +"(let-values(((fold-var_156) fold-var_226))" +"(let-values(((fold-var_172)" "(let-values()" "(cons" "(let-values()" @@ -38485,36 +38548,36 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax-body" " i_26))))" "(let-values() i_26))))" -" fold-var_157))))" -"(values fold-var_173)))" -" fold-var_225))))" -"(if(not #f)(for-loop_247 fold-var_224 rest_152) fold-var_224)))" +" fold-var_156))))" +"(values fold-var_172)))" +" fold-var_226))))" +"(if(not #f)(for-loop_248 fold-var_225 rest_151) fold-var_225)))" " fold-var_5)))))" -" for-loop_247)" +" for-loop_248)" " null" -" lst_177)))))))" +" lst_176)))))))" "(define-values" "(syntax-only)" "(lambda(l_67)" "(begin" "(reverse$1" -"(let-values(((lst_280) l_67))" +"(let-values(((lst_279) l_67))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_280)))" -"((letrec-values(((for-loop_249)" -"(lambda(fold-var_229 lst_281)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_279)))" +"((letrec-values(((for-loop_250)" +"(lambda(fold-var_229 lst_280)" "(begin" " 'for-loop" -"(if(pair? lst_281)" -"(let-values(((i_35)(unsafe-car lst_281))((rest_153)(unsafe-cdr lst_281)))" +"(if(pair? lst_280)" +"(let-values(((i_35)(unsafe-car lst_280))((rest_152)(unsafe-cdr lst_280)))" "(let-values(((fold-var_81)" "(let-values(((fold-var_82) fold-var_229))" -"(if(let-values(((or-part_267)(syntax?$1 i_35)))" -"(if or-part_267" -" or-part_267" -"(let-values(((or-part_268)(expanded+parsed? i_35)))" +"(if(let-values(((or-part_268)(syntax?$1 i_35)))" "(if or-part_268" " or-part_268" +"(let-values(((or-part_269)(expanded+parsed? i_35)))" +"(if or-part_269" +" or-part_269" "(semi-parsed-begin-for-syntax? i_35)))))" "(let-values(((fold-var_83) fold-var_82))" "(let-values(((fold-var_239)" @@ -38525,7 +38588,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_164)" +"(let-values(((s_167)" "(semi-parsed-begin-for-syntax-s" " i_35)))" "(let-values(((nested-bodys_0)" @@ -38533,22 +38596,22 @@ static const char *startup_source = " i_35)))" "(let-values(((disarmed-s_0)" "(syntax-disarm$1" -" s_164)))" +" s_167)))" "(let-values(((ok?_26" " begin-for-syntax7_0" " _8_0)" -"(let-values(((s_304)" +"(let-values(((s_307)" " disarmed-s_0))" "(let-values(((orig-s_31)" -" s_304))" +" s_307))" "(let-values(((begin-for-syntax7_1" " _8_1)" "(let-values(((s_27)" "(if(syntax?$1" -" s_304)" +" s_307)" "(syntax-e$1" -" s_304)" -" s_304)))" +" s_307)" +" s_307)))" "(if(pair?" " s_27)" "(let-values(((begin-for-syntax9_0)" @@ -38557,18 +38620,18 @@ static const char *startup_source = " s_27)))" " s_30))" "((_10_0)" -"(let-values(((s_157)" +"(let-values(((s_162)" "(cdr" " s_27)))" -"(let-values(((s_393)" +"(let-values(((s_396)" "(if(syntax?$1" -" s_157)" +" s_162)" "(syntax-e$1" -" s_157)" -" s_157)))" +" s_162)" +" s_162)))" "(let-values(((flat-s_19)" "(to-syntax-list.1" -" s_393)))" +" s_396)))" "(if(not" " flat-s_19)" "(let-values()" @@ -38589,7 +38652,7 @@ static const char *startup_source = " #t" " begin-for-syntax7_1" " _8_1))))))" -"(let-values(((s11_0) s_164)" +"(let-values(((s11_0) s_167)" "((temp12_2)" "(list*" " begin-for-syntax7_0" @@ -38604,17 +38667,17 @@ static const char *startup_source = " fold-var_83))))" "(values fold-var_239)))" " fold-var_82))))" -"(if(not #f)(for-loop_249 fold-var_81 rest_153) fold-var_81)))" +"(if(not #f)(for-loop_250 fold-var_81 rest_152) fold-var_81)))" " fold-var_229)))))" -" for-loop_249)" +" for-loop_250)" " null" -" lst_280)))))))" +" lst_279)))))))" "(define-values" "(expand7.1)" "(lambda(alternate-id1_0 alternate-id3_0 skip-log?2_0 skip-log?4_0 s5_1 ctx6_0)" "(begin" " 'expand7" -"(let-values(((s_394) s5_1))" +"(let-values(((s_397) s5_1))" "(let-values(((ctx_14) ctx6_0))" "(let-values(((alternate-id_0)(if alternate-id3_0 alternate-id1_0 #f)))" "(let-values(((skip-log?_0)(if skip-log?4_0 skip-log?2_0 #f)))" @@ -38628,24 +38691,24 @@ static const char *startup_source = "(call-expand-observe" " obs_1" "(if(expand-context-only-immediate? ctx_14) 'enter-check 'visit)" -" s_394))" +" s_397))" "(void)))" "(void)))" -"(if(identifier? s_394)" -"(let-values()(expand-identifier s_394 ctx_14 alternate-id_0))" -"(if(if(pair?(syntax-content s_394))(identifier?(car(syntax-content s_394))) #f)" -"(let-values()(expand-id-application-form s_394 ctx_14 alternate-id_0))" -"(if(let-values(((or-part_74)(pair?(syntax-content s_394))))" -"(if or-part_74 or-part_74(null?(syntax-content s_394))))" -"(let-values()(expand-implicit '#%app s_394 ctx_14 #f))" -"(if(already-expanded?(syntax-content s_394))" -"(let-values()(expand-already-expanded s_394 ctx_14))" -"(let-values()(expand-implicit '#%datum s_394 ctx_14 #f)))))))))))))))" +"(if(identifier? s_397)" +"(let-values()(expand-identifier s_397 ctx_14 alternate-id_0))" +"(if(if(pair?(syntax-content s_397))(identifier?(car(syntax-content s_397))) #f)" +"(let-values()(expand-id-application-form s_397 ctx_14 alternate-id_0))" +"(if(let-values(((or-part_73)(pair?(syntax-content s_397))))" +"(if or-part_73 or-part_73(null?(syntax-content s_397))))" +"(let-values()(expand-implicit '#%app s_397 ctx_14 #f))" +"(if(already-expanded?(syntax-content s_397))" +"(let-values()(expand-already-expanded s_397 ctx_14))" +"(let-values()(expand-implicit '#%datum s_397 ctx_14 #f)))))))))))))))" "(define-values" "(expand-identifier)" "(lambda(s_43 ctx_15 alternate-id_1)" "(begin" -"(let-values(((id_59)(let-values(((or-part_169) alternate-id_1))(if or-part_169 or-part_169 s_43))))" +"(let-values(((id_59)(let-values(((or-part_170) alternate-id_1))(if or-part_170 or-part_170 s_43))))" "(if(free-id-set-member?(expand-context-stops ctx_15)(expand-context-phase ctx_15) id_59)" "(let-values()" "(begin" @@ -38696,8 +38759,8 @@ static const char *startup_source = "(lambda(s_13 ctx_16 alternate-id_2)" "(begin" "(let-values(((id_60)" -"(let-values(((or-part_269) alternate-id_2))" -"(if or-part_269 or-part_269(car(syntax-e/no-taint s_13))))))" +"(let-values(((or-part_270) alternate-id_2))" +"(if or-part_270 or-part_270(car(syntax-e/no-taint s_13))))))" "(if(free-id-set-member?(expand-context-stops ctx_16)(expand-context-phase ctx_16) id_60)" "(let-values()" "(begin" @@ -38757,16 +38820,16 @@ static const char *startup_source = " protected?_4)))))))))))))))" "(define-values" "(expand-implicit)" -"(lambda(sym_61 s_185 ctx_17 trigger-id_1)" +"(lambda(sym_61 s_188 ctx_17 trigger-id_1)" "(begin" "(if(expand-context-only-immediate? ctx_17)" "(let-values()" "(begin" "(let-values(((obs_5)(expand-context-observer ctx_17)))" -"(if obs_5(let-values()(let-values()(call-expand-observe obs_5 'exit-check s_185)))(void)))" -" s_185))" +"(if obs_5(let-values()(let-values()(call-expand-observe obs_5 'exit-check s_188)))(void)))" +" s_188))" "(let-values()" -"(let-values(((disarmed-s_1)(syntax-disarm$1 s_185)))" +"(let-values(((disarmed-s_1)(syntax-disarm$1 s_188)))" "(let-values(((id_61)(datum->syntax$1 disarmed-s_1 sym_61)))" "(if(free-id-set-member?(expand-context-stops ctx_17)(expand-context-phase ctx_17) id_61)" "(let-values()" @@ -38778,13 +38841,13 @@ static const char *startup_source = "(let-values()" "(begin" "(call-expand-observe obs_6 'resolve id_61)" -"(call-expand-observe obs_6 'enter-prim s_185)" +"(call-expand-observe obs_6 'enter-prim s_188)" "(call-expand-observe obs_6 'prim-stop)" -"(call-expand-observe obs_6 'exit-prim s_185)" -"(call-expand-observe obs_6 'return s_185)))" +"(call-expand-observe obs_6 'exit-prim s_188)" +"(call-expand-observe obs_6 'return s_188)))" "(void)))" "(void)))" -" s_185))" +" s_188))" "(let-values()" "(let-values((()" "(begin" @@ -38812,7 +38875,7 @@ static const char *startup_source = "(dispatch-transformer" " t_27" " insp-of-t_2" -"(make-explicit ctx_17 sym_61 s_185 disarmed-s_1)" +"(make-explicit ctx_17 sym_61 s_188 disarmed-s_1)" " id_61" " ctx_17" " b_74))" @@ -38823,17 +38886,17 @@ static const char *startup_source = "(expand-context-in-local-expand? ctx_17)" " #f)" " #f)" -"(let-values()(dispatch-implicit-#%top-core-form t_27 s_185 ctx_17))" +"(let-values()(dispatch-implicit-#%top-core-form t_27 s_188 ctx_17))" "(let-values()" "(dispatch-core-form" " t_27" -"(make-explicit ctx_17 sym_61 s_185 disarmed-s_1)" +"(make-explicit ctx_17 sym_61 s_188 disarmed-s_1)" " ctx_17))))" "(let-values()" "(let-values(((tl-id_0)" "(if(eq? sym_61 '#%top)" "(if(root-expand-context-top-level-bind-scope ctx_17)" -"(add-scope s_185(root-expand-context-top-level-bind-scope ctx_17))" +"(add-scope s_188(root-expand-context-top-level-bind-scope ctx_17))" " #f)" " #f)))" "(let-values(((tl-b_0)" @@ -38851,7 +38914,7 @@ static const char *startup_source = " tl-id_0))" "(let-values()" "(raise-syntax-implicit-error" -" s_185" +" s_188" " sym_61" " trigger-id_1" " ctx_17))))))))))))))))))))))" @@ -38862,14 +38925,14 @@ static const char *startup_source = "(let-values(((ae_0)(syntax-e$1 s_45)))" "(let-values(((exp-s_0)(already-expanded-s ae_0)))" "(begin" -"(if(let-values(((or-part_146)(syntax-any-macro-scopes? s_45)))" -"(if or-part_146" -" or-part_146" -"(let-values(((or-part_147)" +"(if(let-values(((or-part_143)(syntax-any-macro-scopes? s_45)))" +"(if or-part_143" +" or-part_143" +"(let-values(((or-part_144)" "(not" "(eq?(expand-context-binding-layer ctx_18)(already-expanded-binding-layer ae_0)))))" -"(if or-part_147" -" or-part_147" +"(if or-part_144" +" or-part_144" "(if(parsed? exp-s_0)" "(not" "(if(expand-context-to-parsed? ctx_18)" @@ -38899,25 +38962,25 @@ static const char *startup_source = " result-s_1)))))))))))" "(define-values" "(make-explicit)" -"(lambda(ctx_19 sym_62 s_305 disarmed-s_2)" +"(lambda(ctx_19 sym_62 s_308 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_305 s_305) s_305)))" +"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_62 disarmed-s_2) s_308 s_308) s_308)))" "(begin" "(let-values(((obs_9)(expand-context-observer ctx_19)))" "(if obs_9(let-values()(let-values()(call-expand-observe obs_9 'tag new-s_0)))(void)))" " new-s_0)))))" "(define-values" "(dispatch)" -"(lambda(t_47 insp-of-t_3 s_395 id_62 ctx_20 binding_20 primitive?_5 protected?_6)" +"(lambda(t_47 insp-of-t_3 s_398 id_62 ctx_20 binding_20 primitive?_5 protected?_6)" "(begin" "(if(core-form? t_47)" -"(let-values()(dispatch-core-form t_47 s_395 ctx_20))" +"(let-values()(dispatch-core-form t_47 s_398 ctx_20))" "(if(transformer? t_47)" -"(let-values()(dispatch-transformer t_47 insp-of-t_3 s_395 id_62 ctx_20 binding_20))" +"(let-values()(dispatch-transformer t_47 insp-of-t_3 s_398 id_62 ctx_20 binding_20))" "(if(variable? t_47)" -"(let-values()(dispatch-variable t_47 s_395 id_62 ctx_20 binding_20 primitive?_5 protected?_6))" -" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_395))))))))" +"(let-values()(dispatch-variable t_47 s_398 id_62 ctx_20 binding_20 primitive?_5 protected?_6))" +" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_398))))))))" "(define-values" "(dispatch-core-form)" "(lambda(t_48 s_46 ctx_21)" @@ -38973,7 +39036,7 @@ static const char *startup_source = " result-s_3))))))" "(define-values" "(dispatch-transformer)" -"(lambda(t_50 insp-of-t_4 s_389 id_63 ctx_23 binding_21)" +"(lambda(t_50 insp-of-t_4 s_392 id_63 ctx_23 binding_21)" "(begin" "(if(not-in-this-expand-context? t_50 ctx_23)" "(let-values()" @@ -38981,18 +39044,18 @@ static const char *startup_source = "(begin" "(let-values(((obs_15)(expand-context-observer ctx_23)))" "(if obs_15" -"(let-values()(let-values()(call-expand-observe obs_15 'enter-macro s_389)))" +"(let-values()(let-values()(call-expand-observe obs_15 'enter-macro s_392)))" "(void)))" "(values))))" -"(let-values(((adj-s_0)(avoid-current-expand-context(substitute-alternate-id s_389 id_63) t_50 ctx_23)))" +"(let-values(((adj-s_0)(avoid-current-expand-context(substitute-alternate-id s_392 id_63) t_50 ctx_23)))" "(begin" "(let-values(((obs_16)(expand-context-observer ctx_23)))" -"(if obs_16(let-values()(let-values()(call-expand-observe obs_16 'exit-macro s_389)))(void)))" +"(if obs_16(let-values()(let-values()(call-expand-observe obs_16 'exit-macro s_392)))(void)))" "(let-values(((adj-s106_0) adj-s_0)((ctx107_0) ctx_23))" "(expand7.1 #f #f #f #f adj-s106_0 ctx107_0))))))" "(if(expand-context-should-not-encounter-macros? ctx_23)" "(let-values()" -" (raise-syntax-error$1 #f \"encountered a macro binding in form that should be fully expanded\" s_389))" +" (raise-syntax-error$1 #f \"encountered a macro binding in form that should be fully expanded\" s_392))" "(let-values()" "(let-values((()" "(begin" @@ -39002,15 +39065,15 @@ static const char *startup_source = "(if(if(expand-context-only-immediate? ctx_23)(not(1/rename-transformer? t_50)) #f)" "(let-values()" "(begin" -"(call-expand-observe obs_17 'visit s_389)" +"(call-expand-observe obs_17 'visit s_392)" "(call-expand-observe obs_17 'resolve id_63)))" "(void)))" "(void)))" "(values))))" "(let-values(((exp-s_1 re-ctx_0)" "(if(1/rename-transformer? t_50)" -"(values s_389 ctx_23)" -"(apply-transformer t_50 insp-of-t_4 s_389 id_63 ctx_23 binding_21))))" +"(values s_392 ctx_23)" +"(apply-transformer t_50 insp-of-t_4 s_392 id_63 ctx_23 binding_21))))" "(begin" "(let-values(((obs_18)(expand-context-observer ctx_23)))" "(if obs_18" @@ -39037,20 +39100,20 @@ static const char *startup_source = "(expand7.1 temp110_0 #t temp111_0 #t exp-s108_0 re-ctx109_0)))))))))))))" "(define-values" "(dispatch-variable)" -"(lambda(t_51 s_396 id_8 ctx_24 binding_22 primitive?_6 protected?_7)" +"(lambda(t_51 s_399 id_8 ctx_24 binding_22 primitive?_6 protected?_7)" "(begin" "(if(expand-context-only-immediate? ctx_24)" "(let-values()" "(begin" "(let-values(((obs_19)(expand-context-observer ctx_24)))" -"(if obs_19(let-values()(let-values()(call-expand-observe obs_19 'exit-check s_396)))(void)))" +"(if obs_19(let-values()(let-values()(call-expand-observe obs_19 'exit-check s_399)))(void)))" " id_8))" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_20)(expand-context-observer ctx_24)))" "(if obs_20" -"(let-values()(let-values()(call-expand-observe obs_20 'variable s_396 id_8)))" +"(let-values()(let-values()(call-expand-observe obs_20 'variable s_399 id_8)))" "(void)))" "(values))))" "(let-values((()(begin(register-variable-referenced-if-local! binding_22)(values))))" @@ -39134,9 +39197,9 @@ static const char *startup_source = "(values))))" "(let-values(((confine-def-ctx-scopes?_0)" "(not" -"(let-values(((or-part_270)(expand-context-only-immediate? ctx_26)))" -"(if or-part_270" -" or-part_270" +"(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" @@ -39148,8 +39211,8 @@ static const char *startup_source = " ctx_26)))" "(let-values(((m-ctx_0)" "(let-values(((v_112) accum-ctx_0))" -"(let-values(((the-struct_58) v_112))" -"(if(expand-context/outer? the-struct_58)" +"(let-values(((the-struct_56) v_112))" +"(if(expand-context/outer? the-struct_56)" "(let-values(((current-introduction-scopes115_0)(cons intro-scope_1 use-scopes_1))" "((def-ctx-scopes116_0)" "(if confine-def-ctx-scopes?_0" @@ -39158,21 +39221,21 @@ static const char *startup_source = "((inner117_0)(root-expand-context/outer-inner v_112)))" "(expand-context/outer1.1" " inner117_0" -"(root-expand-context/outer-post-expansion-scope the-struct_58)" -"(root-expand-context/outer-use-site-scopes the-struct_58)" -"(root-expand-context/outer-frame-id the-struct_58)" -"(expand-context/outer-context the-struct_58)" -"(expand-context/outer-env the-struct_58)" -"(expand-context/outer-post-expansion-scope-action the-struct_58)" -"(expand-context/outer-scopes the-struct_58)" +"(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)" +"(expand-context/outer-context the-struct_56)" +"(expand-context/outer-env the-struct_56)" +"(expand-context/outer-post-expansion-scope-action the-struct_56)" +"(expand-context/outer-scopes the-struct_56)" " def-ctx-scopes116_0" -"(expand-context/outer-binding-layer the-struct_58)" -"(expand-context/outer-reference-records the-struct_58)" -"(expand-context/outer-only-immediate? the-struct_58)" -"(expand-context/outer-need-eventually-defined the-struct_58)" +"(expand-context/outer-binding-layer the-struct_56)" +"(expand-context/outer-reference-records the-struct_56)" +"(expand-context/outer-only-immediate? the-struct_56)" +"(expand-context/outer-need-eventually-defined the-struct_56)" " current-introduction-scopes115_0" -"(expand-context/outer-name the-struct_58)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_58))))))" +"(expand-context/outer-name the-struct_56)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_56))))))" "(let-values(((transformed-s_1)" "(with-continuation-mark" " parameterization-key" @@ -39185,8 +39248,8 @@ static const char *startup_source = "(expand-context-namespace ctx_26)" "(add1(expand-context-phase ctx_26)))" " current-module-code-inspector" -"(let-values(((or-part_271) insp-of-t_6))" -"(if or-part_271 or-part_271(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_53) cleaned-s_1)))))))" @@ -39207,7 +39270,7 @@ static const char *startup_source = " transformed-s_1)))))))))" "(define-values" "(maybe-add-use-site-scope)" -"(lambda(s_397 ctx_27 binding_24)" +"(lambda(s_400 ctx_27 binding_24)" "(begin" "(if(if(root-expand-context-use-site-scopes ctx_27)" "(matching-frame?(root-expand-context-frame-id ctx_27)(binding-frame-id binding_24))" @@ -39215,52 +39278,52 @@ static const char *startup_source = "(let-values()" "(let-values(((sc_30)(new-scope 'use-site)))" "(let-values(((b_75)(root-expand-context-use-site-scopes ctx_27)))" -"(begin(set-box! b_75(cons sc_30(unbox b_75)))(values(add-scope s_397 sc_30)(list sc_30))))))" -"(let-values()(values s_397 null))))))" +"(begin(set-box! b_75(cons sc_30(unbox b_75)))(values(add-scope s_400 sc_30)(list sc_30))))))" +"(let-values()(values s_400 null))))))" "(define-values" "(matching-frame?)" "(lambda(current-frame-id_0 bind-frame-id_0)" "(begin" "(if current-frame-id_0" -"(let-values(((or-part_272)(eq? current-frame-id_0 bind-frame-id_0)))" -"(if or-part_272 or-part_272(eq? current-frame-id_0 'all)))" +"(let-values(((or-part_273)(eq? current-frame-id_0 bind-frame-id_0)))" +"(if or-part_273 or-part_273(eq? current-frame-id_0 'all)))" " #f))))" "(define-values" "(maybe-add-post-expansion-scope)" -"(lambda(s_398 ctx_28)" +"(lambda(s_401 ctx_28)" "(begin" "(if(root-expand-context-post-expansion-scope ctx_28)" "(let-values()" -"((expand-context-post-expansion-scope-action ctx_28) s_398(root-expand-context-post-expansion-scope ctx_28)))" -"(let-values() s_398)))))" +"((expand-context-post-expansion-scope-action ctx_28) s_401(root-expand-context-post-expansion-scope ctx_28)))" +"(let-values() s_401)))))" "(define-values" "(accumulate-def-ctx-scopes)" "(lambda(ctx_29 def-ctx-scopes_3)" "(begin" "(if(null?(unbox def-ctx-scopes_3))" " ctx_29" -"(let-values(((v_182) ctx_29))" -"(let-values(((the-struct_59) v_182))" -"(if(expand-context/outer? the-struct_59)" +"(let-values(((v_181) ctx_29))" +"(let-values(((the-struct_57) v_181))" +"(if(expand-context/outer? the-struct_57)" "(let-values(((scopes118_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_29)))" -"((inner119_0)(root-expand-context/outer-inner v_182)))" +"((inner119_0)(root-expand-context/outer-inner v_181)))" "(expand-context/outer1.1" " inner119_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)" +"(root-expand-context/outer-post-expansion-scope the-struct_57)" +"(root-expand-context/outer-use-site-scopes the-struct_57)" +"(root-expand-context/outer-frame-id the-struct_57)" +"(expand-context/outer-context the-struct_57)" +"(expand-context/outer-env the-struct_57)" +"(expand-context/outer-post-expansion-scope-action the-struct_57)" " scopes118_0" -"(expand-context/outer-def-ctx-scopes the-struct_59)" -"(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-current-introduction-scopes the-struct_59)" -"(expand-context/outer-name the-struct_59)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_59))))))))" +"(expand-context/outer-def-ctx-scopes the-struct_57)" +"(expand-context/outer-binding-layer the-struct_57)" +"(expand-context/outer-reference-records the-struct_57)" +"(expand-context/outer-only-immediate? the-struct_57)" +"(expand-context/outer-need-eventually-defined the-struct_57)" +"(expand-context/outer-current-introduction-scopes the-struct_57)" +"(expand-context/outer-name the-struct_57)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_57))))))))" "(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)" @@ -39294,19 +39357,19 @@ static const char *startup_source = " id125_0)))))))))))" "(define-values" "(substitute-alternate-id)" -"(lambda(s_399 alternate-id_3)" +"(lambda(s_402 alternate-id_3)" "(begin" "(if(not alternate-id_3)" -"(let-values() s_399)" -"(if(identifier? s_399)" -"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_399) s_399))" +"(let-values() s_402)" +"(if(identifier? s_402)" +"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_402) s_402))" "(let-values()" -"(let-values(((disarmed-s_4)(syntax-disarm$1 s_399)))" +"(let-values(((disarmed-s_4)(syntax-disarm$1 s_402)))" "(syntax-rearm$1" "(syntax-track-origin$1" -"(datum->syntax$1 disarmed-s_4(cons alternate-id_3(cdr(syntax-e$1 disarmed-s_4))) s_399)" -" s_399)" -" s_399))))))))" +"(datum->syntax$1 disarmed-s_4(cons alternate-id_3(cdr(syntax-e$1 disarmed-s_4))) s_402)" +" s_402)" +" s_402))))))))" "(define-values" "(register-variable-referenced-if-local!)" "(lambda(binding_25)" @@ -39324,11 +39387,11 @@ static const char *startup_source = " expand-lifts?24_0" " lift-key22_0" " lift-key26_0" -" s28_2" +" s28_1" " ctx29_0)" "(begin" " 'expand/capture-lifts30" -"(let-values(((s_100) s28_2))" +"(let-values(((s_106) s28_1))" "(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)))" @@ -39339,7 +39402,7 @@ static const char *startup_source = "(let-values(((phase_103)(expand-context-phase ctx_31)))" "(let-values(((local?_0)(not begin-form?_0)))" "((letrec-values(((loop_93)" -"(lambda(s_400 always-wrap?_1 ctx_32)" +"(lambda(s_403 always-wrap?_1 ctx_32)" "(begin" " 'loop" "(let-values(((lift-env_2)(if local?_0(box empty-env) #f)))" @@ -39356,15 +39419,15 @@ static const char *startup_source = " #f)))" "(make-lift-context6.1 temp129_1 #t temp128_0))))" "(let-values(((capture-ctx_0)" -"(let-values(((v_183) ctx_32))" -"(let-values(((the-struct_60) v_183))" -"(if(expand-context/outer? the-struct_60)" +"(let-values(((v_182) ctx_32))" +"(let-values(((the-struct_58) v_182))" +"(if(expand-context/outer? the-struct_58)" "(let-values(((inner130_0)" -"(let-values(((the-struct_61)" +"(let-values(((the-struct_59)" "(root-expand-context/outer-inner" -" v_183)))" +" v_182)))" "(if(expand-context/inner?" -" the-struct_61)" +" the-struct_59)" "(let-values(((lift-key131_0)" " lift-key_2)" "((lifts132_0)" @@ -39378,10 +39441,10 @@ static const char *startup_source = "(expand-context-lift-envs" " ctx_32)))" "((module-lifts134_0)" -"(if(let-values(((or-part_273)" +"(if(let-values(((or-part_274)" " local?_0))" -"(if or-part_273" -" or-part_273" +"(if or-part_274" +" or-part_274" "(not" "(memq" " context_6" @@ -39392,88 +39455,88 @@ static const char *startup_source = " lift-ctx_0)))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_61)" +" the-struct_59)" "(root-expand-context/inner-module-scopes" -" the-struct_61)" +" the-struct_59)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_61)" +" the-struct_59)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_61)" +" the-struct_59)" "(root-expand-context/inner-defined-syms" -" the-struct_61)" +" the-struct_59)" "(root-expand-context/inner-counter" -" the-struct_61)" +" the-struct_59)" " lift-key131_0" "(expand-context/inner-to-parsed?" -" the-struct_61)" +" the-struct_59)" "(expand-context/inner-phase" -" the-struct_61)" +" the-struct_59)" "(expand-context/inner-namespace" -" the-struct_61)" +" the-struct_59)" "(expand-context/inner-just-once?" -" the-struct_61)" +" the-struct_59)" "(expand-context/inner-module-begin-k" -" the-struct_61)" +" the-struct_59)" "(expand-context/inner-allow-unbound?" -" the-struct_61)" +" the-struct_59)" "(expand-context/inner-in-local-expand?" -" the-struct_61)" +" the-struct_59)" "(expand-context/inner-stops" -" the-struct_61)" +" the-struct_59)" "(expand-context/inner-declared-submodule-names" -" the-struct_61)" +" the-struct_59)" " lifts132_0" " lift-envs133_0" " module-lifts134_0" "(expand-context/inner-require-lifts" -" the-struct_61)" +" the-struct_59)" "(expand-context/inner-to-module-lifts" -" the-struct_61)" +" the-struct_59)" "(expand-context/inner-requires+provides" -" the-struct_61)" +" the-struct_59)" "(expand-context/inner-observer" -" the-struct_61)" +" the-struct_59)" "(expand-context/inner-for-serializable?" -" the-struct_61)" +" the-struct_59)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_61)))" +" the-struct_59)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_61)))))" +" the-struct_59)))))" "(expand-context/outer1.1" " inner130_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_60)" +" the-struct_58)" "(root-expand-context/outer-use-site-scopes" -" the-struct_60)" +" the-struct_58)" "(root-expand-context/outer-frame-id" -" the-struct_60)" -"(expand-context/outer-context the-struct_60)" -"(expand-context/outer-env the-struct_60)" +" the-struct_58)" +"(expand-context/outer-context the-struct_58)" +"(expand-context/outer-env the-struct_58)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_60)" -"(expand-context/outer-scopes the-struct_60)" +" the-struct_58)" +"(expand-context/outer-scopes the-struct_58)" "(expand-context/outer-def-ctx-scopes" -" the-struct_60)" +" the-struct_58)" "(expand-context/outer-binding-layer" -" the-struct_60)" +" the-struct_58)" "(expand-context/outer-reference-records" -" the-struct_60)" +" the-struct_58)" "(expand-context/outer-only-immediate?" -" the-struct_60)" +" the-struct_58)" "(expand-context/outer-need-eventually-defined" -" the-struct_60)" +" the-struct_58)" "(expand-context/outer-current-introduction-scopes" -" the-struct_60)" -"(expand-context/outer-name the-struct_60)))" +" the-struct_58)" +"(expand-context/outer-name the-struct_58)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_60))))))" -"(let-values(((rebuild-s_0)(keep-properties-only s_400)))" +" the-struct_58))))))" +"(let-values(((rebuild-s_0)(keep-properties-only s_403)))" "(let-values(((exp-s_2)" -"(let-values(((s135_0) s_400)" +"(let-values(((s135_0) s_403)" "((capture-ctx136_0) capture-ctx_0))" "(expand7.1" " #f" @@ -39486,10 +39549,10 @@ static const char *startup_source = "(get-and-clear-lifts!" "(expand-context-lifts capture-ctx_0))))" "(let-values(((with-lifts-s_0)" -"(if(let-values(((or-part_274)" +"(if(let-values(((or-part_275)" "(pair? lifts_6)))" -"(if or-part_274" -" or-part_274" +"(if or-part_275" +" or-part_275" " always-wrap?_1))" "(let-values()" "(if(expand-context-to-parsed? ctx_32)" @@ -39526,12 +39589,12 @@ static const char *startup_source = " exp-s_2" " phase_103)))))" "(let-values() exp-s_2))))" -"(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(let-values(((or-part_276)(not expand-lifts?_0)))" "(if or-part_276" " or-part_276" +"(let-values(((or-part_277)(null? lifts_6)))" +"(if or-part_277" +" or-part_277" "(expand-context-to-parsed? ctx_32)))))" "(let-values() with-lifts-s_0)" "(let-values()" @@ -39548,7 +39611,7 @@ static const char *startup_source = "(void)))" "(loop_93 with-lifts-s_0 #f ctx_32)))))))))))))))" " loop_93)" -" s_100" +" s_106" " always-wrap?_0" " ctx_31))))))))))))))" "(define-values" @@ -39569,7 +39632,7 @@ static const char *startup_source = " ctx46_0)" "(begin" " 'expand-transformer47" -"(let-values(((s_401) s45_0))" +"(let-values(((s_404) s45_0))" "(let-values(((ctx_33) ctx46_0))" "(let-values(((context_7)(if context39_0 context33_0 'expression)))" "(let-values(((begin-form?_1)(if begin-form?40_0 begin-form?34_0 #f)))" @@ -39589,7 +39652,7 @@ static const char *startup_source = " ctx146_0" " context147_0" " #t))))" -"(let-values(((s140_0) s_401)" +"(let-values(((s140_0) s_404)" "((trans-ctx141_0) trans-ctx_0)" "((expand-lifts?142_0) expand-lifts?_1)" "((begin-form?143_0) begin-form?_1)" @@ -39619,9 +39682,9 @@ static const char *startup_source = "(let-values(((ns_73)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_104)))" "(begin" "(namespace-visit-available-modules! ns_73 phase_104)" -"(let-values(((v_184) ctx_34))" -"(let-values(((the-struct_62) v_184))" -"(if(expand-context/outer? the-struct_62)" +"(let-values(((v_183) ctx_34))" +"(let-values(((the-struct_60) v_183))" +"(if(expand-context/outer? the-struct_60)" "(let-values(((context149_0) context_8)" "((scopes150_0) null)" "((env151_0) empty-env)" @@ -39630,8 +39693,8 @@ static const char *startup_source = "((def-ctx-scopes153_0) #f)" "((post-expansion-scope154_0) #f)" "((inner155_0)" -"(let-values(((the-struct_63)(root-expand-context/outer-inner v_184)))" -"(if(expand-context/inner? the-struct_63)" +"(let-values(((the-struct_61)(root-expand-context/outer-inner v_183)))" +"(if(expand-context/inner? the-struct_61)" "(let-values(((phase156_0) phase_104)" "((namespace157_0) ns_73)" "((stops158_0)" @@ -39639,52 +39702,52 @@ static const char *startup_source = "(expand-context-stops ctx_34)" " empty-free-id-set)))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_63)" -"(root-expand-context/inner-module-scopes the-struct_63)" -"(root-expand-context/inner-top-level-bind-scope the-struct_63)" -"(root-expand-context/inner-all-scopes-stx the-struct_63)" -"(root-expand-context/inner-defined-syms the-struct_63)" -"(root-expand-context/inner-counter the-struct_63)" -"(root-expand-context/inner-lift-key the-struct_63)" -"(expand-context/inner-to-parsed? the-struct_63)" +"(root-expand-context/inner-self-mpi the-struct_61)" +"(root-expand-context/inner-module-scopes the-struct_61)" +"(root-expand-context/inner-top-level-bind-scope the-struct_61)" +"(root-expand-context/inner-all-scopes-stx the-struct_61)" +"(root-expand-context/inner-defined-syms the-struct_61)" +"(root-expand-context/inner-counter the-struct_61)" +"(root-expand-context/inner-lift-key the-struct_61)" +"(expand-context/inner-to-parsed? the-struct_61)" " phase156_0" " namespace157_0" -"(expand-context/inner-just-once? the-struct_63)" -"(expand-context/inner-module-begin-k the-struct_63)" -"(expand-context/inner-allow-unbound? the-struct_63)" -"(expand-context/inner-in-local-expand? the-struct_63)" +"(expand-context/inner-just-once? the-struct_61)" +"(expand-context/inner-module-begin-k the-struct_61)" +"(expand-context/inner-allow-unbound? the-struct_61)" +"(expand-context/inner-in-local-expand? the-struct_61)" " stops158_0" -"(expand-context/inner-declared-submodule-names the-struct_63)" -"(expand-context/inner-lifts the-struct_63)" -"(expand-context/inner-lift-envs the-struct_63)" -"(expand-context/inner-module-lifts the-struct_63)" -"(expand-context/inner-require-lifts the-struct_63)" -"(expand-context/inner-to-module-lifts the-struct_63)" -"(expand-context/inner-requires+provides the-struct_63)" -"(expand-context/inner-observer the-struct_63)" -"(expand-context/inner-for-serializable? the-struct_63)" -"(expand-context/inner-should-not-encounter-macros? the-struct_63)))" +"(expand-context/inner-declared-submodule-names the-struct_61)" +"(expand-context/inner-lifts the-struct_61)" +"(expand-context/inner-lift-envs the-struct_61)" +"(expand-context/inner-module-lifts the-struct_61)" +"(expand-context/inner-require-lifts the-struct_61)" +"(expand-context/inner-to-module-lifts the-struct_61)" +"(expand-context/inner-requires+provides the-struct_61)" +"(expand-context/inner-observer the-struct_61)" +"(expand-context/inner-for-serializable? the-struct_61)" +"(expand-context/inner-should-not-encounter-macros? the-struct_61)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_63)))))" +" the-struct_61)))))" "(expand-context/outer1.1" " inner155_0" " post-expansion-scope154_0" -"(root-expand-context/outer-use-site-scopes the-struct_62)" -"(root-expand-context/outer-frame-id the-struct_62)" +"(root-expand-context/outer-use-site-scopes the-struct_60)" +"(root-expand-context/outer-frame-id the-struct_60)" " context149_0" " env151_0" -"(expand-context/outer-post-expansion-scope-action the-struct_62)" +"(expand-context/outer-post-expansion-scope-action the-struct_60)" " scopes150_0" " def-ctx-scopes153_0" -"(expand-context/outer-binding-layer the-struct_62)" -"(expand-context/outer-reference-records the-struct_62)" +"(expand-context/outer-binding-layer the-struct_60)" +"(expand-context/outer-reference-records the-struct_60)" " only-immediate?152_0" -"(expand-context/outer-need-eventually-defined the-struct_62)" -"(expand-context/outer-current-introduction-scopes the-struct_62)" -"(expand-context/outer-name the-struct_62)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_62))))))))))))))" +"(expand-context/outer-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))))))))))))))" "(define-values" "(expand+eval-for-syntaxes-binding63.1)" "(lambda(log-next?58_0 log-next?59_0 rhs60_0 ids61_0 ctx62_0)" @@ -39764,8 +39827,8 @@ static const char *startup_source = "(void)" " (let-values () (error \"wrong number of results (\" (length vals_4) \"vs.\" (length ids_21) \")\" \"from\" p_49)))" " vals_4))))))" -"(define-values(keep-properties-only)(lambda(s_402)(begin(datum->syntax$1 #f 'props s_402 s_402))))" -"(define-values(keep-properties-only~)(lambda(s_403)(begin #f)))" +"(define-values(keep-properties-only)(lambda(s_405)(begin(datum->syntax$1 #f 'props s_405 s_405))))" +"(define-values(keep-properties-only~)(lambda(s_406)(begin #f)))" "(define-values" "(keep-as-needed74.1)" "(lambda(for-track?66_0" @@ -39779,12 +39842,12 @@ static const char *startup_source = "(begin" " 'keep-as-needed74" "(let-values(((ctx_38) ctx72_0))" -"(let-values(((s_404) s73_1))" +"(let-values(((s_407) s73_1))" "(let-values()" "(let-values(((keep-for-parsed?_0)(if keep-for-parsed?70_0 keep-for-parsed?67_0 #f)))" "(let-values(((keep-for-error?_0)(if keep-for-error?71_0 keep-for-error?68_0 #f)))" "(let-values()" -"(let-values(((d_32)(syntax-e$1 s_404)))" +"(let-values(((d_32)(syntax-e$1 s_407)))" "(let-values(((keep-e_0)" "(if(symbol? d_32)" "(let-values() d_32)" @@ -39793,28 +39856,28 @@ static const char *startup_source = "(let-values() #f)))))" "(if(expand-context-to-parsed? ctx_38)" "(let-values()" -"(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_404 s_404)" +"(if(let-values(((or-part_278) keep-for-parsed?_0))" +"(if or-part_278 or-part_278 keep-for-error?_0))" +"(datum->syntax$1 #f keep-e_0 s_407 s_407)" " #f))" "(let-values()" "(syntax-rearm$1" -"(datum->syntax$1(syntax-disarm$1 s_404) keep-e_0 s_404 s_404)" -" s_404))))))))))))))" +"(datum->syntax$1(syntax-disarm$1 s_407) keep-e_0 s_407 s_407)" +" s_407))))))))))))))" "(define-values" "(attach-disappeared-transformer-bindings)" -"(lambda(s_405 trans-idss_0)" +"(lambda(s_408 trans-idss_0)" "(begin" "(if(null? trans-idss_0)" -"(let-values() s_405)" +"(let-values() s_408)" "(let-values()" "(syntax-property$1" -" s_405" +" s_408" " 'disappeared-binding" "(append" "(apply append trans-idss_0)" -"(let-values(((or-part_124)(syntax-property$1 s_405 'disappeared-binding)))" -"(if or-part_124 or-part_124 null)))))))))" +"(let-values(((or-part_123)(syntax-property$1 s_408 'disappeared-binding)))" +"(if or-part_123 or-part_123 null)))))))))" "(define-values" "(increment-binding-layer)" "(lambda(ids_22 ctx_39 layer-val_0)" @@ -39823,12 +39886,12 @@ static const char *startup_source = "(lambda(ids_23)" "(begin" " 'loop" -"(let-values(((or-part_278)(identifier? ids_23)))" -"(if or-part_278" -" or-part_278" +"(let-values(((or-part_279)(identifier? ids_23)))" +"(if or-part_279" +" or-part_279" "(if(pair? ids_23)" -"(let-values(((or-part_279)(loop_94(car ids_23))))" -"(if or-part_279 or-part_279(loop_94(cdr ids_23))))" +"(let-values(((or-part_280)(loop_94(car ids_23))))" +"(if or-part_280 or-part_280(loop_94(cdr ids_23))))" " #f)))))))" " loop_94)" " ids_22)" @@ -39857,39 +39920,39 @@ static const char *startup_source = "(list" "(lets-loop_0" "(cdr idss+keyss+rhss_1)" -"(let-values(((v_185) rhs-ctx_1))" -"(let-values(((the-struct_64) v_185))" -"(if(expand-context/outer? the-struct_64)" +"(let-values(((v_184) rhs-ctx_1))" +"(let-values(((the-struct_62) v_184))" +"(if(expand-context/outer? the-struct_62)" "(let-values(((env169_0)" -"(let-values(((lst_286) ids_24)((lst_287) keys_4))" +"(let-values(((lst_285) ids_24)((lst_286) keys_4))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" +"(let-values()(check-list lst_285)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" "(let-values()(check-list lst_286)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_287)))" -"((letrec-values(((for-loop_255)" -"(lambda(env_3 lst_288 lst_289)" +"((letrec-values(((for-loop_256)" +"(lambda(env_3 lst_287 lst_288)" "(begin" " 'for-loop" -"(if(if(pair? lst_288)" -"(pair? lst_289)" +"(if(if(pair? lst_287)" +"(pair? lst_288)" " #f)" "(let-values(((id_67)" "(unsafe-car" +" lst_287))" +"((rest_157)" +"(unsafe-cdr" +" lst_287))" +"((key_86)" +"(unsafe-car" " lst_288))" "((rest_158)" "(unsafe-cdr" -" lst_288))" -"((key_83)" -"(unsafe-car" -" lst_289))" -"((rest_159)" -"(unsafe-cdr" -" lst_289)))" +" lst_288)))" "(let-values(((env_4)" "(let-values(((env_5)" " env_3))" @@ -39897,43 +39960,43 @@ static const char *startup_source = "(let-values()" "(env-extend" " env_5" -" key_83" +" key_86" "(local-variable1.1" " id_67)))))" "(values" " env_6)))))" "(if(not #f)" -"(for-loop_255" +"(for-loop_256" " env_4" -" rest_158" -" rest_159)" +" rest_157" +" rest_158)" " env_4)))" " env_3)))))" -" for-loop_255)" +" for-loop_256)" "(expand-context-env rhs-ctx_1)" -" lst_286" -" lst_287))))" -"((inner170_0)(root-expand-context/outer-inner v_185)))" +" lst_285" +" lst_286))))" +"((inner170_0)(root-expand-context/outer-inner v_184)))" "(expand-context/outer1.1" " inner170_0" -"(root-expand-context/outer-post-expansion-scope the-struct_64)" -"(root-expand-context/outer-use-site-scopes the-struct_64)" -"(root-expand-context/outer-frame-id the-struct_64)" -"(expand-context/outer-context the-struct_64)" +"(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)" " env169_0" -"(expand-context/outer-post-expansion-scope-action the-struct_64)" -"(expand-context/outer-scopes the-struct_64)" -"(expand-context/outer-def-ctx-scopes the-struct_64)" -"(expand-context/outer-binding-layer the-struct_64)" -"(expand-context/outer-reference-records the-struct_64)" -"(expand-context/outer-only-immediate? the-struct_64)" -"(expand-context/outer-need-eventually-defined the-struct_64)" -"(expand-context/outer-current-introduction-scopes the-struct_64)" -"(expand-context/outer-name the-struct_64)))" +"(expand-context/outer-post-expansion-scope-action the-struct_62)" +"(expand-context/outer-scopes the-struct_62)" +"(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_64)))))))))))))))))" +" the-struct_62)))))))))))))))))" " lets-loop_0)" " idss+keyss+rhss_0" " ctx_40)))))" @@ -39947,14 +40010,14 @@ static const char *startup_source = "(let-values()(1/rename-transformer-target t_54))))))" "(define-values" "(maybe-install-free=id-in-context!)" -"(lambda(val_68 id_68 phase_107 ctx_42)" +"(lambda(val_71 id_68 phase_107 ctx_42)" "(begin" -"(if(1/rename-transformer? val_68)" +"(if(1/rename-transformer? val_71)" "(let-values()" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_42)" -"(let-values()(maybe-install-free=id! val_68 id_68 phase_107))))" +"(let-values()(maybe-install-free=id! val_71 id_68 phase_107))))" "(void)))))" "(define-values" "(transfer-srcloc)" @@ -39962,19 +40025,19 @@ static const char *startup_source = "(begin" "(let-values(((srcloc_7)(syntax-srcloc old-s_0)))" "(if srcloc_7" -"(let-values(((the-struct_65) new-s_1))" -"(if(syntax?$1 the-struct_65)" +"(let-values(((the-struct_63) new-s_1))" +"(if(syntax?$1 the-struct_63)" "(let-values(((srcloc171_0) srcloc_7))" "(syntax1.1" -"(syntax-content the-struct_65)" -"(syntax-scopes the-struct_65)" -"(syntax-shifted-multi-scopes the-struct_65)" -"(syntax-scope-propagations+tamper the-struct_65)" -"(syntax-mpi-shifts the-struct_65)" +"(syntax-content the-struct_63)" +"(syntax-scopes the-struct_63)" +"(syntax-shifted-multi-scopes the-struct_63)" +"(syntax-scope-propagations+tamper the-struct_63)" +"(syntax-mpi-shifts the-struct_63)" " srcloc171_0" -"(syntax-props the-struct_65)" -"(syntax-inspector the-struct_65)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_65)))" +"(syntax-props the-struct_63)" +"(syntax-inspector the-struct_63)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_63)))" " new-s_1)))))" "(define-values" "(stop-ids->all-stop-ids)" @@ -39992,12 +40055,12 @@ static const char *startup_source = "(append" " stop-ids_0" "(reverse$1" -"(let-values(((lst_102) auto-stop-syms))" +"(let-values(((lst_101) auto-stop-syms))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_102)))" -"((letrec-values(((for-loop_110)" +"(let-values()(check-list lst_101)))" +"((letrec-values(((for-loop_111)" "(lambda(fold-var_86 lst_6)" "(begin" " 'for-loop" @@ -40014,11 +40077,11 @@ static const char *startup_source = " sym_63))" " fold-var_88))))" "(values fold-var_60)))))" -"(if(not #f)(for-loop_110 fold-var_87 rest_48) fold-var_87)))" +"(if(not #f)(for-loop_111 fold-var_87 rest_48) fold-var_87)))" " fold-var_86)))))" -" for-loop_110)" +" for-loop_111)" " null" -" lst_102)))))))))))))" +" lst_101)))))))))))))" "(define-values" "(auto-stop-syms)" " '(begin" @@ -40042,29 +40105,29 @@ static const char *startup_source = "(begin" "(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_108)))" "(reverse$1" -"(let-values(((lst_224) module-stop-syms))" +"(let-values(((lst_223) module-stop-syms))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_224)))" -"((letrec-values(((for-loop_256)" -"(lambda(fold-var_240 lst_264)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_223)))" +"((letrec-values(((for-loop_257)" +"(lambda(fold-var_240 lst_263)" "(begin" " 'for-loop" -"(if(pair? lst_264)" -"(let-values(((sym_16)(unsafe-car lst_264))((rest_160)(unsafe-cdr lst_264)))" -"(let-values(((fold-var_218)" -"(let-values(((fold-var_30) fold-var_240))" +"(if(pair? lst_263)" +"(let-values(((sym_16)(unsafe-car lst_263))((rest_159)(unsafe-cdr lst_263)))" +"(let-values(((fold-var_217)" +"(let-values(((fold-var_218) fold-var_240))" "(let-values(((fold-var_219)" "(let-values()" "(cons" "(let-values()" "(datum->syntax$1 p-core-stx_1 sym_16))" -" fold-var_30))))" +" fold-var_218))))" "(values fold-var_219)))))" -"(if(not #f)(for-loop_256 fold-var_218 rest_160) fold-var_218)))" +"(if(not #f)(for-loop_257 fold-var_217 rest_159) fold-var_217)))" " fold-var_240)))))" -" for-loop_256)" +" for-loop_257)" " null" -" lst_224))))))))" +" lst_223))))))))" "(define-values" "(module-stop-syms)" "(append" @@ -40141,14 +40204,14 @@ static const char *startup_source = "(let-values(((temp42_2) 'syntax-local-make-definition-context))" "(get-current-expand-context17.1 #f #f temp42_2 #t))))" "(let-values(((frame-id_8)" -"(let-values(((or-part_67)(root-expand-context-frame-id ctx_43)))" -"(if or-part_67" -" or-part_67" -"(let-values(((or-part_177)" +"(let-values(((or-part_66)(root-expand-context-frame-id ctx_43)))" +"(if or-part_66" +" or-part_66" +"(let-values(((or-part_178)" "(if parent-ctx_0" "(internal-definition-context-frame-id parent-ctx_0)" " #f)))" -"(if or-part_177 or-part_177(gensym)))))))" +"(if or-part_178 or-part_178(gensym)))))))" "(let-values(((sc_31)(new-scope 'intdef)))" "(let-values(((def-ctx-scopes_4)(expand-context-def-ctx-scopes ctx_43)))" "(begin" @@ -40168,7 +40231,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_406 intdef_0)" +"(lambda(ids_25 s_409 intdef_0)" "(begin" " 'syntax-local-bind-syntaxes" "(let-values((()" @@ -40180,9 +40243,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_166)(not s_406)))(if or-part_166 or-part_166(syntax?$1 s_406)))" +"(if(let-values(((or-part_167)(not s_409)))(if or-part_167 or-part_167(syntax?$1 s_409)))" "(void)" -" (let-values () (raise-argument-error 'syntax-local-bind-syntaxes \"(or/c syntax? #f)\" s_406)))" +" (let-values () (raise-argument-error 'syntax-local-bind-syntaxes \"(or/c syntax? #f)\" s_409)))" "(values))))" "(let-values((()" "(begin" @@ -40207,18 +40270,18 @@ static const char *startup_source = "(let-values(((intdef-env_0)(add-intdef-bindings(expand-context-env ctx_44) intdef_0)))" "(let-values(((intdef-ids_0)" "(reverse$1" -"(let-values(((lst_290) ids_25))" +"(let-values(((lst_289) ids_25))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_290)))" -"((letrec-values(((for-loop_176)" -"(lambda(fold-var_16 lst_186)" +"(let-values()(check-list lst_289)))" +"((letrec-values(((for-loop_177)" +"(lambda(fold-var_16 lst_185)" "(begin" " 'for-loop" -"(if(pair? lst_186)" -"(let-values(((id_69)(unsafe-car lst_186))" -"((rest_161)(unsafe-cdr lst_186)))" +"(if(pair? lst_185)" +"(let-values(((id_69)(unsafe-car lst_185))" +"((rest_160)(unsafe-cdr lst_185)))" "(let-values(((fold-var_231)" "(let-values(((fold-var_241)" " fold-var_16))" @@ -40248,12 +40311,12 @@ static const char *startup_source = " fold-var_241))))" "(values fold-var_242)))))" "(if(not #f)" -"(for-loop_176 fold-var_231 rest_161)" +"(for-loop_177 fold-var_231 rest_160)" " fold-var_231)))" " fold-var_16)))))" -" for-loop_176)" +" for-loop_177)" " null" -" lst_290))))))" +" lst_289))))))" "(let-values((()" "(begin" "(let-values(((obs_29)(expand-context-observer ctx_44)))" @@ -40264,18 +40327,18 @@ static const char *startup_source = "(values))))" "(let-values(((syms_21)" "(reverse$1" -"(let-values(((lst_291) intdef-ids_0))" +"(let-values(((lst_290) intdef-ids_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_291)))" -"((letrec-values(((for-loop_257)" -"(lambda(fold-var_243 lst_292)" +"(let-values()(check-list lst_290)))" +"((letrec-values(((for-loop_258)" +"(lambda(fold-var_243 lst_291)" "(begin" " 'for-loop" -"(if(pair? lst_292)" -"(let-values(((intdef-id_0)(unsafe-car lst_292))" -"((rest_162)(unsafe-cdr lst_292)))" +"(if(pair? lst_291)" +"(let-values(((intdef-id_0)(unsafe-car lst_291))" +"((rest_161)(unsafe-cdr lst_291)))" "(let-values(((fold-var_244)" "(let-values(((fold-var_245)" " fold-var_243))" @@ -40304,40 +40367,40 @@ static const char *startup_source = " fold-var_245))))" "(values fold-var_246)))))" "(if(not #f)" -"(for-loop_257 fold-var_244 rest_162)" +"(for-loop_258 fold-var_244 rest_161)" " fold-var_244)))" " fold-var_243)))))" -" for-loop_257)" +" for-loop_258)" " null" -" lst_291))))))" +" lst_290))))))" "(let-values(((vals_5)" -"(if s_406" +"(if s_409" "(let-values()" "(let-values(((input-s_0)" "(flip-introduction-scopes" -"(let-values(((s51_0) s_406)" +"(let-values(((s51_0) s_409)" "((intdef52_0) intdef_0)" "((temp53_1) #t))" "(add-intdef-scopes21.1 #f #f temp53_1 #t s51_0 intdef52_0))" " ctx_44)))" "(let-values(((tmp-env_0)" -"(let-values(((lst_293) syms_21))" +"(let-values(((lst_292) syms_21))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_293)))" +"(let-values()(check-list lst_292)))" "((letrec-values(((for-loop_6)" -"(lambda(env_7 lst_169)" +"(lambda(env_7 lst_168)" "(begin" " 'for-loop" -"(if(pair? lst_169)" +"(if(pair? lst_168)" "(let-values(((sym_64)" "(unsafe-car" -" lst_169))" -"((rest_163)" +" lst_168))" +"((rest_162)" "(unsafe-cdr" -" lst_169)))" +" lst_168)))" "(let-values(((env_8)" "(let-values(((env_9)" " env_7))" @@ -40352,12 +40415,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_6" " env_8" -" rest_163)" +" rest_162)" " env_8)))" " env_7)))))" " for-loop_6)" " intdef-env_0" -" lst_293)))))" +" lst_292)))))" "(let-values((()" "(begin" "(let-values(((obs_30)" @@ -40373,47 +40436,47 @@ static const char *startup_source = " input-s_0" " ids_25" "(let-values(((temp54_0)" -"(let-values(((v_186) ctx_44))" -"(let-values(((the-struct_66) v_186))" +"(let-values(((v_185) ctx_44))" +"(let-values(((the-struct_64) v_185))" "(if(expand-context/outer?" -" the-struct_66)" +" the-struct_64)" "(let-values(((env57_0) tmp-env_0)" "((inner58_0)" "(root-expand-context/outer-inner" -" v_186)))" +" v_185)))" "(expand-context/outer1.1" " inner58_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_66)" +" the-struct_64)" "(root-expand-context/outer-use-site-scopes" -" the-struct_66)" +" the-struct_64)" "(root-expand-context/outer-frame-id" -" the-struct_66)" +" the-struct_64)" "(expand-context/outer-context" -" the-struct_66)" +" the-struct_64)" " env57_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_66)" +" the-struct_64)" "(expand-context/outer-scopes" -" the-struct_66)" +" the-struct_64)" "(expand-context/outer-def-ctx-scopes" -" the-struct_66)" +" the-struct_64)" "(expand-context/outer-binding-layer" -" the-struct_66)" +" the-struct_64)" "(expand-context/outer-reference-records" -" the-struct_66)" +" the-struct_64)" "(expand-context/outer-only-immediate?" -" the-struct_66)" +" the-struct_64)" "(expand-context/outer-need-eventually-defined" -" the-struct_66)" +" the-struct_64)" "(expand-context/outer-current-introduction-scopes" -" the-struct_66)" +" the-struct_64)" "(expand-context/outer-name" -" the-struct_66)))" +" the-struct_64)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_66)))))" +" the-struct_64)))))" "((temp55_2) 'expression)" "((intdef56_0) intdef_0))" "(make-local-expand-context37.1" @@ -40437,21 +40500,21 @@ static const char *startup_source = " vals_6))))))" "(let-values()" "(reverse$1" -"(let-values(((lst_294) ids_25))" +"(let-values(((lst_293) ids_25))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_294)))" -"((letrec-values(((for-loop_258)" -"(lambda(fold-var_179 lst_295)" +"(let-values()(check-list lst_293)))" +"((letrec-values(((for-loop_259)" +"(lambda(fold-var_178 lst_294)" "(begin" " 'for-loop" -"(if(pair? lst_295)" -"(let-values(((id_70)(unsafe-car lst_295))" -"((rest_164)(unsafe-cdr lst_295)))" +"(if(pair? lst_294)" +"(let-values(((id_70)(unsafe-car lst_294))" +"((rest_163)(unsafe-cdr lst_294)))" "(let-values(((fold-var_247)" "(let-values(((fold-var_248)" -" fold-var_179))" +" fold-var_178))" "(let-values(((fold-var_249)" "(let-values()" "(cons" @@ -40460,42 +40523,42 @@ static const char *startup_source = " fold-var_248))))" "(values fold-var_249)))))" "(if(not #f)" -"(for-loop_258 fold-var_247 rest_164)" +"(for-loop_259 fold-var_247 rest_163)" " fold-var_247)))" -" fold-var_179)))))" -" for-loop_258)" +" fold-var_178)))))" +" for-loop_259)" " null" -" lst_294))))))))" +" lst_293))))))))" "(let-values(((env-mixins_0)(internal-definition-context-env-mixins intdef_0)))" "(begin" "(set-box!" " env-mixins_0" "(append" "(reverse$1" -"(let-values(((lst_296) intdef-ids_0)((lst_297) syms_21)((lst_298) vals_5))" +"(let-values(((lst_295) intdef-ids_0)((lst_296) syms_21)((lst_297) vals_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_295)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_296)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_297)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_298)))" -"((letrec-values(((for-loop_78)" -"(lambda(fold-var_250 lst_299 lst_107 lst_300)" +"((letrec-values(((for-loop_79)" +"(lambda(fold-var_250 lst_298 lst_106 lst_299)" "(begin" " 'for-loop" -"(if(if(pair? lst_299)" -"(if(pair? lst_107)(pair? lst_300) #f)" +"(if(if(pair? lst_298)" +"(if(pair? lst_106)(pair? lst_299) #f)" " #f)" -"(let-values(((intdef-id_1)(unsafe-car lst_299))" -"((rest_165)(unsafe-cdr lst_299))" -"((sym_65)(unsafe-car lst_107))" -"((rest_100)(unsafe-cdr lst_107))" -"((val_26)(unsafe-car lst_300))" -"((rest_22)(unsafe-cdr lst_300)))" +"(let-values(((intdef-id_1)(unsafe-car lst_298))" +"((rest_164)(unsafe-cdr lst_298))" +"((sym_65)(unsafe-car lst_106))" +"((rest_100)(unsafe-cdr lst_106))" +"((val_27)(unsafe-car lst_299))" +"((rest_22)(unsafe-cdr lst_299)))" "(let-values(((fold-var_36)" "(let-values(((fold-var_37)" " fold-var_250))" @@ -40505,26 +40568,26 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_26" +" val_27" " intdef-id_1" " phase_109" " ctx_44)" "(env-mixin2.1" " intdef-id_1" " sym_65" -" val_26" +" val_27" "(make-weak-hasheq))))" " fold-var_37))))" "(values fold-var_38)))))" "(if(not #f)" -"(for-loop_78 fold-var_36 rest_165 rest_100 rest_22)" +"(for-loop_79 fold-var_36 rest_164 rest_100 rest_22)" " fold-var_36)))" " fold-var_250)))))" -" for-loop_78)" +" for-loop_79)" " null" +" lst_295" " lst_296" -" lst_297" -" lst_298))))" +" lst_297))))" "(unbox env-mixins_0)))" "(let-values(((obs_32)(expand-context-observer ctx_44)))" "(if obs_32" @@ -40544,29 +40607,29 @@ static const char *startup_source = " \"internal-definition-context?\"" " intdef_1)))" "(reverse$1" -"(let-values(((lst_301)(unbox(internal-definition-context-env-mixins intdef_1))))" +"(let-values(((lst_300)(unbox(internal-definition-context-env-mixins intdef_1))))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_301)))" -"((letrec-values(((for-loop_259)" -"(lambda(fold-var_251 lst_230)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_300)))" +"((letrec-values(((for-loop_260)" +"(lambda(fold-var_251 lst_229)" "(begin" " 'for-loop" -"(if(pair? lst_230)" -"(let-values(((env-mixin_0)(unsafe-car lst_230))" -"((rest_166)(unsafe-cdr lst_230)))" +"(if(pair? lst_229)" +"(let-values(((env-mixin_0)(unsafe-car lst_229))" +"((rest_165)(unsafe-cdr lst_229)))" "(let-values(((fold-var_252)" -"(let-values(((fold-var_184) fold-var_251))" +"(let-values(((fold-var_183) fold-var_251))" "(let-values(((fold-var_253)" "(let-values()" "(cons" "(let-values()(env-mixin-id env-mixin_0))" -" fold-var_184))))" +" fold-var_183))))" "(values fold-var_253)))))" -"(if(not #f)(for-loop_259 fold-var_252 rest_166) fold-var_252)))" +"(if(not #f)(for-loop_260 fold-var_252 rest_165) fold-var_252)))" " fold-var_251)))))" -" for-loop_259)" +" for-loop_260)" " null" -" lst_301))))))))" +" lst_300))))))))" "(define-values" "(1/internal-definition-context-introduce)" "(let-values(((internal-definition-context-introduce13_0)" @@ -40574,7 +40637,7 @@ static const char *startup_source = "(begin" " 'internal-definition-context-introduce13" "(let-values(((intdef_2) intdef11_0))" -"(let-values(((s_407) s12_1))" +"(let-values(((s_410) s12_1))" "(let-values(((mode_12)(if mode10_0 mode9_0 'flip)))" "(let-values()" "(begin" @@ -40585,11 +40648,11 @@ static const char *startup_source = " 'internal-definition-context-introduce" " \"internal-definition-context?\"" " intdef_2)))" -"(if(syntax?$1 s_407)" +"(if(syntax?$1 s_410)" "(void)" "(let-values()" -" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_407)))" -"(let-values(((s59_0) s_407)" +" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_410)))" +"(let-values(((s59_0) s_410)" "((intdef60_0) intdef_2)" "((temp61_1)" "(let-values(((tmp_31) mode_12))" @@ -40606,9 +40669,9 @@ static const char *startup_source = " mode_12))))))))" "(add-intdef-scopes21.1 temp61_1 #t #f #f s59_0 intdef60_0)))))))))))" "(case-lambda" -"((intdef_3 s_198)" -"(begin 'internal-definition-context-introduce(internal-definition-context-introduce13_0 intdef_3 s_198 #f #f)))" -"((intdef_4 s_199 mode9_1)(internal-definition-context-introduce13_0 intdef_4 s_199 mode9_1 #t)))))" +"((intdef_3 s_202)" +"(begin 'internal-definition-context-introduce(internal-definition-context-introduce13_0 intdef_3 s_202 #f #f)))" +"((intdef_4 s_203 mode9_1)(internal-definition-context-introduce13_0 intdef_4 s_203 mode9_1 #t)))))" "(define-values" "(1/internal-definition-context-seal)" "(lambda(intdef_5)" @@ -40629,8 +40692,8 @@ static const char *startup_source = "(if(identifier? id_71)" "(void)" " (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_71)))" -"(if(let-values(((or-part_280)(1/internal-definition-context? intdef_6)))" -"(if or-part_280 or-part_280(if(list? intdef_6)(andmap2 1/internal-definition-context? intdef_6) #f)))" +"(if(let-values(((or-part_281)(1/internal-definition-context? intdef_6)))" +"(if or-part_281 or-part_281(if(list? intdef_6)(andmap2 1/internal-definition-context? intdef_6) #f)))" "(void)" "(let-values()" "(raise-argument-error" @@ -40644,7 +40707,7 @@ static const char *startup_source = "(if(not a_45)(let-values() null)(let-values()(list a_45)))))))" "(begin" " #t" -"((letrec-values(((for-loop_177)" +"((letrec-values(((for-loop_178)" "(lambda(id_17 a_46)" "(begin" " 'for-loop" @@ -40659,9 +40722,9 @@ static const char *startup_source = " id_73" " 'remove))))" "(values id_74)))))" -"(if(not #f)(for-loop_177 id_72(cdr a_46)) id_72)))" +"(if(not #f)(for-loop_178 id_72(cdr a_46)) id_72)))" " id_17)))))" -" for-loop_177)" +" for-loop_178)" " id_71" " x_74)))))))" "(define-values" @@ -40675,7 +40738,7 @@ static const char *startup_source = "(if(not a_47)(let-values() null)(let-values()(list a_47)))))))" "(begin" " #t" -"((letrec-values(((for-loop_260)" +"((letrec-values(((for-loop_261)" "(lambda(env_12 a_48)" "(begin" " 'for-loop" @@ -40699,14 +40762,14 @@ static const char *startup_source = "(let-values(((env-mixin_1)" "(car" " env-mixins_2)))" -"(let-values(((or-part_281)" +"(let-values(((or-part_282)" "(hash-ref" "(env-mixin-cache" " env-mixin_1)" " env_16" " #f)))" -"(if or-part_281" -" or-part_281" +"(if or-part_282" +" or-part_282" "(let-values(((new-env_0)" "(env-extend" "(loop_95" @@ -40728,9 +40791,9 @@ static const char *startup_source = " env_14" " env-mixins_1)))))" "(values env_15)))))" -"(if(not #f)(for-loop_260 env_13(cdr a_48)) env_13)))" +"(if(not #f)(for-loop_261 env_13(cdr a_48)) env_13)))" " env_12)))))" -" for-loop_260)" +" for-loop_261)" " env_11" " x_75))))))" "(define-values" @@ -40738,7 +40801,7 @@ static const char *startup_source = "(lambda(action16_0 action18_0 always?15_0 always?17_0 s19_0 intdefs20_0)" "(begin" " 'add-intdef-scopes21" -"(let-values(((s_408) s19_0))" +"(let-values(((s_411) 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)))" @@ -40750,32 +40813,32 @@ static const char *startup_source = "(if(not a_49)(let-values() null)(let-values()(list a_49)))))))" "(begin" " #t" -"((letrec-values(((for-loop_179)" -"(lambda(s_391 a_50)" +"((letrec-values(((for-loop_180)" +"(lambda(s_394 a_50)" "(begin" " 'for-loop" "(if(pair? a_50)" "(let-values(((intdef_9)(car a_50)))" -"(let-values(((s_207)" -"(let-values(((s_208) s_391))" -"(if(let-values(((or-part_282) always?_0))" -"(if or-part_282" -" or-part_282" +"(let-values(((s_210)" +"(let-values(((s_211) s_394))" +"(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_88) s_208))" -"(let-values(((s_320)" +"(let-values(((s_94) s_211))" +"(let-values(((s_322)" "(let-values()" "(action_0" -" s_88" +" s_94" "(internal-definition-context-scope" " intdef_9)))))" -"(values s_320)))" -" s_208))))" -"(if(not #f)(for-loop_179 s_207(cdr a_50)) s_207)))" -" s_391)))))" -" for-loop_179)" -" s_408" +"(values s_322)))" +" s_211))))" +"(if(not #f)(for-loop_180 s_210(cdr a_50)) s_210)))" +" s_394)))))" +" for-loop_180)" +" s_411" " x_76)))))))))))" "(define-values" "(make-local-expand-context37.1)" @@ -40801,9 +40864,9 @@ static const char *startup_source = "(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_135)(eq? context_9(expand-context-context ctx_45))))" -"(if or-part_135" -" or-part_135" +"(let-values(((or-part_134)(eq? context_9(expand-context-context ctx_45))))" +"(if or-part_134" +" or-part_134" "(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_110) #f)))" @@ -40811,20 +40874,20 @@ static const char *startup_source = "(if(expand-context-def-ctx-scopes ctx_45)" "(unbox(expand-context-def-ctx-scopes ctx_45))" " null)))" -"(let-values(((v_187) ctx_45))" -"(let-values(((the-struct_15) v_187))" -"(if(expand-context/outer? the-struct_15)" +"(let-values(((v_186) ctx_45))" +"(let-values(((the-struct_18) v_186))" +"(if(expand-context/outer? the-struct_18)" "(let-values(((context62_0) context_9)" "((env63_0)(add-intdef-bindings(expand-context-env ctx_45) intdefs_2))" "((use-site-scopes64_0)" -"(if(let-values(((or-part_283)(eq? context_9 'module)))" -"(if or-part_283" -" or-part_283" -"(let-values(((or-part_284)(eq? context_9 'module-begin)))" -"(if or-part_284 or-part_284(list? context_9)))))" -"(let-values(((or-part_285)" +"(if(let-values(((or-part_284)(eq? context_9 'module)))" +"(if or-part_284" +" or-part_284" +"(let-values(((or-part_285)(eq? context_9 'module-begin)))" +"(if or-part_285 or-part_285(list? context_9)))))" +"(let-values(((or-part_286)" "(root-expand-context-use-site-scopes ctx_45)))" -"(if or-part_285 or-part_285(box null)))" +"(if or-part_286 or-part_286(box null)))" " #f))" "((frame-id65_0)" "(let-values(((x_77)" @@ -40836,7 +40899,7 @@ static const char *startup_source = "(let-values()(list a_51)))))))" "(begin" " #t" -"((letrec-values(((for-loop_127)" +"((letrec-values(((for-loop_128)" "(lambda(frame-id_9 a_52)" "(begin" " 'for-loop" @@ -40861,17 +40924,17 @@ static const char *startup_source = "(let-values()" " 'all)" "(let-values()" -"(let-values(((or-part_273)" +"(let-values(((or-part_274)" " frame-id_11))" -"(if or-part_273" -" or-part_273" +"(if or-part_274" +" or-part_274" " i-frame-id_0))))))))" "(values frame-id_12)))))" "(if(not #f)" -"(for-loop_127 frame-id_10(cdr a_52))" +"(for-loop_128 frame-id_10(cdr a_52))" " frame-id_10)))" " frame-id_9)))))" -" for-loop_127)" +" for-loop_128)" "(root-expand-context-frame-id ctx_45)" " x_77))))" "((post-expansion-scope66_0)" @@ -40884,10 +40947,10 @@ static const char *startup_source = " #f)))" "((post-expansion-scope-action67_0)" "(if intdefs_2" -"(lambda(s_216 placeholder-sc_0)" +"(lambda(s_219 placeholder-sc_0)" "(begin" " 'post-expansion-scope-action67" -"(let-values(((s73_2) s_216)((intdefs74_0) intdefs_2))" +"(let-values(((s73_2) s_219)((intdefs74_0) intdefs_2))" "(add-intdef-scopes21.1 #f #f #f #f s73_2 intdefs74_0))))" "(expand-context-post-expansion-scope-action ctx_45)))" "((scopes68_0)(append def-ctx-scopes_5(expand-context-scopes ctx_45)))" @@ -40899,8 +40962,8 @@ static const char *startup_source = "(let-values() ht_140)" "(if ht_140(let-values()(make-hasheqv))(let-values() #f)))))" "((inner72_0)" -"(let-values(((the-struct_67)(root-expand-context/outer-inner v_187)))" -"(if(expand-context/inner? the-struct_67)" +"(let-values(((the-struct_65)(root-expand-context/outer-inner v_186)))" +"(if(expand-context/inner? the-struct_65)" "(let-values(((to-parsed?75_0)" "(if to-parsed-ok?_0" "(expand-context-to-parsed? ctx_45)" @@ -40910,39 +40973,39 @@ static const char *startup_source = "((stops78_0)" "(free-id-set" " phase_110" -"(let-values(((or-part_286) all-stop-ids_0))" -"(if or-part_286 or-part_286 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-self-mpi the-struct_67)" -"(root-expand-context/inner-module-scopes the-struct_67)" -"(root-expand-context/inner-top-level-bind-scope the-struct_67)" -"(root-expand-context/inner-all-scopes-stx the-struct_67)" -"(root-expand-context/inner-defined-syms the-struct_67)" -"(root-expand-context/inner-counter the-struct_67)" -"(root-expand-context/inner-lift-key the-struct_67)" +"(root-expand-context/inner-self-mpi the-struct_65)" +"(root-expand-context/inner-module-scopes the-struct_65)" +"(root-expand-context/inner-top-level-bind-scope the-struct_65)" +"(root-expand-context/inner-all-scopes-stx the-struct_65)" +"(root-expand-context/inner-defined-syms the-struct_65)" +"(root-expand-context/inner-counter the-struct_65)" +"(root-expand-context/inner-lift-key the-struct_65)" " to-parsed?75_0" -"(expand-context/inner-phase the-struct_67)" -"(expand-context/inner-namespace the-struct_67)" +"(expand-context/inner-phase the-struct_65)" +"(expand-context/inner-namespace the-struct_65)" " just-once?76_0" -"(expand-context/inner-module-begin-k the-struct_67)" -"(expand-context/inner-allow-unbound? the-struct_67)" +"(expand-context/inner-module-begin-k the-struct_65)" +"(expand-context/inner-allow-unbound? the-struct_65)" " in-local-expand?77_0" " stops78_0" -"(expand-context/inner-declared-submodule-names the-struct_67)" -"(expand-context/inner-lifts the-struct_67)" -"(expand-context/inner-lift-envs the-struct_67)" -"(expand-context/inner-module-lifts the-struct_67)" -"(expand-context/inner-require-lifts the-struct_67)" -"(expand-context/inner-to-module-lifts the-struct_67)" -"(expand-context/inner-requires+provides the-struct_67)" -"(expand-context/inner-observer the-struct_67)" -"(expand-context/inner-for-serializable? the-struct_67)" +"(expand-context/inner-declared-submodule-names the-struct_65)" +"(expand-context/inner-lifts the-struct_65)" +"(expand-context/inner-lift-envs the-struct_65)" +"(expand-context/inner-module-lifts the-struct_65)" +"(expand-context/inner-require-lifts the-struct_65)" +"(expand-context/inner-to-module-lifts the-struct_65)" +"(expand-context/inner-requires+provides the-struct_65)" +"(expand-context/inner-observer the-struct_65)" +"(expand-context/inner-for-serializable? the-struct_65)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_67)))" +" the-struct_65)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_67)))))" +" the-struct_65)))))" "(expand-context/outer1.1" " inner72_0" " post-expansion-scope66_0" @@ -40952,20 +41015,20 @@ static const char *startup_source = " env63_0" " post-expansion-scope-action67_0" " scopes68_0" -"(expand-context/outer-def-ctx-scopes the-struct_15)" -"(expand-context/outer-binding-layer the-struct_15)" -"(expand-context/outer-reference-records the-struct_15)" +"(expand-context/outer-def-ctx-scopes the-struct_18)" +"(expand-context/outer-binding-layer the-struct_18)" +"(expand-context/outer-reference-records the-struct_18)" " only-immediate?69_0" " need-eventually-defined71_0" " current-introduction-scopes70_0" -"(expand-context/outer-name the-struct_15)))" +"(expand-context/outer-name the-struct_18)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_15))))))))))))))))))" +" the-struct_18))))))))))))))))))" "(define-values" "(flip-introduction-scopes)" -"(lambda(s_118 ctx_46)(begin(flip-scopes s_118(expand-context-current-introduction-scopes ctx_46)))))" +"(lambda(s_124 ctx_46)(begin(flip-scopes s_124(expand-context-current-introduction-scopes ctx_46)))))" "(define-values" "(1/syntax-transforming?)" "(lambda()" @@ -41004,50 +41067,58 @@ static const char *startup_source = "(expand-context-context ctx_50)))))" "(define-values" "(1/syntax-local-introduce)" -"(lambda(s_170)" +"(lambda(s_173)" "(begin" " 'syntax-local-introduce" +"(let-values()" +"(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_170)" +"(if(syntax?$1 s_173)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_170)))" +" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_173)))" "(values))))" "(let-values(((ctx_51)" -"(let-values(((temp67_0) 'syntax-local-introduce))" -"(get-current-expand-context17.1 #f #f temp67_0 #t))))" -"(flip-introduction-scopes s_170 ctx_51))))))" +"(let-values(((temp68_0) 'syntax-local-introduce))" +"(get-current-expand-context17.1 #f #f temp68_0 #t))))" +"(flip-introduction-scopes s_173 ctx_51))))))))" "(define-values" "(1/syntax-local-identifier-as-binding)" "(lambda(id_75)" "(begin" " 'syntax-local-identifier-as-binding" +"(let-values()" +"(let-values()" "(let-values((()" "(begin" "(if(identifier? id_75)" "(void)" -" (let-values () (raise-argument-error 1/syntax-local-identifier-as-binding \"identifier?\" id_75)))" +"(let-values()" +" (raise-argument-error 'syntax-local-identifier-as-binding \"identifier?\" id_75)))" "(values))))" -"(let-values(((ctx_14)" -"(let-values(((temp68_0) 'syntax-local-identifier-as-binding))" -"(get-current-expand-context17.1 #f #f temp68_0 #t))))" -"(remove-use-site-scopes id_75 ctx_14))))))" +"(let-values(((ctx_52)" +"(let-values(((temp70_0) 'syntax-local-identifier-as-binding))" +"(get-current-expand-context17.1 #f #f temp70_0 #t))))" +"(remove-use-site-scopes id_75 ctx_52))))))))" "(define-values" "(1/syntax-local-phase-level)" "(lambda()" "(begin" " 'syntax-local-phase-level" -"(let-values(((ctx_52)(let-values(((temp69_0) #t))(get-current-expand-context17.1 temp69_0 #t #f #f))))" -"(if ctx_52(expand-context-phase ctx_52) 0)))))" +"(let-values(((ctx_53)(let-values(((temp71_0) #t))(get-current-expand-context17.1 temp71_0 #t #f #f))))" +"(if ctx_53(expand-context-phase ctx_53) 0)))))" "(define-values" "(1/syntax-local-name)" "(lambda()" "(begin" " 'syntax-local-name" -"(let-values(((ctx_53)" -"(let-values(((temp70_0) 'syntax-local-name))(get-current-expand-context17.1 #f #f temp70_0 #t))))" -"(let-values(((id_76)(expand-context-name ctx_53)))" -"(if id_76(datum->syntax$1 #f(syntax-e$1 id_76) id_76) #f))))))" +"(let-values()" +"(let-values()" +"(let-values(((ctx_54)" +"(let-values(((who73_0) 'syntax-local-name))" +"(get-current-expand-context17.1 #f #f who73_0 #t))))" +"(let-values(((id_76)(expand-context-name ctx_54)))" +"(if id_76(datum->syntax$1 #f(syntax-e$1 id_76) id_76) #f))))))))" "(define-values" "(1/make-syntax-introducer)" "(let-values(((make-syntax-introducer3_0)" @@ -41057,33 +41128,33 @@ static const char *startup_source = "(let-values(((as-use-site?_0)(if as-use-site?2_0 as-use-site?1_0 #f)))" "(let-values()" "(let-values(((sc_32)(new-scope(if as-use-site?_0 'use-site 'macro))))" -"(let-values(((core74_0)" -"(lambda(s73_3 mode71_0 mode72_0)" +"(let-values(((core77_0)" +"(lambda(s76_0 mode74_0 mode75_0)" "(begin" -" 'core74" -"(let-values(((s_7) s73_3))" -"(let-values(((mode_13)(if mode72_0 mode71_0 'flip)))" +" 'core77" +"(let-values(((s_83) s76_0))" +"(let-values(((mode_13)(if mode75_0 mode74_0 'flip)))" "(let-values()" "(begin" -"(if(syntax?$1 s_7)" +"(if(syntax?$1 s_83)" "(void)" "(let-values()" -" (raise-argument-error 'syntax-introducer \"syntax?\" s_7)))" +" (raise-argument-error 'syntax-introducer \"syntax?\" s_83)))" "(let-values(((tmp_32) mode_13))" "(if(equal? tmp_32 'add)" -"(let-values()(add-scope s_7 sc_32))" +"(let-values()(add-scope s_83 sc_32))" "(if(equal? tmp_32 'remove)" -"(let-values()(remove-scope s_7 sc_32))" +"(let-values()(remove-scope s_83 sc_32))" "(if(equal? tmp_32 'flip)" -"(let-values()(flip-scope s_7 sc_32))" +"(let-values()(flip-scope s_83 sc_32))" "(let-values()" "(raise-argument-error" " 'syntax-introducer" " \"(or/c 'add 'remove 'flip)\"" " mode_13))))))))))))))" "(case-lambda" -"((s_77)(core74_0 s_77 #f #f))" -"((s_42 mode71_1)(core74_0 s_42 mode71_1 #t)))))))))))" +"((s_185)(core77_0 s_185 #f #f))" +"((s_186 mode74_1)(core77_0 s_186 mode74_1 #t)))))))))))" "(case-lambda" "(()(begin 'make-syntax-introducer(make-syntax-introducer3_0 #f #f)))" "((as-use-site?1_1)(make-syntax-introducer3_0 as-use-site?1_1 #t)))))" @@ -41097,22 +41168,29 @@ static const char *startup_source = "(let-values(((base-s_0) base-s8_0))" "(let-values(((phase_111)(if phase6_1 phase5_1(1/syntax-local-phase-level))))" "(let-values()" +"(let-values()" +"(let-values()" "(let-values((()" "(begin" "(if(syntax?$1 ext-s_0)" "(void)" "(let-values()" -" (raise-argument-error 'make-syntax-delta-introducer \"syntax?\" ext-s_0)))" +"(raise-argument-error" +" 'make-syntax-delta-introducer" +" \"syntax?\"" +" ext-s_0)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_287)(syntax?$1 base-s_0)))" -"(if or-part_287 or-part_287(not base-s_0)))" +"(if((lambda(x_14)" +"(let-values(((or-part_175)(not x_14)))" +"(if or-part_175 or-part_175(syntax?$1 x_14))))" +" base-s_0)" "(void)" "(let-values()" "(raise-argument-error" " 'make-syntax-delta-introducer" -" \"(or/c syntax? #f)\"" +" \"(or/c syntax? #f)\"" " base-s_0)))" "(values))))" "(let-values((()" @@ -41128,17 +41206,17 @@ static const char *startup_source = "(let-values(((ext-scs_0)(syntax-scope-set ext-s_0 phase_111)))" "(let-values(((base-scs_0)" "(syntax-scope-set" -"(let-values(((or-part_288) base-s_0))" -"(if or-part_288 or-part_288 empty-syntax))" +"(let-values(((or-part_94) base-s_0))" +"(if or-part_94 or-part_94 empty-syntax))" " phase_111)))" "(let-values(((use-base-scs_0)" "(if(subset? base-scs_0 ext-scs_0)" " base-scs_0" -"(let-values(((or-part_22)" +"(let-values(((or-part_32)" "(if(identifier? base-s_0)" -"(let-values(((base-s76_0) base-s_0)" -"((phase77_0) phase_111)" -"((temp78_3) #t))" +"(let-values(((base-s80_0) base-s_0)" +"((phase81_0) phase_111)" +"((temp82_1) #t))" "(resolve40.1" " #f" " #f" @@ -41146,41 +41224,43 @@ static const char *startup_source = " #f" " #f" " #f" -" temp78_3" +" temp82_1" " #t" -" base-s76_0" -" phase77_0))" +" base-s80_0" +" phase81_0))" " #f)))" -"(if or-part_22 or-part_22(seteq))))))" +"(if or-part_32 or-part_32(seteq))))))" "(let-values(((delta-scs_0)" "(set->list(set-subtract ext-scs_0 use-base-scs_0))))" "(let-values(((maybe-taint_0)" "(if(syntax-clean? ext-s_0) values syntax-taint$1)))" -"(let-values(((core82_0)" -"(lambda(s81_0 mode79_0 mode80_0)" +"(let-values(((core86_0)" +"(lambda(s85_0 mode83_0 mode84_0)" "(begin" -" 'core82" -"(let-values(((s_409) s81_0))" -"(let-values(((mode_14)(if mode80_0 mode79_0 'add)))" +" 'core86" +"(let-values(((s_412) s85_0))" +"(let-values(((mode_14)" +"(if mode84_0 mode83_0 'add)))" "(let-values()" "(maybe-taint_0" "(let-values(((tmp_33) mode_14))" "(if(equal? tmp_33 'add)" -"(let-values()(add-scopes s_409 delta-scs_0))" +"(let-values()" +"(add-scopes s_412 delta-scs_0))" "(if(equal? tmp_33 'remove)" "(let-values()" -"(remove-scopes s_409 delta-scs_0))" +"(remove-scopes s_412 delta-scs_0))" "(if(equal? tmp_33 'flip)" "(let-values()" -"(flip-scopes s_409 delta-scs_0))" +"(flip-scopes s_412 delta-scs_0))" "(let-values()" "(raise-argument-error" " 'syntax-introducer" -" \"(or/c 'add 'remove 'flip)\"" +" \"(or/c 'add 'remove 'flip)\"" " mode_14))))))))))))))" "(case-lambda" -"((s_13)(core82_0 s_13 #f #f))" -"((s_14 mode79_1)(core82_0 s_14 mode79_1 #t))))))))))))))))))))" +"((s_15)(core86_0 s_15 #f #f))" +"((s_413 mode83_1)(core86_0 s_413 mode83_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_2)(make-syntax-delta-introducer9_0 ext-s_2 base-s_2 phase5_2 #t)))))" @@ -41189,20 +41269,22 @@ static const char *startup_source = "(lambda(id-stx_1)" "(begin" " 'syntax-local-make-delta-introducer" +"(let-values()" +"(let-values()" "(begin" "(if(identifier? id-stx_1)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-make-delta-introducer \"identifier?\" id-stx_1)))" +" (let-values () (raise-argument-error 'syntax-local-make-delta-introducer \"identifier?\" id-stx_1)))" "(raise" "(exn:fail:unsupported" -" \"syntax-local-make-delta-introducer: not supported anymore\"" -"(current-continuation-marks)))))))" +" \"syntax-local-make-delta-introducer: not supported anymore\"" +"(current-continuation-marks)))))))))" "(define-values" "(do-syntax-local-value17.1)" "(lambda(immediate?11_0 who13_0 id14_1 intdef15_0 failure-thunk16_0)" "(begin" " 'do-syntax-local-value17" -"(let-values(((who_15) who13_0))" +"(let-values(((who_16) who13_0))" "(let-values(((id_77) id14_1))" "(let-values(((intdef_11) intdef15_0))" "(let-values(((failure-thunk_0) failure-thunk16_0))" @@ -41212,86 +41294,90 @@ static const char *startup_source = "(begin" "(if(identifier? id_77)" "(void)" -" (let-values () (raise-argument-error who_15 \"identifier?\" id_77)))" +" (let-values () (raise-argument-error who_16 \"identifier?\" id_77)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_289)(not failure-thunk_0)))" -"(if or-part_289" -" or-part_289" -"(if(procedure? failure-thunk_0)" -"(procedure-arity-includes? failure-thunk_0 0)" -" #f)))" +"(if((lambda(x_78)" +"(let-values(((or-part_220)(not x_78)))" +"(if or-part_220" +" or-part_220" +"((lambda(p_50)" +"(if(procedure? p_50)(procedure-arity-includes? p_50 0) #f))" +" x_78))))" +" failure-thunk_0)" "(void)" "(let-values()" "(raise-argument-error" -" who_15" -" \"(or #f (procedure-arity-includes/c 0))\"" +" who_16" +" \"(or/c #f (procedure-arity-includes/c 0))\"" " failure-thunk_0)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_290)(not intdef_11)))" -"(if or-part_290 or-part_290(1/internal-definition-context? intdef_11)))" +"(if((lambda(x_21)" +"(let-values(((or-part_221)(not x_21)))" +"(if or-part_221 or-part_221(1/internal-definition-context? x_21))))" +" intdef_11)" "(void)" "(let-values()" "(raise-argument-error" -" who_15" -" \"(or #f internal-definition-context?)\"" -" failure-thunk_0)))" +" who_16" +" \"(or/c #f internal-definition-context?)\"" +" intdef_11)))" "(values))))" "(let-values(((current-ctx_0)" -"(let-values(((who84_1) who_15))" -"(get-current-expand-context17.1 #f #f who84_1 #t))))" -"(let-values(((ctx_54)" +"(let-values(((who89_0) who_16))" +"(get-current-expand-context17.1 #f #f who89_0 #t))))" +"(let-values(((ctx_55)" "(if intdef_11" -"(let-values(((v_48) current-ctx_0))" -"(let-values(((the-struct_68) v_48))" -"(if(expand-context/outer? the-struct_68)" -"(let-values(((env85_0)" +"(let-values(((v_187) current-ctx_0))" +"(let-values(((the-struct_66) v_187))" +"(if(expand-context/outer? the-struct_66)" +"(let-values(((env90_0)" "(add-intdef-bindings" "(expand-context-env current-ctx_0)" " intdef_11))" -"((inner86_0)(root-expand-context/outer-inner v_48)))" +"((inner91_0)(root-expand-context/outer-inner v_187)))" "(expand-context/outer1.1" -" inner86_0" -"(root-expand-context/outer-post-expansion-scope the-struct_68)" -"(root-expand-context/outer-use-site-scopes the-struct_68)" -"(root-expand-context/outer-frame-id the-struct_68)" -"(expand-context/outer-context the-struct_68)" -" env85_0" -"(expand-context/outer-post-expansion-scope-action the-struct_68)" -"(expand-context/outer-scopes the-struct_68)" -"(expand-context/outer-def-ctx-scopes the-struct_68)" -"(expand-context/outer-binding-layer the-struct_68)" -"(expand-context/outer-reference-records the-struct_68)" -"(expand-context/outer-only-immediate? the-struct_68)" -"(expand-context/outer-need-eventually-defined the-struct_68)" -"(expand-context/outer-current-introduction-scopes the-struct_68)" -"(expand-context/outer-name the-struct_68)))" +" inner91_0" +"(root-expand-context/outer-post-expansion-scope the-struct_66)" +"(root-expand-context/outer-use-site-scopes the-struct_66)" +"(root-expand-context/outer-frame-id the-struct_66)" +"(expand-context/outer-context the-struct_66)" +" env90_0" +"(expand-context/outer-post-expansion-scope-action the-struct_66)" +"(expand-context/outer-scopes the-struct_66)" +"(expand-context/outer-def-ctx-scopes the-struct_66)" +"(expand-context/outer-binding-layer the-struct_66)" +"(expand-context/outer-reference-records the-struct_66)" +"(expand-context/outer-only-immediate? the-struct_66)" +"(expand-context/outer-need-eventually-defined the-struct_66)" +"(expand-context/outer-current-introduction-scopes the-struct_66)" +"(expand-context/outer-name the-struct_66)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_68))))" +" the-struct_66))))" " current-ctx_0)))" "(let-values((()" "(begin" -"(let-values(((obs_33)(expand-context-observer ctx_54)))" +"(let-values(((obs_33)(expand-context-observer ctx_55)))" "(if obs_33" "(let-values()" "(let-values()(call-expand-observe obs_33 'local-value id_77)))" "(void)))" "(values))))" -"(let-values(((phase_112)(expand-context-phase ctx_54)))" +"(let-values(((phase_112)(expand-context-phase ctx_55)))" "((letrec-values(((loop_96)" "(lambda(id_78)" "(begin" " 'loop" -"(let-values(((b_12)" +"(let-values(((b_77)" "(if immediate?_1" -"(let-values(((id87_0) id_78)" -"((phase88_0) phase_112)" -"((temp89_2) #t))" +"(let-values(((id92_1) id_78)" +"((phase93_0) phase_112)" +"((temp94_2) #t))" "(resolve+shift30.1" " #f" " #f" @@ -41299,28 +41385,59 @@ static const char *startup_source = " #f" " #f" " #f" -" temp89_2" +" temp94_2" " #t" " #f" " #f" -" id87_0" -" phase88_0))" +" id92_1" +" phase93_0))" "(resolve+shift/extra-inspector" " id_78" " phase_112" -"(expand-context-namespace ctx_54)))))" +"(expand-context-namespace ctx_55)))))" "(begin" -"(let-values(((obs_34)(expand-context-observer ctx_54)))" +"(let-values(((obs_8)(expand-context-observer ctx_55)))" +"(if obs_8" +"(let-values()" +"(let-values()" +"(call-expand-observe obs_8 'resolve id_78)))" +"(void)))" +"(if(not b_77)" +"(let-values()" +"(begin" +"(let-values(((obs_34)" +"(expand-context-observer ctx_55)))" "(if obs_34" "(let-values()" "(let-values()" -"(call-expand-observe obs_34 'resolve id_78)))" +"(call-expand-observe" +" obs_34" +" 'local-value-result" +" #f)))" "(void)))" -"(if(not b_12)" +"(if failure-thunk_0" +"(failure-thunk_0)" +" (error who_16 \"unbound identifier: ~v\" id_78))))" +"(let-values()" +"(let-values(((v_37 primitive?_7 insp_17 protected?_8)" +"(let-values(((b95_0) b_77)" +"((ctx96_0) ctx_55)" +"((id97_0) id_78)" +"((temp98_2) #t))" +"(lookup17.1" +" #f" +" #f" +" temp98_2" +" #t" +" b95_0" +" ctx96_0" +" id97_0))))" +"(if(let-values(((or-part_288)(variable? v_37)))" +"(if or-part_288 or-part_288(core-form? v_37)))" "(let-values()" "(begin" "(let-values(((obs_35)" -"(expand-context-observer ctx_54)))" +"(expand-context-observer ctx_55)))" "(if obs_35" "(let-values()" "(let-values()" @@ -41332,73 +41449,39 @@ static const char *startup_source = "(if failure-thunk_0" "(failure-thunk_0)" "(error" -" 'syntax-local-value" -" \"unbound identifier: ~v\"" -" id_78))))" -"(let-values()" -"(let-values(((v_188 primitive?_7 insp_17 protected?_8)" -"(let-values(((b90_0) b_12)" -"((ctx91_1) ctx_54)" -"((id92_1) id_78)" -"((temp93_3) #t))" -"(lookup17.1" -" #f" -" #f" -" temp93_3" -" #t" -" b90_0" -" ctx91_1" -" id92_1))))" -"(if(let-values(((or-part_223)(variable? v_188)))" -"(if or-part_223 or-part_223(core-form? v_188)))" -"(let-values()" -"(begin" -"(let-values(((obs_36)" -"(expand-context-observer ctx_54)))" -"(if obs_36" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_36" -" 'local-value-result" -" #f)))" -"(void)))" -"(if failure-thunk_0" -"(failure-thunk_0)" -"(error" -" 'syntax-local-value" +" who_16" " \"identifier is not bound to syntax: ~v\"" " id_78))))" "(let-values()" "(begin" -"(let-values(((obs_37)" -"(expand-context-observer ctx_54)))" -"(if obs_37" +"(let-values(((obs_36)" +"(expand-context-observer ctx_55)))" +"(if obs_36" "(let-values()" "(if(not" -"(if(1/rename-transformer? v_188)" +"(if(1/rename-transformer? v_37)" "(not immediate?_1)" " #f))" "(let-values()" "(call-expand-observe" -" obs_37" +" obs_36" " 'local-value-result" " #t))" "(void)))" "(void)))" -"(if(1/rename-transformer? v_188)" +"(if(1/rename-transformer? v_37)" "(let-values()" "(if immediate?_1" "(values" -" v_188" -"(1/rename-transformer-target v_188))" +" v_37" +"(1/rename-transformer-target v_37))" "(loop_96" -"(1/rename-transformer-target v_188))))" +"(1/rename-transformer-target v_37))))" "(if immediate?_1" -"(let-values()(values v_188 #f))" -"(let-values() v_188)))))))))))))))" +"(let-values()(values v_37 #f))" +"(let-values() v_37)))))))))))))))" " loop_96)" -"(flip-introduction-scopes id_77 ctx_54))))))))))))))))))" +"(flip-introduction-scopes id_77 ctx_55))))))))))))))))))" "(define-values" "(1/syntax-local-value)" "(let-values(((syntax-local-value25_0)" @@ -41409,12 +41492,17 @@ static const char *startup_source = "(let-values(((failure-thunk_1)(if failure-thunk22_0 failure-thunk20_0 #f)))" "(let-values(((intdef_12)(if intdef23_0 intdef21_0 #f)))" "(let-values()" -"(let-values(((temp94_2) 'syntax-local-value)" -"((temp95_1) #f)" -"((id96_0) id_79)" -"((intdef97_0) intdef_12)" -"((failure-thunk98_0) failure-thunk_1))" -"(do-syntax-local-value17.1 temp95_1 temp94_2 id96_0 intdef97_0 failure-thunk98_0))))))))))" +"(let-values(((temp99_1) 'syntax-local-value)" +"((temp100_0) #f)" +"((id101_1) id_79)" +"((intdef102_0) intdef_12)" +"((failure-thunk103_0) failure-thunk_1))" +"(do-syntax-local-value17.1" +" temp100_0" +" temp99_1" +" id101_1" +" intdef102_0" +" failure-thunk103_0))))))))))" "(case-lambda" "((id_80)(begin 'syntax-local-value(syntax-local-value25_0 id_80 #f #f #f #f)))" "((id_81 failure-thunk_2 intdef21_1)(syntax-local-value25_0 id_81 failure-thunk_2 intdef21_1 #t #t))" @@ -41429,58 +41517,58 @@ static const char *startup_source = "(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_83)" -"((intdef102_0) intdef_13)" -"((failure-thunk103_0) failure-thunk_3))" +"(let-values(((temp104_0) 'syntax-local-value/immediate)" +"((temp105_0) #t)" +"((id106_0) id_83)" +"((intdef107_0) intdef_13)" +"((failure-thunk108_0) failure-thunk_3))" "(do-syntax-local-value17.1" -" temp100_0" -" temp99_1" -" id101_1" -" intdef102_0" -" failure-thunk103_0))))))))))" +" temp105_0" +" temp104_0" +" id106_0" +" intdef107_0" +" failure-thunk108_0))))))))))" "(case-lambda" "((id_84)(begin 'syntax-local-value/immediate(syntax-local-value/immediate32_0 id_84 #f #f #f #f)))" "((id_85 failure-thunk_4 intdef28_1)(syntax-local-value/immediate32_0 id_85 failure-thunk_4 intdef28_1 #t #t))" "((id_86 failure-thunk27_1)(syntax-local-value/immediate32_0 id_86 failure-thunk27_1 #f #t #f)))))" "(define-values" "(do-lift-values-expression)" -"(lambda(who_16 n_28 s_55)" +"(lambda(who_17 n_28 s_198)" "(begin" "(let-values((()" "(begin" -" (if (syntax?$1 s_55) (void) (let-values () (raise-argument-error who_16 \"syntax?\" s_55)))" +" (if (syntax?$1 s_198) (void) (let-values () (raise-argument-error who_17 \"syntax?\" s_198)))" "(values))))" "(let-values((()" "(begin" "(if(exact-nonnegative-integer? n_28)" "(void)" -" (let-values () (raise-argument-error who_16 \"exact-nonnegative-integer?\" n_28)))" +" (let-values () (raise-argument-error who_17 \"exact-nonnegative-integer?\" n_28)))" "(values))))" -"(let-values(((ctx_55)(let-values(((who104_0) who_16))(get-current-expand-context17.1 #f #f who104_0 #t))))" -"(let-values(((lifts_8)(expand-context-lifts ctx_55)))" +"(let-values(((ctx_56)(let-values(((who109_0) who_17))(get-current-expand-context17.1 #f #f who109_0 #t))))" +"(let-values(((lifts_0)(expand-context-lifts ctx_56)))" "(let-values((()" "(begin" -" (if lifts_8 (void) (let-values () (raise-arguments-error who_16 \"no lift target\")))" +" (if lifts_0 (void) (let-values () (raise-arguments-error who_17 \"no lift target\")))" "(values))))" -"(let-values(((counter_4)(root-expand-context-counter ctx_55)))" +"(let-values(((counter_4)(root-expand-context-counter ctx_56)))" "(let-values(((ids_26)" "(reverse$1" -"(let-values(((start_9) 0)((end_6) n_28)((inc_24) 1))" +"(let-values(((start_40) 0)((end_30) n_28)((inc_24) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-range start_9 end_6 inc_24)))" -"((letrec-values(((for-loop_261)" -"(lambda(fold-var_254 pos_105)" +"(let-values()(check-range start_40 end_30 inc_24)))" +"((letrec-values(((for-loop_23)" +"(lambda(fold-var_254 pos_106)" "(begin" " 'for-loop" -"(if(< pos_105 end_6)" +"(if(< pos_106 end_30)" "(let-values()" -"(let-values(((fold-var_187)" -"(let-values(((fold-var_255) fold-var_254))" -"(let-values(((fold-var_256)" +"(let-values(((fold-var_255)" +"(let-values(((fold-var_256) fold-var_254))" +"(let-values(((fold-var_257)" "(let-values()" "(cons" "(let-values()" @@ -41492,7 +41580,7 @@ static const char *startup_source = "(unbox" " counter_4)))" "(values))))" -"(let-values(((name_23)" +"(let-values(((name_25)" "(string->unreadable-symbol" "(format" " \"lifted/~a\"" @@ -41501,85 +41589,91 @@ static const char *startup_source = "(add-scope" "(datum->syntax$1" " #f" -" name_23)" +" name_25)" "(new-scope" " 'macro)))))" -" fold-var_255))))" -"(values fold-var_256)))))" +" fold-var_256))))" +"(values fold-var_257)))))" "(if(not #f)" -"(for-loop_261 fold-var_187(+ pos_105 inc_24))" -" fold-var_187)))" +"(for-loop_23 fold-var_255(+ pos_106 inc_24))" +" fold-var_255)))" " fold-var_254)))))" -" for-loop_261)" +" for-loop_23)" " null" -" start_9))))))" +" start_40))))))" "(begin" -"(let-values(((obs_38)(expand-context-observer ctx_55)))" -"(if obs_38" -"(let-values()(let-values()(call-expand-observe obs_38 'lift-expr ids_26 s_55)))" +"(let-values(((obs_37)(expand-context-observer ctx_56)))" +"(if obs_37" +"(let-values()(let-values()(call-expand-observe obs_37 'lift-expr ids_26 s_198)))" "(void)))" "(map2" -"(lambda(id_87)(flip-introduction-scopes id_87 ctx_55))" +"(lambda(id_87)(flip-introduction-scopes id_87 ctx_56))" "(add-lifted!" -" lifts_8" +" lifts_0" " ids_26" -"(flip-introduction-scopes s_55 ctx_55)" -"(expand-context-phase ctx_55))))))))))))))" +"(flip-introduction-scopes s_198 ctx_56)" +"(expand-context-phase ctx_56))))))))))))))" "(define-values" "(1/syntax-local-lift-expression)" -"(lambda(s_197)" -"(begin 'syntax-local-lift-expression(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_197)))))" +"(lambda(s_414)" +"(begin" +" 'syntax-local-lift-expression" +"(let-values()(let-values()(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_414)))))))" "(define-values" "(1/syntax-local-lift-values-expression)" -"(lambda(n_29 s_410)" +"(lambda(n_29 s_61)" "(begin" " 'syntax-local-lift-values-expression" -"(do-lift-values-expression 'syntax-local-lift-values-expression n_29 s_410))))" +"(let-values()(let-values()(do-lift-values-expression 'syntax-local-lift-values-expression n_29 s_61))))))" "(define-values" "(1/syntax-local-lift-context)" "(lambda()" "(begin" " 'syntax-local-lift-context" -"(let-values(((ctx_56)" -"(let-values(((temp105_0) 'syntax-local-lift-context))" -"(get-current-expand-context17.1 #f #f temp105_0 #t))))" -"(root-expand-context-lift-key ctx_56)))))" +"(let-values()" +"(let-values()" +"(let-values(((ctx_57)" +"(let-values(((who113_0) 'syntax-local-lift-context))" +"(get-current-expand-context17.1 #f #f who113_0 #t))))" +"(root-expand-context-lift-key ctx_57)))))))" "(define-values" "(1/syntax-local-lift-module)" -"(lambda(s_60)" +"(lambda(s_415)" "(begin" " 'syntax-local-lift-module" +"(let-values()" +"(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_60)" +"(if(syntax?$1 s_415)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-lift-module \"syntax?\" s_60)))" +" (let-values () (raise-argument-error 'syntax-local-lift-module \"syntax?\" s_415)))" "(values))))" -"(let-values(((ctx_57)" -"(let-values(((temp106_1) 'syntax-local-lift-module))" -"(get-current-expand-context17.1 #f #f temp106_1 #t))))" -"(let-values(((phase_113)(expand-context-phase ctx_57)))" +"(let-values(((ctx_58)" +"(let-values(((who115_0) 'syntax-local-lift-module))" +"(get-current-expand-context17.1 #f #f who115_0 #t))))" +"(let-values(((phase_113)(expand-context-phase ctx_58)))" "(begin" -"(let-values(((tmp_34)(core-form-sym s_60 phase_113)))" +"(let-values(((tmp_34)(core-form-sym s_415 phase_113)))" "(if(if(equal? tmp_34 'module) #t(equal? tmp_34 'module*))" "(let-values()" -"(let-values(((lifts_9)(expand-context-module-lifts ctx_57)))" +"(let-values(((lifts_8)(expand-context-module-lifts ctx_58)))" "(begin" -"(if lifts_9" +"(if lifts_8" "(void)" "(let-values()" "(raise-arguments-error" " 'syntax-local-lift-module" -" \"not currently transforming within a module declaration or top level\"" -" \"form to lift\"" -" s_60)))" -"(add-lifted-module! lifts_9(flip-introduction-scopes s_60 ctx_57) phase_113))))" +" \"not currently transforming within a module declaration or top level\"" +" \"form to lift\"" +" s_415)))" +"(add-lifted-module! lifts_8(flip-introduction-scopes s_415 ctx_58) phase_113))))" "(let-values()" -" (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_60))))" -"(let-values(((obs_39)(expand-context-observer ctx_57)))" -"(if obs_39" -"(let-values()(let-values()(call-expand-observe obs_39 'lift-statement s_60)))" -"(void))))))))))" +" (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_415))))" +"(let-values(((obs_38)(expand-context-observer ctx_58)))" +"(if obs_38" +"(let-values()(let-values()(call-expand-observe obs_38 'lift-statement s_415)))" +"(void))))))))))))" "(define-values" "(do-local-lift-to-module54.1)" "(lambda(add-lifted!38_0" @@ -41600,8 +41694,8 @@ static const char *startup_source = " s53_1)" "(begin" " 'do-local-lift-to-module54" -"(let-values(((who_17) who52_0))" -"(let-values(((s_398) s53_1))" +"(let-values(((who_18) who52_0))" +"(let-values(((s_416) 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)))" @@ -41611,229 +41705,243 @@ static const char *startup_source = "(let-values(((pre-wrap_0)" "(if pre-wrap49_0" " pre-wrap40_0" -"(lambda(s_411 phase_114 lift-ctx_1)(begin 'pre-wrap s_411)))))" +"(lambda(s_211 phase_114 lift-ctx_1)(begin 'pre-wrap s_211)))))" "(let-values(((shift-wrap_0)" "(if shift-wrap50_0" " shift-wrap41_0" -"(lambda(s_204 phase_115 lift-ctx_2)(begin 'shift-wrap s_204)))))" +"(lambda(s_417 phase_115 lift-ctx_2)(begin 'shift-wrap s_417)))))" "(let-values(((post-wrap_0)" "(if post-wrap51_0" " post-wrap42_0" -"(lambda(s_205 phase_116 lift-ctx_3)(begin 'post-wrap s_205)))))" +"(lambda(s_325 phase_116 lift-ctx_3)(begin 'post-wrap s_325)))))" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_398)" +"(if(syntax?$1 s_416)" "(void)" -" (let-values () (raise-argument-error who_17 \"syntax?\" s_398)))" +" (let-values () (raise-argument-error who_18 \"syntax?\" s_416)))" "(values))))" "(let-values((()(begin(more-checks_0)(values))))" -"(let-values(((ctx_58)" -"(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_58)))" +"(let-values(((ctx_59)" +"(let-values(((who116_0) who_18))" +"(get-current-expand-context17.1 #f #f who116_0 #t))))" +"(let-values(((lift-ctx_4)(get-lift-ctx_0 ctx_59)))" "(let-values((()" "(begin" "(if lift-ctx_4" "(void)" "(let-values()" "(raise-arguments-error" -" who_17" +" who_18" " no-target-msg_0" " \"form to lift\"" -" s_398)))" +" s_416)))" "(values))))" -"(let-values(((phase_117)(expand-context-phase ctx_58)))" +"(let-values(((phase_117)(expand-context-phase ctx_59)))" "(let-values(((wrt-phase_1)(get-wrt-phase_0 lift-ctx_4)))" "(let-values(((added-s_0)" -"(if intro?_0(flip-introduction-scopes s_398 ctx_58) s_398)))" +"(if intro?_0(flip-introduction-scopes s_416 ctx_59) s_416)))" "(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_117 lift-ctx_4)))" "(let-values(((shift-s_0)" -"(let-values(((start_40) phase_117)" -"((end_30) wrt-phase_1)" +"(let-values(((start_41) phase_117)" +"((end_31) wrt-phase_1)" "((inc_25) -1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-range start_40 end_30 inc_25)))" -"((letrec-values(((for-loop_34)" -"(lambda(s_149 pos_106)" +"(check-range start_41 end_31 inc_25)))" +"((letrec-values(((for-loop_204)" +"(lambda(s_99 pos_24)" "(begin" " 'for-loop" -"(if(> pos_106 end_30)" -"(let-values(((phase_118)" -" pos_106))" -"(let-values(((s_412)" -"(let-values(((s_413)" -" s_149))" -"(let-values(((s_209)" +"(if(> pos_24 end_31)" +"(let-values(((phase_53)" +" pos_24))" +"(let-values(((s_418)" +"(let-values(((s_419)" +" s_99))" +"(let-values(((s_420)" "(let-values()" "(shift-wrap_0" -" s_413" +" s_419" "(sub1" -" phase_118)" +" phase_53)" " lift-ctx_4))))" "(values" -" s_209)))))" +" s_420)))))" "(if(not #f)" -"(for-loop_34" -" s_412" -"(+ pos_106 inc_25))" -" s_412)))" -" s_149)))))" -" for-loop_34)" +"(for-loop_204" +" s_418" +"(+ pos_24 inc_25))" +" s_418)))" +" s_99)))))" +" for-loop_204)" " pre-s_0" -" start_40)))))" +" 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_58 post-s_1))))))))))))))))))))))))))))" +"(values ctx_59 post-s_1))))))))))))))))))))))))))))" "(define-values" "(1/syntax-local-lift-require)" -"(lambda(s_151 use-s_1)" +"(lambda(s_111 use-s_1)" "(begin" " 'syntax-local-lift-require" +"(let-values()" +"(let-values()" "(let-values(((sc_33)(new-scope 'macro)))" -"(let-values(((ctx_32 added-s_1)" -"(let-values(((temp108_0) 'syntax-local-lift-require)" -"((temp109_0)(datum->syntax$1 #f s_151))" -" ((temp110_1) \"could not find target context\")" -"((temp111_1) #f)" -"((temp112_0)" +"(let-values(((ctx_4 added-s_1)" +"(let-values(((who118_0) 'syntax-local-lift-require)" +"((temp119_1)(datum->syntax$1 #f s_111))" +" ((temp120_1) \"could not find target context\")" +"((temp121_1) #f)" +"((temp122_1)" "(lambda()" "(if(syntax?$1 use-s_1)" "(void)" "(let-values()" -" (raise-argument-error 'syntax-local-lift-require \"syntax?\" use-s_1)))))" -"((expand-context-require-lifts113_0) expand-context-require-lifts)" -"((require-lift-context-wrt-phase114_0) require-lift-context-wrt-phase)" -"((add-lifted-require!115_0) add-lifted-require!)" -"((temp116_0)" -"(lambda(s_108 phase_119 require-lift-ctx_0)(require-spec-shift-for-syntax s_108)))" -"((temp117_0)" -"(lambda(s_299 phase_120 require-lift-ctx_1)" -"(wrap-form '#%require(add-scope s_299 sc_33) phase_120))))" +" (raise-argument-error 'syntax-local-lift-require \"syntax?\" use-s_1)))))" +"((expand-context-require-lifts123_0) expand-context-require-lifts)" +"((require-lift-context-wrt-phase124_0) require-lift-context-wrt-phase)" +"((add-lifted-require!125_0) add-lifted-require!)" +"((temp126_1)" +"(lambda(s_421 phase_118 require-lift-ctx_0)" +"(require-spec-shift-for-syntax s_421)))" +"((temp127_0)" +"(lambda(s_117 phase_119 require-lift-ctx_1)" +"(wrap-form '#%require(add-scope s_117 sc_33) phase_119))))" "(do-local-lift-to-module54.1" -" add-lifted-require!115_0" -" expand-context-require-lifts113_0" -" require-lift-context-wrt-phase114_0" -" temp111_1" +" add-lifted-require!125_0" +" expand-context-require-lifts123_0" +" require-lift-context-wrt-phase124_0" +" temp121_1" " #t" -" temp112_0" +" temp122_1" " #t" -" temp110_1" -" temp117_0" +" temp120_1" +" temp127_0" " #t" " #f" " #f" -" temp116_0" +" temp126_1" " #t" -" temp108_0" -" temp109_0))))" +" who118_0" +" temp119_1))))" "(let-values((()" "(begin" "(namespace-visit-available-modules!" -"(expand-context-namespace ctx_32)" -"(expand-context-phase ctx_32))" +"(expand-context-namespace ctx_4)" +"(expand-context-phase ctx_4))" "(values))))" "(let-values(((result-s_6)(add-scope use-s_1 sc_33)))" "(begin" -"(let-values(((obs_40)(expand-context-observer ctx_32)))" -"(if obs_40" +"(let-values(((obs_39)(expand-context-observer ctx_4)))" +"(if obs_39" "(let-values()" -"(let-values()(call-expand-observe obs_40 'lift-require added-s_1 use-s_1 result-s_6)))" +"(let-values()(call-expand-observe obs_39 'lift-require added-s_1 use-s_1 result-s_6)))" "(void)))" -" result-s_6))))))))" +" result-s_6))))))))))" "(define-values" "(1/syntax-local-lift-provide)" -"(lambda(s_414)" +"(lambda(s_118)" "(begin" " 'syntax-local-lift-provide" -"(let-values(((ctx_59 result-s_7)" -"(let-values(((temp118_0) 'syntax-local-lift-provide)" -"((s119_0) s_414)" -" ((temp120_1) \"not expanding in a module run-time body\")" -"((expand-context-to-module-lifts121_0) expand-context-to-module-lifts)" -"((to-module-lift-context-wrt-phase122_0) to-module-lift-context-wrt-phase)" -"((add-lifted-to-module-provide!123_0) add-lifted-to-module-provide!)" -"((temp124_2)" -"(lambda(s_415 phase_121 to-module-lift-ctx_0)(wrap-form 'for-syntax s_415 #f)))" -"((temp125_0)" -"(lambda(s_113 phase_122 to-module-lift-ctx_1)" -"(wrap-form '#%provide s_113 phase_122))))" +"(let-values()" +"(let-values()" +"(let-values(((ctx_60 result-s_7)" +"(let-values(((who129_0) 'syntax-local-lift-provide)" +"((s130_0) s_118)" +" ((temp131_0) \"not expanding in a module run-time body\")" +"((expand-context-to-module-lifts132_0) expand-context-to-module-lifts)" +"((to-module-lift-context-wrt-phase133_0) to-module-lift-context-wrt-phase)" +"((add-lifted-to-module-provide!134_0) add-lifted-to-module-provide!)" +"((temp135_0)" +"(lambda(s_422 phase_120 to-module-lift-ctx_0)(wrap-form 'for-syntax s_422 #f)))" +"((temp136_0)" +"(lambda(s_423 phase_121 to-module-lift-ctx_1)" +"(wrap-form '#%provide s_423 phase_121))))" "(do-local-lift-to-module54.1" -" add-lifted-to-module-provide!123_0" -" expand-context-to-module-lifts121_0" -" to-module-lift-context-wrt-phase122_0" +" add-lifted-to-module-provide!134_0" +" expand-context-to-module-lifts132_0" +" to-module-lift-context-wrt-phase133_0" " #f" " #f" " #f" " #f" -" temp120_1" -" temp125_0" +" temp131_0" +" temp136_0" " #t" " #f" " #f" -" temp124_2" +" temp135_0" " #t" -" temp118_0" -" s119_0))))" -"(let-values(((obs_41)(expand-context-observer ctx_59)))" -"(if obs_41(let-values()(let-values()(call-expand-observe obs_41 'lift-provide result-s_7)))(void)))))))" +" who129_0" +" s130_0))))" +"(let-values(((obs_40)(expand-context-observer ctx_60)))" +"(if obs_40" +"(let-values()(let-values()(call-expand-observe obs_40 'lift-provide result-s_7)))" +"(void)))))))))" "(define-values" "(1/syntax-local-lift-module-end-declaration)" -"(lambda(s_416)" +"(lambda(s_424)" "(begin" " 'syntax-local-lift-module-end-declaration" -"(let-values(((ctx_60 also-s_0)" -"(let-values(((temp126_1) 'syntax-local-lift-module-end-declaration)" -"((s127_0) s_416)" -" ((temp128_1) \"not currently transforming an expression within a module declaration\")" -"((expand-context-to-module-lifts129_0) expand-context-to-module-lifts)" -"((temp130_1)(lambda(lift-ctx_5) 0))" -"((add-lifted-to-module-end!131_0) add-lifted-to-module-end!)" -"((temp132_0)" -"(lambda(orig-s_32 phase_123 to-module-lift-ctx_2)" +"(let-values()" +"(let-values()" +"(let-values(((ctx_61 also-s_0)" +"(let-values(((who138_0) 'syntax-local-lift-module-end-declaration)" +"((s139_0) s_424)" +"((temp140_1)" +" \"not currently transforming an expression within a module declaration\")" +"((expand-context-to-module-lifts141_0) expand-context-to-module-lifts)" +"((temp142_0)(lambda(lift-ctx_5) 0))" +"((add-lifted-to-module-end!143_0) add-lifted-to-module-end!)" +"((temp144_1)" +"(lambda(orig-s_32 phase_122 to-module-lift-ctx_2)" "(if(to-module-lift-context-end-as-expressions? to-module-lift-ctx_2)" -"(wrap-form '#%expression orig-s_32 phase_123)" +"(wrap-form '#%expression orig-s_32 phase_122)" " orig-s_32)))" -"((temp133_0)" -"(lambda(s_417 phase_124 to-module-lift-ctx_3)" -"(wrap-form 'begin-for-syntax s_417 phase_124))))" +"((temp145_1)" +"(lambda(s_225 phase_123 to-module-lift-ctx_3)" +"(wrap-form 'begin-for-syntax s_225 phase_123))))" "(do-local-lift-to-module54.1" -" add-lifted-to-module-end!131_0" -" expand-context-to-module-lifts129_0" -" temp130_1" +" add-lifted-to-module-end!143_0" +" expand-context-to-module-lifts141_0" +" temp142_0" " #f" " #f" " #f" " #f" -" temp128_1" +" temp140_1" " #f" " #f" -" temp132_0" +" temp144_1" " #t" -" temp133_0" +" temp145_1" " #t" -" temp126_1" -" s127_0))))" -"(let-values(((obs_42)(expand-context-observer ctx_60)))" -"(if obs_42(let-values()(let-values()(call-expand-observe obs_42 'lift-statement s_416)))(void)))))))" +" who138_0" +" s139_0))))" +"(let-values(((obs_41)(expand-context-observer ctx_61)))" +"(if obs_41" +"(let-values()(let-values()(call-expand-observe obs_41 'lift-statement s_424)))" +"(void)))))))))" "(define-values" "(wrap-form)" -"(lambda(sym_66 s_418 phase_125)" +"(lambda(sym_66 s_227 phase_124)" "(begin" "(datum->syntax$1" " #f" -"(list(datum->syntax$1(if phase_125(syntax-shift-phase-level$1 core-stx phase_125) #f) sym_66) s_418)))))" +"(list(datum->syntax$1(if phase_124(syntax-shift-phase-level$1 core-stx phase_124) #f) sym_66) s_227)))))" "(define-values" "(1/syntax-local-module-defined-identifiers)" "(lambda()" "(begin" " 'syntax-local-module-defined-identifiers" +"(let-values()" +"(let-values()" "(let-values((()" "(begin" "(if(1/syntax-local-transforming-module-provides?)" @@ -41841,37 +41949,39 @@ static const char *startup_source = "(let-values()" "(raise-arguments-error" " 'syntax-local-module-defined-identifiers" -" \"not currently transforming module provides\")))" +" \"not currently transforming module provides\")))" "(values))))" -"(let-values(((ctx_61)" -"(let-values(((temp134_0) 'syntax-local-module-defined-identifiers))" -"(get-current-expand-context17.1 #f #f temp134_0 #t))))" -"(requireds->phase-ht(extract-module-definitions(expand-context-requires+provides ctx_61))))))))" +"(let-values(((ctx_62)" +"(let-values(((temp147_1) 'syntax-local-module-defined-identifiers))" +"(get-current-expand-context17.1 #f #f temp147_1 #t))))" +"(requireds->phase-ht(extract-module-definitions(expand-context-requires+provides ctx_62))))))))))" "(define-values" "(1/syntax-local-module-required-identifiers)" "(lambda(mod-path_8 phase-level_21)" "(begin" " 'syntax-local-module-required-identifiers" +"(let-values()" +"(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_14)(not mod-path_8)))" -"(if or-part_14 or-part_14(1/module-path? mod-path_8)))" +"(if(let-values(((or-part_197)(not mod-path_8)))" +"(if or-part_197 or-part_197(1/module-path? mod-path_8)))" "(void)" "(let-values()" "(raise-argument-error" " 'syntax-local-module-required-identifiers" -" \"(or/c module-path? #f)\"" +" \"(or/c module-path? #f)\"" " mod-path_8)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_109)(eq? phase-level_21 #t)))" -"(if or-part_109 or-part_109(phase? phase-level_21)))" +"(if(let-values(((or-part_233)(eq? phase-level_21 #t)))" +"(if or-part_233 or-part_233(phase? phase-level_21)))" "(void)" "(let-values()" "(raise-argument-error" " 'syntax-local-module-required-identifiers" -" (format \"(or/c ~a #t)\" phase?-string)" +" (format \"(or/c ~a #t)\" phase?-string)" " phase-level_21)))" "(values))))" "(let-values((()" @@ -41881,17 +41991,17 @@ static const char *startup_source = "(let-values()" "(raise-arguments-error" " 'syntax-local-module-required-identifiers" -" \"not currently transforming module provides\")))" +" \"not currently transforming module provides\")))" "(values))))" -"(let-values(((ctx_62)" -"(let-values(((temp135_0) 'syntax-local-module-required-identifiers))" -"(get-current-expand-context17.1 #f #f temp135_0 #t))))" -"(let-values(((requires+provides_5)(expand-context-requires+provides ctx_62)))" -"(let-values(((mpi_45)(if mod-path_8(module-path->mpi/context mod-path_8 ctx_62) #f)))" +"(let-values(((ctx_63)" +"(let-values(((temp149_0) 'syntax-local-module-required-identifiers))" +"(get-current-expand-context17.1 #f #f temp149_0 #t))))" +"(let-values(((requires+provides_5)(expand-context-requires+provides ctx_63)))" +"(let-values(((mpi_46)(if mod-path_8(module-path->mpi/context mod-path_8 ctx_63) #f)))" "(let-values(((requireds_0)" "(extract-all-module-requires" " requires+provides_5" -" mpi_45" +" mpi_46" "(if(eq? phase-level_21 #t) 'all phase-level_21))))" "(if requireds_0" "(reverse$1" @@ -41900,115 +42010,123 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_141)))" -"((letrec-values(((for-loop_206)" -"(lambda(fold-var_196 i_6)" +"((letrec-values(((for-loop_262)" +"(lambda(fold-var_200 i_169)" "(begin" " 'for-loop" -"(if i_6" -"(let-values(((phase_126 ids_27)" -"(hash-iterate-key+value ht_141 i_6)))" -"(let-values(((fold-var_197)" -"(let-values(((fold-var_198) fold-var_196))" -"(let-values(((fold-var_199)" +"(if i_169" +"(let-values(((phase_125 ids_27)" +"(hash-iterate-key+value ht_141 i_169)))" +"(let-values(((fold-var_258)" +"(let-values(((fold-var_259) fold-var_200))" +"(let-values(((fold-var_260)" "(let-values()" "(cons" "(let-values()" -"(cons phase_126 ids_27))" -" fold-var_198))))" -"(values fold-var_199)))))" +"(cons phase_125 ids_27))" +" fold-var_259))))" +"(values fold-var_260)))))" "(if(not #f)" -"(for-loop_206 fold-var_197(hash-iterate-next ht_141 i_6))" -" fold-var_197)))" -" fold-var_196)))))" -" for-loop_206)" +"(for-loop_262" +" fold-var_258" +"(hash-iterate-next ht_141 i_169))" +" fold-var_258)))" +" fold-var_200)))))" +" for-loop_262)" " null" "(hash-iterate-first ht_141)))))" -" #f)))))))))))" +" #f)))))))))))))" "(define-values" "(requireds->phase-ht)" "(lambda(requireds_1)" "(begin" -"(let-values(((lst_302) requireds_1))" +"(let-values(((lst_301) requireds_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_302)))" -"((letrec-values(((for-loop_262)" -"(lambda(ht_142 lst_213)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_301)))" +"((letrec-values(((for-loop_263)" +"(lambda(ht_142 lst_302)" "(begin" " 'for-loop" -"(if(pair? lst_213)" -"(let-values(((r_42)(unsafe-car lst_213))((rest_108)(unsafe-cdr lst_213)))" +"(if(pair? lst_302)" +"(let-values(((r_43)(unsafe-car lst_302))((rest_166)(unsafe-cdr lst_302)))" "(let-values(((ht_143)" "(let-values(((ht_144) ht_142))" "(let-values(((ht_145)" "(let-values()" "(hash-update" " ht_144" -"(required-phase r_42)" -"(lambda(l_68)(cons(required-id r_42) l_68))" +"(required-phase r_43)" +"(lambda(l_68)(cons(required-id r_43) l_68))" " null))))" "(values ht_145)))))" -"(if(not #f)(for-loop_262 ht_143 rest_108) ht_143)))" +"(if(not #f)(for-loop_263 ht_143 rest_166) ht_143)))" " ht_142)))))" -" for-loop_262)" +" for-loop_263)" "(hasheqv)" -" lst_302))))))" +" lst_301))))))" "(define-values" "(1/syntax-local-module-exports)" "(lambda(mod-path_9)" "(begin" " 'syntax-local-module-exports" +"(let-values()" +"(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_291)(1/module-path? mod-path_9)))" -"(if or-part_291" -" or-part_291" +"(if(let-values(((or-part_289)(1/module-path? mod-path_9)))" +"(if or-part_289" +" or-part_289" "(if(syntax?$1 mod-path_9)(1/module-path?(syntax->datum$1 mod-path_9)) #f)))" "(void)" "(let-values()" "(raise-argument-error" " 'syntax-local-module-exports" "(string-append" -" \"(or/c module-path?\\n\"" -" \" (and/c syntax?\\n\"" -" \" (lambda (stx)\\n\"" -" \" (module-path? (syntax->datum stx)))))\")" +" \"(or/c module-path?\\n\"" +" \" (and/c syntax?\\n\"" +" \" (lambda (stx)\\n\"" +" \" (module-path? (syntax->datum stx)))))\")" " mod-path_9)))" "(values))))" -"(let-values(((ctx_63)" -"(let-values(((temp136_0) 'syntax-local-module-exports))" -"(get-current-expand-context17.1 #f #f temp136_0 #t))))" -"(let-values(((ns_75)(expand-context-namespace ctx_63)))" +"(let-values(((ctx_64)" +"(let-values(((temp151_1) 'syntax-local-module-exports))" +"(get-current-expand-context17.1 #f #f temp151_1 #t))))" +"(let-values(((ns_75)(expand-context-namespace ctx_64)))" "(let-values(((mod-name_18)" "(1/module-path-index-resolve" "(module-path->mpi/context" "(if(syntax?$1 mod-path_9)(syntax->datum$1 mod-path_9) mod-path_9)" -" ctx_63)" +" ctx_64)" " #t)))" "(let-values(((m_19)(namespace->module ns_75 mod-name_18)))" "(begin" -"(if m_19(void)(let-values()(raise-unknown-module-error 'syntax-local-module-exports mod-name_18)))" +"(if m_19" +"(void)" +"(let-values()(raise-unknown-module-error 'syntax-local-module-exports mod-name_18)))" "(reverse$1" "(let-values(((ht_146)(module-provides m_19)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_146)))" -"((letrec-values(((for-loop_263)" -"(lambda(fold-var_257 i_169)" +"((letrec-values(((for-loop_264)" +"(lambda(fold-var_261 i_12)" "(begin" " 'for-loop" -"(if i_169" -"(let-values(((phase_127 syms_22)(hash-iterate-key+value ht_146 i_169)))" -"(let-values(((fold-var_258)" -"(let-values(((fold-var_259) fold-var_257))" -"(let-values(((fold-var_260)" +"(if i_12" +"(let-values(((phase_126 syms_22)" +"(hash-iterate-key+value ht_146 i_12)))" +"(let-values(((fold-var_262)" +"(let-values(((fold-var_263) fold-var_261))" +"(let-values(((fold-var_264)" "(let-values()" "(cons" "(let-values()" "(cons" -" phase_127" +" phase_126" "(reverse$1" -"(let-values(((ht_147) syms_22))" +"(let-values(((ht_147)" +" syms_22))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -42016,88 +42134,90 @@ static const char *startup_source = "(let-values()" "(check-in-hash-keys" " ht_147)))" -"((letrec-values(((for-loop_264)" -"(lambda(fold-var_207" -" i_11)" +"((letrec-values(((for-loop_265)" +"(lambda(fold-var_265" +" i_170)" "(begin" " 'for-loop" -"(if i_11" +"(if i_170" "(let-values(((sym_67)" "(hash-iterate-key" " ht_147" -" i_11)))" -"(let-values(((fold-var_261)" -"(let-values(((fold-var_262)" -" fold-var_207))" -"(let-values(((fold-var_263)" +" i_170)))" +"(let-values(((fold-var_266)" +"(let-values(((fold-var_267)" +" fold-var_265))" +"(let-values(((fold-var_268)" "(let-values()" "(cons" "(let-values()" " sym_67)" -" fold-var_262))))" +" fold-var_267))))" "(values" -" fold-var_263)))))" +" fold-var_268)))))" "(if(not" " #f)" -"(for-loop_264" -" fold-var_261" +"(for-loop_265" +" fold-var_266" "(hash-iterate-next" " ht_147" -" i_11))" -" fold-var_261)))" -" fold-var_207)))))" -" for-loop_264)" +" i_170))" +" fold-var_266)))" +" fold-var_265)))))" +" for-loop_265)" " null" "(hash-iterate-first" " ht_147)))))))" -" fold-var_259))))" -"(values fold-var_260)))))" +" fold-var_263))))" +"(values fold-var_264)))))" "(if(not #f)" -"(for-loop_263 fold-var_258(hash-iterate-next ht_146 i_169))" -" fold-var_258)))" -" fold-var_257)))))" -" for-loop_263)" +"(for-loop_264 fold-var_262(hash-iterate-next ht_146 i_12))" +" fold-var_262)))" +" fold-var_261)))))" +" for-loop_264)" " null" -"(hash-iterate-first ht_146))))))))))))))" +"(hash-iterate-first ht_146))))))))))))))))" "(define-values" "(1/syntax-local-submodules)" "(lambda()" "(begin" " 'syntax-local-submodules" -"(let-values(((ctx_64)" -"(let-values(((temp137_0) 'syntax-local-submodules))" -"(get-current-expand-context17.1 #f #f temp137_0 #t))))" -"(let-values(((submods_3)(expand-context-declared-submodule-names ctx_64)))" +"(let-values()" +"(let-values()" +"(let-values(((ctx_65)" +"(let-values(((who153_0) 'syntax-local-submodules))" +"(get-current-expand-context17.1 #f #f who153_0 #t))))" +"(let-values(((submods_3)(expand-context-declared-submodule-names ctx_65)))" "(reverse$1" "(let-values(((ht_148) submods_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_148)))" -"((letrec-values(((for-loop_265)" -"(lambda(fold-var_264 i_170)" +"((letrec-values(((for-loop_266)" +"(lambda(fold-var_269 i_171)" "(begin" " 'for-loop" -"(if i_170" -"(let-values(((name_61 kind_7)(hash-iterate-key+value ht_148 i_170)))" -"(let-values(((fold-var_265)" -"(let-values(((fold-var_266) fold-var_264))" +"(if i_171" +"(let-values(((name_61 kind_7)(hash-iterate-key+value ht_148 i_171)))" +"(let-values(((fold-var_270)" +"(let-values(((fold-var_271) fold-var_269))" "(if(eq? kind_7 'module)" -"(let-values(((fold-var_267) fold-var_266))" -"(let-values(((fold-var_268)" +"(let-values(((fold-var_272) fold-var_271))" +"(let-values(((fold-var_273)" "(let-values()" "(cons" "(let-values() name_61)" -" fold-var_267))))" -"(values fold-var_268)))" -" fold-var_266))))" +" fold-var_272))))" +"(values fold-var_273)))" +" fold-var_271))))" "(if(not #f)" -"(for-loop_265 fold-var_265(hash-iterate-next ht_148 i_170))" -" fold-var_265)))" -" fold-var_264)))))" -" for-loop_265)" +"(for-loop_266 fold-var_270(hash-iterate-next ht_148 i_171))" +" fold-var_270)))" +" fold-var_269)))))" +" for-loop_266)" " null" -"(hash-iterate-first ht_148))))))))))" +"(hash-iterate-first ht_148))))))))))))" "(define-values" "(1/syntax-local-get-shadower)" "(let-values(((syntax-local-get-shadower60_0)" @@ -42107,18 +42227,23 @@ static const char *startup_source = "(let-values(((id_88) id59_0))" "(let-values()" "(let-values()" +"(let-values()" +"(let-values()" "(let-values((()" "(begin" "(if(identifier? id_88)" "(void)" "(let-values()" -" (raise-argument-error 'syntax-local-get-shadower \"identifier?\" id_88)))" +"(raise-argument-error" +" 'syntax-local-get-shadower" +" \"identifier?\"" +" id_88)))" "(values))))" -"(let-values(((ctx_65)" -"(let-values(((temp138_0) 'syntax-local-get-shadower))" -"(get-current-expand-context17.1 #f #f temp138_0 #t))))" -"(let-values(((new-id_0)(add-scopes id_88(expand-context-scopes ctx_65))))" -"(if(syntax-clean? id_88) new-id_0(syntax-taint$1 new-id_0))))))))))))" +"(let-values(((ctx_66)" +"(let-values(((who155_0) 'syntax-local-get-shadower))" +"(get-current-expand-context17.1 #f #f who155_0 #t))))" +"(let-values(((new-id_0)(add-scopes id_88(expand-context-scopes ctx_66))))" +"(if(syntax-clean? id_88) new-id_0(syntax-taint$1 new-id_0))))))))))))))" "(case-lambda" "((id_89)(begin 'syntax-local-get-shadower(syntax-local-get-shadower60_0 id_89 #f #f)))" "((id_90 only-generated?57_1)(syntax-local-get-shadower60_0 id_90 only-generated?57_1 #t)))))" @@ -42126,12 +42251,12 @@ static const char *startup_source = "(syntax-source-accessor)" "(lambda(who_0 srcloc-accessor_0)" "(begin" -"(lambda(s_154)" +"(lambda(s_183)" "(let-values((()" "(begin" -" (if (syntax?$1 s_154) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_154)))" +" (if (syntax?$1 s_183) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_183)))" "(values))))" -"(let-values(((srcloc_8)(syntax-srcloc s_154)))(if srcloc_8(srcloc-accessor_0 srcloc_8) #f)))))))" +"(let-values(((srcloc_8)(syntax-srcloc s_183)))(if srcloc_8(srcloc-accessor_0 srcloc_8) #f)))))))" "(define-values(1/syntax-source)(syntax-source-accessor 'syntax-source srcloc-source))" "(define-values(1/syntax-line)(syntax-source-accessor 'syntax-line srcloc-line))" "(define-values(1/syntax-column)(syntax-source-accessor 'syntax-column srcloc-column))" @@ -42147,77 +42272,81 @@ static const char *startup_source = "(srcloc-vector?)" "(lambda(v_66)" "(begin" -"(if(let-values(((or-part_292)(not(vector-ref v_66 1))))" -"(if or-part_292 or-part_292(exact-positive-integer?(vector-ref v_66 1))))" +"(if(let-values(((or-part_290)(not(vector-ref v_66 1))))" +"(if or-part_290 or-part_290(exact-positive-integer?(vector-ref v_66 1))))" "(if(let-values(((or-part_27)(not(vector-ref v_66 2))))" "(if or-part_27 or-part_27(exact-nonnegative-integer?(vector-ref v_66 2))))" "(if(let-values(((or-part_10)(not(vector-ref v_66 3))))" "(if or-part_10 or-part_10(exact-positive-integer?(vector-ref v_66 3))))" -"(let-values(((or-part_161)(not(vector-ref v_66 4))))" -"(if or-part_161 or-part_161(exact-nonnegative-integer?(vector-ref v_66 4))))" +"(let-values(((or-part_162)(not(vector-ref v_66 4))))" +"(if or-part_162 or-part_162(exact-nonnegative-integer?(vector-ref v_66 4))))" " #f)" " #f)" " #f))))" "(define-values" "(to-srcloc-stx)" -"(lambda(v_189)" +"(lambda(v_188)" "(begin" -"(if(srcloc? v_189)" +"(if(srcloc? v_188)" "(let-values()" -"(let-values(((the-struct_69) empty-syntax))" -"(if(syntax?$1 the-struct_69)" -"(let-values(((srcloc1_2) v_189))" +"(let-values(((the-struct_67) empty-syntax))" +"(if(syntax?$1 the-struct_67)" +"(let-values(((srcloc1_2) v_188))" "(syntax1.1" -"(syntax-content the-struct_69)" -"(syntax-scopes the-struct_69)" -"(syntax-shifted-multi-scopes the-struct_69)" -"(syntax-scope-propagations+tamper the-struct_69)" -"(syntax-mpi-shifts the-struct_69)" +"(syntax-content the-struct_67)" +"(syntax-scopes the-struct_67)" +"(syntax-shifted-multi-scopes the-struct_67)" +"(syntax-scope-propagations+tamper the-struct_67)" +"(syntax-mpi-shifts the-struct_67)" " srcloc1_2" -"(syntax-props the-struct_69)" -"(syntax-inspector the-struct_69)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_69))))" -"(if(pair? v_189)" -"(let-values()(to-srcloc-stx(list->vector v_189)))" -"(if(vector? v_189)" +"(syntax-props the-struct_67)" +"(syntax-inspector the-struct_67)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_67))))" +"(if(pair? v_188)" +"(let-values()(to-srcloc-stx(list->vector v_188)))" +"(if(vector? v_188)" "(let-values()" -"(let-values(((the-struct_29) empty-syntax))" -"(if(syntax?$1 the-struct_29)" +"(let-values(((the-struct_68) empty-syntax))" +"(if(syntax?$1 the-struct_68)" "(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_188 0)" +"(vector-ref v_188 1)" +"(vector-ref v_188 2)" +"(vector-ref v_188 3)" +"(vector-ref v_188 4))))" "(syntax1.1" -"(syntax-content the-struct_29)" -"(syntax-scopes the-struct_29)" -"(syntax-shifted-multi-scopes the-struct_29)" -"(syntax-scope-propagations+tamper the-struct_29)" -"(syntax-mpi-shifts the-struct_29)" +"(syntax-content the-struct_68)" +"(syntax-scopes the-struct_68)" +"(syntax-shifted-multi-scopes the-struct_68)" +"(syntax-scope-propagations+tamper the-struct_68)" +"(syntax-mpi-shifts the-struct_68)" " srcloc2_1" -"(syntax-props the-struct_29)" -"(syntax-inspector the-struct_29)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_29))))" -"(let-values() v_189)))))))" +"(syntax-props the-struct_68)" +"(syntax-inspector the-struct_68)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_68))))" +"(let-values() v_188)))))))" "(define-values" "(1/syntax-e)" "(lambda(s_0)" "(begin" " 'syntax-e" +"(let-values()" +"(let-values()" "(begin" -" (if (syntax?$1 s_0) (void) (let-values () (raise-argument-error 'syntax-e \"syntax?\" s_0)))" -"(syntax-e$1 s_0)))))" +" (if (syntax?$1 s_0) (void) (let-values () (raise-argument-error 'syntax-e \"syntax?\" s_0)))" +"(syntax-e$1 s_0)))))))" "(define-values" "(1/syntax->datum)" -"(lambda(s_153)" +"(lambda(s_183)" "(begin" " 'syntax->datum" +"(let-values()" +"(let-values()" "(begin" -" (if (syntax?$1 s_153) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_153)))" -"(syntax->datum$1 s_153)))))" -"(define-values(maybe-syntax->datum)(lambda(s_154)(begin(if(syntax?$1 s_154)(syntax->datum$1 s_154) s_154))))" +" (if (syntax?$1 s_183) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_183)))" +"(syntax->datum$1 s_183)))))))" +"(define-values(maybe-syntax->datum)(lambda(s_70)(begin(if(syntax?$1 s_70)(syntax->datum$1 s_70) s_70))))" "(define-values" "(1/datum->syntax)" "(let-values(((datum->syntax9_0)" @@ -42225,64 +42354,70 @@ static const char *startup_source = "(begin" " 'datum->syntax9" "(let-values(((stx-c_4) stx-c7_0))" -"(let-values(((s_419) s8_0))" +"(let-values(((s_171) 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()" "(let-values()" +"(let-values()" +"(let-values()" "(begin" -"(if(let-values(((or-part_6)(not stx-c_4)))" -"(if or-part_6 or-part_6(syntax?$1 stx-c_4)))" +"(if(let-values(((or-part_291)(not stx-c_4)))" +"(if or-part_291 or-part_291(syntax?$1 stx-c_4)))" "(void)" -" (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-c_4)))" -"(if(let-values(((or-part_293)(not stx-l_2)))" -"(if or-part_293" -" or-part_293" -"(let-values(((or-part_28)(syntax?$1 stx-l_2)))" -"(if or-part_28 or-part_28(encoded-srcloc? stx-l_2)))))" +" (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-c_4)))" +"(if(let-values(((or-part_292)(not stx-l_2)))" +"(if or-part_292" +" or-part_292" +"(let-values(((or-part_293)(syntax?$1 stx-l_2)))" +"(if or-part_293 or-part_293(encoded-srcloc? stx-l_2)))))" "(void)" "(let-values()" "(raise-argument-error" " 'datum->syntax" "(string-append" -" \"(or #f syntax?\\n\"" -" \" (list/c any/c\\n\"" -" \" (or/c exact-positive-integer? #f)\\n\"" -" \" (or/c exact-nonnegative-integer? #f)\\n\"" -" \" (or/c exact-positive-integer? #f)\\n\"" -" \" (or/c exact-nonnegative-integer? #f))\\n\"" -" \" (vector/c any/c\\n\"" -" \" (or/c exact-positive-integer? #f)\\n\"" -" \" (or/c exact-nonnegative-integer? #f)\\n\"" -" \" (or/c exact-positive-integer? #f)\\n\"" -" \" (or/c exact-nonnegative-integer? #f)))\")" +" \"(or #f syntax?\\n\"" +" \" (list/c any/c\\n\"" +" \" (or/c exact-positive-integer? #f)\\n\"" +" \" (or/c exact-nonnegative-integer? #f)\\n\"" +" \" (or/c exact-positive-integer? #f)\\n\"" +" \" (or/c exact-nonnegative-integer? #f))\\n\"" +" \" (vector/c any/c\\n\"" +" \" (or/c exact-positive-integer? #f)\\n\"" +" \" (or/c exact-nonnegative-integer? #f)\\n\"" +" \" (or/c exact-positive-integer? #f)\\n\"" +" \" (or/c exact-nonnegative-integer? #f)))\")" " stx-l_2)))" "(if(let-values(((or-part_294)(not stx-p_1)))" "(if or-part_294 or-part_294(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_419(to-srcloc-stx stx-l_2) stx-p_1))))))))))))" +" (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-p_1)))" +"(datum->syntax$1 stx-c_4 s_171(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))" "(case-lambda" -"((stx-c_5 s_68)(begin 'datum->syntax(datum->syntax9_0 stx-c_5 s_68 #f #f #f #f #f #f)))" -"((stx-c_6 s_4 stx-l_3 stx-p_2 ignored3_1)(datum->syntax9_0 stx-c_6 s_4 stx-l_3 stx-p_2 ignored3_1 #t #t #t))" -"((stx-c_7 s_69 stx-l_4 stx-p2_1)(datum->syntax9_0 stx-c_7 s_69 stx-l_4 stx-p2_1 #f #t #t #f))" -"((stx-c_8 s_41 stx-l1_1)(datum->syntax9_0 stx-c_8 s_41 stx-l1_1 #f #f #t #f #f)))))" +"((stx-c_5 s_300)(begin 'datum->syntax(datum->syntax9_0 stx-c_5 s_300 #f #f #f #f #f #f)))" +"((stx-c_6 s_174 stx-l_3 stx-p_2 ignored3_1)(datum->syntax9_0 stx-c_6 s_174 stx-l_3 stx-p_2 ignored3_1 #t #t #t))" +"((stx-c_7 s_73 stx-l_4 stx-p2_1)(datum->syntax9_0 stx-c_7 s_73 stx-l_4 stx-p2_1 #f #t #t #f))" +"((stx-c_8 s_425 stx-l1_1)(datum->syntax9_0 stx-c_8 s_425 stx-l1_1 #f #f #t #f #f)))))" "(define-values" "(1/syntax->list)" -"(lambda(s_420)" +"(lambda(s_5)" "(begin" " 'syntax->list" +"(let-values()" +"(let-values()" "(begin" -" (if (syntax?$1 s_420) (void) (let-values () (raise-argument-error 'syntax->list \"syntax?\" s_420)))" -"(syntax->list$1 s_420)))))" +" (if (syntax?$1 s_5) (void) (let-values () (raise-argument-error 'syntax->list \"syntax?\" s_5)))" +"(syntax->list$1 s_5)))))))" "(define-values" "(1/syntax-original?)" -"(lambda(s_421)" +"(lambda(s_76)" "(begin" " 'syntax-original?" +"(let-values()" +"(let-values()" "(begin" -" (if (syntax?$1 s_421) (void) (let-values () (raise-argument-error 'syntax-original? \"syntax?\" s_421)))" -"(if(syntax-property$1 s_421 original-property-sym)(not(syntax-any-macro-scopes? s_421)) #f)))))" +" (if (syntax?$1 s_76) (void) (let-values () (raise-argument-error 'syntax-original? \"syntax?\" s_76)))" +"(if(syntax-property$1 s_76 original-property-sym)(not(syntax-any-macro-scopes? s_76)) #f)))))))" "(define-values" "(1/bound-identifier=?)" "(let-values(((bound-identifier=?15_0)" @@ -42290,23 +42425,25 @@ static const char *startup_source = "(begin" " 'bound-identifier=?15" "(let-values(((a_53) a13_0))" -"(let-values(((b_77) b14_1))" -"(let-values(((phase_20)(if phase12_1 phase11_0(1/syntax-local-phase-level))))" +"(let-values(((b_78) b14_1))" +"(let-values(((phase_127)(if phase12_1 phase11_0(1/syntax-local-phase-level))))" +"(let-values()" +"(let-values()" "(let-values()" "(begin" "(if(identifier? a_53)" "(void)" -" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" a_53)))" -"(if(identifier? b_77)" +" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" a_53)))" +"(if(identifier? b_78)" "(void)" -" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_77)))" -"(if(phase? phase_20)" +" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_78)))" +"(if(phase? phase_127)" "(void)" -"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_20)))" -"(bound-identifier=?$1 a_53 b_77 phase_20))))))))))" +"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_127)))" +"(bound-identifier=?$1 a_53 b_78 phase_127))))))))))))" "(case-lambda" -"((a_54 b_48)(begin 'bound-identifier=?(bound-identifier=?15_0 a_54 b_48 #f #f)))" -"((a_55 b_78 phase11_1)(bound-identifier=?15_0 a_55 b_78 phase11_1 #t)))))" +"((a_54 b_8)(begin 'bound-identifier=?(bound-identifier=?15_0 a_54 b_8 #f #f)))" +"((a_55 b_79 phase11_1)(bound-identifier=?15_0 a_55 b_79 phase11_1 #t)))))" "(define-values" "(1/free-identifier=?)" "(let-values(((free-identifier=?23_0)" @@ -42314,79 +42451,87 @@ static const char *startup_source = "(begin" " 'free-identifier=?23" "(let-values(((a_56) a21_0))" -"(let-values(((b_79) b22_0))" +"(let-values(((b_80) 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()" +"(let-values()" +"(let-values()" "(begin" "(if(identifier? a_56)" "(void)" -" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" a_56)))" -"(if(identifier? b_79)" +" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" a_56)))" +"(if(identifier? b_80)" "(void)" -" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" b_79)))" +" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" b_80)))" "(if(phase? a-phase_1)" "(void)" "(let-values()(raise-argument-error 'free-identifier=? phase?-string a-phase_1)))" "(if(phase? b-phase_1)" "(void)" "(let-values()(raise-argument-error 'free-identifier=? phase?-string b-phase_1)))" -"(free-identifier=?$1 a_56 b_79 a-phase_1 b-phase_1)))))))))))" +"(free-identifier=?$1 a_56 b_80 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_80 a-phase_2 b-phase18_1)(free-identifier=?23_0 a_58 b_80 a-phase_2 b-phase18_1 #t #t))" -"((a_59 b_81 a-phase17_1)(free-identifier=?23_0 a_59 b_81 a-phase17_1 #f #t #f)))))" +"((a_57 b_81)(begin 'free-identifier=?(free-identifier=?23_0 a_57 b_81 #f #f #f #f)))" +"((a_58 b_82 a-phase_2 b-phase18_1)(free-identifier=?23_0 a_58 b_82 a-phase_2 b-phase18_1 #t #t))" +"((a_59 b_83 a-phase17_1)(free-identifier=?23_0 a_59 b_83 a-phase17_1 #f #t #f)))))" "(define-values" "(1/free-transformer-identifier=?)" -"(lambda(a_60 b_82)" +"(lambda(a_60 b_84)" "(begin" " 'free-transformer-identifier=?" +"(let-values()" +"(let-values()" "(let-values((()" "(begin" "(if(identifier? a_60)" "(void)" -" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" a_60)))" +" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" a_60)))" "(values))))" "(let-values((()" "(begin" -"(if(identifier? b_82)" +"(if(identifier? b_84)" "(void)" -" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_82)))" +" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_84)))" "(values))))" "(let-values(((phase_128)(add1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_60 b_82 phase_128 phase_128)))))))" +"(free-identifier=?$1 a_60 b_84 phase_128 phase_128)))))))))" "(define-values" "(1/free-template-identifier=?)" -"(lambda(a_61 b_83)" +"(lambda(a_9 b_85)" "(begin" " 'free-template-identifier=?" +"(let-values()" +"(let-values()" "(let-values((()" "(begin" +"(if(identifier? a_9)" +"(void)" +" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" a_9)))" +"(values))))" +"(let-values((()" +"(begin" +"(if(identifier? b_85)" +"(void)" +" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_85)))" +"(values))))" +"(let-values(((phase_129)(sub1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_9 b_85 phase_129 phase_129)))))))))" +"(define-values" +"(1/free-label-identifier=?)" +"(lambda(a_61 b_86)" +"(begin" +" 'free-label-identifier=?" +"(let-values()" +"(let-values()" +"(begin" "(if(identifier? a_61)" "(void)" -" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" a_61)))" -"(values))))" -"(let-values((()" -"(begin" -"(if(identifier? b_83)" +" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" a_61)))" +"(if(identifier? b_86)" "(void)" -" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_83)))" -"(values))))" -"(let-values(((phase_129)(sub1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_61 b_83 phase_129 phase_129)))))))" -"(define-values" -"(1/free-label-identifier=?)" -"(lambda(a_62 b_84)" -"(begin" -" 'free-label-identifier=?" -"(begin" -"(if(identifier? a_62)" -"(void)" -" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" a_62)))" -"(if(identifier? b_84)" -"(void)" -" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" b_84)))" -"(free-identifier=?$1 a_62 b_84 #f #f)))))" +" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" b_86)))" +"(free-identifier=?$1 a_61 b_86 #f #f)))))))" "(define-values" "(1/identifier-binding)" "(let-values(((identifier-binding30_0)" @@ -42394,17 +42539,19 @@ static const char *startup_source = "(begin" " 'identifier-binding30" "(let-values(((id_91) id29_1))" -"(let-values(((phase_86)(if phase27_0 phase25_1(1/syntax-local-phase-level))))" +"(let-values(((phase_34)(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()" +"(let-values()" +"(let-values()" "(begin" "(if(identifier? id_91)" "(void)" -" (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_91)))" -"(if(phase? phase_86)" +" (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_91)))" +"(if(phase? phase_34)" "(void)" -"(let-values()(raise-argument-error 'identifier-binding phase?-string phase_86)))" -"(identifier-binding$1 id_91 phase_86 top-level-symbol?_1))))))))))" +"(let-values()(raise-argument-error 'identifier-binding phase?-string phase_34)))" +"(identifier-binding$1 id_91 phase_34 top-level-symbol?_1))))))))))))" "(case-lambda" "((id_92)(begin 'identifier-binding(identifier-binding30_0 id_92 #f #f #f #f)))" "((id_93 phase_130 top-level-symbol?26_1)(identifier-binding30_0 id_93 phase_130 top-level-symbol?26_1 #t #t))" @@ -42416,37 +42563,43 @@ static const char *startup_source = "(begin" " 'identifier-transformer-binding35" "(let-values(((id_95) id34_1))" -"(let-values(((phase_94)(if phase33_1 phase32_1(1/syntax-local-phase-level))))" +"(let-values(((phase_131)(if phase33_1 phase32_1(1/syntax-local-phase-level))))" +"(let-values()" +"(let-values()" "(let-values()" "(begin" "(if(identifier? id_95)" "(void)" "(let-values()" -" (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_95)))" -"(identifier-binding$1 id_95(if phase_94(add1 phase_94) #f))))))))))" +" (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_95)))" +"(identifier-binding$1 id_95(if phase_131(add1 phase_131) #f))))))))))))" "(case-lambda" "((id_96)(begin 'identifier-transformer-binding(identifier-transformer-binding35_0 id_96 #f #f)))" "((id_97 phase32_2)(identifier-transformer-binding35_0 id_97 phase32_2 #t)))))" "(define-values" "(1/identifier-template-binding)" -"(lambda(id_98)" +"(lambda(id_53)" "(begin" " 'identifier-template-binding" +"(let-values()" +"(let-values()" +"(begin" +"(if(identifier? id_53)" +"(void)" +" (let-values () (raise-argument-error 'identifier-template-binding \"identifier?\" id_53)))" +"(identifier-binding$1 id_53(sub1(1/syntax-local-phase-level)))))))))" +"(define-values" +"(1/identifier-label-binding)" +"(lambda(id_98)" +"(begin" +" 'identifier-label-binding" +"(let-values()" +"(let-values()" "(begin" "(if(identifier? id_98)" "(void)" -" (let-values () (raise-argument-error 'identifier-template-binding \"identifier?\" id_98)))" -"(identifier-binding$1 id_98(sub1(1/syntax-local-phase-level)))))))" -"(define-values" -"(1/identifier-label-binding)" -"(lambda(id_77)" -"(begin" -" 'identifier-label-binding" -"(begin" -"(if(identifier? id_77)" -"(void)" -" (let-values () (raise-argument-error 'identifier-label-binding \"identifier?\" id_77)))" -"(identifier-binding$1 id_77 #f)))))" +" (let-values () (raise-argument-error 'identifier-label-binding \"identifier?\" id_98)))" +"(identifier-binding$1 id_98 #f)))))))" "(define-values" "(1/identifier-binding-symbol)" "(let-values(((identifier-binding-symbol40_0)" @@ -42454,16 +42607,19 @@ static const char *startup_source = "(begin" " 'identifier-binding-symbol40" "(let-values(((id_99) id39_0))" -"(let-values(((phase_112)(if phase38_0 phase37_2(1/syntax-local-phase-level))))" +"(let-values(((phase_132)(if phase38_0 phase37_2(1/syntax-local-phase-level))))" +"(let-values()" +"(let-values()" "(let-values()" "(begin" "(if(identifier? id_99)" "(void)" -" (let-values () (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_99)))" -"(if(phase? phase_112)" +" (let-values () (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_99)))" +"(if(phase? phase_132)" "(void)" -"(let-values()(raise-argument-error 'identifier-binding-symbol phase?-string phase_112)))" -"(identifier-binding-symbol$1 id_99 phase_112)))))))))" +"(let-values()" +"(raise-argument-error 'identifier-binding-symbol phase?-string phase_132)))" +"(identifier-binding-symbol$1 id_99 phase_132)))))))))))" "(case-lambda" "((id_100)(begin 'identifier-binding-symbol(identifier-binding-symbol40_0 id_100 #f #f)))" "((id_101 phase37_3)(identifier-binding-symbol40_0 id_101 phase37_3 #t)))))" @@ -42476,86 +42632,98 @@ static const char *startup_source = "(let-values(((id_102) id44_0))" "(let-values(((syms_23)(if syms43_0 syms42_0 null)))" "(let-values()" +"(let-values()" +"(let-values()" "(begin" "(if(identifier? id_102)" "(void)" "(let-values()" -" (raise-argument-error 'identifier-prune-lexical-context \"identifier?\" id_102)))" +" (raise-argument-error 'identifier-prune-lexical-context \"identifier?\" id_102)))" "(if(if(list? syms_23)(andmap2 symbol? syms_23) #f)" "(void)" "(let-values()" -" (raise-argument-error 'identifier-prune-lexical-context \"(listof symbol?)\" syms_23)))" -" id_102))))))))" +"(raise-argument-error" +" 'identifier-prune-lexical-context" +" \"(listof symbol?)\"" +" syms_23)))" +" id_102))))))))))" "(case-lambda" -"((id_78)(begin 'identifier-prune-lexical-context(identifier-prune-lexical-context45_0 id_78 #f #f)))" -"((id_69 syms42_1)(identifier-prune-lexical-context45_0 id_69 syms42_1 #t)))))" +"((id_103)(begin 'identifier-prune-lexical-context(identifier-prune-lexical-context45_0 id_103 #f #f)))" +"((id_104 syms42_1)(identifier-prune-lexical-context45_0 id_104 syms42_1 #t)))))" "(define-values" "(1/syntax-debug-info)" "(let-values(((syntax-debug-info52_0)" "(lambda(s51_1 phase47_2 all-bindings?48_0 phase49_1 all-bindings?50_0)" "(begin" " 'syntax-debug-info52" -"(let-values(((s_304) s51_1))" -"(let-values(((phase_1)(if phase49_1 phase47_2(1/syntax-local-phase-level))))" +"(let-values(((s_426) s51_1))" +"(let-values(((phase_133)(if phase49_1 phase47_2(1/syntax-local-phase-level))))" "(let-values(((all-bindings?_1)(if all-bindings?50_0 all-bindings?48_0 #f)))" "(let-values()" +"(let-values()" +"(let-values()" "(begin" -"(if(syntax?$1 s_304)" +"(if(syntax?$1 s_426)" "(void)" -" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_304)))" -"(if(phase? phase_1)" +" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_426)))" +"(if(phase? phase_133)" "(void)" -"(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_1)))" -"(syntax-debug-info$1 s_304 phase_1 all-bindings?_1))))))))))" +"(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_133)))" +"(syntax-debug-info$1 s_426 phase_133 all-bindings?_1))))))))))))" "(case-lambda" -"((s_422)(begin 'syntax-debug-info(syntax-debug-info52_0 s_422 #f #f #f #f)))" -"((s_27 phase_131 all-bindings?48_1)(syntax-debug-info52_0 s_27 phase_131 all-bindings?48_1 #t #t))" -"((s_30 phase47_3)(syntax-debug-info52_0 s_30 phase47_3 #f #t #f)))))" +"((s_427)(begin 'syntax-debug-info(syntax-debug-info52_0 s_427 #f #f #f #f)))" +"((s_88 phase_96 all-bindings?48_1)(syntax-debug-info52_0 s_88 phase_96 all-bindings?48_1 #t #t))" +"((s_46 phase47_3)(syntax-debug-info52_0 s_46 phase47_3 #f #t #f)))))" "(define-values" "(1/syntax-shift-phase-level)" -"(lambda(s_393 phase_35)" +"(lambda(s_89 phase_134)" "(begin" " 'syntax-shift-phase-level" +"(let-values()" +"(let-values()" "(begin" -" (if (syntax?$1 s_393) (void) (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_393)))" -"(if(phase? phase_35)" +" (if (syntax?$1 s_89) (void) (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_89)))" +"(if(phase? phase_134)" "(void)" -"(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_35)))" -"(syntax-shift-phase-level$1 s_393 phase_35)))))" +"(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_134)))" +"(syntax-shift-phase-level$1 s_89 phase_134)))))))" "(define-values" "(1/syntax-track-origin)" -"(lambda(new-stx_8 old-stx_4 id_103)" +"(lambda(new-stx_8 old-stx_4 id_105)" "(begin" " 'syntax-track-origin" +"(let-values()" +"(let-values()" "(let-values((()" "(begin" "(if(syntax?$1 new-stx_8)" "(void)" -" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" new-stx_8)))" +" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" new-stx_8)))" "(values))))" "(let-values((()" "(begin" "(if(syntax?$1 old-stx_4)" "(void)" -" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" old-stx_4)))" +" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" old-stx_4)))" "(values))))" "(let-values((()" "(begin" -"(if(identifier? id_103)" +"(if(identifier? id_105)" "(void)" -" (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_103)))" +" (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_105)))" "(values))))" -"(let-values(((s_423)(syntax-track-origin$1 new-stx_8 old-stx_4 id_103)))" -"(let-values(((ctx_66)(let-values(((temp54_1) #t))(get-current-expand-context17.1 temp54_1 #t #f #f))))" +"(let-values(((s_32)(syntax-track-origin$1 new-stx_8 old-stx_4 id_105)))" +"(let-values(((ctx_67)" +"(let-values(((temp73_0) #t))(get-current-expand-context17.1 temp73_0 #t #f #f))))" "(begin" -"(if ctx_66" +"(if ctx_67" "(let-values()" -"(let-values(((obs_43)(expand-context-observer ctx_66)))" -"(if obs_43" -"(let-values()(let-values()(call-expand-observe obs_43 'track-origin new-stx_8 s_423)))" +"(let-values(((obs_42)(expand-context-observer ctx_67)))" +"(if obs_42" +"(let-values()(let-values()(call-expand-observe obs_42 'track-origin new-stx_8 s_32)))" "(void))))" "(void))" -" s_423)))))))))" +" s_32)))))))))))" "(define-values" "(1/namespace-attach-module)" "(let-values(((namespace-attach-module5_0)" @@ -42619,7 +42787,7 @@ static const char *startup_source = "(lambda(attach-instances?13_0 attach-instances?14_0 who15_1 src-namespace16_0 mod-path17_0 dest-namespace18_0)" "(begin" " 'do-attach-module19" -"(let-values(((who_18) who15_1))" +"(let-values(((who_19) who15_1))" "(let-values(((src-namespace_6) src-namespace16_0))" "(let-values(((mod-path_15) mod-path17_0))" "(let-values(((dest-namespace_2) dest-namespace18_0))" @@ -42629,7 +42797,7 @@ static const char *startup_source = "(begin" "(if(1/namespace? src-namespace_6)" "(void)" -" (let-values () (raise-argument-error who_18 \"namespace?\" src-namespace_6)))" +" (let-values () (raise-argument-error who_19 \"namespace?\" src-namespace_6)))" "(values))))" "(let-values((()" "(begin" @@ -42638,7 +42806,7 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-argument-error" -" who_18" +" who_19" " \"(or/c module-path? resolved-module-path?)\"" " mod-path_15)))" "(values))))" @@ -42646,19 +42814,19 @@ static const char *startup_source = "(begin" "(if(1/namespace? dest-namespace_2)" "(void)" -" (let-values () (raise-argument-error who_18 \"namespace?\" dest-namespace_2)))" +" (let-values () (raise-argument-error who_19 \"namespace?\" dest-namespace_2)))" "(values))))" -"(let-values(((phase_132)(namespace-phase src-namespace_6)))" +"(let-values(((phase_127)(namespace-phase src-namespace_6)))" "(let-values((()" "(begin" -"(if(eqv? phase_132(namespace-phase dest-namespace_2))" +"(if(eqv? phase_127(namespace-phase dest-namespace_2))" "(void)" "(let-values()" "(raise-arguments-error" -" who_18" +" who_19" " \"source and destination namespace phases do not match\"" " \"source phase\"" -" phase_132" +" phase_127" " \"destination phase\"" "(namespace-phase dest-namespace_2))))" "(values))))" @@ -42667,8 +42835,8 @@ static const char *startup_source = "(let-values((()" "(begin" "((letrec-values(((loop_39)" -"(lambda(mpi_46" -" phase_133" +"(lambda(mpi_47" +" phase_135" " attach-instances?_1" " attach-phase_0)" "(begin" @@ -42684,10 +42852,10 @@ static const char *startup_source = " src-namespace_6)" "(let-values()" "(1/module-path-index-resolve" -" mpi_46)))))" +" mpi_47)))))" "(let-values(((attach-this-instance?_0)" "(if attach-instances?_1" -"(eqv? phase_133 attach-phase_0)" +"(eqv? phase_135 attach-phase_0)" " #f)))" "(let-values(((m-ns_12)" "(hash-ref" @@ -42695,12 +42863,12 @@ static const char *startup_source = " todo_0" " mod-name_19" " '#hasheqv())" -" phase_133" +" phase_135" " missing_0)))" -"(if(let-values(((or-part_172)" +"(if(let-values(((or-part_173)" "(eq? missing_0 m-ns_12)))" -"(if or-part_172" -" or-part_172" +"(if or-part_173" +" or-part_173" "(if attach-this-instance?_0" "(not m-ns_12)" " #f)))" @@ -42714,21 +42882,21 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-arguments-error" -" who_18" +" who_19" " \"module not declared (in the source namespace)\"" " \"module name\"" " mod-name_19)))" "(if(if(module-cross-phase-persistent?" " m_20)" "(if(not" -"(label-phase? phase_133))" +"(label-phase? phase_135))" "(not" -"(zero-phase? phase_133))" +"(zero-phase? phase_135))" " #f)" " #f)" "(let-values()" "(loop_39" -" mpi_46" +" mpi_47" " 0" " attach-instances?_1" " 0))" @@ -42747,7 +42915,7 @@ static const char *startup_source = " #f)" "(let-values()" "(raise-arguments-error" -" who_18" +" who_19" " \"a different declaration is already in the destination namespace\"" " \"module name\"" " mod-name_19))" @@ -42768,7 +42936,7 @@ static const char *startup_source = "((mod-name33_0)" " mod-name_19)" "((phase34_1)" -" phase_133))" +" phase_135))" "(namespace->module-namespace82.1" " #f" " #f" @@ -42785,7 +42953,7 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-arguments-error" -" who_18" +" who_19" " \"module not instantiated (in the source namespace)\"" " \"module name\"" " mod-name_19)))" @@ -42797,7 +42965,7 @@ static const char *startup_source = "((mod-name36_0)" " mod-name_19)" "((phase37_4)" -" phase_133))" +" phase_135))" "(namespace->module-namespace82.1" " #f" " #f" @@ -42823,7 +42991,7 @@ static const char *startup_source = " #f)" "(let-values()" "(raise-arguments-error" -" who_18" +" who_19" " \"a different instance is already in the destination namespace\"" " \"module name\"" " mod-name_19))" @@ -42836,14 +43004,14 @@ static const char *startup_source = "(let-values()" "(begin" "(if(if(label-phase?" -" phase_133)" +" phase_135)" "(not" "(let-values(((src-namespace38_0)" " src-namespace_6)" "((mod-name39_0)" " mod-name_19)" "((phase40_0)" -" phase_133))" +" phase_135))" "(namespace->module-namespace82.1" " #f" " #f" @@ -42868,9 +43036,9 @@ static const char *startup_source = "(let-values(((src-namespace41_0)" " src-namespace_6)" "((mpi42_0)" -" mpi_46)" +" mpi_47)" "((phase43_1)" -" phase_133))" +" phase_135))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -42896,7 +43064,7 @@ static const char *startup_source = "(lambda(ht_149)" "(hash-set" " ht_149" -" phase_133" +" phase_135" " m-ns_13))" " '#hasheqv())" "(if already?_0" @@ -42914,19 +43082,19 @@ static const char *startup_source = "(check-list" " lst_21)))" "((letrec-values(((for-loop_17)" -"(lambda(lst_226)" +"(lambda(lst_225)" "(begin" " 'for-loop" "(if(pair?" -" lst_226)" +" lst_225)" "(let-values(((phase+reqs_1)" "(unsafe-car" -" lst_226))" +" lst_225))" "((rest_167)" "(unsafe-cdr" -" lst_226)))" +" lst_225)))" "(let-values((()" -"(let-values(((lst_178)" +"(let-values(((lst_177)" "(cdr" " phase+reqs_1)))" "(begin" @@ -42935,19 +43103,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_178)))" +" lst_177)))" "((letrec-values(((for-loop_29)" -"(lambda(lst_279)" +"(lambda(lst_278)" "(begin" " 'for-loop" "(if(pair?" -" lst_279)" +" lst_278)" "(let-values(((req_5)" "(unsafe-car" -" lst_279))" -"((rest_152)" +" lst_278))" +"((rest_151)" "(unsafe-cdr" -" lst_279)))" +" lst_278)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -42959,9 +43127,9 @@ static const char *startup_source = " req_5" "(module-self" " m_20)" -" mpi_46)" +" mpi_47)" "(phase+" -" phase_133" +" phase_135" "(car" " phase+reqs_1))" " attach-instances?_1" @@ -42971,11 +43139,11 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_29" -" rest_152)" +" rest_151)" "(values))))" "(values))))))" " for-loop_29)" -" lst_178)))))" +" lst_177)))))" "(if(not" " #f)" "(for-loop_17" @@ -42995,7 +43163,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_303)))" -"((letrec-values(((for-loop_266)" +"((letrec-values(((for-loop_267)" "(lambda(lst_304)" "(begin" " 'for-loop" @@ -43019,7 +43187,7 @@ static const char *startup_source = " 'submod" " \".\"" " submod-name_0)" -" mpi_46)" +" mpi_47)" " #f" " #f" " attach-phase_0))" @@ -43027,11 +43195,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_266" +"(for-loop_267" " rest_168)" "(values))))" "(values))))))" -" for-loop_266)" +" for-loop_267)" " lst_303)))" "(void)" "(if(module-supermodule-name" @@ -43041,7 +43209,7 @@ static const char *startup_source = "(1/module-path-index-join" " '(submod" " \"..\")" -" mpi_46)" +" mpi_47)" " #f" " #f" " attach-phase_0))" @@ -43053,9 +43221,9 @@ static const char *startup_source = "(resolved-module-path->module-path mod-path_15)" " mod-path_15)" " #f)" -" phase_132" +" phase_127" " attach-instances?_0" -" phase_132)" +" phase_127)" "(values))))" "(let-values((()" "(begin" @@ -43064,15 +43232,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_150)))" -"((letrec-values(((for-loop_108)" -"(lambda(i_171)" +"((letrec-values(((for-loop_109)" +"(lambda(i_172)" "(begin" " 'for-loop" -"(if i_171" +"(if i_172" "(let-values(((mod-name_20 phases_0)" "(hash-iterate-key+value" " ht_150" -" i_171)))" +" i_172)))" "(let-values((()" "(let-values(((ht_151)" " phases_0))" @@ -43083,16 +43251,16 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_151)))" -"((letrec-values(((for-loop_267)" -"(lambda(i_172)" +"((letrec-values(((for-loop_268)" +"(lambda(i_173)" "(begin" " 'for-loop" -"(if i_172" -"(let-values(((phase_134" +"(if i_173" +"(let-values(((phase_136" " m-ns_15)" "(hash-iterate-key+value" " ht_151" -" i_172)))" +" i_173)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43134,14 +43302,14 @@ static const char *startup_source = "(namespace-record-module-instance-attached!" " src-namespace_6" " mod-name_20" -" phase_134)" +" phase_136)" "(let-values(((or-part_296)" "(let-values(((dest-namespace47_0)" " dest-namespace_2)" "((mod-name48_0)" " mod-name_20)" "((phase49_2)" -" phase_134))" +" phase_136))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43157,7 +43325,7 @@ static const char *startup_source = "(namespace-install-module-namespace!" " dest-namespace_2" " mod-name_20" -" phase_134" +" phase_136" " m_21" " m-ns_15)))))" "(void)))))" @@ -43165,21 +43333,21 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_267" +"(for-loop_268" "(hash-iterate-next" " ht_151" -" i_172))" +" i_173))" "(values))))" "(values))))))" -" for-loop_267)" +" for-loop_268)" "(hash-iterate-first" " ht_151))))))" "(if(not #f)" -"(for-loop_108" -"(hash-iterate-next ht_150 i_171))" +"(for-loop_109" +"(hash-iterate-next ht_150 i_172))" "(values))))" "(values))))))" -" for-loop_108)" +" for-loop_109)" "(hash-iterate-first ht_150))))" "(values))))" "(let-values()" @@ -43192,18 +43360,18 @@ static const char *startup_source = " dest-namespace_2)" "(let-values()" "(begin" -"(let-values(((ht_51) todo_0))" +"(let-values(((ht_52) todo_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_51)))" -"((letrec-values(((for-loop_176)" -"(lambda(i_173)" +"(let-values()(check-in-hash-keys ht_52)))" +"((letrec-values(((for-loop_177)" +"(lambda(i_174)" "(begin" " 'for-loop" -"(if i_173" +"(if i_174" "(let-values(((mod-name_21)" -"(hash-iterate-key ht_51 i_173)))" +"(hash-iterate-key ht_52 i_174)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43216,12 +43384,12 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_176" -"(hash-iterate-next ht_51 i_173))" +"(for-loop_177" +"(hash-iterate-next ht_52 i_174))" "(values))))" "(values))))))" -" for-loop_176)" -"(hash-iterate-first ht_51))))" +" for-loop_177)" +"(hash-iterate-first ht_52))))" "(void))))))))))))))))))))))))" "(define-values" "(1/make-empty-namespace)" @@ -43244,93 +43412,98 @@ static const char *startup_source = "(let-values(((s_3) s3_2))" "(let-values(((ns_60)(if ns2_0 ns1_3(1/current-namespace))))" "(let-values()" +"(let-values()" +"(let-values()" "(let-values((()" "(begin" "(if(syntax?$1 s_3)" "(void)" "(let-values()" -" (raise-argument-error 'namespace-syntax-introduce \"syntax?\" s_3)))" +" (raise-argument-error 'namespace-syntax-introduce \"syntax?\" s_3)))" "(values))))" "(let-values((()" "(begin" "(if(1/namespace? ns_60)" "(void)" "(let-values()" -" (raise-argument-error 'namespace-syntax-introduce \"namespace?\" ns_60)))" +"(raise-argument-error" +" 'namespace-syntax-introduce" +" \"namespace?\"" +" ns_60)))" "(values))))" "(let-values(((root-ctx_5)(namespace-get-root-expand-ctx ns_60)))" "(let-values(((post-scope_1)(root-expand-context-post-expansion-scope root-ctx_5)))" "(let-values(((other-namespace-scopes_0)" "(reverse$1" -"(let-values(((ht_84)" +"(let-values(((ht_152)" "(syntax-scope-set" "(root-expand-context-all-scopes-stx root-ctx_5)" "(namespace-phase ns_60))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_84)))" -"((letrec-values(((for-loop_256)" -"(lambda(fold-var_240 i_174)" +"(let-values()(check-in-immutable-hash-keys ht_152)))" +"((letrec-values(((for-loop_211)" +"(lambda(fold-var_274 i_175)" "(begin" " 'for-loop" -"(if i_174" +"(if i_175" "(let-values(((sc_34)" "(unsafe-immutable-hash-iterate-key" -" ht_84" -" i_174)))" +" ht_152" +" i_175)))" "(let-values(((fold-var_217)" "(let-values(((fold-var_218)" -" fold-var_240))" +" fold-var_274))" "(if(equal?" " sc_34" " post-scope_1)" " fold-var_218" -"(let-values(((fold-var_30)" -" fold-var_218))" "(let-values(((fold-var_219)" +" fold-var_218))" +"(let-values(((fold-var_65)" "(let-values()" "(cons" "(let-values()" " sc_34)" -" fold-var_30))))" +" fold-var_219))))" "(values" -" fold-var_219)))))))" +" fold-var_65)))))))" "(if(not #f)" -"(for-loop_256" +"(for-loop_211" " fold-var_217" "(unsafe-immutable-hash-iterate-next" -" ht_84" -" i_174))" +" ht_152" +" i_175))" " fold-var_217)))" -" fold-var_240)))))" -" for-loop_256)" +" fold-var_274)))))" +" for-loop_211)" " null" -"(unsafe-immutable-hash-iterate-first ht_84)))))))" +"(unsafe-immutable-hash-iterate-first ht_152)))))))" "(let-values(((add-ns-scopes_0)" -"(lambda(s_170)" +"(lambda(s_4)" "(begin" " 'add-ns-scopes" -"(let-values(((temp78_4)" +"(let-values(((temp79_1)" "(add-scopes" -"(push-scope s_170 post-scope_1)" +"(push-scope s_4 post-scope_1)" " other-namespace-scopes_0))" -"((temp79_1)" -"(root-expand-context-all-scopes-stx root-ctx_5))" "((temp80_2)" +"(root-expand-context-all-scopes-stx root-ctx_5))" +"((temp81_0)" "(let-values(((or-part_72)" "(namespace-declaration-inspector" " ns_60)))" "(if or-part_72" " or-part_72" "(current-code-inspector))))" -"((temp81_0) #t))" +"((temp82_2) #t))" "(syntax-transfer-shifts39.1" -" temp81_0" +" temp82_2" " #t" -" temp78_4" " temp79_1" " temp80_2" +" temp81_0" " #t))))))" "(let-values(((maybe-module-id_0)" "(if(pair?(1/syntax-e s_3))" @@ -43350,13 +43523,13 @@ static const char *startup_source = "(cons maybe-module-id_0(cdr(1/syntax-e s_3)))" " s_3" " s_3))" -"(let-values()(add-ns-scopes_0 s_3)))))))))))))))))" +"(let-values()(add-ns-scopes_0 s_3)))))))))))))))))))" "(case-lambda" -"((s_424)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_424 #f #f)))" -"((s_425 ns1_2)(namespace-syntax-introduce4_0 s_425 ns1_2 #t)))))" +"((s_428)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_428 #f #f)))" +"((s_73 ns1_4)(namespace-syntax-introduce4_0 s_73 ns1_4 #t)))))" "(define-values" "(namespace-datum-introduce)" -"(lambda(s_41)(begin(1/namespace-syntax-introduce(1/datum->syntax #f s_41)))))" +"(lambda(s_175)(begin(1/namespace-syntax-introduce(1/datum->syntax #f s_175)))))" "(define-values" "(1/namespace-module-identifier)" "(let-values(((namespace-module-identifier8_0)" @@ -43365,33 +43538,37 @@ static const char *startup_source = " 'namespace-module-identifier8" "(let-values(((where_0)(if where7_0 where6_0(1/current-namespace))))" "(let-values()" +"(let-values()" +"(let-values()" "(begin" -"(if(let-values(((or-part_78)(1/namespace? where_0)))" -"(if or-part_78 or-part_78(phase? where_0)))" +"(if(let-values(((or-part_79)(1/namespace? where_0)))" +"(if or-part_79 or-part_79(phase? where_0)))" "(void)" "(let-values()" "(raise-argument-error" " 'namespace-module-identifier" -" (string-append \"(or/c namespace? \" phase?-string \")\")" +" (string-append \"(or/c namespace? \" phase?-string \")\")" " where_0)))" "(1/datum->syntax" "(1/syntax-shift-phase-level" " core-stx" "(if(1/namespace? where_0)(namespace-phase where_0) where_0))" -" 'module))))))))" +" 'module))))))))))" "(case-lambda" "(()(begin 'namespace-module-identifier(namespace-module-identifier8_0 #f #f)))" "((where6_1)(namespace-module-identifier8_0 where6_1 #t)))))" "(define-values" "(1/namespace-symbol->identifier)" -"(lambda(sym_56)" +"(lambda(sym_68)" "(begin" " 'namespace-symbol->identifier" +"(let-values()" +"(let-values()" "(begin" -"(if(symbol? sym_56)" +"(if(symbol? sym_68)" "(void)" -" (let-values () (raise-argument-error 'namespace-symbol->identifier \"symbol?\" sym_56)))" -"(1/namespace-syntax-introduce(1/datum->syntax #f sym_56))))))" +" (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" @@ -43411,7 +43588,7 @@ static const char *startup_source = " 'do-namespace-require23" "(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(((who_20) who20_0))" "(let-values(((req_6) req21_0))" "(let-values(((ns_76) ns22_1))" "(let-values(((copy-variable-phase-level_2)" @@ -43425,31 +43602,31 @@ static const char *startup_source = "(begin" "(if(1/namespace? ns_76)" "(void)" -" (let-values () (raise-argument-error who_19 \"namespace?\" ns_76)))" +" (let-values () (raise-argument-error who_20 \"namespace?\" ns_76)))" "(values))))" "(let-values(((ctx-stx_0)" "(add-scopes" " empty-syntax" "(root-expand-context-module-scopes(namespace-get-root-expand-ctx ns_76)))))" -"(if(let-values(((or-part_173)(1/module-path-index? req_6)))" -"(if or-part_173 or-part_173(1/module-path? req_6)))" +"(if(let-values(((or-part_22)(1/module-path-index? req_6)))" +"(if or-part_22 or-part_22(1/module-path? req_6)))" "(let-values()" -"(let-values(((temp82_1)" +"(let-values(((temp85_1)" "(if(1/module-path-index? req_6)" " req_6" "(1/module-path-index-join req_6 #f)))" -"((temp83_1) #f)" -"((temp84_1) #f)" -"((ctx-stx85_0) ctx-stx_0)" -"((ns86_0) ns_76)" -"((run?87_0) run?_3)" -"((visit?88_0) visit?_3)" -"((temp89_3)(namespace-phase ns_76))" -"((temp90_0)(namespace-phase ns_76))" -"((copy-variable-phase-level91_0) copy-variable-phase-level_2)" -"((copy-variable-as-constant?92_0) copy-variable-as-constant?_2)" -"((skip-variable-phase-level93_0) skip-variable-phase-level_2)" -"((who94_0) who_19))" +"((temp86_0) #f)" +"((temp87_2) #f)" +"((ctx-stx88_0) ctx-stx_0)" +"((ns89_0) ns_76)" +"((run?90_0) run?_3)" +"((visit?91_0) visit?_3)" +"((temp92_1)(namespace-phase ns_76))" +"((temp93_3)(namespace-phase ns_76))" +"((copy-variable-phase-level94_0) copy-variable-phase-level_2)" +"((copy-variable-as-constant?95_0) copy-variable-as-constant?_2)" +"((skip-variable-phase-level96_0) skip-variable-phase-level_2)" +"((who97_0) who_20))" "(perform-require!78.1" " #f" " #f" @@ -43457,42 +43634,42 @@ static const char *startup_source = " #f" " #f" " #f" -" copy-variable-as-constant?92_0" +" copy-variable-as-constant?95_0" " #t" -" copy-variable-phase-level91_0" +" copy-variable-phase-level94_0" " #t" " #f" " #f" " #f" " #f" -" temp89_3" +" temp92_1" " #f" " #f" -" temp90_0" -" run?87_0" +" temp93_3" +" run?90_0" " #t" -" skip-variable-phase-level93_0" +" skip-variable-phase-level96_0" " #t" -" visit?88_0" +" visit?91_0" " #t" -" who94_0" -" temp82_1" -" temp83_1" -" temp84_1" -" ctx-stx85_0" -" ns86_0)))" +" who97_0" +" temp85_1" +" temp86_0" +" temp87_2" +" ctx-stx88_0" +" ns89_0)))" "(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)))" -"((temp98_2) #f)" -"((ns99_0) ns_76)" -"((temp100_1)(namespace-phase ns_76))" -"((temp101_0)" -"(let-values(((temp104_0) #f))" -"(make-requires+provides8.1 #f #f temp104_0)))" -"((skip-variable-phase-level102_0) skip-variable-phase-level_2)" -"((who103_0) who_19))" +"(let-values(((run?98_0) run?_3)" +"((visit?99_0) visit?_3)" +"((temp100_1)(list(1/datum->syntax ctx-stx_0 req_6)))" +"((temp101_0) #f)" +"((ns102_0) ns_76)" +"((temp103_2)(namespace-phase ns_76))" +"((temp104_1)" +"(let-values(((temp107_0) #f))" +"(make-requires+provides8.1 #f #f temp107_0)))" +"((skip-variable-phase-level105_0) skip-variable-phase-level_2)" +"((who106_0) who_20))" "(parse-and-perform-requires!30.1" " #f" " #f" @@ -43504,20 +43681,20 @@ static const char *startup_source = " #f" " #f" " #f" -" run?95_0" +" run?98_0" " #t" " #f" " #f" -" skip-variable-phase-level102_0" +" skip-variable-phase-level105_0" " #t" -" visit?96_0" +" visit?99_0" " #t" -" who103_0" -" temp97_2" -" temp98_2" -" ns99_0" +" who106_0" " temp100_1" -" temp101_0))))))))))))))))))" +" temp101_0" +" ns102_0" +" temp103_2" +" temp104_1))))))))))))))))))" "(define-values" "(1/namespace-require)" "(let-values(((namespace-require29_0)" @@ -43527,8 +43704,23 @@ static const char *startup_source = "(let-values(((req_7) req28_0))" "(let-values(((ns_77)(if ns27_0 ns26_0(1/current-namespace))))" "(let-values()" -"(let-values(((temp105_1) 'namespace-require)((req106_0) req_7)((ns107_0) ns_77))" -"(do-namespace-require23.1 #f #f #f #f #f #f #f #f #f #f temp105_1 req106_0 ns107_0)))))))))" +"(let-values()" +"(let-values()" +"(let-values(((who109_1) 'namespace-require)((req110_0) req_7)((ns111_0) ns_77))" +"(do-namespace-require23.1" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" #f" +" who109_1" +" req110_0" +" ns111_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)))))" @@ -43541,25 +43733,27 @@ static const char *startup_source = "(let-values(((req_10) req33_0))" "(let-values(((ns_78)(if ns32_0 ns31_1(1/current-namespace))))" "(let-values()" -"(let-values(((temp108_1) #f)" -"((temp109_1) #t)" -"((temp110_2) 'namespace-require/expansion-time)" -"((req111_0) req_10)" -"((ns112_0) ns_78))" +"(let-values()" +"(let-values()" +"(let-values(((temp113_0) #f)" +"((temp114_1) #t)" +"((who115_1) 'namespace-require/expansion-time)" +"((req116_0) req_10)" +"((ns117_0) ns_78))" "(do-namespace-require23.1" " #f" " #f" " #f" " #f" -" temp108_1" +" temp113_0" " #t" " #f" " #f" -" temp109_1" +" temp114_1" " #t" -" temp110_2" -" req111_0" -" ns112_0)))))))))" +" who115_1" +" req116_0" +" ns117_0)))))))))))" "(case-lambda" "((req_11)(begin 'namespace-require/expansion-time(namespace-require/expansion-time34_0 req_11 #f #f)))" "((req_12 ns31_2)(namespace-require/expansion-time34_0 req_12 ns31_2 #t)))))" @@ -43572,15 +43766,17 @@ static const char *startup_source = "(let-values(((req_13) req38_0))" "(let-values(((ns_79)(if ns37_0 ns36_0(1/current-namespace))))" "(let-values()" -"(let-values(((temp113_0) 'namespace-require/constant)" -"((req114_0) req_13)" -"((ns115_0) ns_79)" -"((temp116_1) 0)" -"((temp117_1) #t))" +"(let-values()" +"(let-values()" +"(let-values(((who119_0) 'namespace-require/constant)" +"((req120_0) req_13)" +"((ns121_0) ns_79)" +"((temp122_2) 0)" +"((temp123_2) #t))" "(do-namespace-require23.1" -" temp117_1" +" temp123_2" " #t" -" temp116_1" +" temp122_2" " #t" " #f" " #f" @@ -43588,9 +43784,9 @@ static const char *startup_source = " #f" " #f" " #f" -" temp113_0" -" req114_0" -" ns115_0)))))))))" +" who119_0" +" req120_0" +" ns121_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)))))" @@ -43603,25 +43799,27 @@ static const char *startup_source = "(let-values(((req_16) req43_0))" "(let-values(((ns_80)(if ns42_0 ns41_0(1/current-namespace))))" "(let-values()" -"(let-values(((temp118_1) 'namespace-require/copy)" -"((req119_0) req_16)" -"((ns120_0) ns_80)" -"((temp121_1) 0)" -"((temp122_1) 0))" +"(let-values()" +"(let-values()" +"(let-values(((who125_0) 'namespace-require/copy)" +"((req126_0) req_16)" +"((ns127_0) ns_80)" +"((temp128_1) 0)" +"((temp129_2) 0))" "(do-namespace-require23.1" " #f" " #f" -" temp121_1" +" temp128_1" " #t" " #f" " #f" -" temp122_1" +" temp129_2" " #t" " #f" " #f" -" temp118_1" -" req119_0" -" ns120_0)))))))))" +" who125_0" +" req126_0" +" ns127_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)))))" @@ -43631,15 +43829,17 @@ static const char *startup_source = "(lambda(sym52_0 use-mapping?46_0 failure-thunk47_0 ns48_0 use-mapping?49_0 failure-thunk50_0 ns51_0)" "(begin" " 'namespace-variable-value53" -"(let-values(((sym_68) sym52_0))" +"(let-values(((sym_69) sym52_0))" "(let-values(((use-mapping?_0)(if use-mapping?49_0 use-mapping?46_0 #t)))" "(let-values(((failure-thunk_5)(if failure-thunk50_0 failure-thunk47_0 #f)))" "(let-values(((ns_81)(if ns51_0 ns48_0(1/current-namespace))))" "(let-values()" +"(let-values()" +"(let-values()" "(begin" -"(if(symbol? sym_68)" +"(if(symbol? sym_69)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_68)))" +" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_69)))" "(if(let-values(((or-part_297)(not failure-thunk_5)))" "(if or-part_297" " or-part_297" @@ -43650,134 +43850,148 @@ static const char *startup_source = "(let-values()" "(raise-argument-error" " 'namespace-variable-value" -" \"(or/c #f (procedure-arity-includes/c 0))\"" +" \"(or/c #f (procedure-arity-includes/c 0))\"" " failure-thunk_5)))" "(if(1/namespace? ns_81)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"namespace?\" ns_81)))" +"(let-values()" +" (raise-argument-error 'namespace-variable-value \"namespace?\" ns_81)))" "((call/ec" "(lambda(escape_0)" "(let-values(((var-ns_0 var-phase-level_0 var-sym_6)" "(if use-mapping?_0" "(let-values()" -"(let-values(((id_104)(1/datum->syntax #f sym_68)))" -"(let-values(((b_85)" +"(let-values(((id_16)(1/datum->syntax #f sym_69)))" +"(let-values(((b_87)" "(resolve+shift/extra-inspector" -"(1/namespace-syntax-introduce id_104 ns_81)" +"(1/namespace-syntax-introduce id_16 ns_81)" "(namespace-phase ns_81)" " ns_81)))" "(let-values((()" "(begin" -"(if b_85" +"(if b_87" "(let-values()" "(namespace-visit-available-modules!" " ns_81))" "(void))" "(values))))" -"(let-values(((v_190" +"(let-values(((v_189" " primitive?_8" " extra-inspector_8" " protected?_9)" -"(if b_85" -"(let-values(((b123_0) b_85)" -"((empty-env124_0) empty-env)" -"((null125_0) null)" -"((ns126_0) ns_81)" -"((temp127_0)" +"(if b_87" +"(let-values(((b131_0) b_87)" +"((empty-env132_0)" +" empty-env)" +"((null133_0) null)" +"((ns134_0) ns_81)" +"((temp135_1)" "(namespace-phase ns_81))" -"((id128_0) id_104))" +"((id136_0) id_16))" "(binding-lookup50.1" " #f" " #f" " #f" " #f" -" b123_0" -" empty-env124_0" -" null125_0" -" ns126_0" -" temp127_0" -" id128_0))" +" b131_0" +" empty-env132_0" +" null133_0" +" ns134_0" +" temp135_1" +" id136_0))" "(values variable #f #f #f))))" "(begin" -"(if(variable? v_190)" +"(if(variable? v_189)" "(void)" "(let-values()" "(escape_0" -"(let-values(((or-part_298) failure-thunk_5))" -"(if or-part_298" -" or-part_298" +"(let-values(((or-part_88) failure-thunk_5))" +"(if or-part_88" +" or-part_88" "(lambda()" "(raise" "(make-exn:fail:syntax$1" "(format" "(string-append" -" \"namespace-variable-value: bound to syntax\\n\"" -" \" in: ~s\")" -" sym_68)" +" \"namespace-variable-value: bound to syntax\\n\"" +" \" in: ~s\")" +" sym_69)" "(current-continuation-marks)" " null))))))))" -"(if(module-binding? b_85)" +"(if(module-binding? b_87)" "(values" "(if(top-level-module-path-index?" -"(module-binding-module b_85))" +"(module-binding-module b_87))" " ns_81" "(module-instance-namespace" "(binding->module-instance" -" b_85" +" b_87" " ns_81" "(namespace-phase ns_81)" -" id_104)))" -"(module-binding-phase b_85)" -"(module-binding-sym b_85))" -"(values ns_81(namespace-phase ns_81) sym_68))))))))" -"(let-values()(values ns_81(namespace-phase ns_81) sym_68)))))" -"(let-values(((val_29)" +" id_16)))" +"(module-binding-phase b_87)" +"(module-binding-sym b_87))" +"(values" +" ns_81" +"(namespace-phase ns_81)" +" sym_69))))))))" +"(let-values()(values ns_81(namespace-phase ns_81) sym_69)))))" +"(let-values(((val_72)" "(namespace-get-variable" " var-ns_0" " var-phase-level_0" " var-sym_6" "(lambda()" "(escape_0" -"(let-values(((or-part_299) failure-thunk_5))" -"(if or-part_299" -" or-part_299" +"(let-values(((or-part_281) failure-thunk_5))" +"(if or-part_281" +" or-part_281" "(raise" "(exn:fail:contract:variable" "(format" "(string-append" -" \"namespace-variable-value: given name is not defined\\n\"" -" \" name: ~s\")" -" sym_68)" +" \"namespace-variable-value: given name is not defined\\n\"" +" \" name: ~s\")" +" sym_69)" "(current-continuation-marks)" -" sym_68)))))))))" -"(lambda() val_29))))))))))))))))" +" sym_69)))))))))" +"(lambda() val_72))))))))))))))))))" "(case-lambda" -"((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)))))" +"((sym_70)(begin 'namespace-variable-value(namespace-variable-value53_0 sym_70 #f #f #f #f #f #f)))" +"((sym_71 use-mapping?_1 failure-thunk_6 ns48_1)" +"(namespace-variable-value53_0 sym_71 use-mapping?_1 failure-thunk_6 ns48_1 #t #t #t))" +"((sym_72 use-mapping?_2 failure-thunk47_1)" +"(namespace-variable-value53_0 sym_72 use-mapping?_2 failure-thunk47_1 #f #t #t #f))" +"((sym_73 use-mapping?46_1)(namespace-variable-value53_0 sym_73 use-mapping?46_1 #f #f #t #f #f)))))" "(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_73) sym61_0))" -"(let-values(((val_69) val62_0))" +"(let-values(((sym_74) sym61_0))" +"(let-values(((val_73) val62_0))" "(let-values(((map?_0)(if map?58_0 map?55_0 #f)))" "(let-values(((ns_82)(if ns59_0 ns56_0(1/current-namespace))))" "(let-values(((as-constant?_2)(if as-constant?60_0 as-constant?57_0 #f)))" "(let-values()" +"(let-values()" +"(let-values()" "(begin" -"(if(symbol? sym_73)" +"(if(symbol? sym_74)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_73)))" +"(let-values()" +" (raise-argument-error 'namespace-set-variable-value! \"symbol?\" sym_74)))" "(if(1/namespace? ns_82)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"namespace?\" ns_82)))" -"(namespace-set-variable! ns_82(namespace-phase ns_82) sym_73 val_69 as-constant?_2)" +"(let-values()" +" (raise-argument-error 'namespace-set-variable-value! \"namespace?\" ns_82)))" +"(namespace-set-variable!" +" ns_82" +"(namespace-phase ns_82)" +" sym_74" +" val_73" +" as-constant?_2)" "(if map?_0" "(let-values()" "(let-values((()" @@ -43785,14 +43999,14 @@ static const char *startup_source = "(namespace-unset-transformer!" " ns_82" "(namespace-phase ns_82)" -" sym_73)" +" sym_74)" "(values))))" -"(let-values(((id_105)(1/datum->syntax #f sym_73)))" -"(let-values(((temp129_2)(1/namespace-syntax-introduce id_105 ns_82))" -"((temp130_2)" -"(let-values(((temp132_1)(namespace-mpi ns_82))" -"((temp133_1)(namespace-phase ns_82))" -"((sym134_1) sym_73))" +"(let-values(((id_106)(1/datum->syntax #f sym_74)))" +"(let-values(((temp138_0)(1/namespace-syntax-introduce id_106 ns_82))" +"((temp139_0)" +"(let-values(((temp141_1)(namespace-mpi ns_82))" +"((temp142_1)(namespace-phase ns_82))" +"((sym143_0) sym_74))" "(make-module-binding22.1" " #f" " #f" @@ -43812,39 +44026,42 @@ static const char *startup_source = " #f" " #f" " #f" -" temp132_1" -" temp133_1" -" sym134_1)))" -"((temp131_0)(namespace-phase ns_82)))" -"(add-binding!17.1 #f #f #f #f temp129_2 temp130_2 temp131_0)))))" -"(void)))))))))))))" +" temp141_1" +" temp142_1" +" sym143_0)))" +"((temp140_2)(namespace-phase ns_82)))" +"(add-binding!17.1 #f #f #f #f temp138_0 temp139_0 temp140_2)))))" +"(void)))))))))))))))" "(case-lambda" -"((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_83 as-constant?57_1)" -"(namespace-set-variable-value!63_0 sym_75 val_71 map?_1 ns_83 as-constant?57_1 #t #t #t))" -"((sym_76 val_72 map?_2 ns56_1)(namespace-set-variable-value!63_0 sym_76 val_72 map?_2 ns56_1 #f #t #t #f))" -"((sym_77 val_73 map?55_1)(namespace-set-variable-value!63_0 sym_77 val_73 map?55_1 #f #f #t #f #f)))))" +"((sym_75 val_74)" +"(begin 'namespace-set-variable-value!(namespace-set-variable-value!63_0 sym_75 val_74 #f #f #f #f #f #f)))" +"((sym_76 val_75 map?_1 ns_83 as-constant?57_1)" +"(namespace-set-variable-value!63_0 sym_76 val_75 map?_1 ns_83 as-constant?57_1 #t #t #t))" +"((sym_77 val_76 map?_2 ns56_1)(namespace-set-variable-value!63_0 sym_77 val_76 map?_2 ns56_1 #f #t #t #f))" +"((sym_78 val_77 map?55_1)(namespace-set-variable-value!63_0 sym_78 val_77 map?55_1 #f #f #t #f #f)))))" "(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_78) sym67_0))" +"(let-values(((sym_79) sym67_0))" "(let-values(((ns_84)(if ns66_0 ns65_0(1/current-namespace))))" "(let-values()" +"(let-values()" +"(let-values()" "(begin" -"(if(symbol? sym_78)" +"(if(symbol? sym_79)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_78)))" +" (let-values () (raise-argument-error 'namespace-undefine-variable! \"symbol?\" sym_79)))" "(if(1/namespace? ns_84)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"namespace?\" ns_84)))" -"(namespace-unset-variable! ns_84(namespace-phase ns_84) sym_78)))))))))" +"(let-values()" +" (raise-argument-error 'namespace-undefine-variable! \"namespace?\" ns_84)))" +"(namespace-unset-variable! ns_84(namespace-phase ns_84) sym_79)))))))))))" "(case-lambda" -"((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)))))" +"((sym_80)(begin 'namespace-undefine-variable!(namespace-undefine-variable!68_0 sym_80 #f #f)))" +"((sym_81 ns65_1)(namespace-undefine-variable!68_0 sym_81 ns65_1 #t)))))" "(define-values" "(1/namespace-mapped-symbols)" "(let-values(((namespace-mapped-symbols72_0)" @@ -43853,16 +44070,18 @@ static const char *startup_source = " 'namespace-mapped-symbols72" "(let-values(((ns_85)(if ns71_0 ns70_0(1/current-namespace))))" "(let-values()" +"(let-values()" +"(let-values()" "(begin" "(if(1/namespace? ns_85)" "(void)" -" (let-values () (raise-argument-error 'namespace-mapped-symbols \"namespace?\" ns_85)))" +" (let-values () (raise-argument-error 'namespace-mapped-symbols \"namespace?\" ns_85)))" "(set->list" "(set-union" "(syntax-mapped-names" "(root-expand-context-all-scopes-stx(namespace-get-root-expand-ctx ns_85))" "(namespace-phase ns_85))" -"(list->set(1/instance-variable-names(namespace->instance ns_85 0))))))))))))" +"(list->set(1/instance-variable-names(namespace->instance ns_85 0))))))))))))))" "(case-lambda" "(()(begin 'namespace-mapped-symbols(namespace-mapped-symbols72_0 #f #f)))" "((ns70_1)(namespace-mapped-symbols72_0 ns70_1 #t)))))" @@ -43874,67 +44093,69 @@ static const char *startup_source = " 'namespace-base-phase76" "(let-values(((ns_86)(if ns75_0 ns74_0(1/current-namespace))))" "(let-values()" +"(let-values()" +"(let-values()" "(begin" "(if(1/namespace? ns_86)" "(void)" -" (let-values () (raise-argument-error 'namespace-base-phase \"namespace?\" ns_86)))" -"(namespace-phase ns_86))))))))" +" (let-values () (raise-argument-error 'namespace-base-phase \"namespace?\" ns_86)))" +"(namespace-phase ns_86))))))))))" "(case-lambda" "(()(begin 'namespace-base-phase(namespace-base-phase76_0 #f #f)))" "((ns74_1)(namespace-base-phase76_0 ns74_1 #t)))))" "(define-values" "(1/eval)" "(let-values(((eval6_0)" -"(lambda(s5_2 ns1_4 compile2_0 ns3_0 compile4_0)" +"(lambda(s5_2 ns1_5 compile2_0 ns3_0 compile4_0)" "(begin" " 'eval6" -"(let-values(((s_145) s5_2))" -"(let-values(((ns_43)(if ns3_0 ns1_4(1/current-namespace))))" +"(let-values(((s_172) s5_2))" +"(let-values(((ns_43)(if ns3_0 ns1_5(1/current-namespace))))" "(let-values(((compile_1)" "(if compile4_0" " compile2_0" -"(lambda(s_426 ns_87)(begin 'compile(1/compile s_426 ns_87 #f))))))" +"(lambda(s_429 ns_87)(begin 'compile(1/compile s_429 ns_87 #f))))))" "(let-values()" -"(if(let-values(((or-part_300)(compiled-in-memory? s_145)))" -"(if or-part_300" -" or-part_300" -"(let-values(((or-part_301)(1/linklet-directory? s_145)))" -"(if or-part_301 or-part_301(1/linklet-bundle? s_145)))))" -"(let-values()(eval-compiled s_145 ns_43))" -"(if(if(syntax?$1 s_145)" -"(let-values(((or-part_302)(compiled-in-memory?(1/syntax-e s_145))))" -"(if or-part_302" -" or-part_302" -"(let-values(((or-part_303)(1/linklet-directory?(1/syntax-e s_145))))" -"(if or-part_303 or-part_303(1/linklet-bundle?(1/syntax-e s_145))))))" +"(if(let-values(((or-part_292)(compiled-in-memory? s_172)))" +"(if or-part_292" +" or-part_292" +"(let-values(((or-part_293)(1/linklet-directory? s_172)))" +"(if or-part_293 or-part_293(1/linklet-bundle? s_172)))))" +"(let-values()(eval-compiled s_172 ns_43))" +"(if(if(syntax?$1 s_172)" +"(let-values(((or-part_294)(compiled-in-memory?(1/syntax-e s_172))))" +"(if or-part_294" +" or-part_294" +"(let-values(((or-part_298)(1/linklet-directory?(1/syntax-e s_172))))" +"(if or-part_298 or-part_298(1/linklet-bundle?(1/syntax-e s_172))))))" " #f)" -"(let-values()(eval-compiled(1/syntax->datum s_145) ns_43))" +"(let-values()(eval-compiled(1/syntax->datum s_172) ns_43))" "(let-values()" -"(let-values(((s80_0) s_145)" +"(let-values(((s80_0) s_172)" "((ns81_0) ns_43)" -"((temp82_2)" -"(lambda(s_424 ns_88 tail?_1)" -"(eval-compiled(compile_1 s_424 ns_88) ns_88 tail?_1)))" -"((temp83_2) #f))" +"((temp82_3)" +"(lambda(s_430 ns_88 tail?_1)" +"(eval-compiled(compile_1 s_430 ns_88) ns_88 tail?_1)))" +"((temp83_1) #f))" "(per-top-level68.1" " #f" " #f" " #f" " #f" -" temp83_2" +" temp83_1" " #f" " #f" " #f" " #f" -" temp82_2" +" temp82_3" " #f" " #f" " s80_0" " ns81_0)))))))))))))" "(case-lambda" "((s_41)(begin 'eval(eval6_0 s_41 #f #f #f #f)))" -"((s_172 ns_53 compile2_1)(eval6_0 s_172 ns_53 compile2_1 #t #t))" -"((s_159 ns1_5)(eval6_0 s_159 ns1_5 #f #t #f)))))" +"((s_175 ns_53 compile2_1)(eval6_0 s_175 ns_53 compile2_1 #t #t))" +"((s_160 ns1_6)(eval6_0 s_160 ns1_6 #f #t #f)))))" "(define-values" "(eval-compiled)" "(let-values(((eval-compiled12_0)" @@ -43951,8 +44172,8 @@ static const char *startup_source = "(eval-module8.1 ns85_0 #t #f #f #f #f c84_0)))" "(let-values()(eval-top c_52 ns_89 eval-compiled as-tail?_3)))))))))))" "(case-lambda" -"((c_41 ns_90)(begin(eval-compiled12_0 c_41 ns_90 #f #f)))" -"((c_42 ns_91 as-tail?8_1)(eval-compiled12_0 c_42 ns_91 as-tail?8_1 #t)))))" +"((c_53 ns_90)(begin(eval-compiled12_0 c_53 ns_90 #f #f)))" +"((c_54 ns_91 as-tail?8_1)(eval-compiled12_0 c_54 ns_91 as-tail?8_1 #t)))))" "(define-values" "(1/compile)" "(let-values(((compile23_0)" @@ -43967,21 +44188,21 @@ static const char *startup_source = " to-source?21_1)" "(begin" " 'compile23" -"(let-values(((s_177) s22_0))" +"(let-values(((s_180) s22_0))" "(let-values(((ns_92)(if ns18_1 ns14_2(1/current-namespace))))" "(let-values(((serializable?_4)(if serializable?19_0 serializable?15_0 #t)))" "(let-values(((expand_0)(if expand20_0 expand16_0 expand$1)))" "(let-values(((to-source?_5)(if to-source?21_1 to-source?17_0 #f)))" "(let-values()" "(let-values(((cs_0)" -"(if(1/compiled-expression? s_177)" -"(let-values()(list s_177))" -"(if(if(syntax?$1 s_177)" -"(1/compiled-expression?(1/syntax-e s_177))" +"(if(1/compiled-expression? s_180)" +"(let-values()(list s_180))" +"(if(if(syntax?$1 s_180)" +"(1/compiled-expression?(1/syntax-e s_180))" " #f)" -"(let-values()(list(1/syntax-e s_177)))" +"(let-values()(list(1/syntax-e s_180)))" "(let-values()" -"(let-values(((s86_0) s_177)" +"(let-values(((s86_0) s_180)" "((ns87_0) ns_92)" "((temp88_3)" "(lambda(s_12 ns_49 as-tail?_4)" @@ -43993,13 +44214,13 @@ static const char *startup_source = " serializable?_4" " to-source?_5))))" "((append89_0) append)" -"((temp90_1) #f))" +"((temp90_0) #f))" "(per-top-level68.1" " append89_0" " #t" " #f" " #f" -" temp90_1" +" temp90_0" " #f" " #f" " #f" @@ -44024,24 +44245,24 @@ static const char *startup_source = " #t" " cs91_0))))))))))))))" "(case-lambda" -"((s_184)(begin 'compile(compile23_0 s_184 #f #f #f #f #f #f #f #f)))" -"((s_427 ns_93 serializable?_5 expand_1 to-source?17_1)" -"(compile23_0 s_427 ns_93 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" +"((s_187)(begin 'compile(compile23_0 s_187 #f #f #f #f #f #f #f #f)))" +"((s_431 ns_93 serializable?_5 expand_1 to-source?17_1)" +"(compile23_0 s_431 ns_93 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" "((s_20 ns_94 serializable?_6 expand16_1)(compile23_0 s_20 ns_94 serializable?_6 expand16_1 #f #t #t #t #f))" "((s_23 ns_95 serializable?15_1)(compile23_0 s_23 ns_95 serializable?15_1 #f #f #t #t #f #f))" -"((s_428 ns14_3)(compile23_0 s_428 ns14_3 #f #f #f #t #f #f #f)))))" +"((s_432 ns14_3)(compile23_0 s_432 ns14_3 #f #f #f #t #f #f #f)))))" "(define-values" "(compile-to-linklets)" "(let-values(((compile-to-linklets28_0)" "(lambda(s27_0 ns25_0 ns26_2)" "(begin" " 'compile-to-linklets28" -"(let-values(((s_406) s27_0))" +"(let-values(((s_409) s27_0))" "(let-values(((ns_96)(if ns26_2 ns25_0(1/current-namespace))))" -"(let-values()(1/compile s_406 ns_96 #t expand$1 #t))))))))" +"(let-values()(1/compile s_409 ns_96 #t expand$1 #t))))))))" "(case-lambda" -"((s_429)(begin(compile-to-linklets28_0 s_429 #f #f)))" -"((s_300 ns25_1)(compile-to-linklets28_0 s_300 ns25_1 #t)))))" +"((s_433)(begin(compile-to-linklets28_0 s_433 #f #f)))" +"((s_303 ns25_1)(compile-to-linklets28_0 s_303 ns25_1 #t)))))" "(define-values" "(struct:lifted-parsed-begin" " lifted-parsed-begin30.1" @@ -44082,7 +44303,7 @@ static const char *startup_source = "(if(parsed-module? exp-s_5)" "(let-values()" "(let-values(((exp-s96_0) exp-s_5)" -"((temp97_3)" +"((temp97_2)" "(let-values(((ns100_0) ns_97))" "(make-compile-context14.1 #f #f #f #f #f #f ns100_0 #t #f #f #f #f)))" "((serializable?98_0) serializable?_7)" @@ -44099,28 +44320,28 @@ static const char *startup_source = " to-source?99_0" " #t" " exp-s96_0" -" temp97_3)))" +" temp97_2)))" "(if(lifted-parsed-begin? exp-s_5)" "(let-values()" "(let-values(((temp101_1)" "(reverse$1" -"(let-values(((lst_293)" +"(let-values(((lst_292)" "(append" "(lifted-parsed-begin-seq exp-s_5)" "(list(lifted-parsed-begin-last exp-s_5)))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_293)))" +"(let-values()(check-list lst_292)))" "((letrec-values(((for-loop_6)" -"(lambda(fold-var_0 lst_169)" +"(lambda(fold-var_0 lst_168)" "(begin" " 'for-loop" -"(if(pair? lst_169)" -"(let-values(((e_75)" -"(unsafe-car lst_169))" -"((rest_163)" -"(unsafe-cdr lst_169)))" +"(if(pair? lst_168)" +"(let-values(((e_76)" +"(unsafe-car lst_168))" +"((rest_162)" +"(unsafe-cdr lst_168)))" "(let-values(((fold-var_2)" "(let-values(((fold-var_3)" " fold-var_0))" @@ -44129,23 +44350,23 @@ static const char *startup_source = "(cons" "(let-values()" "(loop_97" -" e_75))" +" e_76))" " fold-var_3))))" "(values" " fold-var_236)))))" "(if(not #f)" -"(for-loop_6 fold-var_2 rest_163)" +"(for-loop_6 fold-var_2 rest_162)" " fold-var_2)))" " fold-var_0)))))" " for-loop_6)" " null" -" lst_293)))))" +" lst_292)))))" "((to-source?102_0) to-source?_6))" "(compiled-tops->compiled-top8.1 #f #f #f #f to-source?102_0 #t temp101_1)))" "(let-values()" "(let-values(((exp-s103_0) exp-s_5)" -"((temp104_1)" -"(let-values(((ns107_1) ns_97))" +"((temp104_2)" +"(let-values(((ns107_0) ns_97))" "(make-compile-context14.1" " #f" " #f" @@ -44153,7 +44374,7 @@ static const char *startup_source = " #f" " #f" " #f" -" ns107_1" +" ns107_0" " #t" " #f" " #f" @@ -44169,7 +44390,7 @@ static const char *startup_source = " to-source?106_0" " #t" " exp-s103_0" -" temp104_1)))))))))" +" temp104_2)))))))))" " loop_97)" " exp-s_4)))))" "(define-values" @@ -44186,7 +44407,7 @@ static const char *startup_source = " serializable?38_0)" "(begin" " 'expand40" -"(let-values(((s_430) s39_0))" +"(let-values(((s_434) s39_0))" "(let-values(((ns_98)(if ns35_0 ns31_3(1/current-namespace))))" "(let-values(((observable?_0)(if observable?36_0 observable?32_0 #f)))" "(let-values(((to-parsed?_2)(if to-parsed?37_0 to-parsed?33_0 #f)))" @@ -44202,12 +44423,12 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s108_0) s_430)" +"(let-values(((s108_0) s_434)" "((ns109_1) ns_98)" -"((temp110_3)" -"(lambda(s_431 ns_99 as-tail?_5)" +"((temp110_1)" +"(lambda(s_435 ns_99 as-tail?_5)" "(expand-single" -" s_431" +" s_435" " ns_99" " observer_2" " to-parsed?_2" @@ -44225,43 +44446,43 @@ static const char *startup_source = " #f" " #f" " #f" -" temp110_3" +" temp110_1" " re-pair112_0" " #t" " s108_0" " ns109_1))))))))))))))))" "(case-lambda" -"((s_298)(begin 'expand(expand40_0 s_298 #f #f #f #f #f #f #f #f)))" -"((s_432 ns_100 observable?_1 to-parsed?_3 serializable?34_1)" -"(expand40_0 s_432 ns_100 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" -"((s_433 ns_81 observable?_2 to-parsed?33_1)(expand40_0 s_433 ns_81 observable?_2 to-parsed?33_1 #f #t #t #t #f))" -"((s_34 ns_101 observable?32_1)(expand40_0 s_34 ns_101 observable?32_1 #f #f #t #t #f #f))" -"((s_387 ns31_4)(expand40_0 s_387 ns31_4 #f #f #f #t #f #f #f)))))" +"((s_301)(begin 'expand(expand40_0 s_301 #f #f #f #f #f #f #f #f)))" +"((s_436 ns_100 observable?_1 to-parsed?_3 serializable?34_1)" +"(expand40_0 s_436 ns_100 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" +"((s_437 ns_101 observable?_2 to-parsed?33_1)(expand40_0 s_437 ns_101 observable?_2 to-parsed?33_1 #f #t #t #t #f))" +"((s_34 ns_102 observable?32_1)(expand40_0 s_34 ns_102 observable?32_1 #f #f #t #t #f #f))" +"((s_389 ns31_4)(expand40_0 s_389 ns31_4 #f #f #f #t #f #f #f)))))" "(define-values" "(expand-single)" -"(lambda(s_434 ns_102 observer_3 to-parsed?_4 serializable?_9)" +"(lambda(s_438 ns_103 observer_3 to-parsed?_4 serializable?_9)" "(begin" -"(let-values(((rebuild-s_2)(keep-properties-only s_434)))" -"(let-values(((ctx_67)" -"(let-values(((ns114_0) ns_102)" +"(let-values(((rebuild-s_2)(keep-properties-only s_438)))" +"(let-values(((ctx_68)" +"(let-values(((ns114_0) ns_103)" "((to-parsed?115_0) to-parsed?_4)" "((serializable?116_0) serializable?_9)" "((observer117_0) observer_3))" "(make-expand-context10.1 serializable?116_0 #t observer117_0 #t to-parsed?115_0 #t ns114_0))))" -"(let-values(((require-lifts_3 lifts_10 exp-s_6)(expand-capturing-lifts s_434 ctx_67)))" -"(if(if(null? require-lifts_3)(null? lifts_10) #f)" +"(let-values(((require-lifts_3 lifts_9 exp-s_6)(expand-capturing-lifts s_438 ctx_68)))" +"(if(if(null? require-lifts_3)(null? lifts_9) #f)" "(let-values() exp-s_6)" "(if to-parsed?_4" "(let-values()" "(let-values(((require-lifts118_0) require-lifts_3)" -"((lifts119_0) lifts_10)" +"((lifts119_0) lifts_9)" "((exp-s120_0) exp-s_6)" "((rebuild-s121_0) rebuild-s_2)" -"((temp122_2)" +"((temp122_3)" "(lambda(form_0)" -"(expand-single form_0 ns_102 observer_3 to-parsed?_4 serializable?_9))))" +"(expand-single form_0 ns_103 observer_3 to-parsed?_4 serializable?_9))))" "(wrap-lifts-as-lifted-parsed-begin77.1" -" temp122_2" +" temp122_3" " require-lifts118_0" " lifts119_0" " exp-s120_0" @@ -44269,165 +44490,165 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(log-top-lift-begin-before ctx_67 require-lifts_3 lifts_10 exp-s_6 ns_102)" +"(log-top-lift-begin-before ctx_68 require-lifts_3 lifts_9 exp-s_6 ns_103)" "(values))))" "(let-values(((new-s_2)" -"(let-values(((temp123_2)(append require-lifts_3 lifts_10))" -"((temp124_3)" +"(let-values(((temp123_3)(append require-lifts_3 lifts_9))" +"((temp124_2)" "(lambda(form_1)" "(begin" -"(let-values(((obs_44)(expand-context-observer ctx_67)))" -"(if obs_44" +"(let-values(((obs_43)(expand-context-observer ctx_68)))" +"(if obs_43" "(let-values()" -"(let-values()(call-expand-observe obs_44 'next)))" +"(let-values()(call-expand-observe obs_43 'next)))" "(void)))" "(expand-single" " form_1" -" ns_102" +" ns_103" " observer_3" " to-parsed?_4" " serializable?_9))))" -"((temp125_1)" +"((temp125_0)" "(lambda(form_2)" "(if to-parsed?_4" "(let-values() form_2)" "(let-values()" "(begin" -"(let-values(((obs_45)(expand-context-observer ctx_67)))" -"(if obs_45" +"(let-values(((obs_44)(expand-context-observer ctx_68)))" +"(if obs_44" "(let-values()" -"(let-values()(call-expand-observe obs_45 'next)))" +"(let-values()(call-expand-observe obs_44 'next)))" "(void)))" "(expand-single" " form_2" -" ns_102" +" ns_103" " observer_3" " to-parsed?_4" " serializable?_9))))))" "((exp-s126_0) exp-s_6)" -"((temp127_1)(namespace-phase ns_102)))" +"((temp127_1)(namespace-phase ns_103)))" "(wrap-lifts-as-begin16.1" -" temp125_1" +" temp125_0" " #t" -" temp124_3" +" temp124_2" " #t" -" temp123_2" +" temp123_3" " exp-s126_0" " temp127_1))))" -"(begin(log-top-begin-after ctx_67 new-s_2) new-s_2))))))))))))" +"(begin(log-top-begin-after ctx_68 new-s_2) new-s_2))))))))))))" "(define-values" "(expand-once$1)" "(let-values(((expand-once45_0)" "(lambda(s44_1 ns42_1 ns43_0)" "(begin" " 'expand-once45" -"(let-values(((s_388) s44_1))" -"(let-values(((ns_103)(if ns43_0 ns42_1(1/current-namespace))))" +"(let-values(((s_391) s44_1))" +"(let-values(((ns_104)(if ns43_0 ns42_1(1/current-namespace))))" "(let-values()" -"(let-values(((s128_0) s_388)" -"((ns129_0) ns_103)" -"((temp130_3)" -"(lambda(s_435 ns_104 as-tail?_6)(expand-single-once s_435 ns_104)))" +"(let-values(((s128_0) s_391)" +"((ns129_0) ns_104)" +"((temp130_1)" +"(lambda(s_439 ns_105 as-tail?_6)(expand-single-once s_439 ns_105)))" "((cons131_0) cons)" "((re-pair132_0) re-pair)" -"((temp133_2) #t)" -"((temp134_1) #f))" +"((temp133_0) #t)" +"((temp134_0) #f))" "(per-top-level68.1" " cons131_0" " #t" -" temp133_2" +" temp133_0" " #t" -" temp134_1" +" temp134_0" " #f" " #f" " #f" " #f" -" temp130_3" +" temp130_1" " re-pair132_0" " #t" " s128_0" " ns129_0)))))))))" "(case-lambda" -"((s_436)(begin 'expand-once(expand-once45_0 s_436 #f #f)))" -"((s_437 ns42_2)(expand-once45_0 s_437 ns42_2 #t)))))" +"((s_440)(begin 'expand-once(expand-once45_0 s_440 #f #f)))" +"((s_441 ns42_2)(expand-once45_0 s_441 ns42_2 #t)))))" "(define-values" "(expand-single-once)" -"(lambda(s_438 ns_105)" +"(lambda(s_442 ns_106)" "(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_438" -"(let-values(((v_191)" -"(let-values(((ns135_1) ns_105))" +" s_442" +"(let-values(((v_190)" +"(let-values(((ns135_1) ns_106))" "(make-expand-context10.1 #f #f #f #f #f #f ns135_1))))" -"(let-values(((the-struct_70) v_191))" -"(if(expand-context/outer? the-struct_70)" +"(let-values(((the-struct_69) v_190))" +"(if(expand-context/outer? the-struct_69)" "(let-values(((inner136_0)" -"(let-values(((the-struct_71)(root-expand-context/outer-inner v_191)))" -"(if(expand-context/inner? the-struct_71)" +"(let-values(((the-struct_70)(root-expand-context/outer-inner v_190)))" +"(if(expand-context/inner? the-struct_70)" "(let-values(((just-once?137_0) #t))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_71)" -"(root-expand-context/inner-module-scopes the-struct_71)" -"(root-expand-context/inner-top-level-bind-scope the-struct_71)" -"(root-expand-context/inner-all-scopes-stx the-struct_71)" -"(root-expand-context/inner-defined-syms the-struct_71)" -"(root-expand-context/inner-counter the-struct_71)" -"(root-expand-context/inner-lift-key the-struct_71)" -"(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_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)" +"(expand-context/inner-to-parsed? the-struct_70)" +"(expand-context/inner-phase the-struct_70)" +"(expand-context/inner-namespace the-struct_70)" " 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_70)" +"(expand-context/inner-allow-unbound? the-struct_70)" +"(expand-context/inner-in-local-expand? the-struct_70)" +"(expand-context/inner-stops the-struct_70)" +"(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_70)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_71)))))" +" the-struct_70)))))" "(expand-context/outer1.1" " inner136_0" -"(root-expand-context/outer-post-expansion-scope the-struct_70)" -"(root-expand-context/outer-use-site-scopes the-struct_70)" -"(root-expand-context/outer-frame-id the-struct_70)" -"(expand-context/outer-context the-struct_70)" -"(expand-context/outer-env the-struct_70)" -"(expand-context/outer-post-expansion-scope-action the-struct_70)" -"(expand-context/outer-scopes the-struct_70)" -"(expand-context/outer-def-ctx-scopes the-struct_70)" -"(expand-context/outer-binding-layer the-struct_70)" -"(expand-context/outer-reference-records the-struct_70)" -"(expand-context/outer-only-immediate? the-struct_70)" -"(expand-context/outer-need-eventually-defined the-struct_70)" -"(expand-context/outer-current-introduction-scopes the-struct_70)" -"(expand-context/outer-name the-struct_70)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_70)))))))" -"(if(if(null? require-lifts_4)(null? lifts_11) #f)" +"(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)" +"(expand-context/outer-env the-struct_69)" +"(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)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_69)))))))" +"(if(if(null? require-lifts_4)(null? lifts_10) #f)" "(let-values() exp-s_7)" "(let-values()" -"(let-values(((temp138_1)(append require-lifts_4 lifts_11))" +"(let-values(((temp138_1)(append require-lifts_4 lifts_10))" "((exp-s139_0) exp-s_7)" -"((temp140_1)(namespace-phase ns_105)))" -"(wrap-lifts-as-begin16.1 #f #f #f #f temp138_1 exp-s139_0 temp140_1))))))))" +"((temp140_3)(namespace-phase ns_106)))" +"(wrap-lifts-as-begin16.1 #f #f #f #f temp138_1 exp-s139_0 temp140_3))))))))" "(define-values" "(expand-to-top-form$1)" "(let-values(((expand-to-top-form50_0)" "(lambda(s49_0 ns47_2 ns48_2)" "(begin" " 'expand-to-top-form50" -"(let-values(((s_321) s49_0))" -"(let-values(((ns_106)(if ns48_2 ns47_2(1/current-namespace))))" +"(let-values(((s_323) s49_0))" +"(let-values(((ns_84)(if ns48_2 ns47_2(1/current-namespace))))" "(let-values()" "(let-values(((observer_4)(current-expand-observe)))" "(begin" @@ -44439,10 +44660,10 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s141_0) s_321)" -"((ns142_0) ns_106)" +"(let-values(((s141_0) s_323)" +"((ns142_0) ns_84)" "((temp143_0) #f)" -"((temp144_1) #f)" +"((temp144_2) #f)" "((observer145_0) observer_4))" "(per-top-level68.1" " #f" @@ -44450,7 +44671,7 @@ static const char *startup_source = " #f" " #f" " observer145_0" -" temp144_1" +" temp144_2" " #t" " #f" " #f" @@ -44460,8 +44681,8 @@ static const char *startup_source = " s141_0" " ns142_0)))))))))))))" "(case-lambda" -"((s_413)(begin 'expand-to-top-form(expand-to-top-form50_0 s_413 #f #f)))" -"((s_209 ns47_3)(expand-to-top-form50_0 s_209 ns47_3 #t)))))" +"((s_443)(begin 'expand-to-top-form(expand-to-top-form50_0 s_443 #f #f)))" +"((s_212 ns47_3)(expand-to-top-form50_0 s_212 ns47_3 #t)))))" "(define-values" "(per-top-level68.1)" "(lambda(combine53_0" @@ -44490,25 +44711,25 @@ 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_99)(maybe-intro given-s_0 ns_107)))" -"(let-values(((ctx_68)" +"(let-values(((s_105)(maybe-intro given-s_0 ns_107)))" +"(let-values(((ctx_69)" "(let-values(((ns146_0) ns_107)((observer147_0) observer_5))" "(make-expand-context10.1 #f #f observer147_0 #t #f #f ns146_0))))" -"(let-values(((phase_135)(namespace-phase ns_107)))" +"(let-values(((phase_137)(namespace-phase ns_107)))" "((letrec-values(((loop_98)" -"(lambda(s_211 phase_103 ns_108 as-tail?_7)" +"(lambda(s_214 phase_103 ns_108 as-tail?_7)" "(begin" " 'loop" "(let-values(((tl-ctx_0)" -"(let-values(((v_126) ctx_68))" -"(let-values(((the-struct_42) v_126))" -"(if(expand-context/outer? the-struct_42)" +"(let-values(((v_126) ctx_69))" +"(let-values(((the-struct_41) v_126))" +"(if(expand-context/outer? the-struct_41)" "(let-values(((inner148_0)" -"(let-values(((the-struct_72)" +"(let-values(((the-struct_71)" "(root-expand-context/outer-inner" " v_126)))" "(if(expand-context/inner?" -" the-struct_72)" +" the-struct_71)" "(let-values(((phase149_0)" " phase_103)" "((namespace150_0)" @@ -44519,107 +44740,107 @@ static const char *startup_source = " serializable?_10))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_72)" +" the-struct_71)" "(root-expand-context/inner-module-scopes" -" the-struct_72)" +" the-struct_71)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_72)" +" the-struct_71)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_72)" +" the-struct_71)" "(root-expand-context/inner-defined-syms" -" the-struct_72)" +" the-struct_71)" "(root-expand-context/inner-counter" -" the-struct_72)" +" the-struct_71)" "(root-expand-context/inner-lift-key" -" the-struct_72)" +" the-struct_71)" "(expand-context/inner-to-parsed?" -" the-struct_72)" +" the-struct_71)" " phase149_0" " namespace150_0" " just-once?151_0" "(expand-context/inner-module-begin-k" -" the-struct_72)" +" the-struct_71)" "(expand-context/inner-allow-unbound?" -" the-struct_72)" +" the-struct_71)" "(expand-context/inner-in-local-expand?" -" the-struct_72)" +" the-struct_71)" "(expand-context/inner-stops" -" the-struct_72)" +" the-struct_71)" "(expand-context/inner-declared-submodule-names" -" the-struct_72)" +" the-struct_71)" "(expand-context/inner-lifts" -" the-struct_72)" +" the-struct_71)" "(expand-context/inner-lift-envs" -" the-struct_72)" +" the-struct_71)" "(expand-context/inner-module-lifts" -" the-struct_72)" +" the-struct_71)" "(expand-context/inner-require-lifts" -" the-struct_72)" +" the-struct_71)" "(expand-context/inner-to-module-lifts" -" the-struct_72)" +" the-struct_71)" "(expand-context/inner-requires+provides" -" the-struct_72)" +" the-struct_71)" "(expand-context/inner-observer" -" the-struct_72)" +" the-struct_71)" " for-serializable?152_0" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_72)))" +" the-struct_71)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_72)))))" +" the-struct_71)))))" "(expand-context/outer1.1" " inner148_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_42)" +" the-struct_41)" "(root-expand-context/outer-use-site-scopes" -" the-struct_42)" +" the-struct_41)" "(root-expand-context/outer-frame-id" -" the-struct_42)" +" the-struct_41)" "(expand-context/outer-context" -" the-struct_42)" -"(expand-context/outer-env the-struct_42)" +" the-struct_41)" +"(expand-context/outer-env the-struct_41)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_42)" -"(expand-context/outer-scopes the-struct_42)" +" the-struct_41)" +"(expand-context/outer-scopes the-struct_41)" "(expand-context/outer-def-ctx-scopes" -" the-struct_42)" +" the-struct_41)" "(expand-context/outer-binding-layer" -" the-struct_42)" +" the-struct_41)" "(expand-context/outer-reference-records" -" the-struct_42)" +" the-struct_41)" "(expand-context/outer-only-immediate?" -" the-struct_42)" +" the-struct_41)" "(expand-context/outer-need-eventually-defined" -" the-struct_42)" +" the-struct_41)" "(expand-context/outer-current-introduction-scopes" -" the-struct_42)" -"(expand-context/outer-name the-struct_42)))" +" the-struct_41)" +"(expand-context/outer-name the-struct_41)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_42))))))" -"(let-values(((wb-s_0)(if just-once?_1 s_211 #f)))" +" the-struct_41))))))" +"(let-values(((wb-s_0)(if just-once?_1 s_214 #f)))" "(let-values((()" "(begin" -"(let-values(((obs_46)" +"(let-values(((obs_45)" "(expand-context-observer" " tl-ctx_0)))" -"(if obs_46" +"(if obs_45" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_46" +" obs_45" " 'visit" -" s_211)))" +" s_214)))" "(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_211" -"(let-values(((v_192) tl-ctx_0))" -"(let-values(((the-struct_61) v_192))" -"(if(expand-context/outer? the-struct_61)" +" s_214" +"(let-values(((v_191) tl-ctx_0))" +"(let-values(((the-struct_59) v_191))" +"(if(expand-context/outer? the-struct_59)" "(let-values(((only-immediate?153_0)" " #t)" "((def-ctx-scopes154_0)" @@ -44627,7 +44848,7 @@ static const char *startup_source = "((inner155_1)" "(let-values(((the-struct_33)" "(root-expand-context/outer-inner" -" v_192)))" +" v_191)))" "(if(expand-context/inner?" " the-struct_33)" "(let-values(((phase156_1)" @@ -44690,46 +44911,46 @@ static const char *startup_source = "(expand-context/outer1.1" " inner155_1" "(root-expand-context/outer-post-expansion-scope" -" the-struct_61)" +" the-struct_59)" "(root-expand-context/outer-use-site-scopes" -" the-struct_61)" +" the-struct_59)" "(root-expand-context/outer-frame-id" -" the-struct_61)" +" the-struct_59)" "(expand-context/outer-context" -" the-struct_61)" +" the-struct_59)" "(expand-context/outer-env" -" the-struct_61)" +" the-struct_59)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_61)" +" the-struct_59)" "(expand-context/outer-scopes" -" the-struct_61)" +" the-struct_59)" " def-ctx-scopes154_0" "(expand-context/outer-binding-layer" -" the-struct_61)" +" the-struct_59)" "(expand-context/outer-reference-records" -" the-struct_61)" +" the-struct_59)" " only-immediate?153_0" "(expand-context/outer-need-eventually-defined" -" the-struct_61)" +" the-struct_59)" "(expand-context/outer-current-introduction-scopes" -" the-struct_61)" +" the-struct_59)" "(expand-context/outer-name" -" the-struct_61)))" +" the-struct_59)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_61)))))))" +" the-struct_59)))))))" "(let-values(((disarmed-exp-s_0)" "(syntax-disarm$1 exp-s_8)))" -"(if(let-values(((or-part_304)" +"(if(let-values(((or-part_299)" "(pair? require-lifts_5)))" -"(if or-part_304 or-part_304(pair? lifts_12)))" +"(if or-part_299 or-part_299(pair? lifts_11)))" "(let-values()" "(let-values(((new-s_3)" "(let-values(((temp158_0)" "(append" " require-lifts_5" -" lifts_12))" +" lifts_11))" "((exp-s159_0) exp-s_8)" "((phase160_0) phase_103))" "(wrap-lifts-as-begin16.1" @@ -44741,14 +44962,14 @@ static const char *startup_source = " exp-s159_0" " phase160_0))))" "(begin" -"(let-values(((obs_47)" +"(let-values(((obs_46)" "(expand-context-observer" " tl-ctx_0)))" -"(if obs_47" +"(if obs_46" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_47" +" obs_46" " 'lift-loop" " new-s_3)))" "(void)))" @@ -44762,14 +44983,14 @@ static const char *startup_source = "(if(not single_0)" "(let-values()" "(begin" -"(let-values(((obs_48)" +"(let-values(((obs_47)" "(expand-context-observer" " tl-ctx_0)))" -"(if obs_48" +"(if obs_47" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_48" +" obs_47" " 'return" " exp-s_8)))" "(void)))" @@ -44785,50 +45006,50 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_49)" +"(let-values(((obs_48)" "(expand-context-observer" -" ctx_68)))" -"(if obs_49" +" ctx_69)))" +"(if obs_48" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_49" +" obs_48" " 'prim-begin)))" "(void)))" "(values))))" "(let-values(((ok?_27 begin161_0 e162_0)" -"(let-values(((s_439)" +"(let-values(((s_444)" " disarmed-exp-s_0))" "(let-values(((orig-s_33)" -" s_439))" +" s_444))" "(let-values(((begin161_1" " e162_1)" -"(let-values(((s_440)" +"(let-values(((s_422)" "(if(syntax?$1" -" s_439)" +" s_444)" "(syntax-e$1" -" s_439)" -" s_439)))" +" s_444)" +" s_444)))" "(if(pair?" -" s_440)" +" s_422)" "(let-values(((begin163_0)" -"(let-values(((s_441)" +"(let-values(((s_423)" "(car" -" s_440)))" -" s_441))" +" s_422)))" +" s_423))" "((e164_0)" -"(let-values(((s_442)" +"(let-values(((s_445)" "(cdr" -" s_440)))" -"(let-values(((s_117)" +" s_422)))" +"(let-values(((s_123)" "(if(syntax?$1" -" s_442)" +" s_445)" "(syntax-e$1" -" s_442)" -" s_442)))" +" s_445)" +" s_445)))" "(let-values(((flat-s_20)" "(to-syntax-list.1" -" s_117)))" +" s_123)))" "(if(not" " flat-s_20)" "(let-values()" @@ -44873,18 +45094,18 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_50)" +"(let-values(((obs_49)" "(expand-context-observer" " tl-ctx_0)))" -"(if obs_50" +"(if obs_49" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_50" +" obs_49" " 'next)))" "(void)))" "(values))))" -"(let-values(((a_63)" +"(let-values(((a_62)" "(if combine_0" "(loop_98" "(car" @@ -44902,7 +45123,7 @@ static const char *startup_source = "(void)))))" "(if combine_0" "(combine_0" -" a_63" +" a_62" "(begin-loop_0" "(cdr" " es_2)))" @@ -44918,14 +45139,14 @@ static const char *startup_source = "(begin-loop_0" " e162_0))))" "(begin" -"(let-values(((obs_42)" +"(let-values(((obs_50)" "(expand-context-observer" " tl-ctx_0)))" -"(if obs_42" +"(if obs_50" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_42" +" obs_50" " 'return" " new-s_4)))" "(void)))" @@ -44950,38 +45171,38 @@ static const char *startup_source = "(let-values(((ok?_22" " begin-for-syntax165_0" " e166_0)" -"(let-values(((s_224)" +"(let-values(((s_227)" " disarmed-exp-s_0))" "(let-values(((orig-s_34)" -" s_224))" +" s_227))" "(let-values(((begin-for-syntax165_1" " e166_1)" -"(let-values(((s_225)" -"(if(syntax?$1" -" s_224)" -"(syntax-e$1" -" s_224)" -" s_224)))" -"(if(pair?" -" s_225)" -"(let-values(((begin-for-syntax167_0)" -"(let-values(((s_227)" -"(car" -" s_225)))" -" s_227))" -"((e168_0)" -"(let-values(((s_328)" -"(cdr" -" s_225)))" "(let-values(((s_228)" "(if(syntax?$1" -" s_328)" +" s_227)" "(syntax-e$1" -" s_328)" -" s_328)))" +" s_227)" +" s_227)))" +"(if(pair?" +" s_228)" +"(let-values(((begin-for-syntax167_0)" +"(let-values(((s_230)" +"(car" +" s_228)))" +" s_230))" +"((e168_0)" +"(let-values(((s_330)" +"(cdr" +" s_228)))" +"(let-values(((s_231)" +"(if(syntax?$1" +" s_330)" +"(syntax-e$1" +" s_330)" +" s_330)))" "(let-values(((flat-s_21)" "(to-syntax-list.1" -" s_228)))" +" s_231)))" "(if(not" " flat-s_21)" "(let-values()" @@ -45045,23 +45266,23 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_305)))" -"((letrec-values(((for-loop_268)" -"(lambda(fold-var_269" +"((letrec-values(((for-loop_269)" +"(lambda(fold-var_275" " lst_306)" "(begin" " 'for-loop" "(if(pair?" " lst_306)" -"(let-values(((s_332)" +"(let-values(((s_334)" "(unsafe-car" " lst_306))" "((rest_169)" "(unsafe-cdr" " lst_306)))" +"(let-values(((fold-var_201)" "(let-values(((fold-var_202)" -"(let-values(((fold-var_203)" -" fold-var_269))" -"(let-values(((fold-var_270)" +" fold-var_275))" +"(let-values(((fold-var_276)" "(let-values()" "(cons" "(let-values()" @@ -45077,21 +45298,21 @@ static const char *startup_source = " 'next)))" "(void)))" "(loop_98" -" s_332" +" s_334" " next-phase_0" " next-ns_0" " #f)))" -" fold-var_203))))" +" fold-var_202))))" "(values" -" fold-var_270)))))" +" fold-var_276)))))" "(if(not" " #f)" -"(for-loop_268" -" fold-var_202" +"(for-loop_269" +" fold-var_201" " rest_169)" -" fold-var_202)))" -" fold-var_269)))))" -" for-loop_268)" +" fold-var_201)))" +" fold-var_275)))))" +" for-loop_269)" " null" " lst_305))))))" "(if wrap_2" @@ -45127,110 +45348,110 @@ static const char *startup_source = " ns_108" " as-tail?_7))))))))))))))))))" " loop_98)" -" s_99" -" phase_135" +" s_105" +" phase_137" " ns_107" " #t)))))))))))))))))" "(define-values" "(maybe-intro)" -"(lambda(s_443 ns_109)" -"(begin(if(syntax?$1 s_443) s_443(1/namespace-syntax-introduce(1/datum->syntax #f s_443) ns_109)))))" +"(lambda(s_446 ns_109)" +"(begin(if(syntax?$1 s_446) s_446(1/namespace-syntax-introduce(1/datum->syntax #f s_446) ns_109)))))" "(define-values" "(re-pair)" -"(lambda(form-id_0 s_444 r_43)" -"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_444)(cons form-id_0 r_43) s_444 s_444) s_444))))" +"(lambda(form-id_0 s_447 r_44)" +"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_447)(cons form-id_0 r_44) s_447 s_447) s_447))))" "(define-values" "(expand-capturing-lifts)" -"(lambda(s_445 ctx_69)" +"(lambda(s_448 ctx_70)" "(begin" "(let-values()" -"(let-values(((ns_110)(expand-context-namespace ctx_69)))" +"(let-values(((ns_110)(expand-context-namespace ctx_70)))" "(let-values((()(begin(namespace-visit-available-modules! ns_110)(values))))" "(let-values(((lift-ctx_6)" -"(let-values(((temp169_0)(make-top-level-lift ctx_69)))" +"(let-values(((temp169_0)(make-top-level-lift ctx_70)))" "(make-lift-context6.1 #f #f temp169_0))))" "(let-values(((require-lift-ctx_2)" "(make-require-lift-context" "(namespace-phase ns_110)" "(make-parse-top-lifted-require ns_110))))" "(let-values(((exp-s_9)" -"(let-values(((s170_0) s_445)" +"(let-values(((s170_0) s_448)" "((temp171_0)" -"(let-values(((v_193) ctx_69))" -"(let-values(((the-struct_73) v_193))" -"(if(expand-context/outer? the-struct_73)" +"(let-values(((v_192) ctx_70))" +"(let-values(((the-struct_72) v_192))" +"(if(expand-context/outer? the-struct_72)" "(let-values(((inner172_0)" -"(let-values(((the-struct_74)" -"(root-expand-context/outer-inner v_193)))" -"(if(expand-context/inner? the-struct_74)" +"(let-values(((the-struct_73)" +"(root-expand-context/outer-inner v_192)))" +"(if(expand-context/inner? the-struct_73)" "(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_74)" +" the-struct_73)" "(root-expand-context/inner-module-scopes" -" the-struct_74)" +" the-struct_73)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_74)" +" the-struct_73)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_74)" +" the-struct_73)" "(root-expand-context/inner-defined-syms" -" the-struct_74)" -"(root-expand-context/inner-counter the-struct_74)" +" the-struct_73)" +"(root-expand-context/inner-counter the-struct_73)" "(root-expand-context/inner-lift-key" -" the-struct_74)" -"(expand-context/inner-to-parsed? the-struct_74)" -"(expand-context/inner-phase the-struct_74)" -"(expand-context/inner-namespace the-struct_74)" -"(expand-context/inner-just-once? the-struct_74)" +" 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)" +"(expand-context/inner-just-once? the-struct_73)" "(expand-context/inner-module-begin-k" -" the-struct_74)" +" the-struct_73)" "(expand-context/inner-allow-unbound?" -" the-struct_74)" +" the-struct_73)" "(expand-context/inner-in-local-expand?" -" the-struct_74)" -"(expand-context/inner-stops the-struct_74)" +" the-struct_73)" +"(expand-context/inner-stops the-struct_73)" "(expand-context/inner-declared-submodule-names" -" the-struct_74)" +" the-struct_73)" " lifts173_0" -"(expand-context/inner-lift-envs the-struct_74)" +"(expand-context/inner-lift-envs the-struct_73)" " module-lifts174_0" " require-lifts175_0" "(expand-context/inner-to-module-lifts" -" the-struct_74)" +" the-struct_73)" "(expand-context/inner-requires+provides" -" the-struct_74)" -"(expand-context/inner-observer the-struct_74)" +" the-struct_73)" +"(expand-context/inner-observer the-struct_73)" "(expand-context/inner-for-serializable?" -" the-struct_74)" +" the-struct_73)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_74)))" +" the-struct_73)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_74)))))" +" the-struct_73)))))" "(expand-context/outer1.1" " inner172_0" -"(root-expand-context/outer-post-expansion-scope the-struct_73)" -"(root-expand-context/outer-use-site-scopes the-struct_73)" -"(root-expand-context/outer-frame-id the-struct_73)" -"(expand-context/outer-context the-struct_73)" -"(expand-context/outer-env the-struct_73)" -"(expand-context/outer-post-expansion-scope-action the-struct_73)" -"(expand-context/outer-scopes the-struct_73)" -"(expand-context/outer-def-ctx-scopes the-struct_73)" -"(expand-context/outer-binding-layer the-struct_73)" -"(expand-context/outer-reference-records the-struct_73)" -"(expand-context/outer-only-immediate? the-struct_73)" -"(expand-context/outer-need-eventually-defined the-struct_73)" -"(expand-context/outer-current-introduction-scopes the-struct_73)" -"(expand-context/outer-name the-struct_73)))" +"(root-expand-context/outer-post-expansion-scope the-struct_72)" +"(root-expand-context/outer-use-site-scopes the-struct_72)" +"(root-expand-context/outer-frame-id the-struct_72)" +"(expand-context/outer-context the-struct_72)" +"(expand-context/outer-env the-struct_72)" +"(expand-context/outer-post-expansion-scope-action the-struct_72)" +"(expand-context/outer-scopes the-struct_72)" +"(expand-context/outer-def-ctx-scopes the-struct_72)" +"(expand-context/outer-binding-layer the-struct_72)" +"(expand-context/outer-reference-records the-struct_72)" +"(expand-context/outer-only-immediate? the-struct_72)" +"(expand-context/outer-need-eventually-defined the-struct_72)" +"(expand-context/outer-current-introduction-scopes the-struct_72)" +"(expand-context/outer-name the-struct_72)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_73))))))" +" the-struct_72))))))" "(expand7.1 #f #f #f #f s170_0 temp171_0))))" "(values" "(get-and-clear-require-lifts! require-lift-ctx_2)" @@ -45240,31 +45461,31 @@ static const char *startup_source = "(make-parse-top-lifted-require)" "(lambda(ns_73)" "(begin" -"(lambda(s_446 phase_136)" +"(lambda(s_449 phase_138)" "(let-values(((ok?_28 #%require176_0 req177_0)" -"(let-values(((s_447)(syntax-disarm$1 s_446)))" -"(let-values(((orig-s_35) s_447))" +"(let-values(((s_450)(syntax-disarm$1 s_449)))" +"(let-values(((orig-s_35) s_450))" "(let-values(((#%require176_1 req177_1)" -"(let-values(((s_247)(if(syntax?$1 s_447)(syntax-e$1 s_447) s_447)))" -"(if(pair? s_247)" -"(let-values(((#%require178_0)(let-values(((s_248)(car s_247))) s_248))" -"((req179_0)" -"(let-values(((s_249)(cdr s_247)))" -"(let-values(((s_250)" -"(if(syntax?$1 s_249)" -"(syntax-e$1 s_249)" -" s_249)))" +"(let-values(((s_250)(if(syntax?$1 s_450)(syntax-e$1 s_450) s_450)))" "(if(pair? s_250)" +"(let-values(((#%require178_0)(let-values(((s_251)(car s_250))) s_251))" +"((req179_0)" +"(let-values(((s_252)(cdr s_250)))" +"(let-values(((s_253)" +"(if(syntax?$1 s_252)" +"(syntax-e$1 s_252)" +" s_252)))" +"(if(pair? s_253)" "(let-values(((req180_0)" -"(let-values(((s_448)(car s_250)))" -" s_448))" +"(let-values(((s_451)(car s_253)))" +" s_451))" "(()" -"(let-values(((s_449)(cdr s_250)))" -"(let-values(((s_450)" -"(if(syntax?$1 s_449)" -"(syntax-e$1 s_449)" -" s_449)))" -"(if(null? s_450)" +"(let-values(((s_452)(cdr s_253)))" +"(let-values(((s_453)" +"(if(syntax?$1 s_452)" +"(syntax-e$1 s_452)" +" s_452)))" +"(if(null? s_453)" "(values)" "(raise-syntax-error$1" " #f" @@ -45276,10 +45497,10 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_35)))))" "(values #t #%require176_1 req177_1))))))" "(let-values(((temp181_0)(list req177_0))" -"((s182_0) s_446)" +"((s182_0) s_449)" "((ns183_0) ns_73)" -"((phase184_1) phase_136)" -"((phase185_0) phase_136)" +"((phase184_1) phase_138)" +"((phase185_0) phase_138)" "((temp186_0)(let-values(((temp188_0) #f))(make-requires+provides8.1 #f #f temp188_0)))" "((temp187_0) 'require))" "(parse-and-perform-requires!30.1" @@ -45313,7 +45534,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))" @@ -45326,43 +45547,43 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_307)))" -"((letrec-values(((for-loop_269)" -"(lambda(fold-var_271 lst_308)" +"((letrec-values(((for-loop_270)" +"(lambda(fold-var_277 lst_308)" "(begin" " 'for-loop" "(if(pair? lst_308)" "(let-values(((req_19)(unsafe-car lst_308))" "((rest_170)(unsafe-cdr lst_308)))" -"(let-values(((fold-var_272)" -"(let-values(((fold-var_273) fold-var_271))" -"(let-values(((fold-var_274)" +"(let-values(((fold-var_278)" +"(let-values(((fold-var_279) fold-var_277))" +"(let-values(((fold-var_280)" "(let-values()" "(cons" "(let-values()" "(parsed-require23.1 req_19))" -" fold-var_273))))" -"(values fold-var_274)))))" -"(if(not #f)(for-loop_269 fold-var_272 rest_170) fold-var_272)))" -" fold-var_271)))))" -" for-loop_269)" +" fold-var_279))))" +"(values fold-var_280)))))" +"(if(not #f)(for-loop_270 fold-var_278 rest_170) fold-var_278)))" +" fold-var_277)))))" +" for-loop_270)" " null" " lst_307))))" "(reverse$1" -"(let-values(((lst_309)(get-lifts-as-lists lifts_13)))" +"(let-values(((lst_309)(get-lifts-as-lists lifts_12)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_309)))" -"((letrec-values(((for-loop_270)" -"(lambda(fold-var_275 lst_310)" +"((letrec-values(((for-loop_271)" +"(lambda(fold-var_281 lst_310)" "(begin" " 'for-loop" "(if(pair? lst_310)" "(let-values(((ids+syms+rhs_0)(unsafe-car lst_310))" "((rest_171)(unsafe-cdr lst_310)))" -"(let-values(((fold-var_276)" -"(let-values(((fold-var_277) fold-var_275))" -"(let-values(((fold-var_278)" +"(let-values(((fold-var_282)" +"(let-values(((fold-var_283) fold-var_281))" +"(let-values(((fold-var_284)" "(let-values()" "(cons" "(let-values()" @@ -45386,64 +45607,64 @@ static const char *startup_source = " just-rhs_0)))" "(if(lifted-parsed-begin?" " exp-rhs_1)" -"(let-values(((the-struct_75)" +"(let-values(((the-struct_74)" " exp-rhs_1))" "(if(lifted-parsed-begin?" -" the-struct_75)" +" the-struct_74)" "(let-values(((last189_0)" " dv_0))" "(lifted-parsed-begin30.1" "(lifted-parsed-begin-seq" -" the-struct_75)" +" the-struct_74)" " last189_0))" "(raise-argument-error" " 'struct-copy" " \"lifted-parsed-begin?\"" -" the-struct_75)))" +" the-struct_74)))" " dv_0)))))" -" fold-var_277))))" -"(values fold-var_278)))))" -"(if(not #f)(for-loop_270 fold-var_276 rest_171) fold-var_276)))" -" fold-var_275)))))" -" for-loop_270)" +" fold-var_283))))" +"(values fold-var_284)))))" +"(if(not #f)(for-loop_271 fold-var_282 rest_171) fold-var_282)))" +" fold-var_281)))))" +" for-loop_271)" " null" " lst_309)))))" " exp-s_10))))))))))" "(define-values" "(log-top-lift-begin-before)" -"(lambda(ctx_70 require-lifts_7 lifts_14 exp-s_11 ns_111)" +"(lambda(ctx_71 require-lifts_7 lifts_13 exp-s_11 ns_111)" "(begin" -"(let-values(((obs_55)(expand-context-observer ctx_70)))" +"(let-values(((obs_55)(expand-context-observer ctx_71)))" "(if obs_55" "(let-values()" "(let-values(((new-s_6)" -"(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_111)))" "(wrap-lifts-as-begin16.1 #f #f #f #f temp190_0 exp-s191_0 temp192_0))))" -"(begin(call-expand-observe obs_55 'lift-loop new-s_6)(log-top-begin-before ctx_70 new-s_6))))" +"(begin(call-expand-observe obs_55 'lift-loop new-s_6)(log-top-begin-before ctx_71 new-s_6))))" "(void))))))" "(define-values" "(log-top-begin-before)" -"(lambda(ctx_71 new-s_7)" +"(lambda(ctx_72 new-s_7)" "(begin" -"(let-values(((obs_56)(expand-context-observer ctx_71)))" +"(let-values(((obs_56)(expand-context-observer ctx_72)))" "(if obs_56" "(let-values()" "(let-values(((ok?_29 begin193_0 e194_0)" -"(let-values(((s_451) new-s_7))" -"(let-values(((orig-s_36) s_451))" +"(let-values(((s_454) new-s_7))" +"(let-values(((orig-s_36) s_454))" "(let-values(((begin193_1 e194_1)" -"(let-values(((s_452)(if(syntax?$1 s_451)(syntax-e$1 s_451) s_451)))" -"(if(pair? s_452)" -"(let-values(((begin195_0)(let-values(((s_453)(car s_452))) s_453))" +"(let-values(((s_455)(if(syntax?$1 s_454)(syntax-e$1 s_454) s_454)))" +"(if(pair? s_455)" +"(let-values(((begin195_0)(let-values(((s_456)(car s_455))) s_456))" "((e196_0)" -"(let-values(((s_454)(cdr s_452)))" -"(let-values(((s_128)" -"(if(syntax?$1 s_454)" -"(syntax-e$1 s_454)" -" s_454)))" -"(let-values(((flat-s_22)(to-syntax-list.1 s_128)))" +"(let-values(((s_457)(cdr s_455)))" +"(let-values(((s_134)" +"(if(syntax?$1 s_457)" +"(syntax-e$1 s_457)" +" s_457)))" +"(let-values(((flat-s_22)(to-syntax-list.1 s_134)))" "(if(not flat-s_22)" "(let-values()" "(raise-syntax-error$1" @@ -45463,25 +45684,25 @@ static const char *startup_source = "(void))))))" "(define-values" "(log-top-begin-after)" -"(lambda(ctx_72 new-s_8)" +"(lambda(ctx_73 new-s_8)" "(begin" -"(let-values(((obs_57)(expand-context-observer ctx_72)))" +"(let-values(((obs_57)(expand-context-observer ctx_73)))" "(if obs_57" "(let-values()" "(let-values(((ok?_30 begin197_0 e198_0)" -"(let-values(((s_455) new-s_8))" -"(let-values(((orig-s_37) s_455))" +"(let-values(((s_458) new-s_8))" +"(let-values(((orig-s_37) s_458))" "(let-values(((begin197_1 e198_1)" -"(let-values(((s_456)(if(syntax?$1 s_455)(syntax-e$1 s_455) s_455)))" -"(if(pair? s_456)" -"(let-values(((begin199_0)(let-values(((s_457)(car s_456))) s_457))" +"(let-values(((s_459)(if(syntax?$1 s_458)(syntax-e$1 s_458) s_458)))" +"(if(pair? s_459)" +"(let-values(((begin199_0)(let-values(((s_460)(car s_459))) s_460))" "((e200_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_23)(to-syntax-list.1 s_459)))" +"(let-values(((s_461)(cdr s_459)))" +"(let-values(((s_462)" +"(if(syntax?$1 s_461)" +"(syntax-e$1 s_461)" +" s_461)))" +"(let-values(((flat-s_23)(to-syntax-list.1 s_462)))" "(if(not flat-s_23)" "(let-values()" "(raise-syntax-error$1" @@ -45492,7 +45713,7 @@ static const char *startup_source = "(values begin199_0 e200_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_37)))))" "(values #t begin197_1 e198_1))))))" -"(let-values(((obs_58)(expand-context-observer ctx_72)))" +"(let-values(((obs_58)(expand-context-observer ctx_73)))" "(if obs_58" "(let-values()" "(let-values()" @@ -45508,9 +45729,9 @@ static const char *startup_source = "(lambda(who3_0 mod-path4_0 sym5_0 fail-k1_0 fail-k2_0)" "(begin" " 'do-dynamic-require6" -"(let-values(((who_20) who3_0))" +"(let-values(((who_21) who3_0))" "(let-values(((mod-path_5) mod-path4_0))" -"(let-values(((sym_81) sym5_0))" +"(let-values(((sym_82) sym5_0))" "(let-values(((fail-k_2)(if fail-k2_0 fail-k1_0 default-dynamic-require-fail-thunk)))" "(let-values()" "(let-values((()" @@ -45523,23 +45744,23 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-argument-error" -" who_20" +" who_21" " \"(or/c module-path? module-path-index? resolved-module-path?)\"" " mod-path_5)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_5)(symbol? sym_81)))" +"(if(let-values(((or-part_5)(symbol? sym_82)))" "(if or-part_5" " or-part_5" -"(let-values(((or-part_6)(not sym_81)))" +"(let-values(((or-part_6)(not sym_82)))" "(if or-part_6" " or-part_6" -"(let-values(((or-part_293)(equal? sym_81 0)))" -"(if or-part_293 or-part_293(void? sym_81)))))))" +"(let-values(((or-part_300)(equal? sym_82 0)))" +"(if or-part_300 or-part_300(void? sym_82)))))))" "(void)" "(let-values()" -" (raise-argument-error who_20 \"(or/c symbol? #f 0 void?)\" sym_81)))" +" (raise-argument-error who_21 \"(or/c symbol? #f 0 void?)\" sym_82)))" "(values))))" "(let-values((()" "(begin" @@ -45547,10 +45768,10 @@ static const char *startup_source = "(procedure-arity-includes? fail-k_2 0)" " #f)" "(void)" -" (let-values () (raise-argument-error who_20 \"(-> any)\" fail-k_2)))" +" (let-values () (raise-argument-error who_21 \"(-> any)\" fail-k_2)))" "(values))))" "(let-values(((ns_58)(1/current-namespace)))" -"(let-values(((mpi_47)" +"(let-values(((mpi_48)" "(if(1/module-path? mod-path_5)" "(let-values()(1/module-path-index-join mod-path_5 #f))" "(if(1/module-path-index? mod-path_5)" @@ -45559,17 +45780,17 @@ static const char *startup_source = "(1/module-path-index-join" "(resolved-module-path->module-path mod-path_5)" " #f))))))" -"(let-values(((mod-name_22)(1/module-path-index-resolve mpi_47 #t)))" -"(let-values(((phase_137)(namespace-phase ns_58)))" -"(if(not sym_81)" +"(let-values(((mod-name_22)(1/module-path-index-resolve mpi_48 #t)))" +"(let-values(((phase_139)(namespace-phase ns_58)))" +"(if(not sym_82)" "(let-values()" "(let-values(((ns20_1) ns_58)" -"((mpi21_0) mpi_47)" -"((phase22_0) phase_137)" -"((phase23_1) phase_137)" -"((temp24_5) #f))" +"((mpi21_0) mpi_48)" +"((phase22_0) phase_139)" +"((phase23_1) phase_139)" +"((temp24_4) #f))" "(namespace-module-instantiate!96.1" -" temp24_5" +" temp24_4" " #t" " phase23_1" " #t" @@ -45580,12 +45801,12 @@ static const char *startup_source = " ns20_1" " mpi21_0" " phase22_0)))" -"(if(equal? sym_81 0)" +"(if(equal? sym_82 0)" "(let-values()" "(let-values(((ns25_2) ns_58)" -"((mpi26_0) mpi_47)" -"((phase27_1) phase_137)" -"((phase28_1) phase_137))" +"((mpi26_0) mpi_48)" +"((phase27_1) phase_139)" +"((phase28_1) phase_139))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -45598,12 +45819,12 @@ static const char *startup_source = " ns25_2" " mpi26_0" " phase27_1)))" -"(if(void? sym_81)" +"(if(void? sym_82)" "(let-values()" "(let-values(((ns29_0) ns_58)" -"((mpi30_0) mpi_47)" -"((phase31_1) phase_137)" -"((phase32_3) phase_137))" +"((mpi30_0) mpi_48)" +"((phase31_1) phase_139)" +"((phase32_3) phase_139))" "(namespace-module-visit!104.1" " phase32_3" " #t" @@ -45624,7 +45845,7 @@ static const char *startup_source = "(let-values(((binding/p_5)" "(hash-ref" "(hash-ref(module-provides m_22) 0 '#hasheq())" -" sym_81" +" sym_82" " #f)))" "(if(not binding/p_5)" "(let-values()" @@ -45633,7 +45854,7 @@ static const char *startup_source = " 'dynamic-require" " \"name is not provided\"" " \"name\"" -" sym_81" +" sym_82" " \"module\"" " mod-name_22)" "(fail-k_2)))" @@ -45647,10 +45868,10 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((ns33_0) ns_58)" -"((mpi34_0) mpi_47)" -"((phase35_1) phase_137)" +"((mpi34_0) mpi_48)" +"((phase35_1) phase_139)" "((phase36_0)" -" phase_137))" +" phase_139))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -45669,14 +45890,14 @@ static const char *startup_source = "(module-path-index-shift" "(module-binding-module binding_26)" "(module-self m_22)" -" mpi_47))))" +" mpi_48))))" "(let-values(((m-ns_16)" "(let-values(((ns37_1) ns_58)" "((ex-mod-name38_0)" " ex-mod-name_0)" "((temp39_4)" "(phase-" -" phase_137" +" phase_139" " ex-phase_0))" "((temp40_2) #t))" "(namespace->module-namespace82.1" @@ -45734,7 +45955,7 @@ static const char *startup_source = " 'dynamic-require" " \"name is protected\"" " \"name\"" -" sym_81" +" sym_82" " \"module\"" " mod-name_22))" "(void))" @@ -45750,7 +45971,7 @@ static const char *startup_source = " 'dynamic-require" " \"name's binding is missing\"" " \"name\"" -" sym_81" +" sym_82" " \"module\"" " mod-name_22)" "(fail-k_2))))))" @@ -45771,11 +45992,11 @@ static const char *startup_source = "(let-values(((ns41_2)" " ns_58)" "((mpi42_1)" -" mpi_47)" +" mpi_48)" "((phase43_2)" -" phase_137)" +" phase_139)" "((phase44_0)" -" phase_137))" +" phase_139))" "(namespace-module-visit!104.1" " phase44_0" " #t" @@ -45819,11 +46040,11 @@ static const char *startup_source = " tmp-ns_0)" "(let-values()" "(1/eval" -" sym_81" +" sym_82" " tmp-ns_0))))))))))))))))))))))))))))))))))))))))))))))))" "(case-lambda" -"((who_21 mod-path_17 sym_82)(begin(do-dynamic-require6_0 who_21 mod-path_17 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)))))" +"((who_22 mod-path_17 sym_83)(begin(do-dynamic-require6_0 who_22 mod-path_17 sym_83 #f #f)))" +"((who_23 mod-path_18 sym_84 fail-k1_1)(do-dynamic-require6_0 who_23 mod-path_18 sym_84 fail-k1_1 #t)))))" " (define-values (default-dynamic-require-fail-thunk) (lambda () (begin (error \"failed\"))))" "(define-values" "(1/dynamic-require)" @@ -45832,12 +46053,14 @@ static const char *startup_source = "(begin" " 'dynamic-require12" "(let-values(((mod-path_19) mod-path10_2))" -"(let-values(((sym_84) sym11_0))" +"(let-values(((sym_85) 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_84 fail-k_3)))))))))" +"(let-values()" +"(let-values()" +"(let-values()(do-dynamic-require 'dynamic-require mod-path_19 sym_85 fail-k_3)))))))))))" "(case-lambda" -"((mod-path_20 sym_85)(begin 'dynamic-require(dynamic-require12_0 mod-path_20 sym_85 #f #f)))" -"((mod-path_21 sym_86 fail-k8_1)(dynamic-require12_0 mod-path_21 sym_86 fail-k8_1 #t)))))" +"((mod-path_20 sym_86)(begin 'dynamic-require(dynamic-require12_0 mod-path_20 sym_86 #f #f)))" +"((mod-path_21 sym_87 fail-k8_1)(dynamic-require12_0 mod-path_21 sym_87 fail-k8_1 #t)))))" "(define-values" "(1/dynamic-require-for-syntax)" "(let-values(((dynamic-require-for-syntax18_0)" @@ -45845,18 +46068,24 @@ static const char *startup_source = "(begin" " 'dynamic-require-for-syntax18" "(let-values(((mod-path_22) mod-path16_0))" -"(let-values(((sym_87) sym17_1))" +"(let-values(((sym_26) sym17_1))" "(let-values(((fail-k_4)(if fail-k15_0 fail-k14_0 default-dynamic-require-fail-thunk)))" "(let-values()" +"(let-values()" +"(let-values()" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " 1/current-namespace" -"(let-values(((ns_112)(1/current-namespace)))" -"(namespace->namespace-at-phase ns_112(add1(namespace-phase ns_112)))))" +"(let-values(((ns_95)(1/current-namespace)))" +"(namespace->namespace-at-phase ns_95(add1(namespace-phase ns_95)))))" "(let-values()" -"(do-dynamic-require 'dynamic-require-for-syntax mod-path_22 sym_87 fail-k_4)))))))))))" +"(do-dynamic-require" +" 'dynamic-require-for-syntax" +" mod-path_22" +" sym_26" +" fail-k_4)))))))))))))" "(case-lambda" "((mod-path_23 sym_88)" "(begin 'dynamic-require-for-syntax(dynamic-require-for-syntax18_0 mod-path_23 sym_88 #f #f)))" @@ -45868,12 +46097,12 @@ static const char *startup_source = "(let-values()" "(make-parameter" "(replace-me 'current-eval)" -"(lambda(p_50)" +"(lambda(p_51)" "(begin" -"(if((lambda(p_51)(if(procedure? p_51)(procedure-arity-includes? p_51 1) #f)) p_50)" +"(if((lambda(p_52)(if(procedure? p_52)(procedure-arity-includes? p_52 1) #f)) p_51)" "(void)" -" (let-values () (raise-argument-error 'current-eval \"(procedure-arity-includes/c 1)\" p_50)))" -" p_50))))))" +" (let-values () (raise-argument-error 'current-eval \"(procedure-arity-includes/c 1)\" p_51)))" +" p_51))))))" "(define-values" "(1/current-compile)" "(let-values()" @@ -45882,7 +46111,7 @@ static const char *startup_source = "(replace-me 'current-compile)" "(lambda(p_31)" "(begin" -"(if((lambda(p_52)(if(procedure? p_52)(procedure-arity-includes? p_52 2) #f)) p_31)" +"(if((lambda(p_53)(if(procedure? p_53)(procedure-arity-includes? p_53 2) #f)) p_31)" "(void)" " (let-values () (raise-argument-error 'current-compile \"(procedure-arity-includes/c 2)\" p_31)))" " p_31))))))" @@ -45892,12 +46121,12 @@ static const char *startup_source = "(let-values()" "(make-parameter" "(replace-me 'current-load)" -"(lambda(p_53)" +"(lambda(p_54)" "(begin" -"(if((lambda(p_54)(if(procedure? p_54)(procedure-arity-includes? p_54 2) #f)) p_53)" +"(if((lambda(p_55)(if(procedure? p_55)(procedure-arity-includes? p_55 2) #f)) p_54)" "(void)" -" (let-values () (raise-argument-error 'current-load \"(procedure-arity-includes/c 2)\" p_53)))" -" p_53))))))" +" (let-values () (raise-argument-error 'current-load \"(procedure-arity-includes/c 2)\" p_54)))" +" p_54))))))" "(define-values" "(1/current-load/use-compiled)" "(let-values()" @@ -45937,40 +46166,40 @@ static const char *startup_source = "(if((lambda(l_8)" "(if(list? l_8)" "(andmap2" -"(lambda(p_55)" -"(let-values(((or-part_300)(not p_55)))" -"(if or-part_300" -" or-part_300" -"(let-values(((or-part_301)(complete-path-string? p_55)))" -"(if or-part_301" -" or-part_301" -"(if(hash? p_55)" -"(let-values(((ht_152) p_55))" +"(lambda(p_56)" +"(let-values(((or-part_292)(not p_56)))" +"(if or-part_292" +" or-part_292" +"(let-values(((or-part_293)(complete-path-string? p_56)))" +"(if or-part_293" +" or-part_293" +"(if(hash? p_56)" +"(let-values(((ht_153) p_56))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_152)))" -"((letrec-values(((for-loop_183)" -"(lambda(result_115 i_90)" +"(let-values()(check-in-hash ht_153)))" +"((letrec-values(((for-loop_184)" +"(lambda(result_115 i_91)" "(begin" " 'for-loop" -"(if i_90" -"(let-values(((k_34 v_3)" -"(hash-iterate-key+value ht_152 i_90)))" +"(if i_91" +"(let-values(((k_35 v_3)" +"(hash-iterate-key+value ht_153 i_91)))" "(let-values(((result_116)" "(let-values()" "(let-values(((result_117)" "(let-values()" "(let-values()" -"(if(let-values(((or-part_75)" +"(if(let-values(((or-part_74)" "(not" -" k_34)))" -"(if or-part_75" -" or-part_75" +" k_35)))" +"(if or-part_74" +" or-part_74" "(if(symbol?" -" k_34)" +" k_35)" "(1/module-path?" -" k_34)" +" k_35)" " #f)))" "(if(list? v_3)" "(andmap2" @@ -45979,17 +46208,17 @@ static const char *startup_source = " #f)" " #f)))))" "(values result_117)))))" -"(if(if(not((lambda x_78(not result_116)) k_34 v_3))" +"(if(if(not((lambda x_79(not result_116)) k_35 v_3))" "(not #f)" " #f)" -"(for-loop_183" +"(for-loop_184" " result_116" -"(hash-iterate-next ht_152 i_90))" +"(hash-iterate-next ht_153 i_91))" " result_116)))" " result_115)))))" -" for-loop_183)" +" for-loop_184)" " #t" -"(hash-iterate-first ht_152))))" +"(hash-iterate-first ht_153))))" " #f))))))" " l_8)" " #f))" @@ -46013,38 +46242,38 @@ static const char *startup_source = "(if(string? p_3)" "(let-values()(string->path p_3))" "(let-values()" -"(let-values(((ht_153) p_3))" +"(let-values(((ht_154) p_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_153)))" -"((letrec-values(((for-loop_271)" -"(lambda(table_216 i_91)" +"(let-values()(check-in-hash ht_154)))" +"((letrec-values(((for-loop_272)" +"(lambda(table_215 i_92)" "(begin" " 'for-loop" -"(if i_91" -"(let-values(((k_35 v_194)(hash-iterate-key+value ht_153 i_91)))" +"(if i_92" +"(let-values(((k_36 v_193)(hash-iterate-key+value ht_154 i_92)))" +"(let-values(((table_216)" +"(let-values(((table_185) table_215))" "(let-values(((table_217)" -"(let-values(((table_185) table_216))" -"(let-values(((table_218)" "(let-values()" -"(let-values(((key_84 val_74)" +"(let-values(((key_87 val_78)" "(let-values()" "(values" -" k_35" -"(to-path v_194)))))" +" k_36" +"(to-path v_193)))))" "(hash-set" " table_185" -" key_84" -" val_74)))))" -"(values table_218)))))" +" key_87" +" val_78)))))" +"(values table_217)))))" "(if(not #f)" -"(for-loop_271 table_217(hash-iterate-next ht_153 i_91))" -" table_217)))" -" table_216)))))" -" for-loop_271)" +"(for-loop_272 table_216(hash-iterate-next ht_154 i_92))" +" table_216)))" +" table_215)))))" +" for-loop_272)" " '#hash()" -"(hash-iterate-first ht_153)))))))))" +"(hash-iterate-first ht_154)))))))))" " l_71)))))))" "(define-values" "(1/use-compiled-file-paths)" @@ -46070,8 +46299,8 @@ static const char *startup_source = "(if((lambda(l_74)" "(if(list? l_74)" "(andmap2" -"(lambda(p_56)" -"(let-values(((or-part_8)(path-string? p_56)))(if or-part_8 or-part_8(eq? p_56 'same))))" +"(lambda(p_57)" +"(let-values(((or-part_8)(path-string? p_57)))(if or-part_8 or-part_8(eq? p_57 'same))))" " l_74)" " #f))" " l_73)" @@ -46085,22 +46314,22 @@ static const char *startup_source = "(let-values()" "(make-parameter" " 'modify-seconds" -"(lambda(v_195)" +"(lambda(v_194)" "(begin" "(if((lambda(v_62)" "(let-values(((or-part_21)(eq? v_62 'modify-seconds)))" "(if or-part_21 or-part_21(eq? v_62 'exists))))" -" v_195)" +" v_194)" "(void)" -" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_195)))" -" v_195))))))" +" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_194)))" +" v_194))))))" "(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_196)(if v_196 #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_20)(begin(if(path-string? p_20)(complete-path? p_20) #f))))" "(define-values" "(relative-path-string?$1)" -"(lambda(p_57)(begin 'relative-path-string?(if(path-string? p_57)(relative-path? p_57) #f))))" -"(define-values(to-path)(lambda(p_58)(begin(if(string? p_58)(string->path p_58) p_58))))" +"(lambda(p_58)(begin 'relative-path-string?(if(path-string? p_58)(relative-path? p_58) #f))))" +"(define-values(to-path)(lambda(p_59)(begin(if(string? p_59)(string->path p_59) p_59))))" "(define-values" "(1/load)" "(lambda(s_0)" @@ -46112,8 +46341,8 @@ static const char *startup_source = "(begin" " (if (path-string? s_0) (void) (let-values () (raise-argument-error 'load \"path-string?\" s_0)))" "(values))))" -"(let-values(((p_59)(->path s_0)))" -"(call-with-current-load-relative-directory p_59(lambda()((1/current-load) p_59 #f))))))))))" +"(let-values(((p_60)(->path s_0)))" +"(call-with-current-load-relative-directory p_60(lambda()((1/current-load) p_60 #f))))))))))" "(define-values" "(1/load-extension)" "(lambda(s_1)" @@ -46127,13 +46356,13 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'load-extension \"path-string?\" s_1)))" "(values))))" -"(let-values(((p_60)(->path s_1)))" -"(call-with-current-load-relative-directory p_60(lambda()((current-load-extension) p_60 #f))))))))))" +"(let-values(((p_61)(->path s_1)))" +"(call-with-current-load-relative-directory p_61(lambda()((current-load-extension) p_61 #f))))))))))" "(define-values" "(call-with-current-load-relative-directory)" "(lambda(p_31 thunk_4)" "(begin" -"(let-values(((base_18 name_54 dir?_2)(split-path p_31)))" +"(let-values(((base_18 name_62 dir?_2)(split-path p_31)))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -46157,34 +46386,34 @@ static const char *startup_source = "(let-values(((p_48)(->path f_25)))((1/current-load/use-compiled) p_48 #f))))))))" "(define-values" "(embedded-load)" -"(lambda(start_41 end_31 str_24 as-predefined?_0)" +"(lambda(start_42 end_32 str_23 as-predefined?_0)" "(begin" -"(let-values(((s_146)" -"(if str_24" -" str_24" +"(let-values(((s_164)" +"(if str_23" +" str_23" "(let-values(((sp_0)(find-system-path 'exec-file)))" "(let-values(((exe_0)(find-executable-path sp_0 #f)))" -"(let-values(((start_42)" -"(let-values(((or-part_301)(1/string->number start_41)))" -"(if or-part_301 or-part_301 0))))" -"(let-values(((end_32)" -"(let-values(((or-part_303)(1/string->number end_31)))" -"(if or-part_303 or-part_303 0))))" +"(let-values(((start_43)" +"(let-values(((or-part_293)(1/string->number start_42)))" +"(if or-part_293 or-part_293 0))))" +"(let-values(((end_33)" +"(let-values(((or-part_298)(1/string->number end_32)))" +"(if or-part_298 or-part_298 0))))" "(let-values(((exe4_0) exe_0)" -"((temp5_6)" +"((temp5_5)" "(lambda()" "(begin" " 'temp5" "(begin" -"(file-position(current-input-port) start_42)" -"(read-bytes(max 0(- end_32 start_42))))))))" -"(with-input-from-file45.1 #f #f exe4_0 temp5_6)))))))))" -"(let-values(((p_61)(open-input-bytes s_146)))" +"(file-position(current-input-port) start_43)" +"(read-bytes(max 0(- end_33 start_43))))))))" +"(with-input-from-file45.1 #f #f exe4_0 temp5_5)))))))))" +"(let-values(((p_62)(open-input-bytes s_164)))" "((letrec-values(((loop_74)" "(lambda()" "(begin" " 'loop" -"(let-values(((e_76)" +"(let-values(((e_77)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -46197,8 +46426,8 @@ static const char *startup_source = " #t" " read-on-demand-source" " #t)" -"(let-values()(1/read p_61)))))" -"(if(eof-object? e_76)" +"(let-values()(1/read p_62)))))" +"(if(eof-object? e_77)" "(void)" "(let-values()" "(begin" @@ -46208,10 +46437,10 @@ static const char *startup_source = "(continuation-mark-set-first #f parameterization-key)" " current-module-declare-as-predefined" " as-predefined?_0)" -"(let-values()((1/current-eval) e_76)))" +"(let-values()((1/current-eval) e_77)))" "(loop_74)))))))))" " loop_74)))))))" -"(define-values(->path)(lambda(s_424)(begin(if(string? s_424)(string->path s_424) s_424))))" +"(define-values(->path)(lambda(s_430)(begin(if(string? s_430)(string->path s_430) s_430))))" "(define-values" "(find-main-collects)" "(lambda()" @@ -46232,30 +46461,30 @@ static const char *startup_source = "(path->complete-path" "(find-executable-path(find-system-path 'exec-file))" "(find-system-path 'orig-dir))))" -"(let-values(((base_19 name_62 dir?_3)(split-path exec_0)))" +"(let-values(((base_19 name_63 dir?_3)(split-path exec_0)))" "(simplify-path(path->complete-path collects-path_0 base_19)))))" "(let-values()" -"(let-values(((p_60)(find-executable-path(find-system-path 'exec-file) collects-path_0 #t)))" -"(if p_60(simplify-path p_60) #f))))))))" +"(let-values(((p_61)(find-executable-path(find-system-path 'exec-file) collects-path_0 #t)))" +"(if p_61(simplify-path p_61) #f))))))))" "(define-values(relative-path-string?)(lambda(s_0)(begin(if(path-string? s_0)(relative-path? s_0) #f))))" "(define-values" "(check-collection)" -"(lambda(who_23 s_154 l_4)" +"(lambda(who_24 s_183 l_4)" "(begin" "(begin" -"(if(relative-path-string? s_154)" +"(if(relative-path-string? s_183)" "(void)" -" (let-values () (raise-argument-error who_23 \"(and/c path-string? relative-path?)\" s_154)))" +" (let-values () (raise-argument-error who_24 \"(and/c path-string? relative-path?)\" s_183)))" "(if((lambda(l_2)(if(list? l_2)(andmap2 relative-path-string? l_2) #f)) l_4)" "(void)" -" (let-values () (raise-argument-error who_23 \"(listof (and/c path-string? relative-path?))\" l_4)))))))" +" (let-values () (raise-argument-error who_24 \"(listof (and/c path-string? relative-path?))\" l_4)))))))" "(define-values" "(check-fail)" -"(lambda(who_24 fail_2)" +"(lambda(who_25 fail_2)" "(begin" -"(if((lambda(p_52)(if(procedure? p_52)(procedure-arity-includes? p_52 1) #f)) fail_2)" +"(if((lambda(p_53)(if(procedure? p_53)(procedure-arity-includes? p_53 1) #f)) fail_2)" "(void)" -" (let-values () (raise-argument-error who_24 \"(procedure-arity-includes/c 1)\" fail_2))))))" +" (let-values () (raise-argument-error who_25 \"(procedure-arity-includes/c 1)\" fail_2))))))" "(define-values" "(1/collection-path)" "(lambda(fail_3 collection_0 collection-path_0)" @@ -46286,21 +46515,21 @@ static const char *startup_source = "(get-config-table)" "(lambda(d_33)" "(begin" -" (let-values (((p_62) (if d_33 (build-path d_33 \"config.rktd\") #f)))" -"(let-values(((or-part_294)" -"(if p_62" -"(if(file-exists? p_62)" -"(let-values(((p9_0) p_62)" -"((temp10_3)" +" (let-values (((p_63) (if d_33 (build-path d_33 \"config.rktd\") #f)))" +"(let-values(((or-part_291)" +"(if p_63" +"(if(file-exists? p_63)" +"(let-values(((p9_0) p_63)" +"((temp10_4)" "(lambda()" "(begin" " 'temp10" "(let-values(((v_2)(call-with-default-reading-parameterization 1/read)))" "(if(hash? v_2) v_2 #f))))))" -"(with-input-from-file45.1 #f #f p9_0 temp10_3))" +"(with-input-from-file45.1 #f #f p9_0 temp10_4))" " #f)" " #f)))" -"(if or-part_294 or-part_294 '#hash()))))))" +"(if or-part_291 or-part_291 '#hash()))))))" "(define-values" "(get-installation-name)" "(lambda(config-table_0)(begin(hash-ref config-table_0 'installation-name(version)))))" @@ -46315,19 +46544,19 @@ 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_63)" +"(lambda(p_64)" "(begin" -"(if(complete-path? p_63)" -"(let-values() p_63)" +"(if(complete-path? p_64)" +"(let-values() p_64)" "(let-values()" "(path->complete-path" -" p_63" -"(let-values(((or-part_176)(find-main-collects)))(if or-part_176 or-part_176(current-directory)))))))))" +" p_64" +"(let-values(((or-part_177)(find-main-collects)))(if or-part_177 or-part_177(current-directory)))))))))" "(define-values" "(add-config-search)" -"(lambda(ht_154 key_85 orig-l_9)" +"(lambda(ht_155 key_88 orig-l_9)" "(begin" -"(let-values(((l_75)(hash-ref ht_154 key_85 #f)))" +"(let-values(((l_75)(hash-ref ht_155 key_88 #f)))" "(if l_75" "((letrec-values(((loop_99)" "(lambda(l_76)" @@ -46346,22 +46575,22 @@ static const char *startup_source = "(lambda()" "(begin" " 'find-library-collection-links" -"(let-values(((ht_155)(get-config-table(find-main-config))))" +"(let-values(((ht_156)(get-config-table(find-main-config))))" "(let-values(((lf_0)" "(coerce-to-path" -"(let-values(((or-part_69)(hash-ref ht_155 'links-file #f)))" -"(if or-part_69" -" or-part_69" +"(let-values(((or-part_68)(hash-ref ht_156 'links-file #f)))" +"(if or-part_68" +" or-part_68" "(build-path" -"(let-values(((or-part_70)(hash-ref ht_155 'share-dir #f)))" -" (if or-part_70 or-part_70 (build-path 'up \"share\")))" +"(let-values(((or-part_69)(hash-ref ht_156 'share-dir #f)))" +" (if or-part_69 or-part_69 (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_155) \"links.rktd\"))" +" (list (build-path (find-system-path 'addon-dir) (get-installation-name ht_156) \"links.rktd\"))" " null)" -"(if(1/use-collection-link-paths)(add-config-search ht_155 'links-search-files(list lf_0)) null)))))))" +"(if(1/use-collection-link-paths)(add-config-search ht_156 '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" @@ -46385,7 +46614,7 @@ static const char *startup_source = "(lambda(path_8)" "(begin" " 'loop" -"(let-values(((base_20 name_63 dir?_4)(split-path path_8)))" +"(let-values(((base_20 name_64 dir?_4)(split-path path_8)))" "(if(path? base_20)" "(if(directory-exists? base_20)" "(filesystem-change-evt base_20(lambda() #f))" @@ -46411,10 +46640,10 @@ static const char *startup_source = "(begin" "(let-values(((path11_0) path_9)" "((temp12_3)" -"(lambda(p_64)" +"(lambda(p_65)" "(begin" " 'temp12" -"(let-values(((bstr_1)(read-bytes 8192 p_64)))" +"(let-values(((bstr_1)(read-bytes 8192 p_65)))" "(if(if(bytes? bstr_1)(>=(bytes-length bstr_1) 8192) #f)" "(apply" " bytes-append" @@ -46424,14 +46653,14 @@ static const char *startup_source = "(lambda()" "(begin" " 'loop" -"(let-values(((bstr_2)(read-bytes 8192 p_64)))" +"(let-values(((bstr_2)(read-bytes 8192 p_65)))" "(if(eof-object? bstr_2) null(cons bstr_2(loop_100))))))))" " loop_100))))" " 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_31)(not a_64)))(if or-part_31 or-part_31(not(car a_64)))))))" +"(lambda(a_63)(begin(let-values(((or-part_31)(not a_63)))(if or-part_31 or-part_31(not(car a_63)))))))" "(define-values" "(get-linked-collections)" "(lambda(links-path_0)" @@ -46476,97 +46705,97 @@ static const char *startup_source = "(lambda()" "(call-with-default-reading-parameterization" "(lambda()" -"(let-values(((v_197)" +"(let-values(((v_196)" "(if(no-file-stamp? ts_1)" " null" "(let-values(((links-path13_0) links-path_0)" "((temp14_5)" -"(lambda(p_65)" +"(lambda(p_66)" "(begin" " 'temp14" "(begin0" -"(1/read p_65)" -"(if(eof-object?(1/read p_65))" +"(1/read p_66)" +"(if(eof-object?(1/read p_66))" "(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_197)" +"(if(if(list? v_196)" "(andmap2" -"(lambda(p_66)" -"(if(list? p_66)" -"(if(let-values(((or-part_231)(= 2(length p_66))))" -"(if or-part_231 or-part_231(= 3(length p_66))))" -"(if(let-values(((or-part_305)(string?(car p_66))))" -"(if or-part_305" -" or-part_305" -"(let-values(((or-part_306)" -"(eq? 'root(car p_66))))" -"(if or-part_306" -" or-part_306" -"(eq? 'static-root(car p_66))))))" -"(if(path-string?(cadr p_66))" -"(let-values(((or-part_307)(null?(cddr p_66))))" -"(if or-part_307 or-part_307(regexp?(caddr p_66))))" +"(lambda(p_67)" +"(if(list? p_67)" +"(if(let-values(((or-part_232)(= 2(length p_67))))" +"(if or-part_232 or-part_232(= 3(length p_67))))" +"(if(let-values(((or-part_301)(string?(car p_67))))" +"(if or-part_301" +" or-part_301" +"(let-values(((or-part_302)" +"(eq? 'root(car p_67))))" +"(if or-part_302" +" or-part_302" +"(eq? 'static-root(car p_67))))))" +"(if(path-string?(cadr p_67))" +"(let-values(((or-part_303)(null?(cddr p_67))))" +"(if or-part_303 or-part_303(regexp?(caddr p_67))))" " #f)" " #f)" " #f)" " #f))" -" v_197)" +" v_196)" " #f)" "(void)" " (let-values () (error \"ill-formed content\")))" "(values))))" -"(let-values(((ht_156)(make-hasheq)))" +"(let-values(((ht_157)(make-hasheq)))" "(let-values(((dir_0)" -"(let-values(((base_21 name_64 dir?_5)(split-path links-path_0)))" +"(let-values(((base_21 name_65 dir?_5)(split-path links-path_0)))" " base_21)))" "(begin" "(for-each2" -"(lambda(p_67)" -"(if(let-values(((or-part_308)(null?(cddr p_67))))" -"(if or-part_308 or-part_308(regexp-match?(caddr p_67)(version))))" +"(lambda(p_68)" +"(if(let-values(((or-part_304)(null?(cddr p_68))))" +"(if or-part_304 or-part_304(regexp-match?(caddr p_68)(version))))" "(let-values()" "(let-values(((dir_1)" -"(simplify-path(path->complete-path(cadr p_67) dir_0))))" -"(if(eq?(car p_67) 'static-root)" +"(simplify-path(path->complete-path(cadr p_68) dir_0))))" +"(if(eq?(car p_68) 'static-root)" "(let-values()" "(for-each2" "(lambda(sub_1)" "(if(directory-exists?(build-path dir_1 sub_1))" "(let-values()" -"(let-values(((k_36)(string->symbol(path->string sub_1))))" +"(let-values(((k_37)(string->symbol(path->string sub_1))))" "(hash-set!" -" ht_156" -" k_36" -"(cons dir_1(hash-ref ht_156 k_36 null)))))" +" ht_157" +" k_37" +"(cons dir_1(hash-ref ht_157 k_37 null)))))" "(void)))" "(directory-list dir_1)))" -"(if(eq?(car p_67) 'root)" +"(if(eq?(car p_68) 'root)" "(let-values()" "(begin" -"(if(hash-ref ht_156 #f #f)" +"(if(hash-ref ht_157 #f #f)" "(void)" -"(let-values()(hash-set! ht_156 #f null)))" +"(let-values()(hash-set! ht_157 #f null)))" "(hash-for-each" -" ht_156" -"(lambda(k_37 v_198)" -"(hash-set! ht_156 k_37(cons dir_1 v_198))))))" +" ht_157" +"(lambda(k_38 v_197)" +"(hash-set! ht_157 k_38(cons dir_1 v_197))))))" "(let-values()" -"(let-values(((s_16)(string->symbol(car p_67))))" +"(let-values(((s_16)(string->symbol(car p_68))))" "(hash-set!" -" ht_156" +" ht_157" " s_16" -"(cons(box dir_1)(hash-ref ht_156 s_16 null)))))))))" +"(cons(box dir_1)(hash-ref ht_157 s_16 null)))))))))" "(void)))" -" v_197)" +" v_196)" "(hash-for-each" -" ht_156" -"(lambda(k_38 v_199)(hash-set! ht_156 k_38(reverse$1 v_199))))" -"(hash-set! links-cache links-path_0(cons ts_1 ht_156))" -" ht_156))))))))))))))))))))))" +" ht_157" +"(lambda(k_39 v_198)(hash-set! ht_157 k_39(reverse$1 v_198))))" +"(hash-set! links-cache links-path_0(cons ts_1 ht_157))" +" ht_157))))))))))))))))))))))" "(define-values" "(normalize-collection-reference)" "(lambda(collection_2 collection-path_2)" @@ -46583,10 +46812,10 @@ static const char *startup_source = "(cons(substring collection_2(cdar m_23)) collection-path_2))))" "(values collection_2 collection-path_2))))" "(let-values()" -"(let-values(((base_22 name_65 dir?_6)(split-path collection_2)))" +"(let-values(((base_22 name_66 dir?_6)(split-path collection_2)))" "(if(eq? base_22 'relative)" -"(values name_65 collection-path_2)" -"(normalize-collection-reference base_22(cons name_65 collection-path_2)))))))))" +"(values name_66 collection-path_2)" +"(normalize-collection-reference base_22(cons name_66 collection-path_2)))))))))" "(define-values" "(find-col-file)" "(lambda(fail_5 collection-in_0 collection-path-in_0 file-name_1 check-compiled?_1)" @@ -46613,22 +46842,22 @@ static const char *startup_source = "(hash-ref(car l_78) #f null)" "(loop_101(cdr l_78))))" "(let-values()" -"(let-values(((ht_157)(get-linked-collections(car l_78))))" +"(let-values(((ht_158)(get-linked-collections(car l_78))))" "(append" -"(hash-ref ht_157 sym_90 null)" -"(hash-ref ht_157 #f null)" +"(hash-ref ht_158 sym_90 null)" +"(hash-ref ht_158 #f null)" "(loop_101(cdr l_78))))))))))))" " loop_101)" "(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(((*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_25 c_55)" +"(begin '*build-path-rep(if(path? p_25)(build-path p_25 c_55)(unbox p_25))))))" "(let-values(((*directory-exists?_0)" "(lambda(orig_0 p_47)" "(begin '*directory-exists?(if(path? orig_0)(directory-exists? p_47) #t)))))" "(let-values(((to-string_0)" -"(lambda(p_68)(begin 'to-string(if(path? p_68)(path->string p_68) p_68)))))" +"(lambda(p_69)(begin 'to-string(if(path? p_69)(path->string p_69) p_69)))))" "((letrec-values(((cloop_0)" "(lambda(paths_1 found-col_0)" "(begin" @@ -46690,7 +46919,7 @@ static const char *startup_source = "(apply" " string-append" "(map2" -" (lambda (p_69) (format \"\\n ~a\" (unbox p_69)))" +" (lambda (p_70) (format \"\\n ~a\" (unbox p_70)))" "(filter_1 box? all-paths_0))))" " \"\"))))))" "(let-values(((dir_2)(*build-path-rep_0(car paths_1) collection_3)))" @@ -46698,13 +46927,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_148)" +"(if(let-values(((or-part_145)" "(file-exists?/maybe-compiled" " cpath_0" " file-name_1" " check-compiled?_1)))" -"(if or-part_148" -" or-part_148" +"(if or-part_145" +" or-part_145" "(let-values(((alt-file-name_0)" "(let-values(((file-name_2)" "(if(path? file-name_1)" @@ -46735,8 +46964,8 @@ static const char *startup_source = "(done_1 cpath_0)" "(cloop_0" "(cdr paths_1)" -"(let-values(((or-part_224) found-col_0))" -"(if or-part_224 or-part_224 cpath_0))))" +"(let-values(((or-part_147) found-col_0))" +"(if or-part_147 or-part_147 cpath_0))))" "(done_1 cpath_0))" "(cloop_0(cdr paths_1) found-col_0)))" "(cloop_0(cdr paths_1) found-col_0))))))))" @@ -46747,9 +46976,9 @@ static const char *startup_source = "(file-exists?/maybe-compiled)" "(lambda(dir_3 path_10 check-compiled?_2)" "(begin" -"(let-values(((or-part_93)(file-exists?(build-path dir_3 path_10))))" -"(if or-part_93" -" or-part_93" +"(let-values(((or-part_92)(file-exists?(build-path dir_3 path_10))))" +"(if or-part_92" +" or-part_92" "(if check-compiled?_2" " (let-values (((try-path_0) (path-add-extension path_10 #\".zo\"))" "((modes_0)(1/use-compiled-file-paths))" @@ -46759,12 +46988,12 @@ static const char *startup_source = "(ormap2" "(lambda(mode_15)" "(file-exists?" -"(let-values(((p_70)(build-path dir_3 mode_15 try-path_0)))" +"(let-values(((p_71)(build-path dir_3 mode_15 try-path_0)))" "(if(eq? d_34 'same)" -"(let-values() p_70)" +"(let-values() p_71)" "(if(relative-path? d_34)" -"(let-values()(build-path p_70 d_34))" -"(let-values()(reroot-path p_70 d_34)))))))" +"(let-values()(build-path p_71 d_34))" +"(let-values()(reroot-path p_71 d_34)))))))" " modes_0))" " roots_0))" " #f))))))" @@ -46779,15 +47008,15 @@ 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_44)(begin 'cons-if(if f_38(cons f_38 r_44) r_44))))" +"(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" -"(let-values(((c_54)" +"(let-values(((c_56)" "(environment-variables-ref" "(current-environment-variables)" " #\"PLTCOLLECTS\")))" -" (if c_54 (bytes->string/locale c_54 '#\\?) \"\"))" +" (if c_56 (bytes->string/locale c_56 '#\\?) \"\"))" " \"\")" "(add-config-search" " config-table_1" @@ -46806,13 +47035,13 @@ static const char *startup_source = "(if(null? l_79)" " null" "(let-values(((collects-path_1)(car l_79)))" -"(let-values(((v_200)" +"(let-values(((v_199)" "(exe-relative-path->complete-path" " collects-path_1)))" -"(if v_200" +"(if v_199" "(cons" "(simplify-path" -"(path->complete-path v_200(current-directory)))" +"(path->complete-path v_199(current-directory)))" "(loop_85(cdr l_79)))" "(loop_85(cdr l_79))))))))))" " loop_85)" @@ -46828,14 +47057,18 @@ static const char *startup_source = "(define-values(prop:readtable prop:readtable? prop:readtable-ref)(make-struct-type-property 'readtable))" "(define-values" "(1/current-readtable)" +"(let-values()" +"(let-values()" "(make-parameter" " #f" -"(lambda(v_26)" +"(lambda(v_200)" "(begin" -"(if(let-values(((or-part_0)(not v_26)))(if or-part_0 or-part_0(prop:readtable? v_26)))" +"(if((lambda(x_80)" +"(let-values(((or-part_11)(not x_80)))(if or-part_11 or-part_11(prop:readtable? x_80))))" +" v_200)" "(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 prop:readtable? #f)\" v_200)))" +" v_200))))))" "(define-values" "(struct:read-config/outer" " read-config/outer1.1" @@ -46979,7 +47212,7 @@ static const char *startup_source = "(define-values(read-config-source)(lambda(v_69)(begin(read-config/inner-source(read-config/outer-inner v_69)))))" "(define-values" "(read-config-read-compiled)" -"(lambda(v_181)(begin(read-config/inner-read-compiled(read-config/outer-inner v_181)))))" +"(lambda(v_180)(begin(read-config/inner-read-compiled(read-config/outer-inner v_180)))))" "(define-values" "(read-config-dynamic-require)" "(lambda(v_210)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_210)))))" @@ -46992,11 +47225,11 @@ static const char *startup_source = "(lambda(v_212)(begin(read-config/inner-coerce-key(read-config/outer-inner v_212)))))" "(define-values" "(read-config-parameter-override)" -"(lambda(v_200)(begin(read-config/inner-parameter-override(read-config/outer-inner v_200)))))" +"(lambda(v_199)(begin(read-config/inner-parameter-override(read-config/outer-inner v_199)))))" "(define-values" "(read-config-parameter-cache)" "(lambda(v_213)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_213)))))" -"(define-values(read-config-st)(lambda(v_186)(begin(read-config/inner-st(read-config/outer-inner v_186)))))" +"(define-values(read-config-st)(lambda(v_185)(begin(read-config/inner-st(read-config/outer-inner v_185)))))" "(define-values" "(struct:read-config-state" " read-config-state3.1" @@ -47073,21 +47306,21 @@ static const char *startup_source = " for-syntax?_1" " source_2" " wrap_4" -"(let-values(((or-part_86) read-compiled_1))" -" (if or-part_86 or-part_86 (lambda (in_0) (error 'read \"no `read-compiled` provided\"))))" -"(let-values(((or-part_88) dynamic-require_1))" -"(if or-part_88" -" or-part_88" +"(let-values(((or-part_85) read-compiled_1))" +" (if or-part_85 or-part_85 (lambda (in_0) (error 'read \"no `read-compiled` provided\"))))" +"(let-values(((or-part_87) dynamic-require_1))" +"(if or-part_87" +" or-part_87" "(lambda(mod-path_25 sym_91 failure-k_0)" " (error 'read \"no `dynamic-require` provided\"))))" -"(let-values(((or-part_309) module-declared?_1))" -"(if or-part_309" -" or-part_309" +"(let-values(((or-part_305) module-declared?_1))" +"(if or-part_305" +" or-part_305" " (lambda (mod-path_26) (error 'read \"no `module-declare?` provided\"))))" -"(let-values(((or-part_226) coerce_1))" -"(if or-part_226 or-part_226(lambda(for-syntax?_2 v_109 srcloc_9) v_109)))" -"(let-values(((or-part_270) coerce-key_1))" -"(if or-part_270 or-part_270(lambda(for-syntax?_3 v_113) v_113)))" +"(let-values(((or-part_227) coerce_1))" +"(if or-part_227 or-part_227(lambda(for-syntax?_2 v_109 srcloc_9) v_109)))" +"(let-values(((or-part_271) coerce-key_1))" +"(if or-part_271 or-part_271(lambda(for-syntax?_3 v_113) v_113)))" " #f" " #f" " #f" @@ -47118,13 +47351,13 @@ static const char *startup_source = "(let-values(((keep-comment?_2) keep-comment?34_0))" "(let-values()" "(let-values(((v_214) config_0))" -"(let-values(((the-struct_76) v_214))" -"(if(read-config/outer? the-struct_76)" +"(let-values(((the-struct_75) v_214))" +"(if(read-config/outer? the-struct_75)" "(let-values(((wrap48_0) wrap_5)" "((keep-comment?49_0) keep-comment?_2)" "((inner50_1)" -"(let-values(((the-struct_77)(read-config/outer-inner v_214)))" -"(if(read-config/inner? the-struct_77)" +"(let-values(((the-struct_76)(read-config/outer-inner v_214)))" +"(if(read-config/inner? the-struct_76)" "(let-values(((for-syntax?51_0) for-syntax?_4)" "((readtable52_0) readtable_2)" "((next-readtable53_0) next-readtable_2)" @@ -47136,35 +47369,35 @@ static const char *startup_source = " readtable52_0" " next-readtable53_0" " for-syntax?51_0" -"(read-config/inner-source the-struct_77)" -"(read-config/inner-read-compiled the-struct_77)" -"(read-config/inner-dynamic-require the-struct_77)" -"(read-config/inner-module-declared? the-struct_77)" -"(read-config/inner-coerce the-struct_77)" -"(read-config/inner-coerce-key the-struct_77)" -"(read-config/inner-parameter-override the-struct_77)" -"(read-config/inner-parameter-cache the-struct_77)" +"(read-config/inner-source the-struct_76)" +"(read-config/inner-read-compiled the-struct_76)" +"(read-config/inner-dynamic-require the-struct_76)" +"(read-config/inner-module-declared? the-struct_76)" +"(read-config/inner-coerce the-struct_76)" +"(read-config/inner-coerce-key the-struct_76)" +"(read-config/inner-parameter-override the-struct_76)" +"(read-config/inner-parameter-cache the-struct_76)" " st54_0))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_77)))))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_76)))))" "(read-config/outer1.1" " inner50_1" " wrap48_0" -"(read-config/outer-line the-struct_76)" -"(read-config/outer-col the-struct_76)" -"(read-config/outer-pos the-struct_76)" -"(read-config/outer-indentations the-struct_76)" +"(read-config/outer-line the-struct_75)" +"(read-config/outer-col the-struct_75)" +"(read-config/outer-pos the-struct_75)" +"(read-config/outer-indentations the-struct_75)" " keep-comment?49_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_76)))))))))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_75)))))))))))))))" "(define-values" "(port+config->srcloc)" "(lambda(in_1 config_1)" "(begin" "(let-values(((end-line_0 end-col_0 end-pos_0)(port-next-location in_1)))" "(srcloc" -"(let-values(((or-part_310)(read-config-source config_1)))" -"(if or-part_310" -" or-part_310" -" (let-values (((or-part_311) (object-name in_1))) (if or-part_311 or-part_311 \"UNKNOWN\"))))" +"(let-values(((or-part_306)(read-config-source config_1)))" +"(if or-part_306" +" or-part_306" +" (let-values (((or-part_307) (object-name in_1))) (if or-part_307 or-part_307 \"UNKNOWN\"))))" "(read-config-line config_1)" "(read-config-col config_1)" "(read-config-pos config_1)" @@ -47174,55 +47407,55 @@ static const char *startup_source = "(lambda(config_2 line_2 col_1 pos_108)" "(begin" "(let-values(((v_215) config_2))" -"(let-values(((the-struct_38) v_215))" -"(if(read-config/outer? the-struct_38)" +"(let-values(((the-struct_37) v_215))" +"(if(read-config/outer? the-struct_37)" "(let-values(((line55_0) line_2)" "((col56_0) col_1)" "((pos57_0) pos_108)" "((inner58_1)(read-config/outer-inner v_215)))" "(read-config/outer1.1" " inner58_1" -"(read-config/outer-wrap the-struct_38)" +"(read-config/outer-wrap the-struct_37)" " line55_0" " col56_0" " pos57_0" -"(read-config/outer-indentations the-struct_38)" -"(read-config/outer-keep-comment? the-struct_38)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_38)))))))" +"(read-config/outer-indentations the-struct_37)" +"(read-config/outer-keep-comment? the-struct_37)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_37)))))))" "(define-values" "(disable-wrapping)" "(lambda(config_3)" "(begin" "(let-values(((v_73) config_3))" -"(let-values(((the-struct_78) v_73))" -"(if(read-config/outer? the-struct_78)" +"(let-values(((the-struct_77) v_73))" +"(if(read-config/outer? the-struct_77)" "(let-values(((wrap59_0) #f)((inner60_0)(read-config/outer-inner v_73)))" "(read-config/outer1.1" " inner60_0" " wrap59_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-keep-comment? the-struct_78)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_78)))))))" +"(read-config/outer-line the-struct_77)" +"(read-config/outer-col the-struct_77)" +"(read-config/outer-pos the-struct_77)" +"(read-config/outer-indentations the-struct_77)" +"(read-config/outer-keep-comment? the-struct_77)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_77)))))))" "(define-values" "(keep-comment)" "(lambda(config_4)" "(begin" "(let-values(((v_216) config_4))" -"(let-values(((the-struct_19) v_216))" -"(if(read-config/outer? the-struct_19)" +"(let-values(((the-struct_22) v_216))" +"(if(read-config/outer? the-struct_22)" "(let-values(((keep-comment?61_0) #t)((inner62_0)(read-config/outer-inner v_216)))" "(read-config/outer1.1" " inner62_0" -"(read-config/outer-wrap the-struct_19)" -"(read-config/outer-line the-struct_19)" -"(read-config/outer-col the-struct_19)" -"(read-config/outer-pos the-struct_19)" -"(read-config/outer-indentations the-struct_19)" +"(read-config/outer-wrap the-struct_22)" +"(read-config/outer-line the-struct_22)" +"(read-config/outer-col the-struct_22)" +"(read-config/outer-pos the-struct_22)" +"(read-config/outer-indentations the-struct_22)" " keep-comment?61_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_19)))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_22)))))))" "(define-values" "(discard-comment)" "(lambda(config_5)" @@ -47231,18 +47464,18 @@ static const char *startup_source = "(let-values() config_5)" "(let-values()" "(let-values(((v_217) config_5))" -"(let-values(((the-struct_79) v_217))" -"(if(read-config/outer? the-struct_79)" +"(let-values(((the-struct_78) v_217))" +"(if(read-config/outer? the-struct_78)" "(let-values(((keep-comment?63_0) #f)((inner64_0)(read-config/outer-inner v_217)))" "(read-config/outer1.1" " inner64_0" -"(read-config/outer-wrap the-struct_79)" -"(read-config/outer-line the-struct_79)" -"(read-config/outer-col the-struct_79)" -"(read-config/outer-pos the-struct_79)" -"(read-config/outer-indentations the-struct_79)" +"(read-config/outer-wrap the-struct_78)" +"(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)" " keep-comment?63_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_79)))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_78)))))))))" "(define-values" "(next-readtable)" "(lambda(config_6)" @@ -47251,43 +47484,43 @@ static const char *startup_source = "(let-values() config_6)" "(let-values()" "(let-values(((v_79) config_6))" -"(let-values(((the-struct_80) v_79))" -"(if(read-config/outer? the-struct_80)" +"(let-values(((the-struct_79) v_79))" +"(if(read-config/outer? the-struct_79)" "(let-values(((inner65_0)" -"(let-values(((the-struct_81)(read-config/outer-inner v_79)))" -"(if(read-config/inner? the-struct_81)" +"(let-values(((the-struct_80)(read-config/outer-inner v_79)))" +"(if(read-config/inner? the-struct_80)" "(let-values(((readtable66_0)(read-config-next-readtable config_6)))" "(read-config/inner2.1" " readtable66_0" -"(read-config/inner-next-readtable the-struct_81)" -"(read-config/inner-for-syntax? the-struct_81)" -"(read-config/inner-source the-struct_81)" -"(read-config/inner-read-compiled the-struct_81)" -"(read-config/inner-dynamic-require the-struct_81)" -"(read-config/inner-module-declared? the-struct_81)" -"(read-config/inner-coerce the-struct_81)" -"(read-config/inner-coerce-key the-struct_81)" -"(read-config/inner-parameter-override the-struct_81)" -"(read-config/inner-parameter-cache the-struct_81)" -"(read-config/inner-st the-struct_81)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_81)))))" +"(read-config/inner-next-readtable the-struct_80)" +"(read-config/inner-for-syntax? the-struct_80)" +"(read-config/inner-source the-struct_80)" +"(read-config/inner-read-compiled the-struct_80)" +"(read-config/inner-dynamic-require the-struct_80)" +"(read-config/inner-module-declared? the-struct_80)" +"(read-config/inner-coerce the-struct_80)" +"(read-config/inner-coerce-key the-struct_80)" +"(read-config/inner-parameter-override the-struct_80)" +"(read-config/inner-parameter-cache the-struct_80)" +"(read-config/inner-st the-struct_80)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_80)))))" "(read-config/outer1.1" " inner65_0" -"(read-config/outer-wrap the-struct_80)" -"(read-config/outer-line the-struct_80)" -"(read-config/outer-col the-struct_80)" -"(read-config/outer-pos the-struct_80)" -"(read-config/outer-indentations the-struct_80)" -"(read-config/outer-keep-comment? the-struct_80)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_80)))))))))" +"(read-config/outer-wrap the-struct_79)" +"(read-config/outer-line the-struct_79)" +"(read-config/outer-col the-struct_79)" +"(read-config/outer-pos the-struct_79)" +"(read-config/outer-indentations the-struct_79)" +"(read-config/outer-keep-comment? the-struct_79)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_79)))))))))" "(define-values" "(coerce)" -"(lambda(val_75 in_2 config_7)" +"(lambda(val_79 in_2 config_7)" "(begin" "(let-values(((for-syntax?_5)(read-config-for-syntax? config_7)))" "((read-config-coerce config_7)" " for-syntax?_5" -" val_75" +" val_79" "(if for-syntax?_5(port+config->srcloc in_2 config_7) #f))))))" "(define-values(default-reader-guard$1)(lambda(v_218)(begin 'default-reader-guard v_218)))" "(define-values" @@ -47307,7 +47540,7 @@ static const char *startup_source = "(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_61)(if v_61 #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-accept-box)(make-parameter #t(lambda(v_92)(if v_92 #t #f))))" "(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_222)(if v_222 #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_30)(if v_30 #t #f))))" @@ -47329,37 +47562,37 @@ static const char *startup_source = "(override-parameter)" "(lambda(param_1 config_9 v_28)" "(begin" -"(let-values(((v_92) config_9))" -"(let-values(((the-struct_82) v_92))" -"(if(read-config/outer? the-struct_82)" +"(let-values(((v_91) config_9))" +"(let-values(((the-struct_81) v_91))" +"(if(read-config/outer? the-struct_81)" "(let-values(((inner1_0)" -"(let-values(((the-struct_83)(read-config/outer-inner v_92)))" -"(if(read-config/inner? the-struct_83)" +"(let-values(((the-struct_82)(read-config/outer-inner v_91)))" +"(if(read-config/inner? the-struct_82)" "(let-values(((parameter-override2_0)" "(hash-set(read-config-parameter-override config_9) param_1 v_28)))" "(read-config/inner2.1" -"(read-config/inner-readtable the-struct_83)" -"(read-config/inner-next-readtable the-struct_83)" -"(read-config/inner-for-syntax? the-struct_83)" -"(read-config/inner-source the-struct_83)" -"(read-config/inner-read-compiled the-struct_83)" -"(read-config/inner-dynamic-require the-struct_83)" -"(read-config/inner-module-declared? the-struct_83)" -"(read-config/inner-coerce the-struct_83)" -"(read-config/inner-coerce-key the-struct_83)" +"(read-config/inner-readtable the-struct_82)" +"(read-config/inner-next-readtable the-struct_82)" +"(read-config/inner-for-syntax? the-struct_82)" +"(read-config/inner-source the-struct_82)" +"(read-config/inner-read-compiled the-struct_82)" +"(read-config/inner-dynamic-require the-struct_82)" +"(read-config/inner-module-declared? the-struct_82)" +"(read-config/inner-coerce the-struct_82)" +"(read-config/inner-coerce-key the-struct_82)" " parameter-override2_0" -"(read-config/inner-parameter-cache the-struct_83)" -"(read-config/inner-st the-struct_83)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_83)))))" +"(read-config/inner-parameter-cache the-struct_82)" +"(read-config/inner-st the-struct_82)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_82)))))" "(read-config/outer1.1" " inner1_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-keep-comment? the-struct_82)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_82)))))))" +"(read-config/outer-wrap the-struct_81)" +"(read-config/outer-line the-struct_81)" +"(read-config/outer-col the-struct_81)" +"(read-config/outer-pos the-struct_81)" +"(read-config/outer-indentations the-struct_81)" +"(read-config/outer-keep-comment? the-struct_81)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_81)))))))" "(define-values" "(force-parameters!)" "(lambda(config_10)" @@ -47451,23 +47684,23 @@ static const char *startup_source = "(if(null? args_8)" "(let-values()(readtable1.1 symbol-parser_0 char-ht_0 dispatch-ht_0 delimiter-ht_0))" "(let-values()" -"(let-values(((key_86)(car args_8)))" +"(let-values(((key_89)(car args_8)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_171)(not key_86)))" -"(if or-part_171 or-part_171(char? key_86)))" +"(if(let-values(((or-part_172)(not key_89)))" +"(if or-part_172 or-part_172(char? key_89)))" "(void)" "(let-values()" "(raise-argument-error" " 'make-readtable" " \"(or/c char? #f)\"" -" key_86)))" +" key_89)))" "(values))))" "(let-values((()" "(begin" "(if(null? args_8)" "(let-values()" -"(if key_86" +"(if key_89" "(let-values()" "(raise-arguments-error" " 'make-readtable" @@ -47475,7 +47708,7 @@ static const char *startup_source = " \"expected 'terminating-macro, 'non-terminating-macro, 'dispatch-macro,\"" " \" or character argument after character argument\")" " \"character\"" -" key_86))" +" key_89))" "(let-values()" "(raise-arguments-error" " 'make-readtable" @@ -47485,22 +47718,22 @@ static const char *startup_source = "(let-values(((mode_16)(cadr args_8)))" "(let-values((()" "(begin" -"(if key_86" +"(if key_89" "(let-values()" -"(if(let-values(((or-part_172)" +"(if(let-values(((or-part_173)" "(eq? mode_16 'terminating-macro)))" -"(if or-part_172" -" or-part_172" -"(let-values(((or-part_173)" +"(if or-part_173" +" or-part_173" +"(let-values(((or-part_174)" "(eq?" " mode_16" " 'non-terminating-macro)))" -"(if or-part_173" -" or-part_173" -"(let-values(((or-part_287)" +"(if or-part_174" +" or-part_174" +"(let-values(((or-part_308)" "(eq? mode_16 'dispatch-macro)))" -"(if or-part_287" -" or-part_287" +"(if or-part_308" +" or-part_308" "(char? mode_16)))))))" "(void)" "(let-values()" @@ -47522,7 +47755,7 @@ static const char *startup_source = "(let-values()" "(raise-arguments-error" " 'make-readtable" -"(if key_86" +"(if key_89" " \"expected readtable or #f argument after character argument\"" " \"expected procedure argument after symbol argument\")" " \"given\"" @@ -47531,7 +47764,7 @@ static const char *startup_source = "(values))))" "(let-values(((target_0)(caddr args_8)))" "(let-values(((rest-args_0)(cdddr args_8)))" -"(if(not key_86)" +"(if(not key_89)" "(let-values()" "(begin" "(if(if(procedure? target_0)" @@ -47565,16 +47798,16 @@ static const char *startup_source = " rest-args_0" " symbol-parser_0" " char-ht_0" -"(hash-set dispatch-ht_0 key_86 target_0)" +"(hash-set dispatch-ht_0 key_89 target_0)" " delimiter-ht_0)))" "(if(char? mode_16)" "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_94)" +"(if(let-values(((or-part_93)" "(not target_0)))" -"(if or-part_94" -" or-part_94" +"(if or-part_93" +" or-part_93" "(1/readtable? target_0)))" "(void)" "(let-values()" @@ -47584,25 +47817,25 @@ static const char *startup_source = " target_0)))" "(values))))" "(let-values(((actual-target_0)" -"(let-values(((or-part_174)" +"(let-values(((or-part_175)" "(if target_0" "(hash-ref" "(readtable-char-ht target_0)" " mode_16" " #f)" " #f)))" -"(if or-part_174 or-part_174 mode_16))))" +"(if or-part_175 or-part_175 mode_16))))" "(let-values(((new-char-ht_0)" "(if actual-target_0" "(hash-set" " char-ht_0" -" key_86" +" key_89" " actual-target_0)" -"(hash-remove char-ht_0 key_86))))" +"(hash-remove char-ht_0 key_89))))" "(let-values(((new-delimiter-ht_0)" "(hash-set" " delimiter-ht_0" -" key_86" +" key_89" "(if target_0" "(hash-ref" "(readtable-delimiter-ht target_0)" @@ -47629,11 +47862,11 @@ static const char *startup_source = " target_0)))" "(values))))" "(let-values(((new-char-ht_1)" -"(hash-set char-ht_0 key_86 target_0)))" +"(hash-set char-ht_0 key_89 target_0)))" "(let-values(((new-delimiter-ht_1)" "(hash-set" " delimiter-ht_0" -" key_86" +" key_89" "(if(eq? mode_16 'terminating-macro)" " 'delimit" " 'no-delimit))))" @@ -47651,37 +47884,37 @@ static const char *startup_source = "(if rt_0(readtable-delimiter-ht rt_0) '#hasheqv()))))))" "(define-values" "(*readtable-effective-char)" -"(lambda(rt_1 c_55)" +"(lambda(rt_1 c_57)" "(begin" -"(let-values(((target_1)(hash-ref(readtable-char-ht rt_1) c_55 #f)))" -"(if(not target_1)(let-values() c_55)(if(char? target_1)(let-values() target_1)(let-values() '#\\x)))))))" +"(let-values(((target_1)(hash-ref(readtable-char-ht rt_1) c_57 #f)))" +"(if(not target_1)(let-values() c_57)(if(char? target_1)(let-values() target_1)(let-values() '#\\x)))))))" "(define-values" "(effective-char)" -"(lambda(c_45 config_11)" +"(lambda(c_58 config_11)" "(begin" -"(let-values(((rt_2)(read-config-readtable config_11))((c_56) c_45))" -"(if(let-values(((or-part_23)(not rt_2)))(if or-part_23 or-part_23(not(char? c_56))))" -"(let-values() c_56)" -"(let-values()(*readtable-effective-char rt_2 c_56)))))))" +"(let-values(((rt_2)(read-config-readtable config_11))((c_59) c_58))" +"(if(let-values(((or-part_23)(not rt_2)))(if or-part_23 or-part_23(not(char? c_59))))" +"(let-values() c_59)" +"(let-values()(*readtable-effective-char rt_2 c_59)))))))" "(define-values" "(readtable-handler)" -"(lambda(config_12 c_57)" +"(lambda(config_12 c_60)" "(begin" "(let-values(((rt_3)(read-config-readtable config_12)))" "(if rt_3" -"(let-values(((target_2)(hash-ref(readtable-char-ht rt_3) c_57 #f)))" +"(let-values(((target_2)(hash-ref(readtable-char-ht rt_3) c_60 #f)))" "(if target_2(if(not(char? target_2)) target_2 #f) #f))" " #f)))))" "(define-values" "(readtable-dispatch-handler)" -"(lambda(config_13 c_58)" +"(lambda(config_13 c_61)" "(begin" "(let-values((()(begin(force-parameters! config_13)(values))))" "(let-values(((rt_4)(read-config-readtable config_13)))" -"(if rt_4(hash-ref(readtable-dispatch-ht rt_4) c_58 #f) #f))))))" +"(if rt_4(hash-ref(readtable-dispatch-ht rt_4) c_61 #f) #f))))))" "(define-values" "(readtable-apply)" -"(lambda(handler_0 c_59 in_3 config_14 line_3 col_2 pos_109)" +"(lambda(handler_0 c_62 in_3 config_14 line_3 col_2 pos_109)" "(begin" "(let-values(((for-syntax?_6)(read-config-for-syntax? config_14)))" "(let-values(((v_223)" @@ -47695,8 +47928,8 @@ static const char *startup_source = " config_14)" "(let-values()" "(if(procedure-arity-includes? handler_0 2)" -"(handler_0 c_59 in_3)" -"(handler_0 c_59 in_3 #f line_3 col_2 pos_109)))))" +"(handler_0 c_62 in_3)" +"(handler_0 c_62 in_3 #f line_3 col_2 pos_109)))))" "(let-values()" "(with-continuation-mark" " parameterization-key" @@ -47705,11 +47938,11 @@ static const char *startup_source = " current-read-config" " config_14)" "(let-values()" -"(handler_0 c_59 in_3(read-config-source config_14) line_3 col_2 pos_109)))))))" +"(handler_0 c_62 in_3(read-config-source config_14) line_3 col_2 pos_109)))))))" "(if(1/special-comment? v_223) v_223(coerce v_223 in_3 config_14)))))))" "(define-values" "(1/readtable-mapping)" -"(lambda(rt_5 c_60)" +"(lambda(rt_5 c_63)" "(begin" " 'readtable-mapping" "(let-values((()" @@ -47720,54 +47953,54 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -" (if (char? c_60) (void) (let-values () (raise-argument-error 'readtable-mapping \"char?\" c_60)))" +" (if (char? c_63) (void) (let-values () (raise-argument-error 'readtable-mapping \"char?\" c_63)))" "(values))))" -"(let-values(((handler_1)(hash-ref(readtable-char-ht rt_5) c_60 #f)))" +"(let-values(((handler_1)(hash-ref(readtable-char-ht rt_5) c_63 #f)))" "(values" -"(let-values(((or-part_177)" +"(let-values(((or-part_178)" "(if handler_1" "(if(char? handler_1)" "(let-values() handler_1)" -"(if(eq? 'delimit(hash-ref(readtable-delimiter-ht rt_5) c_60 #f))" +"(if(eq? 'delimit(hash-ref(readtable-delimiter-ht rt_5) c_63 #f))" "(let-values() 'terminating-macro)" "(let-values() 'non-terminating-macro)))" " #f)))" -"(if or-part_177 or-part_177 c_60))" +"(if or-part_178 or-part_178 c_63))" "(if(char? handler_1) #f handler_1)" -"(hash-ref(readtable-dispatch-ht rt_5) c_60 #f))))))))" +"(hash-ref(readtable-dispatch-ht rt_5) c_63 #f))))))))" "(define-values" "(readtable-equivalent-chars)" -"(lambda(rt_6 c_61)" +"(lambda(rt_6 c_64)" "(begin" -"(let-values(((ht_158)(readtable-char-ht rt_6)))" +"(let-values(((ht_159)(readtable-char-ht rt_6)))" "(append" -"(if(hash-ref ht_158 c_61 #f) null(list c_61))" +"(if(hash-ref ht_159 c_64 #f) null(list c_64))" "(reverse$1" -"(let-values(((ht_151) ht_158))" +"(let-values(((ht_151) ht_159))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_151)))" -"((letrec-values(((for-loop_267)" -"(lambda(fold-var_80 i_175)" +"((letrec-values(((for-loop_268)" +"(lambda(fold-var_80 i_176)" "(begin" " 'for-loop" -"(if i_175" -"(let-values(((k_39 v_88)(hash-iterate-key+value ht_151 i_175)))" -"(let-values(((fold-var_279)" +"(if i_176" +"(let-values(((k_40 v_87)(hash-iterate-key+value ht_151 i_176)))" +"(let-values(((fold-var_285)" "(let-values(((fold-var_83) fold-var_80))" -"(if(eqv? v_88 c_61)" +"(if(eqv? v_87 c_64)" "(let-values(((fold-var_239) fold-var_83))" "(let-values(((fold-var_13)" "(let-values()" -"(cons(let-values() k_39) fold-var_239))))" +"(cons(let-values() k_40) fold-var_239))))" "(values fold-var_13)))" " fold-var_83))))" "(if(not #f)" -"(for-loop_267 fold-var_279(hash-iterate-next ht_151 i_175))" -" fold-var_279)))" +"(for-loop_268 fold-var_285(hash-iterate-next ht_151 i_176))" +" fold-var_285)))" " fold-var_80)))))" -" for-loop_267)" +" for-loop_268)" " null" "(hash-iterate-first ht_151))))))))))" "(define-values" @@ -47806,10 +48039,10 @@ static const char *startup_source = "(let-values(((continuation-marks_0)" "(if continuation-marks4_0 continuation-marks1_0(current-continuation-marks))))" "(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(((who_26)(if who6_0 who3_1(if(read-config-for-syntax? config_16) 'read-syntax 'read))))" +"(let-values(((str_24) 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 (((msg_0) (format \"~a: ~a\" who_26 (apply format str_24 args_9))))" "(let-values(((srcloc_10)(if in_6(port+config->srcloc in_6 config_16) #f)))" "(raise" "((if(eof-object? due-to_0)" @@ -47817,11 +48050,11 @@ static const char *startup_source = "(if(not(char? due-to_0))" "(let-values() exn:fail:read:non-char)" "(let-values() exn:fail:read)))" -"(let-values(((s_159)" +"(let-values(((s_160)" "(if(error-print-source-location)" "(if srcloc_10(srcloc->string srcloc_10) #f)" " #f)))" -" (if s_159 (string-append s_159 \": \" msg_0) msg_0))" +" (if s_160 (string-append s_160 \": \" msg_0) msg_0))" " continuation-marks_0" "(if srcloc_10(list srcloc_10) null)))))))))))))))" "(define-values" @@ -47831,15 +48064,15 @@ static const char *startup_source = " 'bad-syntax-error18" "(let-values(((in_7) in15_0))" "(let-values(((config_17) config16_0))" -"(let-values(((str_26) str17_0))" +"(let-values(((str_25) str17_0))" "(let-values(((due-to_1)(if due-to14_0 due-to13_0 '#\\x)))" "(let-values()" "(let-values(((in21_0) in_7)" "((config22_0) config_17)" "((due-to23_0) due-to_1)" -" ((temp24_6) \"bad syntax `~a`\")" -"((str25_0) str_26))" -"(reader-error10.1 #f #f due-to23_0 #t #f #f in21_0 config22_0 temp24_6(list str25_0)))))))))))" +" ((temp24_5) \"bad syntax `~a`\")" +"((str25_0) str_25))" +"(reader-error10.1 #f #f due-to23_0 #t #f #f in21_0 config22_0 temp24_5(list str25_0)))))))))))" "(define-values" "(catch-and-reraise-as-reader/proc)" "(lambda(in_8 config_18 thunk_5)" @@ -47853,15 +48086,15 @@ static const char *startup_source = "((config29_0) config_18)" " ((temp30_2) \"~a\")" "((temp31_4)" -"(let-values(((s_460)(exn-message exn_2)))" -" (regexp-replace \"^[a-z-]*: \" s_460 \"\")))" +"(let-values(((s_463)(exn-message exn_2)))" +" (regexp-replace \"^[a-z-]*: \" s_463 \"\")))" "((temp32_2)(exn-continuation-marks exn_2)))" "(reader-error10.1 temp32_2 #t #f #f #f #f in28_0 config29_0 temp30_2(list temp31_4)))))))" "(let-values(((bpz_3)(continuation-mark-set-first #f break-enabled-key)))" "(call-handled-body" " bpz_3" -"(lambda(e_77)" -"(select-handler/no-breaks e_77 bpz_3(list(cons with-handlers-predicate26_0 with-handlers-handler27_0))))" +"(lambda(e_78)" +"(select-handler/no-breaks e_78 bpz_3(list(cons with-handlers-predicate26_0 with-handlers-handler27_0))))" "(lambda()(thunk_5))))))))" "(define-values" "(port-next-location*)" @@ -47883,17 +48116,17 @@ static const char *startup_source = "(begin" " 'skip-loop" "(let-values(((c_36)" -"(let-values(((or-part_161) init-c_2))" -"(if or-part_161" -" or-part_161" +"(let-values(((or-part_162) init-c_2))" +"(if or-part_162" +" or-part_162" "(let-values(((in_9) in_5)((source_4) source_3))" "(read-char-or-special in_9 special1.1 source_4))))))" "(let-values(((ec_0)" -"(let-values(((rt_8) rt_7)((c_47) c_36))" +"(let-values(((rt_8) rt_7)((c_46) c_36))" "(if(let-values(((or-part_5)(not rt_8)))" -"(if or-part_5 or-part_5(not(char? c_47))))" -"(let-values() c_47)" -"(let-values()(*readtable-effective-char rt_8 c_47))))))" +"(if or-part_5 or-part_5(not(char? c_46))))" +"(let-values() c_46)" +"(let-values()(*readtable-effective-char rt_8 c_46))))))" "(if(eof-object? ec_0)" "(let-values() c_36)" "(if(not(char? ec_0))" @@ -47913,20 +48146,20 @@ static const char *startup_source = "(lambda()" "(begin" " 'loop" -"(let-values(((c_62)" +"(let-values(((c_65)" "(let-values(((in_10) in_5)" "((source_5) source_3))" "(read-char-or-special" " in_10" " special1.1" " source_5))))" -"(if(let-values(((or-part_302)" -"(eof-object? c_62)))" -"(if or-part_302" -" or-part_302" +"(if(let-values(((or-part_294)" +"(eof-object? c_65)))" +"(if or-part_294" +" or-part_294" "(eqv?" " '#\\newline" -"(effective-char c_62 config_15))))" +"(effective-char c_65 config_15))))" "(void)" "(let-values()(loop_77))))))))" " loop_77))" @@ -47937,13 +48170,13 @@ static const char *startup_source = "(eqv?" " '#\\|" "(let-values(((in_11) in_5)((skip-count_0) 0)((source_6) source_3))" -"(let-values(((c_38)" +"(let-values(((c_49)" "(peek-char-or-special" " in_11" " skip-count_0" " 'special" " source_6)))" -"(if(eq? c_38 'special)(special1.1 'special) c_38))))" +"(if(eq? c_49 'special)(special1.1 'special) c_49))))" " #f)" "(let-values()" "(begin" @@ -47957,28 +48190,28 @@ static const char *startup_source = "(let-values(((in_12) in_5)" "((skip-count_1) 0)" "((source_7) source_3))" -"(let-values(((c_63)" +"(let-values(((c_66)" "(peek-char-or-special" " in_12" " skip-count_1" " 'special" " source_7)))" -"(if(eq? c_63 'special)(special1.1 'special) c_63))))" +"(if(eq? c_66 'special)(special1.1 'special) c_66))))" "(let-values(((c3_1)" "(let-values(((in_13) in_5)" "((skip-count_2) 1)" "((source_8) source_3))" -"(let-values(((c_64)" +"(let-values(((c_67)" "(peek-char-or-special" " in_13" " skip-count_2" " 'special" " source_8)))" -"(if(eq? c_64 'special)" +"(if(eq? c_67 'special)" "(special1.1 'special)" -" c_64)))))" -"(let-values(((or-part_80)(eqv? '#\\space c3_1)))" -"(if or-part_80 or-part_80(eqv? '#\\/ c3_1))))" +" c_67)))))" +"(let-values(((or-part_79)(eqv? '#\\space c3_1)))" +"(if or-part_79 or-part_79(eqv? '#\\/ c3_1))))" " #f)" " #f)" "(let-values()" @@ -47993,24 +48226,24 @@ static const char *startup_source = "(let-values(((in_14) in_5)" "((skip-count_3) 0)" "((source_9) source_3))" -"(let-values(((c_65)" +"(let-values(((c_68)" "(peek-char-or-special" " in_14" " skip-count_3" " 'special" " source_9)))" -"(if(eq? c_65 'special)(special1.1 'special) c_65))))" +"(if(eq? c_68 'special)(special1.1 'special) c_68))))" " #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_179)(read-one_0 #f in_5 config_15)))" "(begin" -"(if(eof-object? v_180)" +"(if(eof-object? v_179)" "(let-values()" "(let-values(((in1_0) in_5)" "((config2_0) config_15)" -"((v3_0) v_180)" -"((temp4_3)" +"((v3_0) v_179)" +"((temp4_2)" " \"expected a commented-out element for `~a;`, but found end-of-file\")" "((ec5_0) ec_0))" "(reader-error10.1" @@ -48022,7 +48255,7 @@ static const char *startup_source = " #f" " in1_0" " config2_0" -" temp4_3" +" temp4_2" "(list ec5_0))))" "(void))" "(if(read-config-keep-comment? config_15)" @@ -48052,8 +48285,8 @@ static const char *startup_source = "(let-values(((in6_0) in_15)" "((temp7_3)(reading-at config_19 line_5 col_4 pos_111))" "((c8_0) c_25)" -" ((temp9_3) \"end of file in `#|` comment\"))" -"(reader-error10.1 #f #f c8_0 #t #f #f in6_0 temp7_3 temp9_3(list))))" +" ((temp9_4) \"end of file in `#|` comment\"))" +"(reader-error10.1 #f #f c8_0 #t #f #f in6_0 temp7_3 temp9_4(list))))" "(if(not(char? c_25))" "(let-values()(loop_103 #f depth_10))" "(if(if(char=? '#\\| c_25)(eqv? prev-c_0 '#\\#) #f)" @@ -48075,16 +48308,16 @@ static const char *startup_source = "(lambda(backslash?_0)" "(begin" " 'loop" -"(let-values(((c_66)" +"(let-values(((c_42)" "(let-values(((in_18) in_17)((source_12)(read-config-source config_20)))" "(read-char-or-special in_18 special1.1 source_12))))" -"(if(eof-object? c_66)" +"(if(eof-object? c_42)" "(let-values()(void))" -"(if(not(char? c_66))" +"(if(not(char? c_42))" "(let-values()(loop_104 #f))" -"(if(char=? c_66 '#\\newline)" +"(if(char=? c_42 '#\\newline)" "(let-values()(if backslash?_0(let-values()(loop_104 #f))(void)))" -"(if(char=? c_66 '#\\\\)" +"(if(char=? c_42 '#\\\\)" "(let-values()(loop_104 #t))" "(let-values()(loop_104 #f)))))))))))" " loop_104)" @@ -48104,30 +48337,30 @@ static const char *startup_source = "(let-values(((or-part_26)(char-whitespace? dc_0)))" "(if or-part_26" " or-part_26" -"(let-values(((or-part_312)(char=? dc_0 '#\\()))" -"(if or-part_312" -" or-part_312" -"(let-values(((or-part_292)(char=? dc_0 '#\\))))" -"(if or-part_292" -" or-part_292" +"(let-values(((or-part_309)(char=? dc_0 '#\\()))" +"(if or-part_309" +" or-part_309" +"(let-values(((or-part_290)(char=? dc_0 '#\\))))" +"(if or-part_290" +" or-part_290" "(let-values(((or-part_27)(char=? dc_0 '#\\[)))" "(if or-part_27" " or-part_27" "(let-values(((or-part_10)(char=? dc_0 '#\\])))" "(if or-part_10" " or-part_10" -"(let-values(((or-part_161)(char=? dc_0 '#\\{)))" -"(if or-part_161" -" or-part_161" +"(let-values(((or-part_162)(char=? dc_0 '#\\{)))" +"(if or-part_162" +" or-part_162" "(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_221)(char=? dc_0 '#\\`)))" -"(if or-part_221" -" or-part_221" +"(let-values(((or-part_224)(char=? dc_0 '#\\`)))" +"(if or-part_224" +" or-part_224" "(let-values(((or-part_3)(char=? dc_0 '#\\,)))" "(if or-part_3" " or-part_3" @@ -48185,30 +48418,30 @@ static const char *startup_source = " cs_1)))))))))))))" "(define-values" "(closer->opener)" -"(lambda(c_47)" +"(lambda(c_46)" "(begin" -"(let-values(((tmp_36) c_47))" +"(let-values(((tmp_36) c_46))" "(if(equal? tmp_36 '#\\))" "(let-values() '#\\()" "(if(equal? tmp_36 '#\\])" "(let-values() '#\\[)" -"(if(equal? tmp_36 '#\\})(let-values() '#\\{)(let-values() c_47))))))))" +"(if(equal? tmp_36 '#\\})(let-values() '#\\{)(let-values() c_46))))))))" " (define-values (dot-name) (lambda (config_25) (begin \"`.`\")))" "(define-values" "(all-openers-str)" "(lambda(config_21)" "(begin" -"(let-values(((p_62)(opener-name '#\\( config_21)))" +"(let-values(((p_63)(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_67)" +"(let-values(((c_69)" "(if(check-parameter 1/read-curly-brace-as-paren config_21)(opener-name '#\\{ config_21) #f)))" -"(if(if s_10 c_67 #f)" -" (let-values () (format \"~a, ~a, or ~a\" p_62 s_10 c_67))" -"(if(let-values(((or-part_301) s_10))(if or-part_301 or-part_301 c_67))" +"(if(if s_10 c_69 #f)" +" (let-values () (format \"~a, ~a, or ~a\" p_63 s_10 c_69))" +"(if(let-values(((or-part_293) s_10))(if or-part_293 or-part_293 c_69))" "(let-values()" -" (format \"~a or ~a\" p_62 (let-values (((or-part_302) s_10)) (if or-part_302 or-part_302 c_67))))" -"(let-values() p_62)))))))))" +" (format \"~a or ~a\" p_63 (let-values (((or-part_294) s_10)) (if or-part_294 or-part_294 c_69))))" +"(let-values() p_63)))))))))" "(define-values" "(struct:accum-string" " accum-string1.1" @@ -48234,63 +48467,63 @@ 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_64)(read-config-state-accum-str st_1)))" +"(if a_64" +"(let-values()(begin(set-read-config-state-accum-str! st_1 #f)(set-accum-string-pos! a_64 0) a_64))" "(let-values()(accum-string1.1 0(make-string 32)))))))))" "(define-values" "(accum-string-add!)" -"(lambda(a_66 c_68)" +"(lambda(a_65 c_70)" "(begin" -"(let-values(((pos_112)(accum-string-pos a_66)))" -"(let-values(((str_27)(accum-string-str a_66)))" +"(let-values(((pos_112)(accum-string-pos a_65)))" +"(let-values(((str_26)(accum-string-str a_65)))" "(let-values(((str2_0)" -"(if(< pos_112(string-length str_27))" -"(let-values() str_27)" +"(if(< pos_112(string-length str_26))" +"(let-values() str_26)" "(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_112 c_68)(set-accum-string-pos! a_66(add1 pos_112)))))))))" -"(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))))" +"(let-values(((str2_1)(make-string(*(string-length str_26) 2))))" +"(begin(string-copy! str2_1 0 str_26)(set-accum-string-str! a_65 str2_1) str2_1))))))" +"(begin(string-set! str2_0 pos_112 c_70)(set-accum-string-pos! a_65(add1 pos_112)))))))))" +"(define-values(accum-string-count)(lambda(a_66)(begin(accum-string-pos a_66))))" +"(define-values(set-accum-string-count!)(lambda(a_67 pos_11)(begin(set-accum-string-pos! a_67 pos_11))))" "(define-values" "(accum-string-convert!)" -"(lambda(a_69 convert_1 start-pos_6)" +"(lambda(a_68 convert_1 start-pos_6)" "(begin" -"(let-values(((str_28)(accum-string-str a_69)))" -"(let-values(((s_71)(convert_1(substring str_28 start-pos_6(accum-string-pos a_69)))))" -"(let-values(((len_36)(string-length s_71)))" +"(let-values(((str_27)(accum-string-str a_68)))" +"(let-values(((s_77)(convert_1(substring str_27 start-pos_6(accum-string-pos a_68)))))" +"(let-values(((len_36)(string-length s_77)))" "(begin" -"(if(<(+ len_36 start-pos_6)(string-length str_28))" +"(if(<(+ len_36 start-pos_6)(string-length str_27))" "(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_71)" -"(set-accum-string-pos! a_69(+ start-pos_6 len_36)))))))))" +"(begin(string-copy! str2_2 0 str_27 0 start-pos_6)(set-accum-string-str! a_68 str2_2)))))" +"(string-copy!(accum-string-str a_68) start-pos_6 s_77)" +"(set-accum-string-pos! a_68(+ 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_69) 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_183)(substring(accum-string-str a_70) start-pos_7(accum-string-pos a_70))))" -"(begin(accum-string-abandon! a_70 config_27) s_183)))))))))" +"(let-values(((s_186)(substring(accum-string-str a_69) start-pos_7(accum-string-pos a_69))))" +"(begin(accum-string-abandon! a_69 config_27) s_186)))))))))" "(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_70) 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_70) #f start-pos_8(accum-string-pos a_70))))" +"(begin(accum-string-abandon! a_70 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))))" @@ -48377,25 +48610,25 @@ static const char *startup_source = " (let-values () \"\"))))))" "(define-values" "(indentation-unexpected-closer-message)" -"(lambda(ec_2 c_69 config_33)" +"(lambda(ec_2 c_71 config_33)" "(begin" "(let-values(((indts_1)(read-config-indentations config_33)))" "(if(null? indts_1)" -" (let-values () (format \"unexpected `~a`\" c_69))" +" (let-values () (format \"unexpected `~a`\" c_71))" "(let-values()" "(let-values(((indt_2)(car indts_1)))" "(string-append" "(if(char=? ec_2(indentation-closer indt_2))" -" (let-values () (format \"unexpected `~a`\" c_69))" +" (let-values () (format \"unexpected `~a`\" c_71))" "(let-values()" "(let-values(((missing_2)" -"(let-values(((or-part_306)" +"(let-values(((or-part_302)" "(let-values(((lst_311)(cdr indts_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_311)))" -"((letrec-values(((for-loop_272)" +"((letrec-values(((for-loop_273)" "(lambda(result_39 lst_312)" "(begin" " 'for-loop" @@ -48416,17 +48649,17 @@ static const char *startup_source = " #f)))))" "(values result_118)))))" "(if(if(not" -"((lambda x_79 result_82)" +"((lambda x_81 result_82)" " indt_3))" "(not #f)" " #f)" -"(for-loop_272 result_82 rest_172)" +"(for-loop_273 result_82 rest_172)" " result_82)))" " result_39)))))" -" for-loop_272)" +" for-loop_273)" " #f" " lst_311)))))" -" (if or-part_306 or-part_306 \"expected\"))))" +" (if or-part_302 or-part_302 \"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`\"" @@ -48435,7 +48668,7 @@ static const char *startup_source = "(if(indentation-multiline? indt_2)" " (let-values () (format \"~a on line ~a\" opener-str_0 (indentation-start-line indt_2)))" " (let-values () (format \"preceding ~a\" opener-str_0)))" -" c_69)))))" +" c_71)))))" "(indentation-possible-cause config_33)))))))))" "(define-values" "(read-unwrapped-sequence17.1)" @@ -48474,8 +48707,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_55) v_5))" -"(if(read-config/outer? the-struct_55)" +"(let-values(((the-struct_83) v_5))" +"(if(read-config/outer? the-struct_83)" "(let-values(((indentations20_0)" "(cons" " indentation_0" @@ -48483,34 +48716,34 @@ 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_55)" -"(read-config/outer-line the-struct_55)" -"(read-config/outer-col the-struct_55)" -"(read-config/outer-pos the-struct_55)" +"(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)" " indentations20_0" -"(read-config/outer-keep-comment? the-struct_55)))" +"(read-config/outer-keep-comment? the-struct_83)))" "(raise-argument-error" " 'struct-copy" " \"read-config/outer?\"" -" the-struct_55))))))" +" the-struct_83))))))" "(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)" "(begin" " 'read-one/not-eof" -"(let-values(((e_78)(read-one_2 init-c_4 in_10 config_34)))" +"(let-values(((e_79)(read-one_2 init-c_4 in_10 config_34)))" "(begin" -"(if(eof-object? e_78)" +"(if(eof-object? e_79)" "(let-values()" "(let-values(((in22_1) in_10)" "((config23_0) config_34)" -"((e24_0) e_78)" +"((e24_0) e_79)" "((temp25_5)" " \"expected a ~a to close `~a`~a\")" "((temp26_4)" "(closer-name closer_1 config_34))" "((opener-c27_0) opener-c_0)" -"((temp28_3)" +"((temp28_4)" "(indentation-possible-cause config_34)))" "(reader-error10.1" " #f" @@ -48522,9 +48755,9 @@ static const char *startup_source = " in22_1" " config23_0" " temp25_5" -"(list temp26_4 opener-c27_0 temp28_3))))" +"(list temp26_4 opener-c27_0 temp28_4))))" "(void))" -" e_78))))))" +" e_79))))))" "(let-values(((seq_0)" "((letrec-values(((loop_106)" "(lambda(depth_11" @@ -48534,7 +48767,7 @@ static const char *startup_source = " first-read-one_1)" "(begin" " 'loop" -"(let-values(((c_70)" +"(let-values(((c_72)" "(read-char/skip-whitespace-and-comments" " init-c_3" " whitespace-read-one_0" @@ -48542,7 +48775,7 @@ static const char *startup_source = " seq-config_0)))" "(let-values(((ec_3)" "(effective-char" -" c_70" +" c_72" " seq-config_0)))" "(if(eqv? ec_3 closer_1)" "(let-values()" @@ -48562,15 +48795,15 @@ static const char *startup_source = "((source_13)" "(read-config-source" " config_16)))" -"(let-values(((c_71)" +"(let-values(((c_73)" "(peek-char-or-special" " in_20" " skip-count_4" " 'special" " source_13)))" -"(if(eq? c_71 'special)" +"(if(eq? c_73 'special)" "(special1.1 'special)" -" c_71)))" +" c_73)))" " seq-config_0)" " #f)" " #f)" @@ -48581,7 +48814,7 @@ static const char *startup_source = " dot-pos_0)" "(port-next-location*" " in_10" -" c_70)))" +" c_72)))" "(let-values((()" "(begin" "(track-indentation!" @@ -48619,7 +48852,7 @@ static const char *startup_source = " temp31_5" "(list)))))" "(values))))" -"(let-values(((v_197)" +"(let-values(((v_196)" "(read-one/not-eof_0" " #f" " first-read-one_1" @@ -48640,11 +48873,11 @@ static const char *startup_source = "(let-values()" "(if(null?" " accum_0)" -" v_197" +" v_196" "(append" "(reverse$1" " accum_0)" -" v_197)))" +" v_196)))" "(if(if(eqv?" " rest-ec_0" " '#\\.)" @@ -48662,18 +48895,18 @@ static const char *startup_source = "((source_14)" "(read-config-source" " config_16)))" -"(let-values(((c_66)" +"(let-values(((c_42)" "(peek-char-or-special" " in_17" " skip-count_5" " 'special" " source_14)))" "(if(eq?" -" c_66" +" c_42" " 'special)" "(special1.1" " 'special)" -" c_66)))" +" c_42)))" " seq-config_0)" " #f)" " #f)" @@ -48683,7 +48916,7 @@ static const char *startup_source = "(begin" "(set! head_0" "(box" -" v_197))" +" v_196))" "(values))))" "(let-values(((dot2-line_0" " dot2-col_0" @@ -48708,11 +48941,11 @@ static const char *startup_source = " post-c_0" " seq-config_0)))" "(begin" -"(if(let-values(((or-part_269)" +"(if(let-values(((or-part_270)" "(eof-object?" " post-ec_0)))" -"(if or-part_269" -" or-part_269" +"(if or-part_270" +" or-part_270" "(eqv?" " post-ec_0" " closer_1)))" @@ -48774,7 +49007,7 @@ static const char *startup_source = "(let-values()" "(let-values(((v_59)" "(read-one/not-eof_0" -" c_70" +" c_72" " first-read-one_1" " config/keep-comment_0)))" "(if(1/special-comment? v_59)" @@ -48824,10 +49057,10 @@ static const char *startup_source = "(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_21 config_35 #f) seq_1) seq_1)))))" -" (define-values (not-an-fX.1) (lambda (who_26 v_224) (begin 'not-an-fX (raise-argument-error who_26 \"fixnum?\" v_224))))" +" (define-values (not-an-fX.1) (lambda (who_27 v_224) (begin 'not-an-fX (raise-argument-error who_27 \"fixnum?\" v_224))))" "(define-values" "(not-an-fX.1$1)" -" (lambda (who_26 v_224) (begin 'not-an-fX (raise-argument-error who_26 \"flonum?\" v_224))))" +" (lambda (who_27 v_224) (begin 'not-an-fX (raise-argument-error who_27 \"flonum?\" v_224))))" "(define-values" "(read-digits13.1)" "(lambda(base1_0" @@ -48850,18 +49083,18 @@ static const char *startup_source = "(let-values(((init-v_0)(if init7_0 init3_0 0)))" "(let-values(((zero-digits-result_0)(if zero-digits-result8_0 zero-digits-result4_0 #f)))" "(let-values()" -"(let-values(((c_72)" +"(let-values(((c_74)" "(let-values(((in_22) in_12)" "((skip-count_6) 0)" "((source_15)(read-config-source config_36)))" -"(let-values(((c_73)" +"(let-values(((c_75)" "(peek-char-or-special in_22 skip-count_6 'special source_15)))" -"(if(eq? c_73 'special)(special1.1 'special) c_73)))))" -"(if(digit?$1 c_72 base_23)" +"(if(eq? c_75 'special)(special1.1 'special) c_75)))))" +"(if(digit?$1 c_74 base_23)" "(let-values()" "(begin" -"(consume-char in_12 c_72)" -"(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_72))(void))" +"(consume-char in_12 c_74)" +"(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_74))(void))" "((letrec-values(((loop_61)" "(lambda(v_225 max-count_1)" "(begin" @@ -48869,67 +49102,67 @@ static const char *startup_source = "(if(zero? max-count_1)" "(let-values() v_225)" "(let-values()" -"(let-values(((c_65)" +"(let-values(((c_68)" "(let-values(((in_23) in_12)" "((skip-count_7) 0)" "((source_16)" "(read-config-source config_36)))" -"(let-values(((c_41)" +"(let-values(((c_53)" "(peek-char-or-special" " in_23" " skip-count_7" " 'special" " source_16)))" -"(if(eq? c_41 'special)" +"(if(eq? c_53 'special)" "(special1.1 'special)" -" c_41)))))" -"(if(digit?$1 c_65 base_23)" +" c_53)))))" +"(if(digit?$1 c_68 base_23)" "(let-values()" "(begin" -"(consume-char in_12 c_65)" +"(consume-char in_12 c_68)" "(if accum-str_0" -"(let-values()(accum-string-add! accum-str_0 c_65))" +"(let-values()(accum-string-add! accum-str_0 c_68))" "(void))" "(loop_61" -"(+(digit->number c_65)(* v_225 base_23))" +"(+(digit->number c_68)(* v_225 base_23))" "(sub1 max-count_1))))" "(let-values() v_225)))))))))" " loop_61)" -"(+(digit->number c_72)(* init-v_0 base_23))" +"(+(digit->number c_74)(* init-v_0 base_23))" "(sub1 max-count_0))))" "(if zero-digits-result_0" "(let-values() zero-digits-result_0)" -"(let-values() c_72)))))))))))))))" +"(let-values() c_74)))))))))))))))" "(define-values" "(digit?$1)" -"(lambda(c_74 base_24)" +"(lambda(c_76 base_24)" "(begin" " 'digit?" -"(if(not(char? c_74))" +"(if(not(char? c_76))" "(let-values() #f)" "(if(= base_24 8)" -"(let-values()(octal-digit? c_74))" -"(if(= base_24 16)(let-values()(hex-digit? c_74))(let-values()(decimal-digit? c_74))))))))" -"(define-values(decimal-digit?)(lambda(c_75)(begin(if(char>=? c_75 '#\\0)(char<=? c_75 '#\\9) #f))))" -"(define-values(octal-digit?)(lambda(c_76)(begin(if(char>=? c_76 '#\\0)(char<=? c_76 '#\\7) #f))))" +"(let-values()(octal-digit? c_76))" +"(if(= base_24 16)(let-values()(hex-digit? c_76))(let-values()(decimal-digit? c_76))))))))" +"(define-values(decimal-digit?)(lambda(c_44)(begin(if(char>=? c_44 '#\\0)(char<=? c_44 '#\\9) #f))))" +"(define-values(octal-digit?)(lambda(c_77)(begin(if(char>=? c_77 '#\\0)(char<=? c_77 '#\\7) #f))))" "(define-values" "(hex-digit?)" -"(lambda(c_77)" -"(begin" -"(let-values(((or-part_313)(if(char>=? c_77 '#\\0)(char<=? c_77 '#\\9) #f)))" -"(if or-part_313" -" or-part_313" -"(let-values(((or-part_97)(if(char>=? c_77 '#\\A)(char<=? c_77 '#\\F) #f)))" -"(if or-part_97 or-part_97(if(char>=? c_77 '#\\a)(char<=? c_77 '#\\f) #f))))))))" -"(define-values" -"(digit->number)" "(lambda(c_78)" "(begin" -"(if(if(char>=? c_78 '#\\0)(char<=? c_78 '#\\9) #f)" -"(let-values()(-(char->integer c_78)(char->integer '#\\0)))" -"(if(if(char>=? c_78 '#\\A)(char<=? c_78 '#\\F) #f)" -"(let-values()(-(char->integer c_78)(-(char->integer '#\\A) 10)))" -"(let-values()(-(char->integer c_78)(-(char->integer '#\\a) 10))))))))" +"(let-values(((or-part_310)(if(char>=? c_78 '#\\0)(char<=? c_78 '#\\9) #f)))" +"(if or-part_310" +" or-part_310" +"(let-values(((or-part_96)(if(char>=? c_78 '#\\A)(char<=? c_78 '#\\F) #f)))" +"(if or-part_96 or-part_96(if(char>=? c_78 '#\\a)(char<=? c_78 '#\\f) #f))))))))" +"(define-values" +"(digit->number)" +"(lambda(c_79)" +"(begin" +"(if(if(char>=? c_79 '#\\0)(char<=? c_79 '#\\9) #f)" +"(let-values()(-(char->integer c_79)(char->integer '#\\0)))" +"(if(if(char>=? c_79 '#\\A)(char<=? c_79 '#\\F) #f)" +"(let-values()(-(char->integer c_79)(-(char->integer '#\\A) 10)))" +"(let-values()(-(char->integer c_79)(-(char->integer '#\\a) 10))))))))" "(define-values(string->number$1) string->number)" "(define-values" "(1/string->number)" @@ -48937,7 +49170,7 @@ static const char *startup_source = "(lambda(s7_2 radix1_0 convert-mode2_0 decimal-mode3_0 radix4_0 convert-mode5_0 decimal-mode6_0)" "(begin" " 'string->number8" -"(let-values(((s_181) s7_2))" +"(let-values(((s_184) s7_2))" "(let-values(((radix_0)(if radix4_0 radix1_0 10)))" "(let-values(((convert-mode_0)(if convert-mode5_0 convert-mode2_0 'number-or-false)))" "(let-values(((decimal-mode_0)" @@ -48948,16 +49181,16 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(string? s_181)" +"(if(string? s_184)" "(void)" -" (let-values () (raise-argument-error 'string->number \"string?\" s_181)))" -"(if((lambda(p_71)(if(exact-integer? radix_0)(<= 2 radix_0 16) #f)) radix_0)" +" (let-values () (raise-argument-error 'string->number \"string?\" s_184)))" +"(if((lambda(p_72)(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_64)" -"(let-values(((or-part_7)(eq? p_64 'number-or-false)))" -"(if or-part_7 or-part_7(eq? p_64 'read))))" +"(if((lambda(p_65)" +"(let-values(((or-part_7)(eq? p_65 'number-or-false)))" +"(if or-part_7 or-part_7(eq? p_65 'read))))" " convert-mode_0)" "(void)" "(let-values()" @@ -48965,9 +49198,9 @@ static const char *startup_source = " 'string->number" " \"(or/c 'number-or-false 'read)\"" " convert-mode_0)))" -"(if((lambda(p_72)" -"(let-values(((or-part_9)(eq? p_72 'decimal-as-inexact)))" -"(if or-part_9 or-part_9(eq? p_72 'decimal-as-exact))))" +"(if((lambda(p_73)" +"(let-values(((or-part_9)(eq? p_73 'decimal-as-inexact)))" +"(if or-part_9 or-part_9(eq? p_73 'decimal-as-exact))))" " decimal-mode_0)" "(void)" "(let-values()" @@ -48975,29 +49208,29 @@ static const char *startup_source = " 'string->number" " \"(or/c 'decimal-as-inexact decimal-as-exact)\"" " decimal-mode_0)))" -"(let-values(((s69_0) s_181)" +"(let-values(((s69_0) s_184)" "((temp70_1) 0)" -"((temp71_0)(string-length s_181))" +"((temp71_1)(string-length s_184))" "((radix72_0) radix_0)" -"((temp73_0) #f)" +"((temp73_1) #f)" "((decimal-mode74_0) decimal-mode_0)" "((convert-mode75_0) convert-mode_0))" "(do-string->number20.1" " #f" " #f" -" temp73_0" +" temp73_1" " s69_0" " temp70_1" -" temp71_0" +" temp71_1" " radix72_0" " decimal-mode74_0" " convert-mode75_0))))))))))))))" "(case-lambda" -"((s_461)(begin 'string->number(string->number8_0 s_461 #f #f #f #f #f #f)))" -"((s_462 radix_1 convert-mode_1 decimal-mode3_1)" -"(string->number8_0 s_462 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" -"((s_178 radix_2 convert-mode2_1)(string->number8_0 s_178 radix_2 convert-mode2_1 #f #t #t #f))" -"((s_463 radix1_1)(string->number8_0 s_463 radix1_1 #f #f #t #f #f)))))" +"((s_464)(begin 'string->number(string->number8_0 s_464 #f #f #f #f #f #f)))" +"((s_465 radix_1 convert-mode_1 decimal-mode3_1)" +"(string->number8_0 s_465 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" +"((s_181 radix_2 convert-mode2_1)(string->number8_0 s_181 radix_2 convert-mode2_1 #f #t #t #f))" +"((s_466 radix1_1)(string->number8_0 s_466 radix1_1 #f #f #t #f #f)))))" "(define-values" "(do-string->number20.1)" "(lambda(in-complex11_0" @@ -49011,33 +49244,33 @@ static const char *startup_source = " convert-mode19_0)" "(begin" " 'do-string->number20" -"(let-values(((s_464) s14_0))" -"(let-values(((start_43) start15_0))" -"(let-values(((end_33) end16_0))" +"(let-values(((s_467) s14_0))" +"(let-values(((start_44) start15_0))" +"(let-values(((end_34) end16_0))" "(let-values(((radix_3) radix17_0))" "(let-values(((radix-set?_0) radix-set?10_0))" "(let-values(((exactness_0) exactness18_0))" "(let-values(((in-complex_0)(if in-complex13_0 in-complex11_0 #f)))" "(let-values(((convert-mode_2) convert-mode19_0))" "(let-values()" -"(if(= start_43 end_33)" +"(if(= start_44 end_34)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" " (let-values () (format \"no digits\"))" "(let-values() #f)))" "(let-values()" -"(let-values(((c_79)(string-ref s_464 start_43)))" -"(if(char=? '#\\# c_79)" +"(let-values(((c_80)(string-ref s_467 start_44)))" +"(if(char=? '#\\# c_80)" "(let-values()" -"(let-values(((next_4)(add1 start_43)))" -"(if(= next_4 end_33)" +"(let-values(((next_4)(add1 start_44)))" +"(if(= next_4 end_34)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no character after `#` indicator in `~.a`\" s_464))" +" (let-values () (format \"no character after `#` indicator in `~.a`\" s_467))" "(let-values() #f)))" "(let-values()" -"(let-values(((i_175)(string-ref s_464 next_4)))" -"(let-values(((tmp_38) i_175))" +"(let-values(((i_176)(string-ref s_467 next_4)))" +"(let-values(((tmp_38) i_176))" "(let-values(((index_2)" "(if(char? tmp_38)" "(let-values(((codepoint_0)(char->integer tmp_38)))" @@ -49111,35 +49344,35 @@ static const char *startup_source = "(let-values()" "(format" " \"bad `#` indicator `~a` at `~.a`\"" -" i_175" -"(substring s_464 start_43 end_33)))" +" i_176" +"(substring s_467 start_44 end_34)))" "(let-values() #f)))" "(if(unsafe-fx< index_2 2)" "(let-values()" -"(if(let-values(((or-part_290)(exactness-set? exactness_0)))" -"(if or-part_290 or-part_290 in-complex_0))" +"(if(let-values(((or-part_311)(exactness-set? exactness_0)))" +"(if or-part_311 or-part_311 in-complex_0))" "(let-values()" "(if(eq? convert-mode_2 'must-read)" "(let-values()" "(format" " \"misplaced exactness specification at `~.a`\"" -"(substring s_464 start_43 end_33)))" +"(substring s_467 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(let-values(((s76_0) s_464)" +"(let-values(((s76_1) s_467)" "((temp77_0)(add1 next_4))" -"((end78_0) end_33)" +"((end78_0) end_34)" "((radix79_0) radix_3)" "((radix-set?80_0) radix-set?_0)" "((temp81_1)" -"(if(let-values(((or-part_218)" -"(char=? i_175 '#\\e)))" -"(if or-part_218" -" or-part_218" -"(char=? i_175 '#\\E)))" +"(if(let-values(((or-part_221)" +"(char=? i_176 '#\\e)))" +"(if or-part_221" +" or-part_221" +"(char=? i_176 '#\\E)))" " 'exact" " 'inexact))" -"((temp82_3)" +"((temp82_4)" "(if(eq? convert-mode_2 'read)" " 'must-read" " convert-mode_2)))" @@ -49147,25 +49380,25 @@ static const char *startup_source = " #f" " #f" " radix-set?80_0" -" s76_0" +" s76_1" " temp77_0" " end78_0" " radix79_0" " temp81_1" -" temp82_3)))))" +" temp82_4)))))" "(let-values()" -"(if(let-values(((or-part_314) radix-set?_0))" -"(if or-part_314 or-part_314 in-complex_0))" +"(if(let-values(((or-part_312) radix-set?_0))" +"(if or-part_312 or-part_312 in-complex_0))" "(let-values()" "(if(eq? convert-mode_2 'must-read)" "(let-values()" "(format" " \"misplaced radix specification at `~.a`\"" -"(substring s_464 start_43 end_33)))" +"(substring s_467 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(let-values(((radix_4)" -"(let-values(((tmp_39) i_175))" +"(let-values(((tmp_39) i_176))" "(if(if(equal? tmp_39 '#\\b)" " #t" "(equal? tmp_39 '#\\B))" @@ -49179,29 +49412,29 @@ static const char *startup_source = "(equal? tmp_39 '#\\D))" "(let-values() 10)" "(let-values() 16)))))))" -"(let-values(((s83_0) s_464)" -"((temp84_2)(add1 next_4))" -"((end85_0) end_33)" +"(let-values(((s83_0) s_467)" +"((temp84_1)(add1 next_4))" +"((end85_0) end_34)" "((radix86_0) radix_4)" -"((temp87_2) #t)" +"((temp87_3) #t)" "((exactness88_0) exactness_0)" -"((temp89_4)" +"((temp89_2)" "(if(eq? convert-mode_2 'read)" " 'must-read" " convert-mode_2)))" "(do-string->number20.1" " #f" " #f" -" temp87_2" +" temp87_3" " s83_0" -" temp84_2" +" temp84_1" " end85_0" " radix86_0" " exactness88_0" -" temp89_4)))))))))))))))" +" temp89_2)))))))))))))))" "(let-values(((c1_28)" -"(if(char-sign? c_79)" -"(read-special-number s_464 start_43 end_33 convert-mode_2)" +"(if(char-sign? c_80)" +"(read-special-number s_467 start_44 end_34 convert-mode_2)" " #f)))" "(if c1_28" "((lambda(v_226)" @@ -49213,15 +49446,15 @@ static const char *startup_source = "(let-values() v_226)))" " c1_28)" "(let-values(((c2_3)" -"(if(char-sign? c_79)" +"(if(char-sign? c_80)" "(if(not in-complex_0)" -"(if(>(- end_33 start_43) 7)" -"(if(char=? '#\\i(string-ref s_464(sub1 end_33)))" -"(if(char-sign?(string-ref s_464 6))" +"(if(>(- end_34 start_44) 7)" +"(if(char=? '#\\i(string-ref s_467(sub1 end_34)))" +"(if(char-sign?(string-ref s_467 6))" "(read-special-number" -" s_464" -" start_43" -"(+ start_43 6)" +" s_467" +" start_44" +"(+ start_44 6)" " convert-mode_2)" " #f)" " #f)" @@ -49230,9 +49463,9 @@ static const char *startup_source = " #f)))" "(if c2_3" "((lambda(v_227)" -"(let-values(((s90_1) s_464)" -"((temp91_0)(+ start_43 6))" -"((temp92_1)(sub1 end_33))" +"(let-values(((s90_1) s_467)" +"((temp91_0)(+ start_44 6))" +"((temp92_2)(sub1 end_34))" "((radix93_0) radix_3)" "((exactness94_0) exactness_0)" "((convert-mode95_0) convert-mode_2)" @@ -49247,7 +49480,7 @@ static const char *startup_source = " #f" " s90_1" " temp91_0" -" temp92_1" +" temp92_2" " radix93_0" " exactness94_0" " convert-mode95_0" @@ -49256,13 +49489,13 @@ static const char *startup_source = " c2_3)" "(let-values(((c3_2)" "(if(not in-complex_0)" -"(if(>=(- end_33 start_43) 7)" -"(if(char=? '#\\i(string-ref s_464(sub1 end_33)))" -"(if(char-sign?(string-ref s_464(- end_33 7)))" +"(if(>=(- end_34 start_44) 7)" +"(if(char=? '#\\i(string-ref s_467(sub1 end_34)))" +"(if(char-sign?(string-ref s_467(- end_34 7)))" "(read-special-number" -" s_464" -"(- end_33 7)" -"(sub1 end_33)" +" s_467" +"(- end_34 7)" +"(sub1 end_34)" " convert-mode_2)" " #f)" " #f)" @@ -49270,24 +49503,24 @@ static const char *startup_source = " #f)))" "(if c3_2" "((lambda(v2_1)" -"(if(if(= start_43(- end_33 7))(not(extflonum? v2_1)) #f)" +"(if(if(= start_44(- end_34 7))(not(extflonum? v2_1)) #f)" "(let-values()(make-rectangular 0 v2_1))" "(let-values()" -"(let-values(((s99_0) s_464)" -"((start100_0) start_43)" -"((temp101_2)(- end_33 7))" +"(let-values(((s99_0) s_467)" +"((start100_0) start_44)" +"((temp101_2)(- end_34 7))" "((radix102_0) radix_3)" "((exactness103_0) exactness_0)" "((convert-mode104_0) convert-mode_2)" -"((temp105_2) 'i)" -"((temp106_2) #t)" +"((temp105_1) 'i)" +"((temp106_1) #t)" "((v2107_0) v2_1)" -"((temp108_2)" +"((temp108_0)" "(lambda(v2_2 v_77)" "(begin 'temp108(make-rectangular v_77 v2_2)))))" "(read-for-special-compound65.1" -" temp105_2" -" temp106_2" +" temp105_1" +" temp106_1" " #t" " s99_0" " start100_0" @@ -49296,33 +49529,33 @@ static const char *startup_source = " exactness103_0" " convert-mode104_0" " v2107_0" -" temp108_2)))))" +" temp108_0)))))" " c3_2)" "(let-values(((c4_0)" -"(if(char-sign? c_79)" +"(if(char-sign? c_80)" "(if(not in-complex_0)" -"(if(>(- end_33 start_43) 7)" -"(if(char=? '#\\@(string-ref s_464(+ start_43 6)))" +"(if(>(- end_34 start_44) 7)" +"(if(char=? '#\\@(string-ref s_467(+ start_44 6)))" "(read-special-number" -" s_464" -" start_43" -"(+ start_43 6)" +" s_467" +" start_44" +"(+ start_44 6)" " convert-mode_2)" " #f)" " #f)" " #f)" " #f)))" "(if c4_0" -"((lambda(v_200)" -"(let-values(((s109_0) s_464)" -"((temp110_4)(+ start_43 7))" -"((end111_0) end_33)" +"((lambda(v_199)" +"(let-values(((s109_0) s_467)" +"((temp110_2)(+ start_44 7))" +"((end111_0) end_34)" "((radix112_0) radix_3)" "((exactness113_0) exactness_0)" "((convert-mode114_0) convert-mode_2)" "((temp115_0) '@)" -"((v116_0) v_200)" -"((temp117_2)" +"((v116_0) v_199)" +"((temp117_0)" "(lambda(v_228 v2_3)" "(begin 'temp117(make-polar v_228 v2_3)))))" "(read-for-special-compound65.1" @@ -49330,43 +49563,43 @@ static const char *startup_source = " #f" " #f" " s109_0" -" temp110_4" +" temp110_2" " end111_0" " radix112_0" " exactness113_0" " convert-mode114_0" " v116_0" -" temp117_2)))" +" temp117_0)))" " c4_0)" "(let-values(((c5_1)" "(if(not in-complex_0)" -"(if(>(- end_33 start_43) 7)" -"(if(char=? '#\\@(string-ref s_464(- end_33 7)))" +"(if(>(- end_34 start_44) 7)" +"(if(char=? '#\\@(string-ref s_467(- end_34 7)))" "(read-special-number" -" s_464" -"(- end_33 6)" -" end_33" +" s_467" +"(- end_34 6)" +" end_34" " convert-mode_2)" " #f)" " #f)" " #f)))" "(if c5_1" "((lambda(v2_4)" -"(let-values(((s118_0) s_464)" -"((start119_0) start_43)" -"((temp120_2)(- end_33 7))" +"(let-values(((s118_0) s_467)" +"((start119_0) start_44)" +"((temp120_2)(- end_34 7))" "((radix121_0) radix_3)" "((exactness122_0) exactness_0)" "((convert-mode123_0) convert-mode_2)" -"((temp124_4) '@)" -"((temp125_2) #t)" +"((temp124_3) '@)" +"((temp125_1) #t)" "((v2126_0) v2_4)" "((temp127_2)" "(lambda(v2_5 v_229)" "(begin 'temp127(make-polar v_229 v2_5)))))" "(read-for-special-compound65.1" -" temp124_4" -" temp125_2" +" temp124_3" +" temp125_1" " #t" " s118_0" " start119_0" @@ -49378,9 +49611,9 @@ static const char *startup_source = " temp127_2)))" " c5_1)" "(let-values()" -"(let-values(((s128_1) s_464)" -"((start129_0) start_43)" -"((end130_0) end_33)" +"(let-values(((s128_1) s_467)" +"((start129_0) start_44)" +"((end130_0) end_34)" "((radix131_0) radix_3)" "((radix-set?132_0) radix-set?_0)" "((exactness133_0) exactness_0)" @@ -49409,9 +49642,9 @@ static const char *startup_source = " convert-mode32_0)" "(begin" " 'do-string->non-special-number33" -"(let-values(((s_201) s27_1))" -"(let-values(((start_44) start28_0))" -"(let-values(((end_34) end29_0))" +"(let-values(((s_38) s27_1))" +"(let-values(((start_45) start28_0))" +"(let-values(((end_35) end29_0))" "(let-values(((radix_5) radix30_0))" "(let-values(((radix-set?_1) radix-set?23_0))" "(let-values(((exactness_1) exactness31_0))" @@ -49419,7 +49652,7 @@ static const char *startup_source = "(let-values(((convert-mode_3) convert-mode32_0))" "(let-values()" "((letrec-values(((loop_107)" -"(lambda(i_176" +"(lambda(i_177" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -49431,7 +49664,7 @@ static const char *startup_source = " must-i?_0)" "(begin" " 'loop" -"(if(= i_176 end_34)" +"(if(= i_177 end_35)" "(let-values()" "(if(if(not any-digits?_0)(not i-pos_3) #f)" "(let-values()" @@ -49439,7 +49672,7 @@ static const char *startup_source = "(let-values()" "(format" " \"no digits in `~.a`\"" -"(substring s_201 start_44 end_34)))" +"(substring s_38 start_45 end_35)))" "(let-values() #f)))" "(if(if must-i?_0(not i-pos_3) #f)" "(let-values()" @@ -49447,13 +49680,13 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_201 start_44 end_34)))" +"(substring s_38 start_45 end_35)))" "(let-values() #f)))" "(if(if sign-pos_0" -"(let-values(((or-part_315)" +"(let-values(((or-part_313)" "(if dot-pos_1(< dot-pos_1 sign-pos_0) #f)))" -"(if or-part_315" -" or-part_315" +"(if or-part_313" +" or-part_313" "(if slash-pos_0(< slash-pos_0 sign-pos_0) #f)))" " #f)" "(let-values()" @@ -49461,15 +49694,15 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced sign in `~.a`\"" -"(substring s_201 start_44 end_34)))" +"(substring s_38 start_45 end_35)))" "(let-values() #f)))" "(if i-pos_3" "(let-values()" -"(let-values(((s136_0) s_201)" -"((start137_0) start_44)" +"(let-values(((s136_0) s_38)" +"((start137_0) start_45)" "((sign-pos138_0) sign-pos_0)" "((sign-pos139_0) sign-pos_0)" -"((temp140_2)(sub1 end_34))" +"((temp140_4)(sub1 end_35))" "((i-pos141_0) i-pos_3)" "((sign-pos142_0) sign-pos_0)" "((radix143_0) radix_5)" @@ -49484,7 +49717,7 @@ static const char *startup_source = " start137_0" " sign-pos138_0" " sign-pos139_0" -" temp140_2" +" temp140_4" " i-pos141_0" " sign-pos142_0" " radix143_0" @@ -49492,11 +49725,11 @@ static const char *startup_source = " convert-mode147_0)))" "(if @-pos_0" "(let-values()" -"(let-values(((s148_0) s_201)" -"((start149_0) start_44)" +"(let-values(((s148_0) s_38)" +"((start149_0) start_45)" "((@-pos150_0) @-pos_0)" -"((temp151_1)(add1 @-pos_0))" -"((end152_0) end_34)" +"((temp151_2)(add1 @-pos_0))" +"((end152_0) end_35)" "((i-pos153_0) i-pos_3)" "((sign-pos154_0) sign-pos_0)" "((radix155_0) radix_5)" @@ -49510,7 +49743,7 @@ static const char *startup_source = " s148_0" " start149_0" " @-pos150_0" -" temp151_1" +" temp151_2" " end152_0" " i-pos153_0" " sign-pos154_0" @@ -49519,9 +49752,9 @@ static const char *startup_source = " convert-mode159_0)))" "(let-values()" "(string->real-number" -" s_201" -" start_44" -" end_34" +" s_38" +" start_45" +" end_35" " dot-pos_1" " slash-pos_0" " exp-pos_0" @@ -49530,11 +49763,11 @@ static const char *startup_source = " exactness_1" " convert-mode_3))))))))" "(let-values()" -"(let-values(((c_80)(string-ref s_201 i_176)))" -"(if(digit? c_80 radix_5)" +"(let-values(((c_81)(string-ref s_38 i_177)))" +"(if(digit? c_81 radix_5)" "(let-values()" "(loop_107" -"(add1 i_176)" +"(add1 i_177)" " #t" " any-hashes?_0" " i-pos_3" @@ -49544,10 +49777,10 @@ static const char *startup_source = " slash-pos_0" " exp-pos_0" " must-i?_0))" -"(if(char=? c_80 '#\\#)" +"(if(char=? c_81 '#\\#)" "(let-values()" "(loop_107" -"(add1 i_176)" +"(add1 i_177)" " #t" " #t" " i-pos_3" @@ -49557,7 +49790,7 @@ static const char *startup_source = " slash-pos_0" " exp-pos_0" " must-i?_0))" -"(if(char-sign? c_80)" +"(if(char-sign? c_81)" "(let-values()" "(if(if sign-pos_0 must-i?_0 #f)" "(let-values()" @@ -49565,41 +49798,41 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_201 start_44 end_34)))" +"(substring s_38 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(loop_107" -"(add1 i_176)" +"(add1 i_177)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" -" i_176" +" i_177" " dot-pos_1" " slash-pos_0" " #f" -"(if(> i_176 start_44)" -"(let-values(((or-part_316)(not @-pos_0)))" -"(if or-part_316" -" or-part_316" -"(> i_176(add1 @-pos_0))))" +"(if(> i_177 start_45)" +"(let-values(((or-part_314)(not @-pos_0)))" +"(if or-part_314" +" or-part_314" +"(> i_177(add1 @-pos_0))))" " #f)))))" -"(if(char=? c_80 '#\\.)" +"(if(char=? c_81 '#\\.)" "(let-values()" -"(if(let-values(((or-part_215)" +"(if(let-values(((or-part_218)" "(if exp-pos_0" -"(let-values(((or-part_317)" +"(let-values(((or-part_315)" "(not sign-pos_0)))" -"(if or-part_317" -" or-part_317" +"(if or-part_315" +" or-part_315" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_215" -" or-part_215" +"(if or-part_218" +" or-part_218" "(if dot-pos_1" -"(let-values(((or-part_318)(not sign-pos_0)))" -"(if or-part_318" -" or-part_318" +"(let-values(((or-part_316)(not sign-pos_0)))" +"(if or-part_316" +" or-part_316" "(> dot-pos_1 sign-pos_0)))" " #f)))" "(let-values()" @@ -49607,12 +49840,12 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `.` in `~.a`\"" -"(substring s_201 start_44 end_34)))" +"(substring s_38 start_45 end_35)))" "(let-values() #f)))" "(if(if slash-pos_0" -"(let-values(((or-part_319)(not sign-pos_0)))" -"(if or-part_319" -" or-part_319" +"(let-values(((or-part_317)(not sign-pos_0)))" +"(if or-part_317" +" or-part_317" "(> slash-pos_0 sign-pos_0)))" " #f)" "(let-values()" @@ -49620,26 +49853,26 @@ static const char *startup_source = "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_201 start_44 end_34)))" +"(substring s_38 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(loop_107" -"(add1 i_176)" +"(add1 i_177)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" " sign-pos_0" -" i_176" +" i_177" " #f" " #f" " must-i?_0)))))" -"(if(char=? c_80 '#\\/)" +"(if(char=? c_81 '#\\/)" "(let-values()" "(if(if dot-pos_1" -"(let-values(((or-part_320)(not sign-pos_0)))" -"(if or-part_320" -" or-part_320" +"(let-values(((or-part_318)(not sign-pos_0)))" +"(if or-part_318" +" or-part_318" "(> dot-pos_1 sign-pos_0)))" " #f)" "(let-values()" @@ -49647,23 +49880,23 @@ static const char *startup_source = "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_201 start_44 end_34)))" +"(substring s_38 start_45 end_35)))" "(let-values() #f)))" -"(if(let-values(((or-part_321)" +"(if(let-values(((or-part_319)" "(if exp-pos_0" -"(let-values(((or-part_190)" +"(let-values(((or-part_192)" "(not sign-pos_0)))" -"(if or-part_190" -" or-part_190" +"(if or-part_192" +" or-part_192" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_321" -" or-part_321" +"(if or-part_319" +" or-part_319" "(if slash-pos_0" -"(let-values(((or-part_322)" +"(let-values(((or-part_320)" "(not sign-pos_0)))" -"(if or-part_322" -" or-part_322" +"(if or-part_320" +" or-part_320" "(> slash-pos_0 sign-pos_0)))" " #f)))" "(let-values()" @@ -49671,74 +49904,74 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `/` in `~.a`\"" -"(substring s_201 start_44 end_34)))" +"(substring s_38 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(loop_107" -"(add1 i_176)" +"(add1 i_177)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" " sign-pos_0" " #f" -" i_176" +" i_177" " #f" " must-i?_0)))))" -"(if(let-values(((or-part_323)(char=? c_80 '#\\e)))" +"(if(let-values(((or-part_321)(char=? c_81 '#\\e)))" +"(if or-part_321" +" or-part_321" +"(let-values(((or-part_322)(char=? c_81 '#\\E)))" +"(if or-part_322" +" or-part_322" +"(let-values(((or-part_323)" +"(char=? c_81 '#\\f)))" "(if or-part_323" " or-part_323" -"(let-values(((or-part_324)(char=? c_80 '#\\E)))" +"(let-values(((or-part_324)" +"(char=? c_81 '#\\F)))" "(if or-part_324" " or-part_324" "(let-values(((or-part_325)" -"(char=? c_80 '#\\f)))" +"(char=? c_81 '#\\d)))" "(if or-part_325" " or-part_325" "(let-values(((or-part_326)" -"(char=? c_80 '#\\F)))" +"(char=? c_81 '#\\D)))" "(if or-part_326" " or-part_326" +"(let-values(((or-part_219)" +"(char=?" +" c_81" +" '#\\s)))" +"(if or-part_219" +" or-part_219" +"(let-values(((or-part_165)" +"(char=?" +" c_81" +" '#\\S)))" +"(if or-part_165" +" or-part_165" "(let-values(((or-part_327)" -"(char=? c_80 '#\\d)))" +"(char=?" +" c_81" +" '#\\l)))" "(if or-part_327" " or-part_327" "(let-values(((or-part_328)" -"(char=? c_80 '#\\D)))" +"(char=?" +" c_81" +" '#\\L)))" "(if or-part_328" " or-part_328" -"(let-values(((or-part_216)" -"(char=?" -" c_80" -" '#\\s)))" -"(if or-part_216" -" or-part_216" -"(let-values(((or-part_164)" -"(char=?" -" c_80" -" '#\\S)))" -"(if or-part_164" -" or-part_164" "(let-values(((or-part_329)" "(char=?" -" c_80" -" '#\\l)))" +" c_81" +" '#\\t)))" "(if or-part_329" " or-part_329" -"(let-values(((or-part_330)" "(char=?" -" c_80" -" '#\\L)))" -"(if or-part_330" -" or-part_330" -"(let-values(((or-part_331)" -"(char=?" -" c_80" -" '#\\t)))" -"(if or-part_331" -" or-part_331" -"(char=?" -" c_80" +" c_81" " '#\\T)))))))))))))))))))))))" "(let-values()" "(if exp-pos_0" @@ -49747,15 +49980,15 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `~a` in `~.a`\"" -" c_80" -"(substring s_201 start_44 end_34)))" +" c_81" +"(substring s_38 start_45 end_35)))" "(let-values() #f)))" -"(if(if(<(add1 i_176) end_34)" -"(char-sign?(string-ref s_201(add1 i_176)))" +"(if(if(<(add1 i_177) end_35)" +"(char-sign?(string-ref s_38(add1 i_177)))" " #f)" "(let-values()" "(loop_107" -"(+ i_176 2)" +"(+ i_177 2)" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -49763,12 +49996,12 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_332) exp-pos_0))" -"(if or-part_332 or-part_332 i_176))" +"(let-values(((or-part_330) exp-pos_0))" +"(if or-part_330 or-part_330 i_177))" " must-i?_0))" "(let-values()" "(loop_107" -"(+ i_176 1)" +"(+ i_177 1)" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -49776,10 +50009,10 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_333) exp-pos_0))" -"(if or-part_333 or-part_333 i_176))" +"(let-values(((or-part_331) exp-pos_0))" +"(if or-part_331 or-part_331 i_177))" " must-i?_0)))))" -"(if(char=? c_80 '#\\@)" +"(if(char=? c_81 '#\\@)" "(let-values()" "(if(eq? in-complex_1 'i)" "(let-values()" @@ -49787,8 +50020,55 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_201 start_44 end_34)))" +"(substring s_38 start_45 end_35)))" "(let-values() #f)))" +"(if(let-values(((or-part_332) @-pos_0))" +"(if or-part_332" +" or-part_332" +"(eq? in-complex_1 '@)))" +"(let-values()" +"(if(eq? convert-mode_3 'must-read)" +"(let-values()" +"(format" +" \"too many `@`s in `~.a`\"" +"(substring s_38 start_45 end_35)))" +"(let-values() #f)))" +"(if(= i_177 start_45)" +"(let-values()" +"(if(eq? convert-mode_3 'must-read)" +"(let-values()" +"(format" +" \"`@` cannot be at start in `~.a`\"" +"(substring s_38 start_45 end_35)))" +"(let-values() #f)))" +"(if must-i?_0" +"(let-values()" +"(if(eq? convert-mode_3 'must-read)" +"(let-values()" +"(format" +" \"too many signs in `~.a`\"" +"(substring s_38 start_45 end_35)))" +"(let-values() #f)))" +"(let-values()" +"(loop_107" +"(add1 i_177)" +" any-digits?_0" +" any-hashes?_0" +" i-pos_3" +" i_177" +" #f" +" #f" +" #f" +" #f" +" must-i?_0)))))))" +"(if(if(let-values(((or-part_333)" +"(char=? c_81 '#\\i)))" +"(if or-part_333" +" or-part_333" +"(char=? c_81 '#\\I)))" +" sign-pos_0" +" #f)" +"(let-values()" "(if(let-values(((or-part_334) @-pos_0))" "(if or-part_334" " or-part_334" @@ -49797,74 +50077,27 @@ static const char *startup_source = "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" -" \"too many `@`s in `~.a`\"" -"(substring s_201 start_44 end_34)))" +" \"cannot mix `@` and `i` in `~.a`\"" +"(substring s_38 start_45 end_35)))" "(let-values() #f)))" -"(if(= i_176 start_44)" -"(let-values()" -"(if(eq? convert-mode_3 'must-read)" -"(let-values()" -"(format" -" \"`@` cannot be at start in `~.a`\"" -"(substring s_201 start_44 end_34)))" -"(let-values() #f)))" -"(if must-i?_0" -"(let-values()" -"(if(eq? convert-mode_3 'must-read)" -"(let-values()" -"(format" -" \"too many signs in `~.a`\"" -"(substring s_201 start_44 end_34)))" -"(let-values() #f)))" -"(let-values()" -"(loop_107" -"(add1 i_176)" -" any-digits?_0" -" any-hashes?_0" -" i-pos_3" -" i_176" -" #f" -" #f" -" #f" -" #f" -" must-i?_0)))))))" -"(if(if(let-values(((or-part_335)" -"(char=? c_80 '#\\i)))" +"(if(let-values(((or-part_335)" +"(<(add1 i_177) end_35)))" "(if or-part_335" " or-part_335" -"(char=? c_80 '#\\I)))" -" sign-pos_0" -" #f)" -"(let-values()" -"(if(let-values(((or-part_336) @-pos_0))" -"(if or-part_336" -" or-part_336" -"(eq? in-complex_1 '@)))" -"(let-values()" -"(if(eq? convert-mode_3 'must-read)" -"(let-values()" -"(format" -" \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_201 start_44 end_34)))" -"(let-values() #f)))" -"(if(let-values(((or-part_337)" -"(<(add1 i_176) end_34)))" -"(if or-part_337" -" or-part_337" "(eq? in-complex_1 'i)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" " \"`i` must be at the end in `~.a`\"" -"(substring s_201 start_44 end_34)))" +"(substring s_38 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(loop_107" -"(add1 i_176)" +"(add1 i_177)" " any-digits?_0" " any-hashes?_0" -" i_176" +" i_177" " @-pos_0" " sign-pos_0" " #f" @@ -49872,19 +50105,19 @@ static const char *startup_source = " #f" " #f)))))" "(let-values()" -"(if(char=? c_80 '#\\nul)" +"(if(char=? c_81 '#\\nul)" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" -" (format \"nul character in `~.a`\" s_201))" +" (format \"nul character in `~.a`\" s_38))" "(let-values() #f)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" -" (format \"bad digit `~a`\" c_80))" +" (format \"bad digit `~a`\" c_81))" "(let-values() #f))))))))))))))))))))" " loop_107)" -" start_44" +" start_45" " #f" " #f" " #f" @@ -49910,7 +50143,7 @@ static const char *startup_source = " convert-mode49_0)" "(begin" " 'string->complex-number50" -"(let-values(((s_221) s40_0))" +"(let-values(((s_224) s40_0))" "(let-values(((start1_0) start141_0))" "(let-values(((end1_0) end142_0))" "(let-values(((start2_0) start243_0))" @@ -49927,7 +50160,7 @@ static const char *startup_source = "(if(= start1_0 end1_0)" "(let-values()(if(eq? exactness_2 'inexact) 0.0 0))" "(let-values()" -"(let-values(((s160_0) s_221)" +"(let-values(((s160_0) s_224)" "((start1161_0) start1_0)" "((end1162_0) end1_0)" "((radix163_0) radix_6)" @@ -49948,12 +50181,12 @@ static const char *startup_source = "(let-values(((v2_6)" "(if(if(eq? in-complex_2 'i)(=(- end2_0 start2_0) 1) #f)" "(let-values()" -"(let-values(((neg?_0)(char=?(string-ref s_221 start2_0) '#\\-)))" +"(let-values(((neg?_0)(char=?(string-ref s_224 start2_0) '#\\-)))" "(if(eq? exactness_2 'inexact)" "(let-values()(if neg?_0 -1.0 1.0))" "(let-values()(if neg?_0 -1 1)))))" "(let-values()" -"(let-values(((s168_0) s_221)" +"(let-values(((s168_0) s_224)" "((start2169_0) start2_0)" "((end2170_0) end2_0)" "((radix171_0) radix_6)" @@ -49971,11 +50204,11 @@ static const char *startup_source = " radix171_0" " exactness173_0" " convert-mode175_0))))))" -"(if(let-values(((or-part_113)(not v1_0)))" -"(if or-part_113 or-part_113(not v2_6)))" +"(if(let-values(((or-part_112)(not v1_0)))" +"(if or-part_112 or-part_112(not v2_6)))" "(let-values() #f)" -"(if(if(let-values(((or-part_338)(extflonum? v1_0)))" -"(if or-part_338 or-part_338(extflonum? v2_6)))" +"(if(if(let-values(((or-part_336)(extflonum? v1_0)))" +"(if or-part_336 or-part_336(extflonum? v2_6)))" "(not(eq? convert-mode_4 'must-read))" " #f)" "(let-values()(fail-extflonum convert-mode_4 v1_0))" @@ -49990,81 +50223,81 @@ static const char *startup_source = "(if(eq? in-complex_2 'i)" "(let-values()(make-rectangular v1_0 v2_6))" "(let-values()" -"(let-values(((p_73)(make-polar v1_0 v2_6)))" +"(let-values(((p_74)(make-polar v1_0 v2_6)))" "(if(eq? exactness_2 'exact)" -"(inexact->exact p_73)" -" p_73))))))))))))))))))))))))))))" +"(inexact->exact p_74)" +" p_74))))))))))))))))))))))))))))" "(define-values" "(string->real-number)" -"(lambda(s_232 start_45 end_35 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)" +"(lambda(s_235 start_46 end_36 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_232 exp-pos_1)) '#\\t)))))" +"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_235 exp-pos_1)) '#\\t)))))" "(let-values(((simple?_0)" "(if(not slash-pos_1)" -"(if(let-values(((or-part_339)(eq? exactness_3 'inexact)))" +"(if(let-values(((or-part_337)(eq? exactness_3 'inexact)))" +"(if or-part_337" +" or-part_337" +"(let-values(((or-part_338)(eq? exactness_3 'decimal-as-inexact)))" +"(if or-part_338 or-part_338(if(not dot-pos_2)(not exp-pos_1) #f)))))" +"(if(let-values(((or-part_339)(not exp-pos_1)))" "(if or-part_339" " or-part_339" -"(let-values(((or-part_340)(eq? exactness_3 'decimal-as-inexact)))" -"(if or-part_340 or-part_340(if(not dot-pos_2)(not exp-pos_1) #f)))))" -"(if(let-values(((or-part_341)(not exp-pos_1)))" -"(if or-part_341" -" or-part_341" -"(let-values(((or-part_342)(not(eq? convert-mode_5 'number-or-false))))" -"(if or-part_342 or-part_342(not(extfl-mark?_0))))))" -"(not(if any-hashes?_1(hashes? s_232 start_45 end_35) #f))" +"(let-values(((or-part_340)(not(eq? convert-mode_5 'number-or-false))))" +"(if or-part_340 or-part_340(not(extfl-mark?_0))))))" +"(not(if any-hashes?_1(hashes? s_235 start_46 end_36) #f))" " #f)" " #f)" " #f)))" -"(let-values(((has-sign?_0)(if(> end_35 start_45)(char-sign?(string-ref s_232 start_45)) #f)))" -"(if(=(- end_35 start_45)(+(if dot-pos_2 1 0)(if exp-pos_1 1 0)(if has-sign?_0 1 0)))" +"(let-values(((has-sign?_0)(if(> end_36 start_46)(char-sign?(string-ref s_235 start_46)) #f)))" +"(if(=(- end_36 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_45)" +"(if(= end_36 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_232 start_45 end_35)))" +" (let-values () (format \"missing digits in `~.a`\" (substring s_235 start_46 end_36)))" "(let-values() #f))))" "(if simple?_0" "(let-values()" "(if(if exp-pos_1" "(=" -"(- exp-pos_1 start_45)" +"(- exp-pos_1 start_46)" "(+(if(if dot-pos_2(< dot-pos_2 exp-pos_1) #f) 1 0)(if has-sign?_0 1 0)))" " #f)" "(let-values()" "(if(eq? convert-mode_5 'must-read)" "(let-values()" -" (format \"missing digits before exponent marker in `~.a`\" (substring s_232 start_45 end_35)))" +" (format \"missing digits before exponent marker in `~.a`\" (substring s_235 start_46 end_36)))" "(let-values() #f)))" "(if(if exp-pos_1" -"(let-values(((or-part_343)(= exp-pos_1(sub1 end_35))))" -"(if or-part_343" -" or-part_343" -"(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_232(sub1 end_35))) #f)))" +"(let-values(((or-part_341)(= exp-pos_1(sub1 end_36))))" +"(if or-part_341" +" or-part_341" +"(if(= exp-pos_1(- end_36 2))(char-sign?(string-ref s_235(sub1 end_36))) #f)))" " #f)" "(let-values()" "(if(eq? convert-mode_5 'must-read)" "(let-values()" -" (format \"missing digits after exponent marker in `~.a`\" (substring s_232 start_45 end_35)))" +" (format \"missing digits after exponent marker in `~.a`\" (substring s_235 start_46 end_36)))" "(let-values() #f)))" "(let-values()" "(let-values(((n_30)" "(string->number$1" -"(maybe-substring s_232 start_45 end_35)" +"(maybe-substring s_235 start_46 end_36)" " radix_7" -"(if(let-values(((or-part_344)(eq? convert-mode_5 'number-or-false)))" -"(if or-part_344" -" or-part_344" -"(let-values(((or-part_345)(not exp-pos_1)))" -"(if or-part_345 or-part_345(not(extfl-mark?_0))))))" +"(if(let-values(((or-part_342)(eq? convert-mode_5 'number-or-false)))" +"(if or-part_342" +" or-part_342" +"(let-values(((or-part_343)(not exp-pos_1)))" +"(if or-part_343 or-part_343(not(extfl-mark?_0))))))" " 'number-or-false" " 'read))))" -"(if(let-values(((or-part_346)(not n_30)))(if or-part_346 or-part_346(string? n_30)))" +"(if(let-values(((or-part_344)(not n_30)))(if or-part_344 or-part_344(string? n_30)))" "(let-values()" "(error" " 'string->number" " \"host `string->number` failed on ~s\"" -"(substring s_232 start_45 end_35)))" +"(substring s_235 start_46 end_36)))" "(if(eq? exactness_3 'inexact)" "(let-values()" "(if(extflonum? n_30)" @@ -50073,9 +50306,9 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to inexact\"" -"(substring s_232 start_45 end_35)))" +"(substring s_235 start_46 end_36)))" "(let-values() #f)))" -"(if(if(eqv? n_30 0)(char=?(string-ref s_232 start_45) '#\\-) #f)" +"(if(if(eqv? n_30 0)(char=?(string-ref s_235 start_46) '#\\-) #f)" "(let-values() -0.0)" "(let-values()(exact->inexact n_30)))))" "(let-values() n_30))))))))" @@ -50083,8 +50316,8 @@ static const char *startup_source = "(let-values()" "(let-values(((m-v_0)" "(string->real-number" -" s_232" -" start_45" +" s_235" +" start_46" " exp-pos_1" " dot-pos_2" " slash-pos_1" @@ -50094,29 +50327,29 @@ static const char *startup_source = " 'exact" " convert-mode_5)))" "(let-values(((e-v_0)" -"(string->exact-integer-number s_232(+ exp-pos_1 1) end_35 radix_7 convert-mode_5)))" +"(string->exact-integer-number s_235(+ exp-pos_1 1) end_36 radix_7 convert-mode_5)))" "(let-values(((real->precision-inexact_0)" -"(lambda(r_45)" +"(lambda(r_46)" "(begin" " 'real->precision-inexact" -"(let-values(((tmp_40)(string-ref s_232 exp-pos_1)))" +"(let-values(((tmp_40)(string-ref s_235 exp-pos_1)))" "(if(if(equal? tmp_40 '#\\s)" " #t" "(if(equal? tmp_40 '#\\S)" " #t" "(if(equal? tmp_40 '#\\f) #t(equal? tmp_40 '#\\F))))" -"(let-values()(real->single-flonum r_45))" +"(let-values()(real->single-flonum r_46))" "(if(if(equal? tmp_40 '#\\t) #t(equal? tmp_40 '#\\T))" "(let-values()" "(if(extflonum-available?)" -"(real->extfl r_45)" +"(real->extfl r_46)" "(string->number$1" -"(replace-hashes s_232 start_45 end_35)" +"(replace-hashes s_235 start_46 end_36)" " radix_7" " 'read)))" -"(let-values()(real->double-flonum r_45)))))))))" +"(let-values()(real->double-flonum r_46)))))))))" "(let-values(((get-extfl?_0)(extfl-mark?_0)))" -"(if(let-values(((or-part_347)(not m-v_0)))(if or-part_347 or-part_347(not e-v_0)))" +"(if(let-values(((or-part_345)(not m-v_0)))(if or-part_345 or-part_345(not e-v_0)))" "(let-values() #f)" "(if(string? m-v_0)" "(let-values() m-v_0)" @@ -50124,14 +50357,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_229)(eq? exactness_3 'inexact)))" -"(if or-part_229 or-part_229(eq? exactness_3 'decimal-as-inexact)))" +"(if(if(let-values(((or-part_230)(eq? exactness_3 'inexact)))" +"(if or-part_230 or-part_230(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_232 start_45) '#\\-) -0.0 0.0))" +"(let-values()(if(char=?(string-ref s_235 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))))))" @@ -50141,25 +50374,25 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to ~a\"" -"(substring s_232 start_45 end_35)" +"(substring s_235 start_46 end_36)" " exactness_3))" "(let-values() #f)))" "(let-values()" "(let-values(((n_31)(* m-v_0(expt radix_7 e-v_0))))" "(if(if(not get-extfl?_0)" -"(let-values(((or-part_348)(eq? exactness_3 'exact)))" -"(if or-part_348 or-part_348(eq? exactness_3 'decimal-as-exact)))" +"(let-values(((or-part_346)(eq? exactness_3 'exact)))" +"(if or-part_346 or-part_346(eq? exactness_3 'decimal-as-exact)))" " #f)" "(let-values() n_31)" -"(if(if(eqv? n_31 0)(char=?(string-ref s_232 start_45) '#\\-) #f)" +"(if(if(eqv? n_31 0)(char=?(string-ref s_235 start_46) '#\\-) #f)" "(let-values()(real->precision-inexact_0 -0.0))" "(let-values()(real->precision-inexact_0 n_31)))))))))))))))))" "(if slash-pos_1" "(let-values()" "(let-values(((n-v_0)" "(string->real-number" -" s_232" -" start_45" +" s_235" +" start_46" " slash-pos_1" " #f" " #f" @@ -50170,9 +50403,9 @@ static const char *startup_source = " convert-mode_5)))" "(let-values(((d-v_0)" "(string->real-number" -" s_232" +" s_235" "(add1 slash-pos_1)" -" end_35" +" end_36" " #f" " #f" " #f" @@ -50184,13 +50417,13 @@ static const char *startup_source = "(lambda(from-pos_0)" "(begin" " 'get-inexact?" -"(let-values(((or-part_151)(eq? exactness_3 'inexact)))" -"(if or-part_151" -" or-part_151" +"(let-values(((or-part_152)(eq? exactness_3 'inexact)))" +"(if or-part_152" +" or-part_152" "(if(not(eq? exactness_3 'exact))" -"(hashes? s_232 from-pos_0 end_35)" +"(hashes? s_235 from-pos_0 end_36)" " #f)))))))" -"(if(let-values(((or-part_349)(not n-v_0)))(if or-part_349 or-part_349(not d-v_0)))" +"(if(let-values(((or-part_347)(not n-v_0)))(if or-part_347 or-part_347(not d-v_0)))" "(let-values() #f)" "(if(string? n-v_0)" "(let-values() n-v_0)" @@ -50203,165 +50436,165 @@ 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_232 start_45 end_35)))" +" (format \"division by zero in `~.a`\" (substring s_235 start_46 end_36)))" "(let-values() #f)))))" "(let-values()" "(let-values(((n_32)(/ n-v_0 d-v_0)))" -"(if(get-inexact?_0 start_45)(exact->inexact n_32) n_32)))))))))))" +"(if(get-inexact?_0 start_46)(exact->inexact n_32) n_32)))))))))))" "(let-values()" "(string->decimal-number" -" s_232" -" start_45" -" end_35" +" s_235" +" start_46" +" end_36" " dot-pos_2" " radix_7" " exactness_3" " convert-mode_5))))))))))))" "(define-values" "(string->decimal-number)" -"(lambda(s_358 start_46 end_36 dot-pos_3 radix_8 exactness_4 convert-mode_6)" +"(lambda(s_360 start_47 end_37 dot-pos_3 radix_8 exactness_4 convert-mode_6)" "(begin" "(let-values(((get-exact?_0)" -"(let-values(((or-part_350)(eq? exactness_4 'exact)))" -"(if or-part_350 or-part_350(eq? exactness_4 'decimal-as-exact)))))" -"(let-values(((new-str_0)(make-string(- end_36 start_46(if(if dot-pos_3 get-exact?_0 #f) 1 0)))))" +"(let-values(((or-part_348)(eq? exactness_4 'exact)))" +"(if or-part_348 or-part_348(eq? exactness_4 'decimal-as-exact)))))" +"(let-values(((new-str_0)(make-string(- end_37 start_47(if(if dot-pos_3 get-exact?_0 #f) 1 0)))))" "((letrec-values(((loop_108)" -"(lambda(i_117 j_3 hashes-pos_0)" +"(lambda(i_118 j_3 hashes-pos_0)" "(begin" " 'loop" -"(if(< i_117 start_46)" +"(if(< i_118 start_47)" "(let-values()" -"(if(= hashes-pos_0 start_46)" +"(if(= hashes-pos_0 start_47)" "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" -" (format \"misplaced `#` in `~.a`\" (substring s_358 start_46 end_36)))" +" (format \"misplaced `#` in `~.a`\" (substring s_360 start_47 end_37)))" "(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_358 start_46 end_36))" +"(let-values()(fail-bad-number convert-mode_6 s_360 start_47 end_37))" "(if(not get-exact?_0)" "(let-values()" -"(if(if(eqv? n_33 0)(char=?(string-ref s_358 start_46) '#\\-) #f)" +"(if(if(eqv? n_33 0)(char=?(string-ref s_360 start_47) '#\\-) #f)" " -0.0" "(exact->inexact n_33)))" "(if(if dot-pos_3 get-exact?_0 #f)" -"(let-values()(/ n_33(expt 10(- end_36 dot-pos_3 1))))" +"(let-values()(/ n_33(expt 10(- end_37 dot-pos_3 1))))" "(let-values() n_33))))))))" "(let-values()" -"(let-values(((c_81)(string-ref s_358 i_117)))" -"(if(char=? c_81 '#\\.)" +"(let-values(((c_82)(string-ref s_360 i_118)))" +"(if(char=? c_82 '#\\.)" "(let-values()" "(if get-exact?_0" "(let-values()" "(loop_108" -"(sub1 i_117)" +"(sub1 i_118)" " j_3" -"(if(= hashes-pos_0(add1 i_117)) i_117 hashes-pos_0)))" +"(if(= hashes-pos_0(add1 i_118)) i_118 hashes-pos_0)))" "(let-values()" "(begin" -"(string-set! new-str_0 j_3 c_81)" +"(string-set! new-str_0 j_3 c_82)" "(loop_108" -"(sub1 i_117)" +"(sub1 i_118)" "(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_117)) i_117 hashes-pos_0))))))" -"(if(let-values(((or-part_351)(char=? c_81 '#\\-)))" -"(if or-part_351 or-part_351(char=? c_81 '#\\+)))" +"(if(= hashes-pos_0(add1 i_118)) i_118 hashes-pos_0))))))" +"(if(let-values(((or-part_349)(char=? c_82 '#\\-)))" +"(if or-part_349 or-part_349(char=? c_82 '#\\+)))" "(let-values()" "(begin" -"(string-set! new-str_0 j_3 c_81)" +"(string-set! new-str_0 j_3 c_82)" "(loop_108" -"(sub1 i_117)" +"(sub1 i_118)" "(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_117)) i_117 hashes-pos_0))))" -"(if(char=? c_81 '#\\#)" +"(if(= hashes-pos_0(add1 i_118)) i_118 hashes-pos_0))))" +"(if(char=? c_82 '#\\#)" "(let-values()" -"(if(= hashes-pos_0(add1 i_117))" +"(if(= hashes-pos_0(add1 i_118))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 '#\\0)" -"(loop_108(sub1 i_117)(sub1 j_3) i_117)))" +"(loop_108(sub1 i_118)(sub1 j_3) i_118)))" "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" "(format" " \"misplaced `#` in `~.a`\"" -"(substring s_358 start_46 end_36)))" +"(substring s_360 start_47 end_37)))" "(let-values() #f)))))" "(let-values()" "(begin" -"(string-set! new-str_0 j_3 c_81)" -"(loop_108(sub1 i_117)(sub1 j_3) hashes-pos_0)))))))))))))" +"(string-set! new-str_0 j_3 c_82)" +"(loop_108(sub1 i_118)(sub1 j_3) hashes-pos_0)))))))))))))" " loop_108)" -"(sub1 end_36)" +"(sub1 end_37)" "(sub1(string-length new-str_0))" -" end_36))))))" +" end_37))))))" "(define-values" "(string->exact-integer-number)" -"(lambda(s_242 start_47 end_37 radix_9 convert-mode_7)" +"(lambda(s_245 start_48 end_38 radix_9 convert-mode_7)" "(begin" -"(if(hashes? s_242 start_47 end_37)" +"(if(hashes? s_245 start_48 end_38)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_242 start_47 end_37)))" +" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_245 start_48 end_38)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_34)(string->number$1(maybe-substring s_242 start_47 end_37) radix_9)))" +"(let-values(((n_34)(string->number$1(maybe-substring s_245 start_48 end_38) radix_9)))" "(if(not n_34)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"bad exponent `~.a`\" (substring s_242 start_47 end_37)))" +" (let-values () (format \"bad exponent `~.a`\" (substring s_245 start_48 end_38)))" "(let-values() #f)))" "(let-values() n_34))))))))" "(define-values" "(read-special-number)" -"(lambda(s_245 start_48 end_38 convert-mode_8)" +"(lambda(s_248 start_49 end_39 convert-mode_8)" "(begin" -"(if(=(- end_38 start_48) 6)" -"(if(let-values(((or-part_352)(char=?(string-ref s_245 start_48) '#\\+)))" -"(if or-part_352 or-part_352(char=?(string-ref s_245 start_48) '#\\-)))" +"(if(=(- end_39 start_49) 6)" +"(if(let-values(((or-part_350)(char=?(string-ref s_248 start_49) '#\\+)))" +"(if or-part_350 or-part_350(char=?(string-ref s_248 start_49) '#\\-)))" +"(let-values(((or-part_351)" +"(if(char=?(char-downcase(string-ref s_248(+ start_49 1))) '#\\i)" +"(if(char=?(char-downcase(string-ref s_248(+ start_49 2))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_248(+ start_49 3))) '#\\f)" +"(if(char=?(char-downcase(string-ref s_248(+ start_49 4))) '#\\.)" +"(let-values(((or-part_352)" +"(if(char=?(char-downcase(string-ref s_248(+ start_49 5))) '#\\0)" +"(if(char=?(string-ref s_248 start_49) '#\\+) +inf.0 -inf.0)" +" #f)))" +"(if or-part_352" +" or-part_352" "(let-values(((or-part_353)" -"(if(char=?(char-downcase(string-ref s_245(+ start_48 1))) '#\\i)" -"(if(char=?(char-downcase(string-ref s_245(+ start_48 2))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_245(+ start_48 3))) '#\\f)" -"(if(char=?(char-downcase(string-ref s_245(+ start_48 4))) '#\\.)" -"(let-values(((or-part_354)" -"(if(char=?(char-downcase(string-ref s_245(+ start_48 5))) '#\\0)" -"(if(char=?(string-ref s_245 start_48) '#\\+) +inf.0 -inf.0)" +"(if(char=?(char-downcase(string-ref s_248(+ start_49 5))) '#\\f)" +"(if(char=?(string-ref s_248 start_49) '#\\+) +inf.f -inf.f)" " #f)))" -"(if or-part_354" -" or-part_354" -"(let-values(((or-part_355)" -"(if(char=?(char-downcase(string-ref s_245(+ start_48 5))) '#\\f)" -"(if(char=?(string-ref s_245 start_48) '#\\+) +inf.f -inf.f)" -" #f)))" -"(if or-part_355" -" or-part_355" -"(if(char=?(char-downcase(string-ref s_245(+ start_48 5))) '#\\t)" +"(if or-part_353" +" or-part_353" +"(if(char=?(char-downcase(string-ref s_248(+ start_49 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false))" -"(if(char=?(string-ref s_245 start_48) '#\\+) '+inf.t '-inf.t)" +"(if(char=?(string-ref s_248 start_49) '#\\+) '+inf.t '-inf.t)" " #f)" " #f)))))" " #f)" " #f)" " #f)" " #f)))" -"(if or-part_353" -" or-part_353" -"(if(char=?(char-downcase(string-ref s_245(+ start_48 1))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_245(+ start_48 2))) '#\\a)" -"(if(char=?(char-downcase(string-ref s_245(+ start_48 3))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_245(+ start_48 4))) '#\\.)" -"(let-values(((or-part_356)" -"(if(char=?(char-downcase(string-ref s_245(+ start_48 5))) '#\\0) +nan.0 #f)))" -"(if or-part_356" -" or-part_356" -"(let-values(((or-part_357)" -"(if(char=?(char-downcase(string-ref s_245(+ start_48 5))) '#\\f) +nan.f #f)))" -"(if or-part_357" -" or-part_357" -"(if(char=?(char-downcase(string-ref s_245(+ start_48 5))) '#\\t)" +"(if or-part_351" +" or-part_351" +"(if(char=?(char-downcase(string-ref s_248(+ start_49 1))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_248(+ start_49 2))) '#\\a)" +"(if(char=?(char-downcase(string-ref s_248(+ start_49 3))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_248(+ start_49 4))) '#\\.)" +"(let-values(((or-part_354)" +"(if(char=?(char-downcase(string-ref s_248(+ start_49 5))) '#\\0) +nan.0 #f)))" +"(if or-part_354" +" or-part_354" +"(let-values(((or-part_355)" +"(if(char=?(char-downcase(string-ref s_248(+ start_49 5))) '#\\f) +nan.f #f)))" +"(if or-part_355" +" or-part_355" +"(if(char=?(char-downcase(string-ref s_248(+ start_49 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)" " #f)))))" " #f)" @@ -50392,9 +50625,9 @@ static const char *startup_source = " combine64_0)" "(begin" " 'read-for-special-compound65" -"(let-values(((s_465) s57_0))" -"(let-values(((start_49) start58_0))" -"(let-values(((end_39) end59_0))" +"(let-values(((s_468) s57_0))" +"(let-values(((start_50) start58_0))" +"(let-values(((end_40) end59_0))" "(let-values(((radix_10) radix60_0))" "(let-values(((exactness_5) exactness61_0))" "(let-values(((convert-mode_10) convert-mode62_0))" @@ -50409,15 +50642,15 @@ static const char *startup_source = " (let-values () (format \"no exact representation for `~a`\" v_231))" "(let-values() #f)))" "(if(if(extflonum? v_231)" -"(let-values(((or-part_358)(not reading-first?_0)))" -"(if or-part_358 or-part_358(not(eq? convert-mode_10 'must-read))))" +"(let-values(((or-part_356)(not reading-first?_0)))" +"(if or-part_356 or-part_356(not(eq? convert-mode_10 'must-read))))" " #f)" "(let-values()(fail-extflonum convert-mode_10 v_231))" "(let-values()" "(let-values(((v2_7)" -"(let-values(((s176_0) s_465)" -"((start177_0) start_49)" -"((end178_0) end_39)" +"(let-values(((s176_0) s_468)" +"((start177_0) start_50)" +"((end178_0) end_40)" "((radix179_0) radix_10)" "((temp180_0) #t)" "((exactness181_0) exactness_5)" @@ -50442,119 +50675,119 @@ static const char *startup_source = "(let-values()(combine_1 v_231 v2_7)))))))))))))))))))))))" "(define-values" "(hashes?)" -"(lambda(s_466 start_50 end_40)" +"(lambda(s_469 start_51 end_41)" "(begin" "(let-values(((v*_6 start*_5 stop*_6 step*_5)" "(normalise-inputs" " 'in-string" " \"string\"" -"(lambda(x_80)(string? x_80))" -"(lambda(x_81)(unsafe-string-length x_81))" -" s_466" -" start_50" -" end_40" +"(lambda(x_82)(string? x_82))" +"(lambda(x_83)(unsafe-string-length x_83))" +" s_469" +" start_51" +" end_41" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_273)" +"((letrec-values(((for-loop_274)" "(lambda(result_119 idx_5)" "(begin" " 'for-loop" "(if(unsafe-fx< idx_5 stop*_6)" -"(let-values(((c_82)(string-ref v*_6 idx_5)))" +"(let-values(((c_83)(string-ref v*_6 idx_5)))" "(let-values(((result_120)" "(let-values()" "(let-values(((result_121)" -"(let-values()(let-values()(char=? c_82 '#\\#)))))" +"(let-values()(let-values()(char=? c_83 '#\\#)))))" "(values result_121)))))" -"(if(if(not((lambda x_82 result_120) c_82))(not #f) #f)" -"(for-loop_273 result_120(unsafe-fx+ idx_5 1))" +"(if(if(not((lambda x_84 result_120) c_83))(not #f) #f)" +"(for-loop_274 result_120(unsafe-fx+ idx_5 1))" " result_120)))" " result_119)))))" -" for-loop_273)" +" for-loop_274)" " #f" " start*_5))))))" "(define-values" "(replace-hashes)" -"(lambda(s_467 start_51 end_41)" +"(lambda(s_470 start_52 end_42)" "(begin" -"(let-values(((new-s_9)(make-string(- end_41 start_51))))" +"(let-values(((new-s_9)(make-string(- end_42 start_52))))" "(begin" "(let-values(((v*_7 start*_6 stop*_7 step*_6)" "(normalise-inputs" " 'in-string" " \"string\"" -"(lambda(x_83)(string? x_83))" -"(lambda(x_84)(unsafe-string-length x_84))" -" s_467" -" start_51" -" end_41" +"(lambda(x_85)(string? x_85))" +"(lambda(x_86)(unsafe-string-length x_86))" +" s_470" +" start_52" +" end_42" " 1))" -"((start_52) 0))" +"((start_53) 0))" "(begin" " #t" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-naturals start_52)))" -"((letrec-values(((for-loop_274)" +"(let-values()(check-naturals start_53)))" +"((letrec-values(((for-loop_275)" "(lambda(idx_6 pos_114)" "(begin" " 'for-loop" "(if(if(unsafe-fx< idx_6 stop*_7) #t #f)" -"(let-values(((c_83)(string-ref v*_7 idx_6))((i_177) pos_114))" +"(let-values(((c_84)(string-ref v*_7 idx_6))((i_178) pos_114))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(if(char=? c_83 '#\\#)" -"(string-set! new-s_9 i_177 '#\\0)" -"(string-set! new-s_9 i_177 c_83)))" +"(if(char=? c_84 '#\\#)" +"(string-set! new-s_9 i_178 '#\\0)" +"(string-set! new-s_9 i_178 c_84)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_274(unsafe-fx+ idx_6 1)(+ pos_114 1))(values))))" +"(if(not #f)(for-loop_275(unsafe-fx+ idx_6 1)(+ pos_114 1))(values))))" "(values))))))" -" for-loop_274)" +" for-loop_275)" " start*_6" -" start_52)))" +" start_53)))" "(void)" " new-s_9)))))" "(define-values" "(maybe-substring)" -"(lambda(s_468 start_53 end_42)" -"(begin(if(if(= 0 start_53)(= end_42(string-length s_468)) #f) s_468(substring s_468 start_53 end_42)))))" +"(lambda(s_471 start_54 end_43)" +"(begin(if(if(= 0 start_54)(= end_43(string-length s_471)) #f) s_471(substring s_471 start_54 end_43)))))" "(define-values" "(exactness-set?)" "(lambda(exactness_6)" "(begin" -"(let-values(((or-part_359)(eq? exactness_6 'exact)))(if or-part_359 or-part_359(eq? exactness_6 'inexact))))))" +"(let-values(((or-part_357)(eq? exactness_6 'exact)))(if or-part_357 or-part_357(eq? exactness_6 'inexact))))))" "(define-values" "(char-sign?)" -"(lambda(c_84)" -"(begin(let-values(((or-part_360)(char=? c_84 '#\\-)))(if or-part_360 or-part_360(char=? c_84 '#\\+))))))" +"(lambda(c_85)" +"(begin(let-values(((or-part_358)(char=? c_85 '#\\-)))(if or-part_358 or-part_358(char=? c_85 '#\\+))))))" "(define-values" "(digit?)" -"(lambda(c_85 radix_11)" +"(lambda(c_86 radix_11)" "(begin" -"(let-values(((v_232)(char->integer c_85)))" -"(let-values(((or-part_279)" +"(let-values(((v_232)(char->integer c_86)))" +"(let-values(((or-part_280)" "(if(>= v_232(char->integer '#\\0))(<(- v_232(char->integer '#\\0)) radix_11) #f)))" -"(if or-part_279" -" or-part_279" +"(if or-part_280" +" or-part_280" "(if(> radix_11 10)" -"(let-values(((or-part_361)" +"(let-values(((or-part_359)" "(if(>= v_232(char->integer '#\\a))(<(- v_232(-(char->integer '#\\a) 10)) radix_11) #f)))" -"(if or-part_361" -" or-part_361" +"(if or-part_359" +" or-part_359" "(if(>= v_232(char->integer '#\\A))(<(- v_232(-(char->integer '#\\A) 10)) radix_11) #f)))" " #f)))))))" "(define-values" "(fail-bad-number)" -"(lambda(convert-mode_11 s_469 start_54 end_43)" +"(lambda(convert-mode_11 s_472 start_55 end_44)" "(begin" "(if(eq? convert-mode_11 'must-read)" -" (let-values () (format \"bad number `~.a`\" (substring s_469 start_54 end_43)))" +" (let-values () (format \"bad number `~.a`\" (substring s_472 start_55 end_44)))" "(let-values() #f)))))" "(define-values" "(read-complains)" @@ -50601,15 +50834,15 @@ static const char *startup_source = "(values))))" "(let-values(((source_17)(read-config-source config_24)))" "(let-values(((unexpected-quoted_0)" -"(lambda(c_86 after-c_0)" +"(lambda(c_87 after-c_0)" "(begin" " 'unexpected-quoted" "(let-values(((in11_1) in_24)" "((config12_2) config_24)" -"((c13_1) c_86)" +"((c13_1) c_87)" " ((temp14_6) \"~a following `~a` in ~a\")" "((temp15_5)" -"(if(eof-object? c_86)" +"(if(eof-object? c_87)" " \"end-of-file\"" " \"non-character\"))" "((after-c16_0) after-c_0)" @@ -50638,11 +50871,11 @@ static const char *startup_source = " foldcase-from_0)" "(begin" " 'loop" -"(let-values(((c_87)" -"(let-values(((or-part_79)" +"(let-values(((c_88)" +"(let-values(((or-part_78)" " init-c_5))" -"(if or-part_79" -" or-part_79" +"(if or-part_78" +" or-part_78" "(let-values(((in_25)" " in_24)" "((skip-count_8)" @@ -50663,19 +50896,19 @@ static const char *startup_source = " c_52)))))))" "(let-values(((ec_4)" "(let-values(((rt_12) rt_11)" -"((c_39) c_87))" -"(if(let-values(((or-part_175)" +"((c_89) c_88))" +"(if(let-values(((or-part_176)" "(not" " rt_12)))" -"(if or-part_175" -" or-part_175" +"(if or-part_176" +" or-part_176" "(not" -"(char? c_39))))" -"(let-values() c_39)" +"(char? c_89))))" +"(let-values() c_89)" "(let-values()" "(*readtable-effective-char" " rt_12" -" c_39))))))" +" c_89))))))" "(if(if pipe-quote-c_0" "(not(char? ec_4))" " #f)" @@ -50687,14 +50920,14 @@ static const char *startup_source = "(consume-char/special" " in_24" " config_24" -" c_87)))" +" c_88)))" "(unexpected-quoted_0" -" c_87" +" c_88" " pipe-quote-c_0)))" "(if(if(not pipe-quote-c_0)" "(readtable-char-delimiter?" " rt_11" -" c_87" +" c_88" " config_24)" " #f)" "(let-values()" @@ -50706,7 +50939,7 @@ static const char *startup_source = " string-foldcase" " foldcase-from_0))))" "(if(if pipe-quote-c_0" -"(char=? c_87 pipe-quote-c_0)" +"(char=? c_88 pipe-quote-c_0)" " #f)" "(let-values()" "(begin" @@ -50715,7 +50948,7 @@ static const char *startup_source = "(let-values()" "(consume-char" " in_24" -" c_87)))" +" c_88)))" "(loop_109" " #f" " #f" @@ -50733,7 +50966,7 @@ static const char *startup_source = "(let-values()" "(consume-char" " in_24" -" c_87)))" +" c_88)))" "(set! quoted-ever?_0 #t)" "(if case-sens?_0" "(void)" @@ -50744,7 +50977,7 @@ static const char *startup_source = " foldcase-from_0)))" "(loop_109" " #f" -" c_87" +" c_88" "(accum-string-count" " accum-str_1))))" "(if(if(char=? ec_4 '#\\\\)" @@ -50758,7 +50991,7 @@ static const char *startup_source = "(let-values()" "(consume-char" " in_24" -" c_87)))" +" c_88)))" "(values))))" "(let-values(((next-c_0)" "(let-values(((in_26)" @@ -50775,7 +51008,7 @@ static const char *startup_source = "(let-values()" "(unexpected-quoted_0" " next-c_0" -" c_87)))" +" c_88)))" "(if(let-values(((or-part_7)" " pipe-quote-c_0))" "(if or-part_7" @@ -50804,10 +51037,10 @@ static const char *startup_source = "(let-values()" "(consume-char" " in_24" -" c_87)))" +" c_88)))" "(accum-string-add!" " accum-str_1" -" c_87)" +" c_88)" "(loop_109" " #f" " pipe-quote-c_0" @@ -50817,17 +51050,17 @@ static const char *startup_source = " #f" " 0)" "(values))))" -"(let-values(((str_29)" +"(let-values(((str_28)" "(let-values(((accum-str18_0) accum-str_1)" "((config19_0) config_24))" "(accum-string-get!6.1 #f #f accum-str18_0 config19_0))))" "(let-values((()" "(begin" -"(if(if(= 1(string-length str_29))" +"(if(if(= 1(string-length str_28))" "(if(not quoted-ever?_0)" "(char=?" " '#\\." -"(effective-char(string-ref str_29 0) config_24))" +"(effective-char(string-ref str_28 0) config_24))" " #f)" " #f)" "(let-values()" @@ -50848,14 +51081,14 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((num_0)" -"(if(let-values(((or-part_162)" +"(if(let-values(((or-part_163)" "(eq? mode_17 'symbol-or-number)))" -"(if or-part_162 or-part_162(string? mode_17)))" +"(if or-part_163 or-part_163(string? mode_17)))" "(if(not quoted-ever?_0)" "(1/string->number" "(if(string? mode_17)" -"(string-append mode_17 str_29)" -" str_29)" +"(string-append mode_17 str_28)" +" str_28)" " 10" " 'read" "(if(check-parameter 1/read-decimal-as-inexact config_24)" @@ -50887,7 +51120,7 @@ static const char *startup_source = "(let-values(((in27_0) in_24)" "((config28_0) config_24)" " ((temp29_2) \"bad number: `~a`\")" -"((temp30_4)(string-append mode_17 str_29)))" +"((temp30_4)(string-append mode_17 str_28)))" "(reader-error10.1" " #f" " #f" @@ -50904,30 +51137,30 @@ static const char *startup_source = "(let-values(((or-part_295) num_0))" "(if or-part_295" " or-part_295" -"(let-values(((or-part_94)" +"(let-values(((or-part_93)" "(if(eq? mode_17 'keyword)" -"(string->keyword str_29)" +"(string->keyword str_28)" " #f)))" -"(if or-part_94 or-part_94(string->symbol str_29)))))" +"(if or-part_93 or-part_93(string->symbol str_28)))))" " in_24" " config_24" -" str_29)))))))))))))))))))))))))" +" str_28)))))))))))))))))))))))))" "(define-values" "(read-fixnum)" "(lambda(read-one_3 init-c_0 in_5 config_15)" "(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_115)(port-next-location* in_5 c_33)))" -" (let-values (((v_92) (read-number-literal c_33 in_5 config_15 \"#e\")))" -"(if(fixnum? v_92)" -"(let-values() v_92)" -"(if(eof-object? v_92)" -"(let-values() v_92)" +" (let-values (((v_91) (read-number-literal c_33 in_5 config_15 \"#e\")))" +"(if(fixnum? v_91)" +"(let-values() v_91)" +"(if(eof-object? v_91)" +"(let-values() v_91)" "(let-values()" "(let-values(((in1_1) in_5)" "((temp2_5)(reading-at config_15 line_8 col_7 pos_115))" " ((temp3_6) \"expected a fixnum, found ~a\")" -"((v4_1) v_92))" +"((v4_1) v_91))" "(reader-error10.1 #f #f #f #f #f #f in1_1 temp2_5 temp3_6(list v4_1))))))))))))" "(define-values" "(read-flonum)" @@ -50948,12 +51181,12 @@ static const char *startup_source = "(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_88 in_28 config_38 mode_18)" +"(lambda(c_90 in_28 config_38 mode_18)" "(begin" -"(if(not(char? c_88))" -"(let-values() c_88)" +"(if(not(char? c_90))" +"(let-values() c_90)" "(let-values()" -"(let-values(((c9_0) c_88)((in10_2) in_28)((config11_0) config_38)((mode12_0) mode_18))" +"(let-values(((c9_0) c_90)((in10_2) in_28)((config11_0) config_38)((mode12_0) mode_18))" "(read-symbol-or-number8.1 #f #f mode12_0 #t c9_0 in10_2 config11_0)))))))" "(define-values" "(read-vector11.1)" @@ -51030,7 +51263,7 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_7)))" "(let-values(((fill_0) 0))" -"(let-values(((v_194)(make-fxvector len_7 fill_0)))" +"(let-values(((v_193)(make-fxvector len_7 fill_0)))" "(begin" "(if(zero? len_7)" "(void)" @@ -51041,30 +51274,30 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_253)" -"(lambda(i_178 lst_81)" +"((letrec-values(((for-loop_254)" +"(lambda(i_179 lst_80)" "(begin" " 'for-loop" -"(if(pair? lst_81)" -"(let-values(((e_72)" +"(if(pair? lst_80)" +"(let-values(((e_73)" "(unsafe-car" -" lst_81))" +" lst_80))" "((rest_141)" "(unsafe-cdr" -" lst_81)))" +" lst_80)))" "(let-values(((i_39)" "(let-values(((i_40)" -" i_178))" +" i_179))" "(let-values(((i_41)" "(let-values()" "(begin" "(let-values(((elem_0)" "(let-values()" -" e_72)))" +" e_73)))" "(if(fixnum?" " elem_0)" "(unsafe-fxvector-set!" -" v_194" +" v_193" " i_40" " elem_0)" "(not-an-fX.1" @@ -51076,22 +51309,22 @@ static const char *startup_source = "(values" " i_41)))))" "(if(if(not" -"((lambda x_85" +"((lambda x_87" "(unsafe-fx=" " i_39" " len_7))" -" e_72))" +" e_73))" "(not #f)" " #f)" -"(for-loop_253" +"(for-loop_254" " i_39" " rest_141)" " i_39)))" -" i_178)))))" -" for-loop_253)" +" i_179)))))" +" for-loop_254)" " 0" " lst_24)))))" -" v_194))))))" +" v_193))))))" "(if(equal? tmp_41 'flonum)" "(let-values()" "(let-values(((len_37)(length seq_2)))" @@ -51109,62 +51342,62 @@ static const char *startup_source = "(if(zero? len_37)" "(void)" "(let-values()" -"(let-values(((lst_93) seq_2))" +"(let-values(((lst_92) seq_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_93)))" -"((letrec-values(((for-loop_188)" -"(lambda(i_179 lst_17)" +"(let-values()(check-list lst_92)))" +"((letrec-values(((for-loop_189)" +"(lambda(i_180 lst_17)" "(begin" " 'for-loop" "(if(pair? lst_17)" -"(let-values(((e_79)" +"(let-values(((e_80)" "(unsafe-car" " lst_17))" "((rest_88)" "(unsafe-cdr" " lst_17)))" "(let-values(((i_159)" -"(let-values(((i_92)" -" i_179))" -"(let-values(((i_180)" +"(let-values(((i_93)" +" i_180))" +"(let-values(((i_181)" "(let-values()" "(begin" "(let-values(((elem_1)" "(let-values()" -" e_79)))" +" e_80)))" "(if(flonum?" " elem_1)" "(unsafe-flvector-set!" " v_233" -" i_92" +" i_93" " elem_1)" "(not-an-fX.1$1" " 'for*/vector" " elem_1)))" "(unsafe-fx+" " 1" -" i_92)))))" +" i_93)))))" "(values" -" i_180)))))" +" i_181)))))" "(if(if(not" -"((lambda x_86" +"((lambda x_88" "(unsafe-fx=" " i_159" " len_37))" -" e_79))" +" e_80))" "(not #f)" " #f)" -"(for-loop_188" +"(for-loop_189" " i_159" " rest_88)" " i_159)))" -" i_179)))))" -" for-loop_188)" +" i_180)))))" +" for-loop_189)" " 0" -" lst_93)))))" +" lst_92)))))" " v_233))))))" "(let-values()(void)))))))" "(let-values()" @@ -51175,7 +51408,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in22_2) in_29)" "((config23_1) config_39)" -"((temp24_7)" +"((temp24_6)" " \"~avector length ~a is too small, ~a values provided\")" "((temp25_7)" "(let-values(((tmp_42) vector-mode_0))" @@ -51197,7 +51430,7 @@ static const char *startup_source = " #f" " in22_2" " config23_1" -" temp24_7" +" temp24_6" "(list temp25_7 expected-len26_0 len27_0))))" "(let-values()" "(let-values(((last-or_0)" @@ -51249,7 +51482,7 @@ static const char *startup_source = "(if(equal? tmp_44 'any)" "(let-values()" "(begin" -"(let-values(((lst_9) seq_2)((start_55) 0))" +"(let-values(((lst_9) seq_2)((start_56) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -51258,21 +51491,21 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-naturals start_55)))" -"((letrec-values(((for-loop_275)" +"(let-values()(check-naturals start_56)))" +"((letrec-values(((for-loop_276)" "(lambda(lst_10 pos_116)" "(begin" " 'for-loop" "(if(if(pair? lst_10)" " #t" " #f)" -"(let-values(((e_80)" +"(let-values(((e_81)" "(unsafe-car" " lst_10))" "((rest_167)" "(unsafe-cdr" " lst_10))" -"((i_181)" +"((i_182)" " pos_116))" "(let-values((()" "(let-values()" @@ -51282,48 +51515,48 @@ static const char *startup_source = "(let-values()" "(vector-set!" " vec_67" -" i_181" -" e_80))" +" i_182" +" e_81))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_275" +"(for-loop_276" " rest_167" "(+ pos_116 1))" "(values))))" "(values))))))" -" for-loop_275)" +" for-loop_276)" " lst_9" -" start_55)))" +" start_56)))" "(void)))" "(if(equal? tmp_44 'fixnum)" "(let-values()" "(begin" -"(let-values(((lst_227) seq_2)((start_56) 0))" +"(let-values(((lst_226) seq_2)((start_57) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_227)))" +"(let-values()(check-list lst_226)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-naturals start_56)))" -"((letrec-values(((for-loop_98)" -"(lambda(lst_180 pos_109)" +"(let-values()(check-naturals start_57)))" +"((letrec-values(((for-loop_100)" +"(lambda(lst_179 pos_109)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_180)" +" lst_179)" " #t" " #f)" -"(let-values(((e_81)" +"(let-values(((e_82)" "(unsafe-car" -" lst_180))" +" lst_179))" "((rest_173)" "(unsafe-cdr" -" lst_180))" -"((i_182)" +" lst_179))" +"((i_183)" " pos_109))" "(let-values((()" "(let-values()" @@ -51333,26 +51566,26 @@ static const char *startup_source = "(let-values()" "(fxvector-set!" " vec_67" -" i_182" -" e_81))" +" i_183" +" e_82))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_98" +"(for-loop_100" " rest_173" "(+" " pos_109" " 1))" "(values))))" "(values))))))" -" for-loop_98)" -" lst_227" -" start_56)))" +" for-loop_100)" +" lst_226" +" start_57)))" "(void)))" "(if(equal? tmp_44 'flonum)" "(let-values()" "(begin" -"(let-values(((lst_313) seq_2)((start_57) 0))" +"(let-values(((lst_313) seq_2)((start_58) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -51362,22 +51595,22 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-naturals start_57)))" -"((letrec-values(((for-loop_108)" -"(lambda(lst_280" +"(check-naturals start_58)))" +"((letrec-values(((for-loop_109)" +"(lambda(lst_279" " pos_117)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_280)" +" lst_279)" " #t" " #f)" -"(let-values(((e_82)" +"(let-values(((e_83)" "(unsafe-car" -" lst_280))" +" lst_279))" "((rest_45)" "(unsafe-cdr" -" lst_280))" +" lst_279))" "((i_35)" " pos_117))" "(let-values((()" @@ -51389,27 +51622,27 @@ static const char *startup_source = "(flvector-set!" " vec_67" " i_35" -" e_82))" +" e_83))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_108" +"(for-loop_109" " rest_45" "(+" " pos_117" " 1))" "(values))))" "(values))))))" -" for-loop_108)" +" for-loop_109)" " lst_313" -" start_57)))" +" start_58)))" "(void)))" "(let-values()(void))))))" " vec_67))))))))))))" "(wrap vec_66 in_29 config_39 opener_2))))))))))))))))" "(define-values" "(read-fixnum-or-flonum-vector)" -"(lambda(read-one_6 dispatch-c_0 c_89 c2_4 in_32 config_42)" +"(lambda(read-one_6 dispatch-c_0 c_91 c2_4 in_32 config_42)" "(begin" "(let-values(((vector-mode_1)(if(char=? c2_4 '#\\x) 'fixnum 'flonum)))" "(let-values((()(begin(consume-char in_32 c2_4)(values))))" @@ -51479,7 +51712,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in48_0) in_32)" "((config49_0) config_42)" -" ((temp50_2) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_89 c2_4))))" +" ((temp50_2) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_91 c2_4))))" "(bad-syntax-error18.1 #f #f in48_0 config49_0 temp50_2)))))" "(if(equal? tmp_45 '#\\{)" "(let-values()" @@ -51488,7 +51721,7 @@ static const char *startup_source = "(let-values(((read-one51_0) read-one_6)" "((temp52_3) '#\\{)" "((temp53_2) '#\\{)" -"((temp54_2) '#\\})" +"((temp54_1) '#\\})" "((in55_0) in_32)" "((config56_0) config_42)" "((vector-mode57_0) vector-mode_1)" @@ -51501,20 +51734,20 @@ static const char *startup_source = " read-one51_0" " temp52_3" " temp53_2" -" temp54_2" +" temp54_1" " in55_0" " config56_0)))" "(let-values()" "(let-values(((in59_0) in_32)" "((config60_0) config_42)" -" ((temp61_2) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_89 c2_4))))" +" ((temp61_2) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_91 c2_4))))" "(bad-syntax-error18.1 #f #f in59_0 config60_0 temp61_2)))))" "(let-values()" "(let-values(((in62_0) in_32)" "((config63_0) config_42)" "((c464_0) c4_1)" " ((temp65_2) \"expected `(`, `[`, or `{` after `#~a~a~a`\")" -"((c66_0) c_89)" +"((c66_0) c_91)" "((c267_0) c2_4)" "((len-str68_0) len-str_0))" "(reader-error10.1" @@ -51540,14 +51773,14 @@ static const char *startup_source = "((config70_0) config_43)" "((accum-str71_0) accum-str_2)" "((temp72_0) 10)" -"((temp73_1) +inf.0)" +"((temp73_2) +inf.0)" "((init-v74_0) init-v_1)" "((init-v75_0) init-v_1))" "(read-digits13.1" " temp72_0" " init-v74_0" " #t" -" temp73_1" +" temp73_2" " init-v75_0" " #t" " in69_0" @@ -51593,8 +51826,8 @@ static const char *startup_source = "(let-values()" "(let-values(((in7_1) in_5)" "((config8_1) config_15)" -" ((temp9_4) \"expected ~a after `~as`\")" -"((temp10_4)(all-openers-str config_15))" +" ((temp9_5) \"expected ~a after `~as`\")" +"((temp10_5)(all-openers-str config_15))" "((dispatch-c11_0) dispatch-c_1))" "(reader-error10.1" " #f" @@ -51605,8 +51838,8 @@ static const char *startup_source = " #f" " in7_1" " config8_1" -" temp9_4" -"(list temp10_4 dispatch-c11_0))))))))))" +" temp9_5" +"(list temp10_5 dispatch-c11_0))))))))))" "(let-values((()" "(begin" "(if(null? seq_4)" @@ -51656,9 +51889,9 @@ static const char *startup_source = "(let-values(((bpz_4)(continuation-mark-set-first #f break-enabled-key)))" "(call-handled-body" " bpz_4" -"(lambda(e_83)" +"(lambda(e_84)" "(select-handler/no-breaks" -" e_83" +" e_84" " bpz_4" "(list(cons with-handlers-predicate20_0 with-handlers-handler21_0))))" "(lambda()(prefab-key->struct-type(car seq_4)(length(cdr seq_4)))))))))" @@ -51668,12 +51901,12 @@ static const char *startup_source = "(let-values()" "(let-values(((in22_3) in_5)" "((config23_2) config_15)" -"((temp24_8)" +"((temp24_7)" "(string-append" " \"mismatch between structure description\"" " \" and number of provided field values in `~as` form\"))" "((dispatch-c25_0) dispatch-c_1))" -"(reader-error10.1 #f #f #f #f #f #f in22_3 config23_2 temp24_8(list dispatch-c25_0)))))" +"(reader-error10.1 #f #f #f #f #f #f in22_3 config23_2 temp24_7(list dispatch-c25_0)))))" "(if(read-config-for-syntax? config_15)" "(let-values()" "(if(all-fields-immutable?(car seq_4))" @@ -51681,9 +51914,9 @@ static const char *startup_source = "(let-values()" "(let-values(((in26_0) in_5)" "((config27_0) config_15)" -" ((temp28_4) \"cannot read mutable `~as` form as syntax\")" +" ((temp28_5) \"cannot read mutable `~as` form as syntax\")" "((dispatch-c29_0) dispatch-c_1))" -"(reader-error10.1 #f #f #f #f #f #f in26_0 config27_0 temp28_4(list dispatch-c29_0))))))" +"(reader-error10.1 #f #f #f #f #f #f in26_0 config27_0 temp28_5(list dispatch-c29_0))))))" "(void))" "(wrap(apply make-prefab-struct seq_4) in_5 config_15 ec_5)))))))))))" "(define-values" @@ -51726,15 +51959,15 @@ static const char *startup_source = "(let-values(((in1_3) in_38)" "((config2_2) config_46)" "((accum-str3_0) accum-str_3)" -"((temp4_4) 10)" -"((temp5_7) +inf.0)" +"((temp4_3) 10)" +"((temp5_6) +inf.0)" "((init-v6_0) init-v_2)" "((init-v7_0) init-v_2))" "(read-digits13.1" -" temp4_4" +" temp4_3" " init-v6_0" " #t" -" temp5_7" +" temp5_6" " init-v7_0" " #t" " in1_3" @@ -51743,7 +51976,7 @@ static const char *startup_source = " #t))))" "(let-values(((post-line_0 post-col_0 post-pos_0)(port-next-location in_38)))" "(let-values(((get-accum_0)" -"(lambda(c_90)" +"(lambda(c_92)" "(begin" " 'get-accum" "(format" @@ -51751,18 +51984,18 @@ static const char *startup_source = " dispatch-c_1" "(let-values(((accum-str8_0) accum-str_3)((config9_0) config_46))" "(accum-string-get!6.1 #f #f accum-str8_0 config9_0))" -" c_90)))))" -"(let-values(((c_91)" +" c_92)))))" +"(let-values(((c_38)" "(let-values(((in_39) in_38)((source_23)(read-config-source config_46)))" "(read-char-or-special in_39 special1.1 source_23))))" -"(let-values(((ec_6)(effective-char c_91 config_46)))" -"(let-values(((tmp_32) ec_6))" -"(if(equal? tmp_32 '#\\()" +"(let-values(((ec_6)(effective-char c_38 config_46)))" +"(let-values(((tmp_47) ec_6))" +"(if(equal? tmp_47 '#\\()" "(let-values()" "(begin" "(accum-string-abandon! accum-str_3 config_46)" "(let-values(((read-one10_0) read-one_3)" -"((c11_0) c_91)" +"((c11_0) c_38)" "((temp12_3) '#\\()" "((temp13_2) '#\\))" "((in14_0) in_38)" @@ -51779,14 +52012,14 @@ static const char *startup_source = " temp13_2" " in14_0" " config15_0))))" -"(if(equal? tmp_32 '#\\[)" +"(if(equal? tmp_47 '#\\[)" "(let-values()" "(begin" "(accum-string-abandon! accum-str_3 config_46)" "(if(check-parameter 1/read-square-bracket-as-paren config_46)" "(let-values()" "(let-values(((read-one17_0) read-one_3)" -"((c18_1) c_91)" +"((c18_1) c_38)" "((temp19_1) '#\\[)" "((temp20_2) '#\\])" "((in21_1) in_38)" @@ -51806,16 +52039,16 @@ static const char *startup_source = "(let-values()" "(let-values(((in24_0) in_38)" "((config25_0) config_46)" -"((temp26_5)(get-accum_0(get-accum_0 c_91))))" +"((temp26_5)(get-accum_0(get-accum_0 c_38))))" "(bad-syntax-error18.1 #f #f in24_0 config25_0 temp26_5))))))" -"(if(equal? tmp_32 '#\\{)" +"(if(equal? tmp_47 '#\\{)" "(let-values()" "(begin" "(accum-string-abandon! accum-str_3 config_46)" "(if(check-parameter 1/read-curly-brace-as-paren config_46)" "(let-values()" "(let-values(((read-one27_0) read-one_3)" -"((c28_0) c_91)" +"((c28_0) c_38)" "((temp29_3) '#\\{)" "((temp30_3) '#\\})" "((in31_1) in_38)" @@ -51835,22 +52068,22 @@ static const char *startup_source = "(let-values()" "(let-values(((in34_1) in_38)" "((config35_1) config_46)" -"((temp36_5)(get-accum_0(get-accum_0 c_91))))" +"((temp36_5)(get-accum_0(get-accum_0 c_38))))" "(bad-syntax-error18.1 #f #f in34_1 config35_1 temp36_5))))))" "(let-values()" -"(let-values(((tmp_33) c_91))" -"(if(if(equal? tmp_33 '#\\=) #t(equal? tmp_33 '#\\#))" +"(let-values(((tmp_48) c_38))" +"(if(if(equal? tmp_48 '#\\=) #t(equal? tmp_48 '#\\#))" "(let-values()" "(begin" -"(if(let-values(((or-part_362)(read-config-for-syntax? config_46)))" -"(if or-part_362" -" or-part_362" +"(if(let-values(((or-part_360)(read-config-for-syntax? config_46)))" +"(if or-part_360" +" or-part_360" "(not(check-parameter 1/read-accept-graph config_46))))" "(let-values()" "(let-values(((in37_0) in_38)" "((config38_0) config_46)" " ((temp39_6) \"`#...~a` forms not ~a\")" -"((c40_0) c_91)" +"((c40_0) c_38)" "((temp41_4)" "(if(read-config-for-syntax? config_46)" " \"enabled\"" @@ -51878,7 +52111,7 @@ static const char *startup_source = "(let-values(((accum-str48_0) accum-str_3)" "((config49_1) config_46))" "(accum-string-get!6.1 #f #f accum-str48_0 config49_1)))" -"((c47_0) c_91))" +"((c47_0) c_38))" "(reader-error10.1" " #f" " #f" @@ -51890,20 +52123,20 @@ static const char *startup_source = " config43_0" " temp44_2" "(list dispatch-c45_0 temp46_3 c47_0)))))" -"(let-values(((tmp_47) c_91))" -"(if(equal? tmp_47 '#\\=)" +"(let-values(((tmp_49) c_38))" +"(if(equal? tmp_49 '#\\=)" "(let-values()" "(let-values(((ph_1)(make-placeholder 'placeholder)))" -"(let-values(((ht_159)(get-graph-hash config_46)))" +"(let-values(((ht_160)(get-graph-hash config_46)))" "(let-values((()" "(begin" -"(if(hash-ref ht_159 v_28 #f)" +"(if(hash-ref ht_160 v_28 #f)" "(let-values()" "(let-values(((in50_0) in_38)" "((config51_0) config_46)" " ((temp52_4) \"multiple `~a~a~a` tags\")" "((dispatch-c53_0) dispatch-c_1)" -"((temp54_3)" +"((temp54_2)" "(let-values(((accum-str56_0)" " accum-str_3)" "((config57_0)" @@ -51913,7 +52146,7 @@ static const char *startup_source = " #f" " accum-str56_0" " config57_0)))" -"((c55_0) c_91))" +"((c55_0) c_38))" "(reader-error10.1" " #f" " #f" @@ -51924,10 +52157,10 @@ static const char *startup_source = " in50_0" " config51_0" " temp52_4" -"(list dispatch-c53_0 temp54_3 c55_0))))" +"(list dispatch-c53_0 temp54_2 c55_0))))" "(void))" "(values))))" -"(let-values((()(begin(hash-set! ht_159 v_28 ph_1)(values))))" +"(let-values((()(begin(hash-set! ht_160 v_28 ph_1)(values))))" "(let-values(((result-v_0)" "(read-one_3 #f in_38(next-readtable config_46))))" "(begin" @@ -51947,7 +52180,7 @@ static const char *startup_source = " #f" " accum-str65_0" " config66_0)))" -"((c64_0) c_91))" +"((c64_0) c_38))" "(reader-error10.1" " #f" " #f" @@ -51963,22 +52196,22 @@ static const char *startup_source = "(accum-string-abandon! accum-str_3 config_46)" "(placeholder-set! ph_1 result-v_0)" " ph_1)))))))" -"(if(equal? tmp_47 '#\\#)" +"(if(equal? tmp_49 '#\\#)" "(let-values()" "(begin0" "(hash-ref" -"(let-values(((or-part_363)" +"(let-values(((or-part_361)" "(read-config-state-graph(read-config-st config_46))))" -"(if or-part_363 or-part_363 '#hash()))" +"(if or-part_361 or-part_361 '#hash()))" " v_28" "(lambda()" "(let-values(((in67_0) in_38)" "((config68_0) config_46)" -" ((temp69_1) \"no preceding `~a~a=` for `~a~a~a`\")" +" ((temp69_0) \"no preceding `~a~a=` for `~a~a~a`\")" "((dispatch-c70_0) dispatch-c_1)" "((v71_0) v_28)" "((dispatch-c72_0) dispatch-c_1)" -"((temp73_2)" +"((temp73_3)" "(let-values(((accum-str75_0) accum-str_3)" "((config76_0) config_46))" "(accum-string-get!6.1" @@ -51986,7 +52219,7 @@ static const char *startup_source = " #f" " accum-str75_0" " config76_0)))" -"((c74_0) c_91))" +"((c74_0) c_38))" "(reader-error10.1" " #f" " #f" @@ -51996,16 +52229,16 @@ static const char *startup_source = " #f" " in67_0" " config68_0" -" temp69_1" -"(list dispatch-c70_0 v71_0 dispatch-c72_0 temp73_2 c74_0)))))" +" temp69_0" +"(list dispatch-c70_0 v71_0 dispatch-c72_0 temp73_3 c74_0)))))" "(accum-string-abandon! accum-str_3 config_46)))" "(let-values()(void)))))))" "(let-values()" "(let-values(((in77_0) in_38)" "((config78_0) config_46)" -"((c79_0) c_91)" +"((c79_0) c_38)" " ((temp80_3) \"bad syntax `~a`\")" -"((temp81_2)(get-accum_0 c_91)))" +"((temp81_2)(get-accum_0 c_38)))" "(reader-error10.1" " #f" " #f" @@ -52022,16 +52255,16 @@ static const char *startup_source = "(lambda(config_47)" "(begin" "(let-values(((st_3)(read-config-st config_47)))" -"(let-values(((or-part_148)(read-config-state-graph st_3)))" -"(if or-part_148" -" or-part_148" -"(let-values(((ht_160)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_160) ht_160))))))))" +"(let-values(((or-part_145)(read-config-state-graph st_3)))" +"(if or-part_145" +" or-part_145" +"(let-values(((ht_161)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_161) ht_161))))))))" "(define-values" "(coerce-key)" -"(lambda(key_87 config_8)" +"(lambda(key_90 config_8)" "(begin" "(let-values(((for-syntax?_7)(read-config-for-syntax? config_8)))" -"((read-config-coerce-key config_8) for-syntax?_7 key_87)))))" +"((read-config-coerce-key config_8) for-syntax?_7 key_90)))))" "(define-values" "(read-hash)" "(lambda(read-one_3 dispatch-c_1 init-c_11 in_38 config_46)" @@ -52043,18 +52276,18 @@ static const char *startup_source = "(lambda(expect-c_0 expect-alt-c_0)" "(begin" " 'get-next!" -"(let-values(((c_92)" +"(let-values(((c_93)" "(let-values(((in_29) in_38)((source_24)(read-config-source config_46)))" "(read-char-or-special in_29 special1.1 source_24))))" "(begin" -"(if(let-values(((or-part_6)(eqv? c_92 expect-c_0)))" -"(if or-part_6 or-part_6(eqv? c_92 expect-alt-c_0)))" +"(if(let-values(((or-part_6)(eqv? c_93 expect-c_0)))" +"(if or-part_6 or-part_6(eqv? c_93 expect-alt-c_0)))" "(void)" "(let-values()" "(let-values(((in1_4) in_38)" "((config2_3) config_46)" -"((c3_4) c_92)" -" ((temp4_5) \"expected `~a` after `~a`\")" +"((c3_4) c_93)" +" ((temp4_4) \"expected `~a` after `~a`\")" "((expect-c5_0) expect-c_0)" "((temp6_3)" "(let-values(((accum-str7_0) accum-str_3)((config8_2) config_46))" @@ -52068,9 +52301,9 @@ static const char *startup_source = " #f" " in1_4" " config2_3" -" temp4_5" +" temp4_4" "(list expect-c5_0 temp6_3)))))" -"(accum-string-add! accum-str_3 c_92)))))))" +"(accum-string-add! accum-str_3 c_93)))))))" "(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))))" @@ -52079,7 +52312,7 @@ static const char *startup_source = "(lambda(mode_20)" "(begin" " 'loop" -"(let-values(((c_68)" +"(let-values(((c_70)" "(let-values(((in_40) in_38)" "((source_25)" "(read-config-source config_46)))" @@ -52087,19 +52320,19 @@ static const char *startup_source = " in_40" " special1.1" " source_25))))" -"(let-values(((ec_7)(effective-char c_68 config_46)))" -"(let-values(((tmp_48) ec_7))" -"(if(equal? tmp_48 '#\\()" +"(let-values(((ec_7)(effective-char c_70 config_46)))" +"(let-values(((tmp_50) ec_7))" +"(if(equal? tmp_50 '#\\()" "(let-values()" "(let-values(((read-one-key+value_0)" "(make-read-one-key+value" " read-one_3" -" c_68" +" c_70" " '#\\))))" "(values" "(let-values(((read-one-key+value9_0)" " read-one-key+value_0)" -"((c10_1) c_68)" +"((c10_1) c_70)" "((temp11_4) '#\\()" "((temp12_4) '#\\))" "((in13_0) in_38)" @@ -52125,7 +52358,7 @@ static const char *startup_source = " config14_0))" " ec_7" " mode_20)))" -"(if(equal? tmp_48 '#\\[)" +"(if(equal? tmp_50 '#\\[)" "(let-values()" "(if(check-parameter" " 1/read-square-bracket-as-paren" @@ -52134,20 +52367,20 @@ static const char *startup_source = "(let-values(((read-one-key+value_1)" "(make-read-one-key+value" " read-one_3" -" c_68" +" c_70" " '#\\])))" "(values" "(let-values(((read-one-key+value17_0)" " read-one-key+value_1)" -"((c18_2) c_68)" +"((c18_2) c_70)" "((temp19_2) '#\\[)" "((temp20_3) '#\\])" "((in21_2) in_38)" "((config22_2) config_46)" "((config23_3) config_46)" -"((temp24_9) #f))" +"((temp24_8) #f))" "(read-unwrapped-sequence17.1" -" temp24_9" +" temp24_8" " #t" " config23_3" " #t" @@ -52169,7 +52402,7 @@ static const char *startup_source = "(let-values(((in25_0) in_38)" "((config26_0) config_46)" " ((temp27_6) \"illegal use of `~a`\")" -"((c28_1) c_68))" +"((c28_1) c_70))" "(reader-error10.1" " #f" " #f" @@ -52181,7 +52414,7 @@ static const char *startup_source = " config26_0" " temp27_6" "(list c28_1))))))" -"(if(equal? tmp_48 '#\\{)" +"(if(equal? tmp_50 '#\\{)" "(let-values()" "(if(check-parameter" " 1/read-curly-brace-as-paren" @@ -52190,12 +52423,12 @@ static const char *startup_source = "(let-values(((read-one-key+value_2)" "(make-read-one-key+value" " read-one_3" -" c_68" +" c_70" " '#\\})))" "(values" "(let-values(((read-one-key+value29_0)" " read-one-key+value_2)" -"((c30_0) c_68)" +"((c30_0) c_70)" "((temp31_6) '#\\{)" "((temp32_3) '#\\})" "((in33_1) in_38)" @@ -52226,7 +52459,7 @@ static const char *startup_source = "((config38_1) config_46)" "((temp39_7)" " \"illegal use of `~a`\")" -"((c40_1) c_68))" +"((c40_1) c_70))" "(reader-error10.1" " #f" " #f" @@ -52238,20 +52471,20 @@ static const char *startup_source = " config38_1" " temp39_7" "(list c40_1))))))" -"(if(if(equal? tmp_48 '#\\e)" +"(if(if(equal? tmp_50 '#\\e)" " #t" -"(equal? tmp_48 '#\\E))" +"(equal? tmp_50 '#\\E))" "(let-values()" "(begin" -"(accum-string-add! accum-str_3 c_68)" +"(accum-string-add! accum-str_3 c_70)" "(get-next!_0 '#\\q '#\\Q)" "(loop_66 'eq)))" -"(if(if(equal? tmp_48 '#\\v)" +"(if(if(equal? tmp_50 '#\\v)" " #t" -"(equal? tmp_48 '#\\V))" +"(equal? tmp_50 '#\\V))" "(let-values()" "(begin" -"(accum-string-add! accum-str_3 c_68)" +"(accum-string-add! accum-str_3 c_70)" "(if(eq? mode_20 'eq)" "(loop_66 'eqv)" "(let-values(((in41_0) in_38)" @@ -52281,13 +52514,13 @@ static const char *startup_source = "(list temp44_3))))))" "(let-values()" "(begin" -"(if(char? c_68)" +"(if(char? c_70)" "(let-values()" -"(accum-string-add! accum-str_3 c_68))" +"(accum-string-add! accum-str_3 c_70))" "(void))" "(let-values(((in47_0) in_38)" "((config48_0) config_46)" -"((c49_0) c_68)" +"((c49_0) c_70)" " ((temp50_3) \"bad syntax `~a`\")" "((temp51_2)" "(let-values(((accum-str52_0)" @@ -52314,14 +52547,14 @@ static const char *startup_source = " 'equal)))" "(let-values(((graph?_0)(if(read-config-state-graph(read-config-st config_46)) #t #f)))" "(wrap" -"(let-values(((tmp_49) mode_19))" -"(if(equal? tmp_49 'equal)" +"(let-values(((tmp_51) mode_19))" +"(if(equal? tmp_51 'equal)" "(let-values()" "(if graph?_0(make-hash-placeholder content_11)(make-immutable-hash content_11)))" -"(if(equal? tmp_49 'eq)" +"(if(equal? tmp_51 'eq)" "(let-values()" "(if graph?_0(make-hasheq-placeholder content_11)(make-immutable-hasheq content_11)))" -"(if(equal? tmp_49 'eqv)" +"(if(equal? tmp_51 'eqv)" "(let-values()" "(if graph?_0" "(make-hasheqv-placeholder content_11)" @@ -52335,28 +52568,28 @@ static const char *startup_source = "(lambda(read-one_8 overall-opener-c_0 overall-closer-ec_0)" "(begin" "(lambda(init-c_12 in_41 config_48)" -"(let-values(((c_93)(read-char/skip-whitespace-and-comments init-c_12 read-one_8 in_41 config_48)))" -"(let-values(((open-line_0 open-col_0 open-pos_0)(port-next-location* in_41 c_93)))" -"(let-values(((ec_8)(effective-char c_93 config_48)))" +"(let-values(((c_94)(read-char/skip-whitespace-and-comments init-c_12 read-one_8 in_41 config_48)))" +"(let-values(((open-line_0 open-col_0 open-pos_0)(port-next-location* in_41 c_94)))" +"(let-values(((ec_8)(effective-char c_94 config_48)))" "(let-values(((elem-config_1)(next-readtable config_48)))" "(let-values(((closer_4)" -"(let-values(((tmp_50) ec_8))" -"(if(equal? tmp_50 '#\\()" +"(let-values(((tmp_52) ec_8))" +"(if(equal? tmp_52 '#\\()" "(let-values() '#\\))" -"(if(equal? tmp_50 '#\\[)" +"(if(equal? tmp_52 '#\\[)" "(let-values()" "(if(check-parameter 1/read-square-bracket-as-paren config_48) '#\\] #f))" -"(if(equal? tmp_50 '#\\{)" +"(if(equal? tmp_52 '#\\{)" "(let-values()" "(if(check-parameter 1/read-curly-brace-as-paren config_48) '#\\} #f))" "(let-values() #f)))))))" "(if(not closer_4)" "(let-values()" -"(if(eof-object? c_93)" +"(if(eof-object? c_94)" "(let-values()" "(let-values(((in54_0) in_41)" "((temp55_3)(reading-at config_48 open-line_0 open-col_0 open-pos_0))" -"((c56_0) c_93)" +"((c56_0) c_94)" " ((temp57_0) \"expected ~a to close `~a`\")" "((temp58_2)(closer-name overall-closer-ec_0 config_48))" "((overall-opener-c59_0) overall-opener-c_0))" @@ -52376,10 +52609,10 @@ static const char *startup_source = "(let-values(((in60_0) in_41)" "((temp61_4)(reading-at config_48 open-line_0 open-col_0 open-pos_0))" " ((temp62_2) \"~a\")" -"((temp63_4)(indentation-unexpected-closer-message ec_8 c_93 config_48)))" +"((temp63_4)(indentation-unexpected-closer-message ec_8 c_94 config_48)))" "(reader-error10.1 #f #f #f #f #f #f in60_0 temp61_4 temp62_2(list temp63_4))))" "(let-values()" -"(let-values(((v_48)(read-one_8 c_93 in_41(keep-comment elem-config_1))))" +"(let-values(((v_48)(read-one_8 c_94 in_41(keep-comment elem-config_1))))" "(if(1/special-comment? v_48)" "(let-values()" "((make-read-one-key+value read-one_8 overall-opener-c_0 overall-closer-ec_0)" @@ -52390,7 +52623,7 @@ static const char *startup_source = "(let-values(((in64_0) in_41)" "((temp65_3)(reading-at config_48 open-line_0 open-col_0 open-pos_0))" " ((temp66_3) \"expected ~a to start a hash pair\")" -"((temp67_1)(all-openers-str config_48)))" +"((temp67_0)(all-openers-str config_48)))" "(reader-error10.1" " #f" " #f" @@ -52401,9 +52634,9 @@ static const char *startup_source = " in64_0" " temp65_3" " temp66_3" -"(list temp67_1))))))))))" +"(list temp67_0))))))))))" "(let-values()" -"(let-values(((k_40)(read-one_8 #f in_41(disable-wrapping elem-config_1))))" +"(let-values(((k_41)(read-one_8 #f in_41(disable-wrapping elem-config_1))))" "(let-values(((dot-c_0)(read-char/skip-whitespace-and-comments #f read-one_8 in_41 config_48)))" "(let-values(((dot-line_1 dot-col_1 dot-pos_4)(port-next-location* in_41 dot-c_0)))" "(let-values(((dot-ec_0)(effective-char dot-c_0 config_48)))" @@ -52414,22 +52647,22 @@ static const char *startup_source = "(let-values(((in_42) in_41)" "((skip-count_9) 0)" "((source_26)(read-config-source config_48)))" -"(let-values(((c_94)" +"(let-values(((c_95)" "(peek-char-or-special" " in_42" " skip-count_9" " 'special" " source_26)))" -"(if(eq? c_94 'special)(special1.1 'special) c_94)))" +"(if(eq? c_95 'special)(special1.1 'special) c_95)))" " config_48)" " #f)" "(void)" "(let-values()" "(let-values(((in68_0) in_41)" -"((temp69_2)" +"((temp69_1)" "(reading-at config_48 dot-line_1 dot-col_1 dot-pos_4))" "((dot-c70_0) dot-c_0)" -" ((temp71_1) \"expected ~a and value for hash\")" +" ((temp71_2) \"expected ~a and value for hash\")" "((temp72_1)(dot-name config_48)))" "(reader-error10.1" " #f" @@ -52439,8 +52672,8 @@ static const char *startup_source = " #f" " #f" " in68_0" -" temp69_2" -" temp71_1" +" temp69_1" +" temp71_2" "(list temp72_1)))))" "(values))))" "(let-values(((v_235)(read-one_8 #f in_41 elem-config_1)))" @@ -52474,7 +52707,7 @@ static const char *startup_source = " temp74_0" " temp76_0" "(list temp77_1)))))" -"(cons(coerce-key k_40 elem-config_1) v_235))))))))))))))))))))))" +"(cons(coerce-key k_41 elem-config_1) v_235))))))))))))))))))))))" "(define-values" "(read-string5.1)" "(lambda(mode1_1 mode2_0 in3_0 config4_0)" @@ -52487,20 +52720,20 @@ static const char *startup_source = "(let-values(((source_27)(read-config-source config_22)))" "(let-values(((accum-str_4)(accum-string-init! config_22)))" "(let-values(((bad-end_0)" -"(lambda(c_95)" +"(lambda(c_96)" "(begin" " 'bad-end" -"(if(eof-object? c_95)" +"(if(eof-object? c_96)" "(let-values()" "(let-values(((in8_0) in_43)" "((config9_1) config_22)" -"((c10_2) c_95)" +"((c10_2) c_96)" " ((temp11_5) \"expected a closing `\\\"`\"))" "(reader-error10.1 #f #f c10_2 #t #f #f in8_0 config9_1 temp11_5(list))))" "(let-values()" "(let-values(((in12_3) in_43)" "((config13_1) config_22)" -"((c14_0) c_95)" +"((c14_0) c_96)" " ((temp15_6) \"found non-character while reading a ~a\")" "((mode16_0) mode_0))" "(reader-error10.1" @@ -52520,18 +52753,18 @@ static const char *startup_source = "(lambda()" "(begin" " 'loop" -"(let-values(((c_49)" +"(let-values(((c_48)" "(let-values(((in_44) in_43)" "((source_6) source_27))" "(read-char-or-special" " in_44" " special1.1" " source_6))))" -"(if(not(char? c_49))" -"(let-values()(bad-end_0 c_49))" -"(if(char=? '#\\\\ c_49)" +"(if(not(char? c_48))" +"(let-values()(bad-end_0 c_48))" +"(if(char=? '#\\\\ c_48)" "(let-values()" -"(let-values(((escaping-c_0) c_49))" +"(let-values(((escaping-c_0) c_48))" "(let-values(((escaped-c_0)" "(let-values(((in_40) in_43)" "((source_25) source_27))" @@ -52576,12 +52809,12 @@ static const char *startup_source = " escaped-c21_0" " mode22_0)))))))" "(begin" -"(let-values(((tmp_51) escaped-c_0))" +"(let-values(((tmp_53) escaped-c_0))" "(let-values(((index_3)" -"(if(char? tmp_51)" +"(if(char? tmp_53)" "(let-values(((codepoint_1)" "(char->integer" -" tmp_51)))" +" tmp_53)))" "(if(if(unsafe-fx>=" " codepoint_1" " 10)" @@ -52767,18 +53000,18 @@ static const char *startup_source = " 0)" "((source_28)" " source_27))" -"(let-values(((c_96)" +"(let-values(((c_97)" "(peek-char-or-special" " in_45" " skip-count_10" " 'special" " source_28)))" "(if(eq?" -" c_96" +" c_97" " 'special)" "(special1.1" " 'special)" -" c_96)))))" +" c_97)))))" "(begin" "(if(eqv?" " maybe-newline-c_0" @@ -52802,7 +53035,7 @@ static const char *startup_source = "(let-values(((init-v_3)" "(digit->number" " escaped-c_0)))" -"(let-values(((v_179)" +"(let-values(((v_178)" "(let-values(((in23_1)" " in_43)" "((config24_1)" @@ -52829,7 +53062,7 @@ static const char *startup_source = " accum-str25_0" " #t))))" "(begin" -"(if(<= v_179 255)" +"(if(<= v_178 255)" "(void)" "(let-values()" "(let-values(((in30_0)" @@ -52874,7 +53107,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_179)))))))))" +" v_178)))))))))" "(if(unsafe-fx< index_3 14)" "(let-values()" "(let-values(((pos_119)" @@ -52965,12 +53198,12 @@ static const char *startup_source = " v_237" " escaping-c_0" " escaped-c_0)))" -"(if(let-values(((or-part_364)" +"(if(let-values(((or-part_362)" "(<" " v_237" " 55296)))" -"(if or-part_364" -" or-part_364" +"(if or-part_362" +" or-part_362" "(>" " v_237" " 57343)))" @@ -53130,7 +53363,7 @@ static const char *startup_source = " \"bad or incomplete surrogate-style encoding at `~au~a`\")" "((escaping-c66_0)" " escaping-c_0)" -"((temp67_2)" +"((temp67_1)" "(let-values(((accum-str68_0)" " accum-str_4)" "((config69_0)" @@ -53154,7 +53387,7 @@ static const char *startup_source = " temp65_4" "(list" " escaping-c66_0" -" temp67_2))))))))))))))" +" temp67_1))))))))))))))" "(let-values()" "(let-values((()" "(begin" @@ -53200,12 +53433,12 @@ static const char *startup_source = " v_238" " escaping-c_0" " escaped-c_0)))" -"(if(if(let-values(((or-part_147)" +"(if(if(let-values(((or-part_144)" "(<" " v_238" " 55296)))" -"(if or-part_147" -" or-part_147" +"(if or-part_144" +" or-part_144" "(>" " v_238" " 57343)))" @@ -53227,7 +53460,7 @@ static const char *startup_source = " in_43)" "((config77_1)" " config_22)" -"((temp78_5)" +"((temp78_3)" " \"escape sequence `~aU~a` is out of range in string\")" "((escaping-c79_0)" " escaping-c_0)" @@ -53252,25 +53485,25 @@ static const char *startup_source = " #f" " in76_0" " config77_1" -" temp78_5" +" temp78_3" "(list" " escaping-c79_0" " temp80_4)))))))))))))))))" "(loop_111)))))))" -" (if (char=? '#\\\" c_49)" +" (if (char=? '#\\\" c_48)" "(let-values() null)" "(let-values()" "(begin" "(if(eq? mode_0 '|byte string|)" "(let-values()" -"(if(byte?(char->integer c_49))" +"(if(byte?(char->integer c_48))" "(void)" "(let-values()" "(let-values(((in84_0) in_43)" "((config85_0) config_22)" -"((temp86_0)" +"((temp86_1)" " \"character `~a` is out of range in byte string\")" -"((c87_0) c_49))" +"((c87_0) c_48))" "(reader-error10.1" " #f" " #f" @@ -53280,20 +53513,20 @@ static const char *startup_source = " #f" " in84_0" " config85_0" -" temp86_0" +" temp86_1" "(list c87_0))))))" "(void))" -"(accum-string-add! accum-str_4 c_49)" +"(accum-string-add! accum-str_4 c_48)" "(loop_111)))))))))))" " loop_111))" "(values))))" -"(let-values(((str_30)" +"(let-values(((str_29)" "(if(eq? mode_0 '|byte string|)" "(let-values(((accum-str88_0) accum-str_4)((config89_0) config_22))" "(accum-string-get-bytes!13.1 #f #f accum-str88_0 config89_0))" "(let-values(((accum-str90_0) accum-str_4)((config91_0) config_22))" "(accum-string-get!6.1 #f #f accum-str90_0 config91_0)))))" -"(wrap str_30 in_43 config_22 str_30)))))))))))))" +"(wrap str_29 in_43 config_22 str_29)))))))))))))" "(define-values" "(read-here-string)" "(lambda(in_47 config_49)" @@ -53307,15 +53540,15 @@ static const char *startup_source = "(lambda()" "(begin" " 'loop" -"(let-values(((c_97)" +"(let-values(((c_98)" "(let-values(((in_48) in_47)((source_31) source_30))" "(read-char-or-special in_48 special1.1 source_31))))" -"(if(eof-object? c_97)" +"(if(eof-object? c_98)" "(let-values()" "(let-values(((in92_0) in_47)" "((config93_0) config_49)" -"((c94_0) c_97)" -"((temp95_2)" +"((c94_0) c_98)" +"((temp95_1)" " \"found end-of-file after `#<<` and before a newline\"))" "(reader-error10.1" " #f" @@ -53326,13 +53559,13 @@ static const char *startup_source = " #f" " in92_0" " config93_0" -" temp95_2" +" temp95_1" "(list))))" -"(if(not(char? c_97))" +"(if(not(char? c_98))" "(let-values()" "(let-values(((in96_0) in_47)" "((config97_0) config_49)" -"((c98_0) c_97)" +"((c98_0) c_98)" "((temp99_2)" " \"found non-character while reading `#<<`\"))" "(reader-error10.1" @@ -53346,9 +53579,9 @@ static const char *startup_source = " config97_0" " temp99_2" "(list))))" -"(if(char=? c_97 '#\\newline)" +"(if(char=? c_98 '#\\newline)" "(let-values() null)" -"(let-values()(cons c_97(loop_112)))))))))))" +"(let-values()(cons c_98(loop_112)))))))))))" " loop_112)))))" "(let-values((()" "(begin" @@ -53356,20 +53589,20 @@ static const char *startup_source = "(lambda(terminator_0 terminator-accum_0)" "(begin" " 'loop" -"(let-values(((c_98)" +"(let-values(((c_99)" "(let-values(((in_49) in_47)((source_32) source_30))" "(read-char-or-special in_49 special1.1 source_32))))" -"(if(eof-object? c_98)" +"(if(eof-object? c_99)" "(let-values()" "(if(null? terminator_0)" "(void)" "(let-values()" "(let-values(((in100_0) in_47)" "((config101_0) config_49)" -"((c102_0) c_98)" -"((temp103_2)" +"((c102_0) c_99)" +"((temp103_3)" " \"found end-of-file before terminating `~a`\")" -"((temp104_2)" +"((temp104_3)" "(list->string(cdr full-terminator_0))))" "(reader-error10.1" " #f" @@ -53380,14 +53613,14 @@ static const char *startup_source = " #f" " in100_0" " config101_0" -" temp103_2" -"(list temp104_2))))))" -"(if(not(char? c_98))" +" temp103_3" +"(list temp104_3))))))" +"(if(not(char? c_99))" "(let-values()" "(let-values(((in105_0) in_47)" "((config106_0) config_49)" -"((c107_0) c_98)" -"((temp108_3)" +"((c107_0) c_99)" +"((temp108_1)" " \"found non-character while reading `#<<`\"))" "(reader-error10.1" " #f" @@ -53398,16 +53631,16 @@ static const char *startup_source = " #f" " in105_0" " config106_0" -" temp108_3" +" temp108_1" "(list))))" "(if(if(pair? terminator_0)" -"(char=? c_98(car terminator_0))" +"(char=? c_99(car terminator_0))" " #f)" "(let-values()" "(loop_113" "(cdr terminator_0)" "(cons(car terminator_0) terminator-accum_0)))" -"(if(if(null? terminator_0)(char=? c_98 '#\\newline) #f)" +"(if(if(null? terminator_0)(char=? c_99 '#\\newline) #f)" "(let-values()(void))" "(let-values()" "(begin" @@ -53415,19 +53648,19 @@ static const char *startup_source = "(void)" "(let-values()" "(begin" -"(let-values(((lst_232)" +"(let-values(((lst_231)" "(reverse$1 terminator-accum_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_232)))" -"((letrec-values(((for-loop_276)" +"(let-values()(check-list lst_231)))" +"((letrec-values(((for-loop_277)" "(lambda(lst_314)" "(begin" " 'for-loop" "(if(pair? lst_314)" -"(let-values(((c_99)" +"(let-values(((c_100)" "(unsafe-car" " lst_314))" "((rest_174)" @@ -53441,80 +53674,80 @@ static const char *startup_source = "(let-values()" "(accum-string-add!" " accum-str_5" -" c_99))" +" c_100))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_276" +"(for-loop_277" " rest_174)" "(values))))" "(values))))))" -" for-loop_276)" -" lst_232)))" +" for-loop_277)" +" lst_231)))" "(void))))" -"(if(char=? c_98 '#\\newline)" +"(if(char=? c_99 '#\\newline)" "(let-values()" "(loop_113" "(cdr full-terminator_0)" "(list '#\\newline)))" "(let-values()" "(begin" -"(accum-string-add! accum-str_5 c_98)" +"(accum-string-add! accum-str_5 c_99)" "(loop_113 full-terminator_0 null)))))))))))))))" " loop_113)" "(cdr full-terminator_0)" " null)" "(values))))" -"(let-values(((str_31)" +"(let-values(((str_30)" "(let-values(((accum-str109_0) accum-str_5)((config110_0) config_49))" "(accum-string-get!6.1 #f #f accum-str109_0 config110_0))))" -"(wrap str_31 in_47 config_49 str_31)))))))))" +"(wrap str_30 in_47 config_49 str_30)))))))))" "(define-values" "(no-hex-digits)" -"(lambda(in_50 config_50 c_100 escaping-c_1 escaped-c_1)" +"(lambda(in_50 config_50 c_101 escaping-c_1 escaped-c_1)" "(begin" "(let-values(((in111_0) in_50)" "((config112_0) config_50)" -"((c113_0) c_100)" -" ((temp114_1) \"no hex digit following `~a~a`\")" +"((c113_0) c_101)" +" ((temp114_2) \"no hex digit following `~a~a`\")" "((escaping-c115_0) escaping-c_1)" "((escaped-c116_0) escaped-c_1))" -"(reader-error10.1 #f #f c113_0 #t #f #f in111_0 config112_0 temp114_1(list escaping-c115_0 escaped-c116_0))))))" +"(reader-error10.1 #f #f c113_0 #t #f #f in111_0 config112_0 temp114_2(list escaping-c115_0 escaped-c116_0))))))" "(define-values" "(read-character)" "(lambda(in_4 config_8)" "(begin" -"(let-values(((c_101)" +"(let-values(((c_102)" "(let-values(((in_43) in_4)((source_33)(read-config-source config_8)))" "(read-char-or-special in_43 special1.1 source_33))))" "(let-values(((char_0)" -"(if(eof-object? c_101)" +"(if(eof-object? c_102)" "(let-values()" "(let-values(((in1_5) in_4)" "((config2_4) config_8)" -"((c3_5) c_101)" -" ((temp4_6) \"expected a character after `#\\\\`\"))" -"(reader-error10.1 #f #f c3_5 #t #f #f in1_5 config2_4 temp4_6(list))))" -"(if(not(char? c_101))" +"((c3_5) c_102)" +" ((temp4_5) \"expected a character after `#\\\\`\"))" +"(reader-error10.1 #f #f c3_5 #t #f #f in1_5 config2_4 temp4_5(list))))" +"(if(not(char? c_102))" "(let-values()" "(let-values(((in5_1) in_4)" "((config6_0) config_8)" -"((c7_1) c_101)" +"((c7_1) c_102)" " ((temp8_3) \"found non-character after `#\\\\`\"))" "(reader-error10.1 #f #f c7_1 #t #f #f in5_1 config6_0 temp8_3(list))))" -"(if(octal-digit? c_101)" +"(if(octal-digit? c_102)" "(let-values()" "(let-values(((c2_5)" "(let-values(((in_51) in_4)" "((skip-count_11) 0)" "((source_34)(read-config-source config_8)))" -"(let-values(((c_48)" +"(let-values(((c_47)" "(peek-char-or-special" " in_51" " skip-count_11" " 'special" " source_34)))" -"(if(eq? c_48 'special)(special1.1 'special) c_48)))))" +"(if(eq? c_47 'special)(special1.1 'special) c_47)))))" "(if(if(char? c2_5)(octal-digit? c2_5) #f)" "(let-values()" "(let-values((()(begin(consume-char in_4 c2_5)(values))))" @@ -53522,23 +53755,23 @@ static const char *startup_source = "(let-values(((in_44) in_4)" "((source_6)(read-config-source config_8)))" "(read-char-or-special in_44 special1.1 source_6))))" -"(let-values(((v_82)" +"(let-values(((v_92)" "(if(if(char? c3_6)(octal-digit? c3_6) #f)" "(let-values()" "(+" -"(arithmetic-shift(digit->number c_101) 6)" +"(arithmetic-shift(digit->number c_102) 6)" "(arithmetic-shift(digit->number c2_5) 3)" "(digit->number c3_6)))" "(let-values() #f))))" "(begin" -"(if(if v_82(<= v_82 255) #f)" +"(if(if v_92(<= v_92 255) #f)" "(void)" "(let-values()" "(let-values(((in9_2) in_4)" "((config10_1) config_8)" "((c311_0) c3_6)" " ((temp12_5) \"bad character constant `#\\\\~a~a~a`\")" -"((c13_2) c_101)" +"((c13_2) c_102)" "((c214_0) c2_5)" " ((temp15_7) (if (char? c3_6) c3_6 \"\")))" "(reader-error10.1" @@ -53552,10 +53785,10 @@ static const char *startup_source = " config10_1" " temp12_5" "(list c13_2 c214_0 temp15_7)))))" -"(integer->char v_82))))))" -"(let-values() c_101))))" -"(if(let-values(((or-part_69)(char=? c_101 '#\\u)))" -"(if or-part_69 or-part_69(char=? c_101 '#\\U)))" +"(integer->char v_92))))))" +"(let-values() c_102))))" +"(if(let-values(((or-part_68)(char=? c_102 '#\\u)))" +"(if or-part_68 or-part_68(char=? c_102 '#\\U)))" "(let-values()" "(let-values(((accum-str_6)(accum-string-init! config_8)))" "(let-values(((v_33)" @@ -53563,7 +53796,7 @@ static const char *startup_source = "((config17_1) config_8)" "((accum-str18_1) accum-str_6)" "((temp19_4) 16)" -"((temp20_4)(if(char=? c_101 '#\\u) 4 8)))" +"((temp20_4)(if(char=? c_102 '#\\u) 4 8)))" "(read-digits13.1" " temp19_4" " #f" @@ -53577,8 +53810,8 @@ static const char *startup_source = " #t))))" "(if(integer? v_33)" "(let-values()" -"(if(if(let-values(((or-part_365)(< v_33 55296)))" -"(if or-part_365 or-part_365(> v_33 57343)))" +"(if(if(let-values(((or-part_363)(< v_33 55296)))" +"(if or-part_363 or-part_363(> v_33 57343)))" "(<= v_33 1114111)" " #f)" "(let-values()" @@ -53587,7 +53820,7 @@ static const char *startup_source = "(let-values(((in21_3) in_4)" "((config22_3) config_8)" " ((temp23_4) \"bad character constant `#\\\\u~a`\")" -"((temp24_10)" +"((temp24_9)" "(let-values(((accum-str25_1) accum-str_6)" "((config26_1) config_8))" "(accum-string-get!6.1 #f #f accum-str25_1 config26_1))))" @@ -53601,9 +53834,9 @@ static const char *startup_source = " in21_3" " config22_3" " temp23_4" -"(list temp24_10))))))" -"(let-values()(begin(accum-string-abandon! accum-str_6 config_8) c_101))))))" -"(if(char-alphabetic? c_101)" +"(list temp24_9))))))" +"(let-values()(begin(accum-string-abandon! accum-str_6 config_8) c_102))))))" +"(if(char-alphabetic? c_102)" "(let-values()" "(let-values(((next-c_4)" "(let-values(((in_52) in_4)" @@ -53619,7 +53852,7 @@ static const char *startup_source = "(if(if(char? next-c_4)(char-alphabetic? next-c_4) #f)" "(let-values()" "(let-values(((accum-str_7)(accum-string-init! config_8)))" -"(let-values((()(begin(accum-string-add! accum-str_7 c_101)(values))))" +"(let-values((()(begin(accum-string-add! accum-str_7 c_102)(values))))" "(let-values((()(begin(accum-string-add! accum-str_7 next-c_4)(values))))" "(let-values((()(begin(consume-char in_4 next-c_4)(values))))" "(let-values((()" @@ -53664,7 +53897,7 @@ static const char *startup_source = "(void)))))))" " loop_103))" "(values))))" -"(let-values(((name_66)" +"(let-values(((name_67)" "(string-foldcase" "(let-values(((accum-str27_0) accum-str_7)" "((config28_1) config_8))" @@ -53673,33 +53906,33 @@ static const char *startup_source = " #f" " accum-str27_0" " config28_1)))))" -"(let-values(((tmp_52) name_66))" -" (if (if (equal? tmp_52 \"nul\") #t (equal? tmp_52 \"null\"))" +"(let-values(((tmp_54) name_67))" +" (if (if (equal? tmp_54 \"nul\") #t (equal? tmp_54 \"null\"))" "(let-values() '#\\nul)" -" (if (equal? tmp_52 \"backspace\")" +" (if (equal? tmp_54 \"backspace\")" "(let-values() '#\\backspace)" -" (if (equal? tmp_52 \"tab\")" +" (if (equal? tmp_54 \"tab\")" "(let-values() '#\\tab)" -" (if (if (equal? tmp_52 \"newline\")" +" (if (if (equal? tmp_54 \"newline\")" " #t" -" (equal? tmp_52 \"linefeed\"))" +" (equal? tmp_54 \"linefeed\"))" "(let-values() '#\\newline)" -" (if (equal? tmp_52 \"vtab\")" +" (if (equal? tmp_54 \"vtab\")" "(let-values() '#\\vtab)" -" (if (equal? tmp_52 \"page\")" +" (if (equal? tmp_54 \"page\")" "(let-values() '#\\page)" -" (if (equal? tmp_52 \"return\")" +" (if (equal? tmp_54 \"return\")" "(let-values() '#\\return)" -" (if (equal? tmp_52 \"space\")" +" (if (equal? tmp_54 \"space\")" "(let-values() '#\\space)" -" (if (equal? tmp_52 \"rubout\")" +" (if (equal? tmp_54 \"rubout\")" "(let-values() '#\\rubout)" "(let-values()" "(let-values(((in29_1) in_4)" "((config30_0) config_8)" "((temp31_7)" " \"bad character constant `#\\\\~a`\")" -"((name32_0) name_66))" +"((name32_0) name_67))" "(reader-error10.1" " #f" " #f" @@ -53711,29 +53944,29 @@ static const char *startup_source = " config30_0" " temp31_7" "(list name32_0)))))))))))))))))))))" -"(let-values() c_101))))" -"(let-values() c_101))))))))" +"(let-values() c_102))))" +"(let-values() c_102))))))))" "(wrap char_0 in_4 config_8 char_0))))))" "(define-values" "(read-quote)" "(lambda(read-one_3 sym_27 desc_0 c_35 in_43 config_22)" "(begin" "(let-values(((wrapped-sym_0)(wrap sym_27 in_43 config_22 c_35)))" -"(let-values(((e_84)(read-one_3 #f in_43 config_22)))" +"(let-values(((e_85)(read-one_3 #f in_43 config_22)))" "(begin" -"(if(eof-object? e_84)" +"(if(eof-object? e_85)" "(let-values()" "(let-values(((in1_1) in_43)" "((config2_5) config_22)" -"((e3_0) e_84)" -" ((temp4_7) \"expected an element for ~a, found end-of-file\")" +"((e3_0) e_85)" +" ((temp4_6) \"expected an element for ~a, found end-of-file\")" "((desc5_0) desc_0))" -"(reader-error10.1 #f #f e3_0 #t #f #f in1_1 config2_5 temp4_7(list desc5_0))))" +"(reader-error10.1 #f #f e3_0 #t #f #f in1_1 config2_5 temp4_6(list desc5_0))))" "(void))" -"(wrap(list wrapped-sym_0 e_84) in_43 config_22 #f)))))))" +"(wrap(list wrapped-sym_0 e_85) in_43 config_22 #f)))))))" "(define-values" "(read-delimited-constant)" -"(lambda(init-c_1 can-match?_0 chars_0 val_76 in_43 config_22)" +"(lambda(init-c_1 can-match?_0 chars_0 val_80 in_43 config_22)" "(begin" "(let-values(((accum-str_8)(accum-string-init! config_22)))" "(begin" @@ -53742,27 +53975,27 @@ static const char *startup_source = "(lambda(chars_1)" "(begin" " 'loop" -"(let-values(((c_102)" +"(let-values(((c_37)" "(let-values(((in_54) in_43)" "((skip-count_14) 0)" "((source_4)(read-config-source config_22)))" -"(let-values(((c_37)" +"(let-values(((c_103)" "(peek-char-or-special" " in_54" " skip-count_14" " 'special" " source_4)))" -"(if(eq? c_37 'special)(special1.1 'special) c_37)))))" -"(if(char-delimiter? c_102 config_22)" +"(if(eq? c_103 'special)(special1.1 'special) c_103)))))" +"(if(char-delimiter? c_37 config_22)" "(let-values()" "(if(null? chars_1)" "(void)" "(let-values()" "(let-values(((in1_6) in_43)" "((config2_6) config_22)" -"((c3_7) c_102)" -" ((temp4_8) \"bad syntax `#~a`\")" -"((temp5_8)" +"((c3_7) c_37)" +" ((temp4_7) \"bad syntax `#~a`\")" +"((temp5_7)" "(let-values(((accum-str6_0) accum-str_8)" "((config7_1) config_22))" "(accum-string-get!6.1 #f #f accum-str6_0 config7_1))))" @@ -53775,15 +54008,15 @@ static const char *startup_source = " #f" " in1_6" " config2_6" -" temp4_8" -"(list temp5_8))))))" +" temp4_7" +"(list temp5_7))))))" "(if(null? chars_1)" "(let-values()" "(begin" -"(accum-string-add! accum-str_8 c_102)" +"(accum-string-add! accum-str_8 c_37)" "(let-values(((in8_1) in_43)" "((config9_2) config_22)" -" ((temp10_5) \"bad syntax `#~a`\")" +" ((temp10_6) \"bad syntax `#~a`\")" "((temp11_6)" "(let-values(((accum-str12_0) accum-str_8)" "((config13_2) config_22))" @@ -53797,18 +54030,18 @@ static const char *startup_source = " #f" " in8_1" " config9_2" -" temp10_5" +" temp10_6" "(list temp11_6)))))" -"(if(if can-match?_0(char=? c_102(car chars_1)) #f)" +"(if(if can-match?_0(char=? c_37(car chars_1)) #f)" "(let-values()" "(begin" -"(consume-char in_43 c_102)" -"(accum-string-add! accum-str_8 c_102)" +"(consume-char in_43 c_37)" +"(accum-string-add! accum-str_8 c_37)" "(loop_114(cdr chars_1))))" "(let-values()" "(begin" -"(consume-char/special in_43 config_22 c_102)" -"(accum-string-add! accum-str_8 c_102)" +"(consume-char/special in_43 config_22 c_37)" +"(accum-string-add! accum-str_8 c_37)" "(let-values(((in14_1) in_43)" "((config15_2) config_22)" " ((temp16_5) \"bad syntax `#~a`\")" @@ -53830,7 +54063,7 @@ static const char *startup_source = " loop_114)" " chars_0)" "(wrap" -" val_76" +" val_80" " in_43" " config_22" "(let-values(((accum-str20_0) accum-str_8)((config21_1) config_22))" @@ -53850,18 +54083,18 @@ static const char *startup_source = "((dispatch-c4_0) dispatch-c_1))" "(reader-error10.1 #f #f #f #f #f #f in1_7 config2_7 temp3_8(list dispatch-c4_0)))))" "(values))))" -"(let-values(((e_73)(read-one_3 #f in_5(next-readtable config_15))))" +"(let-values(((e_74)(read-one_3 #f in_5(next-readtable config_15))))" "(begin" -"(if(eof-object? e_73)" +"(if(eof-object? e_74)" "(let-values()" "(let-values(((in5_2) in_5)" "((config6_1) config_15)" -"((e7_1) e_73)" +"((e7_1) e_74)" " ((temp8_4) \"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 in5_2 config6_1 temp8_4(list dispatch-c9_0))))" "(void))" -"(wrap(box e_73) in_5 config_15 #f)))))))" +"(wrap(box e_74) in_5 config_15 #f)))))))" "(define-values" "(read-regexp)" "(lambda(mode-c_0 accum-str_9 in_5 config_15)" @@ -53875,13 +54108,13 @@ static const char *startup_source = " (if (equal? tmp_17 '#\\\")" "(let-values()" "(let-values((()(begin(accum-string-abandon! accum-str_9 config_15)(values))))" -"(let-values(((str_32)" +"(let-values(((str_31)" "(let-values(((in1_8) in_5)((no-wrap-config2_0) no-wrap-config_0))" "(read-string5.1 #f #f in1_8 no-wrap-config2_0))))" "(catch-and-reraise-as-reader/proc" " in_5" " config_15" -"(lambda()((if(char=? mode-c_0 '#\\r) regexp pregexp) str_32))))))" +"(lambda()((if(char=? mode-c_0 '#\\r) regexp pregexp) str_31))))))" "(if(equal? tmp_17 '#\\#)" "(let-values()" "(let-values((()(begin(accum-string-add! accum-str_9 c3_8)(values))))" @@ -53889,16 +54122,16 @@ static const char *startup_source = "(let-values(((in_27) in_5)" "((source_37)(read-config-source config_15)))" "(read-char-or-special in_27 special1.1 source_37))))" -"(let-values(((tmp_53) c4_2))" -" (if (equal? tmp_53 '#\\\")" +"(let-values(((tmp_55) c4_2))" +" (if (equal? tmp_55 '#\\\")" "(let-values()" "(let-values((()" "(begin(accum-string-abandon! accum-str_9 config_15)(values))))" "(let-values(((bstr_4)" "(let-values(((in3_1) in_5)" "((no-wrap-config4_0) no-wrap-config_0)" -"((temp5_9) '|byte string|))" -"(read-string5.1 temp5_9 #t in3_1 no-wrap-config4_0))))" +"((temp5_8) '|byte string|))" +"(read-string5.1 temp5_8 #t in3_1 no-wrap-config4_0))))" "(catch-and-reraise-as-reader/proc" " in_5" " config_15" @@ -53908,8 +54141,8 @@ static const char *startup_source = "(let-values(((in6_2) in_5)" "((config7_2) config_15)" "((c48_0) c4_2)" -" ((temp9_5) \"expected `\\\"` after `~a`\")" -"((temp10_6)" +" ((temp9_6) \"expected `\\\"` after `~a`\")" +"((temp10_7)" "(let-values(((accum-str11_0) accum-str_9)" "((config12_3) config_15))" "(accum-string-get!6.1 #f #f accum-str11_0 config12_3))))" @@ -53922,8 +54155,8 @@ static const char *startup_source = " #f" " in6_2" " config7_2" -" temp9_5" -"(list temp10_6)))))))))" +" temp9_6" +"(list temp10_7)))))))))" "(let-values()" "(let-values(((in13_1) in_5)" "((config14_1) config_15)" @@ -53957,9 +54190,9 @@ static const char *startup_source = "(let-values()" "(let-values(((in52_0) in_24)" "((config53_1) config_24)" -" ((temp54_4) \"`~a` not enabled\")" +" ((temp54_3) \"`~a` not enabled\")" "((extend-str55_0) extend-str_0))" -"(reader-error10.1 #f #f #f #f #f #f in52_0 config53_1 temp54_4(list extend-str55_0)))))" +"(reader-error10.1 #f #f #f #f #f #f in52_0 config53_1 temp54_3(list extend-str55_0)))))" "(values))))" "(let-values(((mod-path-wrapped_0)(read-one_9 #f in_24(next-readtable config_24))))" "(begin" @@ -54013,18 +54246,18 @@ static const char *startup_source = "(let-values()" "(let-values(((extend-str_1)" "(read-extension-prefix(cons dispatch-c_3 '(#\\l)) '(#\\a #\\n #\\g) in_56 config_51)))" -"(let-values(((c_90)" +"(let-values(((c_92)" "(let-values(((in_14) in_56)((source_18)(read-config-source config_51)))" "(read-char-or-special in_14 special1.1 source_18))))" "(begin" -"(if(char=? c_90 '#\\space)" +"(if(char=? c_92 '#\\space)" "(void)" "(let-values()" "(let-values(((in67_1) in_56)" "((config68_1) config_51)" -" ((temp69_3) \"expected a single space after `~a`\")" +" ((temp69_2) \"expected a single space after `~a`\")" "((extend-str70_0) extend-str_1))" -"(reader-error10.1 #f #f #f #f #f #f in67_1 config68_1 temp69_3(list extend-str70_0)))))" +"(reader-error10.1 #f #f #f #f #f #f in67_1 config68_1 temp69_2(list extend-str70_0)))))" "(let-values(((extend-str61_0) extend-str_1)" "((read-recur62_0) read-recur_1)" "((in63_0) in_56)" @@ -54052,23 +54285,23 @@ static const char *startup_source = "(let-values(((config_52) config15_3))" "(let-values(((get-info?_1)(if get-info?11_0 get-info?10_0 #f)))" "(let-values()" -"(let-values(((c_103)" +"(let-values(((c_104)" "(let-values(((in_58) in_57)((source_38)(read-config-source config_52)))" "(read-char-or-special in_58 special1.1 source_38))))" "(begin" -"(if(char-lang-nonsep? c_103)" +"(if(char-lang-nonsep? c_104)" "(void)" "(let-values()" "(let-values(((in78_0) in_57)" "((config79_0) config_52)" "((temp80_5)" -"(if(char? c_103)(string dispatch-c_4 '#\\! c_103)(string dispatch-c_4 '#\\!))))" +"(if(char? c_104)(string dispatch-c_4 '#\\! c_104)(string dispatch-c_4 '#\\!))))" "(bad-syntax-error18.1 #f #f in78_0 config79_0 temp80_5))))" -"(let-values(((temp71_2)(string dispatch-c_4 '#\\!))" +"(let-values(((temp71_3)(string dispatch-c_4 '#\\!))" "((read-recur72_0) read-recur_2)" "((in73_1) in_57)" "((config74_0) config_52)" -"((c75_0) c_103)" +"((c75_0) c_104)" "((temp76_1) '|#!|)" "((get-info?77_0) get-info?_1))" "(read-lang29.1" @@ -54077,7 +54310,7 @@ static const char *startup_source = " c75_0" " #t" " temp76_1" -" temp71_2" +" temp71_3" " read-recur72_0" " in73_1" " config74_0)))))))))))))" @@ -54092,7 +54325,7 @@ static const char *startup_source = "(let-values(((config_35) config28_2))" "(let-values(((init-c_13)(if init-c22_0 init-c19_0 #f)))" "(let-values(((get-info?_2)(if get-info?23_0 get-info?20_0 #f)))" -"(let-values(((who_27) who21_0))" +"(let-values(((who_28) who21_0))" "(let-values()" "(let-values((()" "(begin" @@ -54103,7 +54336,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in88_0) in_21)" "((config89_1) config_35)" -" ((temp90_2) \"`~a` not enabled\")" +" ((temp90_1) \"`~a` not enabled\")" "((extend-str91_0) extend-str_2))" "(reader-error10.1" " #f" @@ -54114,7 +54347,7 @@ static const char *startup_source = " #f" " in88_0" " config89_1" -" temp90_2" +" temp90_1" "(list extend-str91_0)))))" "(values))))" "(let-values(((line_10 col_9 pos_122)(port-next-location in_21)))" @@ -54137,15 +54370,15 @@ static const char *startup_source = "((source_30)" "(read-config-source" " config_35)))" -"(let-values(((c_104)" +"(let-values(((c_105)" "(peek-char-or-special" " in_59" " skip-count_15" " 'special" " source_30)))" -"(if(eq? c_104 'special)" +"(if(eq? c_105 'special)" "(special1.1 'special)" -" c_104)))))" +" c_105)))))" "(if(eof-object? c_9)" "(let-values()(void))" "(if(not(char? c_9))" @@ -54155,7 +54388,7 @@ static const char *startup_source = "(let-values(((in92_1) in_21)" "((config93_1) config_35)" "((c94_1) c_9)" -"((temp95_3)" +"((temp95_2)" " \"found non-character while reading `#~a`\")" "((extend-str96_0)" " extend-str_2))" @@ -54168,14 +54401,14 @@ static const char *startup_source = " #f" " in92_1" " config93_1" -" temp95_3" +" temp95_2" "(list extend-str96_0)))))" "(if(char-whitespace? c_9)" "(let-values()(void))" -"(if(let-values(((or-part_181)" +"(if(let-values(((or-part_183)" "(char-lang-nonsep? c_9)))" -"(if or-part_181" -" or-part_181" +"(if or-part_183" +" or-part_183" "(char=? '#\\/ c_9)))" "(let-values()" "(begin" @@ -54218,7 +54451,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in104_0) in_21)" "((config105_0) config_35)" -"((temp106_3)" +"((temp106_2)" " \"expected a non-empty sequence of alphanumeric, `-`, `+`, `_`, or `/` after `~a`\")" "((extend-str107_0) extend-str_2))" "(reader-error10.1" @@ -54230,7 +54463,7 @@ static const char *startup_source = " #f" " in104_0" " config105_0" -" temp106_3" +" temp106_2" "(list extend-str107_0))))" "(void))" "(values))))" @@ -54240,7 +54473,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in108_0) in_21)" "((config109_0) config_35)" -"((temp110_5)" +"((temp110_3)" " \"expected a name that does not start `/` after `~a`\")" "((extend-str111_0) extend-str_2))" "(reader-error10.1" @@ -54252,7 +54485,7 @@ static const char *startup_source = " #f" " in108_0" " config109_0" -" temp110_5" +" temp110_3" "(list extend-str111_0))))" "(void))" "(values))))" @@ -54264,7 +54497,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in112_0) in_21)" "((config113_0) config_35)" -"((temp114_2)" +"((temp114_3)" " \"expected a name that does not end `/` after `~a`\")" "((extend-str115_0) extend-str_2))" "(reader-error10.1" @@ -54276,7 +54509,7 @@ static const char *startup_source = " #f" " in112_0" " config113_0" -" temp114_2" +" temp114_3" "(list extend-str115_0))))" "(void))" "(values))))" @@ -54288,9 +54521,9 @@ static const char *startup_source = "((reader-path82_0) reader-path_0)" "((read-recur83_0) read-recur_3)" "((in84_1) in_21)" -"((temp85_1)(reading-at config_35 line_10 col_9 pos_122))" +"((temp85_2)(reading-at config_35 line_10 col_9 pos_122))" "((get-info?86_0) get-info?_2)" -"((who87_0) who_27))" +"((who87_0) who_28))" "(read-extension44.1" " get-info?86_0" " #t" @@ -54303,23 +54536,23 @@ static const char *startup_source = " reader-path82_0" " read-recur83_0" " in84_1" -" temp85_1))))))))))))))))))))))))" +" temp85_2))))))))))))))))))))))))" "(define-values" "(char-lang-nonsep?)" -"(lambda(c_105)" +"(lambda(c_106)" "(begin" -"(if(<(char->integer c_105) 128)" -"(let-values(((or-part_280)(char-alphabetic? c_105)))" -"(if or-part_280" -" or-part_280" -"(let-values(((or-part_366)(char-numeric? c_105)))" -"(if or-part_366" -" or-part_366" -"(let-values(((or-part_309)(char=? '#\\- c_105)))" -"(if or-part_309" -" or-part_309" -"(let-values(((or-part_182)(char=? '#\\+ c_105)))" -"(if or-part_182 or-part_182(char=? '#\\_ c_105)))))))))" +"(if(<(char->integer c_106) 128)" +"(let-values(((or-part_281)(char-alphabetic? c_106)))" +"(if or-part_281" +" or-part_281" +"(let-values(((or-part_364)(char-numeric? c_106)))" +"(if or-part_364" +" or-part_364" +"(let-values(((or-part_305)(char=? '#\\- c_106)))" +"(if or-part_305" +" or-part_305" +"(let-values(((or-part_184)(char=? '#\\+ c_106)))" +"(if or-part_184 or-part_184(char=? '#\\_ c_106)))))))))" " #f))))" "(define-values" "(read-extension-prefix)" @@ -54327,28 +54560,28 @@ static const char *startup_source = "(begin" "(let-values(((accum-str_11)(accum-string-init! config_53)))" "(begin" -"(let-values(((lst_33) already_0))" +"(let-values(((lst_315) already_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_33)))" -"((letrec-values(((for-loop_25)" -"(lambda(lst_315)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_315)))" +"((letrec-values(((for-loop_278)" +"(lambda(lst_316)" "(begin" " 'for-loop" -"(if(pair? lst_315)" -"(let-values(((c_106)(unsafe-car lst_315))((rest_175)(unsafe-cdr lst_315)))" +"(if(pair? lst_316)" +"(let-values(((c_107)(unsafe-car lst_316))((rest_175)(unsafe-cdr lst_316)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(accum-string-add! accum-str_11 c_106))" +"(accum-string-add! accum-str_11 c_107))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_25 rest_175)(values))))" +"(if(not #f)(for-loop_278 rest_175)(values))))" "(values))))))" -" for-loop_25)" -" lst_33)))" +" for-loop_278)" +" lst_315)))" "(void)" "((letrec-values(((loop_12)" "(lambda(wanted_1)" @@ -54408,12 +54641,12 @@ static const char *startup_source = " mod-path-datum_0" "(port+config->srcloc in_62 config_54)))))" "(let-values(((get-info?_3)(if get-info?38_0 get-info?34_0 #f)))" -"(let-values(((who_28)(if who39_0 who35_0 '|#reader|)))" +"(let-values(((who_29)(if who39_0 who35_0 '|#reader|)))" "(let-values()" "(let-values((()(begin(force-parameters! config_54)(values))))" "(let-values(((guard_0)(1/current-reader-guard)))" "(let-values(((mod-path_27)" -"(let-values(((or-part_367)" +"(let-values(((or-part_365)" "(if try-first-mod-path_0" "(let-values(((mod-path_28)(guard_0 try-first-mod-path_0)))" "(if((read-config-module-declared? config_54)" @@ -54421,7 +54654,7 @@ static const char *startup_source = " mod-path_28" " #f))" " #f)))" -"(if or-part_367 or-part_367(guard_0 mod-path-datum_0)))))" +"(if or-part_365 or-part_365(guard_0 mod-path-datum_0)))))" "(let-values(((for-syntax?_8)(read-config-for-syntax? config_54)))" "(let-values(((dynamic-require_2)(read-config-dynamic-require config_54)))" "(let-values(((no-value_0)(gensym)))" @@ -54471,7 +54704,7 @@ static const char *startup_source = " in_62))))" "(let-values()" "(raise-argument-error" -" who_28" +" who_29" " \"(or/c (procedure-arity-includes?/c 2) (procedure-arity-includes?/c 6))\"" " extension_0)))))" "(let-values()" @@ -54493,7 +54726,7 @@ static const char *startup_source = "(if get-info?_3" "(let-values()" "(raise-argument-error" -" who_28" +" who_29" " \"(procedure-arity-includes?/c 5)\"" " extension_0))" "(if(procedure-arity-includes? extension_0 1)" @@ -54509,7 +54742,7 @@ static const char *startup_source = "(let-values()(extension_0 in_62))))" "(let-values()" "(raise-argument-error" -" who_28" +" who_29" " \"(or/c (procedure-arity-includes?/c 1) (procedure-arity-includes?/c 5))\"" " extension_0)))))))))" "(if get-info?_3" @@ -54549,41 +54782,41 @@ static const char *startup_source = "((c2_7) c_33)" "((in3_2) in_2)" "((l-config4_0) l-config_0)" -"((temp5_4) #t))" -"(read-extension-lang7.1 temp5_4 #t read-one1_0 c2_7 in3_2 l-config4_0)))" +"((temp5_3) #t))" +"(read-extension-lang7.1 temp5_3 #t read-one1_0 c2_7 in3_2 l-config4_0)))" "(if(eqv? c2_6 '#\\!)" "(let-values()" "(let-values(((read-one6_0) read-one_3)" "((c7_2) c_33)" "((in8_2) in_2)" "((l-config9_0) l-config_0)" -"((temp10_7) #t))" -"(read-extension-#!16.1 temp10_7 #t read-one6_0 c7_2 in8_2 l-config9_0)))" +"((temp10_8) #t))" +"(read-extension-#!16.1 temp10_8 #t read-one6_0 c7_2 in8_2 l-config9_0)))" "(let-values()" "(if fail-k_5(fail-k_5)(lang-error in_2 l-config_0(string c_33) c2_6))))))))))))))" "(define-values" "(lang-error)" -"(lambda(in_44 config_55 prefix_7 c_38)" +"(lambda(in_44 config_55 prefix_7 c_49)" "(begin" "(let-values(((add-prefix_0)" -"(lambda(s_424)" +"(lambda(s_430)" "(begin" " 'add-prefix" -" (if (string=? prefix_7 \"\") (format \"`~a` followed by ~a\" prefix_7 s_424) s_424)))))" +" (if (string=? prefix_7 \"\") (format \"`~a` followed by ~a\" prefix_7 s_430) s_430)))))" "(let-values(((in11_2) in_44)" "((config12_4) config_55)" -"((c13_3) c_38)" +"((c13_3) c_49)" "((temp14_8) 'read-language)" "((temp15_8)" "(string-append" " \"expected (after whitespace and comments) `#lang ` or `#!` followed\"" " \" immediately by a language name, found ~a\"))" "((temp16_7)" -"(if(eof-object? c_38)" +"(if(eof-object? c_49)" " (let-values () (add-prefix_0 \"end-of-file\"))" -"(if(not(char? c_38))" +"(if(not(char? c_49))" " (let-values () (add-prefix_0 \"non-character\"))" -" (let-values () (format \"`~a~a`\" prefix_7 c_38))))))" +" (let-values () (format \"`~a~a`\" prefix_7 c_49))))))" "(reader-error10.1 #f #f c13_3 #t temp14_8 #t in11_2 config12_4 temp15_8(list temp16_7)))))))" "(define-values" "(read30.1)" @@ -54692,8 +54925,8 @@ static const char *startup_source = " wrap63_0" " #t)))))))" "(let-values(((v_239)(read-one init-c_14 in_12 config_56)))" -"(if(if(let-values(((or-part_94)(not recursive?_0)))" -"(if or-part_94 or-part_94 local-graph?_1))" +"(if(if(let-values(((or-part_93)(not recursive?_0)))" +"(if or-part_93 or-part_93 local-graph?_1))" "(read-config-state-graph(read-config-st config_56))" " #f)" "(let-values()" @@ -54743,7 +54976,7 @@ static const char *startup_source = "(let-values()" "(let-values(((config_58)" "(let-values(((temp70_2) #f)" -"((temp71_3) #f)" +"((temp71_4) #f)" "((for-syntax?72_0) for-syntax?_10)" "((wrap73_0) wrap_8)" "((read-compiled74_0) read-compiled_3)" @@ -54764,7 +54997,7 @@ static const char *startup_source = " #f" " module-declared?76_0" " #t" -" temp71_3" +" temp71_4" " #t" " read-compiled74_0" " #t" @@ -54785,35 +55018,35 @@ static const char *startup_source = "(if(check-parameter 1/read-cdot config_59)" "(let-values()" "(let-values(((line_11 col_10 pos_123)(port-next-location in_64)))" -"(let-values(((v_182)(read-undotted init-c_15 in_64 config_59)))" -"(if(1/special-comment? v_182)" -"(let-values() v_182)" +"(let-values(((v_181)(read-undotted init-c_15 in_64 config_59)))" +"(if(1/special-comment? v_181)" +"(let-values() v_181)" "(let-values()" "((letrec-values(((loop_116)" "(lambda(v_240)" "(begin" " 'loop" -"(let-values(((c_107)" +"(let-values(((c_108)" "(let-values(((in_65) in_64)" "((skip-count_16) 0)" "((source_42)(read-config-source config_59)))" -"(let-values(((c_108)" +"(let-values(((c_109)" "(peek-char-or-special" " in_65" " skip-count_16" " 'special" " source_42)))" -"(if(eq? c_108 'special)(special1.1 'special) c_108)))))" -"(let-values(((ec_9)(effective-char c_107 config_59)))" +"(if(eq? c_109 'special)(special1.1 'special) c_109)))))" +"(let-values(((ec_9)(effective-char c_108 config_59)))" "(if(not(char? ec_9))" "(let-values() v_240)" "(if(char-whitespace? ec_9)" -"(let-values()(begin(consume-char in_64 c_107)(loop_116 v_240)))" +"(let-values()(begin(consume-char in_64 c_108)(loop_116 v_240)))" "(if(char=? ec_9 '#\\.)" "(let-values()" "(let-values(((dot-line_2 dot-col_2 dot-pos_5)" "(port-next-location in_64)))" -"(let-values((()(begin(consume-char in_64 c_107)(values))))" +"(let-values((()(begin(consume-char in_64 c_108)(values))))" "(let-values(((cdot_0)" "(wrap" " '#%dot" @@ -54834,30 +55067,30 @@ static const char *startup_source = " '#\\.)))))))" "(let-values() v_240))))))))))" " loop_116)" -" v_182))))))" +" v_181))))))" "(void))))))" "(define-values" "(read-undotted)" "(lambda(init-c_16 in_62 config_54)" "(begin" -"(let-values(((c_109)(read-char/skip-whitespace-and-comments init-c_16 read-one in_62 config_54)))" -"(let-values(((line_12 col_11 pos_124)(port-next-location* in_62 c_109)))" -"(if(eof-object? c_109)" +"(let-values(((c_110)(read-char/skip-whitespace-and-comments init-c_16 read-one in_62 config_54)))" +"(let-values(((line_12 col_11 pos_124)(port-next-location* in_62 c_110)))" +"(if(eof-object? c_110)" "(let-values() eof)" -"(if(not(char? c_109))" +"(if(not(char? c_110))" "(let-values()" -"(let-values(((v_241)(special-value c_109)))" +"(let-values(((v_241)(special-value c_110)))" "(if(1/special-comment? v_241)" "(let-values()(if(read-config-keep-comment? config_54) v_241(read-undotted #f in_62 config_54)))" "(let-values()(coerce v_241 in_62(reading-at config_54 line_12 col_11 pos_124))))))" -"(let-values(((c2_8)(readtable-handler config_54 c_109)))" +"(let-values(((c2_8)(readtable-handler config_54 c_110)))" "(if c2_8" "((lambda(handler_3)" -"(let-values(((v_242)(readtable-apply handler_3 c_109 in_62 config_54 line_12 col_11 pos_124)))" +"(let-values(((v_242)(readtable-apply handler_3 c_110 in_62 config_54 line_12 col_11 pos_124)))" "(retry-special-comment v_242 in_62 config_54)))" " c2_8)" "(let-values()" -"(let-values(((ec_10)(effective-char c_109 config_54)))" +"(let-values(((ec_10)(effective-char c_110 config_54)))" "(let-values((()" "(begin" "(if(not(char-closer? ec_10 config_54))" @@ -54865,10 +55098,10 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((r-config_0)(reading-at(discard-comment config_54) line_12 col_11 pos_124)))" -"(let-values(((tmp_54) ec_10))" +"(let-values(((tmp_56) ec_10))" "(let-values(((index_4)" -"(if(char? tmp_54)" -"(let-values(((codepoint_2)(char->integer tmp_54)))" +"(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)" @@ -54924,13 +55157,13 @@ static const char *startup_source = "(if(unsafe-fx< index_4 1)" "(let-values()" "(let-values(((v_243)" -"(let-values(((c79_1) c_109)" +"(let-values(((c79_1) c_110)" "((in80_1) in_62)" "((r-config81_0) r-config_0)" -"((temp82_4)" -"(if(let-values(((or-part_330)(eq? c_109 ec_10)))" -"(if or-part_330" -" or-part_330" +"((temp82_5)" +"(if(let-values(((or-part_328)(eq? c_110 ec_10)))" +"(if or-part_328" +" or-part_328" "(if(<(char->integer ec_10) 128)" "(char-numeric? ec_10)" " #f)))" @@ -54939,15 +55172,15 @@ static const char *startup_source = "(read-symbol-or-number8.1" " #f" " #f" -" temp82_4" +" temp82_5" " #t" " c79_1" " in80_1" " r-config81_0))))" "(retry-special-comment v_243 in_62 config_54)))" -"(let-values()(read-dispatch c_109 in_62 r-config_0 config_54)))" +"(let-values()(read-dispatch c_110 in_62 r-config_0 config_54)))" "(if(unsafe-fx< index_4 3)" -" (let-values () (read-quote read-one 'quote \"quoting \\\"'\\\"\" c_109 in_62 r-config_0))" +" (let-values () (read-quote read-one 'quote \"quoting \\\"'\\\"\" c_110 in_62 r-config_0))" "(if(unsafe-fx< index_4 4)" "(let-values()" "(if(check-parameter 1/read-accept-quasiquote config_54)" @@ -54956,14 +55189,14 @@ static const char *startup_source = " read-one" " 'quasiquote" " \"quasiquoting \\\"`\\\"\"" -" c_109" +" c_110" " in_62" " r-config_0))" "(let-values()" "(let-values(((in83_0) in_62)" "((r-config84_0) r-config_0)" -" ((temp85_2) \"illegal use of `~a`\")" -"((c86_0) c_109))" +" ((temp85_3) \"illegal use of `~a`\")" +"((c86_0) c_110))" "(reader-error10.1" " #f" " #f" @@ -54973,7 +55206,7 @@ static const char *startup_source = " #f" " in83_0" " r-config84_0" -" temp85_2" +" temp85_3" "(list c86_0))))))" "(if(unsafe-fx< index_4 5)" "(let-values()" @@ -54983,15 +55216,15 @@ static const char *startup_source = "(let-values(((in_66) in_62)" "((skip-count_17) 0)" "((source_43)(read-config-source config_54)))" -"(let-values(((c_110)" +"(let-values(((c_111)" "(peek-char-or-special" " in_66" " skip-count_17" " 'special" " source_43)))" -"(if(eq? c_110 'special)" +"(if(eq? c_111 'special)" "(special1.1 'special)" -" c_110)))))" +" c_111)))))" "(if(eqv? c2_9 '#\\@)" "(begin" "(consume-char in_62 c2_9)" @@ -54999,21 +55232,21 @@ static const char *startup_source = " read-one" " 'unquote-splicing" " \"unquoting `,@`\"" -" c_109" +" c_110" " in_62" " r-config_0))" "(read-quote" " read-one" " 'unquote" " \"unquoting `,`\"" -" c_109" +" c_110" " in_62" " r-config_0))))" "(let-values()" "(let-values(((in87_0) in_62)" "((r-config88_0) r-config_0)" -" ((temp89_5) \"illegal use of `~a`\")" -"((c90_0) c_109))" +" ((temp89_3) \"illegal use of `~a`\")" +"((c90_0) c_110))" "(reader-error10.1" " #f" " #f" @@ -55023,7 +55256,7 @@ static const char *startup_source = " #f" " in87_0" " r-config88_0" -" temp89_5" +" temp89_3" "(list c90_0))))))" "(let-values()" "(wrap" @@ -55033,7 +55266,7 @@ static const char *startup_source = "((temp94_3) '#\\))" "((in95_0) in_62)" "((r-config96_0) r-config_0)" -"((temp97_4) #t))" +"((temp97_3) #t))" "(read-unwrapped-sequence17.1" " #f" " #f" @@ -55041,7 +55274,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp97_4" +" temp97_3" " #t" " #f" " #f" @@ -55061,7 +55294,7 @@ static const char *startup_source = "((r-config99_0) r-config_0)" " ((temp100_2) \"~a\")" "((temp101_3)" -"(indentation-unexpected-closer-message ec_10 c_109 r-config_0)))" +"(indentation-unexpected-closer-message ec_10 c_110 r-config_0)))" "(reader-error10.1" " #f" " #f" @@ -55075,20 +55308,20 @@ static const char *startup_source = "(list temp101_3))))" "(if(unsafe-fx< index_4 8)" "(let-values()" -"(if(let-values(((or-part_368)" +"(if(let-values(((or-part_366)" "(check-parameter 1/read-square-bracket-as-paren config_54)))" -"(if or-part_368" -" or-part_368" +"(if or-part_366" +" or-part_366" "(check-parameter 1/read-square-bracket-with-tag config_54)))" "(let-values()" "(wrap" "(let-values(((read-one102_0) read-one)" "((ec103_0) ec_10)" -"((temp104_3) '#\\[)" -"((temp105_3) '#\\])" +"((temp104_4) '#\\[)" +"((temp105_2) '#\\])" "((in106_0) in_62)" "((r-config107_0) r-config_0)" -"((temp108_4) #t))" +"((temp108_2) #t))" "(read-unwrapped-sequence17.1" " #f" " #f" @@ -55096,14 +55329,14 @@ static const char *startup_source = " #f" " #f" " #f" -" temp108_4" +" temp108_2" " #t" " #f" " #f" " read-one102_0" " ec103_0" -" temp104_3" -" temp105_3" +" temp104_4" +" temp105_2" " in106_0" " r-config107_0))" " in_62" @@ -55112,8 +55345,8 @@ static const char *startup_source = "(let-values()" "(let-values(((in109_0) in_62)" "((r-config110_0) r-config_0)" -" ((temp111_2) \"illegal use of `~a`\")" -"((c112_0) c_109))" +" ((temp111_1) \"illegal use of `~a`\")" +"((c112_0) c_110))" "(reader-error10.1" " #f" " #f" @@ -55123,22 +55356,22 @@ static const char *startup_source = " #f" " in109_0" " r-config110_0" -" temp111_2" +" temp111_1" "(list c112_0))))))" "(let-values()" -"(if(let-values(((or-part_369)" +"(if(let-values(((or-part_367)" "(check-parameter 1/read-square-bracket-as-paren config_54)))" -"(if or-part_369" -" or-part_369" +"(if or-part_367" +" or-part_367" "(check-parameter 1/read-square-bracket-with-tag config_54)))" "(let-values()" "(let-values(((in113_0) in_62)" "((r-config114_0) r-config_0)" " ((temp115_1) \"~a\")" -"((temp116_2)" +"((temp116_0)" "(indentation-unexpected-closer-message" " ec_10" -" c_109" +" c_110" " r-config_0)))" "(reader-error10.1" " #f" @@ -55150,12 +55383,12 @@ static const char *startup_source = " in113_0" " r-config114_0" " temp115_1" -"(list temp116_2))))" +"(list temp116_0))))" "(let-values()" "(let-values(((in117_0) in_62)" "((r-config118_0) r-config_0)" -" ((temp119_1) \"illegal use of `~a`\")" -"((c120_0) c_109))" +" ((temp119_2) \"illegal use of `~a`\")" +"((c120_0) c_110))" "(reader-error10.1" " #f" " #f" @@ -55165,21 +55398,21 @@ static const char *startup_source = " #f" " in117_0" " r-config118_0" -" temp119_1" +" temp119_2" "(list c120_0))))))))" "(if(unsafe-fx< index_4 10)" "(let-values()" -"(if(let-values(((or-part_370)" +"(if(let-values(((or-part_368)" "(check-parameter 1/read-curly-brace-as-paren config_54)))" -"(if or-part_370" -" or-part_370" +"(if or-part_368" +" or-part_368" "(check-parameter 1/read-curly-brace-with-tag config_54)))" "(let-values()" "(wrap" "(let-values(((read-one121_0) read-one)" "((ec122_0) ec_10)" -"((temp123_3) '#\\{)" -"((temp124_5) '#\\})" +"((temp123_4) '#\\{)" +"((temp124_4) '#\\})" "((in125_0) in_62)" "((r-config126_0) r-config_0)" "((temp127_3) #t))" @@ -55196,8 +55429,8 @@ static const char *startup_source = " #f" " read-one121_0" " ec122_0" -" temp123_3" -" temp124_5" +" temp123_4" +" temp124_4" " in125_0" " r-config126_0))" " in_62" @@ -55206,8 +55439,8 @@ static const char *startup_source = "(let-values()" "(let-values(((in128_0) in_62)" "((r-config129_0) r-config_0)" -" ((temp130_4) \"illegal use of `~a`\")" -"((c131_0) c_109))" +" ((temp130_2) \"illegal use of `~a`\")" +"((c131_0) c_110))" "(reader-error10.1" " #f" " #f" @@ -55217,23 +55450,23 @@ static const char *startup_source = " #f" " in128_0" " r-config129_0" -" temp130_4" +" temp130_2" "(list c131_0))))))" "(if(unsafe-fx< index_4 11)" "(let-values()" -"(if(let-values(((or-part_371)" +"(if(let-values(((or-part_369)" "(check-parameter 1/read-curly-brace-as-paren config_54)))" -"(if or-part_371" -" or-part_371" +"(if or-part_369" +" or-part_369" "(check-parameter 1/read-curly-brace-with-tag config_54)))" "(let-values()" "(let-values(((in132_0) in_62)" "((r-config133_0) r-config_0)" -" ((temp134_2) \"~a\")" -"((temp135_1)" +" ((temp134_1) \"~a\")" +"((temp135_2)" "(indentation-unexpected-closer-message" " ec_10" -" c_109" +" c_110" " r-config_0)))" "(reader-error10.1" " #f" @@ -55244,13 +55477,13 @@ static const char *startup_source = " #f" " in132_0" " r-config133_0" -" temp134_2" -"(list temp135_1))))" +" temp134_1" +"(list temp135_2))))" "(let-values()" "(let-values(((in136_0) in_62)" "((r-config137_0) r-config_0)" " ((temp138_2) \"illegal use of `~a`\")" -"((c139_0) c_109))" +"((c139_0) c_110))" "(reader-error10.1" " #f" " #f" @@ -55267,14 +55500,14 @@ static const char *startup_source = "(let-values(((in140_0) in_62)((r-config141_0) r-config_0))" "(read-string5.1 #f #f in140_0 r-config141_0)))" "(let-values()" -"(let-values(((c142_0) c_109)" +"(let-values(((c142_0) c_110)" "((in143_0) in_62)" "((r-config144_0) r-config_0)" -"((temp145_1) 'symbol))" +"((temp145_2) 'symbol))" "(read-symbol-or-number8.1" " #f" " #f" -" temp145_1" +" temp145_2" " #t" " c142_0" " in143_0" @@ -55283,40 +55516,40 @@ static const char *startup_source = "(read-dispatch)" "(lambda(dispatch-c_5 in_67 config_5 orig-config_0)" "(begin" -"(let-values(((c_111)" +"(let-values(((c_112)" "(let-values(((in_68) in_67)((source_44)(read-config-source config_5)))" "(read-char-or-special in_68 special1.1 source_44))))" -"(if(eof-object? c_111)" +"(if(eof-object? c_112)" "(let-values()" "(let-values(((in146_0) in_67)" "((config147_0) config_5)" -"((c148_0) c_111)" -" ((temp149_0) \"bad syntax `~a`\")" +"((c148_0) c_112)" +" ((temp149_1) \"bad syntax `~a`\")" "((dispatch-c150_0) dispatch-c_5))" -"(reader-error10.1 #f #f c148_0 #t #f #f in146_0 config147_0 temp149_0(list dispatch-c150_0))))" -"(if(not(char? c_111))" +"(reader-error10.1 #f #f c148_0 #t #f #f in146_0 config147_0 temp149_1(list dispatch-c150_0))))" +"(if(not(char? c_112))" "(let-values()" "(let-values(((in151_0) in_67)" "((config152_0) config_5)" -"((c153_0) c_111)" +"((c153_0) c_112)" " ((temp154_1) \"bad syntax `~a`\")" "((dispatch-c155_0) dispatch-c_5))" "(reader-error10.1 #f #f c153_0 #t #f #f in151_0 config152_0 temp154_1(list dispatch-c155_0))))" -"(let-values(((c3_9)(readtable-dispatch-handler orig-config_0 c_111)))" +"(let-values(((c3_9)(readtable-dispatch-handler orig-config_0 c_112)))" "(if c3_9" "((lambda(handler_4)" "(let-values(((line_13)(read-config-line config_5)))" "(let-values(((col_12)(read-config-col config_5)))" "(let-values(((pos_125)(read-config-pos config_5)))" -"(let-values(((v_244)(readtable-apply handler_4 c_111 in_67 config_5 line_13 col_12 pos_125)))" +"(let-values(((v_244)(readtable-apply handler_4 c_112 in_67 config_5 line_13 col_12 pos_125)))" "(retry-special-comment v_244 in_67 orig-config_0))))))" " c3_9)" "(let-values()" "(let-values()" -"(let-values(((tmp_55) c_111))" +"(let-values(((tmp_57) c_112))" "(let-values(((index_5)" -"(if(char? tmp_55)" -"(let-values(((codepoint_3)(char->integer tmp_55)))" +"(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" @@ -55425,7 +55658,7 @@ static const char *startup_source = "((config157_0) config_5)" " ((temp158_2) \"bad syntax `~a~a`\")" "((dispatch-c159_0) dispatch-c_5)" -"((c160_0) c_111))" +"((c160_0) c_112))" "(reader-error10.1" " #f" " #f" @@ -55438,7 +55671,7 @@ static const char *startup_source = " temp158_2" "(list dispatch-c159_0 c160_0))))" "(if(unsafe-fx< index_5 2)" -"(let-values()(read-vector-or-graph read-one dispatch-c_5 c_111 in_67 config_5))" +"(let-values()(read-vector-or-graph read-one dispatch-c_5 c_112 in_67 config_5))" "(let-values()" "(let-values(((read-one161_0) read-one)" "((temp162_3) '#\\()" @@ -55482,7 +55715,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in173_0) in_67)" "((config174_0) config_5)" -" ((temp175_0) (format \"~a~a\" dispatch-c_5 c_111)))" +" ((temp175_0) (format \"~a~a\" dispatch-c_5 c_112)))" "(bad-syntax-error18.1 #f #f in173_0 config174_0 temp175_0)))))" "(let-values()" "(if(check-parameter 1/read-curly-brace-as-paren config_5)" @@ -55507,35 +55740,35 @@ static const char *startup_source = "(let-values()" "(let-values(((in182_0) in_67)" "((config183_0) config_5)" -" ((temp184_0) (format \"~a~a\" dispatch-c_5 c_111)))" +" ((temp184_0) (format \"~a~a\" dispatch-c_5 c_112)))" "(bad-syntax-error18.1 #f #f in182_0 config183_0 temp184_0))))))" "(if(unsafe-fx< index_5 6)" "(let-values()(read-struct read-one dispatch-c_5 in_67 config_5))" "(if(unsafe-fx< index_5 7)" "(let-values()(read-box read-one dispatch-c_5 in_67 config_5))" -" (let-values () (read-quote read-one 'syntax \"quoting #'\" c_111 in_67 config_5))))))" +" (let-values () (read-quote read-one 'syntax \"quoting #'\" c_112 in_67 config_5))))))" "(if(unsafe-fx< index_5 12)" "(if(unsafe-fx< index_5 9)" "(let-values()" -" (read-quote read-one 'quasisyntax \"quasiquoting #`\" c_111 in_67 config_5))" +" (read-quote read-one 'quasisyntax \"quasiquoting #`\" c_112 in_67 config_5))" "(if(unsafe-fx< index_5 10)" "(let-values()" "(let-values(((c2_10)" "(let-values(((in_69) in_67)" "((skip-count_18) 0)" "((source_45)(read-config-source config_5)))" -"(let-values(((c_112)" +"(let-values(((c_113)" "(peek-char-or-special" " in_69" " skip-count_18" " 'special" " source_45)))" -"(if(eq? c_112 'special)(special1.1 'special) c_112)))))" +"(if(eq? c_113 'special)(special1.1 'special) c_113)))))" "(if(eqv? c2_10 '#\\@)" "(begin" "(consume-char in_67 c2_10)" -" (read-quote read-one 'unsyntax-splicing \"unquoting #,@\" c_111 in_67 config_5))" -" (read-quote read-one 'unsyntax \"unquoting #,\" c_111 in_67 config_5))))" +" (read-quote read-one 'unsyntax-splicing \"unquoting #,@\" c_112 in_67 config_5))" +" (read-quote read-one 'unsyntax \"unquoting #,\" c_112 in_67 config_5))))" "(if(unsafe-fx< index_5 11)" "(let-values()(read-character in_67 config_5))" "(let-values()" @@ -55550,13 +55783,13 @@ static const char *startup_source = "(let-values(((in_70) in_67)" "((skip-count_19) 0)" "((source_46)(read-config-source config_5)))" -"(let-values(((c_113)" +"(let-values(((c_114)" "(peek-char-or-special" " in_70" " skip-count_19" " 'special" " source_46)))" -"(if(eq? c_113 'special)(special1.1 'special) c_113)))))" +"(if(eq? c_114 'special)(special1.1 'special) c_114)))))" "(if(eqv? '#\\< c2_11)" "(let-values()" "(begin(consume-char in_67 '#\\<)(read-here-string in_67 config_5)))" @@ -55578,7 +55811,7 @@ static const char *startup_source = " temp191_0" "(list dispatch-c192_0)))))))" "(let-values()" -"(let-values(((c193_0) c_111)" +"(let-values(((c193_0) c_112)" "((in194_0) in_67)" "((config195_0) config_5)" "((dispatch-c196_0) dispatch-c_5)" @@ -55604,19 +55837,19 @@ static const char *startup_source = "(let-values(((in_71) in_67)" "((skip-count_20) 0)" "((source_47)(read-config-source config_5)))" -"(let-values(((c_114)" +"(let-values(((c_115)" "(peek-char-or-special" " in_71" " skip-count_20" " 'special" " source_47)))" -"(if(eq? c_114 'special)(special1.1 'special) c_114)))))" +"(if(eq? c_115 'special)(special1.1 'special) c_115)))))" "(if(char-delimiter? c2_12 config_5)" -"(let-values()(wrap #t in_67 config_5 c_111))" +"(let-values()(wrap #t in_67 config_5 c_112))" "(let-values()" "(read-delimited-constant" -" c_111" -"(char=? c_111 '#\\t)" +" c_112" +"(char=? c_112 '#\\t)" " '(#\\r #\\u #\\e)" " #t" " in_67" @@ -55626,29 +55859,29 @@ static const char *startup_source = "(let-values(((in_72) in_67)" "((skip-count_21) 0)" "((source_48)(read-config-source config_5)))" -"(let-values(((c_115)" +"(let-values(((c_116)" "(peek-char-or-special" " in_72" " skip-count_21" " 'special" " source_48)))" -"(if(eq? c_115 'special)(special1.1 'special) c_115)))))" +"(if(eq? c_116 'special)(special1.1 'special) c_116)))))" "(if(char-delimiter? c2_13 config_5)" -"(let-values()(wrap #f in_67 config_5 c_111))" -"(if(let-values(((or-part_353)(char=? c2_13 '#\\x)))" -"(if or-part_353 or-part_353(char=? c2_13 '#\\l)))" +"(let-values()(wrap #f in_67 config_5 c_112))" +"(if(let-values(((or-part_351)(char=? c2_13 '#\\x)))" +"(if or-part_351 or-part_351(char=? c2_13 '#\\l)))" "(let-values()" "(read-fixnum-or-flonum-vector" " read-one" " dispatch-c_5" -" c_111" +" c_112" " c2_13" " in_67" " config_5))" "(let-values()" "(read-delimited-constant" -" c_111" -"(char=? c_111 '#\\f)" +" c_112" +"(char=? c_112 '#\\f)" " '(#\\a #\\l #\\s #\\e)" " #f" " in_67" @@ -55750,11 +55983,11 @@ static const char *startup_source = "(let-values(((in_73) in_67)" "((source_49)(read-config-source config_5)))" "(read-char-or-special in_73 special1.1 source_49))))" -"(let-values(((tmp_56) c2_14))" -"(if(if(equal? tmp_56 '#\\s) #t(equal? tmp_56 '#\\S))" +"(let-values(((tmp_58) c2_14))" +"(if(if(equal? tmp_58 '#\\s) #t(equal? tmp_58 '#\\S))" "(let-values()" "(read-one #f in_67(override-parameter read-case-sensitive config_5 #t)))" -"(if(if(equal? tmp_56 '#\\i) #t(equal? tmp_56 '#\\I))" +"(if(if(equal? tmp_58 '#\\i) #t(equal? tmp_58 '#\\I))" "(let-values()" "(read-one" " #f" @@ -55766,7 +55999,7 @@ static const char *startup_source = "((c2252_0) c2_14)" " ((temp253_0) \"expected `s', `S`, `i`, or `I` after `~a~a`\")" "((dispatch-c254_0) dispatch-c_5)" -"((c255_0) c_111))" +"((c255_0) c_112))" "(reader-error10.1" " #f" " #f" @@ -55780,11 +56013,11 @@ static const char *startup_source = "(list dispatch-c254_0 c255_0))))))))))))" "(if(unsafe-fx< index_5 32)" "(if(unsafe-fx< index_5 31)" -"(let-values()(read-hash read-one dispatch-c_5 c_111 in_67 config_5))" +"(let-values()(read-hash read-one dispatch-c_5 c_112 in_67 config_5))" "(let-values()" "(let-values(((accum-str_12)(accum-string-init! config_5)))" "(let-values((()(begin(accum-string-add! accum-str_12 dispatch-c_5)(values))))" -"(let-values((()(begin(accum-string-add! accum-str_12 c_111)(values))))" +"(let-values((()(begin(accum-string-add! accum-str_12 c_112)(values))))" "(let-values(((c2_15)" "(let-values(((in_74) in_67)" "((source_50)(read-config-source config_5)))" @@ -55793,10 +56026,10 @@ static const char *startup_source = "(if(char? c2_15)" "(let-values()(accum-string-add! accum-str_12 c2_15))" "(void))" -"(let-values(((tmp_57) c2_15))" -"(if(equal? tmp_57 '#\\x)" -"(let-values()(read-regexp c_111 accum-str_12 in_67 config_5))" -"(if(equal? tmp_57 '#\\e)" +"(let-values(((tmp_59) c2_15))" +"(if(equal? tmp_59 '#\\x)" +"(let-values()(read-regexp c_112 accum-str_12 in_67 config_5))" +"(if(equal? tmp_59 '#\\e)" "(let-values()" "(read-extension-reader" " read-one" @@ -55826,7 +56059,7 @@ static const char *startup_source = "(let-values()" "(let-values(((accum-str_13)(accum-string-init! config_5)))" "(let-values((()(begin(accum-string-add! accum-str_13 dispatch-c_5)(values))))" -"(let-values((()(begin(accum-string-add! accum-str_13 c_111)(values))))" +"(let-values((()(begin(accum-string-add! accum-str_13 c_112)(values))))" "(let-values(((c2_16)" "(let-values(((in_75) in_67)" "((source_51)(read-config-source config_5)))" @@ -55835,9 +56068,9 @@ static const char *startup_source = "(if(char? c2_16)" "(let-values()(accum-string-add! accum-str_13 c2_16))" "(void))" -"(let-values(((tmp_58) c2_16))" -"(if(equal? tmp_58 '#\\x)" -"(let-values()(read-regexp c_111 accum-str_13 in_67 config_5))" +"(let-values(((tmp_60) c2_16))" +"(if(equal? tmp_60 '#\\x)" +"(let-values()(read-regexp c_112 accum-str_13 in_67 config_5))" "(let-values()" "(let-values(((in262_0) in_67)" "((config263_0) config_5)" @@ -55885,7 +56118,7 @@ static const char *startup_source = "(let-values()" "(if(check-parameter 1/read-accept-compiled config_5)" "(let-values()" -"(wrap((read-config-read-compiled config_5) in_67) in_67 config_5 c_111))" +"(wrap((read-config-read-compiled config_5) in_67) in_67 config_5 c_112))" "(let-values()" "(let-values(((in276_0) in_67)" "((config277_0) config_5)" @@ -55918,6 +56151,8 @@ static const char *startup_source = "(let-values(((mod_4) mod3_0))" "(let-values(((load?_3)(if load?2_0 load?1_0 #f)))" "(let-values()" +"(let-values()" +"(let-values()" "(let-values((()" "(begin" "(if(module-reference? mod_4)" @@ -55925,11 +56160,11 @@ static const char *startup_source = "(let-values()" "(raise-argument-error 'module-declared? module-reference-str mod_4)))" "(values))))" -"(let-values(((ns_113)(1/current-namespace)))" -"(let-values(((name_67)" -"(let-values(((mod35_0) mod_4)((load?36_0) load?_3))" -"(reference->resolved-module-path32.1 load?36_0 mod35_0))))" -"(if(namespace->module ns_113 name_67) #t #f)))))))))))" +"(let-values(((ns_56)(1/current-namespace)))" +"(let-values(((name_51)" +"(let-values(((mod36_0) mod_4)((load?37_0) load?_3))" +"(reference->resolved-module-path32.1 load?37_0 mod36_0))))" +"(if(namespace->module ns_56 name_51) #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)))))" @@ -55938,17 +56173,20 @@ static const char *startup_source = "(lambda(mod_7)" "(begin" " 'module-predefined?" +"(let-values()" +"(let-values()" "(let-values((()" "(begin" "(if(module-reference? mod_7)" "(void)" "(let-values()(raise-argument-error 'module-predefined? module-reference-str mod_7)))" "(values))))" -"(let-values(((ns_87)(1/current-namespace)))" -"(let-values(((name_1)" -"(let-values(((mod37_0) mod_7)((temp38_3) #f))" -"(reference->resolved-module-path32.1 temp38_3 mod37_0))))" -"(let-values(((m_24)(namespace->module ns_87 name_1)))(if m_24(module-is-predefined? m_24) #f))))))))" +"(let-values(((ns_112)(1/current-namespace)))" +"(let-values(((name_68)" +"(let-values(((mod39_0) mod_7)((temp40_3) #f))" +"(reference->resolved-module-path32.1 temp40_3 mod39_0))))" +"(let-values(((m_24)(namespace->module ns_112 name_68)))" +"(if m_24(module-is-predefined? m_24) #f))))))))))" "(define-values" "(module->)" "(let-values(((module->11_0)" @@ -55956,7 +56194,7 @@ static const char *startup_source = "(begin" " 'module->11" "(let-values(((extract_1) extract8_0))" -"(let-values(((who_29) who9_0))" +"(let-values(((who_30) who9_0))" "(let-values(((mod_8) mod10_0))" "(let-values(((load?_4)(if load?7_0 load?6_0 #f)))" "(let-values()" @@ -55965,18 +56203,18 @@ static const char *startup_source = "(if(module-reference? mod_8)" "(void)" "(let-values()" -"(raise-argument-error who_29 module-reference-str mod_8)))" +"(raise-argument-error who_30 module-reference-str mod_8)))" "(values))))" "(let-values(((m_25)" "(namespace->module/complain" -" who_29" +" who_30" "(1/current-namespace)" -"(let-values(((mod39_0) mod_8)((load?40_0) load?_4))" -"(reference->resolved-module-path32.1 load?40_0 mod39_0)))))" +"(let-values(((mod41_0) mod_8)((load?42_0) load?_4))" +"(reference->resolved-module-path32.1 load?42_0 mod41_0)))))" "(extract_1 m_25))))))))))))" "(case-lambda" -"((extract_2 who_30 mod_9)(begin(module->11_0 extract_2 who_30 mod_9 #f #f)))" -"((extract_3 who_18 mod_10 load?6_1)(module->11_0 extract_3 who_18 mod_10 load?6_1 #t)))))" +"((extract_2 who_31 mod_9)(begin(module->11_0 extract_2 who_31 mod_9 #f #f)))" +"((extract_3 who_32 mod_10 load?6_1)(module->11_0 extract_3 who_32 mod_10 load?6_1 #t)))))" "(define-values" "(1/module->language-info)" "(let-values(((module->language-info16_0)" @@ -55985,13 +56223,17 @@ static const char *startup_source = " 'module->language-info16" "(let-values(((mod_11) mod15_0))" "(let-values(((load?_5)(if load?14_0 load?13_0 #f)))" -"(let-values()(module-> module-language-info 'module->language-info mod_11 load?_5))))))))" +"(let-values()" +"(let-values()" +"(let-values()" +"(module-> module-language-info 'module->language-info mod_11 load?_5))))))))))" "(case-lambda" "((mod_12)(begin 'module->language-info(module->language-info16_0 mod_12 #f #f)))" "((mod_13 load?13_1)(module->language-info16_0 mod_13 load?13_1 #t)))))" "(define-values" "(1/module->imports)" -"(lambda(mod_14)(begin 'module->imports(module-> module-requires 'module->imports mod_14))))" +"(lambda(mod_14)" +"(begin 'module->imports(let-values()(let-values()(module-> module-requires 'module->imports mod_14))))))" "(define-values" "(1/module->exports)" "(lambda(mod_15)" @@ -56014,13 +56256,13 @@ static const char *startup_source = " mod_16))))" "(define-values" "(1/module-provide-protected?)" -"(lambda(mod_17 sym_92)" +"(lambda(mod_17 sym_83)" "(begin" " 'module-provide-protected?" "(module->" "(lambda(m_28)" -"(let-values(((b/p_3)(hash-ref(module-provides m_28) sym_92 #f)))" -"(let-values(((or-part_295)(not b/p_3)))(if or-part_295 or-part_295(provided-as-protected? b/p_3)))))" +"(let-values(((b/p_3)(hash-ref(module-provides m_28) sym_83 #f)))" +"(let-values(((or-part_32)(not b/p_3)))(if or-part_32 or-part_32(provided-as-protected? b/p_3)))))" " 'module-provide-protected?" " mod_17))))" "(define-values" @@ -56030,30 +56272,35 @@ static const char *startup_source = "(begin" " 'module->namespace21" "(let-values(((mod_18) mod20_0))" -"(let-values(((ns_48)(if ns19_1 ns18_2(1/current-namespace))))" +"(let-values(((ns_113)(if ns19_1 ns18_2(1/current-namespace))))" +"(let-values()" +"(let-values()" "(let-values()" "(let-values((()" "(begin" "(if(module-reference? mod_18)" "(void)" "(let-values()" -"(raise-argument-error 'module->namespace module-reference-str mod_18)))" +"(raise-argument-error" +" 'module->namespace" +" module-reference-str" +" mod_18)))" "(values))))" "(let-values((()" "(begin" -"(if(1/namespace? ns_48)" +"(if(1/namespace? ns_113)" "(void)" "(let-values()" -" (raise-argument-error 'module->namespace \"namespace?\" ns_48)))" +" (raise-argument-error 'module->namespace \"namespace?\" ns_113)))" "(values))))" -"(let-values(((name_68)" -"(let-values(((mod44_0) mod_18)((temp45_1) #t))" -"(reference->resolved-module-path32.1 temp45_1 mod44_0))))" -"(let-values(((phase_129)(namespace-phase ns_48)))" +"(let-values(((name_69)" +"(let-values(((mod49_0) mod_18)((temp50_4) #t))" +"(reference->resolved-module-path32.1 temp50_4 mod49_0))))" +"(let-values(((phase_128)(namespace-phase ns_113)))" "(let-values(((m-ns_17)" -"(let-values(((ns46_0) ns_48)" -"((name47_0) name_68)" -"((phase48_2) phase_129))" +"(let-values(((ns51_1) ns_113)" +"((name52_0) name_69)" +"((phase53_0) phase_128))" "(namespace->module-namespace82.1" " #f" " #f" @@ -56061,40 +56308,42 @@ static const char *startup_source = " #f" " #f" " #f" -" ns46_0" -" name47_0" -" phase48_2))))" +" ns51_1" +" name52_0" +" phase53_0))))" "(begin" "(if m-ns_17" "(void)" "(let-values()" "(begin" -"(namespace->module/complain 'module->namespace ns_48 name_68)" +"(namespace->module/complain 'module->namespace ns_113 name_69)" "(raise-arguments-error" " 'module->namespace" -" \"module not instantiated in the current namespace\"" -" \"name\"" -" name_68))))" -"(if(inspector-superior?(current-code-inspector)(namespace-inspector m-ns_17))" +" \"module not instantiated in the current namespace\"" +" \"name\"" +" name_69))))" +"(if(inspector-superior?" +"(current-code-inspector)" +"(namespace-inspector m-ns_17))" "(void)" "(let-values()" "(raise-arguments-error" " 'module->namespace" -" \"current code inspector cannot access namespace of module\"" -" \"module name\"" -" name_68)))" +" \"current code inspector cannot access namespace of module\"" +" \"module name\"" +" name_69)))" "(if(namespace-get-root-expand-ctx m-ns_17)" "(void)" "(let-values()" "(namespace-set-root-expand-ctx!" " m-ns_17" -"(let-values(((temp49_2)(namespace-mpi m-ns_17)))" -"(make-root-expand-context13.1 #f #f #f #f #f #f #f #f temp49_2)))))" -"(let-values(((ns41_3) ns_48)" -"((temp42_5)(namespace-mpi m-ns_17))" -"((phase43_3) phase_129))" -"(namespace-module-make-available!112.1 #f #f ns41_3 temp42_5 phase43_3))" -" m-ns_17)))))))))))))" +"(let-values(((temp54_4)(namespace-mpi m-ns_17)))" +"(make-root-expand-context13.1 #f #f #f #f #f #f #f #f temp54_4)))))" +"(let-values(((ns46_0) ns_113)" +"((temp47_3)(namespace-mpi m-ns_17))" +"((phase48_2) phase_128))" +"(namespace-module-make-available!112.1 #f #f ns46_0 temp47_3 phase48_2))" +" m-ns_17)))))))))))))))" "(case-lambda" "((mod_19)(begin 'module->namespace(module->namespace21_0 mod_19 #f #f)))" "((mod_20 ns18_3)(module->namespace21_0 mod_20 ns18_3 #t)))))" @@ -56104,19 +56353,21 @@ 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_12) insp25_0))" "(let-values(((mod_21) mod26_0))" "(let-values(((ns_114)(if ns24_1 ns23_0(1/current-namespace))))" "(let-values()" +"(let-values()" +"(let-values()" "(let-values((()" "(begin" -"(if(inspector? insp_18)" +"(if(inspector? insp_12)" "(void)" "(let-values()" "(raise-argument-error" " 'namespace-unprotect-module" -" \"inspector?\"" -" insp_18)))" +" \"inspector?\"" +" insp_12)))" "(values))))" "(let-values((()" "(begin" @@ -56125,7 +56376,7 @@ static const char *startup_source = "(let-values()" "(raise-argument-error" " 'namespace-unprotect-module" -" \"module-path?\"" +" \"module-path?\"" " mod_21)))" "(values))))" "(let-values((()" @@ -56135,17 +56386,17 @@ static const char *startup_source = "(let-values()" "(raise-argument-error" " 'namespace-unprotect-module" -" \"namespace?\"" +" \"namespace?\"" " ns_114)))" "(values))))" -"(let-values(((name_69)" -"(let-values(((mod50_0) mod_21)((temp51_3) #f))" -"(reference->resolved-module-path32.1 temp51_3 mod50_0))))" -"(let-values(((phase_138)(namespace-phase ns_114)))" -"(let-values(((m-ns_18)" -"(let-values(((ns52_0) ns_114)" -"((name53_0) name_69)" -"((phase54_2) phase_138))" +"(let-values(((name_70)" +"(let-values(((mod56_0) mod_21)((temp57_1) #f))" +"(reference->resolved-module-path32.1 temp57_1 mod56_0))))" +"(let-values(((phase_136)(namespace-phase ns_114)))" +"(let-values(((m-ns_15)" +"(let-values(((ns58_0) ns_114)" +"((name59_0) name_70)" +"((phase60_0) phase_136))" "(namespace->module-namespace82.1" " #f" " #f" @@ -56153,44 +56404,44 @@ static const char *startup_source = " #f" " #f" " #f" -" ns52_0" -" name53_0" -" phase54_2))))" +" ns58_0" +" name59_0" +" phase60_0))))" "(begin" -"(if m-ns_18" +"(if m-ns_15" "(void)" "(let-values()" "(raise-arguments-error" " 'namespace-unprotect-module" -" \"module not instantiated\"" -" \"module name\"" -" name_69)))" -"(if(inspector-superior? insp_18(namespace-inspector m-ns_18))" +" \"module not instantiated\"" +" \"module name\"" +" name_70)))" +"(if(inspector-superior? insp_12(namespace-inspector m-ns_15))" "(let-values()" "(set-namespace-inspector!" -" m-ns_18" +" m-ns_15" "(make-inspector(current-code-inspector))))" -"(void)))))))))))))))))" +"(void)))))))))))))))))))" "(case-lambda" -"((insp_13 mod_22)(begin 'namespace-unprotect-module(namespace-unprotect-module27_0 insp_13 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_31 ns_115 name_70)" +"(lambda(who_33 ns_115 name_71)" "(begin" -"(let-values(((or-part_372)(namespace->module ns_115 name_70)))" -"(if or-part_372" -" or-part_372" -" (raise-arguments-error who_31 \"unknown module in the current namespace\" \"name\" name_70))))))" +"(let-values(((or-part_225)(namespace->module ns_115 name_71)))" +"(if or-part_225" +" or-part_225" +" (raise-arguments-error who_33 \"unknown module in the current namespace\" \"name\" name_71))))))" "(define-values" "(module-reference?)" "(lambda(mod_24)" "(begin" -"(let-values(((or-part_373)(1/module-path? mod_24)))" -"(if or-part_373" -" or-part_373" -"(let-values(((or-part_136)(1/module-path-index? mod_24)))" -"(if or-part_136 or-part_136(1/resolved-module-path? mod_24))))))))" +"(let-values(((or-part_261)(1/module-path? mod_24)))" +"(if or-part_261" +" or-part_261" +"(let-values(((or-part_370)(1/module-path-index? mod_24)))" +"(if or-part_370 or-part_370(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)" @@ -56203,8 +56454,8 @@ static const char *startup_source = "(if(1/resolved-module-path? mod_25)" "(let-values() mod_25)" "(let-values()" -"(let-values(((mpi_48)(if(1/module-path-index? mod_25) mod_25(1/module-path-index-join mod_25 #f))))" -"(1/module-path-index-resolve mpi_48 load?_6))))))))))" +"(let-values(((mpi_49)(if(1/module-path-index? mod_25) mod_25(1/module-path-index-join mod_25 #f))))" +"(1/module-path-index-resolve mpi_49 load?_6))))))))))" "(define-values" "(read-syntax$1)" "(lambda(src_0 in_77)" @@ -56214,22 +56465,22 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-flush-stdout in_77)" -"(let-values(((in23_2) in_77)((temp24_11) #t)((src25_0) src_0))" -"(read*14.1 temp24_11 #f #f #f #f #f #f #f #f src25_0 #t in23_2))))" +"(let-values(((in23_2) in_77)((temp24_10) #t)((src25_0) src_0))" +"(read*14.1 temp24_10 #f #f #f #f #f #f #f #f src25_0 #t in23_2))))" "(let-values()(values((port-read-handler in_77) in_77 src_0)))))))" "(define-values" "(read-syntax/recursive$1)" -"(lambda(src_1 in_78 start_58 readtable_4 graph?_1)" +"(lambda(src_1 in_78 start_59 readtable_4 graph?_1)" "(begin" " 'read-syntax/recursive" "(let-values(((in26_1) in_78)" "((temp27_8) #t)" -"((temp28_5) #t)" +"((temp28_6) #t)" "((src29_0) src_1)" -"((start30_0) start_58)" +"((start30_0) start_59)" "((readtable31_1) readtable_4)" "((temp32_5)(not graph?_1)))" -"(read*14.1 temp27_8 start30_0 #t temp32_5 #t readtable31_1 #t temp28_5 #t src29_0 #t in26_1)))))" +"(read*14.1 temp27_8 start30_0 #t temp32_5 #t readtable31_1 #t temp28_6 #t src29_0 #t in26_1)))))" "(define-values" "(read$1)" "(lambda(in_11)" @@ -56243,16 +56494,16 @@ static const char *startup_source = "(let-values()(values((port-read-handler in_11) in_11)))))))" "(define-values" "(read/recursive$1)" -"(lambda(in_6 start_59 readtable_5 graph?_2)" +"(lambda(in_6 start_60 readtable_5 graph?_2)" "(begin" " 'read/recursive" "(let-values(((in35_0) in_6)" "((temp36_7) #f)" "((temp37_3) #t)" -"((start38_0) start_59)" +"((start38_0) start_60)" "((readtable39_0) readtable_5)" -"((temp40_3)(not graph?_2)))" -"(read*14.1 temp36_7 start38_0 #t temp40_3 #t readtable39_0 #t temp37_3 #t #f #f in35_0)))))" +"((temp40_4)(not graph?_2)))" +"(read*14.1 temp36_7 start38_0 #t temp40_4 #t readtable39_0 #t temp37_3 #t #f #f in35_0)))))" "(define-values" "(read*14.1)" "(lambda(for-syntax?1_0" @@ -56282,7 +56533,7 @@ static const char *startup_source = "((for-syntax?42_0) for-syntax?_11)" "((recursive?43_0) recursive?_1)" "((source44_0) source_52)" -"((temp45_2)(if for-syntax?_11 read-to-syntax #f))" +"((temp45_1)(if for-syntax?_11 read-to-syntax #f))" "((init-c46_0) init-c_17)" "((readtable47_0) readtable_6)" "((local-graph?48_0) local-graph?_2)" @@ -56318,7 +56569,7 @@ static const char *startup_source = " #t" " source44_0" " #t" -" temp45_2" +" temp45_1" " #t" " in41_1))))))))))))))" "(define-values" @@ -56361,10 +56612,10 @@ static const char *startup_source = "(let-values(((content63_0)(datum-intern-literal s-exp_4))" "((srcloc64_0) srcloc_11)" "((props65_0)" -"(let-values(((tmp_59) rep_1))" -"(if(equal? tmp_59 '#\\[)" +"(let-values(((tmp_61) rep_1))" +"(if(equal? tmp_61 '#\\[)" "(let-values() original-square-props)" -"(if(equal? tmp_59 '#\\{)" +"(if(equal? tmp_61 '#\\{)" "(let-values() original-curly-props)" "(let-values() original-props))))))" "(syntax1.1" @@ -56387,15 +56638,15 @@ 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_188 srcloc_12)" +"(lambda(for-syntax?_12 v_246 srcloc_12)" "(begin" "(if(not for-syntax?_12)" -"(let-values()(if(syntax?$1 v_188)(let-values()(syntax->datum$1 v_188))(let-values() v_188)))" -"(let-values()(datum->syntax$1 #f v_188(if srcloc_12(to-srcloc-stx srcloc_12) #f)))))))" +"(let-values()(if(syntax?$1 v_246)(let-values()(syntax->datum$1 v_246))(let-values() v_246)))" +"(let-values()(datum->syntax$1 #f v_246(if srcloc_12(to-srcloc-stx srcloc_12) #f)))))))" "(define-values" "(read-coerce-key)" -"(lambda(for-syntax?_13 k_41)" -"(begin(if for-syntax?_13(let-values()(datum-intern-literal k_41))(let-values() k_41)))))" +"(lambda(for-syntax?_13 k_42)" +"(begin(if for-syntax?_13(let-values()(datum-intern-literal k_42))(let-values() k_42)))))" "(define-values(default-read-handler) #f)" "(define-values" "(default-read-handler?)" @@ -56421,7 +56672,7 @@ static const char *startup_source = "(begin" " 'dynamic-require-reader21" "(let-values(((mod-path_30) mod-path19_0))" -"(let-values(((sym_93) 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()" @@ -56433,11 +56684,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_93 fail-thunk_1)))" -"(1/dynamic-require mod-path_30 sym_93 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_94)(begin(dynamic-require-reader21_0 mod-path_31 sym_94 #f #f)))" -"((mod-path_32 sym_95 fail-thunk17_1)(dynamic-require-reader21_0 mod-path_32 sym_95 fail-thunk17_1 #t)))))" +"((mod-path_31 sym_93)(begin(dynamic-require-reader21_0 mod-path_31 sym_93 #f #f)))" +"((mod-path_32 sym_94 fail-thunk17_1)(dynamic-require-reader21_0 mod-path_32 sym_94 fail-thunk17_1 #t)))))" "(define-values" "(1/read-syntax)" "(let-values(((read-syntax5_0)" @@ -56447,11 +56698,13 @@ static const char *startup_source = "(let-values(((src_0)(if src3_0 src1_0(object-name(current-input-port)))))" "(let-values(((in_77)(if in4_2 in2_0(current-input-port))))" "(let-values()" +"(let-values()" +"(let-values()" "(begin" "(if(input-port? in_77)" "(void)" -" (let-values () (raise-argument-error 'read-syntax \"input-port?\" in_77)))" -"(read-syntax$1 src_0 in_77)))))))))" +" (let-values () (raise-argument-error 'read-syntax \"input-port?\" in_77)))" +"(read-syntax$1 src_0 in_77)))))))))))" "(case-lambda" "(()(begin 'read-syntax(read-syntax5_0 #f #f #f #f)))" "((src_2 in2_1)(read-syntax5_0 src_2 in2_1 #t #t))" @@ -56460,7 +56713,7 @@ static const char *startup_source = "(1/read-syntax/recursive)" "(let-values(((read-syntax/recursive17_0)" "(lambda(src7_0" -" in8_3" +" in8_0" " start9_0" " readtable10_0" " graph?11_0" @@ -56472,34 +56725,44 @@ static const char *startup_source = "(begin" " 'read-syntax/recursive17" "(let-values(((src_3)(if src12_0 src7_0(object-name(current-input-port)))))" -"(let-values(((in_83)(if in13_3 in8_3(current-input-port))))" -"(let-values(((start_60)(if start14_0 start9_0 #f)))" +"(let-values(((in_30)(if in13_3 in8_0(current-input-port))))" +"(let-values(((start_61)(if start14_0 start9_0 #f)))" "(let-values(((readtable_7)(if readtable15_0 readtable10_0(1/current-readtable))))" "(let-values(((graph?_3)(if graph?16_0 graph?11_0 #t)))" "(let-values()" +"(let-values()" +"(let-values()" "(begin" -"(if(input-port? in_83)" -"(void)" -" (let-values () (raise-argument-error 'read-syntax/recursive \"input-port?\" in_83)))" -"(if(let-values(((or-part_374)(char? start_60)))" -"(if or-part_374 or-part_374(not start_60)))" +"(if(input-port? in_30)" "(void)" "(let-values()" -" (raise-argument-error 'read-syntax/recursive \"(or/c char? #f)\" start_60)))" -"(if(let-values(((or-part_176)(1/readtable? readtable_7)))" -"(if or-part_176 or-part_176(not readtable_7)))" +" (raise-argument-error 'read-syntax/recursive \"input-port?\" in_30)))" +"(if((lambda(x_89)" +"(let-values(((or-part_71)(not x_89)))" +"(if or-part_71 or-part_71(char? x_89))))" +" start_61)" "(void)" "(let-values()" -" (raise-argument-error 'read-syntax/recursive \"(or/c readtable? #f)\" readtable_7)))" -"(read-syntax/recursive$1 src_3 in_83 start_60 readtable_7 graph?_3))))))))))))" +" (raise-argument-error 'read-syntax/recursive \"(or/c char? #f)\" start_61)))" +"(if((lambda(x_90)" +"(let-values(((or-part_73)(not x_90)))" +"(if or-part_73 or-part_73(1/readtable? x_90))))" +" readtable_7)" +"(void)" +"(let-values()" +"(raise-argument-error" +" 'read-syntax/recursive" +" \"(or/c readtable? #f)\"" +" readtable_7)))" +"(read-syntax/recursive$1 src_3 in_30 start_61 readtable_7 graph?_3))))))))))))))" "(case-lambda" "(()(begin 'read-syntax/recursive(read-syntax/recursive17_0 #f #f #f #f #f #f #f #f #f #f)))" -"((src_4 in_12 start_61 readtable_8 graph?11_1)" -"(read-syntax/recursive17_0 src_4 in_12 start_61 readtable_8 graph?11_1 #t #t #t #t #t))" -"((src_5 in_84 start_62 readtable10_1)" -"(read-syntax/recursive17_0 src_5 in_84 start_62 readtable10_1 #f #t #t #t #t #f))" +"((src_4 in_83 start_62 readtable_8 graph?11_1)" +"(read-syntax/recursive17_0 src_4 in_83 start_62 readtable_8 graph?11_1 #t #t #t #t #t))" +"((src_5 in_84 start_63 readtable10_1)" +"(read-syntax/recursive17_0 src_5 in_84 start_63 readtable10_1 #f #t #t #t #t #f))" "((src_6 in_85 start9_1)(read-syntax/recursive17_0 src_6 in_85 start9_1 #f #f #t #t #t #f #f))" -"((src_7 in8_4)(read-syntax/recursive17_0 src_7 in8_4 #f #f #f #t #t #f #f #f))" +"((src_7 in8_3)(read-syntax/recursive17_0 src_7 in8_3 #f #f #f #t #t #f #f #f))" "((src7_1)(read-syntax/recursive17_0 src7_1 #f #f #f #f #t #f #f #f #f)))))" "(define-values" "(1/read)" @@ -56507,184 +56770,120 @@ static const char *startup_source = "(lambda(in19_0 in20_2)" "(begin" " 'read21" -"(let-values(((in_23)(if in20_2 in19_0(current-input-port))))" +"(let-values(((in_86)(if in20_2 in19_0(current-input-port))))" +"(let-values()" "(let-values()" -"(begin" -"(if(input-port? in_23)" -"(void)" -" (let-values () (raise-argument-error 'read \"input-port?\" in_23)))" -"(read$1 in_23))))))))" -"(case-lambda(()(begin 'read(read21_0 #f #f)))((in19_1)(read21_0 in19_1 #t)))))" -"(define-values" -"(1/read/recursive)" -"(let-values(((read/recursive31_0)" -"(lambda(in23_3 start24_0 readtable25_0 graph?26_0 in27_2 start28_1 readtable29_0 graph?30_0)" -"(begin" -" 'read/recursive31" -"(let-values(((in_86)(if in27_2 in23_3(current-input-port))))" -"(let-values(((start_63)(if start28_1 start24_0 #f)))" -"(let-values(((readtable_9)(if readtable29_0 readtable25_0(1/current-readtable))))" -"(let-values(((graph?_4)(if graph?30_0 graph?26_0 #t)))" "(let-values()" "(begin" "(if(input-port? in_86)" "(void)" -" (let-values () (raise-argument-error 'read/recursive \"input-port?\" in_86)))" -"(if(let-values(((or-part_171)(char? start_63)))" -"(if or-part_171 or-part_171(not start_63)))" +" (let-values () (raise-argument-error 'read \"input-port?\" in_86)))" +"(read$1 in_86))))))))))" +"(case-lambda(()(begin 'read(read21_0 #f #f)))((in19_1)(read21_0 in19_1 #t)))))" +"(define-values" +"(1/read/recursive)" +"(let-values(((read/recursive31_0)" +"(lambda(in23_1 start24_0 readtable25_0 graph?26_0 in27_2 start28_1 readtable29_0 graph?30_0)" +"(begin" +" 'read/recursive31" +"(let-values(((in_53)(if in27_2 in23_1(current-input-port))))" +"(let-values(((start_38)(if start28_1 start24_0 #f)))" +"(let-values(((readtable_9)(if readtable29_0 readtable25_0(1/current-readtable))))" +"(let-values(((graph?_4)(if graph?30_0 graph?26_0 #t)))" +"(let-values()" +"(let-values()" +"(let-values()" +"(begin" +"(if(input-port? in_53)" "(void)" -" (let-values () (raise-argument-error 'read/recursive \"(or/c char? #f)\" start_63)))" -"(if(let-values(((or-part_172)(1/readtable? readtable_9)))" -"(if or-part_172 or-part_172(not readtable_9)))" +" (let-values () (raise-argument-error 'read/recursive \"input-port?\" in_53)))" +"(if((lambda(x_19)" +"(let-values(((or-part_93)(not x_19)))" +"(if or-part_93 or-part_93(char? x_19))))" +" start_38)" +"(void)" +" (let-values () (raise-argument-error 'read/recursive \"(or/c char? #f)\" start_38)))" +"(if((lambda(x_91)" +"(let-values(((or-part_94)(not x_91)))" +"(if or-part_94 or-part_94(1/readtable? x_91))))" +" readtable_9)" "(void)" "(let-values()" -" (raise-argument-error 'read/recursive \"(or/c readtable? #f)\" readtable_9)))" -"(read/recursive$1 in_86 start_63 readtable_9 graph?_4)))))))))))" +" (raise-argument-error 'read/recursive \"(or/c readtable? #f)\" readtable_9)))" +"(read/recursive$1 in_53 start_38 readtable_9 graph?_4)))))))))))))" "(case-lambda" "(()(begin 'read/recursive(read/recursive31_0 #f #f #f #f #f #f #f #f)))" -"((in_36 start_64 readtable_10 graph?26_1)(read/recursive31_0 in_36 start_64 readtable_10 graph?26_1 #t #t #t #t))" -"((in_87 start_65 readtable25_1)(read/recursive31_0 in_87 start_65 readtable25_1 #f #t #t #t #f))" -"((in_88 start24_1)(read/recursive31_0 in_88 start24_1 #f #f #t #t #f #f))" -"((in23_4)(read/recursive31_0 in23_4 #f #f #f #t #f #f #f)))))" +"((in_87 start_64 readtable_10 graph?26_1)(read/recursive31_0 in_87 start_64 readtable_10 graph?26_1 #t #t #t #t))" +"((in_88 start_65 readtable25_1)(read/recursive31_0 in_88 start_65 readtable25_1 #f #t #t #t #f))" +"((in_7 start24_1)(read/recursive31_0 in_7 start24_1 #f #f #t #t #f #f))" +"((in23_3)(read/recursive31_0 in23_3 #f #f #f #t #f #f #f)))))" "(define-values" "(1/read-language)" "(let-values(((read-language37_0)" "(lambda(in33_3 fail-thunk34_0 in35_1 fail-thunk36_0)" "(begin" " 'read-language37" -"(let-values(((in_7)(if in35_1 in33_3(current-input-port))))" +"(let-values(((in_57)(if in35_1 in33_3(current-input-port))))" "(let-values(((fail-thunk_2)(if fail-thunk36_0 fail-thunk34_0 read-language-fail-thunk)))" "(let-values()" +"(let-values()" +"(let-values()" "(begin" -"(if(input-port? in_7)" +"(if(input-port? in_57)" "(void)" -" (let-values () (raise-argument-error 'read-language \"input-port?\" in_7)))" -"(if(if(procedure? fail-thunk_2)(procedure-arity-includes? fail-thunk_2 0) #f)" +" (let-values () (raise-argument-error 'read-language \"input-port?\" in_57)))" +"(if((lambda(p_43)(if(procedure? p_43)(procedure-arity-includes? p_43 0) #f))" +" fail-thunk_2)" "(void)" "(let-values()" -" (raise-argument-error 'read-language \"(procedure-arity-includes?/c 0)\" fail-thunk_2)))" +"(raise-argument-error" +" 'read-language" +" \"(procedure-arity-includes/c 0)\"" +" fail-thunk_2)))" "(read-language$1" -" in_7" -"(if(eq? fail-thunk_2 read-language-fail-thunk) #f fail-thunk_2))))))))))" +" in_57" +"(if(eq? fail-thunk_2 read-language-fail-thunk) #f fail-thunk_2))))))))))))" "(case-lambda" "(()(begin 'read-language(read-language37_0 #f #f #f #f)))" -"((in_89 fail-thunk34_1)(read-language37_0 in_89 fail-thunk34_1 #t #t))" +"((in_58 fail-thunk34_1)(read-language37_0 in_58 fail-thunk34_1 #t #t))" "((in33_4)(read-language37_0 in33_4 #f #t #f)))))" " (define-values (read-language-fail-thunk) (lambda () (begin (error \"fail\"))))" "(define-values" -"(eval$1)" -"(case-lambda" -"((s_0)(begin 'eval((1/current-eval)(intro s_0))))" -"((s_153 ns_59)" -"(begin" -" (if (1/namespace? ns_59) (void) (let-values () (raise-argument-error 'eval \"namespace?\" ns_59)))" -"(with-continuation-mark" -" parameterization-key" -"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_59)" -"(let-values()((1/current-eval)(intro s_153 ns_59))))))))" -"(define-values" -"(1/eval-syntax)" -"(case-lambda" -"((s_1)" -"(begin" -" 'eval-syntax" -"(begin" -" (if (syntax?$1 s_1) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_1)))" -"((1/current-eval) s_1))))" -"((s_167 ns_116)" -"(begin" -" (if (syntax?$1 s_167) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_167)))" -" (if (1/namespace? ns_116) (void) (let-values () (raise-argument-error 'eval-syntax \"namespace?\" ns_116)))" -"(with-continuation-mark" -" parameterization-key" -"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_116)" -"(let-values()((1/current-eval) s_167)))))))" -"(define-values(compile$1)(lambda(s_2)(begin 'compile((1/current-compile)(intro s_2) #f))))" -"(define-values" -"(1/compile-syntax)" -"(lambda(s_3)" -"(begin" -" 'compile-syntax" -"(begin" -" (if (syntax?$1 s_3) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_3)))" -"((1/current-compile) s_3 #f)))))" -"(define-values(1/expand)(lambda(s_168)(begin 'expand(expand$1(intro s_168)(1/current-namespace) #t))))" -"(define-values" -"(1/expand-syntax)" -"(lambda(s_144)" -"(begin" -" 'expand-syntax" -"(begin" -" (if (syntax?$1 s_144) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_144)))" -"(expand$1 s_144(1/current-namespace) #t)))))" -"(define-values(1/expand-once)(lambda(s_67)(begin 'expand-once(expand-once$1(intro s_67)))))" -"(define-values" -"(1/expand-syntax-once)" -"(lambda(s_9)" -"(begin" -" 'expand-syntax-once" -"(begin" -" (if (syntax?$1 s_9) (void) (let-values () (raise-argument-error 'expand-syntax-once \"syntax?\" s_9)))" -"(expand-once$1 s_9)))))" -"(define-values" -"(1/expand-to-top-form)" -"(lambda(s_470)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_470)))))" -"(define-values" -"(1/expand-syntax-to-top-form)" -"(lambda(s_419)" -"(begin" -" 'expand-syntax-to-top-form" -"(begin" -" (if (syntax?$1 s_419) (void) (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_419)))" -"(expand-to-top-form$1 s_419)))))" -"(define-values" -"(intro)" -"(let-values(((intro4_0)" -"(lambda(given-s3_0 ns1_6 ns2_1)" -"(begin" -" 'intro4" -"(let-values(((given-s_1) given-s3_0))" -"(let-values(((ns_52)(if ns2_1 ns1_6(1/current-namespace))))" -"(let-values()" -"(let-values(((s_10)(if(syntax?$1 given-s_1) given-s_1(1/datum->syntax #f given-s_1))))" -"(1/namespace-syntax-introduce s_10 ns_52)))))))))" -"(case-lambda((given-s_2)(begin(intro4_0 given-s_2 #f #f)))((given-s_3 ns1_7)(intro4_0 given-s_3 ns1_7 #t)))))" -"(define-values" "(declare-primitive-module!)" -"(lambda(name_71 inst_7 in-ns_0 protected_0 cross-phase-persistent?_3)" +"(lambda(name_72 inst_7 in-ns_0 protected_0 cross-phase-persistent?_3)" "(begin" -"(let-values(((mpi_49)(1/module-path-index-join(list 'quote name_71) #f)))" +"(let-values(((mpi_50)(1/module-path-index-join(list 'quote name_72) #f)))" "(let-values(((in-ns1_0) in-ns_0)" "((temp2_6)" "(let-values(((temp4_0)(1/current-module-declare-source))" "((cross-phase-persistent?5_0) cross-phase-persistent?_3)" "((temp6_4)(zero?(hash-count protected_0)))" -"((mpi7_0) mpi_49)" +"((mpi7_0) mpi_50)" "((temp8_5)" "(hasheqv" " 0" -"(let-values(((lst_79)(1/instance-variable-names inst_7)))" +"(let-values(((lst_78)(1/instance-variable-names inst_7)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_79)))" -"((letrec-values(((for-loop_94)" -"(lambda(table_213 lst_80)" +"(let-values()(check-list lst_78)))" +"((letrec-values(((for-loop_96)" +"(lambda(table_212 lst_79)" "(begin" " 'for-loop" -"(if(pair? lst_80)" -"(let-values(((sym_60)(unsafe-car lst_80))" -"((rest_36)(unsafe-cdr lst_80)))" -"(let-values(((table_219)" -"(let-values(((table_174) table_213))" +"(if(pair? lst_79)" +"(let-values(((sym_60)(unsafe-car lst_79))" +"((rest_36)(unsafe-cdr lst_79)))" +"(let-values(((table_218)" +"(let-values(((table_174) table_212))" "(let-values(((table_175)" "(let-values()" -"(let-values(((key_32" -" val_77)" +"(let-values(((key_34" +" val_81)" "(let-values()" "(let-values(((binding_27)" "(let-values(((mpi10_0)" -" mpi_49)" +" mpi_50)" "((temp11_7)" " 0)" "((sym12_0)" @@ -56724,17 +56923,17 @@ static const char *startup_source = " binding_27))))))" "(hash-set" " table_174" -" key_32" -" val_77)))))" +" key_34" +" val_81)))))" "(values table_175)))))" "(if(not #f)" -"(for-loop_94 table_219 rest_36)" -" table_219)))" -" table_213)))))" -" for-loop_94)" +"(for-loop_96 table_218 rest_36)" +" table_218)))" +" table_212)))))" +" for-loop_96)" " '#hash()" -" lst_79)))))" -"((temp9_6)" +" lst_78)))))" +"((temp9_7)" "(lambda(data-box_5" " ns_46" " phase-shift_20" @@ -56751,27 +56950,27 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_23)))" "((letrec-values(((for-loop_20)" -"(lambda(lst_268)" +"(lambda(lst_267)" "(begin" " 'for-loop" -"(if(pair? lst_268)" -"(let-values(((sym_96)(unsafe-car lst_268))" -"((rest_176)(unsafe-cdr lst_268)))" +"(if(pair? lst_267)" +"(let-values(((sym_95)(unsafe-car lst_267))" +"((rest_176)(unsafe-cdr lst_267)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((val_78)" +"(let-values(((val_82)" "(1/instance-variable-value" " inst_7" -" sym_96)))" +" sym_95)))" "(namespace-set-variable!" " ns_46" " 0" -" sym_96" -" val_78)))" +" sym_95" +" val_82)))" "(values)))))" "(values)))))" "(if(not #f)" @@ -56789,7 +56988,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp9_6" +" temp9_7" " #f" " #f" " #f" @@ -56816,7 +57015,7 @@ static const char *startup_source = " #f" " #f" " #f)))" -"((temp3_9)(substitute-module-declare-name name_71)))" +"((temp3_9)(substitute-module-declare-name name_72)))" "(declare-module!58.1 #f #f in-ns1_0 temp2_6 temp3_9))))))" "(define-values" "(1/prop:exn:missing-module 1/exn:missing-module? 1/exn:missing-module-accessor)" @@ -56844,7 +57043,7 @@ static const char *startup_source = " 0" " #f" "(list" -"(cons 1/prop:exn:missing-module(lambda(e_85)(1/exn:fail:filesystem:missing-module-path e_85))))" +"(cons 1/prop:exn:missing-module(lambda(e_86)(1/exn:fail:filesystem:missing-module-path e_86))))" " #f" " #f" " '(0)" @@ -56866,7 +57065,7 @@ static const char *startup_source = " 0" " #f" "(list" -"(cons 1/prop:exn:missing-module(lambda(e_72)(1/exn:fail:syntax:missing-module-path e_72))))" +"(cons 1/prop:exn:missing-module(lambda(e_73)(1/exn:fail:syntax:missing-module-path e_73))))" " #f" " #f" " '(0)" @@ -56877,13 +57076,13 @@ static const char *startup_source = "(1/current-module-path-for-load)" "(make-parameter" " #f" -"(lambda(v_180)" +"(lambda(v_179)" "(begin" -"(if(let-values(((or-part_175)(not v_180)))" -"(if or-part_175" -" or-part_175" -"(let-values(((or-part_143)(1/module-path? v_180)))" -"(if or-part_143 or-part_143(if(syntax?$1 v_180)(1/module-path?(syntax->datum$1 v_180)) #f)))))" +"(if(let-values(((or-part_176)(not v_179)))" +"(if or-part_176" +" or-part_176" +"(let-values(((or-part_142)(1/module-path? v_179)))" +"(if or-part_142 or-part_142(if(syntax?$1 v_179)(1/module-path?(syntax->datum$1 v_179)) #f)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -56892,11 +57091,11 @@ 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_179)))" +" v_179))))" "(define-values" "(maybe-raise-missing-module)" -"(lambda(name_72 filename_0 pre_0 rel_0 post_0 errstr_0)" +"(lambda(name_73 filename_0 pre_0 rel_0 post_0 errstr_0)" "(begin" "(let-values(((path_11)(1/current-module-path-for-load)))" "(if path_11" @@ -56912,7 +57111,7 @@ static const char *startup_source = " \" module path: ~a\\n\"" " \" path: ~a~a~a~a\\n\"" " \" system error: ~a\")" -"(if(syntax-srcloc path_11)(srcloc->string(syntax-srcloc path_11)) name_72)" +"(if(syntax-srcloc path_11)(srcloc->string(syntax-srcloc path_11)) name_73)" "(syntax->datum$1 path_11)" " filename_0" " pre_0" @@ -56931,7 +57130,7 @@ static const char *startup_source = " \" module path: ~a\\n\"" " \" path: ~a~a~a~a\\n\"" " \" system error: ~a\")" -" name_72" +" name_73" " path_11" " filename_0" " pre_0" @@ -56977,31 +57176,31 @@ static const char *startup_source = " intdefs63_0" " #t)))))))))))" "(case-lambda" -"((s_169 context_1 stop-ids_3)(begin 'local-expand(local-expand6_0 s_169 context_1 stop-ids_3 #f #f)))" -"((s_146 context_11 stop-ids_4 intdefs1_1)(local-expand6_0 s_146 context_11 stop-ids_4 intdefs1_1 #t)))))" +"((s_171 context_1 stop-ids_3)(begin 'local-expand(local-expand6_0 s_171 context_1 stop-ids_3 #f #f)))" +"((s_164 context_11 stop-ids_4 intdefs1_1)(local-expand6_0 s_164 context_11 stop-ids_4 intdefs1_1 #t)))))" "(define-values" "(1/local-expand/capture-lifts)" "(let-values(((local-expand/capture-lifts15_0)" "(lambda(s12_2 context13_0 stop-ids14_0 intdefs8_0 lift-key9_0 intdefs10_0 lift-key11_0)" "(begin" " 'local-expand/capture-lifts15" -"(let-values(((s_424) s12_2))" +"(let-values(((s_430) 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_3) 'local-expand)" -"((s65_0) s_424)" +"((s65_0) s_430)" "((context66_0) context_12)" "((stop-ids67_0) stop-ids_5)" "((intdefs68_0) intdefs_4)" -"((temp69_4) #t)" +"((temp69_3) #t)" "((lift-key70_0) lift-key_4))" "(do-local-expand56.1" " #f" " #f" -" temp69_4" +" temp69_3" " #t" " lift-key70_0" " #t" @@ -57018,25 +57217,25 @@ static const char *startup_source = " intdefs68_0" " #t))))))))))))" "(case-lambda" -"((s_72 context_13 stop-ids_6)" -"(begin 'local-expand/capture-lifts(local-expand/capture-lifts15_0 s_72 context_13 stop-ids_6 #f #f #f #f)))" -"((s_174 context_14 stop-ids_7 intdefs_5 lift-key9_1)" -"(local-expand/capture-lifts15_0 s_174 context_14 stop-ids_7 intdefs_5 lift-key9_1 #t #t))" -"((s_183 context_15 stop-ids_8 intdefs8_1)" -"(local-expand/capture-lifts15_0 s_183 context_15 stop-ids_8 intdefs8_1 #f #t #f)))))" +"((s_78 context_13 stop-ids_6)" +"(begin 'local-expand/capture-lifts(local-expand/capture-lifts15_0 s_78 context_13 stop-ids_6 #f #f #f #f)))" +"((s_177 context_14 stop-ids_7 intdefs_5 lift-key9_1)" +"(local-expand/capture-lifts15_0 s_177 context_14 stop-ids_7 intdefs_5 lift-key9_1 #t #t))" +"((s_186 context_15 stop-ids_8 intdefs8_1)" +"(local-expand/capture-lifts15_0 s_186 context_15 stop-ids_8 intdefs8_1 #f #t #f)))))" "(define-values" "(1/local-transformer-expand)" "(let-values(((local-transformer-expand22_0)" "(lambda(s19_1 context20_0 stop-ids21_0 intdefs17_0 intdefs18_0)" "(begin" " 'local-transformer-expand22" -"(let-values(((s_303) s19_1))" +"(let-values(((s_306) s19_1))" "(let-values(((context_16) context20_0))" "(let-values(((stop-ids_9) stop-ids21_0))" "(let-values(((intdefs_6)(if intdefs18_0 intdefs17_0 #f)))" "(let-values()" -"(let-values(((temp71_4) 'local-expand)" -"((s72_0) s_303)" +"(let-values(((temp71_5) 'local-expand)" +"((s72_0) s_306)" "((context73_0) context_16)" "((stop-ids74_0) stop-ids_9)" "((intdefs75_0) intdefs_6)" @@ -57054,24 +57253,24 @@ static const char *startup_source = " #f" " #f" " #f" -" temp71_4" +" temp71_5" " s72_0" " context73_0" " stop-ids74_0" " intdefs75_0" " #t)))))))))))" "(case-lambda" -"((s_471 context_17 stop-ids_10)" -"(begin 'local-transformer-expand(local-transformer-expand22_0 s_471 context_17 stop-ids_10 #f #f)))" -"((s_409 context_18 stop-ids_11 intdefs17_1)" -"(local-transformer-expand22_0 s_409 context_18 stop-ids_11 intdefs17_1 #t)))))" +"((s_473 context_17 stop-ids_10)" +"(begin 'local-transformer-expand(local-transformer-expand22_0 s_473 context_17 stop-ids_10 #f #f)))" +"((s_474 context_18 stop-ids_11 intdefs17_1)" +"(local-transformer-expand22_0 s_474 context_18 stop-ids_11 intdefs17_1 #t)))))" "(define-values" "(1/local-transformer-expand/capture-lifts)" "(let-values(((local-transformer-expand/capture-lifts31_0)" -"(lambda(s28_3 context29_0 stop-ids30_0 intdefs24_0 lift-key25_0 intdefs26_1 lift-key27_0)" +"(lambda(s28_2 context29_0 stop-ids30_0 intdefs24_0 lift-key25_0 intdefs26_1 lift-key27_0)" "(begin" " 'local-transformer-expand/capture-lifts31" -"(let-values(((s_16) s28_3))" +"(let-values(((s_16) s28_2))" "(let-values(((context_19) context29_0))" "(let-values(((stop-ids_12) stop-ids30_0))" "(let-values(((intdefs_7)(if intdefs26_1 intdefs24_0 #f)))" @@ -57082,13 +57281,13 @@ static const char *startup_source = "((context79_0) context_19)" "((stop-ids80_0) stop-ids_12)" "((intdefs81_0) intdefs_7)" -"((temp82_5) #t)" -"((temp83_3) #t)" +"((temp82_6) #t)" +"((temp83_2) #t)" "((lift-key84_0) lift-key_5))" "(do-local-expand56.1" -" temp82_5" +" temp82_6" " #t" -" temp83_3" +" temp83_2" " #t" " lift-key84_0" " #t" @@ -57105,32 +57304,32 @@ static const char *startup_source = " intdefs81_0" " #t))))))))))))" "(case-lambda" -"((s_472 context_20 stop-ids_13)" +"((s_475 context_20 stop-ids_13)" "(begin" " 'local-transformer-expand/capture-lifts" -"(local-transformer-expand/capture-lifts31_0 s_472 context_20 stop-ids_13 #f #f #f #f)))" -"((s_406 context_21 stop-ids_14 intdefs_8 lift-key25_1)" -"(local-transformer-expand/capture-lifts31_0 s_406 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" -"((s_81 context_22 stop-ids_15 intdefs24_1)" -"(local-transformer-expand/capture-lifts31_0 s_81 context_22 stop-ids_15 intdefs24_1 #f #t #f)))))" +"(local-transformer-expand/capture-lifts31_0 s_475 context_20 stop-ids_13 #f #f #f #f)))" +"((s_409 context_21 stop-ids_14 intdefs_8 lift-key25_1)" +"(local-transformer-expand/capture-lifts31_0 s_409 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" +"((s_87 context_22 stop-ids_15 intdefs24_1)" +"(local-transformer-expand/capture-lifts31_0 s_87 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)" +"(lambda(s35_1 opaque-only?33_0 opaque-only?34_0)" "(begin" " 'syntax-local-expand-expression36" -"(let-values(((s_473) s35_0))" +"(let-values(((s_476) s35_1))" "(let-values(((opaque-only?_0)(if opaque-only?34_0 opaque-only?33_0 #f)))" "(let-values()" "(let-values(((exp-s_12)" -"(let-values(((temp85_3) 'syntax-local-expand-expression)" -"((s86_1) s_473)" -"((temp87_3) 'expression)" +"(let-values(((temp85_4) 'syntax-local-expand-expression)" +"((s86_1) s_476)" +"((temp87_4) 'expression)" "((null88_0) null)" -"((temp89_6) #f)" +"((temp89_4) #f)" "((opaque-only?90_0) opaque-only?_0)" "((temp91_1) #t)" -"((temp92_2) #t))" +"((temp92_3) #t))" "(do-local-expand56.1" " #f" " #f" @@ -57142,15 +57341,15 @@ static const char *startup_source = " #t" " opaque-only?90_0" " #t" -" temp92_2" +" temp92_3" " #t" -" temp85_3" +" temp85_4" " s86_1" -" temp87_3" +" temp87_4" " null88_0" -" temp89_6" +" temp89_4" " #t))))" -"(let-values(((ctx_73)(let-values()(get-current-expand-context17.1 #f #f #f #f))))" +"(let-values(((ctx_74)(let-values()(get-current-expand-context17.1 #f #f #f #f))))" "(let-values(((ae_1)" "(flip-introduction-scopes" "(datum->syntax$1" @@ -57158,15 +57357,15 @@ static const char *startup_source = "(already-expanded1.1" "(if(parsed? exp-s_12)" " exp-s_12" -"(flip-introduction-scopes exp-s_12 ctx_73))" -"(expand-context-binding-layer ctx_73)))" -" ctx_73)))" +"(flip-introduction-scopes exp-s_12 ctx_74))" +"(expand-context-binding-layer ctx_74)))" +" ctx_74)))" "(begin" -"(let-values(((obs_59)(expand-context-observer ctx_73)))" +"(let-values(((obs_59)(expand-context-observer ctx_74)))" "(if obs_59" "(let-values()(let-values()(call-expand-observe obs_59 'opaque-expr ae_1)))" "(void)))" -"(let-values(((obs_60)(expand-context-observer ctx_73)))" +"(let-values(((obs_60)(expand-context-observer ctx_74)))" "(if obs_60" "(let-values()(let-values()(call-expand-observe obs_60 'exit-local exp-s_12)))" "(void)))" @@ -57196,7 +57395,7 @@ static const char *startup_source = " intdefs51_0)" "(begin" " 'do-local-expand56" -"(let-values(((who_32) who52_1))" +"(let-values(((who_34) who52_1))" "(let-values(((s-or-s-exp_0) s-or-s-exp53_0))" "(let-values(((context_23) context54_0))" "(let-values(((stop-ids_16) stop-ids55_0))" @@ -57207,8 +57406,8 @@ static const char *startup_source = "(let-values(((lift-key_6)" "(if lift-key47_0" " lift-key41_0" -"(if(let-values(((or-part_375) capture-lifts?_0))" -"(if or-part_375 or-part_375 as-transformer?_5))" +"(if(let-values(((or-part_371) capture-lifts?_0))" +"(if or-part_371 or-part_371 as-transformer?_5))" "(generate-lift-key)" " #f))))" "(let-values(((track-to-be-defined?_1)" @@ -57216,12 +57415,12 @@ static const char *startup_source = "(let-values(((skip-log-exit?_0)(if skip-log-exit?49_0 skip-log-exit?43_0 #f)))" "(let-values()" "(let-values()" -"(let-values(((s_389)(datum->syntax$1 #f s-or-s-exp_0)))" +"(let-values(((s_392)(datum->syntax$1 #f s-or-s-exp_0)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_178)(list? context_23)))" -"(if or-part_178" -" or-part_178" +"(if(let-values(((or-part_179)(list? context_23)))" +"(if or-part_179" +" or-part_179" "(memq" " context_23" "(if as-transformer?_5" @@ -57230,7 +57429,7 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-argument-error" -" who_32" +" who_34" "(if as-transformer?_5" " \"(or/c 'expression 'top-level list?)\"" " \"(or/c 'expression 'top-level 'module 'module-begin list?)\")" @@ -57238,49 +57437,49 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_179)(not stop-ids_16)))" -"(if or-part_179" -" or-part_179" +"(if(let-values(((or-part_180)(not stop-ids_16)))" +"(if or-part_180" +" or-part_180" "(if(list? stop-ids_16)" "(andmap2 identifier? stop-ids_16)" " #f)))" "(void)" "(let-values()" "(raise-argument-error" -" who_32" +" who_34" " \"(or/c (listof identifier?) #f)\"" " stop-ids_16)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_180)(not intdefs_9)))" -"(if or-part_180" -" or-part_180" -"(let-values(((or-part_57)" +"(if(let-values(((or-part_181)(not intdefs_9)))" +"(if or-part_181" +" or-part_181" +"(let-values(((or-part_182)" "(1/internal-definition-context? intdefs_9)))" -"(if or-part_57" -" or-part_57" +"(if or-part_182" +" or-part_182" "(if(list? intdefs_9)" "(andmap2 1/internal-definition-context? intdefs_9)" " #f)))))" "(void)" "(let-values()" "(raise-argument-error" -" who_32" +" who_34" " \"(or/c #f internal-definition-context? (listof internal-definition-context?))\"" " intdefs_9)))" "(values))))" -"(let-values(((ctx_74)" -"(let-values(((who93_0) who_32))" +"(let-values(((ctx_75)" +"(let-values(((who93_0) who_34))" "(get-current-expand-context17.1 #f #f who93_0 #t))))" -"(let-values(((phase_139)" +"(let-values(((phase_140)" "(if as-transformer?_5" -"(add1(expand-context-phase ctx_74))" -"(expand-context-phase ctx_74))))" +"(add1(expand-context-phase ctx_75))" +"(expand-context-phase ctx_75))))" "(let-values(((local-ctx_0)" -"(let-values(((ctx94_0) ctx_74)" +"(let-values(((ctx94_0) ctx_75)" "((context95_0) context_23)" -"((phase96_0) phase_139)" +"((phase96_0) phase_140)" "((intdefs97_0) intdefs_9)" "((stop-ids98_0) stop-ids_16)" "((to-parsed-ok?99_0) to-parsed-ok?_1)" @@ -57301,8 +57500,8 @@ static const char *startup_source = "(let-values((()" "(begin" "(namespace-visit-available-modules!" -"(expand-context-namespace ctx_74)" -" phase_139)" +"(expand-context-namespace ctx_75)" +" phase_140)" "(values))))" "(let-values((()" "(begin" @@ -57314,12 +57513,12 @@ static const char *startup_source = "(call-expand-observe" " obs_61" " 'enter-local" -" s_389)))" +" s_392)))" "(void)))" "(values))))" "(let-values(((input-s_1)" "(let-values(((temp101_4)" -"(flip-introduction-scopes s_389 ctx_74))" +"(flip-introduction-scopes s_392 ctx_75))" "((intdefs102_0) intdefs_9))" "(add-intdef-scopes21.1" " #f" @@ -57378,21 +57577,21 @@ static const char *startup_source = "(let-values(((input-s103_0) input-s_1)" "((local-ctx104_0) local-ctx_0)" "((context105_0) context_23)" -"((temp106_4) #f)" -"((temp107_0) #t)" +"((temp106_3) #f)" +"((temp107_1) #t)" "((lift-key108_0) lift-key_6)" -"((temp109_2) #t)" -"((temp110_6) #t))" +"((temp109_0) #t)" +"((temp110_4) #t))" "(expand-transformer47.1" -" temp109_2" +" temp109_0" " #t" -" temp107_0" +" temp107_1" " #t" " context105_0" " #t" -" temp106_4" +" temp106_3" " #t" -" temp110_6" +" temp110_4" " #t" " lift-key108_0" " #t" @@ -57404,11 +57603,11 @@ static const char *startup_source = "((local-ctx112_0)" " local-ctx_0)" "((context113_0) context_23)" -"((temp114_3) #f)" +"((temp114_4) #f)" "((temp115_2)" "(eq? 'top-level context_23))" "((lift-key116_0) lift-key_6)" -"((temp117_3) #t))" +"((temp117_1) #t))" "(expand-transformer47.1" " #f" " #f" @@ -57416,9 +57615,9 @@ static const char *startup_source = " #t" " context113_0" " #t" -" temp114_3" +" temp114_4" " #t" -" temp117_3" +" temp117_1" " #t" " lift-key116_0" " #t" @@ -57432,9 +57631,9 @@ static const char *startup_source = "((temp120_4) #t)" "((lift-key121_0)" " lift-key_6)" -"((temp122_3) #t))" +"((temp122_4) #t))" "(expand/capture-lifts30.1" -" temp122_3" +" temp122_4" " #t" " temp120_4" " #t" @@ -57474,7 +57673,7 @@ static const char *startup_source = " output-s_0" "(flip-introduction-scopes" " output-s_0" -" ctx_74))))" +" ctx_75))))" "(begin" "(if skip-log-exit?_0" "(void)" @@ -57496,132 +57695,147 @@ static const char *startup_source = "(lambda(s_0)" "(begin" " 'syntax-tainted?" +"(let-values()" +"(let-values()" "(begin" -" (if (syntax?$1 s_0) (void) (let-values () (raise-argument-error 'syntax-tainted? \"syntax?\" s_0)))" -"(syntax-tainted?$1 s_0)))))" +" (if (syntax?$1 s_0) (void) (let-values () (raise-argument-error 'syntax-tainted? \"syntax?\" s_0)))" +"(syntax-tainted?$1 s_0)))))))" "(define-values" "(1/syntax-arm)" "(let-values(((syntax-arm6_0)" "(lambda(s5_3 maybe-insp1_0 use-mode?2_0 maybe-insp3_0 use-mode?4_0)" "(begin" " 'syntax-arm6" -"(let-values(((s_3) s5_3))" +"(let-values(((s_170) s5_3))" "(let-values(((maybe-insp_0)(if maybe-insp3_0 maybe-insp1_0 #f)))" "(let-values(((use-mode?_0)(if use-mode?4_0 use-mode?2_0 #f)))" "(let-values()" +"(let-values()" +"(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_3)" +"(if(syntax?$1 s_170)" "(void)" -" (let-values () (raise-argument-error 'syntax-arm \"syntax?\" s_3)))" +" (let-values () (raise-argument-error 'syntax-arm \"syntax?\" s_170)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_12)(not maybe-insp_0)))" -"(if or-part_12 or-part_12(inspector? maybe-insp_0)))" +"(if(let-values(((or-part_224)(not maybe-insp_0)))" +"(if or-part_224 or-part_224(inspector? maybe-insp_0)))" "(void)" "(let-values()" "(raise-argument-error" " 'syntax-arm" -" \"(or/c inspector? #f)\"" +" \"(or/c inspector? #f)\"" " maybe-insp_0)))" "(values))))" "(let-values(((insp_21)(inspector-for-taint maybe-insp_0)))" "(if use-mode?_0" "(let-values()" "(taint-dispatch" -" s_3" -"(lambda(s_470)(syntax-arm$1 s_470 insp_21))" +" s_170" +"(lambda(s_477)(syntax-arm$1 s_477 insp_21))" "(1/syntax-local-phase-level)))" -"(let-values()(syntax-arm$1 s_3 insp_21))))))))))))))" +"(let-values()(syntax-arm$1 s_170 insp_21))))))))))))))))" "(case-lambda" -"((s_419)(begin 'syntax-arm(syntax-arm6_0 s_419 #f #f #f #f)))" -"((s_474 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_474 maybe-insp_1 use-mode?2_1 #t #t))" -"((s_475 maybe-insp1_1)(syntax-arm6_0 s_475 maybe-insp1_1 #f #t #f)))))" +"((s_171)(begin 'syntax-arm(syntax-arm6_0 s_171 #f #f #f #f)))" +"((s_172 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_172 maybe-insp_1 use-mode?2_1 #t #t))" +"((s_429 maybe-insp1_1)(syntax-arm6_0 s_429 maybe-insp1_1 #f #t #f)))))" "(define-values" "(1/syntax-disarm)" -"(lambda(s_426 maybe-insp_2)" +"(lambda(s_478 maybe-insp_2)" "(begin" " 'syntax-disarm" +"(let-values()" +"(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_426)" +"(if(syntax?$1 s_478)" "(void)" -" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_426)))" +" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_478)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_301)(not maybe-insp_2)))" -"(if or-part_301 or-part_301(inspector? maybe-insp_2)))" +"(if(let-values(((or-part_372)(not maybe-insp_2)))" +"(if or-part_372 or-part_372(inspector? maybe-insp_2)))" "(void)" -" (let-values () (raise-argument-error 'syntax-disarm \"(or/c inspector? #f)\" maybe-insp_2)))" +" (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_426 insp_22)))))))" +"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_478 insp_22)))))))))" "(define-values" "(1/syntax-rearm)" "(let-values(((syntax-rearm12_0)" "(lambda(s10_0 from-s11_0 use-mode?8_0 use-mode?9_0)" "(begin" " 'syntax-rearm12" -"(let-values(((s_40) s10_0))" +"(let-values(((s_428) s10_0))" "(let-values(((from-s_2) from-s11_0))" "(let-values(((use-mode?_1)(if use-mode?9_0 use-mode?8_0 #f)))" "(let-values()" +"(let-values()" +"(let-values()" "(begin" -"(if(syntax?$1 s_40)" +"(if(syntax?$1 s_428)" "(void)" -" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_40)))" +" (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" s_428)))" "(if(syntax?$1 from-s_2)" "(void)" -" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" from-s_2)))" +" (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" from-s_2)))" "(if use-mode?_1" "(let-values()" "(taint-dispatch" -" s_40" -"(lambda(s_425)(syntax-rearm$1 s_425 from-s_2))" +" s_428" +"(lambda(s_479)(syntax-rearm$1 s_479 from-s_2))" "(1/syntax-local-phase-level)))" -"(let-values()(syntax-rearm$1 s_40 from-s_2))))))))))))" +"(let-values()(syntax-rearm$1 s_428 from-s_2))))))))))))))" "(case-lambda" -"((s_180 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_180 from-s_3 #f #f)))" -"((s_172 from-s_4 use-mode?8_1)(syntax-rearm12_0 s_172 from-s_4 use-mode?8_1 #t)))))" +"((s_425 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_425 from-s_3 #f #f)))" +"((s_5 from-s_4 use-mode?8_1)(syntax-rearm12_0 s_5 from-s_4 use-mode?8_1 #t)))))" "(define-values" "(1/syntax-taint)" -"(lambda(s_159)" +"(lambda(s_77)" "(begin" " 'syntax-taint" +"(let-values()" +"(let-values()" "(begin" -" (if (syntax?$1 s_159) (void) (let-values () (raise-argument-error 'syntax-taint \"syntax?\" s_159)))" -"(syntax-taint$1 s_159)))))" +" (if (syntax?$1 s_77) (void) (let-values () (raise-argument-error 'syntax-taint \"syntax?\" s_77)))" +"(syntax-taint$1 s_77)))))))" "(define-values" "(inspector-for-taint)" "(lambda(maybe-insp_3)" "(begin" -"(let-values(((or-part_79) maybe-insp_3))" -"(if or-part_79" -" or-part_79" -"(let-values(((or-part_80)(current-module-code-inspector)))" -"(if or-part_80 or-part_80(current-code-inspector))))))))" +"(let-values(((or-part_373) maybe-insp_3))" +"(if or-part_373" +" or-part_373" +"(let-values(((or-part_363)(current-module-code-inspector)))" +"(if or-part_363 or-part_363(current-code-inspector))))))))" "(define-values" "(1/variable-reference->empty-namespace)" "(lambda(vr_0)" "(begin" " 'variable-reference->empty-namespace" +"(let-values()" +"(let-values()" "(begin" "(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 () (raise-argument-error 'variable-reference->empty-namespace \"variable-reference?\" vr_0)))" +"(let-values(((temp2_7)(1/variable-reference->namespace vr_0)))" +"(new-namespace9.1 #f #f #f #f temp2_7 #t))))))))" "(define-values" "(1/variable-reference->namespace)" "(lambda(vr_1)" "(begin" " 'variable-reference->namespace" +"(let-values()" +"(let-values()" "(let-values((()" "(begin" "(if(1/variable-reference? vr_1)" "(void)" "(let-values()" -" (raise-argument-error 'variable-reference->namespace \"variable-reference?\" vr_1)))" +" (raise-argument-error 'variable-reference->namespace \"variable-reference?\" vr_1)))" "(values))))" "(let-values(((inst_8)(1/variable-reference->instance vr_1)))" "(if(symbol? inst_8)" @@ -57629,92 +57843,107 @@ static const char *startup_source = "(1/module->namespace(list 'quote inst_8)(1/instance-data(1/variable-reference->instance vr_1 #t))))" "(if(not inst_8)" "(let-values()(1/instance-data(1/variable-reference->instance vr_1 #t)))" -"(let-values()(1/instance-data inst_8)))))))))" +"(let-values()(1/instance-data inst_8)))))))))))" "(define-values" "(1/variable-reference->module-path-index)" "(lambda(vr_2)" "(begin" " 'variable-reference->module-path-index" +"(let-values()" +"(let-values()" "(let-values((()" "(begin" "(if(1/variable-reference? vr_2)" "(void)" "(let-values()" -" (raise-argument-error 'variable-reference->module-path-index \"variable-reference?\" vr_2)))" +" (raise-argument-error 'variable-reference->module-path-index \"variable-reference?\" vr_2)))" "(values))))" -"(let-values(((mpi_49)(namespace-mpi(1/variable-reference->namespace vr_2))))" -"(if(top-level-module-path-index? mpi_49) #f mpi_49))))))" +"(let-values(((mpi_51)(namespace-mpi(1/variable-reference->namespace vr_2))))" +"(if(top-level-module-path-index? mpi_51) #f mpi_51))))))))" "(define-values" "(1/variable-reference->resolved-module-path)" "(lambda(vr_3)" "(begin" " 'variable-reference->resolved-module-path" +"(let-values()" +"(let-values()" "(let-values((()" "(begin" "(if(1/variable-reference? vr_3)" "(void)" "(let-values()" -" (raise-argument-error 'variable-reference->resolved-module-path \"variable-reference?\" vr_3)))" +"(raise-argument-error" +" 'variable-reference->resolved-module-path" +" \"variable-reference?\"" +" vr_3)))" "(values))))" -"(let-values(((mpi_50)(1/variable-reference->module-path-index vr_3)))" -"(if mpi_50(1/module-path-index-resolve mpi_50) #f))))))" +"(let-values(((mpi_48)(1/variable-reference->module-path-index vr_3)))" +"(if mpi_48(1/module-path-index-resolve mpi_48) #f))))))))" "(define-values" "(1/variable-reference->module-source)" "(lambda(vr_4)" "(begin" " 'variable-reference->module-source" +"(let-values()" +"(let-values()" "(let-values((()" "(begin" "(if(1/variable-reference? vr_4)" "(void)" "(let-values()" -" (raise-argument-error 'variable-reference->module-source \"variable-reference?\" vr_4)))" +" (raise-argument-error 'variable-reference->module-source \"variable-reference?\" vr_4)))" "(values))))" -"(let-values(((ns_117)(1/variable-reference->namespace vr_4)))(namespace-source-name ns_117))))))" +"(let-values(((ns_71)(1/variable-reference->namespace vr_4)))(namespace-source-name ns_71))))))))" "(define-values" "(1/variable-reference->phase)" "(lambda(vr_5)" "(begin" " 'variable-reference->phase" +"(let-values()" +"(let-values()" "(begin" "(if(1/variable-reference? vr_5)" "(void)" -" (let-values () (raise-argument-error 'variable-reference->phase \"variable-reference?\" vr_5)))" -"(namespace-phase(1/variable-reference->namespace vr_5))))))" +" (let-values () (raise-argument-error 'variable-reference->phase \"variable-reference?\" vr_5)))" +"(namespace-phase(1/variable-reference->namespace vr_5))))))))" "(define-values" "(1/variable-reference->module-base-phase)" "(lambda(vr_6)" "(begin" " 'variable-reference->module-base-phase" +"(let-values()" +"(let-values()" "(begin" "(if(1/variable-reference? vr_6)" "(void)" -" (let-values () (raise-argument-error 'variable-reference->module-base-phase \"variable-reference?\" vr_6)))" -"(namespace-0-phase(1/variable-reference->namespace vr_6))))))" +" (let-values () (raise-argument-error 'variable-reference->module-base-phase \"variable-reference?\" vr_6)))" +"(namespace-0-phase(1/variable-reference->namespace vr_6))))))))" "(define-values" "(1/variable-reference->module-declaration-inspector)" "(lambda(vr_7)" "(begin" " 'variable-reference->module-declaration-inspector" +"(let-values()" +"(let-values()" "(begin" "(if(1/variable-reference? vr_7)" "(void)" "(let-values()" -" (raise-argument-error 'variable-reference->module-declaration-inspector \"variable-reference?\" vr_7)))" +" (raise-argument-error 'variable-reference->module-declaration-inspector \"variable-reference?\" vr_7)))" "(if(1/variable-reference->instance vr_7)" "(let-values()" "(raise-arguments-error" " 'variable-reference->module-declaration-inspector" -" \"variable reference does not refer to an anonymous module variable\"" -" \"variable reference\"" +" \"variable reference does not refer to an anonymous module variable\"" +" \"variable reference\"" " vr_7))" "(void))" -"(let-values(((or-part_221)(namespace-declaration-inspector(1/variable-reference->namespace vr_7))))" -"(if or-part_221" -" or-part_221" +"(let-values(((or-part_292)(namespace-declaration-inspector(1/variable-reference->namespace vr_7))))" +"(if or-part_292" +" or-part_292" "(raise-arguments-error" " 'variable-reference->module-declaration-inspector" -" \"given variable reference is not from a module\")))))))" +" \"given variable reference is not from a module\")))))))))" "(define-values" "(primitive-ids)" "(seteq" @@ -57995,7 +58224,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_118) ns7_1))" +"(let-values(((ns_116) ns7_1))" "(let-values()" "(let-values(((main-ids_0) main-ids2_0))" "(let-values(((read-ids_0) read-ids3_0))" @@ -58012,9 +58241,9 @@ static const char *startup_source = " 1/variable-reference-constant?" " 'variable-reference-from-unsafe?" " 1/variable-reference-from-unsafe?))" -"((ns57_0) ns_118))" +"((ns57_0) ns_116))" "(copy-runtime-module!26.1 #f #f temp56_3 #t ns57_0 #f #f #f #f temp55_4 #t temp54_5 #t temp53_4))" -"(let-values(((temp58_4) '#%kernel)((temp59_5) '(#%core #%runtime #%main #%read))((ns60_0) ns_118))" +"(let-values(((temp58_4) '#%kernel)((temp59_5) '(#%core #%runtime #%main #%read))((ns60_0) ns_116))" "(declare-reexporting-module!50.1 ns60_0 #f #f temp58_4 temp59_5)))))))))))" "(define-values" "(copy-runtime-module!26.1)" @@ -58034,16 +58263,16 @@ static const char *startup_source = " name25_0)" "(begin" " 'copy-runtime-module!26" -"(let-values(((name_64) name25_0))" -"(let-values(((to-name_0)(if to18_0 to11_0 name_64)))" -"(let-values(((ns_119) namespace12_0))" +"(let-values(((name_65) name25_0))" +"(let-values(((to-name_0)(if to18_0 to11_0 name_65)))" +"(let-values(((ns_117) namespace12_0))" "(let-values(((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())))" "(let-values(((primitive?_9)(if primitive?23_0 primitive?16_0 #t)))" "(let-values(((protected?_10)(if protected?24_0 protected?17_0 #f)))" "(let-values()" -"(let-values(((prims_0)(1/primitive-table name_64)))" +"(let-values(((prims_0)(1/primitive-table name_65)))" "(let-values((()" "(begin" "(let-values(((ht_25) prims_0))" @@ -58051,12 +58280,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_25)))" -"((letrec-values(((for-loop_54)" +"((letrec-values(((for-loop_56)" "(lambda(i_26)" "(begin" " 'for-loop" "(if i_26" -"(let-values(((sym_87)" +"(let-values(((sym_96)" "(hash-iterate-key ht_25 i_26)))" "(let-values((()" "(let-values()" @@ -58065,45 +58294,45 @@ static const char *startup_source = "(begin" "(let-values()" "(register-built-in-symbol!" -" sym_87))" +" sym_96))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_54(hash-iterate-next ht_25 i_26))" +"(for-loop_56(hash-iterate-next ht_25 i_26))" "(values))))" "(values))))))" -" for-loop_54)" +" for-loop_56)" "(hash-iterate-first ht_25))))" "(values))))" "(let-values()" -"(let-values(((ht_161)" -"(let-values(((ht_162) prims_0))" +"(let-values(((ht_162)" +"(let-values(((ht_163) prims_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_162)))" -"((letrec-values(((for-loop_266)" -"(lambda(table_11 i_182)" +"(let-values()(check-in-hash ht_163)))" +"((letrec-values(((for-loop_267)" +"(lambda(table_11 i_183)" "(begin" " 'for-loop" -"(if i_182" +"(if i_183" "(let-values(((sym_97 val_6)" "(hash-iterate-key+value" -" ht_162" -" i_182)))" +" ht_163" +" i_183)))" +"(let-values(((table_219)" "(let-values(((table_220)" -"(let-values(((table_221)" " table_11))" "(if(set-member?" " skip-syms_0" " sym_97)" -" table_221" +" table_220" +"(let-values(((table_221)" +" table_220))" "(let-values(((table_222)" -" table_221))" -"(let-values(((table_223)" "(let-values()" -"(let-values(((key_88" -" val_79)" +"(let-values(((key_91" +" val_83)" "(let-values()" "(values" " sym_97" @@ -58116,56 +58345,56 @@ static const char *startup_source = " or-part_24" " val_6))))))" "(hash-set" -" table_222" -" key_88" -" val_79)))))" -"(values table_223)))))))" +" table_221" +" key_91" +" val_83)))))" +"(values table_222)))))))" "(if(not #f)" -"(for-loop_266" -" table_220" -"(hash-iterate-next ht_162 i_182))" -" table_220)))" +"(for-loop_267" +" table_219" +"(hash-iterate-next ht_163 i_183))" +" table_219)))" " table_11)))))" -" for-loop_266)" +" for-loop_267)" " '#hasheq()" -"(hash-iterate-first ht_162))))))" +"(hash-iterate-first ht_163))))))" "(let-values(((ht+extras_0)" -"(let-values(((ht_163) extras_0))" +"(let-values(((ht_164) extras_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_163)))" -"((letrec-values(((for-loop_277)" -"(lambda(ht_164 i_183)" +"(let-values()(check-in-hash ht_164)))" +"((letrec-values(((for-loop_279)" +"(lambda(ht_165 i_184)" "(begin" " 'for-loop" -"(if i_183" -"(let-values(((k_42 v_50)" +"(if i_184" +"(let-values(((k_43 v_50)" "(hash-iterate-key+value" -" ht_163" -" i_183)))" -"(let-values(((ht_165)" +" ht_164" +" i_184)))" "(let-values(((ht_166)" -" ht_164))" -"(let-values(((ht_48)" +"(let-values(((ht_167)" +" ht_165))" +"(let-values(((ht_49)" "(let-values()" "(hash-set" -" ht_166" -" k_42" +" ht_167" +" k_43" " v_50))))" -"(values ht_48)))))" +"(values ht_49)))))" "(if(not #f)" -"(for-loop_277" -" ht_165" -"(hash-iterate-next ht_163 i_183))" -" ht_165)))" -" ht_164)))))" -" for-loop_277)" -" ht_161" -"(hash-iterate-first ht_163))))))" +"(for-loop_279" +" ht_166" +"(hash-iterate-next ht_164 i_184))" +" ht_166)))" +" ht_165)))))" +" for-loop_279)" +" ht_162" +"(hash-iterate-first ht_164))))))" "(let-values(((to-name61_0) to-name_0)" "((ht+extras62_0) ht+extras_0)" -"((ns63_0) ns_119)" +"((ns63_0) ns_117)" "((primitive?64_0) primitive?_9)" "((protected?65_0) protected?_10))" "(declare-hash-based-module!41.1" @@ -58195,46 +58424,46 @@ static const char *startup_source = " ht40_0)" "(begin" " 'declare-hash-based-module!41" -"(let-values(((name_73) name39_0))" -"(let-values(((ht_167) ht40_0))" -"(let-values(((ns_120) namespace29_0))" +"(let-values(((name_74) name39_0))" +"(let-values(((ht_168) ht40_0))" +"(let-values(((ns_118) namespace29_0))" "(let-values(((primitive?_10)(if primitive?35_0 primitive?30_0 #f)))" "(let-values(((protected?_11)(if protected?36_0 protected?31_0 #f)))" "(let-values(((protected-syms_0)(if protected37_0 protected32_0 null)))" "(let-values(((register-builtin?_0)(if register-builtin?38_0 register-builtin?33_0 #f)))" "(let-values()" -"(let-values(((mpi_6)(1/module-path-index-join(list 'quote name_73) #f)))" -"(let-values(((ns66_1) ns_120)" -"((temp67_3)" -"(let-values(((temp69_5) #t)" +"(let-values(((mpi_52)(1/module-path-index-join(list 'quote name_74) #f)))" +"(let-values(((ns66_1) ns_118)" +"((temp67_2)" +"(let-values(((temp69_4) #t)" "((primitive?70_0) primitive?_10)" -"((temp71_5) #t)" +"((temp71_6) #t)" "((temp72_2)(not protected?_11))" -"((mpi73_1) mpi_6)" +"((mpi73_1) mpi_52)" "((temp74_2)" "(hasheqv" " 0" -"(let-values(((ht_168) ht_167))" +"(let-values(((ht_169) ht_168))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_168)))" -"((letrec-values(((for-loop_278)" -"(lambda(table_224 i_184)" +"(let-values()(check-in-hash-keys ht_169)))" +"((letrec-values(((for-loop_280)" +"(lambda(table_223 i_185)" "(begin" " 'for-loop" -"(if i_184" +"(if i_185" "(let-values(((sym_98)" "(hash-iterate-key" -" ht_168" -" i_184)))" +" ht_169" +" i_185)))" +"(let-values(((table_224)" "(let-values(((table_225)" +" table_223))" "(let-values(((table_226)" -" table_224))" -"(let-values(((table_227)" "(let-values()" -"(let-values(((key_89" -" val_80)" +"(let-values(((key_92" +" val_84)" "(let-values()" "(let-values((()" "(begin" @@ -58246,7 +58475,7 @@ static const char *startup_source = "(values))))" "(let-values(((binding_28)" "(let-values(((mpi76_0)" -" mpi_6)" +" mpi_52)" "((temp77_3)" " 0)" "((sym78_0)" @@ -58275,10 +58504,10 @@ static const char *startup_source = " sym78_0))))" "(values" " sym_98" -"(if(let-values(((or-part_376)" +"(if(let-values(((or-part_374)" " protected?_11))" -"(if or-part_376" -" or-part_376" +"(if or-part_374" +" or-part_374" "(member" " sym_98" " protected-syms_0)))" @@ -58288,25 +58517,25 @@ static const char *startup_source = " #f)" " binding_28)))))))" "(hash-set" -" table_226" -" key_89" -" val_80)))))" -"(values" -" table_227)))))" -"(if(not #f)" -"(for-loop_278" " table_225" +" key_92" +" val_84)))))" +"(values" +" table_226)))))" +"(if(not #f)" +"(for-loop_280" +" table_224" "(hash-iterate-next" -" ht_168" -" i_184))" -" table_225)))" -" table_224)))))" -" for-loop_278)" +" ht_169" +" i_185))" +" table_224)))" +" table_223)))))" +" for-loop_280)" " '#hash()" -"(hash-iterate-first ht_168))))))" +"(hash-iterate-first ht_169))))))" "((temp75_2)" "(lambda(data-box_6" -" ns_121" +" ns_119" " phase-shift_21" " phase-level_23" " self_29" @@ -58315,20 +58544,20 @@ static const char *startup_source = "(if(= 0 phase-level_23)" "(let-values()" "(begin" -"(let-values(((ht_169) ht_167))" +"(let-values(((ht_170) ht_168))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_169)))" -"((letrec-values(((for-loop_279)" +"(let-values()(check-in-hash ht_170)))" +"((letrec-values(((for-loop_281)" "(lambda(i_47)" "(begin" " 'for-loop" "(if i_47" -"(let-values(((sym_6 val_30)" +"(let-values(((sym_6 val_31)" "(hash-iterate-key+value" -" ht_169" +" ht_170" " i_47)))" "(let-values((()" "(let-values()" @@ -58337,25 +58566,25 @@ static const char *startup_source = "(begin" "(let-values()" "(namespace-set-variable!" -" ns_121" +" ns_119" " 0" " sym_6" -" val_30))" +" val_31))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_279" +"(for-loop_281" "(hash-iterate-next" -" ht_169" +" ht_170" " i_47))" "(values))))" "(values))))))" -" for-loop_279)" -"(hash-iterate-first ht_169))))" +" for-loop_281)" +"(hash-iterate-first ht_170))))" "(void)))" "(void)))))" "(make-module39.1" -" temp69_5" +" temp69_4" " #t" " #f" " #f" @@ -58372,7 +58601,7 @@ static const char *startup_source = " #t" " #f" " #f" -" temp71_5" +" temp71_6" " #t" " #f" " #f" @@ -58388,36 +58617,36 @@ static const char *startup_source = " #f" " #f" " #f)))" -"((temp68_1)(1/module-path-index-resolve mpi_6)))" -"(declare-module!58.1 #f #f ns66_1 temp67_3 temp68_1))))))))))))))" +"((temp68_1)(1/module-path-index-resolve mpi_52)))" +"(declare-module!58.1 #f #f ns66_1 temp67_2 temp68_1))))))))))))))" "(define-values" "(declare-reexporting-module!50.1)" "(lambda(namespace45_0 reexport?44_0 reexport?46_0 name48_1 require-names49_0)" "(begin" " 'declare-reexporting-module!50" -"(let-values(((name_13) name48_1))" +"(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_83) namespace45_0))" +"(let-values(((ns_120) namespace45_0))" "(let-values()" -"(let-values(((mpi_51)(1/module-path-index-join(list 'quote name_13) #f)))" +"(let-values(((mpi_53)(1/module-path-index-join(list 'quote name_75) #f)))" "(let-values(((require-mpis_0)" "(reverse$1" -"(let-values(((lst_205) require-names_0))" +"(let-values(((lst_204) require-names_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_205)))" -"((letrec-values(((for-loop_202)" -"(lambda(fold-var_41 lst_206)" +"(let-values()(check-list lst_204)))" +"((letrec-values(((for-loop_203)" +"(lambda(fold-var_41 lst_205)" "(begin" " 'for-loop" -"(if(pair? lst_206)" -"(let-values(((require-name_0)(unsafe-car lst_206))" -"((rest_105)(unsafe-cdr lst_206)))" -"(let-values(((fold-var_280)" -"(let-values(((fold-var_281) fold-var_41))" -"(let-values(((fold-var_282)" +"(if(pair? lst_205)" +"(let-values(((require-name_0)(unsafe-car lst_205))" +"((rest_105)(unsafe-cdr lst_205)))" +"(let-values(((fold-var_286)" +"(let-values(((fold-var_287) fold-var_41))" +"(let-values(((fold-var_288)" "(let-values()" "(cons" "(let-values()" @@ -58426,22 +58655,22 @@ static const char *startup_source = " 'quote" " require-name_0)" " #f))" -" fold-var_281))))" -"(values fold-var_282)))))" +" fold-var_287))))" +"(values fold-var_288)))))" "(if(not #f)" -"(for-loop_202 fold-var_280 rest_105)" -" fold-var_280)))" +"(for-loop_203 fold-var_286 rest_105)" +" fold-var_286)))" " fold-var_41)))))" -" for-loop_202)" +" for-loop_203)" " null" -" lst_205))))))" -"(let-values(((ns79_1) ns_83)" +" lst_204))))))" +"(let-values(((ns79_1) ns_120)" "((temp80_6)" -"(let-values(((temp82_6) #t)" -"((temp83_4) #t)" -"((mpi84_0) mpi_51)" -"((temp85_4)(list(cons 0 require-mpis_0)))" -"((temp86_1)" +"(let-values(((temp82_7) #t)" +"((temp83_3) #t)" +"((mpi84_0) mpi_53)" +"((temp85_5)(list(cons 0 require-mpis_0)))" +"((temp86_2)" "(if reexport?_0" "(hasheqv" " 0" @@ -58450,24 +58679,24 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_56)))" -"((letrec-values(((for-loop_280)" -"(lambda(table_228 lst_316)" +"((letrec-values(((for-loop_282)" +"(lambda(table_227 lst_317)" "(begin" " 'for-loop" -"(if(pair? lst_316)" +"(if(pair? lst_317)" "(let-values(((require-mpi_0)" -"(unsafe-car lst_316))" +"(unsafe-car lst_317))" "((rest_177)" -"(unsafe-cdr lst_316)))" -"(let-values(((table_229)" +"(unsafe-cdr lst_317)))" +"(let-values(((table_228)" "(let-values(((m_29)" "(namespace->module" -" ns_83" +" ns_120" "(1/module-path-index-resolve" " require-mpi_0))))" "(begin" " #t" -"((letrec-values(((for-loop_281)" +"((letrec-values(((for-loop_283)" "(lambda(table_31)" "(begin" " 'for-loop" @@ -58489,7 +58718,7 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_37)))" -"((letrec-values(((for-loop_35)" +"((letrec-values(((for-loop_36)" "(lambda(table_147" " i_49)" "(begin" @@ -58503,47 +58732,47 @@ static const char *startup_source = "(let-values(((table_121)" "(let-values(((table_162)" " table_147))" -"(let-values(((table_230)" +"(let-values(((table_229)" "(let-values()" -"(let-values(((key_90" -" val_81)" +"(let-values(((key_93" +" val_85)" "(let-values()" "(values" " sym_99" " binding_29))))" "(hash-set" " table_162" -" key_90" -" val_81)))))" +" key_93" +" val_85)))))" "(values" -" table_230)))))" +" table_229)))))" "(if(not" " #f)" -"(for-loop_35" +"(for-loop_36" " table_121" "(hash-iterate-next" " ht_37" " i_49))" " table_121)))" " table_147)))))" -" for-loop_35)" +" for-loop_36)" " table_31" "(hash-iterate-first" " ht_37))))))" " table_32))))))" -" for-loop_281)" -" table_228)))))" +" for-loop_283)" +" table_227)))))" "(if(not #f)" -"(for-loop_280 table_229 rest_177)" -" table_229)))" -" table_228)))))" -" for-loop_280)" +"(for-loop_282 table_228 rest_177)" +" table_228)))" +" table_227)))))" +" for-loop_282)" " '#hash()" " lst_56))))" " '#hasheqv()))" "((void87_0) void))" "(make-module39.1" -" temp82_6" +" temp82_7" " #t" " #f" " #f" @@ -58560,14 +58789,14 @@ static const char *startup_source = " #f" " #f" " #f" -" temp83_4" +" temp83_3" " #t" " #f" " #f" " #f" " #f" -" temp86_1" -" temp85_4" +" temp86_2" +" temp85_5" " #t" " mpi84_0" " #f" @@ -58576,7 +58805,7 @@ static const char *startup_source = " #f" " #f" " #f)))" -"((temp81_3)(1/module-path-index-resolve mpi_51)))" +"((temp81_3)(1/module-path-index-resolve mpi_53)))" "(declare-module!58.1 #f #f ns79_1 temp80_6 temp81_3))))))))))))" "(define-values" "(read-primitives)" @@ -58634,6 +58863,96 @@ static const char *startup_source = " 'special-comment-value" " 1/special-comment-value))" "(define-values" +"(eval$1)" +"(let-values()" +"(let-values()" +"(case-lambda" +"((s_69)(begin 'eval((1/current-eval)(intro s_69))))" +"((s_183 ns_121)" +"(begin" +" (if (1/namespace? ns_121) (void) (let-values () (raise-argument-error 'eval \"namespace?\" ns_121)))" +"(with-continuation-mark" +" parameterization-key" +"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_121)" +"(let-values()((1/current-eval)(intro s_183 ns_121))))))))))" +"(define-values" +"(1/eval-syntax)" +"(let-values()" +"(let-values()" +"(case-lambda" +"((s_8)" +"(begin" +" 'eval-syntax" +"(begin" +" (if (syntax?$1 s_8) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_8)))" +"((1/current-eval) s_8))))" +"((s_2 ns_122)" +"(begin" +" (if (syntax?$1 s_2) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_2)))" +" (if (1/namespace? ns_122) (void) (let-values () (raise-argument-error 'eval-syntax \"namespace?\" ns_122)))" +"(with-continuation-mark" +" parameterization-key" +"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_122)" +"(let-values()((1/current-eval) s_2)))))))))" +"(define-values(compile$1)(lambda(s_170)(begin 'compile((1/current-compile)(intro s_170) #f))))" +"(define-values" +"(1/compile-syntax)" +"(lambda(s_189)" +"(begin" +" 'compile-syntax" +"(let-values()" +"(let-values()" +"(begin" +" (if (syntax?$1 s_189) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_189)))" +"((1/current-compile) s_189 #f)))))))" +"(define-values(1/expand)(lambda(s_9)(begin 'expand(expand$1(intro s_9)(1/current-namespace) #t))))" +"(define-values" +"(1/expand-syntax)" +"(lambda(s_480)" +"(begin" +" 'expand-syntax" +"(let-values()" +"(let-values()" +"(begin" +" (if (syntax?$1 s_480) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_480)))" +"(expand$1 s_480(1/current-namespace) #t)))))))" +"(define-values(1/expand-once)(lambda(s_477)(begin 'expand-once(expand-once$1(intro s_477)))))" +"(define-values" +"(1/expand-syntax-once)" +"(lambda(s_171)" +"(begin" +" 'expand-syntax-once" +"(let-values()" +"(let-values()" +"(begin" +" (if (syntax?$1 s_171) (void) (let-values () (raise-argument-error 'expand-syntax-once \"syntax?\" s_171)))" +"(expand-once$1 s_171)))))))" +"(define-values(1/expand-to-top-form)(lambda(s_72)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_72)))))" +"(define-values" +"(1/expand-syntax-to-top-form)" +"(lambda(s_164)" +"(begin" +" 'expand-syntax-to-top-form" +"(let-values()" +"(let-values()" +"(begin" +"(if(syntax?$1 s_164)" +"(void)" +" (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_164)))" +"(expand-to-top-form$1 s_164)))))))" +"(define-values" +"(intro)" +"(let-values(((intro4_0)" +"(lambda(given-s3_0 ns1_7 ns2_1)" +"(begin" +" 'intro4" +"(let-values(((given-s_1) given-s3_0))" +"(let-values(((ns_68)(if ns2_1 ns1_7(1/current-namespace))))" +"(let-values()" +"(let-values(((s_397)(if(syntax?$1 given-s_1) given-s_1(1/datum->syntax #f given-s_1))))" +"(1/namespace-syntax-introduce s_397 ns_68)))))))))" +"(case-lambda((given-s_2)(begin(intro4_0 given-s_2 #f #f)))((given-s_3 ns1_8)(intro4_0 given-s_3 ns1_8 #t)))))" +"(define-values" "(main-primitives)" "(hasheq" " 'eval" @@ -58800,10 +59119,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_92)(TH-place-channel-ref x_92 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_93)(TH-place-channel-ref x_93 0))(lambda(x_80)(TH-place-channel-ref x_80 1))))" "(define-values" "(place-struct-primitives)" "(hasheq" @@ -58927,8 +59246,8 @@ static const char *startup_source = "(check-module-form)" "(lambda(exp_0 filename_1)" "(begin" -"(if(let-values(((or-part_312)(eof-object? exp_0)))" -"(if or-part_312 or-part_312(eof-object?(1/syntax-e exp_0))))" +"(if(let-values(((or-part_309)(eof-object? exp_0)))" +"(if or-part_309 or-part_309(eof-object?(1/syntax-e exp_0))))" "(let-values()" "(if filename_1" "(error" @@ -58941,9 +59260,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_41)(cdr(1/syntax-e exp_0))))" -"(let-values(((r_46)(if(syntax?$1 r_41)(1/syntax-e r_41) r_41)))" -"(if(pair? r_46)(identifier?(car r_46)) #f)))" +"(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)" @@ -58990,35 +59309,35 @@ static const char *startup_source = " expected-mod_0)))" "(values))))" "(let-values(((maybe-count-lines!_0)" -"(lambda(i_128)" +"(lambda(i_129)" "(begin" " 'maybe-count-lines!" " (if (regexp-match? '#rx\"[.]zo$\" path_12)" "(void)" -"(let-values()(port-count-lines! i_128)))))))" +"(let-values()(port-count-lines! i_129)))))))" "(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_126)" "(let-values(((b-pos_0)" -"(search-directory i_185 pos_126(encode-symbols expected-mod_0))))" +"(search-directory i_186 pos_126(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" @@ -59027,7 +59346,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)" @@ -59035,18 +59354,18 @@ 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_17)(cached-bundle i_185)))" +"(let-values(((c2_17)(cached-bundle i_186)))" "(if c2_17" "((lambda(thunk_6) thunk_6) c2_17)" "(let-values()" -"(let-values(((s_169)(1/read-syntax(object-name i_185) i_185)))" +"(let-values(((s_171)(1/read-syntax(object-name i_186) i_186)))" "(let-values((()" "(begin" -"(if(eof-object? s_169)" +"(if(eof-object? s_171)" "(let-values()" "(error" " 'default-load-handler" @@ -59054,11 +59373,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_169 path_12)))" -"(let-values(((s2_7)(1/read-syntax(object-name i_185) i_185)))" +"(let-values(((m-s_0)(check-module-form s_171 path_12)))" +"(let-values(((s2_7)(1/read-syntax(object-name i_186) i_186)))" "(begin" "(if(eof-object? s2_7)" "(void)" @@ -59070,28 +59389,28 @@ 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_426)" +"(lambda(s_429)" "(begin" " 'add-top-interaction" "(1/namespace-syntax-introduce" -"(1/datum->syntax s_426(cons '#%top-interaction s_426)))))))" +"(1/datum->syntax s_429(cons '#%top-interaction s_429)))))))" "(let-values(((path1_0) path_12)" -"((temp2_7)" -"(lambda(i_76)" +"((temp2_8)" +"(lambda(i_84)" "(begin" " 'temp2" "(begin" -"(maybe-count-lines!_0 i_76)" +"(maybe-count-lines!_0 i_84)" "((letrec-values(((loop_111)" "(lambda(vals_7)" "(begin" " 'loop" -"(let-values(((s_297)" +"(let-values(((s_300)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -59116,19 +59435,19 @@ static const char *startup_source = "(path->complete-path path_12))" "(let-values()" "(1/read-syntax" -"(object-name i_76)" -" i_76)))" +"(object-name i_84)" +" i_84)))" "(1/read-syntax" -"(object-name i_76)" -" i_76))))))" -"(if(eof-object? s_297)" +"(object-name i_84)" +" i_84))))))" +"(if(eof-object? s_300)" "(apply values vals_7)" "(loop_111" "(call-with-continuation-prompt" "(lambda()" "(call-with-values" "(lambda()" -"((1/current-eval)(add-top-interaction_0 s_297)))" +"((1/current-eval)(add-top-interaction_0 s_300)))" " list))" "(default-continuation-prompt-tag)" "(lambda args_10" @@ -59138,7 +59457,7 @@ static const char *startup_source = " args_10))))))))))" " loop_111)" "(list(void))))))))" -"(call-with-input-file*61.1 #f #f path1_0 temp2_7)))))))))))" +"(call-with-input-file*61.1 #f #f path1_0 temp2_8)))))))))))" "(define-values" "(linklet-bundle-or-directory-start)" "(lambda(i_149 tag_1)" @@ -59159,10 +59478,10 @@ static const char *startup_source = "(begin(let-values(((pos_94)(linklet-bundle-or-directory-start i_154 '#\\D)))(if pos_94(+ pos_94 4) #f)))))" "(define-values" "(linklet-bundle-hash-code)" -"(lambda(i_84)" +"(lambda(i_85)" "(begin" -"(let-values(((pos_14)(linklet-bundle-or-directory-start i_84 '#\\B)))" -"(let-values(((hash-code_5)(if pos_14(peek-bytes 20 pos_14 i_84) #f)))" +"(let-values(((pos_14)(linklet-bundle-or-directory-start i_85 '#\\B)))" +"(let-values(((hash-code_5)(if pos_14(peek-bytes 20 pos_14 i_85) #f)))" "(if(bytes? hash-code_5)" "(if(= 20(bytes-length hash-code_5))" "(if(let-values(((vec_68 len_39)" @@ -59170,23 +59489,23 @@ static const char *startup_source = "(begin(check-bytes vec_69)(values vec_69(unsafe-bytes-length vec_69))))))" "(begin" " #f" -"((letrec-values(((for-loop_229)" +"((letrec-values(((for-loop_230)" "(lambda(result_122 pos_127)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_127 len_39)" -"(let-values(((c_73)(unsafe-bytes-ref vec_68 pos_127)))" +"(let-values(((c_75)(unsafe-bytes-ref vec_68 pos_127)))" "(let-values(((result_123)" "(let-values()" "(let-values(((result_124)" "(let-values()" -"(let-values()(not(eq? c_73 0))))))" +"(let-values()(not(eq? c_75 0))))))" "(values result_124)))))" -"(if(if(not((lambda x_90 result_123) c_73))(not #f) #f)" -"(for-loop_229 result_123(unsafe-fx+ 1 pos_127))" +"(if(if(not((lambda x_94 result_123) c_75))(not #f) #f)" +"(for-loop_230 result_123(unsafe-fx+ 1 pos_127))" " result_123)))" " result_122)))))" -" for-loop_229)" +" for-loop_230)" " #f" " 0)))" " hash-code_5" @@ -59195,9 +59514,9 @@ static const char *startup_source = " #f))))))" "(define-values" "(cached-bundle)" -"(lambda(i_93)" +"(lambda(i_94)" "(begin" -"(let-values(((c3_10)(module-cache-ref(make-module-cache-key(linklet-bundle-hash-code i_93)))))" +"(let-values(((c3_10)(module-cache-ref(make-module-cache-key(linklet-bundle-hash-code i_94)))))" "(if c3_10" "((lambda(declare-module_0)(lambda()(declare-module_0(1/current-namespace)))) c3_10)" "(let-values() #f))))))" @@ -59206,10 +59525,10 @@ static const char *startup_source = "(lambda(i_41)" "(begin" "(let-values(((read-byte/not-eof_0)" -"(lambda(i_186)" +"(lambda(i_187)" "(begin" " 'read-byte/not-eof" -"(let-values(((v_179)(read-byte i_186)))(if(eof-object? v_179) 0 v_179))))))" +"(let-values(((v_178)(read-byte i_187)))(if(eof-object? v_178) 0 v_178))))))" "(bitwise-ior" "(read-byte/not-eof_0 i_41)" "(arithmetic-shift(read-byte/not-eof_0 i_41) 8)" @@ -59217,16 +59536,16 @@ static const char *startup_source = "(arithmetic-shift(read-byte/not-eof_0 i_41) 24))))))" "(define-values" "(search-directory)" -"(lambda(i_187 pos_128 bstr_5)" +"(lambda(i_188 pos_128 bstr_5)" "(begin" "(if(zero? pos_128)" "(let-values() #f)" "(let-values()" -"(let-values((()(begin(file-position i_187 pos_128)(values))))" -"(let-values(((name-len_0)(read-number i_187)))" -"(let-values(((v_246)(read-bytes name-len_0 i_187)))" +"(let-values((()(begin(file-position i_188 pos_128)(values))))" +"(let-values(((name-len_0)(read-number i_188)))" +"(let-values(((v_247)(read-bytes name-len_0 i_188)))" "(begin" -"(if(if(bytes? v_246)(=(bytes-length v_246) name-len_0) #f)" +"(if(if(bytes? v_247)(=(bytes-length v_247) name-len_0) #f)" "(void)" "(let-values()" "(error" @@ -59237,24 +59556,24 @@ static const char *startup_source = " \" at position: ~a\\n\"" " \" expected bytes: ~a\\n\"" " \" read bytes: ~e\")" -"(object-name i_187)" +"(object-name i_188)" " pos_128" " name-len_0" -" v_246)))" -"(if(bytes=? bstr_5 v_246)" -"(let-values()(read-number i_187))" -"(if(bytesbytes/utf-8" -"(symbol->string s_461))))" +"(symbol->string s_464))))" "(let-values(((len_40)" "(bytes-length bstr_6)))" "(if(< len_40 255)" @@ -59303,11 +59622,11 @@ static const char *startup_source = " bstr_6))))))" " fold-var_64))))" "(values fold-var_70)))))" -"(if(not #f)(for-loop_102 fold-var_20 rest_44) fold-var_20)))" +"(if(not #f)(for-loop_103 fold-var_20 rest_44) fold-var_20)))" " fold-var_63)))))" -" for-loop_102)" +" for-loop_103)" " null" -" lst_317))))))))))" +" lst_318))))))))))" "(define-values" "(with-module-reading-parameterization+delay-source)" "(lambda(path_13 thunk_7)" @@ -59328,20 +59647,20 @@ static const char *startup_source = "(let-values(((i_162) #f))" "(dynamic-wind" "(lambda()" -"(set! i_162(let-values(((path3_0) path_14)((temp4_9) #t))(open-input-file6.1 temp4_9 #t #f #f path3_0))))" +"(set! i_162(let-values(((path3_0) path_14)((temp4_8) #t))(open-input-file6.1 temp4_8 #t #f #f path3_0))))" "(lambda()(proc_10 i_162))" "(lambda()(close-input-port i_162)))))))" "(define-values(dll-suffix)(system-type 'so-suffix))" "(define-values" "(default-load/use-compiled)" "(let-values(((resolve_0)" -"(lambda(s_153)" +"(lambda(s_69)" "(begin" " 'resolve" -"(if(complete-path? s_153)" -" s_153" +"(if(complete-path? s_69)" +" s_69" "(let-values(((d_35)(current-load-relative-directory)))" -"(if d_35(path->complete-path s_153 d_35) s_153)))))))" +"(if d_35(path->complete-path s_69 d_35) s_69)))))))" "(let-values(((date-of-1_0)" "(lambda(a_28)" "(begin" @@ -59391,16 +59710,16 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_167)(not expect-module_0)))" -"(if or-part_167" -" or-part_167" -"(let-values(((or-part_72)(symbol? expect-module_0)))" -"(if or-part_72" -" or-part_72" +"(if(let-values(((or-part_168)(not expect-module_0)))" +"(if or-part_168" +" or-part_168" +"(let-values(((or-part_71)(symbol? expect-module_0)))" +"(if or-part_71" +" or-part_71" "(if(list? expect-module_0)" "(if(>(length expect-module_0) 1)" -"(if(let-values(((or-part_73)(symbol?(car expect-module_0))))" -"(if or-part_73 or-part_73(not(car expect-module_0))))" +"(if(let-values(((or-part_72)(symbol?(car expect-module_0))))" +"(if or-part_72 or-part_72(not(car expect-module_0))))" "(andmap2 symbol?(cdr expect-module_0))" " #f)" " #f)" @@ -59412,12 +59731,12 @@ static const char *startup_source = " \"(or/c #f symbol? (cons/c (or/c #f symbol?) (non-empty-listof symbol?)))\"" " path_15)))" "(values))))" -"(let-values(((name_74)(if expect-module_0(1/current-module-declare-name) #f)))" +"(let-values(((name_55)(if expect-module_0(1/current-module-declare-name) #f)))" "(let-values(((ns-hts_0)" -"(if name_74" +"(if name_55" "(registry-table-ref(1/namespace-module-registry(1/current-namespace)))" " #f)))" -"(let-values(((use-path/src_0)(if ns-hts_0(hash-ref(cdr ns-hts_0) name_74 #f) #f)))" +"(let-values(((use-path/src_0)(if ns-hts_0(hash-ref(cdr ns-hts_0) name_55 #f) #f)))" "(if use-path/src_0" "(with-continuation-mark" " parameterization-key" @@ -59433,16 +59752,16 @@ static const char *startup_source = "(let-values(((base_23 orig-file_0 dir?_7)(split-path path_15)))" "(let-values(((file_1 alt-file_0)" "(if expect-module_0" -"(let-values(((b_86)(path->bytes orig-file_0)))" -"(let-values(((len_7)(bytes-length b_86)))" +"(let-values(((b_88)(path->bytes orig-file_0)))" +"(let-values(((len_7)(bytes-length b_88)))" "(if(if(>= len_7 4)" -" (bytes=? #\".rkt\" (subbytes b_86 (- len_7 4)))" +" (bytes=? #\".rkt\" (subbytes b_88 (- len_7 4)))" " #f)" "(let-values()" "(values" " orig-file_0" "(bytes->path" -" (bytes-append (subbytes b_86 0 (- len_7 4)) #\".ss\"))))" +" (bytes-append (subbytes b_88 0 (- len_7 4)) #\".ss\"))))" "(let-values()(values orig-file_0 #f)))))" "(values orig-file_0 #f))))" "(let-values(((path_16)" @@ -59457,14 +59776,14 @@ 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_74 d_36)" +"(lambda(p_75 d_36)" "(begin" " 'reroot" "(if(eq? d_36 'same)" -"(let-values() p_74)" +"(let-values() p_75)" "(if(relative-path? d_36)" -"(let-values()(build-path p_74 d_36))" -"(let-values()(reroot-path p_74 d_36))))))))" +"(let-values()(build-path p_75 d_36))" +"(let-values()(reroot-path p_75 d_36))))))))" "(let-values(((main-path-d_0)(date-of-1_0 path_16)))" "(let-values(((alt-path-d_0)" "(if alt-path_0" @@ -59505,9 +59824,9 @@ 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_375) main-path-d_0))" +"(if or-part_375" +" or-part_375" "(not alt-path-d_0)))))" "(let-values(((try-alt?_0)" "(if alt-file_0" @@ -59584,7 +59903,7 @@ static const char *startup_source = "((lambda(zo-d_0)" "(begin" "(register-zo-path" -" name_74" +" name_55" " ns-hts_0" "(car zo-d_0)" " #f" @@ -59616,7 +59935,7 @@ static const char *startup_source = "((lambda(zo-d_1)" "(begin" "(register-zo-path" -" name_74" +" name_55" " ns-hts_0" "(car zo-d_1)" " alt-path_0" @@ -59636,12 +59955,12 @@ static const char *startup_source = "(car zo-d_1)" " expect-module_0)))))))" " c4_3)" -"(if(let-values(((or-part_362)" +"(if(let-values(((or-part_360)" "(not" "(pair?" " expect-module_0))))" -"(if or-part_362" -" or-part_362" +"(if or-part_360" +" or-part_360" "(car expect-module_0)))" "(let-values()" "(let-values(((p_40)" @@ -59676,69 +59995,69 @@ static const char *startup_source = "(void))))))))))))))))))))))))))))))))))))))))))))" "(define-values" "(register-zo-path)" -"(lambda(name_75 ns-hts_1 path_17 src-path_0 base_27)" -"(begin(if ns-hts_1(let-values()(hash-set!(cdr ns-hts_1) name_75(list path_17 src-path_0 base_27)))(void)))))" +"(lambda(name_76 ns-hts_1 path_17 src-path_0 base_27)" +"(begin(if ns-hts_1(let-values()(hash-set!(cdr ns-hts_1) name_76(list path_17 src-path_0 base_27)))(void)))))" "(define-values(default-reader-guard)(lambda(path_18)(begin path_18)))" "(define-values(-module-hash-table-table)(make-weak-hasheq))" "(define-values" "(registry-table-ref)" "(lambda(reg_0)" -"(begin(let-values(((e_86)(hash-ref -module-hash-table-table reg_0 #f)))(if e_86(ephemeron-value e_86) #f)))))" +"(begin(let-values(((e_87)(hash-ref -module-hash-table-table reg_0 #f)))(if e_87(ephemeron-value e_87) #f)))))" "(define-values" "(registry-table-set!)" -"(lambda(reg_1 v_199)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_199)))))" +"(lambda(reg_1 v_198)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_198)))))" "(define-values(CACHE-N) 512)" "(define-values(-path-cache)(make-vector CACHE-N #f))" "(define-values" "(path-cache-get)" -"(lambda(p_75)" +"(lambda(p_76)" "(begin" -"(let-values(((i_26)(modulo(abs(equal-hash-code p_75)) CACHE-N)))" +"(let-values(((i_26)(modulo(abs(equal-hash-code p_76)) CACHE-N)))" "(let-values(((w_1)(vector-ref -path-cache i_26)))" "(let-values(((l_80)(if w_1(weak-box-value w_1) #f)))" -"(if l_80(let-values(((a_71)(1/assoc p_75 l_80)))(if a_71(cdr a_71) #f)) #f)))))))" +"(if l_80(let-values(((a_71)(1/assoc p_76 l_80)))(if a_71(cdr a_71) #f)) #f)))))))" "(define-values" "(path-cache-set!)" -"(lambda(p_76 v_247)" +"(lambda(p_77 v_248)" "(begin" -"(let-values(((i_188)(modulo(abs(equal-hash-code p_76)) CACHE-N)))" -"(let-values(((w_2)(vector-ref -path-cache i_188)))" +"(let-values(((i_189)(modulo(abs(equal-hash-code p_77)) CACHE-N)))" +"(let-values(((w_2)(vector-ref -path-cache i_189)))" "(let-values(((l_67)(if w_2(weak-box-value w_2) #f)))" "(vector-set!" " -path-cache" -" i_188" +" i_189" "(make-weak-box" -"(cons(cons p_76 v_247)(let-values(((or-part_35) l_67))(if or-part_35 or-part_35 null)))))))))))" +"(cons(cons p_77 v_248)(let-values(((or-part_35) l_67))(if or-part_35 or-part_35 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_472 coll-mode?_0)" +"(lambda(s_475 coll-mode?_0)" "(begin" "(let-values(((l_19)" "((letrec-values(((loop_117)" -"(lambda(s_476)" +"(lambda(s_481)" "(begin" " 'loop" -"(let-values(((len_41)(string-length s_476)))" +"(let-values(((len_41)(string-length s_481)))" "((letrec-values(((iloop_2)" -"(lambda(i_101)" +"(lambda(i_102)" "(begin" " 'iloop" -"(if(= i_101 len_41)" -"(let-values()(list s_476))" -"(if(char=? '#\\/(string-ref s_476 i_101))" +"(if(= i_102 len_41)" +"(let-values()(list s_481))" +"(if(char=? '#\\/(string-ref s_481 i_102))" "(let-values()" "(cons" -"(substring s_476 0 i_101)" -"(loop_117(substring s_476(add1 i_101)))))" -"(let-values()(iloop_2(add1 i_101)))))))))" +"(substring s_481 0 i_102)" +"(loop_117(substring s_481(add1 i_102)))))" +"(let-values()(iloop_2(add1 i_102)))))))))" " iloop_2)" " 0))))))" " loop_117)" -" s_472)))" +" s_475)))" "(if coll-mode?_0" " l_19" "((letrec-values(((loop_101)" @@ -59747,8 +60066,8 @@ static const char *startup_source = " 'loop" "(if(null?(cdr l_78))" "(values null(car l_78))" -"(let-values(((c_116 f_39)(loop_101(cdr l_78))))" -"(values(cons(car l_78) c_116) f_39)))))))" +"(let-values(((c_117 f_39)(loop_101(cdr l_78))))" +"(values(cons(car l_78) c_117) f_39)))))))" " loop_101)" " l_19))))))" "(define-values" @@ -59781,29 +60100,29 @@ static const char *startup_source = " (1/dynamic-require '(lib \"planet/resolver.rkt\") 'planet-module-name-resolver)))))))))" "(letrec-values(((standard-module-name-resolver_0)" "(case-lambda" -"((s_473 from-namespace_1)" +"((s_476 from-namespace_1)" "(begin" " 'standard-module-name-resolver" "(begin" -"(if(1/resolved-module-path? s_473)" +"(if(1/resolved-module-path? s_476)" "(void)" "(let-values()" -" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_473)))" -"(if(let-values(((or-part_136)(not from-namespace_1)))" -"(if or-part_136 or-part_136(1/namespace? from-namespace_1)))" +" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_476)))" +"(if(let-values(((or-part_135)(not from-namespace_1)))" +"(if or-part_135 or-part_135(1/namespace? from-namespace_1)))" "(void)" "(let-values()" "(raise-argument-error" " 'standard-module-name-resolver" " \"(or/c #f namespace?)\"" " from-namespace_1)))" -"(if planet-resolver_0(let-values()(planet-resolver_0 s_473))(void))" +"(if planet-resolver_0(let-values()(planet-resolver_0 s_476))(void))" "(let-values(((hts_1)" -"(let-values(((or-part_314)" +"(let-values(((or-part_312)" "(registry-table-ref" "(1/namespace-module-registry(1/current-namespace)))))" -"(if or-part_314" -" or-part_314" +"(if or-part_312" +" or-part_312" "(let-values(((hts_2)(cons(make-hasheq)(make-hasheq))))" "(begin" "(registry-table-set!" @@ -59811,14 +60130,14 @@ static const char *startup_source = " hts_2)" " hts_2))))))" "(begin" -"(hash-set!(car hts_1) s_473 'declared)" +"(hash-set!(car hts_1) s_476 'declared)" "(if from-namespace_1" "(let-values()" "(let-values(((root-name_2)" -"(if(pair?(1/resolved-module-path-name s_473))" +"(if(pair?(1/resolved-module-path-name s_476))" "(1/make-resolved-module-path" -"(car(1/resolved-module-path-name s_473)))" -" s_473))" +"(car(1/resolved-module-path-name s_476)))" +" s_476))" "((from-hts_0)" "(registry-table-ref" "(1/namespace-module-registry from-namespace_1))))" @@ -59830,14 +60149,14 @@ static const char *startup_source = "(void))))" "(void))))" "(void)))))))" -"((s_477 relto_0 stx_18)" +"((s_482 relto_0 stx_18)" "(begin" "(log-message" "(current-logger)" " 'error" " \"default module name resolver called with three arguments (deprecated)\"" " #f)" -"(standard-module-name-resolver_0 s_477 relto_0 stx_18 #t)))" +"(standard-module-name-resolver_0 s_482 relto_0 stx_18 #t)))" "((s_26 relto_1 stx_19 load?_7)" "(let-values((()" "(begin" @@ -59853,8 +60172,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_139)(not relto_1)))" -"(if or-part_139 or-part_139(1/resolved-module-path? relto_1)))" +"(if(let-values(((or-part_138)(not relto_1)))" +"(if or-part_138 or-part_138(1/resolved-module-path? relto_1)))" "(void)" "(let-values()" "(raise-argument-error" @@ -59864,8 +60183,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_54)(not stx_19)))" -"(if or-part_54 or-part_54(syntax?$1 stx_19)))" +"(if(let-values(((or-part_146)(not stx_19)))" +"(if or-part_146 or-part_146(syntax?$1 stx_19)))" "(void)" "(let-values()" "(raise-argument-error" @@ -59923,14 +60242,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_93) (equal? (cadr s_26) \".\")))" -" (if or-part_93 or-part_93 (equal? (cadr s_26) \"..\")))" +" (if (let-values (((or-part_92) (equal? (cadr s_26) \".\")))" +" (if or-part_92 or-part_92 (equal? (cadr s_26) \"..\")))" "(if relto_1" -"(let-values(((p_77)(1/resolved-module-path-name relto_1)))" -"(let-values(((or-part_377)(symbol? p_77)))" -"(if or-part_377" -" or-part_377" -"(if(pair? p_77)(symbol?(car p_77)) #f))))" +"(let-values(((p_78)(1/resolved-module-path-name relto_1)))" +"(let-values(((or-part_376)(symbol? p_78)))" +"(if or-part_376" +" or-part_376" +"(if(pair? p_78)(symbol?(car p_78)) #f))))" " #f)" " #f)" " #f)" @@ -59940,9 +60259,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_47)" +"(let-values(((r_48)" " (if (equal? (cadr s_26) \"..\") (cdr s_26) (cddr s_26))))" -"(if(pair? rp_0)(append(cdr rp_0) r_47) r_47))))))" +"(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" @@ -59968,23 +60287,23 @@ static const char *startup_source = "(lambda()" "(begin" " 'get-dir" -"(let-values(((or-part_55)" +"(let-values(((or-part_377)" "(if relto_1" "(if(eq? relto_1 -prev-relto)" " -prev-relto-dir" -"(let-values(((p_78)" +"(let-values(((p_79)" "(1/resolved-module-path-name" " relto_1)))" -"(let-values(((p_79)" -"(if(pair? p_78)" -"(car p_78)" -" p_78)))" -"(if(path? p_79)" +"(let-values(((p_80)" +"(if(pair? p_79)" +"(car p_79)" +" p_79)))" +"(if(path? p_80)" "(let-values(((base_29" " n_35" " d?_0)" "(split-path" -" p_79)))" +" p_80)))" "(begin" "(set! -prev-relto relto_1)" "(set! -prev-relto-dir" @@ -59992,8 +60311,8 @@ static const char *startup_source = " base_29))" " #f))))" " #f)))" -"(if or-part_55" -" or-part_55" +"(if or-part_377" +" or-part_377" "(let-values(((or-part_42)" "(current-load-relative-directory)))" "(if or-part_42" @@ -60039,46 +60358,46 @@ static const char *startup_source = "(current-continuation-marks)" " s_26)))))))" "((ss->rkt_0)" -"(lambda(s_84)" +"(lambda(s_90)" "(begin" " 'ss->rkt" -"(let-values(((len_42)(string-length s_84)))" +"(let-values(((len_42)(string-length s_90)))" "(if(if(>= len_42 3)" "(if(equal?" " '#\\." -"(string-ref s_84(- len_42 3)))" +"(string-ref s_90(- len_42 3)))" "(if(equal?" " '#\\s" -"(string-ref s_84(- len_42 2)))" +"(string-ref s_90(- len_42 2)))" "(equal?" " '#\\s" -"(string-ref s_84(- len_42 1)))" +"(string-ref s_90(- len_42 1)))" " #f)" " #f)" " #f)" "(string-append" -"(substring s_84 0(- len_42 3))" +"(substring s_90 0(- len_42 3))" " \".rkt\")" -" s_84)))))" +" s_90)))))" "((path-ss->rkt_0)" -"(lambda(p_80)" +"(lambda(p_81)" "(begin" " 'path-ss->rkt" -"(let-values(((base_30 name_76 dir?_8)" -"(split-path p_80)))" -" (if (regexp-match '#rx\"[.]ss$\" (path->bytes name_76))" -" (path-replace-extension p_80 #\".rkt\")" -" p_80)))))" +"(let-values(((base_11 name_77 dir?_8)" +"(split-path p_81)))" +" (if (regexp-match '#rx\"[.]ss$\" (path->bytes name_77))" +" (path-replace-extension p_81 #\".rkt\")" +" p_81)))))" "((s_31)" "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)" "(let-values(((v_38)(cadr s_26)))" " (if (let-values (((or-part_379) (equal? v_38 \".\")))" " (if or-part_379 or-part_379 (equal? v_38 \"..\")))" "(if relto_1" -"(let-values(((p_81)" +"(let-values(((p_82)" "(1/resolved-module-path-name" " relto_1)))" -"(if(pair? p_81)(car p_81) p_81))" +"(if(pair? p_82)(car p_82) p_82))" "(error" " 'standard-module-name-resolver" " \"no base path for relative submodule path: ~.s\"" @@ -60087,45 +60406,45 @@ static const char *startup_source = " s_26))" "((subm-path_0)" "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)" -"(let-values(((p_82)" -"(if(if(let-values(((or-part_178)" +"(let-values(((p_83)" +"(if(if(let-values(((or-part_179)" "(equal?" "(cadr s_26)" " \".\")))" -"(if or-part_178" -" or-part_178" +"(if or-part_179" +" or-part_179" " (equal? (cadr s_26) \"..\")))" " relto_1" " #f)" -"(let-values(((p_83)" +"(let-values(((p_84)" "(1/resolved-module-path-name" " relto_1))" -"((r_15)" +"((r_27)" "(if(equal?" "(cadr s_26)" " \"..\")" "(cdr s_26)" "(cddr s_26))))" -"(if(pair? p_83)" +"(if(pair? p_84)" "(flatten-sub-path_0" -"(car p_83)" -"(append(cdr p_83) r_15))" -"(flatten-sub-path_0 p_83 r_15)))" +"(car p_84)" +"(append(cdr p_84) r_27))" +"(flatten-sub-path_0 p_84 r_27)))" "(flatten-sub-path_0" " \".\"" " (if (equal? (cadr s_26) \"..\")" "(cdr s_26)" "(cddr s_26))))))" -"(if(pair? p_82)(cdr p_82) #f))" +"(if(pair? p_83)(cdr p_83) #f))" " #f)))" "(let-values(((s-parsed_0)" "(if(symbol? s_31)" "(let-values()" -"(let-values(((or-part_181)" +"(let-values(((or-part_183)" "(path-cache-get" "(cons s_31(get-reg_0)))))" -"(if or-part_181" -" or-part_181" +"(if or-part_183" +" or-part_183" "(let-values(((cols_0 file_3)" "(split-relative-string" "(symbol->string s_31)" @@ -60161,12 +60480,12 @@ static const char *startup_source = " dir_4" "(append" "(map2" -"(lambda(s_313)" -" (if (string=? s_313 \".\")" +"(lambda(s_315)" +" (if (string=? s_315 \".\")" "(let-values() 'same)" -" (if (string=? s_313 \"..\")" +" (if (string=? s_315 \"..\")" "(let-values() 'up)" -"(let-values() s_313))))" +"(let-values() s_315))))" " cols_1)" "(list(ss->rkt_0 file_4))))))))))" "(if(path? s_31)" @@ -60178,11 +60497,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_84)" +"(let-values(((or-part_83)" "(path-cache-get" "(cons s_31(get-reg_0)))))" -"(if or-part_84" -" or-part_84" +"(if or-part_83" +" or-part_83" "(let-values(((cols_2 file_5)" "(split-relative-string" "(cadr s_31)" @@ -60216,9 +60535,9 @@ static const char *startup_source = "(apply" " append" "(map2" -"(lambda(p_84)" +"(lambda(p_85)" "(split-relative-string" -" p_84" +" p_85" " #t))" "(cddr s_31))))" " cols_2)" @@ -60263,7 +60582,7 @@ static const char *startup_source = "(if(vector? s-parsed_0)" "(vector-ref s-parsed_0 1)" "(normal-case-path filename_2))))" -"(let-values(((base_31 name_19 dir?_9)" +"(let-values(((base_30 name_19 dir?_9)" "(if(vector? s-parsed_0)" "(values" " 'ignored" @@ -60279,11 +60598,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_297)" +"(let-values(((or-part_382)" "(registry-table-ref" "(get-reg_0))))" -"(if or-part_297" -" or-part_297" +"(if or-part_382" +" or-part_382" "(let-values(((hts_4)" "(cons" "(make-hasheq)" @@ -60326,11 +60645,11 @@ static const char *startup_source = "((nsr_0)(get-reg_0)))" "(begin" "(for-each2" -"(lambda(s_434)" +"(lambda(s_438)" "(if(if(equal?" -"(cdr s_434)" +"(cdr s_438)" " normal-filename_0)" -"(eq?(car s_434) nsr_0)" +"(eq?(car s_438) nsr_0)" " #f)" "(let-values()" "(error" @@ -60381,10 +60700,10 @@ static const char *startup_source = " root-modname_0" " 1/current-module-path-for-load" "((if stx_19" -"(lambda(p_85)" +"(lambda(p_86)" "(1/datum->syntax" " #f" -" p_85" +" p_86" " stx_19))" " values)" "(if(symbol? s_31)" @@ -60425,10 +60744,10 @@ static const char *startup_source = "(void))" "(if(if(not(vector? s-parsed_0))" "(if load?_7" -"(let-values(((or-part_382)" +"(let-values(((or-part_383)" "(string? s_31)))" -"(if or-part_382" -" or-part_382" +"(if or-part_383" +" or-part_383" "(let-values(((or-part_51)" "(symbol? s_31)))" "(if or-part_51" @@ -60459,14 +60778,14 @@ static const char *startup_source = "(1/eval" " s_59" "(1/current-namespace)" -"(let-values(((c_117)(1/current-compile)))" -"(lambda(e_87 ns_16)" +"(let-values(((c_118)(1/current-compile)))" +"(lambda(e_88 ns_16)" "(if(eq? ns_16(1/current-namespace))" -"(c_117 e_87 #t)" +"(c_118 e_88 #t)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_16)" -"(let-values()(c_117 e_87 #t))))))))))" +"(let-values()(c_118 e_88 #t))))))))))" "(define-values" "(default-compile-handler)" "(lambda(s_60 immediate-eval?_0)(begin(1/compile s_60(1/current-namespace)(not immediate-eval?_0)))))" @@ -60509,10 +60828,10 @@ static const char *startup_source = "(hash 'boot boot 'seal seal 'get-original-parameterization get-original-parameterization))" "(define-values" "(prepare-next-phase-namespace)" -"(lambda(ctx_75)" +"(lambda(ctx_76)" "(begin" -"(let-values(((phase_43)(add1(expand-context-phase ctx_75))))" -"(let-values(((ns_59)(namespace->namespace-at-phase(expand-context-namespace ctx_75) phase_43)))" +"(let-values(((phase_43)(add1(expand-context-phase ctx_76))))" +"(let-values(((ns_59)(namespace->namespace-at-phase(expand-context-namespace ctx_76) phase_43)))" "(namespace-visit-available-modules! ns_59 phase_43))))))" "(define-values" "(expand-body7.1)" @@ -60536,21 +60855,21 @@ static const char *startup_source = "(let-values(((inside-sc_0)(new-scope 'intdef)))" "(let-values(((init-bodys_0)" "(reverse$1" -"(let-values(((lst_266) bodys_7))" +"(let-values(((lst_265) bodys_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_266)))" -"((letrec-values(((for-loop_282)" -"(lambda(fold-var_68 lst_103)" +"(let-values()(check-list lst_265)))" +"((letrec-values(((for-loop_284)" +"(lambda(fold-var_68 lst_102)" "(begin" " 'for-loop" -"(if(pair? lst_103)" -"(let-values(((body_11)(unsafe-car lst_103))" -"((rest_140)(unsafe-cdr lst_103)))" +"(if(pair? lst_102)" +"(let-values(((body_11)(unsafe-car lst_102))" +"((rest_140)(unsafe-cdr lst_102)))" "(let-values(((fold-var_11)" "(let-values(((fold-var_12) fold-var_68))" -"(let-values(((fold-var_212)" +"(let-values(((fold-var_211)" "(let-values()" "(cons" "(let-values()" @@ -60558,14 +60877,14 @@ static const char *startup_source = " body_11" " inside-sc_0))" " fold-var_12))))" -"(values fold-var_212)))))" +"(values fold-var_211)))))" "(if(not #f)" -"(for-loop_282 fold-var_11 rest_140)" +"(for-loop_284 fold-var_11 rest_140)" " fold-var_11)))" " fold-var_68)))))" -" for-loop_282)" +" for-loop_284)" " null" -" lst_266))))))" +" lst_265))))))" "(let-values((()" "(begin" "(let-values(((obs_68)(expand-context-observer ctx_14)))" @@ -60583,11 +60902,11 @@ static const char *startup_source = "(let-values(((frame-id_2)(make-reference-record)))" "(let-values(((def-ctx-scopes_6)(box null)))" "(let-values(((body-ctx_0)" -"(let-values(((v_248) ctx_14))" -"(let-values(((the-struct_85) v_248))" +"(let-values(((v_249) ctx_14))" +"(let-values(((the-struct_85) v_249))" "(if(expand-context/outer? the-struct_85)" "(let-values(((context51_0)(list(make-liberal-define-context)))" -"((name52_0) #f)" +"((name52_1) #f)" "((only-immediate?53_0) #t)" "((def-ctx-scopes54_0) def-ctx-scopes_6)" "((post-expansion-scope55_0) inside-sc_0)" @@ -60600,7 +60919,7 @@ static const char *startup_source = "(cons" " frame-id_2" "(expand-context-reference-records ctx_14)))" -"((inner61_0)(root-expand-context/outer-inner v_248)))" +"((inner61_0)(root-expand-context/outer-inner v_249)))" "(expand-context/outer1.1" " inner61_0" " post-expansion-scope55_0" @@ -60616,7 +60935,7 @@ static const char *startup_source = " only-immediate?53_0" "(expand-context/outer-need-eventually-defined the-struct_85)" "(expand-context/outer-current-introduction-scopes the-struct_85)" -" name52_0))" +" name52_1))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" @@ -60630,7 +60949,7 @@ static const char *startup_source = "(expand-context-binding-layer ctx_14))" "(increment-binding-layer ids_28 body-ctx_1 inside-sc_0)" "(expand-context-binding-layer body-ctx_1))))))" -"(let-values(((name_77)(expand-context-name ctx_14)))" +"(let-values(((name_78)(expand-context-name ctx_14)))" "((letrec-values(((loop_120)" "(lambda(body-ctx_2" " bodys_8" @@ -60651,13 +60970,13 @@ static const char *startup_source = "((def-ctx-scopes64_0) def-ctx-scopes_6)" "((temp65_6)(reverse$1 val-idss_0))" "((temp66_4)(reverse$1 val-keyss_0))" -"((temp67_4)(reverse$1 val-rhss_0))" +"((temp67_3)(reverse$1 val-rhss_0))" "((temp68_2)(reverse$1 track-stxs_0))" -"((temp69_6)(reverse$1 stx-clauses_0))" +"((temp69_5)(reverse$1 stx-clauses_0))" "((temp70_3)(reverse$1 done-bodys_0))" "((s71_0) s_40)" "((stratified?72_0) stratified?_0)" -"((name73_0) name_77)" +"((name73_0) name_78)" "((temp74_3)(reverse$1 trans-idss_1)))" "(finish-expanding-body27.1" " temp74_3" @@ -60669,9 +60988,9 @@ static const char *startup_source = " def-ctx-scopes64_0" " temp65_6" " temp66_4" -" temp67_4" +" temp67_3" " temp68_2" -" temp69_6" +" temp69_5" " temp70_3)))" "(let-values()" "(let-values(((rest-bodys_0)(cdr bodys_8)))" @@ -60691,7 +61010,7 @@ static const char *startup_source = "(let-values(((exp-body_0)" "(let-values(((temp75_3)(car bodys_8))" "((temp76_3)" -"(if(if name_77" +"(if(if name_78" "(null?" "(cdr bodys_8))" " #f)" @@ -60702,7 +61021,7 @@ static const char *startup_source = "(if(expand-context/outer?" " the-struct_86)" "(let-values(((name77_0)" -" name_77)" +" name_78)" "((inner78_0)" "(root-expand-context/outer-inner" " v_223)))" @@ -60749,11 +61068,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_62)" "(core-form-sym" " disarmed-exp-body_0" " phase_17)))" -"(if(equal? tmp_60 'begin)" +"(if(equal? tmp_62 'begin)" "(let-values()" "(let-values((()" "(begin" @@ -60769,38 +61088,38 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_31 begin79_0 e80_0)" -"(let-values(((s_478)" +"(let-values(((s_483)" " disarmed-exp-body_0))" "(let-values(((orig-s_38)" -" s_478))" +" s_483))" "(let-values(((begin79_1" " e80_1)" -"(let-values(((s_460)" +"(let-values(((s_463)" "(if(syntax?$1" -" s_478)" +" s_483)" "(syntax-e$1" -" s_478)" -" s_478)))" +" s_483)" +" s_483)))" "(if(pair?" -" s_460)" +" s_463)" "(let-values(((begin81_0)" -"(let-values(((s_479)" +"(let-values(((s_484)" "(car" -" s_460)))" -" s_479))" +" s_463)))" +" s_484))" "((e82_0)" -"(let-values(((s_480)" +"(let-values(((s_485)" "(cdr" -" s_460)))" -"(let-values(((s_481)" +" s_463)))" +"(let-values(((s_486)" "(if(syntax?$1" -" s_480)" +" s_485)" "(syntax-e$1" -" s_480)" -" s_480)))" +" s_485)" +" s_485)))" "(let-values(((flat-s_24)" "(to-syntax-list.1" -" s_481)))" +" s_486)))" "(if(not" " flat-s_24)" "(let-values()" @@ -60822,11 +61141,11 @@ static const char *startup_source = " begin79_1" " e80_1))))))" "(let-values(((track_0)" -"(lambda(e_88)" +"(lambda(e_89)" "(begin" " 'track" "(syntax-track-origin$1" -" e_88" +" e_89" " exp-body_0)))))" "(let-values(((splice-bodys_0)" "(append" @@ -60855,7 +61174,7 @@ static const char *startup_source = " trans-idss_1" " stx-clauses_0" " dups_0)))))))" -"(if(equal? tmp_60 'define-values)" +"(if(equal? tmp_62 'define-values)" "(let-values()" "(let-values((()" "(begin" @@ -60881,45 +61200,45 @@ static const char *startup_source = "(let-values(((define-values83_1" " id84_1" " rhs85_1)" -"(let-values(((s_482)" +"(let-values(((s_487)" "(if(syntax?$1" " s_31)" "(syntax-e$1" " s_31)" " s_31)))" "(if(pair?" -" s_482)" +" s_487)" "(let-values(((define-values86_0)" "(let-values(((s_49)" "(car" -" s_482)))" +" s_487)))" " s_49))" -"((id87_1" +"((id87_0" " rhs88_0)" "(let-values(((s_32)" "(cdr" -" s_482)))" -"(let-values(((s_483)" +" s_487)))" +"(let-values(((s_488)" "(if(syntax?$1" " s_32)" "(syntax-e$1" " s_32)" " s_32)))" "(if(pair?" -" s_483)" +" s_488)" "(let-values(((id89_0)" -"(let-values(((s_308)" +"(let-values(((s_310)" "(car" -" s_483)))" -"(let-values(((s_389)" +" s_488)))" +"(let-values(((s_392)" "(if(syntax?$1" -" s_308)" +" s_310)" "(syntax-e$1" -" s_308)" -" s_308)))" +" s_310)" +" s_310)))" "(let-values(((flat-s_25)" "(to-syntax-list.1" -" s_389)))" +" s_392)))" "(if(not" " flat-s_25)" "(let-values()" @@ -60928,8 +61247,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_39))" "(let-values()" -"(let-values(((id_106)" -"(let-values(((lst_195)" +"(let-values(((id_107)" +"(let-values(((lst_194)" " flat-s_25))" "(begin" "(if(variable-reference-from-unsafe?" @@ -60937,90 +61256,90 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_195)))" -"((letrec-values(((for-loop_283)" -"(lambda(id_81" -" lst_318)" +" lst_194)))" +"((letrec-values(((for-loop_285)" +"(lambda(id_108" +" lst_319)" "(begin" " 'for-loop" "(if(pair?" -" lst_318)" -"(let-values(((s_311)" +" lst_319)" +"(let-values(((s_313)" "(unsafe-car" -" lst_318))" +" lst_319))" "((rest_178)" "(unsafe-cdr" -" lst_318)))" +" lst_319)))" "(let-values(((id_70)" -"(let-values(((id_107)" -" id_81))" -"(let-values(((id_108)" +"(let-values(((id_109)" +" id_108))" +"(let-values(((id_110)" "(let-values()" "(let-values(((id92_2)" "(let-values()" -"(if(let-values(((or-part_142)" +"(if(let-values(((or-part_141)" "(if(syntax?$1" -" s_311)" +" s_313)" "(symbol?" "(syntax-e$1" -" s_311))" +" s_313))" " #f)))" -"(if or-part_142" -" or-part_142" +"(if or-part_141" +" or-part_141" "(symbol?" -" s_311)))" -" s_311" +" s_313)))" +" s_313" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_39" -" s_311)))))" +" s_313)))))" "(cons" " id92_2" -" id_107)))))" +" id_109)))))" "(values" -" id_108)))))" +" id_110)))))" "(if(not" " #f)" -"(for-loop_283" +"(for-loop_285" " id_70" " rest_178)" " id_70)))" -" id_81)))))" -" for-loop_283)" +" id_108)))))" +" for-loop_285)" " null" -" lst_195)))))" +" lst_194)))))" "(reverse$1" -" id_106))))))))" +" id_107))))))))" "((rhs90_0)" -"(let-values(((s_484)" +"(let-values(((s_489)" "(cdr" -" s_483)))" -"(let-values(((s_485)" +" s_488)))" +"(let-values(((s_490)" "(if(syntax?$1" -" s_484)" +" s_489)" "(syntax-e$1" -" s_484)" -" s_484)))" +" s_489)" +" s_489)))" "(if(pair?" -" s_485)" +" s_490)" "(let-values(((rhs91_0)" "(let-values(((s_54)" "(car" -" s_485)))" +" s_490)))" " s_54))" "(()" -"(let-values(((s_312)" +"(let-values(((s_314)" "(cdr" -" s_485)))" -"(let-values(((s_313)" +" s_490)))" +"(let-values(((s_315)" "(if(syntax?$1" -" s_312)" +" s_314)" "(syntax-e$1" -" s_312)" -" s_312)))" +" s_314)" +" s_314)))" "(if(null?" -" s_313)" +" s_315)" "(values)" "(raise-syntax-error$1" " #f" @@ -61041,7 +61360,7 @@ static const char *startup_source = " orig-s_39))))))" "(values" " define-values86_0" -" id87_1" +" id87_0" " rhs88_0))" "(raise-syntax-error$1" " #f" @@ -61105,28 +61424,28 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_52)))" -"((letrec-values(((for-loop_284)" -"(lambda(fold-var_183" -" lst_319)" +"((letrec-values(((for-loop_286)" +"(lambda(fold-var_182" +" lst_320)" "(begin" " 'for-loop" "(if(pair?" -" lst_319)" -"(let-values(((id_86)" +" lst_320)" +"(let-values(((id_111)" "(unsafe-car" -" lst_319))" +" lst_320))" "((rest_179)" "(unsafe-cdr" -" lst_319)))" +" lst_320)))" "(let-values(((fold-var_238)" -"(let-values(((fold-var_283)" -" fold-var_183))" -"(let-values(((fold-var_284)" +"(let-values(((fold-var_289)" +" fold-var_182))" +"(let-values(((fold-var_290)" "(let-values()" "(cons" "(let-values()" -"(let-values(((id97_0)" -" id_86)" +"(let-values(((id97_1)" +" id_111)" "((phase98_0)" " phase_17)" "((counter99_0)" @@ -61140,26 +61459,26 @@ static const char *startup_source = " #t" " exp-body101_0" " #t" -" id97_0" +" id97_1" " phase98_0" " counter99_0)))" -" fold-var_283))))" +" fold-var_289))))" "(values" -" fold-var_284)))))" +" fold-var_290)))))" "(if(not" " #f)" -"(for-loop_284" +"(for-loop_286" " fold-var_238" " rest_179)" " fold-var_238)))" -" fold-var_183)))))" -" for-loop_284)" +" fold-var_182)))))" +" for-loop_286)" " null" " lst_52))))))" "(let-values(((extended-env_0)" -"(let-values(((lst_232)" +"(let-values(((lst_231)" " keys_5)" -"((lst_198)" +"((lst_197)" " ids_29))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61167,36 +61486,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_232)))" +" lst_231)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_198)))" -"((letrec-values(((for-loop_261)" +" lst_197)))" +"((letrec-values(((for-loop_287)" "(lambda(env_17" -" lst_320" -" lst_29)" +" lst_321" +" lst_274)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_320)" +" lst_321)" "(pair?" -" lst_29)" +" lst_274)" " #f)" -"(let-values(((key_91)" +"(let-values(((key_94)" "(unsafe-car" -" lst_320))" -"((rest_148)" +" lst_321))" +"((rest_147)" "(unsafe-cdr" -" lst_320))" +" lst_321))" "((id_9)" "(unsafe-car" -" lst_29))" +" lst_274))" "((rest_180)" "(unsafe-cdr" -" lst_29)))" +" lst_274)))" "(let-values(((env_18)" "(let-values(((env_19)" " env_17))" @@ -61204,29 +61523,29 @@ static const char *startup_source = "(let-values()" "(env-extend" " env_19" -" key_91" +" key_94" "(local-variable1.1" " id_9)))))" "(values" " env_20)))))" "(if(not" " #f)" -"(for-loop_261" +"(for-loop_287" " env_18" -" rest_148" +" rest_147" " rest_180)" " env_18)))" " env_17)))))" -" for-loop_261)" +" for-loop_287)" "(expand-context-env" " body-ctx_2)" -" lst_232" -" lst_198)))))" +" lst_231" +" lst_197)))))" "(loop_120" -"(let-values(((v_249)" +"(let-values(((v_250)" " body-ctx_2))" "(let-values(((the-struct_87)" -" v_249))" +" v_250))" "(if(expand-context/outer?" " the-struct_87)" "(let-values(((env102_0)" @@ -61237,7 +61556,7 @@ static const char *startup_source = " body-ctx_2))" "((inner104_0)" "(root-expand-context/outer-inner" -" v_249)))" +" v_250)))" "(expand-context/outer1.1" " inner104_0" "(root-expand-context/outer-post-expansion-scope" @@ -61276,7 +61595,7 @@ static const char *startup_source = " ids_29" "(append" "(reverse$1" -"(let-values(((lst_31)" +"(let-values(((lst_322)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61284,47 +61603,47 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_31)))" -"((letrec-values(((for-loop_24)" -"(lambda(fold-var_285" -" lst_32)" +" lst_322)))" +"((letrec-values(((for-loop_288)" +"(lambda(fold-var_291" +" lst_323)" "(begin" " 'for-loop" "(if(pair?" -" lst_32)" +" lst_323)" "(let-values(((done-body_0)" "(unsafe-car" -" lst_32))" -"((rest_12)" +" lst_323))" +"((rest_181)" "(unsafe-cdr" -" lst_32)))" -"(let-values(((fold-var_286)" -"(let-values(((fold-var_287)" -" fold-var_285))" -"(let-values(((fold-var_288)" +" lst_323)))" +"(let-values(((fold-var_292)" +"(let-values(((fold-var_293)" +" fold-var_291))" +"(let-values(((fold-var_294)" "(let-values()" "(cons" "(let-values()" " null)" -" fold-var_287))))" +" fold-var_293))))" "(values" -" fold-var_288)))))" +" fold-var_294)))))" "(if(not" " #f)" -"(for-loop_24" -" fold-var_286" -" rest_12)" -" fold-var_286)))" -" fold-var_285)))))" -" for-loop_24)" +"(for-loop_288" +" fold-var_292" +" rest_181)" +" fold-var_292)))" +" fold-var_291)))))" +" for-loop_288)" " null" -" lst_31))))" +" lst_322))))" " val-idss_0))" "(cons" " keys_5" "(append" "(reverse$1" -"(let-values(((lst_321)" +"(let-values(((lst_324)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61332,47 +61651,47 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_321)))" -"((letrec-values(((for-loop_285)" -"(lambda(fold-var_289" -" lst_322)" +" lst_324)))" +"((letrec-values(((for-loop_289)" +"(lambda(fold-var_295" +" lst_325)" "(begin" " 'for-loop" "(if(pair?" -" lst_322)" +" lst_325)" "(let-values(((done-body_1)" "(unsafe-car" -" lst_322))" -"((rest_181)" +" lst_325))" +"((rest_182)" "(unsafe-cdr" -" lst_322)))" -"(let-values(((fold-var_290)" -"(let-values(((fold-var_291)" -" fold-var_289))" -"(let-values(((fold-var_292)" +" lst_325)))" +"(let-values(((fold-var_296)" +"(let-values(((fold-var_297)" +" fold-var_295))" +"(let-values(((fold-var_298)" "(let-values()" "(cons" "(let-values()" " null)" -" fold-var_291))))" +" fold-var_297))))" "(values" -" fold-var_292)))))" +" fold-var_298)))))" "(if(not" " #f)" -"(for-loop_285" -" fold-var_290" -" rest_181)" -" fold-var_290)))" -" fold-var_289)))))" -" for-loop_285)" +"(for-loop_289" +" fold-var_296" +" rest_182)" +" fold-var_296)))" +" fold-var_295)))))" +" for-loop_289)" " null" -" lst_321))))" +" lst_324))))" " val-keyss_0))" "(cons" " rhs85_0" "(append" "(reverse$1" -"(let-values(((lst_323)" +"(let-values(((lst_326)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61380,24 +61699,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_323)))" -"((letrec-values(((for-loop_260)" -"(lambda(fold-var_293" -" lst_203)" +" lst_326)))" +"((letrec-values(((for-loop_261)" +"(lambda(fold-var_299" +" lst_202)" "(begin" " 'for-loop" "(if(pair?" -" lst_203)" +" lst_202)" "(let-values(((done-body_2)" "(unsafe-car" -" lst_203))" -"((rest_182)" +" lst_202))" +"((rest_183)" "(unsafe-cdr" -" lst_203)))" -"(let-values(((fold-var_294)" +" lst_202)))" +"(let-values(((fold-var_300)" "(let-values(((fold-var_138)" -" fold-var_293))" -"(let-values(((fold-var_295)" +" fold-var_299))" +"(let-values(((fold-var_301)" "(let-values()" "(cons" "(let-values()" @@ -61407,23 +61726,23 @@ static const char *startup_source = " phase_17))" " fold-var_138))))" "(values" -" fold-var_295)))))" +" fold-var_301)))))" "(if(not" " #f)" -"(for-loop_260" -" fold-var_294" -" rest_182)" -" fold-var_294)))" -" fold-var_293)))))" -" for-loop_260)" +"(for-loop_261" +" fold-var_300" +" rest_183)" +" fold-var_300)))" +" fold-var_299)))))" +" for-loop_261)" " null" -" lst_323))))" +" lst_326))))" " val-rhss_0))" "(cons" " exp-body_0" "(append" "(reverse$1" -"(let-values(((lst_108)" +"(let-values(((lst_107)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61431,46 +61750,46 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_108)))" -"((letrec-values(((for-loop_286)" +" lst_107)))" +"((letrec-values(((for-loop_290)" "(lambda(fold-var_139" -" lst_109)" +" lst_108)" "(begin" " 'for-loop" "(if(pair?" -" lst_109)" +" lst_108)" "(let-values(((done-body_3)" "(unsafe-car" -" lst_109))" -"((rest_183)" +" lst_108))" +"((rest_184)" "(unsafe-cdr" -" lst_109)))" -"(let-values(((fold-var_296)" +" lst_108)))" +"(let-values(((fold-var_302)" "(let-values(((fold-var_39)" " fold-var_139))" -"(let-values(((fold-var_297)" +"(let-values(((fold-var_303)" "(let-values()" "(cons" "(let-values()" " #f)" " fold-var_39))))" "(values" -" fold-var_297)))))" +" fold-var_303)))))" "(if(not" " #f)" -"(for-loop_286" -" fold-var_296" -" rest_183)" -" fold-var_296)))" +"(for-loop_290" +" fold-var_302" +" rest_184)" +" fold-var_302)))" " fold-var_139)))))" -" for-loop_286)" +" for-loop_290)" " null" -" lst_108))))" +" lst_107))))" " track-stxs_0))" " trans-idss_1" " stx-clauses_0" " new-dups_0))))))))))" -"(if(equal? tmp_60 'define-syntaxes)" +"(if(equal? tmp_62 'define-syntaxes)" "(let-values()" "(let-values((()" "(begin" @@ -61487,54 +61806,54 @@ static const char *startup_source = "(values))))" "(let-values(((ok?_20" " define-syntaxes105_0" -" id106_0" +" id106_1" " rhs107_0)" -"(let-values(((s_89)" +"(let-values(((s_95)" " disarmed-exp-body_0))" "(let-values(((orig-s_40)" -" s_89))" +" s_95))" "(let-values(((define-syntaxes105_1" -" id106_1" +" id106_2" " rhs107_1)" -"(let-values(((s_412)" +"(let-values(((s_491)" "(if(syntax?$1" -" s_89)" +" s_95)" "(syntax-e$1" -" s_89)" -" s_89)))" +" s_95)" +" s_95)))" "(if(pair?" -" s_412)" +" s_491)" "(let-values(((define-syntaxes108_0)" -"(let-values(((s_486)" +"(let-values(((s_492)" "(car" -" s_412)))" -" s_486))" +" s_491)))" +" s_492))" "((id109_0" " rhs110_0)" -"(let-values(((s_487)" +"(let-values(((s_493)" "(cdr" -" s_412)))" -"(let-values(((s_91)" +" s_491)))" +"(let-values(((s_97)" "(if(syntax?$1" -" s_487)" +" s_493)" "(syntax-e$1" -" s_487)" -" s_487)))" +" s_493)" +" s_493)))" "(if(pair?" -" s_91)" +" s_97)" "(let-values(((id111_0)" -"(let-values(((s_65)" +"(let-values(((s_66)" "(car" -" s_91)))" -"(let-values(((s_93)" +" s_97)))" +"(let-values(((s_99)" "(if(syntax?$1" -" s_65)" +" s_66)" "(syntax-e$1" -" s_65)" -" s_65)))" +" s_66)" +" s_66)))" "(let-values(((flat-s_26)" "(to-syntax-list.1" -" s_93)))" +" s_99)))" "(if(not" " flat-s_26)" "(let-values()" @@ -61543,8 +61862,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_40))" "(let-values()" -"(let-values(((id_109)" -"(let-values(((lst_324)" +"(let-values(((id_112)" +"(let-values(((lst_327)" " flat-s_26))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61552,90 +61871,90 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_324)))" -"((letrec-values(((for-loop_287)" -"(lambda(id_110" +" lst_327)))" +"((letrec-values(((for-loop_291)" +"(lambda(id_113" " lst_35)" "(begin" " 'for-loop" "(if(pair?" " lst_35)" -"(let-values(((s_488)" +"(let-values(((s_494)" "(unsafe-car" " lst_35))" -"((rest_184)" +"((rest_185)" "(unsafe-cdr" " lst_35)))" -"(let-values(((id_111)" -"(let-values(((id_112)" -" id_110))" -"(let-values(((id_113)" +"(let-values(((id_114)" +"(let-values(((id_115)" +" id_113))" +"(let-values(((id_116)" "(let-values()" "(let-values(((id114_0)" "(let-values()" -"(if(let-values(((or-part_329)" +"(if(let-values(((or-part_327)" "(if(syntax?$1" -" s_488)" +" s_494)" "(symbol?" "(syntax-e$1" -" s_488))" +" s_494))" " #f)))" -"(if or-part_329" -" or-part_329" +"(if or-part_327" +" or-part_327" "(symbol?" -" s_488)))" -" s_488" +" s_494)))" +" s_494" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_40" -" s_488)))))" +" s_494)))))" "(cons" " id114_0" -" id_112)))))" +" id_115)))))" "(values" -" id_113)))))" +" id_116)))))" "(if(not" " #f)" -"(for-loop_287" -" id_111" -" rest_184)" -" id_111)))" -" id_110)))))" -" for-loop_287)" +"(for-loop_291" +" id_114" +" rest_185)" +" id_114)))" +" id_113)))))" +" for-loop_291)" " null" -" lst_324)))))" +" lst_327)))))" "(reverse$1" -" id_109))))))))" +" id_112))))))))" "((rhs112_0)" -"(let-values(((s_489)" +"(let-values(((s_495)" "(cdr" -" s_91)))" -"(let-values(((s_490)" +" s_97)))" +"(let-values(((s_496)" "(if(syntax?$1" -" s_489)" +" s_495)" "(syntax-e$1" -" s_489)" -" s_489)))" +" s_495)" +" s_495)))" "(if(pair?" -" s_490)" +" s_496)" "(let-values(((rhs113_0)" -"(let-values(((s_96)" +"(let-values(((s_102)" "(car" -" s_490)))" -" s_96))" +" s_496)))" +" s_102))" "(()" -"(let-values(((s_324)" +"(let-values(((s_326)" "(cdr" -" s_490)))" -"(let-values(((s_491)" +" s_496)))" +"(let-values(((s_497)" "(if(syntax?$1" -" s_324)" +" s_326)" "(syntax-e$1" -" s_324)" -" s_324)))" +" s_326)" +" s_326)))" "(if(null?" -" s_491)" +" s_497)" "(values)" "(raise-syntax-error$1" " #f" @@ -61665,11 +61984,11 @@ static const char *startup_source = "(values" " #t" " define-syntaxes105_1" -" id106_1" +" id106_2" " rhs107_1))))))" "(let-values(((ids_30)" "(remove-use-site-scopes" -" id106_0" +" id106_1" " body-ctx_2)))" "(let-values((()" "(begin" @@ -61711,7 +62030,7 @@ static const char *startup_source = " ctx_14)))" "(let-values(((keys_6)" "(reverse$1" -"(let-values(((lst_325)" +"(let-values(((lst_328)" " ids_30))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61719,29 +62038,29 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_325)))" -"((letrec-values(((for-loop_288)" -"(lambda(fold-var_298" -" lst_326)" +" lst_328)))" +"((letrec-values(((for-loop_292)" +"(lambda(fold-var_304" +" lst_329)" "(begin" " 'for-loop" "(if(pair?" -" lst_326)" -"(let-values(((id_114)" +" lst_329)" +"(let-values(((id_117)" "(unsafe-car" -" lst_326))" -"((rest_185)" +" lst_329))" +"((rest_186)" "(unsafe-cdr" -" lst_326)))" -"(let-values(((fold-var_299)" -"(let-values(((fold-var_300)" -" fold-var_298))" -"(let-values(((fold-var_301)" +" lst_329)))" +"(let-values(((fold-var_305)" +"(let-values(((fold-var_306)" +" fold-var_304))" +"(let-values(((fold-var_307)" "(let-values()" "(cons" "(let-values()" "(let-values(((id119_0)" -" id_114)" +" id_117)" "((phase120_0)" " phase_17)" "((counter121_0)" @@ -61758,19 +62077,19 @@ static const char *startup_source = " id119_0" " phase120_0" " counter121_0)))" -" fold-var_300))))" +" fold-var_306))))" "(values" -" fold-var_301)))))" +" fold-var_307)))))" "(if(not" " #f)" -"(for-loop_288" -" fold-var_299" -" rest_185)" -" fold-var_299)))" -" fold-var_298)))))" -" for-loop_288)" +"(for-loop_292" +" fold-var_305" +" rest_186)" +" fold-var_305)))" +" fold-var_304)))))" +" for-loop_292)" " null" -" lst_325))))))" +" lst_328))))))" "(let-values((()" "(begin" "(let-values(((obs_74)" @@ -61810,9 +62129,9 @@ static const char *startup_source = "(let-values(((extended-env_1)" "(let-values(((lst_46)" " keys_6)" -"((lst_327)" +"((lst_330)" " vals_8)" -"((lst_328)" +"((lst_331)" " ids_30))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61826,46 +62145,46 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_327)))" +" lst_330)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_328)))" -"((letrec-values(((for-loop_289)" +" lst_331)))" +"((letrec-values(((for-loop_293)" "(lambda(env_21" -" lst_329" -" lst_330" -" lst_331)" +" lst_332" +" lst_333" +" lst_334)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_329)" +" lst_332)" "(if(pair?" -" lst_330)" +" lst_333)" "(pair?" -" lst_331)" +" lst_334)" " #f)" " #f)" -"(let-values(((key_92)" +"(let-values(((key_95)" "(unsafe-car" -" lst_329))" -"((rest_186)" -"(unsafe-cdr" -" lst_329))" -"((val_82)" -"(unsafe-car" -" lst_330))" +" lst_332))" "((rest_187)" "(unsafe-cdr" -" lst_330))" -"((id_115)" +" lst_332))" +"((val_86)" "(unsafe-car" -" lst_331))" +" lst_333))" "((rest_188)" "(unsafe-cdr" -" lst_331)))" +" lst_333))" +"((id_118)" +"(unsafe-car" +" lst_334))" +"((rest_189)" +"(unsafe-cdr" +" lst_334)))" "(let-values(((env_22)" "(let-values(((env_23)" " env_21))" @@ -61873,31 +62192,31 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_82" -" id_115" +" val_86" +" id_118" " phase_17" " body-ctx_2)" "(env-extend" " env_23" -" key_92" -" val_82)))))" +" key_95" +" val_86)))))" "(values" " env_24)))))" "(if(not" " #f)" -"(for-loop_289" +"(for-loop_293" " env_22" -" rest_186" " rest_187" -" rest_188)" +" rest_188" +" rest_189)" " env_22)))" " env_21)))))" -" for-loop_289)" +" for-loop_293)" "(expand-context-env" " body-ctx_2)" " lst_46" -" lst_327" -" lst_328)))))" +" lst_330" +" lst_331)))))" "(begin" "(let-values(((obs_76)" "(expand-context-observer" @@ -61910,12 +62229,12 @@ static const char *startup_source = " 'exit-bind)))" "(void)))" "(loop_120" -"(let-values(((v_250)" +"(let-values(((v_251)" " body-ctx_2))" -"(let-values(((the-struct_67)" -" v_250))" +"(let-values(((the-struct_65)" +" v_251))" "(if(expand-context/outer?" -" the-struct_67)" +" the-struct_65)" "(let-values(((env124_0)" " extended-env_1)" "((binding-layer125_0)" @@ -61924,39 +62243,39 @@ static const char *startup_source = " body-ctx_2))" "((inner126_0)" "(root-expand-context/outer-inner" -" v_250)))" +" v_251)))" "(expand-context/outer1.1" " inner126_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_67)" +" the-struct_65)" "(root-expand-context/outer-use-site-scopes" -" the-struct_67)" +" the-struct_65)" "(root-expand-context/outer-frame-id" -" the-struct_67)" +" the-struct_65)" "(expand-context/outer-context" -" the-struct_67)" +" the-struct_65)" " env124_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_67)" +" the-struct_65)" "(expand-context/outer-scopes" -" the-struct_67)" +" the-struct_65)" "(expand-context/outer-def-ctx-scopes" -" the-struct_67)" +" the-struct_65)" " binding-layer125_0" "(expand-context/outer-reference-records" -" the-struct_67)" +" the-struct_65)" "(expand-context/outer-only-immediate?" -" the-struct_67)" +" the-struct_65)" "(expand-context/outer-need-eventually-defined" -" the-struct_67)" +" the-struct_65)" "(expand-context/outer-current-introduction-scopes" -" the-struct_67)" +" the-struct_65)" "(expand-context/outer-name" -" the-struct_67)))" +" the-struct_65)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_67))))" +" the-struct_65))))" " rest-bodys_0" " done-bodys_0" " val-idss_0" @@ -62060,9 +62379,9 @@ 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_228) source10_0))" +"(let-values(((s_231) source10_0))" "(let-values(((stratified?_1) stratified?11_0))" -"(let-values(((name_78) name12_0))" +"(let-values(((name_79) name12_0))" "(let-values(((disappeared-transformer-bindings_0) disappeared-transformer-bindings13_0))" "(let-values()" "(let-values((()" @@ -62072,15 +62391,15 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"no expression after a sequence of internal definitions\"" -" s_228))" +" s_231))" "(void))" "(values))))" "(let-values(((finish-ctx_0)" -"(let-values(((v_251)" +"(let-values(((v_252)" "(accumulate-def-ctx-scopes" " body-ctx_3" " def-ctx-scopes_7)))" -"(let-values(((the-struct_88) v_251))" +"(let-values(((the-struct_88) v_252))" "(if(expand-context/outer? the-struct_88)" "(let-values(((context127_0) 'expression)" "((use-site-scopes128_0)(box null))" @@ -62094,7 +62413,7 @@ static const char *startup_source = "((def-ctx-scopes131_0) #f)" "((post-expansion-scope132_0) #f)" "((inner133_0)" -"(root-expand-context/outer-inner v_251)))" +"(root-expand-context/outer-inner v_252)))" "(expand-context/outer1.1" " inner133_0" " post-expansion-scope132_0" @@ -62157,41 +62476,41 @@ static const char *startup_source = "(values))))" "(let-values(((exp-bodys_0)" "(reverse$1" -"(let-values(((lst_332) done-bodys_1)" +"(let-values(((lst_335) done-bodys_1)" "((start_66) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_332)))" +"(check-list lst_335)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals start_66)))" -"((letrec-values(((for-loop_290)" -"(lambda(fold-var_260" -" lst_333" +"((letrec-values(((for-loop_294)" +"(lambda(fold-var_308" +" lst_336" " pos_129)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_333)" +" lst_336)" " #t" " #f)" "(let-values(((done-body_4)" "(unsafe-car" -" lst_333))" -"((rest_189)" +" lst_336))" +"((rest_190)" "(unsafe-cdr" -" lst_333))" -"((i_189)" +" lst_336))" +"((i_190)" " pos_129))" -"(let-values(((fold-var_261)" -"(let-values(((fold-var_262)" -" fold-var_260))" -"(let-values(((fold-var_263)" +"(let-values(((fold-var_309)" +"(let-values(((fold-var_310)" +" fold-var_308))" +"(let-values(((fold-var_311)" "(let-values()" "(cons" "(let-values()" @@ -62208,23 +62527,23 @@ static const char *startup_source = "(void)))" "(let-values(((done-body134_0)" " done-body_4)" -"((temp135_2)" -"(if(if name_78" +"((temp135_3)" +"(if(if name_79" "(=" -" i_189" +" i_190" " last-i_1)" " #f)" -"(let-values(((v_252)" +"(let-values(((v_253)" " finish-ctx_0))" "(let-values(((the-struct_89)" -" v_252))" +" v_253))" "(if(expand-context/outer?" " the-struct_89)" "(let-values(((name136_0)" -" name_78)" +" name_79)" "((inner137_0)" "(root-expand-context/outer-inner" -" v_252)))" +" v_253)))" "(expand-context/outer1.1" " inner137_0" "(root-expand-context/outer-post-expansion-scope" @@ -62265,23 +62584,23 @@ static const char *startup_source = " #f" " #f" " done-body134_0" -" temp135_2))))" -" fold-var_262))))" +" temp135_3))))" +" fold-var_310))))" "(values" -" fold-var_263)))))" +" fold-var_311)))))" "(if(not" " #f)" -"(for-loop_290" -" fold-var_261" -" rest_189" +"(for-loop_294" +" fold-var_309" +" rest_190" "(+" " pos_129" " 1))" -" fold-var_261)))" -" fold-var_260)))))" -" for-loop_290)" +" fold-var_309)))" +" fold-var_308)))))" +" for-loop_294)" " null" -" lst_332" +" lst_335" " start_66))))))" "(begin" "(let-values(((obs_80)" @@ -62306,7 +62625,7 @@ static const char *startup_source = "(call-expand-observe" " obs_81" " 'block->list" -"(datum->syntax$1 s_228 done-bodys_1))))" +"(datum->syntax$1 s_231 done-bodys_1))))" "(void)))" "(finish-bodys_0)))" "(let-values()" @@ -62319,7 +62638,7 @@ static const char *startup_source = "(log-letrec-values$1" " obs_82" " finish-ctx_0" -" s_228" +" s_231" " val-idss_1" " val-rhss_1" " track-stxs_1" @@ -62332,10 +62651,10 @@ static const char *startup_source = "((val-keyss139_0) val-keyss_1)" "((val-rhss140_0) val-rhss_1)" "((track-stxs141_0) track-stxs_1)" -"((temp142_0)(not stratified?_1))" +"((temp142_2)(not stratified?_1))" "((frame-id143_0) frame-id_13)" "((finish-ctx144_0) finish-ctx_0)" -"((s145_0) s_228)" +"((s145_0) s_231)" "((temp146_2)(pair? stx-clauses_1))" "((finish-bodys147_0) finish-bodys_0)" "((temp148_0) #f))" @@ -62345,7 +62664,7 @@ static const char *startup_source = " finish-bodys147_0" " temp146_2" " s145_0" -" temp142_0" +" temp142_2" " temp148_0" " val-idss138_0" " val-keyss139_0" @@ -62387,13 +62706,13 @@ static const char *startup_source = "(let-values(((track-stxs_2) track-stxs47_0))" "(let-values(((split?_0) split?30_0))" "(let-values(((frame-id_14) frame-id31_0))" -"(let-values(((ctx_76) ctx32_0))" -"(let-values(((s_492) source33_0))" +"(let-values(((ctx_77) ctx32_0))" +"(let-values(((s_498) source33_0))" "(let-values(((had-stxes?_0) had-stxes?34_0))" "(let-values(((get-body_0) get-body35_0))" "(let-values(((track?_1) track?36_0))" "(let-values()" -"(let-values(((phase_140)(expand-context-phase ctx_76)))" +"(let-values(((phase_141)(expand-context-phase ctx_77)))" "((letrec-values(((loop_121)" "(lambda(idss_2" " keyss_1" @@ -62415,15 +62734,15 @@ static const char *startup_source = "(let-values()" "(let-values(((exp-body_1)(get-body_0)))" "(let-values(((result-s_9)" -"(if(expand-context-to-parsed? ctx_76)" +"(if(expand-context-to-parsed? ctx_77)" "(if(null? accum-idss_0)" "(parsed-let-values17.1" -"(keep-properties-only s_492)" +"(keep-properties-only s_498)" " null" " null" " exp-body_1)" "(parsed-letrec-values18.1" -"(keep-properties-only s_492)" +"(keep-properties-only s_498)" "(reverse$1 accum-idss_0)" "(reverse$1" "(map2" @@ -62432,16 +62751,16 @@ static const char *startup_source = " accum-rhss_0))" " exp-body_1))" "(let-values(((track?149_0) track?_2)" -"((s150_0) s_492)" -"((temp151_2)" +"((s150_0) s_498)" +"((temp151_3)" "(list*" "(if(null? accum-idss_0)" "(core-id" " 'let-values" -" phase_140)" +" phase_141)" "(core-id" " 'letrec-values" -" phase_140))" +" phase_141))" "(build-clauses" " accum-idss_0" " accum-rhss_0" @@ -62451,14 +62770,14 @@ static const char *startup_source = " track?149_0" " #t" " s150_0" -" temp151_2)))))" +" temp151_3)))))" "(begin" "(let-values(((obs_84)" -"(expand-context-observer ctx_76)))" +"(expand-context-observer ctx_77)))" "(if obs_84" "(let-values()" "(if(if can-log?_0" -"(log-tag? had-stxes?_0 ctx_76)" +"(log-tag? had-stxes?_0 ctx_77)" " #f)" "(let-values()" "(call-expand-observe" @@ -62473,7 +62792,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_85)" "(expand-context-observer" -" ctx_76)))" +" ctx_77)))" "(if obs_85" "(let-values()" "(let-values()" @@ -62485,7 +62804,7 @@ static const char *startup_source = "(let-values(((temp152_0)(car rhss_2))" "((temp153_0)" "(as-named-context" -" ctx_76" +" ctx_77" " ids_31)))" "(expand7.1" " #f" @@ -62534,10 +62853,10 @@ static const char *startup_source = " #f)))" "(let-values(((result-s_10)" "(if(expand-context-to-parsed?" -" ctx_76)" +" ctx_77)" "(parsed-let-values17.1" "(keep-properties-only" -" s_492)" +" s_498)" "(list ids_31)" "(list" "(list" @@ -62547,12 +62866,12 @@ static const char *startup_source = "(let-values(((track?154_0)" " track?_2)" "((s155_0)" -" s_492)" +" s_498)" "((temp156_0)" "(list*" "(core-id" " 'let-values" -" phase_140)" +" phase_141)" "(list" "(build-clause" " ids_31" @@ -62567,13 +62886,13 @@ static const char *startup_source = "(begin" "(let-values(((obs_86)" "(expand-context-observer" -" ctx_76)))" +" ctx_77)))" "(if obs_86" "(let-values()" "(if(if can-log?_0" "(log-tag?" " had-stxes?_0" -" ctx_76)" +" ctx_77)" " #f)" "(let-values()" "(call-expand-observe" @@ -62586,9 +62905,9 @@ static const char *startup_source = "(list result-s_10)" " result-s_10))))))" "(if(if(not forward-references?_0)" -"(let-values(((or-part_383) split?_0))" -"(if or-part_383" -" or-part_383" +"(let-values(((or-part_384) split?_0))" +"(if or-part_384" +" or-part_384" "(null?(cdr idss_2))))" " #f)" "(let-values()" @@ -62607,10 +62926,10 @@ static const char *startup_source = " #f)))" "(let-values(((result-s_11)" "(if(expand-context-to-parsed?" -" ctx_76)" +" ctx_77)" "(parsed-letrec-values18.1" "(keep-properties-only" -" s_492)" +" s_498)" "(reverse$1" "(cons" " ids_31" @@ -62628,12 +62947,12 @@ static const char *startup_source = "(let-values(((track?157_0)" " track?_2)" "((s158_0)" -" s_492)" +" s_498)" "((temp159_0)" "(list*" "(core-id" " 'letrec-values" -" phase_140)" +" phase_141)" "(build-clauses" "(cons" " ids_31" @@ -62653,13 +62972,13 @@ static const char *startup_source = "(begin" "(let-values(((obs_87)" "(expand-context-observer" -" ctx_76)))" +" ctx_77)))" "(if obs_87" "(let-values()" "(if(if can-log?_0" "(log-tag?" " had-stxes?_0" -" ctx_76)" +" ctx_77)" " #f)" "(let-values()" "(call-expand-observe" @@ -62708,49 +63027,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_493 phase_141)" +"(lambda(expr_10 s_499 phase_142)" "(begin" -"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_141)))" +"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_142)))" "(datum->syntax$1" -"(core-id '#%app phase_141)" -"(list(core-id 'begin phase_141) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" -" s_493)))))" +"(core-id '#%app phase_142)" +"(list(core-id 'begin phase_142) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" +" s_499)))))" "(define-values" "(log-tag?)" -"(lambda(had-stxes?_1 ctx_77)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_77)) #f))))" +"(lambda(had-stxes?_1 ctx_78)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_78)) #f))))" "(define-values" "(log-letrec-values$1)" -"(lambda(obs_88 ctx_40 s_494 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" +"(lambda(obs_88 ctx_40 s_500 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" "(begin" " 'log-letrec-values" -"(let-values(((phase_142)(expand-context-phase ctx_40)))" +"(let-values(((phase_143)(expand-context-phase ctx_40)))" "(let-values(((clauses_0)" "(reverse$1" -"(let-values(((lst_247) val-idss_2)((lst_248) val-rhss_2)((lst_286) track-stxs_4))" +"(let-values(((lst_246) val-idss_2)((lst_247) val-rhss_2)((lst_285) track-stxs_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_246)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_247)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_248)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_286)))" -"((letrec-values(((for-loop_291)" -"(lambda(fold-var_302 lst_334 lst_288 lst_289)" +"(let-values()(check-list lst_285)))" +"((letrec-values(((for-loop_295)" +"(lambda(fold-var_312 lst_337 lst_287 lst_288)" "(begin" " 'for-loop" -"(if(if(pair? lst_334)(if(pair? lst_288)(pair? lst_289) #f) #f)" -"(let-values(((val-ids_0)(unsafe-car lst_334))" -"((rest_158)(unsafe-cdr lst_334))" -"((val-rhs_0)(unsafe-car lst_288))" -"((rest_159)(unsafe-cdr lst_288))" -"((track-stx_2)(unsafe-car lst_289))" -"((rest_62)(unsafe-cdr lst_289)))" -"(let-values(((fold-var_303)" -"(let-values(((fold-var_304) fold-var_302))" -"(let-values(((fold-var_305)" +"(if(if(pair? lst_337)(if(pair? lst_287)(pair? lst_288) #f) #f)" +"(let-values(((val-ids_0)(unsafe-car lst_337))" +"((rest_157)(unsafe-cdr lst_337))" +"((val-rhs_0)(unsafe-car lst_287))" +"((rest_158)(unsafe-cdr lst_287))" +"((track-stx_2)(unsafe-car lst_288))" +"((rest_62)(unsafe-cdr lst_288)))" +"(let-values(((fold-var_313)" +"(let-values(((fold-var_314) fold-var_312))" +"(let-values(((fold-var_315)" "(let-values()" "(cons" "(let-values()" @@ -62758,26 +63077,26 @@ static const char *startup_source = " #f" "(list val-ids_0 val-rhs_0)" " track-stx_2))" -" fold-var_304))))" -"(values fold-var_305)))))" +" fold-var_314))))" +"(values fold-var_315)))))" "(if(not #f)" -"(for-loop_291 fold-var_303 rest_158 rest_159 rest_62)" -" fold-var_303)))" -" fold-var_302)))))" -" for-loop_291)" +"(for-loop_295 fold-var_313 rest_157 rest_158 rest_62)" +" fold-var_313)))" +" fold-var_312)))))" +" for-loop_295)" " null" +" lst_246" " lst_247" -" lst_248" -" lst_286))))))" +" lst_285))))))" "(let-values(((had-stxes?_2)(not(null? stx-clauses_2))))" -"(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_142)))" +"(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_143)))" "(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_494)))" +" s_500)))" "(begin" "(call-expand-observe obs_88 'block->letrec(list lv-s_0))" "(call-expand-observe obs_88 'visit lv-s_0)" @@ -62792,7 +63111,7 @@ static const char *startup_source = " 'letrec-syntaxes-renames" " stx-clauses_2" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_494))" +"(datum->syntax$1 #f done-bodys_2 s_500))" "(call-expand-observe obs_88 'prepare-env)" "(call-expand-observe obs_88 'next-group)" "(if(null? val-idss_2)" @@ -62804,7 +63123,7 @@ static const char *startup_source = " obs_88" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_494)))))))" +"(datum->syntax$1 #f done-bodys_2 s_500)))))))" "(let-values()" "(begin" "(call-expand-observe obs_88 'prim-letrec-values)" @@ -62812,51 +63131,51 @@ static const char *startup_source = " obs_88" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_494))))))))))))))" +"(datum->syntax$1 #f done-bodys_2 s_500))))))))))))))" "(define-values" "(lambda-clause-expander)" -"(lambda(s_67 disarmed-s_5 formals_1 bodys_9 ctx_78 log-renames-tag_0)" +"(lambda(s_71 disarmed-s_5 formals_1 bodys_9 ctx_79 log-renames-tag_0)" "(begin" "(let-values(((sc_35)(new-scope 'local)))" -"(let-values(((phase_143)(expand-context-phase ctx_78)))" +"(let-values(((phase_144)(expand-context-phase ctx_79)))" "(let-values(((ids_33)(parse-and-flatten-formals formals_1 sc_35 disarmed-s_5)))" "(let-values((()" "(begin" "(let-values(((ids34_0) ids_33)" -"((phase35_2) phase_143)" -"((s36_0) s_67)" +"((phase35_2) phase_144)" +"((s36_0) s_71)" " ((temp37_4) \"argument name\"))" "(check-no-duplicate-ids8.1 temp37_4 #t ids34_0 phase35_2 s36_0 #f #f))" "(values))))" -"(let-values(((counter_7)(root-expand-context-counter ctx_78)))" +"(let-values(((counter_7)(root-expand-context-counter ctx_79)))" "(let-values(((keys_7)" "(reverse$1" -"(let-values(((lst_89) ids_33))" +"(let-values(((lst_88) ids_33))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_89)))" -"((letrec-values(((for-loop_292)" -"(lambda(fold-var_306 lst_267)" +"(let-values()(check-list lst_88)))" +"((letrec-values(((for-loop_296)" +"(lambda(fold-var_316 lst_266)" "(begin" " 'for-loop" -"(if(pair? lst_267)" -"(let-values(((id_116)(unsafe-car lst_267))" -"((rest_190)(unsafe-cdr lst_267)))" -"(let-values(((fold-var_28)" -"(let-values(((fold-var_29) fold-var_306))" -"(let-values(((fold-var_155)" +"(if(pair? lst_266)" +"(let-values(((id_119)(unsafe-car lst_266))" +"((rest_191)(unsafe-cdr lst_266)))" +"(let-values(((fold-var_33)" +"(let-values(((fold-var_34) fold-var_316))" +"(let-values(((fold-var_154)" "(let-values()" "(cons" "(let-values()" "(let-values(((id38_0)" -" id_116)" +" id_119)" "((phase39_1)" -" phase_143)" +" phase_144)" "((counter40_0)" " counter_7)" "((s41_0)" -" s_67))" +" s_71))" "(add-local-binding!37.1" " #f" " #f" @@ -62865,51 +63184,51 @@ static const char *startup_source = " id38_0" " phase39_1" " counter40_0)))" -" fold-var_29))))" -"(values fold-var_155)))))" +" fold-var_34))))" +"(values fold-var_154)))))" "(if(not #f)" -"(for-loop_292 fold-var_28 rest_190)" -" fold-var_28)))" -" fold-var_306)))))" -" for-loop_292)" +"(for-loop_296 fold-var_33 rest_191)" +" fold-var_33)))" +" fold-var_316)))))" +" for-loop_296)" " null" -" lst_89))))))" +" lst_88))))))" "(let-values(((body-env_0)" -"(let-values(((lst_82) keys_7)((lst_92) ids_33))" +"(let-values(((lst_81) keys_7)((lst_91) ids_33))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_82)))" +"(let-values()(check-list lst_81)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_92)))" -"((letrec-values(((for-loop_232)" -"(lambda(env_25 lst_84 lst_273)" +"(let-values()(check-list lst_91)))" +"((letrec-values(((for-loop_233)" +"(lambda(env_25 lst_83 lst_272)" "(begin" " 'for-loop" -"(if(if(pair? lst_84)(pair? lst_273) #f)" -"(let-values(((key_93)(unsafe-car lst_84))" -"((rest_146)(unsafe-cdr lst_84))" -"((id_117)(unsafe-car lst_273))" -"((rest_191)(unsafe-cdr lst_273)))" +"(if(if(pair? lst_83)(pair? lst_272) #f)" +"(let-values(((key_96)(unsafe-car lst_83))" +"((rest_146)(unsafe-cdr lst_83))" +"((id_120)(unsafe-car lst_272))" +"((rest_192)(unsafe-cdr lst_272)))" "(let-values(((env_26)" "(let-values(((env_27) env_25))" "(let-values(((env_28)" "(let-values()" "(env-extend" " env_27" -" key_93" +" key_96" "(local-variable1.1" -" id_117)))))" +" id_120)))))" "(values env_28)))))" "(if(not #f)" -"(for-loop_232 env_26 rest_146 rest_191)" +"(for-loop_233 env_26 rest_146 rest_192)" " env_26)))" " env_25)))))" -" for-loop_232)" -"(expand-context-env ctx_78)" -" lst_82" -" lst_92)))))" +" for-loop_233)" +"(expand-context-env ctx_79)" +" lst_81" +" lst_91)))))" "(let-values(((sc-formals_0)(add-scope formals_1 sc_35)))" "(let-values(((sc-bodys_0)" "(reverse$1" @@ -62946,7 +63265,7 @@ static const char *startup_source = " lst_17))))))" "(let-values((()" "(begin" -"(let-values(((obs_3)(expand-context-observer ctx_78)))" +"(let-values(((obs_3)(expand-context-observer ctx_79)))" "(if obs_3" "(let-values()" "(let-values()" @@ -62958,15 +63277,15 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_4)" -"(let-values(((v_253) ctx_78))" -"(let-values(((the-struct_90) v_253))" +"(let-values(((v_254) ctx_79))" +"(let-values(((the-struct_90) v_254))" "(if(expand-context/outer? the-struct_90)" "(let-values(((env42_0) body-env_0)" -"((scopes43_1)(cons sc_35(expand-context-scopes ctx_78)))" +"((scopes43_1)(cons sc_35(expand-context-scopes ctx_79)))" "((binding-layer44_0)" -"(increment-binding-layer ids_33 ctx_78 sc_35))" +"(increment-binding-layer ids_33 ctx_79 sc_35))" "((frame-id45_0) #f)" -"((inner46_0)(root-expand-context/outer-inner v_253)))" +"((inner46_0)(root-expand-context/outer-inner v_254)))" "(expand-context/outer1.1" " inner46_0" "(root-expand-context/outer-post-expansion-scope the-struct_90)" @@ -62990,51 +63309,51 @@ static const char *startup_source = "(let-values(((exp-body_2)" "(let-values(((sc-bodys47_0) sc-bodys_0)" "((body-ctx48_0) body-ctx_4)" -"((temp49_3)" -"(let-values(((ctx50_0) ctx_78)((s51_2) s_67)((temp52_6) #t))" +"((temp49_2)" +"(let-values(((ctx50_0) ctx_79)((s51_2) s_71)((temp52_6) #t))" "(keep-as-needed74.1 #f #f temp52_6 #t #f #f ctx50_0 s51_2))))" -"(expand-body7.1 temp49_3 #f #f sc-bodys47_0 body-ctx48_0))))" +"(expand-body7.1 temp49_2 #f #f sc-bodys47_0 body-ctx48_0))))" "(values" -"(if(expand-context-to-parsed? ctx_78)" +"(if(expand-context-to-parsed? ctx_79)" "(unflatten-like-formals keys_7 formals_1)" " sc-formals_0)" " exp-body_2))))))))))))))))" "(void" "(add-core-form!*" " 'lambda" -"(lambda(s_15 ctx_79)" +"(lambda(s_15 ctx_80)" "(let-values((()" "(begin" -"(let-values(((obs_5)(expand-context-observer ctx_79)))" +"(let-values(((obs_5)(expand-context-observer ctx_80)))" "(if obs_5(let-values()(let-values()(call-expand-observe obs_5 'prim-lambda)))(void)))" "(values))))" "(let-values(((disarmed-s_6)(syntax-disarm$1 s_15)))" "(let-values(((ok?_33 lambda53_0 formals54_0 body55_0)" -"(let-values(((s_429) disarmed-s_6))" -"(let-values(((orig-s_41) s_429))" +"(let-values(((s_433) disarmed-s_6))" +"(let-values(((orig-s_41) s_433))" "(let-values(((lambda53_1 formals54_1 body55_1)" -"(let-values(((s_163)(if(syntax?$1 s_429)(syntax-e$1 s_429) s_429)))" -"(if(pair? s_163)" -"(let-values(((lambda56_0)(let-values(((s_495)(car s_163))) s_495))" +"(let-values(((s_166)(if(syntax?$1 s_433)(syntax-e$1 s_433) s_433)))" +"(if(pair? s_166)" +"(let-values(((lambda56_0)(let-values(((s_501)(car s_166))) s_501))" "((formals57_0 body58_0)" -"(let-values(((s_478)(cdr s_163)))" -"(let-values(((s_473)" -"(if(syntax?$1 s_478)" -"(syntax-e$1 s_478)" -" s_478)))" -"(if(pair? s_473)" +"(let-values(((s_483)(cdr s_166)))" +"(let-values(((s_476)" +"(if(syntax?$1 s_483)" +"(syntax-e$1 s_483)" +" s_483)))" +"(if(pair? s_476)" "(let-values(((formals59_0)" -"(let-values(((s_460)(car s_473)))" -" s_460))" +"(let-values(((s_463)(car s_476)))" +" s_463))" "((body60_0)" -"(let-values(((s_66)(cdr s_473)))" -"(let-values(((s_74)" -"(if(syntax?$1 s_66)" -"(syntax-e$1 s_66)" -" s_66)))" +"(let-values(((s_67)(cdr s_476)))" +"(let-values(((s_80)" +"(if(syntax?$1 s_67)" +"(syntax-e$1 s_67)" +" s_67)))" "(let-values(((flat-s_27)" "(to-syntax-list.1" -" s_74)))" +" s_80)))" "(if(not flat-s_27)" "(let-values()" "(raise-syntax-error$1" @@ -63055,40 +63374,40 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_41)))))" "(values #t lambda53_1 formals54_1 body55_1))))))" "(let-values(((rebuild-s_4)" -"(let-values(((ctx61_0) ctx_79)((s62_0) s_15)((temp63_5) #t))" +"(let-values(((ctx61_0) ctx_80)((s62_0) s_15)((temp63_5) #t))" "(keep-as-needed74.1 #f #f #f #f temp63_5 #t ctx61_0 s62_0))))" "(let-values(((formals_2 body_13)" -"(lambda-clause-expander s_15 disarmed-s_6 formals54_0 body55_0 ctx_79 'lambda-renames)))" -"(if(expand-context-to-parsed? ctx_79)" +"(lambda-clause-expander s_15 disarmed-s_6 formals54_0 body55_0 ctx_80 'lambda-renames)))" +"(if(expand-context-to-parsed? ctx_80)" "(parsed-lambda5.1 rebuild-s_4 formals_2 body_13)" "(let-values(((rebuild-s64_0) rebuild-s_4)((temp65_7)(list* lambda53_0 formals_2 body_13)))" "(rebuild5.1 #f #f rebuild-s64_0 temp65_7)))))))))))" "(void" "(add-core-form!*" " 'λ" -"(lambda(s_496)" +"(lambda(s_502)" "(let-values(((ok?_34 lam-id66_0 formals67_0 _68_0)" -"(let-values(((s_497) s_496))" -"(let-values(((orig-s_42) s_497))" +"(let-values(((s_503) s_502))" +"(let-values(((orig-s_42) s_503))" "(let-values(((lam-id66_1 formals67_1 _68_1)" -"(let-values(((s_307)(if(syntax?$1 s_497)(syntax-e$1 s_497) s_497)))" -"(if(pair? s_307)" -"(let-values(((lam-id69_0)(let-values(((s_48)(car s_307))) s_48))" +"(let-values(((s_309)(if(syntax?$1 s_503)(syntax-e$1 s_503) s_503)))" +"(if(pair? s_309)" +"(let-values(((lam-id69_0)(let-values(((s_48)(car s_309))) s_48))" "((formals70_0 _71_1)" -"(let-values(((s_49)(cdr s_307)))" +"(let-values(((s_49)(cdr s_309)))" "(let-values(((s_32)" "(if(syntax?$1 s_49)(syntax-e$1 s_49) s_49)))" "(if(pair? s_32)" "(let-values(((formals72_0)" -"(let-values(((s_498)(car s_32))) s_498))" +"(let-values(((s_504)(car s_32))) s_504))" "((_73_0)" -"(let-values(((s_308)(cdr s_32)))" -"(let-values(((s_389)" -"(if(syntax?$1 s_308)" -"(syntax-e$1 s_308)" -" s_308)))" +"(let-values(((s_310)(cdr s_32)))" +"(let-values(((s_392)" +"(if(syntax?$1 s_310)" +"(syntax-e$1 s_310)" +" s_310)))" "(let-values(((flat-s_25)" -"(to-syntax-list.1 s_389)))" +"(to-syntax-list.1 s_392)))" "(if(not flat-s_25)" "(let-values()" "(raise-syntax-error$1" @@ -63107,71 +63426,71 @@ static const char *startup_source = "(values lam-id69_0 formals70_0 _71_1))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_42)))))" "(values #t lam-id66_1 formals67_1 _68_1))))))" -"(let-values(((ids_34)(parse-and-flatten-formals formals67_0 #f s_496)))" -"(let-values(((ctx_80)(let-values(((temp78_0) #t))(get-current-expand-context17.1 temp78_0 #t #f #f))))" -"(let-values(((phase_144)(if ctx_80(expand-context-phase ctx_80) 0)))" +"(let-values(((ids_34)(parse-and-flatten-formals formals67_0 #f s_502)))" +"(let-values(((ctx_81)(let-values(((temp78_0) #t))(get-current-expand-context17.1 temp78_0 #t #f #f))))" +"(let-values(((phase_145)(if ctx_81(expand-context-phase ctx_81) 0)))" "(begin" -" (let-values (((ids74_0) ids_34) ((phase75_0) phase_144) ((s76_1) s_496) ((temp77_4) \"argument name\"))" -"(check-no-duplicate-ids8.1 temp77_4 #t ids74_0 phase75_0 s76_1 #f #f))" +" (let-values (((ids74_0) ids_34) ((phase75_0) phase_145) ((s76_2) s_502) ((temp77_4) \"argument name\"))" +"(check-no-duplicate-ids8.1 temp77_4 #t ids74_0 phase75_0 s76_2 #f #f))" "(datum->syntax$1" -" s_496" +" s_502" "(cons" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_144) 'lambda lam-id66_0 lam-id66_0)" -"(cdr(syntax-e$1 s_496)))" -" s_496" -" s_496)))))))))" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_145) 'lambda lam-id66_0 lam-id66_0)" +"(cdr(syntax-e$1 s_502)))" +" s_502" +" s_502)))))))))" "(void" "(add-core-form!*" " 'case-lambda" -"(lambda(s_499 ctx_81)" +"(lambda(s_505 ctx_82)" "(let-values((()" "(begin" -"(let-values(((obs_89)(expand-context-observer ctx_81)))" +"(let-values(((obs_89)(expand-context-observer ctx_82)))" "(if obs_89" "(let-values()(let-values()(call-expand-observe obs_89 'prim-case-lambda)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_7)(syntax-disarm$1 s_499)))" +"(let-values(((disarmed-s_7)(syntax-disarm$1 s_505)))" "(let-values(((ok?_35 case-lambda79_0 formals80_0 body81_0)" -"(let-values(((s_500) disarmed-s_7))" -"(let-values(((orig-s_43) s_500))" +"(let-values(((s_506) disarmed-s_7))" +"(let-values(((orig-s_43) s_506))" "(let-values(((case-lambda79_1 formals80_1 body81_1)" -"(let-values(((s_36)(if(syntax?$1 s_500)(syntax-e$1 s_500) s_500)))" -"(if(pair? s_36)" -"(let-values(((case-lambda82_0)(let-values(((s_59)(car s_36))) s_59))" +"(let-values(((s_507)(if(syntax?$1 s_506)(syntax-e$1 s_506) s_506)))" +"(if(pair? s_507)" +"(let-values(((case-lambda82_0)(let-values(((s_59)(car s_507))) s_59))" "((formals83_0 body84_0)" -"(let-values(((s_410)(cdr s_36)))" -"(let-values(((s_501)" -"(if(syntax?$1 s_410)" -"(syntax-e$1 s_410)" -" s_410)))" -"(let-values(((flat-s_28)(to-syntax-list.1 s_501)))" +"(let-values(((s_36)(cdr s_507)))" +"(let-values(((s_508)" +"(if(syntax?$1 s_36)" +"(syntax-e$1 s_36)" +" s_36)))" +"(let-values(((flat-s_28)(to-syntax-list.1 s_508)))" "(if(not flat-s_28)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43))" "(let-values()" "(let-values(((formals_3 body_14)" -"(let-values(((lst_335) flat-s_28))" +"(let-values(((lst_338) flat-s_28))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_335)))" -"((letrec-values(((for-loop_293)" +"(check-list lst_338)))" +"((letrec-values(((for-loop_297)" "(lambda(formals_4" " body_15" -" lst_336)" +" lst_31)" "(begin" " 'for-loop" "(if(pair?" -" lst_336)" +" lst_31)" "(let-values(((s_61)" "(unsafe-car" -" lst_336))" -"((rest_192)" +" lst_31))" +"((rest_193)" "(unsafe-cdr" -" lst_336)))" +" lst_31)))" "(let-values(((formals_5" " body_16)" "(let-values(((formals_6)" @@ -63193,23 +63512,23 @@ static const char *startup_source = "(if(pair?" " s_64)" "(let-values(((formals85_0)" -"(let-values(((s_85)" +"(let-values(((s_91)" "(car" " s_64)))" -" s_85))" +" s_91))" "((body86_0)" -"(let-values(((s_200)" +"(let-values(((s_204)" "(cdr" " s_64)))" -"(let-values(((s_397)" +"(let-values(((s_400)" "(if(syntax?$1" -" s_200)" +" s_204)" "(syntax-e$1" -" s_200)" -" s_200)))" +" s_204)" +" s_204)))" "(let-values(((flat-s_29)" "(to-syntax-list.1" -" s_397)))" +" s_400)))" "(if(not" " flat-s_29)" "(let-values()" @@ -63245,20 +63564,20 @@ static const char *startup_source = " body_18)))))" "(if(not" " #f)" -"(for-loop_293" +"(for-loop_297" " formals_5" " body_16" -" rest_192)" +" rest_193)" "(values" " formals_5" " body_16))))" "(values" " formals_4" " body_15))))))" -" for-loop_293)" +" for-loop_297)" " null" " null" -" lst_335)))))" +" lst_338)))))" "(values" "(reverse$1 formals_3)" "(reverse$1 body_14))))))))))" @@ -63266,19 +63585,19 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))" "(values #t case-lambda79_1 formals80_1 body81_1))))))" "(let-values(((ok?_36 case-lambda87_0 clause88_0)" -"(let-values(((s_201) disarmed-s_7))" -"(let-values(((orig-s_44) s_201))" +"(let-values(((s_38) disarmed-s_7))" +"(let-values(((orig-s_44) s_38))" "(let-values(((case-lambda87_1 clause88_1)" -"(let-values(((s_502)(if(syntax?$1 s_201)(syntax-e$1 s_201) s_201)))" -"(if(pair? s_502)" -"(let-values(((case-lambda89_0)(let-values(((s_86)(car s_502))) s_86))" +"(let-values(((s_509)(if(syntax?$1 s_38)(syntax-e$1 s_38) s_38)))" +"(if(pair? s_509)" +"(let-values(((case-lambda89_0)(let-values(((s_92)(car s_509))) s_92))" "((clause90_0)" -"(let-values(((s_503)(cdr s_502)))" -"(let-values(((s_435)" -"(if(syntax?$1 s_503)" -"(syntax-e$1 s_503)" -" s_503)))" -"(let-values(((flat-s_30)(to-syntax-list.1 s_435)))" +"(let-values(((s_510)(cdr s_509)))" +"(let-values(((s_439)" +"(if(syntax?$1 s_510)" +"(syntax-e$1 s_510)" +" s_510)))" +"(let-values(((flat-s_30)(to-syntax-list.1 s_439)))" "(if(not flat-s_30)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_44))" @@ -63287,37 +63606,37 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_44)))))" "(values #t case-lambda87_1 clause88_1))))))" "(let-values(((rebuild-s_5)" -"(let-values(((ctx93_0) ctx_81)((s94_0) s_499)((temp95_4) #t))" -"(keep-as-needed74.1 #f #f #f #f temp95_4 #t ctx93_0 s94_0))))" +"(let-values(((ctx93_0) ctx_82)((s94_0) s_505)((temp95_3) #t))" +"(keep-as-needed74.1 #f #f #f #f temp95_3 #t ctx93_0 s94_0))))" "(let-values(((clauses_1)" "(reverse$1" -"(let-values(((lst_337) formals80_0)((lst_338) body81_0)((lst_206) clause88_0))" +"(let-values(((lst_339) formals80_0)((lst_340) body81_0)((lst_205) clause88_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_337)))" +"(let-values()(check-list lst_339)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_338)))" +"(let-values()(check-list lst_340)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_206)))" -"((letrec-values(((for-loop_121)" -"(lambda(fold-var_307 lst_276 lst_156 lst_339)" +"(let-values()(check-list lst_205)))" +"((letrec-values(((for-loop_122)" +"(lambda(fold-var_317 lst_275 lst_155 lst_341)" "(begin" " 'for-loop" -"(if(if(pair? lst_276)" -"(if(pair? lst_156)(pair? lst_339) #f)" +"(if(if(pair? lst_275)" +"(if(pair? lst_155)(pair? lst_341) #f)" " #f)" -"(let-values(((formals_8)(unsafe-car lst_276))" -"((rest_193)(unsafe-cdr lst_276))" -"((body_19)(unsafe-car lst_156))" -"((rest_79)(unsafe-cdr lst_156))" -"((clause_3)(unsafe-car lst_339))" -"((rest_194)(unsafe-cdr lst_339)))" +"(let-values(((formals_8)(unsafe-car lst_275))" +"((rest_194)(unsafe-cdr lst_275))" +"((body_19)(unsafe-car lst_155))" +"((rest_79)(unsafe-cdr lst_155))" +"((clause_3)(unsafe-car lst_341))" +"((rest_195)(unsafe-cdr lst_341)))" "(let-values(((fold-var_146)" -"(let-values(((fold-var_308) fold-var_307))" -"(let-values(((fold-var_309)" +"(let-values(((fold-var_318) fold-var_317))" +"(let-values(((fold-var_319)" "(let-values()" "(cons" "(let-values()" @@ -63325,7 +63644,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_72)" "(expand-context-observer" -" ctx_81)))" +" ctx_82)))" "(if obs_72" "(let-values()" "(let-values()" @@ -63335,8 +63654,8 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((rebuild-clause_0)" -"(let-values(((ctx96_0)" -" ctx_81)" +"(let-values(((ctx96_1)" +" ctx_82)" "((clause97_0)" " clause_3))" "(keep-as-needed74.1" @@ -63346,19 +63665,19 @@ static const char *startup_source = " #f" " #f" " #f" -" ctx96_0" +" ctx96_1" " clause97_0))))" "(let-values(((exp-formals_0" " exp-body_3)" "(lambda-clause-expander" -" s_499" +" s_505" " disarmed-s_7" " formals_8" " body_19" -" ctx_81" +" ctx_82" " 'lambda-renames)))" "(if(expand-context-to-parsed?" -" ctx_81)" +" ctx_82)" "(list" " exp-formals_0" " exp-body_3)" @@ -63373,24 +63692,24 @@ static const char *startup_source = " #f" " rebuild-clause98_0" " temp99_4)))))))" -" fold-var_308))))" -"(values fold-var_309)))))" +" fold-var_318))))" +"(values fold-var_319)))))" "(if(not #f)" -"(for-loop_121 fold-var_146 rest_193 rest_79 rest_194)" +"(for-loop_122 fold-var_146 rest_194 rest_79 rest_195)" " fold-var_146)))" -" fold-var_307)))))" -" for-loop_121)" +" fold-var_317)))))" +" for-loop_122)" " null" -" lst_337" -" lst_338" -" lst_206))))))" -"(if(expand-context-to-parsed? ctx_81)" +" lst_339" +" lst_340" +" lst_205))))))" +"(if(expand-context-to-parsed? ctx_82)" "(parsed-case-lambda6.1 rebuild-s_5 clauses_1)" "(let-values(((rebuild-s100_0) rebuild-s_5)((temp101_5)(list* case-lambda79_0 clauses_1)))" "(rebuild5.1 #f #f rebuild-s100_0 temp101_5))))))))))))" "(define-values" "(parse-and-flatten-formals)" -"(lambda(all-formals_0 sc_36 s_504)" +"(lambda(all-formals_0 sc_36 s_511)" "(begin" "((letrec-values(((loop_122)" "(lambda(formals_9)" @@ -63400,26 +63719,26 @@ static const char *startup_source = "(let-values()(list(add-scope formals_9 sc_36)))" "(if(syntax?$1 formals_9)" "(let-values()" -"(let-values(((p_86)(syntax-e$1 formals_9)))" -"(if(pair? p_86)" -"(let-values()(loop_122 p_86))" -"(if(null? p_86)" +"(let-values(((p_87)(syntax-e$1 formals_9)))" +"(if(pair? p_87)" +"(let-values()(loop_122 p_87))" +"(if(null? p_87)" "(let-values() null)" -" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_504 p_86))))))" +" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_511 p_87))))))" "(if(pair? formals_9)" "(let-values()" "(begin" "(if(identifier?(car formals_9))" "(void)" "(let-values()" -" (raise-syntax-error$1 #f \"not an identifier\" s_504 (car formals_9))))" +" (raise-syntax-error$1 #f \"not an identifier\" s_511 (car formals_9))))" "(cons" "(if sc_36(add-scope(car formals_9) sc_36)(car formals_9))" "(loop_122(cdr formals_9)))))" "(if(null? formals_9)" "(let-values() null)" "(let-values()" -" (raise-syntax-error$1 \"bad argument sequence\" s_504 all-formals_0))))))))))" +" (raise-syntax-error$1 \"bad argument sequence\" s_511 all-formals_0))))))))))" " loop_122)" " all-formals_0))))" "(define-values" @@ -63459,15 +63778,15 @@ static const char *startup_source = "(let-values(((split-by-reference?_0)(if split-by-reference?9_0 split-by-reference?4_0 #f)))" "(let-values(((renames-log-tag_0)(if renames-log-tag10_0 renames-log-tag5_0 'let-renames)))" "(let-values()" -"(lambda(s_324 ctx_82)" +"(lambda(s_326 ctx_83)" "(let-values((()" "(begin" -"(let-values(((obs_90)(expand-context-observer ctx_82)))" +"(let-values(((obs_90)(expand-context-observer ctx_83)))" "(if obs_90" "(let-values()(let-values()(call-expand-observe obs_90 log-tag_0)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_8)(syntax-disarm$1 s_324)))" +"(let-values(((disarmed-s_8)(syntax-disarm$1 s_326)))" "(let-values(((ok?_37" " letrec-syntaxes+values102_0" " id:trans103_0" @@ -63475,47 +63794,47 @@ static const char *startup_source = " id:val105_0" " val-rhs106_0" " body107_0)" -"(let-values(((s_441) disarmed-s_8))" +"(let-values(((s_423) disarmed-s_8))" "(if(if syntaxes?_0 #t #f)" -"(let-values(((orig-s_45) s_441))" +"(let-values(((orig-s_45) s_423))" "(let-values(((letrec-syntaxes+values102_1" " id:trans103_1" " trans-rhs104_1" " id:val105_1" " val-rhs106_1" " body107_1)" -"(let-values(((s_118)" -"(if(syntax?$1 s_441)" -"(syntax-e$1 s_441)" -" s_441)))" -"(if(pair? s_118)" +"(let-values(((s_124)" +"(if(syntax?$1 s_423)" +"(syntax-e$1 s_423)" +" s_423)))" +"(if(pair? s_124)" "(let-values(((letrec-syntaxes+values108_0)" -"(let-values(((s_505)(car s_118))) s_505))" +"(let-values(((s_512)(car s_124))) s_512))" "((id:trans109_0" " trans-rhs110_0" " id:val111_0" " val-rhs112_0" " body113_0)" -"(let-values(((s_120)(cdr s_118)))" -"(let-values(((s_506)" -"(if(syntax?$1 s_120)" -"(syntax-e$1 s_120)" -" s_120)))" -"(if(pair? s_506)" +"(let-values(((s_126)(cdr s_124)))" +"(let-values(((s_513)" +"(if(syntax?$1 s_126)" +"(syntax-e$1 s_126)" +" s_126)))" +"(if(pair? s_513)" "(let-values(((id:trans114_0" " trans-rhs115_0)" -"(let-values(((s_507)" +"(let-values(((s_514)" "(car" -" s_506)))" -"(let-values(((s_508)" +" s_513)))" +"(let-values(((s_515)" "(if(syntax?$1" -" s_507)" +" s_514)" "(syntax-e$1" -" s_507)" -" s_507)))" +" s_514)" +" s_514)))" "(let-values(((flat-s_31)" "(to-syntax-list.1" -" s_508)))" +" s_515)))" "(if(not" " flat-s_31)" "(let-values()" @@ -63526,7 +63845,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans_0" " trans-rhs_0)" -"(let-values(((lst_340)" +"(let-values(((lst_342)" " flat-s_31))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63534,8 +63853,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_340)))" -"((letrec-values(((for-loop_294)" +" lst_342)))" +"((letrec-values(((for-loop_298)" "(lambda(id:trans_1" " trans-rhs_1" " lst_2)" @@ -63543,10 +63862,10 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_2)" -"(let-values(((s_227)" +"(let-values(((s_230)" "(unsafe-car" " lst_2))" -"((rest_195)" +"((rest_196)" "(unsafe-cdr" " lst_2)))" "(let-values(((id:trans_2" @@ -63561,27 +63880,27 @@ static const char *startup_source = "(let-values(((id:trans145_0" " trans-rhs146_0)" "(let-values()" -"(let-values(((s_509)" +"(let-values(((s_516)" "(if(syntax?$1" -" s_227)" +" s_230)" "(syntax-e$1" -" s_227)" -" s_227)))" +" s_230)" +" s_230)))" "(if(pair?" -" s_509)" +" s_516)" "(let-values(((id:trans119_0)" -"(let-values(((s_335)" +"(let-values(((s_337)" "(car" -" s_509)))" -"(let-values(((s_336)" +" s_516)))" +"(let-values(((s_338)" "(if(syntax?$1" -" s_335)" +" s_337)" "(syntax-e$1" -" s_335)" -" s_335)))" +" s_337)" +" s_337)))" "(let-values(((flat-s_32)" "(to-syntax-list.1" -" s_336)))" +" s_338)))" "(if(not" " flat-s_32)" "(let-values()" @@ -63591,7 +63910,7 @@ static const char *startup_source = " orig-s_45))" "(let-values()" "(let-values(((id:trans_5)" -"(let-values(((lst_341)" +"(let-values(((lst_343)" " flat-s_32))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63599,20 +63918,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_341)))" -"((letrec-values(((for-loop_263)" +" lst_343)))" +"((letrec-values(((for-loop_299)" "(lambda(id:trans_6" -" lst_214)" +" lst_213)" "(begin" " 'for-loop" "(if(pair?" -" lst_214)" -"(let-values(((s_510)" +" lst_213)" +"(let-values(((s_517)" "(unsafe-car" -" lst_214))" -"((rest_196)" +" lst_213))" +"((rest_197)" "(unsafe-cdr" -" lst_214)))" +" lst_213)))" "(let-values(((id:trans_7)" "(let-values(((id:trans_8)" " id:trans_6))" @@ -63620,23 +63939,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans147_0)" "(let-values()" -"(if(let-values(((or-part_384)" +"(if(let-values(((or-part_385)" "(if(syntax?$1" -" s_510)" +" s_517)" "(symbol?" "(syntax-e$1" -" s_510))" +" s_517))" " #f)))" -"(if or-part_384" -" or-part_384" +"(if or-part_385" +" or-part_385" "(symbol?" -" s_510)))" -" s_510" +" s_517)))" +" s_517" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_45" -" s_510)))))" +" s_517)))))" "(cons" " id:trans147_0" " id:trans_8)))))" @@ -63644,45 +63963,45 @@ static const char *startup_source = " id:trans_9)))))" "(if(not" " #f)" -"(for-loop_263" +"(for-loop_299" " id:trans_7" -" rest_196)" +" rest_197)" " id:trans_7)))" " id:trans_6)))))" -" for-loop_263)" +" for-loop_299)" " null" -" lst_341)))))" +" lst_343)))))" "(reverse$1" " id:trans_5))))))))" "((trans-rhs120_0)" -"(let-values(((s_511)" +"(let-values(((s_518)" "(cdr" -" s_509)))" -"(let-values(((s_512)" +" s_516)))" +"(let-values(((s_519)" "(if(syntax?$1" -" s_511)" +" s_518)" "(syntax-e$1" -" s_511)" -" s_511)))" +" s_518)" +" s_518)))" "(if(pair?" -" s_512)" +" s_519)" "(let-values(((trans-rhs121_0)" -"(let-values(((s_233)" +"(let-values(((s_236)" "(car" -" s_512)))" -" s_233))" +" s_519)))" +" s_236))" "(()" -"(let-values(((s_234)" +"(let-values(((s_237)" "(cdr" -" s_512)))" -"(let-values(((s_235)" +" s_519)))" +"(let-values(((s_238)" "(if(syntax?$1" -" s_234)" +" s_237)" "(syntax-e$1" -" s_234)" -" s_234)))" +" s_237)" +" s_237)))" "(if(null?" -" s_235)" +" s_238)" "(values)" "(raise-syntax-error$1" " #f" @@ -63713,20 +64032,20 @@ static const char *startup_source = " trans-rhs_4)))))" "(if(not" " #f)" -"(for-loop_294" +"(for-loop_298" " id:trans_2" " trans-rhs_2" -" rest_195)" +" rest_196)" "(values" " id:trans_2" " trans-rhs_2))))" "(values" " id:trans_1" " trans-rhs_1))))))" -" for-loop_294)" +" for-loop_298)" " null" " null" -" lst_340)))))" +" lst_342)))))" "(values" "(reverse$1" " id:trans_0)" @@ -63735,30 +64054,30 @@ static const char *startup_source = "((id:val116_0" " val-rhs117_0" " body118_0)" -"(let-values(((s_343)" +"(let-values(((s_345)" "(cdr" -" s_506)))" -"(let-values(((s_344)" +" s_513)))" +"(let-values(((s_346)" "(if(syntax?$1" -" s_343)" +" s_345)" "(syntax-e$1" -" s_343)" -" s_343)))" -"(if(pair? s_344)" +" s_345)" +" s_345)))" +"(if(pair? s_346)" "(let-values(((id:val122_0" " val-rhs123_0)" -"(let-values(((s_513)" +"(let-values(((s_520)" "(car" -" s_344)))" -"(let-values(((s_345)" +" s_346)))" +"(let-values(((s_347)" "(if(syntax?$1" -" s_513)" +" s_520)" "(syntax-e$1" -" s_513)" -" s_513)))" +" s_520)" +" s_520)))" "(let-values(((flat-s_33)" "(to-syntax-list.1" -" s_345)))" +" s_347)))" "(if(not" " flat-s_33)" "(let-values()" @@ -63769,7 +64088,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_0" " val-rhs_1)" -"(let-values(((lst_143)" +"(let-values(((lst_142)" " flat-s_33))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63777,21 +64096,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_143)))" -"((letrec-values(((for-loop_295)" +" lst_142)))" +"((letrec-values(((for-loop_300)" "(lambda(id:val_1" " val-rhs_2" -" lst_342)" +" lst_344)" "(begin" " 'for-loop" "(if(pair?" -" lst_342)" -"(let-values(((s_350)" +" lst_344)" +"(let-values(((s_352)" "(unsafe-car" -" lst_342))" -"((rest_197)" +" lst_344))" +"((rest_198)" "(unsafe-cdr" -" lst_342)))" +" lst_344)))" "(let-values(((id:val_2" " val-rhs_3)" "(let-values(((id:val_3)" @@ -63804,27 +64123,27 @@ static const char *startup_source = "(let-values(((id:val148_0" " val-rhs149_0)" "(let-values()" -"(let-values(((s_514)" +"(let-values(((s_521)" "(if(syntax?$1" -" s_350)" +" s_352)" "(syntax-e$1" -" s_350)" -" s_350)))" +" s_352)" +" s_352)))" "(if(pair?" -" s_514)" +" s_521)" "(let-values(((id:val125_0)" -"(let-values(((s_355)" +"(let-values(((s_357)" "(car" -" s_514)))" -"(let-values(((s_356)" +" s_521)))" +"(let-values(((s_358)" "(if(syntax?$1" -" s_355)" +" s_357)" "(syntax-e$1" -" s_355)" -" s_355)))" +" s_357)" +" s_357)))" "(let-values(((flat-s_34)" "(to-syntax-list.1" -" s_356)))" +" s_358)))" "(if(not" " flat-s_34)" "(let-values()" @@ -63834,7 +64153,7 @@ static const char *startup_source = " orig-s_45))" "(let-values()" "(let-values(((id:val_5)" -"(let-values(((lst_343)" +"(let-values(((lst_345)" " flat-s_34))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63842,20 +64161,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_343)))" -"((letrec-values(((for-loop_296)" +" lst_345)))" +"((letrec-values(((for-loop_301)" "(lambda(id:val_6" -" lst_344)" +" lst_346)" "(begin" " 'for-loop" "(if(pair?" -" lst_344)" -"(let-values(((s_515)" +" lst_346)" +"(let-values(((s_522)" "(unsafe-car" -" lst_344))" -"((rest_198)" +" lst_346))" +"((rest_199)" "(unsafe-cdr" -" lst_344)))" +" lst_346)))" "(let-values(((id:val_7)" "(let-values(((id:val_8)" " id:val_6))" @@ -63863,23 +64182,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val150_0)" "(let-values()" -"(if(let-values(((or-part_385)" +"(if(let-values(((or-part_386)" "(if(syntax?$1" -" s_515)" +" s_522)" "(symbol?" "(syntax-e$1" -" s_515))" +" s_522))" " #f)))" -"(if or-part_385" -" or-part_385" +"(if or-part_386" +" or-part_386" "(symbol?" -" s_515)))" -" s_515" +" s_522)))" +" s_522" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_45" -" s_515)))))" +" s_522)))))" "(cons" " id:val150_0" " id:val_8)))))" @@ -63887,45 +64206,45 @@ static const char *startup_source = " id:val_9)))))" "(if(not" " #f)" -"(for-loop_296" +"(for-loop_301" " id:val_7" -" rest_198)" +" rest_199)" " id:val_7)))" " id:val_6)))))" -" for-loop_296)" +" for-loop_301)" " null" -" lst_343)))))" +" lst_345)))))" "(reverse$1" " id:val_5))))))))" "((val-rhs126_0)" -"(let-values(((s_516)" +"(let-values(((s_523)" "(cdr" -" s_514)))" -"(let-values(((s_241)" +" s_521)))" +"(let-values(((s_244)" "(if(syntax?$1" -" s_516)" +" s_523)" "(syntax-e$1" -" s_516)" -" s_516)))" +" s_523)" +" s_523)))" "(if(pair?" -" s_241)" +" s_244)" "(let-values(((val-rhs127_0)" -"(let-values(((s_517)" +"(let-values(((s_524)" "(car" -" s_241)))" -" s_517))" +" s_244)))" +" s_524))" "(()" -"(let-values(((s_518)" +"(let-values(((s_525)" "(cdr" -" s_241)))" -"(let-values(((s_519)" +" s_244)))" +"(let-values(((s_526)" "(if(syntax?$1" -" s_518)" +" s_525)" "(syntax-e$1" -" s_518)" -" s_518)))" +" s_525)" +" s_525)))" "(if(null?" -" s_519)" +" s_526)" "(values)" "(raise-syntax-error$1" " #f" @@ -63956,38 +64275,38 @@ static const char *startup_source = " val-rhs_5)))))" "(if(not" " #f)" -"(for-loop_295" +"(for-loop_300" " id:val_2" " val-rhs_3" -" rest_197)" +" rest_198)" "(values" " id:val_2" " val-rhs_3))))" "(values" " id:val_1" " val-rhs_2))))))" -" for-loop_295)" +" for-loop_300)" " null" " null" -" lst_143)))))" +" lst_142)))))" "(values" "(reverse$1" " id:val_0)" "(reverse$1" " val-rhs_1)))))))))" "((body124_0)" -"(let-values(((s_242)" +"(let-values(((s_245)" "(cdr" -" s_344)))" -"(let-values(((s_243)" +" s_346)))" +"(let-values(((s_246)" "(if(syntax?$1" -" s_242)" +" s_245)" "(syntax-e$1" -" s_242)" -" s_242)))" +" s_245)" +" s_245)))" "(let-values(((flat-s_35)" "(to-syntax-list.1" -" s_243)))" +" s_246)))" "(if(not" " flat-s_35)" "(let-values()" @@ -64040,39 +64359,39 @@ static const char *startup_source = " body107_1)))" "(values #f #f #f #f #f #f #f)))))" "(let-values(((ok?_38 let-values128_0 id:val129_0 val-rhs130_0 body131_0)" -"(let-values(((s_520) disarmed-s_8))" +"(let-values(((s_527) disarmed-s_8))" "(if(if(not syntaxes?_0) #t #f)" -"(let-values(((orig-s_46) s_520))" +"(let-values(((orig-s_46) s_527))" "(let-values(((let-values128_1 id:val129_1 val-rhs130_1 body131_1)" -"(let-values(((s_247)" -"(if(syntax?$1 s_520)" -"(syntax-e$1 s_520)" -" s_520)))" -"(if(pair? s_247)" +"(let-values(((s_250)" +"(if(syntax?$1 s_527)" +"(syntax-e$1 s_527)" +" s_527)))" +"(if(pair? s_250)" "(let-values(((let-values132_0)" -"(let-values(((s_250)(car s_247)))" -" s_250))" +"(let-values(((s_253)(car s_250)))" +" s_253))" "((id:val133_0 val-rhs134_0 body135_0)" -"(let-values(((s_521)(cdr s_247)))" -"(let-values(((s_448)" -"(if(syntax?$1 s_521)" -"(syntax-e$1 s_521)" -" s_521)))" -"(if(pair? s_448)" +"(let-values(((s_528)(cdr s_250)))" +"(let-values(((s_451)" +"(if(syntax?$1 s_528)" +"(syntax-e$1 s_528)" +" s_528)))" +"(if(pair? s_451)" "(let-values(((id:val136_0" " val-rhs137_0)" -"(let-values(((s_361)" +"(let-values(((s_363)" "(car" -" s_448)))" -"(let-values(((s_251)" +" s_451)))" +"(let-values(((s_254)" "(if(syntax?$1" -" s_361)" +" s_363)" "(syntax-e$1" -" s_361)" -" s_361)))" +" s_363)" +" s_363)))" "(let-values(((flat-s_36)" "(to-syntax-list.1" -" s_251)))" +" s_254)))" "(if(not" " flat-s_36)" "(let-values()" @@ -64083,7 +64402,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_10" " val-rhs_6)" -"(let-values(((lst_345)" +"(let-values(((lst_347)" " flat-s_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64091,21 +64410,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_345)))" -"((letrec-values(((for-loop_297)" +" lst_347)))" +"((letrec-values(((for-loop_302)" "(lambda(id:val_11" " val-rhs_7" -" lst_346)" +" lst_348)" "(begin" " 'for-loop" "(if(pair?" -" lst_346)" -"(let-values(((s_370)" +" lst_348)" +"(let-values(((s_372)" "(unsafe-car" -" lst_346))" -"((rest_199)" +" lst_348))" +"((rest_200)" "(unsafe-cdr" -" lst_346)))" +" lst_348)))" "(let-values(((id:val_12" " val-rhs_8)" "(let-values(((id:val_13)" @@ -64118,27 +64437,27 @@ static const char *startup_source = "(let-values(((id:val151_0" " val-rhs152_0)" "(let-values()" -"(let-values(((s_522)" +"(let-values(((s_529)" "(if(syntax?$1" -" s_370)" +" s_372)" "(syntax-e$1" -" s_370)" -" s_370)))" +" s_372)" +" s_372)))" "(if(pair?" -" s_522)" +" s_529)" "(let-values(((id:val139_0)" -"(let-values(((s_374)" +"(let-values(((s_376)" "(car" -" s_522)))" -"(let-values(((s_375)" +" s_529)))" +"(let-values(((s_377)" "(if(syntax?$1" -" s_374)" +" s_376)" "(syntax-e$1" -" s_374)" -" s_374)))" +" s_376)" +" s_376)))" "(let-values(((flat-s_37)" "(to-syntax-list.1" -" s_375)))" +" s_377)))" "(if(not" " flat-s_37)" "(let-values()" @@ -64148,7 +64467,7 @@ static const char *startup_source = " orig-s_46))" "(let-values()" "(let-values(((id:val_15)" -"(let-values(((lst_347)" +"(let-values(((lst_349)" " flat-s_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64156,20 +64475,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_347)))" -"((letrec-values(((for-loop_298)" +" lst_349)))" +"((letrec-values(((for-loop_303)" "(lambda(id:val_16" -" lst_348)" +" lst_350)" "(begin" " 'for-loop" "(if(pair?" -" lst_348)" -"(let-values(((s_379)" +" lst_350)" +"(let-values(((s_381)" "(unsafe-car" -" lst_348))" -"((rest_200)" +" lst_350))" +"((rest_201)" "(unsafe-cdr" -" lst_348)))" +" lst_350)))" "(let-values(((id:val_17)" "(let-values(((id:val_18)" " id:val_16))" @@ -64177,23 +64496,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val153_0)" "(let-values()" -"(if(let-values(((or-part_358)" +"(if(let-values(((or-part_356)" "(if(syntax?$1" -" s_379)" +" s_381)" "(symbol?" "(syntax-e$1" -" s_379))" +" s_381))" " #f)))" -"(if or-part_358" -" or-part_358" +"(if or-part_356" +" or-part_356" "(symbol?" -" s_379)))" -" s_379" +" s_381)))" +" s_381" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_46" -" s_379)))))" +" s_381)))))" "(cons" " id:val153_0" " id:val_18)))))" @@ -64201,45 +64520,45 @@ static const char *startup_source = " id:val_19)))))" "(if(not" " #f)" -"(for-loop_298" +"(for-loop_303" " id:val_17" -" rest_200)" +" rest_201)" " id:val_17)))" " id:val_16)))))" -" for-loop_298)" +" for-loop_303)" " null" -" lst_347)))))" +" lst_349)))))" "(reverse$1" " id:val_15))))))))" "((val-rhs140_0)" -"(let-values(((s_382)" +"(let-values(((s_384)" "(cdr" -" s_522)))" -"(let-values(((s_254)" +" s_529)))" +"(let-values(((s_257)" "(if(syntax?$1" -" s_382)" +" s_384)" "(syntax-e$1" -" s_382)" -" s_382)))" +" s_384)" +" s_384)))" "(if(pair?" -" s_254)" +" s_257)" "(let-values(((val-rhs141_0)" -"(let-values(((s_256)" +"(let-values(((s_259)" "(car" -" s_254)))" -" s_256))" +" s_257)))" +" s_259))" "(()" -"(let-values(((s_523)" +"(let-values(((s_530)" "(cdr" -" s_254)))" -"(let-values(((s_524)" +" s_257)))" +"(let-values(((s_531)" "(if(syntax?$1" -" s_523)" +" s_530)" "(syntax-e$1" -" s_523)" -" s_523)))" +" s_530)" +" s_530)))" "(if(null?" -" s_524)" +" s_531)" "(values)" "(raise-syntax-error$1" " #f" @@ -64270,38 +64589,38 @@ static const char *startup_source = " val-rhs_10)))))" "(if(not" " #f)" -"(for-loop_297" +"(for-loop_302" " id:val_12" " val-rhs_8" -" rest_199)" +" rest_200)" "(values" " id:val_12" " val-rhs_8))))" "(values" " id:val_11" " val-rhs_7))))))" -" for-loop_297)" +" for-loop_302)" " null" " null" -" lst_345)))))" +" lst_347)))))" "(values" "(reverse$1" " id:val_10)" "(reverse$1" " val-rhs_6)))))))))" "((body138_0)" -"(let-values(((s_525)" +"(let-values(((s_532)" "(cdr" -" s_448)))" -"(let-values(((s_257)" +" s_451)))" +"(let-values(((s_260)" "(if(syntax?$1" -" s_525)" +" s_532)" "(syntax-e$1" -" s_525)" -" s_525)))" +" s_532)" +" s_532)))" "(let-values(((flat-s_38)" "(to-syntax-list.1" -" s_257)))" +" s_260)))" "(if(not" " flat-s_38)" "(let-values()" @@ -64335,33 +64654,33 @@ static const char *startup_source = "(values #t let-values128_1 id:val129_1 val-rhs130_1 body131_1)))" "(values #f #f #f #f #f)))))" "(let-values(((sc_37)(new-scope 'local)))" -"(let-values(((phase_145)(expand-context-phase ctx_82)))" +"(let-values(((phase_146)(expand-context-phase ctx_83)))" "(let-values(((frame-id_15)(if syntaxes?_0(make-reference-record) #f)))" "(let-values(((trans-idss_2)" "(reverse$1" -"(let-values(((lst_349)(if syntaxes?_0 id:trans103_0 null)))" +"(let-values(((lst_351)(if syntaxes?_0 id:trans103_0 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_349)))" -"((letrec-values(((for-loop_299)" -"(lambda(fold-var_310 lst_350)" +"(let-values()(check-list lst_351)))" +"((letrec-values(((for-loop_304)" +"(lambda(fold-var_320 lst_352)" "(begin" " 'for-loop" -"(if(pair? lst_350)" +"(if(pair? lst_352)" "(let-values(((ids_35)" -"(unsafe-car lst_350))" -"((rest_201)" -"(unsafe-cdr lst_350)))" -"(let-values(((fold-var_311)" -"(let-values(((fold-var_312)" -" fold-var_310))" -"(let-values(((fold-var_313)" +"(unsafe-car lst_352))" +"((rest_202)" +"(unsafe-cdr lst_352)))" +"(let-values(((fold-var_321)" +"(let-values(((fold-var_322)" +" fold-var_320))" +"(let-values(((fold-var_323)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_351)" +"(let-values(((lst_353)" " ids_35))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64369,152 +64688,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_351)))" -"((letrec-values(((for-loop_300)" -"(lambda(fold-var_314" -" lst_352)" +" lst_353)))" +"((letrec-values(((for-loop_305)" +"(lambda(fold-var_324" +" lst_354)" "(begin" " 'for-loop" "(if(pair?" -" lst_352)" -"(let-values(((id_118)" +" lst_354)" +"(let-values(((id_121)" "(unsafe-car" -" lst_352))" -"((rest_202)" -"(unsafe-cdr" -" lst_352)))" -"(let-values(((fold-var_315)" -"(let-values(((fold-var_316)" -" fold-var_314))" -"(let-values(((fold-var_317)" -"(let-values()" -"(cons" -"(let-values()" -"(add-scope" -" id_118" -" sc_37))" -" fold-var_316))))" -"(values" -" fold-var_317)))))" -"(if(not" -" #f)" -"(for-loop_300" -" fold-var_315" -" rest_202)" -" fold-var_315)))" -" fold-var_314)))))" -" for-loop_300)" -" null" -" lst_351)))))" -" fold-var_312))))" -"(values" -" fold-var_313)))))" -"(if(not #f)" -"(for-loop_299 fold-var_311 rest_201)" -" fold-var_311)))" -" fold-var_310)))))" -" for-loop_299)" -" null" -" lst_349))))))" -"(let-values(((val-idss_3)" -"(reverse$1" -"(let-values(((lst_353)(if syntaxes?_0 id:val105_0 id:val129_0)))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_353)))" -"((letrec-values(((for-loop_301)" -"(lambda(fold-var_318 lst_122)" -"(begin" -" 'for-loop" -"(if(pair? lst_122)" -"(let-values(((ids_36)" -"(unsafe-car lst_122))" +" lst_354))" "((rest_203)" -"(unsafe-cdr lst_122)))" -"(let-values(((fold-var_319)" -"(let-values(((fold-var_320)" -" fold-var_318))" -"(let-values(((fold-var_321)" -"(let-values()" -"(cons" -"(let-values()" -"(reverse$1" -"(let-values(((lst_354)" -" ids_36))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_354)))" -"((letrec-values(((for-loop_302)" -"(lambda(fold-var_322" -" lst_355)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_355)" -"(let-values(((id_119)" -"(unsafe-car" -" lst_355))" -"((rest_204)" "(unsafe-cdr" -" lst_355)))" -"(let-values(((fold-var_108)" -"(let-values(((fold-var_109)" -" fold-var_322))" -"(let-values(((fold-var_323)" -"(let-values()" -"(cons" -"(let-values()" -"(add-scope" -" id_119" -" sc_37))" -" fold-var_109))))" -"(values" -" fold-var_323)))))" -"(if(not" -" #f)" -"(for-loop_302" -" fold-var_108" -" rest_204)" -" fold-var_108)))" -" fold-var_322)))))" -" for-loop_302)" -" null" -" lst_354)))))" -" fold-var_320))))" -"(values" -" fold-var_321)))))" -"(if(not #f)" -"(for-loop_301" -" fold-var_319" -" rest_203)" -" fold-var_319)))" -" fold-var_318)))))" -" for-loop_301)" -" null" -" lst_353))))))" -"(let-values(((val-rhss_3)" -"(if rec?_1" -"(reverse$1" -"(let-values(((lst_356)" -"(if syntaxes?_0 val-rhs106_0 val-rhs130_0)))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_356)))" -"((letrec-values(((for-loop_273)" -"(lambda(fold-var_324 lst_357)" -"(begin" -" 'for-loop" -"(if(pair? lst_357)" -"(let-values(((rhs_20)" -"(unsafe-car lst_357))" -"((rest_205)" -"(unsafe-cdr lst_357)))" +" lst_354)))" "(let-values(((fold-var_325)" "(let-values(((fold-var_326)" " fold-var_324))" @@ -64523,55 +64710,47 @@ static const char *startup_source = "(cons" "(let-values()" "(add-scope" -" rhs_20" +" id_121" " sc_37))" " fold-var_326))))" "(values" " fold-var_327)))))" -"(if(not #f)" -"(for-loop_273" +"(if(not" +" #f)" +"(for-loop_305" " fold-var_325" -" rest_205)" +" rest_203)" " fold-var_325)))" " fold-var_324)))))" -" for-loop_273)" +" for-loop_305)" " null" -" lst_356))))" -"(if syntaxes?_0 val-rhs106_0 val-rhs130_0))))" -"(let-values((()" -"(begin" -"(let-values(((temp142_1)(list trans-idss_2 val-idss_3))" -"((phase143_0) phase_145)" -"((s144_0) s_324))" -"(check-no-duplicate-ids8.1" -" #f" -" #f" -" temp142_1" -" phase143_0" -" s144_0" -" #f" -" #f))" -"(values))))" -"(let-values(((counter_8)(root-expand-context-counter ctx_82)))" -"(let-values(((trans-keyss_0)" +" lst_353)))))" +" fold-var_322))))" +"(values" +" fold-var_323)))))" +"(if(not #f)" +"(for-loop_304 fold-var_321 rest_202)" +" fold-var_321)))" +" fold-var_320)))))" +" for-loop_304)" +" null" +" lst_351))))))" +"(let-values(((val-idss_3)" "(reverse$1" -"(let-values(((lst_358) trans-idss_2))" +"(let-values(((lst_355)(if syntaxes?_0 id:val105_0 id:val129_0)))" "(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_358)))" -"((letrec-values(((for-loop_303)" -"(lambda(fold-var_328 lst_359)" +"(let-values()(check-list lst_355)))" +"((letrec-values(((for-loop_306)" +"(lambda(fold-var_328 lst_121)" "(begin" " 'for-loop" -"(if(pair? lst_359)" -"(let-values(((ids_37)" -"(unsafe-car" -" lst_359))" -"((rest_206)" -"(unsafe-cdr" -" lst_359)))" +"(if(pair? lst_121)" +"(let-values(((ids_36)" +"(unsafe-car lst_121))" +"((rest_204)" +"(unsafe-cdr lst_121)))" "(let-values(((fold-var_329)" "(let-values(((fold-var_330)" " fold-var_328))" @@ -64580,7 +64759,147 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_360)" +"(let-values(((lst_356)" +" ids_36))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_356)))" +"((letrec-values(((for-loop_307)" +"(lambda(fold-var_332" +" lst_357)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_357)" +"(let-values(((id_122)" +"(unsafe-car" +" lst_357))" +"((rest_205)" +"(unsafe-cdr" +" lst_357)))" +"(let-values(((fold-var_108)" +"(let-values(((fold-var_109)" +" fold-var_332))" +"(let-values(((fold-var_333)" +"(let-values()" +"(cons" +"(let-values()" +"(add-scope" +" id_122" +" sc_37))" +" fold-var_109))))" +"(values" +" fold-var_333)))))" +"(if(not" +" #f)" +"(for-loop_307" +" fold-var_108" +" rest_205)" +" fold-var_108)))" +" fold-var_332)))))" +" for-loop_307)" +" null" +" lst_356)))))" +" fold-var_330))))" +"(values" +" fold-var_331)))))" +"(if(not #f)" +"(for-loop_306" +" fold-var_329" +" rest_204)" +" fold-var_329)))" +" fold-var_328)))))" +" for-loop_306)" +" null" +" lst_355))))))" +"(let-values(((val-rhss_3)" +"(if rec?_1" +"(reverse$1" +"(let-values(((lst_358)" +"(if syntaxes?_0 val-rhs106_0 val-rhs130_0)))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_358)))" +"((letrec-values(((for-loop_274)" +"(lambda(fold-var_334 lst_359)" +"(begin" +" 'for-loop" +"(if(pair? lst_359)" +"(let-values(((rhs_20)" +"(unsafe-car lst_359))" +"((rest_206)" +"(unsafe-cdr lst_359)))" +"(let-values(((fold-var_335)" +"(let-values(((fold-var_336)" +" fold-var_334))" +"(let-values(((fold-var_337)" +"(let-values()" +"(cons" +"(let-values()" +"(add-scope" +" rhs_20" +" sc_37))" +" fold-var_336))))" +"(values" +" fold-var_337)))))" +"(if(not #f)" +"(for-loop_274" +" fold-var_335" +" rest_206)" +" fold-var_335)))" +" fold-var_334)))))" +" for-loop_274)" +" null" +" lst_358))))" +"(if syntaxes?_0 val-rhs106_0 val-rhs130_0))))" +"(let-values((()" +"(begin" +"(let-values(((temp142_3)(list trans-idss_2 val-idss_3))" +"((phase143_0) phase_146)" +"((s144_0) s_326))" +"(check-no-duplicate-ids8.1" +" #f" +" #f" +" temp142_3" +" phase143_0" +" s144_0" +" #f" +" #f))" +"(values))))" +"(let-values(((counter_8)(root-expand-context-counter ctx_83)))" +"(let-values(((trans-keyss_0)" +"(reverse$1" +"(let-values(((lst_360) trans-idss_2))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_360)))" +"((letrec-values(((for-loop_308)" +"(lambda(fold-var_338 lst_361)" +"(begin" +" 'for-loop" +"(if(pair? lst_361)" +"(let-values(((ids_37)" +"(unsafe-car" +" lst_361))" +"((rest_207)" +"(unsafe-cdr" +" lst_361)))" +"(let-values(((fold-var_339)" +"(let-values(((fold-var_340)" +" fold-var_338))" +"(let-values(((fold-var_341)" +"(let-values()" +"(cons" +"(let-values()" +"(reverse$1" +"(let-values(((lst_362)" " ids_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64588,37 +64907,37 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_360)))" -"((letrec-values(((for-loop_304)" -"(lambda(fold-var_332" -" lst_361)" +" lst_362)))" +"((letrec-values(((for-loop_309)" +"(lambda(fold-var_342" +" lst_363)" "(begin" " 'for-loop" "(if(pair?" -" lst_361)" +" lst_363)" "(let-values(((id_26)" "(unsafe-car" -" lst_361))" -"((rest_207)" +" lst_363))" +"((rest_208)" "(unsafe-cdr" -" lst_361)))" -"(let-values(((fold-var_333)" -"(let-values(((fold-var_334)" -" fold-var_332))" -"(let-values(((fold-var_335)" +" lst_363)))" +"(let-values(((fold-var_343)" +"(let-values(((fold-var_344)" +" fold-var_342))" +"(let-values(((fold-var_345)" "(let-values()" "(cons" "(let-values()" "(let-values(((id154_1)" " id_26)" "((phase155_0)" -" phase_145)" +" phase_146)" "((counter156_0)" " counter_8)" "((frame-id157_0)" " frame-id_15)" "((s158_1)" -" s_324))" +" s_326))" "(add-local-binding!37.1" " frame-id157_0" " #t" @@ -64627,59 +64946,59 @@ static const char *startup_source = " id154_1" " phase155_0" " counter156_0)))" -" fold-var_334))))" +" fold-var_344))))" "(values" -" fold-var_335)))))" +" fold-var_345)))))" "(if(not" " #f)" -"(for-loop_304" -" fold-var_333" -" rest_207)" -" fold-var_333)))" -" fold-var_332)))))" -" for-loop_304)" +"(for-loop_309" +" fold-var_343" +" rest_208)" +" fold-var_343)))" +" fold-var_342)))))" +" for-loop_309)" " null" -" lst_360)))))" -" fold-var_330))))" +" lst_362)))))" +" fold-var_340))))" "(values" -" fold-var_331)))))" +" fold-var_341)))))" "(if(not #f)" -"(for-loop_303" -" fold-var_329" -" rest_206)" -" fold-var_329)))" -" fold-var_328)))))" -" for-loop_303)" +"(for-loop_308" +" fold-var_339" +" rest_207)" +" fold-var_339)))" +" fold-var_338)))))" +" for-loop_308)" " null" -" lst_358))))))" +" lst_360))))))" "(let-values(((val-keyss_2)" "(reverse$1" -"(let-values(((lst_362) val-idss_3))" +"(let-values(((lst_364) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_362)))" -"((letrec-values(((for-loop_305)" -"(lambda(fold-var_336 lst_245)" +"(let-values()(check-list lst_364)))" +"((letrec-values(((for-loop_310)" +"(lambda(fold-var_346 lst_244)" "(begin" " 'for-loop" -"(if(pair? lst_245)" +"(if(pair? lst_244)" "(let-values(((ids_38)" "(unsafe-car" -" lst_245))" -"((rest_208)" +" lst_244))" +"((rest_209)" "(unsafe-cdr" -" lst_245)))" -"(let-values(((fold-var_337)" -"(let-values(((fold-var_338)" -" fold-var_336))" -"(let-values(((fold-var_339)" +" lst_244)))" +"(let-values(((fold-var_347)" +"(let-values(((fold-var_348)" +" fold-var_346))" +"(let-values(((fold-var_349)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_363)" +"(let-values(((lst_365)" " ids_38))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64687,37 +65006,37 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_363)))" -"((letrec-values(((for-loop_306)" -"(lambda(fold-var_340" -" lst_364)" +" lst_365)))" +"((letrec-values(((for-loop_311)" +"(lambda(fold-var_350" +" lst_366)" "(begin" " 'for-loop" "(if(pair?" -" lst_364)" -"(let-values(((id_120)" +" lst_366)" +"(let-values(((id_123)" "(unsafe-car" -" lst_364))" -"((rest_209)" +" lst_366))" +"((rest_210)" "(unsafe-cdr" -" lst_364)))" -"(let-values(((fold-var_341)" -"(let-values(((fold-var_342)" -" fold-var_340))" -"(let-values(((fold-var_343)" +" lst_366)))" +"(let-values(((fold-var_351)" +"(let-values(((fold-var_352)" +" fold-var_350))" +"(let-values(((fold-var_353)" "(let-values()" "(cons" "(let-values()" "(let-values(((id159_0)" -" id_120)" +" id_123)" "((phase160_1)" -" phase_145)" +" phase_146)" "((counter161_0)" " counter_8)" "((frame-id162_0)" " frame-id_15)" "((s163_0)" -" s_324))" +" s_326))" "(add-local-binding!37.1" " frame-id162_0" " #t" @@ -64726,77 +65045,77 @@ static const char *startup_source = " id159_0" " phase160_1" " counter161_0)))" -" fold-var_342))))" +" fold-var_352))))" "(values" -" fold-var_343)))))" +" fold-var_353)))))" "(if(not" " #f)" -"(for-loop_306" -" fold-var_341" -" rest_209)" -" fold-var_341)))" -" fold-var_340)))))" -" for-loop_306)" +"(for-loop_311" +" fold-var_351" +" rest_210)" +" fold-var_351)))" +" fold-var_350)))))" +" for-loop_311)" " null" -" lst_363)))))" -" fold-var_338))))" +" lst_365)))))" +" fold-var_348))))" "(values" -" fold-var_339)))))" +" fold-var_349)))))" "(if(not #f)" -"(for-loop_305" -" fold-var_337" -" rest_208)" -" fold-var_337)))" -" fold-var_336)))))" -" for-loop_305)" +"(for-loop_310" +" fold-var_347" +" rest_209)" +" fold-var_347)))" +" fold-var_346)))))" +" for-loop_310)" " null" -" lst_362))))))" +" lst_364))))))" "(let-values(((bodys_10)" "(reverse$1" -"(let-values(((lst_146)" +"(let-values(((lst_145)" "(if syntaxes?_0 body107_0 body131_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_146)))" -"((letrec-values(((for-loop_171)" -"(lambda(fold-var_344 lst_147)" +"(let-values()(check-list lst_145)))" +"((letrec-values(((for-loop_172)" +"(lambda(fold-var_354 lst_146)" "(begin" " 'for-loop" -"(if(pair? lst_147)" +"(if(pair? lst_146)" "(let-values(((body_20)" "(unsafe-car" -" lst_147))" +" lst_146))" "((rest_74)" "(unsafe-cdr" -" lst_147)))" -"(let-values(((fold-var_304)" -"(let-values(((fold-var_305)" -" fold-var_344))" -"(let-values(((fold-var_345)" +" lst_146)))" +"(let-values(((fold-var_314)" +"(let-values(((fold-var_315)" +" fold-var_354))" +"(let-values(((fold-var_355)" "(let-values()" "(cons" "(let-values()" "(add-scope" " body_20" " sc_37))" -" fold-var_305))))" +" fold-var_315))))" "(values" -" fold-var_345)))))" +" fold-var_355)))))" "(if(not #f)" -"(for-loop_171" -" fold-var_304" +"(for-loop_172" +" fold-var_314" " rest_74)" -" fold-var_304)))" -" fold-var_344)))))" -" for-loop_171)" +" fold-var_314)))" +" fold-var_354)))))" +" for-loop_172)" " null" -" lst_146))))))" +" lst_145))))))" "(let-values((()" "(begin" "(let-values(((obs_91)" -"(expand-context-observer ctx_82)))" +"(expand-context-observer ctx_83)))" "(if obs_91" "(let-values()" "(log-let-renames" @@ -64817,7 +65136,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_92)" "(expand-context-observer" -" ctx_82)))" +" ctx_83)))" "(if obs_92" "(let-values()" "(let-values()" @@ -64825,48 +65144,48 @@ static const char *startup_source = " obs_92" " 'prepare-env)))" "(void)))" -"(prepare-next-phase-namespace ctx_82)))" +"(prepare-next-phase-namespace ctx_83)))" "(void))" "(values))))" "(let-values(((trans-valss_0)" "(reverse$1" -"(let-values(((lst_365)" +"(let-values(((lst_367)" "(if syntaxes?_0 trans-rhs104_0 '()))" -"((lst_366) trans-idss_2))" +"((lst_368) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_365)))" +"(let-values()(check-list lst_367)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_366)))" -"((letrec-values(((for-loop_307)" -"(lambda(fold-var_346" -" lst_367" -" lst_368)" +"(let-values()(check-list lst_368)))" +"((letrec-values(((for-loop_312)" +"(lambda(fold-var_356" +" lst_369" +" lst_370)" "(begin" " 'for-loop" -"(if(if(pair? lst_367)" -"(pair? lst_368)" +"(if(if(pair? lst_369)" +"(pair? lst_370)" " #f)" "(let-values(((rhs_21)" "(unsafe-car" -" lst_367))" -"((rest_210)" -"(unsafe-cdr" -" lst_367))" -"((ids_39)" -"(unsafe-car" -" lst_368))" +" lst_369))" "((rest_211)" "(unsafe-cdr" -" lst_368)))" -"(let-values(((fold-var_347)" -"(let-values(((fold-var_348)" -" fold-var_346))" -"(let-values(((fold-var_349)" +" lst_369))" +"((ids_39)" +"(unsafe-car" +" lst_370))" +"((rest_212)" +"(unsafe-cdr" +" lst_370)))" +"(let-values(((fold-var_357)" +"(let-values(((fold-var_358)" +" fold-var_356))" +"(let-values(((fold-var_359)" "(let-values()" "(cons" "(let-values()" @@ -64874,7 +65193,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_93)" "(expand-context-observer" -" ctx_82)))" +" ctx_83)))" "(if obs_93" "(let-values()" "(let-values()" @@ -64893,11 +65212,11 @@ static const char *startup_source = " rhs_21" " sc_37)" " ids_39" -" ctx_82)))" +" ctx_83)))" "(begin" "(let-values(((obs_94)" "(expand-context-observer" -" ctx_82)))" +" ctx_83)))" "(if obs_94" "(let-values()" "(let-values()" @@ -64906,59 +65225,59 @@ static const char *startup_source = " 'exit-bind)))" "(void)))" " trans-val_1))))" -" fold-var_348))))" +" fold-var_358))))" "(values" -" fold-var_349)))))" +" fold-var_359)))))" "(if(not #f)" -"(for-loop_307" -" fold-var_347" -" rest_210" -" rest_211)" -" fold-var_347)))" -" fold-var_346)))))" -" for-loop_307)" +"(for-loop_312" +" fold-var_357" +" rest_211" +" rest_212)" +" fold-var_357)))" +" fold-var_356)))))" +" for-loop_312)" " null" -" lst_365" -" lst_366))))))" +" lst_367" +" lst_368))))))" "(let-values(((rec-val-env_0)" -"(let-values(((lst_369) val-keyss_2)" -"((lst_370) val-idss_3))" +"(let-values(((lst_371) val-keyss_2)" +"((lst_372) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_369)))" +"(let-values()(check-list lst_371)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_370)))" -"((letrec-values(((for-loop_308)" +"(let-values()(check-list lst_372)))" +"((letrec-values(((for-loop_313)" "(lambda(env_29" -" lst_371" -" lst_372)" +" lst_373" +" lst_374)" "(begin" " 'for-loop" -"(if(if(pair? lst_371)" -"(pair? lst_372)" +"(if(if(pair? lst_373)" +"(pair? lst_374)" " #f)" "(let-values(((keys_10)" "(unsafe-car" -" lst_371))" -"((rest_212)" -"(unsafe-cdr" -" lst_371))" -"((ids_40)" -"(unsafe-car" -" lst_372))" +" lst_373))" "((rest_213)" "(unsafe-cdr" -" lst_372)))" +" lst_373))" +"((ids_40)" +"(unsafe-car" +" lst_374))" +"((rest_214)" +"(unsafe-cdr" +" lst_374)))" "(let-values(((env_30)" "(let-values(((env_31)" " env_29))" -"(let-values(((lst_373)" +"(let-values(((lst_375)" " keys_10)" -"((lst_374)" +"((lst_376)" " ids_40))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64966,36 +65285,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_373)))" +" lst_375)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_374)))" -"((letrec-values(((for-loop_309)" +" lst_376)))" +"((letrec-values(((for-loop_314)" "(lambda(env_32" -" lst_375" -" lst_376)" +" lst_377" +" lst_378)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_375)" +" lst_377)" "(pair?" -" lst_376)" +" lst_378)" " #f)" -"(let-values(((key_94)" +"(let-values(((key_97)" "(unsafe-car" -" lst_375))" -"((rest_214)" -"(unsafe-cdr" -" lst_375))" -"((id_121)" -"(unsafe-car" -" lst_376))" +" lst_377))" "((rest_215)" "(unsafe-cdr" -" lst_376)))" +" lst_377))" +"((id_124)" +"(unsafe-car" +" lst_378))" +"((rest_216)" +"(unsafe-cdr" +" lst_378)))" "(let-values(((env_33)" "(let-values(((env_34)" " env_32))" @@ -65003,94 +65322,94 @@ static const char *startup_source = "(let-values()" "(env-extend" " env_34" -" key_94" +" key_97" "(local-variable1.1" -" id_121)))))" +" id_124)))))" "(values" " env_35)))))" "(if(not" " #f)" -"(for-loop_309" +"(for-loop_314" " env_33" -" rest_214" -" rest_215)" +" rest_215" +" rest_216)" " env_33)))" " env_32)))))" -" for-loop_309)" +" for-loop_314)" " env_31" -" lst_373" -" lst_374))))))" +" lst_375" +" lst_376))))))" "(if(not #f)" -"(for-loop_308" +"(for-loop_313" " env_30" -" rest_212" -" rest_213)" +" rest_213" +" rest_214)" " env_30)))" " env_29)))))" -" for-loop_308)" -"(expand-context-env ctx_82)" -" lst_369" -" lst_370)))))" +" for-loop_313)" +"(expand-context-env ctx_83)" +" lst_371" +" lst_372)))))" "(let-values(((rec-env_0)" -"(let-values(((lst_377) trans-keyss_0)" -"((lst_127) trans-valss_0)" -"((lst_378) trans-idss_2))" +"(let-values(((lst_379) trans-keyss_0)" +"((lst_126) trans-valss_0)" +"((lst_380) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_377)))" +"(let-values()(check-list lst_379)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_127)))" +"(let-values()(check-list lst_126)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_378)))" -"((letrec-values(((for-loop_310)" +"(let-values()(check-list lst_380)))" +"((letrec-values(((for-loop_315)" "(lambda(env_36" -" lst_379" -" lst_380" -" lst_381)" +" lst_381" +" lst_382" +" lst_383)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_379)" -"(if(pair?" -" lst_380)" -"(pair?" " lst_381)" +"(if(pair?" +" lst_382)" +"(pair?" +" lst_383)" " #f)" " #f)" "(let-values(((keys_11)" "(unsafe-car" -" lst_379))" -"((rest_216)" -"(unsafe-cdr" -" lst_379))" -"((vals_9)" -"(unsafe-car" -" lst_380))" +" lst_381))" "((rest_217)" "(unsafe-cdr" -" lst_380))" -"((ids_41)" -"(unsafe-car" " lst_381))" +"((vals_9)" +"(unsafe-car" +" lst_382))" "((rest_218)" "(unsafe-cdr" -" lst_381)))" +" lst_382))" +"((ids_41)" +"(unsafe-car" +" lst_383))" +"((rest_219)" +"(unsafe-cdr" +" lst_383)))" "(let-values(((env_37)" "(let-values(((env_38)" " env_36))" "(let-values(((env_39)" "(let-values()" -"(let-values(((lst_382)" +"(let-values(((lst_384)" " keys_11)" -"((lst_383)" +"((lst_385)" " vals_9)" -"((lst_128)" +"((lst_127)" " ids_41))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65098,52 +65417,52 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_382)))" +" lst_384)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_383)))" +" lst_385)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_128)))" -"((letrec-values(((for-loop_159)" +" lst_127)))" +"((letrec-values(((for-loop_160)" "(lambda(env_40" -" lst_129" -" lst_384" -" lst_385)" +" lst_128" +" lst_386" +" lst_387)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_129)" +" lst_128)" "(if(pair?" -" lst_384)" +" lst_386)" "(pair?" -" lst_385)" +" lst_387)" " #f)" " #f)" -"(let-values(((key_95)" +"(let-values(((key_98)" "(unsafe-car" -" lst_129))" +" lst_128))" "((rest_135)" "(unsafe-cdr" -" lst_129))" -"((val_83)" +" lst_128))" +"((val_87)" "(unsafe-car" -" lst_384))" -"((rest_219)" -"(unsafe-cdr" -" lst_384))" -"((id_122)" -"(unsafe-car" -" lst_385))" +" lst_386))" "((rest_220)" "(unsafe-cdr" -" lst_385)))" +" lst_386))" +"((id_125)" +"(unsafe-car" +" lst_387))" +"((rest_221)" +"(unsafe-cdr" +" lst_387)))" "(let-values(((env_41)" "(let-values(((env_42)" " env_40))" @@ -65151,52 +65470,52 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_83" -" id_122" -" phase_145" -" ctx_82)" +" val_87" +" id_125" +" phase_146" +" ctx_83)" "(env-extend" " env_42" -" key_95" -" val_83)))))" +" key_98" +" val_87)))))" "(values" " env_43)))))" "(if(not" " #f)" -"(for-loop_159" +"(for-loop_160" " env_41" " rest_135" -" rest_219" -" rest_220)" +" rest_220" +" rest_221)" " env_41)))" " env_40)))))" -" for-loop_159)" +" for-loop_160)" " env_38" -" lst_382" -" lst_383" -" lst_128))))))" +" lst_384" +" lst_385" +" lst_127))))))" "(values" " env_39)))))" "(if(not #f)" -"(for-loop_310" +"(for-loop_315" " env_37" -" rest_216" " rest_217" -" rest_218)" +" rest_218" +" rest_219)" " env_37)))" " env_36)))))" -" for-loop_310)" +" for-loop_315)" " rec-val-env_0" -" lst_377" -" lst_127" -" lst_378)))))" -"(let-values(((expr-ctx_0)(as-expression-context ctx_82)))" +" lst_379" +" lst_126" +" lst_380)))))" +"(let-values(((expr-ctx_0)(as-expression-context ctx_83)))" "(let-values(((orig-rrs_0)" "(expand-context-reference-records" " expr-ctx_0)))" "(let-values(((rec-ctx_0)" -"(let-values(((v_254) expr-ctx_0))" -"(let-values(((the-struct_91) v_254))" +"(let-values(((v_255) expr-ctx_0))" +"(let-values(((the-struct_91) v_255))" "(if(expand-context/outer?" " the-struct_91)" "(let-values(((env164_0) rec-env_0)" @@ -65204,7 +65523,7 @@ static const char *startup_source = "(cons" " sc_37" "(expand-context-scopes" -" ctx_82)))" +" ctx_83)))" "((reference-records166_0)" "(if split-by-reference?_0" "(cons" @@ -65216,11 +65535,11 @@ static const char *startup_source = "(cons" " trans-idss_2" " val-idss_3)" -" ctx_82" +" ctx_83" " sc_37))" "((inner168_0)" "(root-expand-context/outer-inner" -" v_254)))" +" v_255)))" "(expand-context/outer1.1" " inner168_0" "(root-expand-context/outer-post-expansion-scope" @@ -65253,14 +65572,14 @@ static const char *startup_source = " the-struct_91))))))" "(let-values(((letrec-values-id_0)" "(if(not" -"(expand-context-to-parsed? ctx_82))" +"(expand-context-to-parsed? ctx_83))" "(if syntaxes?_0" -"(core-id 'letrec-values phase_145)" +"(core-id 'letrec-values phase_146)" " let-values128_0)" " #f)))" "(let-values(((rebuild-s_6)" -"(let-values(((ctx169_0) ctx_82)" -"((s170_1) s_324)" +"(let-values(((ctx169_0) ctx_83)" +"((s170_1) s_326)" "((temp171_1) #t))" "(keep-as-needed74.1" " #f" @@ -65273,38 +65592,38 @@ static const char *startup_source = " s170_1))))" "(let-values(((val-name-idss_0)" "(if(expand-context-to-parsed?" -" ctx_82)" +" ctx_83)" "(reverse$1" -"(let-values(((lst_386)" +"(let-values(((lst_388)" " val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_386)))" -"((letrec-values(((for-loop_311)" +"(check-list lst_388)))" +"((letrec-values(((for-loop_316)" "(lambda(fold-var_120" -" lst_132)" +" lst_131)" "(begin" " 'for-loop" "(if(pair?" -" lst_132)" +" lst_131)" "(let-values(((val-ids_1)" "(unsafe-car" -" lst_132))" -"((rest_221)" +" lst_131))" +"((rest_222)" "(unsafe-cdr" -" lst_132)))" -"(let-values(((fold-var_350)" -"(let-values(((fold-var_351)" +" lst_131)))" +"(let-values(((fold-var_360)" +"(let-values(((fold-var_361)" " fold-var_120))" -"(let-values(((fold-var_352)" +"(let-values(((fold-var_362)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_387)" +"(let-values(((lst_389)" " val-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65312,24 +65631,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_387)))" -"((letrec-values(((for-loop_312)" -"(lambda(fold-var_353" -" lst_388)" +" lst_389)))" +"((letrec-values(((for-loop_317)" +"(lambda(fold-var_363" +" lst_390)" "(begin" " 'for-loop" "(if(pair?" -" lst_388)" +" lst_390)" "(let-values(((val-id_0)" "(unsafe-car" -" lst_388))" -"((rest_222)" +" lst_390))" +"((rest_223)" "(unsafe-cdr" -" lst_388)))" -"(let-values(((fold-var_354)" +" lst_390)))" +"(let-values(((fold-var_364)" "(let-values(((fold-var_124)" -" fold-var_353))" -"(let-values(((fold-var_355)" +" fold-var_363))" +"(let-values(((fold-var_365)" "(let-values()" "(cons" "(let-values()" @@ -65341,30 +65660,30 @@ static const char *startup_source = " val-id_0))" " fold-var_124))))" "(values" -" fold-var_355)))))" +" fold-var_365)))))" "(if(not" " #f)" -"(for-loop_312" -" fold-var_354" -" rest_222)" -" fold-var_354)))" -" fold-var_353)))))" -" for-loop_312)" +"(for-loop_317" +" fold-var_364" +" rest_223)" +" fold-var_364)))" +" fold-var_363)))))" +" for-loop_317)" " null" -" lst_387)))))" -" fold-var_351))))" +" lst_389)))))" +" fold-var_361))))" "(values" -" fold-var_352)))))" +" fold-var_362)))))" "(if(not" " #f)" -"(for-loop_311" -" fold-var_350" -" rest_221)" -" fold-var_350)))" +"(for-loop_316" +" fold-var_360" +" rest_222)" +" fold-var_360)))" " fold-var_120)))))" -" for-loop_311)" +" for-loop_316)" " null" -" lst_386))))" +" lst_388))))" " val-idss_3)))" "(let-values((()" "(begin" @@ -65372,7 +65691,7 @@ static const char *startup_source = "(let-values()" "(let-values(((obs_95)" "(expand-context-observer" -" ctx_82)))" +" ctx_83)))" "(if obs_95" "(let-values()" "(log-letrec-values" @@ -65391,7 +65710,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_96)" "(expand-context-observer" -" ctx_82)))" +" ctx_83)))" "(if obs_96" "(let-values()" "(if(not" @@ -65407,17 +65726,17 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_5)" -"(let-values(((v_255)" +"(let-values(((v_256)" " rec-ctx_0))" "(let-values(((the-struct_92)" -" v_255))" +" v_256))" "(if(expand-context/outer?" " the-struct_92)" "(let-values(((reference-records175_0)" " orig-rrs_0)" "((inner176_0)" "(root-expand-context/outer-inner" -" v_255)))" +" v_256)))" "(expand-context/outer1.1" " inner176_0" "(root-expand-context/outer-post-expansion-scope" @@ -65457,7 +65776,7 @@ static const char *startup_source = "(let-values(((body-ctx177_0)" " body-ctx_5)" "((ctx178_0)" -" ctx_82))" +" ctx_83))" "(as-tail-context23.1" " ctx178_0" " body-ctx177_0)))" @@ -65475,11 +65794,11 @@ static const char *startup_source = "(let-values()" "(let-values(((clauses_2)" "(reverse$1" -"(let-values(((lst_389)" +"(let-values(((lst_391)" " val-name-idss_0)" -"((lst_390)" +"((lst_392)" " val-keyss_2)" -"((lst_391)" +"((lst_393)" " val-rhss_3))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65487,56 +65806,56 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_389)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_390)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" " lst_391)))" -"((letrec-values(((for-loop_313)" -"(lambda(fold-var_356" -" lst_392" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_392)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_393)))" +"((letrec-values(((for-loop_318)" +"(lambda(fold-var_366" +" lst_394" " lst_62" -" lst_393)" +" lst_395)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_392)" +" lst_394)" "(if(pair?" " lst_62)" "(pair?" -" lst_393)" +" lst_395)" " #f)" " #f)" "(let-values(((ids_42)" "(unsafe-car" -" lst_392))" -"((rest_223)" +" lst_394))" +"((rest_224)" "(unsafe-cdr" -" lst_392))" +" lst_394))" "((keys_12)" "(unsafe-car" " lst_62))" -"((rest_224)" +"((rest_225)" "(unsafe-cdr" " lst_62))" "((rhs_22)" "(unsafe-car" -" lst_393))" -"((rest_225)" +" lst_395))" +"((rest_226)" "(unsafe-cdr" -" lst_393)))" +" lst_395)))" "(let-values(((fold-var_47)" -"(let-values(((fold-var_357)" -" fold-var_356))" -"(let-values(((fold-var_358)" +"(let-values(((fold-var_367)" +" fold-var_366))" +"(let-values(((fold-var_368)" "(let-values()" "(cons" "(let-values()" @@ -65544,7 +65863,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_97)" "(expand-context-observer" -" ctx_82)))" +" ctx_83)))" "(if obs_97" "(let-values()" "(let-values()" @@ -65572,30 +65891,30 @@ static const char *startup_source = " rhs179_0" " temp180_1))))" "(if(expand-context-to-parsed?" -" ctx_82)" +" ctx_83)" "(list" " keys_12" " exp-rhs_3)" "(list" " ids_42" " exp-rhs_3)))))" -" fold-var_357))))" +" fold-var_367))))" "(values" -" fold-var_358)))))" +" fold-var_368)))))" "(if(not" " #f)" -"(for-loop_313" +"(for-loop_318" " fold-var_47" -" rest_223" " rest_224" -" rest_225)" +" rest_225" +" rest_226)" " fold-var_47)))" -" fold-var_356)))))" -" for-loop_313)" +" fold-var_366)))))" +" for-loop_318)" " null" -" lst_389" -" lst_390" -" lst_391))))))" +" lst_391" +" lst_392" +" lst_393))))))" "(let-values(((exp-body_4)" "(get-body_1)))" "(begin" @@ -65605,7 +65924,7 @@ static const char *startup_source = " frame-id_15))" "(void))" "(if(expand-context-to-parsed?" -" ctx_82)" +" ctx_83)" "(if rec?_1" "(parsed-letrec-values18.1" " rebuild-s_6" @@ -65638,7 +65957,7 @@ static const char *startup_source = " val-rhss_3)" "((temp186_1)" "(reverse$1" -"(let-values(((lst_394)" +"(let-values(((lst_396)" " val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65646,41 +65965,41 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_394)))" -"((letrec-values(((for-loop_314)" -"(lambda(fold-var_359" -" lst_395)" +" lst_396)))" +"((letrec-values(((for-loop_319)" +"(lambda(fold-var_369" +" lst_397)" "(begin" " 'for-loop" "(if(pair?" -" lst_395)" +" lst_397)" "(let-values(((rhs_23)" "(unsafe-car" -" lst_395))" -"((rest_226)" +" lst_397))" +"((rest_227)" "(unsafe-cdr" -" lst_395)))" -"(let-values(((fold-var_360)" -"(let-values(((fold-var_361)" -" fold-var_359))" -"(let-values(((fold-var_362)" +" lst_397)))" +"(let-values(((fold-var_370)" +"(let-values(((fold-var_371)" +" fold-var_369))" +"(let-values(((fold-var_372)" "(let-values()" "(cons" "(let-values()" " #f)" -" fold-var_361))))" +" fold-var_371))))" "(values" -" fold-var_362)))))" +" fold-var_372)))))" "(if(not" " #f)" -"(for-loop_314" -" fold-var_360" -" rest_226)" -" fold-var_360)))" -" fold-var_359)))))" -" for-loop_314)" +"(for-loop_319" +" fold-var_370" +" rest_227)" +" fold-var_370)))" +" fold-var_369)))))" +" for-loop_319)" " null" -" lst_394)))))" +" lst_396)))))" "((temp187_2)" " #t)" "((frame-id188_0)" @@ -65707,7 +66026,7 @@ static const char *startup_source = " val-keyss184_0" " val-rhss185_0" " temp186_1))))))" -"(if(expand-context-to-parsed? ctx_82)" +"(if(expand-context-to-parsed? ctx_83)" " result-s_12" "(attach-disappeared-transformer-bindings" " result-s_12" @@ -65719,26 +66038,26 @@ static const char *startup_source = "(let-values(((vals+body_0)" "(cons" "(reverse$1" -"(let-values(((lst_396) val-idss_4)((lst_397) val-rhss_4))" +"(let-values(((lst_398) val-idss_4)((lst_399) val-rhss_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_396)))" +"(let-values()(check-list lst_398)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_397)))" -"((letrec-values(((for-loop_315)" -"(lambda(fold-var_363 lst_398 lst_139)" +"(let-values()(check-list lst_399)))" +"((letrec-values(((for-loop_320)" +"(lambda(fold-var_373 lst_400 lst_138)" "(begin" " 'for-loop" -"(if(if(pair? lst_398)(pair? lst_139) #f)" -"(let-values(((val-ids_2)(unsafe-car lst_398))" -"((rest_69)(unsafe-cdr lst_398))" -"((val-rhs_11)(unsafe-car lst_139))" -"((rest_227)(unsafe-cdr lst_139)))" +"(if(if(pair? lst_400)(pair? lst_138) #f)" +"(let-values(((val-ids_2)(unsafe-car lst_400))" +"((rest_69)(unsafe-cdr lst_400))" +"((val-rhs_11)(unsafe-car lst_138))" +"((rest_228)(unsafe-cdr lst_138)))" "(let-values(((fold-var_136)" -"(let-values(((fold-var_137) fold-var_363))" -"(let-values(((fold-var_364)" +"(let-values(((fold-var_137) fold-var_373))" +"(let-values(((fold-var_374)" "(let-values()" "(cons" "(let-values()" @@ -65746,15 +66065,15 @@ static const char *startup_source = " #f" "(list val-ids_2 val-rhs_11)))" " fold-var_137))))" -"(values fold-var_364)))))" +"(values fold-var_374)))))" "(if(not #f)" -"(for-loop_315 fold-var_136 rest_69 rest_227)" +"(for-loop_320 fold-var_136 rest_69 rest_228)" " fold-var_136)))" -" fold-var_363)))))" -" for-loop_315)" +" fold-var_373)))))" +" for-loop_320)" " null" -" lst_396" -" lst_397))))" +" lst_398" +" lst_399))))" "(datum->syntax$1 #f bodys_11))))" "(call-expand-observe" " obs_98" @@ -65763,26 +66082,26 @@ static const char *startup_source = " vals+body_0" "(cons" "(reverse$1" -"(let-values(((lst_399) trans-idss_3)((lst_400) trans-rhss_0))" +"(let-values(((lst_401) trans-idss_3)((lst_402) trans-rhss_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_399)))" +"(let-values()(check-list lst_401)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_400)))" -"((letrec-values(((for-loop_316)" -"(lambda(fold-var_365 lst_70 lst_148)" +"(let-values()(check-list lst_402)))" +"((letrec-values(((for-loop_321)" +"(lambda(fold-var_375 lst_70 lst_147)" "(begin" " 'for-loop" -"(if(if(pair? lst_70)(pair? lst_148) #f)" +"(if(if(pair? lst_70)(pair? lst_147) #f)" "(let-values(((trans-ids_0)(unsafe-car lst_70))" -"((rest_228)(unsafe-cdr lst_70))" -"((trans-rhs_5)(unsafe-car lst_148))" -"((rest_75)(unsafe-cdr lst_148)))" -"(let-values(((fold-var_366)" -"(let-values(((fold-var_367) fold-var_365))" -"(let-values(((fold-var_368)" +"((rest_229)(unsafe-cdr lst_70))" +"((trans-rhs_5)(unsafe-car lst_147))" +"((rest_75)(unsafe-cdr lst_147)))" +"(let-values(((fold-var_376)" +"(let-values(((fold-var_377) fold-var_375))" +"(let-values(((fold-var_378)" "(let-values()" "(cons" "(let-values()" @@ -65791,14 +66110,14 @@ static const char *startup_source = "(list" " trans-ids_0" "(add-scope trans-rhs_5 sc_38))))" -" fold-var_367))))" -"(values fold-var_368)))))" -"(if(not #f)(for-loop_316 fold-var_366 rest_228 rest_75) fold-var_366)))" -" fold-var_365)))))" -" for-loop_316)" +" fold-var_377))))" +"(values fold-var_378)))))" +"(if(not #f)(for-loop_321 fold-var_376 rest_229 rest_75) fold-var_376)))" +" fold-var_375)))))" +" for-loop_321)" " null" -" lst_399" -" lst_400))))" +" lst_401" +" lst_402))))" " vals+body_0)))))))" "(define-values" "(log-letrec-values)" @@ -65833,30 +66152,30 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%stratified-body" -"(lambda(s_526 ctx_83)" +"(lambda(s_533 ctx_84)" "(let-values((()" "(begin" -"(let-values(((obs_100)(expand-context-observer ctx_83)))" +"(let-values(((obs_100)(expand-context-observer ctx_84)))" "(if obs_100" "(let-values()(let-values()(call-expand-observe obs_100 'prim-#%stratified)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_9)(syntax-disarm$1 s_526)))" +"(let-values(((disarmed-s_9)(syntax-disarm$1 s_533)))" "(let-values(((ok?_39 #%stratified-body202_0 body203_0)" -"(let-values(((s_527) disarmed-s_9))" -"(let-values(((orig-s_47) s_527))" +"(let-values(((s_534) disarmed-s_9))" +"(let-values(((orig-s_47) s_534))" "(let-values(((#%stratified-body202_1 body203_1)" -"(let-values(((s_528)(if(syntax?$1 s_527)(syntax-e$1 s_527) s_527)))" -"(if(pair? s_528)" +"(let-values(((s_535)(if(syntax?$1 s_534)(syntax-e$1 s_534) s_534)))" +"(if(pair? s_535)" "(let-values(((#%stratified-body204_0)" -"(let-values(((s_529)(car s_528))) s_529))" +"(let-values(((s_536)(car s_535))) s_536))" "((body205_0)" -"(let-values(((s_530)(cdr s_528)))" -"(let-values(((s_531)" -"(if(syntax?$1 s_530)" -"(syntax-e$1 s_530)" -" s_530)))" -"(let-values(((flat-s_39)(to-syntax-list.1 s_531)))" +"(let-values(((s_537)(cdr s_535)))" +"(let-values(((s_538)" +"(if(syntax?$1 s_537)" +"(syntax-e$1 s_537)" +" s_537)))" +"(let-values(((flat-s_39)(to-syntax-list.1 s_538)))" "(if(not flat-s_39)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_47))" @@ -65868,40 +66187,40 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_47)))))" "(values #t #%stratified-body202_1 body203_1))))))" "(let-values(((rebuild-s_7)" -"(let-values(((ctx206_0) ctx_83)((s207_0) s_526)((temp208_0) #t))" +"(let-values(((ctx206_0) ctx_84)((s207_0) s_533)((temp208_0) #t))" "(keep-as-needed74.1 #f #f temp208_0 #t #f #f ctx206_0 s207_0))))" "(let-values(((exp-body_5)" "(let-values(((temp209_1) body203_0)" -"((ctx210_0) ctx_83)" +"((ctx210_0) ctx_84)" "((temp211_1) #t)" "((rebuild-s212_0) rebuild-s_7))" "(expand-body7.1 rebuild-s212_0 temp211_1 #t temp209_1 ctx210_0))))" -"(if(expand-context-to-parsed? ctx_83)" +"(if(expand-context-to-parsed? ctx_84)" "(parsed-begin12.1 rebuild-s_7 exp-body_5)" "(let-values(((rebuild-s213_0) rebuild-s_7)" "((temp214_1)" "(if(null?(cdr exp-body_5))" "(car exp-body_5)" -"(list*(core-id 'begin(expand-context-phase ctx_83)) exp-body_5))))" +"(list*(core-id 'begin(expand-context-phase ctx_84)) exp-body_5))))" "(rebuild5.1 #f #f rebuild-s213_0 temp214_1)))))))))))" "(void" "(add-core-form!*" " '#%datum" -"(lambda(s_532 ctx_84)" +"(lambda(s_539 ctx_85)" "(let-values((()" "(begin" -"(let-values(((obs_101)(expand-context-observer ctx_84)))" +"(let-values(((obs_101)(expand-context-observer ctx_85)))" "(if obs_101(let-values()(let-values()(call-expand-observe obs_101 'prim-#%datum)))(void)))" "(values))))" -"(let-values(((disarmed-s_10)(syntax-disarm$1 s_532)))" +"(let-values(((disarmed-s_10)(syntax-disarm$1 s_539)))" "(let-values(((ok?_40 #%datum215_0 datum216_0)" -"(let-values(((s_533) disarmed-s_10))" -"(let-values(((orig-s_48) s_533))" +"(let-values(((s_540) disarmed-s_10))" +"(let-values(((orig-s_48) s_540))" "(let-values(((#%datum215_1 datum216_1)" -"(let-values(((s_534)(if(syntax?$1 s_533)(syntax-e$1 s_533) s_533)))" -"(if(pair? s_534)" -"(let-values(((#%datum217_0)(let-values(((s_535)(car s_534))) s_535))" -"((datum218_0)(let-values(((s_536)(cdr s_534))) s_536)))" +"(let-values(((s_541)(if(syntax?$1 s_540)(syntax-e$1 s_540) s_540)))" +"(if(pair? s_541)" +"(let-values(((#%datum217_0)(let-values(((s_542)(car s_541))) s_542))" +"((datum218_0)(let-values(((s_543)(cdr s_541))) s_543)))" "(values #%datum217_0 datum218_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_48)))))" "(values #t #%datum215_1 datum216_1))))))" @@ -65913,35 +66232,35 @@ 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)))" -"(if(if(expand-context-to-parsed? ctx_84)(free-id-set-empty?(expand-context-stops ctx_84)) #f)" -"(parsed-quote14.1(keep-properties-only~ s_532)(syntax->datum$1 datum_2))" -"(let-values(((s219_0) s_532)((temp220_0)(list(core-id 'quote phase_146) datum_2)))" +"(let-values(((phase_147)(expand-context-phase ctx_85)))" +"(if(if(expand-context-to-parsed? ctx_85)(free-id-set-empty?(expand-context-stops ctx_85)) #f)" +"(parsed-quote14.1(keep-properties-only~ s_539)(syntax->datum$1 datum_2))" +"(let-values(((s219_0) s_539)((temp220_0)(list(core-id 'quote phase_147) datum_2)))" "(rebuild5.1 #f #f s219_0 temp220_0))))))))))))" "(void" "(add-core-form!*" " '#%app" -"(lambda(s_537 ctx_85)" +"(lambda(s_544 ctx_86)" "(let-values((()" "(begin" -"(let-values(((obs_102)(expand-context-observer ctx_85)))" +"(let-values(((obs_102)(expand-context-observer ctx_86)))" "(if obs_102(let-values()(let-values()(call-expand-observe obs_102 'prim-#%app)))(void)))" "(values))))" -"(let-values(((disarmed-s_11)(syntax-disarm$1 s_537)))" +"(let-values(((disarmed-s_11)(syntax-disarm$1 s_544)))" "(let-values(((ok?_41 #%app221_0 e222_0)" -"(let-values(((s_538) disarmed-s_11))" -"(let-values(((orig-s_49) s_538))" +"(let-values(((s_545) disarmed-s_11))" +"(let-values(((orig-s_49) s_545))" "(let-values(((#%app221_1 e222_1)" -"(let-values(((s_539)(if(syntax?$1 s_538)(syntax-e$1 s_538) s_538)))" -"(if(pair? s_539)" -"(let-values(((#%app223_0)(let-values(((s_540)(car s_539))) s_540))" +"(let-values(((s_546)(if(syntax?$1 s_545)(syntax-e$1 s_545) s_545)))" +"(if(pair? s_546)" +"(let-values(((#%app223_0)(let-values(((s_547)(car s_546))) s_547))" "((e224_0)" -"(let-values(((s_541)(cdr s_539)))" -"(let-values(((s_542)" -"(if(syntax?$1 s_541)" -"(syntax-e$1 s_541)" -" s_541)))" -"(let-values(((flat-s_40)(to-syntax-list.1 s_542)))" +"(let-values(((s_548)(cdr s_546)))" +"(let-values(((s_549)" +"(if(syntax?$1 s_548)" +"(syntax-e$1 s_548)" +" s_548)))" +"(let-values(((flat-s_40)(to-syntax-list.1 s_549)))" "(if(not flat-s_40)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_49))" @@ -65952,22 +66271,22 @@ static const char *startup_source = "(let-values(((es_3) e222_0))" "(if(null? es_3)" "(let-values()" -"(let-values(((phase_147)(expand-context-phase ctx_85)))" -"(if(expand-context-to-parsed? ctx_85)" -"(parsed-quote14.1(keep-properties-only~ s_537) null)" -"(let-values(((s225_0) s_537)((temp226_1)(list(core-id 'quote phase_147) null)))" +"(let-values(((phase_148)(expand-context-phase ctx_86)))" +"(if(expand-context-to-parsed? ctx_86)" +"(parsed-quote14.1(keep-properties-only~ s_544) null)" +"(let-values(((s225_0) s_544)((temp226_1)(list(core-id 'quote phase_148) null)))" "(rebuild5.1 #f #f s225_0 temp226_1)))))" "(let-values()" "(let-values(((keep-for-parsed?_1)(eq?(system-type 'vm) 'chez-scheme)))" "(let-values(((rebuild-s_8)" -"(let-values(((ctx227_0) ctx_85)" -"((s228_0) s_537)" +"(let-values(((ctx227_0) ctx_86)" +"((s228_0) s_544)" "((keep-for-parsed?229_0) keep-for-parsed?_1))" "(keep-as-needed74.1 #f #f #f #f keep-for-parsed?229_0 #t ctx227_0 s228_0))))" "(let-values(((prefixless_0)(cdr(syntax-e$1 disarmed-s_11))))" "(let-values(((rebuild-prefixless_0)" "(if(syntax?$1 prefixless_0)" -"(let-values(((ctx230_0) ctx_85)" +"(let-values(((ctx230_0) ctx_86)" "((prefixless231_0) prefixless_0)" "((keep-for-parsed?232_0) keep-for-parsed?_1))" "(keep-as-needed74.1" @@ -65980,7 +66299,7 @@ static const char *startup_source = " ctx230_0" " prefixless231_0))" " #f)))" -"(let-values(((expr-ctx_1)(as-expression-context ctx_85)))" +"(let-values(((expr-ctx_1)(as-expression-context ctx_86)))" "(let-values((()" "(begin" "(let-values(((obs_103)(expand-context-observer expr-ctx_1)))" @@ -65991,7 +66310,7 @@ static const char *startup_source = "(call-expand-observe" " obs_103" " 'enter-list" -"(datum->syntax$1 #f es_3 s_537))" +"(datum->syntax$1 #f es_3 s_544))" "(call-expand-observe obs_103 'next))))" "(void)))" "(values))))" @@ -66001,23 +66320,23 @@ static const char *startup_source = "(expand7.1 #f #f #f #f temp233_2 expr-ctx234_0))))" "(let-values(((exp-es_0)" "(reverse$1" -"(let-values(((lst_401) rest-es_0))" +"(let-values(((lst_403) rest-es_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_401)))" -"((letrec-values(((for-loop_317)" -"(lambda(fold-var_369 lst_402)" +"(let-values()(check-list lst_403)))" +"((letrec-values(((for-loop_322)" +"(lambda(fold-var_379 lst_404)" "(begin" " 'for-loop" -"(if(pair? lst_402)" -"(let-values(((e_89)(unsafe-car lst_402))" -"((rest_229)" -"(unsafe-cdr lst_402)))" -"(let-values(((fold-var_370)" -"(let-values(((fold-var_371)" -" fold-var_369))" -"(let-values(((fold-var_372)" +"(if(pair? lst_404)" +"(let-values(((e_90)(unsafe-car lst_404))" +"((rest_230)" +"(unsafe-cdr lst_404)))" +"(let-values(((fold-var_380)" +"(let-values(((fold-var_381)" +" fold-var_379))" +"(let-values(((fold-var_382)" "(let-values()" "(cons" "(let-values()" @@ -66033,7 +66352,7 @@ static const char *startup_source = " 'next)))" "(void)))" "(let-values(((e235_0)" -" e_89)" +" e_90)" "((expr-ctx236_0)" " expr-ctx_1))" "(expand7.1" @@ -66043,21 +66362,21 @@ static const char *startup_source = " #f" " e235_0" " expr-ctx236_0))))" -" fold-var_371))))" +" fold-var_381))))" "(values" -" fold-var_372)))))" +" fold-var_382)))))" "(if(not #f)" -"(for-loop_317 fold-var_370 rest_229)" -" fold-var_370)))" -" fold-var_369)))))" -" for-loop_317)" +"(for-loop_322 fold-var_380 rest_230)" +" fold-var_380)))" +" fold-var_379)))))" +" for-loop_322)" " null" -" lst_401))))))" -"(if(expand-context-to-parsed? ctx_85)" +" lst_403))))))" +"(if(expand-context-to-parsed? ctx_86)" "(let-values()" "(parsed-app7.1" -"(let-values(((or-part_213) rebuild-prefixless_0))" -"(if or-part_213 or-part_213 rebuild-s_8))" +"(let-values(((or-part_215) rebuild-prefixless_0))" +"(if or-part_215 or-part_215 rebuild-s_8))" " exp-rator_0" " exp-es_0))" "(let-values()" @@ -66084,35 +66403,35 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'quote" -"(lambda(s_543 ctx_86)" +"(lambda(s_550 ctx_87)" "(let-values((()" "(begin" -"(let-values(((obs_106)(expand-context-observer ctx_86)))" +"(let-values(((obs_106)(expand-context-observer ctx_87)))" "(if obs_106(let-values()(let-values()(call-expand-observe obs_106 'prim-quote)))(void)))" "(values))))" "(let-values(((ok?_42 quote241_0 datum242_0)" -"(let-values(((s_544)(syntax-disarm$1 s_543)))" -"(let-values(((orig-s_50) s_544))" +"(let-values(((s_551)(syntax-disarm$1 s_550)))" +"(let-values(((orig-s_50) s_551))" "(let-values(((quote241_1 datum242_1)" -"(let-values(((s_545)(if(syntax?$1 s_544)(syntax-e$1 s_544) s_544)))" -"(if(pair? s_545)" -"(let-values(((quote243_0)(let-values(((s_546)(car s_545))) s_546))" +"(let-values(((s_552)(if(syntax?$1 s_551)(syntax-e$1 s_551) s_551)))" +"(if(pair? s_552)" +"(let-values(((quote243_0)(let-values(((s_553)(car s_552))) s_553))" "((datum244_0)" -"(let-values(((s_547)(cdr s_545)))" -"(let-values(((s_548)" -"(if(syntax?$1 s_547)" -"(syntax-e$1 s_547)" -" s_547)))" -"(if(pair? s_548)" +"(let-values(((s_554)(cdr s_552)))" +"(let-values(((s_555)" +"(if(syntax?$1 s_554)" +"(syntax-e$1 s_554)" +" s_554)))" +"(if(pair? s_555)" "(let-values(((datum245_0)" -"(let-values(((s_549)(car s_548))) s_549))" +"(let-values(((s_556)(car s_555))) s_556))" "(()" -"(let-values(((s_550)(cdr s_548)))" -"(let-values(((s_551)" -"(if(syntax?$1 s_550)" -"(syntax-e$1 s_550)" -" s_550)))" -"(if(null? s_551)" +"(let-values(((s_557)(cdr s_555)))" +"(let-values(((s_558)" +"(if(syntax?$1 s_557)" +"(syntax-e$1 s_557)" +" s_557)))" +"(if(null? s_558)" "(values)" "(raise-syntax-error$1" " #f" @@ -66123,41 +66442,41 @@ static const char *startup_source = "(values quote243_0 datum244_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_50)))))" "(values #t quote241_1 datum242_1))))))" -"(if(expand-context-to-parsed? ctx_86)" -"(parsed-quote14.1(keep-properties-only~ s_543)(syntax->datum$1 datum242_0))" -" s_543))))))" +"(if(expand-context-to-parsed? ctx_87)" +"(parsed-quote14.1(keep-properties-only~ s_550)(syntax->datum$1 datum242_0))" +" s_550))))))" "(void" "(add-core-form!*" " 'quote-syntax" -"(lambda(s_552 ctx_87)" +"(lambda(s_559 ctx_88)" "(let-values((()" "(begin" -"(let-values(((obs_107)(expand-context-observer ctx_87)))" +"(let-values(((obs_107)(expand-context-observer ctx_88)))" "(if obs_107" "(let-values()(let-values()(call-expand-observe obs_107 'prim-quote-syntax)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_12)(syntax-disarm$1 s_552)))" +"(let-values(((disarmed-s_12)(syntax-disarm$1 s_559)))" "(let-values(((ok?_43 quote-syntax246_0 datum247_0)" -"(let-values(((s_553) disarmed-s_12))" -"(if(let-values(((s_554)(if(syntax?$1 s_553)(syntax-e$1 s_553) s_553)))" -"(if(pair? s_554)" -"(if(let-values(((s_555)(car s_554))) #t)" -"(let-values(((s_556)(cdr s_554)))" -"(let-values(((s_557)(if(syntax?$1 s_556)(syntax-e$1 s_556) s_556)))" -"(if(pair? s_557)" -"(if(let-values(((s_558)(car s_557))) #t)" -"(let-values(((s_559)(cdr s_557)))" -"(let-values(((s_560)(if(syntax?$1 s_559)(syntax-e$1 s_559) s_559)))" -"(if(pair? s_560)" -"(if(let-values(((s_561)(car s_560)))" -"(let-values(((s_562)" -"(if(syntax?$1 s_561)(syntax-e$1 s_561) s_561)))" -"(eq? '#:local s_562)))" -"(let-values(((s_563)(cdr s_560)))" -"(let-values(((s_564)" -"(if(syntax?$1 s_563)(syntax-e$1 s_563) s_563)))" -"(null? s_564)))" +"(let-values(((s_560) disarmed-s_12))" +"(if(let-values(((s_561)(if(syntax?$1 s_560)(syntax-e$1 s_560) s_560)))" +"(if(pair? s_561)" +"(if(let-values(((s_562)(car s_561))) #t)" +"(let-values(((s_563)(cdr s_561)))" +"(let-values(((s_564)(if(syntax?$1 s_563)(syntax-e$1 s_563) s_563)))" +"(if(pair? s_564)" +"(if(let-values(((s_565)(car s_564))) #t)" +"(let-values(((s_566)(cdr s_564)))" +"(let-values(((s_567)(if(syntax?$1 s_566)(syntax-e$1 s_566) s_566)))" +"(if(pair? s_567)" +"(if(let-values(((s_568)(car s_567)))" +"(let-values(((s_569)" +"(if(syntax?$1 s_568)(syntax-e$1 s_568) s_568)))" +"(eq? '#:local s_569)))" +"(let-values(((s_570)(cdr s_567)))" +"(let-values(((s_571)" +"(if(syntax?$1 s_570)(syntax-e$1 s_570) s_570)))" +"(null? s_571)))" " #f)" " #f)))" " #f)" @@ -66166,44 +66485,44 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((quote-syntax246_1 datum247_1)" -"(let-values(((s_266)(if(syntax?$1 s_553)(syntax-e$1 s_553) s_553)))" +"(let-values(((s_269)(if(syntax?$1 s_560)(syntax-e$1 s_560) s_560)))" "(let-values(((quote-syntax248_0)" -"(let-values(((s_565)(car s_266))) s_565))" +"(let-values(((s_572)(car s_269))) s_572))" "((datum249_0)" -"(let-values(((s_566)(cdr s_266)))" -"(let-values(((s_267)" -"(if(syntax?$1 s_566)" -"(syntax-e$1 s_566)" -" s_566)))" -"(let-values(((datum250_0)" -"(let-values(((s_567)(car s_267))) s_567))" -"(()" -"(let-values(((s_568)(cdr s_267)))" -"(let-values(((s_268)" -"(if(syntax?$1 s_568)" -"(syntax-e$1 s_568)" -" s_568)))" -"(let-values((()" -"(let-values(((s_269)" -"(car" -" s_268)))" +"(let-values(((s_573)(cdr s_269)))" "(let-values(((s_270)" +"(if(syntax?$1 s_573)" +"(syntax-e$1 s_573)" +" s_573)))" +"(let-values(((datum250_0)" +"(let-values(((s_574)(car s_270))) s_574))" +"(()" +"(let-values(((s_575)(cdr s_270)))" +"(let-values(((s_271)" +"(if(syntax?$1 s_575)" +"(syntax-e$1 s_575)" +" s_575)))" +"(let-values((()" +"(let-values(((s_272)" +"(car" +" s_271)))" +"(let-values(((s_273)" "(if(syntax?$1" -" s_269)" +" s_272)" "(syntax-e$1" -" s_269)" -" s_269)))" +" s_272)" +" s_272)))" "(values))))" "(()" -"(let-values(((s_569)" +"(let-values(((s_576)" "(cdr" -" s_268)))" -"(let-values(((s_570)" +" s_271)))" +"(let-values(((s_577)" "(if(syntax?$1" -" s_569)" +" s_576)" "(syntax-e$1" -" s_569)" -" s_569)))" +" s_576)" +" s_576)))" "(values)))))" "(values))))))" "(values datum250_0))))))" @@ -66211,31 +66530,31 @@ static const char *startup_source = "(values #t quote-syntax246_1 datum247_1)))" "(values #f #f #f)))))" "(let-values(((ok?_44 quote-syntax251_0 datum252_0)" -"(let-values(((s_271) disarmed-s_12))" +"(let-values(((s_274) disarmed-s_12))" "(if(if(not ok?_43) #t #f)" -"(let-values(((orig-s_51) s_271))" +"(let-values(((orig-s_51) s_274))" "(let-values(((quote-syntax251_1 datum252_1)" -"(let-values(((s_571)(if(syntax?$1 s_271)(syntax-e$1 s_271) s_271)))" -"(if(pair? s_571)" +"(let-values(((s_578)(if(syntax?$1 s_274)(syntax-e$1 s_274) s_274)))" +"(if(pair? s_578)" "(let-values(((quote-syntax253_0)" -"(let-values(((s_572)(car s_571))) s_572))" +"(let-values(((s_579)(car s_578))) s_579))" "((datum254_0)" -"(let-values(((s_573)(cdr s_571)))" -"(let-values(((s_574)" -"(if(syntax?$1 s_573)" -"(syntax-e$1 s_573)" -" s_573)))" -"(if(pair? s_574)" +"(let-values(((s_580)(cdr s_578)))" +"(let-values(((s_581)" +"(if(syntax?$1 s_580)" +"(syntax-e$1 s_580)" +" s_580)))" +"(if(pair? s_581)" "(let-values(((datum255_0)" -"(let-values(((s_575)(car s_574)))" -" s_575))" +"(let-values(((s_582)(car s_581)))" +" s_582))" "(()" -"(let-values(((s_576)(cdr s_574)))" -"(let-values(((s_577)" -"(if(syntax?$1 s_576)" -"(syntax-e$1 s_576)" -" s_576)))" -"(if(null? s_577)" +"(let-values(((s_583)(cdr s_581)))" +"(let-values(((s_584)" +"(if(syntax?$1 s_583)" +"(syntax-e$1 s_583)" +" s_583)))" +"(if(null? s_584)" "(values)" "(raise-syntax-error$1" " #f" @@ -66254,55 +66573,55 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(reference-records-all-used!(expand-context-reference-records ctx_87))" +"(reference-records-all-used!(expand-context-reference-records ctx_88))" "(values))))" "(let-values(((ok?_45 _256_0 _257_0 kw258_0)" -"(let-values(((s_578) disarmed-s_12))" -"(let-values(((orig-s_52) s_578))" +"(let-values(((s_585) disarmed-s_12))" +"(let-values(((orig-s_52) s_585))" "(let-values(((_256_1 _257_1 kw258_1)" -"(let-values(((s_579)" -"(if(syntax?$1 s_578)(syntax-e$1 s_578) s_578)))" -"(if(pair? s_579)" +"(let-values(((s_586)" +"(if(syntax?$1 s_585)(syntax-e$1 s_585) s_585)))" +"(if(pair? s_586)" "(let-values(((_259_0)" -"(let-values(((s_580)(car s_579))) s_580))" +"(let-values(((s_587)(car s_586))) s_587))" "((_260_0 kw261_0)" -"(let-values(((s_581)(cdr s_579)))" -"(let-values(((s_279)" -"(if(syntax?$1 s_581)" -"(syntax-e$1 s_581)" -" s_581)))" -"(if(pair? s_279)" -"(let-values(((_262_0)" -"(let-values(((s_582)" -"(car s_279)))" -" s_582))" -"((kw263_0)" -"(let-values(((s_280)" -"(cdr s_279)))" -"(let-values(((s_583)" -"(if(syntax?$1" -" s_280)" -"(syntax-e$1" -" s_280)" -" s_280)))" -"(if(pair? s_583)" -"(let-values(((kw264_0)" -"(let-values(((s_281)" -"(car" -" s_583)))" -" s_281))" -"(()" +"(let-values(((s_588)(cdr s_586)))" "(let-values(((s_282)" -"(cdr" -" s_583)))" +"(if(syntax?$1 s_588)" +"(syntax-e$1 s_588)" +" s_588)))" +"(if(pair? s_282)" +"(let-values(((_262_0)" +"(let-values(((s_589)" +"(car s_282)))" +" s_589))" +"((kw263_0)" "(let-values(((s_283)" +"(cdr s_282)))" +"(let-values(((s_590)" "(if(syntax?$1" -" s_282)" -"(syntax-e$1" -" s_282)" -" s_282)))" -"(if(null?" " s_283)" +"(syntax-e$1" +" s_283)" +" s_283)))" +"(if(pair? s_590)" +"(let-values(((kw264_0)" +"(let-values(((s_284)" +"(car" +" s_590)))" +" s_284))" +"(()" +"(let-values(((s_285)" +"(cdr" +" s_590)))" +"(let-values(((s_286)" +"(if(syntax?$1" +" s_285)" +"(syntax-e$1" +" s_285)" +" s_285)))" +"(if(null?" +" s_286)" "(values)" "(raise-syntax-error$1" " #f" @@ -66321,43 +66640,43 @@ static const char *startup_source = "(values _259_0 _260_0 kw261_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_52)))))" "(values #t _256_1 _257_1 kw258_1))))))" -"(if(expand-context-to-parsed? ctx_87)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_552) datum247_0)" -"(let-values(((s265_0) s_552)((temp266_1)(list quote-syntax246_0 datum247_0 kw258_0)))" +"(if(expand-context-to-parsed? ctx_88)" +"(parsed-quote-syntax15.1(keep-properties-only~ s_559) datum247_0)" +"(let-values(((s265_0) s_559)((temp266_1)(list quote-syntax246_0 datum247_0 kw258_0)))" "(rebuild5.1 #f #f s265_0 temp266_1))))))" "(let-values()" -"(let-values(((datum-s_0)(remove-scopes datum252_0(expand-context-scopes ctx_87))))" -"(if(if(expand-context-to-parsed? ctx_87)(free-id-set-empty?(expand-context-stops ctx_87)) #f)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_552) datum-s_0)" -"(let-values(((s267_0) s_552)((temp268_0)(list quote-syntax251_0 datum-s_0)))" +"(let-values(((datum-s_0)(remove-scopes datum252_0(expand-context-scopes ctx_88))))" +"(if(if(expand-context-to-parsed? ctx_88)(free-id-set-empty?(expand-context-stops ctx_88)) #f)" +"(parsed-quote-syntax15.1(keep-properties-only~ s_559) datum-s_0)" +"(let-values(((s267_0) s_559)((temp268_0)(list quote-syntax251_0 datum-s_0)))" "(rebuild5.1 #f #f s267_0 temp268_0)))))))))))))" "(void" "(add-core-form!*" " 'if" -"(lambda(s_584 ctx_88)" +"(lambda(s_591 ctx_89)" "(let-values((()" "(begin" -"(let-values(((obs_108)(expand-context-observer ctx_88)))" +"(let-values(((obs_108)(expand-context-observer ctx_89)))" "(if obs_108(let-values()(let-values()(call-expand-observe obs_108 'prim-if)))(void)))" "(values))))" -"(let-values(((disarmed-s_13)(syntax-disarm$1 s_584)))" +"(let-values(((disarmed-s_13)(syntax-disarm$1 s_591)))" "(let-values(((ok?_46 _269_0 _270_0 _271_0)" -"(let-values(((s_291) disarmed-s_13))" -"(if(let-values(((s_292)(if(syntax?$1 s_291)(syntax-e$1 s_291) s_291)))" -"(if(pair? s_292)" -"(if(let-values(((s_293)(car s_292))) #t)" -"(let-values(((s_585)(cdr s_292)))" -"(let-values(((s_586)(if(syntax?$1 s_585)(syntax-e$1 s_585) s_585)))" -"(if(pair? s_586)" -"(if(let-values(((s_294)(car s_586))) #t)" -"(let-values(((s_295)(cdr s_586)))" -"(let-values(((s_296)(if(syntax?$1 s_295)(syntax-e$1 s_295) s_295)))" -"(if(pair? s_296)" -"(if(let-values(((s_587)(car s_296))) #t)" -"(let-values(((s_588)(cdr s_296)))" -"(let-values(((s_589)" -"(if(syntax?$1 s_588)(syntax-e$1 s_588) s_588)))" -"(null? s_589)))" +"(let-values(((s_294) disarmed-s_13))" +"(if(let-values(((s_295)(if(syntax?$1 s_294)(syntax-e$1 s_294) s_294)))" +"(if(pair? s_295)" +"(if(let-values(((s_296)(car s_295))) #t)" +"(let-values(((s_592)(cdr s_295)))" +"(let-values(((s_593)(if(syntax?$1 s_592)(syntax-e$1 s_592) s_592)))" +"(if(pair? s_593)" +"(if(let-values(((s_297)(car s_593))) #t)" +"(let-values(((s_298)(cdr s_593)))" +"(let-values(((s_299)(if(syntax?$1 s_298)(syntax-e$1 s_298) s_298)))" +"(if(pair? s_299)" +"(if(let-values(((s_594)(car s_299))) #t)" +"(let-values(((s_595)(cdr s_299)))" +"(let-values(((s_596)" +"(if(syntax?$1 s_595)(syntax-e$1 s_595) s_595)))" +"(null? s_596)))" " #f)" " #f)))" " #f)" @@ -66366,37 +66685,37 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((_269_1 _270_1 _271_1)" -"(let-values(((s_590)(if(syntax?$1 s_291)(syntax-e$1 s_291) s_291)))" -"(let-values(((_272_0)(let-values(((s_591)(car s_590))) s_591))" +"(let-values(((s_597)(if(syntax?$1 s_294)(syntax-e$1 s_294) s_294)))" +"(let-values(((_272_0)(let-values(((s_598)(car s_597))) s_598))" "((_273_0 _274_0)" -"(let-values(((s_592)(cdr s_590)))" -"(let-values(((s_593)" -"(if(syntax?$1 s_592)" -"(syntax-e$1 s_592)" -" s_592)))" +"(let-values(((s_599)(cdr s_597)))" +"(let-values(((s_600)" +"(if(syntax?$1 s_599)" +"(syntax-e$1 s_599)" +" s_599)))" "(let-values(((_275_0)" -"(let-values(((s_594)(car s_593))) s_594))" +"(let-values(((s_601)(car s_600))) s_601))" "((_276_0)" -"(let-values(((s_595)(cdr s_593)))" -"(let-values(((s_596)" -"(if(syntax?$1 s_595)" -"(syntax-e$1 s_595)" -" s_595)))" +"(let-values(((s_602)(cdr s_600)))" +"(let-values(((s_603)" +"(if(syntax?$1 s_602)" +"(syntax-e$1 s_602)" +" s_602)))" "(let-values(((_277_0)" -"(let-values(((s_597)" +"(let-values(((s_604)" "(car" -" s_596)))" -" s_597))" +" s_603)))" +" s_604))" "(()" -"(let-values(((s_598)" +"(let-values(((s_605)" "(cdr" -" s_596)))" -"(let-values(((s_599)" +" s_603)))" +"(let-values(((s_606)" "(if(syntax?$1" -" s_598)" +" s_605)" "(syntax-e$1" -" s_598)" -" s_598)))" +" s_605)" +" s_605)))" "(values)))))" "(values _277_0))))))" "(values _275_0 _276_0))))))" @@ -66406,67 +66725,67 @@ static const char *startup_source = "(let-values((()" "(begin" "(if ok?_46" -" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_584))" +" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_591))" "(void))" "(values))))" "(let-values(((ok?_47 if278_0 tst279_0 thn280_0 els281_0)" -"(let-values(((s_600) disarmed-s_13))" -"(let-values(((orig-s_53) s_600))" +"(let-values(((s_607) disarmed-s_13))" +"(let-values(((orig-s_53) s_607))" "(let-values(((if278_1 tst279_1 thn280_1 els281_1)" -"(let-values(((s_601)(if(syntax?$1 s_600)(syntax-e$1 s_600) s_600)))" -"(if(pair? s_601)" -"(let-values(((if282_0)(let-values(((s_602)(car s_601))) s_602))" +"(let-values(((s_608)(if(syntax?$1 s_607)(syntax-e$1 s_607) s_607)))" +"(if(pair? s_608)" +"(let-values(((if282_0)(let-values(((s_609)(car s_608))) s_609))" "((tst283_0 thn284_0 els285_0)" -"(let-values(((s_603)(cdr s_601)))" -"(let-values(((s_604)" -"(if(syntax?$1 s_603)" -"(syntax-e$1 s_603)" -" s_603)))" -"(if(pair? s_604)" -"(let-values(((tst286_0)" -"(let-values(((s_605)(car s_604)))" -" s_605))" -"((thn287_0 els288_0)" -"(let-values(((s_606)(cdr s_604)))" -"(let-values(((s_607)" -"(if(syntax?$1 s_606)" -"(syntax-e$1 s_606)" -" s_606)))" -"(if(pair? s_607)" -"(let-values(((thn289_0)" -"(let-values(((s_608)" -"(car" -" s_607)))" -" s_608))" -"((els290_0)" -"(let-values(((s_609)" -"(cdr" -" s_607)))" -"(let-values(((s_610)" -"(if(syntax?$1" -" s_609)" -"(syntax-e$1" -" s_609)" -" s_609)))" -"(if(pair?" -" s_610)" -"(let-values(((els291_0)" +"(let-values(((s_610)(cdr s_608)))" "(let-values(((s_611)" +"(if(syntax?$1 s_610)" +"(syntax-e$1 s_610)" +" s_610)))" +"(if(pair? s_611)" +"(let-values(((tst286_0)" +"(let-values(((s_612)(car s_611)))" +" s_612))" +"((thn287_0 els288_0)" +"(let-values(((s_613)(cdr s_611)))" +"(let-values(((s_614)" +"(if(syntax?$1 s_613)" +"(syntax-e$1 s_613)" +" s_613)))" +"(if(pair? s_614)" +"(let-values(((thn289_0)" +"(let-values(((s_615)" "(car" -" s_610)))" -" s_611))" -"(()" -"(let-values(((s_612)" +" s_614)))" +" s_615))" +"((els290_0)" +"(let-values(((s_616)" "(cdr" -" s_610)))" -"(let-values(((s_613)" +" s_614)))" +"(let-values(((s_617)" "(if(syntax?$1" -" s_612)" +" s_616)" "(syntax-e$1" -" s_612)" -" s_612)))" +" s_616)" +" s_616)))" +"(if(pair?" +" s_617)" +"(let-values(((els291_0)" +"(let-values(((s_618)" +"(car" +" s_617)))" +" s_618))" +"(()" +"(let-values(((s_619)" +"(cdr" +" s_617)))" +"(let-values(((s_620)" +"(if(syntax?$1" +" s_619)" +"(syntax-e$1" +" s_619)" +" s_619)))" "(if(null?" -" s_613)" +" s_620)" "(values)" "(raise-syntax-error$1" " #f" @@ -66491,19 +66810,19 @@ static const char *startup_source = "(values if282_0 tst283_0 thn284_0 els285_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_53)))))" "(values #t if278_1 tst279_1 thn280_1 els281_1))))))" -"(let-values(((expr-ctx_2)(as-expression-context ctx_88)))" +"(let-values(((expr-ctx_2)(as-expression-context ctx_89)))" "(let-values(((tail-ctx_0)" -"(let-values(((expr-ctx292_0) expr-ctx_2)((ctx293_0) ctx_88))" +"(let-values(((expr-ctx292_0) expr-ctx_2)((ctx293_0) ctx_89))" "(as-tail-context23.1 ctx293_0 expr-ctx292_0))))" "(let-values(((rebuild-s_9)" -"(let-values(((ctx294_0) ctx_88)((s295_0) s_584))" +"(let-values(((ctx294_0) ctx_89)((s295_0) s_591))" "(keep-as-needed74.1 #f #f #f #f #f #f ctx294_0 s295_0))))" "(let-values(((exp-tst_0)" "(let-values(((temp296_0) tst279_0)((expr-ctx297_0) expr-ctx_2))" "(expand7.1 #f #f #f #f temp296_0 expr-ctx297_0))))" "(let-values((()" "(begin" -"(let-values(((obs_109)(expand-context-observer ctx_88)))" +"(let-values(((obs_109)(expand-context-observer ctx_89)))" "(if obs_109" "(let-values()(let-values()(call-expand-observe obs_109 'next)))" "(void)))" @@ -66513,7 +66832,7 @@ static const char *startup_source = "(expand7.1 #f #f #f #f temp298_0 tail-ctx299_0))))" "(let-values((()" "(begin" -"(let-values(((obs_110)(expand-context-observer ctx_88)))" +"(let-values(((obs_110)(expand-context-observer ctx_89)))" "(if obs_110" "(let-values()(let-values()(call-expand-observe obs_110 'next)))" "(void)))" @@ -66521,7 +66840,7 @@ static const char *startup_source = "(let-values(((exp-els_0)" "(let-values(((temp300_1) els281_0)((tail-ctx301_0) tail-ctx_0))" "(expand7.1 #f #f #f #f temp300_1 tail-ctx301_0))))" -"(if(expand-context-to-parsed? ctx_88)" +"(if(expand-context-to-parsed? ctx_89)" "(parsed-if8.1 rebuild-s_9 exp-tst_0 exp-thn_0 exp-els_0)" "(let-values(((rebuild-s302_0) rebuild-s_9)" "((temp303_0)(list if278_0 exp-tst_0 exp-thn_0 exp-els_0)))" @@ -66529,73 +66848,73 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'with-continuation-mark" -"(lambda(s_614 ctx_89)" +"(lambda(s_621 ctx_90)" "(let-values((()" "(begin" -"(let-values(((obs_111)(expand-context-observer ctx_89)))" +"(let-values(((obs_111)(expand-context-observer ctx_90)))" "(if obs_111" "(let-values()(let-values()(call-expand-observe obs_111 'prim-with-continuation-mark)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_14)(syntax-disarm$1 s_614)))" +"(let-values(((disarmed-s_14)(syntax-disarm$1 s_621)))" "(let-values(((ok?_48 with-continuation-mark304_0 key305_0 val306_0 body307_0)" -"(let-values(((s_615) disarmed-s_14))" -"(let-values(((orig-s_54) s_615))" +"(let-values(((s_622) disarmed-s_14))" +"(let-values(((orig-s_54) s_622))" "(let-values(((with-continuation-mark304_1 key305_1 val306_1 body307_1)" -"(let-values(((s_616)(if(syntax?$1 s_615)(syntax-e$1 s_615) s_615)))" -"(if(pair? s_616)" +"(let-values(((s_623)(if(syntax?$1 s_622)(syntax-e$1 s_622) s_622)))" +"(if(pair? s_623)" "(let-values(((with-continuation-mark308_0)" -"(let-values(((s_617)(car s_616))) s_617))" +"(let-values(((s_624)(car s_623))) s_624))" "((key309_0 val310_0 body311_0)" -"(let-values(((s_618)(cdr s_616)))" -"(let-values(((s_619)" -"(if(syntax?$1 s_618)" -"(syntax-e$1 s_618)" -" s_618)))" -"(if(pair? s_619)" -"(let-values(((key312_0)" -"(let-values(((s_620)(car s_619)))" -" s_620))" -"((val313_0 body314_0)" -"(let-values(((s_621)(cdr s_619)))" -"(let-values(((s_622)" -"(if(syntax?$1 s_621)" -"(syntax-e$1 s_621)" -" s_621)))" -"(if(pair? s_622)" -"(let-values(((val315_0)" -"(let-values(((s_623)" -"(car" -" s_622)))" -" s_623))" -"((body316_0)" -"(let-values(((s_624)" -"(cdr" -" s_622)))" -"(let-values(((s_625)" -"(if(syntax?$1" -" s_624)" -"(syntax-e$1" -" s_624)" -" s_624)))" -"(if(pair? s_625)" -"(let-values(((body317_0)" +"(let-values(((s_625)(cdr s_623)))" "(let-values(((s_626)" +"(if(syntax?$1 s_625)" +"(syntax-e$1 s_625)" +" s_625)))" +"(if(pair? s_626)" +"(let-values(((key312_0)" +"(let-values(((s_627)(car s_626)))" +" s_627))" +"((val313_0 body314_0)" +"(let-values(((s_628)(cdr s_626)))" +"(let-values(((s_629)" +"(if(syntax?$1 s_628)" +"(syntax-e$1 s_628)" +" s_628)))" +"(if(pair? s_629)" +"(let-values(((val315_0)" +"(let-values(((s_630)" "(car" -" s_625)))" -" s_626))" -"(()" -"(let-values(((s_627)" +" s_629)))" +" s_630))" +"((body316_0)" +"(let-values(((s_631)" "(cdr" -" s_625)))" -"(let-values(((s_628)" +" s_629)))" +"(let-values(((s_632)" "(if(syntax?$1" -" s_627)" +" s_631)" "(syntax-e$1" -" s_627)" -" s_627)))" +" s_631)" +" s_631)))" +"(if(pair? s_632)" +"(let-values(((body317_0)" +"(let-values(((s_633)" +"(car" +" s_632)))" +" s_633))" +"(()" +"(let-values(((s_634)" +"(cdr" +" s_632)))" +"(let-values(((s_635)" +"(if(syntax?$1" +" s_634)" +"(syntax-e$1" +" s_634)" +" s_634)))" "(if(null?" -" s_628)" +" s_635)" "(values)" "(raise-syntax-error$1" " #f" @@ -66617,16 +66936,16 @@ static const char *startup_source = "(values with-continuation-mark308_0 key309_0 val310_0 body311_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_54)))))" "(values #t with-continuation-mark304_1 key305_1 val306_1 body307_1))))))" -"(let-values(((expr-ctx_3)(as-expression-context ctx_89)))" +"(let-values(((expr-ctx_3)(as-expression-context ctx_90)))" "(let-values(((rebuild-s_10)" -"(let-values(((ctx318_0) ctx_89)((s319_0) s_614))" +"(let-values(((ctx318_0) ctx_90)((s319_0) s_621))" "(keep-as-needed74.1 #f #f #f #f #f #f ctx318_0 s319_0))))" "(let-values(((exp-key_0)" "(let-values(((temp320_0) key305_0)((expr-ctx321_0) expr-ctx_3))" "(expand7.1 #f #f #f #f temp320_0 expr-ctx321_0))))" "(let-values((()" "(begin" -"(let-values(((obs_112)(expand-context-observer ctx_89)))" +"(let-values(((obs_112)(expand-context-observer ctx_90)))" "(if obs_112" "(let-values()(let-values()(call-expand-observe obs_112 'next)))" "(void)))" @@ -66636,7 +66955,7 @@ static const char *startup_source = "(expand7.1 #f #f #f #f temp322_0 expr-ctx323_0))))" "(let-values((()" "(begin" -"(let-values(((obs_113)(expand-context-observer ctx_89)))" +"(let-values(((obs_113)(expand-context-observer ctx_90)))" "(if obs_113" "(let-values()(let-values()(call-expand-observe obs_113 'next)))" "(void)))" @@ -66644,10 +66963,10 @@ static const char *startup_source = "(let-values(((exp-body_6)" "(let-values(((temp324_0) body307_0)" "((temp325_0)" -"(let-values(((expr-ctx326_0) expr-ctx_3)((ctx327_0) ctx_89))" +"(let-values(((expr-ctx326_0) expr-ctx_3)((ctx327_0) ctx_90))" "(as-tail-context23.1 ctx327_0 expr-ctx326_0))))" "(expand7.1 #f #f #f #f temp324_0 temp325_0))))" -"(if(expand-context-to-parsed? ctx_89)" +"(if(expand-context-to-parsed? ctx_90)" "(parsed-with-continuation-mark10.1 rebuild-s_10 exp-key_0 exp-val_0 exp-body_6)" "(let-values(((rebuild-s328_0) rebuild-s_10)" "((temp329_0)(list with-continuation-mark304_0 exp-key_0 exp-val_0 exp-body_6)))" @@ -66662,32 +66981,32 @@ static const char *startup_source = "(let-values(((list-start-index_0) list-start-index14_0))" "(let-values(((last-is-tail?_0) last-is-tail?15_0))" "(let-values()" -"(lambda(s_629 ctx_90)" +"(lambda(s_636 ctx_91)" "(let-values((()" "(begin" -"(let-values(((obs_114)(expand-context-observer ctx_90)))" +"(let-values(((obs_114)(expand-context-observer ctx_91)))" "(if obs_114" "(let-values()(let-values()(call-expand-observe obs_114 log-tag_1)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_15)(syntax-disarm$1 s_629)))" +"(let-values(((disarmed-s_15)(syntax-disarm$1 s_636)))" "(let-values(((ok?_49 begin330_0 e331_0)" -"(let-values(((s_630) disarmed-s_15))" -"(let-values(((orig-s_55) s_630))" +"(let-values(((s_637) disarmed-s_15))" +"(let-values(((orig-s_55) s_637))" "(let-values(((begin330_1 e331_1)" -"(let-values(((s_631)" -"(if(syntax?$1 s_630)(syntax-e$1 s_630) s_630)))" -"(if(pair? s_631)" +"(let-values(((s_638)" +"(if(syntax?$1 s_637)(syntax-e$1 s_637) s_637)))" +"(if(pair? s_638)" "(let-values(((begin332_0)" -"(let-values(((s_632)(car s_631))) s_632))" +"(let-values(((s_639)(car s_638))) s_639))" "((e333_0)" -"(let-values(((s_633)(cdr s_631)))" -"(let-values(((s_634)" -"(if(syntax?$1 s_633)" -"(syntax-e$1 s_633)" -" s_633)))" +"(let-values(((s_640)(cdr s_638)))" +"(let-values(((s_641)" +"(if(syntax?$1 s_640)" +"(syntax-e$1 s_640)" +" s_640)))" "(let-values(((flat-s_41)" -"(to-syntax-list.1 s_634)))" +"(to-syntax-list.1 s_641)))" "(if(not flat-s_41)" "(let-values()" "(raise-syntax-error$1" @@ -66706,10 +67025,10 @@ static const char *startup_source = "(values #t begin330_1 e331_1))))))" "(let-values(((expr-ctx_4)" "(if last-is-tail?_0" -"(as-begin-expression-context ctx_90)" -"(as-expression-context ctx_90))))" +"(as-begin-expression-context ctx_91)" +"(as-expression-context ctx_91))))" "(let-values(((rebuild-s_11)" -"(let-values(((ctx334_0) ctx_90)((s335_0) s_629))" +"(let-values(((ctx334_0) ctx_91)((s335_0) s_636))" "(keep-as-needed74.1 #f #f #f #f #f #f ctx334_0 s335_0))))" "(let-values(((exp-es_2)" "((letrec-values(((loop_124)" @@ -66720,7 +67039,7 @@ static const char *startup_source = "(if(zero? index_6)" "(let-values()" "(let-values(((obs_115)" -"(expand-context-observer ctx_90)))" +"(expand-context-observer ctx_91)))" "(if obs_115" "(let-values()" "(begin" @@ -66741,7 +67060,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_116)" "(expand-context-observer" -" ctx_90)))" +" ctx_91)))" "(if obs_116" "(let-values()" "(let-values()" @@ -66756,7 +67075,7 @@ static const char *startup_source = "(let-values(((expr-ctx338_0)" " expr-ctx_4)" "((ctx339_0)" -" ctx_90))" +" ctx_91))" "(as-tail-context23.1" " ctx339_0" " expr-ctx338_0))" @@ -66773,7 +67092,7 @@ static const char *startup_source = " e331_0" " list-start-index_0)))" "(begin" -"(let-values(((obs_117)(expand-context-observer ctx_90)))" +"(let-values(((obs_117)(expand-context-observer ctx_91)))" "(if obs_117" "(let-values()" "(let-values()" @@ -66782,7 +67101,7 @@ static const char *startup_source = " 'exit-list" "(datum->syntax$1 #f(list-tail exp-es_2 list-start-index_0) rebuild-s_11))))" "(void)))" -"(if(expand-context-to-parsed? ctx_90)" +"(if(expand-context-to-parsed? ctx_91)" "(parsed-begin_0 rebuild-s_11 exp-es_2)" "(let-values(((rebuild-s340_0) rebuild-s_11)((temp341_0)(cons begin330_0 exp-es_2)))" "(rebuild5.1 #f #f rebuild-s340_0 temp341_0)))))))))))))))))))" @@ -66795,39 +67114,39 @@ static const char *startup_source = "((temp344_0) 0)" "((temp345_0) #t))" "(make-begin20.1 temp345_0 temp344_0 temp342_0 parsed-begin343_0))))" -"(lambda(s_635 ctx_91)" -"(let-values(((context_24)(expand-context-context ctx_91)))" -"(if(let-values(((or-part_386)(eq? context_24 'top-level)))" -"(if or-part_386 or-part_386(eq? context_24 'module)))" +"(lambda(s_642 ctx_92)" +"(let-values(((context_24)(expand-context-context ctx_92)))" +"(if(let-values(((or-part_387)(eq? context_24 'top-level)))" +"(if or-part_387 or-part_387(eq? context_24 'module)))" "(let-values()" -"(let-values(((disarmed-s_16)(syntax-disarm$1 s_635)))" +"(let-values(((disarmed-s_16)(syntax-disarm$1 s_642)))" "(let-values(((ok?_50 begin346_0)" -"(let-values(((s_636) disarmed-s_16))" -"(if(let-values(((s_637)(if(syntax?$1 s_636)(syntax-e$1 s_636) s_636)))" -"(if(pair? s_637)" -"(if(let-values(((s_638)(car s_637))) #t)" -"(let-values(((s_639)(cdr s_637)))" -"(let-values(((s_640)(if(syntax?$1 s_639)(syntax-e$1 s_639) s_639)))" -"(null? s_640)))" +"(let-values(((s_643) disarmed-s_16))" +"(if(let-values(((s_644)(if(syntax?$1 s_643)(syntax-e$1 s_643) s_643)))" +"(if(pair? s_644)" +"(if(let-values(((s_645)(car s_644))) #t)" +"(let-values(((s_646)(cdr s_644)))" +"(let-values(((s_647)(if(syntax?$1 s_646)(syntax-e$1 s_646) s_646)))" +"(null? s_647)))" " #f)" " #f))" "(let-values()" "(let-values(((begin346_1)" -"(let-values(((s_641)(if(syntax?$1 s_636)(syntax-e$1 s_636) s_636)))" +"(let-values(((s_648)(if(syntax?$1 s_643)(syntax-e$1 s_643) s_643)))" "(let-values(((begin347_0)" -"(let-values(((s_642)(car s_641))) s_642))" +"(let-values(((s_649)(car s_648))) s_649))" "(()" -"(let-values(((s_643)(cdr s_641)))" -"(let-values(((s_644)" -"(if(syntax?$1 s_643)" -"(syntax-e$1 s_643)" -" s_643)))" +"(let-values(((s_650)(cdr s_648)))" +"(let-values(((s_651)" +"(if(syntax?$1 s_650)" +"(syntax-e$1 s_650)" +" s_650)))" "(values)))))" "(values begin347_0)))))" "(values #t begin346_1)))" "(values #f #f)))))" -"(if ok?_50 s_635(nonempty-begin_0 s_635 ctx_91)))))" -"(let-values()(nonempty-begin_0 s_635 ctx_91))))))))" +"(if ok?_50 s_642(nonempty-begin_0 s_642 ctx_92)))))" +"(let-values()(nonempty-begin_0 s_642 ctx_92))))))))" "(void" "(add-core-form!*" " 'begin0" @@ -66835,15 +67154,15 @@ static const char *startup_source = "(make-begin20.1 temp351_0 temp350_0 temp348_0 parsed-begin0349_0))))" "(define-values" "(register-eventual-variable!?)" -"(lambda(id_123 ctx_92)" +"(lambda(id_126 ctx_93)" "(begin" -"(if(if(expand-context-need-eventually-defined ctx_92)(>=(expand-context-phase ctx_92) 1) #f)" +"(if(if(expand-context-need-eventually-defined ctx_93)(>=(expand-context-phase ctx_93) 1) #f)" "(let-values()" "(begin" "(hash-update!" -"(expand-context-need-eventually-defined ctx_92)" -"(expand-context-phase ctx_92)" -"(lambda(l_82)(cons id_123 l_82))" +"(expand-context-need-eventually-defined ctx_93)" +"(expand-context-phase ctx_93)" +"(lambda(l_82)(cons id_126 l_82))" " null)" " #t))" "(let-values() #f)))))" @@ -66854,58 +67173,58 @@ static const char *startup_source = "(lambda(s354_0 ctx355_0 implicit-omitted?352_0 implicit-omitted?353_0)" "(begin" " 'core356" -"(let-values(((s_645) s354_0))" -"(let-values(((ctx_93) ctx355_0))" +"(let-values(((s_652) s354_0))" +"(let-values(((ctx_94) ctx355_0))" "(let-values(((implicit-omitted?_0)(if implicit-omitted?353_0 implicit-omitted?352_0 #f)))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_118)(expand-context-observer ctx_93)))" +"(let-values(((obs_118)(expand-context-observer ctx_94)))" "(if obs_118" "(let-values()" "(let-values()(call-expand-observe obs_118 'prim-#%top)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_17)(syntax-disarm$1 s_645)))" -"(let-values(((id_124)" +"(let-values(((disarmed-s_17)(syntax-disarm$1 s_652)))" +"(let-values(((id_127)" "(if implicit-omitted?_0" -"(let-values() s_645)" +"(let-values() s_652)" "(let-values()" "(let-values(((ok?_51 #%top358_0 id359_0)" -"(let-values(((s_646) disarmed-s_17))" -"(let-values(((orig-s_56) s_646))" +"(let-values(((s_653) disarmed-s_17))" +"(let-values(((orig-s_56) s_653))" "(let-values(((#%top358_1 id359_1)" -"(let-values(((s_647)" -"(if(syntax?$1 s_646)" -"(syntax-e$1 s_646)" -" s_646)))" -"(if(pair? s_647)" +"(let-values(((s_654)" +"(if(syntax?$1 s_653)" +"(syntax-e$1 s_653)" +" s_653)))" +"(if(pair? s_654)" "(let-values(((#%top360_0)" -"(let-values(((s_648)" +"(let-values(((s_655)" "(car" -" s_647)))" -" s_648))" +" s_654)))" +" s_655))" "((id361_0)" -"(let-values(((s_649)" +"(let-values(((s_656)" "(cdr" -" s_647)))" -"(if(let-values(((or-part_387)" +" s_654)))" +"(if(let-values(((or-part_388)" "(if(syntax?$1" -" s_649)" +" s_656)" "(symbol?" "(syntax-e$1" -" s_649))" +" s_656))" " #f)))" -"(if or-part_387" -" or-part_387" +"(if or-part_388" +" or-part_388" "(symbol?" -" s_649)))" -" s_649" +" s_656)))" +" s_656" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_56" -" s_649)))))" +" s_656)))))" "(values #%top360_0 id361_0))" "(raise-syntax-error$1" " #f" @@ -66913,9 +67232,9 @@ static const char *startup_source = " orig-s_56)))))" "(values #t #%top358_1 id359_1))))))" " id359_0)))))" -"(let-values(((b_87)" -"(let-values(((id362_0) id_124)" -"((temp363_0)(expand-context-phase ctx_93))" +"(let-values(((b_89)" +"(let-values(((id362_0) id_127)" +"((temp363_0)(expand-context-phase ctx_94))" "((temp364_0) 'ambiguous))" "(resolve+shift30.1" " temp364_0" @@ -66930,43 +67249,43 @@ static const char *startup_source = " #f" " id362_0" " temp363_0))))" -"(if(eq? b_87 'ambiguous)" -"(let-values()(raise-ambiguous-error id_124 ctx_93))" -"(if(if b_87" -"(if(module-binding? b_87)" -"(eq?(module-binding-module b_87)(root-expand-context-self-mpi ctx_93))" +"(if(eq? b_89 'ambiguous)" +"(let-values()(raise-ambiguous-error id_127 ctx_94))" +"(if(if b_89" +"(if(module-binding? b_89)" +"(eq?(module-binding-module b_89)(root-expand-context-self-mpi ctx_94))" " #f)" " #f)" "(let-values()" -"(if(expand-context-to-parsed? ctx_93)" -"(parsed-id2.1 id_124 b_87 #f)" -"(if(top-level-module-path-index?(module-binding-module b_87))" -"(let-values() s_645)" -"(let-values() id_124))))" -"(if(register-eventual-variable!? id_124 ctx_93)" +"(if(expand-context-to-parsed? ctx_94)" +"(parsed-id2.1 id_127 b_89 #f)" +"(if(top-level-module-path-index?(module-binding-module b_89))" +"(let-values() s_652)" +"(let-values() id_127))))" +"(if(register-eventual-variable!? id_127 ctx_94)" "(let-values()" -"(if(expand-context-to-parsed? ctx_93)" -"(parsed-id2.1 id_124 b_87 #f)" -" id_124))" +"(if(expand-context-to-parsed? ctx_94)" +"(parsed-id2.1 id_127 b_89 #f)" +" id_127))" "(let-values()" -"(if(not(expand-context-allow-unbound? ctx_93))" +"(if(not(expand-context-allow-unbound? ctx_94))" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" id_124" +" id_127" " #f" " null" -"(syntax-debug-info-string id_124 ctx_93)))" +"(syntax-debug-info-string id_127 ctx_94)))" "(let-values()" "(let-values(((tl-id_1)" "(add-scope" -" id_124" -"(root-expand-context-top-level-bind-scope ctx_93))))" +" id_127" +"(root-expand-context-top-level-bind-scope ctx_94))))" "(let-values(((tl-b_1)" "(let-values(((tl-id365_0) tl-id_1)" "((temp366_0)" -"(expand-context-phase ctx_93)))" +"(expand-context-phase ctx_94)))" "(resolve40.1" " #f" " #f" @@ -66980,48 +67299,48 @@ static const char *startup_source = " temp366_0))))" "(if tl-b_1" "(let-values()" -"(if(expand-context-to-parsed? ctx_93)" +"(if(expand-context-to-parsed? ctx_94)" "(parsed-top-id4.1 tl-id_1 tl-b_1 #f)" "(if implicit-omitted?_0" -"(let-values() id_124)" +"(let-values() id_127)" "(let-values()" "(let-values(((ok?_52 #%top367_0 id368_0)" -"(let-values(((s_650) disarmed-s_17))" -"(let-values(((orig-s_57) s_650))" +"(let-values(((s_657) disarmed-s_17))" +"(let-values(((orig-s_57) s_657))" "(let-values(((#%top367_1 id368_1)" -"(let-values(((s_651)" +"(let-values(((s_658)" "(if(syntax?$1" -" s_650)" +" s_657)" "(syntax-e$1" -" s_650)" -" s_650)))" -"(if(pair? s_651)" +" s_657)" +" s_657)))" +"(if(pair? s_658)" "(let-values(((#%top369_0)" -"(let-values(((s_652)" +"(let-values(((s_659)" "(car" -" s_651)))" -" s_652))" +" s_658)))" +" s_659))" "((id370_0)" -"(let-values(((s_653)" +"(let-values(((s_660)" "(cdr" -" s_651)))" -"(if(let-values(((or-part_388)" +" s_658)))" +"(if(let-values(((or-part_389)" "(if(syntax?$1" -" s_653)" +" s_660)" "(symbol?" "(syntax-e$1" -" s_653))" +" s_660))" " #f)))" -"(if or-part_388" -" or-part_388" +"(if or-part_389" +" or-part_389" "(symbol?" -" s_653)))" -" s_653" +" s_660)))" +" s_660" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_57" -" s_653)))))" +" s_660)))))" "(values" " #%top369_0" " id370_0))" @@ -67030,80 +67349,80 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_57)))))" "(values #t #%top367_1 id368_1))))))" -"(let-values(((s371_0) s_645)" -"((temp372_0)(cons #%top367_0 id_124)))" +"(let-values(((s371_0) s_652)" +"((temp372_0)(cons #%top367_0 id_127)))" "(rebuild5.1 #f #f s371_0 temp372_0)))))))" "(let-values()" -"(if(expand-context-to-parsed? ctx_93)" -"(parsed-top-id4.1 id_124 b_87 #f)" -" s_645)))))))))))))))))))))))" +"(if(expand-context-to-parsed? ctx_94)" +"(parsed-top-id4.1 id_127 b_89 #f)" +" s_652)))))))))))))))))))))))" "(case-lambda" -"((s_654 ctx_94)(core356_0 s_654 ctx_94 #f #f))" -"((s_655 ctx_95 implicit-omitted?352_1)(core356_0 s_655 ctx_95 implicit-omitted?352_1 #t))))))" +"((s_661 ctx_95)(core356_0 s_661 ctx_95 #f #f))" +"((s_662 ctx_96 implicit-omitted?352_1)(core356_0 s_662 ctx_96 implicit-omitted?352_1 #t))))))" "(void" "(add-core-form!*" " 'set!" -"(lambda(s_656 ctx_96)" +"(lambda(s_663 ctx_97)" "(let-values((()" "(begin" -"(let-values(((obs_119)(expand-context-observer ctx_96)))" +"(let-values(((obs_119)(expand-context-observer ctx_97)))" "(if obs_119(let-values()(let-values()(call-expand-observe obs_119 'prim-set!)))(void)))" "(values))))" -"(let-values(((disarmed-s_18)(syntax-disarm$1 s_656)))" +"(let-values(((disarmed-s_18)(syntax-disarm$1 s_663)))" "(let-values(((ok?_53 set!373_0 id374_0 rhs375_0)" -"(let-values(((s_657) disarmed-s_18))" -"(let-values(((orig-s_58) s_657))" +"(let-values(((s_664) disarmed-s_18))" +"(let-values(((orig-s_58) s_664))" "(let-values(((set!373_1 id374_1 rhs375_1)" -"(let-values(((s_658)(if(syntax?$1 s_657)(syntax-e$1 s_657) s_657)))" -"(if(pair? s_658)" -"(let-values(((set!376_0)(let-values(((s_659)(car s_658))) s_659))" +"(let-values(((s_665)(if(syntax?$1 s_664)(syntax-e$1 s_664) s_664)))" +"(if(pair? s_665)" +"(let-values(((set!376_0)(let-values(((s_666)(car s_665))) s_666))" "((id377_0 rhs378_0)" -"(let-values(((s_660)(cdr s_658)))" -"(let-values(((s_661)" -"(if(syntax?$1 s_660)" -"(syntax-e$1 s_660)" -" s_660)))" -"(if(pair? s_661)" +"(let-values(((s_667)(cdr s_665)))" +"(let-values(((s_668)" +"(if(syntax?$1 s_667)" +"(syntax-e$1 s_667)" +" s_667)))" +"(if(pair? s_668)" "(let-values(((id379_0)" -"(let-values(((s_662)(car s_661)))" -"(if(let-values(((or-part_389)" -"(if(syntax?$1 s_662)" +"(let-values(((s_669)(car s_668)))" +"(if(let-values(((or-part_390)" +"(if(syntax?$1 s_669)" "(symbol?" "(syntax-e$1" -" s_662))" +" s_669))" " #f)))" -"(if or-part_389" -" or-part_389" -"(symbol? s_662)))" -" s_662" +"(if or-part_390" +" or-part_390" +"(symbol? s_669)))" +" s_669" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_58" -" s_662))))" +" s_669))))" "((rhs380_0)" -"(let-values(((s_663)(cdr s_661)))" -"(let-values(((s_664)" -"(if(syntax?$1 s_663)" -"(syntax-e$1 s_663)" -" s_663)))" -"(if(pair? s_664)" +"(let-values(((s_670)(cdr s_668)))" +"(let-values(((s_671)" +"(if(syntax?$1 s_670)" +"(syntax-e$1 s_670)" +" s_670)))" +"(if(pair? s_671)" "(let-values(((rhs381_0)" -"(let-values(((s_665)" +"(let-values(((s_672)" "(car" -" s_664)))" -" s_665))" +" s_671)))" +" s_672))" "(()" -"(let-values(((s_666)" +"(let-values(((s_673)" "(cdr" -" s_664)))" -"(let-values(((s_667)" +" s_671)))" +"(let-values(((s_674)" "(if(syntax?$1" -" s_666)" +" s_673)" "(syntax-e$1" -" s_666)" -" s_666)))" -"(if(null? s_667)" +" s_673)" +" s_673)))" +"(if(null? s_674)" "(values)" "(raise-syntax-error$1" " #f" @@ -67119,14 +67438,14 @@ static const char *startup_source = "(values set!376_0 id377_0 rhs378_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_58)))))" "(values #t set!373_1 id374_1 rhs375_1))))))" -"(let-values(((id_125) id374_0))" +"(let-values(((id_128) id374_0))" "((letrec-values(((rename-loop_0)" -"(lambda(id_126 from-rename?_0)" +"(lambda(id_129 from-rename?_0)" "(begin" " 'rename-loop" "(let-values(((binding_30)" -"(let-values(((id382_0) id_126)" -"((temp383_0)(expand-context-phase ctx_96))" +"(let-values(((id382_0) id_129)" +"((temp383_0)(expand-context-phase ctx_97))" "((temp384_0) 'ambiguous)" "((temp385_0) #t))" "(resolve+shift30.1" @@ -67145,31 +67464,31 @@ static const char *startup_source = "(let-values((()" "(begin" "(if(eq? binding_30 'ambiguous)" -"(let-values()(raise-ambiguous-error id_126 ctx_96))" +"(let-values()(raise-ambiguous-error id_129 ctx_97))" "(void))" "(values))))" "(let-values(((t_58 primitive?_11 insp_24 protected?_12)" "(if binding_30" "(let-values(((binding386_0) binding_30)" -"((ctx387_0) ctx_96)" -"((s388_0) s_656))" +"((ctx387_0) ctx_97)" +"((s388_0) s_663))" "(lookup17.1 #f #f #f #f binding386_0 ctx387_0 s388_0))" "(values #f #f #f #f))))" "(begin" -"(let-values(((obs_120)(expand-context-observer ctx_96)))" +"(let-values(((obs_120)(expand-context-observer ctx_97)))" "(if obs_120" "(let-values()" -"(let-values()(call-expand-observe obs_120 'resolve id_126)))" +"(let-values()(call-expand-observe obs_120 'resolve id_129)))" "(void)))" -"(if(let-values(((or-part_390)(variable? t_58)))" -"(if or-part_390" -" or-part_390" -"(if(not binding_30)" -"(let-values(((or-part_391)" -"(register-eventual-variable!? id_126 ctx_96)))" +"(if(let-values(((or-part_391)(variable? t_58)))" "(if or-part_391" " or-part_391" -"(expand-context-allow-unbound? ctx_96)))" +"(if(not binding_30)" +"(let-values(((or-part_392)" +"(register-eventual-variable!? id_129 ctx_97)))" +"(if or-part_392" +" or-part_392" +"(expand-context-allow-unbound? ctx_97)))" " #f)))" "(let-values()" "(let-values((()" @@ -67178,20 +67497,20 @@ static const char *startup_source = "(not" "(eq?" "(module-binding-module binding_30)" -"(root-expand-context-self-mpi ctx_96)))" +"(root-expand-context-self-mpi ctx_97)))" " #f)" "(let-values()" "(raise-syntax-error$1" " #f" " \"cannot mutate module-required identifier\"" -" s_656" -" id_126))" +" s_663" +" id_129))" "(void))" "(values))))" "(let-values((()" "(begin" "(let-values(((obs_121)" -"(expand-context-observer ctx_96)))" +"(expand-context-observer ctx_97)))" "(if obs_121" "(let-values()" "(let-values()" @@ -67203,7 +67522,7 @@ static const char *startup_source = "(register-variable-referenced-if-local! binding_30)" "(values))))" "(let-values(((rebuild-s_12)" -"(let-values(((ctx389_0) ctx_96)((s390_0) s_656))" +"(let-values(((ctx389_0) ctx_97)((s390_0) s_663))" "(keep-as-needed74.1" " #f" " #f" @@ -67216,23 +67535,23 @@ static const char *startup_source = "(let-values(((exp-rhs_4)" "(let-values(((temp391_0) rhs375_0)" "((temp392_0)" -"(as-expression-context ctx_96)))" +"(as-expression-context ctx_97)))" "(expand7.1 #f #f #f #f temp391_0 temp392_0))))" -"(if(expand-context-to-parsed? ctx_96)" +"(if(expand-context-to-parsed? ctx_97)" "(parsed-set!9.1" " rebuild-s_12" -"(parsed-id2.1 id_126 binding_30 #f)" +"(parsed-id2.1 id_129 binding_30 #f)" " exp-rhs_4)" "(let-values(((rebuild-s393_0) rebuild-s_12)" "((temp394_0)" "(list" " set!373_0" -"(let-values(((id395_0) id_126)" +"(let-values(((id395_0) id_129)" "((t396_0) t_58)" "((temp397_0)" "(free-id-set-empty-or-just-module*?" "(expand-context-stops" -" ctx_96))))" +" ctx_97))))" "(substitute-variable6.1" " temp397_0" " id395_0" @@ -67244,38 +67563,38 @@ static const char *startup_source = "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_656" -" id_126" +" s_663" +" id_129" " null" -"(syntax-debug-info-string id_126 ctx_96)))" +"(syntax-debug-info-string id_129 ctx_97)))" "(if(1/set!-transformer? t_58)" "(let-values()" -"(if(not-in-this-expand-context? t_58 ctx_96)" +"(if(not-in-this-expand-context? t_58 ctx_97)" "(let-values()" "(let-values(((temp398_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_656" +" s_663" " disarmed-s_18" " set!373_0" " rhs375_0" -" id_126" +" id_129" " from-rename?_0" -" ctx_96)" +" ctx_97)" " t_58" -" ctx_96))" -"((ctx399_0) ctx_96))" +" ctx_97))" +"((ctx399_0) ctx_97))" "(expand7.1 #f #f #f #f temp398_0 ctx399_0)))" "(let-values()" "(let-values(((exp-s_14 re-ctx_1)" "(apply-transformer" " t_58" " insp_24" -" s_656" -" id_126" -" ctx_96" +" s_663" +" id_129" +" ctx_97" " binding_30)))" -"(if(expand-context-just-once? ctx_96)" +"(if(expand-context-just-once? ctx_97)" "(let-values() exp-s_14)" "(let-values()" "(let-values(((exp-s400_0) exp-s_14)" @@ -67283,151 +67602,151 @@ static const char *startup_source = "(expand7.1 #f #f #f #f exp-s400_0 re-ctx401_0))))))))" "(if(1/rename-transformer? t_58)" "(let-values()" -"(if(not-in-this-expand-context? t_58 ctx_96)" +"(if(not-in-this-expand-context? t_58 ctx_97)" "(let-values()" "(let-values(((temp402_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_656" +" s_663" " disarmed-s_18" " set!373_0" " rhs375_0" -" id_126" +" id_129" " from-rename?_0" -" ctx_96" +" ctx_97" " t_58)" " t_58" -" ctx_96))" -"((ctx403_0) ctx_96))" +" ctx_97))" +"((ctx403_0) ctx_97))" "(expand7.1 #f #f #f #f temp402_0 ctx403_0)))" "(let-values()" "(rename-loop_0" -"(rename-transformer-target-in-context t_58 ctx_96)" +"(rename-transformer-target-in-context t_58 ctx_97)" " #t))))" "(let-values()" "(raise-syntax-error$1" " #f" " \"cannot mutate syntax identifier\"" -" s_656" -" id_126))))))))))))))" +" s_663" +" id_129))))))))))))))" " rename-loop_0)" -" id_125" +" id_128" " #f))))))))" "(define-values" "(substitute-set!-rename)" "(let-values(((substitute-set!-rename32_0)" -"(lambda(s25_1 disarmed-s26_0 set!-id27_0 id28_0 rhs-s29_0 from-rename?30_0 ctx31_0 t23_0 t24_0)" +"(lambda(s25_0 disarmed-s26_0 set!-id27_0 id28_0 rhs-s29_0 from-rename?30_0 ctx31_0 t23_0 t24_0)" "(begin" " 'substitute-set!-rename32" -"(let-values(((s_668) s25_1))" +"(let-values(((s_675) s25_0))" "(let-values(((disarmed-s_19) disarmed-s26_0))" "(let-values(((set!-id_0) set!-id27_0))" -"(let-values(((id_127) id28_0))" +"(let-values(((id_130) id28_0))" "(let-values(((rhs-s_0) rhs-s29_0))" "(let-values(((from-rename?_1) from-rename?30_0))" -"(let-values(((ctx_97) ctx31_0))" +"(let-values(((ctx_98) ctx31_0))" "(let-values(((t_59)(if t24_0 t23_0 #f)))" "(let-values()" -"(if(let-values(((or-part_392) t_59))" -"(if or-part_392 or-part_392 from-rename?_1))" +"(if(let-values(((or-part_393) t_59))" +"(if or-part_393 or-part_393 from-rename?_1))" "(let-values()" "(let-values(((new-id_1)" "(if t_59" -"(rename-transformer-target-in-context t_59 ctx_97)" -" id_127)))" +"(rename-transformer-target-in-context t_59 ctx_98)" +" id_130)))" "(syntax-rearm$1" "(datum->syntax$1" " disarmed-s_19" "(list set!-id_0 new-id_1 rhs-s_0)" " disarmed-s_19" " disarmed-s_19)" -" s_668)))" -"(let-values() s_668)))))))))))))))" +" s_675)))" +"(let-values() s_675)))))))))))))))" "(case-lambda" -"((s_669 disarmed-s_20 set!-id_1 id_128 rhs-s_1 from-rename?_2 ctx_98)" -"(begin(substitute-set!-rename32_0 s_669 disarmed-s_20 set!-id_1 id_128 rhs-s_1 from-rename?_2 ctx_98 #f #f)))" -"((s_670 disarmed-s_21 set!-id_2 id_129 rhs-s_2 from-rename?_3 ctx_99 t23_1)" -"(substitute-set!-rename32_0 s_670 disarmed-s_21 set!-id_2 id_129 rhs-s_2 from-rename?_3 ctx_99 t23_1 #t)))))" +"((s_676 disarmed-s_20 set!-id_1 id_131 rhs-s_1 from-rename?_2 ctx_99)" +"(begin(substitute-set!-rename32_0 s_676 disarmed-s_20 set!-id_1 id_131 rhs-s_1 from-rename?_2 ctx_99 #f #f)))" +"((s_677 disarmed-s_21 set!-id_2 id_132 rhs-s_2 from-rename?_3 ctx_100 t23_1)" +"(substitute-set!-rename32_0 s_677 disarmed-s_21 set!-id_2 id_132 rhs-s_2 from-rename?_3 ctx_100 t23_1 #t)))))" "(void" "(add-core-form!*" " '#%variable-reference" -"(lambda(s_671 ctx_100)" +"(lambda(s_678 ctx_101)" "(let-values((()" "(begin" -"(let-values(((obs_122)(expand-context-observer ctx_100)))" +"(let-values(((obs_122)(expand-context-observer ctx_101)))" "(if obs_122" "(let-values()(let-values()(call-expand-observe obs_122 'prim-#%variable-reference)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_22)(syntax-disarm$1 s_671)))" +"(let-values(((disarmed-s_22)(syntax-disarm$1 s_678)))" "(let-values(((ok?_54 #%variable-reference404_0 id405_0)" -"(let-values(((s_672) disarmed-s_22))" -"(if(let-values(((s_673)(if(syntax?$1 s_672)(syntax-e$1 s_672) s_672)))" -"(if(pair? s_673)" -"(if(let-values(((s_674)(car s_673))) #t)" -"(let-values(((s_675)(cdr s_673)))" -"(let-values(((s_676)(if(syntax?$1 s_675)(syntax-e$1 s_675) s_675)))" -"(if(pair? s_676)" -"(if(let-values(((s_677)(car s_676)))" -"(let-values(((or-part_393)" -"(if(syntax?$1 s_677)(symbol?(syntax-e$1 s_677)) #f)))" -"(if or-part_393 or-part_393(symbol? s_677))))" -"(let-values(((s_678)(cdr s_676)))" -"(let-values(((s_679)(if(syntax?$1 s_678)(syntax-e$1 s_678) s_678)))" -"(null? s_679)))" +"(let-values(((s_679) disarmed-s_22))" +"(if(let-values(((s_680)(if(syntax?$1 s_679)(syntax-e$1 s_679) s_679)))" +"(if(pair? s_680)" +"(if(let-values(((s_681)(car s_680))) #t)" +"(let-values(((s_682)(cdr s_680)))" +"(let-values(((s_683)(if(syntax?$1 s_682)(syntax-e$1 s_682) s_682)))" +"(if(pair? s_683)" +"(if(let-values(((s_684)(car s_683)))" +"(let-values(((or-part_394)" +"(if(syntax?$1 s_684)(symbol?(syntax-e$1 s_684)) #f)))" +"(if or-part_394 or-part_394(symbol? s_684))))" +"(let-values(((s_685)(cdr s_683)))" +"(let-values(((s_686)(if(syntax?$1 s_685)(syntax-e$1 s_685) s_685)))" +"(null? s_686)))" " #f)" " #f)))" " #f)" " #f))" "(let-values()" "(let-values(((#%variable-reference404_1 id405_1)" -"(let-values(((s_680)(if(syntax?$1 s_672)(syntax-e$1 s_672) s_672)))" +"(let-values(((s_687)(if(syntax?$1 s_679)(syntax-e$1 s_679) s_679)))" "(let-values(((#%variable-reference406_0)" -"(let-values(((s_681)(car s_680))) s_681))" +"(let-values(((s_688)(car s_687))) s_688))" "((id407_0)" -"(let-values(((s_682)(cdr s_680)))" -"(let-values(((s_683)" -"(if(syntax?$1 s_682)" -"(syntax-e$1 s_682)" -" s_682)))" +"(let-values(((s_689)(cdr s_687)))" +"(let-values(((s_690)" +"(if(syntax?$1 s_689)" +"(syntax-e$1 s_689)" +" s_689)))" "(let-values(((id408_0)" -"(let-values(((s_684)(car s_683))) s_684))" +"(let-values(((s_691)(car s_690))) s_691))" "(()" -"(let-values(((s_685)(cdr s_683)))" -"(let-values(((s_686)" -"(if(syntax?$1 s_685)" -"(syntax-e$1 s_685)" -" s_685)))" +"(let-values(((s_692)(cdr s_690)))" +"(let-values(((s_693)" +"(if(syntax?$1 s_692)" +"(syntax-e$1 s_692)" +" s_692)))" "(values)))))" "(values id408_0))))))" "(values #%variable-reference406_0 id407_0)))))" "(values #t #%variable-reference404_1 id405_1)))" "(values #f #f #f)))))" "(let-values(((ok?_55 #%variable-reference409_0 #%top410_0 id411_0)" -"(let-values(((s_687) disarmed-s_22))" +"(let-values(((s_694) disarmed-s_22))" "(if(if(not ok?_54)" -"(let-values(((s_688)(if(syntax?$1 s_687)(syntax-e$1 s_687) s_687)))" -"(if(pair? s_688)" -"(if(let-values(((s_689)(car s_688))) #t)" -"(let-values(((s_690)(cdr s_688)))" -"(let-values(((s_691)(if(syntax?$1 s_690)(syntax-e$1 s_690) s_690)))" -"(if(pair? s_691)" -"(if(let-values(((s_692)(car s_691)))" -"(let-values(((s_693)" -"(if(syntax?$1 s_692)(syntax-e$1 s_692) s_692)))" -"(if(pair? s_693)" -"(if(let-values(((s_694)(car s_693))) #t)" -"(let-values(((s_695)(cdr s_693)))" -"(let-values(((or-part_394)" -"(if(syntax?$1 s_695)" -"(symbol?(syntax-e$1 s_695))" +"(let-values(((s_695)(if(syntax?$1 s_694)(syntax-e$1 s_694) s_694)))" +"(if(pair? s_695)" +"(if(let-values(((s_696)(car s_695))) #t)" +"(let-values(((s_697)(cdr s_695)))" +"(let-values(((s_698)(if(syntax?$1 s_697)(syntax-e$1 s_697) s_697)))" +"(if(pair? s_698)" +"(if(let-values(((s_699)(car s_698)))" +"(let-values(((s_700)" +"(if(syntax?$1 s_699)(syntax-e$1 s_699) s_699)))" +"(if(pair? s_700)" +"(if(let-values(((s_701)(car s_700))) #t)" +"(let-values(((s_702)(cdr s_700)))" +"(let-values(((or-part_395)" +"(if(syntax?$1 s_702)" +"(symbol?(syntax-e$1 s_702))" " #f)))" -"(if or-part_394 or-part_394(symbol? s_695))))" +"(if or-part_395 or-part_395(symbol? s_702))))" " #f)" " #f)))" -"(let-values(((s_696)(cdr s_691)))" -"(let-values(((s_697)(if(syntax?$1 s_696)(syntax-e$1 s_696) s_696)))" -"(null? s_697)))" +"(let-values(((s_703)(cdr s_698)))" +"(let-values(((s_704)(if(syntax?$1 s_703)(syntax-e$1 s_703) s_703)))" +"(null? s_704)))" " #f)" " #f)))" " #f)" @@ -67435,61 +67754,61 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values(((#%variable-reference409_1 #%top410_1 id411_1)" -"(let-values(((s_698)(if(syntax?$1 s_687)(syntax-e$1 s_687) s_687)))" +"(let-values(((s_705)(if(syntax?$1 s_694)(syntax-e$1 s_694) s_694)))" "(let-values(((#%variable-reference412_0)" -"(let-values(((s_699)(car s_698))) s_699))" +"(let-values(((s_706)(car s_705))) s_706))" "((#%top413_0 id414_0)" -"(let-values(((s_700)(cdr s_698)))" -"(let-values(((s_701)" -"(if(syntax?$1 s_700)" -"(syntax-e$1 s_700)" -" s_700)))" +"(let-values(((s_707)(cdr s_705)))" +"(let-values(((s_708)" +"(if(syntax?$1 s_707)" +"(syntax-e$1 s_707)" +" s_707)))" "(let-values(((#%top415_0 id416_0)" -"(let-values(((s_702)(car s_701)))" -"(let-values(((s_703)" -"(if(syntax?$1 s_702)" -"(syntax-e$1 s_702)" -" s_702)))" +"(let-values(((s_709)(car s_708)))" +"(let-values(((s_710)" +"(if(syntax?$1 s_709)" +"(syntax-e$1 s_709)" +" s_709)))" "(let-values(((#%top417_0)" -"(let-values(((s_704)" +"(let-values(((s_711)" "(car" -" s_703)))" -" s_704))" +" s_710)))" +" s_711))" "((id418_0)" -"(let-values(((s_705)" +"(let-values(((s_712)" "(cdr" -" s_703)))" -" s_705)))" +" s_710)))" +" s_712)))" "(values #%top417_0 id418_0)))))" "(()" -"(let-values(((s_706)(cdr s_701)))" -"(let-values(((s_707)" -"(if(syntax?$1 s_706)" -"(syntax-e$1 s_706)" -" s_706)))" +"(let-values(((s_713)(cdr s_708)))" +"(let-values(((s_714)" +"(if(syntax?$1 s_713)" +"(syntax-e$1 s_713)" +" s_713)))" "(values)))))" "(values #%top415_0 id416_0))))))" "(values #%variable-reference412_0 #%top413_0 id414_0)))))" "(values #t #%variable-reference409_1 #%top410_1 id411_1)))" "(values #f #f #f #f)))))" "(let-values(((ok?_56 #%variable-reference419_0)" -"(let-values(((s_708) disarmed-s_22))" -"(if(if(not(let-values(((or-part_395) ok?_54))(if or-part_395 or-part_395 ok?_55)))" +"(let-values(((s_715) disarmed-s_22))" +"(if(if(not(let-values(((or-part_396) ok?_54))(if or-part_396 or-part_396 ok?_55)))" " #t" " #f)" -"(let-values(((orig-s_59) s_708))" +"(let-values(((orig-s_59) s_715))" "(let-values(((#%variable-reference419_1)" -"(let-values(((s_709)(if(syntax?$1 s_708)(syntax-e$1 s_708) s_708)))" -"(if(pair? s_709)" +"(let-values(((s_716)(if(syntax?$1 s_715)(syntax-e$1 s_715) s_715)))" +"(if(pair? s_716)" "(let-values(((#%variable-reference420_0)" -"(let-values(((s_710)(car s_709))) s_710))" +"(let-values(((s_717)(car s_716))) s_717))" "(()" -"(let-values(((s_711)(cdr s_709)))" -"(let-values(((s_712)" -"(if(syntax?$1 s_711)" -"(syntax-e$1 s_711)" -" s_711)))" -"(if(null? s_712)" +"(let-values(((s_718)(cdr s_716)))" +"(let-values(((s_719)" +"(if(syntax?$1 s_718)" +"(syntax-e$1 s_718)" +" s_718)))" +"(if(null? s_719)" "(values)" "(raise-syntax-error$1" " #f" @@ -67499,96 +67818,96 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_59)))))" "(values #t #%variable-reference419_1)))" "(values #f #f)))))" -"(if(let-values(((or-part_396) ok?_54))(if or-part_396 or-part_396 ok?_55))" +"(if(let-values(((or-part_397) ok?_54))(if or-part_397 or-part_397 ok?_55))" "(let-values()" "(let-values(((var-id_0)(if ok?_54 id405_0 id411_0)))" "(let-values(((binding_31)" "(let-values(((var-id421_0) var-id_0)" -"((temp422_0)(expand-context-phase ctx_100))" +"((temp422_0)(expand-context-phase ctx_101))" "((temp423_0) 'ambiguous))" "(resolve+shift30.1 temp423_0 #t #f #f #f #f #f #f #f #f var-id421_0 temp422_0))))" "(let-values((()" "(begin" "(if(eq? binding_31 'ambiguous)" -"(let-values()(raise-ambiguous-error var-id_0 ctx_100))" +"(let-values()(raise-ambiguous-error var-id_0 ctx_101))" "(void))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_397) binding_31))" -"(if or-part_397 or-part_397(expand-context-allow-unbound? ctx_100)))" +"(if(let-values(((or-part_398) binding_31))" +"(if or-part_398 or-part_398(expand-context-allow-unbound? ctx_101)))" "(void)" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_671" +" s_678" " var-id_0" " null" -"(syntax-debug-info-string var-id_0 ctx_100))))" +"(syntax-debug-info-string var-id_0 ctx_101))))" "(values))))" "(let-values(((t_60 primitive?_12 insp-of-t_7 protected?_13)" "(if binding_31" "(let-values(((binding424_0) binding_31)" -"((ctx425_0) ctx_100)" +"((ctx425_0) ctx_101)" "((var-id426_0) var-id_0)" -"((s427_0) s_671)" -"((temp428_0)(expand-context-in-local-expand? ctx_100)))" +"((s427_0) s_678)" +"((temp428_0)(expand-context-in-local-expand? ctx_101)))" "(lookup17.1 s427_0 #t temp428_0 #t binding424_0 ctx425_0 var-id426_0))" "(values #f #f #f #f))))" "(begin" "(if(if t_60(not(variable? t_60)) #f)" "(let-values()" -" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_671))" +" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_678))" "(void))" -"(if(expand-context-to-parsed? ctx_100)" +"(if(expand-context-to-parsed? ctx_101)" "(parsed-#%variable-reference11.1" -"(keep-properties-only~ s_671)" +"(keep-properties-only~ s_678)" "(if ok?_55" "(let-values()(parsed-top-id4.1 var-id_0 binding_31 #f))" "(let-values()(parsed-id2.1 var-id_0 binding_31 #f))))" -" s_671))))))))" +" s_678))))))))" "(let-values()" -"(if(expand-context-to-parsed? ctx_100)" -"(parsed-#%variable-reference11.1(keep-properties-only~ s_671) #f)" -" s_671)))))))))))" +"(if(expand-context-to-parsed? ctx_101)" +"(parsed-#%variable-reference11.1(keep-properties-only~ s_678) #f)" +" s_678)))))))))))" "(void" "(add-core-form!*" " '#%expression" -"(lambda(s_713 ctx_101)" +"(lambda(s_720 ctx_102)" "(let-values((()" "(begin" -"(let-values(((obs_123)(expand-context-observer ctx_101)))" +"(let-values(((obs_123)(expand-context-observer ctx_102)))" "(if obs_123" "(let-values()(let-values()(call-expand-observe obs_123 'prim-#%expression)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_23)(syntax-disarm$1 s_713)))" +"(let-values(((disarmed-s_23)(syntax-disarm$1 s_720)))" "(let-values(((ok?_57 #%expression429_0 e430_0)" -"(let-values(((s_714) disarmed-s_23))" -"(let-values(((orig-s_60) s_714))" +"(let-values(((s_721) disarmed-s_23))" +"(let-values(((orig-s_60) s_721))" "(let-values(((#%expression429_1 e430_1)" -"(let-values(((s_715)(if(syntax?$1 s_714)(syntax-e$1 s_714) s_714)))" -"(if(pair? s_715)" +"(let-values(((s_722)(if(syntax?$1 s_721)(syntax-e$1 s_721) s_721)))" +"(if(pair? s_722)" "(let-values(((#%expression431_0)" -"(let-values(((s_716)(car s_715))) s_716))" +"(let-values(((s_723)(car s_722))) s_723))" "((e432_0)" -"(let-values(((s_717)(cdr s_715)))" -"(let-values(((s_718)" -"(if(syntax?$1 s_717)" -"(syntax-e$1 s_717)" -" s_717)))" -"(if(pair? s_718)" +"(let-values(((s_724)(cdr s_722)))" +"(let-values(((s_725)" +"(if(syntax?$1 s_724)" +"(syntax-e$1 s_724)" +" s_724)))" +"(if(pair? s_725)" "(let-values(((e433_0)" -"(let-values(((s_719)(car s_718)))" -" s_719))" +"(let-values(((s_726)(car s_725)))" +" s_726))" "(()" -"(let-values(((s_720)(cdr s_718)))" -"(let-values(((s_721)" -"(if(syntax?$1 s_720)" -"(syntax-e$1 s_720)" -" s_720)))" -"(if(null? s_721)" +"(let-values(((s_727)(cdr s_725)))" +"(let-values(((s_728)" +"(if(syntax?$1 s_727)" +"(syntax-e$1 s_727)" +" s_727)))" +"(if(null? s_728)" "(values)" "(raise-syntax-error$1" " #f" @@ -67600,26 +67919,26 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_60)))))" "(values #t #%expression429_1 e430_1))))))" "(let-values(((rebuild-s_13)" -"(let-values(((ctx434_0) ctx_101)((s435_0) s_713)((temp436_0) #t))" +"(let-values(((ctx434_0) ctx_102)((s435_0) s_720)((temp436_0) #t))" "(keep-as-needed74.1 temp436_0 #t #f #f #f #f ctx434_0 s435_0))))" "(let-values(((exp-e_0)" "(let-values(((temp437_0) e430_0)" "((temp438_0)" -"(let-values(((temp439_0)(as-expression-context ctx_101))" -"((ctx440_0) ctx_101))" +"(let-values(((temp439_0)(as-expression-context ctx_102))" +"((ctx440_0) ctx_102))" "(as-tail-context23.1 ctx440_0 temp439_0))))" "(expand7.1 #f #f #f #f temp437_0 temp438_0))))" -"(if(expand-context-to-parsed? ctx_101)" +"(if(expand-context-to-parsed? ctx_102)" " exp-e_0" -"(let-values(((tmp_61)" -"(if(not(expand-context-in-local-expand? ctx_101))" -"(expand-context-context ctx_101)" +"(let-values(((tmp_63)" +"(if(not(expand-context-in-local-expand? ctx_102))" +"(expand-context-context ctx_102)" " #f)))" -"(if(equal? tmp_61 'expression)" +"(if(equal? tmp_63 'expression)" "(let-values()" "(let-values(((result-s_13)(syntax-track-origin$1 exp-e_0 rebuild-s_13)))" "(begin" -"(let-values(((obs_124)(expand-context-observer ctx_101)))" +"(let-values(((obs_124)(expand-context-observer ctx_102)))" "(if obs_124" "(let-values()(let-values()(call-expand-observe obs_124 'tag result-s_13)))" "(void)))" @@ -67627,16 +67946,16 @@ static const char *startup_source = "(let-values()" "(let-values(((rebuild-s441_0) rebuild-s_13)((temp442_0)(list #%expression429_0 exp-e_0)))" "(rebuild5.1 #f #f rebuild-s441_0 temp442_0))))))))))))))" -" (void (add-core-form!* 'unquote (lambda (s_722 ctx_102) (raise-syntax-error$1 #f \"not in quasiquote\" s_722))))" -" (void (add-core-form!* 'unquote-splicing (lambda (s_723 ctx_103) (raise-syntax-error$1 #f \"not in quasiquote\" s_723))))" +" (void (add-core-form!* 'unquote (lambda (s_729 ctx_103) (raise-syntax-error$1 #f \"not in quasiquote\" s_729))))" +" (void (add-core-form!* 'unquote-splicing (lambda (s_730 ctx_104) (raise-syntax-error$1 #f \"not in quasiquote\" s_730))))" "(define-values" "(binding-for-transformer?)" -"(lambda(b_41 id_130 at-phase_12 ns_122)" +"(lambda(b_41 id_133 at-phase_12 ns_121)" "(begin" "(if(not at-phase_12)" "(let-values()" "(let-values(((m_30)" -"(namespace->module ns_122(1/module-path-index-resolve(module-binding-nominal-module b_41)))))" +"(namespace->module ns_121(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())" @@ -67644,47 +67963,47 @@ static const char *startup_source = " #f)))" "(provided-as-transformer? b/p_4))))" "(let-values()" -"(let-values(((val_84 primitive?_13 insp_25 protected?_14)" +"(let-values(((val_14 primitive?_13 insp_25 protected?_14)" "(let-values(((b1_8) b_41)" "((empty-env2_0) empty-env)" "((null3_0) null)" -"((ns4_0) ns_122)" +"((ns4_0) ns_121)" "((at-phase5_0) at-phase_12)" -"((id6_0) id_130))" +"((id6_0) id_133))" "(binding-lookup50.1 #f #f #f #f b1_8 empty-env2_0 null3_0 ns4_0 at-phase5_0 id6_0))))" -"(not(variable? val_84))))))))" +"(not(variable? val_14))))))))" "(define-values(layers) '(raw phaseless id))" "(define-values(provide-form-name) 'provide)" "(define-values" "(parse-and-expand-provides!)" -"(lambda(specs_0 orig-s_61 rp_1 self_30 phase_44 ctx_104)" +"(lambda(specs_0 orig-s_61 rp_1 self_30 phase_44 ctx_105)" "(begin" -"(let-values(((ns_123)(expand-context-namespace ctx_104)))" +"(let-values(((ns_123)(expand-context-namespace ctx_105)))" "((letrec-values(((loop_114)" "(lambda(specs_1 at-phase_13 protected?_15 layer_6)" "(begin" " 'loop" "(let-values(((track-stxess_0 exp-specss_0)" "(let-values(((track-stxes_0 exp-specs_0)" -"(let-values(((lst_79) specs_1))" +"(let-values(((lst_78) specs_1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_79)))" -"((letrec-values(((for-loop_94)" +"(let-values()(check-list lst_78)))" +"((letrec-values(((for-loop_96)" "(lambda(track-stxes_1" " exp-specs_1" -" lst_403)" +" lst_405)" "(begin" " 'for-loop" -"(if(pair? lst_403)" +"(if(pair? lst_405)" "(let-values(((spec_0)" "(unsafe-car" -" lst_403))" -"((rest_230)" +" lst_405))" +"((rest_231)" "(unsafe-cdr" -" lst_403)))" +" lst_405)))" "(let-values(((track-stxes_2" " exp-specs_2)" "(let-values(((track-stxes_3)" @@ -67732,11 +68051,11 @@ static const char *startup_source = " fm_2)" " orig-s_61" " spec_0)))))))" -"(let-values(((tmp_62)" +"(let-values(((tmp_64)" " fm_2))" "(let-values(((index_7)" "(if(symbol?" -" tmp_62)" +" tmp_64)" "(hash-ref" " '#hasheq((all-defined" " ." @@ -67776,7 +68095,7 @@ static const char *startup_source = "(struct" " ." " 6))" -" tmp_62" +" tmp_64" "(lambda()" " 0))" " 0)))" @@ -67823,57 +68142,57 @@ static const char *startup_source = " for-meta3_0" " phase-level4_0" " spec5_0)" -"(let-values(((s_302)" +"(let-values(((s_305)" " disarmed-spec_0))" "(let-values(((orig-s_62)" -" s_302))" +" s_305))" "(let-values(((for-meta3_1" " phase-level4_1" " spec5_1)" -"(let-values(((s_303)" +"(let-values(((s_306)" "(if(syntax?$1" -" s_302)" +" s_305)" "(syntax-e$1" -" s_302)" -" s_302)))" +" s_305)" +" s_305)))" "(if(pair?" -" s_303)" +" s_306)" "(let-values(((for-meta6_0)" -"(let-values(((s_177)" +"(let-values(((s_180)" "(car" -" s_303)))" -" s_177))" +" s_306)))" +" s_180))" "((phase-level7_0" " spec8_0)" -"(let-values(((s_75)" +"(let-values(((s_81)" "(cdr" -" s_303)))" -"(let-values(((s_724)" +" s_306)))" +"(let-values(((s_731)" "(if(syntax?$1" -" s_75)" +" s_81)" "(syntax-e$1" -" s_75)" -" s_75)))" +" s_81)" +" s_81)))" "(if(pair?" -" s_724)" +" s_731)" "(let-values(((phase-level9_0)" -"(let-values(((s_179)" +"(let-values(((s_182)" "(car" -" s_724)))" -" s_179))" +" s_731)))" +" s_182))" "((spec10_0)" -"(let-values(((s_463)" +"(let-values(((s_466)" "(cdr" -" s_724)))" -"(let-values(((s_471)" +" s_731)))" +"(let-values(((s_473)" "(if(syntax?$1" -" s_463)" +" s_466)" "(syntax-e$1" -" s_463)" -" s_463)))" +" s_466)" +" s_466)))" "(let-values(((flat-s_42)" "(to-syntax-list.1" -" s_471)))" +" s_473)))" "(if(not" " flat-s_42)" "(let-values()" @@ -67903,13 +68222,13 @@ static const char *startup_source = " for-meta3_1" " phase-level4_1" " spec5_1))))))" -"(let-values(((p_72)" +"(let-values(((p_73)" "(syntax-e$1" " phase-level4_0)))" "(let-values((()" "(begin" "(if(phase?" -" p_72)" +" p_73)" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -67923,7 +68242,7 @@ static const char *startup_source = "(loop_114" " spec5_0" "(phase+" -" p_72" +" p_73" " at-phase_13)" " protected?_15" " 'phaseless)))" @@ -67971,15 +68290,15 @@ static const char *startup_source = "(if(pair?" " s_23)" "(let-values(((for-syntax15_0)" -"(let-values(((s_428)" +"(let-values(((s_432)" "(car" " s_23)))" -" s_428))" +" s_432))" "((spec16_0)" "(let-values(((s_25)" "(cdr" " s_23)))" -"(let-values(((s_725)" +"(let-values(((s_732)" "(if(syntax?$1" " s_25)" "(syntax-e$1" @@ -67987,7 +68306,7 @@ static const char *startup_source = " s_25)))" "(let-values(((flat-s_43)" "(to-syntax-list.1" -" s_725)))" +" s_732)))" "(if(not" " flat-s_43)" "(let-values()" @@ -68051,24 +68370,24 @@ static const char *startup_source = " s_44))" "(let-values(((for-label19_1" " spec20_1)" -"(let-values(((s_479)" +"(let-values(((s_484)" "(if(syntax?$1" " s_44)" "(syntax-e$1" " s_44)" " s_44)))" "(if(pair?" -" s_479)" +" s_484)" "(let-values(((for-label21_0)" -"(let-values(((s_477)" +"(let-values(((s_482)" "(car" -" s_479)))" -" s_477))" +" s_484)))" +" s_482))" "((spec22_0)" "(let-values(((s_45)" "(cdr" -" s_479)))" -"(let-values(((s_304)" +" s_484)))" +"(let-values(((s_307)" "(if(syntax?$1" " s_45)" "(syntax-e$1" @@ -68076,7 +68395,7 @@ static const char *startup_source = " s_45)))" "(let-values(((flat-s_44)" "(to-syntax-list.1" -" s_304)))" +" s_307)))" "(if(not" " flat-s_44)" "(let-values()" @@ -68111,7 +68430,7 @@ static const char *startup_source = " track-stxes_7" "(let-values(((spec23_0)" " spec_0)" -"((temp24_12)" +"((temp24_11)" "(list*" " for-label19_0" " exp-specs_7)))" @@ -68119,7 +68438,7 @@ static const char *startup_source = " #f" " #f" " spec23_0" -" temp24_12)))))))))" +" temp24_11)))))))))" "(if(unsafe-fx<" " index_7" " 5)" @@ -68143,38 +68462,38 @@ static const char *startup_source = "(let-values(((ok?_61" " protect25_0" " p-spec26_0)" -"(let-values(((s_726)" +"(let-values(((s_733)" " disarmed-spec_0))" "(let-values(((orig-s_65)" -" s_726))" +" s_733))" "(let-values(((protect25_1" " p-spec26_1)" "(let-values(((s_31)" "(if(syntax?$1" -" s_726)" +" s_733)" "(syntax-e$1" -" s_726)" -" s_726)))" +" s_733)" +" s_733)))" "(if(pair?" " s_31)" "(let-values(((protect27_0)" -"(let-values(((s_83)" +"(let-values(((s_89)" "(car" " s_31)))" -" s_83))" +" s_89))" "((p-spec28_0)" -"(let-values(((s_307)" +"(let-values(((s_309)" "(cdr" " s_31)))" -"(let-values(((s_482)" +"(let-values(((s_487)" "(if(syntax?$1" -" s_307)" +" s_309)" "(syntax-e$1" -" s_307)" -" s_307)))" +" s_309)" +" s_309)))" "(let-values(((flat-s_45)" "(to-syntax-list.1" -" s_482)))" +" s_487)))" "(if(not" " flat-s_45)" "(let-values()" @@ -68228,52 +68547,52 @@ static const char *startup_source = " rename31_0" " id:from32_0" " id:to33_0)" -"(let-values(((s_727)" +"(let-values(((s_734)" " disarmed-spec_0))" "(let-values(((orig-s_66)" -" s_727))" +" s_734))" "(let-values(((rename31_1" " id:from32_1" " id:to33_1)" -"(let-values(((s_485)" +"(let-values(((s_490)" "(if(syntax?$1" -" s_727)" +" s_734)" "(syntax-e$1" -" s_727)" -" s_727)))" +" s_734)" +" s_734)))" "(if(pair?" -" s_485)" +" s_490)" "(let-values(((rename34_0)" -"(let-values(((s_313)" +"(let-values(((s_315)" "(car" -" s_485)))" -" s_313))" +" s_490)))" +" s_315))" "((id:from35_0" " id:to36_0)" -"(let-values(((s_396)" +"(let-values(((s_399)" "(cdr" -" s_485)))" -"(let-values(((s_314)" +" s_490)))" +"(let-values(((s_316)" "(if(syntax?$1" -" s_396)" +" s_399)" "(syntax-e$1" -" s_396)" -" s_396)))" +" s_399)" +" s_399)))" "(if(pair?" -" s_314)" +" s_316)" "(let-values(((id:from37_0)" "(let-values(((s_33)" "(car" -" s_314)))" -"(if(let-values(((or-part_58)" +" s_316)))" +"(if(let-values(((or-part_216)" "(if(syntax?$1" " s_33)" "(symbol?" "(syntax-e$1" " s_33))" " #f)))" -"(if or-part_58" -" or-part_58" +"(if or-part_216" +" or-part_216" "(symbol?" " s_33)))" " s_33" @@ -68283,50 +68602,50 @@ static const char *startup_source = " orig-s_66" " s_33))))" "((id:to38_0)" -"(let-values(((s_728)" +"(let-values(((s_735)" "(cdr" -" s_314)))" -"(let-values(((s_729)" +" s_316)))" +"(let-values(((s_736)" "(if(syntax?$1" -" s_728)" +" s_735)" "(syntax-e$1" -" s_728)" -" s_728)))" +" s_735)" +" s_735)))" "(if(pair?" -" s_729)" +" s_736)" "(let-values(((id:to39_0)" -"(let-values(((s_432)" +"(let-values(((s_436)" "(car" -" s_729)))" -"(if(let-values(((or-part_398)" +" s_736)))" +"(if(let-values(((or-part_57)" "(if(syntax?$1" -" s_432)" +" s_436)" "(symbol?" "(syntax-e$1" -" s_432))" +" s_436))" " #f)))" -"(if or-part_398" -" or-part_398" +"(if or-part_57" +" or-part_57" "(symbol?" -" s_432)))" -" s_432" +" s_436)))" +" s_436" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_66" -" s_432))))" +" s_436))))" "(()" -"(let-values(((s_730)" +"(let-values(((s_737)" "(cdr" -" s_729)))" -"(let-values(((s_384)" +" s_736)))" +"(let-values(((s_386)" "(if(syntax?$1" -" s_730)" +" s_737)" "(syntax-e$1" -" s_730)" -" s_730)))" +" s_737)" +" s_737)))" "(if(null?" -" s_384)" +" s_386)" "(values)" "(raise-syntax-error$1" " #f" @@ -68388,77 +68707,77 @@ static const char *startup_source = " struct40_0" " id:struct41_0" " id:field42_0)" -"(let-values(((s_36)" +"(let-values(((s_507)" " disarmed-spec_0))" "(let-values(((orig-s_67)" -" s_36))" +" s_507))" "(let-values(((struct40_1" " id:struct41_1" " id:field42_1)" -"(let-values(((s_410)" +"(let-values(((s_36)" "(if(syntax?$1" -" s_36)" +" s_507)" "(syntax-e$1" -" s_36)" -" s_36)))" +" s_507)" +" s_507)))" "(if(pair?" -" s_410)" +" s_36)" "(let-values(((struct43_0)" -"(let-values(((s_199)" +"(let-values(((s_203)" "(car" -" s_410)))" -" s_199))" +" s_36)))" +" s_203))" "((id:struct44_0" " id:field45_0)" -"(let-values(((s_731)" +"(let-values(((s_738)" "(cdr" -" s_410)))" -"(let-values(((s_732)" +" s_36)))" +"(let-values(((s_739)" "(if(syntax?$1" -" s_731)" +" s_738)" "(syntax-e$1" -" s_731)" -" s_731)))" +" s_738)" +" s_738)))" "(if(pair?" -" s_732)" +" s_739)" "(let-values(((id:struct46_0)" -"(let-values(((s_733)" +"(let-values(((s_740)" "(car" -" s_732)))" -"(if(let-values(((or-part_366)" +" s_739)))" +"(if(let-values(((or-part_364)" "(if(syntax?$1" -" s_733)" +" s_740)" "(symbol?" "(syntax-e$1" -" s_733))" +" s_740))" " #f)))" -"(if or-part_366" -" or-part_366" +"(if or-part_364" +" or-part_364" "(symbol?" -" s_733)))" -" s_733" +" s_740)))" +" s_740" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_67" -" s_733))))" +" s_740))))" "((id:field47_0)" -"(let-values(((s_734)" +"(let-values(((s_741)" "(cdr" -" s_732)))" -"(let-values(((s_390)" +" s_739)))" +"(let-values(((s_393)" "(if(syntax?$1" -" s_734)" +" s_741)" "(syntax-e$1" -" s_734)" -" s_734)))" +" s_741)" +" s_741)))" "(if(pair?" -" s_390)" +" s_393)" "(let-values(((id:field48_0)" "(let-values(((s_62)" "(car" -" s_390)))" -"(let-values(((s_735)" +" s_393)))" +"(let-values(((s_415)" "(if(syntax?$1" " s_62)" "(syntax-e$1" @@ -68466,7 +68785,7 @@ static const char *startup_source = " s_62)))" "(let-values(((flat-s_46)" "(to-syntax-list.1" -" s_735)))" +" s_415)))" "(if(not" " flat-s_46)" "(let-values()" @@ -68476,7 +68795,7 @@ static const char *startup_source = " orig-s_67))" "(let-values()" "(let-values(((id:field_0)" -"(let-values(((lst_33)" +"(let-values(((lst_315)" " flat-s_46))" "(begin" "(if(variable-reference-from-unsafe?" @@ -68484,20 +68803,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_33)))" -"((letrec-values(((for-loop_25)" +" lst_315)))" +"((letrec-values(((for-loop_278)" "(lambda(id:field_1" -" lst_34)" +" lst_406)" "(begin" " 'for-loop" "(if(pair?" -" lst_34)" -"(let-values(((s_38)" +" lst_406)" +"(let-values(((s_65)" "(unsafe-car" -" lst_34))" -"((rest_13)" +" lst_406))" +"((rest_232)" "(unsafe-cdr" -" lst_34)))" +" lst_406)))" "(let-values(((id:field_2)" "(let-values(((id:field_3)" " id:field_1))" @@ -68507,21 +68826,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_399)" "(if(syntax?$1" -" s_38)" +" s_65)" "(symbol?" "(syntax-e$1" -" s_38))" +" s_65))" " #f)))" "(if or-part_399" " or-part_399" "(symbol?" -" s_38)))" -" s_38" +" s_65)))" +" s_65" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_67" -" s_38)))))" +" s_65)))))" "(cons" " id:field49_0" " id:field_3)))))" @@ -68529,28 +68848,28 @@ static const char *startup_source = " id:field_4)))))" "(if(not" " #f)" -"(for-loop_25" +"(for-loop_278" " id:field_2" -" rest_13)" +" rest_232)" " id:field_2)))" " id:field_1)))))" -" for-loop_25)" +" for-loop_278)" " null" -" lst_33)))))" +" lst_315)))))" "(reverse$1" " id:field_0))))))))" "(()" -"(let-values(((s_203)" +"(let-values(((s_206)" "(cdr" -" s_390)))" -"(let-values(((s_736)" +" s_393)))" +"(let-values(((s_742)" "(if(syntax?$1" -" s_203)" +" s_206)" "(syntax-e$1" -" s_203)" -" s_203)))" +" s_206)" +" s_206)))" "(if(null?" -" s_736)" +" s_742)" "(values)" "(raise-syntax-error$1" " #f" @@ -68607,54 +68926,54 @@ static const char *startup_source = "(let-values(((ok?_64" " all-from50_0" " mod-path51_0)" -"(let-values(((s_737)" +"(let-values(((s_743)" " disarmed-spec_0))" "(let-values(((orig-s_68)" -" s_737))" +" s_743))" "(let-values(((all-from50_1" " mod-path51_1)" -"(let-values(((s_738)" +"(let-values(((s_744)" "(if(syntax?$1" -" s_737)" +" s_743)" "(syntax-e$1" -" s_737)" -" s_737)))" +" s_743)" +" s_743)))" "(if(pair?" -" s_738)" +" s_744)" "(let-values(((all-from52_0)" -"(let-values(((s_739)" +"(let-values(((s_745)" "(car" -" s_738)))" -" s_739))" +" s_744)))" +" s_745))" "((mod-path53_0)" -"(let-values(((s_206)" +"(let-values(((s_209)" "(cdr" -" s_738)))" -"(let-values(((s_207)" +" s_744)))" +"(let-values(((s_210)" "(if(syntax?$1" -" s_206)" +" s_209)" "(syntax-e$1" -" s_206)" -" s_206)))" +" s_209)" +" s_209)))" "(if(pair?" -" s_207)" +" s_210)" "(let-values(((mod-path54_0)" -"(let-values(((s_740)" +"(let-values(((s_746)" "(car" -" s_207)))" -" s_740))" +" s_210)))" +" s_746))" "(()" -"(let-values(((s_88)" +"(let-values(((s_94)" "(cdr" -" s_207)))" -"(let-values(((s_320)" +" s_210)))" +"(let-values(((s_322)" "(if(syntax?$1" -" s_88)" +" s_94)" "(syntax-e$1" -" s_88)" -" s_88)))" +" s_94)" +" s_94)))" "(if(null?" -" s_320)" +" s_322)" "(values)" "(raise-syntax-error$1" " #f" @@ -68687,7 +69006,7 @@ static const char *startup_source = " ns_123" " rp_1" " protected?_15" -" ctx_104)" +" ctx_105)" "(values" " null" "(list" @@ -68702,57 +69021,57 @@ static const char *startup_source = " all-from-except55_0" " mod-path56_0" " id57_0)" -"(let-values(((s_91)" +"(let-values(((s_97)" " disarmed-spec_0))" "(let-values(((orig-s_69)" -" s_91))" +" s_97))" "(let-values(((all-from-except55_1" " mod-path56_1" " id57_1)" -"(let-values(((s_210)" +"(let-values(((s_213)" "(if(syntax?$1" -" s_91)" +" s_97)" "(syntax-e$1" -" s_91)" -" s_91)))" +" s_97)" +" s_97)))" "(if(pair?" -" s_210)" +" s_213)" "(let-values(((all-from-except58_0)" -"(let-values(((s_741)" +"(let-values(((s_420)" "(car" -" s_210)))" -" s_741))" +" s_213)))" +" s_420))" "((mod-path59_0" " id60_0)" -"(let-values(((s_161)" +"(let-values(((s_163)" "(cdr" -" s_210)))" -"(let-values(((s_488)" +" s_213)))" +"(let-values(((s_494)" "(if(syntax?$1" -" s_161)" +" s_163)" "(syntax-e$1" -" s_161)" -" s_161)))" +" s_163)" +" s_163)))" "(if(pair?" -" s_488)" +" s_494)" "(let-values(((mod-path61_0)" -"(let-values(((s_399)" +"(let-values(((s_402)" "(car" -" s_488)))" -" s_399))" +" s_494)))" +" s_402))" "((id62_0)" -"(let-values(((s_742)" +"(let-values(((s_747)" "(cdr" -" s_488)))" -"(let-values(((s_743)" +" s_494)))" +"(let-values(((s_748)" "(if(syntax?$1" -" s_742)" +" s_747)" "(syntax-e$1" -" s_742)" -" s_742)))" +" s_747)" +" s_747)))" "(let-values(((flat-s_47)" "(to-syntax-list.1" -" s_743)))" +" s_748)))" "(if(not" " flat-s_47)" "(let-values()" @@ -68761,7 +69080,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_69))" "(let-values()" -"(let-values(((id_131)" +"(let-values(((id_134)" "(let-values(((lst_43)" " flat-s_47))" "(begin" @@ -68771,60 +69090,60 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_43)))" -"((letrec-values(((for-loop_56)" -"(lambda(id_132" +"((letrec-values(((for-loop_58)" +"(lambda(id_135" " lst_44)" "(begin" " 'for-loop" "(if(pair?" " lst_44)" -"(let-values(((s_491)" +"(let-values(((s_497)" "(unsafe-car" " lst_44))" "((rest_18)" "(unsafe-cdr" " lst_44)))" -"(let-values(((id_133)" -"(let-values(((id_134)" -" id_132))" -"(let-values(((id_135)" +"(let-values(((id_136)" +"(let-values(((id_137)" +" id_135))" +"(let-values(((id_138)" "(let-values()" "(let-values(((id63_0)" "(let-values()" "(if(let-values(((or-part_400)" "(if(syntax?$1" -" s_491)" +" s_497)" "(symbol?" "(syntax-e$1" -" s_491))" +" s_497))" " #f)))" "(if or-part_400" " or-part_400" "(symbol?" -" s_491)))" -" s_491" +" s_497)))" +" s_497" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_69" -" s_491)))))" +" s_497)))))" "(cons" " id63_0" -" id_134)))))" +" id_137)))))" "(values" -" id_135)))))" +" id_138)))))" "(if(not" " #f)" -"(for-loop_56" -" id_133" +"(for-loop_58" +" id_136" " rest_18)" -" id_133)))" -" id_132)))))" -" for-loop_56)" +" id_136)))" +" id_135)))))" +" for-loop_58)" " null" " lst_43)))))" "(reverse$1" -" id_131)))))))))" +" id_134)))))))))" "(values" " mod-path61_0" " id62_0))" @@ -68855,7 +69174,7 @@ static const char *startup_source = " ns_123" " rp_1" " protected?_15" -" ctx_104)" +" ctx_105)" "(values" " null" "(list" @@ -68874,36 +69193,36 @@ static const char *startup_source = "(values))))" "(let-values(((ok?_66" " all-defined64_0)" -"(let-values(((s_215)" +"(let-values(((s_218)" " disarmed-spec_0))" "(let-values(((orig-s_70)" -" s_215))" +" s_218))" "(let-values(((all-defined64_1)" -"(let-values(((s_392)" +"(let-values(((s_395)" "(if(syntax?$1" -" s_215)" +" s_218)" "(syntax-e$1" -" s_215)" -" s_215)))" +" s_218)" +" s_218)))" "(if(pair?" -" s_392)" +" s_395)" "(let-values(((all-defined65_0)" -"(let-values(((s_103)" +"(let-values(((s_109)" "(car" -" s_392)))" -" s_103))" +" s_395)))" +" s_109))" "(()" -"(let-values(((s_744)" +"(let-values(((s_749)" "(cdr" -" s_392)))" -"(let-values(((s_745)" +" s_395)))" +"(let-values(((s_750)" "(if(syntax?$1" -" s_744)" +" s_749)" "(syntax-e$1" -" s_744)" -" s_744)))" +" s_749)" +" s_749)))" "(if(null?" -" s_745)" +" s_750)" "(values)" "(raise-syntax-error$1" " #f" @@ -68942,38 +69261,38 @@ static const char *startup_source = "(let-values(((ok?_67" " all-defined-except66_0" " id67_0)" -"(let-values(((s_414)" +"(let-values(((s_751)" " disarmed-spec_0))" "(let-values(((orig-s_71)" -" s_414))" +" s_751))" "(let-values(((all-defined-except66_1" " id67_1)" -"(let-values(((s_217)" +"(let-values(((s_220)" "(if(syntax?$1" -" s_414)" +" s_751)" "(syntax-e$1" -" s_414)" -" s_414)))" +" s_751)" +" s_751)))" "(if(pair?" -" s_217)" +" s_220)" "(let-values(((all-defined-except68_0)" -"(let-values(((s_746)" +"(let-values(((s_421)" "(car" -" s_217)))" -" s_746))" +" s_220)))" +" s_421))" "((id69_0)" -"(let-values(((s_218)" +"(let-values(((s_221)" "(cdr" -" s_217)))" -"(let-values(((s_219)" +" s_220)))" +"(let-values(((s_222)" "(if(syntax?$1" -" s_218)" +" s_221)" "(syntax-e$1" -" s_218)" -" s_218)))" +" s_221)" +" s_221)))" "(let-values(((flat-s_48)" "(to-syntax-list.1" -" s_219)))" +" s_222)))" "(if(not" " flat-s_48)" "(let-values()" @@ -68982,8 +69301,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_71))" "(let-values()" -"(let-values(((id_136)" -"(let-values(((lst_404)" +"(let-values(((id_139)" +"(let-values(((lst_407)" " flat-s_48))" "(begin" "(if(variable-reference-from-unsafe?" @@ -68991,61 +69310,61 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_404)))" -"((letrec-values(((for-loop_318)" -"(lambda(id_137" -" lst_405)" +" lst_407)))" +"((letrec-values(((for-loop_323)" +"(lambda(id_140" +" lst_408)" "(begin" " 'for-loop" "(if(pair?" -" lst_405)" -"(let-values(((s_114)" +" lst_408)" +"(let-values(((s_120)" "(unsafe-car" -" lst_405))" -"((rest_231)" +" lst_408))" +"((rest_233)" "(unsafe-cdr" -" lst_405)))" -"(let-values(((id_138)" -"(let-values(((id_139)" -" id_137))" +" lst_408)))" +"(let-values(((id_141)" +"(let-values(((id_142)" +" id_140))" "(let-values(((id_29)" "(let-values()" "(let-values(((id70_0)" "(let-values()" -"(if(let-values(((or-part_184)" +"(if(let-values(((or-part_186)" "(if(syntax?$1" -" s_114)" +" s_120)" "(symbol?" "(syntax-e$1" -" s_114))" +" s_120))" " #f)))" -"(if or-part_184" -" or-part_184" +"(if or-part_186" +" or-part_186" "(symbol?" -" s_114)))" -" s_114" +" s_120)))" +" s_120" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_71" -" s_114)))))" +" s_120)))))" "(cons" " id70_0" -" id_139)))))" +" id_142)))))" "(values" " id_29)))))" "(if(not" " #f)" -"(for-loop_318" -" id_138" -" rest_231)" -" id_138)))" -" id_137)))))" -" for-loop_318)" +"(for-loop_323" +" id_141" +" rest_233)" +" id_141)))" +" id_140)))))" +" for-loop_323)" " null" -" lst_404)))))" +" lst_407)))))" "(reverse$1" -" id_136)))))))))" +" id_139)))))))))" "(values" " all-defined-except68_0" " id69_0))" @@ -69084,70 +69403,70 @@ static const char *startup_source = "(let-values(((ok?_68" " prefix-all-defined71_0" " id:prefix72_0)" -"(let-values(((s_747)" +"(let-values(((s_752)" " disarmed-spec_0))" "(let-values(((orig-s_72)" -" s_747))" +" s_752))" "(let-values(((prefix-all-defined71_1" " id:prefix72_1)" -"(let-values(((s_418)" +"(let-values(((s_753)" "(if(syntax?$1" -" s_747)" +" s_752)" "(syntax-e$1" -" s_747)" -" s_747)))" +" s_752)" +" s_752)))" "(if(pair?" -" s_418)" +" s_753)" "(let-values(((prefix-all-defined73_0)" -"(let-values(((s_748)" +"(let-values(((s_754)" "(car" -" s_418)))" -" s_748))" +" s_753)))" +" s_754))" "((id:prefix74_0)" -"(let-values(((s_749)" +"(let-values(((s_755)" "(cdr" -" s_418)))" -"(let-values(((s_505)" +" s_753)))" +"(let-values(((s_512)" "(if(syntax?$1" -" s_749)" +" s_755)" "(syntax-e$1" -" s_749)" -" s_749)))" +" s_755)" +" s_755)))" "(if(pair?" -" s_505)" +" s_512)" "(let-values(((id:prefix75_0)" -"(let-values(((s_506)" +"(let-values(((s_513)" "(car" -" s_505)))" +" s_512)))" "(if(let-values(((or-part_401)" "(if(syntax?$1" -" s_506)" +" s_513)" "(symbol?" "(syntax-e$1" -" s_506))" +" s_513))" " #f)))" "(if or-part_401" " or-part_401" "(symbol?" -" s_506)))" -" s_506" +" s_513)))" +" s_513" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_72" -" s_506))))" +" s_513))))" "(()" -"(let-values(((s_750)" +"(let-values(((s_756)" "(cdr" -" s_505)))" -"(let-values(((s_121)" +" s_512)))" +"(let-values(((s_127)" "(if(syntax?$1" -" s_750)" +" s_756)" "(syntax-e$1" -" s_750)" -" s_750)))" +" s_756)" +" s_756)))" "(if(null?" -" s_121)" +" s_127)" "(values)" "(raise-syntax-error$1" " #f" @@ -69199,73 +69518,73 @@ static const char *startup_source = " prefix-all-defined-except76_0" " id:prefix77_0" " id78_0)" -"(let-values(((s_230)" +"(let-values(((s_233)" " disarmed-spec_0))" "(let-values(((orig-s_73)" -" s_230))" +" s_233))" "(let-values(((prefix-all-defined-except76_1" " id:prefix77_1" " id78_1)" -"(let-values(((s_332)" +"(let-values(((s_334)" "(if(syntax?$1" -" s_230)" +" s_233)" "(syntax-e$1" -" s_230)" -" s_230)))" +" s_233)" +" s_233)))" "(if(pair?" -" s_332)" +" s_334)" "(let-values(((prefix-all-defined-except79_0)" -"(let-values(((s_335)" +"(let-values(((s_337)" "(car" -" s_332)))" -" s_335))" +" s_334)))" +" s_337))" "((id:prefix80_0" " id81_0)" -"(let-values(((s_336)" +"(let-values(((s_338)" "(cdr" -" s_332)))" -"(let-values(((s_337)" +" s_334)))" +"(let-values(((s_339)" "(if(syntax?$1" -" s_336)" +" s_338)" "(syntax-e$1" -" s_336)" -" s_336)))" +" s_338)" +" s_338)))" "(if(pair?" -" s_337)" +" s_339)" "(let-values(((id:prefix82_0)" -"(let-values(((s_340)" +"(let-values(((s_342)" "(car" -" s_337)))" +" s_339)))" "(if(let-values(((or-part_402)" "(if(syntax?$1" -" s_340)" +" s_342)" "(symbol?" "(syntax-e$1" -" s_340))" +" s_342))" " #f)))" "(if or-part_402" " or-part_402" "(symbol?" -" s_340)))" -" s_340" +" s_342)))" +" s_342" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_73" -" s_340))))" +" s_342))))" "((id83_1)" -"(let-values(((s_342)" +"(let-values(((s_344)" "(cdr" -" s_337)))" -"(let-values(((s_510)" +" s_339)))" +"(let-values(((s_517)" "(if(syntax?$1" -" s_342)" +" s_344)" "(syntax-e$1" -" s_342)" -" s_342)))" +" s_344)" +" s_344)))" "(let-values(((flat-s_49)" "(to-syntax-list.1" -" s_510)))" +" s_517)))" "(if(not" " flat-s_49)" "(let-values()" @@ -69274,7 +69593,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_73))" "(let-values()" -"(let-values(((id_140)" +"(let-values(((id_143)" "(let-values(((lst_4)" " flat-s_49))" "(begin" @@ -69284,60 +69603,60 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_4)))" -"((letrec-values(((for-loop_319)" -"(lambda(id_141" -" lst_406)" +"((letrec-values(((for-loop_324)" +"(lambda(id_144" +" lst_409)" "(begin" " 'for-loop" "(if(pair?" -" lst_406)" -"(let-values(((s_511)" +" lst_409)" +"(let-values(((s_518)" "(unsafe-car" -" lst_406))" -"((rest_189)" +" lst_409))" +"((rest_190)" "(unsafe-cdr" -" lst_406)))" -"(let-values(((id_142)" -"(let-values(((id_143)" -" id_141))" -"(let-values(((id_144)" +" lst_409)))" +"(let-values(((id_145)" +"(let-values(((id_146)" +" id_144))" +"(let-values(((id_147)" "(let-values()" "(let-values(((id84_2)" "(let-values()" -"(if(let-values(((or-part_403)" +"(if(let-values(((or-part_289)" "(if(syntax?$1" -" s_511)" +" s_518)" "(symbol?" "(syntax-e$1" -" s_511))" +" s_518))" " #f)))" -"(if or-part_403" -" or-part_403" +"(if or-part_289" +" or-part_289" "(symbol?" -" s_511)))" -" s_511" +" s_518)))" +" s_518" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_73" -" s_511)))))" +" s_518)))))" "(cons" " id84_2" -" id_143)))))" +" id_146)))))" "(values" -" id_144)))))" +" id_147)))))" "(if(not" " #f)" -"(for-loop_319" -" id_142" -" rest_189)" -" id_142)))" -" id_141)))))" -" for-loop_319)" +"(for-loop_324" +" id_145" +" rest_190)" +" id_145)))" +" id_144)))))" +" for-loop_324)" " null" " lst_4)))))" "(reverse$1" -" id_140)))))))))" +" id_143)))))))))" "(values" " id:prefix82_0" " id83_1))" @@ -69379,78 +69698,78 @@ static const char *startup_source = " expand85_0" " id86_1" " datum87_0)" -"(let-values(((s_517)" +"(let-values(((s_524)" " disarmed-spec_0))" "(let-values(((orig-s_74)" -" s_517))" +" s_524))" "(let-values(((expand85_1" " id86_2" " datum87_1)" -"(let-values(((s_244)" +"(let-values(((s_247)" "(if(syntax?$1" -" s_517)" +" s_524)" "(syntax-e$1" -" s_517)" -" s_517)))" +" s_524)" +" s_524)))" "(if(pair?" -" s_244)" +" s_247)" "(let-values(((expand88_0)" -"(let-values(((s_245)" +"(let-values(((s_248)" "(car" -" s_244)))" -" s_245))" +" s_247)))" +" s_248))" "((id89_1" " datum90_0)" -"(let-values(((s_751)" +"(let-values(((s_757)" "(cdr" -" s_244)))" -"(let-values(((s_246)" +" s_247)))" +"(let-values(((s_249)" "(if(syntax?$1" -" s_751)" +" s_757)" "(syntax-e$1" -" s_751)" -" s_751)))" +" s_757)" +" s_757)))" "(if(pair?" -" s_246)" +" s_249)" "(let-values(((id91_0" " datum92_0)" -"(let-values(((s_752)" +"(let-values(((s_758)" "(car" -" s_246)))" -"(let-values(((s_248)" +" s_249)))" +"(let-values(((s_251)" "(if(syntax?$1" -" s_752)" +" s_758)" "(syntax-e$1" -" s_752)" -" s_752)))" +" s_758)" +" s_758)))" "(if(pair?" -" s_248)" +" s_251)" "(let-values(((id93_1)" -"(let-values(((s_521)" +"(let-values(((s_528)" "(car" -" s_248)))" -"(if(let-values(((or-part_404)" +" s_251)))" +"(if(let-values(((or-part_403)" "(if(syntax?$1" -" s_521)" +" s_528)" "(symbol?" "(syntax-e$1" -" s_521))" +" s_528))" " #f)))" -"(if or-part_404" -" or-part_404" +"(if or-part_403" +" or-part_403" "(symbol?" -" s_521)))" -" s_521" +" s_528)))" +" s_528" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_74" -" s_521))))" +" s_528))))" "((datum94_0)" -"(let-values(((s_449)" +"(let-values(((s_452)" "(cdr" -" s_248)))" -" s_449)))" +" s_251)))" +" s_452)))" "(values" " id93_1" " datum94_0))" @@ -69459,17 +69778,17 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_74)))))" "(()" -"(let-values(((s_450)" +"(let-values(((s_453)" "(cdr" -" s_246)))" -"(let-values(((s_360)" +" s_249)))" +"(let-values(((s_362)" "(if(syntax?$1" -" s_450)" +" s_453)" "(syntax-e$1" -" s_450)" -" s_450)))" +" s_453)" +" s_453)))" "(if(null?" -" s_360)" +" s_362)" "(values)" "(raise-syntax-error$1" " #f" @@ -69498,54 +69817,54 @@ static const char *startup_source = "(let-values(((ok?_71" " expand95_0" " form96_0)" -"(let-values(((s_361)" +"(let-values(((s_363)" " disarmed-spec_0))" "(let-values(((orig-s_75)" -" s_361))" +" s_363))" "(let-values(((expand95_1" " form96_1)" -"(let-values(((s_364)" +"(let-values(((s_366)" "(if(syntax?$1" -" s_361)" +" s_363)" "(syntax-e$1" -" s_361)" -" s_361)))" +" s_363)" +" s_363)))" "(if(pair?" -" s_364)" +" s_366)" "(let-values(((expand97_0)" -"(let-values(((s_367)" -"(car" -" s_364)))" -" s_367))" -"((form98_0)" -"(let-values(((s_368)" -"(cdr" -" s_364)))" "(let-values(((s_369)" -"(if(syntax?$1" -" s_368)" -"(syntax-e$1" -" s_368)" -" s_368)))" -"(if(pair?" -" s_369)" -"(let-values(((form99_0)" -"(let-values(((s_371)" "(car" -" s_369)))" -" s_371))" -"(()" -"(let-values(((s_372)" +" s_366)))" +" s_369))" +"((form98_0)" +"(let-values(((s_370)" "(cdr" -" s_369)))" -"(let-values(((s_753)" +" s_366)))" +"(let-values(((s_371)" "(if(syntax?$1" -" s_372)" +" s_370)" "(syntax-e$1" -" s_372)" -" s_372)))" +" s_370)" +" s_370)))" +"(if(pair?" +" s_371)" +"(let-values(((form99_0)" +"(let-values(((s_373)" +"(car" +" s_371)))" +" s_373))" +"(()" +"(let-values(((s_374)" +"(cdr" +" s_371)))" +"(let-values(((s_759)" +"(if(syntax?$1" +" s_374)" +"(syntax-e$1" +" s_374)" +" s_374)))" "(if(null?" -" s_753)" +" s_759)" "(values)" "(raise-syntax-error$1" " #f" @@ -69569,13 +69888,13 @@ static const char *startup_source = " expand95_1" " form96_1))))))" "(let-values(((exp-spec_0)" -"(let-values(((temp104_4)" +"(let-values(((temp104_5)" " form96_0)" -"((temp105_4)" -"(let-values(((v_256)" -" ctx_104))" +"((temp105_3)" +"(let-values(((v_257)" +" ctx_105))" "(let-values(((the-struct_93)" -" v_256))" +" v_257))" "(if(expand-context/outer?" " the-struct_93)" "(let-values(((def-ctx-scopes106_0)" @@ -69584,7 +69903,7 @@ static const char *startup_source = "((inner107_0)" "(let-values(((the-struct_94)" "(root-expand-context/outer-inner" -" v_256)))" +" v_257)))" "(if(expand-context/inner?" " the-struct_94)" "(let-values(((stops108_0)" @@ -69686,8 +70005,8 @@ static const char *startup_source = " #f" " #f" " #f" -" temp104_4" -" temp105_4))))" +" temp104_5" +" temp105_3))))" "(let-values((()" "(begin" "(if(if(pair?" @@ -69715,38 +70034,38 @@ static const char *startup_source = "(let-values(((ok?_72" " begin100_0" " spec101_0)" -"(let-values(((s_754)" +"(let-values(((s_760)" " exp-spec_0))" "(let-values(((orig-s_76)" -" s_754))" +" s_760))" "(let-values(((begin100_1" " spec101_1)" -"(let-values(((s_755)" +"(let-values(((s_761)" "(if(syntax?$1" -" s_754)" +" s_760)" "(syntax-e$1" -" s_754)" -" s_754)))" +" s_760)" +" s_760)))" "(if(pair?" -" s_755)" +" s_761)" "(let-values(((begin102_0)" -"(let-values(((s_377)" -"(car" -" s_755)))" -" s_377))" -"((spec103_0)" -"(let-values(((s_378)" -"(cdr" -" s_755)))" "(let-values(((s_379)" +"(car" +" s_761)))" +" s_379))" +"((spec103_0)" +"(let-values(((s_380)" +"(cdr" +" s_761)))" +"(let-values(((s_381)" "(if(syntax?$1" -" s_378)" +" s_380)" "(syntax-e$1" -" s_378)" -" s_378)))" +" s_380)" +" s_380)))" "(let-values(((flat-s_50)" "(to-syntax-list.1" -" s_379)))" +" s_381)))" "(if(not" " flat-s_50)" "(let-values()" @@ -69791,20 +70110,20 @@ static const char *startup_source = " track-stxes_4" " exp-specs_4)))))" "(if(not #f)" -"(for-loop_94" +"(for-loop_96" " track-stxes_2" " exp-specs_2" -" rest_230)" +" rest_231)" "(values" " track-stxes_2" " exp-specs_2))))" "(values" " track-stxes_1" " exp-specs_1))))))" -" for-loop_94)" +" for-loop_96)" " null" " null" -" lst_79)))))" +" lst_78)))))" "(values(reverse$1 track-stxes_0)(reverse$1 exp-specs_0)))))" "(values(apply append track-stxess_0)(apply append exp-specss_0)))))))" " loop_114)" @@ -69816,10 +70135,10 @@ static const char *startup_source = "(parse-identifier!)" "(lambda(spec_1 orig-s_77 sym_101 at-phase_5 ns_124 rp_2 protected?_16)" "(begin" -"(let-values(((b_88)(resolve+shift/extra-inspector spec_1 at-phase_5 ns_124)))" +"(let-values(((b_90)(resolve+shift/extra-inspector spec_1 at-phase_5 ns_124)))" "(let-values((()" "(begin" -"(if b_88" +"(if b_90" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -69828,14 +70147,14 @@ static const char *startup_source = " orig-s_77" " spec_1)))" "(values))))" -"(let-values(((as-transformer?_6)(binding-for-transformer? b_88 spec_1 at-phase_5 ns_124)))" +"(let-values(((as-transformer?_6)(binding-for-transformer? b_90 spec_1 at-phase_5 ns_124)))" "(let-values(((immed-b_0)" "(let-values(((spec118_0) spec_1)((at-phase119_0) at-phase_5)((temp120_5) #t))" "(resolve+shift30.1 #f #f #f #f #f #f temp120_5 #t #f #f spec118_0 at-phase119_0))))" "(let-values(((rp109_0) rp_2)" "((sym110_0) sym_101)" "((at-phase111_0) at-phase_5)" -"((b112_0) b_88)" +"((b112_0) b_90)" "((immed-b113_0) immed-b_0)" "((spec114_0) spec_1)" "((orig-s115_0) orig-s_77)" @@ -69870,50 +70189,50 @@ static const char *startup_source = "(format fmt_2(syntax-e$1 id:struct_0)(syntax-e$1 field-id_0)))))" "(datum->syntax$1 id:struct_0 sym_102 id:struct_0))))))" "(begin" -" (let-values (((lst_123) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" +" (let-values (((lst_122) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_123)))" -"((letrec-values(((for-loop_320)" -"(lambda(lst_407)" +"(let-values()(check-list lst_122)))" +"((letrec-values(((for-loop_325)" +"(lambda(lst_410)" "(begin" " 'for-loop" -"(if(pair? lst_407)" -"(let-values(((fmt_3)(unsafe-car lst_407))((rest_232)(unsafe-cdr lst_407)))" +"(if(pair? lst_410)" +"(let-values(((fmt_3)(unsafe-car lst_410))((rest_234)(unsafe-cdr lst_410)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((id_145)(mk_0 fmt_3)))" +"(let-values(((id_148)(mk_0 fmt_3)))" "(parse-identifier!" -" id_145" +" id_148" " orig-s_78" -"(syntax-e$1 id_145)" +"(syntax-e$1 id_148)" " at-phase_14" " ns_125" " rp_3" " protected?_17)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_320 rest_232)(values))))" +"(if(not #f)(for-loop_325 rest_234)(values))))" "(values))))))" -" for-loop_320)" -" lst_123)))" +" for-loop_325)" +" lst_122)))" "(void)" -"(let-values(((lst_355) fields_0))" +"(let-values(((lst_357) fields_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_355)))" -"((letrec-values(((for-loop_321)" -"(lambda(lst_408)" +"(let-values()(check-list lst_357)))" +"((letrec-values(((for-loop_326)" +"(lambda(lst_411)" "(begin" " 'for-loop" -"(if(pair? lst_408)" -"(let-values(((field_0)(unsafe-car lst_408))((rest_233)(unsafe-cdr lst_408)))" +"(if(pair? lst_411)" +"(let-values(((field_0)(unsafe-car lst_411))((rest_235)(unsafe-cdr lst_411)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -69945,14 +70264,14 @@ static const char *startup_source = " protected?_17)))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_321 rest_233)(values))))" +"(if(not #f)(for-loop_326 rest_235)(values))))" "(values))))))" -" for-loop_321)" -" lst_355)))" +" for-loop_326)" +" lst_357)))" "(void)))))))" "(define-values" "(parse-all-from)" -"(lambda(mod-path-stx_0 orig-s_79 self_31 except-ids_0 at-phase_15 ns_126 rp_4 protected?_18 ctx_105)" +"(lambda(mod-path-stx_0 orig-s_79 self_31 except-ids_0 at-phase_15 ns_126 rp_4 protected?_18 ctx_106)" "(begin" "(let-values(((mod-path_33)(syntax->datum$1 mod-path-stx_0)))" "(let-values((()" @@ -69962,13 +70281,13 @@ static const char *startup_source = "(let-values()" " (raise-syntax-error$1 provide-form-name \"not a module path\" orig-s_79 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_79 except-ids_0 #f at-phase_15 ns_126 rp_4 protected?_18)))))))" +"(let-values(((mpi_54)(module-path->mpi/context mod-path_33 ctx_106)))" +"(parse-all-from-module mpi_54 #f orig-s_79 except-ids_0 #f at-phase_15 ns_126 rp_4 protected?_18)))))))" "(define-values" "(parse-all-from-module)" -"(lambda(mpi_53 matching-stx_0 orig-s_80 except-ids_1 prefix-sym_0 at-phase_16 ns_127 rp_5 protected?_19)" +"(lambda(mpi_55 matching-stx_0 orig-s_80 except-ids_1 prefix-sym_0 at-phase_16 ns_127 rp_5 protected?_19)" "(begin" -"(let-values(((requireds_2)(extract-module-requires rp_5 mpi_53 at-phase_16)))" +"(let-values(((requireds_2)(extract-module-requires rp_5 mpi_55 at-phase_16)))" "(let-values(((phase-desc_0)" "(lambda()" "(begin" @@ -69996,48 +70315,48 @@ static const char *startup_source = " (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_103)) sym_103)))))" "(let-values(((found_0)(make-hasheq)))" "(begin" -"(let-values(((lst_241) requireds_2))" +"(let-values(((lst_240) requireds_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_241)))" -"((letrec-values(((for-loop_322)" -"(lambda(lst_409)" +"(let-values()(check-list lst_240)))" +"((letrec-values(((for-loop_327)" +"(lambda(lst_412)" "(begin" " 'for-loop" -"(if(pair? lst_409)" -"(let-values(((i_190)(unsafe-car lst_409))" -"((rest_234)(unsafe-cdr lst_409)))" +"(if(pair? lst_412)" +"(let-values(((i_191)(unsafe-car lst_412))" +"((rest_236)(unsafe-cdr lst_412)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((id_146)" -"(required-id i_190)))" -"(let-values(((phase_148)" +"(let-values(((id_149)" +"(required-id i_191)))" +"(let-values(((phase_149)" "(required-phase" -" i_190)))" -"(if(let-values(((or-part_405)" +" i_191)))" +"(if(let-values(((or-part_404)" "(if matching-stx_0" "(not" "(if(eqv?" -" phase_148" +" phase_149" " at-phase_16)" "(free-identifier=?$1" -" id_146" +" id_149" "(datum->syntax$1" " matching-stx_0" "(syntax-e$1" -" id_146))" -" phase_148" -" phase_148)" +" id_149))" +" phase_149" +" phase_149)" " #f))" " #f)))" -"(if or-part_405" -" or-part_405" -"(let-values(((lst_410)" +"(if or-part_404" +" or-part_404" +"(let-values(((lst_413)" " except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -70045,30 +70364,30 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_410)))" -"((letrec-values(((for-loop_323)" +" lst_413)))" +"((letrec-values(((for-loop_328)" "(lambda(result_125" -" lst_411)" +" lst_414)" "(begin" " 'for-loop" "(if(pair?" -" lst_411)" +" lst_414)" "(let-values(((except-id_0)" "(unsafe-car" -" lst_411))" -"((rest_235)" +" lst_414))" +"((rest_237)" "(unsafe-cdr" -" lst_411)))" +" lst_414)))" "(let-values(((result_126)" "(let-values()" "(let-values(((result_127)" "(let-values()" "(let-values()" "(if(free-identifier=?$1" -" id_146" +" id_149" " except-id_0" -" phase_148" -" phase_148)" +" phase_149" +" phase_149)" "(hash-set!" " found_0" " except-id_0" @@ -70077,33 +70396,33 @@ static const char *startup_source = "(values" " result_127)))))" "(if(if(not" -"((lambda x_91" +"((lambda x_95" " result_126)" " except-id_0))" "(not" " #f)" " #f)" -"(for-loop_323" +"(for-loop_328" " result_126" -" rest_235)" +" rest_237)" " result_126)))" " result_125)))))" -" for-loop_323)" +" for-loop_328)" " #f" -" lst_410)))))" +" lst_413)))))" "(void)" "(let-values()" -"(let-values(((b_89)" +"(let-values(((b_91)" "(resolve+shift/extra-inspector" -" id_146" -" phase_148" +" id_149" +" phase_149" " ns_127)))" "(let-values(((immed-b_1)" "(let-values(((id130_0)" -" id_146)" +" id_149)" "((phase131_0)" -" phase_148)" -"((temp132_2)" +" phase_149)" +"((temp132_0)" " #t))" "(resolve+shift30.1" " #f" @@ -70112,7 +70431,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp132_2" +" temp132_0" " #t" " #f" " #f" @@ -70120,30 +70439,30 @@ static const char *startup_source = " phase131_0))))" "(let-values(((rp121_0)" " rp_5)" -"((temp122_4)" +"((temp122_5)" "(add-prefix_1" "(syntax-e$1" -" id_146)))" +" id_149)))" "((phase123_0)" -" phase_148)" +" phase_149)" "((b124_0)" -" b_89)" +" b_91)" "((immed-b125_0)" " immed-b_1)" "((id126_0)" -" id_146)" +" id_149)" "((orig-s127_0)" " orig-s_80)" "((protected?128_0)" " protected?_19)" "((temp129_3)" "(required-as-transformer?" -" i_190)))" +" i_191)))" "(add-provide!109.1" " protected?128_0" " temp129_3" " rp121_0" -" temp122_4" +" temp122_5" " phase123_0" " b124_0" " immed-b125_0" @@ -70151,41 +70470,41 @@ static const char *startup_source = " orig-s127_0)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_322 rest_234)(values))))" +"(if(not #f)(for-loop_327 rest_236)(values))))" "(values))))))" -" for-loop_322)" -" lst_241)))" +" for-loop_327)" +" lst_240)))" "(void)" "(if(=(hash-count found_0)(length except-ids_1))" "(void)" "(let-values()" "(begin" -"(let-values(((lst_146) except-ids_1))" +"(let-values(((lst_145) except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_146)))" -"((letrec-values(((for-loop_171)" -"(lambda(lst_125)" +"(let-values()(check-list lst_145)))" +"((letrec-values(((for-loop_172)" +"(lambda(lst_124)" "(begin" " 'for-loop" -"(if(pair? lst_125)" -"(let-values(((except-id_1)(unsafe-car lst_125))" -"((rest_62)(unsafe-cdr lst_125)))" +"(if(pair? lst_124)" +"(let-values(((except-id_1)(unsafe-car lst_124))" +"((rest_62)(unsafe-cdr lst_124)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(if(let-values(((or-part_406)" +"(if(let-values(((or-part_405)" "(hash-ref" " found_0" " except-id_1" " #f)))" -"(if or-part_406" -" or-part_406" -"(let-values(((lst_412)" +"(if or-part_405" +" or-part_405" +"(let-values(((lst_415)" " requireds_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -70193,53 +70512,53 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_412)))" -"((letrec-values(((for-loop_141)" +" lst_415)))" +"((letrec-values(((for-loop_142)" "(lambda(result_128" -" lst_413)" +" lst_416)" "(begin" " 'for-loop" "(if(pair?" -" lst_413)" -"(let-values(((i_191)" +" lst_416)" +"(let-values(((i_192)" "(unsafe-car" -" lst_413))" -"((rest_236)" +" lst_416))" +"((rest_238)" "(unsafe-cdr" -" lst_413)))" +" lst_416)))" "(let-values(((result_129)" "(let-values()" "(let-values(((result_130)" "(let-values()" "(let-values()" -"(let-values(((id_147)" +"(let-values(((id_150)" "(required-id" -" i_191)))" -"(let-values(((phase_149)" +" i_192)))" +"(let-values(((phase_150)" "(required-phase" -" i_191)))" +" i_192)))" "(free-identifier=?$1" -" id_147" +" id_150" " except-id_1" -" phase_149" -" phase_149)))))))" +" phase_150" +" phase_150)))))))" "(values" " result_130)))))" "(if(if(not" -"((lambda x_92" +"((lambda x_96" " result_129)" -" i_191))" +" i_192))" "(not" " #f)" " #f)" -"(for-loop_141" +"(for-loop_142" " result_129" -" rest_236)" +" rest_238)" " result_129)))" " result_128)))))" -" for-loop_141)" +" for-loop_142)" " #f" -" lst_412)))))" +" lst_415)))))" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -70253,10 +70572,10 @@ static const char *startup_source = " except-id_1))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_171 rest_62)(values))))" +"(if(not #f)(for-loop_172 rest_62)(values))))" "(values))))))" -" for-loop_171)" -" lst_146)))" +" for-loop_172)" +" lst_145)))" "(void)))))))))))))" "(define-values" "(check-cross-phase-persistent-form)" @@ -70267,18 +70586,18 @@ static const char *startup_source = "(begin" " 'check-body" "(begin" -"(let-values(((lst_414) bodys_14))" +"(let-values(((lst_417) bodys_14))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_414)))" -"((letrec-values(((for-loop_324)" -"(lambda(lst_86)" +"(let-values()(check-list lst_417)))" +"((letrec-values(((for-loop_329)" +"(lambda(lst_85)" "(begin" " 'for-loop" -"(if(pair? lst_86)" -"(let-values(((body_21)(unsafe-car lst_86))" -"((rest_40)(unsafe-cdr lst_86)))" +"(if(pair? lst_85)" +"(let-values(((body_21)(unsafe-car lst_85))" +"((rest_40)(unsafe-cdr lst_85)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70301,11 +70620,11 @@ static const char *startup_source = "(parsed-define-values-syms" " p_36))" " p_36))" -"(if(let-values(((or-part_221)" +"(if(let-values(((or-part_224)" "(parsed-#%declare?" " p_36)))" -"(if or-part_221" -" or-part_221" +"(if or-part_224" +" or-part_224" "(let-values(((or-part_3)" "(parsed-module?" " p_36)))" @@ -70320,42 +70639,42 @@ static const char *startup_source = " p_36))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_324 rest_40)(values))))" +"(if(not #f)(for-loop_329 rest_40)(values))))" "(values))))))" -" for-loop_324)" -" lst_414)))" +" for-loop_329)" +" lst_417)))" "(void)))))" "((check-expr_0)" -"(lambda(e_90 num-results_0 enclosing_15)" +"(lambda(e_91 num-results_0 enclosing_15)" "(begin" " 'check-expr" -"(if(parsed-lambda? e_90)" +"(if(parsed-lambda? e_91)" "(let-values()" -"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_90)))" -"(if(parsed-case-lambda? e_90)" +"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_91)))" +"(if(parsed-case-lambda? e_91)" "(let-values()" -"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_90)))" -"(if(parsed-quote? e_90)" +"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_91)))" +"(if(parsed-quote? e_91)" "(let-values()" "(begin" -"(check-datum(parsed-quote-datum e_90) e_90)" +"(check-datum(parsed-quote-datum e_91) e_91)" "(check-count 1 num-results_0 enclosing_15)))" -"(if(parsed-app? e_90)" +"(if(parsed-app? e_91)" "(let-values()" -"(let-values(((rands_1)(parsed-app-rands e_90)))" +"(let-values(((rands_1)(parsed-app-rands e_91)))" "(begin" -"(let-values(((lst_80) rands_1))" +"(let-values(((lst_79) rands_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_80)))" -"((letrec-values(((for-loop_71)" -"(lambda(lst_87)" +"(let-values()(check-list lst_79)))" +"((letrec-values(((for-loop_81)" +"(lambda(lst_86)" "(begin" " 'for-loop" -"(if(pair? lst_87)" -"(let-values(((rand_0)(unsafe-car lst_87))" -"((rest_237)(unsafe-cdr lst_87)))" +"(if(pair? lst_86)" +"(let-values(((rand_0)(unsafe-car lst_86))" +"((rest_239)(unsafe-cdr lst_86)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70365,38 +70684,38 @@ static const char *startup_source = "(check-expr_0" " rand_0" " 1" -" e_90))" +" e_91))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_71 rest_237)(values))))" +"(if(not #f)(for-loop_81 rest_239)(values))))" "(values))))))" -" for-loop_71)" -" lst_80)))" +" for-loop_81)" +" lst_79)))" "(void)" -"(let-values(((tmp_63)(cross-phase-primitive-name(parsed-app-rator e_90))))" -"(if(if(equal? tmp_63 'cons) #t(equal? tmp_63 'list))" +"(let-values(((tmp_65)(cross-phase-primitive-name(parsed-app-rator e_91))))" +"(if(if(equal? tmp_65 'cons) #t(equal? tmp_65 'list))" "(let-values()(check-count 1 num-results_0 enclosing_15))" -"(if(equal? tmp_63 'make-struct-type)" +"(if(equal? tmp_65 'make-struct-type)" "(let-values()(check-count 5 num-results_0 enclosing_15))" -"(if(equal? tmp_63 'make-struct-type-property)" +"(if(equal? tmp_65 'make-struct-type-property)" "(let-values()(check-count 3 num-results_0 enclosing_15))" -"(if(equal? tmp_63 'gensym)" +"(if(equal? tmp_65 'gensym)" "(let-values()" -"(if(let-values(((or-part_407)(= 0(length rands_1))))" -"(if or-part_407" -" or-part_407" +"(if(let-values(((or-part_372)(= 0(length rands_1))))" +"(if or-part_372" +" or-part_372" "(if(= 1(length rands_1))" "(quoted-string?(car rands_1))" " #f)))" "(void)" -"(let-values()(disallow e_90))))" -"(if(equal? tmp_63 'string->uninterned-symbol)" +"(let-values()(disallow e_91))))" +"(if(equal? tmp_65 'string->uninterned-symbol)" "(let-values()" "(if(if(= 1(length rands_1))(quoted-string?(car rands_1)) #f)" "(void)" -"(let-values()(disallow e_90))))" -"(let-values()(disallow e_90)))))))))))" -"(let-values()(check-no-disallowed-expr_0 e_90)))))))))" +"(let-values()(disallow e_91))))" +"(let-values()(disallow e_91)))))))))))" +"(let-values()(check-no-disallowed-expr_0 e_91)))))))))" "((check-no-disallowed-expr_0)" "(lambda(e_39)" "(begin" @@ -70406,18 +70725,18 @@ static const char *startup_source = "(if(parsed-case-lambda? e_39)" "(let-values()" "(begin" -"(let-values(((lst_271)(parsed-case-lambda-clauses e_39)))" +"(let-values(((lst_270)(parsed-case-lambda-clauses e_39)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_271)))" -"((letrec-values(((for-loop_240)" -"(lambda(lst_415)" +"(let-values()(check-list lst_270)))" +"((letrec-values(((for-loop_241)" +"(lambda(lst_418)" "(begin" " 'for-loop" -"(if(pair? lst_415)" -"(let-values(((clause_4)(unsafe-car lst_415))" -"((rest_238)(unsafe-cdr lst_415)))" +"(if(pair? lst_418)" +"(let-values(((clause_4)(unsafe-car lst_418))" +"((rest_240)(unsafe-cdr lst_418)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70428,27 +70747,27 @@ static const char *startup_source = "(cadr clause_4)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_240 rest_238)(values))))" +"(if(not #f)(for-loop_241 rest_240)(values))))" "(values))))))" -" for-loop_240)" -" lst_271)))" +" for-loop_241)" +" lst_270)))" "(void)))" "(if(parsed-app? e_39)" "(let-values()" "(begin" "(check-no-disallowed-expr_0(parsed-app-rator e_39))" -"(let-values(((lst_223)(parsed-app-rands e_39)))" +"(let-values(((lst_222)(parsed-app-rands e_39)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_223)))" -"((letrec-values(((for-loop_105)" -"(lambda(lst_267)" +"(let-values()(check-list lst_222)))" +"((letrec-values(((for-loop_106)" +"(lambda(lst_266)" "(begin" " 'for-loop" -"(if(pair? lst_267)" -"(let-values(((e_91)(unsafe-car lst_267))" -"((rest_190)(unsafe-cdr lst_267)))" +"(if(pair? lst_266)" +"(let-values(((e_92)(unsafe-car lst_266))" +"((rest_191)(unsafe-cdr lst_266)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70456,13 +70775,13 @@ static const char *startup_source = "(begin" "(let-values()" "(check-no-disallowed-expr_0" -" e_91))" +" e_92))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_105 rest_190)(values))))" +"(if(not #f)(for-loop_106 rest_191)(values))))" "(values))))))" -" for-loop_105)" -" lst_223)))" +" for-loop_106)" +" lst_222)))" "(void)))" "(if(parsed-if? e_39)" "(let-values()" @@ -70475,12 +70794,12 @@ static const char *startup_source = "(let-values(((id_4)(parsed-set!-id e_39)))" "(let-values(((normal-b_1)(parsed-id-binding id_4)))" "(begin" -"(if(let-values(((or-part_79)(not normal-b_1)))" +"(if(let-values(((or-part_78)(not normal-b_1)))" +"(if or-part_78" +" or-part_78" +"(let-values(((or-part_79)(parsed-top-id? id_4)))" "(if or-part_79" " or-part_79" -"(let-values(((or-part_80)(parsed-top-id? id_4)))" -"(if or-part_80" -" or-part_80" "(if(not(symbol? normal-b_1))" "(eq?(module-binding-module normal-b_1) self-mpi_6)" " #f)))))" @@ -70505,15 +70824,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_253)" -"(lambda(lst_91)" +"((letrec-values(((for-loop_254)" +"(lambda(lst_90)" "(begin" " 'for-loop" -"(if(pair? lst_91)" +"(if(pair? lst_90)" "(let-values(((clause_5)" -"(unsafe-car lst_91))" -"((rest_151)" -"(unsafe-cdr lst_91)))" +"(unsafe-car lst_90))" +"((rest_150)" +"(unsafe-cdr lst_90)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70526,15 +70845,15 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_253 rest_151)" +"(for-loop_254 rest_150)" "(values))))" "(values))))))" -" for-loop_253)" +" for-loop_254)" " lst_24)))" "(void)" "(check-body-no-disallowed-expr_0(parsed-let_-values-body e_39))))" -"(if(let-values(((or-part_92)(parsed-quote-syntax? e_39)))" -"(if or-part_92 or-part_92(parsed-#%variable-reference? e_39)))" +"(if(let-values(((or-part_91)(parsed-quote-syntax? e_39)))" +"(if or-part_91 or-part_91(parsed-#%variable-reference? e_39)))" "(let-values()(disallow e_39))" "(let-values()(void)))))))))))))))" "((check-body-no-disallowed-expr_0)" @@ -70542,18 +70861,18 @@ static const char *startup_source = "(begin" " 'check-body-no-disallowed-expr" "(begin" -"(let-values(((lst_83) l_48))" +"(let-values(((lst_82) l_48))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_83)))" -"((letrec-values(((for-loop_325)" -"(lambda(lst_273)" +"(let-values()(check-list lst_82)))" +"((letrec-values(((for-loop_330)" +"(lambda(lst_272)" "(begin" " 'for-loop" -"(if(pair? lst_273)" -"(let-values(((e_92)(unsafe-car lst_273))" -"((rest_146)(unsafe-cdr lst_273)))" +"(if(pair? lst_272)" +"(let-values(((e_93)(unsafe-car lst_272))" +"((rest_146)(unsafe-cdr lst_272)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70561,13 +70880,13 @@ static const char *startup_source = "(begin" "(let-values()" "(check-no-disallowed-expr_0" -" e_92))" +" e_93))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_325 rest_146)(values))))" +"(if(not #f)(for-loop_330 rest_146)(values))))" "(values))))))" -" for-loop_325)" -" lst_83)))" +" for-loop_330)" +" lst_82)))" "(void))))))" "(check-body_0 bodys_13)))))" "(define-values" @@ -70576,36 +70895,36 @@ static const char *startup_source = "(begin(if(= is-num_0 expected-num_0)(void)(let-values()(disallow enclosing_16))))))" "(define-values" "(check-datum)" -"(lambda(d_37 e_93)" +"(lambda(d_37 e_94)" "(begin" -"(if(let-values(((or-part_162)(number? d_37)))" -"(if or-part_162" -" or-part_162" -"(let-values(((or-part_169)(boolean? d_37)))" -"(if or-part_169" -" or-part_169" -"(let-values(((or-part_170)(symbol? d_37)))" +"(if(let-values(((or-part_163)(number? d_37)))" +"(if or-part_163" +" or-part_163" +"(let-values(((or-part_170)(boolean? d_37)))" "(if or-part_170" " or-part_170" -"(let-values(((or-part_171)(string? d_37)))" +"(let-values(((or-part_171)(symbol? d_37)))" "(if or-part_171" " or-part_171" -"(let-values(((or-part_172)(bytes? d_37)))(if or-part_172 or-part_172(null? d_37)))))))))))" +"(let-values(((or-part_172)(string? d_37)))" +"(if or-part_172" +" or-part_172" +"(let-values(((or-part_173)(bytes? d_37)))(if or-part_173 or-part_173(null? d_37)))))))))))" "(let-values()(void))" -"(let-values()(disallow e_93))))))" +"(let-values()(disallow e_94))))))" "(define-values" "(quoted-string?)" -"(lambda(e_94)(begin(if(parsed-quote? e_94)(string?(parsed-quote-datum e_94)) #f))))" +"(lambda(e_95)(begin(if(parsed-quote? e_95)(string?(parsed-quote-datum e_95)) #f))))" "(define-values" "(cross-phase-primitive-name)" -"(lambda(id_148)" +"(lambda(id_151)" "(begin" -"(if(parsed-id? id_148)" +"(if(parsed-id? id_151)" "(let-values()" -"(let-values(((b_90)(parsed-id-binding id_148)))" -"(if(module-binding? b_90)" -"(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_90)))" -"(module-binding-sym b_90)" +"(let-values(((b_92)(parsed-id-binding id_151)))" +"(if(module-binding? b_92)" +"(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_92)))" +"(module-binding-sym b_92)" " #f)" " #f)))" "(let-values() #f)))))" @@ -70620,46 +70939,46 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'module" -"(lambda(s_182 ctx_106)" +"(lambda(s_185 ctx_107)" "(begin" -"(if(eq?(expand-context-context ctx_106) 'top-level)" +"(if(eq?(expand-context-context ctx_107) 'top-level)" "(void)" "(let-values()" "(begin" -"(let-values(((obs_125)(expand-context-observer ctx_106)))" +"(let-values(((obs_125)(expand-context-observer ctx_107)))" "(if obs_125(let-values()(let-values()(call-expand-observe obs_125 'prim-module)))(void)))" -" (raise-syntax-error$1 #f \"allowed only at the top level\" s_182))))" +" (raise-syntax-error$1 #f \"allowed only at the top level\" s_185))))" "(let-values()" -"(let-values(((s223_0) s_182)((ctx224_0) ctx_106)((temp225_1) #f))" +"(let-values(((s223_0) s_185)((ctx224_0) ctx_107)((temp225_1) #f))" "(expand-module18.1 #f #f #f #f #f #f #f #f #f #f #f #f #f #f s223_0 ctx224_0 temp225_1)))))))" "(void" "(add-core-form!*" " 'module*" -"(lambda(s_302 ctx_107)" +"(lambda(s_305 ctx_108)" "(begin" -"(let-values(((obs_126)(expand-context-observer ctx_107)))" +"(let-values(((obs_126)(expand-context-observer ctx_108)))" "(if obs_126(let-values()(let-values()(call-expand-observe obs_126 'prim-module)))(void)))" -" (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_302)))))" +" (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_305)))))" "(void" "(add-core-form!*" " '#%module-begin" -"(lambda(s_80 ctx_108)" +"(lambda(s_86 ctx_109)" "(begin" -"(let-values(((obs_127)(expand-context-observer ctx_108)))" +"(let-values(((obs_127)(expand-context-observer ctx_109)))" "(if obs_127(let-values()(let-values()(call-expand-observe obs_127 'prim-module-begin)))(void)))" -"(if(eq?(expand-context-context ctx_108) 'module-begin)" +"(if(eq?(expand-context-context ctx_109) 'module-begin)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a module-definition context\" s_80)))" -"(if(expand-context-module-begin-k ctx_108)" +" (let-values () (raise-syntax-error$1 #f \"not in a module-definition context\" s_86)))" +"(if(expand-context-module-begin-k ctx_109)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_80)))" -"((expand-context-module-begin-k ctx_108)" -" s_80" -"(let-values(((v_257) ctx_108))" -"(let-values(((the-struct_95) v_257))" +" (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_86)))" +"((expand-context-module-begin-k ctx_109)" +" s_86" +"(let-values(((v_258) ctx_109))" +"(let-values(((the-struct_95) v_258))" "(if(expand-context/outer? the-struct_95)" "(let-values(((inner226_0)" -"(let-values(((the-struct_96)(root-expand-context/outer-inner v_257)))" +"(let-values(((the-struct_96)(root-expand-context/outer-inner v_258)))" "(if(expand-context/inner? the-struct_96)" "(let-values(((module-begin-k227_0) #f))" "(expand-context/inner2.1" @@ -70709,11 +71028,11 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%declare" -"(lambda(s_724 ctx_109)" +"(lambda(s_731 ctx_110)" "(begin" -"(let-values(((obs_128)(expand-context-observer ctx_109)))" +"(let-values(((obs_128)(expand-context-observer ctx_110)))" "(if obs_128(let-values()(let-values()(call-expand-observe obs_128 'prim-declare)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_724)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_731)))))" "(define-values" "(expand-module18.1)" "(lambda(always-produce-compiled?1_0" @@ -70764,81 +71083,81 @@ 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_498) disarmed-s_24))" -"(let-values(((orig-s_81) s_498))" +"(let-values(((s_504) disarmed-s_24))" +"(let-values(((orig-s_81) s_504))" "(let-values(((module228_1" " id:module-name229_1" " initial-require230_1" " body231_1)" -"(let-values(((s_310)" -"(if(syntax?$1 s_498)" -"(syntax-e$1 s_498)" -" s_498)))" -"(if(pair? s_310)" +"(let-values(((s_312)" +"(if(syntax?$1 s_504)" +"(syntax-e$1 s_504)" +" s_504)))" +"(if(pair? s_312)" "(let-values(((module232_0)" -"(let-values(((s_499)(car s_310)))" -" s_499))" +"(let-values(((s_505)(car s_312)))" +" s_505))" "((id:module-name233_0" " initial-require234_0" " body235_0)" -"(let-values(((s_727)(cdr s_310)))" -"(let-values(((s_756)" -"(if(syntax?$1 s_727)" -"(syntax-e$1 s_727)" -" s_727)))" -"(if(pair? s_756)" +"(let-values(((s_734)(cdr s_312)))" +"(let-values(((s_762)" +"(if(syntax?$1 s_734)" +"(syntax-e$1 s_734)" +" s_734)))" +"(if(pair? s_762)" "(let-values(((id:module-name236_0)" -"(let-values(((s_485)" +"(let-values(((s_490)" "(car" -" s_756)))" +" s_762)))" "(if(let-values(((or-part_380)" "(if(syntax?$1" -" s_485)" +" s_490)" "(symbol?" "(syntax-e$1" -" s_485))" +" s_490))" " #f)))" "(if or-part_380" " or-part_380" "(symbol?" -" s_485)))" -" s_485" +" s_490)))" +" s_490" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_81" -" s_485))))" +" s_490))))" "((initial-require237_0" " body238_0)" "(let-values(((s_54)" "(cdr" -" s_756)))" -"(let-values(((s_312)" +" s_762)))" +"(let-values(((s_314)" "(if(syntax?$1" " s_54)" "(syntax-e$1" " s_54)" " s_54)))" "(if(pair?" -" s_312)" +" s_314)" "(let-values(((initial-require239_0)" -"(let-values(((s_314)" -"(car" -" s_312)))" -" s_314))" -"((body240_0)" -"(let-values(((s_315)" -"(cdr" -" s_312)))" "(let-values(((s_316)" +"(car" +" s_314)))" +" s_316))" +"((body240_0)" +"(let-values(((s_317)" +"(cdr" +" s_314)))" +"(let-values(((s_318)" "(if(syntax?$1" -" s_315)" +" s_317)" "(syntax-e$1" -" s_315)" -" s_315)))" +" s_317)" +" s_317)))" "(let-values(((flat-s_51)" "(to-syntax-list.1" -" s_316)))" +" s_318)))" "(if(not" " flat-s_51)" "(let-values()" @@ -70892,9 +71211,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_398) keep-enclosing-scope-at-phase_0))" -"(if or-part_398" -" or-part_398" +"(if(let-values(((or-part_57) keep-enclosing-scope-at-phase_0))" +"(if or-part_57" +" or-part_57" "(1/module-path? initial-require_0)))" "(void)" "(let-values()" @@ -70904,7 +71223,7 @@ static const char *startup_source = " s_16" " initial-require230_0)))" "(values))))" -"(let-values(((phase_150) 0))" +"(let-values(((phase_151) 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)))" @@ -70985,7 +71304,7 @@ static const char *startup_source = " ns243_0)" "(begin" " 'make-m-ns244" -"(let-values(((ns_121) ns243_0))" +"(let-values(((ns_119) ns243_0))" "(let-values(((for-submodule?_1)" "(if for-submodule?242_0" " for-submodule?241_0" @@ -70994,7 +71313,7 @@ static const char *startup_source = " #f))))" "(let-values()" "(let-values(((ns262_0)" -" ns_121)" +" ns_119)" "((self263_0)" " self_32)" "((root-ctx264_0)" @@ -71008,7 +71327,7 @@ static const char *startup_source = " ns262_0)))))))))" "(let-values()" "(let-values()" -"(let-values(((m-ns_19)" +"(let-values(((m-ns_18)" "(let-values(((temp266_2)" "(expand-context-namespace" " init-ctx_0)))" @@ -71016,7 +71335,7 @@ static const char *startup_source = " #f" " #f" " temp266_2))))" -"(let-values(((ctx_110)" +"(let-values(((ctx_111)" "(let-values(((v_102)" "(copy-root-expand-context" " init-ctx_0" @@ -71036,9 +71355,9 @@ static const char *startup_source = "(let-values(((allow-unbound?269_0)" " #f)" "((namespace270_0)" -" m-ns_19)" +" m-ns_18)" "((phase271_0)" -" phase_150)" +" phase_151)" "((just-once?272_0)" " #f))" "(expand-context/inner2.1" @@ -71134,77 +71453,77 @@ static const char *startup_source = " _274_1" " _275_1" " body276_0)" -"(let-values(((s_757)" +"(let-values(((s_763)" " scoped-s_0))" "(let-values(((orig-s_82)" -" s_757))" +" s_763))" "(let-values(((_273_2" " _274_2" " _275_2" " body276_1)" -"(let-values(((s_408)" +"(let-values(((s_411)" "(if(syntax?$1" -" s_757)" +" s_763)" "(syntax-e$1" -" s_757)" -" s_757)))" +" s_763)" +" s_763)))" "(if(pair?" -" s_408)" +" s_411)" "(let-values(((_277_1)" -"(let-values(((s_738)" +"(let-values(((s_744)" "(car" -" s_408)))" -" s_738))" +" s_411)))" +" s_744))" "((_278_0" " _279_0" " body280_0)" -"(let-values(((s_205)" -"(cdr" -" s_408)))" -"(let-values(((s_391)" -"(if(syntax?$1" -" s_205)" -"(syntax-e$1" -" s_205)" -" s_205)))" -"(if(pair?" -" s_391)" -"(let-values(((_281_0)" "(let-values(((s_208)" +"(cdr" +" s_411)))" +"(let-values(((s_394)" +"(if(syntax?$1" +" s_208)" +"(syntax-e$1" +" s_208)" +" s_208)))" +"(if(pair?" +" s_394)" +"(let-values(((_281_0)" +"(let-values(((s_211)" "(car" -" s_391)))" -" s_208))" +" s_394)))" +" s_211))" "((_282_0" " body283_0)" -"(let-values(((s_740)" +"(let-values(((s_746)" "(cdr" -" s_391)))" -"(let-values(((s_88)" +" s_394)))" +"(let-values(((s_94)" "(if(syntax?$1" -" s_740)" +" s_746)" "(syntax-e$1" -" s_740)" -" s_740)))" +" s_746)" +" s_746)))" "(if(pair?" -" s_88)" +" s_94)" "(let-values(((_284_0)" -"(let-values(((s_39)" +"(let-values(((s_68)" "(car" -" s_88)))" -" s_39))" +" s_94)))" +" s_68))" "((body285_0)" -"(let-values(((s_321)" +"(let-values(((s_323)" "(cdr" -" s_88)))" -"(let-values(((s_322)" +" s_94)))" +"(let-values(((s_324)" "(if(syntax?$1" -" s_321)" +" s_323)" "(syntax-e$1" -" s_321)" -" s_321)))" +" s_323)" +" s_323)))" "(let-values(((flat-s_52)" "(to-syntax-list.1" -" s_322)))" +" s_324)))" "(if(not" " flat-s_52)" "(let-values()" @@ -71278,7 +71597,7 @@ static const char *startup_source = "((all-scopes-s289_0)" " all-scopes-s_0)" "((m-ns290_0)" -" m-ns_19)" +" m-ns_18)" "((requires+provides291_0)" " requires+provides_6)" "((bind?292_0)" @@ -71314,7 +71633,7 @@ static const char *startup_source = " enclosing-mod296_0" " keep-enclosing-scope-at-phase297_0))" "(let-values(((m-ns298_0)" -" m-ns_19)" +" m-ns_18)" "((enclosing-mod299_0)" " enclosing-mod_1)" "((keep-enclosing-scope-at-phase300_0)" @@ -71377,22 +71696,22 @@ static const char *startup_source = "(set! again?_0" " #t)" "(values))))" -"(let-values(((ctx_111)" -"(let-values(((v_258)" +"(let-values(((ctx_112)" +"(let-values(((v_259)" " mb-init-ctx_0))" "(let-values(((the-struct_99)" -" v_258))" +" v_259))" "(if(expand-context/outer?" " the-struct_99)" "(let-values(((inner306_0)" "(let-values(((the-struct_100)" "(root-expand-context/outer-inner" -" v_258)))" +" v_259)))" "(if(expand-context/inner?" " the-struct_100)" "(let-values(((module-begin-k307_0)" -"(lambda(s_299" -" ctx_112)" +"(lambda(s_302" +" ctx_113)" "(begin" " 'module-begin-k307" "(let-values(((new-requires+provides_0)" @@ -71428,8 +71747,8 @@ static const char *startup_source = " compiled-module-box313_0)))" "(lambda()" "(module-begin-k_1" -" s_299" -" ctx_112))" +" s_302" +" ctx_113))" "(lambda()" "(begin" "(set! requires+provides_6" @@ -71534,7 +71853,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_130)" "(expand-context-observer" -" ctx_111)))" +" ctx_112)))" "(if obs_130" "(let-values()" "(let-values()" @@ -71550,38 +71869,38 @@ static const char *startup_source = "(let-values(((ok?_75" " #%module-begin301_0" " body302_0)" -"(let-values(((s_219)" +"(let-values(((s_222)" " disarmed-mb-s_0))" "(let-values(((orig-s_83)" -" s_219))" +" s_222))" "(let-values(((#%module-begin301_1" " body302_1)" -"(let-values(((s_220)" +"(let-values(((s_223)" "(if(syntax?$1" -" s_219)" +" s_222)" "(syntax-e$1" -" s_219)" -" s_219)))" +" s_222)" +" s_222)))" "(if(pair?" -" s_220)" +" s_223)" "(let-values(((#%module-begin303_0)" -"(let-values(((s_114)" +"(let-values(((s_120)" "(car" -" s_220)))" -" s_114))" +" s_223)))" +" s_120))" "((body304_0)" -"(let-values(((s_115)" +"(let-values(((s_121)" "(cdr" -" s_220)))" -"(let-values(((s_758)" +" s_223)))" +"(let-values(((s_764)" "(if(syntax?$1" -" s_115)" +" s_121)" "(syntax-e$1" -" s_115)" -" s_115)))" +" s_121)" +" s_121)))" "(let-values(((flat-s_53)" "(to-syntax-list.1" -" s_758)))" +" s_764)))" "(if(not" " flat-s_53)" "(let-values()" @@ -71606,7 +71925,7 @@ static const char *startup_source = " body302_0))" "(let-values(((rebuild-mb-s_0)" "(let-values(((ctx316_0)" -" ctx_111)" +" ctx_112)" "((mb-s317_0)" " mb-s_0))" "(keep-as-needed74.1" @@ -71629,7 +71948,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_152)" "(begin" " 'pass-1-and-2-loop" "(let-values(((def-ctx-scopes_8)" @@ -71637,12 +71956,12 @@ static const char *startup_source = " null)))" "(let-values(((to-parsed?_5)" "(expand-context-to-parsed?" -" ctx_111)))" +" ctx_112)))" "(let-values(((partial-body-ctx_0)" -"(let-values(((v_259)" -" ctx_111))" +"(let-values(((v_260)" +" ctx_112))" "(let-values(((the-struct_101)" -" v_259))" +" v_260))" "(if(expand-context/outer?" " the-struct_101)" "(let-values(((context326_0)" @@ -71654,20 +71973,20 @@ static const char *startup_source = "((inner329_0)" "(let-values(((the-struct_102)" "(root-expand-context/outer-inner" -" v_259)))" +" v_260)))" "(if(expand-context/inner?" " the-struct_102)" "(let-values(((phase330_0)" -" phase_151)" +" phase_152)" "((namespace331_0)" "(namespace->namespace-at-phase" -" m-ns_19" -" phase_151))" +" m-ns_18" +" phase_152))" "((stops332_0)" "(free-id-set" -" phase_151" +" phase_152" "(module-expand-stop-ids" -" phase_151)))" +" phase_152)))" "((declared-submodule-names333_0)" " declared-submodule-names_3)" "((lift-key334_0)" @@ -71687,13 +72006,13 @@ static const char *startup_source = " temp339_1)))" "((module-lifts336_0)" "(make-module-lift-context" -" phase_151" +" phase_152" " #t))" "((require-lifts337_0)" "(make-require-lift-context" -" phase_151" +" phase_152" "(let-values(((m-ns340_0)" -" m-ns_19)" +" m-ns_18)" "((self341_0)" " self_32)" "((requires+provides342_0)" @@ -71707,7 +72026,7 @@ static const char *startup_source = " requires+provides342_0))))" "((to-module-lifts338_0)" "(let-values(((phase344_0)" -" phase_151)" +" phase_152)" "((module-ends345_0)" " module-ends_0)" "((temp346_0)" @@ -71797,11 +72116,11 @@ static const char *startup_source = "(let-values(((bodys347_0)" " bodys_17)" "((phase348_0)" -" phase_151)" +" phase_152)" "((partial-body-ctx349_0)" " partial-body-ctx_0)" "((m-ns350_0)" -" m-ns_19)" +" m-ns_18)" "((self351_0)" " self_32)" "((frame-id352_0)" @@ -71857,12 +72176,12 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_6)" -"(let-values(((v_260)" +"(let-values(((v_261)" "(accumulate-def-ctx-scopes" " partial-body-ctx_0" " def-ctx-scopes_8)))" "(let-values(((the-struct_103)" -" v_260))" +" v_261))" "(if(expand-context/outer?" " the-struct_103)" "(let-values(((def-ctx-scopes363_0)" @@ -71872,14 +72191,14 @@ static const char *startup_source = "((inner365_0)" "(let-values(((the-struct_104)" "(root-expand-context/outer-inner" -" v_260)))" +" v_261)))" "(if(expand-context/inner?" " the-struct_104)" "(let-values(((stops366_0)" " empty-free-id-set)" "((to-module-lifts367_0)" "(let-values(((phase368_0)" -" phase_151)" +" phase_152)" "((module-ends369_0)" " module-ends_0)" "((temp370_0)" @@ -71976,7 +72295,7 @@ static const char *startup_source = "(let-values(((partially-expanded-bodys318_0)" " partially-expanded-bodys_0)" "((phase319_0)" -" phase_151)" +" phase_152)" "((body-ctx320_0)" " body-ctx_6)" "((self321_0)" @@ -72000,19 +72319,19 @@ static const char *startup_source = " partially-expanded-bodys318_0))))))))))))" " pass-1-and-2-loop_0)" " bodys_16" -" phase_150)))" +" phase_151)))" "(let-values((()" "(begin" "(check-defined-by-now" " need-eventually-defined_1" " self_32" -" ctx_111)" +" ctx_112)" "(values))))" "(let-values((()" "(begin" "(let-values(((obs_132)" "(expand-context-observer" -" ctx_111)))" +" ctx_112)))" "(if obs_132" "(let-values()" "(let-values()" @@ -72029,13 +72348,13 @@ static const char *startup_source = "((declared-submodule-names373_0)" " declared-submodule-names_3)" "((m-ns374_0)" -" m-ns_19)" +" m-ns_18)" "((phase375_0)" -" phase_150)" +" phase_151)" "((self376_0)" " self_32)" "((ctx377_0)" -" ctx_111))" +" ctx_112))" "(resolve-provides115.1" " ctx377_0" " declared-submodule-names373_0" @@ -72074,7 +72393,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_80)" "(expand-context-observer" -" ctx_111)))" +" ctx_112)))" "(if obs_80" "(let-values()" "(let-values()" @@ -72085,7 +72404,7 @@ static const char *startup_source = "(values))))" "(let-values(((submod-m-ns_0)" "(let-values(((m-ns378_0)" -" m-ns_19)" +" m-ns_18)" "((temp379_0)" " #t))" "(make-m-ns244_0" @@ -72093,10 +72412,10 @@ static const char *startup_source = " #t" " m-ns378_0))))" "(let-values(((submod-ctx_0)" -"(let-values(((v_261)" -" ctx_111))" +"(let-values(((v_262)" +" ctx_112))" "(let-values(((the-struct_105)" -" v_261))" +" v_262))" "(if(expand-context/outer?" " the-struct_105)" "(let-values(((frame-id380_0)" @@ -72106,7 +72425,7 @@ static const char *startup_source = "((inner382_0)" "(let-values(((the-struct_106)" "(root-expand-context/outer-inner" -" v_261)))" +" v_262)))" "(if(expand-context/inner?" " the-struct_106)" "(let-values(((namespace383_0)" @@ -72247,7 +72566,7 @@ static const char *startup_source = "((declare-enclosing-module396_0)" " declare-enclosing-module_0)" "((phase397_0)" -" phase_150)" +" phase_151)" "((self398_0)" " self_32)" "((requires+provides399_0)" @@ -72313,10 +72632,10 @@ static const char *startup_source = "(let-values()" " mb-result-s_0)))))))))))))))))))))))))))))))))" "(let-values(((mb-ctx_0)" -"(let-values(((v_262)" -" ctx_110))" +"(let-values(((v_263)" +" ctx_111))" "(let-values(((the-struct_107)" -" v_262))" +" v_263))" "(if(expand-context/outer?" " the-struct_107)" "(let-values(((context409_0)" @@ -72324,7 +72643,7 @@ static const char *startup_source = "((inner410_0)" "(let-values(((the-struct_108)" "(root-expand-context/outer-inner" -" v_262)))" +" v_263)))" "(if(expand-context/inner?" " the-struct_108)" "(let-values(((module-begin-k411_0)" @@ -72433,13 +72752,13 @@ static const char *startup_source = "((mb-scopes-s415_0)" " mb-scopes-s_0)" "((m-ns416_0)" -" m-ns_19)" +" m-ns_18)" "((mb-ctx417_0)" " mb-ctx_0)" "((mb-def-ctx-scopes418_0)" " mb-def-ctx-scopes_0)" "((phase419_0)" -" phase_150)" +" phase_151)" "((s420_0)" " s_16))" "(ensure-module-begin36.1" @@ -72473,11 +72792,11 @@ static const char *startup_source = " self_32" " self_32)))" "(let-values(((result-form_0)" -"(if(let-values(((or-part_357)" +"(if(let-values(((or-part_355)" "(expand-context-to-parsed?" " init-ctx_0)))" -"(if or-part_357" -" or-part_357" +"(if or-part_355" +" or-part_355" " always-produce-compiled?_0))" "(parsed-module25.1" " rebuild-s_14" @@ -72513,7 +72832,7 @@ static const char *startup_source = "(begin" "(imitate-generic-module-path-index!" " self_32)" -"(let-values(((lst_144)" +"(let-values(((lst_143)" "(unbox" " mpis-to-reset_0)))" "(begin" @@ -72522,19 +72841,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_144)))" -"((letrec-values(((for-loop_139)" -"(lambda(lst_416)" +" lst_143)))" +"((letrec-values(((for-loop_140)" +"(lambda(lst_419)" "(begin" " 'for-loop" "(if(pair?" -" lst_416)" -"(let-values(((mpi_54)" +" lst_419)" +"(let-values(((mpi_56)" "(unsafe-car" -" lst_416))" -"((rest_239)" +" lst_419))" +"((rest_241)" "(unsafe-cdr" -" lst_416)))" +" lst_419)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -72542,17 +72861,17 @@ static const char *startup_source = "(begin" "(let-values()" "(imitate-generic-module-path-index!" -" mpi_54))" +" mpi_56))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_139" -" rest_239)" +"(for-loop_140" +" rest_241)" "(values))))" "(values))))))" -" for-loop_139)" -" lst_144)))" +" for-loop_140)" +" lst_143)))" "(void)" "(let-values(((result-s_15)" "(let-values(((rebuild-s423_0)" @@ -72632,22 +72951,22 @@ 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_113) ctx24_0))" +"(let-values(((ctx_114) ctx24_0))" "(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))" -"(let-values(((phase_152) phase26_3))" -"(let-values(((s_759) s27_2))" +"(let-values(((phase_153) phase26_3))" +"(let-values(((s_765) s27_2))" "(let-values()" "(let-values(((make-mb-ctx_0)" "(lambda()" "(begin" " 'make-mb-ctx" -"(let-values(((v_263) ctx_113))" -"(let-values(((the-struct_109) v_263))" +"(let-values(((v_264) ctx_114))" +"(let-values(((the-struct_109) v_264))" "(if(expand-context/outer? the-struct_109)" "(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_263)))" +"((inner431_0)(root-expand-context/outer-inner v_264)))" "(expand-context/outer1.1" " inner431_0" "(root-expand-context/outer-post-expansion-scope the-struct_109)" @@ -72672,7 +72991,7 @@ static const char *startup_source = "(if(= 1(length bodys_18))" "(let-values()" "(begin" -"(let-values(((obs_134)(expand-context-observer ctx_113)))" +"(let-values(((obs_134)(expand-context-observer ctx_114)))" "(if obs_134" "(let-values()" "(let-values()" @@ -72680,7 +72999,7 @@ static const char *startup_source = "(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_153))" "(let-values()(car bodys_18))" "(let-values()" "(let-values(((partly-expanded-body_0)" @@ -72695,13 +73014,13 @@ static const char *startup_source = " '#%module-begin" "(core-form-sym" "(syntax-disarm$1 partly-expanded-body_0)" -" phase_152))" +" phase_153))" "(let-values() partly-expanded-body_0)" "(let-values()" "(let-values(((temp434_0)(list partly-expanded-body_0))" -"((s435_1) s_759)" +"((s435_1) s_765)" "((scopes-s436_0) scopes-s_0)" -"((phase437_0) phase_152)" +"((phase437_0) phase_153)" "((module-name-sym438_0) module-name-sym_1)" "((temp439_1)(make-mb-ctx_0))" "((temp440_0) #f))" @@ -72716,9 +73035,9 @@ static const char *startup_source = " temp439_1)))))))))" "(let-values()" "(let-values(((bodys441_0) bodys_18)" -"((s442_0) s_759)" +"((s442_0) s_765)" "((scopes-s443_0) scopes-s_0)" -"((phase444_0) phase_152)" +"((phase444_0) phase_153)" "((module-name-sym445_0) module-name-sym_1)" "((temp446_0)(make-mb-ctx_0)))" "(add-module-begin47.1" @@ -72744,9 +73063,9 @@ static const char *startup_source = "(begin" " 'add-module-begin47" "(let-values(((bodys_19) bodys41_0))" -"(let-values(((s_133) s42_0))" +"(let-values(((s_139) s42_0))" "(let-values(((scopes-s_1) scopes-s43_0))" -"(let-values(((phase_153) phase44_1))" +"(let-values(((phase_154) 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)))" @@ -72755,17 +73074,17 @@ static const char *startup_source = "(let-values(((mb-id_0)(datum->syntax$1 disarmed-scopes-s_0 '#%module-begin)))" "(let-values((()" "(begin" -"(if(let-values(((mb-id447_0) mb-id_0)((phase448_0) phase_153))" +"(if(let-values(((mb-id447_0) mb-id_0)((phase448_0) phase_154))" "(resolve40.1 #f #f #f #f #f #f #f #f mb-id447_0 phase448_0))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"no #%module-begin binding in the module's language\"" -" s_133)))" +" s_139)))" "(values))))" "(let-values(((mb_2)" -"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_133 s_133)))" +"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_139 s_139)))" "(let-values((()" "(begin" "(let-values(((obs_135)(expand-context-observer mb-ctx_1)))" @@ -72795,13 +73114,13 @@ static const char *startup_source = "(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_154))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"expansion of #%module-begin is not a #%plain-module-begin form\"" -" s_133" +" s_139" " partly-expanded-mb_0)))" " partly-expanded-mb_0)))))))))))))))))))" "(define-values" @@ -72817,13 +73136,13 @@ static const char *startup_source = " enclosing-self_2" " enclosing-mod_2)" "(begin" -"(lambda(s_760)" +"(lambda(s_766)" "(let-values()" "(let-values(((s-without-enclosing_0)" "(if keep-enclosing-scope-at-phase_1" -" s_760" +" s_766" "(remove-use-site-scopes" -"(remove-scopes s_760(root-expand-context-module-scopes init-ctx_1))" +"(remove-scopes s_766(root-expand-context-module-scopes init-ctx_1))" " init-ctx_1))))" "(let-values(((s-with-edges_0)" "(add-scope(add-scope s-without-enclosing_0 outside-scope_2) inside-scope_1)))" @@ -72875,9 +73194,9 @@ static const char *startup_source = "(begin" " 'partially-expand-bodys81" "(let-values(((bodys_20) bodys80_0))" -"(let-values(((phase_154) phase50_0))" +"(let-values(((phase_155) phase50_0))" "(let-values(((partial-body-ctx_1) ctx51_0))" -"(let-values(((m-ns_20) namespace52_0))" +"(let-values(((m-ns_19) namespace52_0))" "(let-values(((self_34) self53_0))" "(let-values(((frame-id_17) frame-id54_0))" "(let-values(((requires+provides_7) requires-and-provides55_0))" @@ -72892,14 +73211,14 @@ static const char *startup_source = "(let-values(((pass-1-and-2-loop_1) loop64_0))" "(let-values()" "(begin" -"(namespace-visit-available-modules! m-ns_20 phase_154)" +"(namespace-visit-available-modules! m-ns_19 phase_155)" "((letrec-values(((loop_125)" "(lambda(tail?_52 bodys_21)" "(begin" " 'loop" "(if(null? bodys_21)" "(let-values()" -"(if(if tail?_52(not(zero? phase_154)) #f)" +"(if(if tail?_52(not(zero? phase_155)) #f)" "(let-values()" "(begin" "(let-values(((obs_137)" @@ -73003,49 +73322,49 @@ static const char *startup_source = "(lambda()" "(begin" " 'finish" -"(let-values(((tmp_64)" +"(let-values(((tmp_66)" "(core-form-sym" " disarmed-exp-body_1" -" phase_154)))" +" phase_155)))" "(if(equal?" -" tmp_64" +" tmp_66" " 'begin)" "(let-values()" "(let-values(((ok?_76" " begin460_0" " e461_0)" -"(let-values(((s_761)" +"(let-values(((s_767)" " disarmed-exp-body_1))" "(let-values(((orig-s_84)" -" s_761))" +" s_767))" "(let-values(((begin460_1" " e461_1)" -"(let-values(((s_762)" +"(let-values(((s_768)" "(if(syntax?$1" -" s_761)" +" s_767)" "(syntax-e$1" -" s_761)" -" s_761)))" +" s_767)" +" s_767)))" "(if(pair?" -" s_762)" +" s_768)" "(let-values(((begin462_0)" -"(let-values(((s_763)" +"(let-values(((s_769)" "(car" -" s_762)))" -" s_763))" +" s_768)))" +" s_769))" "((e463_0)" -"(let-values(((s_764)" +"(let-values(((s_770)" "(cdr" -" s_762)))" -"(let-values(((s_765)" +" s_768)))" +"(let-values(((s_771)" "(if(syntax?$1" -" s_764)" +" s_770)" "(syntax-e$1" -" s_764)" -" s_764)))" +" s_770)" +" s_770)))" "(let-values(((flat-s_54)" "(to-syntax-list.1" -" s_765)))" +" s_771)))" "(if(not" " flat-s_54)" "(let-values()" @@ -73067,11 +73386,11 @@ static const char *startup_source = " begin460_1" " e461_1))))))" "(let-values(((track_1)" -"(lambda(e_95)" +"(lambda(e_96)" "(begin" " 'track" "(syntax-track-origin$1" -" e_95" +" e_96" " exp-body_7)))))" "(let-values(((spliced-bodys_0)" "(append" @@ -73095,7 +73414,7 @@ static const char *startup_source = " tail?_52" " spliced-bodys_0))))))" "(if(equal?" -" tmp_64" +" tmp_66" " 'begin-for-syntax)" "(let-values()" "(let-values((()" @@ -73121,9 +73440,9 @@ static const char *startup_source = "(values))))" "(let-values(((ct-m-ns_0)" "(namespace->namespace-at-phase" -" m-ns_20" +" m-ns_19" "(add1" -" phase_154))))" +" phase_155))))" "(let-values((()" "(begin" "(prepare-next-phase-namespace" @@ -73145,38 +73464,38 @@ static const char *startup_source = "(let-values(((ok?_77" " begin-for-syntax464_0" " e465_0)" -"(let-values(((s_766)" +"(let-values(((s_772)" " disarmed-exp-body_1))" "(let-values(((orig-s_85)" -" s_766))" +" s_772))" "(let-values(((begin-for-syntax464_1" " e465_1)" -"(let-values(((s_767)" +"(let-values(((s_773)" "(if(syntax?$1" -" s_766)" +" s_772)" "(syntax-e$1" -" s_766)" -" s_766)))" +" s_772)" +" s_772)))" "(if(pair?" -" s_767)" +" s_773)" "(let-values(((begin-for-syntax466_0)" -"(let-values(((s_768)" +"(let-values(((s_774)" "(car" -" s_767)))" -" s_768))" +" s_773)))" +" s_774))" "((e467_0)" -"(let-values(((s_769)" +"(let-values(((s_775)" "(cdr" -" s_767)))" -"(let-values(((s_770)" +" s_773)))" +"(let-values(((s_776)" "(if(syntax?$1" -" s_769)" +" s_775)" "(syntax-e$1" -" s_769)" -" s_769)))" +" s_775)" +" s_775)))" "(let-values(((flat-s_55)" "(to-syntax-list.1" -" s_770)))" +" s_776)))" "(if(not" " flat-s_55)" "(let-values()" @@ -73201,7 +73520,7 @@ static const char *startup_source = "(pass-1-and-2-loop_1" " e465_0" "(add1" -" phase_154))))" +" phase_155))))" "(begin" "(let-values(((obs_144)" "(expand-context-observer" @@ -73214,19 +73533,19 @@ static const char *startup_source = " 'next-group)))" "(void)))" "(namespace-run-available-modules!" -" m-ns_20" +" m-ns_19" "(add1" -" phase_154))" +" phase_155))" "(eval-nested-bodys" " nested-bodys_1" "(add1" -" phase_154)" +" phase_155)" " ct-m-ns_0" " self_34" " partial-body-ctx_1)" "(namespace-visit-available-modules!" -" m-ns_20" -" phase_154)" +" m-ns_19" +" phase_155)" "(let-values(((obs_145)" "(expand-context-observer" " partial-body-ctx_1)))" @@ -73238,7 +73557,7 @@ static const char *startup_source = " 'exit-prim" "(let-values(((s-nested-bodys_0)" "(reverse$1" -"(let-values(((lst_417)" +"(let-values(((lst_420)" " nested-bodys_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -73246,42 +73565,42 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_417)))" -"((letrec-values(((for-loop_326)" -"(lambda(fold-var_373" -" lst_418)" +" lst_420)))" +"((letrec-values(((for-loop_331)" +"(lambda(fold-var_383" +" lst_421)" "(begin" " 'for-loop" "(if(pair?" -" lst_418)" +" lst_421)" "(let-values(((nested-body_0)" "(unsafe-car" -" lst_418))" -"((rest_240)" +" lst_421))" +"((rest_242)" "(unsafe-cdr" -" lst_418)))" -"(let-values(((fold-var_374)" -"(let-values(((fold-var_375)" -" fold-var_373))" -"(let-values(((fold-var_376)" +" lst_421)))" +"(let-values(((fold-var_384)" +"(let-values(((fold-var_385)" +" fold-var_383))" +"(let-values(((fold-var_386)" "(let-values()" "(cons" "(let-values()" "(extract-syntax" " nested-body_0))" -" fold-var_375))))" +" fold-var_385))))" "(values" -" fold-var_376)))))" +" fold-var_386)))))" "(if(not" " #f)" -"(for-loop_326" -" fold-var_374" -" rest_240)" -" fold-var_374)))" -" fold-var_373)))))" -" for-loop_326)" +"(for-loop_331" +" fold-var_384" +" rest_242)" +" fold-var_384)))" +" fold-var_383)))))" +" for-loop_331)" " null" -" lst_417))))))" +" lst_420))))))" "(datum->syntax$1" " #f" "(cons" @@ -73297,7 +73616,7 @@ static const char *startup_source = " tail?_52" " rest-bodys_1))))))))))" "(if(equal?" -" tmp_64" +" tmp_66" " 'define-values)" "(let-values()" "(let-values((()" @@ -73322,52 +73641,52 @@ static const char *startup_source = " define-values468_0" " id469_0" " rhs470_0)" -"(let-values(((s_771)" +"(let-values(((s_777)" " disarmed-exp-body_1))" "(let-values(((orig-s_86)" -" s_771))" +" s_777))" "(let-values(((define-values468_1" " id469_1" " rhs470_1)" -"(let-values(((s_772)" +"(let-values(((s_778)" "(if(syntax?$1" -" s_771)" +" s_777)" "(syntax-e$1" -" s_771)" -" s_771)))" +" s_777)" +" s_777)))" "(if(pair?" -" s_772)" +" s_778)" "(let-values(((define-values471_0)" -"(let-values(((s_773)" +"(let-values(((s_779)" "(car" -" s_772)))" -" s_773))" +" s_778)))" +" s_779))" "((id472_0" " rhs473_0)" -"(let-values(((s_191)" +"(let-values(((s_195)" "(cdr" -" s_772)))" -"(let-values(((s_774)" +" s_778)))" +"(let-values(((s_780)" "(if(syntax?$1" -" s_191)" +" s_195)" "(syntax-e$1" -" s_191)" -" s_191)))" +" s_195)" +" s_195)))" "(if(pair?" -" s_774)" +" s_780)" "(let-values(((id474_0)" -"(let-values(((s_775)" +"(let-values(((s_781)" "(car" -" s_774)))" -"(let-values(((s_776)" +" s_780)))" +"(let-values(((s_782)" "(if(syntax?$1" -" s_775)" +" s_781)" "(syntax-e$1" -" s_775)" -" s_775)))" +" s_781)" +" s_781)))" "(let-values(((flat-s_56)" "(to-syntax-list.1" -" s_776)))" +" s_782)))" "(if(not" " flat-s_56)" "(let-values()" @@ -73376,8 +73695,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_86))" "(let-values()" -"(let-values(((id_149)" -"(let-values(((lst_419)" +"(let-values(((id_152)" +"(let-values(((lst_422)" " flat-s_56))" "(begin" "(if(variable-reference-from-unsafe?" @@ -73385,90 +73704,90 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_419)))" -"((letrec-values(((for-loop_327)" -"(lambda(id_150" -" lst_420)" +" lst_422)))" +"((letrec-values(((for-loop_332)" +"(lambda(id_153" +" lst_423)" "(begin" " 'for-loop" "(if(pair?" -" lst_420)" -"(let-values(((s_777)" +" lst_423)" +"(let-values(((s_783)" "(unsafe-car" -" lst_420))" -"((rest_241)" +" lst_423))" +"((rest_243)" "(unsafe-cdr" -" lst_420)))" -"(let-values(((id_151)" -"(let-values(((id_152)" -" id_150))" -"(let-values(((id_153)" +" lst_423)))" +"(let-values(((id_154)" +"(let-values(((id_155)" +" id_153))" +"(let-values(((id_156)" "(let-values()" "(let-values(((id484_0)" "(let-values()" -"(if(let-values(((or-part_408)" +"(if(let-values(((or-part_406)" "(if(syntax?$1" -" s_777)" +" s_783)" "(symbol?" "(syntax-e$1" -" s_777))" +" s_783))" " #f)))" -"(if or-part_408" -" or-part_408" +"(if or-part_406" +" or-part_406" "(symbol?" -" s_777)))" -" s_777" +" s_783)))" +" s_783" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_86" -" s_777)))))" +" s_783)))))" "(cons" " id484_0" -" id_152)))))" +" id_155)))))" "(values" -" id_153)))))" +" id_156)))))" "(if(not" " #f)" -"(for-loop_327" -" id_151" -" rest_241)" -" id_151)))" -" id_150)))))" -" for-loop_327)" +"(for-loop_332" +" id_154" +" rest_243)" +" id_154)))" +" id_153)))))" +" for-loop_332)" " null" -" lst_419)))))" +" lst_422)))))" "(reverse$1" -" id_149))))))))" +" id_152))))))))" "((rhs475_0)" -"(let-values(((s_778)" +"(let-values(((s_784)" "(cdr" -" s_774)))" -"(let-values(((s_779)" +" s_780)))" +"(let-values(((s_785)" "(if(syntax?$1" -" s_778)" +" s_784)" "(syntax-e$1" -" s_778)" -" s_778)))" +" s_784)" +" s_784)))" "(if(pair?" -" s_779)" +" s_785)" "(let-values(((rhs476_0)" -"(let-values(((s_780)" +"(let-values(((s_786)" "(car" -" s_779)))" -" s_780))" +" s_785)))" +" s_786))" "(()" -"(let-values(((s_781)" +"(let-values(((s_787)" "(cdr" -" s_779)))" -"(let-values(((s_782)" +" s_785)))" +"(let-values(((s_788)" "(if(syntax?$1" -" s_781)" +" s_787)" "(syntax-e$1" -" s_781)" -" s_781)))" +" s_787)" +" s_787)))" "(if(null?" -" s_782)" +" s_788)" "(values)" "(raise-syntax-error$1" " #f" @@ -73509,7 +73828,7 @@ static const char *startup_source = "(let-values(((ids477_0)" " ids_43)" "((phase478_0)" -" phase_154)" +" phase_155)" "((exp-body479_0)" " exp-body_7))" "(check-no-duplicate-ids8.1" @@ -73526,7 +73845,7 @@ static const char *startup_source = "(let-values(((ids480_0)" " ids_43)" "((phase481_0)" -" phase_154)" +" phase_155)" "((requires+provides482_0)" " requires+provides_7)" "((exp-body483_0)" @@ -73545,7 +73864,7 @@ static const char *startup_source = "((self487_0)" " self_34)" "((phase488_0)" -" phase_154)" +" phase_155)" "((all-scopes-stx489_0)" " all-scopes-stx_5)" "((frame-id490_0)" @@ -73573,7 +73892,7 @@ static const char *startup_source = "(add-defined-syms!" " requires+provides_7" " syms_24" -" phase_154)" +" phase_155)" "(let-values(((obs_147)" "(expand-context-observer" " partial-body-ctx_1)))" @@ -73601,7 +73920,7 @@ static const char *startup_source = " tail?_52" " rest-bodys_1))))))))))" "(if(equal?" -" tmp_64" +" tmp_66" " 'define-syntaxes)" "(let-values()" "(let-values((()" @@ -73647,52 +73966,52 @@ static const char *startup_source = " define-syntaxes493_0" " id494_0" " rhs495_0)" -"(let-values(((s_783)" +"(let-values(((s_789)" " disarmed-exp-body_1))" "(let-values(((orig-s_87)" -" s_783))" +" s_789))" "(let-values(((define-syntaxes493_1" " id494_1" " rhs495_1)" -"(let-values(((s_784)" +"(let-values(((s_790)" "(if(syntax?$1" -" s_783)" +" s_789)" "(syntax-e$1" -" s_783)" -" s_783)))" +" s_789)" +" s_789)))" "(if(pair?" -" s_784)" +" s_790)" "(let-values(((define-syntaxes496_0)" -"(let-values(((s_785)" +"(let-values(((s_791)" "(car" -" s_784)))" -" s_785))" +" s_790)))" +" s_791))" "((id497_0" " rhs498_0)" -"(let-values(((s_786)" +"(let-values(((s_792)" "(cdr" -" s_784)))" -"(let-values(((s_533)" +" s_790)))" +"(let-values(((s_540)" "(if(syntax?$1" -" s_786)" +" s_792)" "(syntax-e$1" -" s_786)" -" s_786)))" +" s_792)" +" s_792)))" "(if(pair?" -" s_533)" +" s_540)" "(let-values(((id499_0)" -"(let-values(((s_787)" +"(let-values(((s_793)" "(car" -" s_533)))" -"(let-values(((s_534)" +" s_540)))" +"(let-values(((s_541)" "(if(syntax?$1" -" s_787)" +" s_793)" "(syntax-e$1" -" s_787)" -" s_787)))" +" s_793)" +" s_793)))" "(let-values(((flat-s_57)" "(to-syntax-list.1" -" s_534)))" +" s_541)))" "(if(not" " flat-s_57)" "(let-values()" @@ -73701,8 +74020,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_87))" "(let-values()" -"(let-values(((id_154)" -"(let-values(((lst_421)" +"(let-values(((id_157)" +"(let-values(((lst_424)" " flat-s_57))" "(begin" "(if(variable-reference-from-unsafe?" @@ -73710,90 +74029,90 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_421)))" -"((letrec-values(((for-loop_328)" -"(lambda(id_155" -" lst_422)" +" lst_424)))" +"((letrec-values(((for-loop_333)" +"(lambda(id_158" +" lst_425)" "(begin" " 'for-loop" "(if(pair?" -" lst_422)" -"(let-values(((s_537)" +" lst_425)" +"(let-values(((s_544)" "(unsafe-car" -" lst_422))" -"((rest_242)" +" lst_425))" +"((rest_244)" "(unsafe-cdr" -" lst_422)))" -"(let-values(((id_156)" -"(let-values(((id_157)" -" id_155))" -"(let-values(((id_158)" +" lst_425)))" +"(let-values(((id_159)" +"(let-values(((id_160)" +" id_158))" +"(let-values(((id_161)" "(let-values()" "(let-values(((id509_0)" "(let-values()" -"(if(let-values(((or-part_409)" +"(if(let-values(((or-part_407)" "(if(syntax?$1" -" s_537)" +" s_544)" "(symbol?" "(syntax-e$1" -" s_537))" +" s_544))" " #f)))" -"(if or-part_409" -" or-part_409" +"(if or-part_407" +" or-part_407" "(symbol?" -" s_537)))" -" s_537" +" s_544)))" +" s_544" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_87" -" s_537)))))" +" s_544)))))" "(cons" " id509_0" -" id_157)))))" +" id_160)))))" "(values" -" id_158)))))" +" id_161)))))" "(if(not" " #f)" -"(for-loop_328" -" id_156" -" rest_242)" -" id_156)))" -" id_155)))))" -" for-loop_328)" +"(for-loop_333" +" id_159" +" rest_244)" +" id_159)))" +" id_158)))))" +" for-loop_333)" " null" -" lst_421)))))" +" lst_424)))))" "(reverse$1" -" id_154))))))))" +" id_157))))))))" "((rhs500_0)" -"(let-values(((s_788)" +"(let-values(((s_794)" "(cdr" -" s_533)))" -"(let-values(((s_789)" +" s_540)))" +"(let-values(((s_795)" "(if(syntax?$1" -" s_788)" +" s_794)" "(syntax-e$1" -" s_788)" -" s_788)))" +" s_794)" +" s_794)))" "(if(pair?" -" s_789)" +" s_795)" "(let-values(((rhs501_0)" -"(let-values(((s_790)" +"(let-values(((s_796)" "(car" -" s_789)))" -" s_790))" +" s_795)))" +" s_796))" "(()" -"(let-values(((s_791)" +"(let-values(((s_797)" "(cdr" -" s_789)))" -"(let-values(((s_792)" +" s_795)))" +"(let-values(((s_798)" "(if(syntax?$1" -" s_791)" +" s_797)" "(syntax-e$1" -" s_791)" -" s_791)))" +" s_797)" +" s_797)))" "(if(null?" -" s_792)" +" s_798)" "(values)" "(raise-syntax-error$1" " #f" @@ -73834,7 +74153,7 @@ static const char *startup_source = "(let-values(((ids502_0)" " ids_44)" "((phase503_0)" -" phase_154)" +" phase_155)" "((exp-body504_0)" " exp-body_7))" "(check-no-duplicate-ids8.1" @@ -73851,7 +74170,7 @@ static const char *startup_source = "(let-values(((ids505_0)" " ids_44)" "((phase506_0)" -" phase_154)" +" phase_155)" "((requires+provides507_0)" " requires+provides_7)" "((exp-body508_0)" @@ -73870,7 +74189,7 @@ static const char *startup_source = "((self512_0)" " self_34)" "((phase513_0)" -" phase_154)" +" phase_155)" "((all-scopes-stx514_0)" " all-scopes-stx_5)" "((frame-id515_0)" @@ -73901,7 +74220,7 @@ static const char *startup_source = "(add-defined-syms!" " requires+provides_7" " syms_25" -" phase_154)" +" phase_155)" "(values))))" "(let-values(((exp-rhs_5" " parsed-rhs_2" @@ -73911,10 +74230,10 @@ static const char *startup_source = "((ids520_0)" " ids_44)" "((temp521_0)" -"(let-values(((v_264)" +"(let-values(((v_265)" " partial-body-ctx_1))" "(let-values(((the-struct_110)" -" v_264))" +" v_265))" "(if(expand-context/outer?" " the-struct_110)" "(let-values(((need-eventually-defined523_0)" @@ -73922,7 +74241,7 @@ static const char *startup_source = "((inner524_0)" "(let-values(((the-struct_111)" "(root-expand-context/outer-inner" -" v_264)))" +" v_265)))" "(if(expand-context/inner?" " the-struct_111)" "(let-values(((lifts525_0)" @@ -74026,11 +74345,11 @@ static const char *startup_source = " temp521_0))))" "(let-values((()" "(begin" -"(let-values(((lst_423)" +"(let-values(((lst_426)" " syms_25)" -"((lst_424)" +"((lst_427)" " vals_10)" -"((lst_425)" +"((lst_428)" " ids_44))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74038,51 +74357,51 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_423)))" +" lst_426)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_424)))" +" lst_427)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_425)))" -"((letrec-values(((for-loop_329)" -"(lambda(lst_426" -" lst_427" -" lst_428)" +" lst_428)))" +"((letrec-values(((for-loop_334)" +"(lambda(lst_429" +" lst_430" +" lst_431)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_426)" +" lst_429)" "(if(pair?" -" lst_427)" +" lst_430)" "(pair?" -" lst_428)" +" lst_431)" " #f)" " #f)" "(let-values(((sym_104)" "(unsafe-car" -" lst_426))" -"((rest_243)" +" lst_429))" +"((rest_245)" "(unsafe-cdr" -" lst_426))" -"((val_85)" +" lst_429))" +"((val_88)" "(unsafe-car" -" lst_427))" -"((rest_244)" +" lst_430))" +"((rest_246)" "(unsafe-cdr" -" lst_427))" -"((id_159)" +" lst_430))" +"((id_162)" "(unsafe-car" -" lst_428))" -"((rest_229)" +" lst_431))" +"((rest_230)" "(unsafe-cdr" -" lst_428)))" +" lst_431)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74091,29 +74410,29 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_85" -" id_159" -" phase_154" +" val_88" +" id_162" +" phase_155" " partial-body-ctx_1)" "(namespace-set-transformer!" -" m-ns_20" -" phase_154" +" m-ns_19" +" phase_155" " sym_104" -" val_85)))" +" val_88)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_329" -" rest_243" -" rest_244" -" rest_229)" +"(for-loop_334" +" rest_245" +" rest_246" +" rest_230)" "(values))))" "(values))))))" -" for-loop_329)" -" lst_423" -" lst_424" -" lst_425)))" +" for-loop_334)" +" lst_426" +" lst_427" +" lst_428)))" "(values))))" "(let-values()" "(let-values((()" @@ -74164,7 +74483,7 @@ static const char *startup_source = " tail?_52" " rest-bodys_1)))))))))))))))))" "(if(equal?" -" tmp_64" +" tmp_66" " '#%require)" "(let-values()" "(let-values((()" @@ -74192,38 +74511,38 @@ static const char *startup_source = "(let-values(((ok?_80" " #%require530_0" " req531_0)" -"(let-values(((s_793)" +"(let-values(((s_799)" " ready-body_0))" "(let-values(((orig-s_88)" -" s_793))" +" s_799))" "(let-values(((#%require530_1" " req531_1)" -"(let-values(((s_794)" +"(let-values(((s_800)" "(if(syntax?$1" -" s_793)" +" s_799)" "(syntax-e$1" -" s_793)" -" s_793)))" +" s_799)" +" s_799)))" "(if(pair?" -" s_794)" +" s_800)" "(let-values(((#%require532_0)" -"(let-values(((s_795)" +"(let-values(((s_801)" "(car" -" s_794)))" -" s_795))" +" s_800)))" +" s_801))" "((req533_0)" -"(let-values(((s_796)" +"(let-values(((s_802)" "(cdr" -" s_794)))" -"(let-values(((s_797)" +" s_800)))" +"(let-values(((s_803)" "(if(syntax?$1" -" s_796)" +" s_802)" "(syntax-e$1" -" s_796)" -" s_796)))" +" s_802)" +" s_802)))" "(let-values(((flat-s_58)" "(to-syntax-list.1" -" s_797)))" +" s_803)))" "(if(not" " flat-s_58)" "(let-values()" @@ -74252,11 +74571,11 @@ static const char *startup_source = "((self536_0)" " self_34)" "((m-ns537_0)" -" m-ns_20)" +" m-ns_19)" "((phase538_0)" -" phase_154)" +" phase_155)" "((phase539_0)" -" phase_154)" +" phase_155)" "((requires+provides540_0)" " requires+provides_7)" "((declared-submodule-names541_0)" @@ -74305,7 +74624,7 @@ static const char *startup_source = " tail?_52" " rest-bodys_1)))))))" "(if(equal?" -" tmp_64" +" tmp_66" " '#%provide)" "(let-values()" "(cons" @@ -74314,7 +74633,7 @@ static const char *startup_source = " tail?_52" " rest-bodys_1)))" "(if(equal?" -" tmp_64" +" tmp_66" " 'module)" "(let-values()" "(let-values(((ready-body_1)" @@ -74361,7 +74680,7 @@ static const char *startup_source = " tail?_52" " rest-bodys_1)))))" "(if(equal?" -" tmp_64" +" tmp_66" " 'module*)" "(let-values()" "(begin" @@ -74390,44 +74709,44 @@ static const char *startup_source = " tail?_52" " rest-bodys_1))))" "(if(equal?" -" tmp_64" +" tmp_66" " '#%declare)" "(let-values()" "(let-values(((ok?_81" " #%declare551_0" " kw552_0)" -"(let-values(((s_798)" +"(let-values(((s_804)" " disarmed-exp-body_1))" "(let-values(((orig-s_89)" -" s_798))" +" s_804))" "(let-values(((#%declare551_1" " kw552_1)" -"(let-values(((s_799)" +"(let-values(((s_805)" "(if(syntax?$1" -" s_798)" +" s_804)" "(syntax-e$1" -" s_798)" -" s_798)))" +" s_804)" +" s_804)))" "(if(pair?" -" s_799)" +" s_805)" "(let-values(((#%declare553_0)" -"(let-values(((s_800)" +"(let-values(((s_806)" "(car" -" s_799)))" -" s_800))" +" s_805)))" +" s_806))" "((kw554_0)" -"(let-values(((s_553)" +"(let-values(((s_560)" "(cdr" -" s_799)))" -"(let-values(((s_554)" +" s_805)))" +"(let-values(((s_561)" "(if(syntax?$1" -" s_553)" +" s_560)" "(syntax-e$1" -" s_553)" -" s_553)))" +" s_560)" +" s_560)))" "(let-values(((flat-s_59)" "(to-syntax-list.1" -" s_554)))" +" s_561)))" "(if(not" " flat-s_59)" "(let-values()" @@ -74450,7 +74769,7 @@ static const char *startup_source = " kw552_1))))))" "(let-values((()" "(begin" -"(let-values(((lst_429)" +"(let-values(((lst_432)" " kw552_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74458,19 +74777,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_429)))" -"((letrec-values(((for-loop_330)" -"(lambda(lst_430)" +" lst_432)))" +"((letrec-values(((for-loop_335)" +"(lambda(lst_433)" "(begin" " 'for-loop" "(if(pair?" -" lst_430)" +" lst_433)" "(let-values(((kw_1)" "(unsafe-car" -" lst_430))" -"((rest_245)" +" lst_433))" +"((rest_247)" "(unsafe-cdr" -" lst_430)))" +" lst_433)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74521,12 +74840,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_330" -" rest_245)" +"(for-loop_335" +" rest_247)" "(values))))" "(values))))))" -" for-loop_330)" -" lst_429)))" +" for-loop_335)" +" lst_432)))" "(values))))" "(let-values()" "(let-values(((parsed-body_1)" @@ -74573,42 +74892,42 @@ static const char *startup_source = "(make-wrap-as-definition)" "(lambda(self_35 frame-id_18 inside-scope_2 all-scopes-stx_6 defined-syms_12 requires+provides_8)" "(begin" -"(lambda(ids_45 rhs_24 phase_155)" +"(lambda(ids_45 rhs_24 phase_156)" "(let-values(((scoped-ids_0)" "(reverse$1" -"(let-values(((lst_431) ids_45))" +"(let-values(((lst_434) ids_45))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_431)))" -"((letrec-values(((for-loop_331)" -"(lambda(fold-var_377 lst_432)" +"(let-values()(check-list lst_434)))" +"((letrec-values(((for-loop_336)" +"(lambda(fold-var_387 lst_435)" "(begin" " 'for-loop" -"(if(pair? lst_432)" -"(let-values(((id_160)(unsafe-car lst_432))" -"((rest_246)(unsafe-cdr lst_432)))" -"(let-values(((fold-var_378)" -"(let-values(((fold-var_379) fold-var_377))" -"(let-values(((fold-var_380)" +"(if(pair? lst_435)" +"(let-values(((id_163)(unsafe-car lst_435))" +"((rest_248)(unsafe-cdr lst_435)))" +"(let-values(((fold-var_388)" +"(let-values(((fold-var_389) fold-var_387))" +"(let-values(((fold-var_390)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_160" +" id_163" " inside-scope_2))" -" fold-var_379))))" -"(values fold-var_380)))))" -"(if(not #f)(for-loop_331 fold-var_378 rest_246) fold-var_378)))" -" fold-var_377)))))" -" for-loop_331)" +" fold-var_389))))" +"(values fold-var_390)))))" +"(if(not #f)(for-loop_336 fold-var_388 rest_248) fold-var_388)))" +" fold-var_387)))))" +" for-loop_336)" " null" -" lst_431))))))" +" lst_434))))))" "(let-values(((syms_26)" "(let-values(((scoped-ids555_0) scoped-ids_0)" "((defined-syms556_0) defined-syms_12)" "((self557_0) self_35)" -"((phase558_0) phase_155)" +"((phase558_0) phase_156)" "((all-scopes-stx559_0) all-scopes-stx_6)" "((frame-id560_0) frame-id_18)" "((requires+provides561_0) requires+provides_8))" @@ -74627,45 +74946,45 @@ static const char *startup_source = " self557_0" " phase558_0" " all-scopes-stx559_0))))" -"(let-values(((s_801)" +"(let-values(((s_807)" "(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_156) 'define-values)" " scoped-ids_0" " rhs_24))" " inside-scope_2)))" -"(values scoped-ids_0(semi-parsed-define-values2.1 s_801 syms_26 scoped-ids_0 rhs_24)))))))))" +"(values scoped-ids_0(semi-parsed-define-values2.1 s_807 syms_26 scoped-ids_0 rhs_24)))))))))" "(define-values" "(add-post-expansion-scope)" -"(lambda(bodys_23 ctx_114)" +"(lambda(bodys_23 ctx_115)" "(begin" -"(let-values(((sc_39)(root-expand-context-post-expansion-scope ctx_114)))" +"(let-values(((sc_39)(root-expand-context-post-expansion-scope ctx_115)))" "(if sc_39" "(reverse$1" -"(let-values(((lst_433) bodys_23))" +"(let-values(((lst_436) bodys_23))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_433)))" -"((letrec-values(((for-loop_332)" -"(lambda(fold-var_381 lst_434)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_436)))" +"((letrec-values(((for-loop_337)" +"(lambda(fold-var_391 lst_437)" "(begin" " 'for-loop" -"(if(pair? lst_434)" -"(let-values(((body_23)(unsafe-car lst_434))((rest_247)(unsafe-cdr lst_434)))" -"(let-values(((fold-var_382)" -"(let-values(((fold-var_383) fold-var_381))" -"(let-values(((fold-var_384)" +"(if(pair? lst_437)" +"(let-values(((body_23)(unsafe-car lst_437))((rest_249)(unsafe-cdr lst_437)))" +"(let-values(((fold-var_392)" +"(let-values(((fold-var_393) fold-var_391))" +"(let-values(((fold-var_394)" "(let-values()" "(cons" "(let-values()(add-scope body_23 sc_39))" -" fold-var_383))))" -"(values fold-var_384)))))" -"(if(not #f)(for-loop_332 fold-var_382 rest_247) fold-var_382)))" -" fold-var_381)))))" -" for-loop_332)" +" fold-var_393))))" +"(values fold-var_394)))))" +"(if(not #f)(for-loop_337 fold-var_392 rest_249) fold-var_392)))" +" fold-var_391)))))" +" for-loop_337)" " null" -" lst_433))))" +" lst_436))))" " bodys_23)))))" "(define-values" "(finish-expanding-body-expressons99.1)" @@ -74680,7 +74999,7 @@ 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_157) phase84_0))" "(let-values(((body-ctx_7) ctx85_0))" "(let-values(((self_36) self86_0))" "(let-values(((declared-submodule-names_5) declared-submodule-names87_0))" @@ -74694,7 +75013,7 @@ static const char *startup_source = " 'loop" "(if(null? bodys_24)" "(let-values()" -"(if(if tail?_53(not(zero? phase_156)) #f)" +"(if(if tail?_53(not(zero? phase_157)) #f)" "(let-values()" "(begin" "(let-values(((obs_154)(expand-context-observer body-ctx_7)))" @@ -74748,14 +75067,14 @@ static const char *startup_source = "(let-values(((body_24)(car bodys_24)))" "(let-values(((rest-bodys_2)(cdr bodys_24)))" "(let-values(((exp-body_8)" -"(if(let-values(((or-part_410)" +"(if(let-values(((or-part_408)" "(parsed? body_24)))" -"(if or-part_410" -" or-part_410" -"(let-values(((or-part_411)" +"(if or-part_408" +" or-part_408" +"(let-values(((or-part_409)" "(expanded+parsed? body_24)))" -"(if or-part_411" -" or-part_411" +"(if or-part_409" +" or-part_409" "(semi-parsed-begin-for-syntax?" " body_24)))))" "(let-values() body_24)" @@ -74772,86 +75091,86 @@ static const char *startup_source = "(let-values(((syms_27)" "(semi-parsed-define-values-syms" " body_24)))" -"(let-values(((s_802)" +"(let-values(((s_808)" "(semi-parsed-define-values-s" " body_24)))" "(let-values(((ok?_82" " define-values562_0" " _563_0" " _564_0)" -"(let-values(((s_803)" +"(let-values(((s_809)" "(syntax-disarm$1" -" s_802)))" +" s_808)))" "(if(if(not" "(expand-context-to-parsed?" " rhs-ctx_2))" " #t" " #f)" "(let-values(((orig-s_90)" -" s_803))" +" s_809))" "(let-values(((define-values562_1" " _563_1" " _564_1)" -"(let-values(((s_804)" +"(let-values(((s_810)" "(if(syntax?$1" -" s_803)" +" s_809)" "(syntax-e$1" -" s_803)" -" s_803)))" +" s_809)" +" s_809)))" "(if(pair?" -" s_804)" +" s_810)" "(let-values(((define-values565_0)" -"(let-values(((s_805)" +"(let-values(((s_811)" "(car" -" s_804)))" -" s_805))" +" s_810)))" +" s_811))" "((_566_0" " _567_0)" -"(let-values(((s_611)" +"(let-values(((s_618)" "(cdr" -" s_804)))" -"(let-values(((s_612)" -"(if(syntax?$1" -" s_611)" -"(syntax-e$1" -" s_611)" -" s_611)))" -"(if(pair?" -" s_612)" -"(let-values(((_568_0)" -"(let-values(((s_806)" -"(car" -" s_612)))" -" s_806))" -"((_569_0)" -"(let-values(((s_807)" -"(cdr" -" s_612)))" -"(let-values(((s_808)" -"(if(syntax?$1" -" s_807)" -"(syntax-e$1" -" s_807)" -" s_807)))" -"(if(pair?" -" s_808)" -"(let-values(((_570_0)" -"(let-values(((s_809)" -"(car" -" s_808)))" -" s_809))" -"(()" -"(let-values(((s_810)" -"(cdr" -" s_808)))" -"(let-values(((s_811)" -"(if(syntax?$1" -" s_810)" -"(syntax-e$1" -" s_810)" " s_810)))" +"(let-values(((s_619)" +"(if(syntax?$1" +" s_618)" +"(syntax-e$1" +" s_618)" +" s_618)))" +"(if(pair?" +" s_619)" +"(let-values(((_568_0)" +"(let-values(((s_812)" +"(car" +" s_619)))" +" s_812))" +"((_569_0)" +"(let-values(((s_813)" +"(cdr" +" s_619)))" +"(let-values(((s_814)" +"(if(syntax?$1" +" s_813)" +"(syntax-e$1" +" s_813)" +" s_813)))" +"(if(pair?" +" s_814)" +"(let-values(((_570_0)" +"(let-values(((s_815)" +"(car" +" s_814)))" +" s_815))" +"(()" +"(let-values(((s_816)" +"(cdr" +" s_814)))" +"(let-values(((s_817)" +"(if(syntax?$1" +" s_816)" +"(syntax-e$1" +" s_816)" +" s_816)))" "(if(null?" -" s_811)" +" s_817)" "(values)" "(raise-syntax-error$1" " #f" @@ -74892,7 +75211,7 @@ static const char *startup_source = "(let-values(((rhs-ctx571_0)" " rhs-ctx_2)" "((s572_0)" -" s_802)" +" s_808)" "((temp573_0)" " #t))" "(keep-as-needed74.1" @@ -74971,15 +75290,15 @@ static const char *startup_source = "(let-values()" "(let-values(((disarmed-body_0)" "(syntax-disarm$1 body_24)))" -"(let-values(((tmp_65)" +"(let-values(((tmp_67)" "(core-form-sym" " disarmed-body_0" -" phase_156)))" -"(if(if(equal? tmp_65 '#%require)" +" phase_157)))" +"(if(if(equal? tmp_67 '#%require)" " #t" -"(if(equal? tmp_65 '#%provide)" +"(if(equal? tmp_67 '#%provide)" " #t" -"(equal? tmp_65 'module*)))" +"(equal? tmp_67 'module*)))" "(let-values() body_24)" "(let-values()" "(let-values()" @@ -75054,7 +75373,7 @@ static const char *startup_source = "(let-values(((exp-lifted-modules_0)" "(let-values(((lifted-modules584_0)" " lifted-modules_0)" -"((phase585_0) phase_156)" +"((phase585_0) phase_157)" "((self586_0) self_36)" "((body-ctx587_0)" " body-ctx_7)" @@ -75105,18 +75424,18 @@ static const char *startup_source = " partially-expanded-bodys_1)))))))))))))" "(define-values" "(check-defined-by-now)" -"(lambda(need-eventually-defined_3 self_37 ctx_115)" +"(lambda(need-eventually-defined_3 self_37 ctx_116)" "(begin" "(begin" -"(let-values(((ht_170) need-eventually-defined_3))" +"(let-values(((ht_171) need-eventually-defined_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_170)))" -"((letrec-values(((for-loop_333)" -"(lambda(i_192)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_171)))" +"((letrec-values(((for-loop_338)" +"(lambda(i_193)" "(begin" " 'for-loop" -"(if i_192" -"(let-values(((phase_157 l_84)(hash-iterate-key+value ht_170 i_192)))" +"(if i_193" +"(let-values(((phase_158 l_84)(hash-iterate-key+value ht_171 i_193)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75124,35 +75443,35 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_435) l_84))" +"(let-values(((lst_438) l_84))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_435)))" -"((letrec-values(((for-loop_334)" -"(lambda(lst_436)" +"(let-values()(check-list lst_438)))" +"((letrec-values(((for-loop_339)" +"(lambda(lst_439)" "(begin" " 'for-loop" "(if(pair?" -" lst_436)" -"(let-values(((id_161)" +" lst_439)" +"(let-values(((id_164)" "(unsafe-car" -" lst_436))" -"((rest_248)" +" lst_439))" +"((rest_250)" "(unsafe-cdr" -" lst_436)))" +" lst_439)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((b_91)" +"(let-values(((b_93)" "(let-values(((id592_0)" -" id_161)" +" id_164)" "((phase593_0)" -" phase_157))" +" phase_158))" "(resolve+shift30.1" " #f" " #f" @@ -75166,17 +75485,17 @@ static const char *startup_source = " #f" " id592_0" " phase593_0))))" -"(if(if b_91" +"(if(if b_93" "(if(module-binding?" -" b_91)" +" b_93)" "(if(eq?" "(module-binding-sym" -" b_91)" +" b_93)" "(syntax-e$1" -" id_161))" +" id_164))" "(eq?" "(module-binding-module" -" b_91)" +" b_93)" " self_37)" " #f)" " #f)" @@ -75186,28 +75505,28 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"reference to an unbound identifier\"" -" id_161" +" id_164" " #f" " null" "(syntax-debug-info-string" -" id_161" -" ctx_115))))))" +" id_164" +" ctx_116))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_334" -" rest_248)" +"(for-loop_339" +" rest_250)" "(values))))" "(values))))))" -" for-loop_334)" -" lst_435)))" +" for-loop_339)" +" lst_438)))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_333(hash-iterate-next ht_170 i_192))(values))))" +"(if(not #f)(for-loop_338(hash-iterate-next ht_171 i_193))(values))))" "(values))))))" -" for-loop_333)" -"(hash-iterate-first ht_170))))" +" for-loop_338)" +"(hash-iterate-first ht_171))))" "(void)))))" "(define-values" "(resolve-provides115.1)" @@ -75223,28 +75542,28 @@ static const char *startup_source = "(let-values(((expression-expanded-bodys_1) expression-expanded-bodys114_0))" "(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(((m-ns_20) namespace104_0))" +"(let-values(((phase_159) phase105_0))" "(let-values(((self_38) self106_0))" -"(let-values(((ctx_116) ctx107_1))" +"(let-values(((ctx_117) ctx107_1))" "(let-values()" "(let-values()" "((letrec-values(((loop_127)" -"(lambda(bodys_26 phase_159)" +"(lambda(bodys_26 phase_160)" "(begin" " 'loop" "(if(null? bodys_26)" "(let-values() null)" -"(if(let-values(((or-part_412)(parsed?(car bodys_26))))" -"(if or-part_412 or-part_412(expanded+parsed?(car bodys_26))))" +"(if(let-values(((or-part_410)(parsed?(car bodys_26))))" +"(if or-part_410 or-part_410(expanded+parsed?(car bodys_26))))" "(let-values()" -"(cons(car bodys_26)(loop_127(cdr bodys_26) phase_159)))" +"(cons(car bodys_26)(loop_127(cdr bodys_26) phase_160)))" "(if(semi-parsed-begin-for-syntax?(car bodys_26))" "(let-values()" "(let-values(((nested-bodys_2)" "(loop_127" "(semi-parsed-begin-for-syntax-body(car bodys_26))" -"(add1 phase_159))))" +"(add1 phase_160))))" "(cons" "(let-values(((the-struct_112)(car bodys_26)))" "(if(semi-parsed-begin-for-syntax? the-struct_112)" @@ -75256,18 +75575,18 @@ static const char *startup_source = " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" " the-struct_112)))" -"(loop_127(cdr bodys_26) phase_159))))" +"(loop_127(cdr bodys_26) phase_160))))" "(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_68)" +"(core-form-sym disarmed-body_1 phase_160)))" +"(if(equal? tmp_68 '#%provide)" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_159)" "(expand-context-observer" -" ctx_116)))" +" ctx_117)))" "(if obs_159" "(let-values()" "(let-values()" @@ -75282,35 +75601,35 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_83 #%provide595_0 spec596_0)" -"(let-values(((s_633) disarmed-body_1))" -"(let-values(((orig-s_91) s_633))" +"(let-values(((s_640) disarmed-body_1))" +"(let-values(((orig-s_91) s_640))" "(let-values(((#%provide595_1" " spec596_1)" -"(let-values(((s_812)" +"(let-values(((s_818)" "(if(syntax?$1" -" s_633)" +" s_640)" "(syntax-e$1" -" s_633)" -" s_633)))" -"(if(pair? s_812)" +" s_640)" +" s_640)))" +"(if(pair? s_818)" "(let-values(((#%provide597_0)" -"(let-values(((s_813)" +"(let-values(((s_819)" "(car" -" s_812)))" -" s_813))" +" s_818)))" +" s_819))" "((spec598_0)" -"(let-values(((s_814)" +"(let-values(((s_820)" "(cdr" -" s_812)))" -"(let-values(((s_815)" +" s_818)))" +"(let-values(((s_821)" "(if(syntax?$1" -" s_814)" +" s_820)" "(syntax-e$1" -" s_814)" -" s_814)))" +" s_820)" +" s_820)))" "(let-values(((flat-s_60)" "(to-syntax-list.1" -" s_815)))" +" s_821)))" "(if(not" " flat-s_60)" "(let-values()" @@ -75337,10 +75656,10 @@ static const char *startup_source = "(car bodys_26)" " requires+provides_9" " self_38" -" phase_159" -"(let-values(((v_265) ctx_116))" +" phase_160" +"(let-values(((v_266) ctx_117))" "(let-values(((the-struct_113)" -" v_265))" +" v_266))" "(if(expand-context/outer?" " the-struct_113)" "(let-values(((context599_0)" @@ -75348,15 +75667,15 @@ static const char *startup_source = "((inner600_0)" "(let-values(((the-struct_114)" "(root-expand-context/outer-inner" -" v_265)))" +" v_266)))" "(if(expand-context/inner?" " the-struct_114)" "(let-values(((phase601_0)" -" phase_159)" +" phase_160)" "((namespace602_0)" "(namespace->namespace-at-phase" -" m-ns_21" -" phase_159))" +" m-ns_20" +" phase_160))" "((requires+provides603_0)" " requires+provides_9)" "((declared-submodule-names604_0)" @@ -75445,9 +75764,9 @@ static const char *startup_source = " 'struct-copy" " \"expand-context/outer?\"" " the-struct_113)))))))" -"(if(expand-context-to-parsed? ctx_116)" +"(if(expand-context-to-parsed? ctx_117)" "(let-values()" -"(loop_127(cdr bodys_26) phase_159))" +"(loop_127(cdr bodys_26) phase_160))" "(let-values()" "(let-values(((new-s_10)" "(syntax-track-origin*" @@ -75466,7 +75785,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_160)" "(expand-context-observer" -" ctx_116)))" +" ctx_117)))" "(if obs_160" "(let-values()" "(let-values()" @@ -75479,14 +75798,14 @@ static const char *startup_source = " new-s_10" "(loop_127" "(cdr bodys_26)" -" phase_159))))))))))" +" phase_160))))))))))" "(let-values()" "(cons" "(car bodys_26)" -"(loop_127(cdr bodys_26) phase_159))))))))))))))" +"(loop_127(cdr bodys_26) phase_160))))))))))))))" " loop_127)" " expression-expanded-bodys_1" -" phase_158)))))))))))))" +" phase_159)))))))))))))" "(define-values" "(declare-module-for-expansion139.1)" "(lambda(ctx125_0" @@ -75506,11 +75825,11 @@ static const char *startup_source = "(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(((m-ns_21) namespace121_0))" "(let-values(((self_39) 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(((ctx_118) ctx125_0))" "(let-values(((modules-being-compiled_6) modules-being-compiled126_0))" "(let-values(((compiled-module-box_1) fill127_0))" "(let-values()" @@ -75531,12 +75850,12 @@ static const char *startup_source = "(hasheq))))" "(let-values(((module-name_2)" "(1/module-path-index-resolve" -"(let-values(((or-part_413) enclosing-self_3))" -"(if or-part_413 or-part_413 self_39)))))" +"(let-values(((or-part_411) enclosing-self_3))" +"(if or-part_411 or-part_411 self_39)))))" "(let-values(((compiled-module_0)" "(let-values(((parsed-mod607_0) parsed-mod_0)" "((temp608_0)" -"(let-values(((m-ns612_0) m-ns_22)" +"(let-values(((m-ns612_0) m-ns_21)" "((enclosing-self613_0) enclosing-self_3)" "((temp614_0)" "(if enclosing-self_3" @@ -75556,7 +75875,7 @@ static const char *startup_source = " #f" " #f" " #f)))" -"((temp609_0)(expand-context-for-serializable? ctx_117))" +"((temp609_0)(expand-context-for-serializable? ctx_118))" "((modules-being-compiled610_0) modules-being-compiled_6)" "((temp611_0) #f))" "(compile-module13.1" @@ -75583,7 +75902,7 @@ static const char *startup_source = "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " 1/current-namespace" -" m-ns_22" +" m-ns_21" " 1/current-module-declare-name" "(1/make-resolved-module-path root-module-name_0))" "(let-values()" @@ -75598,16 +75917,16 @@ static const char *startup_source = " compiled-module615_0)))))))))))))))))))))))))" "(define-values" "(attach-root-expand-context-properties)" -"(lambda(s_655 root-ctx_8 orig-self_1 new-self_2)" +"(lambda(s_662 root-ctx_8 orig-self_1 new-self_2)" "(begin" -"(let-values(((s_816)" -"(syntax-property$1 s_655 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" -"(let-values(((s_817)" +"(let-values(((s_822)" +"(syntax-property$1 s_662 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" +"(let-values(((s_823)" "(syntax-property$1" -" s_816" +" s_822" " 'module-body-inside-context" "(add-scope empty-syntax(root-expand-context-post-expansion-scope root-ctx_8)))))" -" s_817)))))" +" s_823)))))" "(define-values" "(expand-post-submodules165.1)" "(lambda(all-scopes-s147_0" @@ -75626,7 +75945,7 @@ static const char *startup_source = " 'expand-post-submodules165" "(let-values(((fully-expanded-bodys-except-post-submodules_2) fully-expanded-bodys-except-post-submodules164_0))" "(let-values(((declare-enclosing-module_1) declare-enclosing142_0))" -"(let-values(((phase_160) phase143_1))" +"(let-values(((phase_161) phase143_1))" "(let-values(((self_40) self144_0))" "(let-values(((requires+provides_11) requires-and-provides145_0))" "(let-values(((enclosing-is-cross-phase-persistent?_1) enclosing-is-cross-phase-persistent?146_0))" @@ -75638,7 +75957,7 @@ static const char *startup_source = "(let-values(((submod-ctx_1) ctx152_0))" "(let-values()" "((letrec-values(((loop_128)" -"(lambda(bodys_27 phase_161)" +"(lambda(bodys_27 phase_162)" "(begin" " 'loop" "(if(null? bodys_27)" @@ -75652,37 +75971,37 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax-s" " body_25)))" "(let-values(((ok?_84 begin-for-syntax617_0 _618_0)" -"(let-values(((s_818)" +"(let-values(((s_824)" "(syntax-disarm$1" " body-s_0)))" -"(let-values(((orig-s_92) s_818))" +"(let-values(((orig-s_92) s_824))" "(let-values(((begin-for-syntax617_1" " _618_1)" -"(let-values(((s_819)" +"(let-values(((s_825)" "(if(syntax?$1" -" s_818)" +" s_824)" "(syntax-e$1" -" s_818)" -" s_818)))" -"(if(pair? s_819)" +" s_824)" +" s_824)))" +"(if(pair? s_825)" "(let-values(((begin-for-syntax619_0)" -"(let-values(((s_820)" +"(let-values(((s_826)" "(car" -" s_819)))" -" s_820))" +" s_825)))" +" s_826))" "((_620_0)" -"(let-values(((s_821)" +"(let-values(((s_827)" "(cdr" -" s_819)))" -"(let-values(((s_822)" +" s_825)))" +"(let-values(((s_828)" "(if(syntax?$1" -" s_821)" +" s_827)" "(syntax-e$1" -" s_821)" -" s_821)))" +" s_827)" +" s_827)))" "(let-values(((flat-s_61)" "(to-syntax-list.1" -" s_822)))" +" s_828)))" "(if(not" " flat-s_61)" "(let-values()" @@ -75721,7 +76040,7 @@ static const char *startup_source = "(loop_128" "(semi-parsed-begin-for-syntax-body" " body_25)" -"(add1 phase_161))))" +"(add1 phase_162))))" "(let-values(((parsed-bfs_0)" "(parsed-begin-for-syntax21.1" " rebuild-body-s_0" @@ -75744,21 +76063,21 @@ static const char *startup_source = " rebuild-body-s623_0" " temp624_0))" " parsed-bfs_0))" -"(loop_128 rest-bodys_3 phase_161))))))))" -"(if(let-values(((or-part_414)(parsed? body_25)))" -"(if or-part_414" -" or-part_414" +"(loop_128 rest-bodys_3 phase_162))))))))" +"(if(let-values(((or-part_412)(parsed? body_25)))" +"(if or-part_412" +" or-part_412" "(expanded+parsed? body_25)))" "(let-values()" -"(cons body_25(loop_128 rest-bodys_3 phase_161)))" +"(cons body_25(loop_128 rest-bodys_3 phase_162)))" "(let-values()" "(let-values(((disarmed-body_2)" "(syntax-disarm$1 body_25)))" -"(let-values(((tmp_67)" +"(let-values(((tmp_69)" "(core-form-sym" " disarmed-body_2" -" phase_161)))" -"(if(equal? tmp_67 'module*)" +" phase_162)))" +"(if(equal? tmp_69 'module*)" "(let-values()" "(let-values((()" "(begin" @@ -75773,60 +76092,60 @@ static const char *startup_source = " module*625_0" " name626_0" " _627_0)" -"(let-values(((s_823)" -" disarmed-body_2))" -"(if(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_668)" -"(if(syntax?$1" -" s_826)" -"(syntax-e$1" -" s_826)" -" s_826)))" -"(if(pair?" -" s_668)" -"(if(let-values(((s_827)" -"(car" -" s_668)))" -" #t)" -"(let-values(((s_828)" -"(cdr" -" s_668)))" "(let-values(((s_829)" -"(if(syntax?$1" -" s_828)" -"(syntax-e$1" -" s_828)" -" s_828)))" -"(if(pair?" -" s_829)" +" disarmed-body_2))" "(if(let-values(((s_830)" -"(car" -" s_829)))" -"(let-values(((s_831)" "(if(syntax?$1" -" s_830)" +" s_829)" "(syntax-e$1" -" s_830)" +" s_829)" +" s_829)))" +"(if(pair? s_830)" +"(if(let-values(((s_831)" +"(car" " s_830)))" -"(eq?" -" #f" -" s_831)))" +" #t)" "(let-values(((s_832)" "(cdr" -" s_829)))" +" s_830)))" +"(let-values(((s_675)" +"(if(syntax?$1" +" s_832)" +"(syntax-e$1" +" s_832)" +" s_832)))" +"(if(pair?" +" s_675)" +"(if(let-values(((s_833)" +"(car" +" s_675)))" +" #t)" +"(let-values(((s_834)" +"(cdr" +" s_675)))" +"(let-values(((s_835)" +"(if(syntax?$1" +" s_834)" +"(syntax-e$1" +" s_834)" +" s_834)))" +"(if(pair?" +" s_835)" +"(if(let-values(((s_836)" +"(car" +" s_835)))" +"(let-values(((s_837)" +"(if(syntax?$1" +" s_836)" +"(syntax-e$1" +" s_836)" +" s_836)))" +"(eq?" +" #f" +" s_837)))" +"(let-values(((s_838)" +"(cdr" +" s_835)))" " #t)" " #f)" " #f)))" @@ -75838,59 +76157,59 @@ static const char *startup_source = "(let-values(((module*625_1" " name626_1" " _627_1)" -"(let-values(((s_833)" +"(let-values(((s_839)" "(if(syntax?$1" -" s_823)" +" s_829)" "(syntax-e$1" -" s_823)" -" s_823)))" +" s_829)" +" s_829)))" "(let-values(((module*628_0)" -"(let-values(((s_834)" +"(let-values(((s_840)" "(car" -" s_833)))" -" s_834))" +" s_839)))" +" s_840))" "((name629_0" " _630_0)" -"(let-values(((s_835)" +"(let-values(((s_841)" "(cdr" -" s_833)))" -"(let-values(((s_670)" -"(if(syntax?$1" -" s_835)" -"(syntax-e$1" -" s_835)" -" s_835)))" -"(let-values(((name631_0)" -"(let-values(((s_836)" -"(car" -" s_670)))" -" s_836))" -"((_632_0)" -"(let-values(((s_837)" -"(cdr" -" s_670)))" -"(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_671)" -"(if(syntax?$1" -" s_839)" -"(syntax-e$1" -" s_839)" " s_839)))" +"(let-values(((s_677)" +"(if(syntax?$1" +" s_841)" +"(syntax-e$1" +" s_841)" +" s_841)))" +"(let-values(((name631_0)" +"(let-values(((s_842)" +"(car" +" s_677)))" +" s_842))" +"((_632_0)" +"(let-values(((s_843)" +"(cdr" +" s_677)))" +"(let-values(((s_844)" +"(if(syntax?$1" +" s_843)" +"(syntax-e$1" +" s_843)" +" s_843)))" +"(let-values((()" +"(let-values(((s_845)" +"(car" +" s_844)))" +"(let-values(((s_678)" +"(if(syntax?$1" +" s_845)" +"(syntax-e$1" +" s_845)" +" s_845)))" "(values))))" "((_633_0)" -"(let-values(((s_840)" +"(let-values(((s_846)" "(cdr" -" s_838)))" -" s_840)))" +" s_844)))" +" s_846)))" "(values" " _633_0))))))" "(values" @@ -75916,7 +76235,7 @@ static const char *startup_source = "(let-values(((neg-phase_0)" "(phase-" " 0" -" phase_161)))" +" phase_162)))" "(let-values(((shifted-s_0)" "(syntax-shift-phase-level$1" " ready-body_2" @@ -75978,7 +76297,7 @@ static const char *startup_source = "(syntax-shift-phase-level$1" "(expanded+parsed-s" " submod_4)" -" phase_161)))" +" phase_162)))" "(expanded+parsed1.1" " s646_0" "(expanded+parsed-parsed" @@ -75990,7 +76309,7 @@ static const char *startup_source = "(let-values()" "(syntax-shift-phase-level$1" " submod_4" -" phase_161))))))))" +" phase_162))))))))" "(let-values()" "(let-values(((ready-body647_0)" " ready-body_2)" @@ -76029,47 +76348,47 @@ static const char *startup_source = " submod_3" "(loop_128" " rest-bodys_3" -" phase_161)))))))" +" phase_162)))))))" "(let-values()" "(cons" " body_25" "(loop_128" " rest-bodys_3" -" phase_161)))))))))))))))))" +" phase_162)))))))))))))))))" " loop_128)" " fully-expanded-bodys-except-post-submodules_2" -" phase_160)))))))))))))))))" +" phase_161)))))))))))))))))" "(define-values" "(stop-at-module*?)" -"(lambda(ctx_118)" +"(lambda(ctx_119)" "(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))))))" +"(expand-context-stops ctx_119)" +"(expand-context-phase ctx_119)" +"(syntax-shift-phase-level$1(datum->syntax$1 core-stx 'module*)(expand-context-phase ctx_119))))))" "(define-values" "(check-ids-unbound173.1)" "(lambda(in168_0 ids170_0 phase171_1 requires+provides172_0)" "(begin" " 'check-ids-unbound173" "(let-values(((ids_47) ids170_0))" -"(let-values(((phase_162) phase171_1))" +"(let-values(((phase_163) phase171_1))" "(let-values(((requires+provides_12) requires+provides172_0))" -"(let-values(((s_705) in168_0))" +"(let-values(((s_712) in168_0))" "(let-values()" "(begin" -"(let-values(((lst_437) ids_47))" +"(let-values(((lst_440) ids_47))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_437)))" -"((letrec-values(((for-loop_335)" -"(lambda(lst_438)" +"(let-values()(check-list lst_440)))" +"((letrec-values(((for-loop_340)" +"(lambda(lst_441)" "(begin" " 'for-loop" -"(if(pair? lst_438)" -"(let-values(((id_162)(unsafe-car lst_438))" -"((rest_249)(unsafe-cdr lst_438)))" +"(if(pair? lst_441)" +"(let-values(((id_165)(unsafe-car lst_441))" +"((rest_251)(unsafe-cdr lst_441)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76078,10 +76397,10 @@ static const char *startup_source = "(let-values()" "(let-values(((requires+provides655_0)" " requires+provides_12)" -"((id656_0) id_162)" +"((id656_0) id_165)" "((phase657_0)" -" phase_162)" -"((s658_0) s_705)" +" phase_163)" +"((s658_0) s_712)" "((temp659_0) 'module))" "(check-not-defined95.1" " #f" @@ -76101,103 +76420,103 @@ static const char *startup_source = " phase657_0)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_335 rest_249)(values))))" +"(if(not #f)(for-loop_340 rest_251)(values))))" "(values))))))" -" for-loop_335)" -" lst_437)))" +" for-loop_340)" +" lst_440)))" "(void))))))))))" "(define-values" "(eval-nested-bodys)" -"(lambda(bodys_28 phase_163 m-ns_23 self_41 ctx_119)" +"(lambda(bodys_28 phase_164 m-ns_22 self_41 ctx_120)" "(begin" "(begin" -"(let-values(((lst_439) bodys_28))" +"(let-values(((lst_442) bodys_28))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_439)))" -"((letrec-values(((for-loop_336)" -"(lambda(lst_440)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_442)))" +"((letrec-values(((for-loop_341)" +"(lambda(lst_443)" "(begin" " 'for-loop" -"(if(pair? lst_440)" -"(let-values(((body_26)(unsafe-car lst_440))((rest_250)(unsafe-cdr lst_440)))" +"(if(pair? lst_443)" +"(let-values(((body_26)(unsafe-car lst_443))((rest_252)(unsafe-cdr lst_443)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((p_87)" +"(let-values(((p_88)" "(if(expanded+parsed? body_26)" "(expanded+parsed-parsed" " body_26)" " body_26)))" -"(if(parsed-define-values? p_87)" +"(if(parsed-define-values? p_88)" "(let-values()" "(let-values(((ids_48)" "(parsed-define-values-ids" -" p_87)))" +" p_88)))" "(let-values(((vals_11)" "(eval-for-bindings" " ids_48" "(parsed-define-values-rhs" -" p_87)" -" phase_163" -" m-ns_23" -" ctx_119)))" +" p_88)" +" phase_164" +" m-ns_22" +" ctx_120)))" "(begin" -"(let-values(((lst_441) ids_48)" -"((lst_442)" +"(let-values(((lst_444) ids_48)" +"((lst_445)" "(parsed-define-values-syms" -" p_87))" -"((lst_443) vals_11))" +" p_88))" +"((lst_446) vals_11))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_441)))" +"(check-list lst_444)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_442)))" +"(check-list lst_445)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_443)))" -"((letrec-values(((for-loop_337)" -"(lambda(lst_444" -" lst_445" -" lst_446)" +"(check-list lst_446)))" +"((letrec-values(((for-loop_342)" +"(lambda(lst_447" +" lst_448" +" lst_449)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_444)" +" lst_447)" "(if(pair?" -" lst_445)" +" lst_448)" "(pair?" -" lst_446)" +" lst_449)" " #f)" " #f)" -"(let-values(((id_163)" +"(let-values(((id_166)" "(unsafe-car" -" lst_444))" -"((rest_251)" -"(unsafe-cdr" -" lst_444))" -"((sym_105)" -"(unsafe-car" -" lst_445))" -"((rest_252)" -"(unsafe-cdr" -" lst_445))" -"((val_86)" -"(unsafe-car" -" lst_446))" +" lst_447))" "((rest_253)" "(unsafe-cdr" -" lst_446)))" +" lst_447))" +"((sym_105)" +"(unsafe-car" +" lst_448))" +"((rest_254)" +"(unsafe-cdr" +" lst_448))" +"((val_89)" +"(unsafe-car" +" lst_449))" +"((rest_255)" +"(unsafe-cdr" +" lst_449)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76205,39 +76524,39 @@ static const char *startup_source = "(begin" "(let-values()" "(namespace-set-variable!" -" m-ns_23" -" phase_163" +" m-ns_22" +" phase_164" " sym_105" -" val_86))" +" val_89))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_337" -" rest_251" -" rest_252" -" rest_253)" +"(for-loop_342" +" rest_253" +" rest_254" +" rest_255)" "(values))))" "(values))))))" -" for-loop_337)" -" lst_441" -" lst_442" -" lst_443)))" +" for-loop_342)" +" lst_444" +" lst_445" +" lst_446)))" "(void)))))" -"(if(let-values(((or-part_415)" +"(if(let-values(((or-part_413)" "(parsed-define-syntaxes?" -" p_87)))" -"(if or-part_415" -" or-part_415" +" p_88)))" +"(if or-part_413" +" or-part_413" "(semi-parsed-begin-for-syntax?" -" p_87)))" +" p_88)))" "(let-values()(void))" -"(if(let-values(((or-part_416)" +"(if(let-values(((or-part_414)" "(parsed-#%declare?" -" p_87)))" -"(if or-part_416" -" or-part_416" -"(syntax?$1 p_87)))" +" p_88)))" +"(if or-part_414" +" or-part_414" +"(syntax?$1 p_88)))" "(let-values()(void))" "(let-values()" "(with-continuation-mark" @@ -76247,17 +76566,17 @@ static const char *startup_source = " #f" " parameterization-key)" " current-expand-context" -" ctx_119" +" ctx_120" " 1/current-namespace" -" m-ns_23)" +" m-ns_22)" "(let-values()" "(eval-single-top" "(compile-single" -" p_87" +" p_88" "(let-values(((m-ns660_0)" -" m-ns_23)" +" m-ns_22)" "((phase661_0)" -" phase_163))" +" phase_164))" "(make-compile-context14.1" " #f" " #f" @@ -76271,13 +76590,13 @@ static const char *startup_source = " #t" " #f" " #f)))" -" m-ns_23)))))))))" +" m-ns_22)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_336 rest_250)(values))))" +"(if(not #f)(for-loop_341 rest_252)(values))))" "(values))))))" -" for-loop_336)" -" lst_439)))" +" for-loop_341)" +" lst_442)))" "(void)))))" "(define-values" "(expand-submodule197.1)" @@ -76299,9 +76618,9 @@ static const char *startup_source = " ctx196_0)" "(begin" " 'expand-submodule197" -"(let-values(((s_841) s194_0))" +"(let-values(((s_847) s194_0))" "(let-values(((self_42) self195_0))" -"(let-values(((ctx_120) ctx196_0))" +"(let-values(((ctx_121) 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)))" @@ -76323,47 +76642,47 @@ static const char *startup_source = "(if is-star?_0" "(void)" "(let-values()" -"(let-values(((obs_161)(expand-context-observer ctx_120)))" +"(let-values(((obs_161)(expand-context-observer ctx_121)))" "(if obs_161" "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_161 'enter-prim s_841)" +"(call-expand-observe obs_161 'enter-prim s_847)" "(call-expand-observe" " obs_161" "(if is-star?_0 'prim-submodule* 'prim-submodule)))))" "(void)))))" "(values))))" "(let-values(((ok?_86 module662_0 name663_0 _664_0)" -"(let-values(((s_842) s_841))" -"(let-values(((orig-s_93) s_842))" +"(let-values(((s_848) s_847))" +"(let-values(((orig-s_93) s_848))" "(let-values(((module662_1 name663_1 _664_1)" -"(let-values(((s_843)" -"(if(syntax?$1 s_842)" -"(syntax-e$1 s_842)" -" s_842)))" -"(if(pair? s_843)" -"(let-values(((module665_0)" -"(let-values(((s_844)(car s_843)))" -" s_844))" -"((name666_0 _667_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(((name668_0)" -"(let-values(((s_847)" -"(car" -" s_846)))" -" s_847))" -"((_669_0)" -"(let-values(((s_848)" -"(cdr" -" s_846)))" +"(let-values(((s_849)" +"(if(syntax?$1 s_848)" +"(syntax-e$1 s_848)" " s_848)))" +"(if(pair? s_849)" +"(let-values(((module665_0)" +"(let-values(((s_850)(car s_849)))" +" s_850))" +"((name666_0 _667_0)" +"(let-values(((s_851)(cdr s_849)))" +"(let-values(((s_852)" +"(if(syntax?$1" +" s_851)" +"(syntax-e$1 s_851)" +" s_851)))" +"(if(pair? s_852)" +"(let-values(((name668_0)" +"(let-values(((s_853)" +"(car" +" s_852)))" +" s_853))" +"((_669_0)" +"(let-values(((s_854)" +"(cdr" +" s_852)))" +" s_854)))" "(values name668_0 _669_0))" "(raise-syntax-error$1" " #f" @@ -76375,39 +76694,39 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_93)))))" "(values #t module662_1 name663_1 _664_1))))))" -"(let-values(((name_79)(syntax-e$1 name663_0)))" +"(let-values(((name_80)(syntax-e$1 name663_0)))" "(let-values((()" "(begin" -"(if(hash-ref declared-submodule-names_8 name_79 #f)" +"(if(hash-ref declared-submodule-names_8 name_80 #f)" "(let-values()" "(raise-syntax-error$1" " #f" " \"submodule already declared with the same name\"" -" s_841" -" name_79))" +" s_847" +" name_80))" "(void))" "(values))))" "(let-values((()" "(begin" "(hash-set!" " declared-submodule-names_8" -" name_79" +" name_80" "(syntax-e$1 module662_0))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_162)(expand-context-observer ctx_120)))" +"(let-values(((obs_162)(expand-context-observer ctx_121)))" "(if obs_162" "(let-values()" "(let-values()" -"(call-expand-observe obs_162 'enter-prim s_841)))" +"(call-expand-observe obs_162 'enter-prim s_847)))" "(void)))" "(values))))" "(let-values(((submod_5)" -"(let-values(((s670_0) s_841)" +"(let-values(((s670_0) s_847)" "((temp671_0)" -"(let-values(((v_266) ctx_120))" -"(let-values(((the-struct_116) v_266))" +"(let-values(((v_267) ctx_121))" +"(let-values(((the-struct_116) v_267))" "(if(expand-context/outer? the-struct_116)" "(let-values(((context680_0) 'module)" "((post-expansion-scope681_0)" @@ -76415,7 +76734,7 @@ static const char *startup_source = "((inner682_0)" "(let-values(((the-struct_117)" "(root-expand-context/outer-inner" -" v_266)))" +" v_267)))" "(if(expand-context/inner?" " the-struct_117)" "(let-values(((stops683_0)" @@ -76539,7 +76858,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((obs_163)" -"(expand-context-observer ctx_120)))" +"(expand-context-observer ctx_121)))" "(if obs_163" "(let-values()" "(let-values()" @@ -76549,7 +76868,7 @@ static const char *startup_source = "(extract-syntax submod_5))))" "(void)))" "(values))))" -"(let-values(((ns_128)(expand-context-namespace ctx_120)))" +"(let-values(((ns_128)(expand-context-namespace ctx_121)))" "(let-values(((module-name_3)(1/module-path-index-resolve self_42)))" "(let-values(((root-module-name_1)" "(resolved-module-path-root-name module-name_3)))" @@ -76580,7 +76899,7 @@ static const char *startup_source = "((temp686_0) #t)" "((temp687_0)" "(expand-context-for-serializable?" -" ctx_120))" +" ctx_121))" "((modules-being-compiled688_0)" " modules-being-compiled_8)" "((temp689_0) #f))" @@ -76600,7 +76919,7 @@ static const char *startup_source = "(begin" "(hash-set!" " compiled-submodules_5" -" name_79" +" name_80" "(cons is-star?_0 compiled-submodule_0))" "(with-continuation-mark" " parameterization-key" @@ -76626,7 +76945,7 @@ static const char *startup_source = "(void)" "(let-values()" "(let-values(((obs_164)" -"(expand-context-observer ctx_120)))" +"(expand-context-observer ctx_121)))" "(if obs_164" "(let-values()" "(let-values()" @@ -76713,46 +77032,46 @@ static const char *startup_source = "(begin" " 'expand-non-module*-submodules212" "(let-values(((bodys_29) bodys208_0))" -"(let-values(((phase_164) phase209_0))" +"(let-values(((phase_165) phase209_0))" "(let-values(((self_43) self210_0))" -"(let-values(((ctx_121) ctx211_0))" +"(let-values(((ctx_122) 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_447) bodys_29))" +"(let-values(((lst_450) bodys_29))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_447)))" -"((letrec-values(((for-loop_338)" -"(lambda(fold-var_385 lst_448)" +"(let-values()(check-list lst_450)))" +"((letrec-values(((for-loop_343)" +"(lambda(fold-var_395 lst_451)" "(begin" " 'for-loop" -"(if(pair? lst_448)" -"(let-values(((body_27)(unsafe-car lst_448))" -"((rest_254)(unsafe-cdr lst_448)))" -"(let-values(((fold-var_386)" -"(let-values(((fold-var_387) fold-var_385))" -"(let-values(((fold-var_388)" +"(if(pair? lst_451)" +"(let-values(((body_27)(unsafe-car lst_451))" +"((rest_256)(unsafe-cdr lst_451)))" +"(let-values(((fold-var_396)" +"(let-values(((fold-var_397) fold-var_395))" +"(let-values(((fold-var_398)" "(let-values()" "(cons" "(let-values()" -"(let-values(((tmp_68)" +"(let-values(((tmp_70)" "(core-form-sym" "(syntax-disarm$1" " body_27)" -" phase_164)))" -"(if(equal? tmp_68 'module)" +" phase_165)))" +"(if(equal? tmp_70 'module)" "(let-values()" "(let-values(((body698_0)" " body_27)" "((self699_0)" " self_43)" "((ctx700_0)" -" ctx_121)" +" ctx_122)" "((temp701_0)" " #f)" "((mpis-to-reset702_0)" @@ -76781,56 +77100,56 @@ static const char *startup_source = " self699_0" " ctx700_0)))" "(let-values() body_27))))" -" fold-var_387))))" -"(values fold-var_388)))))" +" fold-var_397))))" +"(values fold-var_398)))))" "(if(not #f)" -"(for-loop_338 fold-var_386 rest_254)" -" fold-var_386)))" -" fold-var_385)))))" -" for-loop_338)" +"(for-loop_343 fold-var_396 rest_256)" +" fold-var_396)))" +" fold-var_395)))))" +" for-loop_343)" " null" -" lst_447))))))))))))))))" +" lst_450))))))))))))))))" "(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(((m-ns_23) m-ns217_0))" "(let-values(((self_44) self218_0))" "(let-values(((requires+provides_13) requires+provides219_0))" "(let-values(((declared-submodule-names_10) declared-submodule-names215_0))" "(let-values()" -"(lambda(s_849 phase_165)" +"(lambda(s_855 phase_166)" "(let-values(((ok?_87 #%require706_0 req707_0)" -"(let-values(((s_850)(syntax-disarm$1 s_849)))" -"(let-values(((orig-s_94) s_850))" +"(let-values(((s_856)(syntax-disarm$1 s_855)))" +"(let-values(((orig-s_94) s_856))" "(let-values(((#%require706_1 req707_1)" -"(let-values(((s_851)" -"(if(syntax?$1 s_850)(syntax-e$1 s_850) s_850)))" -"(if(pair? s_851)" -"(let-values(((#%require708_0)" -"(let-values(((s_852)(car s_851))) s_852))" -"((req709_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(((req710_0)" -"(let-values(((s_855)" -"(car s_854)))" -" s_855))" -"(()" -"(let-values(((s_856)" -"(cdr s_854)))" "(let-values(((s_857)" +"(if(syntax?$1 s_856)(syntax-e$1 s_856) s_856)))" +"(if(pair? s_857)" +"(let-values(((#%require708_0)" +"(let-values(((s_858)(car s_857))) s_858))" +"((req709_0)" +"(let-values(((s_859)(cdr s_857)))" +"(let-values(((s_860)" +"(if(syntax?$1 s_859)" +"(syntax-e$1 s_859)" +" s_859)))" +"(if(pair? s_860)" +"(let-values(((req710_0)" +"(let-values(((s_861)" +"(car s_860)))" +" s_861))" +"(()" +"(let-values(((s_862)" +"(cdr s_860)))" +"(let-values(((s_863)" "(if(syntax?$1" -" s_856)" +" s_862)" "(syntax-e$1" -" s_856)" -" s_856)))" -"(if(null? s_857)" +" s_862)" +" s_862)))" +"(if(null? s_863)" "(values)" "(raise-syntax-error$1" " #f" @@ -76845,11 +77164,11 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_94)))))" "(values #t #%require706_1 req707_1))))))" "(let-values(((temp711_0)(list req707_0))" -"((s712_0) s_849)" +"((s712_0) s_855)" "((self713_0) self_44)" -"((m-ns714_0) m-ns_24)" -"((phase715_0) phase_165)" -"((phase716_0) phase_165)" +"((m-ns714_0) m-ns_23)" +"((phase715_0) phase_166)" +"((phase716_0) phase_166)" "((requires+provides717_0) requires+provides_13)" "((declared-submodule-names718_0) declared-submodule-names_10)" "((temp719_0) 'require))" @@ -76891,30 +77210,30 @@ static const char *startup_source = "(lambda(lifted-defns_2)" "(begin" "(reverse$1" -"(let-values(((lst_449) lifted-defns_2))" +"(let-values(((lst_452) lifted-defns_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_449)))" -"((letrec-values(((for-loop_339)" -"(lambda(fold-var_389 lst_450)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_452)))" +"((letrec-values(((for-loop_344)" +"(lambda(fold-var_399 lst_453)" "(begin" " 'for-loop" -"(if(pair? lst_450)" -"(let-values(((lifted-defn_0)(unsafe-car lst_450))" -"((rest_255)(unsafe-cdr lst_450)))" -"(let-values(((fold-var_390)" -"(let-values(((fold-var_391) fold-var_389))" -"(let-values(((fold-var_392)" +"(if(pair? lst_453)" +"(let-values(((lifted-defn_0)(unsafe-car lst_453))" +"((rest_257)(unsafe-cdr lst_453)))" +"(let-values(((fold-var_400)" +"(let-values(((fold-var_401) fold-var_399))" +"(let-values(((fold-var_402)" "(let-values()" "(cons" "(let-values()" "(defn-extract-syntax lifted-defn_0))" -" fold-var_391))))" -"(values fold-var_392)))))" -"(if(not #f)(for-loop_339 fold-var_390 rest_255) fold-var_390)))" -" fold-var_389)))))" -" for-loop_339)" +" fold-var_401))))" +"(values fold-var_402)))))" +"(if(not #f)(for-loop_344 fold-var_400 rest_257) fold-var_400)))" +" fold-var_399)))))" +" for-loop_344)" " null" -" lst_449)))))))" +" lst_452)))))))" "(define-values" "(log-lifted-defns)" "(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)" @@ -76930,18 +77249,18 @@ static const char *startup_source = "(let-values((()(begin(call-expand-observe obs_165 'module-lift-loop s-lifted-defns_0)(values))))" "(let-values((()" "(begin" -"(let-values(((lst_451) s-lifted-defns_0))" +"(let-values(((lst_454) s-lifted-defns_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_451)))" -"((letrec-values(((for-loop_340)" -"(lambda(lst_452)" +"(let-values()(check-list lst_454)))" +"((letrec-values(((for-loop_345)" +"(lambda(lst_455)" "(begin" " 'for-loop" -"(if(pair? lst_452)" -"(let-values(((s-lifted-defn_0)(unsafe-car lst_452))" -"((rest_256)(unsafe-cdr lst_452)))" +"(if(pair? lst_455)" +"(let-values(((s-lifted-defn_0)(unsafe-car lst_455))" +"((rest_258)(unsafe-cdr lst_455)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76951,38 +77270,38 @@ static const char *startup_source = "(let-values(((ok?_88" " define-values724_0" " _725_0)" -"(let-values(((s_858)" +"(let-values(((s_864)" " s-lifted-defn_0))" "(let-values(((orig-s_95)" -" s_858))" +" s_864))" "(let-values(((define-values724_1" " _725_1)" -"(let-values(((s_859)" +"(let-values(((s_865)" "(if(syntax?$1" -" s_858)" +" s_864)" "(syntax-e$1" -" s_858)" -" s_858)))" +" s_864)" +" s_864)))" "(if(pair?" -" s_859)" +" s_865)" "(let-values(((define-values726_0)" -"(let-values(((s_860)" +"(let-values(((s_866)" "(car" -" s_859)))" -" s_860))" +" s_865)))" +" s_866))" "((_727_0)" -"(let-values(((s_861)" +"(let-values(((s_867)" "(cdr" -" s_859)))" -"(let-values(((s_862)" +" s_865)))" +"(let-values(((s_868)" "(if(syntax?$1" -" s_861)" +" s_867)" "(syntax-e$1" -" s_861)" -" s_861)))" +" s_867)" +" s_867)))" "(let-values(((flat-s_62)" "(to-syntax-list.1" -" s_862)))" +" s_868)))" "(if(not" " flat-s_62)" "(let-values()" @@ -77047,23 +77366,23 @@ static const char *startup_source = " s-lifted-defn_0))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_340 rest_256)(values))))" +"(if(not #f)(for-loop_345 rest_258)(values))))" "(values))))))" -" for-loop_340)" -" lst_451)))" +" for-loop_345)" +" lst_454)))" "(values))))" "(let-values()" "(let-values(((ok?_89 form-id720_0 _721_0)" -"(let-values(((s_863) exp-body_10))" -"(let-values(((orig-s_96) s_863))" +"(let-values(((s_869) exp-body_10))" +"(let-values(((orig-s_96) s_869))" "(let-values(((form-id720_1 _721_1)" -"(let-values(((s_864)" -"(if(syntax?$1 s_863)(syntax-e$1 s_863) s_863)))" -"(if(pair? s_864)" +"(let-values(((s_870)" +"(if(syntax?$1 s_869)(syntax-e$1 s_869) s_869)))" +"(if(pair? s_870)" "(let-values(((form-id722_0)" -"(let-values(((s_865)(car s_864))) s_865))" +"(let-values(((s_871)(car s_870))) s_871))" "((_723_0)" -"(let-values(((s_866)(cdr s_864))) s_866)))" +"(let-values(((s_872)(cdr s_870))) s_872)))" "(values form-id722_0 _723_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_96)))))" "(values #t form-id720_1 _721_1))))))" @@ -77078,27 +77397,27 @@ static const char *startup_source = "(void))))))" "(define-values" "(log-defn-enter)" -"(lambda(ctx_122 defn_1)" +"(lambda(ctx_123 defn_1)" "(begin" -"(let-values(((obs_166)(expand-context-observer ctx_122)))" +"(let-values(((obs_166)(expand-context-observer ctx_123)))" "(if obs_166" "(let-values()" "(let-values(((s-defn_0)(defn-extract-syntax defn_1)))" "(let-values(((ok?_90 define-values728_0 _729_0)" -"(let-values(((s_867) s-defn_0))" -"(let-values(((orig-s_97) s_867))" +"(let-values(((s_873) s-defn_0))" +"(let-values(((orig-s_97) s_873))" "(let-values(((define-values728_1 _729_1)" -"(let-values(((s_868)(if(syntax?$1 s_867)(syntax-e$1 s_867) s_867)))" -"(if(pair? s_868)" +"(let-values(((s_874)(if(syntax?$1 s_873)(syntax-e$1 s_873) s_873)))" +"(if(pair? s_874)" "(let-values(((define-values730_0)" -"(let-values(((s_869)(car s_868))) s_869))" +"(let-values(((s_875)(car s_874))) s_875))" "((_731_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_63)(to-syntax-list.1 s_871)))" +"(let-values(((s_876)(cdr s_874)))" +"(let-values(((s_877)" +"(if(syntax?$1 s_876)" +"(syntax-e$1 s_876)" +" s_876)))" +"(let-values(((flat-s_63)(to-syntax-list.1 s_877)))" "(if(not flat-s_63)" "(let-values()" "(raise-syntax-error$1" @@ -77117,9 +77436,9 @@ static const char *startup_source = "(void))))))" "(define-values" "(log-defn-exit)" -"(lambda(ctx_123 defn_2 exp-rhs_7)" +"(lambda(ctx_124 defn_2 exp-rhs_7)" "(begin" -"(let-values(((obs_167)(expand-context-observer ctx_123)))" +"(let-values(((obs_167)(expand-context-observer ctx_124)))" "(if obs_167" "(let-values()" "(let-values(((s-defn_1)" @@ -77131,9 +77450,9 @@ static const char *startup_source = "(void))))))" "(define-values" "(as-expand-time-top-level-bindings)" -"(lambda(ids_49 s_153 ctx_124)" +"(lambda(ids_49 s_69 ctx_125)" "(begin" -"(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_124)))" +"(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_125)))" "(let-values(((tl-ids_2)" "(reverse$1" "(let-values(((lst_6) ids_49))" @@ -77141,67 +77460,67 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_6)))" -"((letrec-values(((for-loop_103)" -"(lambda(fold-var_393 lst_86)" +"((letrec-values(((for-loop_104)" +"(lambda(fold-var_403 lst_85)" "(begin" " 'for-loop" -"(if(pair? lst_86)" -"(let-values(((id_164)(unsafe-car lst_86))" -"((rest_40)(unsafe-cdr lst_86)))" +"(if(pair? lst_85)" +"(let-values(((id_167)(unsafe-car lst_85))" +"((rest_40)(unsafe-cdr lst_85)))" "(let-values(((fold-var_61)" -"(let-values(((fold-var_62) fold-var_393))" -"(let-values(((fold-var_394)" +"(let-values(((fold-var_62) fold-var_403))" +"(let-values(((fold-var_404)" "(let-values()" "(cons" "(let-values()" "(remove-use-site-scopes" -" id_164" -" ctx_124))" +" id_167" +" ctx_125))" " fold-var_62))))" -"(values fold-var_394)))))" -"(if(not #f)(for-loop_103 fold-var_61 rest_40) fold-var_61)))" -" fold-var_393)))))" -" for-loop_103)" +"(values fold-var_404)))))" +"(if(not #f)(for-loop_104 fold-var_61 rest_40) fold-var_61)))" +" fold-var_403)))))" +" for-loop_104)" " null" " lst_6))))))" "(let-values((()" "(begin" -"(let-values(((tl-ids1_0) tl-ids_2)((temp2_8)(expand-context-phase ctx_124))((s3_4) s_153))" -"(check-no-duplicate-ids8.1 #f #f tl-ids1_0 temp2_8 s3_4 #f #f))" +"(let-values(((tl-ids1_0) tl-ids_2)((temp2_9)(expand-context-phase ctx_125))((s3_4) s_69))" +"(check-no-duplicate-ids8.1 #f #f tl-ids1_0 temp2_9 s3_4 #f #f))" "(values))))" "(let-values(((tmp-bind-ids_0)" "(reverse$1" -"(let-values(((lst_101) tl-ids_2))" +"(let-values(((lst_100) tl-ids_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_101)))" -"((letrec-values(((for-loop_341)" -"(lambda(fold-var_218 lst_87)" +"(let-values()(check-list lst_100)))" +"((letrec-values(((for-loop_346)" +"(lambda(fold-var_217 lst_86)" "(begin" " 'for-loop" -"(if(pair? lst_87)" -"(let-values(((id_165)(unsafe-car lst_87))" -"((rest_237)(unsafe-cdr lst_87)))" -"(let-values(((fold-var_228)" -"(let-values(((fold-var_31) fold-var_218))" -"(let-values(((fold-var_32)" +"(if(pair? lst_86)" +"(let-values(((id_168)(unsafe-car lst_86))" +"((rest_239)(unsafe-cdr lst_86)))" +"(let-values(((fold-var_26)" +"(let-values(((fold-var_152) fold-var_217))" +"(let-values(((fold-var_220)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_165" +" id_168" " top-level-bind-scope_6))" -" fold-var_31))))" -"(values fold-var_32)))))" +" fold-var_152))))" +"(values fold-var_220)))))" "(if(not #f)" -"(for-loop_341 fold-var_228 rest_237)" -" fold-var_228)))" -" fold-var_218)))))" -" for-loop_341)" +"(for-loop_346 fold-var_26 rest_239)" +" fold-var_26)))" +" fold-var_217)))))" +" for-loop_346)" " null" -" lst_101))))))" -"(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_124)))))))))" +" lst_100))))))" +"(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_125)))))))))" "(void" "(add-core-form!*" " 'define-values" @@ -77221,26 +77540,25 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_25)(syntax-disarm$1 s_0)))" "(let-values(((ok?_24 define-values1_0 id2_1 rhs3_0)" -"(let-values(((s_170) s_0))" -"(let-values(((orig-s_98) s_170))" +"(let-values(((s_173) s_0))" +"(let-values(((orig-s_98) s_173))" "(let-values(((define-values1_1 id2_2 rhs3_1)" -"(let-values(((s_40)(if(syntax?$1 s_170)(syntax-e$1 s_170) s_170)))" +"(let-values(((s_40)(if(syntax?$1 s_173)(syntax-e$1 s_173) s_173)))" "(if(pair? s_40)" -"(let-values(((define-values4_0)" -"(let-values(((s_180)(car s_40))) s_180))" +"(let-values(((define-values4_0)(let-values(((s_73)(car s_40))) s_73))" "((id5_0 rhs6_0)" "(let-values(((s_41)(cdr s_40)))" -"(let-values(((s_172)" +"(let-values(((s_175)" "(if(syntax?$1 s_41)" "(syntax-e$1 s_41)" " s_41)))" -"(if(pair? s_172)" +"(if(pair? s_175)" "(let-values(((id7_0)" -"(let-values(((s_159)(car s_172)))" +"(let-values(((s_160)(car s_175)))" "(let-values(((s_5)" -"(if(syntax?$1 s_159)" -"(syntax-e$1 s_159)" -" s_159)))" +"(if(syntax?$1 s_160)" +"(syntax-e$1 s_160)" +" s_160)))" "(let-values(((flat-s_64)" "(to-syntax-list.1" " s_5)))" @@ -77251,7 +77569,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_98))" "(let-values()" -"(let-values(((id_166)" +"(let-values(((id_169)" "(let-values(((lst_24)" " flat-s_64))" "(begin" @@ -77261,81 +77579,81 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_24)))" -"((letrec-values(((for-loop_253)" +"((letrec-values(((for-loop_254)" "(lambda(id_6" -" lst_81)" +" lst_80)" "(begin" " 'for-loop" "(if(pair?" -" lst_81)" -"(let-values(((s_181)" +" lst_80)" +"(let-values(((s_184)" "(unsafe-car" -" lst_81))" +" lst_80))" "((rest_141)" "(unsafe-cdr" -" lst_81)))" -"(let-values(((id_167)" +" lst_80)))" +"(let-values(((id_170)" "(let-values(((id_52)" " id_6))" -"(let-values(((id_168)" +"(let-values(((id_171)" "(let-values()" "(let-values(((id10_1)" "(let-values()" "(if(let-values(((or-part_53)" "(if(syntax?$1" -" s_181)" +" s_184)" "(symbol?" "(syntax-e$1" -" s_181))" +" s_184))" " #f)))" "(if or-part_53" " or-part_53" "(symbol?" -" s_181)))" -" s_181" +" s_184)))" +" s_184" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_98" -" s_181)))))" +" s_184)))))" "(cons" " id10_1" " id_52)))))" "(values" -" id_168)))))" +" id_171)))))" "(if(not" " #f)" -"(for-loop_253" -" id_167" +"(for-loop_254" +" id_170" " rest_141)" -" id_167)))" +" id_170)))" " id_6)))))" -" for-loop_253)" +" for-loop_254)" " null" " lst_24)))))" -"(reverse$1 id_166))))))))" +"(reverse$1 id_169))))))))" "((rhs8_0)" -"(let-values(((s_79)(cdr s_172)))" -"(let-values(((s_383)" -"(if(syntax?$1 s_79)" -"(syntax-e$1 s_79)" -" s_79)))" -"(if(pair? s_383)" +"(let-values(((s_85)(cdr s_175)))" +"(let-values(((s_385)" +"(if(syntax?$1 s_85)" +"(syntax-e$1 s_85)" +" s_85)))" +"(if(pair? s_385)" "(let-values(((rhs9_0)" "(let-values(((s_43)" "(car" -" s_383)))" +" s_385)))" " s_43))" "(()" -"(let-values(((s_302)" +"(let-values(((s_305)" "(cdr" -" s_383)))" +" s_385)))" "(let-values(((s_35)" "(if(syntax?$1" -" s_302)" +" s_305)" "(syntax-e$1" -" s_302)" -" s_302)))" +" s_305)" +" s_305)))" "(if(null?" " s_35)" "(values)" @@ -77365,50 +77683,50 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'define-syntaxes" -"(lambda(s_872 ctx_125)" +"(lambda(s_878 ctx_126)" "(let-values((()" "(begin" -"(let-values(((obs_169)(expand-context-observer ctx_125)))" +"(let-values(((obs_169)(expand-context-observer ctx_126)))" "(if obs_169" "(let-values()(let-values()(call-expand-observe obs_169 'prim-define-syntaxes)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_170)(expand-context-observer ctx_125)))" +"(let-values(((obs_170)(expand-context-observer ctx_126)))" "(if obs_170(let-values()(let-values()(call-expand-observe obs_170 'prepare-env)))(void)))" "(values))))" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_125) 'top-level)" +"(if(eq?(expand-context-context ctx_126) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_872)))" +" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_878)))" "(values))))" -"(let-values(((disarmed-s_26)(syntax-disarm$1 s_872)))" +"(let-values(((disarmed-s_26)(syntax-disarm$1 s_878)))" "(let-values(((ok?_91 define-syntaxes15_0 id16_2 rhs17_0)" -"(let-values(((s_427) disarmed-s_26))" -"(let-values(((orig-s_99) s_427))" +"(let-values(((s_431) disarmed-s_26))" +"(let-values(((orig-s_99) s_431))" "(let-values(((define-syntaxes15_1 id16_3 rhs17_1)" -"(let-values(((s_20)(if(syntax?$1 s_427)(syntax-e$1 s_427) s_427)))" +"(let-values(((s_20)(if(syntax?$1 s_431)(syntax-e$1 s_431) s_431)))" "(if(pair? s_20)" "(let-values(((define-syntaxes18_0)" "(let-values(((s_23)(car s_20))) s_23))" "((id19_1 rhs20_0)" -"(let-values(((s_464)(cdr s_20)))" +"(let-values(((s_467)(cdr s_20)))" "(let-values(((s_24)" -"(if(syntax?$1 s_464)" -"(syntax-e$1 s_464)" -" s_464)))" +"(if(syntax?$1 s_467)" +"(syntax-e$1 s_467)" +" s_467)))" "(if(pair? s_24)" "(let-values(((id21_0)" -"(let-values(((s_725)(car s_24)))" -"(let-values(((s_472)" -"(if(syntax?$1 s_725)" -"(syntax-e$1 s_725)" -" s_725)))" +"(let-values(((s_732)(car s_24)))" +"(let-values(((s_475)" +"(if(syntax?$1 s_732)" +"(syntax-e$1 s_732)" +" s_732)))" "(let-values(((flat-s_65)" "(to-syntax-list.1" -" s_472)))" +" s_475)))" "(if(not flat-s_65)" "(let-values()" "(raise-syntax-error$1" @@ -77416,8 +77734,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_99))" "(let-values()" -"(let-values(((id_77)" -"(let-values(((lst_181)" +"(let-values(((id_172)" +"(let-values(((lst_180)" " flat-s_65))" "(begin" "(if(variable-reference-from-unsafe?" @@ -77425,84 +77743,84 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_181)))" -"((letrec-values(((for-loop_342)" -"(lambda(id_169" -" lst_453)" +" lst_180)))" +"((letrec-values(((for-loop_347)" +"(lambda(id_173" +" lst_456)" "(begin" " 'for-loop" "(if(pair?" -" lst_453)" -"(let-values(((s_147)" +" lst_456)" +"(let-values(((s_150)" "(unsafe-car" -" lst_453))" -"((rest_257)" +" lst_456))" +"((rest_259)" "(unsafe-cdr" -" lst_453)))" -"(let-values(((id_100)" -"(let-values(((id_101)" -" id_169))" -"(let-values(((id_170)" +" lst_456)))" +"(let-values(((id_174)" +"(let-values(((id_96)" +" id_173))" +"(let-values(((id_97)" "(let-values()" "(let-values(((id24_1)" "(let-values()" -"(if(let-values(((or-part_363)" +"(if(let-values(((or-part_361)" "(if(syntax?$1" -" s_147)" +" s_150)" "(symbol?" "(syntax-e$1" -" s_147))" +" s_150))" " #f)))" -"(if or-part_363" -" or-part_363" +"(if or-part_361" +" or-part_361" "(symbol?" -" s_147)))" -" s_147" +" s_150)))" +" s_150" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_99" -" s_147)))))" +" s_150)))))" "(cons" " id24_1" -" id_101)))))" +" id_96)))))" "(values" -" id_170)))))" +" id_97)))))" "(if(not" " #f)" -"(for-loop_342" -" id_100" -" rest_257)" -" id_100)))" -" id_169)))))" -" for-loop_342)" +"(for-loop_347" +" id_174" +" rest_259)" +" id_174)))" +" id_173)))))" +" for-loop_347)" " null" -" lst_181)))))" -"(reverse$1 id_77))))))))" +" lst_180)))))" +"(reverse$1 id_172))))))))" "((rhs22_0)" -"(let-values(((s_495)(cdr s_24)))" -"(let-values(((s_478)" -"(if(syntax?$1 s_495)" -"(syntax-e$1 s_495)" -" s_495)))" -"(if(pair? s_478)" +"(let-values(((s_501)(cdr s_24)))" +"(let-values(((s_483)" +"(if(syntax?$1 s_501)" +"(syntax-e$1 s_501)" +" s_501)))" +"(if(pair? s_483)" "(let-values(((rhs23_2)" -"(let-values(((s_166)" +"(let-values(((s_169)" "(car" -" s_478)))" -" s_166))" +" s_483)))" +" s_169))" "(()" "(let-values(((s_44)" "(cdr" -" s_478)))" -"(let-values(((s_460)" +" s_483)))" +"(let-values(((s_463)" "(if(syntax?$1" " s_44)" "(syntax-e$1" " s_44)" " s_44)))" "(if(null?" -" s_460)" +" s_463)" "(values)" "(raise-syntax-error$1" " #f" @@ -77521,37 +77839,37 @@ static const char *startup_source = "(values define-syntaxes18_0 id19_1 rhs20_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_99)))))" "(values #t define-syntaxes15_1 id16_3 rhs17_1))))))" -"(let-values(((ids_51 syms_29)(as-expand-time-top-level-bindings id16_2 s_872 ctx_125)))" +"(let-values(((ids_51 syms_29)(as-expand-time-top-level-bindings id16_2 s_878 ctx_126)))" "(let-values(((exp-rhs_9)" -"(let-values(((temp25_8) rhs17_0)((temp26_7)(as-named-context ctx_125 ids_51)))" +"(let-values(((temp25_8) rhs17_0)((temp26_7)(as-named-context ctx_126 ids_51)))" "(expand-transformer47.1 #f #f #f #f #f #f #f #f #f #f #f #f temp25_8 temp26_7))))" -"(if(expand-context-to-parsed? ctx_125)" -"(parsed-define-syntaxes20.1 s_872 ids_51 syms_29 exp-rhs_9)" -"(let-values(((s27_3) s_872)((temp28_6)(list define-syntaxes15_0 ids_51 exp-rhs_9)))" -"(rebuild5.1 #f #f s27_3 temp28_6)))))))))))))" +"(if(expand-context-to-parsed? ctx_126)" +"(parsed-define-syntaxes20.1 s_878 ids_51 syms_29 exp-rhs_9)" +"(let-values(((s27_3) s_878)((temp28_7)(list define-syntaxes15_0 ids_51 exp-rhs_9)))" +"(rebuild5.1 #f #f s27_3 temp28_7)))))))))))))" "(void" "(add-core-form!*" " 'begin-for-syntax" -"(lambda(s_481 ctx_10)" +"(lambda(s_486 ctx_10)" "(let-values((()" "(begin" "(if(eq?(expand-context-context ctx_10) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_481)))" +" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_486)))" "(values))))" "(let-values(((ok?_92 begin-for-syntax29_0 form30_0)" -"(let-values(((s_873) s_481))" -"(let-values(((orig-s_100) s_873))" +"(let-values(((s_426) s_486))" +"(let-values(((orig-s_100) s_426))" "(let-values(((begin-for-syntax29_1 form30_1)" -"(let-values(((s_874)(if(syntax?$1 s_873)(syntax-e$1 s_873) s_873)))" -"(if(pair? s_874)" +"(let-values(((s_427)(if(syntax?$1 s_426)(syntax-e$1 s_426) s_426)))" +"(if(pair? s_427)" "(let-values(((begin-for-syntax31_0)" -"(let-values(((s_31)(car s_874))) s_31))" +"(let-values(((s_31)(car s_427))) s_31))" "((form32_0)" -"(let-values(((s_46)(cdr s_874)))" -"(let-values(((s_148)" +"(let-values(((s_46)(cdr s_427)))" +"(let-values(((s_151)" "(if(syntax?$1 s_46)(syntax-e$1 s_46) s_46)))" -"(let-values(((flat-s_66)(to-syntax-list.1 s_148)))" +"(let-values(((flat-s_66)(to-syntax-list.1 s_151)))" "(if(not flat-s_66)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_100))" @@ -77653,7 +77971,7 @@ static const char *startup_source = "(call-expand-observe" " obs_16" " 'enter-list" -"(datum->syntax$1 #f form30_0 s_481))))" +"(datum->syntax$1 #f form30_0 s_486))))" "(void)))" "(values))))" "(let-values(((exp-forms_0)" @@ -77679,7 +77997,7 @@ static const char *startup_source = "(datum->syntax$1" " #f" " forms_2" -" s_481))))" +" s_486))))" "(void)))" " forms_2)))" "(let-values()" @@ -77697,7 +78015,7 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((exp-form_0)" -"(let-values(((temp40_4)" +"(let-values(((temp40_5)" "(car" " forms_1))" "((capture-ctx41_0)" @@ -77707,7 +78025,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp40_4" +" temp40_5" " capture-ctx41_0))))" "(loop_112" "(cdr forms_1)" @@ -77717,8 +78035,8 @@ static const char *startup_source = " loop_112)" " forms_0" " null)))" -"(let-values(((lifts_15)(get-and-clear-lifts! lift-ctx_7)))" -"(if(null? lifts_15)" +"(let-values(((lifts_14)(get-and-clear-lifts! lift-ctx_7)))" +"(if(null? lifts_14)" "(let-values() exp-forms_0)" "(let-values()" "(let-values((()" @@ -77732,11 +78050,11 @@ static const char *startup_source = "(call-expand-observe" " obs_173" " 'module-lift-loop" -" lifts_15)))" +" lifts_14)))" "(void)))" "(values))))" "(let-values(((beg_0)" -"(let-values(((lifts42_0) lifts_15)" +"(let-values(((lifts42_0) lifts_14)" "((temp43_5) #f)" "((temp44_4)" "(expand-context-phase" @@ -77760,39 +78078,39 @@ static const char *startup_source = " loop_87)" " form30_0)))" "(if(expand-context-to-parsed? ctx_10)" -"(parsed-begin-for-syntax21.1 s_481 all-exp-forms_0)" -"(let-values(((s45_1) s_481)((temp46_4)(cons begin-for-syntax29_0 all-exp-forms_0)))" +"(parsed-begin-for-syntax21.1 s_486 all-exp-forms_0)" +"(let-values(((s45_1) s_486)((temp46_4)(cons begin-for-syntax29_0 all-exp-forms_0)))" "(rebuild5.1 #f #f s45_1 temp46_4))))))))))))))" "(void" "(add-core-form!*" " '#%require" -"(lambda(s_33 ctx_126)" +"(lambda(s_33 ctx_127)" "(let-values((()" "(begin" -"(let-values(((obs_174)(expand-context-observer ctx_126)))" +"(let-values(((obs_174)(expand-context-observer ctx_127)))" "(if obs_174(let-values()(let-values()(call-expand-observe obs_174 '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_33)))" "(values))))" "(let-values(((disarmed-s_27)(syntax-disarm$1 s_33)))" "(let-values(((ok?_93 #%require47_0 req48_0)" -"(let-values(((s_194) disarmed-s_27))" -"(let-values(((orig-s_4) s_194))" +"(let-values(((s_198) disarmed-s_27))" +"(let-values(((orig-s_4) s_198))" "(let-values(((#%require47_1 req48_1)" -"(let-values(((s_58)(if(syntax?$1 s_194)(syntax-e$1 s_194) s_194)))" +"(let-values(((s_58)(if(syntax?$1 s_198)(syntax-e$1 s_198) s_198)))" "(if(pair? s_58)" -"(let-values(((#%require49_0)(let-values(((s_36)(car s_58))) s_36))" +"(let-values(((#%require49_0)(let-values(((s_507)(car s_58))) s_507))" "((req50_0)" -"(let-values(((s_875)(cdr s_58)))" -"(let-values(((s_196)" -"(if(syntax?$1 s_875)" -"(syntax-e$1 s_875)" -" s_875)))" -"(let-values(((flat-s_67)(to-syntax-list.1 s_196)))" +"(let-values(((s_879)(cdr s_58)))" +"(let-values(((s_200)" +"(if(syntax?$1 s_879)" +"(syntax-e$1 s_879)" +" s_879)))" +"(let-values(((flat-s_67)(to-syntax-list.1 s_200)))" "(if(not flat-s_67)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_4))" @@ -77802,44 +78120,44 @@ static const char *startup_source = "(values #t #%require47_1 req48_1))))))" "(let-values(((sc_40)(new-scope 'macro)))" "(begin" -"(let-values(((temp51_4)" +"(let-values(((temp51_3)" "(reverse$1" -"(let-values(((lst_454) req48_0))" +"(let-values(((lst_457) req48_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_454)))" -"((letrec-values(((for-loop_343)" -"(lambda(fold-var_286 lst_152)" +"(let-values()(check-list lst_457)))" +"((letrec-values(((for-loop_348)" +"(lambda(fold-var_292 lst_151)" "(begin" " 'for-loop" -"(if(pair? lst_152)" -"(let-values(((req_20)(unsafe-car lst_152))" -"((rest_258)(unsafe-cdr lst_152)))" -"(let-values(((fold-var_395)" -"(let-values(((fold-var_289) fold-var_286))" -"(let-values(((fold-var_396)" +"(if(pair? lst_151)" +"(let-values(((req_20)(unsafe-car lst_151))" +"((rest_260)(unsafe-cdr lst_151)))" +"(let-values(((fold-var_405)" +"(let-values(((fold-var_295) fold-var_292))" +"(let-values(((fold-var_406)" "(let-values()" "(cons" "(let-values()" "(add-scope" " req_20" " sc_40))" -" fold-var_289))))" -"(values fold-var_396)))))" +" fold-var_295))))" +"(values fold-var_406)))))" "(if(not #f)" -"(for-loop_343 fold-var_395 rest_258)" -" fold-var_395)))" -" fold-var_286)))))" -" for-loop_343)" +"(for-loop_348 fold-var_405 rest_260)" +" fold-var_405)))" +" fold-var_292)))))" +" for-loop_348)" " null" -" lst_454)))))" +" lst_457)))))" "((s52_0) s_33)" "((temp53_5) #f)" -"((temp54_6)(expand-context-namespace ctx_126))" -"((temp55_5)(expand-context-phase ctx_126))" +"((temp54_6)(expand-context-namespace ctx_127))" +"((temp55_5)(expand-context-phase ctx_127))" "((temp56_4)(let-values(((temp59_6) #f))(make-requires+provides8.1 #f #f temp59_6)))" -"((temp57_1) 'require)" +"((temp57_2) 'require)" "((temp58_5) #t))" "(parse-and-perform-requires!30.1" " #f" @@ -77860,36 +78178,36 @@ static const char *startup_source = " #f" " temp53_5" " #t" -" temp57_1" -" temp51_4" +" temp57_2" +" temp51_3" " s52_0" " temp54_6" " temp55_5" " temp56_4))" -"(if(expand-context-to-parsed? ctx_126)(parsed-require23.1 s_33) s_33))))))))))" +"(if(expand-context-to-parsed? ctx_127)(parsed-require23.1 s_33) s_33))))))))))" "(void" "(add-core-form!*" " '#%provide" -"(lambda(s_318 ctx_127)" +"(lambda(s_320 ctx_128)" "(begin" -"(let-values(((obs_175)(expand-context-observer ctx_127)))" +"(let-values(((obs_175)(expand-context-observer ctx_128)))" "(if obs_175(let-values()(let-values()(call-expand-observe obs_175 'prim-provide)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_318)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_320)))))" "(define-values(ns)(make-namespace))" "(void" "(begin" "(declare-core-module! ns)" "(let-values(((temp1_3) '#%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_3 read-primitives2_0))" -"(let-values(((temp4_10) '#%main)((main-primitives5_0) main-primitives)((ns6_2) ns))" -"(declare-hash-based-module!41.1 ns6_2 #f #f #f #f #f #f #f #f temp4_10 main-primitives5_0))" +"(let-values(((temp4_9) '#%main)((main-primitives5_0) main-primitives)((ns6_2) ns))" +"(declare-hash-based-module!41.1 ns6_2 #f #f #f #f #f #f #f #f temp4_9 main-primitives5_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_8) '#%place-struct)" +"(let-values(((temp10_9) '#%place-struct)" "((place-struct-primitives11_0) place-struct-primitives)" "((ns12_1) ns)" "((temp13_3) '(dynamic-place)))" -"(declare-hash-based-module!41.1 ns12_1 #f #f temp13_3 #t #f #f #f #f temp10_8 place-struct-primitives11_0))" +"(declare-hash-based-module!41.1 ns12_1 #f #f temp13_3 #t #f #f #f #f temp10_9 place-struct-primitives11_0))" "(let-values(((temp14_10) '#%boot)((boot-primitives15_0) boot-primitives)((ns16_1) ns))" "(declare-hash-based-module!41.1 ns16_1 #f #f #f #f #f #f #f #f temp14_10 boot-primitives15_0))" "(let-values(((linklet-primitives_0)" @@ -77904,67 +78222,70 @@ 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(((ns26_3) ns)" "((eval27_0) 1/eval)" -"((temp28_7)" -"(let-values(((ht_171) main-primitives))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-in-hash-keys ht_171)))" -"((letrec-values(((for-loop_20)" -"(lambda(table_231 i_3)" -"(begin" -" 'for-loop" -"(if i_3" -"(let-values(((name_80)(hash-iterate-key ht_171 i_3)))" -"(let-values(((table_218)" -"(let-values(((table_232) table_231))" -"(let-values(((table_186)" -"(let-values()" -"(let-values(((key_96 val_87)" -"(let-values()" -"(values" -"(let-values() name_80)" -" #t))))" -"(hash-set table_232 key_96 val_87)))))" -"(values table_186)))))" -"(if(not #f)" -"(for-loop_20 table_218(hash-iterate-next ht_171 i_3))" -" table_218)))" -" table_231)))))" -" for-loop_20)" -" '#hash()" -"(hash-iterate-first ht_171)))))" -"((temp29_4)" -"(let-values(((ht_172) read-primitives))" +"((temp28_8)" +"(let-values(((ht_172) main-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_172)))" -"((letrec-values(((for-loop_325)" -"(lambda(table_189 i_186)" +"((letrec-values(((for-loop_20)" +"(lambda(table_230 i_3)" "(begin" " 'for-loop" -"(if i_186" -"(let-values(((name_81)(hash-iterate-key ht_172 i_186)))" -"(let-values(((table_116)" -"(let-values(((table_109) table_189))" -"(let-values(((table_110)" +"(if i_3" +"(let-values(((name_81)(hash-iterate-key ht_172 i_3)))" +"(let-values(((table_217)" +"(let-values(((table_231) table_230))" +"(let-values(((table_186)" "(let-values()" -"(let-values(((key_97 val_88)" +"(let-values(((key_99 val_90)" "(let-values()" "(values" "(let-values() name_81)" " #t))))" -"(hash-set table_109 key_97 val_88)))))" +"(hash-set table_231 key_99 val_90)))))" +"(values table_186)))))" +"(if(not #f)" +"(for-loop_20 table_217(hash-iterate-next ht_172 i_3))" +" table_217)))" +" table_230)))))" +" for-loop_20)" +" '#hash()" +"(hash-iterate-first ht_172)))))" +"((temp29_4)" +"(let-values(((ht_173) read-primitives))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-in-hash-keys ht_173)))" +"((letrec-values(((for-loop_330)" +"(lambda(table_189 i_187)" +"(begin" +" 'for-loop" +"(if i_187" +"(let-values(((name_82)(hash-iterate-key ht_173 i_187)))" +"(let-values(((table_116)" +"(let-values(((table_109) table_189))" +"(let-values(((table_110)" +"(let-values()" +"(let-values(((key_100 val_91)" +"(let-values()" +"(values" +"(let-values() name_82)" +" #t))))" +"(hash-set" +" table_109" +" key_100" +" val_91)))))" "(values table_110)))))" "(if(not #f)" -"(for-loop_325 table_116(hash-iterate-next ht_172 i_186))" +"(for-loop_330 table_116(hash-iterate-next ht_173 i_187))" " table_116)))" " table_189)))))" -" for-loop_325)" +" for-loop_330)" " '#hash()" -"(hash-iterate-first ht_172))))))" -"(declare-kernel-module!8.1 eval27_0 temp28_7 temp29_4 ns26_3))" +"(hash-iterate-first ht_173))))))" +"(declare-kernel-module!8.1 eval27_0 temp28_8 temp29_4 ns26_3))" "(begin" "(let-values(((lst_17) runtime-instances))" "(begin" @@ -77974,33 +78295,33 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_20)" -"(let-values(((name_82)(unsafe-car lst_20))((rest_6)(unsafe-cdr lst_20)))" +"(let-values(((name_83)(unsafe-car lst_20))((rest_6)(unsafe-cdr lst_20)))" "(let-values((()" "(let-values()" -"(if(eq? name_82 '#%kernel)" +"(if(eq? name_83 '#%kernel)" "(values)" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((name30_0) name_82)" +"(let-values(((name30_0) name_83)" "((ns31_5) ns)" "((temp32_6)" "(let-values(((or-part_295)" "(eq?" -" name_82" +" name_83" " '#%foreign)))" "(if or-part_295" " or-part_295" -"(let-values(((or-part_94)" +"(let-values(((or-part_93)" "(eq?" -" name_82" +" name_83" " '#%futures)))" -"(if or-part_94" -" or-part_94" +"(if or-part_93" +" or-part_93" "(eq?" -" name_82" +" name_83" " '#%unsafe)))))))" "(copy-runtime-module!26.1" " #f" @@ -78031,5 +78352,5 @@ static const char *startup_source = "(declare-reexporting-module!50.1 ns35_1 temp36_9 #t temp33_4 temp34_6))" "(1/current-namespace ns)" "(1/dynamic-require ''#%kernel 0)))" -"(define-values(datum->kernel-syntax)(lambda(s_876)(begin(1/datum->syntax core-stx s_876)))))" +"(define-values(datum->kernel-syntax)(lambda(s_880)(begin(1/datum->syntax core-stx s_880)))))" ;