From 96b69d0366a4821fcaa611f29b5b9abb8e47e4a3 Mon Sep 17 00:00:00 2001 From: Alexis King Date: Fri, 27 Apr 2018 20:12:11 -0500 Subject: [PATCH] Add interned scopes and make-interned-syntax-introducer --- pkgs/base/info.rkt | 2 +- .../scribblings/reference/stx-trans.scrbl | 21 + .../racket-test-core/tests/racket/module.rktl | 48 + racket/src/expander/boot/core-primitive.rkt | 1 + racket/src/expander/compile/serialize.rkt | 4 +- racket/src/expander/expand/syntax-local.rkt | 9 +- racket/src/expander/syntax/debug.rkt | 18 +- racket/src/expander/syntax/scope.rkt | 55 +- racket/src/racket/src/schvers.h | 4 +- racket/src/racket/src/startup.inc | 27320 ++++++++-------- 10 files changed, 13930 insertions(+), 13552 deletions(-) diff --git a/pkgs/base/info.rkt b/pkgs/base/info.rkt index 9069eea0fe..46094c48e4 100644 --- a/pkgs/base/info.rkt +++ b/pkgs/base/info.rkt @@ -12,7 +12,7 @@ (define collection 'multi) -(define version "6.90.0.27") +(define version "6.90.0.28") (define deps `("racket-lib" ["racket" #:version ,version])) diff --git a/pkgs/racket-doc/scribblings/reference/stx-trans.scrbl b/pkgs/racket-doc/scribblings/reference/stx-trans.scrbl index 4955c8e819..fd55639260 100644 --- a/pkgs/racket-doc/scribblings/reference/stx-trans.scrbl +++ b/pkgs/racket-doc/scribblings/reference/stx-trans.scrbl @@ -1036,6 +1036,27 @@ and different result procedures use distinct scopes. added the optional operation argument in the result procedure.}]} +@defproc[(make-interned-syntax-introducer [key symbol?]) + ((syntax?) ((or/c 'flip 'add 'remove)) . ->* . syntax?)]{ + +Like @racket[make-syntax-introducer], but the encapsulated @tech{scope} is interned. Multiple calls to +@racket[make-interned-syntax-introducer] with the same @racket[key] will produce procedures that flip, +add, or remove the same scope, even across @tech{phases} and module @tech{instantiations}. +Furthermore, the scope remains consistent even when embedded in @tech{compiled} code, so a scope +created with @racket[make-interned-syntax-introducer] will retain its identity in syntax objects +loaded from compiled code. (In this sense, the relationship between @racket[make-syntax-introducer] +and @racket[make-interned-syntax-introducer] is analogous to the relationship between +@racket[gensym] and @racket[quote].) + +This function is intended for the implementation of separate binding environments within a single +phase, for which the scope associated with each environment must be the same across modules. + +Unlike @racket[make-syntax-introducer], the scope added by a procedure created with +@racket[make-interned-syntax-introducer] is always treated like a use-site scope, not a +macro-introduction scope, so it does not affect originalness as reported by @racket[syntax-original?]. + +@history[#:added "6.90.0.28"]} + @defproc[(make-syntax-delta-introducer [ext-stx identifier?] [base-stx (or/c syntax? #f)] [phase-level (or/c #f exact-integer?) diff --git a/pkgs/racket-test-core/tests/racket/module.rktl b/pkgs/racket-test-core/tests/racket/module.rktl index 9ff894b066..0d8ddd39e9 100644 --- a/pkgs/racket-test-core/tests/racket/module.rktl +++ b/pkgs/racket-test-core/tests/racket/module.rktl @@ -2487,6 +2487,54 @@ case of module-leve bindings; it doesn't cover local bindings. (local-require (for-template racket/base)) (void))) +;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; `make-interned-syntax-introducer` + +(let ([ns-code '(module ns racket/base + (require (for-syntax racket/base)) + (provide (for-syntax ns-introduce) begin-for-ns) + (begin-for-syntax + (define ns-introducer (make-interned-syntax-introducer 'ns)) + (define (ns-introduce stx) (ns-introducer stx 'add))) + (define-syntax (begin-for-ns stx) + (syntax-case stx () + [(_ form ...) (ns-introduce #'(begin form ...))])))] + [m-code '(module m racket/base + (require (for-syntax racket/base) 'ns) + (provide get-ns-value) + (define-syntax (get-ns-value stx) + (syntax-case stx () + [(_ x) + (identifier? #'x) + #`(quote #,(syntax-local-value (ns-introduce #'x)))])))] + [p-code '(module p racket/base + (require (for-syntax racket/base) 'ns 'm) + (provide foo) + (begin-for-ns + (define-syntax Foo 'ns-val)) + (define-syntax-rule (foo) + (get-ns-value Foo)))] + [u-code '(module u racket/base + (require 'p) + (provide v) + (define v (foo)))]) + (parameterize ([current-namespace (make-base-namespace)]) + (eval ns-code) + (eval m-code) + (eval p-code) + (eval u-code) + (test 'ns-val dynamic-require ''u 'v)) + (parameterize ([current-namespace (make-base-namespace)]) + (let ([compile/eval (λ (code) (let ([s (open-output-bytes)]) + (write (compile code) s) + (eval (parameterize ([read-accept-compiled #t]) + (read (open-input-bytes (get-output-bytes s)))))))]) + (compile/eval ns-code) + (compile/eval m-code) + (compile/eval p-code) + (compile/eval u-code) + (test 'ns-val dynamic-require ''u 'v)))) + ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (report-errs) diff --git a/racket/src/expander/boot/core-primitive.rkt b/racket/src/expander/boot/core-primitive.rkt index 469e61adb8..af2a3c6b7f 100644 --- a/racket/src/expander/boot/core-primitive.rkt +++ b/racket/src/expander/boot/core-primitive.rkt @@ -118,6 +118,7 @@ syntax-local-name make-syntax-introducer + make-interned-syntax-introducer make-syntax-delta-introducer syntax-local-make-delta-introducer diff --git a/racket/src/expander/compile/serialize.rkt b/racket/src/expander/compile/serialize.rkt index eccd964ece..a623e0f996 100644 --- a/racket/src/expander/compile/serialize.rkt +++ b/racket/src/expander/compile/serialize.rkt @@ -18,7 +18,7 @@ "built-in-symbol.rkt" "reserved-symbol.rkt") -;; Serializaiton is mostly for syntax object and module path indexes. +;; Serialization is mostly for syntax object and module path indexes. ;; ;; Serialization is implemented by a combination of direct handling ;; for some primitive datatypes, `prop:serialize` handlers attached @@ -738,6 +738,8 @@ (decode* (deserialize-scope))] [(#:scope+kind) (decode* (deserialize-scope kind))] + [(#:interned-scope) + (decode* (make-interned-scope id))] [(#:multi-scope) (decode* (deserialize-multi-scope name scopes))] [(#:shifted-multi-scope) diff --git a/racket/src/expander/expand/syntax-local.rkt b/racket/src/expander/expand/syntax-local.rkt index c2ab51a80c..f959413071 100644 --- a/racket/src/expander/expand/syntax-local.rkt +++ b/racket/src/expander/expand/syntax-local.rkt @@ -36,6 +36,7 @@ syntax-local-name make-syntax-introducer + make-interned-syntax-introducer make-syntax-delta-introducer syntax-local-make-delta-introducer @@ -114,7 +115,13 @@ ;; ---------------------------------------- (define (make-syntax-introducer [as-use-site? #f]) - (define sc (new-scope (if as-use-site? 'use-site 'macro))) + (do-make-syntax-introducer (new-scope (if as-use-site? 'use-site 'macro)))) + +(define/who (make-interned-syntax-introducer sym-key) + (check who symbol? sym-key) + (do-make-syntax-introducer (make-interned-scope sym-key))) + +(define (do-make-syntax-introducer sc) (lambda (s [mode 'flip]) (check 'syntax-introducer syntax? s) (case mode diff --git a/racket/src/expander/syntax/debug.rkt b/racket/src/expander/syntax/debug.rkt index a531eccdfc..a791f1addd 100644 --- a/racket/src/expander/syntax/debug.rkt +++ b/racket/src/expander/syntax/debug.rkt @@ -60,11 +60,17 @@ (define (scope-set->context scs) (sort (for/list ([sc (in-set scs)]) - (if (representative-scope? sc) - (vector (scope-id sc) - (scope-kind sc) - (multi-scope-name (representative-scope-owner sc))) - (vector (scope-id sc) - (scope-kind sc)))) + (cond + [(interned-scope? sc) + (vector (scope-id sc) + (scope-kind sc) + (interned-scope-key sc))] + [(representative-scope? sc) + (vector (scope-id sc) + (scope-kind sc) + (multi-scope-name (representative-scope-owner sc)))] + [else + (vector (scope-id sc) + (scope-kind sc))])) < #:key (lambda (v) (vector-ref v 0)))) diff --git a/racket/src/expander/syntax/scope.rkt b/racket/src/expander/syntax/scope.rkt index ec45edfd61..efe105f20b 100644 --- a/racket/src/expander/syntax/scope.rkt +++ b/racket/src/expander/syntax/scope.rkt @@ -1,5 +1,6 @@ #lang racket/base -(require "../common/set.rkt" +(require ffi/unsafe/atomic + "../common/set.rkt" "../compile/serialize-property.rkt" "../compile/serialize-state.rkt" "../common/memo.rkt" @@ -14,6 +15,7 @@ "cache.rkt") (provide new-scope + make-interned-scope new-multi-scope add-scope add-scopes @@ -22,14 +24,14 @@ flip-scope flip-scopes push-scope - + syntax-e ; handles lazy scope and taint propagation syntax-e/no-taint ; like `syntax-e`, but doesn't explode a dye pack - + syntax-scope-set syntax-any-scopes? syntax-any-macro-scopes? - + syntax-shift-phase-level syntax-swap-scopes @@ -51,9 +53,9 @@ deserialize-representative-scope-fill! deserialize-multi-scope deserialize-shifted-multi-scope - + generalize-scope - + scope? scope" 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")) + (ser-push! 'tag '#:interned-scope) + (ser-push! (interned-scope-key s)))) + ;; A "multi-scope" represents a group of scopes, each of which exists ;; only at a specific phase, and each in a distinct phase. This ;; infinite group of scopes is realized on demand. A multi-scope is @@ -290,6 +315,24 @@ (define (new-scope kind) (scope (new-scope-id!) kind empty-binding-table)) +;; The intern table used for interned scopes. Access to the table must be +;; atomic so that the table is not left locked if the expansion thread is +;; killed. +(define interned-scopes-table (make-weak-hasheq)) + +(define (make-interned-scope sym) + (define (make) + ;; since interned scopes are reused by unmarshalled code, and because they’re generally unlikely + ;; to be a good target for bindings, always create them with a negative id + (make-ephemeron sym (interned-scope (- (new-scope-id!)) 'interned empty-binding-table sym))) + (call-as-atomic + (lambda () + (or (ephemeron-value + (hash-ref! interned-scopes-table sym make)) + (let ([new (make)]) + (hash-set! interned-scopes-table sym new) + (ephemeron-value new)))))) + (define (new-multi-scope [name #f]) (intern-shifted-multi-scope 0 (multi-scope (new-scope-id!) name (make-hasheqv) (box (hasheqv)) (box (hash))))) diff --git a/racket/src/racket/src/schvers.h b/racket/src/racket/src/schvers.h index fb63662ef8..3fa1e99a4b 100644 --- a/racket/src/racket/src/schvers.h +++ b/racket/src/racket/src/schvers.h @@ -13,12 +13,12 @@ consistently.) */ -#define MZSCHEME_VERSION "6.90.0.27" +#define MZSCHEME_VERSION "6.90.0.28" #define MZSCHEME_VERSION_X 6 #define MZSCHEME_VERSION_Y 90 #define MZSCHEME_VERSION_Z 0 -#define MZSCHEME_VERSION_W 27 +#define MZSCHEME_VERSION_W 28 #define MZSCHEME_VERSION_MAJOR ((MZSCHEME_VERSION_X * 100) + MZSCHEME_VERSION_Y) #define MZSCHEME_VERSION_MINOR ((MZSCHEME_VERSION_Z * 1000) + MZSCHEME_VERSION_W) diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 364ff61414..49ff052816 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -160,6 +160,42 @@ static const char *startup_source = " orig-l_5))))))" " member_1))))))" "(define-values" +"(current-parameterization)" +"(lambda()(begin(extend-parameterization(continuation-mark-set-first #f parameterization-key)))))" +"(define-values" +"(call-with-parameterization)" +"(lambda(paramz_0 thunk_0)" +"(begin" +"(begin" +"(if(parameterization? paramz_0)" +"(void)" +" (let-values () (raise-argument-error 'call-with-parameterization \"parameterization?\" 0 paramz_0 thunk_0)))" +"(if(if(procedure? thunk_0)(procedure-arity-includes? thunk_0 0) #f)" +"(void)" +" (let-values () (raise-argument-error 'call-with-parameterization \"(-> any)\" 1 paramz_0 thunk_0)))" +"(with-continuation-mark parameterization-key paramz_0(thunk_0))))))" +"(define-values" +"(struct:break-paramz make-break-paramz break-paramz? break-paramz-ref break-paramz-set!)" +"(make-struct-type 'break-parameterization #f 1 0 #f))" +"(define-values" +"(current-break-parameterization)" +"(lambda()(begin(make-break-paramz(continuation-mark-set-first #f break-enabled-key)))))" +"(define-values" +"(call-with-break-parameterization)" +"(lambda(paramz_1 thunk_1)" +"(begin" +"(begin" +"(if(break-paramz? paramz_1)" +"(void)" +"(let-values()" +" (raise-argument-error 'call-with-break-parameterization \"break-parameterization?\" 0 paramz_1 thunk_1)))" +"(if(if(procedure? thunk_1)(procedure-arity-includes? thunk_1 0) #f)" +"(void)" +" (let-values () (raise-argument-error 'call-with-parameterization \"(-> any)\" 1 paramz_1 thunk_1)))" +"(begin0" +"(with-continuation-mark break-enabled-key(break-paramz-ref paramz_1 0)(begin(check-for-break)(thunk_1)))" +"(check-for-break))))))" +"(define-values" "(select-handler/no-breaks)" "(lambda(e_0 bpz_0 l_0)" "(begin" @@ -204,7 +240,7 @@ static const char *startup_source = " body-thunk_0)))))" "(define-values" "(call-with-exception-handler)" -"(lambda(exnh_0 thunk_0)(begin(begin0(with-continuation-mark exception-handler-key exnh_0(thunk_0))(void)))))" +"(lambda(exnh_0 thunk_2)(begin(begin0(with-continuation-mark exception-handler-key exnh_0(thunk_2))(void)))))" "(define-values(not-there)(gensym))" "(define-values" "(do-hash-update)" @@ -549,9 +585,9 @@ static const char *startup_source = "((program_2)(find-executable-path program_2 #f #f))))" "(define-values" "(call-with-default-reading-parameterization)" -"(lambda(thunk_1)" +"(lambda(thunk_3)" "(begin" -"(if(if(procedure? thunk_1)(procedure-arity-includes? thunk_1 0) #f)" +"(if(if(procedure? thunk_3)(procedure-arity-includes? thunk_3 0) #f)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -590,8 +626,8 @@ static const char *startup_source = " #t" " 1/current-readtable" " #f)" -"(let-values()(thunk_1)))" -" (raise-argument-error 'call-with-default-reading-parameterization \"(procedure-arity-includes/c 0)\" thunk_1)))))" +"(let-values()(thunk_3)))" +" (raise-argument-error 'call-with-default-reading-parameterization \"(procedure-arity-includes/c 0)\" thunk_3)))))" "(define-values" "(prop:procedure-accessor procedure-accessor? procedure-accessor-ref)" "(make-struct-type-property" @@ -2843,6 +2879,124 @@ static const char *startup_source = " lst_13))))))" "(define-values(start-atomic)(lambda()(begin(unsafe-start-atomic))))" "(define-values(end-atomic)(lambda()(begin(unsafe-end-atomic))))" +"(define-values(start-breakable-atomic)(lambda()(begin(unsafe-start-breakable-atomic))))" +"(define-values(end-breakable-atomic)(lambda()(begin(unsafe-end-breakable-atomic))))" +"(define-values(monitor-owner) #f)" +"(define-values" +"(entered-err-string-handler)" +"(lambda(s_0 n_18)(begin(call-as-nonatomic(lambda()((error-value->string-handler) s_0 n_18))))))" +"(define-values(old-paramz) #f)" +"(define-values(old-break-paramz) #f)" +"(define-values(extra-atomic-depth) 0)" +"(define-values(exited-key)(gensym 'as-exit))" +"(define-values(lock-tag)(make-continuation-prompt-tag 'lock))" +"(define-values" +"(call-as-atomic)" +"(lambda(f_19)" +"(begin" +"(begin" +"(if(if(procedure? f_19)(procedure-arity-includes? f_19 0) #f)" +"(void)" +" (let-values () (raise-type-error 'call-as-atomic \"procedure (arity 0)\" f_19)))" +"(if(eq? monitor-owner(current-thread))" +"(let-values()" +"(dynamic-wind" +"(lambda()(begin(start-breakable-atomic)(set! extra-atomic-depth(add1 extra-atomic-depth))))" +" f_19" +"(lambda()(begin(set! extra-atomic-depth(sub1 extra-atomic-depth))(end-breakable-atomic)))))" +"(let-values()" +"(with-continuation-mark" +" exited-key" +" #f" +"(call-with-continuation-prompt" +"(lambda()" +"(dynamic-wind" +"(lambda()(begin(start-breakable-atomic)(set! monitor-owner(current-thread))))" +"(lambda()" +"(begin" +"(set! old-paramz(current-parameterization))" +"(set! old-break-paramz(current-break-parameterization))" +"(with-continuation-mark" +" parameterization-key" +"(extend-parameterization" +"(continuation-mark-set-first #f parameterization-key)" +" error-value->string-handler" +" entered-err-string-handler)" +"(let-values()" +"(with-continuation-mark" +" break-enabled-key" +"(make-thread-cell #f)" +"(begin" +"(check-for-break)" +"(let-values()" +"(call-with-exception-handler" +"(lambda(exn_0)" +"(if(continuation-mark-set-first #f exited-key)" +" exn_0" +"(abort-current-continuation lock-tag(lambda()(raise exn_0)))))" +" f_19))))))))" +"(lambda()" +"(begin" +"(set! monitor-owner #f)" +"(set! old-paramz #f)" +"(set! old-break-paramz #f)" +"(end-breakable-atomic)))))" +" lock-tag" +"(lambda(t_10)(t_10))))))))))" +"(define-values" +"(call-as-nonatomic)" +"(lambda(f_20)" +"(begin" +"(begin" +"(if(if(procedure? f_20)(procedure-arity-includes? f_20 0) #f)" +"(void)" +" (let-values () (raise-type-error 'call-as-nonatomic \"procedure (arity 0)\" f_20)))" +"(if(eq? monitor-owner(current-thread))" +"(void)" +" (let-values () (error 'call-as-nonatomic \"not in atomic area for ~e\" f_20)))" +"(let-values(((paramz_2) old-paramz)((break-paramz_0) old-break-paramz)((extra-depth_0) extra-atomic-depth))" +"(with-continuation-mark" +" exited-key" +" #t" +"(call-with-parameterization" +" paramz_2" +"(lambda()" +"(call-with-break-parameterization" +" break-paramz_0" +"(lambda()" +"(dynamic-wind" +"(lambda()" +"(begin" +"(set! monitor-owner #f)" +"(set! extra-atomic-depth 0)" +"(end-breakable-atomic)" +"((letrec-values(((loop_53)" +"(lambda(i_26)" +"(begin" +" 'loop" +"(if(zero? i_26)" +"(void)" +"(let-values()(begin(end-breakable-atomic)(loop_53(sub1 i_26)))))))))" +" loop_53)" +" extra-depth_0)))" +" f_20" +"(lambda()" +"(begin" +"(start-breakable-atomic)" +"(set! old-paramz paramz_2)" +"(set! old-break-paramz break-paramz_0)" +"((letrec-values(((loop_54)" +"(lambda(i_27)" +"(begin" +" 'loop" +"(if(zero? i_27)" +"(void)" +"(let-values()" +"(begin(start-breakable-atomic)(loop_54(sub1 i_27)))))))))" +" loop_54)" +" extra-depth_0)" +"(set! extra-atomic-depth extra-depth_0)" +"(set! monitor-owner(current-thread)))))))))))))))" "(define-values(prop:serialize serialize? serialize-ref)(make-struct-type-property 'serialize))" "(define-values" "(prop:serialize-fill! serialize-fill!? serialize-fill!-ref)" @@ -2947,7 +3101,7 @@ static const char *startup_source = "(begin" "(if(list? v_31)" "(if(pair?(cdr v_31))" -"((letrec-values(((loop_53)" +"((letrec-values(((loop_55)" "(lambda(v_32 first?_0)" "(begin" " 'loop" @@ -2959,10 +3113,10 @@ static const char *startup_source = "((first?19_0) first?_0)" "((first?20_0) first?_0))" "(module-path-string?10.1 #f #f first?20_0 #t #f #f first?19_0 #t temp18_0))" -"(loop_53(cdr v_32) #f)" +"(loop_55(cdr v_32) #f)" " #f)" " #f)))))))" -" loop_53)" +" loop_55)" "(cdr v_31)" " #t)" " #f)" @@ -3100,45 +3254,45 @@ static const char *startup_source = "(if for-planet?_0(check-planet-part v_36 len_3)(values 0 0))))" "(if start-package-version-pos_0" "((letrec-values(((loop_43)" -"(lambda(i_26 prev-was-slash?_0 saw-slash?_0 saw-dot?_0)" +"(lambda(i_28 prev-was-slash?_0 saw-slash?_0 saw-dot?_0)" "(begin" " 'loop" -"(if(not(negative? i_26))" +"(if(not(negative? i_28))" "(let-values()" -"(let-values(((c_6)(string-ref v_36 i_26)))" +"(let-values(((c_6)(string-ref v_36 i_28)))" "(if(char=? c_6 '#\\/)" "(let-values()" "(if(not prev-was-slash?_0)" -"(loop_43(sub1 i_26) #t #t saw-dot?_0)" +"(loop_43(sub1 i_28) #t #t saw-dot?_0)" " #f))" "(if(char=? c_6 '#\\.)" "(let-values()" -"(if(if(<(add1 i_26) len_3)" +"(if(if(<(add1 i_28) len_3)" "(if(not" -"(char=?(string-ref v_36(add1 i_26)) '#\\/))" +"(char=?(string-ref v_36(add1 i_28)) '#\\/))" "(not" -"(char=?(string-ref v_36(add1 i_26)) '#\\.))" +"(char=?(string-ref v_36(add1 i_28)) '#\\.))" " #f)" " #f)" "(if(not saw-slash?_0)" -"(loop_43(sub1 i_26) #f saw-slash?_0 #t)" +"(loop_43(sub1 i_28) #f saw-slash?_0 #t)" " #f)" -"(loop_43(sub1 i_26) #f saw-slash?_0 saw-dot?_0)))" +"(loop_43(sub1 i_28) #f saw-slash?_0 saw-dot?_0)))" "(if(let-values(((or-part_34)(plain-char? c_6)))" "(if or-part_34" " or-part_34" "(if(char=? c_6 '#\\%)" -"(if(<(+ i_26 2) len_3)" -"(hex-sequence? v_36(add1 i_26))" +"(if(<(+ i_28 2) len_3)" +"(hex-sequence? v_36(add1 i_28))" " #f)" " #f)))" "(let-values()" -"(loop_43(sub1 i_26) #f saw-slash?_0 saw-dot?_0))" -"(if(if(>= i_26 start-package-version-pos_0)" -"(< i_26 end-package-version-pos_0)" +"(loop_43(sub1 i_28) #f saw-slash?_0 saw-dot?_0))" +"(if(if(>= i_28 start-package-version-pos_0)" +"(< i_28 end-package-version-pos_0)" " #f)" "(let-values()" -"(loop_43(sub1 i_26) #f saw-slash?_0 saw-dot?_0))" +"(loop_43(sub1 i_28) #f saw-slash?_0 saw-dot?_0))" "(let-values() #f)))))))" "(let-values()" "(if(not" @@ -3148,14 +3302,14 @@ static const char *startup_source = "(let-values(((or-part_35) dots-dir-ok?_0))" "(if or-part_35" " or-part_35" -"((letrec-values(((loop_54)" -"(lambda(i_27)" +"((letrec-values(((loop_56)" +"(lambda(i_29)" "(begin" " 'loop" -"(if(= i_27 len_3)" +"(if(= i_29 len_3)" "(let-values() #t)" "(if(char=?" -"(string-ref v_36 i_27)" +"(string-ref v_36 i_29)" " '#\\.)" "(let-values()" "(if(not" @@ -3163,55 +3317,55 @@ static const char *startup_source = "(=" " len_3" "(add1" -" i_27))))" +" i_29))))" "(if or-part_36" " or-part_36" "(char=?" "(string-ref" " v_36" -"(add1 i_27))" +"(add1 i_29))" " '#\\/))))" "(if(not" "(if(char=?" "(string-ref" " v_36" -"(add1 i_27))" +"(add1 i_29))" " '#\\.)" "(let-values(((or-part_37)" "(=" " len_3" "(+" -" i_27" +" i_29" " 2))))" "(if or-part_37" " or-part_37" "(char=?" "(string-ref" " v_36" -"(+ i_27 2))" +"(+ i_29 2))" " '#\\/)))" " #f))" -"(loop_54" +"(loop_56" "((letrec-values(((loop_47)" -"(lambda(i_28)" +"(lambda(i_30)" "(begin" " 'loop" "(if(char=?" " '#\\." "(string-ref" " v_36" -" i_28))" +" i_30))" "(loop_47" "(add1" -" i_28))" -" i_28)))))" +" i_30))" +" i_30)))))" " loop_47)" -" i_27))" +" i_29))" " #f)" " #f))" "(let-values()" -"(loop_54(add1 i_27)))))))))" -" loop_54)" +"(loop_56(add1 i_29)))))))))" +" loop_56)" " 0)))" " #f)))))))" " loop_43)" @@ -3244,7 +3398,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(if(unsafe-fx< pos_1 len_5) #t #f)" -"(let-values(((c_7)(string-ref vec_11 pos_1))((i_29) pos_2))" +"(let-values(((c_7)(string-ref vec_11 pos_1))((i_31) pos_2))" "(let-values(((result_8)" "(let-values()" "(let-values(((result_9)" @@ -3259,13 +3413,13 @@ static const char *startup_source = "(if or-part_39" " or-part_39" "(if(char=? '#\\% c_7)" -"(if(< i_29(- len_4 2))" -"(hex-sequence? v_37(add1 i_29))" +"(if(< i_31(- len_4 2))" +"(hex-sequence? v_37(add1 i_31))" " #f)" " #f)))))))))" "(values result_9)))))" "(if(if(not((lambda x_15(not result_8)) c_7))" -"(if(not((lambda x_16(not result_8)) i_29))(not #f) #f)" +"(if(not((lambda x_16(not result_8)) i_31))(not #f) #f)" " #f)" "(for-loop_11 result_8(unsafe-fx+ 1 pos_1)(+ pos_2 1))" " result_8)))" @@ -3296,10 +3450,10 @@ static const char *startup_source = "(if or-part_44 or-part_44(char=? '#\\+ c_8))))))))))))))" "(define-values" "(hex-sequence?)" -"(lambda(s_32 i_30)" +"(lambda(s_32 i_32)" "(begin" -"(let-values(((c1_16)(string-ref s_32 i_30)))" -"(let-values(((c2_0)(string-ref s_32(add1 i_30))))" +"(let-values(((c1_16)(string-ref s_32 i_32)))" +"(let-values(((c2_0)(string-ref s_32(add1 i_32))))" "(if(hex-char? c1_16)" "(if(hex-char? c2_0)" "(let-values(((c_9)(integer->char(+(*(hex-char->integer c1_16) 16)(hex-char->integer c2_0)))))" @@ -3324,7 +3478,7 @@ static const char *startup_source = "(lambda(v_38 len_6)" "(begin" "(let-values(((start-package-version-pos_1 end-package-version-pos_1 colon1-pos_0 colon2-pos_0)" -"((letrec-values(((loop_55)" +"((letrec-values(((loop_57)" "(lambda(j_2" " start-package-version-pos_2" " end-package-version-pos_2" @@ -3344,7 +3498,7 @@ static const char *startup_source = "(let-values(((tmp_7)(string-ref v_38 j_2)))" "(if(equal? tmp_7 '#\\/)" "(let-values()" -"(loop_55" +"(loop_57" "(add1 j_2)" "(let-values(((or-part_47) start-package-version-pos_2))" "(if or-part_47 or-part_47(add1 j_2)))" @@ -3360,27 +3514,27 @@ static const char *startup_source = "(let-values()(values #f #f #f #f))" "(if colon1-pos_1" "(let-values()" -"(loop_55" +"(loop_57" "(add1 j_2)" " start-package-version-pos_2" " end-package-version-pos_2" " colon1-pos_1" " j_2))" "(let-values()" -"(loop_55" +"(loop_57" "(add1 j_2)" " start-package-version-pos_2" " end-package-version-pos_2" " j_2" " #f)))))" "(let-values()" -"(loop_55" +"(loop_57" "(add1 j_2)" " start-package-version-pos_2" " end-package-version-pos_2" " colon1-pos_1" " colon2-pos_1)))))))))))" -" loop_55)" +" loop_57)" " 0" " #f" " #f" @@ -3467,21 +3621,21 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(< pos_4 end_7)" -"(let-values(((i_31) pos_4))" +"(let-values(((i_33) pos_4))" "(let-values(((result_14)" "(let-values()" "(let-values(((result_15)" "(let-values()" "(let-values()" "(let-values(((c_12)" -"(string-ref s_34 i_31)))" +"(string-ref s_34 i_33)))" "(let-values(((or-part_52)" "(char=? c_12 '#\\-)))" "(if or-part_52" " or-part_52" "(char<=? '#\\0 c_12 '#\\9))))))))" "(values result_15)))))" -"(if(if(not((lambda x_18(not result_14)) i_31))(not #f) #f)" +"(if(if(not((lambda x_18(not result_14)) i_33))(not #f) #f)" "(for-loop_13 result_14(+ pos_4 inc_1))" " result_14)))" " result_13)))))" @@ -3500,7 +3654,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(< pos_5 end_8)" -"(let-values(((i_32) pos_5))" +"(let-values(((i_34) pos_5))" "(let-values(((result_17)" "(let-values(((result_18) result_16))" "(let-values(((result_19)" @@ -3508,7 +3662,7 @@ static const char *startup_source = "(+" " result_18" "(let-values()" -"(if(char=?(string-ref s_34 i_32) '#\\-)" +"(if(char=?(string-ref s_34 i_34) '#\\-)" " 1" " 0))))))" "(values result_19)))))" @@ -3567,9 +3721,9 @@ static const char *startup_source = "(lambda(tt_0 v_39)" "(begin" "(let-values(((b_8)(weak-intern-table-box tt_0)))" -"(let-values(((t_10)(unbox b_8)))" +"(let-values(((t_11)(unbox b_8)))" "(let-values(((code_0)(equal-hash-code v_39)))" -"(let-values(((vals_0)(hash-ref(table-ht t_10) code_0 null)))" +"(let-values(((vals_0)(hash-ref(table-ht t_11) code_0 null)))" "(let-values(((or-part_31)" "(let-values(((lst_19) vals_0))" "(begin" @@ -3604,31 +3758,31 @@ static const char *startup_source = " lst_19)))))" "(if or-part_31" " or-part_31" -"(let-values(((pruned-t_0)(if(=(table-count t_10)(table-prune-at t_10))(prune-table t_10) t_10)))" +"(let-values(((pruned-t_0)(if(=(table-count t_11)(table-prune-at t_11))(prune-table t_11) t_11)))" "(let-values(((ht_21)(table-ht pruned-t_0)))" "(let-values(((new-t_0)" "(table2.1" "(hash-set ht_21 code_0(cons(make-weak-box v_39)(hash-ref ht_21 code_0 null)))" "(add1(table-count pruned-t_0))" "(table-prune-at pruned-t_0))))" -"(let-values(((or-part_33)(if(box-cas! b_8 t_10 new-t_0) v_39 #f)))" +"(let-values(((or-part_33)(if(box-cas! b_8 t_11 new-t_0) v_39 #f)))" "(if or-part_33 or-part_33(weak-intern! tt_0 v_39)))))))))))))))" "(define-values" "(prune-table)" -"(lambda(t_11)" +"(lambda(t_12)" "(begin" "(let-values(((new-ht_0)" -"(let-values(((ht_22)(table-ht t_11)))" +"(let-values(((ht_22)(table-ht t_12)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_22)))" "((letrec-values(((for-loop_16)" -"(lambda(table_8 i_33)" +"(lambda(table_8 i_35)" "(begin" " 'for-loop" -"(if i_33" -"(let-values(((k_6 vals_1)(hash-iterate-key+value ht_22 i_33)))" +"(if i_35" +"(let-values(((k_6 vals_1)(hash-iterate-key+value ht_22 i_35)))" "(let-values(((table_9)" "(let-values(((new-vals_0)" "(reverse$1" @@ -3711,7 +3865,7 @@ static const char *startup_source = " for-loop_18)" " table_8)))))" "(if(not #f)" -"(for-loop_16 table_9(hash-iterate-next ht_22 i_33))" +"(for-loop_16 table_9(hash-iterate-next ht_22 i_35))" " table_9)))" " table_8)))))" " for-loop_16)" @@ -3724,11 +3878,11 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_23)))" "((letrec-values(((for-loop_19)" -"(lambda(result_23 i_34)" +"(lambda(result_23 i_36)" "(begin" " 'for-loop" -"(if i_34" -"(let-values(((k_7 vals_2)(hash-iterate-key+value ht_23 i_34)))" +"(if i_36" +"(let-values(((k_7 vals_2)(hash-iterate-key+value ht_23 i_36)))" "(let-values(((result_24)" "(let-values(((result_25) result_23))" "(let-values(((result_26)" @@ -3738,7 +3892,7 @@ static const char *startup_source = "(let-values()(length vals_2))))))" "(values result_26)))))" "(if(not #f)" -"(for-loop_19 result_24(hash-iterate-next ht_23 i_34))" +"(for-loop_19 result_24(hash-iterate-next ht_23 i_36))" " result_24)))" " result_23)))))" " for-loop_19)" @@ -3814,13 +3968,13 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_23)" -"(let-values(((i_35)(unsafe-car lst_23))((rest_8)(unsafe-cdr lst_23)))" +"(let-values(((i_37)(unsafe-car lst_23))((rest_8)(unsafe-cdr lst_23)))" "(let-values(((fold-var_10)" "(let-values(((fold-var_11) fold-var_9))" "(let-values(((fold-var_12)" "(let-values()" "(cons" -" (let-values () (format \" ~s\" i_35))" +" (let-values () (format \" ~s\" i_37))" " fold-var_11))))" "(values fold-var_12)))))" "(if(not #f)(for-loop_20 fold-var_10 rest_8) fold-var_10)))" @@ -3933,7 +4087,7 @@ static const char *startup_source = "(if(module-path-index-path r_12)" "(let-values()" "(let-values(((l_44)" -"((letrec-values(((loop_56)" +"((letrec-values(((loop_58)" "(lambda(r_13)" "(begin" " 'loop" @@ -3944,7 +4098,7 @@ static const char *startup_source = "(if(module-path-index-path r_13)" "(let-values()" "(cons" -"((letrec-values(((loop_57)" +"((letrec-values(((loop_59)" "(lambda(v_40)" "(begin" " 'loop" @@ -3969,16 +4123,16 @@ static const char *startup_source = " #f)" "(let-values()" "(format-submod" -"(loop_57" +"(loop_59" "(cadr v_40))" "(cddr v_40)))" "(let-values()" "(format" " \"~.s\"" " v_40))))))))" -" loop_57)" +" loop_59)" "(module-path-index-path r_13))" -"(loop_56(module-path-index-base r_13))))" +"(loop_58(module-path-index-base r_13))))" "(if(module-path-index-resolved r_13)" "(let-values()" "(list" @@ -3987,7 +4141,7 @@ static const char *startup_source = " \"~a\"" "(module-path-index-resolved r_13))))" "(let-values() null)))))))))" -" loop_56)" +" loop_58)" " r_12)))" "(fprintf" " port_1" @@ -4006,7 +4160,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_27)" -"(let-values(((i_36)(unsafe-car lst_27))" +"(let-values(((i_38)(unsafe-car lst_27))" "((rest_10)(unsafe-cdr lst_27)))" "(let-values(((fold-var_14)" "(let-values(((fold-var_15)" @@ -4017,7 +4171,7 @@ static const char *startup_source = "(let-values()" "(format" " \" ~a\"" -" i_36))" +" i_38))" " fold-var_15))))" "(values fold-var_16)))))" "(if(not #f)" @@ -4182,7 +4336,7 @@ static const char *startup_source = "(1/make-resolved-module-path(cons generic-module-name submod_0))))" "(let-values()" "(let-values(((keep-base_0)" -"((letrec-values(((loop_58)" +"((letrec-values(((loop_60)" "(lambda(mod-path_1)" "(begin" " 'loop" @@ -4198,9 +4352,9 @@ static const char *startup_source = "(eq? 'submod(car mod-path_1))" " #f)" "(let-values()" -"(loop_58(cadr mod-path_1)))" +"(loop_60(cadr mod-path_1)))" "(let-values() base_8)))))))))" -" loop_58)" +" loop_60)" " mod-path_0)))" "(module-path-index2.1 mod-path_0 keep-base_0 #f #f)))))))))))))))" "(case-lambda" @@ -4583,7 +4737,7 @@ static const char *startup_source = "(promise-printer)" "(lambda(promise_2 port_2 write?_0)" "(begin" -"((letrec-values(((loop_59)" +"((letrec-values(((loop_61)" "(lambda(v_48)" "(begin" " 'loop" @@ -4606,10 +4760,10 @@ static const char *startup_source = "(let-values()" "(let-values(((c1_18)(object-name v_48)))" "(if c1_18" -" ((lambda (n_18) (fprintf port_2 \"#\" n_18)) c1_18)" +" ((lambda (n_19) (fprintf port_2 \"#\" n_19)) c1_18)" " (let-values () (display \"#\" port_2)))))" "(if(promise? v_48)" -"(let-values()(loop_59(unsafe-struct-ref v_48 0)))" +"(let-values()(loop_61(unsafe-struct-ref v_48 0)))" "(if(null? v_48)" " (let-values () (fprintf port_2 \"#\"))" "(if(null?(cdr v_48))" @@ -4621,7 +4775,7 @@ static const char *startup_source = " (let-values (((fmt_0) (if write?_0 \" ~s\" \" ~a\")))" "(for-each(lambda(x_21)(fprintf port_2 fmt_0 x_21)) v_48))" " (display \")>\" port_2)))))))))))))" -" loop_59)" +" loop_61)" "(unsafe-struct-ref promise_2 0)))))" "(define-values" "(prop:force promise-forcer)" @@ -4848,15 +5002,15 @@ static const char *startup_source = "(call-with-semaphore" "(syncinfo-access-sema v_51)" "(lambda(p_12 v_52)" -"(let-values(((thunk_2)(syncinfo-thunk v_52)))" +"(let-values(((thunk_4)(syncinfo-thunk v_52)))" "(let-values(((done_0)(syncinfo-done-sema v_52)))" -"(if(running-thread? thunk_2)" +"(if(running-thread? thunk_4)" "(void)" "(let-values()" "(begin" "(set-syncinfo-thunk!" " v_52" -"(make-running-thread(object-name thunk_2)(current-thread)))" +"(make-running-thread(object-name thunk_4)(current-thread)))" "(call-with-exception-handler" "(lambda(e_11)" "(begin" @@ -4865,7 +5019,7 @@ static const char *startup_source = " e_11))" "(lambda()" "(begin" -"(unsafe-struct-set! p_12 0(call-with-values thunk_2 list))" +"(unsafe-struct-set! p_12 0(call-with-values thunk_4 list))" "(semaphore-post done_0))))))))))" " #f" " p_11" @@ -5165,9 +5319,9 @@ static const char *startup_source = " (define-values (not-an-fX.1) (lambda (who_8 v_59) (begin 'not-an-fX (raise-argument-error who_8 \"fixnum?\" v_59))))" "(define-values" "(datum-map-slow)" -"(lambda(tail?_0 s_40 f_19 seen_0)" +"(lambda(tail?_0 s_40 f_21 seen_0)" "(begin" -"((letrec-values(((loop_60)" +"((letrec-values(((loop_62)" "(lambda(tail?_1 s_7 prev-seen_0)" "(begin" " 'loop" @@ -5179,19 +5333,19 @@ static const char *startup_source = "(let-values()(hash-set prev-seen_0 s_7 #t))))" "(let-values() prev-seen_0))))" "(if(null? s_7)" -"(let-values()(f_19 tail?_1 s_7))" +"(let-values()(f_21 tail?_1 s_7))" "(if(pair? s_7)" "(let-values()" -"(f_19 tail?_1(cons(loop_60 #f(car s_7) seen_1)(loop_60 #t(cdr s_7) seen_1))))" +"(f_21 tail?_1(cons(loop_62 #f(car s_7) seen_1)(loop_62 #t(cdr s_7) seen_1))))" "(if(let-values(((or-part_69)(symbol? s_7)))" "(if or-part_69" " or-part_69" "(let-values(((or-part_70)(boolean? s_7)))" "(if or-part_70 or-part_70(number? s_7)))))" -"(let-values()(f_19 #f s_7))" +"(let-values()(f_21 #f s_7))" "(if(vector? s_7)" "(let-values()" -"(f_19" +"(f_21" " #f" "(vector->immutable-vector" "(let-values(((len_7)(vector-length s_7)))" @@ -5218,7 +5372,7 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_21)" -"(lambda(i_37 pos_6)" +"(lambda(i_39 pos_6)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_6 len_8)" @@ -5226,47 +5380,47 @@ static const char *startup_source = "(unsafe-vector-ref" " vec_14" " pos_6)))" -"(let-values(((i_38)" -"(let-values(((i_39)" -" i_37))" "(let-values(((i_40)" +"(let-values(((i_41)" +" i_39))" +"(let-values(((i_42)" "(let-values()" "(begin" "(unsafe-vector*-set!" " v_60" -" i_39" +" i_41" "(let-values()" -"(loop_60" +"(loop_62" " #f" " e_12" " seen_1)))" "(unsafe-fx+" " 1" -" i_39)))))" -"(values i_40)))))" +" i_41)))))" +"(values i_42)))))" "(if(if(not" "((lambda x_22" "(unsafe-fx=" -" i_38" +" i_40" " len_7))" " e_12))" "(not #f)" " #f)" "(for-loop_21" -" i_38" +" i_40" "(unsafe-fx+ 1 pos_6))" -" i_38)))" -" i_37)))))" +" i_40)))" +" i_39)))))" " for-loop_21)" " 0" " 0)))))" " v_60)))))))" "(if(box? s_7)" -"(let-values()(f_19 #f(box-immutable(loop_60 #f(unbox s_7) seen_1))))" +"(let-values()(f_21 #f(box-immutable(loop_62 #f(unbox s_7) seen_1))))" "(let-values(((c1_20)(immutable-prefab-struct-key s_7)))" "(if c1_20" "((lambda(key_12)" -"(f_19" +"(f_21" " #f" "(apply" " make-prefab-struct" @@ -5300,7 +5454,7 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(loop_60" +"(loop_62" " #f" " e_13" " seen_1))" @@ -5321,7 +5475,7 @@ static const char *startup_source = "(let-values()" "(if(hash-eq? s_7)" "(let-values()" -"(f_19" +"(f_21" " #f" "(let-values(((ht_26) s_7))" "(begin" @@ -5329,14 +5483,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_26)))" "((letrec-values(((for-loop_27)" -"(lambda(table_15 i_41)" +"(lambda(table_15 i_43)" "(begin" " 'for-loop" -"(if i_41" +"(if i_43" "(let-values(((k_10 v_36)" "(hash-iterate-key+value" " ht_26" -" i_41)))" +" i_43)))" "(let-values(((table_16)" "(let-values(((table_17)" " table_15))" @@ -5347,7 +5501,7 @@ static const char *startup_source = "(let-values()" "(values" " k_10" -"(loop_60" +"(loop_62" " #f" " v_36" " seen_1)))))" @@ -5360,7 +5514,7 @@ static const char *startup_source = "(if(not #f)" "(for-loop_27" " table_16" -"(hash-iterate-next ht_26 i_41))" +"(hash-iterate-next ht_26 i_43))" " table_16)))" " table_15)))))" " for-loop_27)" @@ -5368,7 +5522,7 @@ static const char *startup_source = "(hash-iterate-first ht_26))))))" "(if(hash-eqv? s_7)" "(let-values()" -"(f_19" +"(f_21" " #f" "(let-values(((ht_27) s_7))" "(begin" @@ -5376,14 +5530,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_27)))" "((letrec-values(((for-loop_28)" -"(lambda(table_19 i_26)" +"(lambda(table_19 i_28)" "(begin" " 'for-loop" -"(if i_26" +"(if i_28" "(let-values(((k_11 v_61)" "(hash-iterate-key+value" " ht_27" -" i_26)))" +" i_28)))" "(let-values(((table_10)" "(let-values(((table_11)" " table_19))" @@ -5394,7 +5548,7 @@ static const char *startup_source = "(let-values()" "(values" " k_11" -"(loop_60" +"(loop_62" " #f" " v_61" " seen_1)))))" @@ -5409,14 +5563,14 @@ static const char *startup_source = " table_10" "(hash-iterate-next" " ht_27" -" i_26))" +" i_28))" " table_10)))" " table_19)))))" " for-loop_28)" " '#hasheqv()" "(hash-iterate-first ht_27))))))" "(let-values()" -"(f_19" +"(f_21" " #f" "(let-values(((ht_25) s_7))" "(begin" @@ -5424,14 +5578,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_25)))" "((letrec-values(((for-loop_29)" -"(lambda(table_20 i_42)" +"(lambda(table_20 i_44)" "(begin" " 'for-loop" -"(if i_42" +"(if i_44" "(let-values(((k_12 v_62)" "(hash-iterate-key+value" " ht_25" -" i_42)))" +" i_44)))" "(let-values(((table_21)" "(let-values(((table_22)" " table_20))" @@ -5442,7 +5596,7 @@ static const char *startup_source = "(let-values()" "(values" " k_12" -"(loop_60" +"(loop_62" " #f" " v_62" " seen_1)))))" @@ -5457,14 +5611,14 @@ static const char *startup_source = " table_21" "(hash-iterate-next" " ht_25" -" i_42))" +" i_44))" " table_21)))" " table_20)))))" " for-loop_29)" " '#hash()" "(hash-iterate-first ht_25)))))))))" -"(let-values()(f_19 #f s_7)))))))))))))))" -" loop_60)" +"(let-values()(f_21 #f s_7)))))))))))))))" +" loop_62)" " tail?_0" " s_40" " seen_0))))" @@ -5567,8 +5721,8 @@ static const char *startup_source = " \"value\"" " v_65)))" " v_65)))))" -"(let-values(((s_41) v_64)((f_20) check-preserve_0)((gf_0) check-preserve_0)((seen_2) disallow-cycles$1))" -"((letrec-values(((loop_61)" +"(let-values(((s_41) v_64)((f_22) check-preserve_0)((gf_0) check-preserve_0)((seen_2) disallow-cycles$1))" +"((letrec-values(((loop_63)" "(lambda(tail?_3 s_42 prev-depth_0)" "(begin" " 'loop" @@ -5577,18 +5731,18 @@ static const char *startup_source = "(let-values()" "(datum-map-slow tail?_3 s_42(lambda(tail?_4 s_43)(gf_0 tail?_4 s_43)) seen_2))" "(if(null? s_42)" -"(let-values()(f_20 tail?_3 s_42))" +"(let-values()(f_22 tail?_3 s_42))" "(if(pair? s_42)" "(let-values()" -"(f_20" +"(f_22" " tail?_3" -"(cons(loop_61 #f(car s_42) depth_0)(loop_61 #t(cdr s_42) depth_0))))" +"(cons(loop_63 #f(car s_42) depth_0)(loop_63 #t(cdr s_42) depth_0))))" "(if(symbol? s_42)" -"(let-values()(f_20 #f s_42))" +"(let-values()(f_22 #f s_42))" "(if(boolean? s_42)" -"(let-values()(f_20 #f s_42))" +"(let-values()(f_22 #f s_42))" "(if(number? s_42)" -"(let-values()(f_20 #f s_42))" +"(let-values()(f_22 #f s_42))" "(if(let-values(((or-part_54)(vector? s_42)))" "(if or-part_54" " or-part_54" @@ -5604,7 +5758,7 @@ static const char *startup_source = "(lambda(tail?_5 s_44)(gf_0 tail?_5 s_44))" " seen_2))" "(let-values()(gf_0 #f s_42))))))))))))))" -" loop_61)" +" loop_63)" " #f" " s_41" " 0))))))" @@ -5625,11 +5779,11 @@ static const char *startup_source = "(define-values" "(tamper-tainted-for-content)" "(lambda(v_70)(begin(if(datum-has-elements? v_70) 'tainted/need-propagate 'tainted))))" -"(define-values(tamper-needs-propagate?)(lambda(t_12)(begin(eq? t_12 'tainted/need-propagate))))" -"(define-values(tamper-propagated)(lambda(t_13)(begin(if(eq? t_13 'tainted/need-propagate) 'tainted t_13))))" -"(define-values(serialize-tamper)(lambda(t_14)(begin(if(tamper-armed? t_14) 'armed t_14))))" +"(define-values(tamper-needs-propagate?)(lambda(t_13)(begin(eq? t_13 'tainted/need-propagate))))" +"(define-values(tamper-propagated)(lambda(t_14)(begin(if(eq? t_14 'tainted/need-propagate) 'tainted t_14))))" +"(define-values(serialize-tamper)(lambda(t_15)(begin(if(tamper-armed? t_15) 'armed t_15))))" "(define-values(current-arm-inspectors)(make-parameter(seteq)))" -"(define-values(deserialize-tamper)(lambda(t_15)(begin(if(eq? t_15 'armed)(current-arm-inspectors) t_15))))" +"(define-values(deserialize-tamper)(lambda(t_16)(begin(if(eq? t_16 'armed)(current-arm-inspectors) t_16))))" "(define-values" "(struct:syntax" " syntax1.1" @@ -5670,14 +5824,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash ht_17)))" "((letrec-values(((for-loop_3)" -"(lambda(i_43)" +"(lambda(i_45)" "(begin" " 'for-loop" -"(if i_43" +"(if i_45" "(let-values(((k_13 v_71)" "(unsafe-immutable-hash-iterate-key+value" " ht_17" -" i_43)))" +" i_45)))" "(let-values((()" "(let-values()" "(if(preserved-property-value? v_71)" @@ -5694,7 +5848,7 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_3" -"(unsafe-immutable-hash-iterate-next ht_17 i_43))" +"(unsafe-immutable-hash-iterate-next ht_17 i_45))" "(values))))" "(values))))))" " for-loop_3)" @@ -5719,14 +5873,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_28)))" "((letrec-values(((for-loop_30)" -"(lambda(table_24 i_44)" +"(lambda(table_24 i_46)" "(begin" " 'for-loop" -"(if i_44" +"(if i_46" "(let-values(((k_14 v_72)" "(hash-iterate-key+value" " ht_28" -" i_44)))" +" i_46)))" "(let-values(((table_25)" "(let-values(((table_26)" " table_24))" @@ -5754,7 +5908,7 @@ static const char *startup_source = "(if(not #f)" "(for-loop_30" " table_25" -"(hash-iterate-next ht_28 i_44))" +"(hash-iterate-next ht_28 i_46))" " table_25)))" " table_24)))))" " for-loop_30)" @@ -5912,25 +6066,25 @@ static const char *startup_source = "(begin" " 'syntax->datum" "(let-values(((s_51) s_32)" -"((f_21)(lambda(tail?_6 x_24)(begin 'f x_24)))" +"((f_23)(lambda(tail?_6 x_24)(begin 'f x_24)))" "((d->s_0)(lambda(s_52 d_1)(begin 'd->s d_1)))" "((s-e_0) syntax-content)" "((seen_3) #f))" -"((letrec-values(((loop_62)" +"((letrec-values(((loop_64)" "(lambda(s_53)" "(begin" " 'loop" "(let-values(((s_54) s_53)" -"((f_22) f_21)" +"((f_24) f_23)" "((gf_1)" "(lambda(tail?_7 v_74)" "(begin" " 'gf" "(if(syntax?$1 v_74)" -"(let-values()(d->s_0 v_74(loop_62(s-e_0 v_74))))" -"(let-values()(f_21 tail?_7 v_74))))))" +"(let-values()(d->s_0 v_74(loop_64(s-e_0 v_74))))" +"(let-values()(f_23 tail?_7 v_74))))))" "((seen_4) seen_3))" -"((letrec-values(((loop_63)" +"((letrec-values(((loop_65)" "(lambda(tail?_8 s_55 prev-depth_1)" "(begin" " 'loop" @@ -5943,20 +6097,20 @@ static const char *startup_source = "(lambda(tail?_9 s_56)(gf_1 tail?_9 s_56))" " seen_4))" "(if(null? s_55)" -"(let-values()(f_22 tail?_8 s_55))" +"(let-values()(f_24 tail?_8 s_55))" "(if(pair? s_55)" "(let-values()" -"(f_22" +"(f_24" " tail?_8" "(cons" -"(loop_63 #f(car s_55) depth_1)" -"(loop_63 #t(cdr s_55) depth_1))))" +"(loop_65 #f(car s_55) depth_1)" +"(loop_65 #t(cdr s_55) depth_1))))" "(if(symbol? s_55)" -"(let-values()(f_22 #f s_55))" +"(let-values()(f_24 #f s_55))" "(if(boolean? s_55)" -"(let-values()(f_22 #f s_55))" +"(let-values()(f_24 #f s_55))" "(if(number? s_55)" -"(let-values()(f_22 #f s_55))" +"(let-values()(f_24 #f s_55))" "(if(let-values(((or-part_88)(vector? s_55)))" "(if or-part_88" " or-part_88" @@ -5975,11 +6129,11 @@ static const char *startup_source = "(lambda(tail?_10 s_33)(gf_1 tail?_10 s_33))" " seen_4))" "(let-values()(gf_1 #f s_55))))))))))))))" -" loop_63)" +" loop_65)" " #f" " s_54" " 0))))))" -" loop_62)" +" loop_64)" " s_51)))))" "(define-values" "(datum->syntax$1)" @@ -6016,22 +6170,22 @@ static const char *startup_source = "(if stx-c_0(syntax-inspector stx-c_0) #f))))))" "(let-values(((result-s_0)" "(let-values(((s_58) s_57)" -"((f_23)" +"((f_25)" "(lambda(tail?_11 x_25)" "(begin 'f(if tail?_11 x_25(wrap_0 x_25)))))" "((s->_0)(lambda(s_59)(begin 's-> s_59)))" "((seen_5) disallow-cycles))" "(let-values(((s_60) s_58)" -"((f_24) f_23)" +"((f_26) f_25)" "((gf_2)" "(lambda(tail?_12 v_75)" "(begin" " 'gf" "(if(syntax?$1 v_75)" "(let-values()(s->_0 v_75))" -"(let-values()(f_23 tail?_12 v_75))))))" +"(let-values()(f_25 tail?_12 v_75))))))" "((seen_6) seen_5))" -"((letrec-values(((loop_64)" +"((letrec-values(((loop_66)" "(lambda(tail?_13 s_61 prev-depth_2)" "(begin" " 'loop" @@ -6046,23 +6200,23 @@ static const char *startup_source = "(gf_2 tail?_14 s_62))" " seen_6))" "(if(null? s_61)" -"(let-values()(f_24 tail?_13 s_61))" +"(let-values()(f_26 tail?_13 s_61))" "(if(pair? s_61)" "(let-values()" -"(f_24" +"(f_26" " tail?_13" "(cons" -"(loop_64 #f(car s_61) depth_2)" -"(loop_64" +"(loop_66 #f(car s_61) depth_2)" +"(loop_66" " #t" "(cdr s_61)" " depth_2))))" "(if(symbol? s_61)" -"(let-values()(f_24 #f s_61))" +"(let-values()(f_26 #f s_61))" "(if(boolean? s_61)" -"(let-values()(f_24 #f s_61))" +"(let-values()(f_26 #f s_61))" "(if(number? s_61)" -"(let-values()(f_24 #f s_61))" +"(let-values()(f_26 #f s_61))" "(if(let-values(((or-part_89)" "(vector?" " s_61)))" @@ -6091,7 +6245,7 @@ static const char *startup_source = "(gf_2" " #f" " s_61))))))))))))))" -" loop_64)" +" loop_66)" " #f" " s_60" " 0)))))" @@ -6145,16 +6299,16 @@ static const char *startup_source = "(begin" "(if(pair? content_2)" "(let-values()" -"((letrec-values(((loop_65)" +"((letrec-values(((loop_67)" "(lambda(content_3)" "(begin" " 'loop" "(if(if(syntax?$1 content_3)(pair?(syntax-content content_3)) #f)" "(let-values() #f)" "(if(pair? content_3)" -"(let-values()(loop_65(cdr content_3)))" +"(let-values()(loop_67(cdr content_3)))" "(let-values() #t)))))))" -" loop_65)" +" loop_67)" "(cdr content_2)))" "(let-values() #t)))))" "(define-values" @@ -6175,11 +6329,11 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash ht_29)))" "((letrec-values(((for-loop_31)" -"(lambda(table_29 i_45)" +"(lambda(table_29 i_47)" "(begin" " 'for-loop" -"(if i_45" -"(let-values(((k_15 v_76)(unsafe-immutable-hash-iterate-key+value ht_29 i_45)))" +"(if i_47" +"(let-values(((k_15 v_76)(unsafe-immutable-hash-iterate-key+value ht_29 i_47)))" "(let-values(((table_30)" "(let-values(((table_31) table_29))" "(let-values(((table_32)" @@ -6193,7 +6347,7 @@ static const char *startup_source = "(hash-set table_31 key_17 val_8)))))" "(values table_32)))))" "(if(not #f)" -"(for-loop_31 table_30(unsafe-immutable-hash-iterate-next ht_29 i_45))" +"(for-loop_31 table_30(unsafe-immutable-hash-iterate-next ht_29 i_47))" " table_30)))" " table_29)))))" " for-loop_31)" @@ -6826,12 +6980,12 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash ht_30)))" "((letrec-values(((for-loop_12)" -"(lambda(syms_3 i_46)" +"(lambda(syms_3 i_48)" "(begin" " 'for-loop" -"(if i_46" +"(if i_48" "(let-values(((sym_5 sym-bindings_0)" -"(unsafe-immutable-hash-iterate-key+value ht_30 i_46)))" +"(unsafe-immutable-hash-iterate-key+value ht_30 i_48)))" "(let-values(((syms_4)" "(let-values(((syms_5) syms_3))" "(let-values(((syms_6)" @@ -6859,7 +7013,7 @@ static const char *startup_source = "(if(not #f)" "(for-loop_12" " syms_4" -"(unsafe-immutable-hash-iterate-next ht_30 i_46))" +"(unsafe-immutable-hash-iterate-next ht_30 i_48))" " syms_4)))" " syms_3)))))" " for-loop_12)" @@ -6872,11 +7026,11 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash-keys ht_31)))" "((letrec-values(((for-loop_32)" -"(lambda(syms_7 i_31)" +"(lambda(syms_7 i_33)" "(begin" " 'for-loop" -"(if i_31" -"(let-values(((sym_6)(unsafe-immutable-hash-iterate-key ht_31 i_31)))" +"(if i_33" +"(let-values(((sym_6)(unsafe-immutable-hash-iterate-key ht_31 i_33)))" "(let-values(((syms_8)" "(let-values(((syms_9) syms_7))" "(let-values(((syms_10)" @@ -6906,7 +7060,7 @@ static const char *startup_source = "(if(not #f)" "(for-loop_32" " syms_8" -"(unsafe-immutable-hash-iterate-next ht_31 i_31))" +"(unsafe-immutable-hash-iterate-next ht_31 i_33))" " syms_8)))" " syms_7)))))" " for-loop_32)" @@ -6944,11 +7098,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_33)))" "((letrec-values(((for-loop_33)" -"(lambda(table_34 i_47)" +"(lambda(table_34 i_49)" "(begin" " 'for-loop" -"(if i_47" -"(let-values(((sym_8 at-sym_0)(hash-iterate-key+value ht_33 i_47)))" +"(if i_49" +"(let-values(((sym_8 at-sym_0)(hash-iterate-key+value ht_33 i_49)))" "(let-values(((table_31)" "(let-values(((table_32) table_34))" "(if(let-values(((ht_34) at-sym_0))" @@ -6958,14 +7112,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash-keys ht_34)))" "((letrec-values(((for-loop_34)" -"(lambda(result_29 i_48)" +"(lambda(result_29 i_50)" "(begin" " 'for-loop" -"(if i_48" +"(if i_50" "(let-values(((an-scs_0)" "(hash-iterate-key" " ht_34" -" i_48)))" +" i_50)))" "(let-values(((result_30)" "(let-values()" "(let-values(((result_31)" @@ -6986,7 +7140,7 @@ static const char *startup_source = " result_30" "(hash-iterate-next" " ht_34" -" i_48))" +" i_50))" " result_30)))" " result_29)))))" " for-loop_34)" @@ -7003,7 +7157,7 @@ static const char *startup_source = "(hash-set table_35 key_18 val_9)))))" "(values table_36)))" " table_32))))" -"(if(not #f)(for-loop_33 table_31(hash-iterate-next ht_33 i_47)) table_31)))" +"(if(not #f)(for-loop_33 table_31(hash-iterate-next ht_33 i_49)) table_31)))" " table_34)))))" " for-loop_33)" " '#hasheq()" @@ -7031,14 +7185,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash-keys ht_35)))" "((letrec-values(((for-loop_36)" -"(lambda(table_40 i_49)" +"(lambda(table_40 i_51)" "(begin" " 'for-loop" -"(if i_49" +"(if i_51" "(let-values(((sym_9)" "(hash-iterate-key" " ht_35" -" i_49)))" +" i_51)))" "(let-values(((table_41)" "(let-values(((table_42)" " table_40))" @@ -7062,7 +7216,7 @@ static const char *startup_source = " table_41" "(hash-iterate-next" " ht_35" -" i_49))" +" i_51))" " table_41)))" " table_40)))))" " for-loop_36)" @@ -7089,14 +7243,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash ht_36)))" "((letrec-values(((for-loop_37)" -"(lambda(table_44 i_50)" +"(lambda(table_44 i_52)" "(begin" " 'for-loop" -"(if i_50" +"(if i_52" "(let-values(((sym_10 bindings-for-sym_0)" "(unsafe-immutable-hash-iterate-key+value" " ht_36" -" i_50)))" +" i_52)))" "(let-values(((table_45)" "(let-values(((new-bindings-for-sym_0)" "(let-values(((ht_37)" @@ -7110,15 +7264,15 @@ static const char *startup_source = " ht_37)))" "((letrec-values(((for-loop_38)" "(lambda(table_46" -" i_51)" +" i_53)" "(begin" " 'for-loop" -"(if i_51" +"(if i_53" "(let-values(((scopes_5" " binding_1)" "(unsafe-immutable-hash-iterate-key+value" " ht_37" -" i_51)))" +" i_53)))" "(let-values(((table_47)" "(let-values(((table_48)" " table_46))" @@ -7150,7 +7304,7 @@ static const char *startup_source = " table_47" "(unsafe-immutable-hash-iterate-next" " ht_37" -" i_51))" +" i_53))" " table_47)))" " table_46)))))" " for-loop_38)" @@ -7193,7 +7347,7 @@ static const char *startup_source = "(if(not #f)" "(for-loop_37" " table_45" -"(unsafe-immutable-hash-iterate-next ht_36 i_50))" +"(unsafe-immutable-hash-iterate-next ht_36 i_52))" " table_45)))" " table_44)))))" " for-loop_37)" @@ -7268,12 +7422,12 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash ht_38)))" "((letrec-values(((for-loop_41)" -"(lambda(i_52)" +"(lambda(i_54)" "(begin" " 'for-loop" -"(if i_52" +"(if i_54" "(let-values(((sym_11 bindings-for-sym_1)" -"(unsafe-immutable-hash-iterate-key+value ht_38 i_52)))" +"(unsafe-immutable-hash-iterate-key+value ht_38 i_54)))" "(let-values((()" "(let-values(((ht_39) bindings-for-sym_1))" "(begin" @@ -7281,14 +7435,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash ht_39)))" "((letrec-values(((for-loop_42)" -"(lambda(i_53)" +"(lambda(i_55)" "(begin" " 'for-loop" -"(if i_53" +"(if i_55" "(let-values(((scopes_6 binding_2)" "(unsafe-immutable-hash-iterate-key+value" " ht_39" -" i_53)))" +" i_55)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -7314,13 +7468,13 @@ static const char *startup_source = "(for-loop_42" "(unsafe-immutable-hash-iterate-next" " ht_39" -" i_53))" +" i_55))" "(values))))" "(values))))))" " for-loop_42)" "(unsafe-immutable-hash-iterate-first ht_39))))))" "(if(not #f)" -"(for-loop_41(unsafe-immutable-hash-iterate-next ht_38 i_52))" +"(for-loop_41(unsafe-immutable-hash-iterate-next ht_38 i_54))" "(values))))" "(values))))))" " for-loop_41)" @@ -7375,12 +7529,12 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash-keys ht_40)))" "((letrec-values(((for-loop_44)" -"(lambda(table_56 i_54)" +"(lambda(table_56 i_56)" "(begin" " 'for-loop" -"(if i_54" +"(if i_56" "(let-values(((sc_0)" -"(unsafe-immutable-hash-iterate-key ht_40 i_54)))" +"(unsafe-immutable-hash-iterate-key ht_40 i_56)))" "(let-values(((table_57)" "(let-values(((table_58) table_56))" "(if(let-values(((or-part_93)" @@ -7409,7 +7563,7 @@ static const char *startup_source = "(if(not #f)" "(for-loop_44" " table_57" -"(unsafe-immutable-hash-iterate-next ht_40 i_54))" +"(unsafe-immutable-hash-iterate-next ht_40 i_56))" " table_57)))" " table_56)))))" " for-loop_44)" @@ -7429,14 +7583,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash-keys ht_41)))" "((letrec-values(((for-loop_45)" -"(lambda(i_55)" +"(lambda(i_57)" "(begin" " 'for-loop" -"(if i_55" +"(if i_57" "(let-values(((sc_1)" "(unsafe-immutable-hash-iterate-key" " ht_41" -" i_55)))" +" i_57)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -7455,7 +7609,7 @@ static const char *startup_source = "(for-loop_45" "(unsafe-immutable-hash-iterate-next" " ht_41" -" i_55))" +" i_57))" "(values))))" "(values))))))" " for-loop_45)" @@ -7469,11 +7623,11 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash-keys ht_42)))" "((letrec-values(((for-loop_46)" -"(lambda(i_56)" +"(lambda(i_58)" "(begin" " 'for-loop" -"(if i_56" -"(let-values(((sc_2)(unsafe-immutable-hash-iterate-key ht_42 i_56)))" +"(if i_58" +"(let-values(((sc_2)(unsafe-immutable-hash-iterate-key ht_42 i_58)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -7492,7 +7646,7 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_46(unsafe-immutable-hash-iterate-next ht_42 i_56))" +"(for-loop_46(unsafe-immutable-hash-iterate-next ht_42 i_58))" "(values))))" "(values))))))" " for-loop_46)" @@ -7606,12 +7760,12 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash ht_43)))" "((letrec-values(((for-loop_47)" -"(lambda(fold-var_26 i_57)" +"(lambda(fold-var_26 i_59)" "(begin" " 'for-loop" -"(if i_57" +"(if i_59" "(let-values(((k_16 v_30)" -"(unsafe-immutable-hash-iterate-key+value ht_43 i_57)))" +"(unsafe-immutable-hash-iterate-key+value ht_43 i_59)))" "(let-values(((fold-var_27)" "(let-values(((fold-var_28) fold-var_26))" "(if(if(symbol? k_16)(symbol-interned? k_16) #f)" @@ -7624,7 +7778,7 @@ static const char *startup_source = "(values fold-var_30)))" " fold-var_28))))" "(if(not #f)" -"(for-loop_47 fold-var_27(unsafe-immutable-hash-iterate-next ht_43 i_57))" +"(for-loop_47 fold-var_27(unsafe-immutable-hash-iterate-next ht_43 i_59))" " fold-var_27)))" " fold-var_26)))))" " for-loop_47)" @@ -7659,7 +7813,7 @@ static const char *startup_source = "(lambda(d_2)" "(begin" "(let-values(((s_73) d_2)" -"((f_25)(lambda(tail?_16 x_27)(begin 'f x_27)))" +"((f_27)(lambda(tail?_16 x_27)(begin 'f x_27)))" "((s->_1)" "(lambda(sub-s_0)" "(begin" @@ -7671,12 +7825,12 @@ static const char *startup_source = "(let-values(((the-struct_6) stx_0))" "(if(syntax?$1 the-struct_6)" "(let-values(((scope-propagations+tamper6_0)" -"(let-values(((t_16)" +"(let-values(((t_17)" "(tamper-tainted-for-content(syntax-content sub-s_0)))" "((p_19)(syntax-scope-propagations+tamper stx_0)))" "(if(tamper? p_19)" -" t_16" -"((propagation-set-tamper-ref p_19) p_19 t_16)))))" +" t_17" +"((propagation-set-tamper-ref p_19) p_19 t_17)))))" "(syntax1.1" "(syntax-content the-struct_6)" "(syntax-scopes the-struct_6)" @@ -7689,14 +7843,14 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_6)))))))))" "((seen_7) #f))" "(let-values(((s_76) s_73)" -"((f_26) f_25)" +"((f_28) f_27)" "((gf_3)" "(lambda(tail?_17 v_30)" "(begin" " 'gf" -"(if(syntax?$1 v_30)(let-values()(s->_1 v_30))(let-values()(f_25 tail?_17 v_30))))))" +"(if(syntax?$1 v_30)(let-values()(s->_1 v_30))(let-values()(f_27 tail?_17 v_30))))))" "((seen_8) seen_7))" -"((letrec-values(((loop_66)" +"((letrec-values(((loop_68)" "(lambda(tail?_18 s_77 prev-depth_3)" "(begin" " 'loop" @@ -7709,18 +7863,18 @@ static const char *startup_source = "(lambda(tail?_19 s_78)(gf_3 tail?_19 s_78))" " seen_8))" "(if(null? s_77)" -"(let-values()(f_26 tail?_18 s_77))" +"(let-values()(f_28 tail?_18 s_77))" "(if(pair? s_77)" "(let-values()" -"(f_26" +"(f_28" " tail?_18" -"(cons(loop_66 #f(car s_77) depth_3)(loop_66 #t(cdr s_77) depth_3))))" +"(cons(loop_68 #f(car s_77) depth_3)(loop_68 #t(cdr s_77) depth_3))))" "(if(symbol? s_77)" -"(let-values()(f_26 #f s_77))" +"(let-values()(f_28 #f s_77))" "(if(boolean? s_77)" -"(let-values()(f_26 #f s_77))" +"(let-values()(f_28 #f s_77))" "(if(number? s_77)" -"(let-values()(f_26 #f s_77))" +"(let-values()(f_28 #f s_77))" "(if(let-values(((or-part_82)(vector? s_77)))" "(if or-part_82" " or-part_82" @@ -7736,7 +7890,7 @@ static const char *startup_source = "(lambda(tail?_0 s_40)(gf_3 tail?_0 s_40))" " seen_8))" "(let-values()(gf_3 #f s_77))))))))))))))" -" loop_66)" +" loop_68)" " #f" " s_76" " 0))))))" @@ -7747,25 +7901,25 @@ static const char *startup_source = "(lambda(s_6 insp_0)" "(begin" " 'syntax-arm" -"(let-values(((t_17)(syntax-tamper s_6)))" -"(if(tamper-tainted? t_17)" +"(let-values(((t_18)(syntax-tamper s_6)))" +"(if(tamper-tainted? t_18)" "(let-values() s_6)" -"(if(if t_17" -"(let-values(((or-part_94)(set-member? t_17 insp_0)))" +"(if(if t_18" +"(let-values(((or-part_94)(set-member? t_18 insp_0)))" "(if or-part_94" " or-part_94" -"(let-values(((ht_44) t_17))" +"(let-values(((ht_44) t_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_44)))" "((letrec-values(((for-loop_48)" -"(lambda(result_32 i_58)" +"(lambda(result_32 i_60)" "(begin" " 'for-loop" -"(if i_58" +"(if i_60" "(let-values(((already-insp_0)" -"(unsafe-immutable-hash-iterate-key ht_44 i_58)))" +"(unsafe-immutable-hash-iterate-key ht_44 i_60)))" "(let-values(((result_33)" "(let-values()" "(let-values(((result_34)" @@ -7778,7 +7932,7 @@ static const char *startup_source = "(if(if(not((lambda x_28 result_33) already-insp_0))(not #f) #f)" "(for-loop_48" " result_33" -"(unsafe-immutable-hash-iterate-next ht_44 i_58))" +"(unsafe-immutable-hash-iterate-next ht_44 i_60))" " result_33)))" " result_32)))))" " for-loop_48)" @@ -7791,9 +7945,9 @@ static const char *startup_source = "(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))" +"(let-values(((t_19)(set-add(if t_18(remove-inferior t_18 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)))))" +"(if(tamper? p_20) t_19((propagation-set-tamper-ref p_20) p_20 t_19)))))" "(syntax1.1" "(syntax-content the-struct_7)" "(syntax-scopes the-struct_7)" @@ -7806,19 +7960,19 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_7)))))))))))" "(define-values" "(remove-inferior)" -"(lambda(t_19 insp_1)" +"(lambda(t_20 insp_1)" "(begin" -"(let-values(((ht_45) t_19))" +"(let-values(((ht_45) t_20))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_45)))" "((letrec-values(((for-loop_49)" -"(lambda(table_61 i_59)" +"(lambda(table_61 i_61)" "(begin" " 'for-loop" -"(if i_59" -"(let-values(((already-insp_1)(unsafe-immutable-hash-iterate-key ht_45 i_59)))" +"(if i_61" +"(let-values(((already-insp_1)(unsafe-immutable-hash-iterate-key ht_45 i_61)))" "(let-values(((table_62)" "(let-values(((table_63) table_61))" "(if(inspector-superior-or-same? insp_1 already-insp_1)" @@ -7834,7 +7988,7 @@ static const char *startup_source = "(hash-set table_64 key_28 val_16)))))" "(values table_65)))))))" "(if(not #f)" -"(for-loop_49 table_62(unsafe-immutable-hash-iterate-next ht_45 i_59))" +"(for-loop_49 table_62(unsafe-immutable-hash-iterate-next ht_45 i_61))" " table_62)))" " table_61)))))" " for-loop_49)" @@ -7849,8 +8003,8 @@ static const char *startup_source = "(let-values(((s_80) s3_0))" "(let-values(((insp_2)(if insp2_0 insp1_0 #f)))" "(let-values()" -"(let-values(((t_20)(syntax-tamper s_80)))" -"(if(not(tamper-armed? t_20))" +"(let-values(((t_21)(syntax-tamper s_80)))" +"(if(not(tamper-armed? t_21))" "(let-values() s_80)" "(if(not insp_2)" "(let-values()" @@ -7858,11 +8012,11 @@ static const char *startup_source = "(let-values(((the-struct_8) stx_2))" "(if(syntax?$1 the-struct_8)" "(let-values(((scope-propagations+tamper8_0)" -"(let-values(((t_21) #f)" +"(let-values(((t_22) #f)" "((p_21)(syntax-scope-propagations+tamper stx_2)))" "(if(tamper? p_21)" -" t_21" -"((propagation-set-tamper-ref p_21) p_21 t_21)))))" +" t_22" +"((propagation-set-tamper-ref p_21) p_21 t_22)))))" "(syntax1.1" "(syntax-content the-struct_8)" "(syntax-scopes the-struct_8)" @@ -7874,16 +8028,16 @@ static const char *startup_source = "(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(((new-t_1)(remove-inferior t_21 insp_2)))" "(let-values(((stx_3) s_80))" "(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))" +"(let-values(((t_23)(if(not(set-empty? new-t_1)) new-t_1 #f))" "((p_22)(syntax-scope-propagations+tamper stx_3)))" "(if(tamper? p_22)" -" t_22" -"((propagation-set-tamper-ref p_22) p_22 t_22)))))" +" t_23" +"((propagation-set-tamper-ref p_22) p_22 t_23)))))" "(syntax1.1" "(syntax-content the-struct_9)" "(syntax-scopes the-struct_9)" @@ -7902,8 +8056,8 @@ static const char *startup_source = "(lambda(s_18 from-s_0)" "(begin" " 'syntax-rearm" -"(let-values(((t_23)(syntax-tamper s_18)))" -"(if(tamper-tainted? t_23)" +"(let-values(((t_24)(syntax-tamper s_18)))" +"(if(tamper-tainted? t_24)" "(let-values() s_18)" "(let-values()" "(let-values(((from-t_0)(syntax-tamper from-s_0)))" @@ -7915,9 +8069,9 @@ static const char *startup_source = "(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_18)))" +"(let-values(((t_25)(tamper-tainted-for-content(syntax-content s_18)))" "((p_23)(syntax-scope-propagations+tamper stx_4)))" -"(if(tamper? p_23) t_24((propagation-set-tamper-ref p_23) p_23 t_24)))))" +"(if(tamper? p_23) t_25((propagation-set-tamper-ref p_23) p_23 t_25)))))" "(syntax1.1" "(syntax-content the-struct_10)" "(syntax-scopes the-struct_10)" @@ -7928,15 +8082,15 @@ static const char *startup_source = "(syntax-props the-struct_10)" "(syntax-inspector the-struct_10)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_10)))))" -"(if(tamper-clean? t_23)" +"(if(tamper-clean? t_24)" "(let-values()" "(let-values(((stx_5) s_18))" "(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)" +"(let-values(((t_26) 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)))))" +"(if(tamper? p_24) t_26((propagation-set-tamper-ref p_24) p_24 t_26)))))" "(syntax1.1" "(syntax-content the-struct_11)" "(syntax-scopes the-struct_11)" @@ -7952,57 +8106,57 @@ static const char *startup_source = "(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(((t_27)" "(let-values(((ht_46) from-t_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_46)))" "((letrec-values(((for-loop_50)" -"(lambda(t_27 i_60)" +"(lambda(t_28 i_62)" "(begin" " 'for-loop" -"(if i_60" +"(if i_62" "(let-values(((from-i_0)" "(unsafe-immutable-hash-iterate-key" " ht_46" -" i_60)))" +" i_62)))" "(let-values(((t_3)" -"(let-values(((t_28)" -" t_27))" "(let-values(((t_29)" +" t_28))" +"(let-values(((t_30)" "(let-values()" "(if(set-member?" -" t_28" +" t_29" " from-i_0)" "(let-values()" -" t_28)" +" t_29)" "(if(any-superior?" -" t_28" +" t_29" " from-i_0)" "(let-values()" -" t_28)" +" t_29)" "(let-values()" "(set-add" "(remove-inferior" -" t_28" +" t_29" " from-i_0)" " from-i_0)))))))" "(values" -" t_29)))))" +" t_30)))))" "(if(not #f)" "(for-loop_50" " t_3" "(unsafe-immutable-hash-iterate-next" " ht_46" -" i_60))" +" i_62))" " t_3)))" -" t_27)))))" +" t_28)))))" " for-loop_50)" -" t_23" +" t_24" "(unsafe-immutable-hash-iterate-first ht_46)))))" "((p_11)(syntax-scope-propagations+tamper stx_6)))" -"(if(tamper? p_11) t_26((propagation-set-tamper-ref p_11) p_11 t_26)))))" +"(if(tamper? p_11) t_27((propagation-set-tamper-ref p_11) p_11 t_27)))))" "(syntax1.1" "(syntax-content the-struct_12)" "(syntax-scopes the-struct_12)" @@ -8024,9 +8178,9 @@ static const char *startup_source = "(let-values(((the-struct_13) stx_7))" "(if(syntax?$1 the-struct_13)" "(let-values(((scope-propagations+tamper13_0)" -"(let-values(((t_30)(tamper-tainted-for-content(syntax-content s_82)))" +"(let-values(((t_31)(tamper-tainted-for-content(syntax-content s_82)))" "((p_25)(syntax-scope-propagations+tamper stx_7)))" -"(if(tamper? p_25) t_30((propagation-set-tamper-ref p_25) p_25 t_30)))))" +"(if(tamper? p_25) t_31((propagation-set-tamper-ref p_25) p_25 t_31)))))" "(syntax1.1" "(syntax-content the-struct_13)" "(syntax-scopes the-struct_13)" @@ -8039,28 +8193,28 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_13))))))))" "(define-values" "(any-superior?)" -"(lambda(t_31 from-i_1)" +"(lambda(t_32 from-i_1)" "(begin" -"(let-values(((ht_47) t_31))" +"(let-values(((ht_47) t_32))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_47)))" "((letrec-values(((for-loop_51)" -"(lambda(result_35 i_61)" +"(lambda(result_35 i_63)" "(begin" " 'for-loop" -"(if i_61" -"(let-values(((i_62)(unsafe-immutable-hash-iterate-key ht_47 i_61)))" +"(if i_63" +"(let-values(((i_64)(unsafe-immutable-hash-iterate-key ht_47 i_63)))" "(let-values(((result_36)" "(let-values()" "(let-values(((result_37)" "(let-values()" "(let-values()" -"(inspector-superior-or-same? i_62 from-i_1)))))" +"(inspector-superior-or-same? i_64 from-i_1)))))" "(values result_37)))))" -"(if(if(not((lambda x_29 result_36) i_62))(not #f) #f)" -"(for-loop_51 result_36(unsafe-immutable-hash-iterate-next ht_47 i_61))" +"(if(if(not((lambda x_29 result_36) i_64))(not #f) #f)" +"(for-loop_51 result_36(unsafe-immutable-hash-iterate-next ht_47 i_63))" " result_36)))" " result_35)))))" " for-loop_51)" @@ -8068,9 +8222,9 @@ static const char *startup_source = "(unsafe-immutable-hash-iterate-first ht_47)))))))" "(define-values" "(inspector-superior-or-same?)" -"(lambda(sup-i_0 i_44)" +"(lambda(sup-i_0 i_46)" "(begin" -"(let-values(((or-part_95)(eq? sup-i_0 i_44)))(if or-part_95 or-part_95(inspector-superior? sup-i_0 i_44))))))" +"(let-values(((or-part_95)(eq? sup-i_0 i_46)))(if or-part_95 or-part_95(inspector-superior? sup-i_0 i_46))))))" "(define-values" "(struct:fallback fallback1.1 fallback? fallback-search-list)" "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" @@ -8104,7 +8258,7 @@ static const char *startup_source = "(f_4 smss_3)))))" "(define-values" "(fallback-map)" -"(lambda(smss_4 f_27)" +"(lambda(smss_4 f_29)" "(begin" "(if(fallback? smss_4)" "(fallback1.1" @@ -8123,7 +8277,7 @@ static const char *startup_source = "(let-values(((fold-var_34)" "(let-values()" "(cons" -"(let-values()(f_27 smss_5))" +"(let-values()(f_29 smss_5))" " fold-var_33))))" "(values fold-var_34)))))" "(if(not #f)(for-loop_52 fold-var_32 rest_17) fold-var_32)))" @@ -8131,7 +8285,7 @@ static const char *startup_source = " for-loop_52)" " null" " lst_40)))))" -"(f_27 smss_4)))))" +"(f_29 smss_4)))))" "(define-values" "(fallback->list)" "(lambda(smss_6)(begin(if(fallback? smss_6)(fallback-search-list smss_6)(list smss_6)))))" @@ -8445,15 +8599,54 @@ static const char *startup_source = "((kind_0)(scope1.1(new-deserialize-scope-id!) kind_0 empty-binding-table))))" "(define-values(deserialize-scope-fill!)(lambda(s_89 bt_5)(begin(set-scope-binding-table! s_89 bt_5))))" "(define-values" +"(struct:interned-scope interned-scope2.1 interned-scope? interned-scope-key)" +"(let-values(((struct:_24 make-_24 ?_24 -ref_24 -set!_24)" +"(let-values()" +"(let-values()" +"(make-struct-type" +" 'interned-scope" +" struct:scope" +" 1" +" 0" +" #f" +"(list" +"(cons prop:authentic #t)" +"(cons" +" prop:serialize" +"(lambda(s_90 ser-push!_8 state_18)" +"(begin" +"(if(set-member?(serialize-state-reachable-scopes state_18) s_90)" +"(void)" +" (let-values () (error \"internal error: found supposedly unreachable scope\")))" +"(ser-push!_8 'tag '#:interned-scope)" +"(ser-push!_8(interned-scope-key s_90)))))" +"(cons" +" prop:custom-write" +"(lambda(sc_4 port_7 mode_7)" +"(begin" +" (write-string \"#\" port_7)))))" +"(current-inspector)" +" #f" +" '(0)" +" #f" +" 'interned-scope)))))" +"(values struct:_24 make-_24 ?_24(make-struct-field-accessor -ref_24 0 'key))))" +"(define-values" "(struct:multi-scope" -" multi-scope2.1" +" multi-scope3.1" " multi-scope?" " multi-scope-id" " multi-scope-name" " multi-scope-scopes" " multi-scope-shifted" " multi-scope-label-shifted)" -"(let-values(((struct:_24 make-_24 ?_24 -ref_24 -set!_24)" +"(let-values(((struct:_25 make-_25 ?_25 -ref_25 -set!_25)" "(let-values()" "(let-values()" "(make-struct-type" @@ -8473,12 +8666,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-values ht_48)))" -"((letrec-values(((for-loop_53)" -"(lambda(i_63)" +"((letrec-values(((for-loop_56)" +"(lambda(i_64)" "(begin" " 'for-loop" -"(if i_63" -"(let-values(((sc_4)(hash-iterate-value ht_48 i_63)))" +"(if i_64" +"(let-values(((sc_5)(hash-iterate-value ht_48 i_64)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -8487,27 +8680,27 @@ static const char *startup_source = "(let-values()" "(if(binding-table-empty?" "(scope-binding-table" -" sc_4))" +" sc_5))" "(void)" "(let-values()" -"(reach_8 sc_4))))" +"(reach_8 sc_5))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_53(hash-iterate-next ht_48 i_63))" +"(for-loop_56(hash-iterate-next ht_48 i_64))" "(values))))" "(values))))))" -" for-loop_53)" +" for-loop_56)" "(hash-iterate-first ht_48))))" "(void))))" -"(cons prop:reach-scopes(lambda(s_90 reach_9)(void)))" +"(cons prop:reach-scopes(lambda(s_84 reach_9)(void)))" "(cons" " prop:serialize" -"(lambda(ms_1 ser-push!_8 state_18)" -"(let-values((()(begin(ser-push!_8 'tag '#:multi-scope)(values))))" -"(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" +"(lambda(ms_1 ser-push!_9 state_19)" +"(let-values((()(begin(ser-push!_9 'tag '#:multi-scope)(values))))" +"(let-values((()(begin(ser-push!_9(multi-scope-name ms_1))(values))))" +"(let-values(((multi-scope-tables_0)(serialize-state-multi-scope-tables state_19)))" +"(ser-push!_9" "(let-values(((or-part_100)" "(hash-ref multi-scope-tables_0(multi-scope-scopes ms_1) #f)))" "(if or-part_100" @@ -8519,13 +8712,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_50)))" -"((letrec-values(((for-loop_56)" -"(lambda(i_64)" +"((letrec-values(((for-loop_57)" +"(lambda(i_65)" "(begin" " 'for-loop" -"(if i_64" -"(let-values(((phase_8 sc_5)" -"(hash-iterate-key+value ht_50 i_64)))" +"(if i_65" +"(let-values(((phase_8 sc_6)" +"(hash-iterate-key+value ht_50 i_65)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -8534,21 +8727,21 @@ static const char *startup_source = "(let-values()" "(if(set-member?" "(serialize-state-reachable-scopes" -" state_18)" -" sc_5)" +" state_19)" +" sc_6)" "(let-values()" "(hash-set!" " ht_49" " phase_8" -" sc_5))" +" sc_6))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_56(hash-iterate-next ht_50 i_64))" +"(for-loop_57(hash-iterate-next ht_50 i_65))" "(values))))" "(values))))))" -" for-loop_56)" +" for-loop_57)" "(hash-iterate-first ht_50))))" "(void)" "(hash-set! multi-scope-tables_0(multi-scope-scopes ms_1) ht_49)" @@ -8559,27 +8752,27 @@ static const char *startup_source = " #f" " 'multi-scope)))))" "(values" -" struct:_24" -" make-_24" -" ?_24" -"(make-struct-field-accessor -ref_24 0 'id)" -"(make-struct-field-accessor -ref_24 1 'name)" -"(make-struct-field-accessor -ref_24 2 'scopes)" -"(make-struct-field-accessor -ref_24 3 'shifted)" -"(make-struct-field-accessor -ref_24 4 'label-shifted))))" +" struct:_25" +" make-_25" +" ?_25" +"(make-struct-field-accessor -ref_25 0 'id)" +"(make-struct-field-accessor -ref_25 1 'name)" +"(make-struct-field-accessor -ref_25 2 'scopes)" +"(make-struct-field-accessor -ref_25 3 'shifted)" +"(make-struct-field-accessor -ref_25 4 'label-shifted))))" "(define-values" "(deserialize-multi-scope)" "(lambda(name_15 scopes_8)" -"(begin(multi-scope2.1(new-deserialize-scope-id!) name_15 scopes_8(box(hasheqv))(box(hash))))))" +"(begin(multi-scope3.1(new-deserialize-scope-id!) name_15 scopes_8(box(hasheqv))(box(hash))))))" "(define-values" "(struct:representative-scope" -" representative-scope3.1" +" representative-scope4.1" " representative-scope?" " representative-scope-owner" " representative-scope-phase" " set-representative-scope-owner!" " set-representative-scope-phase!)" -"(let-values(((struct:_25 make-_25 ?_25 -ref_25 -set!_25)" +"(let-values(((struct:_26 make-_26 ?_26 -ref_26 -set!_26)" "(let-values()" "(let-values()" "(make-struct-type" @@ -8594,61 +8787,61 @@ static const char *startup_source = "(cons prop:reach-scopes(lambda(s_91 reach_10)(reach_10(representative-scope-owner s_91))))" "(cons" " prop:serialize-fill!" -"(lambda(s_92 ser-push!_9 state_19)" +"(lambda(s_92 ser-push!_10 state_20)" "(begin" -"(ser-push!_9 'tag '#:representative-scope-fill!)" -"(ser-push!_9(binding-table-prune-to-reachable(scope-binding-table s_92) state_19))" -"(ser-push!_9(representative-scope-owner s_92)))))" +"(ser-push!_10 'tag '#:representative-scope-fill!)" +"(ser-push!_10(binding-table-prune-to-reachable(scope-binding-table s_92) state_20))" +"(ser-push!_10(representative-scope-owner s_92)))))" "(cons" " prop:serialize" -"(lambda(s_93 ser-push!_10 state_20)" +"(lambda(s_93 ser-push!_11 state_21)" "(begin" -"(ser-push!_10 'tag '#:representative-scope)" -"(ser-push!_10(scope-kind s_93))" -"(ser-push!_10(representative-scope-phase s_93)))))" +"(ser-push!_11 'tag '#:representative-scope)" +"(ser-push!_11(scope-kind s_93))" +"(ser-push!_11(representative-scope-phase s_93)))))" "(cons" " prop:custom-write" -"(lambda(sc_6 port_7 mode_7)" +"(lambda(sc_7 port_8 mode_8)" "(begin" -" (write-string \"#\" port_7)))))" +" (write-string \"@\" port_8)" +"(display(representative-scope-phase sc_7) port_8)" +" (write-string \">\" port_8)))))" "(current-inspector)" " #f" " '()" " #f" " 'representative-scope)))))" "(values" -" struct:_25" -" make-_25" -" ?_25" -"(make-struct-field-accessor -ref_25 0 'owner)" -"(make-struct-field-accessor -ref_25 1 'phase)" -"(make-struct-field-mutator -set!_25 0 'owner)" -"(make-struct-field-mutator -set!_25 1 'phase))))" +" struct:_26" +" make-_26" +" ?_26" +"(make-struct-field-accessor -ref_26 0 'owner)" +"(make-struct-field-accessor -ref_26 1 'phase)" +"(make-struct-field-mutator -set!_26 0 'owner)" +"(make-struct-field-mutator -set!_26 1 'phase))))" "(define-values" "(deserialize-representative-scope)" "(lambda(kind_1 phase_9)" -"(begin(let-values(((v_80)(representative-scope3.1(new-deserialize-scope-id!) kind_1 #f #f phase_9))) v_80))))" +"(begin(let-values(((v_80)(representative-scope4.1(new-deserialize-scope-id!) kind_1 #f #f phase_9))) v_80))))" "(define-values" "(deserialize-representative-scope-fill!)" "(lambda(s_94 bt_6 owner_0)" "(begin(begin(deserialize-scope-fill! s_94 bt_6)(set-representative-scope-owner! s_94 owner_0)))))" "(define-values" "(struct:shifted-multi-scope" -" shifted-multi-scope4.1" +" shifted-multi-scope5.1" " shifted-multi-scope?" " shifted-multi-scope-phase" " shifted-multi-scope-multi-scope)" -"(let-values(((struct:_26 make-_26 ?_26 -ref_26 -set!_26)" +"(let-values(((struct:_27 make-_27 ?_27 -ref_27 -set!_27)" "(let-values()" "(let-values()" "(make-struct-type" @@ -8664,31 +8857,31 @@ static const char *startup_source = "(lambda(sms_3 reach_11)(reach_11(shifted-multi-scope-multi-scope sms_3))))" "(cons" " prop:serialize" -"(lambda(sms_4 ser-push!_11 state_21)" +"(lambda(sms_4 ser-push!_12 state_22)" "(begin" -"(ser-push!_11 'tag '#:shifted-multi-scope)" -"(ser-push!_11(shifted-multi-scope-phase sms_4))" -"(ser-push!_11(shifted-multi-scope-multi-scope sms_4)))))" +"(ser-push!_12 'tag '#:shifted-multi-scope)" +"(ser-push!_12(shifted-multi-scope-phase sms_4))" +"(ser-push!_12(shifted-multi-scope-multi-scope sms_4)))))" "(cons" " prop:custom-write" -"(lambda(sms_5 port_8 mode_8)" +"(lambda(sms_5 port_9 mode_9)" "(begin" -" (write-string \"#\" port_8)))))" +" (write-string \"#\" port_9)))))" "(current-inspector)" " #f" " '(0 1)" " #f" " 'shifted-multi-scope)))))" "(values" -" struct:_26" -" make-_26" -" ?_26" -"(make-struct-field-accessor -ref_26 0 'phase)" -"(make-struct-field-accessor -ref_26 1 'multi-scope))))" +" struct:_27" +" make-_27" +" ?_27" +"(make-struct-field-accessor -ref_27 0 'phase)" +"(make-struct-field-accessor -ref_27 1 'multi-scope))))" "(define-values" "(deserialize-shifted-multi-scope)" "(lambda(phase_10 multi-scope_0)(begin(intern-shifted-multi-scope phase_10 multi-scope_0))))" @@ -8717,7 +8910,7 @@ static const char *startup_source = "(transaction-loop_0" "(multi-scope-shifted multi-scope_1)" " phase_11" -"(lambda()(shifted-multi-scope4.1 phase_11 multi-scope_1))))))" +"(lambda()(shifted-multi-scope5.1 phase_11 multi-scope_1))))))" "(let-values()" "(let-values(((or-part_103)(hash-ref(unbox(multi-scope-label-shifted multi-scope_1)) phase_11 #f)))" "(if or-part_103" @@ -8725,10 +8918,10 @@ static const char *startup_source = "(transaction-loop_0" "(multi-scope-label-shifted multi-scope_1)" " phase_11" -"(lambda()(shifted-multi-scope4.1 phase_11 multi-scope_1)))))))))))" +"(lambda()(shifted-multi-scope5.1 phase_11 multi-scope_1)))))))))))" "(define-values" -"(struct:shifted-to-label-phase shifted-to-label-phase5.1 shifted-to-label-phase? shifted-to-label-phase-from)" -"(let-values(((struct:_27 make-_27 ?_27 -ref_27 -set!_27)" +"(struct:shifted-to-label-phase shifted-to-label-phase6.1 shifted-to-label-phase? shifted-to-label-phase-from)" +"(let-values(((struct:_28 make-_28 ?_28 -ref_28 -set!_28)" "(let-values()" "(let-values()" "(make-struct-type" @@ -8743,34 +8936,53 @@ static const char *startup_source = " '(0)" " #f" " 'shifted-to-label-phase)))))" -"(values struct:_27 make-_27 ?_27(make-struct-field-accessor -ref_27 0 'from))))" +"(values struct:_28 make-_28 ?_28(make-struct-field-accessor -ref_28 0 'from))))" "(define-values(id-counter) 0)" "(define-values(new-scope-id!)(lambda()(begin(begin(set! id-counter(add1 id-counter)) id-counter))))" "(define-values(new-deserialize-scope-id!)(lambda()(begin(-(new-scope-id!)))))" "(define-values(deserialized-scope-id?)(lambda(scope-id_0)(begin(negative? scope-id_0))))" "(define-values(top-level-common-scope)(scope1.1 0 'module empty-binding-table))" "(define-values(new-scope)(lambda(kind_2)(begin(scope1.1(new-scope-id!) kind_2 empty-binding-table))))" +"(define-values(interned-scopes-table)(make-weak-hasheq))" +"(define-values" +"(make-interned-scope)" +"(lambda(sym_15)" +"(begin" +"(let-values(((make_1)" +"(lambda()" +"(begin" +" 'make" +"(make-ephemeron" +" sym_15" +"(interned-scope2.1(-(new-scope-id!)) 'interned empty-binding-table sym_15))))))" +"(call-as-atomic" +"(lambda()" +"(let-values(((or-part_104)(ephemeron-value(hash-ref! interned-scopes-table sym_15 make_1))))" +"(if or-part_104" +" or-part_104" +"(let-values(((new_1)(make_1)))" +"(begin(hash-set! interned-scopes-table sym_15 new_1)(ephemeron-value new_1)))))))))))" "(define-values" "(new-multi-scope)" -"(let-values(((new-multi-scope8_0)" -"(lambda(name6_0 name7_0)" +"(let-values(((new-multi-scope9_0)" +"(lambda(name7_0 name8_0)" "(begin" -" 'new-multi-scope8" -"(let-values(((name_16)(if name7_0 name6_0 #f)))" +" 'new-multi-scope9" +"(let-values(((name_16)(if name8_0 name7_0 #f)))" "(let-values()" "(intern-shifted-multi-scope" " 0" -"(multi-scope2.1(new-scope-id!) name_16(make-hasheqv)(box(hasheqv))(box(hash))))))))))" -"(case-lambda(()(begin(new-multi-scope8_0 #f #f)))((name6_1)(new-multi-scope8_0 name6_1 #t)))))" +"(multi-scope3.1(new-scope-id!) name_16(make-hasheqv)(box(hasheqv))(box(hash))))))))))" +"(case-lambda(()(begin(new-multi-scope9_0 #f #f)))((name7_1)(new-multi-scope9_0 name7_1 #t)))))" "(define-values" "(multi-scope-to-scope-at-phase)" "(lambda(ms_2 phase_12)" "(begin" -"(let-values(((or-part_104)(hash-ref(multi-scope-scopes ms_2) phase_12 #f)))" -"(if or-part_104" -" or-part_104" +"(let-values(((or-part_105)(hash-ref(multi-scope-scopes ms_2) phase_12 #f)))" +"(if or-part_105" +" or-part_105" "(let-values(((s_95)" -"(representative-scope3.1" +"(representative-scope4.1" "(if(deserialized-scope-id?(multi-scope-id ms_2))(new-deserialize-scope-id!)(new-scope-id!))" " 'module" " empty-binding-table" @@ -8799,11 +9011,11 @@ static const char *startup_source = "(lambda(s_96)" "(begin" "(let-values(((prop_3)(syntax-scope-propagations+tamper s_96)))" -"(if(let-values(((or-part_105)(propagation? prop_3)))" -"(if or-part_105 or-part_105(tamper-needs-propagate? prop_3)))" +"(if(let-values(((or-part_61)(propagation? prop_3)))" +"(if or-part_61 or-part_61(tamper-needs-propagate? prop_3)))" "(let-values(((new-content_0)" "(let-values(((s_97)(syntax-content s_96))" -"((f_28)(lambda(tail?_20 x_33)(begin 'f x_33)))" +"((f_30)(lambda(tail?_20 x_33)(begin 'f x_33)))" "((s->_2)" "(lambda(sub-s_1)" "(begin" @@ -8811,23 +9023,23 @@ static const char *startup_source = "(if(propagation? prop_3)" "(let-values(((the-struct_14) sub-s_1))" "(if(syntax?$1 the-struct_14)" -"(let-values(((scopes48_1)" +"(let-values(((scopes50_0)" "(propagation-apply prop_3(syntax-scopes sub-s_1) s_96))" -"((shifted-multi-scopes49_0)" +"((shifted-multi-scopes51_0)" "(propagation-apply-shifted" " prop_3" "(syntax-shifted-multi-scopes sub-s_1)" " s_96))" -"((mpi-shifts50_0)" +"((mpi-shifts52_0)" "(propagation-apply-mpi-shifts" " prop_3" "(syntax-mpi-shifts sub-s_1)" " s_96))" -"((inspector51_0)" +"((inspector53_0)" "(propagation-apply-inspector" " prop_3" "(syntax-inspector sub-s_1)))" -"((scope-propagations+tamper52_0)" +"((scope-propagations+tamper54_0)" "(propagation-merge" "(syntax-content sub-s_1)" " prop_3" @@ -8837,31 +9049,31 @@ static const char *startup_source = "(syntax-mpi-shifts sub-s_1))))" "(syntax1.1" "(syntax-content the-struct_14)" -" scopes48_1" -" shifted-multi-scopes49_0" -" scope-propagations+tamper52_0" -" mpi-shifts50_0" +" scopes50_0" +" shifted-multi-scopes51_0" +" scope-propagations+tamper54_0" +" mpi-shifts52_0" "(syntax-srcloc the-struct_14)" "(syntax-props the-struct_14)" -" inspector51_0))" +" inspector53_0))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_14)))" "(let-values(((stx_8) sub-s_1))" "(let-values(((the-struct_15) stx_8))" "(if(syntax?$1 the-struct_15)" -"(let-values(((scope-propagations+tamper53_0)" -"(let-values(((t_32)" +"(let-values(((scope-propagations+tamper55_0)" +"(let-values(((t_33)" "(tamper-tainted-for-content" "(syntax-content sub-s_1)))" "((p_27)" "(syntax-scope-propagations+tamper stx_8)))" "(if(tamper? p_27)" -" t_32" -"((propagation-set-tamper-ref p_27) p_27 t_32)))))" +" t_33" +"((propagation-set-tamper-ref p_27) p_27 t_33)))))" "(syntax1.1" "(syntax-content the-struct_15)" "(syntax-scopes the-struct_15)" "(syntax-shifted-multi-scopes the-struct_15)" -" scope-propagations+tamper53_0" +" scope-propagations+tamper55_0" "(syntax-mpi-shifts the-struct_15)" "(syntax-srcloc the-struct_15)" "(syntax-props the-struct_15)" @@ -8869,16 +9081,16 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_15))))))))" "((seen_9) #f))" "(let-values(((s_98) s_97)" -"((f_29) f_28)" +"((f_31) f_30)" "((gf_4)" "(lambda(tail?_21 v_81)" "(begin" " 'gf" "(if(syntax?$1 v_81)" "(let-values()(s->_2 v_81))" -"(let-values()(f_28 tail?_21 v_81))))))" +"(let-values()(f_30 tail?_21 v_81))))))" "((seen_10) seen_9))" -"((letrec-values(((loop_67)" +"((letrec-values(((loop_69)" "(lambda(tail?_22 s_99 prev-depth_4)" "(begin" " 'loop" @@ -8891,20 +9103,20 @@ static const char *startup_source = "(lambda(tail?_23 s_100)(gf_4 tail?_23 s_100))" " seen_10))" "(if(null? s_99)" -"(let-values()(f_29 tail?_22 s_99))" +"(let-values()(f_31 tail?_22 s_99))" "(if(pair? s_99)" "(let-values()" -"(f_29" +"(f_31" " tail?_22" "(cons" -"(loop_67 #f(car s_99) depth_4)" -"(loop_67 #t(cdr s_99) depth_4))))" +"(loop_69 #f(car s_99) depth_4)" +"(loop_69 #t(cdr s_99) depth_4))))" "(if(symbol? s_99)" -"(let-values()(f_29 #f s_99))" +"(let-values()(f_31 #f s_99))" "(if(boolean? s_99)" -"(let-values()(f_29 #f s_99))" +"(let-values()(f_31 #f s_99))" "(if(number? s_99)" -"(let-values()(f_29 #f s_99))" +"(let-values()(f_31 #f s_99))" "(if(let-values(((or-part_106)(vector? s_99)))" "(if or-part_106" " or-part_106" @@ -8923,7 +9135,7 @@ static const char *startup_source = "(lambda(tail?_24 s_101)(gf_4 tail?_24 s_101))" " seen_10))" "(let-values()(gf_4 #f s_99))))))))))))))" -" loop_67)" +" loop_69)" " #f" " s_98" " 0)))))" @@ -8951,28 +9163,28 @@ static const char *startup_source = "(let-values() content_6))))))))))" "(define-values" "(generalize-scope)" -"(lambda(sc_7)" +"(lambda(sc_8)" "(begin" -"(if(representative-scope? sc_7)" -"(intern-shifted-multi-scope(representative-scope-phase sc_7)(representative-scope-owner sc_7))" -" sc_7))))" +"(if(representative-scope? sc_8)" +"(intern-shifted-multi-scope(representative-scope-phase sc_8)(representative-scope-owner sc_8))" +" sc_8))))" "(define-values" "(add-scope)" -"(lambda(s_103 sc_8)" +"(lambda(s_103 sc_9)" "(begin" -"(let-values(((s_104) s_103)((sc_9)(generalize-scope sc_8))((op_0) set-add)((prop-op_0) propagation-add))" -"(if(shifted-multi-scope? sc_9)" +"(let-values(((s_104) s_103)((sc_10)(generalize-scope sc_9))((op_0) set-add)((prop-op_0) propagation-add))" +"(if(shifted-multi-scope? sc_10)" "(let-values(((the-struct_16) s_104))" "(if(syntax?$1 the-struct_16)" -"(let-values(((shifted-multi-scopes54_0)" +"(let-values(((shifted-multi-scopes56_0)" "(fallback-update-first" "(syntax-shifted-multi-scopes s_104)" -"(lambda(smss_9)(op_0(fallback-first smss_9) sc_9))))" -"((scope-propagations+tamper55_0)" +"(lambda(smss_9)(op_0(fallback-first smss_9) sc_10))))" +"((scope-propagations+tamper57_0)" "(if(datum-has-elements?(syntax-content s_104))" "(prop-op_0" "(syntax-scope-propagations+tamper s_104)" -" sc_9" +" sc_10" "(syntax-scopes s_104)" "(syntax-shifted-multi-scopes s_104)" "(syntax-mpi-shifts s_104))" @@ -8980,8 +9192,8 @@ static const char *startup_source = "(syntax1.1" "(syntax-content the-struct_16)" "(syntax-scopes the-struct_16)" -" shifted-multi-scopes54_0" -" scope-propagations+tamper55_0" +" shifted-multi-scopes56_0" +" scope-propagations+tamper57_0" "(syntax-mpi-shifts the-struct_16)" "(syntax-srcloc the-struct_16)" "(syntax-props the-struct_16)" @@ -8989,21 +9201,21 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_16)))" "(let-values(((the-struct_17) s_104))" "(if(syntax?$1 the-struct_17)" -"(let-values(((scopes56_0)(op_0(syntax-scopes s_104) sc_9))" -"((scope-propagations+tamper57_0)" +"(let-values(((scopes58_0)(op_0(syntax-scopes s_104) sc_10))" +"((scope-propagations+tamper59_0)" "(if(datum-has-elements?(syntax-content s_104))" "(prop-op_0" "(syntax-scope-propagations+tamper s_104)" -" sc_9" +" sc_10" "(syntax-scopes s_104)" "(syntax-shifted-multi-scopes s_104)" "(syntax-mpi-shifts s_104))" "(syntax-scope-propagations+tamper s_104))))" "(syntax1.1" "(syntax-content the-struct_17)" -" scopes56_0" +" scopes58_0" "(syntax-shifted-multi-scopes the-struct_17)" -" scope-propagations+tamper57_0" +" scope-propagations+tamper59_0" "(syntax-mpi-shifts the-struct_17)" "(syntax-srcloc the-struct_17)" "(syntax-props the-struct_17)" @@ -9016,41 +9228,41 @@ static const char *startup_source = "(let-values(((lst_42) scs_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_42)))" -"((letrec-values(((for-loop_57)" +"((letrec-values(((for-loop_58)" "(lambda(s_106 lst_43)" "(begin" " 'for-loop" "(if(pair? lst_43)" -"(let-values(((sc_10)(unsafe-car lst_43))((rest_18)(unsafe-cdr lst_43)))" +"(let-values(((sc_11)(unsafe-car lst_43))((rest_18)(unsafe-cdr lst_43)))" "(let-values(((s_107)" "(let-values(((s_108) s_106))" -"(let-values(((s_109)(let-values()(add-scope s_108 sc_10))))" +"(let-values(((s_109)(let-values()(add-scope s_108 sc_11))))" "(values s_109)))))" -"(if(not #f)(for-loop_57 s_107 rest_18) s_107)))" +"(if(not #f)(for-loop_58 s_107 rest_18) s_107)))" " s_106)))))" -" for-loop_57)" +" for-loop_58)" " s_105" " lst_42))))))" "(define-values" "(remove-scope)" -"(lambda(s_110 sc_11)" +"(lambda(s_110 sc_12)" "(begin" "(let-values(((s_111) s_110)" -"((sc_12)(generalize-scope sc_11))" +"((sc_13)(generalize-scope sc_12))" "((op_1) set-remove)" "((prop-op_1) propagation-remove))" -"(if(shifted-multi-scope? sc_12)" +"(if(shifted-multi-scope? sc_13)" "(let-values(((the-struct_18) s_111))" "(if(syntax?$1 the-struct_18)" -"(let-values(((shifted-multi-scopes58_0)" +"(let-values(((shifted-multi-scopes60_0)" "(fallback-update-first" "(syntax-shifted-multi-scopes s_111)" -"(lambda(smss_10)(op_1(fallback-first smss_10) sc_12))))" -"((scope-propagations+tamper59_0)" +"(lambda(smss_10)(op_1(fallback-first smss_10) sc_13))))" +"((scope-propagations+tamper61_0)" "(if(datum-has-elements?(syntax-content s_111))" "(prop-op_1" "(syntax-scope-propagations+tamper s_111)" -" sc_12" +" sc_13" "(syntax-scopes s_111)" "(syntax-shifted-multi-scopes s_111)" "(syntax-mpi-shifts s_111))" @@ -9058,8 +9270,8 @@ static const char *startup_source = "(syntax1.1" "(syntax-content the-struct_18)" "(syntax-scopes the-struct_18)" -" shifted-multi-scopes58_0" -" scope-propagations+tamper59_0" +" shifted-multi-scopes60_0" +" scope-propagations+tamper61_0" "(syntax-mpi-shifts the-struct_18)" "(syntax-srcloc the-struct_18)" "(syntax-props the-struct_18)" @@ -9067,21 +9279,21 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_18)))" "(let-values(((the-struct_19) s_111))" "(if(syntax?$1 the-struct_19)" -"(let-values(((scopes60_0)(op_1(syntax-scopes s_111) sc_12))" -"((scope-propagations+tamper61_0)" +"(let-values(((scopes62_0)(op_1(syntax-scopes s_111) sc_13))" +"((scope-propagations+tamper63_0)" "(if(datum-has-elements?(syntax-content s_111))" "(prop-op_1" "(syntax-scope-propagations+tamper s_111)" -" sc_12" +" sc_13" "(syntax-scopes s_111)" "(syntax-shifted-multi-scopes s_111)" "(syntax-mpi-shifts s_111))" "(syntax-scope-propagations+tamper s_111))))" "(syntax1.1" "(syntax-content the-struct_19)" -" scopes60_0" +" scopes62_0" "(syntax-shifted-multi-scopes the-struct_19)" -" scope-propagations+tamper61_0" +" scope-propagations+tamper63_0" "(syntax-mpi-shifts the-struct_19)" "(syntax-srcloc the-struct_19)" "(syntax-props the-struct_19)" @@ -9094,19 +9306,19 @@ static const char *startup_source = "(let-values(((lst_44) scs_6))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_44)))" -"((letrec-values(((for-loop_58)" +"((letrec-values(((for-loop_59)" "(lambda(s_113 lst_45)" "(begin" " 'for-loop" "(if(pair? lst_45)" -"(let-values(((sc_13)(unsafe-car lst_45))((rest_19)(unsafe-cdr lst_45)))" +"(let-values(((sc_14)(unsafe-car lst_45))((rest_19)(unsafe-cdr lst_45)))" "(let-values(((s_114)" "(let-values(((s_115) s_113))" -"(let-values(((s_116)(let-values()(remove-scope s_115 sc_13))))" +"(let-values(((s_116)(let-values()(remove-scope s_115 sc_14))))" "(values s_116)))))" -"(if(not #f)(for-loop_58 s_114 rest_19) s_114)))" +"(if(not #f)(for-loop_59 s_114 rest_19) s_114)))" " s_113)))))" -" for-loop_58)" +" for-loop_59)" " s_112" " lst_44))))))" "(define-values" @@ -9114,21 +9326,21 @@ static const char *startup_source = "(lambda(s_117 e_16)(begin(if(set-member? s_117 e_16)(set-remove s_117 e_16)(set-add s_117 e_16)))))" "(define-values" "(flip-scope)" -"(lambda(s_118 sc_14)" +"(lambda(s_118 sc_15)" "(begin" -"(let-values(((s_119) s_118)((sc_15)(generalize-scope sc_14))((op_2) set-flip)((prop-op_2) propagation-flip))" -"(if(shifted-multi-scope? sc_15)" +"(let-values(((s_119) s_118)((sc_16)(generalize-scope sc_15))((op_2) set-flip)((prop-op_2) propagation-flip))" +"(if(shifted-multi-scope? sc_16)" "(let-values(((the-struct_20) s_119))" "(if(syntax?$1 the-struct_20)" -"(let-values(((shifted-multi-scopes62_0)" +"(let-values(((shifted-multi-scopes64_0)" "(fallback-update-first" "(syntax-shifted-multi-scopes s_119)" -"(lambda(smss_11)(op_2(fallback-first smss_11) sc_15))))" -"((scope-propagations+tamper63_0)" +"(lambda(smss_11)(op_2(fallback-first smss_11) sc_16))))" +"((scope-propagations+tamper65_0)" "(if(datum-has-elements?(syntax-content s_119))" "(prop-op_2" "(syntax-scope-propagations+tamper s_119)" -" sc_15" +" sc_16" "(syntax-scopes s_119)" "(syntax-shifted-multi-scopes s_119)" "(syntax-mpi-shifts s_119))" @@ -9136,8 +9348,8 @@ static const char *startup_source = "(syntax1.1" "(syntax-content the-struct_20)" "(syntax-scopes the-struct_20)" -" shifted-multi-scopes62_0" -" scope-propagations+tamper63_0" +" shifted-multi-scopes64_0" +" scope-propagations+tamper65_0" "(syntax-mpi-shifts the-struct_20)" "(syntax-srcloc the-struct_20)" "(syntax-props the-struct_20)" @@ -9145,21 +9357,21 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_20)))" "(let-values(((the-struct_21) s_119))" "(if(syntax?$1 the-struct_21)" -"(let-values(((scopes64_0)(op_2(syntax-scopes s_119) sc_15))" -"((scope-propagations+tamper65_0)" +"(let-values(((scopes66_0)(op_2(syntax-scopes s_119) sc_16))" +"((scope-propagations+tamper67_0)" "(if(datum-has-elements?(syntax-content s_119))" "(prop-op_2" "(syntax-scope-propagations+tamper s_119)" -" sc_15" +" sc_16" "(syntax-scopes s_119)" "(syntax-shifted-multi-scopes s_119)" "(syntax-mpi-shifts s_119))" "(syntax-scope-propagations+tamper s_119))))" "(syntax1.1" "(syntax-content the-struct_21)" -" scopes64_0" +" scopes66_0" "(syntax-shifted-multi-scopes the-struct_21)" -" scope-propagations+tamper65_0" +" scope-propagations+tamper67_0" "(syntax-mpi-shifts the-struct_21)" "(syntax-srcloc the-struct_21)" "(syntax-props the-struct_21)" @@ -9172,32 +9384,32 @@ static const char *startup_source = "(let-values(((lst_46) scs_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_46)))" -"((letrec-values(((for-loop_59)" +"((letrec-values(((for-loop_60)" "(lambda(s_121 lst_47)" "(begin" " 'for-loop" "(if(pair? lst_47)" -"(let-values(((sc_16)(unsafe-car lst_47))((rest_20)(unsafe-cdr lst_47)))" +"(let-values(((sc_17)(unsafe-car lst_47))((rest_20)(unsafe-cdr lst_47)))" "(let-values(((s_122)" "(let-values(((s_123) s_121))" -"(let-values(((s_124)(let-values()(flip-scope s_123 sc_16))))" +"(let-values(((s_124)(let-values()(flip-scope s_123 sc_17))))" "(values s_124)))))" -"(if(not #f)(for-loop_59 s_122 rest_20) s_122)))" +"(if(not #f)(for-loop_60 s_122 rest_20) s_122)))" " s_121)))))" -" for-loop_59)" +" for-loop_60)" " s_120" " lst_46))))))" "(define-values" "(push-scope)" "(lambda(s_125 sms_6)" "(begin" -"(let-values(((smss/maybe-fallbacks66_0) #f))" +"(let-values(((smss/maybe-fallbacks68_0) #f))" "(let-values(((prev-result_0) #f))" "(let-values(((push_0)" "(lambda(smss/maybe-fallbacks_0)" "(begin" " 'push" -"(if(eq? smss/maybe-fallbacks66_0 smss/maybe-fallbacks_0)" +"(if(eq? smss/maybe-fallbacks68_0 smss/maybe-fallbacks_0)" "(let-values() prev-result_0)" "(let-values()" "(let-values(((r_23)" @@ -9212,24 +9424,24 @@ static const char *startup_source = "(set-add smss_12 sms_6)" " smss/maybe-fallbacks_0))))))))" "(begin" -"(set! smss/maybe-fallbacks66_0 smss/maybe-fallbacks_0)" +"(set! smss/maybe-fallbacks68_0 smss/maybe-fallbacks_0)" "(set! prev-result_0 r_23)" " r_23))))))))" "(let-values(((s_126) s_125)" -"((f_30)(lambda(tail?_25 x_34)(begin 'f x_34)))" +"((f_32)(lambda(tail?_25 x_34)(begin 'f x_34)))" "((d->s_1)" "(lambda(s_127 d_3)" "(begin" " 'd->s" "(let-values(((the-struct_22) s_127))" "(if(syntax?$1 the-struct_22)" -"(let-values(((content67_0) d_3)" -"((shifted-multi-scopes68_0)" +"(let-values(((content69_0) d_3)" +"((shifted-multi-scopes70_0)" "(push_0(syntax-shifted-multi-scopes s_127))))" "(syntax1.1" -" content67_0" +" content69_0" "(syntax-scopes the-struct_22)" -" shifted-multi-scopes68_0" +" shifted-multi-scopes70_0" "(syntax-scope-propagations+tamper the-struct_22)" "(syntax-mpi-shifts the-struct_22)" "(syntax-srcloc the-struct_22)" @@ -9238,21 +9450,21 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_22))))))" "((s-e_1) syntax-e/no-taint)" "((seen_11) #f))" -"((letrec-values(((loop_68)" +"((letrec-values(((loop_70)" "(lambda(s_128)" "(begin" " 'loop" "(let-values(((s_129) s_128)" -"((f_31) f_30)" +"((f_33) f_32)" "((gf_5)" "(lambda(tail?_26 v_82)" "(begin" " 'gf" "(if(syntax?$1 v_82)" -"(let-values()(d->s_1 v_82(loop_68(s-e_1 v_82))))" -"(let-values()(f_30 tail?_26 v_82))))))" +"(let-values()(d->s_1 v_82(loop_70(s-e_1 v_82))))" +"(let-values()(f_32 tail?_26 v_82))))))" "((seen_12) seen_11))" -"((letrec-values(((loop_69)" +"((letrec-values(((loop_71)" "(lambda(tail?_27 s_130 prev-depth_5)" "(begin" " 'loop" @@ -9265,20 +9477,20 @@ static const char *startup_source = "(lambda(tail?_28 s_131)(gf_5 tail?_28 s_131))" " seen_12))" "(if(null? s_130)" -"(let-values()(f_31 tail?_27 s_130))" +"(let-values()(f_33 tail?_27 s_130))" "(if(pair? s_130)" "(let-values()" -"(f_31" +"(f_33" " tail?_27" "(cons" -"(loop_69 #f(car s_130) depth_5)" -"(loop_69 #t(cdr s_130) depth_5))))" +"(loop_71 #f(car s_130) depth_5)" +"(loop_71 #t(cdr s_130) depth_5))))" "(if(symbol? s_130)" -"(let-values()(f_31 #f s_130))" +"(let-values()(f_33 #f s_130))" "(if(boolean? s_130)" -"(let-values()(f_31 #f s_130))" +"(let-values()(f_33 #f s_130))" "(if(number? s_130)" -"(let-values()(f_31 #f s_130))" +"(let-values()(f_33 #f s_130))" "(if(let-values(((or-part_109)" "(vector? s_130)))" "(if or-part_109" @@ -9301,15 +9513,15 @@ static const char *startup_source = "(gf_5 tail?_29 s_132))" " seen_12))" "(let-values()(gf_5 #f s_130))))))))))))))" -" loop_69)" +" loop_71)" " #f" " s_129" " 0))))))" -" loop_68)" +" loop_70)" " s_126))))))))" "(define-values" "(struct:propagation" -" propagation14.1" +" propagation15.1" " propagation?" " propagation-prev-scs" " propagation-prev-smss" @@ -9318,7 +9530,7 @@ static const char *startup_source = " propagation-add-mpi-shifts" " propagation-inspector" " propagation-tamper)" -"(let-values(((struct:_28 make-_28 ?_28 -ref_28 -set!_28)" +"(let-values(((struct:_29 make-_29 ?_29 -ref_29 -set!_29)" "(let-values()" "(let-values()" "(make-struct-type" @@ -9338,59 +9550,59 @@ static const char *startup_source = " #f" " 'propagation)))))" "(values" -" struct:_28" -" make-_28" -" ?_28" -"(make-struct-field-accessor -ref_28 0 'prev-scs)" -"(make-struct-field-accessor -ref_28 1 'prev-smss)" -"(make-struct-field-accessor -ref_28 2 'scope-ops)" -"(make-struct-field-accessor -ref_28 3 'prev-mss)" -"(make-struct-field-accessor -ref_28 4 'add-mpi-shifts)" -"(make-struct-field-accessor -ref_28 5 'inspector)" -"(make-struct-field-accessor -ref_28 6 'tamper))))" +" struct:_29" +" make-_29" +" ?_29" +"(make-struct-field-accessor -ref_29 0 'prev-scs)" +"(make-struct-field-accessor -ref_29 1 'prev-smss)" +"(make-struct-field-accessor -ref_29 2 'scope-ops)" +"(make-struct-field-accessor -ref_29 3 'prev-mss)" +"(make-struct-field-accessor -ref_29 4 'add-mpi-shifts)" +"(make-struct-field-accessor -ref_29 5 'inspector)" +"(make-struct-field-accessor -ref_29 6 'tamper))))" "(define-values" "(propagation-add)" -"(lambda(prop_4 sc_17 prev-scs_0 prev-smss_0 prev-mss_0)" +"(lambda(prop_4 sc_18 prev-scs_0 prev-smss_0 prev-mss_0)" "(begin" "(if(propagation? prop_4)" "(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" +"(let-values(((scope-ops72_0)(hash-set(propagation-scope-ops prop_4) sc_18 'add)))" +"(propagation15.1" "(propagation-prev-scs the-struct_23)" "(propagation-prev-smss the-struct_23)" -" scope-ops70_0" +" scope-ops72_0" "(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)))))" +"(propagation15.1 prev-scs_0 prev-smss_0(hasheq sc_18 '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)" +"(lambda(prop_5 sc_19 prev-scs_1 prev-smss_1 prev-mss_1)" "(begin" "(if(propagation? prop_5)" "(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" +"(let-values(((scope-ops73_0)(hash-set(propagation-scope-ops prop_5) sc_19 'remove)))" +"(propagation15.1" "(propagation-prev-scs the-struct_24)" "(propagation-prev-smss the-struct_24)" -" scope-ops71_0" +" scope-ops73_0" "(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)))))" +"(propagation15.1 prev-scs_1 prev-smss_1(hasheq sc_19 'remove) prev-mss_1 #f #f prop_5)))))" "(define-values" "(propagation-flip)" -"(lambda(prop_6 sc_19 prev-scs_2 prev-smss_2 prev-mss_2)" +"(lambda(prop_6 sc_20 prev-scs_2 prev-smss_2 prev-mss_2)" "(begin" "(if(propagation? prop_6)" "(let-values(((ops_0)(propagation-scope-ops prop_6)))" -"(let-values(((current-op_0)(hash-ref ops_0 sc_19 #f)))" +"(let-values(((current-op_0)(hash-ref ops_0 sc_20 #f)))" "(if(if(eq? current-op_0 'flip)" "(if(= 1(hash-count ops_0))" "(if(not(propagation-inspector prop_6))(not(propagation-add-mpi-shifts prop_6)) #f)" @@ -9400,26 +9612,26 @@ static const char *startup_source = "(let-values()" "(let-values(((the-struct_25) prop_6))" "(if(propagation? the-struct_25)" -"(let-values(((scope-ops72_0)" +"(let-values(((scope-ops74_0)" "(if(eq? current-op_0 'flip)" -"(hash-remove ops_0 sc_19)" +"(hash-remove ops_0 sc_20)" "(hash-set" " ops_0" -" sc_19" +" sc_20" "(let-values(((tmp_9) current-op_0))" "(if(equal? tmp_9 'add)" "(let-values() 'remove)" "(if(equal? tmp_9 'remove)(let-values() 'add)(let-values() 'flip))))))))" -"(propagation14.1" +"(propagation15.1" "(propagation-prev-scs the-struct_25)" "(propagation-prev-smss the-struct_25)" -" scope-ops72_0" +" scope-ops74_0" "(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)))))" +"(propagation15.1 prev-scs_2 prev-smss_2(hasheq sc_20 '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)" @@ -9427,24 +9639,24 @@ static const char *startup_source = "(if(propagation? prop_7)" "(let-values(((the-struct_26) prop_7))" "(if(propagation? the-struct_26)" -"(let-values(((add-mpi-shifts73_0)" +"(let-values(((add-mpi-shifts75_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))))" +"(lambda(mss_0)(begin 'add-mpi-shifts75(add_0(base-add_0 mss_0))))" "(let-values(((or-part_112) add_0))(if or-part_112 or-part_112 base-add_0)))))" -"((inspector74_0)" +"((inspector76_0)" "(let-values(((or-part_113)(propagation-inspector prop_7)))" "(if or-part_113 or-part_113 inspector_2))))" -"(propagation14.1" +"(propagation15.1" "(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" +" add-mpi-shifts75_0" +" inspector76_0" "(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)))))" +"(propagation15.1 prev-scs_3 prev-smss_3 '#hasheq() prev-mss_3 add_0 inspector_2 prop_7)))))" "(define-values" "(propagation-apply)" "(lambda(prop_8 scs_8 parent-s_0)" @@ -9458,43 +9670,43 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_51)))" -"((letrec-values(((for-loop_60)" -"(lambda(scs_9 i_65)" +"((letrec-values(((for-loop_61)" +"(lambda(scs_9 i_66)" "(begin" " 'for-loop" -"(if i_65" -"(let-values(((sc_20 op_3)" -"(unsafe-immutable-hash-iterate-key+value ht_51 i_65)))" +"(if i_66" +"(let-values(((sc_21 op_3)" +"(unsafe-immutable-hash-iterate-key+value ht_51 i_66)))" "(let-values(((scs_10)" "(let-values(((scs_11) scs_9))" -"(if(not(shifted-multi-scope? sc_20))" +"(if(not(shifted-multi-scope? sc_21))" "(let-values(((scs_12) scs_11))" "(let-values(((scs_13)" "(let-values()" "(let-values(((tmp_10) op_3))" "(if(equal? tmp_10 'add)" "(let-values()" -"(set-add scs_12 sc_20))" +"(set-add scs_12 sc_21))" "(if(equal?" " tmp_10" " 'remove)" "(let-values()" "(set-remove" " scs_12" -" sc_20))" +" sc_21))" "(let-values()" "(set-flip" " scs_12" -" sc_20))))))))" +" sc_21))))))))" "(values scs_13)))" " scs_11))))" "(if(not #f)" -"(for-loop_60" +"(for-loop_61" " scs_10" -"(unsafe-immutable-hash-iterate-next ht_51 i_65))" +"(unsafe-immutable-hash-iterate-next ht_51 i_66))" " scs_10)))" " scs_9)))))" -" for-loop_60)" +" for-loop_61)" " scs_8" "(unsafe-immutable-hash-iterate-first ht_51))))))" "(if(set=? new-scs_0(syntax-scopes parent-s_0))" @@ -9513,13 +9725,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_52)))" -"((letrec-values(((for-loop_61)" -"(lambda(smss_14 i_66)" +"((letrec-values(((for-loop_62)" +"(lambda(smss_14 i_15)" "(begin" " 'for-loop" -"(if i_66" +"(if i_15" "(let-values(((sms_7 op_4)" -"(unsafe-immutable-hash-iterate-key+value ht_52 i_66)))" +"(unsafe-immutable-hash-iterate-key+value ht_52 i_15)))" "(let-values(((smss_15)" "(let-values(((smss_16) smss_14))" "(if(shifted-multi-scope? sms_7)" @@ -9550,12 +9762,12 @@ static const char *startup_source = "(values smss_18)))" " smss_16))))" "(if(not #f)" -"(for-loop_61" +"(for-loop_62" " smss_15" -"(unsafe-immutable-hash-iterate-next ht_52 i_66))" +"(unsafe-immutable-hash-iterate-next ht_52 i_15))" " smss_15)))" " smss_14)))))" -" for-loop_61)" +" for-loop_62)" " smss_13" "(unsafe-immutable-hash-iterate-first ht_52))))))" "(let-values(((parent-smss_0)(syntax-shifted-multi-scopes parent-s_1)))" @@ -9575,22 +9787,22 @@ static const char *startup_source = "(begin(let-values(((or-part_114) i_67))(if or-part_114 or-part_114(propagation-inspector prop_11))))))" "(define-values" "(propagation-set-tamper)" -"(lambda(prop_12 t_33)" +"(lambda(prop_12 t_34)" "(begin" "(if(propagation? prop_12)" "(let-values(((the-struct_27) prop_12))" "(if(propagation? the-struct_27)" -"(let-values(((tamper75_0) t_33))" -"(propagation14.1" +"(let-values(((tamper77_0) t_34))" +"(propagation15.1" "(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))" +" tamper77_0))" " (raise-argument-error 'struct-copy \"propagation?\" the-struct_27)))" -" t_33))))" +" t_34))))" "(define-values" "(propagation-merge)" "(lambda(content_7 prop_13 base-prop_0 prev-scs_4 prev-smss_4 prev-mss_4)" @@ -9608,7 +9820,7 @@ static const char *startup_source = " #f)" "(let-values() prop_13)" "(let-values()" -"(propagation14.1" +"(propagation15.1" " prev-scs_4" " prev-smss_4" "(propagation-scope-ops prop_13)" @@ -9623,76 +9835,76 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_53)))" -"((letrec-values(((for-loop_62)" -"(lambda(ops_1 i_16)" +"((letrec-values(((for-loop_63)" +"(lambda(ops_1 i_68)" "(begin" " 'for-loop" -"(if i_16" -"(let-values(((sc_21 op_5)" +"(if i_68" +"(let-values(((sc_22 op_5)" "(unsafe-immutable-hash-iterate-key+value" " ht_53" -" i_16)))" +" i_68)))" "(let-values(((ops_2)" "(let-values(((ops_3) ops_1))" "(let-values(((ops_4)" "(let-values()" -"(let-values(((tmp_1) op_5))" -"(if(equal? tmp_1 'add)" +"(let-values(((tmp_12) op_5))" +"(if(equal? tmp_12 'add)" "(let-values()" "(hash-set" " ops_3" -" sc_21" +" sc_22" " 'add))" -"(if(equal? tmp_1 'remove)" +"(if(equal? tmp_12 'remove)" "(let-values()" "(hash-set" " ops_3" -" sc_21" +" sc_22" " 'remove))" "(let-values()" "(let-values(((current-op_1)" "(hash-ref" " ops_3" -" sc_21" +" sc_22" " #f)))" -"(let-values(((tmp_12)" +"(let-values(((tmp_13)" " current-op_1))" "(if(equal?" -" tmp_12" +" tmp_13" " 'add)" "(let-values()" "(hash-set" " ops_3" -" sc_21" +" sc_22" " 'remove))" "(if(equal?" -" tmp_12" +" tmp_13" " 'remove)" "(let-values()" "(hash-set" " ops_3" -" sc_21" +" sc_22" " 'add))" "(if(equal?" -" tmp_12" +" tmp_13" " 'flip)" "(let-values()" "(hash-remove" " ops_3" -" sc_21))" +" sc_22))" "(let-values()" "(hash-set" " ops_3" -" sc_21" +" sc_22" " 'flip))))))))))))))" "(values ops_4)))))" "(if(not #f)" -"(for-loop_62" +"(for-loop_63" " ops_2" -"(unsafe-immutable-hash-iterate-next ht_53 i_16))" +"(unsafe-immutable-hash-iterate-next ht_53 i_68))" " ops_2)))" " ops_1)))))" -" for-loop_62)" +" for-loop_63)" "(propagation-scope-ops base-prop_0)" "(unsafe-immutable-hash-iterate-first ht_53))))))" "(let-values(((add_2)(propagation-add-mpi-shifts prop_13)))" @@ -9712,23 +9924,23 @@ static const char *startup_source = " new-tamper_0" "(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)" +"(let-values(((scope-ops78_0) new-ops_0)" +"((add-mpi-shifts79_0)" "(if(if add_2 base-add_1 #f)" -"(lambda(mss_2)(begin 'add-mpi-shifts77(add_2(base-add_1 mss_2))))" +"(lambda(mss_2)(begin 'add-mpi-shifts79(add_2(base-add_1 mss_2))))" "(let-values(((or-part_116) add_2))(if or-part_116 or-part_116 base-add_1))))" -"((inspector78_0)" +"((inspector80_0)" "(let-values(((or-part_117)(propagation-inspector base-prop_0)))" "(if or-part_117 or-part_117(propagation-inspector prop_13))))" -"((tamper79_0) new-tamper_0))" -"(propagation14.1" +"((tamper81_0) new-tamper_0))" +"(propagation15.1" "(propagation-prev-scs the-struct_28)" "(propagation-prev-smss the-struct_28)" -" scope-ops76_0" +" scope-ops78_0" "(propagation-prev-mss the-struct_28)" -" add-mpi-shifts77_0" -" inspector78_0" -" tamper79_0))" +" add-mpi-shifts79_0" +" inspector80_0" +" tamper81_0))" " (raise-argument-error 'struct-copy \"propagation?\" the-struct_28))))))))))))))" "(define-values" "(shift-multi-scope)" @@ -9742,7 +9954,7 @@ static const char *startup_source = "(let-values() #f)" "(let-values()" "(intern-shifted-multi-scope" -"(shifted-to-label-phase5.1(phase- 0(shifted-multi-scope-phase sms_8)))" +"(shifted-to-label-phase6.1(phase- 0(shifted-multi-scope-phase sms_8)))" "(shifted-multi-scope-multi-scope sms_8)))))" "(if(shifted-to-label-phase?(shifted-multi-scope-phase sms_8))" "(let-values() sms_8)" @@ -9758,13 +9970,13 @@ static const char *startup_source = "(if(eqv? phase_13 0)" " s_133" "(let-values()" -"(let-values(((smss80_0) #f))" +"(let-values(((smss82_0) #f))" "(let-values(((prev-result_1) #f))" "(let-values(((shift-all_0)" "(lambda(smss_20)" "(begin" " 'shift-all" -"(if(eq? smss80_0 smss_20)" +"(if(eq? smss82_0 smss_20)" "(let-values() prev-result_1)" "(let-values()" "(let-values(((r_24)" @@ -9777,15 +9989,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_54)))" -"((letrec-values(((for-loop_63)" -"(lambda(table_66 i_68)" +"((letrec-values(((for-loop_64)" +"(lambda(table_66 i_69)" "(begin" " 'for-loop" -"(if i_68" +"(if i_69" "(let-values(((sms_9)" "(unsafe-immutable-hash-iterate-key" " ht_54" -" i_68)))" +" i_69)))" "(let-values(((table_67)" "(let-values(((new-sms_0)" "(shift-multi-scope" @@ -9793,7 +10005,7 @@ static const char *startup_source = " phase_13)))" "(begin" " #t" -"((letrec-values(((for-loop_64)" +"((letrec-values(((for-loop_65)" "(lambda(table_68)" "(begin" " 'for-loop" @@ -9821,35 +10033,35 @@ static const char *startup_source = " table_72)))" " table_70))))" " table_69))))))" -" for-loop_64)" +" for-loop_65)" " table_66)))))" "(if(not #f)" -"(for-loop_63" +"(for-loop_64" " table_67" "(unsafe-immutable-hash-iterate-next" " ht_54" -" i_68))" +" i_69))" " table_67)))" " table_66)))))" -" for-loop_63)" +" for-loop_64)" " '#hasheq()" "(unsafe-immutable-hash-iterate-first ht_54)))))))))" -"(begin(set! smss80_0 smss_20)(set! prev-result_1 r_24) r_24))))))))" +"(begin(set! smss82_0 smss_20)(set! prev-result_1 r_24) r_24))))))))" "(let-values(((s_134) s_133)" -"((f_32)(lambda(tail?_30 d_4)(begin 'f d_4)))" +"((f_34)(lambda(tail?_30 d_4)(begin 'f d_4)))" "((d->s_2)" "(lambda(s_135 d_5)" "(begin" " 'd->s" "(let-values(((the-struct_29) s_135))" "(if(syntax?$1 the-struct_29)" -"(let-values(((content81_0) d_5)" -"((shifted-multi-scopes82_0)" +"(let-values(((content83_0) d_5)" +"((shifted-multi-scopes84_0)" "(shift-all_0(syntax-shifted-multi-scopes s_135))))" "(syntax1.1" -" content81_0" +" content83_0" "(syntax-scopes the-struct_29)" -" shifted-multi-scopes82_0" +" shifted-multi-scopes84_0" "(syntax-scope-propagations+tamper the-struct_29)" "(syntax-mpi-shifts the-struct_29)" "(syntax-srcloc the-struct_29)" @@ -9858,21 +10070,21 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_29))))))" "((s-e_2) syntax-e/no-taint)" "((seen_13) #f))" -"((letrec-values(((loop_29)" +"((letrec-values(((loop_72)" "(lambda(s_136)" "(begin" " 'loop" "(let-values(((s_137) s_136)" -"((f_33) f_32)" +"((f_35) f_34)" "((gf_6)" "(lambda(tail?_31 v_84)" "(begin" " 'gf" "(if(syntax?$1 v_84)" -"(let-values()(d->s_2 v_84(loop_29(s-e_2 v_84))))" -"(let-values()(f_32 tail?_31 v_84))))))" +"(let-values()(d->s_2 v_84(loop_72(s-e_2 v_84))))" +"(let-values()(f_34 tail?_31 v_84))))))" "((seen_14) seen_13))" -"((letrec-values(((loop_70)" +"((letrec-values(((loop_73)" "(lambda(tail?_32 s_138 prev-depth_6)" "(begin" " 'loop" @@ -9885,20 +10097,20 @@ static const char *startup_source = "(lambda(tail?_33 s_139)(gf_6 tail?_33 s_139))" " seen_14))" "(if(null? s_138)" -"(let-values()(f_33 tail?_32 s_138))" +"(let-values()(f_35 tail?_32 s_138))" "(if(pair? s_138)" "(let-values()" -"(f_33" +"(f_35" " tail?_32" "(cons" -"(loop_70 #f(car s_138) depth_6)" -"(loop_70 #t(cdr s_138) depth_6))))" +"(loop_73 #f(car s_138) depth_6)" +"(loop_73 #t(cdr s_138) depth_6))))" "(if(symbol? s_138)" -"(let-values()(f_33 #f s_138))" +"(let-values()(f_35 #f s_138))" "(if(boolean? s_138)" -"(let-values()(f_33 #f s_138))" +"(let-values()(f_35 #f s_138))" "(if(number? s_138)" -"(let-values()(f_33 #f s_138))" +"(let-values()(f_35 #f s_138))" "(if(let-values(((or-part_118)" "(vector? s_138)))" "(if or-part_118" @@ -9922,11 +10134,11 @@ static const char *startup_source = " seen_14))" "(let-values()" "(gf_6 #f s_138))))))))))))))" -" loop_70)" +" loop_73)" " #f" " s_137" " 0))))))" -" loop_29)" +" loop_72)" " s_134))))))))))" "(define-values" "(syntax-swap-scopes)" @@ -9941,13 +10153,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_55)))" -"((letrec-values(((for-loop_65)" -"(lambda(table_73 i_69)" +"((letrec-values(((for-loop_66)" +"(lambda(table_73 i_70)" "(begin" " 'for-loop" -"(if i_69" -"(let-values(((sc_22)" -"(unsafe-immutable-hash-iterate-key ht_55 i_69)))" +"(if i_70" +"(let-values(((sc_23)" +"(unsafe-immutable-hash-iterate-key ht_55 i_70)))" "(let-values(((table_74)" "(let-values(((table_75) table_73))" "(let-values(((table_76)" @@ -9957,7 +10169,7 @@ static const char *startup_source = "(values" "(let-values()" "(generalize-scope" -" sc_22))" +" sc_23))" " #t))))" "(hash-set" " table_75" @@ -9965,12 +10177,12 @@ static const char *startup_source = " val_19)))))" "(values table_76)))))" "(if(not #f)" -"(for-loop_65" +"(for-loop_66" " table_74" -"(unsafe-immutable-hash-iterate-next ht_55 i_69))" +"(unsafe-immutable-hash-iterate-next ht_55 i_70))" " table_74)))" " table_73)))))" -" for-loop_65)" +" for-loop_66)" " '#hasheq()" "(unsafe-immutable-hash-iterate-first ht_55))))" " shifted-multi-scope?" @@ -9983,13 +10195,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_56)))" -"((letrec-values(((for-loop_66)" -"(lambda(table_77 i_70)" +"((letrec-values(((for-loop_67)" +"(lambda(table_77 i_71)" "(begin" " 'for-loop" -"(if i_70" -"(let-values(((sc_23)" -"(unsafe-immutable-hash-iterate-key ht_56 i_70)))" +"(if i_71" +"(let-values(((sc_24)" +"(unsafe-immutable-hash-iterate-key ht_56 i_71)))" "(let-values(((table_78)" "(let-values(((table_79) table_77))" "(let-values(((table_80)" @@ -9999,7 +10211,7 @@ static const char *startup_source = "(values" "(let-values()" "(generalize-scope" -" sc_23))" +" sc_24))" " #t))))" "(hash-set" " table_79" @@ -10007,24 +10219,24 @@ static const char *startup_source = " val_20)))))" "(values table_80)))))" "(if(not #f)" -"(for-loop_66" +"(for-loop_67" " table_78" -"(unsafe-immutable-hash-iterate-next ht_56 i_70))" +"(unsafe-immutable-hash-iterate-next ht_56 i_71))" " table_78)))" " table_77)))))" -" for-loop_66)" +" for-loop_67)" " '#hasheq()" "(unsafe-immutable-hash-iterate-first ht_56))))" " shifted-multi-scope?" "(seteq)" "(seteq))))" -"(let-values(((scs83_0) #f))" +"(let-values(((scs85_0) #f))" "(let-values(((prev-result_2) #f))" "(let-values(((swap-scs_0)" "(lambda(scs_14)" "(begin" " 'swap-scs" -"(if(eq? scs83_0 scs_14)" +"(if(eq? scs85_0 scs_14)" "(let-values() prev-result_2)" "(let-values()" "(let-values(((r_25)" @@ -10032,14 +10244,14 @@ static const char *startup_source = "(if(subset? src-scs_0 scs_14)" "(set-union(set-subtract scs_14 src-scs_0) dest-scs_0)" " scs_14))))" -"(begin(set! scs83_0 scs_14)(set! prev-result_2 r_25) r_25))))))))" -"(let-values(((smss84_0) #f))" +"(begin(set! scs85_0 scs_14)(set! prev-result_2 r_25) r_25))))))))" +"(let-values(((smss86_0) #f))" "(let-values(((prev-result_3) #f))" "(let-values(((swap-smss_0)" "(lambda(smss_22)" "(begin" " 'swap-smss" -"(if(eq? smss84_0 smss_22)" +"(if(eq? smss86_0 smss_22)" "(let-values() prev-result_3)" "(let-values()" "(let-values(((r_26)" @@ -10050,23 +10262,23 @@ static const char *startup_source = "(if(subset? src-smss_0 smss_23)" "(set-union(set-subtract smss_23 src-smss_0) dest-smss_0)" " smss_23))))))" -"(begin(set! smss84_0 smss_22)(set! prev-result_3 r_26) r_26))))))))" +"(begin(set! smss86_0 smss_22)(set! prev-result_3 r_26) r_26))))))))" "(let-values(((s_142) s_141)" -"((f_34)(lambda(tail?_35 d_6)(begin 'f d_6)))" +"((f_36)(lambda(tail?_35 d_6)(begin 'f d_6)))" "((d->s_3)" "(lambda(s_143 d_7)" "(begin" " 'd->s" "(let-values(((the-struct_30) s_143))" "(if(syntax?$1 the-struct_30)" -"(let-values(((content85_0) d_7)" -"((scopes86_0)(swap-scs_0(syntax-scopes s_143)))" -"((shifted-multi-scopes87_0)" +"(let-values(((content87_0) d_7)" +"((scopes88_0)(swap-scs_0(syntax-scopes s_143)))" +"((shifted-multi-scopes89_0)" "(swap-smss_0(syntax-shifted-multi-scopes s_143))))" "(syntax1.1" -" content85_0" -" scopes86_0" -" shifted-multi-scopes87_0" +" content87_0" +" scopes88_0" +" shifted-multi-scopes89_0" "(syntax-scope-propagations+tamper the-struct_30)" "(syntax-mpi-shifts the-struct_30)" "(syntax-srcloc the-struct_30)" @@ -10075,21 +10287,21 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_30))))))" "((s-e_3) syntax-e/no-taint)" "((seen_15) #f))" -"((letrec-values(((loop_71)" +"((letrec-values(((loop_74)" "(lambda(s_144)" "(begin" " 'loop" "(let-values(((s_145) s_144)" -"((f_35) f_34)" +"((f_37) f_36)" "((gf_7)" "(lambda(tail?_36 v_85)" "(begin" " 'gf" "(if(syntax?$1 v_85)" -"(let-values()(d->s_3 v_85(loop_71(s-e_3 v_85))))" -"(let-values()(f_34 tail?_36 v_85))))))" +"(let-values()(d->s_3 v_85(loop_74(s-e_3 v_85))))" +"(let-values()(f_36 tail?_36 v_85))))))" "((seen_16) seen_15))" -"((letrec-values(((loop_72)" +"((letrec-values(((loop_75)" "(lambda(tail?_37 s_146 prev-depth_7)" "(begin" " 'loop" @@ -10103,20 +10315,20 @@ static const char *startup_source = "(gf_7 tail?_38 s_147))" " seen_16))" "(if(null? s_146)" -"(let-values()(f_35 tail?_37 s_146))" +"(let-values()(f_37 tail?_37 s_146))" "(if(pair? s_146)" "(let-values()" -"(f_35" +"(f_37" " tail?_37" "(cons" -"(loop_72 #f(car s_146) depth_7)" -"(loop_72 #t(cdr s_146) depth_7))))" +"(loop_75 #f(car s_146) depth_7)" +"(loop_75 #t(cdr s_146) depth_7))))" "(if(symbol? s_146)" -"(let-values()(f_35 #f s_146))" +"(let-values()(f_37 #f s_146))" "(if(boolean? s_146)" -"(let-values()(f_35 #f s_146))" +"(let-values()(f_37 #f s_146))" "(if(number? s_146)" -"(let-values()(f_35 #f s_146))" +"(let-values()(f_37 #f s_146))" "(if(let-values(((or-part_121)" "(vector? s_146)))" "(if or-part_121" @@ -10140,11 +10352,11 @@ static const char *startup_source = " seen_16))" "(let-values()" "(gf_7 #f s_146))))))))))))))" -" loop_72)" +" loop_75)" " #f" " s_145" " 0))))))" -" loop_71)" +" loop_74)" " s_142)))))))))))))" "(define-values" "(syntax-scope-set)" @@ -10159,12 +10371,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_57)))" -"((letrec-values(((for-loop_67)" -"(lambda(scopes_9 i_71)" +"((letrec-values(((for-loop_68)" +"(lambda(scopes_9 i_72)" "(begin" " 'for-loop" -"(if i_71" -"(let-values(((sms_10)(unsafe-immutable-hash-iterate-key ht_57 i_71)))" +"(if i_72" +"(let-values(((sms_10)(unsafe-immutable-hash-iterate-key ht_57 i_72)))" "(let-values(((scopes_10)" "(let-values(((scopes_11) scopes_9))" "(if(let-values(((or-part_124)(label-phase? phase_15)))" @@ -10189,10 +10401,10 @@ static const char *startup_source = "(values scopes_13)))" " scopes_11))))" "(if(not #f)" -"(for-loop_67 scopes_10(unsafe-immutable-hash-iterate-next ht_57 i_71))" +"(for-loop_68 scopes_10(unsafe-immutable-hash-iterate-next ht_57 i_72))" " scopes_10)))" " scopes_9)))))" -" for-loop_67)" +" for-loop_68)" "(syntax-scopes s_150)" "(unsafe-immutable-hash-iterate-first ht_57)))))))" "(define-values" @@ -10206,60 +10418,60 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_58)))" -"((letrec-values(((for-loop_68)" -"(lambda(max-sc_0 i_72)" +"((letrec-values(((for-loop_69)" +"(lambda(max-sc_0 i_73)" "(begin" " 'for-loop" -"(if i_72" -"(let-values(((sc_24)(unsafe-immutable-hash-iterate-key ht_58 i_72)))" +"(if i_73" +"(let-values(((sc_25)(unsafe-immutable-hash-iterate-key ht_58 i_73)))" "(let-values(((max-sc_1)" "(let-values(((max-sc_2) max-sc_0))" "(let-values(((max-sc_3)" "(let-values()" -"(if(scope>? sc_24 max-sc_2) sc_24 max-sc_2))))" +"(if(scope>? sc_25 max-sc_2) sc_25 max-sc_2))))" "(values max-sc_3)))))" "(if(not #f)" -"(for-loop_68 max-sc_1(unsafe-immutable-hash-iterate-next ht_58 i_72))" +"(for-loop_69 max-sc_1(unsafe-immutable-hash-iterate-next ht_58 i_73))" " max-sc_1)))" " max-sc_0)))))" -" for-loop_68)" +" for-loop_69)" "(set-first scopes_14)" "(unsafe-immutable-hash-iterate-first ht_58))))))))" "(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)" +"(add-binding-in-scopes!21.1)" +"(lambda(just-for-nominal?16_0 just-for-nominal?17_0 scopes18_0 sym19_0 binding20_0)" "(begin" -" 'add-binding-in-scopes!20" -"(let-values(((scopes_15) scopes17_0))" -"(let-values(((sym_15) sym18_0))" -"(let-values(((binding_3) binding19_0))" -"(let-values(((just-for-nominal?_1)(if just-for-nominal?16_0 just-for-nominal?15_0 #f)))" +" 'add-binding-in-scopes!21" +"(let-values(((scopes_15) scopes18_0))" +"(let-values(((sym_16) sym19_0))" +"(let-values(((binding_3) binding20_0))" +"(let-values(((just-for-nominal?_1)(if just-for-nominal?17_0 just-for-nominal?16_0 #f)))" "(let-values()" "(let-values(((max-sc_4)(find-max-scope scopes_15)))" "(let-values(((bt_7)" "(binding-table-add" "(scope-binding-table max-sc_4)" " scopes_15" -" sym_15" +" sym_16" " binding_3" " just-for-nominal?_1)))" -"(begin(set-scope-binding-table! max-sc_4 bt_7)(clear-resolve-cache! sym_15))))))))))))" +"(begin(set-scope-binding-table! max-sc_4 bt_7)(clear-resolve-cache! sym_16))))))))))))" "(define-values" -"(add-bulk-binding-in-scopes!27.1)" -"(lambda(shadow-except23_0 shadow-except24_0 scopes25_1 bulk-binding26_0)" +"(add-bulk-binding-in-scopes!28.1)" +"(lambda(shadow-except24_0 shadow-except25_0 scopes26_0 bulk-binding27_0)" "(begin" -" 'add-bulk-binding-in-scopes!27" -"(let-values(((scopes_16) scopes25_1))" -"(let-values(((bulk-binding_0) bulk-binding26_0))" -"(let-values(((shadow-except_1)(if shadow-except24_0 shadow-except23_0 #f)))" +" 'add-bulk-binding-in-scopes!28" +"(let-values(((scopes_16) scopes26_0))" +"(let-values(((bulk-binding_0) bulk-binding27_0))" +"(let-values(((shadow-except_1)(if shadow-except25_0 shadow-except24_0 #f)))" "(let-values()" "(let-values(((max-sc_5)(find-max-scope scopes_16)))" "(let-values(((bt_8)" -"(let-values(((temp88_0)(scope-binding-table max-sc_5))" -"((scopes89_0) scopes_16)" -"((bulk-binding90_0) bulk-binding_0)" -"((shadow-except91_0) shadow-except_1))" -"(binding-table-add-bulk9.1 shadow-except91_0 #t temp88_0 scopes89_0 bulk-binding90_0))))" +"(let-values(((temp90_0)(scope-binding-table max-sc_5))" +"((scopes91_0) scopes_16)" +"((bulk-binding92_0) bulk-binding_0)" +"((shadow-except93_0) shadow-except_1))" +"(binding-table-add-bulk9.1 shadow-except93_0 #t temp90_0 scopes91_0 bulk-binding92_0))))" "(begin(set-scope-binding-table! max-sc_5 bt_8)(clear-resolve-cache!)))))))))))" "(define-values" "(syntax-any-macro-scopes?)" @@ -10270,47 +10482,47 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_59)))" -"((letrec-values(((for-loop_69)" -"(lambda(result_45 i_73)" +"((letrec-values(((for-loop_70)" +"(lambda(result_45 i_74)" "(begin" " 'for-loop" -"(if i_73" -"(let-values(((sc_25)(unsafe-immutable-hash-iterate-key ht_59 i_73)))" +"(if i_74" +"(let-values(((sc_26)(unsafe-immutable-hash-iterate-key ht_59 i_74)))" "(let-values(((result_46)" "(let-values()" "(let-values(((result_47)" "(let-values()" -"(let-values()(eq?(scope-kind sc_25) 'macro)))))" +"(let-values()(eq?(scope-kind sc_26) 'macro)))))" "(values result_47)))))" -"(if(if(not((lambda x_35 result_46) sc_25))(not #f) #f)" -"(for-loop_69 result_46(unsafe-immutable-hash-iterate-next ht_59 i_73))" +"(if(if(not((lambda x_35 result_46) sc_26))(not #f) #f)" +"(for-loop_70 result_46(unsafe-immutable-hash-iterate-next ht_59 i_74))" " result_46)))" " result_45)))))" -" for-loop_69)" +" for-loop_70)" " #f" "(unsafe-immutable-hash-iterate-first ht_59)))))))" "(define-values" -"(resolve40.1)" -"(lambda(ambiguous-value30_0" -" ambiguous-value34_0" -" exactly?31_0" -" exactly?35_0" -" extra-shifts33_0" -" extra-shifts37_0" -" get-scopes?32_0" -" get-scopes?36_0" -" s38_0" -" phase39_0)" +"(resolve41.1)" +"(lambda(ambiguous-value31_0" +" ambiguous-value35_0" +" exactly?32_0" +" exactly?36_0" +" extra-shifts34_0" +" extra-shifts38_0" +" get-scopes?33_0" +" get-scopes?37_0" +" s39_0" +" phase40_0)" "(begin" -" 'resolve40" -"(let-values(((s_152) s38_0))" -"(let-values(((phase_16) 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)))" +" 'resolve41" +"(let-values(((s_152) s39_0))" +"(let-values(((phase_16) phase40_0))" +"(let-values(((ambiguous-value_0)(if ambiguous-value35_0 ambiguous-value31_0 #f)))" +"(let-values(((exactly?_0)(if exactly?36_0 exactly?32_0 #f)))" +"(let-values(((get-scopes?_0)(if get-scopes?37_0 get-scopes?33_0 #f)))" +"(let-values(((extra-shifts_2)(if extra-shifts38_0 extra-shifts34_0 null)))" "(let-values()" -"(let-values(((sym_16)(syntax-content s_152)))" +"(let-values(((sym_17)(syntax-content s_152)))" "((letrec-values(((fallback-loop_0)" "(lambda(smss_25)" "(begin" @@ -10319,7 +10531,7 @@ static const char *startup_source = "(if(not exactly?_0)" "(if(not get-scopes?_0)" "(resolve-cache-get" -" sym_16" +" sym_17" " phase_16" "(syntax-scopes s_152)" "(fallback-first smss_25))" @@ -10348,37 +10560,37 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-immutable-hash-keys ht_60)))" -"((letrec-values(((for-loop_70)" +"((letrec-values(((for-loop_71)" "(lambda(best-scopes_1" " best-binding_1" -" i_74)" +" i_75)" "(begin" " 'for-loop" -"(if i_74" -"(let-values(((sc_26)" +"(if i_75" +"(let-values(((sc_27)" "(unsafe-immutable-hash-iterate-key" " ht_60" -" i_74)))" +" i_75)))" "(let-values(((best-scopes_2" " best-binding_2)" "(let-values(((ht_61" " bulk-bindings_2)" "(let-values(((table_81)" "(scope-binding-table" -" sc_26)))" +" sc_27)))" "(if(hash?" " table_81)" "(values" "(hash-ref" " table_81" -" sym_16" +" sym_17" " '#hash())" " null)" "(values" "(hash-ref" "(table-with-bulk-bindings-syms" " table_81)" -" sym_16" +" sym_17" " '#hash())" "(table-with-bulk-bindings-bulk-bindings" " table_81)))))" @@ -10388,43 +10600,43 @@ static const char *startup_source = " extra-shifts_2))" "(begin" " #t" -"((letrec-values(((for-loop_71)" +"((letrec-values(((for-loop_72)" "(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_61" -" i_75))))" +" 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_16)" +" sym_17)" "(hash-ref" "(bulk-binding-symbols" " bulk_3" " s_153" " extra-shifts_3)" -" sym_16" +" sym_17" " #f)" " #f)))" "(if b-info_0" @@ -10432,12 +10644,12 @@ static const char *startup_source = " bulk_3)" " bulk_3" " b-info_0" -" sym_16)" +" sym_17)" " #f))))" "(let-values()" "(hash-iterate-value" " ht_61" -" i_75)))))" +" i_76)))))" "(let-values(((best-scopes_4" " best-binding_4)" "(let-values(((best-scopes_5)" @@ -10470,7 +10682,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_48)))" -"((letrec-values(((for-loop_72)" +"((letrec-values(((for-loop_73)" "(lambda(result_48" " lst_49)" "(begin" @@ -10501,12 +10713,12 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_72" +"(for-loop_73" " result_49" " rest_21)" " result_49)))" " result_48)))))" -" for-loop_72)" +" for-loop_73)" " #t" " lst_48)))" "(let-values()" @@ -10553,19 +10765,19 @@ static const char *startup_source = " best-binding_5)))))" "(if(not" " #f)" -"(for-loop_71" +"(for-loop_72" " 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_125)" "(hash-iterate-next" " ht_61" -" i_75)))" +" i_76)))" "(if or-part_125" " or-part_125" " bulk-bindings_2)))))" @@ -10575,7 +10787,7 @@ static const char *startup_source = "(values" " best-scopes_3" " best-binding_3))))))" -" for-loop_71)" +" for-loop_72)" " best-scopes_1" " best-binding_1" "(let-values(((or-part_126)" @@ -10585,19 +10797,19 @@ static const char *startup_source = " or-part_126" " bulk-bindings_2)))))))" "(if(not #f)" -"(for-loop_70" +"(for-loop_71" " best-scopes_2" " best-binding_2" "(unsafe-immutable-hash-iterate-next" " ht_60" -" i_74))" +" i_75))" "(values" " best-scopes_2" " best-binding_2))))" "(values" " best-scopes_1" " best-binding_1))))))" -" for-loop_70)" +" for-loop_71)" " #f" " #f" "(unsafe-immutable-hash-iterate-first ht_60))))))" @@ -10610,7 +10822,7 @@ static const char *startup_source = "(let-values()" "(begin" "(resolve-cache-set!" -" sym_16" +" sym_17" " phase_16" "(syntax-scopes s_152)" "(fallback-first smss_25)" @@ -10626,7 +10838,7 @@ static const char *startup_source = "(let-values()" "(begin" "(resolve-cache-set!" -" sym_16" +" sym_17" " phase_16" "(syntax-scopes s_152)" "(fallback-first smss_25)" @@ -10650,7 +10862,7 @@ static const char *startup_source = "(begin(let-values(((or-part_0)(full-local-binding? b_42)))(if or-part_0 or-part_0(symbol? b_42))))))" "(define-values" "(struct:full-local-binding full-local-binding1.1 full-local-binding? full-local-binding-key)" -"(let-values(((struct:_29 make-_29 ?_29 -ref_29 -set!_29)" +"(let-values(((struct:_30 make-_30 ?_30 -ref_30 -set!_30)" "(let-values()" "(let-values()" "(make-struct-type" @@ -10663,17 +10875,17 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:serialize" -"(lambda(b_43 ser-push!_12 state_22)" +"(lambda(b_43 ser-push!_13 state_23)" "(begin" -"(ser-push!_12 'tag '#:local-binding)" -"(ser-push!_12(full-local-binding-key b_43))" -"(ser-push!_12(full-binding-free=id b_43))))))" +"(ser-push!_13 'tag '#:local-binding)" +"(ser-push!_13(full-local-binding-key b_43))" +"(ser-push!_13(full-binding-free=id b_43))))))" "(current-inspector)" " #f" " '(0)" " #f" " 'full-local-binding)))))" -"(values struct:_29 make-_29 ?_29(make-struct-field-accessor -ref_29 0 'key))))" +"(values struct:_30 make-_30 ?_30(make-struct-field-accessor -ref_30 0 'key))))" "(define-values" "(deserialize-full-local-binding)" "(lambda(key_33 free=id_3)(begin(full-local-binding1.1 #f free=id_3 key_33))))" @@ -10753,15 +10965,15 @@ static const char *startup_source = "(values))))" "(let-values(((ref_0)(list-ref info_1 3)))" "(if(identifier? v_26)" -"(let-values()(lambda(t_34) v_26))" +"(let-values()(lambda(t_35) v_26))" "(if(integer? v_26)" "(let-values()" -"(lambda(t_35)" -"(let-values(((val_21)(ref_0 t_35 v_26)))" +"(lambda(t_36)" +"(let-values(((val_21)(ref_0 t_36 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)))))" +"(lambda(t_14)" +"(let-values(((id_0)(call-with-continuation-prompt(lambda()(v_26 t_14)))))" "(begin" "(if(identifier? id_0)" "(void)" @@ -10774,7 +10986,7 @@ static const char *startup_source = " id_0))))))))))))" "(define-values" "(struct:id-rename-transformer id-rename-transformer1.1 id-rename-transformer? id-rename-transformer-id)" -"(let-values(((struct:_30 make-_30 ?_30 -ref_30 -set!_30)" +"(let-values(((struct:_31 make-_31 ?_31 -ref_31 -set!_31)" "(let-values()" "(let-values()" "(make-struct-type" @@ -10789,7 +11001,7 @@ static const char *startup_source = " '(0)" " #f" " 'id-rename-transformer)))))" -"(values struct:_30 make-_30 ?_30(make-struct-field-accessor -ref_30 0 'id))))" +"(values struct:_31 make-_31 ?_31(make-struct-field-accessor -ref_31 0 'id))))" "(define-values" "(1/make-rename-transformer)" "(lambda(id_1)" @@ -10802,7 +11014,7 @@ static const char *startup_source = "(id-rename-transformer1.1 id_1)))))" "(define-values" "(1/rename-transformer-target)" -"(lambda(t_36)(begin 'rename-transformer-target((rename-transformer-value t_36) t_36))))" +"(lambda(t_37)(begin 'rename-transformer-target((rename-transformer-value t_37) t_37))))" "(define-values" "(free-identifier=?$1)" "(lambda(a_33 b_46 a-phase_0 b-phase_0)" @@ -10913,7 +11125,7 @@ static const char *startup_source = "(let-values(((temp58_0)(syntax-scope-set id_6 phase_22))" "((temp59_0)(syntax-e$1 id_6))" "((temp60_0)(binding-set-free=id b_49 free=id_6)))" -"(add-binding-in-scopes!20.1 #f #f temp58_0 temp59_0 temp60_0)))))))" +"(add-binding-in-scopes!21.1 #f #f temp58_0 temp59_0 temp60_0)))))))" "(void)))))" "(define-values" "(binding-set-free=id)" @@ -10993,7 +11205,7 @@ static const char *startup_source = "(if(datum-has-elements?(syntax-content s_156))" "(propagation-mpi-shift" "(syntax-scope-propagations+tamper s_156)" -"(lambda(s_90)(cons shift_0 s_90))" +"(lambda(s_157)(cons shift_0 s_157))" " inspector_3" "(syntax-scopes s_156)" "(syntax-shifted-multi-scopes s_156)" @@ -11025,7 +11237,7 @@ static const char *startup_source = " phase29_0)" "(begin" " 'resolve+shift30" -"(let-values(((s_93) s28_0))" +"(let-values(((s_158) s28_0))" "(let-values(((phase_23) 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)))" @@ -11035,18 +11247,18 @@ static const char *startup_source = "(let-values()" "(let-values(((can-cache?_0)" "(if(not exactly?_1)(if(not immediate?_0)(null? extra-shifts_4) #f) #f)))" -"(let-values(((c1_23)(if can-cache?_0(resolve+shift-cache-get s_93 phase_23) #f)))" +"(let-values(((c1_23)(if can-cache?_0(resolve+shift-cache-get s_158 phase_23) #f)))" "(if c1_23" -"((lambda(b_51)(if(eq? b_51 '#:none)(if unbound-sym?_0(syntax-content s_93) #f) b_51))" +"((lambda(b_51)(if(eq? b_51 '#:none)(if unbound-sym?_0(syntax-content s_158) #f) b_51))" " c1_23)" "(let-values()" "(let-values(((immediate-b_0)" -"(let-values(((s73_0) s_93)" +"(let-values(((s73_0) s_158)" "((phase74_0) phase_23)" "((ambiguous-value75_0) ambiguous-value_1)" "((exactly?76_0) exactly?_1)" "((extra-shifts77_0) extra-shifts_4))" -"(resolve40.1" +"(resolve41.1" " ambiguous-value75_0" " #t" " exactly?76_0" @@ -11064,7 +11276,7 @@ static const char *startup_source = "(let-values(((temp78_0)(binding-free=id immediate-b_0))" "((phase79_0) phase_23)" "((temp80_0)" -"(append extra-shifts_4(syntax-mpi-shifts s_93)))" +"(append extra-shifts_4(syntax-mpi-shifts s_158)))" "((ambiguous-value81_0) ambiguous-value_1)" "((exactly?82_0) exactly?_1)" "((unbound-sym?83_0) unbound-sym?_0))" @@ -11084,7 +11296,7 @@ static const char *startup_source = " immediate-b_0)))" "(if(module-binding? b_52)" "(let-values()" -"(let-values(((mpi-shifts_2)(syntax-mpi-shifts s_93)))" +"(let-values(((mpi-shifts_2)(syntax-mpi-shifts s_158)))" "(if(null? mpi-shifts_2)" "(let-values() b_52)" "(let-values()" @@ -11115,7 +11327,7 @@ static const char *startup_source = "(let-values(((temp89_0)" "(binding-free=id" " b_52))" -"((s90_0) s_93))" +"((s90_0) s_158))" "(syntax-transfer-shifts39.1" " #f" " #f" @@ -11124,7 +11336,7 @@ static const char *startup_source = " #f" " #f))" " #f))" -"((temp88_1)" +"((temp88_0)" "(reverse$1" "(let-values(((lst_50)" "(module-binding-extra-nominal-bindings" @@ -11135,7 +11347,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_50)))" -"((letrec-values(((for-loop_73)" +"((letrec-values(((for-loop_74)" "(lambda(fold-var_35" " lst_51)" "(begin" @@ -11163,18 +11375,18 @@ static const char *startup_source = " fold-var_38)))))" "(if(not" " #f)" -"(for-loop_73" +"(for-loop_74" " fold-var_36" " rest_22)" " fold-var_36)))" " fold-var_35)))))" -" for-loop_73)" +" for-loop_74)" " null" " lst_50))))))" "(module-binding-update48.1" " #f" " #f" -" temp88_1" +" temp88_0" " #t" " #f" " #f" @@ -11198,7 +11410,7 @@ static const char *startup_source = "(begin" "(if can-cache?_0" "(let-values()" -"(resolve+shift-cache-set! s_93 phase_23 result-b_0))" +"(resolve+shift-cache-set! s_158 phase_23 result-b_0))" "(void))" " result-b_0))))))))))" "(let-values()" @@ -11206,14 +11418,14 @@ static const char *startup_source = "(if can-cache?_0" "(let-values()" "(resolve+shift-cache-set!" -" s_93" +" s_158" " phase_23" "(let-values(((or-part_128) b_52))(if or-part_128 or-part_128 '#:none))))" "(void))" "(let-values(((or-part_129) b_52))" "(if or-part_129" " or-part_129" -"(if unbound-sym?_0(syntax-content s_93) #f)))))))))))))))))))))))" +"(if unbound-sym?_0(syntax-content s_158) #f)))))))))))))))))))))))" "(define-values" "(apply-syntax-shifts)" "(lambda(mpi_12 shifts_0)" @@ -11250,7 +11462,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_52)))" -"((letrec-values(((for-loop_74)" +"((letrec-values(((for-loop_75)" "(lambda(fold-var_39 lst_53)" "(begin" " 'for-loop" @@ -11269,9 +11481,9 @@ static const char *startup_source = " to-mpi_2))" " fold-var_41))))" "(values fold-var_42)))))" -"(if(not #f)(for-loop_74 fold-var_40 rest_23) fold-var_40)))" +"(if(not #f)(for-loop_75 fold-var_40 rest_23) fold-var_40)))" " fold-var_39)))))" -" for-loop_74)" +" for-loop_75)" " null" " lst_52))))))" "(module-binding-update48.1" @@ -11321,25 +11533,25 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_12)))" -"((letrec-values(((for-loop_75)" -"(lambda(s_157 lst_55 pos_9)" +"((letrec-values(((for-loop_76)" +"(lambda(s_159 lst_55 pos_9)" "(begin" " 'for-loop" "(if(if(pair? lst_55) #t #f)" "(let-values(((shift_3)(unsafe-car lst_55))" "((rest_24)(unsafe-cdr lst_55))" -"((i_76) pos_9))" -"(let-values(((s_158)" -"(let-values(((s_101) s_157))" -"(let-values(((s_102)" +"((i_77) pos_9))" +"(let-values(((s_160)" +"(let-values(((s_161) s_159))" +"(let-values(((s_162)" "(let-values()" -"(let-values(((s95_0) s_101)" +"(let-values(((s95_0) s_161)" "((temp96_0)" "(shift-from shift_3))" "((temp97_0)" "(shift-to shift_3))" "((temp98_0)" -"(if(zero? i_76)" +"(if(zero? i_77)" " inspector_0" " #f))" "((non-source?99_0)" @@ -11352,31 +11564,31 @@ static const char *startup_source = " temp97_0" " temp98_0" " #t)))))" -"(values s_102)))))" -"(if(not #f)(for-loop_75 s_158 rest_24(+ pos_9 1)) s_158)))" -" s_157)))))" -" for-loop_75)" +"(values s_162)))))" +"(if(not #f)(for-loop_76 s_160 rest_24(+ pos_9 1)) s_160)))" +" s_159)))))" +" for-loop_76)" " to-s_0" " lst_54" " start_12))))))))))))))" "(define-values" "(syntax-set-inspector)" -"(lambda(s_159 insp_3)" +"(lambda(s_103 insp_3)" "(begin" -"(let-values(((the-struct_31) s_159))" +"(let-values(((the-struct_31) s_103))" "(if(syntax?$1 the-struct_31)" "(let-values(((inspector100_0)" -"(let-values(((or-part_130)(syntax-inspector s_159)))(if or-part_130 or-part_130 insp_3)))" +"(let-values(((or-part_130)(syntax-inspector s_103)))(if or-part_130 or-part_130 insp_3)))" "((scope-propagations+tamper101_0)" -"(if(datum-has-elements?(syntax-content s_159))" +"(if(datum-has-elements?(syntax-content s_103))" "(propagation-mpi-shift" -"(syntax-scope-propagations+tamper s_159)" +"(syntax-scope-propagations+tamper s_103)" " #f" " insp_3" -"(syntax-scopes s_159)" -"(syntax-shifted-multi-scopes s_159)" -"(syntax-mpi-shifts s_159))" -"(syntax-scope-propagations+tamper s_159))))" +"(syntax-scopes s_103)" +"(syntax-shifted-multi-scopes s_103)" +"(syntax-mpi-shifts s_103))" +"(syntax-scope-propagations+tamper s_103))))" "(syntax1.1" "(syntax-content the-struct_31)" "(syntax-scopes the-struct_31)" @@ -11393,25 +11605,25 @@ static const char *startup_source = "(lambda(s44_0 source?42_0 source?43_0)" "(begin" " 'syntax-source-module45" -"(let-values(((s_160) s44_0))" +"(let-values(((s_163) s44_0))" "(let-values(((source?_0)(if source?43_0 source?42_0 #f)))" "(let-values()" "(begin" -"(if(syntax?$1 s_160)" +"(if(syntax?$1 s_163)" "(void)" -" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_160)))" -"(let-values(((lst_45)(reverse$1(syntax-mpi-shifts s_160))))" +" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_163)))" +"(let-values(((lst_56)(reverse$1(syntax-mpi-shifts s_163))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_45)))" -"((letrec-values(((for-loop_76)" -"(lambda(result_51 lst_56)" +"(let-values()(check-list lst_56)))" +"((letrec-values(((for-loop_77)" +"(lambda(result_51 lst_42)" "(begin" " 'for-loop" -"(if(pair? lst_56)" -"(let-values(((shift_4)(unsafe-car lst_56))" -"((rest_25)(unsafe-cdr lst_56)))" +"(if(pair? lst_42)" +"(let-values(((shift_4)(unsafe-car lst_42))" +"((rest_25)(unsafe-cdr lst_42)))" "(let-values(((result_52)" "(let-values(((result_53) result_51))" "(if(non-source-shift? shift_4)" @@ -11434,7 +11646,7 @@ static const char *startup_source = "(apply-syntax-shifts" " from-mpi_3" "(syntax-mpi-shifts" -" s_160))))" +" s_163))))" "(if source?_0" "(1/resolved-module-path-name" "(1/module-path-index-resolve" @@ -11445,15 +11657,15 @@ static const char *startup_source = " #f)))))))" "(values result_54)))))))" "(if(if(not((lambda x_37 result_52) shift_4))(not #f) #f)" -"(for-loop_76 result_52 rest_25)" +"(for-loop_77 result_52 rest_25)" " result_52)))" " result_51)))))" -" for-loop_76)" +" for-loop_77)" " #f" -" lst_45)))))))))))" +" lst_56)))))))))))" "(case-lambda" -"((s_161)(begin 'syntax-source-module(syntax-source-module45_0 s_161 #f #f)))" -"((s_162 source?42_1)(syntax-source-module45_0 s_162 source?42_1 #t)))))" +"((s_164)(begin 'syntax-source-module(syntax-source-module45_0 s_164 #f #f)))" +"((s_165 source?42_1)(syntax-source-module45_0 s_165 source?42_1 #t)))))" "(define-values" "(1/identifier-prune-to-source-module)" "(lambda(id_7)" @@ -11491,12 +11703,12 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:serialize" -"(lambda(p_30 ser-push!_13 state_23)" +"(lambda(p_30 ser-push!_14 state_24)" "(begin" -"(ser-push!_13 'tag '#:provided)" -"(ser-push!_13(provided-binding p_30))" -"(ser-push!_13(provided-protected? p_30))" -"(ser-push!_13(provided-syntax? p_30))))))" +"(ser-push!_14 'tag '#:provided)" +"(ser-push!_14(provided-binding p_30))" +"(ser-push!_14(provided-protected? p_30))" +"(ser-push!_14(provided-syntax? p_30))))))" " #f" " #f" " '(0 1 2)" @@ -11521,7 +11733,7 @@ static const char *startup_source = "(begin" " 'provide-binding-to-require-binding11" "(let-values(((binding/p_0) binding/p9_0))" -"(let-values(((sym_17) sym10_0))" +"(let-values(((sym_18) sym10_0))" "(let-values(((self_1) self1_0))" "(let-values(((mpi_14) mpi2_0))" "(let-values(((provide-phase-level_0) provide-phase-level3_0))" @@ -11533,7 +11745,7 @@ static const char *startup_source = "((temp18_1)(module-path-index-shift from-mod_0 self_1 mpi_14))" "((mpi19_0) mpi_14)" "((provide-phase-level20_0) provide-phase-level_0)" -"((sym21_1) sym_17)" +"((sym21_1) sym_18)" "((phase-shift22_0) phase-shift_0)" "((temp23_1) #f)" "((temp24_1)" @@ -11579,7 +11791,7 @@ static const char *startup_source = " bulk-binding-bulk-binding-registry" " set-bulk-binding-provides!" " set-bulk-binding-self!)" -"(let-values(((struct:_31 make-_31 ?_31 -ref_31 -set!_31)" +"(let-values(((struct:_32 make-_32 ?_32 -ref_32 -set!_32)" "(let-values()" "(let-values()" "(make-struct-type" @@ -11591,15 +11803,15 @@ static const char *startup_source = "(list" "(cons" " prop:serialize" -"(lambda(b_18 ser-push!_14 reachable-scopes_3)" +"(lambda(b_18 ser-push!_15 reachable-scopes_3)" "(begin" -"(ser-push!_14 'tag '#:bulk-binding)" -"(ser-push!_14(bulk-binding-prefix b_18))" -"(ser-push!_14(bulk-binding-excepts b_18))" -"(ser-push!_14(bulk-binding-mpi b_18))" -"(ser-push!_14(bulk-binding-provide-phase-level b_18))" -"(ser-push!_14(bulk-binding-phase-shift b_18))" -"(ser-push!_14 'tag '#:bulk-binding-registry))))" +"(ser-push!_15 'tag '#:bulk-binding)" +"(ser-push!_15(bulk-binding-prefix b_18))" +"(ser-push!_15(bulk-binding-excepts b_18))" +"(ser-push!_15(bulk-binding-mpi b_18))" +"(ser-push!_15(bulk-binding-provide-phase-level b_18))" +"(ser-push!_15(bulk-binding-phase-shift b_18))" +"(ser-push!_15 'tag '#:bulk-binding-registry))))" "(cons" " prop:bulk-binding" "(bulk-binding-class3.1" @@ -11682,19 +11894,19 @@ static const char *startup_source = " #f" " 'bulk-binding)))))" "(values" -" struct:_31" -" make-_31" -" ?_31" -"(make-struct-field-accessor -ref_31 0 'provides)" -"(make-struct-field-accessor -ref_31 1 'prefix)" -"(make-struct-field-accessor -ref_31 2 'excepts)" -"(make-struct-field-accessor -ref_31 3 'self)" -"(make-struct-field-accessor -ref_31 4 'mpi)" -"(make-struct-field-accessor -ref_31 5 'provide-phase-level)" -"(make-struct-field-accessor -ref_31 6 'phase-shift)" -"(make-struct-field-accessor -ref_31 7 'bulk-binding-registry)" -"(make-struct-field-mutator -set!_31 0 'provides)" -"(make-struct-field-mutator -set!_31 3 'self))))" +" struct:_32" +" make-_32" +" ?_32" +"(make-struct-field-accessor -ref_32 0 'provides)" +"(make-struct-field-accessor -ref_32 1 'prefix)" +"(make-struct-field-accessor -ref_32 2 'excepts)" +"(make-struct-field-accessor -ref_32 3 'self)" +"(make-struct-field-accessor -ref_32 4 'mpi)" +"(make-struct-field-accessor -ref_32 5 'provide-phase-level)" +"(make-struct-field-accessor -ref_32 6 'phase-shift)" +"(make-struct-field-accessor -ref_32 7 'bulk-binding-registry)" +"(make-struct-field-mutator -set!_32 0 'provides)" +"(make-struct-field-mutator -set!_32 3 'self))))" "(define-values" "(deserialize-bulk-binding)" "(lambda(prefix_1 excepts_1 mpi_15 provide-phase-level_1 phase-shift_1 bulk-binding-registry_0)" @@ -11707,18 +11919,18 @@ static const char *startup_source = "(let-values(((ht_62) provides_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_62)))" -"((letrec-values(((for-loop_77)" -"(lambda(table_83 i_77)" +"((letrec-values(((for-loop_78)" +"(lambda(table_83 i_78)" "(begin" " 'for-loop" -"(if i_77" -"(let-values(((sym_18 val_23)(hash-iterate-key+value ht_62 i_77)))" +"(if i_78" +"(let-values(((sym_19 val_23)(hash-iterate-key+value ht_62 i_78)))" "(let-values(((table_84)" "(let-values(((table_85) table_83))" -"(if(hash-ref excepts_2 sym_18 #f)" +"(if(hash-ref excepts_2 sym_19 #f)" " table_85" "(let-values(((table_86) table_85))" -"(if(symbol-interned? sym_18)" +"(if(symbol-interned? sym_19)" "(let-values(((table_87) table_86))" "(let-values(((table_88)" "(let-values()" @@ -11730,32 +11942,32 @@ static const char *startup_source = "(format" " \"~a~a\"" " prefix_2" -" sym_18))" -" sym_18)" +" sym_19))" +" sym_19)" " val_23))))" "(hash-set table_87 key_35 val_24)))))" "(values table_88)))" " table_86))))))" -"(if(not #f)(for-loop_77 table_84(hash-iterate-next ht_62 i_77)) table_84)))" +"(if(not #f)(for-loop_78 table_84(hash-iterate-next ht_62 i_78)) table_84)))" " table_83)))))" -" for-loop_77)" +" for-loop_78)" " '#hash()" "(hash-iterate-first ht_62)))))))" "(define-values" "(struct:bulk-provide bulk-provide15.1 bulk-provide? bulk-provide-self bulk-provide-provides)" -"(let-values(((struct:_32 make-_32 ?_32 -ref_32 -set!_32)" +"(let-values(((struct:_33 make-_33 ?_33 -ref_33 -set!_33)" "(let-values()" "(let-values()" "(make-struct-type 'bulk-provide #f 2 0 #f null(current-inspector) #f '(0 1) #f 'bulk-provide)))))" "(values" -" struct:_32" -" make-_32" -" ?_32" -"(make-struct-field-accessor -ref_32 0 'self)" -"(make-struct-field-accessor -ref_32 1 'provides))))" +" struct:_33" +" make-_33" +" ?_33" +"(make-struct-field-accessor -ref_33 0 'self)" +"(make-struct-field-accessor -ref_33 1 'provides))))" "(define-values" "(struct:bulk-binding-registry bulk-binding-registry16.1 bulk-binding-registry? bulk-binding-registry-table)" -"(let-values(((struct:_33 make-_33 ?_33 -ref_33 -set!_33)" +"(let-values(((struct:_34 make-_34 ?_34 -ref_34 -set!_34)" "(let-values()" "(let-values()" "(make-struct-type" @@ -11770,7 +11982,7 @@ static const char *startup_source = " '(0)" " #f" " 'bulk-binding-registry)))))" -"(values struct:_33 make-_33 ?_33(make-struct-field-accessor -ref_33 0 'table))))" +"(values struct:_34 make-_34 ?_34(make-struct-field-accessor -ref_34 0 'table))))" "(define-values(make-bulk-binding-registry)(lambda()(begin(bulk-binding-registry16.1(make-hasheq)))))" "(define-values" "(register-bulk-provide!)" @@ -11793,7 +12005,7 @@ static const char *startup_source = " root-expand-context/outer-post-expansion-scope" " root-expand-context/outer-use-site-scopes" " root-expand-context/outer-frame-id)" -"(let-values(((struct:_34 make-_34 ?_34 -ref_34 -set!_34)" +"(let-values(((struct:_35 make-_35 ?_35 -ref_35 -set!_35)" "(let-values()" "(let-values()" "(make-struct-type" @@ -11809,13 +12021,13 @@ static const char *startup_source = " #f" " 'root-expand-context/outer)))))" "(values" -" struct:_34" -" make-_34" -" ?_34" -"(make-struct-field-accessor -ref_34 0 'inner)" -"(make-struct-field-accessor -ref_34 1 'post-expansion-scope)" -"(make-struct-field-accessor -ref_34 2 'use-site-scopes)" -"(make-struct-field-accessor -ref_34 3 'frame-id))))" +" struct:_35" +" make-_35" +" ?_35" +"(make-struct-field-accessor -ref_35 0 'inner)" +"(make-struct-field-accessor -ref_35 1 'post-expansion-scope)" +"(make-struct-field-accessor -ref_35 2 'use-site-scopes)" +"(make-struct-field-accessor -ref_35 3 'frame-id))))" "(define-values" "(struct:root-expand-context/inner" " root-expand-context/inner2.1" @@ -11956,12 +12168,12 @@ static const char *startup_source = "(let-values(((ht_63)(root-expand-context-defined-syms ctx_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_63)))" -"((letrec-values(((for-loop_78)" -"(lambda(table_89 i_78)" +"((letrec-values(((for-loop_79)" +"(lambda(table_89 i_79)" "(begin" " 'for-loop" -"(if i_78" -"(let-values(((phase_24 ht_64)(hash-iterate-key+value ht_63 i_78)))" +"(if i_79" +"(let-values(((phase_24 ht_64)(hash-iterate-key+value ht_63 i_79)))" "(let-values(((table_90)" "(let-values(((table_91) table_89))" "(let-values(((table_92)" @@ -11971,9 +12183,9 @@ static const char *startup_source = "(values phase_24 ht_64))))" "(hash-set table_91 key_36 val_25)))))" "(values table_92)))))" -"(if(not #f)(for-loop_78 table_90(hash-iterate-next ht_63 i_78)) table_90)))" +"(if(not #f)(for-loop_79 table_90(hash-iterate-next ht_63 i_79)) table_90)))" " table_89)))))" -" for-loop_78)" +" for-loop_79)" " '#hasheqv()" "(hash-iterate-first ht_63))))" "(root-expand-context-frame-id ctx_0)" @@ -12021,12 +12233,12 @@ static const char *startup_source = "(let-values(((ht_65) v_93))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_65)))" -"((letrec-values(((for-loop_79)" -"(lambda(result_55 i_79)" +"((letrec-values(((for-loop_80)" +"(lambda(result_55 i_80)" "(begin" " 'for-loop" -"(if i_79" -"(let-values(((phase_25 ht-s_0)(hash-iterate-key+value ht_65 i_79)))" +"(if i_80" +"(let-values(((phase_25 ht-s_0)(hash-iterate-key+value ht_65 i_80)))" "(let-values(((result_56)" "(let-values()" "(let-values(((result_57)" @@ -12040,23 +12252,23 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_66)))" -"((letrec-values(((for-loop_80)" -"(lambda(result_58 i_80)" +"((letrec-values(((for-loop_81)" +"(lambda(result_58 i_81)" "(begin" " 'for-loop" -"(if i_80" -"(let-values(((sym_19" +"(if i_81" +"(let-values(((sym_20" " id_8)" "(hash-iterate-key+value" " ht_66" -" i_80)))" +" i_81)))" "(let-values(((result_59)" "(let-values()" "(let-values(((result_60)" "(let-values()" "(let-values()" "(if(symbol?" -" sym_19)" +" sym_20)" "(identifier?" " id_8)" " #f)))))" @@ -12066,28 +12278,28 @@ static const char *startup_source = "((lambda x_38" "(not" " result_59))" -" sym_19" +" sym_20" " id_8))" "(not #f)" " #f)" -"(for-loop_80" +"(for-loop_81" " result_59" "(hash-iterate-next" " ht_66" -" i_80))" +" i_81))" " result_59)))" " result_58)))))" -" for-loop_80)" +" for-loop_81)" " #t" "(hash-iterate-first ht_66))))" " #f)" " #f)))))" "(values result_57)))))" "(if(if(not((lambda x_39(not result_56)) phase_25 ht-s_0))(not #f) #f)" -"(for-loop_79 result_56(hash-iterate-next ht_65 i_79))" +"(for-loop_80 result_56(hash-iterate-next ht_65 i_80))" " result_56)))" " result_55)))))" -" for-loop_79)" +" for-loop_80)" " #t" "(hash-iterate-first ht_65)))))))" "(define-values" @@ -12098,7 +12310,7 @@ 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_163)(syntax-scope-set stx_11 0)))(generalize-scope(set-first s_163))))))" +"(lambda(stx_11)(begin(let-values(((s_166)(syntax-scope-set stx_11 0)))(generalize-scope(set-first s_166))))))" "(define-values" "(unpack-defined-syms)" "(lambda(v_94)" @@ -12107,17 +12319,17 @@ static const char *startup_source = "(let-values(((ht_67)(syntax-e$1 v_94)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_67)))" -"((letrec-values(((for-loop_81)" -"(lambda(table_93 i_81)" +"((letrec-values(((for-loop_82)" +"(lambda(table_93 i_82)" "(begin" " 'for-loop" -"(if i_81" -"(let-values(((phase_26 ht-s_1)(hash-iterate-key+value ht_67 i_81)))" +"(if i_82" +"(let-values(((phase_26 ht-s_1)(hash-iterate-key+value ht_67 i_82)))" "(let-values(((table_94)" "(let-values(((table_95) table_93))" "(let-values(((table_96)" "(let-values()" -"(let-values(((key_37 val_17)" +"(let-values(((key_37 val_26)" "(let-values()" "(values" " phase_26" @@ -12133,30 +12345,30 @@ static const char *startup_source = "(check-in-hash ht_68)))" "((letrec-values(((for-loop_13)" "(lambda(table_97" -" i_82)" +" i_83)" "(begin" " 'for-loop" -"(if i_82" -"(let-values(((sym_20" +"(if i_83" +"(let-values(((sym_21" " id_9)" "(hash-iterate-key+value" " ht_68" -" i_82)))" +" i_83)))" "(let-values(((table_98)" "(let-values(((table_99)" " table_97))" "(let-values(((table_100)" "(let-values()" "(let-values(((key_38" -" val_26)" +" val_27)" "(let-values()" "(values" -" sym_20" +" sym_21" " id_9))))" "(hash-set" " table_99" " key_38" -" val_26)))))" +" val_27)))))" "(values" " table_100)))))" "(if(not" @@ -12165,18 +12377,18 @@ static const char *startup_source = " table_98" "(hash-iterate-next" " ht_68" -" i_82))" +" i_83))" " table_98)))" " table_97)))))" " for-loop_13)" " '#hash()" "(hash-iterate-first" " ht_68)))))))))" -"(hash-set table_95 key_37 val_17)))))" +"(hash-set table_95 key_37 val_26)))))" "(values table_96)))))" -"(if(not #f)(for-loop_81 table_94(hash-iterate-next ht_67 i_81)) table_94)))" +"(if(not #f)(for-loop_82 table_94(hash-iterate-next ht_67 i_82)) table_94)))" " table_93)))))" -" for-loop_81)" +" for-loop_82)" " '#hasheqv()" "(hash-iterate-first ht_67))))))))" "(define-values(1/primitive-table) primitive-table)" @@ -12242,7 +12454,7 @@ static const char *startup_source = "(lambda(r_5 proc_2)" "(begin" "(let-values(((lock-box_0)(module-registry-lock-box r_5)))" -"((letrec-values(((loop_66)" +"((letrec-values(((loop_68)" "(lambda()" "(begin" " 'loop" @@ -12257,12 +12469,12 @@ static const char *startup_source = "(lambda()" "(if(box-cas! lock-box_0 v_31 lock_0)" "(let-values()(begin(proc_2) void))" -"(let-values()(lambda()(loop_66)))))" +"(let-values()(lambda()(loop_68)))))" "(lambda()(semaphore-post sema_0)))))))" "(if(eq?(current-thread)(cdr v_31))" "(let-values()(proc_2))" -"(let-values()(begin(sync(car v_31)(cdr v_31))(loop_66))))))))))" -" loop_66))))))" +"(let-values()(begin(sync(car v_31)(cdr v_31))(loop_68))))))))))" +" loop_68))))))" "(define-values" "(struct:namespace" " namespace1.1" @@ -12296,13 +12508,13 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:custom-write" -"(lambda(ns_0 port_9 mode_9)" -" (let-values ((() (begin (write-string \"#name ns_0)))" +"(if n_20" +" (let-values () (fprintf port_10 \":~a\" (namespace->name ns_0)))" "(void))" "(values))))" "(let-values(((0-phase_0)(namespace-0-phase ns_0)))" @@ -12310,12 +12522,12 @@ static const char *startup_source = "(begin" "(if(zero-phase? phase-level_0)" "(void)" -" (let-values () (fprintf port_9 \":~s\" phase-level_0)))" +" (let-values () (fprintf port_10 \":~s\" phase-level_0)))" "(if(zero-phase? 0-phase_0)" "(void)" "(let-values()" -" (fprintf port_9 \"~a~s\" (if (positive? 0-phase_0) \"+\" \"\") 0-phase_0)))" -" (write-string \">\" port_9))))))))))" +" (fprintf port_10 \"~a~s\" (if (positive? 0-phase_0) \"+\" \"\") 0-phase_0)))" +" (write-string \">\" port_10))))))))))" "(current-inspector)" " #f" " '(0 1 2 3 4 5 6 7 8 9 10 11 13 14)" @@ -12343,7 +12555,7 @@ static const char *startup_source = "(make-struct-field-mutator -set!_0 12 'inspector))))" "(define-values" "(struct:definitions definitions2.1 definitions? definitions-variables definitions-transformers)" -"(let-values(((struct:_35 make-_35 ?_35 -ref_35 -set!_35)" +"(let-values(((struct:_36 make-_36 ?_36 -ref_36 -set!_36)" "(let-values()" "(let-values()" "(make-struct-type" @@ -12359,11 +12571,11 @@ static const char *startup_source = " #f" " 'definitions)))))" "(values" -" struct:_35" -" make-_35" -" ?_35" -"(make-struct-field-accessor -ref_35 0 'variables)" -"(make-struct-field-accessor -ref_35 1 'transformers))))" +" struct:_36" +" make-_36" +" ?_36" +"(make-struct-field-accessor -ref_36 0 'variables)" +"(make-struct-field-accessor -ref_36 1 'transformers))))" "(define-values(make-namespace)(lambda()(begin(let-values()(new-namespace9.1 #f #f #f #f #f #f)))))" "(define-values" "(new-namespace9.1)" @@ -12466,15 +12678,15 @@ static const char *startup_source = "(namespace->name)" "(lambda(ns_7)" "(begin" -"(let-values(((n_20)(namespace-source-name ns_7)))" -"(let-values(((s_164)" -"(if(not n_20)" +"(let-values(((n_21)(namespace-source-name ns_7)))" +"(let-values(((s_167)" +"(if(not n_21)" "(let-values() 'top-level)" -"(if(symbol? n_20)" -" (let-values () (format \"'~s\" n_20))" -" (let-values () (string-append \"\\\"\" (path->string n_20) \"\\\"\"))))))" +"(if(symbol? n_21)" +" (let-values () (format \"'~s\" n_21))" +" (let-values () (string-append \"\\\"\" (path->string n_21) \"\\\"\"))))))" "(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_164 \" \" (substring (format \"~s\" (cdr r_27)) 1)) s_164)))))))" +" (if (pair? r_27) (string-append \"(submod \" s_167 \" \" (substring (format \"~s\" (cdr r_27)) 1)) s_167)))))))" "(define-values" "(namespace->definitions)" "(lambda(ns_8 phase-level_1)" @@ -12497,26 +12709,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_27) val17_0))" +"(let-values(((val_28) 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_27" +" val_28" "(if as-constant?_0 'constant #f)))))))))))))" "(case-lambda" -"((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)))))" +"((ns_10 phase-level_3 name_19 val_29)" +"(begin(namespace-set-variable!18_0 ns_10 phase-level_3 name_19 val_29 #f #f)))" +"((ns_11 phase-level_4 name_20 val_30 as-constant?12_1)" +"(namespace-set-variable!18_0 ns_11 phase-level_4 name_20 val_30 as-constant?12_1 #t)))))" "(define-values" "(namespace-set-consistent!)" -"(lambda(ns_12 phase-level_5 name_21 val_30)" +"(lambda(ns_12 phase-level_5 name_21 val_31)" "(begin" "(let-values(((d_11)(namespace->definitions ns_12 phase-level_5)))" -"(1/instance-set-variable-value!(definitions-variables d_11) name_21 val_30 'consistent)))))" +"(1/instance-set-variable-value!(definitions-variables d_11) name_21 val_31 'consistent)))))" "(define-values" "(namespace-unset-variable!)" "(lambda(ns_13 phase-level_6 name_22)" @@ -12525,10 +12737,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_31)" +"(lambda(ns_14 phase-level_7 name_23 val_32)" "(begin" "(let-values(((d_13)(namespace->definitions ns_14(add1 phase-level_7))))" -"(hash-set!(definitions-transformers d_13) name_23 val_31)))))" +"(hash-set!(definitions-transformers d_13) name_23 val_32)))))" "(define-values" "(namespace-unset-transformer!)" "(lambda(ns_15 phase-level_8 name_24)" @@ -12564,16 +12776,16 @@ static const char *startup_source = "(begin" " 'syntax->list" "(let-values(((l_46)" -"((letrec-values(((loop_73)" +"((letrec-values(((loop_76)" "(lambda(s_1)" "(begin" " 'loop" "(if(pair? s_1)" -"(let-values()(cons(car s_1)(loop_73(cdr s_1))))" +"(let-values()(cons(car s_1)(loop_76(cdr s_1))))" "(if(syntax?$1 s_1)" -"(let-values()(loop_73(syntax-e$1 s_1)))" +"(let-values()(loop_76(syntax-e$1 s_1)))" "(let-values() s_1)))))))" -" loop_73)" +" loop_76)" " s_0)))" "(if(list? l_46) l_46 #f)))))" "(define-values(missing$1)(gensym))" @@ -12661,15 +12873,15 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_69)))" -"((letrec-values(((for-loop_82)" -"(lambda(new-props_1 i_83)" +"((letrec-values(((for-loop_83)" +"(lambda(new-props_1 i_84)" "(begin" " 'for-loop" -"(if i_83" +"(if i_84" "(let-values(((k_17 v_96)" "(unsafe-immutable-hash-iterate-key+value" " ht_69" -" i_83)))" +" i_84)))" "(let-values(((new-props_2)" "(let-values(((new-props_3)" " new-props_1))" @@ -12693,14 +12905,14 @@ static const char *startup_source = "(values" " new-props_4)))))" "(if(not #f)" -"(for-loop_82" +"(for-loop_83" " new-props_2" "(unsafe-immutable-hash-iterate-next" " ht_69" -" i_83))" +" i_84))" " new-props_2)))" " new-props_1)))))" -" for-loop_82)" +" for-loop_83)" " new-props_0" "(unsafe-immutable-hash-iterate-first ht_69)))))" "(let-values()" @@ -12710,15 +12922,15 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_70)))" -"((letrec-values(((for-loop_83)" -"(lambda(old-props_1 i_84)" +"((letrec-values(((for-loop_84)" +"(lambda(old-props_1 i_85)" "(begin" " 'for-loop" -"(if i_84" +"(if i_85" "(let-values(((k_18 v_5)" "(unsafe-immutable-hash-iterate-key+value" " ht_70" -" i_84)))" +" i_85)))" "(let-values(((old-props_2)" "(let-values(((old-props_3)" " old-props_1))" @@ -12742,14 +12954,14 @@ static const char *startup_source = "(values" " old-props_4)))))" "(if(not #f)" -"(for-loop_83" +"(for-loop_84" " old-props_2" "(unsafe-immutable-hash-iterate-next" " ht_70" -" i_84))" +" i_85))" " old-props_2)))" " old-props_1)))))" -" for-loop_83)" +" for-loop_84)" " old-props-with-origin_0" "(unsafe-immutable-hash-iterate-first ht_70))))))))" "(let-values(((the-struct_35) new-stx_0))" @@ -12786,7 +12998,7 @@ static const char *startup_source = "(let-values(((lst_57) old-stxes_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_57)))" -"((letrec-values(((for-loop_84)" +"((letrec-values(((for-loop_85)" "(lambda(new-stx_4 lst_58)" "(begin" " 'for-loop" @@ -12798,14 +13010,14 @@ 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_84 new-stx_5 rest_26) new-stx_5)))" +"(if(not #f)(for-loop_85 new-stx_5 rest_26) new-stx_5)))" " new-stx_4)))))" -" for-loop_84)" +" for-loop_85)" " new-stx_3" " lst_57))))))" "(define-values" "(1/struct:exn:fail:syntax make-exn:fail:syntax$1 1/exn:fail:syntax? 1/exn:fail:syntax-exprs)" -"(let-values(((struct:_29 make-_29 ?_29 -ref_29 -set!_29)" +"(let-values(((struct:_30 make-_30 ?_30 -ref_30 -set!_30)" "(let-values()" "(let-values()" "(make-struct-type" @@ -12828,7 +13040,7 @@ static const char *startup_source = " (let-values () (raise-argument-error 'exn:fail:syntax \"(listof syntax?)\" exprs_0)))" "(values str_1 cm_0 exprs_0)))" " 'exn:fail:syntax)))))" -"(values struct:_29 make-_29 ?_29(make-struct-field-accessor -ref_29 0 'exprs))))" +"(values struct:_30 make-_30 ?_30(make-struct-field-accessor -ref_30 0 'exprs))))" "(define-values" "(1/struct:exn:fail:syntax:unbound make-exn:fail:syntax:unbound$1 1/exn:fail:syntax:unbound?)" "(let-values(((struct:_18 make-_18 ?_18 -ref_18 -set!_18)" @@ -13032,11 +13244,11 @@ static const char *startup_source = "(let-values() #f)))))" "(define-values" "(extract-source-location)" -"(lambda(s_165)" +"(lambda(s_168)" "(begin" -"(if(syntax?$1 s_165)" -"(if(syntax-srcloc s_165)" -" (let-values (((str_2) (srcloc->string (syntax-srcloc s_165)))) (if str_2 (string-append str_2 \": \") #f))" +"(if(syntax?$1 s_168)" +"(if(syntax-srcloc s_168)" +" (let-values (((str_2) (srcloc->string (syntax-srcloc s_168)))) (if str_2 (string-append str_2 \": \") #f))" " #f)" " #f))))" "(define-values" @@ -13125,7 +13337,7 @@ static const char *startup_source = " module-linklet-info-inspector" " module-linklet-info-extra-inspector" " module-linklet-info-extra-inspectorsss)" -"(let-values(((struct:_36 make-_36 ?_36 -ref_36 -set!_36)" +"(let-values(((struct:_37 make-_37 ?_37 -ref_37 -set!_37)" "(let-values()" "(let-values()" "(make-struct-type" @@ -13141,15 +13353,15 @@ static const char *startup_source = " #f" " 'module-linklet-info)))))" "(values" -" struct:_36" -" make-_36" -" ?_36" -"(make-struct-field-accessor -ref_36 0 'linklet-or-instance)" -"(make-struct-field-accessor -ref_36 1 'module-uses)" -"(make-struct-field-accessor -ref_36 2 'self)" -"(make-struct-field-accessor -ref_36 3 'inspector)" -"(make-struct-field-accessor -ref_36 4 'extra-inspector)" -"(make-struct-field-accessor -ref_36 5 'extra-inspectorsss))))" +" struct:_37" +" make-_37" +" ?_37" +"(make-struct-field-accessor -ref_37 0 'linklet-or-instance)" +"(make-struct-field-accessor -ref_37 1 'module-uses)" +"(make-struct-field-accessor -ref_37 2 'self)" +"(make-struct-field-accessor -ref_37 3 'inspector)" +"(make-struct-field-accessor -ref_37 4 'extra-inspector)" +"(make-struct-field-accessor -ref_37 5 'extra-inspectorsss))))" "(define-values" "(make-module39.1)" "(lambda(cross-phase-persistent?16_0" @@ -13255,7 +13467,7 @@ static const char *startup_source = " set-module-instance-shifted-requires!" " set-module-instance-made-available?!" " set-module-instance-attached?!)" -"(let-values(((struct:_37 make-_37 ?_37 -ref_37 -set!_37)" +"(let-values(((struct:_38 make-_38 ?_38 -ref_38 -set!_38)" "(let-values()" "(let-values()" "(make-struct-type" @@ -13271,19 +13483,19 @@ static const char *startup_source = " #f" " 'module-instance)))))" "(values" -" struct:_37" -" make-_37" -" ?_37" -"(make-struct-field-accessor -ref_37 0 'namespace)" -"(make-struct-field-accessor -ref_37 1 'module)" -"(make-struct-field-accessor -ref_37 2 'shifted-requires)" -"(make-struct-field-accessor -ref_37 3 'phase-level-to-state)" -"(make-struct-field-accessor -ref_37 4 'made-available?)" -"(make-struct-field-accessor -ref_37 5 'attached?)" -"(make-struct-field-accessor -ref_37 6 'data-box)" -"(make-struct-field-mutator -set!_37 2 'shifted-requires)" -"(make-struct-field-mutator -set!_37 4 'made-available?)" -"(make-struct-field-mutator -set!_37 5 'attached?))))" +" struct:_38" +" make-_38" +" ?_38" +"(make-struct-field-accessor -ref_38 0 'namespace)" +"(make-struct-field-accessor -ref_38 1 'module)" +"(make-struct-field-accessor -ref_38 2 'shifted-requires)" +"(make-struct-field-accessor -ref_38 3 'phase-level-to-state)" +"(make-struct-field-accessor -ref_38 4 'made-available?)" +"(make-struct-field-accessor -ref_38 5 'attached?)" +"(make-struct-field-accessor -ref_38 6 'data-box)" +"(make-struct-field-mutator -set!_38 2 'shifted-requires)" +"(make-struct-field-mutator -set!_38 4 'made-available?)" +"(make-struct-field-mutator -set!_38 5 'attached?))))" "(define-values" "(make-module-instance)" "(lambda(m-ns_0 m_1)(begin(module-instance42.1 m-ns_0 m_1 #f(make-small-hasheqv) #f #f(box #f)))))" @@ -13892,7 +14104,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_59)))" -"((letrec-values(((for-loop_85)" +"((letrec-values(((for-loop_86)" "(lambda(fold-var_43 lst_60)" "(begin" " 'for-loop" @@ -13922,7 +14134,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_61)))" -"((letrec-values(((for-loop_86)" +"((letrec-values(((for-loop_87)" "(lambda(fold-var_47" " lst_62)" "(begin" @@ -13952,21 +14164,21 @@ static const char *startup_source = " fold-var_50)))))" "(if(not" " #f)" -"(for-loop_86" +"(for-loop_87" " fold-var_48" " rest_28)" " fold-var_48)))" " fold-var_47)))))" -" for-loop_86)" +" for-loop_87)" " null" " lst_61))))))" " fold-var_45))))" "(values fold-var_46)))))" "(if(not #f)" -"(for-loop_85 fold-var_44 rest_27)" +"(for-loop_86 fold-var_44 rest_27)" " fold-var_44)))" " fold-var_43)))))" -" for-loop_85)" +" for-loop_86)" " null" " lst_59)))))))" "(let-values(((lst_63)(module-instance-shifted-requires mi_7)))" @@ -13974,7 +14186,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_63)))" -"((letrec-values(((for-loop_87)" +"((letrec-values(((for-loop_88)" "(lambda(lst_64)" "(begin" " 'for-loop" @@ -14001,7 +14213,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_65)))" -"((letrec-values(((for-loop_88)" +"((letrec-values(((for-loop_89)" "(lambda(lst_66)" "(begin" " 'for-loop" @@ -14054,18 +14266,18 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_88" +"(for-loop_89" " rest_30)" "(values))))" "(values))))))" -" for-loop_88)" +" for-loop_89)" " lst_65)))" "(void))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_87 rest_29)(values))))" +"(if(not #f)(for-loop_88 rest_29)(values))))" "(values))))))" -" for-loop_87)" +" for-loop_88)" " lst_63)))" "(void)" "(if(label-phase? instance-phase_4)" @@ -14079,7 +14291,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_89)" +"((letrec-values(((for-loop_90)" "(lambda(pos_10)" "(begin" " 'for-loop" @@ -14190,10 +14402,10 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_89(+ pos_10 inc_3))" +"(for-loop_90(+ pos_10 inc_3))" "(values))))" "(values))))))" -" for-loop_89)" +" for-loop_90)" " start_13)))" "(void))))" "(if otherwise-available?_1" @@ -14233,7 +14445,7 @@ static const char *startup_source = "(registry-call-with-lock" "(namespace-module-registry$1 ns_37)" "(lambda()" -"((letrec-values(((loop_74)" +"((letrec-values(((loop_77)" "(lambda()" "(begin" " 'loop" @@ -14256,17 +14468,17 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_67)))" -"((letrec-values(((for-loop_90)" -"(lambda(lst_68)" +"((letrec-values(((for-loop_91)" +"(lambda(lst_49)" "(begin" " 'for-loop" -"(if(pair? lst_68)" +"(if(pair? lst_49)" "(let-values(((mi_8)" "(unsafe-car" -" lst_68))" -"((rest_31)" +" lst_49))" +"((rest_21)" "(unsafe-cdr" -" lst_68)))" +" lst_49)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -14294,14 +14506,14 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_90 rest_31)" +"(for-loop_91 rest_21)" "(values))))" "(values))))))" -" for-loop_90)" +" for-loop_91)" " lst_67)))" "(void)" -"(loop_74)))))))))" -" loop_74)))))))))))))" +"(loop_77)))))))))" +" loop_77)))))))))))))" "(case-lambda" "((ns_38)(begin(namespace-run-available-modules!136_0 ns_38 #f #f)))" "((ns_39 run-phase133_1)(namespace-run-available-modules!136_0 ns_39 run-phase133_1 #t)))))" @@ -14366,15 +14578,15 @@ static const char *startup_source = "(lambda(requires_1)" "(begin" "(reverse$1" -"(let-values(((lst_69) requires_1))" +"(let-values(((lst_68) requires_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_69)))" -"((letrec-values(((for-loop_91)" -"(lambda(fold-var_51 lst_70)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_68)))" +"((letrec-values(((for-loop_92)" +"(lambda(fold-var_51 lst_69)" "(begin" " 'for-loop" -"(if(pair? lst_70)" -"(let-values(((phase+mpis_2)(unsafe-car lst_70))((rest_32)(unsafe-cdr lst_70)))" +"(if(pair? lst_69)" +"(let-values(((phase+mpis_2)(unsafe-car lst_69))((rest_31)(unsafe-cdr lst_69)))" "(let-values(((fold-var_52)" "(let-values(((fold-var_53) fold-var_51))" "(let-values(((fold-var_54)" @@ -14384,24 +14596,24 @@ static const char *startup_source = "(cons" "(car phase+mpis_2)" "(reverse$1" -"(let-values(((lst_71)(cdr phase+mpis_2)))" +"(let-values(((lst_70)(cdr phase+mpis_2)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_71)))" -"((letrec-values(((for-loop_92)" +"(let-values()(check-list lst_70)))" +"((letrec-values(((for-loop_93)" "(lambda(fold-var_55" -" lst_72)" +" lst_71)" "(begin" " 'for-loop" -"(if(pair? lst_72)" +"(if(pair? lst_71)" "(let-values(((req-mpi_2)" "(unsafe-car" -" lst_72))" -"((rest_33)" +" lst_71))" +"((rest_32)" "(unsafe-cdr" -" lst_72)))" +" lst_71)))" "(let-values(((fold-var_56)" "(let-values(((fold-var_57)" " fold-var_55))" @@ -14415,21 +14627,21 @@ static const char *startup_source = "(values" " fold-var_58)))))" "(if(not #f)" -"(for-loop_92" +"(for-loop_93" " fold-var_56" -" rest_33)" +" rest_32)" " fold-var_56)))" " fold-var_55)))))" -" for-loop_92)" +" for-loop_93)" " null" -" lst_71))))))" +" lst_70))))))" " fold-var_53))))" "(values fold-var_54)))))" -"(if(not #f)(for-loop_91 fold-var_52 rest_32) fold-var_52)))" +"(if(not #f)(for-loop_92 fold-var_52 rest_31) fold-var_52)))" " fold-var_51)))))" -" for-loop_91)" +" for-loop_92)" " null" -" lst_69)))))))" +" lst_68)))))))" "(define-values" "(module-compute-access!)" "(lambda(m_10)" @@ -14440,18 +14652,18 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_71)))" -"((letrec-values(((for-loop_93)" -"(lambda(table_101 i_85)" +"((letrec-values(((for-loop_94)" +"(lambda(table_101 i_86)" "(begin" " 'for-loop" -"(if i_85" +"(if i_86" "(let-values(((phase_33 at-phase_6)" -"(hash-iterate-key+value ht_71 i_85)))" +"(hash-iterate-key+value ht_71 i_86)))" "(let-values(((table_102)" "(let-values(((table_103) table_101))" "(let-values(((table_104)" "(let-values()" -"(let-values(((key_39 val_32)" +"(let-values(((key_39 val_33)" "(let-values()" "(values" " phase_33" @@ -14464,24 +14676,24 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_72)))" -"((letrec-values(((for-loop_94)" +"((letrec-values(((for-loop_95)" "(lambda(table_105" -" i_86)" +" i_87)" "(begin" " 'for-loop" -"(if i_86" -"(let-values(((sym_21" +"(if i_87" +"(let-values(((sym_22" " binding/p_1)" "(hash-iterate-key+value" " ht_72" -" i_86)))" +" i_87)))" "(let-values(((table_106)" "(let-values(((table_107)" " table_105))" "(let-values(((table_108)" "(let-values()" "(let-values(((key_40" -" val_33)" +" val_34)" "(let-values()" "(values" "(module-binding-sym" @@ -14494,32 +14706,32 @@ static const char *startup_source = "(hash-set" " table_107" " key_40" -" val_33)))))" +" val_34)))))" "(values" " table_108)))))" "(if(not" " #f)" -"(for-loop_94" +"(for-loop_95" " table_106" "(hash-iterate-next" " ht_72" -" i_86))" +" i_87))" " table_106)))" " table_105)))))" -" for-loop_94)" +" for-loop_95)" " '#hash()" "(hash-iterate-first" " ht_72))))))))" "(hash-set" " table_103" " key_39" -" val_32)))))" +" val_33)))))" "(values table_104)))))" "(if(not #f)" -"(for-loop_93 table_102(hash-iterate-next ht_71 i_85))" +"(for-loop_94 table_102(hash-iterate-next ht_71 i_86))" " table_102)))" " table_101)))))" -" for-loop_93)" +" for-loop_94)" " '#hasheqv()" "(hash-iterate-first ht_71))))))" "(begin(set-module-access! m_10 access_0) access_0)))))" @@ -14629,7 +14841,7 @@ static const char *startup_source = "(resolve+shift/extra-inspector)" "(lambda(id_13 phase_35 ns_43)" "(begin" -"((letrec-values(((loop_75)" +"((letrec-values(((loop_78)" "(lambda(id_14 in-s_1)" "(begin" " 'loop" @@ -14656,7 +14868,7 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((next-b_0)" -"(loop_75" +"(loop_78" " next-id_0" "(let-values(((or-part_78) in-s_1))" "(if or-part_78 or-part_78 id_14)))))" @@ -14696,7 +14908,7 @@ static const char *startup_source = "(let-values() next-b_0))))))" " c1_24)" "(let-values() b_59))))))))" -" loop_75)" +" loop_78)" " id_13" " #f))))" "(define-values" @@ -14750,17 +14962,17 @@ static const char *startup_source = "(let-values(((ref_0)(list-ref info_1 3)))" "(if(integer? v_26)" "(let-values()" -"(lambda(t_34)" -"(let-values(((p_31)(ref_0 t_34 v_26)))" +"(lambda(t_35)" +"(let-values(((p_31)(ref_0 t_35 v_26)))" "(if(if(procedure? p_31)(procedure-arity-includes? p_31 1) #f)" " p_31" " (lambda (s_3) (error \"bad syntax:\" s_3))))))" -"(let-values()(lambda(t_13) v_26)))))))))" +"(let-values()(lambda(t_14) v_26)))))))))" "(define-values" "(1/make-set!-transformer)" "(let-values()" "(let-values(((struct:set!-transformer_0 set!-transformer1_0 set!-transformer?_0 set!-transformer-proc_0)" -"(let-values(((struct:_38 make-_38 ?_38 -ref_38 -set!_38)" +"(let-values(((struct:_39 make-_39 ?_39 -ref_39 -set!_39)" "(let-values()" "(let-values()" "(make-struct-type" @@ -14775,7 +14987,7 @@ static const char *startup_source = " '(0)" " #f" " 'set!-transformer)))))" -"(values struct:_38 make-_38 ?_38(make-struct-field-accessor -ref_38 0 'proc)))))" +"(values struct:_39 make-_39 ?_39(make-struct-field-accessor -ref_39 0 'proc)))))" "(lambda(proc_3)" "(begin" " 'make-set!-transformer" @@ -14786,21 +14998,21 @@ static const char *startup_source = "(set!-transformer1_0 proc_3)))))))" "(define-values" "(1/set!-transformer-procedure)" -"(lambda(t_37)" +"(lambda(t_38)" "(begin" " 'set!-transformer-procedure" -"(let-values(((v_97)((set!-transformer-value t_37) t_37)))" -"(if(procedure-arity-includes? v_97 1) v_97(lambda(s_166)(v_97 t_37 s_166)))))))" +"(let-values(((v_97)((set!-transformer-value t_38) t_38)))" +"(if(procedure-arity-includes? v_97 1) v_97(lambda(s_169)(v_97 t_38 s_169)))))))" "(define-values(empty-env) '#hasheq())" "(define-values(env-extend)(lambda(env_0 key_41 val_21)(begin(hash-set env_0 key_41 val_21))))" "(define-values(variable)(gensym 'variable))" "(define-values" "(variable?)" -"(lambda(t_13)" -"(begin(let-values(((or-part_10)(eq? t_13 variable)))(if or-part_10 or-part_10(local-variable? t_13))))))" +"(lambda(t_14)" +"(begin(let-values(((or-part_10)(eq? t_14 variable)))(if or-part_10 or-part_10(local-variable? t_14))))))" "(define-values" "(struct:local-variable local-variable1.1 local-variable? local-variable-id)" -"(let-values(((struct:_30 make-_30 ?_30 -ref_30 -set!_30)" +"(let-values(((struct:_31 make-_31 ?_31 -ref_31 -set!_31)" "(let-values()" "(let-values()" "(make-struct-type" @@ -14815,18 +15027,18 @@ static const char *startup_source = " '(0)" " #f" " 'local-variable)))))" -"(values struct:_30 make-_30 ?_30(make-struct-field-accessor -ref_30 0 'id))))" +"(values struct:_31 make-_31 ?_31(make-struct-field-accessor -ref_31 0 'id))))" "(define-values" "(substitute-variable6.1)" "(lambda(no-stops?2_0 id4_0 t5_0)" "(begin" " 'substitute-variable6" "(let-values(((id_15) id4_0))" -"(let-values(((t_38) t5_0))" +"(let-values(((t_39) t5_0))" "(let-values(((no-stops?_0) no-stops?2_0))" "(let-values()" -"(if(if no-stops?_0(local-variable? t_38) #f)" -"(let-values(((bind-id_0)(local-variable-id t_38)))" +"(if(if no-stops?_0(local-variable? t_39) #f)" +"(let-values(((bind-id_0)(local-variable-id t_39)))" "(syntax-rearm$1" "(datum->syntax$1(syntax-disarm$1 bind-id_0)(syntax-e$1 bind-id_0) id_15 id_15)" " id_15))" @@ -14834,20 +15046,20 @@ static const char *startup_source = "(define-values(missing)(gensym 'missing))" "(define-values" "(transformer?)" -"(lambda(t_39)" -"(begin" -"(let-values(((or-part_32)(procedure? t_39)))" -"(if or-part_32" -" or-part_32" -"(let-values(((or-part_156)(1/set!-transformer? t_39)))" -"(if or-part_156 or-part_156(1/rename-transformer? t_39))))))))" -"(define-values" -"(transformer->procedure)" "(lambda(t_40)" "(begin" -"(if(1/set!-transformer? t_40)" -"(let-values()(1/set!-transformer-procedure t_40))" -"(if(1/rename-transformer? t_40)(let-values()(lambda(s_167) s_167))(let-values() t_40))))))" +"(let-values(((or-part_32)(procedure? t_40)))" +"(if or-part_32" +" or-part_32" +"(let-values(((or-part_156)(1/set!-transformer? t_40)))" +"(if or-part_156 or-part_156(1/rename-transformer? t_40))))))))" +"(define-values" +"(transformer->procedure)" +"(lambda(t_41)" +"(begin" +"(if(1/set!-transformer? t_41)" +"(let-values()(1/set!-transformer-procedure t_41))" +"(if(1/rename-transformer? t_41)(let-values()(lambda(s_170) s_170))(let-values() t_41))))))" "(define-values" "(struct:core-form core-form9.1 core-form? core-form-expander core-form-name)" "(let-values(((struct:_24 make-_24 ?_24 -ref_24 -set!_24)" @@ -14888,26 +15100,26 @@ static const char *startup_source = "((temp56_0)(syntax-e$1 id_16))" "((binding57_0) binding_8)" "((just-for-nominal?58_0) just-for-nominal?_2))" -"(add-binding-in-scopes!20.1 just-for-nominal?58_0 #t temp55_1 temp56_0 binding57_0))))))))))))" +"(add-binding-in-scopes!21.1 just-for-nominal?58_0 #t temp55_1 temp56_0 binding57_0))))))))))))" "(define-values" "(add-bulk-binding!27.1)" -"(lambda(in20_0 in22_0 shadow-except21_0 shadow-except23_1 s24_0 binding25_0 phase26_1)" +"(lambda(in20_0 in22_0 shadow-except21_0 shadow-except23_0 s24_0 binding25_0 phase26_1)" "(begin" " 'add-bulk-binding!27" -"(let-values(((s_168) s24_0))" +"(let-values(((s_171) s24_0))" "(let-values(((binding_9) binding25_0))" "(let-values(((phase_37) 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(((shadow-except_2)(if shadow-except23_0 shadow-except21_0 #f)))" "(let-values()" "(begin" -"(if(syntax-tainted?$1 s_168)" -" (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_168))" +"(if(syntax-tainted?$1 s_171)" +" (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_171))" "(void))" -"(let-values(((temp59_1)(syntax-scope-set s_168 phase_37))" +"(let-values(((temp59_1)(syntax-scope-set s_171 phase_37))" "((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))))))))))))" +"(add-bulk-binding-in-scopes!28.1 shadow-except61_0 #t temp59_1 binding60_0))))))))))))" "(define-values" "(add-local-binding!37.1)" "(lambda(frame-id30_0 frame-id32_1 in31_0 in33_0 id34_0 phase35_0 counter36_0)" @@ -14929,7 +15141,7 @@ static const char *startup_source = "((temp64_1)" "(let-values(((key65_0) key_42)((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))" +"(add-binding-in-scopes!21.1 #f #f temp62_0 temp63_1 temp64_1))" " key_42)))))))))))))" "(define-values" "(check-id-taint)" @@ -14976,7 +15188,7 @@ static const char *startup_source = " ns_44" "(if mi_15(module-instance-namespace mi_15) #f))))" "(let-values((()(begin(check-taint id_19)(values))))" -"(let-values(((t_41)" +"(let-values(((t_42)" "(namespace-get-transformer" " m-ns_7" "(module-binding-phase b_60)" @@ -14989,7 +15201,7 @@ static const char *startup_source = " mi_15" " id_19" " in-s_6" -" (if (variable? t_41) \"variable\" \"transformer\"))" +" (if (variable? t_42) \"variable\" \"transformer\"))" " #f)))" "(let-values(((insp_6)" "(if mi_15" @@ -14997,28 +15209,28 @@ static const char *startup_source = "(module-inspector(module-instance-module mi_15))" " #f)" " #f)))" -"(values t_41 primitive?_1 insp_6 protected?_1)))))))))))" +"(values t_42 primitive?_1 insp_6 protected?_1)))))))))))" "(if(local-binding? b_60)" "(let-values()" -"(let-values(((t_42)(hash-ref env_1(local-binding-key b_60) missing)))" -"(if(eq? t_42 missing)" +"(let-values(((t_43)(hash-ref env_1(local-binding-key b_60) missing)))" +"(if(eq? t_43 missing)" "(let-values()" "(values" "(let-values(((or-part_157)" -"(let-values(((lst_73) lift-envs_0))" +"(let-values(((lst_72) lift-envs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_73)))" -"((letrec-values(((for-loop_95)" -"(lambda(result_61 lst_74)" +"(let-values()(check-list lst_72)))" +"((letrec-values(((for-loop_96)" +"(lambda(result_61 lst_73)" "(begin" " 'for-loop" -"(if(pair? lst_74)" +"(if(pair? lst_73)" "(let-values(((lift-env_0)" -"(unsafe-car lst_74))" -"((rest_34)" -"(unsafe-cdr lst_74)))" +"(unsafe-car lst_73))" +"((rest_33)" +"(unsafe-cdr lst_73)))" "(let-values(((result_62)" "(let-values()" "(let-values(((result_63)" @@ -15037,12 +15249,12 @@ static const char *startup_source = " lift-env_0))" "(not #f)" " #f)" -"(for-loop_95 result_62 rest_34)" +"(for-loop_96 result_62 rest_33)" " result_62)))" " result_61)))))" -" for-loop_95)" +" for-loop_96)" " #f" -" lst_73)))))" +" lst_72)))))" "(if or-part_157" " or-part_157" "(if out-of-context-as-variable?_0" @@ -15051,7 +15263,7 @@ static const char *startup_source = " #f" " #f" " #f))" -"(let-values()(begin(check-taint id_19)(values t_42 #f #f #f))))))" +"(let-values()(begin(check-taint id_19)(values t_43 #f #f #f))))))" " (let-values () (error \"internal error: unknown binding for lookup:\" b_60))))))))))))))))" "(define-values" "(check-taint)" @@ -15065,35 +15277,35 @@ static const char *startup_source = "(free-id-set)" "(lambda(phase_40 ids_0)" "(begin" -"(let-values(((lst_75) ids_0))" +"(let-values(((lst_74) ids_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_75)))" -"((letrec-values(((for-loop_96)" -"(lambda(ht_73 lst_76)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_74)))" +"((letrec-values(((for-loop_97)" +"(lambda(ht_73 lst_75)" "(begin" " 'for-loop" -"(if(pair? lst_76)" -"(let-values(((id_21)(unsafe-car lst_76))((rest_35)(unsafe-cdr lst_76)))" +"(if(pair? lst_75)" +"(let-values(((id_21)(unsafe-car lst_75))((rest_34)(unsafe-cdr lst_75)))" "(let-values(((ht_74)" "(let-values(((ht_75) ht_73))" "(let-values(((ht_76)" "(let-values()" -"(let-values(((sym_22)" +"(let-values(((sym_23)" "(identifier-binding-symbol$1" " id_21" " phase_40)))" "(hash-set" " ht_75" -" sym_22" +" sym_23" "(cons-ish" " id_21" -"(hash-ref ht_75 sym_22 null)))))))" +"(hash-ref ht_75 sym_23 null)))))))" "(values ht_76)))))" -"(if(not #f)(for-loop_96 ht_74 rest_35) ht_74)))" +"(if(not #f)(for-loop_97 ht_74 rest_34) ht_74)))" " ht_73)))))" -" for-loop_96)" +" for-loop_97)" " '#hasheq()" -" lst_75))))))" +" lst_74))))))" "(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" @@ -15102,16 +15314,16 @@ static const char *startup_source = "(begin" "(if(free-id-set-empty? fs_1)" " #f" -"(let-values(((lst_77)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_41) null)))" +"(let-values(((lst_76)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_41) null)))" "(begin" "(void)" -"((letrec-values(((for-loop_97)" -"(lambda(result_3 lst_78)" +"((letrec-values(((for-loop_98)" +"(lambda(result_3 lst_77)" "(begin" " 'for-loop" -"(if(not(null? lst_78))" -"(let-values(((id_2)(if(pair? lst_78)(car lst_78) lst_78))" -"((rest_36)(if(pair? lst_78)(cdr lst_78) null)))" +"(if(not(null? lst_77))" +"(let-values(((id_2)(if(pair? lst_77)(car lst_77) lst_77))" +"((rest_35)(if(pair? lst_77)(cdr lst_77) null)))" "(let-values(((result_64)" "(let-values()" "(let-values(((result_65)" @@ -15124,12 +15336,12 @@ static const char *startup_source = " phase_41)))))" "(values result_65)))))" "(if(if(not((lambda x_41 result_64) id_2))(not #f) #f)" -"(for-loop_97 result_64 rest_36)" +"(for-loop_98 result_64 rest_35)" " result_64)))" " result_3)))))" -" for-loop_97)" +" for-loop_98)" " #f" -" lst_77)))))))" +" lst_76)))))))" "(define-values" "(free-id-set-empty-or-just-module*?)" "(lambda(fs_2)(begin(let-values(((c_17)(hash-count fs_2)))(<= c_17 1)))))" @@ -15148,7 +15360,7 @@ static const char *startup_source = " expand-context/outer-need-eventually-defined" " expand-context/outer-current-introduction-scopes" " expand-context/outer-name)" -"(let-values(((struct:_34 make-_34 ?_34 -ref_34 -set!_34)" +"(let-values(((struct:_35 make-_35 ?_35 -ref_35 -set!_35)" "(let-values()" "(let-values()" "(make-struct-type" @@ -15164,20 +15376,20 @@ static const char *startup_source = " #f" " 'expand-context/outer)))))" "(values" -" struct:_34" -" make-_34" -" ?_34" -"(make-struct-field-accessor -ref_34 0 'context)" -"(make-struct-field-accessor -ref_34 1 'env)" -"(make-struct-field-accessor -ref_34 2 'post-expansion-scope-action)" -"(make-struct-field-accessor -ref_34 3 'scopes)" -"(make-struct-field-accessor -ref_34 4 'def-ctx-scopes)" -"(make-struct-field-accessor -ref_34 5 'binding-layer)" -"(make-struct-field-accessor -ref_34 6 'reference-records)" -"(make-struct-field-accessor -ref_34 7 'only-immediate?)" -"(make-struct-field-accessor -ref_34 8 'need-eventually-defined)" -"(make-struct-field-accessor -ref_34 9 'current-introduction-scopes)" -"(make-struct-field-accessor -ref_34 10 'name))))" +" struct:_35" +" make-_35" +" ?_35" +"(make-struct-field-accessor -ref_35 0 'context)" +"(make-struct-field-accessor -ref_35 1 'env)" +"(make-struct-field-accessor -ref_35 2 'post-expansion-scope-action)" +"(make-struct-field-accessor -ref_35 3 'scopes)" +"(make-struct-field-accessor -ref_35 4 'def-ctx-scopes)" +"(make-struct-field-accessor -ref_35 5 'binding-layer)" +"(make-struct-field-accessor -ref_35 6 'reference-records)" +"(make-struct-field-accessor -ref_35 7 'only-immediate?)" +"(make-struct-field-accessor -ref_35 8 'need-eventually-defined)" +"(make-struct-field-accessor -ref_35 9 'current-introduction-scopes)" +"(make-struct-field-accessor -ref_35 10 'name))))" "(define-values" "(struct:expand-context/inner" " expand-context/inner2.1" @@ -15201,7 +15413,7 @@ static const char *startup_source = " expand-context/inner-observer" " expand-context/inner-for-serializable?" " expand-context/inner-should-not-encounter-macros?)" -"(let-values(((struct:_39 make-_39 ?_39 -ref_39 -set!_39)" +"(let-values(((struct:_40 make-_40 ?_40 -ref_40 -set!_40)" "(let-values()" "(let-values()" "(make-struct-type" @@ -15217,28 +15429,28 @@ static const char *startup_source = " #f" " 'expand-context/inner)))))" "(values" -" struct:_39" -" make-_39" -" ?_39" -"(make-struct-field-accessor -ref_39 0 'to-parsed?)" -"(make-struct-field-accessor -ref_39 1 'phase)" -"(make-struct-field-accessor -ref_39 2 'namespace)" -"(make-struct-field-accessor -ref_39 3 'just-once?)" -"(make-struct-field-accessor -ref_39 4 'module-begin-k)" -"(make-struct-field-accessor -ref_39 5 'allow-unbound?)" -"(make-struct-field-accessor -ref_39 6 'in-local-expand?)" -"(make-struct-field-accessor -ref_39 7 'keep-#%expression?)" -"(make-struct-field-accessor -ref_39 8 'stops)" -"(make-struct-field-accessor -ref_39 9 'declared-submodule-names)" -"(make-struct-field-accessor -ref_39 10 'lifts)" -"(make-struct-field-accessor -ref_39 11 'lift-envs)" -"(make-struct-field-accessor -ref_39 12 'module-lifts)" -"(make-struct-field-accessor -ref_39 13 'require-lifts)" -"(make-struct-field-accessor -ref_39 14 'to-module-lifts)" -"(make-struct-field-accessor -ref_39 15 'requires+provides)" -"(make-struct-field-accessor -ref_39 16 'observer)" -"(make-struct-field-accessor -ref_39 17 'for-serializable?)" -"(make-struct-field-accessor -ref_39 18 'should-not-encounter-macros?))))" +" struct:_40" +" make-_40" +" ?_40" +"(make-struct-field-accessor -ref_40 0 'to-parsed?)" +"(make-struct-field-accessor -ref_40 1 'phase)" +"(make-struct-field-accessor -ref_40 2 'namespace)" +"(make-struct-field-accessor -ref_40 3 'just-once?)" +"(make-struct-field-accessor -ref_40 4 'module-begin-k)" +"(make-struct-field-accessor -ref_40 5 'allow-unbound?)" +"(make-struct-field-accessor -ref_40 6 'in-local-expand?)" +"(make-struct-field-accessor -ref_40 7 'keep-#%expression?)" +"(make-struct-field-accessor -ref_40 8 'stops)" +"(make-struct-field-accessor -ref_40 9 'declared-submodule-names)" +"(make-struct-field-accessor -ref_40 10 'lifts)" +"(make-struct-field-accessor -ref_40 11 'lift-envs)" +"(make-struct-field-accessor -ref_40 12 'module-lifts)" +"(make-struct-field-accessor -ref_40 13 'require-lifts)" +"(make-struct-field-accessor -ref_40 14 'to-module-lifts)" +"(make-struct-field-accessor -ref_40 15 'requires+provides)" +"(make-struct-field-accessor -ref_40 16 'observer)" +"(make-struct-field-accessor -ref_40 17 'for-serializable?)" +"(make-struct-field-accessor -ref_40 18 'should-not-encounter-macros?))))" "(define-values" "(expand-context/make)" "(lambda(self-mpi_2" @@ -15614,27 +15826,27 @@ static const char *startup_source = "(if(expand-context-name wrt-ctx_0)" "(let-values()" "(let-values(((v_132) ctx_4))" -"(let-values(((the-struct_21) v_132))" -"(if(expand-context/outer? the-struct_21)" +"(let-values(((the-struct_18) v_132))" +"(if(expand-context/outer? the-struct_18)" "(let-values(((name46_0)(expand-context-name wrt-ctx_0))" "((inner47_0)(root-expand-context/outer-inner v_132)))" "(expand-context/outer1.1" " inner47_0" -"(root-expand-context/outer-post-expansion-scope the-struct_21)" -"(root-expand-context/outer-use-site-scopes the-struct_21)" -"(root-expand-context/outer-frame-id the-struct_21)" -"(expand-context/outer-context the-struct_21)" -"(expand-context/outer-env the-struct_21)" -"(expand-context/outer-post-expansion-scope-action the-struct_21)" -"(expand-context/outer-scopes the-struct_21)" -"(expand-context/outer-def-ctx-scopes the-struct_21)" -"(expand-context/outer-binding-layer the-struct_21)" -"(expand-context/outer-reference-records the-struct_21)" -"(expand-context/outer-only-immediate? the-struct_21)" -"(expand-context/outer-need-eventually-defined the-struct_21)" -"(expand-context/outer-current-introduction-scopes the-struct_21)" +"(root-expand-context/outer-post-expansion-scope the-struct_18)" +"(root-expand-context/outer-use-site-scopes the-struct_18)" +"(root-expand-context/outer-frame-id the-struct_18)" +"(expand-context/outer-context the-struct_18)" +"(expand-context/outer-env the-struct_18)" +"(expand-context/outer-post-expansion-scope-action the-struct_18)" +"(expand-context/outer-scopes the-struct_18)" +"(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)" +"(expand-context/outer-only-immediate? the-struct_18)" +"(expand-context/outer-need-eventually-defined the-struct_18)" +"(expand-context/outer-current-introduction-scopes the-struct_18)" " name46_0))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_21)))))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_18)))))" "(let-values() ctx_4))))))))" "(define-values" "(as-named-context)" @@ -15724,14 +15936,14 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_44)))))))" "(define-values" "(to-syntax-list.1)" -"(lambda(s_169)" +"(lambda(s_172)" "(begin" " 'to-syntax-list" -"(if(list? s_169)" -"(let-values() s_169)" -"(if(pair? s_169)" -"(let-values()(let-values(((r_28)(to-syntax-list.1(cdr s_169))))(if r_28(cons(car s_169) r_28) #f)))" -"(if(syntax?$1 s_169)(let-values()(to-syntax-list.1(syntax-e$1 s_169)))(let-values() #f)))))))" +"(if(list? s_172)" +"(let-values() s_172)" +"(if(pair? s_172)" +"(let-values()(let-values(((r_28)(to-syntax-list.1(cdr s_172))))(if r_28(cons(car s_172) r_28) #f)))" +"(if(syntax?$1 s_172)(let-values()(to-syntax-list.1(syntax-e$1 s_172)))(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))" @@ -15747,8 +15959,8 @@ static const char *startup_source = "(let-values(((or-part_6)(hash-ref id-cache-0 sym_12 #f)))" "(if or-part_6" " or-part_6" -"(let-values(((s_170)(datum->syntax$1 core-stx sym_12)))" -"(begin(hash-set! id-cache-0 sym_12 s_170) s_170)))))" +"(let-values(((s_173)(datum->syntax$1 core-stx sym_12)))" +"(begin(hash-set! id-cache-0 sym_12 s_173) s_173)))))" "(if(eq? phase_35 1)" "(let-values()" "(let-values(((or-part_28)(hash-ref id-cache-1 sym_12 #f)))" @@ -15761,19 +15973,19 @@ static const char *startup_source = "(define-values(core-primitives) '#hasheq())" "(define-values" "(add-core-form!*)" -"(lambda(sym_23 proc_4)" -"(begin(begin(add-core-binding! sym_23)(set! core-forms(hash-set core-forms sym_23 proc_4))))))" +"(lambda(sym_24 proc_4)" +"(begin(begin(add-core-binding! sym_24)(set! core-forms(hash-set core-forms sym_24 proc_4))))))" "(define-values" "(add-core-primitive!)" -"(lambda(sym_0 val_34)" -"(begin(begin(add-core-binding! sym_0)(set! core-primitives(hash-set core-primitives sym_0 val_34))))))" +"(lambda(sym_0 val_35)" +"(begin(begin(add-core-binding! sym_0)(set! core-primitives(hash-set core-primitives sym_0 val_35))))))" "(define-values" "(add-core-binding!)" -"(lambda(sym_24)" +"(lambda(sym_25)" "(begin" -"(let-values(((temp1_0)(datum->syntax$1 core-stx sym_24))" +"(let-values(((temp1_0)(datum->syntax$1 core-stx sym_25))" "((temp2_1)" -"(let-values(((core-mpi4_0) core-mpi)((temp5_2) 0)((sym6_0) sym_24))" +"(let-values(((core-mpi4_0) core-mpi)((temp5_2) 0)((sym6_0) sym_25))" "(make-module-binding22.1" " #f" " #f" @@ -15811,23 +16023,23 @@ static const char *startup_source = "((temp14_1)" "(hasheqv" " 0" -"(let-values(((lst_79)(list core-primitives core-forms))((lst_80) '(#f #t)))" +"(let-values(((lst_78)(list core-primitives core-forms))((lst_79) '(#f #t)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_78)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_79)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_80)))" -"((letrec-values(((for-loop_98)" -"(lambda(table_109 lst_81 lst_82)" +"((letrec-values(((for-loop_99)" +"(lambda(table_109 lst_80 lst_81)" "(begin" " 'for-loop" -"(if(if(pair? lst_81)(pair? lst_82) #f)" -"(let-values(((syms_12)(unsafe-car lst_81))" -"((rest_37)(unsafe-cdr lst_81))" -"((syntax?_2)(unsafe-car lst_82))" -"((rest_38)(unsafe-cdr lst_82)))" +"(if(if(pair? lst_80)(pair? lst_81) #f)" +"(let-values(((syms_12)(unsafe-car lst_80))" +"((rest_36)(unsafe-cdr lst_80))" +"((syntax?_2)(unsafe-car lst_81))" +"((rest_37)(unsafe-cdr lst_81)))" "(let-values(((table_110)" "(let-values(((table_111) table_109))" "(let-values(((ht_77) syms_12))" @@ -15837,31 +16049,31 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash-keys ht_77)))" -"((letrec-values(((for-loop_99)" +"((letrec-values(((for-loop_100)" "(lambda(table_112" -" i_39)" +" i_41)" "(begin" " 'for-loop" -"(if i_39" -"(let-values(((sym_25)" +"(if i_41" +"(let-values(((sym_26)" "(hash-iterate-key" " ht_77" -" i_39)))" +" i_41)))" "(let-values(((table_113)" "(let-values(((table_114)" " table_112))" "(let-values(((table_115)" "(let-values()" "(let-values(((key_43" -" val_35)" +" val_36)" "(let-values()" "(let-values(((b_62)" "(let-values(((core-mpi17_0)" " core-mpi)" "((temp18_3)" " 0)" -"((sym19_0)" -" sym_25))" +"((sym19_1)" +" sym_26))" "(make-module-binding22.1" " #f" " #f" @@ -15883,9 +16095,9 @@ static const char *startup_source = " #f" " core-mpi17_0" " temp18_3" -" sym19_0))))" +" sym19_1))))" "(values" -" sym_25" +" sym_26" "(if syntax?_2" "(provided1.1" " b_62" @@ -15895,29 +16107,29 @@ static const char *startup_source = "(hash-set" " table_114" " key_43" -" val_35)))))" +" val_36)))))" "(values" " table_115)))))" "(if(not" " #f)" -"(for-loop_99" +"(for-loop_100" " table_113" "(hash-iterate-next" " ht_77" -" i_39))" +" i_41))" " table_113)))" " table_112)))))" -" for-loop_99)" +" for-loop_100)" " table_111" "(hash-iterate-first ht_77)))))))" "(if(not #f)" -"(for-loop_98 table_110 rest_37 rest_38)" +"(for-loop_99 table_110 rest_36 rest_37)" " table_110)))" " table_109)))))" -" for-loop_98)" +" for-loop_99)" " '#hasheq()" -" lst_79" -" lst_80)))))" +" lst_78" +" lst_79)))))" "((temp15_1)" "(lambda(phase-level_14 ns_47 insp_7)" "(if(zero? phase-level_14)" @@ -15947,8 +16159,8 @@ static const char *startup_source = " self_5" " bulk-binding-registry_4" " insp_8)" -"(let-values(((tmp_13) phase-level_15))" -"(if(equal? tmp_13 0)" +"(let-values(((tmp_14) phase-level_15))" +"(if(equal? tmp_14 0)" "(let-values()" "(begin" "(let-values(((ht_78) core-primitives))" @@ -15956,15 +16168,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_78)))" -"((letrec-values(((for-loop_100)" -"(lambda(i_87)" +"((letrec-values(((for-loop_101)" +"(lambda(i_88)" "(begin" " 'for-loop" -"(if i_87" -"(let-values(((sym_26 val_36)" +"(if i_88" +"(let-values(((sym_27 val_37)" "(hash-iterate-key+value" " ht_78" -" i_87)))" +" i_88)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -15974,16 +16186,16 @@ static const char *startup_source = "(namespace-set-consistent!" " ns_49" " 0" -" sym_26" -" val_36))" +" sym_27" +" val_37))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_100" -"(hash-iterate-next ht_78 i_87))" +"(for-loop_101" +"(hash-iterate-next ht_78 i_88))" "(values))))" "(values))))))" -" for-loop_100)" +" for-loop_101)" "(hash-iterate-first ht_78))))" "(void)" "(let-values(((ht_79) core-forms))" @@ -15991,15 +16203,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_79)))" -"((letrec-values(((for-loop_101)" -"(lambda(i_88)" +"((letrec-values(((for-loop_102)" +"(lambda(i_89)" "(begin" " 'for-loop" -"(if i_88" -"(let-values(((sym_27 proc_5)" +"(if i_89" +"(let-values(((sym_28 proc_5)" "(hash-iterate-key+value" " ht_79" -" i_88)))" +" i_89)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -16009,22 +16221,22 @@ static const char *startup_source = "(namespace-set-transformer!" " ns_49" " 0" -" sym_27" +" sym_28" "(if(procedure-arity-includes?" " proc_5" " 2)" "(core-form9.1" " proc_5" -" sym_27)" +" sym_28)" " proc_5)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_101" -"(hash-iterate-next ht_79 i_88))" +"(for-loop_102" +"(hash-iterate-next ht_79 i_89))" "(values))))" "(values))))))" -" for-loop_101)" +" for-loop_102)" "(hash-iterate-first ht_79))))" "(void)))" "(let-values()(void)))))))" @@ -16069,20 +16281,20 @@ static const char *startup_source = "(lambda(s_19 phase_44)" "(begin" "(let-values(((ok?_0 id23_0 _24_0)" -"(let-values(((s_171) s_19))" -"(if(let-values(((s_83)(if(syntax?$1 s_171)(syntax-e$1 s_171) s_171)))" +"(let-values(((s_174) s_19))" +"(if(let-values(((s_83)(if(syntax?$1 s_174)(syntax-e$1 s_174) s_174)))" "(if(pair? s_83)" -"(if(let-values(((s_172)(car s_83)))" -"(let-values(((or-part_160)(if(syntax?$1 s_172)(symbol?(syntax-e$1 s_172)) #f)))" -"(if or-part_160 or-part_160(symbol? s_172))))" -"(let-values(((s_173)(cdr s_83))) #t)" +"(if(let-values(((s_175)(car s_83)))" +"(let-values(((or-part_160)(if(syntax?$1 s_175)(symbol?(syntax-e$1 s_175)) #f)))" +"(if or-part_160 or-part_160(symbol? s_175))))" +"(let-values(((s_176)(cdr s_83))) #t)" " #f)" " #f))" "(let-values()" "(let-values(((id23_1 _24_1)" -"(let-values(((s_82)(if(syntax?$1 s_171)(syntax-e$1 s_171) s_171)))" -"(let-values(((id25_0)(let-values(((s_174)(car s_82))) s_174))" -"((_26_0)(let-values(((s_175)(cdr s_82))) s_175)))" +"(let-values(((s_82)(if(syntax?$1 s_174)(syntax-e$1 s_174) s_174)))" +"(let-values(((id25_0)(let-values(((s_177)(car s_82))) s_177))" +"((_26_0)(let-values(((s_178)(cdr s_82))) s_178)))" "(values id25_0 _26_0)))))" "(values #t id23_1 _24_1)))" "(values #f #f #f)))))" @@ -16100,11 +16312,11 @@ static const char *startup_source = "(taint-dispatch)" "(lambda(s_0 proc_6 phase_34)" "(begin" -"((letrec-values(((loop_76)" -"(lambda(s_72 mode_10)" +"((letrec-values(((loop_79)" +"(lambda(s_72 mode_11)" "(begin" " 'loop" -"(let-values(((tmp_4) mode_10))" +"(let-values(((tmp_4) mode_11))" "(if(equal? tmp_4 'none)" "(let-values() s_72)" "(if(equal? tmp_4 'opaque)" @@ -16112,19 +16324,19 @@ static const char *startup_source = "(if(equal? tmp_4 'transparent)" "(let-values()" "(let-values(((c_18)" -"(let-values(((s_176)" +"(let-values(((s_179)" "(let-values(((or-part_13)(syntax->list$1 s_72)))" "(if or-part_13 or-part_13(syntax-e$1 s_72))))" "((f_1)(lambda(tail?_40 d_18)(begin 'f d_18)))" "((s->_3)" -"(lambda(s_177)" +"(lambda(s_180)" "(begin" " 's->" -"(loop_76" -" s_177" -"(syntax-taint-mode-property s_177)))))" +"(loop_79" +" s_180" +"(syntax-taint-mode-property s_180)))))" "((seen_19) #f))" -"(let-values(((s_178) s_176)" +"(let-values(((s_181) s_179)" "((f_2) f_1)" "((gf_8)" "(lambda(tail?_41 v_29)" @@ -16134,7 +16346,7 @@ static const char *startup_source = "(let-values()(s->_3 v_29))" "(let-values()(f_1 tail?_41 v_29))))))" "((seen_20) seen_19))" -"((letrec-values(((loop_77)" +"((letrec-values(((loop_80)" "(lambda(tail?_42 s_4 prev-depth_8)" "(begin" " 'loop" @@ -16145,8 +16357,8 @@ static const char *startup_source = "(datum-map-slow" " tail?_42" " s_4" -"(lambda(tail?_43 s_179)" -"(gf_8 tail?_43 s_179))" +"(lambda(tail?_43 s_182)" +"(gf_8 tail?_43 s_182))" " seen_20))" "(if(null? s_4)" "(let-values()(f_2 tail?_42 s_4))" @@ -16155,8 +16367,8 @@ static const char *startup_source = "(f_2" " tail?_42" "(cons" -"(loop_77 #f(car s_4) depth_8)" -"(loop_77" +"(loop_80 #f(car s_4) depth_8)" +"(loop_80" " #t" "(cdr s_4)" " depth_8))))" @@ -16188,18 +16400,18 @@ static const char *startup_source = " tail?_42" " s_4" "(lambda(tail?_44" -" s_180)" +" s_183)" "(gf_8" " tail?_44" -" s_180))" +" s_183))" " seen_20))" "(let-values()" "(gf_8" " #f" " s_4))))))))))))))" -" loop_77)" +" loop_80)" " #f" -" s_178" +" s_181" " 0)))))" "(datum->syntax$1" " #f" @@ -16223,34 +16435,34 @@ static const char *startup_source = "(datum->syntax$1" " #f" "(cons" -"(loop_76(car c_19)(syntax-taint-mode-property(car c_19)))" +"(loop_79(car c_19)(syntax-taint-mode-property(car c_19)))" "(cons" -"(loop_76(car d_19) 'transparent)" +"(loop_79(car d_19) 'transparent)" "(let-values(((s_5)" "(let-values(((or-part_161)" "(syntax->list$1(cdr d_19))))" "(if or-part_161 or-part_161(cdr d_19))))" -"((f_36)(lambda(tail?_1 d_20)(begin 'f d_20)))" +"((f_38)(lambda(tail?_1 d_20)(begin 'f d_20)))" "((s->_4)" -"(lambda(s_181)" +"(lambda(s_184)" "(begin" " 's->" -"(loop_76" -" s_181" -"(syntax-taint-mode-property s_181)))))" +"(loop_79" +" s_184" +"(syntax-taint-mode-property s_184)))))" "((seen_0) #f))" "(let-values(((s_42) s_5)" -"((f_37) f_36)" +"((f_39) f_38)" "((gf_9)" "(lambda(tail?_45 v_39)" "(begin" " 'gf" "(if(syntax?$1 v_39)" "(let-values()(s->_4 v_39))" -"(let-values()(f_36 tail?_45 v_39))))))" +"(let-values()(f_38 tail?_45 v_39))))))" "((seen_21) seen_0))" -"((letrec-values(((loop_78)" -"(lambda(tail?_46 s_182 prev-depth_9)" +"((letrec-values(((loop_81)" +"(lambda(tail?_46 s_185 prev-depth_9)" "(begin" " 'loop" "(let-values(((depth_9)" @@ -16261,67 +16473,67 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_46" -" s_182" -"(lambda(tail?_47 s_183)" -"(gf_9 tail?_47 s_183))" +" s_185" +"(lambda(tail?_47 s_186)" +"(gf_9 tail?_47 s_186))" " seen_21))" -"(if(null? s_182)" +"(if(null? s_185)" "(let-values()" -"(f_37 tail?_46 s_182))" -"(if(pair? s_182)" +"(f_39 tail?_46 s_185))" +"(if(pair? s_185)" "(let-values()" -"(f_37" +"(f_39" " tail?_46" "(cons" -"(loop_78" +"(loop_81" " #f" -"(car s_182)" +"(car s_185)" " depth_9)" -"(loop_78" +"(loop_81" " #t" -"(cdr s_182)" +"(cdr s_185)" " depth_9))))" -"(if(symbol? s_182)" +"(if(symbol? s_185)" "(let-values()" -"(f_37 #f s_182))" -"(if(boolean? s_182)" +"(f_39 #f s_185))" +"(if(boolean? s_185)" "(let-values()" -"(f_37 #f s_182))" -"(if(number? s_182)" +"(f_39 #f s_185))" +"(if(number? s_185)" "(let-values()" -"(f_37 #f s_182))" +"(f_39 #f s_185))" "(if(let-values(((or-part_162)" "(vector?" -" s_182)))" +" s_185)))" "(if or-part_162" " or-part_162" "(let-values(((or-part_21)" "(box?" -" s_182)))" +" s_185)))" "(if or-part_21" " or-part_21" "(let-values(((or-part_163)" "(prefab-struct-key" -" s_182)))" +" s_185)))" "(if or-part_163" " or-part_163" "(hash?" -" s_182)))))))" +" s_185)))))))" "(let-values()" "(datum-map-slow" " tail?_46" -" s_182" +" s_185" "(lambda(tail?_48" -" s_184)" +" s_187)" "(gf_9" " tail?_48" -" s_184))" +" s_187))" " seen_21))" "(let-values()" "(gf_9" " #f" -" s_182))))))))))))))" -" loop_78)" +" s_185))))))))))))))" +" loop_81)" " #f" " s_42" " 0)))))" @@ -16329,34 +16541,34 @@ static const char *startup_source = "(if(syntax-any-macro-scopes? s_72)" "(1/syntax-property-remove s_72 original-property-sym)" " s_72))))" -"(let-values()(loop_76 s_72 'transparent)))))" -"(let-values()(loop_76 s_72 'transparent)))))" +"(let-values()(loop_79 s_72 'transparent)))))" +"(let-values()(loop_79 s_72 'transparent)))))" "(let-values()" "(let-values(((c_20)(syntax-e$1 s_72)))" -"(let-values(((tmp_14)(core-form-sym c_20 phase_34)))" -"(if(if(equal? tmp_14 'begin)" +"(let-values(((tmp_15)(core-form-sym c_20 phase_34)))" +"(if(if(equal? tmp_15 'begin)" " #t" -"(if(equal? tmp_14 'begin-for-syntax)" +"(if(equal? tmp_15 'begin-for-syntax)" " #t" -"(equal? tmp_14 '#%module-begin)))" -"(let-values()(loop_76 s_72 'transparent))" -"(if(if(equal? tmp_14 'define-values)" +"(equal? tmp_15 '#%module-begin)))" +"(let-values()(loop_79 s_72 'transparent))" +"(if(if(equal? tmp_15 'define-values)" " #t" -"(equal? tmp_14 'define-syntaxes))" -"(let-values()(loop_76 s_72 'transparent-binding))" -"(let-values()(loop_76 s_72 'opaque))))))))))))))))" -" loop_76)" +"(equal? tmp_15 'define-syntaxes))" +"(let-values()(loop_79 s_72 'transparent-binding))" +"(let-values()(loop_79 s_72 'opaque))))))))))))))))" +" loop_79)" " s_0" "(syntax-taint-mode-property s_0)))))" "(define-values" "(syntax-taint-mode-property)" -"(lambda(s_185)" +"(lambda(s_188)" "(begin" -"(let-values(((or-part_164)(syntax-property$1 s_185 'taint-mode)))" -"(if or-part_164 or-part_164(syntax-property$1 s_185 'certify-mode))))))" +"(let-values(((or-part_164)(syntax-property$1 s_188 'taint-mode)))" +"(if or-part_164 or-part_164(syntax-property$1 s_188 'certify-mode))))))" "(define-values" "(syntax-remove-taint-dispatch-properties)" -"(lambda(s_186)(begin(1/syntax-property-remove(1/syntax-property-remove s_186 'taint-mode) 'certify-mode))))" +"(lambda(s_189)(begin(1/syntax-property-remove(1/syntax-property-remove s_189 'taint-mode) 'certify-mode))))" "(define-values(current-module-code-inspector)(make-parameter #f))" "(define-values" "(syntax-debug-info$1)" @@ -16365,18 +16577,18 @@ static const char *startup_source = " 'syntax-debug-info" "(let-values(((hts_0)" "(reverse$1" -"(let-values(((lst_76)(fallback->list(syntax-shifted-multi-scopes s_0))))" +"(let-values(((lst_75)(fallback->list(syntax-shifted-multi-scopes s_0))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_76)))" -"((letrec-values(((for-loop_102)" -"(lambda(fold-var_59 lst_83)" +"(let-values()(check-list lst_75)))" +"((letrec-values(((for-loop_103)" +"(lambda(fold-var_59 lst_82)" "(begin" " 'for-loop" -"(if(pair? lst_83)" -"(let-values(((smss_26)(unsafe-car lst_83))" -"((rest_39)(unsafe-cdr lst_83)))" +"(if(pair? lst_82)" +"(let-values(((smss_26)(unsafe-car lst_82))" +"((rest_38)(unsafe-cdr lst_82)))" "(let-values(((fold-var_60)" "(let-values(((fold-var_61) fold-var_59))" "(let-values(((fold-var_62)" @@ -16403,7 +16615,7 @@ static const char *startup_source = " init-ht_0" " 'context" " context_1)))" -"(let-values(((sym_17)" +"(let-values(((sym_18)" "(syntax-e$1" " s_0)))" "(let-values(((bindings_0)" @@ -16424,34 +16636,34 @@ static const char *startup_source = "((letrec-values(((for-loop_47)" "(lambda(bindings_2" " covered-scope-sets_0" -" i_89)" +" i_90)" "(begin" " 'for-loop" -"(if i_89" -"(let-values(((sc_27)" +"(if i_90" +"(let-values(((sc_28)" "(unsafe-immutable-hash-iterate-key" " ht_43" -" i_89)))" +" i_90)))" "(let-values(((bindings_3" " covered-scope-sets_1)" "(let-values(((ht_80" " bulk-bindings_3)" "(let-values(((table_116)" "(scope-binding-table" -" sc_27)))" +" sc_28)))" "(if(hash?" " table_116)" "(values" "(hash-ref" " table_116" -" sym_17" +" sym_18" " '#hash())" " null)" "(values" "(hash-ref" "(table-with-bulk-bindings-syms" " table_116)" -" sym_17" +" sym_18" " '#hash())" "(table-with-bulk-bindings-bulk-bindings" " table_116)))))" @@ -16461,43 +16673,43 @@ static const char *startup_source = " null))" "(begin" " #t" -"((letrec-values(((for-loop_103)" +"((letrec-values(((for-loop_104)" "(lambda(bindings_4" " covered-scope-sets_2" -" i_90)" +" i_91)" "(begin" " 'for-loop" "(if(not" "(null?" -" i_90))" +" i_91))" "(let-values(((scs_15)" "(if(pair?" -" i_90)" +" i_91)" "(let-values()" "(bulk-binding-at-scopes" "(car" -" i_90)))" +" i_91)))" "(let-values()" "(hash-iterate-key" " ht_80" -" i_90))))" +" i_91))))" "((b_64)" "(if(pair?" -" i_90)" +" i_91)" "(let-values()" "(let-values(((bulk_4)" "(bulk-binding-at-bulk" "(car" -" i_90))))" +" i_91))))" "(let-values(((b-info_1)" "(if(symbol-interned?" -" sym_17)" +" sym_18)" "(hash-ref" "(bulk-binding-symbols" " bulk_4" " s_75" " extra-shifts_5)" -" sym_17" +" sym_18" " #f)" " #f)))" "(if b-info_1" @@ -16505,12 +16717,12 @@ static const char *startup_source = " bulk_4)" " bulk_4" " b-info_1" -" sym_17)" +" sym_18)" " #f))))" "(let-values()" "(hash-iterate-value" " ht_80" -" i_90)))))" +" i_91)))))" "(let-values(((bindings_5" " covered-scope-sets_3)" "(let-values(((bindings_6)" @@ -16580,19 +16792,19 @@ static const char *startup_source = " covered-scope-sets_4)))))" "(if(not" " #f)" -"(for-loop_103" +"(for-loop_104" " bindings_5" " covered-scope-sets_3" "(if(pair?" -" i_90)" +" i_91)" "(let-values()" "(cdr" -" i_90))" +" i_91))" "(let-values()" "(let-values(((or-part_7)" "(hash-iterate-next" " ht_80" -" i_90)))" +" i_91)))" "(if or-part_7" " or-part_7" " bulk-bindings_3)))))" @@ -16602,7 +16814,7 @@ static const char *startup_source = "(values" " bindings_4" " covered-scope-sets_2))))))" -" for-loop_103)" +" for-loop_104)" " bindings_2" " covered-scope-sets_0" "(let-values(((or-part_8)" @@ -16618,7 +16830,7 @@ static const char *startup_source = " covered-scope-sets_1" "(unsafe-immutable-hash-iterate-next" " ht_43" -" i_89))" +" i_90))" "(values" " bindings_3" " covered-scope-sets_1))))" @@ -16641,11 +16853,11 @@ static const char *startup_source = " bindings_0)))))))))" " fold-var_61))))" "(values fold-var_62)))))" -"(if(not #f)(for-loop_102 fold-var_60 rest_39) fold-var_60)))" +"(if(not #f)(for-loop_103 fold-var_60 rest_38) fold-var_60)))" " fold-var_59)))))" -" for-loop_102)" +" for-loop_103)" " null" -" lst_76))))))" +" lst_75))))))" "(let-values(((ht_73)(car hts_0)))(if(null?(cdr hts_0)) ht_73(hash-set ht_73 'fallbacks(cdr hts_0))))))))" "(define-values" "(scope-set->context)" @@ -16658,37 +16870,46 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_81)))" -"((letrec-values(((for-loop_104)" -"(lambda(fold-var_63 i_91)" +"((letrec-values(((for-loop_105)" +"(lambda(fold-var_63 i_92)" "(begin" " 'for-loop" -"(if i_91" -"(let-values(((sc_28)(unsafe-immutable-hash-iterate-key ht_81 i_91)))" +"(if i_92" +"(let-values(((sc_29)(unsafe-immutable-hash-iterate-key ht_81 i_92)))" "(let-values(((fold-var_64)" "(let-values(((fold-var_65) fold-var_63))" "(let-values(((fold-var_66)" "(let-values()" "(cons" "(let-values()" -"(if(representative-scope? sc_28)" +"(if(interned-scope? sc_29)" +"(let-values()" "(vector" -"(scope-id sc_28)" -"(scope-kind sc_28)" +"(scope-id sc_29)" +"(scope-kind sc_29)" +"(interned-scope-key sc_29)))" +"(if(representative-scope?" +" sc_29)" +"(let-values()" +"(vector" +"(scope-id sc_29)" +"(scope-kind sc_29)" "(multi-scope-name" "(representative-scope-owner" -" sc_28)))" +" sc_29))))" +"(let-values()" "(vector" -"(scope-id sc_28)" -"(scope-kind sc_28))))" +"(scope-id sc_29)" +"(scope-kind sc_29))))))" " fold-var_65))))" "(values fold-var_66)))))" "(if(not #f)" -"(for-loop_104" +"(for-loop_105" " fold-var_64" -"(unsafe-immutable-hash-iterate-next ht_81 i_91))" +"(unsafe-immutable-hash-iterate-next ht_81 i_92))" " fold-var_64)))" " fold-var_63)))))" -" for-loop_104)" +" for-loop_105)" " null" "(unsafe-immutable-hash-iterate-first ht_81))))))" "((<2_0) <)" @@ -16707,9 +16928,9 @@ static const char *startup_source = "(syntax-debug-info-string id_22 ctx_7)))))" "(define-values" "(syntax-debug-info-string)" -"(lambda(s_187 ctx_8)" +"(lambda(s_190 ctx_8)" "(begin" -"(let-values(((info_3)(syntax-debug-info$1 s_187(expand-context-phase ctx_8) #t)))" +"(let-values(((info_3)(syntax-debug-info$1 s_190(expand-context-phase ctx_8) #t)))" "(if(not" "(let-values(((or-part_26)(pair?(hash-ref info_3 'bindings null))))" "(if or-part_26" @@ -16719,13 +16940,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_6)))" -"((letrec-values(((for-loop_105)" -"(lambda(result_66 lst_84)" +"((letrec-values(((for-loop_106)" +"(lambda(result_66 lst_83)" "(begin" " 'for-loop" -"(if(pair? lst_84)" -"(let-values(((fb-info_0)(unsafe-car lst_84))" -"((rest_40)(unsafe-cdr lst_84)))" +"(if(pair? lst_83)" +"(let-values(((fb-info_0)(unsafe-car lst_83))" +"((rest_39)(unsafe-cdr lst_83)))" "(let-values(((result_1)" "(let-values()" "(let-values(((result_67)" @@ -16738,16 +16959,16 @@ static const char *startup_source = " null))))))" "(values result_67)))))" "(if(if(not((lambda x_27 result_1) fb-info_0))(not #f) #f)" -"(for-loop_105 result_1 rest_40)" +"(for-loop_106 result_1 rest_39)" " result_1)))" " result_66)))))" -" for-loop_105)" +" for-loop_106)" " #f" " lst_6))))))" " (let-values () \"\")" "(let-values()" "(let-values(((relevant-scope-sets_0)" -"((letrec-values(((loop_75)" +"((letrec-values(((loop_78)" "(lambda(info_4 layer_0)" "(begin" " 'loop" @@ -16756,19 +16977,19 @@ static const char *startup_source = "(cons" "(hash-ref info_4 'context)" "(reverse$1" -"(let-values(((lst_85)(hash-ref info_4 'bindings null)))" +"(let-values(((lst_84)(hash-ref info_4 'bindings null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_85)))" -"((letrec-values(((for-loop_106)" -"(lambda(fold-var_67 lst_86)" +"(let-values()(check-list lst_84)))" +"((letrec-values(((for-loop_107)" +"(lambda(fold-var_67 lst_85)" "(begin" " 'for-loop" -"(if(pair? lst_86)" -"(let-values(((b_21)(unsafe-car lst_86))" -"((rest_41)" -"(unsafe-cdr lst_86)))" +"(if(pair? lst_85)" +"(let-values(((b_21)(unsafe-car lst_85))" +"((rest_40)" +"(unsafe-cdr lst_85)))" "(let-values(((fold-var_68)" "(let-values(((fold-var_27)" " fold-var_67))" @@ -16783,31 +17004,31 @@ static const char *startup_source = "(values" " fold-var_28)))))" "(if(not #f)" -"(for-loop_106 fold-var_68 rest_41)" +"(for-loop_107 fold-var_68 rest_40)" " fold-var_68)))" " fold-var_67)))))" -" for-loop_106)" +" for-loop_107)" " null" -" lst_85)))))" +" lst_84)))))" "(let-values(((fallbacks_0)(hash-ref info_4 'fallbacks null)))" "(reverse$1" -"(let-values(((lst_87) fallbacks_0)((start_14)(add1 layer_0)))" +"(let-values(((lst_86) fallbacks_0)((start_14)(add1 layer_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_87)))" +"(let-values()(check-list lst_86)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_14)))" -"((letrec-values(((for-loop_107)" -"(lambda(fold-var_69 lst_88 pos_11)" +"((letrec-values(((for-loop_108)" +"(lambda(fold-var_69 lst_87 pos_11)" "(begin" " 'for-loop" -"(if(if(pair? lst_88) #t #f)" +"(if(if(pair? lst_87) #t #f)" "(let-values(((fallback_0)" -"(unsafe-car lst_88))" -"((rest_42)" -"(unsafe-cdr lst_88))" +"(unsafe-car lst_87))" +"((rest_41)" +"(unsafe-cdr lst_87))" "((layer_1) pos_11))" "(let-values(((fold-var_9)" "(let-values(((fold-var_70)" @@ -16816,56 +17037,56 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(loop_75" +"(loop_78" " fallback_0" " layer_1))" " fold-var_70))))" "(values" " fold-var_71)))))" "(if(not #f)" -"(for-loop_107" +"(for-loop_108" " fold-var_9" -" rest_42" +" rest_41" "(+ pos_11 1))" " fold-var_9)))" " fold-var_69)))))" -" for-loop_107)" +" for-loop_108)" " null" -" lst_87" +" lst_86" " start_14))))))))))" -" loop_75)" +" loop_78)" " info_3" " 0)))" "(let-values(((common-scopes_0)" "(if(null? relevant-scope-sets_0)" "(set)" -"(let-values(((lst_89) relevant-scope-sets_0))" +"(let-values(((lst_88) relevant-scope-sets_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_89)))" -"((letrec-values(((for-loop_108)" -"(lambda(s_181 lst_90)" +"(let-values()(check-list lst_88)))" +"((letrec-values(((for-loop_109)" +"(lambda(s_184 lst_89)" "(begin" " 'for-loop" -"(if(pair? lst_90)" -"(let-values(((l_48)(unsafe-car lst_90))" -"((rest_43)(unsafe-cdr lst_90)))" +"(if(pair? lst_89)" +"(let-values(((l_48)(unsafe-car lst_89))" +"((rest_42)(unsafe-cdr lst_89)))" "(let-values(((s_87)" -"(let-values(((s_43) s_181))" -"(let-values(((s_188)" +"(let-values(((s_43) s_184))" +"(let-values(((s_191)" "(let-values()" "(set-intersect" " s_43" "(list->set l_48)))))" -"(values s_188)))))" -"(if(not #f)(for-loop_108 s_87 rest_43) s_87)))" -" s_181)))))" -" for-loop_108)" +"(values s_191)))))" +"(if(not #f)(for-loop_109 s_87 rest_42) s_87)))" +" s_184)))))" +" for-loop_109)" "(list->set(car relevant-scope-sets_0))" -" lst_89))))))" +" lst_88))))))" "(string-append" -"((letrec-values(((loop_78)" +"((letrec-values(((loop_81)" "(lambda(info_5 layer_2)" "(begin" " 'loop" @@ -16877,7 +17098,7 @@ static const char *startup_source = "(apply" " string-append" "(reverse$1" -"(let-values(((lst_91)" +"(let-values(((lst_90)" "(let-values(((temp1_1)(hash-ref info_5 'bindings null))" "((temp2_2)" "(lambda(a_37 b_65)" @@ -16890,14 +17111,14 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_91)))" -"((letrec-values(((for-loop_104)" -"(lambda(fold-var_63 lst_92)" +"(let-values()(check-list lst_90)))" +"((letrec-values(((for-loop_105)" +"(lambda(fold-var_63 lst_91)" "(begin" " 'for-loop" -"(if(pair? lst_92)" -"(let-values(((b_39)(unsafe-car lst_92))" -"((rest_44)(unsafe-cdr lst_92)))" +"(if(pair? lst_91)" +"(let-values(((b_39)(unsafe-car lst_91))" +"((rest_43)(unsafe-cdr lst_91)))" "(let-values(((fold-var_65)" "(let-values(((fold-var_66)" " fold-var_63))" @@ -16937,31 +17158,31 @@ static const char *startup_source = " fold-var_66))))" "(values fold-var_72)))))" "(if(not #f)" -"(for-loop_104 fold-var_65 rest_44)" +"(for-loop_105 fold-var_65 rest_43)" " fold-var_65)))" " fold-var_63)))))" -" for-loop_104)" +" for-loop_105)" " null" -" lst_91)))))" +" lst_90)))))" "(let-values(((fallbacks_1)(hash-ref info_5 'fallbacks null)))" "(apply" " string-append" "(reverse$1" -"(let-values(((lst_93) fallbacks_1)((start_15)(add1 layer_2)))" +"(let-values(((lst_92) fallbacks_1)((start_15)(add1 layer_2)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_93)))" +"(let-values()(check-list lst_92)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_15)))" -"((letrec-values(((for-loop_109)" -"(lambda(fold-var_73 lst_94 pos_12)" +"((letrec-values(((for-loop_110)" +"(lambda(fold-var_73 lst_93 pos_12)" "(begin" " 'for-loop" -"(if(if(pair? lst_94) #t #f)" -"(let-values(((fallback_1)(unsafe-car lst_94))" -"((rest_45)(unsafe-cdr lst_94))" +"(if(if(pair? lst_93) #t #f)" +"(let-values(((fallback_1)(unsafe-car lst_93))" +"((rest_44)(unsafe-cdr lst_93))" "((layer_3) pos_12))" "(let-values(((fold-var_74)" "(let-values(((fold-var_75)" @@ -16970,23 +17191,23 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(loop_78" +"(loop_81" " fallback_1" " layer_3))" " fold-var_75))))" "(values fold-var_76)))))" "(if(not #f)" -"(for-loop_109" +"(for-loop_110" " fold-var_74" -" rest_45" +" rest_44" "(+ pos_12 1))" " fold-var_74)))" " fold-var_73)))))" -" for-loop_109)" +" for-loop_110)" " null" -" lst_93" +" lst_92" " start_15)))))))))))" -" loop_78)" +" loop_81)" " info_3" " 0)" "(if(set-empty? common-scopes_0)" @@ -16995,41 +17216,41 @@ static const char *startup_source = " \"\\n common scopes...:\"" "(describe-context" "(reverse$1" -"(let-values(((lst_95)(hash-ref info_3 'context)))" +"(let-values(((lst_94)(hash-ref info_3 'context)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_95)))" -"((letrec-values(((for-loop_110)" -"(lambda(fold-var_77 lst_96)" +"(let-values()(check-list lst_94)))" +"((letrec-values(((for-loop_111)" +"(lambda(fold-var_77 lst_95)" "(begin" " 'for-loop" -"(if(pair? lst_96)" -"(let-values(((s_189)(unsafe-car lst_96))" -"((rest_46)(unsafe-cdr lst_96)))" +"(if(pair? lst_95)" +"(let-values(((s_192)(unsafe-car lst_95))" +"((rest_45)(unsafe-cdr lst_95)))" "(let-values(((fold-var_78)" "(let-values(((fold-var_79) fold-var_77))" -"(if(set-member? common-scopes_0 s_189)" +"(if(set-member? common-scopes_0 s_192)" "(let-values(((fold-var_5) fold-var_79))" "(let-values(((fold-var_6)" "(let-values()" "(cons" -"(let-values() s_189)" +"(let-values() s_192)" " fold-var_5))))" "(values fold-var_6)))" " fold-var_79))))" -"(if(not #f)(for-loop_110 fold-var_78 rest_46) fold-var_78)))" +"(if(not #f)(for-loop_111 fold-var_78 rest_45) fold-var_78)))" " fold-var_77)))))" -" for-loop_110)" +" for-loop_111)" " null" -" lst_95))))" +" lst_94))))" "(set)))))))))))))" "(define-values" "(describe-context)" "(lambda(scopes_19 common-scopes_1)" "(begin" "(let-values(((strs_0)" -"((letrec-values(((loop_79)" +"((letrec-values(((loop_82)" "(lambda(strs_1 scopes_20)" "(begin" " 'loop" @@ -17040,28 +17261,28 @@ static const char *startup_source = "(if(if(pair? strs_1)" "(<(+(string-length str_3)(string-length(car strs_1))) 72)" " #f)" -"(loop_79" +"(loop_82" "(cons(string-append(car strs_1) str_3)(cdr strs_1))" "(cdr scopes_20))" -"(loop_79(cons str_3 strs_1)(cdr scopes_20))))))))))" -" loop_79)" +"(loop_82(cons str_3 strs_1)(cdr scopes_20))))))))))" +" loop_82)" " null" "(if(set-empty? common-scopes_1)" " 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_111)" -"(lambda(fold-var_80 lst_98)" +"(let-values()(check-list lst_96)))" +"((letrec-values(((for-loop_112)" +"(lambda(fold-var_80 lst_97)" "(begin" " 'for-loop" -"(if(pair? lst_98)" -"(let-values(((s_24)(unsafe-car lst_98))" -"((rest_47)(unsafe-cdr lst_98)))" +"(if(pair? lst_97)" +"(let-values(((s_24)(unsafe-car lst_97))" +"((rest_46)(unsafe-cdr lst_97)))" "(let-values(((fold-var_81)" "(let-values(((fold-var_82) fold-var_80))" "(if(not(set-member? common-scopes_1 s_24))" @@ -17073,11 +17294,11 @@ static const char *startup_source = " fold-var_83))))" "(values fold-var_84)))" " fold-var_82))))" -"(if(not #f)(for-loop_111 fold-var_81 rest_47) fold-var_81)))" +"(if(not #f)(for-loop_112 fold-var_81 rest_46) fold-var_81)))" " fold-var_80)))))" -" for-loop_111)" +" for-loop_112)" " null" -" lst_97))))" +" lst_96))))" " (list \"[common scopes]\"))))))" "(if(null? strs_0)" " (let-values () \"\\n [empty]\")" @@ -17085,17 +17306,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_112)" -"(lambda(fold-var_85 lst_100)" +"(let-values()(check-list lst_98)))" +"((letrec-values(((for-loop_113)" +"(lambda(fold-var_85 lst_99)" "(begin" " 'for-loop" -"(if(pair? lst_100)" -"(let-values(((str_4)(unsafe-car lst_100))((rest_48)(unsafe-cdr lst_100)))" +"(if(pair? lst_99)" +"(let-values(((str_4)(unsafe-car lst_99))((rest_47)(unsafe-cdr lst_99)))" "(let-values(((fold-var_86)" "(let-values(((fold-var_87) fold-var_85))" "(let-values(((fold-var_14)" @@ -17105,24 +17326,24 @@ static const char *startup_source = " (string-append \"\\n \" str_4))" " fold-var_87))))" "(values fold-var_14)))))" -"(if(not #f)(for-loop_112 fold-var_86 rest_48) fold-var_86)))" +"(if(not #f)(for-loop_113 fold-var_86 rest_47) fold-var_86)))" " fold-var_85)))))" -" for-loop_112)" +" for-loop_113)" " 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)" -"(lambda(s_0 sym_28 trigger-id_0 ctx_8)" +"(lambda(s_0 sym_29 trigger-id_0 ctx_8)" "(begin" "(let-values(((phase_46)(expand-context-phase ctx_8)))" "(let-values(((what_1)" -"(let-values(((tmp_15) sym_28))" -"(if(equal? tmp_15 '#%app)" +"(let-values(((tmp_16) sym_29))" +"(if(equal? tmp_16 '#%app)" " (let-values () \"function application\")" -"(if(equal? tmp_15 '#%datum)" +"(if(equal? tmp_16 '#%datum)" " (let-values () \"literal data\")" -"(if(equal? tmp_15 '#%top)" +"(if(equal? tmp_16 '#%top)" "(let-values()" "(if(expand-context-allow-unbound? ctx_8)" " \"reference to a top-level identifier\"" @@ -17132,7 +17353,7 @@ static const char *startup_source = "(if trigger-id_0" "(not" "(let-values(((trigger-id1_0) trigger-id_0)((phase2_1) phase_46))" -"(resolve40.1 #f #f #f #f #f #f #f #f trigger-id1_0 phase2_1)))" +"(resolve41.1 #f #f #f #f #f #f #f #f trigger-id1_0 phase2_1)))" " #f)))" "(let-values(((unbound-form_0)" "(if unbound?_0(if(not(eq?(syntax-e$1 s_0)(syntax-e$1 trigger-id_0))) s_0 #f) #f)))" @@ -17142,11 +17363,11 @@ static const char *startup_source = "(if unbound?_0" " \"unbound identifier;\\n also, no ~a syntax transformer is bound~a\"" " (string-append what_1 \" is not allowed;\\n no ~a syntax transformer is bound~a\"))" -" sym_28" -"(let-values(((tmp_16) phase_46))" -"(if(equal? tmp_16 0)" +" sym_29" +"(let-values(((tmp_17) phase_46))" +"(if(equal? tmp_17 0)" " (let-values () \"\")" -"(if(equal? tmp_16 1)" +"(if(equal? tmp_17 1)" " (let-values () \" in the transformer phase\")" " (let-values () (format \" at phase ~a\" phase_46))))))" "(if unbound?_0(let-values(((or-part_13) unbound-form_0))(if or-part_13 or-part_13 trigger-id_0)) #f)" @@ -17161,7 +17382,7 @@ static const char *startup_source = " 'check-no-duplicate-ids8" "(let-values(((ids_2) ids5_0))" "(let-values(((phase_47) phase6_0))" -"(let-values(((s_190) s7_1))" +"(let-values(((s_193) s7_1))" "(let-values(((ht_76)(if ht4_0 ht3_0(make-check-no-duplicate-table))))" " (let-values (((what_2) (if what2_0 what1_0 \"binding name\")))" "(let-values()" @@ -17173,19 +17394,19 @@ static const char *startup_source = "(let-values()" "(let-values(((l_49)(hash-ref ht_82(syntax-e$1 v_136) null)))" "(begin" -"(let-values(((lst_77) l_49))" +"(let-values(((lst_76) l_49))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_77)))" -"((letrec-values(((for-loop_97)" -"(lambda(lst_101)" +"(let-values()(check-list lst_76)))" +"((letrec-values(((for-loop_98)" +"(lambda(lst_100)" "(begin" " 'for-loop" -"(if(pair? lst_101)" -"(let-values(((id_14)(unsafe-car lst_101))" -"((rest_49)" -"(unsafe-cdr lst_101)))" +"(if(pair? lst_100)" +"(let-values(((id_14)(unsafe-car lst_100))" +"((rest_48)" +"(unsafe-cdr lst_100)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17202,17 +17423,17 @@ static const char *startup_source = "(string-append" " \"duplicate \"" " what_2)" -" s_190" +" s_193" " v_136))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_97 rest_49)" +"(for-loop_98 rest_48)" "(values))))" "(values))))))" -" for-loop_97)" -" lst_77)))" +" for-loop_98)" +" lst_76)))" "(void)" "(hash-set ht_82(syntax-e$1 v_136)(cons v_136 l_49)))))" "(if(pair? v_136)" @@ -17230,17 +17451,17 @@ 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_113)" +"(let-values()(check-list lst_101)))" +"((letrec-values(((for-loop_114)" "(lambda(fold-var_88 lst_6)" "(begin" " 'for-loop" "(if(pair? lst_6)" -"(let-values(((id_10)(unsafe-car lst_6))((rest_50)(unsafe-cdr lst_6)))" +"(let-values(((id_10)(unsafe-car lst_6))((rest_49)(unsafe-cdr lst_6)))" "(let-values(((fold-var_89)" "(let-values(((fold-var_90) fold-var_88))" "(let-values(((fold-var_60)" @@ -17250,11 +17471,11 @@ static const char *startup_source = "(remove-scopes id_10(unbox use-sites_0)))" " fold-var_90))))" "(values fold-var_60)))))" -"(if(not #f)(for-loop_113 fold-var_89 rest_50) fold-var_89)))" +"(if(not #f)(for-loop_114 fold-var_89 rest_49) fold-var_89)))" " fold-var_88)))))" -" for-loop_113)" +" for-loop_114)" " null" -" lst_102)))))" +" lst_101)))))" " s_0)))))" "(define-values" "(struct:compile-context" @@ -17357,22 +17578,22 @@ static const char *startup_source = "(lambda()(begin(mpi-intern-table1.1(make-hash)(make-hasheq)))))" "(define-values" "(intern-module-path-index!)" -"(lambda(t_43 mpi_21)" +"(lambda(t_44 mpi_21)" "(begin" -"(let-values(((or-part_75)(hash-ref(mpi-intern-table-fast t_43) mpi_21 #f)))" +"(let-values(((or-part_75)(hash-ref(mpi-intern-table-fast t_44) mpi_21 #f)))" "(if or-part_75" " or-part_75" "(let-values(((name_2 base_15)(1/module-path-index-split mpi_21)))" "(if(not name_2)" -"(let-values()(begin(hash-set!(mpi-intern-table-fast t_43) mpi_21 mpi_21) mpi_21))" +"(let-values()(begin(hash-set!(mpi-intern-table-fast t_44) mpi_21 mpi_21) mpi_21))" "(let-values()" -"(let-values(((interned-base_0)(if base_15(intern-module-path-index! t_43 base_15) #f)))" +"(let-values(((interned-base_0)(if base_15(intern-module-path-index! t_44 base_15) #f)))" "(let-values(((at-name_0)" -"(let-values(((or-part_29)(hash-ref(mpi-intern-table-normal t_43) name_2 #f)))" +"(let-values(((or-part_29)(hash-ref(mpi-intern-table-normal t_44) name_2 #f)))" "(if or-part_29" " or-part_29" "(let-values(((at-name_1)(make-hasheq)))" -"(begin(hash-set!(mpi-intern-table-normal t_43) name_2 at-name_1) at-name_1))))))" +"(begin(hash-set!(mpi-intern-table-normal t_44) name_2 at-name_1) at-name_1))))))" "(let-values(((i-mpi_0)" "(let-values(((or-part_82)(hash-ref at-name_0 interned-base_0 #f)))" "(if or-part_82" @@ -17393,15 +17614,15 @@ static const char *startup_source = " \"module-path-index?\"" " the-struct_46))))))" "(begin(hash-set! at-name_0 interned-base_0 mpi_22) mpi_22))))))" -"(begin(hash-set!(mpi-intern-table-fast t_43) mpi_21 i-mpi_0) i-mpi_0))))))))))))" +"(begin(hash-set!(mpi-intern-table-fast t_44) mpi_21 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_71)(begin(hash-ref built-in-symbols s_71 #f))))" "(define-values" "(make-built-in-symbol!)" -"(lambda(s_187)" +"(lambda(s_190)" "(begin" -" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_187))))" +" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_190))))" "(begin(register-built-in-symbol! built-in-s_0) built-in-s_0)))))" "(void" "(begin" @@ -17517,33 +17738,33 @@ static const char *startup_source = " 'unique-list" "(if(pair? v_137)" "(reverse$1" -"(let-values(((lst_103) v_137))" +"(let-values(((lst_102) v_137))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_103)))" -"((letrec-values(((for-loop_114)" -"(lambda(fold-var_10 lst_80)" +"(let-values()(check-list lst_102)))" +"((letrec-values(((for-loop_115)" +"(lambda(fold-var_10 lst_79)" "(begin" " 'for-loop" -"(if(pair? lst_80)" -"(let-values(((i_92)(unsafe-car lst_80))" -"((rest_51)(unsafe-cdr lst_80)))" +"(if(pair? lst_79)" +"(let-values(((i_93)(unsafe-car lst_79))" +"((rest_50)(unsafe-cdr lst_79)))" "(let-values(((fold-var_91)" "(let-values(((fold-var_92) fold-var_10))" "(let-values(((fold-var_93)" "(let-values()" "(cons" -"(let-values() i_92)" +"(let-values() i_93)" " fold-var_92))))" "(values fold-var_93)))))" "(if(not #f)" -"(for-loop_114 fold-var_91 rest_51)" +"(for-loop_115 fold-var_91 rest_50)" " fold-var_91)))" " fold-var_10)))))" -" for-loop_114)" +" for-loop_115)" " null" -" lst_103))))" +" lst_102))))" " v_137)))))" "(let-values(((positions_1)(module-path-index-table-positions mpis_2)))" "(let-values(((gen-order_0)(make-hasheqv)))" @@ -17553,17 +17774,17 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_83)))" -"((letrec-values(((for-loop_84)" -"(lambda(table_117 i_93)" +"((letrec-values(((for-loop_85)" +"(lambda(table_117 i_94)" "(begin" " 'for-loop" -"(if i_93" -"(let-values(((k_19 v_66)(hash-iterate-key+value ht_83 i_93)))" +"(if i_94" +"(let-values(((k_19 v_66)(hash-iterate-key+value ht_83 i_94)))" "(let-values(((table_118)" "(let-values(((table_112) table_117))" "(let-values(((table_119)" "(let-values()" -"(let-values(((key_44 val_37)" +"(let-values(((key_44 val_38)" "(let-values()" "(values" " v_66" @@ -17571,13 +17792,13 @@ static const char *startup_source = "(hash-set" " table_112" " key_44" -" val_37)))))" +" val_38)))))" "(values table_119)))))" "(if(not #f)" -"(for-loop_84 table_118(hash-iterate-next ht_83 i_93))" +"(for-loop_85 table_118(hash-iterate-next ht_83 i_94))" " table_118)))" " table_117)))))" -" for-loop_84)" +" for-loop_85)" " '#hasheqv()" "(hash-iterate-first ht_83))))))" "(let-values((()" @@ -17587,12 +17808,12 @@ 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_115)" +"((letrec-values(((for-loop_116)" "(lambda(pos_15)" "(begin" " 'for-loop" "(if(< pos_15 end_10)" -"(let-values(((i_94) pos_15))" +"(let-values(((i_95) pos_15))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17602,8 +17823,8 @@ static const char *startup_source = "(let-values(((mpi_25)" "(hash-ref" " rev-positions_0" -" i_94)))" -"((letrec-values(((loop_80)" +" i_95)))" +"((letrec-values(((loop_83)" "(lambda(mpi_26)" "(begin" " 'loop" @@ -17620,7 +17841,7 @@ static const char *startup_source = "(begin" "(if base_16" "(let-values()" -"(loop_80" +"(loop_83" " base_16))" "(void))" "(hash-set!" @@ -17628,13 +17849,13 @@ static const char *startup_source = " mpi_26" "(hash-count" " gen-order_0))))))))))" -" loop_80)" +" loop_83)" " mpi_25)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_115(+ pos_15 inc_4))(values))))" +"(if(not #f)(for-loop_116(+ pos_15 inc_4))(values))))" "(values))))))" -" for-loop_115)" +" for-loop_116)" " start_16)))" "(values))))" "(let-values()" @@ -17644,19 +17865,19 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_84)))" -"((letrec-values(((for-loop_116)" -"(lambda(table_120 i_95)" +"((letrec-values(((for-loop_117)" +"(lambda(table_120 i_96)" "(begin" " 'for-loop" -"(if i_95" +"(if i_96" "(let-values(((k_20 v_138)" -"(hash-iterate-key+value ht_84 i_95)))" +"(hash-iterate-key+value ht_84 i_96)))" "(let-values(((table_15)" "(let-values(((table_121) table_120))" "(let-values(((table_9)" "(let-values()" "(let-values(((key_45" -" val_38)" +" val_39)" "(let-values()" "(values" " v_138" @@ -17664,13 +17885,13 @@ static const char *startup_source = "(hash-set" " table_121" " key_45" -" val_38)))))" +" val_39)))))" "(values table_9)))))" "(if(not #f)" -"(for-loop_116 table_15(hash-iterate-next ht_84 i_95))" +"(for-loop_117 table_15(hash-iterate-next ht_84 i_96))" " table_15)))" " table_120)))))" -" for-loop_116)" +" for-loop_117)" " '#hasheqv()" "(hash-iterate-first ht_84))))))" "(let-values(((gens_0)" @@ -17693,24 +17914,24 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_17 end_11 inc_5)))" "((letrec-values(((for-loop_28)" -"(lambda(i_96 pos_16)" +"(lambda(i_97 pos_16)" "(begin" " 'for-loop" "(if(< pos_16 end_11)" -"(let-values(((i_88) pos_16))" -"(let-values(((i_97)" -"(let-values(((i_98) i_96))" -"(let-values(((i_99)" +"(let-values(((i_89) pos_16))" +"(let-values(((i_98)" +"(let-values(((i_99) i_97))" +"(let-values(((i_100)" "(let-values()" "(begin" "(unsafe-vector*-set!" " v_139" -" i_98" +" i_99" "(let-values()" "(let-values(((mpi_27)" "(hash-ref" " rev-gen-order_0" -" i_88)))" +" i_89)))" "(let-values(((path_6" " base_17)" "(1/module-path-index-split" @@ -17746,17 +17967,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_12))" -" i_88))" +"(unsafe-fx= i_98 len_12))" +" i_89))" "(not #f)" " #f)" -"(for-loop_28 i_97(+ pos_16 inc_5))" -" i_97)))" -" i_96)))))" +"(for-loop_28 i_98(+ pos_16 inc_5))" +" i_98)))" +" i_97)))))" " for-loop_28)" " 0" " start_17)))))" @@ -17766,26 +17987,26 @@ static const char *startup_source = "(list 'quote gens_0)" "(list" " 'quote" -"(let-values(((vec_29 i_42)" +"(let-values(((vec_29 i_44)" "(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_53)" -"(lambda(vec_30 i_100 pos_17)" +"(lambda(vec_30 i_101 pos_17)" "(begin" " 'for-loop" "(if(< pos_17 end_12)" -"(let-values(((i_101) pos_17))" -"(let-values(((vec_31 i_102)" +"(let-values(((i_102) pos_17))" +"(let-values(((vec_31 i_103)" "(let-values(((vec_32) vec_30)" -"((i_36) i_100))" -"(let-values(((vec_33 i_60)" +"((i_38) i_101))" +"(let-values(((vec_33 i_62)" "(let-values()" "(let-values(((new-vec_2)" "(if(eq?" -" i_36" +" i_38" "(unsafe-vector*-length" " vec_32))" "(grow-vector" @@ -17794,28 +18015,28 @@ static const char *startup_source = "(begin" "(unsafe-vector*-set!" " new-vec_2" -" i_36" +" i_38" "(let-values()" "(hash-ref" " gen-order_0" "(hash-ref" " rev-positions_0" -" i_101))))" +" i_102))))" "(values" " new-vec_2" "(unsafe-fx+" -" i_36" +" i_38" " 1)))))))" -"(values vec_33 i_60)))))" +"(values vec_33 i_62)))))" "(if(not #f)" -"(for-loop_53 vec_31 i_102(+ pos_17 inc_6))" -"(values vec_31 i_102))))" -"(values vec_30 i_100))))))" +"(for-loop_53 vec_31 i_103(+ pos_17 inc_6))" +"(values vec_31 i_103))))" +"(values vec_30 i_101))))))" " for-loop_53)" "(make-vector 16)" " 0" " start_18)))))" -"(shrink-vector vec_29 i_42)))))))))))))))" +"(shrink-vector vec_29 i_44)))))))))))))))" "(define-values" "(deserialize-module-path-indexes)" "(lambda(gen-vec_0 order-vec_0)" @@ -17831,12 +18052,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_19)))" -"((letrec-values(((for-loop_117)" +"((letrec-values(((for-loop_118)" "(lambda(pos_18 pos_19)" "(begin" " 'for-loop" "(if(if(unsafe-fx< pos_18 len_13) #t #f)" -"(let-values(((d_21)(unsafe-vector-ref vec_34 pos_18))((i_103) pos_19))" +"(let-values(((d_21)(unsafe-vector-ref vec_34 pos_18))((i_104) pos_19))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17845,7 +18066,7 @@ static const char *startup_source = "(let-values()" "(vector-set!" " gen_0" -" i_103" +" i_104" "(if(eq? d_21 'top)" "(let-values()" "(deserialize-module-path-index))" @@ -17863,9 +18084,9 @@ static const char *startup_source = " #f)))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_117(unsafe-fx+ 1 pos_18)(+ pos_19 1))(values))))" +"(if(not #f)(for-loop_118(unsafe-fx+ 1 pos_18)(+ pos_19 1))(values))))" "(values))))))" -" for-loop_117)" +" for-loop_118)" " 0" " start_19)))" "(void)" @@ -17884,31 +18105,31 @@ static const char *startup_source = "(begin(check-vector vec_36)(values vec_36(unsafe-vector-length vec_36))))))" "(begin" " #f" -"((letrec-values(((for-loop_118)" -"(lambda(i_104 pos_20)" +"((letrec-values(((for-loop_119)" +"(lambda(i_105 pos_20)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_20 len_15)" "(let-values(((p_32)(unsafe-vector-ref vec_35 pos_20)))" -"(let-values(((i_44)" -"(let-values(((i_105) i_104))" -"(let-values(((i_106)" +"(let-values(((i_46)" +"(let-values(((i_106) i_105))" +"(let-values(((i_107)" "(let-values()" "(begin" "(unsafe-vector*-set!" " v_140" -" i_105" +" i_106" "(let-values()" "(vector*-ref gen_0 p_32)))" -"(unsafe-fx+ 1 i_105)))))" -"(values i_106)))))" -"(if(if(not((lambda x_42(unsafe-fx= i_44 len_14)) p_32))" +"(unsafe-fx+ 1 i_106)))))" +"(values i_107)))))" +"(if(if(not((lambda x_42(unsafe-fx= i_46 len_14)) p_32))" "(not #f)" " #f)" -"(for-loop_118 i_44(unsafe-fx+ 1 pos_20))" -" i_44)))" -" i_104)))))" -" for-loop_118)" +"(for-loop_119 i_46(unsafe-fx+ 1 pos_20))" +" i_46)))" +" i_105)))))" +" for-loop_119)" " 0" " 0)))))" " v_140)))))))))" @@ -17924,7 +18145,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_85)))" -"((letrec-values(((for-loop_119)" +"((letrec-values(((for-loop_120)" "(lambda(i_24)" "(begin" " 'for-loop" @@ -17939,9 +18160,9 @@ static const char *startup_source = "(vector-set! vec_37 pos_21 mpi_28))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_119(hash-iterate-next ht_85 i_24))(values))))" +"(if(not #f)(for-loop_120(hash-iterate-next ht_85 i_24))(values))))" "(values))))))" -" for-loop_119)" +" for-loop_120)" "(hash-iterate-first ht_85))))" "(void)" " vec_37))))))" @@ -17950,15 +18171,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_120)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_103)))" +"((letrec-values(((for-loop_121)" "(lambda(fold-var_94 lst_11)" "(begin" " 'for-loop" "(if(pair? lst_11)" -"(let-values(((mu_1)(unsafe-car lst_11))((rest_52)(unsafe-cdr lst_11)))" +"(let-values(((mu_1)(unsafe-car lst_11))((rest_51)(unsafe-cdr lst_11)))" "(let-values(((fold-var_95)" "(let-values(((fold-var_96) fold-var_94))" "(let-values(((fold-var_97)" @@ -17973,11 +18194,11 @@ static const char *startup_source = "(module-use-phase mu_1)))" " fold-var_96))))" "(values fold-var_97)))))" -"(if(not #f)(for-loop_120 fold-var_95 rest_52) fold-var_95)))" +"(if(not #f)(for-loop_121 fold-var_95 rest_51) fold-var_95)))" " fold-var_94)))))" -" for-loop_120)" +" for-loop_121)" " null" -" lst_104)))))))" +" lst_103)))))))" "(define-values" "(interned-literal?)" "(lambda(v_93)" @@ -18009,15 +18230,15 @@ static const char *startup_source = "(apply" " append" "(reverse$1" -"(let-values(((lst_105) phases-in-order_0))" +"(let-values(((lst_104) phases-in-order_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_105)))" -"((letrec-values(((for-loop_121)" -"(lambda(fold-var_98 lst_106)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_104)))" +"((letrec-values(((for-loop_122)" +"(lambda(fold-var_98 lst_105)" "(begin" " 'for-loop" -"(if(pair? lst_106)" -"(let-values(((phase_49)(unsafe-car lst_106))((rest_53)(unsafe-cdr lst_106)))" +"(if(pair? lst_105)" +"(let-values(((phase_9)(unsafe-car lst_105))((rest_52)(unsafe-cdr lst_105)))" "(let-values(((fold-var_99)" "(let-values(((fold-var_100) fold-var_98))" "(let-values(((fold-var_101)" @@ -18025,21 +18246,21 @@ static const char *startup_source = "(cons" "(let-values()" "(list" -" phase_49" +" phase_9" "(list*" " 'list" "(serialize-module-uses" "(hash-ref" " phase-to-link-module-uses_0" -" phase_49)" +" phase_9)" " mpis_5))))" " fold-var_100))))" "(values fold-var_101)))))" -"(if(not #f)(for-loop_121 fold-var_99 rest_53) fold-var_99)))" +"(if(not #f)(for-loop_122 fold-var_99 rest_52) fold-var_99)))" " fold-var_98)))))" -" for-loop_121)" +" for-loop_122)" " null" -" lst_105))))))))))" +" lst_104))))))))))" "(define-values" "(generate-deserialize6.1)" "(lambda(syntax-support?2_0 syntax-support?3_0 v4_0 mpis5_0)" @@ -18050,7 +18271,7 @@ static const char *startup_source = "(let-values(((syntax-support?_0)(if syntax-support?3_0 syntax-support?2_0 #t)))" "(let-values()" "(let-values(((reachable-scopes_4)(find-reachable-scopes v_141)))" -"(let-values(((state_24)(make-serialize-state reachable-scopes_4)))" +"(let-values(((state_25)(make-serialize-state reachable-scopes_4)))" "(let-values(((mutables_0)(make-hasheq)))" "(let-values(((objs_0)(make-hasheq)))" "(let-values(((shares_0)(make-hasheq)))" @@ -18067,7 +18288,7 @@ static const char *startup_source = "(begin" " 'frontier-loop" "(begin" -"((letrec-values(((loop_81)" +"((letrec-values(((loop_84)" "(lambda(v_103)" "(begin" " 'loop" @@ -18109,7 +18330,7 @@ static const char *startup_source = " v_103)" " v_103" " add-frontier!_0" -" state_24)))" +" state_25)))" "(if(serialize?" " v_103)" "(let-values()" @@ -18118,21 +18339,21 @@ static const char *startup_source = " v_103" "(case-lambda" "((sub-v_0)" -"(loop_81" +"(loop_84" " sub-v_0))" -"((kind_2" +"((kind_4" " sub-v_1)" -"(loop_81" +"(loop_84" " sub-v_1)))" -" state_24))" +" state_25))" "(if(pair?" " v_103)" "(let-values()" "(begin" -"(loop_81" +"(loop_84" "(car" " v_103))" -"(loop_81" +"(loop_84" "(cdr" " v_103))))" "(if(vector?" @@ -18160,7 +18381,7 @@ static const char *startup_source = " vec_39))))))" "(begin" " #f" -"((letrec-values(((for-loop_122)" +"((letrec-values(((for-loop_123)" "(lambda(pos_22)" "(begin" " 'for-loop" @@ -18177,19 +18398,19 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_81" +"(loop_84" " e_19))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_122" +"(for-loop_123" "(unsafe-fx+" " 1" " pos_22))" "(values))))" "(values))))))" -" for-loop_122)" +" for-loop_123)" " 0)))" "(void))" "(begin" @@ -18212,7 +18433,7 @@ static const char *startup_source = " vec_41))))))" "(begin" " #f" -"((letrec-values(((for-loop_123)" +"((letrec-values(((for-loop_124)" "(lambda(pos_23)" "(begin" " 'for-loop" @@ -18235,13 +18456,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_123" +"(for-loop_124" "(unsafe-fx+" " 1" " pos_23))" "(values))))" "(values))))))" -" for-loop_123)" +" for-loop_124)" " 0)))" "(void)))))" "(if(box?" @@ -18249,7 +18470,7 @@ static const char *startup_source = "(let-values()" "(if(immutable?" " v_103)" -"(loop_81" +"(loop_84" "(unbox" " v_103))" "(begin" @@ -18267,7 +18488,7 @@ static const char *startup_source = "(if(immutable?" " v_103)" "(begin" -"(let-values(((lst_74)" +"(let-values(((lst_73)" "(sorted-hash-keys" " v_103)))" "(begin" @@ -18276,19 +18497,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_74)))" -"((letrec-values(((for-loop_124)" -"(lambda(lst_107)" +" lst_73)))" +"((letrec-values(((for-loop_125)" +"(lambda(lst_106)" "(begin" " 'for-loop" "(if(pair?" -" lst_107)" +" lst_106)" "(let-values(((k_21)" "(unsafe-car" -" lst_107))" -"((rest_54)" +" lst_106))" +"((rest_53)" "(unsafe-cdr" -" lst_107)))" +" lst_106)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18296,9 +18517,9 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(loop_81" +"(loop_84" " k_21)" -"(loop_81" +"(loop_84" "(hash-ref" " v_103" " k_21))))" @@ -18306,12 +18527,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_124" -" rest_54)" +"(for-loop_125" +" rest_53)" "(values))))" "(values))))))" -" for-loop_124)" -" lst_74)))" +" for-loop_125)" +" lst_73)))" "(void))" "(begin" "(hash-set!" @@ -18320,7 +18541,7 @@ static const char *startup_source = "(hash-count" " mutables_0))" "(begin" -"(let-values(((lst_108)" +"(let-values(((lst_107)" "(sorted-hash-keys" " v_103)))" "(begin" @@ -18329,19 +18550,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_108)))" -"((letrec-values(((for-loop_125)" -"(lambda(lst_109)" +" lst_107)))" +"((letrec-values(((for-loop_126)" +"(lambda(lst_108)" "(begin" " 'for-loop" "(if(pair?" -" lst_109)" +" lst_108)" "(let-values(((k_22)" "(unsafe-car" -" lst_109))" -"((rest_55)" +" lst_108))" +"((rest_54)" "(unsafe-cdr" -" lst_109)))" +" lst_108)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18359,12 +18580,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_125" -" rest_55)" +"(for-loop_126" +" rest_54)" "(values))))" "(values))))))" -" for-loop_125)" -" lst_108)))" +" for-loop_126)" +" lst_107)))" "(void)))))" "(if(prefab-struct-key" " v_103)" @@ -18377,12 +18598,12 @@ static const char *startup_source = "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_33)" -"(vector?" -" x_33))" "(lambda(x_43)" -"(unsafe-vector-length" +"(vector?" " x_43))" +"(lambda(x_44)" +"(unsafe-vector-length" +" x_44))" "(struct->vector" " v_103)" " 1" @@ -18390,7 +18611,7 @@ static const char *startup_source = " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_126)" +"((letrec-values(((for-loop_127)" "(lambda(idx_1)" "(begin" " 'for-loop" @@ -18407,19 +18628,19 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_81" +"(loop_84" " e_21))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_126" +"(for-loop_127" "(unsafe-fx+" " idx_1" " 1))" "(values))))" "(values))))))" -" for-loop_126)" +" for-loop_127)" " start*_1)))" "(void)))" "(if(srcloc?" @@ -18433,12 +18654,12 @@ static const char *startup_source = "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_44)" -"(vector?" -" x_44))" "(lambda(x_45)" -"(unsafe-vector-length" +"(vector?" " x_45))" +"(lambda(x_46)" +"(unsafe-vector-length" +" x_46))" "(struct->vector" " v_103)" " 1" @@ -18446,7 +18667,7 @@ static const char *startup_source = " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_127)" +"((letrec-values(((for-loop_128)" "(lambda(idx_2)" "(begin" " 'for-loop" @@ -18463,19 +18684,19 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_81" +"(loop_84" " e_22))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_127" +"(for-loop_128" "(unsafe-fx+" " idx_2" " 1))" "(values))))" "(values))))))" -" for-loop_127)" +" for-loop_128)" " start*_2)))" "(void)))" "(let-values()" @@ -18487,7 +18708,7 @@ static const char *startup_source = "(set! obj-step_0" "(add1" " obj-step_0))))))))))" -" loop_81)" +" loop_84)" " v_101)" "(if(null? frontier_0)" "(void)" @@ -18495,25 +18716,25 @@ static const char *startup_source = "(let-values(((l_50) frontier_0))" "(begin" "(set! frontier_0 null)" -"(let-values(((lst_110) l_50))" +"(let-values(((lst_109) l_50))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_110)))" -"((letrec-values(((for-loop_128)" -"(lambda(lst_111)" +"(check-list lst_109)))" +"((letrec-values(((for-loop_129)" +"(lambda(lst_110)" "(begin" " 'for-loop" "(if(pair?" -" lst_111)" -"(let-values(((v_81)" +" lst_110)" +"(let-values(((v_143)" "(unsafe-car" -" lst_111))" -"((rest_56)" +" lst_110))" +"((rest_55)" "(unsafe-cdr" -" lst_111)))" +" lst_110)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18521,17 +18742,17 @@ static const char *startup_source = "(begin" "(let-values()" "(frontier-loop_0" -" v_81))" +" v_143))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_128" -" rest_56)" +"(for-loop_129" +" rest_55)" "(values))))" "(values))))))" -" for-loop_128)" -" lst_110)))" +" for-loop_129)" +" lst_109)))" "(void))))))))))" " frontier-loop_0)" " v_141)" @@ -18546,15 +18767,15 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_86)))" -"((letrec-values(((for-loop_75)" -"(lambda(fold-var_102 i_107)" +"((letrec-values(((for-loop_76)" +"(lambda(fold-var_102 i_108)" "(begin" " 'for-loop" -"(if i_107" +"(if i_108" "(let-values(((obj_0)" "(hash-iterate-key" " ht_86" -" i_107)))" +" i_108)))" "(let-values(((fold-var_103)" "(let-values(((fold-var_104)" " fold-var_102))" @@ -18569,17 +18790,17 @@ static const char *startup_source = "(values" " fold-var_105)))))" "(if(not #f)" -"(for-loop_75" +"(for-loop_76" " fold-var_103" "(hash-iterate-next" " ht_86" -" i_107))" +" i_108))" " fold-var_103)))" " fold-var_102)))))" -" for-loop_75)" +" for-loop_76)" " null" "(hash-iterate-first ht_86)))))))" -"(let-values(((lst_112)" +"(let-values(((lst_111)" "(let-values(((share-steps12_0) share-steps_0)" "((<13_0) <))" "(sort7.1 #f #f #f #f share-steps12_0 <13_0)))" @@ -18587,19 +18808,19 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_112)))" +"(let-values()(check-list lst_111)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_20)))" -"((letrec-values(((for-loop_129)" -"(lambda(table_122 lst_113 pos_24)" +"((letrec-values(((for-loop_130)" +"(lambda(table_122 lst_112 pos_24)" "(begin" " 'for-loop" -"(if(if(pair? lst_113) #t #f)" +"(if(if(pair? lst_112) #t #f)" "(let-values(((step_3)" -"(unsafe-car lst_113))" -"((rest_57)" -"(unsafe-cdr lst_113))" +"(unsafe-car lst_112))" +"((rest_56)" +"(unsafe-cdr lst_112))" "((pos_25) pos_24))" "(let-values(((table_123)" "(let-values(((table_124)" @@ -18607,7 +18828,7 @@ static const char *startup_source = "(let-values(((table_37)" "(let-values()" "(let-values(((key_46" -" val_39)" +" val_40)" "(let-values()" "(values" " step_3" @@ -18615,18 +18836,18 @@ static const char *startup_source = "(hash-set" " table_124" " key_46" -" val_39)))))" +" val_40)))))" "(values table_37)))))" "(if(not #f)" -"(for-loop_129" +"(for-loop_130" " table_123" -" rest_57" +" rest_56" "(+ pos_24 1))" " table_123)))" " table_122)))))" -" for-loop_129)" +" for-loop_130)" " '#hasheqv()" -" lst_112" +" lst_111" " start_20))))))" "(let-values(((stream_0) null))" "(let-values(((stream-size_0) 0))" @@ -18636,12 +18857,12 @@ static const char *startup_source = "(lambda(pos_26)" "(begin" " 'quoted?" -"(let-values(((v_143)" +"(let-values(((v_144)" "(list-ref" " stream_0" "(- stream-size_0(add1 pos_26)))))" -"(let-values(((or-part_173)(not(keyword? v_143))))" -"(if or-part_173 or-part_173(eq? '#:quote v_143))))))))" +"(let-values(((or-part_173)(not(keyword? v_144))))" +"(if or-part_173 or-part_173(eq? '#:quote v_144))))))))" "(let-values(((ser-reset!_0)" "(lambda(pos_27)" "(begin" @@ -18658,89 +18879,89 @@ static const char *startup_source = "(list->vector(reverse$1 stream_0))" "(set! stream_0 null)" "(set! stream-size_0 0))))))" -"(letrec-values(((ser-push!_15)" +"(letrec-values(((ser-push!_16)" "(case-lambda" -"((v_144)" +"((v_145)" "(begin" " 'ser-push!" -"(if(hash-ref shares_0 v_144 #f)" -"(let-values()" -"(let-values(((n_21)" -"(hash-ref" -" share-step-positions_0" -"(hash-ref objs_0 v_144))))" -"(begin" -"(ser-push!_15 'tag '#:ref)" -"(ser-push!_15 'exact n_21))))" -"(let-values(((c1_25)" -"(hash-ref mutables_0 v_144 #f)))" -"(if c1_25" -"((lambda(n_22)" -"(begin" -"(ser-push!_15 'tag '#:ref)" -"(ser-push!_15 'exact n_22)))" -" c1_25)" -"(let-values()" -"(ser-push-encoded!_0 v_144)))))))" -"((kind_4 v_145)" -"(let-values(((tmp_17) kind_4))" -"(if(equal? tmp_17 'exact)" -"(let-values()" -"(begin" -"(set! stream_0(cons v_145 stream_0))" -"(set! stream-size_0(add1 stream-size_0))))" -"(if(equal? tmp_17 'tag)" -"(let-values()(ser-push!_15 'exact v_145))" -"(if(equal? tmp_17 'reference)" -"(let-values()" "(if(hash-ref shares_0 v_145 #f)" "(let-values()" -"(let-values(((n_23)" +"(let-values(((n_22)" +"(hash-ref" +" share-step-positions_0" +"(hash-ref objs_0 v_145))))" +"(begin" +"(ser-push!_16 'tag '#:ref)" +"(ser-push!_16 'exact n_22))))" +"(let-values(((c1_25)" +"(hash-ref mutables_0 v_145 #f)))" +"(if c1_25" +"((lambda(n_23)" +"(begin" +"(ser-push!_16 'tag '#:ref)" +"(ser-push!_16 'exact n_23)))" +" c1_25)" +"(let-values()" +"(ser-push-encoded!_0 v_145)))))))" +"((kind_5 v_146)" +"(let-values(((tmp_18) kind_5))" +"(if(equal? tmp_18 'exact)" +"(let-values()" +"(begin" +"(set! stream_0(cons v_146 stream_0))" +"(set! stream-size_0(add1 stream-size_0))))" +"(if(equal? tmp_18 'tag)" +"(let-values()(ser-push!_16 'exact v_146))" +"(if(equal? tmp_18 'reference)" +"(let-values()" +"(if(hash-ref shares_0 v_146 #f)" +"(let-values()" +"(let-values(((n_24)" "(hash-ref" " share-step-positions_0" "(hash-ref" " objs_0" -" v_145))))" -"(ser-push!_15 'exact n_23)))" +" v_146))))" +"(ser-push!_16 'exact n_24)))" "(let-values(((c2_1)" "(hash-ref" " mutables_0" -" v_145" +" v_146" " #f)))" "(if c2_1" -"((lambda(n_24)" -"(ser-push!_15 'exact n_24))" +"((lambda(n_25)" +"(ser-push!_16 'exact n_25))" " c2_1)" "(let-values()" -"(ser-push!_15 v_145))))))" -"(let-values()(ser-push!_15 v_145)))))))))" +"(ser-push!_16 v_146))))))" +"(let-values()(ser-push!_16 v_146)))))))))" "((ser-push-encoded!_0)" -"(lambda(v_146)" +"(lambda(v_147)" "(begin" " 'ser-push-encoded!" -"(if(keyword? v_146)" +"(if(keyword? v_147)" "(let-values()" "(begin" -"(ser-push!_15 'tag '#:quote)" -"(ser-push!_15 'exact v_146)))" -"(if(1/module-path-index? v_146)" +"(ser-push!_16 'tag '#:quote)" +"(ser-push!_16 'exact v_147)))" +"(if(1/module-path-index? v_147)" "(let-values()" "(begin" -"(ser-push!_15 'tag '#:mpi)" -"(ser-push!_15" +"(ser-push!_16 'tag '#:mpi)" +"(ser-push!_16" " 'exact" "(add-module-path-index!/pos" " mpis_6" -" v_146))))" -"(if(serialize? v_146)" +" v_147))))" +"(if(serialize? v_147)" "(let-values()" -"((serialize-ref v_146)" -" v_146" -" ser-push!_15" -" state_24))" -"(if(if(list? v_146)" -"(if(pair? v_146)" -"(pair?(cdr v_146))" +"((serialize-ref v_147)" +" v_147" +" ser-push!_16" +" state_25))" +"(if(if(list? v_147)" +"(if(pair? v_147)" +"(pair?(cdr v_147))" " #f)" " #f)" "(let-values()" @@ -18748,39 +18969,39 @@ static const char *startup_source = "(next-push-position_0)))" "(let-values((()" "(begin" -"(ser-push!_15" +"(ser-push!_16" " 'tag" " '#:list)" "(values))))" "(let-values((()" "(begin" -"(ser-push!_15" +"(ser-push!_16" " 'exact" -"(length v_146))" +"(length v_147))" "(values))))" "(let-values(((all-quoted?_0)" -"(let-values(((lst_114)" -" v_146))" +"(let-values(((lst_113)" +" v_147))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_114)))" -"((letrec-values(((for-loop_130)" +" lst_113)))" +"((letrec-values(((for-loop_131)" "(lambda(all-quoted?_1" -" lst_115)" +" lst_114)" "(begin" " 'for-loop" "(if(pair?" -" lst_115)" +" lst_114)" "(let-values(((i_5)" "(unsafe-car" -" lst_115))" -"((rest_58)" +" lst_114))" +"((rest_57)" "(unsafe-cdr" -" lst_115)))" +" lst_114)))" "(let-values(((all-quoted?_2)" "(let-values(((all-quoted?_3)" " all-quoted?_1))" @@ -18789,7 +19010,7 @@ static const char *startup_source = "(let-values(((i-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_15" +"(ser-push!_16" " i_5)" "(if all-quoted?_3" "(quoted?_0" @@ -18799,30 +19020,30 @@ static const char *startup_source = " all-quoted?_4)))))" "(if(not" " #f)" -"(for-loop_130" +"(for-loop_131" " all-quoted?_2" -" rest_58)" +" rest_57)" " all-quoted?_2)))" " all-quoted?_1)))))" -" for-loop_130)" +" for-loop_131)" " #t" -" lst_114)))))" +" lst_113)))))" "(if all-quoted?_0" "(let-values()" "(begin" "(ser-reset!_0 start-pos_0)" "(ser-push-optional-quote!_0)" -"(ser-push!_15" +"(ser-push!_16" " 'exact" -" v_146)))" +" v_147)))" "(void)))))))" -"(if(pair? v_146)" +"(if(pair? v_147)" "(let-values()" "(let-values(((start-pos_1)" "(next-push-position_0)))" "(let-values((()" "(begin" -"(ser-push!_15" +"(ser-push!_16" " 'tag" " '#:cons)" "(values))))" @@ -18830,13 +19051,13 @@ static const char *startup_source = "(next-push-position_0)))" "(let-values((()" "(begin" -"(ser-push!_15" -"(car v_146))" +"(ser-push!_16" +"(car v_147))" "(values))))" "(let-values(((d-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_15(cdr v_146))" +"(ser-push!_16(cdr v_147))" "(if(if(quoted?_0 a-pos_0)" "(quoted?_0 d-pos_0)" " #f)" @@ -18845,56 +19066,56 @@ static const char *startup_source = "(ser-reset!_0" " start-pos_1)" "(ser-push-optional-quote!_0)" -"(ser-push!_15" +"(ser-push!_16" " 'exact" -" v_146)))" +" v_147)))" "(void)))))))))" -"(if(box? v_146)" +"(if(box? v_147)" "(let-values()" "(let-values(((start-pos_2)" "(next-push-position_0)))" "(let-values((()" "(begin" -"(ser-push!_15" +"(ser-push!_16" " 'tag" " '#:box)" "(values))))" "(let-values(((v-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_15(unbox v_146))" +"(ser-push!_16(unbox v_147))" "(if(quoted?_0 v-pos_0)" "(let-values()" "(begin" "(ser-reset!_0" " start-pos_2)" "(ser-push-optional-quote!_0)" -"(ser-push!_15" +"(ser-push!_16" " 'exact" -" v_146)))" +" v_147)))" "(void)))))))" -"(if(vector? v_146)" +"(if(vector? v_147)" "(let-values()" "(let-values(((start-pos_3)" "(next-push-position_0)))" "(let-values((()" "(begin" -"(ser-push!_15" +"(ser-push!_16" " 'tag" " '#:vector)" "(values))))" "(let-values((()" "(begin" -"(ser-push!_15" +"(ser-push!_16" " 'exact" "(vector-length" -" v_146))" +" v_147))" "(values))))" "(let-values(((all-quoted?_5)" "(let-values(((vec_42" " len_18)" "(let-values(((vec_43)" -" v_146))" +" v_147))" "(begin" "(check-vector" " vec_43)" @@ -18904,7 +19125,7 @@ static const char *startup_source = " vec_43))))))" "(begin" " #f" -"((letrec-values(((for-loop_131)" +"((letrec-values(((for-loop_132)" "(lambda(all-quoted?_6" " pos_28)" "(begin" @@ -18912,7 +19133,7 @@ static const char *startup_source = "(if(unsafe-fx<" " pos_28" " len_18)" -"(let-values(((i_108)" +"(let-values(((i_109)" "(unsafe-vector-ref" " vec_42" " pos_28)))" @@ -18924,8 +19145,8 @@ static const char *startup_source = "(let-values(((i-pos_1)" "(next-push-position_0)))" "(begin" -"(ser-push!_15" -" i_108)" +"(ser-push!_16" +" i_109)" "(if all-quoted?_8" "(quoted?_0" " i-pos_1)" @@ -18934,14 +19155,14 @@ static const char *startup_source = " all-quoted?_9)))))" "(if(not" " #f)" -"(for-loop_131" +"(for-loop_132" " all-quoted?_7" "(unsafe-fx+" " 1" " pos_28))" " all-quoted?_7)))" " all-quoted?_6)))))" -" for-loop_131)" +" for-loop_132)" " #t" " 0)))))" "(if all-quoted?_5" @@ -18950,17 +19171,17 @@ static const char *startup_source = "(ser-reset!_0" " start-pos_3)" "(ser-push-optional-quote!_0)" -"(ser-push!_15" +"(ser-push!_16" " 'exact" -" v_146)))" +" v_147)))" "(void)))))))" -"(if(hash? v_146)" +"(if(hash? v_147)" "(let-values()" "(let-values(((start-pos_4)" "(next-push-position_0)))" "(let-values(((as-set?_0)" "(let-values(((ht_87)" -" v_146))" +" v_147))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -18968,66 +19189,66 @@ static const char *startup_source = "(let-values()" "(check-in-hash-values" " ht_87)))" -"((letrec-values(((for-loop_132)" +"((letrec-values(((for-loop_133)" "(lambda(result_68" -" i_109)" +" i_110)" "(begin" " 'for-loop" -"(if i_109" -"(let-values(((val_40)" +"(if i_110" +"(let-values(((val_41)" "(hash-iterate-value" " ht_87" -" i_109)))" +" i_110)))" "(let-values(((result_69)" "(let-values()" "(let-values(((result_70)" "(let-values()" "(let-values()" "(eq?" -" val_40" +" val_41" " #t)))))" "(values" " result_70)))))" "(if(if(not" -"((lambda x_46" +"((lambda x_47" "(not" " result_69))" -" val_40))" +" val_41))" "(not" " #f)" " #f)" -"(for-loop_132" +"(for-loop_133" " result_69" "(hash-iterate-next" " ht_87" -" i_109))" +" i_110))" " result_69)))" " result_68)))))" -" for-loop_132)" +" for-loop_133)" " #t" "(hash-iterate-first" " ht_87))))))" "(let-values((()" "(begin" -"(ser-push!_15" +"(ser-push!_16" " 'tag" "(if as-set?_0" "(if(hash-eq?" -" v_146)" +" v_147)" "(let-values()" " '#:seteq)" "(if(hash-eqv?" -" v_146)" +" v_147)" "(let-values()" " '#:seteqv)" "(let-values()" " '#:set)))" "(if(hash-eq?" -" v_146)" +" v_147)" "(let-values()" " '#:hasheq)" "(if(hash-eqv?" -" v_146)" +" v_147)" "(let-values()" " '#:hasheqv)" "(let-values()" @@ -19035,16 +19256,16 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(ser-push!_15" +"(ser-push!_16" " 'exact" "(hash-count" -" v_146))" +" v_147))" "(values))))" "(let-values(((ks_0)" "(sorted-hash-keys" -" v_146)))" +" v_147)))" "(let-values(((all-quoted?_10)" -"(let-values(((lst_47)" +"(let-values(((lst_115)" " ks_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -19052,8 +19273,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_47)))" -"((letrec-values(((for-loop_133)" +" lst_115)))" +"((letrec-values(((for-loop_134)" "(lambda(all-quoted?_11" " lst_116)" "(begin" @@ -19063,7 +19284,7 @@ static const char *startup_source = "(let-values(((k_23)" "(unsafe-car" " lst_116))" -"((rest_59)" +"((rest_58)" "(unsafe-cdr" " lst_116)))" "(let-values(((all-quoted?_12)" @@ -19075,7 +19296,7 @@ static const char *startup_source = "(next-push-position_0)))" "(let-values((()" "(begin" -"(ser-push!_15" +"(ser-push!_16" " k_23)" "(values))))" "(let-values(((v-pos_1)" @@ -19084,9 +19305,9 @@ static const char *startup_source = "(if as-set?_0" "(void)" "(let-values()" -"(ser-push!_15" +"(ser-push!_16" "(hash-ref" -" v_146" +" v_147" " k_23))))" "(if all-quoted?_13" "(if(quoted?_0" @@ -19103,49 +19324,49 @@ static const char *startup_source = " all-quoted?_14)))))" "(if(not" " #f)" -"(for-loop_133" +"(for-loop_134" " all-quoted?_12" -" rest_59)" +" rest_58)" " all-quoted?_12)))" " all-quoted?_11)))))" -" for-loop_133)" +" for-loop_134)" " #t" -" lst_47)))))" +" lst_115)))))" "(if all-quoted?_10" "(let-values()" "(begin" "(ser-reset!_0" " start-pos_4)" "(ser-push-optional-quote!_0)" -"(ser-push!_15" +"(ser-push!_16" " 'exact" -" v_146)))" +" v_147)))" "(void)))))))))" "(let-values(((c3_0)" "(prefab-struct-key" -" v_146)))" +" v_147)))" "(if c3_0" "((lambda(k_24)" "(let-values(((vec_44)" "(struct->vector" -" v_146)))" +" v_147)))" "(let-values(((start-pos_5)" "(next-push-position_0)))" "(let-values((()" "(begin" -"(ser-push!_15" +"(ser-push!_16" " 'tag" " '#:prefab)" "(values))))" "(let-values((()" "(begin" -"(ser-push!_15" +"(ser-push!_16" " 'exact" " k_24)" "(values))))" "(let-values((()" "(begin" -"(ser-push!_15" +"(ser-push!_16" " 'exact" "(sub1" "(vector-length" @@ -19159,19 +19380,19 @@ static const char *startup_source = "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_47)" -"(vector?" -" x_47))" "(lambda(x_48)" -"(unsafe-vector-length" +"(vector?" " x_48))" +"(lambda(x_49)" +"(unsafe-vector-length" +" x_49))" " vec_44" " 1" " #f" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_134)" +"((letrec-values(((for-loop_135)" "(lambda(all-quoted?_16" " idx_3)" "(begin" @@ -19179,7 +19400,7 @@ static const char *startup_source = "(if(unsafe-fx<" " idx_3" " stop*_4)" -"(let-values(((i_110)" +"(let-values(((i_111)" "(unsafe-vector-ref" " v*_4" " idx_3)))" @@ -19191,8 +19412,8 @@ static const char *startup_source = "(let-values(((i-pos_2)" "(next-push-position_0)))" "(begin" -"(ser-push!_15" -" i_110)" +"(ser-push!_16" +" i_111)" "(if all-quoted?_18" "(quoted?_0" " i-pos_2)" @@ -19201,14 +19422,14 @@ static const char *startup_source = " all-quoted?_19)))))" "(if(not" " #f)" -"(for-loop_134" +"(for-loop_135" " all-quoted?_17" "(unsafe-fx+" " idx_3" " 1))" " all-quoted?_17)))" " all-quoted?_16)))))" -" for-loop_134)" +" for-loop_135)" " #t" " start*_3)))))" "(if all-quoted?_15" @@ -19217,93 +19438,93 @@ static const char *startup_source = "(ser-reset!_0" " start-pos_5)" "(ser-push-optional-quote!_0)" -"(ser-push!_15" +"(ser-push!_16" " 'exact" -" v_146)))" +" v_147)))" "(void)))))))))" " c3_0)" -"(if(srcloc? v_146)" +"(if(srcloc? v_147)" "(let-values()" "(begin" -"(ser-push!_15" +"(ser-push!_16" " 'tag" " '#:srcloc)" -"(ser-push!_15" -"(srcloc-source v_146))" -"(ser-push!_15" -"(srcloc-line v_146))" -"(ser-push!_15" -"(srcloc-column v_146))" -"(ser-push!_15" -"(srcloc-position v_146))" -"(ser-push!_15" -"(srcloc-span v_146))))" +"(ser-push!_16" +"(srcloc-source v_147))" +"(ser-push!_16" +"(srcloc-line v_147))" +"(ser-push!_16" +"(srcloc-column v_147))" +"(ser-push!_16" +"(srcloc-position v_147))" +"(ser-push!_16" +"(srcloc-span v_147))))" "(let-values()" "(begin" "(ser-push-optional-quote!_0)" -"(ser-push!_15" +"(ser-push!_16" " 'exact" -" v_146)))))))))))))))))" +" v_147)))))))))))))))))" "((ser-push-optional-quote!_0)" "(lambda()(begin 'ser-push-optional-quote!(void)))))" "(let-values(((ser-shell!_0)" -"(lambda(v_147)" +"(lambda(v_148)" "(begin" " 'ser-shell!" -"(if(serialize-fill!? v_147)" +"(if(serialize-fill!? v_148)" "(let-values()" -"((serialize-ref v_147)" -" v_147" -" ser-push!_15" -" state_24))" -"(if(box? v_147)" -"(let-values()(ser-push!_15 'tag '#:box))" -"(if(vector? v_147)" +"((serialize-ref v_148)" +" v_148" +" ser-push!_16" +" state_25))" +"(if(box? v_148)" +"(let-values()(ser-push!_16 'tag '#:box))" +"(if(vector? v_148)" "(let-values()" "(begin" -"(ser-push!_15 'tag '#:vector)" -"(ser-push!_15" +"(ser-push!_16 'tag '#:vector)" +"(ser-push!_16" " 'exact" -"(vector-length v_147))))" -"(if(hash? v_147)" +"(vector-length v_148))))" +"(if(hash? v_148)" "(let-values()" -"(ser-push!_15" +"(ser-push!_16" " 'tag" -"(if(hash-eq? v_147)" +"(if(hash-eq? v_148)" "(let-values() '#:hasheq)" -"(if(hash-eqv? v_147)" +"(if(hash-eqv? v_148)" "(let-values() '#:hasheqv)" "(let-values() '#:hash)))))" "(let-values()" "(error" " 'ser-shell" " \"unknown mutable: ~e\"" -" v_147))))))))))" +" v_148))))))))))" "(let-values(((ser-shell-fill!_0)" -"(lambda(v_148)" +"(lambda(v_149)" "(begin" " 'ser-shell-fill!" -"(if(serialize-fill!? v_148)" +"(if(serialize-fill!? v_149)" "(let-values()" -"((serialize-fill!-ref v_148)" -" v_148" -" ser-push!_15" -" state_24))" -"(if(box? v_148)" +"((serialize-fill!-ref v_149)" +" v_149" +" ser-push!_16" +" state_25))" +"(if(box? v_149)" "(let-values()" "(begin" -"(ser-push!_15 'tag '#:set-box!)" -"(ser-push!_15(unbox v_148))))" -"(if(vector? v_148)" +"(ser-push!_16 'tag '#:set-box!)" +"(ser-push!_16(unbox v_149))))" +"(if(vector? v_149)" "(let-values()" "(begin" -"(ser-push!_15 'tag '#:set-vector!)" -"(ser-push!_15" +"(ser-push!_16 'tag '#:set-vector!)" +"(ser-push!_16" " 'exact" -"(vector-length v_148))" +"(vector-length v_149))" "(let-values(((vec_45 len_19)" "(let-values(((vec_46)" -" v_148))" +" v_149))" "(begin" "(check-vector vec_46)" "(values" @@ -19312,14 +19533,14 @@ static const char *startup_source = " vec_46))))))" "(begin" " #f" -"((letrec-values(((for-loop_135)" +"((letrec-values(((for-loop_136)" "(lambda(pos_29)" "(begin" " 'for-loop" "(if(unsafe-fx<" " pos_29" " len_19)" -"(let-values(((v_149)" +"(let-values(((v_150)" "(unsafe-vector-ref" " vec_45" " pos_29)))" @@ -19329,38 +19550,38 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(ser-push!_15" -" v_149))" +"(ser-push!_16" +" v_150))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_135" +"(for-loop_136" "(unsafe-fx+" " 1" " pos_29))" "(values))))" "(values))))))" -" for-loop_135)" +" for-loop_136)" " 0)))" "(void)))" -"(if(hash? v_148)" +"(if(hash? v_149)" "(let-values()" "(let-values((()" "(begin" -"(ser-push!_15" +"(ser-push!_16" " 'tag" " '#:set-hash!)" "(values))))" "(let-values((()" "(begin" -"(ser-push!_15" +"(ser-push!_16" " 'exact" -"(hash-count v_148))" +"(hash-count v_149))" "(values))))" "(let-values(((ks_1)" "(sorted-hash-keys" -" v_148)))" +" v_149)))" "(begin" "(let-values(((lst_117) ks_1))" "(begin" @@ -19369,7 +19590,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_117)))" -"((letrec-values(((for-loop_136)" +"((letrec-values(((for-loop_137)" "(lambda(lst_1)" "(begin" " 'for-loop" @@ -19378,7 +19599,7 @@ static const char *startup_source = "(let-values(((k_25)" "(unsafe-car" " lst_1))" -"((rest_60)" +"((rest_59)" "(unsafe-cdr" " lst_1)))" "(let-values((()" @@ -19388,28 +19609,28 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(ser-push!_15" +"(ser-push!_16" " k_25)" -"(ser-push!_15" +"(ser-push!_16" "(hash-ref" -" v_148" +" v_149" " k_25))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_136" -" rest_60)" +"(for-loop_137" +" rest_59)" "(values))))" "(values))))))" -" for-loop_136)" +" for-loop_137)" " lst_117)))" "(void))))))" "(let-values()" "(error" " 'ser-shell-fill" " \"unknown mutable: ~e\"" -" v_148))))))))))" +" v_149))))))))))" "(let-values(((rev-mutables_0)" "(let-values(((ht_88) mutables_0))" "(begin" @@ -19417,42 +19638,42 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_88)))" -"((letrec-values(((for-loop_137)" -"(lambda(table_125 i_111)" +"((letrec-values(((for-loop_138)" +"(lambda(table_125 i_112)" "(begin" " 'for-loop" -"(if i_111" +"(if i_112" "(let-values(((k_26" -" v_150)" +" v_151)" "(hash-iterate-key+value" " ht_88" -" i_111)))" +" i_112)))" "(let-values(((table_126)" "(let-values(((table_127)" " table_125))" "(let-values(((table_128)" "(let-values()" "(let-values(((key_47" -" val_41)" +" val_42)" "(let-values()" "(values" -" v_150" +" v_151" " k_26))))" "(hash-set" " table_127" " key_47" -" val_41)))))" +" val_42)))))" "(values" " table_128)))))" "(if(not #f)" -"(for-loop_137" +"(for-loop_138" " table_126" "(hash-iterate-next" " ht_88" -" i_111))" +" i_112))" " table_126)))" " table_125)))))" -" for-loop_137)" +" for-loop_138)" " '#hasheqv()" "(hash-iterate-first ht_88))))))" "(let-values(((mutable-shell-bindings_0)" @@ -19468,14 +19689,14 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_21 end_13 inc_7)))" -"((letrec-values(((for-loop_138)" +"((letrec-values(((for-loop_139)" "(lambda(pos_30)" "(begin" " 'for-loop" "(if(<" " pos_30" " end_13)" -"(let-values(((i_112)" +"(let-values(((i_113)" " pos_30))" "(let-values((()" "(let-values()" @@ -19486,17 +19707,17 @@ static const char *startup_source = "(ser-shell!_0" "(hash-ref" " rev-mutables_0" -" i_112)))" +" i_113)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_138" +"(for-loop_139" "(+" " pos_30" " inc_7))" "(values))))" "(values))))))" -" for-loop_138)" +" for-loop_139)" " start_21)))" "(void))" "(reap-stream!_0))))" @@ -19508,22 +19729,22 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash-keys ht_89)))" -"((letrec-values(((for-loop_139)" -"(lambda(table_129 i_113)" +"((letrec-values(((for-loop_140)" +"(lambda(table_129 i_114)" "(begin" " 'for-loop" -"(if i_113" +"(if i_114" "(let-values(((obj_1)" "(hash-iterate-key" " ht_89" -" i_113)))" +" i_114)))" "(let-values(((table_130)" "(let-values(((table_131)" " table_129))" "(let-values(((table_132)" "(let-values()" "(let-values(((key_48" -" val_42)" +" val_43)" "(let-values()" "(values" "(hash-ref" @@ -19535,18 +19756,18 @@ static const char *startup_source = "(hash-set" " table_131" " key_48" -" val_42)))))" +" val_43)))))" "(values" " table_132)))))" "(if(not #f)" -"(for-loop_139" +"(for-loop_140" " table_130" "(hash-iterate-next" " ht_89" -" i_113))" +" i_114))" " table_130)))" " table_129)))))" -" for-loop_139)" +" for-loop_140)" " '#hasheqv()" "(hash-iterate-first ht_89))))))" "(let-values(((shared-bindings_0)" @@ -19567,7 +19788,7 @@ static const char *startup_source = " start_22" " end_14" " inc_8)))" -"((letrec-values(((for-loop_140)" +"((letrec-values(((for-loop_141)" "(lambda(pos_31)" "(begin" " 'for-loop" @@ -19590,13 +19811,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_140" +"(for-loop_141" "(+" " pos_31" " inc_8))" "(values))))" "(values))))))" -" for-loop_140)" +" for-loop_141)" " start_22)))" "(void))" "(reap-stream!_0))))" @@ -19616,14 +19837,14 @@ static const char *startup_source = " start_23" " end_15" " inc_9)))" -"((letrec-values(((for-loop_141)" +"((letrec-values(((for-loop_142)" "(lambda(pos_32)" "(begin" " 'for-loop" "(if(<" " pos_32" " end_15)" -"(let-values(((i_114)" +"(let-values(((i_115)" " pos_32))" "(let-values((()" "(let-values()" @@ -19634,18 +19855,18 @@ static const char *startup_source = "(ser-shell-fill!_0" "(hash-ref" " rev-mutables_0" -" i_114)))" +" i_115)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_141" +"(for-loop_142" "(+" " pos_32" " inc_9))" "(values))))" "(values))))))" -" for-loop_141)" +" for-loop_142)" " start_23)))" "(void))" "(reap-stream!_0))))" @@ -19662,7 +19883,7 @@ static const char *startup_source = "(list" " 'quote" "(begin" -"(ser-push!_15 v_141)" +"(ser-push!_16 v_141)" "(reap-stream!_0))))))))))))))))))))))))))))))))))))" "(define-values" "(sorted-hash-keys)" @@ -19706,12 +19927,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_142)" +"((letrec-values(((for-loop_143)" "(lambda(pos_33 pos_34)" "(begin" " 'for-loop" "(if(< pos_34 end_16)" -"(let-values(((i_115) pos_34))" +"(let-values(((i_116) pos_34))" "(let-values(((pos_35)" "(let-values(((pos_36) pos_33))" "(let-values(((pos_37)" @@ -19727,13 +19948,13 @@ static const char *startup_source = "(begin" "(vector-set!" " shared_0" -" i_115" +" i_116" " d_22)" " next-pos_0)))))" "(values pos_37)))))" -"(if(not #f)(for-loop_142 pos_35(+ pos_34 inc_10)) pos_35)))" +"(if(not #f)(for-loop_143 pos_35(+ pos_34 inc_10)) pos_35)))" " pos_33)))))" -" for-loop_142)" +" for-loop_143)" " 0" " start_24)))" "(values))))" @@ -19746,12 +19967,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_143)" +"((letrec-values(((for-loop_144)" "(lambda(pos_38 pos_39)" "(begin" " 'for-loop" "(if(< pos_39 end_17)" -"(let-values(((i_116) pos_39))" +"(let-values(((i_117) pos_39))" "(let-values(((pos_40)" "(let-values(((pos_41) pos_38))" "(let-values(((pos_42)" @@ -19767,13 +19988,13 @@ static const char *startup_source = "(begin" "(vector-set!" " shared_0" -" i_116" +" i_117" " d_23)" " next-pos_1)))))" "(values pos_42)))))" -"(if(not #f)(for-loop_143 pos_40(+ pos_39 inc_11)) pos_40)))" +"(if(not #f)(for-loop_144 pos_40(+ pos_39 inc_11)) pos_40)))" " pos_38)))))" -" for-loop_143)" +" for-loop_144)" " 0" " start_25)))" "(values))))" @@ -19792,18 +20013,18 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_26 end_18 inc_12)))" " #f" -"((letrec-values(((for-loop_144)" +"((letrec-values(((for-loop_145)" "(lambda(pos_43 pos_44 pos_45)" "(begin" " 'for-loop" "(if(if(< pos_44 end_18)(unsafe-fx< pos_45 len_20) #f)" -"(let-values(((v_151)(unsafe-vector-ref vec_47 pos_45)))" +"(let-values(((v_152)(unsafe-vector-ref vec_47 pos_45)))" "(let-values(((pos_46)" "(let-values(((pos_47) pos_43))" "(let-values(((pos_48)" "(let-values()" "(decode-fill!" -" v_151" +" v_152" " mutable-fill-vec_0" " pos_47" " mpis_7" @@ -19812,13 +20033,13 @@ static const char *startup_source = " shared_0))))" "(values pos_48)))))" "(if(not #f)" -"(for-loop_144" +"(for-loop_145" " pos_46" "(+ pos_44 inc_12)" "(unsafe-fx+ 1 pos_45))" " pos_46)))" " pos_43)))))" -" for-loop_144)" +" for-loop_145)" " 0" " start_26" " 0)))" @@ -19830,16 +20051,16 @@ static const char *startup_source = "(decode-shell)" "(lambda(vec_49 pos_49 mpis_8 inspector_5 bulk-binding-registry_6 shared_1)" "(begin" -"(let-values(((tmp_18)(vector*-ref vec_49 pos_49)))" -"(if(equal? tmp_18 '#:box)" +"(let-values(((tmp_19)(vector*-ref vec_49 pos_49)))" +"(if(equal? tmp_19 '#:box)" "(let-values()(values(box #f)(add1 pos_49)))" -"(if(equal? tmp_18 '#:vector)" +"(if(equal? tmp_19 '#:vector)" "(let-values()(values(make-vector(vector*-ref vec_49(add1 pos_49)))(+ pos_49 2)))" -"(if(equal? tmp_18 '#:hash)" +"(if(equal? tmp_19 '#:hash)" "(let-values()(values(make-hasheq)(add1 pos_49)))" -"(if(equal? tmp_18 '#:hasheq)" +"(if(equal? tmp_19 '#:hasheq)" "(let-values()(values(make-hasheq)(add1 pos_49)))" -"(if(equal? tmp_18 '#:hasheqv)" +"(if(equal? tmp_19 '#:hasheqv)" "(let-values()(values(make-hasheqv)(add1 pos_49)))" "(let-values()(decode vec_49 pos_49 mpis_8 inspector_5 bulk-binding-registry_6 shared_1)))))))))))" "(define-values" @@ -19847,46 +20068,47 @@ static const char *startup_source = "(lambda(vec_50 pos_50 mpis_9 inspector_6 bulk-binding-registry_7 shared_2)" "(begin" "(let-values()" -"(let-values(((tmp_19)(vector*-ref vec_50 pos_50)))" +"(let-values(((tmp_20)(vector*-ref vec_50 pos_50)))" "(let-values(((index_0)" -"(if(keyword? tmp_19)" +"(if(keyword? tmp_20)" "(hash-ref" " '#hasheq((#:scope+kind . 17)" "(#:seteqv . 14)" "(#:ref . 1)" "(#:list . 12)" "(#:vector . 12)" -"(#:module-binding . 23)" +"(#:module-binding . 24)" "(#:set . 14)" "(#:srcloc . 7)" -"(#:bulk-binding-at . 21)" -"(#:multi-scope . 18)" +"(#:bulk-binding-at . 22)" +"(#:multi-scope . 19)" "(#:hasheq . 13)" -"(#:simple-module-binding . 24)" +"(#:simple-module-binding . 25)" "(#:scope . 16)" "(#:bulk-binding-registry . 3)" "(#:hash . 13)" -"(#:shifted-multi-scope . 19)" +"(#:shifted-multi-scope . 20)" "(#:mpi . 9)" "(#:quote . 8)" "(#:prefab . 15)" "(#:box . 10)" -"(#:local-binding . 25)" -"(#:bulk-binding . 26)" +"(#:local-binding . 26)" +"(#:bulk-binding . 27)" "(#:inspector . 2)" -"(#:table-with-bulk-bindings . 20)" +"(#:table-with-bulk-bindings . 21)" +"(#:interned-scope . 18)" "(#:seteq . 14)" -"(#:provided . 27)" +"(#:provided . 28)" "(#:syntax . 4)" "(#:cons . 11)" "(#:hasheqv . 13)" "(#:datum->syntax . 5)" "(#:syntax+props . 6)" -"(#:representative-scope . 22))" -" tmp_19" +"(#:representative-scope . 23))" +" tmp_20" "(lambda() 0))" " 0)))" -"(if(unsafe-fx< index_0 13)" +"(if(unsafe-fx< index_0 14)" "(if(unsafe-fx< index_0 6)" "(if(unsafe-fx< index_0 2)" "(if(unsafe-fx< index_0 1)" @@ -19907,9 +20129,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(let-values(((context_2 next-pos_3)" -"(let-values(((i_117)(vector*-ref vec_50 next-pos_2)))" -"(if(exact-integer? i_117)" -"(values(vector*-ref shared_2 i_117)(add1 next-pos_2))" +"(let-values(((i_118)(vector*-ref vec_50 next-pos_2)))" +"(if(exact-integer? i_118)" +"(values(vector*-ref shared_2 i_118)(add1 next-pos_2))" "(decode" " vec_50" " next-pos_2" @@ -19918,9 +20140,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_3 next-pos_4)" -"(let-values(((i_118)(vector*-ref vec_50 next-pos_3)))" -"(if(exact-integer? i_118)" -"(values(vector*-ref shared_2 i_118)(add1 next-pos_3))" +"(let-values(((i_119)(vector*-ref vec_50 next-pos_3)))" +"(if(exact-integer? i_119)" +"(values(vector*-ref shared_2 i_119)(add1 next-pos_3))" "(decode" " vec_50" " next-pos_3" @@ -19941,9 +20163,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(let-values(((context_3 next-pos_6)" -"(let-values(((i_119)(vector*-ref vec_50 next-pos_5)))" -"(if(exact-integer? i_119)" -"(values(vector*-ref shared_2 i_119)(add1 next-pos_5))" +"(let-values(((i_120)(vector*-ref vec_50 next-pos_5)))" +"(if(exact-integer? i_120)" +"(values(vector*-ref shared_2 i_120)(add1 next-pos_5))" "(decode" " vec_50" " next-pos_5" @@ -19952,9 +20174,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_4 next-pos_7)" -"(let-values(((i_120)(vector*-ref vec_50 next-pos_6)))" -"(if(exact-integer? i_120)" -"(values(vector*-ref shared_2 i_120)(add1 next-pos_6))" +"(let-values(((i_121)(vector*-ref vec_50 next-pos_6)))" +"(if(exact-integer? i_121)" +"(values(vector*-ref shared_2 i_121)(add1 next-pos_6))" "(decode" " vec_50" " next-pos_6" @@ -19971,9 +20193,9 @@ static const char *startup_source = "(let-values(((content_10 next-pos_8)" "(decode vec_50(add1 pos_50) mpis_9 inspector_6 bulk-binding-registry_7 shared_2)))" "(let-values(((context_4 next-pos_9)" -"(let-values(((i_121)(vector*-ref vec_50 next-pos_8)))" -"(if(exact-integer? i_121)" -"(values(vector*-ref shared_2 i_121)(add1 next-pos_8))" +"(let-values(((i_122)(vector*-ref vec_50 next-pos_8)))" +"(if(exact-integer? i_122)" +"(values(vector*-ref shared_2 i_122)(add1 next-pos_8))" "(decode" " vec_50" " next-pos_8" @@ -19982,9 +20204,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_5 next-pos_10)" -"(let-values(((i_122)(vector*-ref vec_50 next-pos_9)))" -"(if(exact-integer? i_122)" -"(values(vector*-ref shared_2 i_122)(add1 next-pos_9))" +"(let-values(((i_123)(vector*-ref vec_50 next-pos_9)))" +"(if(exact-integer? i_123)" +"(values(vector*-ref shared_2 i_123)(add1 next-pos_9))" "(decode" " vec_50" " next-pos_9" @@ -20055,11 +20277,11 @@ static const char *startup_source = " shared_2)))" "(values(srcloc source_0 line_0 column_0 position_0 span_0) next-pos_17)))))))" "(let-values()(values(vector*-ref vec_50(add1 pos_50))(+ pos_50 2)))))" +"(if(unsafe-fx< index_0 11)" "(if(unsafe-fx< index_0 10)" "(let-values()(values(vector*-ref mpis_9(vector*-ref vec_50(add1 pos_50)))(+ pos_50 2)))" -"(if(unsafe-fx< index_0 11)" "(let-values()" -"(let-values(((v_152 next-pos_18)" +"(let-values(((v_153 next-pos_18)" "(decode" " vec_50" "(add1 pos_50)" @@ -20067,7 +20289,7 @@ static const char *startup_source = " inspector_6" " bulk-binding-registry_7" " shared_2)))" -"(values(box-immutable v_152) next-pos_18)))" +"(values(box-immutable v_153) next-pos_18))))" "(if(unsafe-fx< index_0 12)" "(let-values()" "(let-values(((a_38 next-pos_19)" @@ -20087,6 +20309,7 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values(cons a_38 d_24) next-pos_20))))" +"(if(unsafe-fx< index_0 13)" "(let-values()" "(let-values(((len_21)(vector*-ref vec_50(add1 pos_50))))" "(let-values(((r_29)(make-vector len_21)))" @@ -20096,19 +20319,19 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_27 end_19 inc_13)))" -"((letrec-values(((for-loop_145)" +"((letrec-values(((for-loop_146)" "(lambda(pos_51 pos_52)" "(begin" " 'for-loop" "(if(< pos_52 end_19)" -"(let-values(((i_123) pos_52))" +"(let-values(((i_124) pos_52))" "(let-values(((pos_53)" "(let-values(((pos_54) pos_51))" "(let-values(((pos_55)" "(let-values()" -"(let-values(((v_153" -" next-pos_22)" "(let-values(((v_154" +" next-pos_22)" +"(let-values(((v_155" " next-pos_23)" "(decode" " vec_50" @@ -20118,38 +20341,35 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -" v_154" +" v_155" " next-pos_23))))" "(begin" "(vector-set!" " r_29" -" i_123" -" v_153)" +" i_124" +" v_154)" " next-pos_22)))))" "(values pos_55)))))" "(if(not #f)" -"(for-loop_145 pos_53(+ pos_52 inc_13))" +"(for-loop_146 pos_53(+ pos_52 inc_13))" " pos_53)))" " pos_51)))))" -" for-loop_145)" +" for-loop_146)" "(+ pos_50 2)" " start_27)))))" "(values" "(if(eq?(vector*-ref vec_50 pos_50) '#:list)" "(vector->list r_29)" "(vector->immutable-vector r_29))" -" next-pos_21))))))))))" -"(if(unsafe-fx< index_0 20)" -"(if(unsafe-fx< index_0 16)" -"(if(unsafe-fx< index_0 14)" +" next-pos_21)))))" "(let-values()" -"(let-values(((ht_91)" -"(let-values(((tmp_20)(vector*-ref vec_50 pos_50)))" -"(if(equal? tmp_20 '#:hash)" +"(let-values(((ht_55)" +"(let-values(((tmp_21)(vector*-ref vec_50 pos_50)))" +"(if(equal? tmp_21 '#:hash)" "(let-values()(hash))" -"(if(equal? tmp_20 '#:hasheq)" +"(if(equal? tmp_21 '#:hasheq)" "(let-values()(hasheq))" -"(if(equal? tmp_20 '#:hasheqv)" +"(if(equal? tmp_21 '#:hasheqv)" "(let-values()(hasheqv))" "(let-values()(void))))))))" "(let-values(((len_22)(vector*-ref vec_50(add1 pos_50))))" @@ -20158,17 +20378,19 @@ 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_146)" -"(lambda(ht_92 pos_56 pos_57)" +"((letrec-values(((for-loop_147)" +"(lambda(ht_91 pos_56 pos_57)" "(begin" " 'for-loop" "(if(< pos_57 end_20)" "(let-values()" -"(let-values(((ht_93 pos_58)" -"(let-values(((ht_94) ht_92)((pos_59) pos_56))" -"(let-values(((ht_95 pos_60)" +"(let-values(((ht_92 pos_58)" +"(let-values(((ht_93) ht_91)" +"((pos_59) pos_56))" +"(let-values(((ht_94 pos_60)" "(let-values()" -"(let-values(((k_27 next-pos_24)" +"(let-values(((k_27" +" next-pos_24)" "(decode" " vec_50" " pos_59" @@ -20176,7 +20398,7 @@ static const char *startup_source = " inspector_6" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((v_155" +"(let-values(((v_156" " next-pos_25)" "(decode" " vec_50" @@ -20186,26 +20408,31 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -"(hash-set ht_94 k_27 v_155)" +"(hash-set" +" ht_93" +" k_27" +" v_156)" " next-pos_25))))))" -"(values ht_95 pos_60)))))" +"(values ht_94 pos_60)))))" "(if(not #f)" -"(for-loop_146 ht_93 pos_58(+ pos_57 inc_14))" -"(values ht_93 pos_58))))" -"(values ht_92 pos_56))))))" -" for-loop_146)" -" ht_91" +"(for-loop_147 ht_92 pos_58(+ pos_57 inc_14))" +"(values ht_92 pos_58))))" +"(values ht_91 pos_56))))))" +" for-loop_147)" +" ht_55" "(+ pos_50 2)" -" start_28))))))" +" start_28)))))))))))" +"(if(unsafe-fx< index_0 21)" +"(if(unsafe-fx< index_0 17)" "(if(unsafe-fx< index_0 15)" "(let-values()" -"(let-values(((s_191)" -"(let-values(((tmp_21)(vector*-ref vec_50 pos_50)))" -"(if(equal? tmp_21 '#:set)" +"(let-values(((s_194)" +"(let-values(((tmp_22)(vector*-ref vec_50 pos_50)))" +"(if(equal? tmp_22 '#:set)" "(let-values()(set))" -"(if(equal? tmp_21 '#:seteq)" +"(if(equal? tmp_22 '#:seteq)" "(let-values()(seteq))" -"(if(equal? tmp_21 '#:seteqv)" +"(if(equal? tmp_22 '#:seteqv)" "(let-values()(seteqv))" "(let-values()(void))))))))" "(let-values(((len_23)(vector*-ref vec_50(add1 pos_50))))" @@ -20214,18 +20441,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_147)" -"(lambda(s_147 pos_61 pos_62)" +"((letrec-values(((for-loop_148)" +"(lambda(s_195 pos_61 pos_62)" "(begin" " 'for-loop" "(if(< pos_62 end_21)" "(let-values()" -"(let-values(((s_192 pos_63)" -"(let-values(((s_149) s_147)((pos_64) pos_61))" -"(let-values(((s_150 pos_65)" +"(let-values(((s_196 pos_63)" +"(let-values(((s_197) s_195)((pos_64) pos_61))" +"(let-values(((s_198 pos_65)" "(let-values()" -"(let-values(((k_28" -" next-pos_26)" +"(let-values(((k_28 next-pos_26)" "(decode" " vec_50" " pos_64" @@ -20234,17 +20460,18 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -"(set-add s_149 k_28)" +"(set-add s_197 k_28)" " next-pos_26)))))" -"(values s_150 pos_65)))))" +"(values s_198 pos_65)))))" "(if(not #f)" -"(for-loop_147 s_192 pos_63(+ pos_62 inc_15))" -"(values s_192 pos_63))))" -"(values s_147 pos_61))))))" -" for-loop_147)" -" s_191" +"(for-loop_148 s_196 pos_63(+ pos_62 inc_15))" +"(values s_196 pos_63))))" +"(values s_195 pos_61))))))" +" for-loop_148)" +" s_194" "(+ pos_50 2)" " start_29))))))" +"(if(unsafe-fx< index_0 16)" "(let-values()" "(let-values(((key_49 next-pos_27)" "(let-values(((k_29 next-pos_28)" @@ -20263,7 +20490,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_30 end_22 inc_16)))" -"((letrec-values(((for-loop_148)" +"((letrec-values(((for-loop_149)" "(lambda(r_31 pos_66 pos_67)" "(begin" " 'for-loop" @@ -20274,7 +20501,7 @@ static const char *startup_source = "((pos_69) pos_66))" "(let-values(((r_34 pos_70)" "(let-values()" -"(let-values(((v_156" +"(let-values(((v_157" " next-pos_29)" "(decode" " vec_50" @@ -20285,35 +20512,28 @@ static const char *startup_source = " shared_2)))" "(values" "(cons" -" v_156" +" v_157" " r_33)" " next-pos_29)))))" "(values r_34 pos_70)))))" "(if(not #f)" -"(for-loop_148 r_32 pos_68(+ pos_67 inc_16))" +"(for-loop_149 r_32 pos_68(+ pos_67 inc_16))" "(values r_32 pos_68))))" "(values r_31 pos_66))))))" -" for-loop_148)" +" for-loop_149)" " null" "(add1 next-pos_27)" " start_30)))))" -"(values(apply make-prefab-struct key_49(reverse$1 r_30)) done-pos_1)))))))" -"(if(unsafe-fx< index_0 17)" -"(let-values()(values(deserialize-scope)(add1 pos_50)))" +"(values(apply make-prefab-struct key_49(reverse$1 r_30)) done-pos_1)))))" +"(let-values()(values(deserialize-scope)(add1 pos_50)))))" "(if(unsafe-fx< index_0 18)" "(let-values()" -"(let-values(((kind_5 next-pos_30)" -"(decode" -" vec_50" -"(add1 pos_50)" -" mpis_9" -" inspector_6" -" bulk-binding-registry_7" -" shared_2)))" -"(values(deserialize-scope kind_5) next-pos_30)))" +"(let-values(((kind_6 next-pos_30)" +"(decode vec_50(add1 pos_50) mpis_9 inspector_6 bulk-binding-registry_7 shared_2)))" +"(values(deserialize-scope kind_6) next-pos_30)))" "(if(unsafe-fx< index_0 19)" "(let-values()" -"(let-values(((name_38 next-pos_31)" +"(let-values(((id_23 next-pos_31)" "(decode" " vec_50" "(add1 pos_50)" @@ -20321,17 +20541,10 @@ static const char *startup_source = " inspector_6" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((scopes_21 next-pos_32)" -"(decode" -" vec_50" -" next-pos_31" -" mpis_9" -" inspector_6" -" bulk-binding-registry_7" -" shared_2)))" -"(values(deserialize-multi-scope name_38 scopes_21) next-pos_32))))" +"(values(make-interned-scope id_23) next-pos_31)))" +"(if(unsafe-fx< index_0 20)" "(let-values()" -"(let-values(((phase_50 next-pos_33)" +"(let-values(((name_38 next-pos_32)" "(decode" " vec_50" "(add1 pos_50)" @@ -20339,44 +20552,44 @@ static const char *startup_source = " inspector_6" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((multi-scope_2 next-pos_34)" +"(let-values(((scopes_21 next-pos_33)" "(decode" " vec_50" -" next-pos_33" +" next-pos_32" " mpis_9" " inspector_6" " bulk-binding-registry_7" " shared_2)))" -"(values(deserialize-shifted-multi-scope phase_50 multi-scope_2) next-pos_34))))))))" -"(if(unsafe-fx< index_0 23)" -"(if(unsafe-fx< index_0 21)" +"(values(deserialize-multi-scope name_38 scopes_21) next-pos_33))))" "(let-values()" -"(let-values(((syms_13 next-pos_35)" -"(decode vec_50(add1 pos_50) mpis_9 inspector_6 bulk-binding-registry_7 shared_2)))" -"(let-values(((bulk-bindings_4 next-pos_36)" -"(decode vec_50 next-pos_35 mpis_9 inspector_6 bulk-binding-registry_7 shared_2)))" -"(values(deserialize-table-with-bulk-bindings syms_13 bulk-bindings_4) next-pos_36))))" +"(let-values(((phase_49 next-pos_34)" +"(decode" +" vec_50" +"(add1 pos_50)" +" mpis_9" +" inspector_6" +" bulk-binding-registry_7" +" shared_2)))" +"(let-values(((multi-scope_2 next-pos_35)" +"(decode" +" vec_50" +" next-pos_34" +" mpis_9" +" inspector_6" +" bulk-binding-registry_7" +" shared_2)))" +"(values(deserialize-shifted-multi-scope phase_49 multi-scope_2) next-pos_35))))))))" +"(if(unsafe-fx< index_0 24)" "(if(unsafe-fx< index_0 22)" "(let-values()" -"(let-values(((scopes_22 next-pos_37)" -"(decode" -" vec_50" -"(add1 pos_50)" -" mpis_9" -" inspector_6" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((bulk_5 next-pos_38)" -"(decode" -" vec_50" -" next-pos_37" -" mpis_9" -" inspector_6" -" bulk-binding-registry_7" -" shared_2)))" -"(values(deserialize-bulk-binding-at scopes_22 bulk_5) next-pos_38))))" +"(let-values(((syms_13 next-pos_36)" +"(decode vec_50(add1 pos_50) mpis_9 inspector_6 bulk-binding-registry_7 shared_2)))" +"(let-values(((bulk-bindings_4 next-pos_37)" +"(decode vec_50 next-pos_36 mpis_9 inspector_6 bulk-binding-registry_7 shared_2)))" +"(values(deserialize-table-with-bulk-bindings syms_13 bulk-bindings_4) next-pos_37))))" +"(if(unsafe-fx< index_0 23)" "(let-values()" -"(let-values(((kind_6 next-pos_39)" +"(let-values(((scopes_22 next-pos_38)" "(decode" " vec_50" "(add1 pos_50)" @@ -20384,19 +20597,37 @@ static const char *startup_source = " inspector_6" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((phase_51 next-pos_40)" +"(let-values(((bulk_5 next-pos_39)" "(decode" " vec_50" -" next-pos_39" +" next-pos_38" " mpis_9" " inspector_6" " bulk-binding-registry_7" " shared_2)))" -"(values(deserialize-representative-scope kind_6 phase_51) next-pos_40))))))" +"(values(deserialize-bulk-binding-at scopes_22 bulk_5) next-pos_39))))" +"(let-values()" +"(let-values(((kind_7 next-pos_40)" +"(decode" +" vec_50" +"(add1 pos_50)" +" mpis_9" +" inspector_6" +" bulk-binding-registry_7" +" shared_2)))" +"(let-values(((phase_50 next-pos_41)" +"(decode" +" vec_50" +" next-pos_40" +" mpis_9" +" inspector_6" +" bulk-binding-registry_7" +" shared_2)))" +"(values(deserialize-representative-scope kind_7 phase_50) next-pos_41))))))" +"(if(unsafe-fx< index_0 26)" "(if(unsafe-fx< index_0 25)" -"(if(unsafe-fx< index_0 24)" "(let-values()" -"(let-values(((module_4 next-pos_41)" +"(let-values(((module_4 next-pos_42)" "(decode" " vec_50" "(add1 pos_50)" @@ -20404,15 +20635,7 @@ static const char *startup_source = " inspector_6" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((sym_29 next-pos_42)" -"(decode" -" vec_50" -" next-pos_41" -" mpis_9" -" inspector_6" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((phase_52 next-pos_43)" +"(let-values(((sym_30 next-pos_43)" "(decode" " vec_50" " next-pos_42" @@ -20420,7 +20643,7 @@ static const char *startup_source = " inspector_6" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((nominal-module_4 next-pos_44)" +"(let-values(((phase_51 next-pos_44)" "(decode" " vec_50" " next-pos_43" @@ -20428,7 +20651,7 @@ static const char *startup_source = " inspector_6" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((nominal-phase_3 next-pos_45)" +"(let-values(((nominal-module_4 next-pos_45)" "(decode" " vec_50" " next-pos_44" @@ -20436,7 +20659,7 @@ static const char *startup_source = " inspector_6" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((nominal-sym_3 next-pos_46)" +"(let-values(((nominal-phase_3 next-pos_46)" "(decode" " vec_50" " next-pos_45" @@ -20444,7 +20667,7 @@ static const char *startup_source = " inspector_6" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((nominal-require-phase_3 next-pos_47)" +"(let-values(((nominal-sym_3 next-pos_47)" "(decode" " vec_50" " next-pos_46" @@ -20452,7 +20675,7 @@ static const char *startup_source = " inspector_6" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((free=id_8 next-pos_48)" +"(let-values(((nominal-require-phase_3 next-pos_48)" "(decode" " vec_50" " next-pos_47" @@ -20460,7 +20683,7 @@ static const char *startup_source = " inspector_6" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((extra-inspector_3 next-pos_49)" +"(let-values(((free=id_8 next-pos_49)" "(decode" " vec_50" " next-pos_48" @@ -20468,7 +20691,7 @@ static const char *startup_source = " inspector_6" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((extra-nominal-bindings_3 next-pos_50)" +"(let-values(((extra-inspector_3 next-pos_50)" "(decode" " vec_50" " next-pos_49" @@ -20476,11 +20699,19 @@ static const char *startup_source = " inspector_6" " bulk-binding-registry_7" " shared_2)))" +"(let-values(((extra-nominal-bindings_3 next-pos_51)" +"(decode" +" vec_50" +" next-pos_50" +" mpis_9" +" inspector_6" +" bulk-binding-registry_7" +" shared_2)))" "(values" "(deserialize-full-module-binding" " module_4" -" sym_29" -" phase_52" +" sym_30" +" phase_51" " nominal-module_4" " nominal-phase_3" " nominal-sym_3" @@ -20488,9 +20719,9 @@ static const char *startup_source = " free=id_8" " extra-inspector_3" " extra-nominal-bindings_3)" -" next-pos_50))))))))))))" +" next-pos_51))))))))))))" "(let-values()" -"(let-values(((module_5 next-pos_51)" +"(let-values(((module_5 next-pos_52)" "(decode" " vec_50" "(add1 pos_50)" @@ -20498,15 +20729,7 @@ static const char *startup_source = " inspector_6" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((sym_30 next-pos_52)" -"(decode" -" vec_50" -" next-pos_51" -" mpis_9" -" inspector_6" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((phase_53 next-pos_53)" +"(let-values(((sym_31 next-pos_53)" "(decode" " vec_50" " next-pos_52" @@ -20514,7 +20737,7 @@ static const char *startup_source = " inspector_6" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((nominal-module_5 next-pos_54)" +"(let-values(((phase_52 next-pos_54)" "(decode" " vec_50" " next-pos_53" @@ -20522,31 +20745,20 @@ static const char *startup_source = " inspector_6" " bulk-binding-registry_7" " shared_2)))" +"(let-values(((nominal-module_5 next-pos_55)" +"(decode" +" vec_50" +" next-pos_54" +" mpis_9" +" inspector_6" +" bulk-binding-registry_7" +" shared_2)))" "(values" -"(deserialize-simple-module-binding module_5 sym_30 phase_53 nominal-module_5)" -" next-pos_54)))))))" -"(if(unsafe-fx< index_0 26)" -"(let-values()" -"(let-values(((key_50 next-pos_55)" -"(decode" -" vec_50" -"(add1 pos_50)" -" mpis_9" -" inspector_6" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((free=id_9 next-pos_56)" -"(decode" -" vec_50" -" next-pos_55" -" mpis_9" -" inspector_6" -" bulk-binding-registry_7" -" shared_2)))" -"(values(deserialize-full-local-binding key_50 free=id_9) next-pos_56))))" +"(deserialize-simple-module-binding module_5 sym_31 phase_52 nominal-module_5)" +" next-pos_55)))))))" "(if(unsafe-fx< index_0 27)" "(let-values()" -"(let-values(((prefix_3 next-pos_57)" +"(let-values(((key_50 next-pos_56)" "(decode" " vec_50" "(add1 pos_50)" @@ -20554,15 +20766,26 @@ static const char *startup_source = " inspector_6" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((excepts_3 next-pos_58)" +"(let-values(((free=id_9 next-pos_57)" "(decode" " vec_50" -" next-pos_57" +" next-pos_56" " mpis_9" " inspector_6" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((mpi_29 next-pos_59)" +"(values(deserialize-full-local-binding key_50 free=id_9) next-pos_57))))" +"(if(unsafe-fx< index_0 28)" +"(let-values()" +"(let-values(((prefix_3 next-pos_58)" +"(decode" +" vec_50" +"(add1 pos_50)" +" mpis_9" +" inspector_6" +" bulk-binding-registry_7" +" shared_2)))" +"(let-values(((excepts_3 next-pos_59)" "(decode" " vec_50" " next-pos_58" @@ -20570,7 +20793,7 @@ static const char *startup_source = " inspector_6" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((provide-phase-level_2 next-pos_60)" +"(let-values(((mpi_29 next-pos_60)" "(decode" " vec_50" " next-pos_59" @@ -20578,7 +20801,7 @@ static const char *startup_source = " inspector_6" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((phase-shift_5 next-pos_61)" +"(let-values(((provide-phase-level_2 next-pos_61)" "(decode" " vec_50" " next-pos_60" @@ -20586,7 +20809,7 @@ static const char *startup_source = " inspector_6" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((bulk-binding-registry_3 next-pos_62)" +"(let-values(((phase-shift_5 next-pos_62)" "(decode" " vec_50" " next-pos_61" @@ -20594,6 +20817,14 @@ static const char *startup_source = " inspector_6" " bulk-binding-registry_7" " shared_2)))" +"(let-values(((bulk-binding-registry_8 next-pos_63)" +"(decode" +" vec_50" +" next-pos_62" +" mpis_9" +" inspector_6" +" bulk-binding-registry_7" +" shared_2)))" "(values" "(deserialize-bulk-binding" " prefix_3" @@ -20601,10 +20832,10 @@ static const char *startup_source = " mpi_29" " provide-phase-level_2" " phase-shift_5" -" bulk-binding-registry_3)" -" next-pos_62))))))))" +" bulk-binding-registry_8)" +" next-pos_63))))))))" "(let-values()" -"(let-values(((binding_10 next-pos_63)" +"(let-values(((binding_10 next-pos_64)" "(decode" " vec_50" "(add1 pos_50)" @@ -20612,15 +20843,7 @@ static const char *startup_source = " inspector_6" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((protected?_2 next-pos_64)" -"(decode" -" vec_50" -" next-pos_63" -" mpis_9" -" inspector_6" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((syntax?_3 next-pos_65)" +"(let-values(((protected?_2 next-pos_65)" "(decode" " vec_50" " next-pos_64" @@ -20628,22 +20851,30 @@ static const char *startup_source = " inspector_6" " bulk-binding-registry_7" " shared_2)))" +"(let-values(((syntax?_3 next-pos_66)" +"(decode" +" vec_50" +" next-pos_65" +" mpis_9" +" inspector_6" +" bulk-binding-registry_7" +" shared_2)))" "(values" "(deserialize-provided binding_10 protected?_2 syntax?_3)" -" next-pos_65)))))))))))))))))" +" next-pos_66)))))))))))))))))" "(define-values" "(decode-fill!)" -"(lambda(v_157 vec_51 pos_71 mpis_10 inspector_7 bulk-binding-registry_8 shared_3)" +"(lambda(v_158 vec_51 pos_71 mpis_10 inspector_7 bulk-binding-registry_9 shared_3)" "(begin" -"(let-values(((tmp_22)(vector*-ref vec_51 pos_71)))" -"(if(equal? tmp_22 #f)" +"(let-values(((tmp_23)(vector*-ref vec_51 pos_71)))" +"(if(equal? tmp_23 #f)" "(let-values()(add1 pos_71))" -"(if(equal? tmp_22 '#:set-box!)" +"(if(equal? tmp_23 '#:set-box!)" "(let-values()" -"(let-values(((c_21 next-pos_66)" -"(decode vec_51(add1 pos_71) mpis_10 inspector_7 bulk-binding-registry_8 shared_3)))" -"(begin(set-box! v_157 c_21) next-pos_66)))" -"(if(equal? tmp_22 '#:set-vector!)" +"(let-values(((c_21 next-pos_67)" +"(decode vec_51(add1 pos_71) mpis_10 inspector_7 bulk-binding-registry_9 shared_3)))" +"(begin(set-box! v_158 c_21) next-pos_67)))" +"(if(equal? tmp_23 '#:set-vector!)" "(let-values()" "(let-values(((len_25)(vector*-ref vec_51(add1 pos_71))))" "(let-values(((start_31) 0)((end_23) len_25)((inc_17) 1))" @@ -20651,34 +20882,34 @@ 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_149)" +"((letrec-values(((for-loop_150)" "(lambda(pos_72 pos_73)" "(begin" " 'for-loop" "(if(< pos_73 end_23)" -"(let-values(((i_124) pos_73))" +"(let-values(((i_125) pos_73))" "(let-values(((pos_74)" "(let-values(((pos_75) pos_72))" "(let-values(((pos_76)" "(let-values()" -"(let-values(((c_22 next-pos_67)" +"(let-values(((c_22 next-pos_68)" "(decode" " vec_51" " pos_75" " mpis_10" " inspector_7" -" bulk-binding-registry_8" +" bulk-binding-registry_9" " shared_3)))" "(begin" -"(vector-set! v_157 i_124 c_22)" -" next-pos_67)))))" +"(vector-set! v_158 i_125 c_22)" +" next-pos_68)))))" "(values pos_76)))))" -"(if(not #f)(for-loop_149 pos_74(+ pos_73 inc_17)) pos_74)))" +"(if(not #f)(for-loop_150 pos_74(+ pos_73 inc_17)) pos_74)))" " pos_72)))))" -" for-loop_149)" +" for-loop_150)" "(+ pos_71 2)" " start_31)))))" -"(if(equal? tmp_22 '#:set-hash!)" +"(if(equal? tmp_23 '#:set-hash!)" "(let-values()" "(let-values(((len_26)(vector*-ref vec_51(add1 pos_71))))" "(let-values(((start_32) 0)((end_24) len_26)((inc_18) 1))" @@ -20686,93 +20917,93 @@ 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_150)" +"((letrec-values(((for-loop_151)" "(lambda(pos_77 pos_78)" "(begin" " 'for-loop" "(if(< pos_78 end_24)" "(let-values()" "(let-values(((pos_79)" -"(let-values(((pos_80) pos_77))" -"(let-values(((pos_81)" +"(let-values(((pos_10) pos_77))" +"(let-values(((pos_80)" "(let-values()" -"(let-values(((key_51 next-pos_68)" +"(let-values(((key_51 next-pos_69)" "(decode" " vec_51" -" pos_80" +" pos_10" " mpis_10" " inspector_7" -" bulk-binding-registry_8" +" bulk-binding-registry_9" " shared_3)))" -"(let-values(((val_43 done-pos_2)" +"(let-values(((val_44 done-pos_2)" "(decode" " vec_51" -" next-pos_68" +" next-pos_69" " mpis_10" " inspector_7" -" bulk-binding-registry_8" +" bulk-binding-registry_9" " shared_3)))" "(begin" -"(hash-set! v_157 key_51 val_43)" +"(hash-set! v_158 key_51 val_44)" " done-pos_2))))))" -"(values pos_81)))))" -"(if(not #f)(for-loop_150 pos_79(+ pos_78 inc_18)) pos_79)))" +"(values pos_80)))))" +"(if(not #f)(for-loop_151 pos_79(+ pos_78 inc_18)) pos_79)))" " pos_77)))))" -" for-loop_150)" +" for-loop_151)" "(+ pos_71 2)" " start_32)))))" -"(if(equal? tmp_22 '#:scope-fill!)" +"(if(equal? tmp_23 '#:scope-fill!)" "(let-values()" -"(let-values(((c_23 next-pos_69)" -"(decode vec_51(add1 pos_71) mpis_10 inspector_7 bulk-binding-registry_8 shared_3)))" -"(begin(deserialize-scope-fill! v_157 c_23) next-pos_69)))" -"(if(equal? tmp_22 '#:representative-scope-fill!)" +"(let-values(((c_23 next-pos_70)" +"(decode vec_51(add1 pos_71) mpis_10 inspector_7 bulk-binding-registry_9 shared_3)))" +"(begin(deserialize-scope-fill! v_158 c_23) next-pos_70)))" +"(if(equal? tmp_23 '#:representative-scope-fill!)" "(let-values()" -"(let-values(((a_39 next-pos_70)" -"(decode vec_51(add1 pos_71) mpis_10 inspector_7 bulk-binding-registry_8 shared_3)))" +"(let-values(((a_39 next-pos_71)" +"(decode vec_51(add1 pos_71) mpis_10 inspector_7 bulk-binding-registry_9 shared_3)))" "(let-values(((d_25 done-pos_3)" -"(decode vec_51 next-pos_70 mpis_10 inspector_7 bulk-binding-registry_8 shared_3)))" -"(begin(deserialize-representative-scope-fill! v_157 a_39 d_25) done-pos_3))))" +"(decode vec_51 next-pos_71 mpis_10 inspector_7 bulk-binding-registry_9 shared_3)))" +"(begin(deserialize-representative-scope-fill! v_158 a_39 d_25) done-pos_3))))" " (let-values () (error 'deserialize \"bad fill encoding: ~v\" (vector*-ref vec_51 pos_71)))))))))))))" "(define-values" "(find-reachable-scopes)" -"(lambda(v_158)" +"(lambda(v_159)" "(begin" "(let-values(((seen_22)(make-hasheq)))" "(let-values(((reachable-scopes_5)(seteq)))" "(let-values(((get-reachable-scopes_4)(lambda()(begin 'get-reachable-scopes reachable-scopes_5))))" "(let-values(((scope-triggers_0)(make-hasheq)))" "(begin" -"((letrec-values(((loop_82)" -"(lambda(v_159)" +"((letrec-values(((loop_85)" +"(lambda(v_160)" "(begin" " 'loop" -"(if(interned-literal? v_159)" +"(if(interned-literal? v_160)" "(let-values()(void))" -"(if(hash-ref seen_22 v_159 #f)" +"(if(hash-ref seen_22 v_160 #f)" "(let-values()(void))" "(let-values()" "(begin" -"(hash-set! seen_22 v_159 #t)" -"(if(scope-with-bindings? v_159)" +"(hash-set! seen_22 v_160 #t)" +"(if(scope-with-bindings? v_160)" "(let-values()" "(begin" -"(set! reachable-scopes_5(set-add reachable-scopes_5 v_159))" -"((reach-scopes-ref v_159) v_159 loop_82)" -"(let-values(((lst_118)(hash-ref scope-triggers_0 v_159 null)))" +"(set! reachable-scopes_5(set-add reachable-scopes_5 v_160))" +"((reach-scopes-ref v_160) v_160 loop_85)" +"(let-values(((lst_118)(hash-ref scope-triggers_0 v_160 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_118)))" -"((letrec-values(((for-loop_151)" -"(lambda(lst_49)" +"((letrec-values(((for-loop_152)" +"(lambda(lst_119)" "(begin" " 'for-loop" -"(if(pair? lst_49)" +"(if(pair? lst_119)" "(let-values(((proc_7)" -"(unsafe-car lst_49))" -"((rest_21)" -"(unsafe-cdr lst_49)))" +"(unsafe-car lst_119))" +"((rest_60)" +"(unsafe-cdr lst_119)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -20780,36 +21011,36 @@ static const char *startup_source = "(begin" "(let-values()" "(proc_7" -" loop_82))" +" loop_85))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_151 rest_21)" +"(for-loop_152 rest_60)" "(values))))" "(values))))))" -" for-loop_151)" +" for-loop_152)" " lst_118)))" "(void)" -"(hash-remove! scope-triggers_0 v_159)" -"((scope-with-bindings-ref v_159)" -" v_159" +"(hash-remove! scope-triggers_0 v_160)" +"((scope-with-bindings-ref v_160)" +" v_160" " get-reachable-scopes_4" -" loop_82" +" loop_85" "(lambda(sc-unreachable_0 b_66)" "(hash-update!" " scope-triggers_0" " sc-unreachable_0" "(lambda(l_51)(cons b_66 l_51))" " null)))))" -"(if(reach-scopes? v_159)" -"(let-values()((reach-scopes-ref v_159) v_159 loop_82))" -"(if(pair? v_159)" -"(let-values()(begin(loop_82(car v_159))(loop_82(cdr v_159))))" -"(if(vector? v_159)" +"(if(reach-scopes? v_160)" +"(let-values()((reach-scopes-ref v_160) v_160 loop_85))" +"(if(pair? v_160)" +"(let-values()(begin(loop_85(car v_160))(loop_85(cdr v_160))))" +"(if(vector? v_160)" "(let-values()" "(begin" "(let-values(((vec_52 len_27)" -"(let-values(((vec_53) v_159))" +"(let-values(((vec_53) v_160))" "(begin" "(check-vector vec_53)" "(values" @@ -20817,53 +21048,53 @@ static const char *startup_source = "(unsafe-vector-length vec_53))))))" "(begin" " #f" -"((letrec-values(((for-loop_152)" -"(lambda(pos_82)" +"((letrec-values(((for-loop_72)" +"(lambda(pos_81)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_82 len_27)" +"(if(unsafe-fx< pos_81 len_27)" "(let-values(((e_23)" "(unsafe-vector-ref" " vec_52" -" pos_82)))" +" pos_81)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(loop_82" +"(loop_85" " e_23))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_152" -"(unsafe-fx+ 1 pos_82))" +"(for-loop_72" +"(unsafe-fx+ 1 pos_81))" "(values))))" "(values))))))" -" for-loop_152)" +" for-loop_72)" " 0)))" "(void)))" -"(if(box? v_159)" -"(let-values()(loop_82(unbox v_159)))" -"(if(hash? v_159)" +"(if(box? v_160)" +"(let-values()(loop_85(unbox v_160)))" +"(if(hash? v_160)" "(let-values()" "(begin" -"(let-values(((ht_96) v_159))" +"(let-values(((ht_95) v_160))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_96)))" +"(let-values()(check-in-hash ht_95)))" "((letrec-values(((for-loop_153)" -"(lambda(i_125)" +"(lambda(i_126)" "(begin" " 'for-loop" -"(if i_125" -"(let-values(((k_30 v_160)" +"(if i_126" +"(let-values(((k_30 v_161)" "(hash-iterate-key+value" -" ht_96" -" i_125)))" +" ht_95" +" i_126)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -20871,33 +21102,33 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(loop_82" +"(loop_85" " k_30)" -"(loop_82" -" v_160)))" +"(loop_85" +" v_161)))" "(values)))))" "(values)))))" "(if(not #f)" "(for-loop_153" "(hash-iterate-next" -" ht_96" -" i_125))" +" ht_95" +" i_126))" "(values))))" "(values))))))" " for-loop_153)" -"(hash-iterate-first ht_96))))" +"(hash-iterate-first ht_95))))" "(void)))" -"(if(prefab-struct-key v_159)" +"(if(prefab-struct-key v_160)" "(let-values()" "(begin" "(let-values(((v*_5 start*_4 stop*_5 step*_4)" "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_49)(vector? x_49))" -"(lambda(x_50)" -"(unsafe-vector-length x_50))" -"(struct->vector v_159)" +"(lambda(x_50)(vector? x_50))" +"(lambda(x_51)" +"(unsafe-vector-length x_51))" +"(struct->vector v_160)" " 1" " #f" " 1)))" @@ -20918,7 +21149,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_82" +"(loop_85" " e_24))" "(values)))))" "(values)))))" @@ -20930,11 +21161,11 @@ static const char *startup_source = " for-loop_154)" " start*_4)))" "(void)))" -"(if(srcloc? v_159)" -"(let-values()(loop_82(srcloc-source v_159)))" +"(if(srcloc? v_160)" +"(let-values()(loop_85(srcloc-source v_160)))" "(let-values()(void))))))))))))))))))" -" loop_82)" -" v_158)" +" loop_85)" +" v_159)" " reachable-scopes_5))))))))" "(define-values" "(deserialize-imports)" @@ -20946,12 +21177,12 @@ static const char *startup_source = "(lambda(s24_1 from-mpi25_0 to-mpi26_0 inspector22_0 inspector23_0)" "(begin" " 'core27" -"(let-values(((s_193) s24_1))" +"(let-values(((s_199) s24_1))" "(let-values(((from-mpi_4) from-mpi25_0))" "(let-values(((to-mpi_3) to-mpi26_0))" "(let-values(((inspector_8)(if inspector23_0 inspector22_0 #f)))" "(let-values()" -"(let-values(((s29_1) s_193)" +"(let-values(((s29_1) s_199)" "((from-mpi30_0) from-mpi_4)" "((to-mpi31_0) to-mpi_3)" "((inspector32_0) inspector_8))" @@ -20964,9 +21195,9 @@ static const char *startup_source = " inspector32_0" " #t)))))))))))" "(case-lambda" -"((s_194 from-mpi_5 to-mpi_4)" -"(begin 'syntax-module-path-index-shift(core27_0 s_194 from-mpi_5 to-mpi_4 #f #f)))" -"((s_195 from-mpi_6 to-mpi_5 inspector22_1)(core27_0 s_195 from-mpi_6 to-mpi_5 inspector22_1 #t))))))" +"((s_200 from-mpi_5 to-mpi_4)" +"(begin 'syntax-module-path-index-shift(core27_0 s_200 from-mpi_5 to-mpi_4 #f #f)))" +"((s_201 from-mpi_6 to-mpi_5 inspector22_1)(core27_0 s_201 from-mpi_6 to-mpi_5 inspector22_1 #t))))))" " syntax-module-path-index-shift_0))" "(define-values" "(deserialize-instance)" @@ -21016,7 +21247,7 @@ static const char *startup_source = "(make-struct-field-accessor -ref_1 1 'inspector))))" "(define-values" "(struct:parsed-primitive-id parsed-primitive-id3.1 parsed-primitive-id?)" -"(let-values(((struct:_40 make-_40 ?_40 -ref_40 -set!_40)" +"(let-values(((struct:_41 make-_41 ?_41 -ref_41 -set!_41)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21031,7 +21262,7 @@ static const char *startup_source = " '()" " #f" " 'parsed-primitive-id)))))" -"(values struct:_40 make-_40 ?_40)))" +"(values struct:_41 make-_41 ?_41)))" "(define-values" "(struct:parsed-top-id parsed-top-id4.1 parsed-top-id?)" "(let-values(((struct:_10 make-_10 ?_10 -ref_10 -set!_10)" @@ -21052,7 +21283,7 @@ static const char *startup_source = "(values struct:_10 make-_10 ?_10)))" "(define-values" "(struct:parsed-lambda parsed-lambda5.1 parsed-lambda? parsed-lambda-keys parsed-lambda-body)" -"(let-values(((struct:_39 make-_39 ?_39 -ref_39 -set!_39)" +"(let-values(((struct:_40 make-_40 ?_40 -ref_40 -set!_40)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21068,14 +21299,14 @@ static const char *startup_source = " #f" " 'parsed-lambda)))))" "(values" -" struct:_39" -" make-_39" -" ?_39" -"(make-struct-field-accessor -ref_39 0 'keys)" -"(make-struct-field-accessor -ref_39 1 'body))))" +" struct:_40" +" make-_40" +" ?_40" +"(make-struct-field-accessor -ref_40 0 'keys)" +"(make-struct-field-accessor -ref_40 1 'body))))" "(define-values" "(struct:parsed-case-lambda parsed-case-lambda6.1 parsed-case-lambda? parsed-case-lambda-clauses)" -"(let-values(((struct:_41 make-_41 ?_41 -ref_41 -set!_41)" +"(let-values(((struct:_42 make-_42 ?_42 -ref_42 -set!_42)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21090,10 +21321,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-case-lambda)))))" -"(values struct:_41 make-_41 ?_41(make-struct-field-accessor -ref_41 0 'clauses))))" +"(values struct:_42 make-_42 ?_42(make-struct-field-accessor -ref_42 0 'clauses))))" "(define-values" "(struct:parsed-app parsed-app7.1 parsed-app? parsed-app-rator parsed-app-rands)" -"(let-values(((struct:_42 make-_42 ?_42 -ref_42 -set!_42)" +"(let-values(((struct:_43 make-_43 ?_43 -ref_43 -set!_43)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21109,14 +21340,14 @@ static const char *startup_source = " #f" " 'parsed-app)))))" "(values" -" struct:_42" -" make-_42" -" ?_42" -"(make-struct-field-accessor -ref_42 0 'rator)" -"(make-struct-field-accessor -ref_42 1 'rands))))" +" struct:_43" +" make-_43" +" ?_43" +"(make-struct-field-accessor -ref_43 0 'rator)" +"(make-struct-field-accessor -ref_43 1 'rands))))" "(define-values" "(struct:parsed-if parsed-if8.1 parsed-if? parsed-if-tst parsed-if-thn parsed-if-els)" -"(let-values(((struct:_43 make-_43 ?_43 -ref_43 -set!_43)" +"(let-values(((struct:_44 make-_44 ?_44 -ref_44 -set!_44)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21132,15 +21363,15 @@ static const char *startup_source = " #f" " 'parsed-if)))))" "(values" -" struct:_43" -" make-_43" -" ?_43" -"(make-struct-field-accessor -ref_43 0 'tst)" -"(make-struct-field-accessor -ref_43 1 'thn)" -"(make-struct-field-accessor -ref_43 2 'els))))" +" struct:_44" +" make-_44" +" ?_44" +"(make-struct-field-accessor -ref_44 0 'tst)" +"(make-struct-field-accessor -ref_44 1 'thn)" +"(make-struct-field-accessor -ref_44 2 'els))))" "(define-values" "(struct:parsed-set! parsed-set!9.1 parsed-set!? parsed-set!-id parsed-set!-rhs)" -"(let-values(((struct:_44 make-_44 ?_44 -ref_44 -set!_44)" +"(let-values(((struct:_45 make-_45 ?_45 -ref_45 -set!_45)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21156,11 +21387,11 @@ static const char *startup_source = " #f" " 'parsed-set!)))))" "(values" -" struct:_44" -" make-_44" -" ?_44" -"(make-struct-field-accessor -ref_44 0 'id)" -"(make-struct-field-accessor -ref_44 1 'rhs))))" +" struct:_45" +" make-_45" +" ?_45" +"(make-struct-field-accessor -ref_45 0 'id)" +"(make-struct-field-accessor -ref_45 1 'rhs))))" "(define-values" "(struct:parsed-with-continuation-mark" " parsed-with-continuation-mark10.1" @@ -21168,7 +21399,7 @@ static const char *startup_source = " parsed-with-continuation-mark-key" " parsed-with-continuation-mark-val" " parsed-with-continuation-mark-body)" -"(let-values(((struct:_45 make-_45 ?_45 -ref_45 -set!_45)" +"(let-values(((struct:_46 make-_46 ?_46 -ref_46 -set!_46)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21184,18 +21415,18 @@ static const char *startup_source = " #f" " 'parsed-with-continuation-mark)))))" "(values" -" struct:_45" -" make-_45" -" ?_45" -"(make-struct-field-accessor -ref_45 0 'key)" -"(make-struct-field-accessor -ref_45 1 'val)" -"(make-struct-field-accessor -ref_45 2 'body))))" +" struct:_46" +" make-_46" +" ?_46" +"(make-struct-field-accessor -ref_46 0 'key)" +"(make-struct-field-accessor -ref_46 1 'val)" +"(make-struct-field-accessor -ref_46 2 'body))))" "(define-values" "(struct:parsed-#%variable-reference" " parsed-#%variable-reference11.1" " parsed-#%variable-reference?" " parsed-#%variable-reference-id)" -"(let-values(((struct:_46 make-_46 ?_46 -ref_46 -set!_46)" +"(let-values(((struct:_47 make-_47 ?_47 -ref_47 -set!_47)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21210,10 +21441,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-#%variable-reference)))))" -"(values struct:_46 make-_46 ?_46(make-struct-field-accessor -ref_46 0 'id))))" +"(values struct:_47 make-_47 ?_47(make-struct-field-accessor -ref_47 0 'id))))" "(define-values" "(struct:parsed-begin parsed-begin12.1 parsed-begin? parsed-begin-body)" -"(let-values(((struct:_47 make-_47 ?_47 -ref_47 -set!_47)" +"(let-values(((struct:_48 make-_48 ?_48 -ref_48 -set!_48)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21228,10 +21459,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin)))))" -"(values struct:_47 make-_47 ?_47(make-struct-field-accessor -ref_47 0 'body))))" +"(values struct:_48 make-_48 ?_48(make-struct-field-accessor -ref_48 0 'body))))" "(define-values" "(struct:parsed-begin0 parsed-begin013.1 parsed-begin0? parsed-begin0-body)" -"(let-values(((struct:_48 make-_48 ?_48 -ref_48 -set!_48)" +"(let-values(((struct:_49 make-_49 ?_49 -ref_49 -set!_49)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21246,10 +21477,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin0)))))" -"(values struct:_48 make-_48 ?_48(make-struct-field-accessor -ref_48 0 'body))))" +"(values struct:_49 make-_49 ?_49(make-struct-field-accessor -ref_49 0 'body))))" "(define-values" "(struct:parsed-quote parsed-quote14.1 parsed-quote? parsed-quote-datum)" -"(let-values(((struct:_49 make-_49 ?_49 -ref_49 -set!_49)" +"(let-values(((struct:_50 make-_50 ?_50 -ref_50 -set!_50)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21264,10 +21495,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-quote)))))" -"(values struct:_49 make-_49 ?_49(make-struct-field-accessor -ref_49 0 'datum))))" +"(values struct:_50 make-_50 ?_50(make-struct-field-accessor -ref_50 0 'datum))))" "(define-values" "(struct:parsed-quote-syntax parsed-quote-syntax15.1 parsed-quote-syntax? parsed-quote-syntax-datum)" -"(let-values(((struct:_50 make-_50 ?_50 -ref_50 -set!_50)" +"(let-values(((struct:_51 make-_51 ?_51 -ref_51 -set!_51)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21282,7 +21513,7 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-quote-syntax)))))" -"(values struct:_50 make-_50 ?_50(make-struct-field-accessor -ref_50 0 'datum))))" +"(values struct:_51 make-_51 ?_51(make-struct-field-accessor -ref_51 0 'datum))))" "(define-values" "(struct:parsed-let_-values" " parsed-let_-values16.1" @@ -21290,7 +21521,7 @@ static const char *startup_source = " parsed-let_-values-idss" " parsed-let_-values-clauses" " parsed-let_-values-body)" -"(let-values(((struct:_51 make-_51 ?_51 -ref_51 -set!_51)" +"(let-values(((struct:_52 make-_52 ?_52 -ref_52 -set!_52)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21306,15 +21537,15 @@ static const char *startup_source = " #f" " 'parsed-let_-values)))))" "(values" -" struct:_51" -" make-_51" -" ?_51" -"(make-struct-field-accessor -ref_51 0 'idss)" -"(make-struct-field-accessor -ref_51 1 'clauses)" -"(make-struct-field-accessor -ref_51 2 'body))))" +" struct:_52" +" make-_52" +" ?_52" +"(make-struct-field-accessor -ref_52 0 'idss)" +"(make-struct-field-accessor -ref_52 1 'clauses)" +"(make-struct-field-accessor -ref_52 2 'body))))" "(define-values" "(struct:parsed-let-values parsed-let-values17.1 parsed-let-values?)" -"(let-values(((struct:_52 make-_52 ?_52 -ref_52 -set!_52)" +"(let-values(((struct:_53 make-_53 ?_53 -ref_53 -set!_53)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21329,10 +21560,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-let-values)))))" -"(values struct:_52 make-_52 ?_52)))" +"(values struct:_53 make-_53 ?_53)))" "(define-values" "(struct:parsed-letrec-values parsed-letrec-values18.1 parsed-letrec-values?)" -"(let-values(((struct:_53 make-_53 ?_53 -ref_53 -set!_53)" +"(let-values(((struct:_54 make-_54 ?_54 -ref_54 -set!_54)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21347,7 +21578,7 @@ static const char *startup_source = " '()" " #f" " 'parsed-letrec-values)))))" -"(values struct:_53 make-_53 ?_53)))" +"(values struct:_54 make-_54 ?_54)))" "(define-values" "(struct:parsed-define-values" " parsed-define-values19.1" @@ -21355,7 +21586,7 @@ static const char *startup_source = " parsed-define-values-ids" " parsed-define-values-syms" " parsed-define-values-rhs)" -"(let-values(((struct:_54 make-_54 ?_54 -ref_54 -set!_54)" +"(let-values(((struct:_55 make-_55 ?_55 -ref_55 -set!_55)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21371,12 +21602,12 @@ static const char *startup_source = " #f" " 'parsed-define-values)))))" "(values" -" struct:_54" -" make-_54" -" ?_54" -"(make-struct-field-accessor -ref_54 0 'ids)" -"(make-struct-field-accessor -ref_54 1 'syms)" -"(make-struct-field-accessor -ref_54 2 'rhs))))" +" struct:_55" +" make-_55" +" ?_55" +"(make-struct-field-accessor -ref_55 0 'ids)" +"(make-struct-field-accessor -ref_55 1 'syms)" +"(make-struct-field-accessor -ref_55 2 'rhs))))" "(define-values" "(struct:parsed-define-syntaxes" " parsed-define-syntaxes20.1" @@ -21384,7 +21615,7 @@ static const char *startup_source = " parsed-define-syntaxes-ids" " parsed-define-syntaxes-syms" " parsed-define-syntaxes-rhs)" -"(let-values(((struct:_55 make-_55 ?_55 -ref_55 -set!_55)" +"(let-values(((struct:_56 make-_56 ?_56 -ref_56 -set!_56)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21400,15 +21631,15 @@ static const char *startup_source = " #f" " 'parsed-define-syntaxes)))))" "(values" -" struct:_55" -" make-_55" -" ?_55" -"(make-struct-field-accessor -ref_55 0 'ids)" -"(make-struct-field-accessor -ref_55 1 'syms)" -"(make-struct-field-accessor -ref_55 2 'rhs))))" +" struct:_56" +" make-_56" +" ?_56" +"(make-struct-field-accessor -ref_56 0 'ids)" +"(make-struct-field-accessor -ref_56 1 'syms)" +"(make-struct-field-accessor -ref_56 2 'rhs))))" "(define-values" "(struct:parsed-begin-for-syntax parsed-begin-for-syntax21.1 parsed-begin-for-syntax? parsed-begin-for-syntax-body)" -"(let-values(((struct:_56 make-_56 ?_56 -ref_56 -set!_56)" +"(let-values(((struct:_57 make-_57 ?_57 -ref_57 -set!_57)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21423,10 +21654,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin-for-syntax)))))" -"(values struct:_56 make-_56 ?_56(make-struct-field-accessor -ref_56 0 'body))))" +"(values struct:_57 make-_57 ?_57(make-struct-field-accessor -ref_57 0 'body))))" "(define-values" "(struct:parsed-#%declare parsed-#%declare22.1 parsed-#%declare?)" -"(let-values(((struct:_57 make-_57 ?_57 -ref_57 -set!_57)" +"(let-values(((struct:_58 make-_58 ?_58 -ref_58 -set!_58)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21441,10 +21672,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-#%declare)))))" -"(values struct:_57 make-_57 ?_57)))" +"(values struct:_58 make-_58 ?_58)))" "(define-values" "(struct:parsed-require parsed-require23.1 parsed-require?)" -"(let-values(((struct:_58 make-_58 ?_58 -ref_58 -set!_58)" +"(let-values(((struct:_59 make-_59 ?_59 -ref_59 -set!_59)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21459,10 +21690,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-require)))))" -"(values struct:_58 make-_58 ?_58)))" +"(values struct:_59 make-_59 ?_59)))" "(define-values" "(struct:parsed-#%module-begin parsed-#%module-begin24.1 parsed-#%module-begin? parsed-#%module-begin-body)" -"(let-values(((struct:_59 make-_59 ?_59 -ref_59 -set!_59)" +"(let-values(((struct:_60 make-_60 ?_60 -ref_60 -set!_60)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21477,7 +21708,7 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-#%module-begin)))))" -"(values struct:_59 make-_59 ?_59(make-struct-field-accessor -ref_59 0 'body))))" +"(values struct:_60 make-_60 ?_60(make-struct-field-accessor -ref_60 0 'body))))" "(define-values" "(struct:parsed-module" " parsed-module25.1" @@ -21492,7 +21723,7 @@ static const char *startup_source = " parsed-module-body" " parsed-module-compiled-module" " parsed-module-compiled-submodules)" -"(let-values(((struct:_60 make-_60 ?_60 -ref_60 -set!_60)" +"(let-values(((struct:_61 make-_61 ?_61 -ref_61 -set!_61)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21508,19 +21739,19 @@ static const char *startup_source = " #f" " 'parsed-module)))))" "(values" -" struct:_60" -" make-_60" -" ?_60" -"(make-struct-field-accessor -ref_60 0 'star?)" -"(make-struct-field-accessor -ref_60 1 'name-id)" -"(make-struct-field-accessor -ref_60 2 'self)" -"(make-struct-field-accessor -ref_60 3 'requires)" -"(make-struct-field-accessor -ref_60 4 'provides)" -"(make-struct-field-accessor -ref_60 5 'root-ctx-simple?)" -"(make-struct-field-accessor -ref_60 6 'encoded-root-ctx)" -"(make-struct-field-accessor -ref_60 7 'body)" -"(make-struct-field-accessor -ref_60 8 'compiled-module)" -"(make-struct-field-accessor -ref_60 9 'compiled-submodules))))" +" struct:_61" +" make-_61" +" ?_61" +"(make-struct-field-accessor -ref_61 0 'star?)" +"(make-struct-field-accessor -ref_61 1 'name-id)" +"(make-struct-field-accessor -ref_61 2 'self)" +"(make-struct-field-accessor -ref_61 3 'requires)" +"(make-struct-field-accessor -ref_61 4 'provides)" +"(make-struct-field-accessor -ref_61 5 'root-ctx-simple?)" +"(make-struct-field-accessor -ref_61 6 'encoded-root-ctx)" +"(make-struct-field-accessor -ref_61 7 'body)" +"(make-struct-field-accessor -ref_61 8 'compiled-module)" +"(make-struct-field-accessor -ref_61 9 'compiled-submodules))))" "(define-values" "(module-path->mpi5.1)" "(lambda(declared-submodule-names1_0 declared-submodule-names2_0 mod-path3_0 self4_2)" @@ -21569,17 +21800,17 @@ static const char *startup_source = "(lambda(s_0 phase_45)" "(begin" "(let-values(((s-scs_1)(syntax-scope-set s_0 phase_45)))" -"(let-values(((ht_97) s-scs_1))" +"(let-values(((ht_96) s-scs_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_97)))" -"((letrec-values(((for-loop_113)" -"(lambda(syms_14 i_126)" +"(let-values()(check-in-immutable-hash-keys ht_96)))" +"((letrec-values(((for-loop_114)" +"(lambda(syms_14 i_127)" "(begin" " 'for-loop" -"(if i_126" -"(let-values(((sc_29)(unsafe-immutable-hash-iterate-key ht_97 i_126)))" +"(if i_127" +"(let-values(((sc_30)(unsafe-immutable-hash-iterate-key ht_96 i_127)))" "(let-values(((syms_15)" "(let-values(((syms_16) syms_14))" "(let-values(((syms_17)" @@ -21587,18 +21818,18 @@ static const char *startup_source = "(set-union" " syms_16" "(binding-table-symbols" -"(scope-binding-table sc_29)" +"(scope-binding-table sc_30)" " s-scs_1" " s_0" " null)))))" "(values syms_17)))))" "(if(not #f)" -"(for-loop_113 syms_15(unsafe-immutable-hash-iterate-next ht_97 i_126))" +"(for-loop_114 syms_15(unsafe-immutable-hash-iterate-next ht_96 i_127))" " syms_15)))" " syms_14)))))" -" for-loop_113)" +" for-loop_114)" "(seteq)" -"(unsafe-immutable-hash-iterate-first ht_97))))))))" +"(unsafe-immutable-hash-iterate-first ht_96))))))))" "(define-values" "(struct:requires+provides" " requires+provides1.1" @@ -21614,7 +21845,7 @@ static const char *startup_source = " requires+provides-all-bindings-simple?" " set-requires+provides-can-cross-phase-persistent?!" " set-requires+provides-all-bindings-simple?!)" -"(let-values(((struct:_61 make-_61 ?_61 -ref_61 -set!_61)" +"(let-values(((struct:_62 make-_62 ?_62 -ref_62 -set!_62)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21630,20 +21861,20 @@ static const char *startup_source = " #f" " 'requires+provides)))))" "(values" -" struct:_61" -" make-_61" -" ?_61" -"(make-struct-field-accessor -ref_61 0 'self)" -"(make-struct-field-accessor -ref_61 1 'require-mpis)" -"(make-struct-field-accessor -ref_61 2 'require-mpis-in-order)" -"(make-struct-field-accessor -ref_61 3 'requires)" -"(make-struct-field-accessor -ref_61 4 'provides)" -"(make-struct-field-accessor -ref_61 5 'phase-to-defined-syms)" -"(make-struct-field-accessor -ref_61 6 'also-required)" -"(make-struct-field-accessor -ref_61 7 'can-cross-phase-persistent?)" -"(make-struct-field-accessor -ref_61 8 'all-bindings-simple?)" -"(make-struct-field-mutator -set!_61 7 'can-cross-phase-persistent?)" -"(make-struct-field-mutator -set!_61 8 'all-bindings-simple?))))" +" struct:_62" +" make-_62" +" ?_62" +"(make-struct-field-accessor -ref_62 0 'self)" +"(make-struct-field-accessor -ref_62 1 'require-mpis)" +"(make-struct-field-accessor -ref_62 2 'require-mpis-in-order)" +"(make-struct-field-accessor -ref_62 3 'requires)" +"(make-struct-field-accessor -ref_62 4 'provides)" +"(make-struct-field-accessor -ref_62 5 'phase-to-defined-syms)" +"(make-struct-field-accessor -ref_62 6 'also-required)" +"(make-struct-field-accessor -ref_62 7 'can-cross-phase-persistent?)" +"(make-struct-field-accessor -ref_62 8 'all-bindings-simple?)" +"(make-struct-field-mutator -set!_62 7 'can-cross-phase-persistent?)" +"(make-struct-field-mutator -set!_62 8 'all-bindings-simple?))))" "(define-values" "(struct:required required2.1 required? required-id required-phase required-can-be-shadowed? required-as-transformer?)" "(let-values(((struct:_11 make-_11 ?_11 -ref_11 -set!_11)" @@ -21671,7 +21902,7 @@ static const char *startup_source = "(make-struct-field-accessor -ref_11 3 'as-transformer?))))" "(define-values" "(struct:nominal nominal3.1 nominal? nominal-module nominal-provide-phase nominal-require-phase nominal-sym)" -"(let-values(((struct:_62 make-_62 ?_62 -ref_62 -set!_62)" +"(let-values(((struct:_63 make-_63 ?_63 -ref_63 -set!_63)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21687,13 +21918,13 @@ static const char *startup_source = " #f" " 'nominal)))))" "(values" -" struct:_62" -" make-_62" -" ?_62" -"(make-struct-field-accessor -ref_62 0 'module)" -"(make-struct-field-accessor -ref_62 1 'provide-phase)" -"(make-struct-field-accessor -ref_62 2 'require-phase)" -"(make-struct-field-accessor -ref_62 3 'sym))))" +" struct:_63" +" make-_63" +" ?_63" +"(make-struct-field-accessor -ref_63 0 'module)" +"(make-struct-field-accessor -ref_63 1 'provide-phase)" +"(make-struct-field-accessor -ref_63 2 'require-phase)" +"(make-struct-field-accessor -ref_63 3 'sym))))" "(define-values" "(struct:bulk-required" " bulk-required4.1" @@ -21703,7 +21934,7 @@ static const char *startup_source = " bulk-required-s" " bulk-required-provide-phase-level" " bulk-required-can-be-shadowed?)" -"(let-values(((struct:_63 make-_63 ?_63 -ref_63 -set!_63)" +"(let-values(((struct:_64 make-_64 ?_64 -ref_64 -set!_64)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21719,14 +21950,14 @@ static const char *startup_source = " #f" " 'bulk-required)))))" "(values" -" struct:_63" -" make-_63" -" ?_63" -"(make-struct-field-accessor -ref_63 0 'provides)" -"(make-struct-field-accessor -ref_63 1 'prefix-len)" -"(make-struct-field-accessor -ref_63 2 's)" -"(make-struct-field-accessor -ref_63 3 'provide-phase-level)" -"(make-struct-field-accessor -ref_63 4 'can-be-shadowed?))))" +" struct:_64" +" make-_64" +" ?_64" +"(make-struct-field-accessor -ref_64 0 'provides)" +"(make-struct-field-accessor -ref_64 1 'prefix-len)" +"(make-struct-field-accessor -ref_64 2 's)" +"(make-struct-field-accessor -ref_64 3 'provide-phase-level)" +"(make-struct-field-accessor -ref_64 4 'can-be-shadowed?))))" "(define-values" "(make-requires+provides8.1)" "(lambda(copy-requires5_0 copy-requires6_0 self7_0)" @@ -21786,23 +22017,23 @@ static const char *startup_source = "(begin" " 'add-defined-or-required-id!19" "(let-values(((r+p_3) r+p15_0))" -"(let-values(((id_23) id16_0))" -"(let-values(((phase_54) phase17_0))" +"(let-values(((id_24) id16_0))" +"(let-values(((phase_53) phase17_0))" "(let-values(((binding_11) binding18_0))" "(let-values(((can-be-shadowed?_0)(if can-be-shadowed?13_0 can-be-shadowed?11_0 #f)))" "(let-values(((as-transformer?_0) as-transformer?12_0))" "(let-values()" "(begin" "(if(equal?" -" phase_54" +" phase_53" "(phase+" "(module-binding-nominal-phase binding_11)" "(module-binding-nominal-require-phase binding_11)))" "(void)" " (let-values () (error \"internal error: binding phase does not match nominal info\")))" "(let-values(((r+p124_0) r+p_3)" -"((id125_0) id_23)" -"((phase126_0) phase_54)" +"((id125_0) id_24)" +"((phase126_0) phase_53)" "((temp127_0)(module-binding-nominal-module binding_11))" "((temp128_0)(module-binding-nominal-require-phase binding_11))" "((can-be-shadowed?129_0) can-be-shadowed?_0)" @@ -21827,8 +22058,8 @@ static const char *startup_source = "(begin" " 'add-defined-or-required-id-at-nominal!33" "(let-values(((r+p_4) r+p30_0))" -"(let-values(((id_24) id31_0))" -"(let-values(((phase_55) phase32_0))" +"(let-values(((id_25) id31_0))" +"(let-values(((phase_54) phase32_0))" "(let-values(((nominal-module_6) nominal-module22_0))" "(let-values(((nominal-require-phase_4) nominal-require-phase23_0))" "(let-values(((can-be-shadowed?_1) can-be-shadowed?24_0))" @@ -21840,13 +22071,13 @@ static const char *startup_source = "(intern-mpi r+p_4 nominal-module_6)" " make-hasheqv)))" "(let-values(((sym-to-reqds_0)(hash-ref! at-mod_0 nominal-require-phase_4 make-hasheq)))" -"(let-values(((sym_31)(syntax-e$1 id_24)))" +"(let-values(((sym_32)(syntax-e$1 id_25)))" "(hash-set!" " sym-to-reqds_0" -" sym_31" +" sym_32" "(cons-ish" -"(required2.1 id_24 phase_55 can-be-shadowed?_1 as-transformer?_1)" -"(hash-ref sym-to-reqds_0 sym_31 null)))))))))))))))))" +"(required2.1 id_25 phase_54 can-be-shadowed?_1 as-transformer?_1)" +"(hash-ref sym-to-reqds_0 sym_32 null)))))))))))))))))" "(define-values" "(add-bulk-required-ids!59.1)" "(lambda(accum-update-nominals42_0" @@ -21867,7 +22098,7 @@ static const char *startup_source = "(begin" " 'add-bulk-required-ids!59" "(let-values(((r+p_5) r+p52_0))" -"(let-values(((s_196) s53_0))" +"(let-values(((s_202) s53_0))" "(let-values(((self_9) self54_0))" "(let-values(((nominal-module_7) nominal-module55_0))" "(let-values(((phase-shift_7) phase-shift56_0))" @@ -21882,11 +22113,11 @@ static const char *startup_source = "(let-values(((accum-update-nominals_0) accum-update-nominals42_0))" "(let-values(((who_12) who43_0))" "(let-values()" -"(let-values(((phase_56)(phase+ provide-phase-level_3 phase-shift_7)))" +"(let-values(((phase_55)(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_196 phase_56)" +"(syntax-mapped-names s_202 phase_55)" " #f)" " #f)))" "(let-values(((mpi_32)(intern-mpi r+p_5 nominal-module_7)))" @@ -21905,23 +22136,23 @@ static const char *startup_source = "(bulk-required4.1" " provides_4" " prefix-len_0" -" s_196" +" s_202" " provide-phase-level_3" " can-be-shadowed?_2)))" -"(let-values(((ht_98) provides_4))" +"(let-values(((ht_97) provides_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_98)))" +"(let-values()(check-in-hash ht_97)))" "((letrec-values(((for-loop_155)" -"(lambda(result_72 i_127)" +"(lambda(result_72 i_128)" "(begin" " 'for-loop" -"(if i_127" +"(if i_128" "(let-values(((out-sym_0 binding/p_2)" "(hash-iterate-key+value" -" ht_98" -" i_127)))" +" ht_97" +" i_128)))" "(let-values(((result_73)" "(let-values(((result_74)" " result_72))" @@ -21948,7 +22179,7 @@ static const char *startup_source = "(let-values()" " #f)" "(let-values()" -"(let-values(((sym_32)" +"(let-values(((sym_33)" "(if(not" " bulk-prefix_0)" "(let-values()" @@ -21968,7 +22199,7 @@ static const char *startup_source = " or-part_175" "(hash-ref" " shortcut-table_0" -" sym_32" +" sym_33" " #f)))" " #f)" "(let-values()" @@ -21980,11 +22211,11 @@ static const char *startup_source = " r+p_5)" "((temp134_0)" "(datum->syntax$1" -" s_196" -" sym_32" -" s_196))" +" s_202" +" sym_33" +" s_202))" "((phase135_0)" -" phase_56)" +" phase_55)" "((orig-s136_0)" " orig-s_0)" "((temp137_0)" @@ -21992,7 +22223,7 @@ static const char *startup_source = "(let-values(((binding/p141_0)" " binding/p_2)" "((sym142_0)" -" sym_32)" +" sym_33)" "((self143_0)" " self_9)" "((mpi144_0)" @@ -22038,49 +22269,49 @@ static const char *startup_source = "(let-values()" "(hash-set!" " sym-to-reqds_1" -" sym_32" +" sym_33" "(cons-ish" " br_0" "(hash-ref" " sym-to-reqds_1" -" sym_32" +" sym_33" " null)))))" " already-defined?_0))))))))))" "(values" " result_75)))))))" "(if(if(not" -"((lambda x_51 result_73)" +"((lambda x_52 result_73)" " out-sym_0" " binding/p_2))" "(not #f)" " #f)" "(for-loop_155" " result_73" -"(hash-iterate-next ht_98 i_127))" +"(hash-iterate-next ht_97 i_128))" " result_73)))" " result_72)))))" " for-loop_155)" " #f" -"(hash-iterate-first ht_98))))))))))))))))))))))))))))))" +"(hash-iterate-first ht_97))))))))))))))))))))))))))))))" "(define-values" "(bulk-required->required)" -"(lambda(br_1 nominal-module_8 phase_57 sym_33)" +"(lambda(br_1 nominal-module_8 phase_56 sym_34)" "(begin" "(let-values(((prefix-len_1)(bulk-required-prefix-len br_1)))" "(let-values(((out-sym_1)" "(if(zero? prefix-len_1)" -" sym_33" -"(string->symbol(substring(symbol->string sym_33) prefix-len_1)))))" +" sym_34" +"(string->symbol(substring(symbol->string sym_34) prefix-len_1)))))" "(let-values(((binding/p_3)(hash-ref(bulk-required-provides br_1) out-sym_1)))" "(required2.1" -"(datum->syntax$1(bulk-required-s br_1) sym_33)" -"(phase+ phase_57(bulk-required-provide-phase-level br_1))" +"(datum->syntax$1(bulk-required-s br_1) sym_34)" +"(phase+ phase_56(bulk-required-provide-phase-level br_1))" "(bulk-required-can-be-shadowed? br_1)" "(provided-as-transformer? binding/p_3))))))))" "(define-values" "(normalize-required)" -"(lambda(r_35 mod-name_9 phase_58 sym_34)" -"(begin(if(bulk-required? r_35)(bulk-required->required r_35 mod-name_9 phase_58 sym_34) r_35))))" +"(lambda(r_35 mod-name_9 phase_57 sym_35)" +"(begin(if(bulk-required? r_35)(bulk-required->required r_35 mod-name_9 phase_57 sym_35) 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)" @@ -22093,18 +22324,18 @@ static const char *startup_source = "(let-values()" "(begin" "(set-requires+provides-all-bindings-simple?! r+p_6 #f)" -"(let-values(((ht_99)(requires+provides-requires enclosing-r+p_0)))" +"(let-values(((ht_98)(requires+provides-requires enclosing-r+p_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_99)))" +"(let-values()(check-in-hash ht_98)))" "((letrec-values(((for-loop_156)" -"(lambda(i_128)" +"(lambda(i_129)" "(begin" " 'for-loop" -"(if i_128" +"(if i_129" "(let-values(((mod-name_10 at-mod_2)" -"(hash-iterate-key+value ht_99 i_128)))" +"(hash-iterate-key+value ht_98 i_129)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -22112,25 +22343,25 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((ht_100) at-mod_2))" +"(let-values(((ht_99) at-mod_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_100)))" +"(check-in-hash ht_99)))" "((letrec-values(((for-loop_157)" -"(lambda(i_129)" +"(lambda(i_130)" "(begin" " 'for-loop" -"(if i_129" -"(let-values(((phase_59" +"(if i_130" +"(let-values(((phase_58" " at-phase_8)" "(hash-iterate-key+value" -" ht_100" -" i_129)))" +" ht_99" +" i_130)))" "(let-values((()" -"(let-values(((ht_51)" +"(let-values(((ht_100)" " at-phase_8))" "(begin" "(if(variable-reference-from-unsafe?" @@ -22138,40 +22369,40 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_51)))" -"((letrec-values(((for-loop_60)" -"(lambda(i_130)" +" ht_100)))" +"((letrec-values(((for-loop_158)" +"(lambda(i_131)" "(begin" " 'for-loop" -"(if i_130" -"(let-values(((sym_35" +"(if i_131" +"(let-values(((sym_36" " reqds_0)" "(hash-iterate-key+value" -" ht_51" -" i_130)))" +" ht_100" +" i_131)))" "(let-values((()" -"(let-values(((lst_119)" +"(let-values(((lst_120)" " reqds_0))" "(begin" "(void)" -"((letrec-values(((for-loop_158)" -"(lambda(lst_120)" +"((letrec-values(((for-loop_159)" +"(lambda(lst_121)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_120))" +" lst_121))" "(let-values(((reqd/maybe-bulk_0)" "(if(pair?" -" lst_120)" +" lst_121)" "(car" -" lst_120)" -" lst_120))" +" lst_121)" +" lst_121))" "((rest_61)" "(if(pair?" -" lst_120)" +" lst_121)" "(cdr" -" lst_120)" +" lst_121)" " null)))" "(let-values((()" "(let-values()" @@ -22183,8 +22414,8 @@ static const char *startup_source = "(normalize-required" " reqd/maybe-bulk_0" " mod-name_10" -" phase_59" -" sym_35)))" +" phase_58" +" sym_36)))" "(let-values(((r+p147_0)" " r+p_6)" "((temp148_0)" @@ -22232,43 +22463,42 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_158" +"(for-loop_159" " rest_61)" "(values))))" "(values))))))" -" for-loop_158)" -" lst_119)))))" +" for-loop_159)" +" lst_120)))))" "(if(not" " #f)" -"(for-loop_60" +"(for-loop_158" "(hash-iterate-next" -" ht_51" -" i_130))" +" ht_100" +" i_131))" "(values))))" "(values))))))" -" for-loop_60)" +" for-loop_158)" "(hash-iterate-first" -" ht_51))))))" +" ht_100))))))" "(if(not" " #f)" "(for-loop_157" "(hash-iterate-next" -" ht_100" -" i_129))" +" ht_99" +" i_130))" "(values))))" "(values))))))" " for-loop_157)" -"(hash-iterate-first" -" ht_100))))" +"(hash-iterate-first ht_99))))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_156(hash-iterate-next ht_99 i_128))" +"(for-loop_156(hash-iterate-next ht_98 i_129))" "(values))))" "(values))))))" " for-loop_156)" -"(hash-iterate-first ht_99))))" +"(hash-iterate-first ht_98))))" "(void))))))))))" "(define-values" "(remove-required-id!75.1)" @@ -22276,12 +22506,12 @@ static const char *startup_source = "(begin" " 'remove-required-id!75" "(let-values(((r+p_7) r+p72_0))" -"(let-values(((id_25) id73_0))" -"(let-values(((phase_60) phase74_1))" +"(let-values(((id_26) id73_0))" +"(let-values(((phase_59) phase74_1))" "(let-values(((binding_12) unless-matches70_0))" "(let-values()" "(let-values(((b_67)" -"(let-values(((id157_0) id_25)((phase158_0) phase_60)((temp159_0) #t))" +"(let-values(((id157_0) id_26)((phase158_0) phase_59)((temp159_0) #t))" "(resolve+shift30.1 #f #f temp159_0 #t #f #f #f #f #f #f id157_0 phase158_0))))" "(if b_67" "(let-values()" @@ -22293,8 +22523,8 @@ static const char *startup_source = "(let-values(((sym-to-reqds_2)(hash-ref at-mod_3 nominal-phase_4 #f)))" "(if sym-to-reqds_2" "(let-values()" -"(let-values(((sym_36)(syntax-e$1 id_25)))" -"(let-values(((l_53)(hash-ref sym-to-reqds_2 sym_36 null)))" +"(let-values(((sym_37)(syntax-e$1 id_26)))" +"(let-values(((l_53)(hash-ref sym-to-reqds_2 sym_37 null)))" "(if(null? l_53)" "(void)" "(let-values()" @@ -22303,42 +22533,42 @@ static const char *startup_source = "(let-values()" "(hash-set!" " sym-to-reqds_2" -" sym_36" +" sym_37" "(remove-non-matching-requireds" " l_53" -" id_25" -" phase_60" +" id_26" +" phase_59" " mpi_33" " nominal-phase_4" -" sym_36)))))))))" +" sym_37)))))))))" "(void)))))" "(void)))))" "(void)))))))))))" "(define-values" "(remove-non-matching-requireds)" -"(lambda(reqds_1 id_26 phase_61 mpi_34 nominal-phase_5 sym_37)" +"(lambda(reqds_1 id_27 phase_60 mpi_34 nominal-phase_5 sym_38)" "(begin" "(reverse$1" -"(let-values(((lst_121) reqds_1))" +"(let-values(((lst_122) reqds_1))" "(begin" "(void)" -"((letrec-values(((for-loop_159)" -"(lambda(fold-var_106 lst_122)" +"((letrec-values(((for-loop_160)" +"(lambda(fold-var_106 lst_123)" "(begin" " 'for-loop" -"(if(not(null? lst_122))" -"(let-values(((r_36)(if(pair? lst_122)(car lst_122) lst_122))" -"((rest_62)(if(pair? lst_122)(cdr lst_122) null)))" +"(if(not(null? lst_123))" +"(let-values(((r_36)(if(pair? lst_123)(car lst_123) lst_123))" +"((rest_62)(if(pair? lst_123)(cdr lst_123) null)))" "(let-values(((fold-var_107)" "(let-values(((r_37)" "(normalize-required" " r_36" " mpi_34" " nominal-phase_5" -" sym_37)))" +" sym_38)))" "(begin" " #t" -"((letrec-values(((for-loop_160)" +"((letrec-values(((for-loop_161)" "(lambda(fold-var_108)" "(begin" " 'for-loop" @@ -22347,14 +22577,14 @@ static const char *startup_source = "(let-values(((fold-var_110)" " fold-var_108))" "(if(if(eqv?" -" phase_61" +" phase_60" "(required-phase" " r_37))" "(free-identifier=?$1" "(required-id r_37)" -" id_26" -" phase_61" -" phase_61)" +" id_27" +" phase_60" +" phase_60)" " #f)" " fold-var_110" "(let-values(((fold-var_111)" @@ -22368,13 +22598,13 @@ static const char *startup_source = "(values" " fold-var_112)))))))" " fold-var_109))))))" +" for-loop_161)" +" fold-var_106)))))" +"(if(not #f)(for-loop_160 fold-var_107 rest_62) fold-var_107)))" +" fold-var_106)))))" " for-loop_160)" -" fold-var_106)))))" -"(if(not #f)(for-loop_159 fold-var_107 rest_62) fold-var_107)))" -" fold-var_106)))))" -" for-loop_159)" " null" -" lst_121)))))))" +" lst_122)))))))" "(define-values" "(check-not-defined95.1)" "(lambda(accum-update-nominals83_0" @@ -22397,8 +22627,8 @@ static const char *startup_source = "(let-values(((check-not-required?_0)(if check-not-required?85_0 check-not-required?78_0 #f)))" "(let-values(((allow-defined?_0)(if allow-defined?86_0 allow-defined?79_0 #f)))" "(let-values(((r+p_8) r+p92_0))" -"(let-values(((id_27) id93_0))" -"(let-values(((phase_62) phase94_0))" +"(let-values(((id_28) id93_0))" +"(let-values(((phase_61) phase94_0))" "(let-values(((orig-s_1) in80_0))" "(let-values(((ok-binding/delayed_0)(if unless-matches88_0 unless-matches81_0 #f)))" "(let-values(((remove-shadowed!?_0)(if remove-shadowed!?89_0 remove-shadowed!?82_0 #f)))" @@ -22407,7 +22637,7 @@ static const char *startup_source = "(let-values(((who_13) who84_0))" "(let-values()" "(let-values(((b_68)" -"(let-values(((id160_0) id_27)((phase161_0) phase_62)((temp162_1) #t))" +"(let-values(((id160_0) id_28)((phase161_0) phase_61)((temp162_1) #t))" "(resolve+shift30.1" " #f" " #f" @@ -22424,7 +22654,7 @@ static const char *startup_source = "(if(not b_68)" "(let-values() #f)" "(if(not(module-binding? b_68))" -" (let-values () (raise-syntax-error$1 #f \"identifier out of context\" id_27))" +" (let-values () (raise-syntax-error$1 #f \"identifier out of context\" id_28))" "(let-values()" "(let-values(((defined?_0)" "(if b_68" @@ -22435,7 +22665,7 @@ static const char *startup_source = "(hash-ref" "(hash-ref" "(requires+provides-phase-to-defined-syms r+p_8)" -" phase_62" +" phase_61" " '#hasheq())" "(module-binding-sym b_68)" " #f))" @@ -22463,16 +22693,16 @@ static const char *startup_source = "(string-append" " \"identifier already \"" " (if defined?_1 \"defined\" \"required\")" -"(if(zero-phase? phase_62)" +"(if(zero-phase? phase_61)" " (let-values () \"\")" -"(if(label-phase? phase_62)" +"(if(label-phase? phase_61)" " (let-values () \" for label\")" -"(if(= 1 phase_62)" +"(if(= 1 phase_61)" " (let-values () \" for syntax\")" "(let-values()" -" (format \" for phase ~a\" phase_62))))))" +" (format \" for phase ~a\" phase_61))))))" " orig-s_1" -" id_27)))))" +" id_28)))))" "(if(if(not at-mod_4)(not define-shadowing-require?_0) #f)" "(let-values() #f)" "(if(if ok-binding_0(same-binding? b_68 ok-binding_0) #f)" @@ -22486,7 +22716,7 @@ static const char *startup_source = "(begin" " 'update!" "(let-values(((temp163_0) #t)" -"((id164_0) id_27)" +"((id164_0) id_28)" "((temp165_1)" "(let-values(((ok-binding167_0)" " ok-binding_0)" @@ -22519,7 +22749,7 @@ static const char *startup_source = " #f" " #f" " ok-binding167_0)))" -"((phase166_0) phase_62))" +"((phase166_0) phase_61))" "(add-binding!17.1" " #f" " #f" @@ -22569,31 +22799,31 @@ static const char *startup_source = "(let-values(((reqds_2)" "(hash-ref" " sym-to-reqds_3" -"(syntax-e$1 id_27)" +"(syntax-e$1 id_28)" " null)))" "(let-values(((only-can-can-shadow-require?_0)" -"(let-values(((lst_123) reqds_2))" +"(let-values(((lst_124) reqds_2))" "(begin" "(void)" -"((letrec-values(((for-loop_161)" +"((letrec-values(((for-loop_162)" "(lambda(only-can-can-shadow-require?_1" -" lst_124)" +" lst_125)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_124))" -"(let-values(((r_25)" +" lst_125))" +"(let-values(((r_38)" "(if(pair?" -" lst_124)" +" lst_125)" "(car" -" lst_124)" -" lst_124))" +" lst_125)" +" lst_125))" "((rest_63)" "(if(pair?" -" lst_124)" +" lst_125)" "(cdr" -" lst_124)" +" lst_125)" " null)))" "(let-values(((only-can-can-shadow-require?_2)" "(let-values(((only-can-can-shadow-require?_3)" @@ -22601,11 +22831,11 @@ static const char *startup_source = "(let-values(((only-can-can-shadow-require?_4)" "(let-values()" "(if(if(bulk-required?" -" r_25)" +" r_38)" "(bulk-required-can-be-shadowed?" -" r_25)" +" r_38)" "(required-can-be-shadowed?" -" r_25))" +" r_38))" "(let-values()" "(begin" "(set-requires+provides-all-bindings-simple?!" @@ -22622,14 +22852,14 @@ static const char *startup_source = " only-can-can-shadow-require?_4)))))" "(if(not" " #f)" -"(for-loop_161" +"(for-loop_162" " only-can-can-shadow-require?_2" " rest_63)" " only-can-can-shadow-require?_2)))" " only-can-can-shadow-require?_1)))))" -" for-loop_161)" +" for-loop_162)" " #t" -" lst_123)))))" +" lst_124)))))" "(begin" "(if define-shadowing-require?_0" "(let-values()" @@ -22651,14 +22881,14 @@ static const char *startup_source = "(let-values()" "(hash-set!" " sym-to-reqds_3" -"(syntax-e$1 id_27)" +"(syntax-e$1 id_28)" "(remove-non-matching-requireds" " reqds_2" -" id_27" -" phase_62" +" id_28" +" phase_61" " mpi_35" " nominal-phase_6" -"(syntax-e$1 id_27))))" +"(syntax-e$1 id_28))))" "(void))))" " #f)))))))))))))))))))))))))))))))))))" "(define-values" @@ -22668,24 +22898,24 @@ static const char *startup_source = " 'add-defined-syms!103" "(let-values(((r+p_9) r+p100_0))" "(let-values(((syms_18) syms101_0))" -"(let-values(((phase_63) phase102_0))" +"(let-values(((phase_62) phase102_0))" "(let-values(((as-transformer?_2)(if as-transformer?99_0 as-transformer?98_0 #f)))" "(let-values()" "(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_63 '#hasheq())))" +"(let-values(((defined-syms_2)(hash-ref phase-to-defined-syms_0 phase_62 '#hasheq())))" "(let-values(((new-defined-syms_0)" -"(let-values(((lst_125) syms_18))" +"(let-values(((lst_126) syms_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_125)))" -"((letrec-values(((for-loop_162)" -"(lambda(defined-syms_3 lst_126)" +"(let-values()(check-list lst_126)))" +"((letrec-values(((for-loop_163)" +"(lambda(defined-syms_3 lst_127)" "(begin" " 'for-loop" -"(if(pair? lst_126)" -"(let-values(((sym_38)(unsafe-car lst_126))" -"((rest_64)(unsafe-cdr lst_126)))" +"(if(pair? lst_127)" +"(let-values(((sym_39)(unsafe-car lst_127))" +"((rest_64)(unsafe-cdr lst_127)))" "(let-values(((defined-syms_4)" "(let-values(((defined-syms_5)" " defined-syms_3))" @@ -22693,61 +22923,61 @@ static const char *startup_source = "(let-values()" "(hash-set" " defined-syms_5" -" sym_38" +" sym_39" "(if as-transformer?_2" " 'transformer" " 'variable)))))" "(values defined-syms_6)))))" "(if(not #f)" -"(for-loop_162 defined-syms_4 rest_64)" +"(for-loop_163 defined-syms_4 rest_64)" " defined-syms_4)))" " defined-syms_3)))))" -" for-loop_162)" +" for-loop_163)" " defined-syms_2" -" lst_125)))))" -"(hash-set! phase-to-defined-syms_0 phase_63 new-defined-syms_0))))))))))))" +" lst_126)))))" +"(hash-set! phase-to-defined-syms_0 phase_62 new-defined-syms_0))))))))))))" "(define-values" "(defined-sym-kind)" -"(lambda(r+p_10 sym_39 phase_64)" +"(lambda(r+p_10 sym_40 phase_63)" "(begin" "(let-values(((phase-to-defined-syms_1)(requires+provides-phase-to-defined-syms r+p_10)))" -"(let-values(((defined-syms_7)(hash-ref phase-to-defined-syms_1 phase_64 '#hasheq())))" -"(hash-ref defined-syms_7 sym_39 #f))))))" +"(let-values(((defined-syms_7)(hash-ref phase-to-defined-syms_1 phase_63 '#hasheq())))" +"(hash-ref defined-syms_7 sym_40 #f))))))" "(define-values" "(extract-module-requires)" -"(lambda(r+p_11 mod-name_11 phase_65)" +"(lambda(r+p_11 mod-name_11 phase_64)" "(begin" "(let-values(((mpi_36)(intern-mpi r+p_11 mod-name_11)))" "(let-values(((at-mod_5)(hash-ref(requires+provides-requires r+p_11) mpi_36 #f)))" "(if at-mod_5" "(reverse$1" -"(let-values(((ht_101)(hash-ref at-mod_5 phase_65 '#hasheq())))" +"(let-values(((ht_101)(hash-ref at-mod_5 phase_64 '#hasheq())))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_101)))" -"((letrec-values(((for-loop_163)" -"(lambda(fold-var_113 i_131)" +"((letrec-values(((for-loop_164)" +"(lambda(fold-var_113 i_132)" "(begin" " 'for-loop" -"(if i_131" -"(let-values(((sym_40 reqds_3)(hash-iterate-key+value ht_101 i_131)))" +"(if i_132" +"(let-values(((sym_41 reqds_3)(hash-iterate-key+value ht_101 i_132)))" "(let-values(((fold-var_114)" -"(let-values(((lst_127) reqds_3))" +"(let-values(((lst_128) reqds_3))" "(begin" "(void)" -"((letrec-values(((for-loop_164)" -"(lambda(fold-var_115 lst_128)" +"((letrec-values(((for-loop_165)" +"(lambda(fold-var_115 lst_129)" "(begin" " 'for-loop" -"(if(not(null? lst_128))" +"(if(not(null? lst_129))" "(let-values(((reqd_1)" -"(if(pair? lst_128)" -"(car lst_128)" -" lst_128))" +"(if(pair? lst_129)" +"(car lst_129)" +" lst_129))" "((rest_65)" -"(if(pair? lst_128)" -"(cdr lst_128)" +"(if(pair? lst_129)" +"(cdr lst_129)" " null)))" "(let-values(((fold-var_116)" "(let-values(((fold-var_117)" @@ -22759,25 +22989,25 @@ static const char *startup_source = "(normalize-required" " reqd_1" " mpi_36" -" phase_65" -" sym_40))" +" phase_64" +" sym_41))" " fold-var_117))))" "(values" " fold-var_118)))))" "(if(not #f)" -"(for-loop_164" +"(for-loop_165" " fold-var_116" " rest_65)" " fold-var_116)))" " fold-var_115)))))" -" for-loop_164)" +" for-loop_165)" " fold-var_113" -" lst_127)))))" +" lst_128)))))" "(if(not #f)" -"(for-loop_163 fold-var_114(hash-iterate-next ht_101 i_131))" +"(for-loop_164 fold-var_114(hash-iterate-next ht_101 i_132))" " fold-var_114)))" " fold-var_113)))))" -" for-loop_163)" +" for-loop_164)" " null" "(hash-iterate-first ht_101)))))" " #f))))))" @@ -22789,25 +23019,25 @@ static const char *startup_source = "(if or-part_176 or-part_176 null)))))" "(define-values" "(extract-all-module-requires)" -"(lambda(r+p_13 mod-name_12 phase_53)" +"(lambda(r+p_13 mod-name_12 phase_65)" "(begin" "(let-values(((self_10)(requires+provides-self r+p_13)))" "(let-values(((requires_2)(requires+provides-requires r+p_13)))" "(call/ec" "(lambda(esc_0)" "(reverse$1" -"(let-values(((lst_129)(if mod-name_12(list(intern-mpi r+p_13 mod-name_12))(hash-keys requires_2))))" +"(let-values(((lst_130)(if mod-name_12(list(intern-mpi r+p_13 mod-name_12))(hash-keys requires_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_129)))" -"((letrec-values(((for-loop_165)" -"(lambda(fold-var_119 lst_130)" +"(let-values()(check-list lst_130)))" +"((letrec-values(((for-loop_166)" +"(lambda(fold-var_119 lst_131)" "(begin" " 'for-loop" -"(if(pair? lst_130)" -"(let-values(((mod-name_13)(unsafe-car lst_130))" -"((rest_66)(unsafe-cdr lst_130)))" +"(if(pair? lst_131)" +"(let-values(((mod-name_13)(unsafe-car lst_131))" +"((rest_66)(unsafe-cdr lst_131)))" "(let-values(((fold-var_120)" "(let-values(((fold-var_121) fold-var_119))" "(if(eq? mod-name_13 self_10)" @@ -22819,28 +23049,28 @@ static const char *startup_source = " '#hasheqv())))" "(begin" " #t" -"((letrec-values(((for-loop_166)" +"((letrec-values(((for-loop_167)" "(lambda(fold-var_122)" "(begin" " 'for-loop" "(let-values()" "(let-values(((fold-var_123)" -"(let-values(((lst_131)" +"(let-values(((lst_132)" "(if(eq?" -" phase_53" +" phase_65" " 'all)" "(hash-keys" " phase-to-requireds_0)" "(list" -" phase_53))))" +" phase_65))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_131)))" -"((letrec-values(((for-loop_167)" +" lst_132)))" +"((letrec-values(((for-loop_168)" "(lambda(fold-var_124" " lst_59)" "(begin" @@ -22868,41 +23098,41 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_102)))" -"((letrec-values(((for-loop_168)" +"((letrec-values(((for-loop_169)" "(lambda(fold-var_44" -" i_132)" +" i_133)" "(begin" " 'for-loop" -"(if i_132" -"(let-values(((sym_41" +"(if i_133" +"(let-values(((sym_42" " reqds_4)" "(hash-iterate-key+value" " ht_102" -" i_132)))" +" i_133)))" "(let-values(((fold-var_126)" -"(let-values(((lst_132)" +"(let-values(((lst_133)" " reqds_4))" "(begin" "(void)" -"((letrec-values(((for-loop_169)" +"((letrec-values(((for-loop_170)" "(lambda(fold-var_127" -" lst_133)" +" lst_134)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_133))" +" lst_134))" "(let-values(((reqd_2)" "(if(pair?" -" lst_133)" +" lst_134)" "(car" -" lst_133)" -" lst_133))" +" lst_134)" +" lst_134))" "((rest_68)" "(if(pair?" -" lst_133)" +" lst_134)" "(cdr" -" lst_133)" +" lst_134)" " null)))" "(let-values(((fold-var_50)" "(let-values(((fold-var_128)" @@ -22915,51 +23145,51 @@ static const char *startup_source = " reqd_2" " mod-name_13" " phase_66" -" sym_41))" +" sym_42))" " fold-var_128))))" "(values" " fold-var_129)))))" "(if(not" " #f)" -"(for-loop_169" +"(for-loop_170" " fold-var_50" " rest_68)" " fold-var_50)))" " fold-var_127)))))" -" for-loop_169)" +" for-loop_170)" " fold-var_44" -" lst_132)))))" +" lst_133)))))" "(if(not" " #f)" -"(for-loop_168" +"(for-loop_169" " fold-var_126" "(hash-iterate-next" " ht_102" -" i_132))" +" i_133))" " fold-var_126)))" " fold-var_44)))))" -" for-loop_168)" +" for-loop_169)" " fold-var_124" "(hash-iterate-first" " ht_102))))))" "(if(not" " #f)" -"(for-loop_167" +"(for-loop_168" " fold-var_125" " rest_67)" " fold-var_125)))" " fold-var_124)))))" -" for-loop_167)" +" for-loop_168)" " fold-var_122" -" lst_131)))))" +" lst_132)))))" " fold-var_123))))))" -" for-loop_166)" +" for-loop_167)" " fold-var_121)))))))" -"(if(not #f)(for-loop_165 fold-var_120 rest_66) fold-var_120)))" +"(if(not #f)(for-loop_166 fold-var_120 rest_66) fold-var_120)))" " fold-var_119)))))" -" for-loop_165)" +" for-loop_166)" " null" -" lst_129)))))))))))" +" lst_130)))))))))))" "(define-values" "(add-provide!117.1)" "(lambda(as-protected?106_0" @@ -22974,11 +23204,11 @@ static const char *startup_source = "(begin" " 'add-provide!117" "(let-values(((r+p_14) r+p110_0))" -"(let-values(((sym_42) sym111_0))" +"(let-values(((sym_43) sym111_0))" "(let-values(((phase_67) phase112_0))" "(let-values(((binding_13) binding113_0))" "(let-values(((immed-binding_0) immed-binding114_0))" -"(let-values(((id_28) id115_0))" +"(let-values(((id_29) id115_0))" "(let-values(((orig-s_2) orig-s116_0))" "(let-values(((as-protected?_0) as-protected?106_0))" "(let-values(((as-transformer?_3) as-transformer?107_0))" @@ -22988,13 +23218,13 @@ static const char *startup_source = "(not(eq?(module-binding-module immed-binding_0)(requires+provides-self r+p_14)))" " #f)" "(let-values()" -" (raise-syntax-error$1 #f \"cannot protect required identifier in re-provide\" sym_42))" +" (raise-syntax-error$1 #f \"cannot protect required identifier in re-provide\" sym_43))" "(void))" "(hash-update!" "(requires+provides-provides r+p_14)" " phase_67" "(lambda(at-phase_9)" -"(let-values(((b/p_0)(hash-ref at-phase_9 sym_42 #f)))" +"(let-values(((b/p_0)(hash-ref at-phase_9 sym_43 #f)))" "(let-values(((b_69)(provided-as-binding b/p_0)))" "(if(not b_69)" "(let-values()" @@ -23028,7 +23258,7 @@ static const char *startup_source = " binding_13)))" "(hash-set" " at-phase_9" -" sym_42" +" sym_43" "(if(let-values(((or-part_177) as-protected?_0))" "(if or-part_177 or-part_177 as-transformer?_3))" "(provided1.1 plain-binding_0 as-protected?_0 as-transformer?_3)" @@ -23040,7 +23270,7 @@ static const char *startup_source = " #f" " \"identifier already provided (as a different binding)\"" " orig-s_2" -" id_28)))))))" +" id_29)))))))" " '#hasheq())))))))))))))))" "(define-values" "(extract-requires-and-provides)" @@ -23056,18 +23286,18 @@ static const char *startup_source = "((phasesym-set)" "(lambda(ids_3)" "(begin" -"(let-values(((lst_146) ids_3))" +"(let-values(((lst_147) ids_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_146)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_147)))" "((letrec-values(((for-loop_178)" -"(lambda(table_141 lst_147)" +"(lambda(table_141 lst_148)" "(begin" " 'for-loop" -"(if(pair? lst_147)" -"(let-values(((id_44)(unsafe-car lst_147))((rest_75)(unsafe-cdr lst_147)))" +"(if(pair? lst_148)" +"(let-values(((id_45)(unsafe-car lst_148))((rest_75)(unsafe-cdr lst_148)))" "(let-values(((table_142)" "(let-values(((table_143) table_141))" "(let-values(((table_144)" "(let-values()" -"(let-values(((key_54 val_46)" +"(let-values(((key_54 val_47)" "(let-values()" "(values" -"(let-values()(syntax-e$1 id_44))" +"(let-values()(syntax-e$1 id_45))" " #t))))" -"(hash-set table_143 key_54 val_46)))))" +"(hash-set table_143 key_54 val_47)))))" "(values table_144)))))" "(if(not #f)(for-loop_178 table_142 rest_75) table_142)))" " table_141)))))" " for-loop_178)" " '#hash()" -" lst_146))))))" +" lst_147))))))" "(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)" @@ -25225,11 +25455,11 @@ static const char *startup_source = "(not adjust_1)))" "(if or-part_196" " or-part_196" -"(let-values(((or-part_125)" +"(let-values(((or-part_197)" "(adjust-prefix?" " adjust_1)))" -"(if or-part_125" -" or-part_125" +"(if or-part_197" +" or-part_197" "(adjust-all-except?" " adjust_1)))))" "(not skip-variable-phase-level_1)" @@ -25360,17 +25590,17 @@ static const char *startup_source = " #f)" " #f))" "((temp251_0)" -"(if(let-values(((or-part_197)" +"(if(let-values(((or-part_198)" "(not" " can-bulk-bind?_0)))" -"(if or-part_197" -" or-part_197" +"(if or-part_198" +" or-part_198" " copy-variable-phase-level_1))" "(lambda(binding_16" " as-transformer?_4)" "(begin" " 'temp251" -"(let-values(((sym_44)" +"(let-values(((sym_45)" "(module-binding-nominal-sym" " binding_16)))" "(let-values(((provide-phase_0)" @@ -25379,7 +25609,7 @@ static const char *startup_source = "(let-values(((adjusted-sym_0)" "(if(not" "(symbol-interned?" -" sym_44))" +" sym_45))" "(let-values()" " #f)" "(if(if skip-variable-phase-level_1" @@ -25395,19 +25625,19 @@ static const char *startup_source = "(if(not" " adjust_1)" "(let-values()" -" sym_44)" +" sym_45)" "(if(adjust-only?" " adjust_1)" "(let-values()" "(if(set-member?" "(adjust-only-syms" " adjust_1)" -" sym_44)" +" sym_45)" "(if(hash-set!" " done-syms_0" -" sym_44" +" sym_45" " #t)" -" sym_44" +" sym_45" " #f)" " #f))" "(if(adjust-prefix?" @@ -25418,7 +25648,7 @@ static const char *startup_source = " \"~a~a\"" "(adjust-prefix-sym" " adjust_1)" -" sym_44)))" +" sym_45)))" "(if(adjust-all-except?" " adjust_1)" "(let-values()" @@ -25426,10 +25656,10 @@ static const char *startup_source = "(if(set-member?" "(adjust-all-except-syms" " adjust_1)" -" sym_44)" +" sym_45)" "(hash-set!" " done-syms_0" -" sym_44" +" sym_45" " #t)" " #f))" "(string->symbol" @@ -25437,18 +25667,18 @@ static const char *startup_source = " \"~a~a\"" "(adjust-all-except-prefix-sym" " adjust_1)" -" sym_44))" +" sym_45))" " #f))" "(if(adjust-rename?" " adjust_1)" "(let-values()" "(if(eq?" -" sym_44" +" sym_45" "(adjust-rename-from-sym" " adjust_1))" "(if(hash-set!" " done-syms_0" -" sym_44" +" sym_45" " #t)" "(adjust-rename-to-id" " adjust_1)" @@ -25460,7 +25690,7 @@ static const char *startup_source = " requires+provides_3" " #f)" "(let-values()" -"(let-values(((s_272)" +"(let-values(((s_277)" "(datum->syntax$1" " bind-in-stx_0" " adjusted-sym_0)))" @@ -25480,7 +25710,7 @@ static const char *startup_source = "((requires+provides281_0)" " requires+provides_3)" "((s282_0)" -" s_272)" +" s_277)" "((bind-phase283_0)" " bind-phase_0)" "((binding284_0)" @@ -25514,7 +25744,7 @@ static const char *startup_source = "(let-values(((requires+provides288_0)" " requires+provides_3)" "((s289_0)" -" s_272)" +" s_277)" "((bind-phase290_0)" " bind-phase_0)" "((binding291_0)" @@ -25546,7 +25776,7 @@ static const char *startup_source = "(let-values()" "(copy-namespace-value" " m-ns_10" -" sym_44" +" sym_45" " binding_16" " copy-variable-phase-level_1" " phase-shift_11" @@ -25580,7 +25810,7 @@ static const char *startup_source = "(if update-nominals-box_0" "(let-values()" "(begin" -"(let-values(((lst_148)" +"(let-values(((lst_149)" "(unbox" " update-nominals-box_0)))" "(begin" @@ -25589,19 +25819,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_148)))" +" lst_149)))" "((letrec-values(((for-loop_179)" -"(lambda(lst_149)" +"(lambda(lst_150)" "(begin" " 'for-loop" "(if(pair?" -" lst_149)" +" lst_150)" "(let-values(((update!_1)" "(unsafe-car" -" lst_149))" +" lst_150))" "((rest_76)" "(unsafe-cdr" -" lst_149)))" +" lst_150)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25618,7 +25848,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_179)" -" lst_148)))" +" lst_149)))" "(void)))" "(void))" "(values))))" @@ -25658,14 +25888,14 @@ static const char *startup_source = "(check-in-immutable-hash-keys" " ht_105)))" "((letrec-values(((for-loop_180)" -"(lambda(i_135)" +"(lambda(i_136)" "(begin" " 'for-loop" -"(if i_135" -"(let-values(((sym_45)" +"(if i_136" +"(let-values(((sym_46)" "(unsafe-immutable-hash-iterate-key" " ht_105" -" i_135)))" +" i_136)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25674,7 +25904,7 @@ static const char *startup_source = "(let-values()" "(if(hash-ref" " done-syms_0" -" sym_45" +" sym_46" " #f)" "(void)" "(let-values()" @@ -25682,7 +25912,7 @@ static const char *startup_source = " who_16" " \"not in nested spec\"" " orig-s_14" -" sym_45))))" +" sym_46))))" "(values)))))" "(values)))))" "(if(not" @@ -25690,7 +25920,7 @@ static const char *startup_source = "(for-loop_180" "(unsafe-immutable-hash-iterate-next" " ht_105" -" i_135))" +" i_136))" "(values))))" "(values))))))" " for-loop_180)" @@ -25743,22 +25973,22 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_106)))" "((letrec-values(((for-loop_181)" -"(lambda(i_136)" +"(lambda(i_137)" "(begin" " 'for-loop" -"(if i_136" +"(if i_137" "(let-values(((provide-phase-level_5 provides_7)" "(hash-iterate-key+value" " ht_106" -" i_136)))" +" i_137)))" "(let-values((()" "(let-values()" -"(if(let-values(((or-part_198)" +"(if(let-values(((or-part_199)" "(eq?" " just-meta_2" " 'all)))" -"(if or-part_198" -" or-part_198" +"(if or-part_199" +" or-part_199" "(eqv?" " just-meta_2" " provide-phase-level_5)))" @@ -25783,11 +26013,11 @@ static const char *startup_source = "(if filter_0" "(let-values()" "(begin" -"(let-values(((lst_150)" -"(let-values(((or-part_199)" +"(let-values(((lst_151)" +"(let-values(((or-part_200)" " only-syms_0))" -"(if or-part_199" -" or-part_199" +"(if or-part_200" +" or-part_200" "(hash-keys" " provides_7)))))" "(begin" @@ -25796,19 +26026,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_150)))" +" lst_151)))" "((letrec-values(((for-loop_182)" -"(lambda(lst_151)" +"(lambda(lst_152)" "(begin" " 'for-loop" "(if(pair?" -" lst_151)" -"(let-values(((sym_46)" +" lst_152)" +"(let-values(((sym_47)" "(unsafe-car" -" lst_151))" +" lst_152))" "((rest_77)" "(unsafe-cdr" -" lst_151)))" +" lst_152)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25818,7 +26048,7 @@ static const char *startup_source = "(let-values(((binding/p_4)" "(hash-ref" " provides_7" -" sym_46" +" sym_47" " #f)))" "(if binding/p_4" "(let-values()" @@ -25826,7 +26056,7 @@ static const char *startup_source = "(let-values(((binding/p294_0)" " binding/p_4)" "((sym295_0)" -" sym_46)" +" sym_47)" "((self296_0)" " self_13)" "((mpi297_0)" @@ -25842,12 +26072,12 @@ static const char *startup_source = " self296_0" " binding/p294_0" " sym295_0))))" -"(let-values(((sym_47)" +"(let-values(((sym_48)" "(filter_0" " b_70" "(provided-as-transformer?" " binding/p_4))))" -"(if(if sym_47" +"(if(if sym_48" "(not" " can-bulk?_0)" " #f)" @@ -25855,7 +26085,7 @@ static const char *startup_source = "(let-values(((temp300_0)" "(datum->syntax$1" " in-stx_2" -" sym_47))" +" sym_48))" "((b301_0)" " b_70)" "((phase302_0)" @@ -25879,19 +26109,19 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_182)" -" lst_150)))" +" lst_151)))" "(void)))" "(void))" "(if can-bulk?_0" "(let-values()" -"(let-values(((bulk-binding-registry_9)" +"(let-values(((bulk-binding-registry_10)" "(namespace-bulk-binding-registry" " ns_50)))" "(let-values(((in-stx303_0)" " in-stx_2)" "((temp304_0)" "(bulk-binding14.1" -"(let-values(((or-part_200)" +"(let-values(((or-part_201)" "(if(not" " bulk-prefix_2)" "(if(zero?" @@ -25900,11 +26130,11 @@ static const char *startup_source = " provides_7" " #f)" " #f)))" -"(if or-part_200" -" or-part_200" +"(if or-part_201" +" or-part_201" "(if(not" "(registered-bulk-provide?" -" bulk-binding-registry_9" +" bulk-binding-registry_10" " module-name_1))" "(bulk-provides-add-prefix-remove-exceptions" " provides_7" @@ -25917,7 +26147,7 @@ static const char *startup_source = " mpi_40" " provide-phase-level_5" " phase-shift_12" -" bulk-binding-registry_9))" +" bulk-binding-registry_10))" "((phase305_0)" " phase_70)" "((orig-s306_0)" @@ -25941,7 +26171,7 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_181" -"(hash-iterate-next ht_106 i_136))" +"(hash-iterate-next ht_106 i_137))" "(values))))" "(values))))))" " for-loop_181)" @@ -25953,7 +26183,7 @@ static const char *startup_source = "(begin" "(let-values(((rebuild-req_0)" "(lambda(req_2 new-req_0)(begin 'rebuild-req(datum->syntax$1 req_2 new-req_0 req_2 req_2)))))" -"(letrec-values(((loop_85)" +"(letrec-values(((loop_88)" "(lambda(shifted?_0)" "(begin" " 'loop" @@ -25964,50 +26194,50 @@ static const char *startup_source = "(syntax-e$1(car(syntax-e$1 req_3)))" " #f)" " #f)))" -"(let-values(((tmp_24) fm_1))" -"(if(equal? tmp_24 'for-meta)" +"(let-values(((tmp_25) fm_1))" +"(if(equal? tmp_25 'for-meta)" "(let-values()" "(let-values(((ok?_12 for-meta308_0 phase-level309_0 spec310_0)" -"(let-values(((s_273) req_3))" -"(let-values(((orig-s_16) s_273))" +"(let-values(((s_278) req_3))" +"(let-values(((orig-s_16) s_278))" "(let-values(((for-meta308_1 phase-level309_1 spec310_1)" -"(let-values(((s_274)" -"(if(syntax?$1 s_273)" -"(syntax-e$1 s_273)" -" s_273)))" -"(if(pair? s_274)" -"(let-values(((for-meta311_0)" -"(let-values(((s_275)" -"(car s_274)))" -" s_275))" -"((phase-level312_0 spec313_0)" -"(let-values(((s_276)" -"(cdr s_274)))" -"(let-values(((s_277)" -"(if(syntax?$1" -" s_276)" -"(syntax-e$1" -" s_276)" -" s_276)))" -"(if(pair? s_277)" -"(let-values(((phase-level314_0)" -"(let-values(((s_278)" -"(car" -" s_277)))" -" s_278))" -"((spec315_0)" "(let-values(((s_279)" -"(cdr" -" s_277)))" +"(if(syntax?$1 s_278)" +"(syntax-e$1 s_278)" +" s_278)))" +"(if(pair? s_279)" +"(let-values(((for-meta311_0)" "(let-values(((s_280)" +"(car s_279)))" +" s_280))" +"((phase-level312_0 spec313_0)" +"(let-values(((s_281)" +"(cdr s_279)))" +"(let-values(((s_282)" "(if(syntax?$1" -" s_279)" +" s_281)" "(syntax-e$1" -" s_279)" -" s_279)))" +" s_281)" +" s_281)))" +"(if(pair? s_282)" +"(let-values(((phase-level314_0)" +"(let-values(((s_283)" +"(car" +" s_282)))" +" s_283))" +"((spec315_0)" +"(let-values(((s_284)" +"(cdr" +" s_282)))" +"(let-values(((s_285)" +"(if(syntax?$1" +" s_284)" +"(syntax-e$1" +" s_284)" +" s_284)))" "(let-values(((flat-s_8)" "(to-syntax-list.1" -" s_280)))" +" s_285)))" "(if(not" " flat-s_8)" "(let-values()" @@ -26040,34 +26270,34 @@ static const char *startup_source = " (let-values () (raise-syntax-error$1 #f \"bad phase\" req_3)))" "(rebuild-req_0" " req_3" -"(list* for-meta308_0(phase+ p_35 1)(map2(loop_85 #t) spec310_0)))))))" -"(if(equal? tmp_24 'for-syntax)" +"(list* for-meta308_0(phase+ p_35 1)(map2(loop_88 #t) spec310_0)))))))" +"(if(equal? tmp_25 'for-syntax)" "(let-values()" "(let-values(((ok?_13 for-syntax316_0 spec317_0)" -"(let-values(((s_281) req_3))" -"(let-values(((orig-s_17) s_281))" +"(let-values(((s_286) req_3))" +"(let-values(((orig-s_17) s_286))" "(let-values(((for-syntax316_1 spec317_1)" -"(let-values(((s_282)" -"(if(syntax?$1 s_281)" -"(syntax-e$1 s_281)" -" s_281)))" -"(if(pair? s_282)" +"(let-values(((s_287)" +"(if(syntax?$1 s_286)" +"(syntax-e$1 s_286)" +" s_286)))" +"(if(pair? s_287)" "(let-values(((for-syntax318_0)" -"(let-values(((s_283)" -"(car s_282)))" -" s_283))" +"(let-values(((s_288)" +"(car s_287)))" +" s_288))" "((spec319_0)" -"(let-values(((s_284)" -"(cdr s_282)))" -"(let-values(((s_285)" +"(let-values(((s_289)" +"(cdr s_287)))" +"(let-values(((s_290)" "(if(syntax?$1" -" s_284)" +" s_289)" "(syntax-e$1" -" s_284)" -" s_284)))" +" s_289)" +" s_289)))" "(let-values(((flat-s_9)" "(to-syntax-list.1" -" s_285)))" +" s_290)))" "(if(not flat-s_9)" "(let-values()" "(raise-syntax-error$1" @@ -26082,34 +26312,34 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_17)))))" "(values #t for-syntax316_1 spec317_1))))))" -"(rebuild-req_0 req_3(list* 'for-meta 2(map2(loop_85 #t) spec317_0)))))" -"(if(equal? tmp_24 'for-template)" +"(rebuild-req_0 req_3(list* 'for-meta 2(map2(loop_88 #t) spec317_0)))))" +"(if(equal? tmp_25 'for-template)" "(let-values()" "(let-values(((ok?_14 for-template320_0 spec321_0)" -"(let-values(((s_286) req_3))" -"(let-values(((orig-s_18) s_286))" +"(let-values(((s_291) req_3))" +"(let-values(((orig-s_18) s_291))" "(let-values(((for-template320_1 spec321_1)" -"(let-values(((s_287)" -"(if(syntax?$1 s_286)" -"(syntax-e$1 s_286)" -" s_286)))" -"(if(pair? s_287)" +"(let-values(((s_292)" +"(if(syntax?$1 s_291)" +"(syntax-e$1 s_291)" +" s_291)))" +"(if(pair? s_292)" "(let-values(((for-template322_0)" -"(let-values(((s_288)" -"(car s_287)))" -" s_288))" +"(let-values(((s_293)" +"(car s_292)))" +" s_293))" "((spec323_0)" -"(let-values(((s_289)" -"(cdr s_287)))" -"(let-values(((s_290)" +"(let-values(((s_294)" +"(cdr s_292)))" +"(let-values(((s_295)" "(if(syntax?$1" -" s_289)" +" s_294)" "(syntax-e$1" -" s_289)" -" s_289)))" +" s_294)" +" s_294)))" "(let-values(((flat-s_10)" "(to-syntax-list.1" -" s_290)))" +" s_295)))" "(if(not flat-s_10)" "(let-values()" "(raise-syntax-error$1" @@ -26124,36 +26354,36 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_18)))))" "(values #t for-template320_1 spec321_1))))))" -"(rebuild-req_0 req_3(list* 'for-meta 0(map2(loop_85 #t) spec321_0)))))" -"(if(equal? tmp_24 'for-label)" +"(rebuild-req_0 req_3(list* 'for-meta 0(map2(loop_88 #t) spec321_0)))))" +"(if(equal? tmp_25 'for-label)" "(let-values()" "(let-values(((ok?_15 for-label324_0 spec325_0)" -"(let-values(((s_291) req_3))" -"(let-values(((orig-s_19) s_291))" +"(let-values(((s_296) req_3))" +"(let-values(((orig-s_19) s_296))" "(let-values(((for-label324_1 spec325_1)" -"(let-values(((s_292)" -"(if(syntax?$1 s_291)" -"(syntax-e$1 s_291)" -" s_291)))" -"(if(pair? s_292)" +"(let-values(((s_297)" +"(if(syntax?$1 s_296)" +"(syntax-e$1 s_296)" +" s_296)))" +"(if(pair? s_297)" "(let-values(((for-label326_0)" -"(let-values(((s_293)" +"(let-values(((s_298)" "(car" -" s_292)))" -" s_293))" +" s_297)))" +" s_298))" "((spec327_0)" -"(let-values(((s_294)" +"(let-values(((s_299)" "(cdr" -" s_292)))" -"(let-values(((s_295)" +" s_297)))" +"(let-values(((s_300)" "(if(syntax?$1" -" s_294)" +" s_299)" "(syntax-e$1" -" s_294)" -" s_294)))" +" s_299)" +" s_299)))" "(let-values(((flat-s_11)" "(to-syntax-list.1" -" s_295)))" +" s_300)))" "(if(not flat-s_11)" "(let-values()" "(raise-syntax-error$1" @@ -26170,55 +26400,55 @@ static const char *startup_source = "(values #t for-label324_1 spec325_1))))))" "(rebuild-req_0" " req_3" -"(list* for-label324_0(map2(loop_85 #t) spec325_0)))))" -"(if(equal? tmp_24 'just-meta)" +"(list* for-label324_0(map2(loop_88 #t) spec325_0)))))" +"(if(equal? tmp_25 'just-meta)" "(let-values()" "(let-values(((ok?_16 just-meta328_0 phase-level329_0 spec330_0)" -"(let-values(((s_296) req_3))" -"(let-values(((orig-s_20) s_296))" +"(let-values(((s_301) req_3))" +"(let-values(((orig-s_20) s_301))" "(let-values(((just-meta328_1" " phase-level329_1" " spec330_1)" -"(let-values(((s_297)" -"(if(syntax?$1 s_296)" -"(syntax-e$1 s_296)" -" s_296)))" -"(if(pair? s_297)" +"(let-values(((s_302)" +"(if(syntax?$1 s_301)" +"(syntax-e$1 s_301)" +" s_301)))" +"(if(pair? s_302)" "(let-values(((just-meta331_0)" -"(let-values(((s_298)" +"(let-values(((s_303)" "(car" -" s_297)))" -" s_298))" +" s_302)))" +" s_303))" "((phase-level332_0" " spec333_0)" -"(let-values(((s_299)" +"(let-values(((s_304)" "(cdr" -" s_297)))" -"(let-values(((s_300)" -"(if(syntax?$1" -" s_299)" -"(syntax-e$1" -" s_299)" -" s_299)))" -"(if(pair? s_300)" -"(let-values(((phase-level334_0)" -"(let-values(((s_301)" -"(car" -" s_300)))" -" s_301))" -"((spec335_0)" -"(let-values(((s_302)" -"(cdr" -" s_300)))" -"(let-values(((s_303)" -"(if(syntax?$1" -" s_302)" -"(syntax-e$1" -" s_302)" " s_302)))" +"(let-values(((s_305)" +"(if(syntax?$1" +" s_304)" +"(syntax-e$1" +" s_304)" +" s_304)))" +"(if(pair? s_305)" +"(let-values(((phase-level334_0)" +"(let-values(((s_306)" +"(car" +" s_305)))" +" s_306))" +"((spec335_0)" +"(let-values(((s_307)" +"(cdr" +" s_305)))" +"(let-values(((s_308)" +"(if(syntax?$1" +" s_307)" +"(syntax-e$1" +" s_307)" +" s_307)))" "(let-values(((flat-s_12)" "(to-syntax-list.1" -" s_303)))" +" s_308)))" "(if(not" " flat-s_12)" "(let-values()" @@ -26253,12 +26483,12 @@ static const char *startup_source = "(list*" " just-meta328_0" " phase-level329_0" -"(map2(loop_85 #f) spec330_0)))))" +"(map2(loop_88 #f) spec330_0)))))" "(let-values()" "(if shifted?_0" " req_3" "(datum->syntax$1 #f(list 'for-syntax req_3))))))))))))))))" -"((loop_85 #f) req_1))))))" +"((loop_88 #f) req_1))))))" "(define-values" "(copy-namespace-value)" "(lambda(m-ns_11 adjusted-sym_1 binding_17 phase-level_16 phase-shift_13 as-constant?_1)" @@ -26269,7 +26499,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_47)" +"(let-values(((val_48)" "(namespace-get-variable" " i-ns_0" "(module-binding-phase binding_17)" @@ -26291,7 +26521,7 @@ static const char *startup_source = " m-ns_11" "(phase+ phase-shift_13 phase-level_16)" " adjusted-sym_1" -" val_47" +" val_48" " as-constant?_1))))))" "(define-values" "(top-level-instance)" @@ -26300,12 +26530,12 @@ static const char *startup_source = " #f" " 'constant" " top-level-bind!-id" -"(lambda(id_22 mpi_41 orig-phase_0 phase-shift_14 ns_51 sym_48 trans?_0 trans-val_0)" +"(lambda(id_22 mpi_41 orig-phase_0 phase-shift_14 ns_51 sym_49 trans?_0 trans-val_0)" "(let-values(((phase_47)(phase+ orig-phase_0 phase-shift_14)))" "(let-values(((b_71)" "(let-values(((mpi4_0) mpi_41)" "((phase5_0) phase_47)" -"((sym6_1) sym_48)" +"((sym6_1) sym_49)" "((temp7_0)(root-expand-context-frame-id(namespace-get-root-expand-ctx ns_51))))" "(make-module-binding22.1" " #f" @@ -26334,7 +26564,7 @@ static const char *startup_source = "(add-binding!17.1 #f #f #f #f id1_3 b2_4 phase3_1))" "(if trans?_0" "(let-values()(if trans-val_0(let-values()(maybe-install-free=id! trans-val_0 id_22 phase_47))(void)))" -"(let-values()(namespace-unset-transformer! ns_51 phase_47 sym_48)))))))" +"(let-values()(namespace-unset-transformer! ns_51 phase_47 sym_49)))))))" " top-level-require!-id" "(lambda(stx_12 ns_52)" "(let-values(((reqs_2)(cdr(syntax->list$1 stx_12))))" @@ -26401,7 +26631,7 @@ static const char *startup_source = "(list" "(cons" " prop:custom-write" -"(lambda(cim_0 port_10 mode_11)(write(compiled-in-memory-linklet-directory cim_0) port_10))))" +"(lambda(cim_0 port_11 mode_12)(write(compiled-in-memory-linklet-directory cim_0) port_11))))" "(current-inspector)" " #f" " '(0 1 2 3 4 5 6 7 8 9 10 11 12)" @@ -26438,7 +26668,7 @@ static const char *startup_source = "(make-struct-field-accessor -ref_0 1 'other))))" "(define-values" "(swap-top-level-scopes)" -"(lambda(s_304 original-scopes-s_0 new-ns_0)" +"(lambda(s_309 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)" @@ -26446,7 +26676,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_304 old-scs-post_0 new-scs-post_0)" +"(syntax-swap-scopes s_309 old-scs-post_0 new-scs-post_0)" " old-scs-other_0" " new-scs-other_0))))))" "(define-values" @@ -26530,35 +26760,35 @@ static const char *startup_source = " header-syntax-literals" " set-header-binding-syms-in-order!" " set-header-require-vars-in-order!)" -"(let-values(((struct:_65 make-_65 ?_65 -ref_65 -set!_65)" +"(let-values(((struct:_66 make-_66 ?_66 -ref_66 -set!_66)" "(let-values()" "(let-values()" "(make-struct-type 'header #f 8 0 #f null(current-inspector) #f '(0 1 3 4 6 7) #f 'header)))))" "(values" -" struct:_65" -" make-_65" -" ?_65" -"(make-struct-field-accessor -ref_65 0 'module-path-indexes)" -"(make-struct-field-accessor -ref_65 1 'binding-sym-to-define-sym)" -"(make-struct-field-accessor -ref_65 2 'binding-syms-in-order)" -"(make-struct-field-accessor -ref_65 3 'require-var-to-import-sym)" -"(make-struct-field-accessor -ref_65 4 'import-sym-to-extra-inspectors)" -"(make-struct-field-accessor -ref_65 5 'require-vars-in-order)" -"(make-struct-field-accessor -ref_65 6 'define-and-import-syms)" -"(make-struct-field-accessor -ref_65 7 'syntax-literals)" -"(make-struct-field-mutator -set!_65 2 'binding-syms-in-order)" -"(make-struct-field-mutator -set!_65 5 'require-vars-in-order))))" -"(define-values" -"(struct:variable-use variable-use3.1 variable-use? variable-use-module-use variable-use-sym)" -"(let-values(((struct:_66 make-_66 ?_66 -ref_66 -set!_66)" -"(let-values()" -"(let-values()(make-struct-type 'variable-use #f 2 0 #f null #f #f '(0 1) #f 'variable-use)))))" -"(values" " struct:_66" " make-_66" " ?_66" -"(make-struct-field-accessor -ref_66 0 'module-use)" -"(make-struct-field-accessor -ref_66 1 'sym))))" +"(make-struct-field-accessor -ref_66 0 'module-path-indexes)" +"(make-struct-field-accessor -ref_66 1 'binding-sym-to-define-sym)" +"(make-struct-field-accessor -ref_66 2 'binding-syms-in-order)" +"(make-struct-field-accessor -ref_66 3 'require-var-to-import-sym)" +"(make-struct-field-accessor -ref_66 4 'import-sym-to-extra-inspectors)" +"(make-struct-field-accessor -ref_66 5 'require-vars-in-order)" +"(make-struct-field-accessor -ref_66 6 'define-and-import-syms)" +"(make-struct-field-accessor -ref_66 7 'syntax-literals)" +"(make-struct-field-mutator -set!_66 2 'binding-syms-in-order)" +"(make-struct-field-mutator -set!_66 5 'require-vars-in-order))))" +"(define-values" +"(struct:variable-use variable-use3.1 variable-use? variable-use-module-use variable-use-sym)" +"(let-values(((struct:_67 make-_67 ?_67 -ref_67 -set!_67)" +"(let-values()" +"(let-values()(make-struct-type 'variable-use #f 2 0 #f null #f #f '(0 1) #f 'variable-use)))))" +"(values" +" struct:_67" +" make-_67" +" ?_67" +"(make-struct-field-accessor -ref_67 0 'module-use)" +"(make-struct-field-accessor -ref_67 1 'sym))))" "(define-values(make-syntax-literals)(lambda()(begin(syntax-literals1.1 null 0))))" "(define-values" "(make-header)" @@ -26574,16 +26804,16 @@ static const char *startup_source = "(if(header? header-or-literals_0)" "(header-syntax-literals header-or-literals_0)" " header-or-literals_0)))" -"(let-values(((pos_83)(syntax-literals-count sl_0)))" +"(let-values(((pos_82)(syntax-literals-count sl_0)))" "(begin" -"(set-syntax-literals-count! sl_0(add1 pos_83))" +"(set-syntax-literals-count! sl_0(add1 pos_82))" "(set-syntax-literals-stxes! sl_0(cons q_0(syntax-literals-stxes sl_0)))" -" pos_83))))))" +" pos_82))))))" "(define-values" "(add-syntax-literals!)" "(lambda(sl_1 vec_55)" "(begin" -"(let-values(((pos_84)(syntax-literals-count sl_1)))" +"(let-values(((pos_83)(syntax-literals-count sl_1)))" "(begin" "(let-values(((vec_56 len_28)" "(let-values(((vec_57) vec_55))" @@ -26591,11 +26821,11 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_183)" -"(lambda(pos_85)" +"(lambda(pos_84)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_85 len_28)" -"(let-values(((e_11)(unsafe-vector-ref vec_56 pos_85)))" +"(if(unsafe-fx< pos_84 len_28)" +"(let-values(((e_11)(unsafe-vector-ref vec_56 pos_84)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -26605,12 +26835,12 @@ static const char *startup_source = "(add-syntax-literal! sl_1 e_11))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_183(unsafe-fx+ 1 pos_85))(values))))" +"(if(not #f)(for-loop_183(unsafe-fx+ 1 pos_84))(values))))" "(values))))))" " for-loop_183)" " 0)))" "(void)" -"(cons pos_84(vector-length vec_55)))))))" +"(cons pos_83(vector-length vec_55)))))))" "(define-values(syntax-literals-empty?)(lambda(sl_2)(begin(null?(syntax-literals-stxes sl_2)))))" "(define-values" "(generate-lazy-syntax-literals!9.1)" @@ -26695,7 +26925,7 @@ static const char *startup_source = "((mpis26_0) mpis_13))" "(generate-deserialize6.1 #f #f temp25_1 mpis26_0))))" "(list* 'set! deserialize-syntax-id '(#f)))))))))))" -"(define-values(generate-lazy-syntax-literal-lookup)(lambda(pos_86)(begin(list get-syntax-literal!-id pos_86))))" +"(define-values(generate-lazy-syntax-literal-lookup)(lambda(pos_85)(begin(list get-syntax-literal!-id pos_85))))" "(define-values" "(generate-eager-syntax-literals!)" "(lambda(sl_5 mpis_14 base-phase_0 self_15 ns_2)" @@ -26733,30 +26963,30 @@ static const char *startup_source = " '((cdr ns+stxss)))))))))))" "(define-values" "(generate-eager-syntax-literal-lookup)" -"(lambda(pos_87)(begin(list 'unsafe-vector*-ref syntax-literals-id pos_87))))" +"(lambda(pos_86)(begin(list 'unsafe-vector*-ref syntax-literals-id pos_86))))" "(define-values" "(syntax-literals-as-vector)" "(lambda(sl_6)(begin(list->vector(reverse$1(syntax-literals-stxes sl_6))))))" "(define-values" "(select-fresh)" -"(lambda(sym_49 header_0)" +"(lambda(sym_50 header_0)" "(begin" -"(if(symbol-conflicts? sym_49 header_0)" -"((letrec-values(((loop_86)" -"(lambda(pos_88)" +"(if(symbol-conflicts? sym_50 header_0)" +"((letrec-values(((loop_89)" +"(lambda(pos_87)" "(begin" " 'loop" -" (let-values (((new-sym_0) (string->symbol (format \"~a/~a\" pos_88 sym_49))))" -"(if(symbol-conflicts? new-sym_0 header_0)(loop_86(add1 pos_88)) new-sym_0))))))" -" loop_86)" +" (let-values (((new-sym_0) (string->symbol (format \"~a/~a\" pos_87 sym_50))))" +"(if(symbol-conflicts? new-sym_0 header_0)(loop_89(add1 pos_87)) new-sym_0))))))" +" loop_89)" " 1)" -" sym_49))))" +" sym_50))))" "(define-values" "(symbol-conflicts?)" -"(lambda(sym_50 header_1)" +"(lambda(sym_51 header_1)" "(begin" -"(let-values(((or-part_166)(built-in-symbol? sym_50)))" -"(if or-part_166 or-part_166(hash-ref(header-define-and-import-syms header_1) sym_50 #f))))))" +"(let-values(((or-part_166)(built-in-symbol? sym_51)))" +"(if or-part_166 or-part_166(hash-ref(header-define-and-import-syms header_1) sym_51 #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)" @@ -26765,28 +26995,28 @@ static const char *startup_source = "(let-values(((header_2) header14_0))" "(let-values(((mpi_42) mpi15_0))" "(let-values(((phase_71) phase16_1))" -"(let-values(((sym_51) sym17_0))" +"(let-values(((sym_52) 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_8)(variable-use3.1(module-use1.1 mpi_42 phase_71) sym_51)))" +"(let-values(((key_8)(variable-use3.1(module-use1.1 mpi_42 phase_71) sym_52)))" "(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_8 #f)))" "(let-values(((var-sym_0)" -"(let-values(((or-part_201) prev-var-sym_0))" -"(if or-part_201" -" or-part_201" -"(let-values(((sym_52)(select-fresh(variable-use-sym key_8) header_2)))" +"(let-values(((or-part_202) prev-var-sym_0))" +"(if or-part_202" +" or-part_202" +"(let-values(((sym_53)(select-fresh(variable-use-sym key_8) header_2)))" "(begin" -"(hash-set! variable-uses_0 key_8 sym_52)" +"(hash-set! variable-uses_0 key_8 sym_53)" "(set-header-require-vars-in-order!" " header_2" "(cons key_8(header-require-vars-in-order header_2)))" "(hash-set!" "(header-define-and-import-syms header_2)" -" sym_52" +" sym_53" "(if defined?_2 'defined 'required))" -" sym_52))))))" +" sym_53))))))" "(begin" "(if(if extra-inspector_4(not prev-var-sym_0) #f)" "(let-values()" @@ -26794,7 +27024,7 @@ static const char *startup_source = "(hash-update!" " extra-inspectors_0" " var-sym_0" -"(lambda(s_305)(set-add s_305 extra-inspector_4))" +"(lambda(s_310)(set-add s_310 extra-inspector_4))" " '#hasheq())))" "(void))" " var-sym_0)))))))))))))))" @@ -26810,18 +27040,18 @@ static const char *startup_source = "(lambda(header_5 phase_72 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_153)(header-require-vars-in-order header_5)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_152)))" +"(let-values()(check-list lst_153)))" "((letrec-values(((for-loop_184)" -"(lambda(ht_107 link-mod-uses_1 lst_153)" +"(lambda(ht_107 link-mod-uses_1 lst_154)" "(begin" " 'for-loop" -"(if(pair? lst_153)" -"(let-values(((vu_0)(unsafe-car lst_153))" -"((rest_78)(unsafe-cdr lst_153)))" +"(if(pair? lst_154)" +"(let-values(((vu_0)(unsafe-car lst_154))" +"((rest_78)(unsafe-cdr lst_154)))" "(let-values(((ht_108 link-mod-uses_2)" "(let-values(((ht_109) ht_107)" "((link-mod-uses_3) link-mod-uses_1))" @@ -26837,14 +27067,14 @@ static const char *startup_source = " #f)))" "(if or-part_157" " or-part_157" -"(let-values(((or-part_202)" +"(let-values(((or-part_203)" "(eq?" "(module-use-module" " mu_2)" "(compile-context-self" " cctx_0))))" -"(if or-part_202" -" or-part_202" +"(if or-part_203" +" or-part_203" "(top-level-module-path-index?" "(module-use-module" " mu_2))))))" @@ -26860,7 +27090,7 @@ static const char *startup_source = " for-loop_184)" " '#hash()" " null" -" lst_152)))))" +" lst_153)))))" "(values" " link-mod-uses_0" "(reverse$1" @@ -26868,11 +27098,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_33)))" "((letrec-values(((for-loop_185)" -"(lambda(fold-var_139 lst_154)" +"(lambda(fold-var_139 lst_155)" "(begin" " 'for-loop" -"(if(pair? lst_154)" -"(let-values(((mu_3)(unsafe-car lst_154))((rest_79)(unsafe-cdr lst_154)))" +"(if(pair? lst_155)" +"(let-values(((mu_3)(unsafe-car lst_155))((rest_79)(unsafe-cdr lst_155)))" "(let-values(((fold-var_140)" "(let-values(((fold-var_141) fold-var_139))" "(let-values(((fold-var_142)" @@ -26880,27 +27110,27 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_109)" +"(let-values(((lst_108)" "(header-require-vars-in-order" " header_5)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_109)))" +"(let-values()(check-list lst_108)))" "((letrec-values(((for-loop_186)" "(lambda(fold-var_143" -" lst_155)" +" lst_156)" "(begin" " 'for-loop" "(if(pair?" -" lst_155)" +" lst_156)" "(let-values(((vu_1)" "(unsafe-car" -" lst_155))" +" lst_156))" "((rest_80)" "(unsafe-cdr" -" lst_155)))" +" lst_156)))" "(let-values(((fold-var_144)" "(let-values(((fold-var_145)" " fold-var_143))" @@ -26941,7 +27171,7 @@ static const char *startup_source = " fold-var_143)))))" " for-loop_186)" " null" -" lst_109)))))" +" lst_108)))))" " fold-var_141))))" "(values fold-var_142)))))" "(if(not #f)(for-loop_185 fold-var_140 rest_79) fold-var_140)))" @@ -26950,15 +27180,15 @@ static const char *startup_source = " null" " lst_33))))" "(reverse$1" -"(let-values(((lst_156) link-mod-uses_0))" +"(let-values(((lst_157) link-mod-uses_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_156)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_157)))" "((letrec-values(((for-loop_187)" -"(lambda(fold-var_41 lst_157)" +"(lambda(fold-var_41 lst_158)" "(begin" " 'for-loop" -"(if(pair? lst_157)" -"(let-values(((mu_4)(unsafe-car lst_157))((rest_81)(unsafe-cdr lst_157)))" +"(if(pair? lst_158)" +"(let-values(((mu_4)(unsafe-car lst_158))((rest_81)(unsafe-cdr lst_158)))" "(let-values(((fold-var_147)" "(let-values(((fold-var_148) fold-var_41))" "(let-values(((fold-var_149)" @@ -26966,7 +27196,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" @@ -26974,20 +27204,20 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_110)))" -"((letrec-values(((for-loop_128)" +"(check-list lst_109)))" +"((letrec-values(((for-loop_129)" "(lambda(table_145" -" lst_158)" +" lst_159)" "(begin" " 'for-loop" "(if(pair?" -" lst_158)" +" lst_159)" "(let-values(((vu_2)" "(unsafe-car" -" lst_158))" +" lst_159))" "((rest_82)" "(unsafe-cdr" -" lst_158)))" +" lst_159)))" "(let-values(((table_34)" "(let-values(((table_146)" " table_145))" @@ -27024,17 +27254,17 @@ static const char *startup_source = "(let-values(((table_148)" "(let-values(((table_149)" " table_147))" -"(if(let-values(((or-part_203)" +"(if(let-values(((or-part_204)" " extra-inspectors_1))" -"(if or-part_203" -" or-part_203" +"(if or-part_204" +" or-part_204" " cross-linklet-inlining?_0))" "(let-values(((table_150)" " table_149))" "(let-values(((table_122)" "(let-values()" "(let-values(((key_55" -" val_48)" +" val_49)" "(let-values()" "(values" " var-sym_3" @@ -27042,7 +27272,7 @@ static const char *startup_source = "(hash-set" " table_150" " key_55" -" val_48)))))" +" val_49)))))" "(values" " table_122)))" " table_149))))" @@ -27055,14 +27285,14 @@ static const char *startup_source = " table_146))))" "(if(not" " #f)" -"(for-loop_128" +"(for-loop_129" " table_34" " rest_82)" " table_34)))" " table_145)))))" -" for-loop_128)" +" for-loop_129)" " '#hash()" -" lst_110)))))" +" lst_109)))))" "(if(hash-count extra-inspectorss_0)" " extra-inspectorss_0" " #f)))" @@ -27072,11 +27302,11 @@ static const char *startup_source = " fold-var_41)))))" " for-loop_187)" " null" -" lst_156))))" +" lst_157))))" "(reverse$1" -"(let-values(((lst_159)(header-require-vars-in-order header_5)))" +"(let-values(((lst_160)(header-require-vars-in-order header_5)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_159)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_160)))" "((letrec-values(((for-loop_189)" "(lambda(fold-var_150 lst_34)" "(begin" @@ -27088,10 +27318,10 @@ static const char *startup_source = "(if(let-values(((mod_2)" "(module-use-module" "(variable-use-module-use vu_3))))" -"(let-values(((or-part_204)" +"(let-values(((or-part_205)" "(eq? mod_2(compile-context-self cctx_0))))" -"(if or-part_204" -" or-part_204" +"(if or-part_205" +" or-part_205" "(top-level-module-path-index? mod_2))))" "(let-values(((fold-var_153) fold-var_152))" "(let-values(((fold-var_154)" @@ -27115,7 +27345,7 @@ static const char *startup_source = " fold-var_150)))))" " for-loop_189)" " null" -" lst_159)))))))))" +" lst_160)))))))))" "(define-values" "(instance-imports)" "(list ns-id phase-shift-id self-id inspector-id bulk-binding-registry-id set-transformer!-id))" @@ -27128,7 +27358,7 @@ static const char *startup_source = "(let-values(((phase-shift_15) phase-shift2_0))" "(let-values(((self_16) self3_0))" "(let-values(((inspector_9) inspector4_0))" -"(let-values(((bulk-binding-registry_10) bulk-binding-registry5_0))" +"(let-values(((bulk-binding-registry_11) bulk-binding-registry5_0))" "(let-values(((set-transformer!_0) set-transformer!6_0))" "(let-values()" "(1/make-instance" @@ -27144,7 +27374,7 @@ static const char *startup_source = " inspector-id" " inspector_9" " bulk-binding-registry-id" -" bulk-binding-registry_10" +" bulk-binding-registry_11" " set-transformer!-id" " set-transformer!_0)))))))))))" "(define-values" @@ -27156,10 +27386,10 @@ static const char *startup_source = "(let-values()(1/make-instance 'body-instance #f 'constant set-transformer!-id set-transformer!_1))))))" "(define-values" "(empty-syntax-literals-instance)" -"(1/make-instance 'empty-stx #f 'constant get-syntax-literal!-id(lambda(pos_89) #f) 'get-encoded-root-expand-ctx #f))" +"(1/make-instance 'empty-stx #f 'constant get-syntax-literal!-id(lambda(pos_88) #f) 'get-encoded-root-expand-ctx #f))" "(define-values" "(empty-module-body-instance)" -"(let-values(((temp21_0)(lambda(name_39 val_49)(void))))(make-module-body-instance-instance18.1 temp21_0)))" +"(let-values(((temp21_0)(lambda(name_39 val_50)(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))" @@ -27181,7 +27411,7 @@ static const char *startup_source = "(let-values(((ns_56) namespace1_1))" "(let-values(((dest-phase_0) dest-phase2_0))" "(let-values(((self_17) self3_1))" -"(let-values(((bulk-binding-registry_11) bulk-binding-registry4_0))" +"(let-values(((bulk-binding-registry_12) bulk-binding-registry4_0))" "(let-values(((inspector_10) inspector5_0))" "(let-values()" "(1/make-instance" @@ -27195,7 +27425,7 @@ static const char *startup_source = " self-id" " self_17" " bulk-binding-registry-id" -" bulk-binding-registry_11" +" bulk-binding-registry_12" " inspector-id" " inspector_10" " 'swap-top-level-scopes" @@ -27241,36 +27471,36 @@ static const char *startup_source = "(correlated->list)" "(lambda(e_29)" "(begin" -"((letrec-values(((loop_87)" +"((letrec-values(((loop_90)" "(lambda(e_30)" "(begin" " 'loop" "(if(list? e_30)" "(let-values() e_30)" "(if(pair? e_30)" -"(let-values()(cons(car e_30)(loop_87(cdr e_30))))" +"(let-values()(cons(car e_30)(loop_90(cdr e_30))))" "(if(null? e_30)" "(let-values() null)" "(if(1/syntax? e_30)" -"(let-values()(loop_87(syntax-e$2 e_30)))" +"(let-values()(loop_90(syntax-e$2 e_30)))" " (let-values () (error 'correlated->list \"not a list\"))))))))))" -" loop_87)" +" loop_90)" " e_29))))" "(define-values" "(correlated-property)" "(case-lambda" "((e_31 k_31)(begin(syntax-property$2 e_31 k_31)))" -"((e_32 k_32 v_161)(syntax-property$2 e_32 k_32 v_161))))" +"((e_32 k_32 v_162)(syntax-property$2 e_32 k_32 v_162))))" "(define-values" "(to-syntax-list.1$1)" -"(lambda(s_306)" +"(lambda(s_107)" "(begin" " 'to-syntax-list" -"(if(list? s_306)" -"(let-values() s_306)" -"(if(pair? s_306)" -"(let-values()(let-values(((r_38)(to-syntax-list.1$1(cdr s_306))))(if r_38(cons(car s_306) r_38) #f)))" -"(if(1/syntax? s_306)(let-values()(to-syntax-list.1$1(syntax-e$2 s_306)))(let-values() #f)))))))" +"(if(list? s_107)" +"(let-values() s_107)" +"(if(pair? s_107)" +"(let-values()(let-values(((r_39)(to-syntax-list.1$1(cdr s_107))))(if r_39(cons(car s_107) r_39) #f)))" +"(if(1/syntax? s_107)(let-values()(to-syntax-list.1$1(syntax-e$2 s_107)))(let-values() #f)))))))" "(define-values" "(srcloc->vector)" "(lambda(s_79)" @@ -27333,20 +27563,20 @@ static const char *startup_source = "(list*" " 'case-lambda" "(reverse$1" -"(let-values(((lst_160)(parsed-case-lambda-clauses p_36)))" +"(let-values(((lst_161)(parsed-case-lambda-clauses p_36)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_160)))" +"(let-values()(check-list lst_161)))" "((letrec-values(((for-loop_190)" -"(lambda(fold-var_155 lst_161)" +"(lambda(fold-var_155 lst_162)" "(begin" " 'for-loop" -"(if(pair? lst_161)" +"(if(pair? lst_162)" "(let-values(((clause_0)" -"(unsafe-car lst_161))" +"(unsafe-car lst_162))" "((rest_84)" -"(unsafe-cdr lst_161)))" +"(unsafe-cdr lst_162)))" "(let-values(((fold-var_28)" "(let-values(((fold-var_29)" " fold-var_155))" @@ -27369,7 +27599,7 @@ static const char *startup_source = " fold-var_155)))))" " for-loop_190)" " null" -" lst_160))))))" +" lst_161))))))" " name_40" " s_10))" "(let-values()(correlate~ s_10 ''unused-case-lambda))))" @@ -27387,13 +27617,13 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_41)))" "((letrec-values(((for-loop_191)" -"(lambda(fold-var_156 lst_162)" +"(lambda(fold-var_156 lst_163)" "(begin" " 'for-loop" -"(if(pair? lst_162)" -"(let-values(((r_39)(unsafe-car lst_162))" -"((rest_42)" -"(unsafe-cdr lst_162)))" +"(if(pair? lst_163)" +"(let-values(((r_40)(unsafe-car lst_163))" +"((rest_41)" +"(unsafe-cdr lst_163)))" "(let-values(((fold-var_157)" "(let-values(((fold-var_9)" " fold-var_156))" @@ -27402,14 +27632,14 @@ static const char *startup_source = "(cons" "(let-values()" "(compile_0" -" r_39" +" r_40" " #f" " #t))" " fold-var_9))))" "(values" " fold-var_70)))))" "(if(not #f)" -"(for-loop_191 fold-var_157 rest_42)" +"(for-loop_191 fold-var_157 rest_41)" " fold-var_157)))" " fold-var_156)))))" " for-loop_191)" @@ -27452,20 +27682,20 @@ static const char *startup_source = " 'begin0" "(compile_0(car(parsed-begin0-body p_36)) name_40 result-used?_0)" "(reverse$1" -"(let-values(((lst_89)(cdr(parsed-begin0-body p_36))))" +"(let-values(((lst_88)(cdr(parsed-begin0-body p_36))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_89)))" -"((letrec-values(((for-loop_108)" -"(lambda(fold-var_11 lst_90)" +"(let-values()(check-list lst_88)))" +"((letrec-values(((for-loop_109)" +"(lambda(fold-var_11 lst_89)" "(begin" " 'for-loop" -"(if(pair? lst_90)" +"(if(pair? lst_89)" "(let-values(((e_33)" -"(unsafe-car lst_90))" -"((rest_43)" -"(unsafe-cdr lst_90)))" +"(unsafe-car lst_89))" +"((rest_42)" +"(unsafe-cdr lst_89)))" "(let-values(((fold-var_92)" "(let-values(((fold-var_93)" " fold-var_11))" @@ -27481,14 +27711,14 @@ static const char *startup_source = "(values" " fold-var_158)))))" "(if(not #f)" -"(for-loop_108" +"(for-loop_109" " fold-var_92" -" rest_43)" +" rest_42)" " fold-var_92)))" " fold-var_11)))))" -" for-loop_108)" +" for-loop_109)" " null" -" lst_89)))))))" +" lst_88)))))))" "(if(parsed-begin? p_36)" "(let-values()" "(correlate~" @@ -27559,14 +27789,14 @@ static const char *startup_source = "(correlate~ s_10(list 'quote(syntax->datum$1 s_10)))))" "(if(parsed-#%variable-reference? p_36)" "(let-values()" -"(let-values(((id_45)" +"(let-values(((id_46)" "(parsed-#%variable-reference-id p_36)))" "(correlate~" " s_10" -"(if id_45" +"(if id_46" "(list" " '#%variable-reference" -"(let-values(((id43_0) id_45)((cctx44_0) cctx_1))" +"(let-values(((id43_0) id_46)((cctx44_0) cctx_1))" "(compile-identifier24.1" " #f" " #f" @@ -27601,27 +27831,27 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_163) es_0)((start_33) 0))" +"(let-values(((lst_164) es_0)((start_33) 0))" "(begin" -"(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-list lst_164)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_33)))" "((letrec-values(((for-loop_192)" -"(lambda(fold-var_159 lst_97 pos_90)" +"(lambda(fold-var_159 lst_96 pos_89)" "(begin" " 'for-loop" -"(if(if(pair? lst_97) #t #f)" -"(let-values(((e_34)(unsafe-car lst_97))" -"((rest_85)(unsafe-cdr lst_97))" -"((i_42) pos_90))" +"(if(if(pair? lst_96) #t #f)" +"(let-values(((e_34)(unsafe-car lst_96))" +"((rest_85)(unsafe-cdr lst_96))" +"((i_44) pos_89))" "(let-values(((fold-var_160)" "(let-values(((fold-var_81) fold-var_159))" "(let-values(((fold-var_82)" "(let-values()" "(cons" "(let-values()" -"(let-values(((used?_0)(= i_42 used-pos_0)))" +"(let-values(((used?_0)(= i_44 used-pos_0)))" "(compile$2" " e_34" " cctx_7" @@ -27629,44 +27859,44 @@ static const char *startup_source = "(if used?_0 result-used?_3 #f))))" " fold-var_81))))" "(values fold-var_82)))))" -"(if(not #f)(for-loop_192 fold-var_160 rest_85(+ pos_90 1)) fold-var_160)))" +"(if(not #f)(for-loop_192 fold-var_160 rest_85(+ pos_89 1)) fold-var_160)))" " fold-var_159)))))" " for-loop_192)" " null" -" lst_163" +" lst_164" " start_33)))))))))" "(define-values" "(add-lambda-properties)" -"(lambda(s_307 inferred-name_0 orig-s_21)" +"(lambda(s_311 inferred-name_0 orig-s_21)" "(begin" "(letrec-values(((simplify-name_0)" -"(lambda(v_162)" +"(lambda(v_163)" "(begin" " 'simplify-name" -"(if(pair? v_162)" +"(if(pair? v_163)" "(let-values()" -"(let-values(((n1_0)(simplify-name_0(car v_162))))" -"(let-values(((n2_0)(simplify-name_0(cdr v_162))))(if(eq? n1_0 n2_0) n1_0 v_162))))" -"(let-values() v_162))))))" +"(let-values(((n1_0)(simplify-name_0(car v_163))))" +"(let-values(((n2_0)(simplify-name_0(cdr v_163))))(if(eq? n1_0 n2_0) n1_0 v_163))))" +"(let-values() v_163))))))" "(let-values(((name_45)" -"(let-values(((or-part_205)" -"(let-values(((v_163)" +"(let-values(((or-part_206)" +"(let-values(((v_164)" "(simplify-name_0(syntax-property$1 orig-s_21 'inferred-name))))" -"(if(let-values(((or-part_131)(symbol? v_163)))" +"(if(let-values(((or-part_131)(symbol? v_164)))" "(if or-part_131" " or-part_131" -"(let-values(((or-part_206)(syntax?$1 v_163)))" -"(if or-part_206 or-part_206(void? v_163)))))" -" v_163" +"(let-values(((or-part_207)(syntax?$1 v_164)))" +"(if or-part_207 or-part_207(void? v_164)))))" +" v_164" " #f))))" -"(if or-part_205 or-part_205 inferred-name_0))))" +"(if or-part_206 or-part_206 inferred-name_0))))" "(let-values(((named-s_0)" "(if name_45" "(correlated-property" -"(->correlated s_307)" +"(->correlated s_311)" " 'inferred-name" "(if(syntax?$1 name_45)(syntax-e$1 name_45) name_45))" -" s_307)))" +" s_311)))" "(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)" @@ -27688,24 +27918,24 @@ static const char *startup_source = "(list" "(if rec?_0 'letrec-values 'let-values)" "(reverse$1" -"(let-values(((lst_164)(parsed-let_-values-clauses p_41))" -"((lst_165)(parsed-let_-values-idss p_41)))" +"(let-values(((lst_165)(parsed-let_-values-clauses p_41))" +"((lst_166)(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)))" -"((letrec-values(((for-loop_193)" -"(lambda(fold-var_161 lst_166 lst_167)" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_166)))" +"((letrec-values(((for-loop_57)" +"(lambda(fold-var_161 lst_167 lst_168)" "(begin" " 'for-loop" -"(if(if(pair? lst_166)(pair? lst_167) #f)" -"(let-values(((clause_1)(unsafe-car lst_166))" -"((rest_86)(unsafe-cdr lst_166))" -"((ids_4)(unsafe-car lst_167))" -"((rest_87)(unsafe-cdr lst_167)))" +"(if(if(pair? lst_167)(pair? lst_168) #f)" +"(let-values(((clause_1)(unsafe-car lst_167))" +"((rest_86)(unsafe-cdr lst_167))" +"((ids_4)(unsafe-car lst_168))" +"((rest_87)(unsafe-cdr lst_168)))" "(let-values(((fold-var_162)" "(let-values(((fold-var_163) fold-var_161))" "(let-values(((fold-var_164)" @@ -27715,10 +27945,10 @@ static const char *startup_source = "(list" "(if rec?_0" "(reverse$1" -"(let-values(((lst_168)" +"(let-values(((lst_169)" "(car" " clause_1))" -"((lst_169)" +"((lst_170)" " ids_4))" "(begin" "(if(variable-reference-from-unsafe?" @@ -27726,36 +27956,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_168)))" +" lst_169)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_169)))" -"((letrec-values(((for-loop_194)" +" lst_170)))" +"((letrec-values(((for-loop_193)" "(lambda(fold-var_165" -" lst_170" -" lst_171)" +" lst_171" +" lst_172)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_170)" -"(pair?" " lst_171)" +"(pair?" +" lst_172)" " #f)" -"(let-values(((sym_53)" -"(unsafe-car" -" lst_170))" -"((rest_88)" -"(unsafe-cdr" -" lst_170))" -"((id_46)" +"(let-values(((sym_54)" "(unsafe-car" " lst_171))" +"((rest_88)" +"(unsafe-cdr" +" lst_171))" +"((id_47)" +"(unsafe-car" +" lst_172))" "((rest_89)" "(unsafe-cdr" -" lst_171)))" +" lst_172)))" "(let-values(((fold-var_94)" "(let-values(((fold-var_166)" " fold-var_165))" @@ -27764,23 +27994,23 @@ static const char *startup_source = "(cons" "(let-values()" "(add-undefined-error-name-property" -" sym_53" -" id_46))" +" sym_54" +" id_47))" " fold-var_166))))" "(values" " fold-var_167)))))" "(if(not" " #f)" -"(for-loop_194" +"(for-loop_193" " fold-var_94" " rest_88" " rest_89)" " fold-var_94)))" " fold-var_165)))))" -" for-loop_194)" +" for-loop_193)" " null" -" lst_168" -" lst_169))))" +" lst_169" +" lst_170))))" "(car clause_1))" "(compile$2" "(cadr clause_1)" @@ -27791,21 +28021,21 @@ static const char *startup_source = " fold-var_163))))" "(values fold-var_164)))))" "(if(not #f)" -"(for-loop_193 fold-var_162 rest_86 rest_87)" +"(for-loop_57 fold-var_162 rest_86 rest_87)" " fold-var_162)))" " fold-var_161)))))" -" for-loop_193)" +" for-loop_57)" " null" -" lst_164" -" lst_165))))" +" lst_165" +" lst_166))))" "(compile-sequence body_0 cctx_8 name_46 result-used?_4)))))))))))))" "(define-values" "(add-undefined-error-name-property)" -"(lambda(sym_51 orig-id_0)" +"(lambda(sym_52 orig-id_0)" "(begin" -"(let-values(((id_47)(correlate~ orig-id_0 sym_51)))" +"(let-values(((id_48)(correlate~ orig-id_0 sym_52)))" "(correlated-property" -"(->correlated id_47)" +"(->correlated id_48)" " 'undefined-error-name" "(let-values(((or-part_50)(syntax-property$1 orig-id_0 'undefined-error-name)))" "(if or-part_50 or-part_50(syntax-e$1 orig-id_0))))))))" @@ -27821,9 +28051,9 @@ static const char *startup_source = "(let-values()" "(let-values(((normal-b_0)(parsed-id-binding p_42)))" "(let-values(((b_72)" -"(let-values(((or-part_207) normal-b_0))" -"(if or-part_207" -" or-part_207" +"(let-values(((or-part_208) normal-b_0))" +"(if or-part_208" +" or-part_208" "(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))))" @@ -27849,7 +28079,7 @@ static const char *startup_source = " temp45_0" " temp46_0" " temp47_0))))))" -"(let-values(((sym_54)" +"(let-values(((sym_55)" "(if(local-binding? b_72)" "(let-values()(local-binding-key b_72))" "(if(module-binding? b_72)" @@ -27884,14 +28114,14 @@ static const char *startup_source = "((temp50_0)(module-binding-phase b_72))" "((temp51_0)(module-binding-sym b_72))" "((temp52_1)" -"(let-values(((or-part_103)" +"(let-values(((or-part_209)" "(module-binding-extra-inspector b_72)))" -"(if or-part_103" -" or-part_103" -"(let-values(((or-part_208)" +"(if or-part_209" +" or-part_209" +"(let-values(((or-part_210)" "(parsed-id-inspector p_42)))" -"(if or-part_208" -" or-part_208" +"(if or-part_210" +" or-part_210" "(if(parsed-s p_42)" "(syntax-inspector(parsed-s p_42))" " #f)))))))" @@ -27908,15 +28138,15 @@ static const char *startup_source = " \"not a reference to a module or local binding:\"" " b_72" "(parsed-s p_42)))))))" -"(correlate~(parsed-s p_42)(if set-to?_0(list 'set! sym_54 rhs_0) sym_54)))))))))))))" +"(correlate~(parsed-s p_42)(if set-to?_0(list 'set! sym_55 rhs_0) sym_55)))))))))))))" "(define-values" "(compile-quote-syntax)" "(lambda(q_1 cctx_10)" "(begin" -"(let-values(((pos_91)(add-syntax-literal!(compile-context-header cctx_10) q_1)))" +"(let-values(((pos_90)(add-syntax-literal!(compile-context-header cctx_10) q_1)))" "(if(compile-context-lazy-syntax-literals? cctx_10)" -"(let-values()(generate-lazy-syntax-literal-lookup pos_91))" -"(let-values()(generate-eager-syntax-literal-lookup pos_91)))))))" +"(let-values()(generate-lazy-syntax-literal-lookup pos_90))" +"(let-values()(generate-eager-syntax-literal-lookup pos_90)))))))" "(define-values" "(extra-inspectors-allow?)" "(lambda(extra-inspectors_2 guard-insp_0)" @@ -27930,12 +28160,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_111)))" -"((letrec-values(((for-loop_96)" -"(lambda(result_79 i_137)" +"((letrec-values(((for-loop_97)" +"(lambda(result_79 i_138)" "(begin" " 'for-loop" -"(if i_137" -"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_111 i_137)))" +"(if i_138" +"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_111 i_138)))" "(let-values(((result_80)" "(let-values()" "(let-values(((result_81)" @@ -27945,11 +28175,11 @@ static const char *startup_source = " extra-insp_0" " guard-insp_0)))))" "(values result_81)))))" -"(if(if(not((lambda x_53(not result_80)) extra-insp_0))(not #f) #f)" -"(for-loop_96 result_80(unsafe-immutable-hash-iterate-next ht_111 i_137))" +"(if(if(not((lambda x_54(not result_80)) extra-insp_0))(not #f) #f)" +"(for-loop_97 result_80(unsafe-immutable-hash-iterate-next ht_111 i_138))" " result_80)))" " result_79)))))" -" for-loop_96)" +" for-loop_97)" " #t" "(unsafe-immutable-hash-iterate-first ht_111)))))" "(if(procedure? extra-inspectors_2)" @@ -27963,8 +28193,8 @@ static const char *startup_source = "(extra-inspectors-merge)" "(lambda(extra-inspectors-1_0 extra-inspectors-2_0)" "(begin" -"(if(let-values(((or-part_209)(not extra-inspectors-1_0)))" -"(if or-part_209 or-part_209(not extra-inspectors-2_0)))" +"(if(let-values(((or-part_211)(not extra-inspectors-1_0)))" +"(if or-part_211 or-part_211(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))" @@ -27981,7 +28211,7 @@ static const char *startup_source = " module-use*-self-inspector" " set-module-use*-extra-inspectorss!" " set-module-use*-self-inspector!)" -"(let-values(((struct:_67 make-_67 ?_67 -ref_67 -set!_67)" +"(let-values(((struct:_68 make-_68 ?_68 -ref_68 -set!_68)" "(let-values()" "(let-values()" "(make-struct-type" @@ -27997,13 +28227,13 @@ static const char *startup_source = " #f" " 'module-use*)))))" "(values" -" struct:_67" -" make-_67" -" ?_67" -"(make-struct-field-accessor -ref_67 0 'extra-inspectorss)" -"(make-struct-field-accessor -ref_67 1 'self-inspector)" -"(make-struct-field-mutator -set!_67 0 'extra-inspectorss)" -"(make-struct-field-mutator -set!_67 1 'self-inspector))))" +" struct:_68" +" make-_68" +" ?_68" +"(make-struct-field-accessor -ref_68 0 'extra-inspectorss)" +"(make-struct-field-accessor -ref_68 1 'self-inspector)" +"(make-struct-field-mutator -set!_68 0 'extra-inspectorss)" +"(make-struct-field-mutator -set!_68 1 'self-inspector))))" "(define-values" "(module-uses-add-extra-inspectorsss)" "(lambda(mus_1 extra-inspectorsss_0)" @@ -28011,19 +28241,19 @@ static const char *startup_source = "(if extra-inspectorsss_0" "(let-values()" "(reverse$1" -"(let-values(((lst_103) mus_1)((lst_89) extra-inspectorsss_0))" +"(let-values(((lst_102) mus_1)((lst_88) 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_89)))" -"((letrec-values(((for-loop_108)" -"(lambda(fold-var_11 lst_90 lst_172)" +"(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_88)))" +"((letrec-values(((for-loop_109)" +"(lambda(fold-var_11 lst_89 lst_173)" "(begin" " 'for-loop" -"(if(if(pair? lst_90)(pair? lst_172) #f)" -"(let-values(((mu_5)(unsafe-car lst_90))" -"((rest_90)(unsafe-cdr lst_90))" -"((extra-inspectorss_1)(unsafe-car lst_172))" -"((rest_37)(unsafe-cdr lst_172)))" +"(if(if(pair? lst_89)(pair? lst_173) #f)" +"(let-values(((mu_5)(unsafe-car lst_89))" +"((rest_90)(unsafe-cdr lst_89))" +"((extra-inspectorss_1)(unsafe-car lst_173))" +"((rest_36)(unsafe-cdr lst_173)))" "(let-values(((fold-var_168)" "(let-values(((fold-var_169) fold-var_11))" "(let-values(((fold-var_170)" @@ -28037,18 +28267,18 @@ static const char *startup_source = " #f))" " fold-var_169))))" "(values fold-var_170)))))" -"(if(not #f)(for-loop_108 fold-var_168 rest_90 rest_37) fold-var_168)))" +"(if(not #f)(for-loop_109 fold-var_168 rest_90 rest_36) fold-var_168)))" " fold-var_11)))))" -" for-loop_108)" +" for-loop_109)" " null" -" lst_103" -" lst_89)))))" +" lst_102" +" lst_88)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_91) mus_1))" +"(let-values(((lst_90) mus_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_91)))" -"((letrec-values(((for-loop_195)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_90)))" +"((letrec-values(((for-loop_194)" "(lambda(fold-var_171 lst_17)" "(begin" " 'for-loop" @@ -28067,25 +28297,25 @@ static const char *startup_source = " #f))" " fold-var_172))))" "(values fold-var_173)))))" -"(if(not #f)(for-loop_195 fold-var_63 rest_91) fold-var_63)))" +"(if(not #f)(for-loop_194 fold-var_63 rest_91) fold-var_63)))" " fold-var_171)))))" -" for-loop_195)" +" for-loop_194)" " null" -" lst_91)))))))))" +" lst_90)))))))))" "(define-values" "(module-uses-strip-extra-inspectorsss)" "(lambda(mu*s_0)" "(begin" "(reverse$1" -"(let-values(((lst_173) mu*s_0))" +"(let-values(((lst_174) mu*s_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_173)))" -"((letrec-values(((for-loop_196)" -"(lambda(fold-var_72 lst_174)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_174)))" +"((letrec-values(((for-loop_195)" +"(lambda(fold-var_72 lst_175)" "(begin" " 'for-loop" -"(if(pair? lst_174)" -"(let-values(((mu*_0)(unsafe-car lst_174))((rest_92)(unsafe-cdr lst_174)))" +"(if(pair? lst_175)" +"(let-values(((mu*_0)(unsafe-car lst_175))((rest_92)(unsafe-cdr lst_175)))" "(let-values(((fold-var_17)" "(let-values(((fold-var_73) fold-var_72))" "(let-values(((fold-var_174)" @@ -28097,11 +28327,11 @@ static const char *startup_source = "(module-use-phase mu*_0)))" " fold-var_73))))" "(values fold-var_174)))))" -"(if(not #f)(for-loop_196 fold-var_17 rest_92) fold-var_17)))" +"(if(not #f)(for-loop_195 fold-var_17 rest_92) fold-var_17)))" " fold-var_72)))))" -" for-loop_196)" +" for-loop_195)" " null" -" lst_173)))))))" +" lst_174)))))))" "(define-values" "(module-uses-extract-extra-inspectorsss)" "(lambda(mu*s_1 linklet_0 check-inlined-reference?_0 skip-n_0)" @@ -28109,15 +28339,15 @@ static const char *startup_source = "(if(not check-inlined-reference?_0)" "(let-values()" "(reverse$1" -"(let-values(((lst_175) mu*s_1))" +"(let-values(((lst_176) mu*s_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_175)))" -"((letrec-values(((for-loop_197)" -"(lambda(fold-var_76 lst_95)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_176)))" +"((letrec-values(((for-loop_196)" +"(lambda(fold-var_76 lst_94)" "(begin" " 'for-loop" -"(if(pair? lst_95)" -"(let-values(((mu*_1)(unsafe-car lst_95))((rest_93)(unsafe-cdr lst_95)))" +"(if(pair? lst_94)" +"(let-values(((mu*_1)(unsafe-car lst_94))((rest_93)(unsafe-cdr lst_94)))" "(let-values(((fold-var_175)" "(let-values(((fold-var_4) fold-var_76))" "(let-values(((fold-var_176)" @@ -28127,26 +28357,26 @@ static const char *startup_source = "(module-use*-extra-inspectorss mu*_1))" " fold-var_4))))" "(values fold-var_176)))))" -"(if(not #f)(for-loop_197 fold-var_175 rest_93) fold-var_175)))" +"(if(not #f)(for-loop_196 fold-var_175 rest_93) fold-var_175)))" " fold-var_76)))))" -" for-loop_197)" +" for-loop_196)" " null" -" lst_175)))))" +" lst_176)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_176) mu*s_1)((lst_177)(list-tail(1/linklet-import-variables linklet_0) skip-n_0)))" +"(let-values(((lst_177) mu*s_1)((lst_178)(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_28)" -"(lambda(fold-var_6 lst_178 lst_179)" +"(lambda(fold-var_6 lst_179 lst_180)" "(begin" " 'for-loop" -"(if(if(pair? lst_178)(pair? lst_179) #f)" -"(let-values(((mu*_2)(unsafe-car lst_178))" -"((rest_94)(unsafe-cdr lst_178))" -"((imports_0)(unsafe-car lst_179))" -"((rest_95)(unsafe-cdr lst_179)))" +"(if(if(pair? lst_179)(pair? lst_180) #f)" +"(let-values(((mu*_2)(unsafe-car lst_179))" +"((rest_94)(unsafe-cdr lst_179))" +"((imports_0)(unsafe-car lst_180))" +"((rest_95)(unsafe-cdr lst_180)))" "(let-values(((fold-var_159)" "(let-values(((fold-var_177) fold-var_6))" "(let-values(((fold-var_178)" @@ -28156,25 +28386,25 @@ static const char *startup_source = "(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_180)" +" lst_181)" "(begin" " 'for-loop" "(if(pair?" -" lst_180)" +" lst_181)" "(let-values(((import_0)" "(unsafe-car" -" lst_180))" +" lst_181))" "((rest_96)" "(unsafe-cdr" -" lst_180)))" +" lst_181)))" "(let-values(((extra-inspectorss_4)" "(let-values(((extra-inspectorss_5)" " extra-inspectorss_3))" @@ -28206,15 +28436,15 @@ static const char *startup_source = " extra-inspectorss_3)))))" " for-loop_19)" " extra-inspectorss_2" -" lst_98)))))" +" lst_97)))))" " fold-var_177))))" "(values fold-var_178)))))" "(if(not #f)(for-loop_28 fold-var_159 rest_94 rest_95) fold-var_159)))" " fold-var_6)))))" " for-loop_28)" " null" -" lst_176" -" lst_177)))))))))" +" lst_177" +" lst_178)))))))))" "(define-values" "(module-use*-declaration-inspector!)" "(lambda(mu*_3 insp_9)(begin(set-module-use*-self-inspector! mu*_3 insp_9))))" @@ -28227,26 +28457,26 @@ static const char *startup_source = "(let-values(((add-extra-insp?_0)" "(if extra-inspector_5(inspector-superior? extra-inspector_5 now-inspector_0) #f)))" "(let-values(((new-extra-inspectorss_0)" -"(if(let-values(((or-part_210) add-insp?_0))(if or-part_210 or-part_210 add-extra-insp?_0))" +"(if(let-values(((or-part_212) add-insp?_0))(if or-part_212 or-part_212 add-extra-insp?_0))" "(let-values()" -"(let-values(((lst_181) imports_1))" +"(let-values(((lst_182) imports_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_181)))" -"((letrec-values(((for-loop_198)" -"(lambda(table_151 lst_182)" +"(let-values()(check-list lst_182)))" +"((letrec-values(((for-loop_197)" +"(lambda(table_151 lst_183)" "(begin" " 'for-loop" -"(if(pair? lst_182)" -"(let-values(((import_1)(unsafe-car lst_182))" -"((rest_97)(unsafe-cdr lst_182)))" +"(if(pair? lst_183)" +"(let-values(((import_1)(unsafe-car lst_183))" +"((rest_97)(unsafe-cdr lst_183)))" "(let-values(((table_152)" "(let-values(((table_153) table_151))" "(let-values(((table_154)" "(let-values()" "(let-values(((key_56" -" val_50)" +" val_51)" "(let-values()" "(values" " import_1" @@ -28280,26 +28510,26 @@ static const char *startup_source = "(hash-set" " table_153" " key_56" -" val_50)))))" +" val_51)))))" "(values table_154)))))" -"(if(not #f)(for-loop_198 table_152 rest_97) table_152)))" +"(if(not #f)(for-loop_197 table_152 rest_97) table_152)))" " table_151)))))" -" for-loop_198)" +" for-loop_197)" " '#hash()" -" lst_181))))" +" lst_182))))" "(let-values()" -"(let-values(((lst_183) imports_1))" +"(let-values(((lst_184) imports_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_183)))" -"((letrec-values(((for-loop_199)" -"(lambda(extra-inspectorss_8 lst_184)" +"(let-values()(check-list lst_184)))" +"((letrec-values(((for-loop_198)" +"(lambda(extra-inspectorss_8 lst_185)" "(begin" " 'for-loop" -"(if(pair? lst_184)" -"(let-values(((import_2)(unsafe-car lst_184))" -"((rest_98)(unsafe-cdr lst_184)))" +"(if(pair? lst_185)" +"(let-values(((import_2)(unsafe-car lst_185))" +"((rest_98)(unsafe-cdr lst_185)))" "(let-values(((extra-inspectorss_9)" "(let-values(((extra-inspectorss_10)" " extra-inspectorss_8))" @@ -28316,13 +28546,13 @@ static const char *startup_source = " #f)))))" "(values extra-inspectorss_11)))))" "(if(not #f)" -"(for-loop_199 extra-inspectorss_9 rest_98)" +"(for-loop_198 extra-inspectorss_9 rest_98)" " extra-inspectorss_9)))" " extra-inspectorss_8)))))" -" for-loop_199)" -"(let-values(((or-part_211) extra-inspectorss_7))" -"(if or-part_211 or-part_211(seteq)))" -" lst_183)))))))" +" for-loop_198)" +"(let-values(((or-part_213) extra-inspectorss_7))" +"(if or-part_213 or-part_213(seteq)))" +" lst_184)))))))" "(module-use*1.1 mpi_44 phase_73 new-extra-inspectorss_0 #f))))))))" "(define-values" "(module-use-merge-extra-inspectorss!)" @@ -28336,13 +28566,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_112)))" -"((letrec-values(((for-loop_200)" -"(lambda(new-extra-inspectorss_2 i_138)" +"((letrec-values(((for-loop_199)" +"(lambda(new-extra-inspectorss_2 i_139)" "(begin" " 'for-loop" -"(if i_138" -"(let-values(((sym_55 extra-inspectors_4)" -"(hash-iterate-key+value ht_112 i_138)))" +"(if i_139" +"(let-values(((sym_56 extra-inspectors_4)" +"(hash-iterate-key+value ht_112 i_139)))" "(let-values(((new-extra-inspectorss_3)" "(let-values(((new-extra-inspectorss_4)" " new-extra-inspectorss_2))" @@ -28350,21 +28580,21 @@ static const char *startup_source = "(let-values()" "(hash-set" " new-extra-inspectorss_4" -" sym_55" +" sym_56" "(extra-inspectors-merge" " extra-inspectors_4" "(hash-ref" " new-extra-inspectorss_4" -" sym_55" +" sym_56" "(seteq)))))))" "(values new-extra-inspectorss_5)))))" "(if(not #f)" -"(for-loop_200" +"(for-loop_199" " new-extra-inspectorss_3" -"(hash-iterate-next ht_112 i_138))" +"(hash-iterate-next ht_112 i_139))" " new-extra-inspectorss_3)))" " new-extra-inspectorss_2)))))" -" for-loop_200)" +" for-loop_199)" " existing-extra-inspectorss_0" "(hash-iterate-first ht_112))))))" "(set-module-use*-extra-inspectorss! existing-mu*_0 new-extra-inspectorss_1)))))))" @@ -28376,18 +28606,18 @@ static const char *startup_source = " link-info-imports" " link-info-extra-inspectorsss" " link-info-def-decls)" -"(let-values(((struct:_34 make-_34 ?_34 -ref_34 -set!_34)" +"(let-values(((struct:_35 make-_35 ?_35 -ref_35 -set!_35)" "(let-values()" "(let-values()" "(make-struct-type 'link-info #f 4 0 #f null(current-inspector) #f '(0 1 2 3) #f 'link-info)))))" "(values" -" struct:_34" -" make-_34" -" ?_34" -"(make-struct-field-accessor -ref_34 0 'link-module-uses)" -"(make-struct-field-accessor -ref_34 1 'imports)" -"(make-struct-field-accessor -ref_34 2 'extra-inspectorsss)" -"(make-struct-field-accessor -ref_34 3 'def-decls))))" +" struct:_35" +" make-_35" +" ?_35" +"(make-struct-field-accessor -ref_35 0 'link-module-uses)" +"(make-struct-field-accessor -ref_35 1 'imports)" +"(make-struct-field-accessor -ref_35 2 'extra-inspectorsss)" +"(make-struct-field-accessor -ref_35 3 'def-decls))))" "(define-values" "(compile-forms31.1)" "(lambda(body-import-instances3_0" @@ -28463,13 +28693,13 @@ static const char *startup_source = "(lambda(phase_75)" "(begin" " 'find-or-create-header!" -"(let-values(((or-part_205)" +"(let-values(((or-part_206)" "(hash-ref" " phase-to-header_0" " phase_75" " #f)))" -"(if or-part_205" -" or-part_205" +"(if or-part_206" +" or-part_206" "(let-values(((header_7)" "(make-header" " mpis_15" @@ -28482,23 +28712,23 @@ static const char *startup_source = " header_7))))))))" "(let-values((()" "(begin" -"(let-values(((lst_185) force-phases_0))" +"(let-values(((lst_186) force-phases_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_185)))" -"((letrec-values(((for-loop_201)" -"(lambda(lst_186)" +"(let-values()(check-list lst_186)))" +"((letrec-values(((for-loop_200)" +"(lambda(lst_187)" "(begin" " 'for-loop" -"(if(pair? lst_186)" +"(if(pair? lst_187)" "(let-values(((phase_76)" "(unsafe-car" -" lst_186))" +" lst_187))" "((rest_99)" "(unsafe-cdr" -" lst_186)))" +" lst_187)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28514,12 +28744,12 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_201" +"(for-loop_200" " rest_99)" "(values))))" "(values))))))" -" for-loop_201)" -" lst_185)))" +" for-loop_200)" +" lst_186)))" "(values))))" "(let-values()" "(let-values(((saw-define-syntaxes?_0) #f))" @@ -28534,7 +28764,7 @@ static const char *startup_source = "(begin" " 'loop!" "(begin" -"(let-values(((lst_187)" +"(let-values(((lst_188)" " bodys_3))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28542,19 +28772,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_187)))" -"((letrec-values(((for-loop_202)" -"(lambda(lst_188)" +" lst_188)))" +"((letrec-values(((for-loop_201)" +"(lambda(lst_189)" "(begin" " 'for-loop" "(if(pair?" -" lst_188)" +" lst_189)" "(let-values(((body_2)" "(unsafe-car" -" lst_188))" +" lst_189))" "((rest_100)" "(unsafe-cdr" -" lst_188)))" +" lst_189)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28565,7 +28795,7 @@ static const char *startup_source = " body_2)" "(let-values()" "(begin" -"(let-values(((lst_189)" +"(let-values(((lst_190)" "(parsed-define-values-syms" " body_2)))" "(begin" @@ -28574,19 +28804,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_189)))" -"((letrec-values(((for-loop_203)" -"(lambda(lst_190)" +" lst_190)))" +"((letrec-values(((for-loop_202)" +"(lambda(lst_191)" "(begin" " 'for-loop" "(if(pair?" -" lst_190)" -"(let-values(((sym_56)" +" lst_191)" +"(let-values(((sym_57)" "(unsafe-car" -" lst_190))" +" lst_191))" "((rest_101)" "(unsafe-cdr" -" lst_190)))" +" lst_191)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28595,18 +28825,18 @@ static const char *startup_source = "(let-values()" "(let-values(((def-sym_1)" "(select-fresh" -" sym_56" +" sym_57" " header_8)))" "(begin" "(hash-set!" "(header-binding-sym-to-define-sym" " header_8)" -" sym_56" +" sym_57" " def-sym_1)" "(set-header-binding-syms-in-order!" " header_8" "(cons" -" sym_56" +" sym_57" "(header-binding-syms-in-order" " header_8)))" "(register-as-defined!" @@ -28616,12 +28846,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_203" +"(for-loop_202" " rest_101)" "(values))))" "(values))))))" -" for-loop_203)" -" lst_189)))" +" for-loop_202)" +" lst_190)))" "(void)))" "(if(parsed-begin-for-syntax?" " body_2)" @@ -28639,12 +28869,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_202" +"(for-loop_201" " rest_100)" "(values))))" "(values))))))" -" for-loop_202)" -" lst_187)))" +" for-loop_201)" +" lst_188)))" "(void))))))" " loop!_0)" " bodys_2" @@ -28656,10 +28886,10 @@ static const char *startup_source = "(lambda(header_9)" "(begin" " 'as-required?" -"(lambda(sym_57)" +"(lambda(sym_58)" "(registered-as-required?" " header_9" -" sym_57))))))" +" sym_58))))))" "(let-values(((last-i_0)(sub1(length bodys_2))))" "(let-values((()" "(begin" @@ -28670,7 +28900,7 @@ static const char *startup_source = "(begin" " 'loop!" "(begin" -"(let-values(((lst_191)" +"(let-values(((lst_192)" " bodys_4)" "((start_34)" " 0))" @@ -28680,30 +28910,30 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_191)))" +" lst_192)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals" " start_34)))" -"((letrec-values(((for-loop_119)" -"(lambda(lst_192" -" pos_92)" +"((letrec-values(((for-loop_120)" +"(lambda(lst_193" +" pos_91)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_192)" +" lst_193)" " #t" " #f)" "(let-values(((body_3)" "(unsafe-car" -" lst_192))" +" lst_193))" "((rest_87)" "(unsafe-cdr" -" lst_192))" -"((i_139)" -" pos_92))" +" lst_193))" +"((i_140)" +" pos_91))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28724,7 +28954,7 @@ static const char *startup_source = " cctx_3)" "(let-values()" "(reverse$1" -"(let-values(((lst_193)" +"(let-values(((lst_194)" " binding-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28732,20 +28962,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_193)))" +" lst_194)))" "((letrec-values(((for-loop_6)" "(lambda(fold-var_0" -" lst_171)" +" lst_172)" "(begin" " 'for-loop" "(if(pair?" -" lst_171)" +" lst_172)" "(let-values(((binding-sym_0)" "(unsafe-car" -" lst_171))" +" lst_172))" "((rest_88)" "(unsafe-cdr" -" lst_171)))" +" lst_172)))" "(let-values(((fold-var_2)" "(let-values(((fold-var_3)" " fold-var_0))" @@ -28769,7 +28999,7 @@ static const char *startup_source = " fold-var_0)))))" " for-loop_6)" " null" -" lst_193)))))" +" lst_194)))))" "(let-values()" "(reverse$1" "(let-values(((lst_11)" @@ -28910,7 +29140,7 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_106)" +"(let-values(((lst_105)" " def-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28918,20 +29148,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_106)))" -"((letrec-values(((for-loop_204)" +" lst_105)))" +"((letrec-values(((for-loop_203)" "(lambda(fold-var_183" -" lst_194)" +" lst_195)" "(begin" " 'for-loop" "(if(pair?" -" lst_194)" +" lst_195)" "(let-values(((def-sym_2)" "(unsafe-car" -" lst_194))" +" lst_195))" "((rest_102)" "(unsafe-cdr" -" lst_194)))" +" lst_195)))" "(let-values(((fold-var_184)" "(let-values(((fold-var_185)" " fold-var_183))" @@ -28948,14 +29178,14 @@ static const char *startup_source = " fold-var_186)))))" "(if(not" " #f)" -"(for-loop_204" +"(for-loop_203" " fold-var_184" " rest_102)" " fold-var_184)))" " fold-var_183)))))" -" for-loop_204)" +" for-loop_203)" " null" -" lst_106)))))" +" lst_105)))))" " '((void))))" "(add-body!_0" " phase_78" @@ -29003,7 +29233,7 @@ static const char *startup_source = " phase_78))))" "(let-values(((gen-syms_0)" "(reverse$1" -"(let-values(((lst_195)" +"(let-values(((lst_196)" " binding-syms_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -29011,20 +29241,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_195)))" -"((letrec-values(((for-loop_205)" +" lst_196)))" +"((letrec-values(((for-loop_204)" "(lambda(fold-var_187" -" lst_196)" +" lst_197)" "(begin" " 'for-loop" "(if(pair?" -" lst_196)" +" lst_197)" "(let-values(((binding-sym_2)" "(unsafe-car" -" lst_196))" +" lst_197))" "((rest_103)" "(unsafe-cdr" -" lst_196)))" +" lst_197)))" "(let-values(((fold-var_188)" "(let-values(((fold-var_189)" " fold-var_187))" @@ -29046,14 +29276,14 @@ static const char *startup_source = " fold-var_190)))))" "(if(not" " #f)" -"(for-loop_205" +"(for-loop_204" " fold-var_188" " rest_103)" " fold-var_188)))" " fold-var_187)))))" -" for-loop_205)" +" for-loop_204)" " null" -" lst_195))))))" +" lst_196))))))" "(let-values(((rhs_2)" "(compile$2" "(parsed-define-syntaxes-rhs" @@ -29103,7 +29333,7 @@ static const char *startup_source = "(reverse$1" "(let-values(((lst_28)" " binding-syms_1)" -"((lst_197)" +"((lst_198)" " gen-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -29117,30 +29347,30 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_197)))" -"((letrec-values(((for-loop_206)" +" lst_198)))" +"((letrec-values(((for-loop_205)" "(lambda(fold-var_191" -" lst_198" -" lst_199)" +" lst_199" +" lst_200)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_198)" -"(pair?" " lst_199)" +"(pair?" +" lst_200)" " #f)" "(let-values(((binding-sym_3)" "(unsafe-car" -" lst_198))" +" lst_199))" "((rest_104)" "(unsafe-cdr" -" lst_198))" +" lst_199))" "((gen-sym_1)" "(unsafe-car" -" lst_199))" +" lst_200))" "((rest_105)" "(unsafe-cdr" -" lst_199)))" +" lst_200)))" "(let-values(((fold-var_192)" "(let-values(((fold-var_193)" " fold-var_191))" @@ -29159,16 +29389,16 @@ static const char *startup_source = " fold-var_194)))))" "(if(not" " #f)" -"(for-loop_206" +"(for-loop_205" " fold-var_192" " rest_104" " rest_105)" " fold-var_192)))" " fold-var_191)))))" -" for-loop_206)" +" for-loop_205)" " null" " lst_28" -" lst_197))))))" +" lst_198))))))" "(begin" "(if(compile-context-module-self" " cctx_3)" @@ -29237,16 +29467,16 @@ static const char *startup_source = "(find-or-create-header!_0" "(add1" " phase_78))))" -"(if(let-values(((or-part_212)" +"(if(let-values(((or-part_101)" "(parsed-#%declare?" " body_3)))" -"(if or-part_212" -" or-part_212" -"(let-values(((or-part_213)" +"(if or-part_101" +" or-part_101" +"(let-values(((or-part_214)" "(parsed-module?" " body_3)))" -"(if or-part_213" -" or-part_213" +"(if or-part_214" +" or-part_214" "(parsed-require?" " body_3)))))" "(let-values()" @@ -29322,7 +29552,7 @@ static const char *startup_source = " the-struct_51)))" " #f" "(=" -" i_139" +" i_140" " last-i_0))))" "(begin" "(compiled-expression-callback_0" @@ -29338,15 +29568,15 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_119" +"(for-loop_120" " rest_87" "(+" -" pos_92" +" pos_91" " 1))" "(values))))" "(values))))))" -" for-loop_119)" -" lst_191" +" for-loop_120)" +" lst_192" " start_34)))" "(void))))))" " loop!_1)" @@ -29396,34 +29626,34 @@ static const char *startup_source = " phases-in-order_2))" " phase_74)))" "(let-values(((phase-to-link-info_0)" -"(let-values(((lst_200)" +"(let-values(((lst_201)" " phases-in-order_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_200)))" -"((letrec-values(((for-loop_123)" +"(check-list lst_201)))" +"((letrec-values(((for-loop_124)" "(lambda(table_155" -" lst_201)" +" lst_202)" "(begin" " 'for-loop" "(if(pair?" -" lst_201)" +" lst_202)" "(let-values(((phase_79)" "(unsafe-car" -" lst_201))" +" lst_202))" "((rest_106)" "(unsafe-cdr" -" lst_201)))" +" lst_202)))" "(let-values(((table_156)" "(let-values(((table_157)" " table_155))" "(let-values(((table_158)" "(let-values()" "(let-values(((key_57" -" val_51)" +" val_52)" "(let-values()" "(let-values(((header_11)" "(hash-ref" @@ -29449,21 +29679,21 @@ static const char *startup_source = "(hash-set" " table_157" " key_57" -" val_51)))))" +" val_52)))))" "(values" " table_158)))))" "(if(not" " #f)" -"(for-loop_123" +"(for-loop_124" " table_156" " rest_106)" " table_156)))" " table_155)))))" -" for-loop_123)" +" for-loop_124)" " '#hash()" -" lst_200)))))" +" lst_201)))))" "(let-values(((body-linklets+module-use*s_0)" -"(let-values(((lst_202)" +"(let-values(((lst_203)" " phases-in-order_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -29471,27 +29701,27 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_202)))" -"((letrec-values(((for-loop_207)" +" lst_203)))" +"((letrec-values(((for-loop_206)" "(lambda(table_159" -" lst_203)" +" lst_204)" "(begin" " 'for-loop" "(if(pair?" -" lst_203)" +" lst_204)" "(let-values(((phase_80)" "(unsafe-car" -" lst_203))" +" lst_204))" "((rest_107)" "(unsafe-cdr" -" lst_203)))" +" lst_204)))" "(let-values(((table_160)" "(let-values(((table_161)" " table_159))" "(let-values(((table_162)" "(let-values()" "(let-values(((key_58" -" val_52)" +" val_53)" "(let-values()" "(let-values(((bodys_5)" "(hash-ref" @@ -29545,7 +29775,7 @@ static const char *startup_source = "(link-info-def-decls" " li_0)" "(reverse$1" -"(let-values(((lst_204)" +"(let-values(((lst_205)" "(header-binding-syms-in-order" "(hash-ref" " phase-to-header_0" @@ -29556,20 +29786,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_204)))" +" lst_205)))" "((letrec-values(((for-loop_188)" "(lambda(fold-var_195" -" lst_205)" +" lst_206)" "(begin" " 'for-loop" "(if(pair?" -" lst_205)" +" lst_206)" "(let-values(((binding-sym_4)" "(unsafe-car" -" lst_205))" +" lst_206))" "((rest_108)" "(unsafe-cdr" -" lst_205)))" +" lst_206)))" "(let-values(((fold-var_196)" "(let-values(((fold-var_197)" " fold-var_195))" @@ -29600,7 +29830,7 @@ static const char *startup_source = " fold-var_195)))))" " for-loop_188)" " null" -" lst_204)))))" +" lst_205)))))" "(qq-append" "(reverse$1" " bodys_5)" @@ -29628,19 +29858,19 @@ static const char *startup_source = "(hash-set" " table_161" " key_58" -" val_52)))))" +" val_53)))))" "(values" " table_162)))))" "(if(not" " #f)" -"(for-loop_207" +"(for-loop_206" " table_160" " rest_107)" " table_160)))" " table_159)))))" -" for-loop_207)" +" for-loop_206)" " '#hasheq()" -" lst_202)))))" +" lst_203)))))" "(let-values(((body-linklets_0)" "(let-values(((ht_113)" " body-linklets+module-use*s_0))" @@ -29651,45 +29881,45 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_113)))" -"((letrec-values(((for-loop_208)" +"((letrec-values(((for-loop_207)" "(lambda(table_163" -" i_140)" +" i_141)" "(begin" " 'for-loop" -"(if i_140" -"(let-values(((phase_55" +"(if i_141" +"(let-values(((phase_54" " l+mu*s_0)" "(hash-iterate-key+value" " ht_113" -" i_140)))" +" i_141)))" "(let-values(((table_164)" "(let-values(((table_123)" " table_163))" "(let-values(((table_124)" "(let-values()" "(let-values(((key_59" -" val_53)" +" val_54)" "(let-values()" "(values" -" phase_55" +" phase_54" "(car" " l+mu*s_0)))))" "(hash-set" " table_123" " key_59" -" val_53)))))" +" val_54)))))" "(values" " table_124)))))" "(if(not" " #f)" -"(for-loop_208" +"(for-loop_207" " table_164" "(hash-iterate-next" " ht_113" -" i_140))" +" i_141))" " table_164)))" " table_163)))))" -" for-loop_208)" +" for-loop_207)" " '#hasheq()" "(hash-iterate-first" " ht_113))))))" @@ -29703,24 +29933,24 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_114)))" -"((letrec-values(((for-loop_209)" +"((letrec-values(((for-loop_208)" "(lambda(table_38" -" i_141)" +" i_142)" "(begin" " 'for-loop" -"(if i_141" +"(if i_142" "(let-values(((phase_81" " l+mu*s_1)" "(hash-iterate-key+value" " ht_114" -" i_141)))" +" i_142)))" "(let-values(((table_40)" "(let-values(((table_165)" " table_38))" "(let-values(((table_166)" "(let-values()" "(let-values(((key_60" -" val_54)" +" val_55)" "(let-values()" "(values" " phase_81" @@ -29730,19 +29960,19 @@ static const char *startup_source = "(hash-set" " table_165" " key_60" -" val_54)))))" +" val_55)))))" "(values" " table_166)))))" "(if(not" " #f)" -"(for-loop_209" +"(for-loop_208" " table_40" "(hash-iterate-next" " ht_114" -" i_141))" +" i_142))" " table_40)))" " table_38)))))" -" for-loop_209)" +" for-loop_208)" " '#hasheq()" "(hash-iterate-first" " ht_114))))))" @@ -29760,17 +29990,17 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_115)))" -"((letrec-values(((for-loop_210)" +"((letrec-values(((for-loop_209)" "(lambda(table_167" -" i_142)" +" i_143)" "(begin" " 'for-loop" -"(if i_142" +"(if i_143" "(let-values(((phase_82" " l+mu*s_2)" "(hash-iterate-key+value" " ht_115" -" i_142)))" +" i_143)))" "(let-values(((table_168)" "(let-values(((extra-inspectorsss_2)" "(module-uses-extract-extra-inspectorsss" @@ -29783,7 +30013,7 @@ static const char *startup_source = " body-imports_0))))" "(begin" " #t" -"((letrec-values(((for-loop_130)" +"((letrec-values(((for-loop_131)" "(lambda(table_169)" "(begin" " 'for-loop" @@ -29797,7 +30027,7 @@ static const char *startup_source = "(let-values(((table_172)" "(let-values()" "(let-values(((key_61" -" val_55)" +" val_56)" "(let-values()" "(values" " phase_82" @@ -29805,23 +30035,23 @@ static const char *startup_source = "(hash-set" " table_44" " key_61" -" val_55)))))" +" val_56)))))" "(values" " table_172)))" " table_171))))" " table_170))))))" -" for-loop_130)" +" for-loop_131)" " table_167)))))" "(if(not" " #f)" -"(for-loop_210" +"(for-loop_209" " table_168" "(hash-iterate-next" " ht_115" -" i_142))" +" i_143))" " table_168)))" " table_167)))))" -" for-loop_210)" +" for-loop_209)" " '#hash()" "(hash-iterate-first" " ht_115))))))" @@ -29849,25 +30079,25 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_206) ids_7)" -"((lst_207) binding-syms_2)" +"(let-values(((lst_207) ids_7)" +"((lst_208) binding-syms_2)" "((lst_117)" -"(let-values(((or-part_109) trans-exprs_0))" -"(if or-part_109" -" or-part_109" +"(let-values(((or-part_215) trans-exprs_0))" +"(if or-part_215" +" or-part_215" "(reverse$1" "(let-values(((lst_1) ids_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_1)))" -"((letrec-values(((for-loop_211)" -"(lambda(fold-var_199 lst_208)" +"((letrec-values(((for-loop_210)" +"(lambda(fold-var_199 lst_209)" "(begin" " 'for-loop" -"(if(pair? lst_208)" -"(let-values(((id_48)(unsafe-car lst_208))" -"((rest_109)(unsafe-cdr lst_208)))" +"(if(pair? lst_209)" +"(let-values(((id_49)(unsafe-car lst_209))" +"((rest_109)(unsafe-cdr lst_209)))" "(let-values(((fold-var_200)" "(let-values(((fold-var_201)" " fold-var_199))" @@ -29879,33 +30109,33 @@ static const char *startup_source = " fold-var_201))))" "(values fold-var_202)))))" "(if(not #f)" -"(for-loop_211 fold-var_200 rest_109)" +"(for-loop_210 fold-var_200 rest_109)" " fold-var_200)))" " fold-var_199)))))" -" for-loop_211)" +" for-loop_210)" " null" " lst_1))))))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_206)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_207)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_208)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_117)))" -"((letrec-values(((for-loop_212)" -"(lambda(fold-var_203 lst_209 lst_210 lst_211)" +"((letrec-values(((for-loop_211)" +"(lambda(fold-var_203 lst_210 lst_211 lst_212)" "(begin" " 'for-loop" -"(if(if(pair? lst_209)(if(pair? lst_210)(pair? lst_211) #f) #f)" -"(let-values(((id_49)(unsafe-car lst_209))" -"((rest_110)(unsafe-cdr lst_209))" -"((binding-sym_5)(unsafe-car lst_210))" -"((rest_111)(unsafe-cdr lst_210))" -"((trans-expr_0)(unsafe-car lst_211))" -"((rest_112)(unsafe-cdr lst_211)))" +"(if(if(pair? lst_210)(if(pair? lst_211)(pair? lst_212) #f) #f)" +"(let-values(((id_50)(unsafe-car lst_210))" +"((rest_110)(unsafe-cdr lst_210))" +"((binding-sym_5)(unsafe-car lst_211))" +"((rest_111)(unsafe-cdr lst_211))" +"((trans-expr_0)(unsafe-car lst_212))" +"((rest_112)(unsafe-cdr lst_212)))" "(let-values(((fold-var_204)" "(let-values(((fold-var_205) fold-var_203))" "(let-values(((fold-var_206)" @@ -29915,7 +30145,7 @@ static const char *startup_source = "(let-values(((id-stx_0)" "(compile-quote-syntax" "(remove-scope" -" id_49" +" id_50" " top-level-bind-scope_2)" " cctx_11)))" "(list" @@ -29931,13 +30161,13 @@ static const char *startup_source = " fold-var_205))))" "(values fold-var_206)))))" "(if(not #f)" -"(for-loop_212 fold-var_204 rest_110 rest_111 rest_112)" +"(for-loop_211 fold-var_204 rest_110 rest_111 rest_112)" " fold-var_204)))" " fold-var_203)))))" -" for-loop_212)" +" for-loop_211)" " null" -" lst_206" " lst_207" +" lst_208" " lst_117))))))))))))))" "(define-values" "(generate-top-level-define-syntaxes)" @@ -29964,21 +30194,21 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_4)))" -"((letrec-values(((for-loop_213)" -"(lambda(fold-var_207 lst_212)" +"((letrec-values(((for-loop_212)" +"(lambda(fold-var_207 lst_213)" "(begin" " 'for-loop" -"(if(pair? lst_212)" -"(let-values(((s_234)(unsafe-car lst_212))((rest_113)(unsafe-cdr lst_212)))" +"(if(pair? lst_213)" +"(let-values(((s_237)(unsafe-car lst_213))((rest_113)(unsafe-cdr lst_213)))" "(let-values(((fold-var_208)" "(let-values(((fold-var_209) fold-var_207))" "(let-values(((fold-var_210)" "(let-values()" "(cons(let-values() ''#f) fold-var_209))))" "(values fold-var_210)))))" -"(if(not #f)(for-loop_213 fold-var_208 rest_113) fold-var_208)))" +"(if(not #f)(for-loop_212 fold-var_208 rest_113) fold-var_208)))" " fold-var_207)))))" -" for-loop_213)" +" for-loop_212)" " null" " lst_4)))))))" "(list* 'begin finish_1 '((void)))))" @@ -29987,8 +30217,8 @@ static const char *startup_source = "(propagate-inline-property)" "(lambda(e_37 orig-s_22)" "(begin" -"(let-values(((v_164)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" -"(if v_164(correlated-property e_37 'compiler-hint:cross-module-inline v_164) e_37)))))" +"(let-values(((v_165)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" +"(if v_165(correlated-property e_37 'compiler-hint:cross-module-inline v_165) e_37)))))" "(define-values" "(make-module-use-to-linklet)" "(lambda(cross-linklet-inlining?_2 ns_57 get-module-linklet-info_1 init-mu*s_0)" @@ -30009,17 +30239,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_213) init-mu*s_0))" +"(let-values(((lst_214) init-mu*s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_213)))" -"((letrec-values(((for-loop_214)" -"(lambda(lst_214)" +"(let-values()(check-list lst_214)))" +"((letrec-values(((for-loop_213)" +"(lambda(lst_215)" "(begin" " 'for-loop" -"(if(pair? lst_214)" -"(let-values(((mu*_6)(unsafe-car lst_214))((rest_114)(unsafe-cdr lst_214)))" +"(if(pair? lst_215)" +"(let-values(((mu*_6)(unsafe-car lst_215))((rest_114)(unsafe-cdr lst_215)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -30028,10 +30258,10 @@ static const char *startup_source = "(let-values()(intern-module-use*_0 mu*_6))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_214 rest_114)(values))))" +"(if(not #f)(for-loop_213 rest_114)(values))))" "(values))))))" -" for-loop_214)" -" lst_213)))" +" for-loop_213)" +" lst_214)))" "(void)" "(lambda(mu*-or-instance_0)" "(if(1/instance? mu*-or-instance_0)" @@ -30043,10 +30273,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_214)" +"(let-values(((or-part_216)" "(get-module-linklet-info_1 mod-name_16(module-use-phase mu*_7))))" -"(if or-part_214" -" or-part_214" +"(if or-part_216" +" or-part_216" "(namespace->module-linklet-info" " ns_57" " mod-name_16" @@ -30067,37 +30297,37 @@ static const char *startup_source = "((extra-inspectorsss_3)" "(module-linklet-info-extra-inspectorsss mli_0)))" "(reverse$1" -"(let-values(((lst_215) mus_2)" -"((lst_216)" +"(let-values(((lst_216) mus_2)" +"((lst_217)" "(1/linklet-import-variables" "(module-linklet-info-linklet-or-instance mli_0)))" -"((lst_217)" -"(let-values(((or-part_215) extra-inspectorsss_3))" -"(if or-part_215 or-part_215 mus_2))))" +"((lst_218)" +"(let-values(((or-part_217) extra-inspectorsss_3))" +"(if or-part_217 or-part_217 mus_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_215)))" -"(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)))" -"((letrec-values(((for-loop_215)" -"(lambda(fold-var_211 lst_218 lst_219 lst_220)" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_218)))" +"((letrec-values(((for-loop_214)" +"(lambda(fold-var_211 lst_219 lst_220 lst_221)" "(begin" " 'for-loop" -"(if(if(pair? lst_218)" -"(if(pair? lst_219)(pair? lst_220) #f)" +"(if(if(pair? lst_219)" +"(if(pair? lst_220)(pair? lst_221) #f)" " #f)" -"(let-values(((sub-mu_0)(unsafe-car lst_218))" -"((rest_115)(unsafe-cdr lst_218))" -"((imports_3)(unsafe-car lst_219))" -"((rest_116)(unsafe-cdr lst_219))" +"(let-values(((sub-mu_0)(unsafe-car lst_219))" +"((rest_115)(unsafe-cdr lst_219))" +"((imports_3)(unsafe-car lst_220))" +"((rest_116)(unsafe-cdr lst_220))" "((extra-inspectorss_13)" -"(unsafe-car lst_220))" -"((rest_117)(unsafe-cdr lst_220)))" +"(unsafe-car lst_221))" +"((rest_117)(unsafe-cdr lst_221)))" "(let-values(((fold-var_212)" "(let-values(((fold-var_213)" " fold-var_211))" @@ -30127,18 +30357,18 @@ static const char *startup_source = " fold-var_213))))" "(values fold-var_214)))))" "(if(not #f)" -"(for-loop_215" +"(for-loop_214" " fold-var_212" " rest_115" " rest_116" " rest_117)" " fold-var_212)))" " fold-var_211)))))" -" for-loop_215)" +" for-loop_214)" " null" -" lst_215" " lst_216" -" lst_217)))))))" +" lst_217" +" lst_218)))))))" " #f))" "(values #f #f)))))))" "(let-values()(values #f #f))))))))))))" @@ -30151,7 +30381,7 @@ static const char *startup_source = "(map-cim-tree" " cims_0" "(lambda(cim_1)" -"(let-values(((vec_58 i_143)" +"(let-values(((vec_58 i_144)" "(let-values(((vec_59 len_29)" "(let-values(((vec_60)(compiled-in-memory-mpis cim_1)))" "(begin" @@ -30159,21 +30389,21 @@ static const char *startup_source = "(values vec_60(unsafe-vector-length vec_60))))))" "(begin" " #f" -"((letrec-values(((for-loop_97)" -"(lambda(vec_61 i_144 pos_93)" +"((letrec-values(((for-loop_98)" +"(lambda(vec_61 i_145 pos_92)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_93 len_29)" +"(if(unsafe-fx< pos_92 len_29)" "(let-values(((mpi_45)" -"(unsafe-vector-ref vec_59 pos_93)))" -"(let-values(((vec_62 i_145)" +"(unsafe-vector-ref vec_59 pos_92)))" +"(let-values(((vec_62 i_146)" "(let-values(((vec_63) vec_61)" -"((i_57) i_144))" -"(let-values(((vec_64 i_146)" +"((i_59) i_145))" +"(let-values(((vec_64 i_147)" "(let-values()" "(let-values(((new-vec_3)" "(if(eq?" -" i_57" +" i_59" "(unsafe-vector*-length" " vec_63))" "(grow-vector" @@ -30182,7 +30412,7 @@ static const char *startup_source = "(begin" "(unsafe-vector*-set!" " new-vec_3" -" i_57" +" i_59" "(let-values()" "(add-module-path-index!/pos" " mpis_17" @@ -30190,21 +30420,21 @@ static const char *startup_source = "(values" " new-vec_3" "(unsafe-fx+" -" i_57" +" i_59" " 1)))))))" -"(values vec_64 i_146)))))" +"(values vec_64 i_147)))))" "(if(not #f)" -"(for-loop_97" +"(for-loop_98" " vec_62" -" i_145" -"(unsafe-fx+ 1 pos_93))" -"(values vec_62 i_145))))" -"(values vec_61 i_144))))))" -" for-loop_97)" +" i_146" +"(unsafe-fx+ 1 pos_92))" +"(values vec_62 i_146))))" +"(values vec_61 i_145))))))" +" for-loop_98)" "(make-vector 16)" " 0" " 0)))))" -"(shrink-vector vec_58 i_143))))))" +"(shrink-vector vec_58 i_144))))))" "(let-values(((syntax-literals_2)(make-syntax-literals)))" "(let-values(((syntax-literals-trees_0)" "(map-cim-tree" @@ -30217,33 +30447,33 @@ static const char *startup_source = "(map-cim-tree" " cims_0" "(lambda(cim_3)" -"(let-values(((pos_94) module-uses-tables-count_0))" +"(let-values(((pos_93) module-uses-tables-count_0))" "(begin" "(set! module-uses-tables_0" "(cons" "(compiled-in-memory-phase-to-link-module-uses cim_3)" " module-uses-tables_0))" -"(set! module-uses-tables-count_0(add1 pos_94))" -" pos_94))))))" +"(set! module-uses-tables-count_0(add1 pos_93))" +" pos_93))))))" "(let-values(((syntax-literals-expr_0)" "(generate-eager-syntax-literals! syntax-literals_2 mpis_17 0 #f ns_42)))" "(let-values(((phase-to-link-module-uses-expr_1)" "(list*" " 'vector" "(reverse$1" -"(let-values(((lst_221)(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_221)))" -"((letrec-values(((for-loop_107)" -"(lambda(fold-var_69 lst_88)" +"(let-values()(check-list lst_222)))" +"((letrec-values(((for-loop_108)" +"(lambda(fold-var_69 lst_87)" "(begin" " 'for-loop" -"(if(pair? lst_88)" +"(if(pair? lst_87)" "(let-values(((phase-to-link-module-uses_2)" -"(unsafe-car lst_88))" -"((rest_118)(unsafe-cdr lst_88)))" +"(unsafe-car lst_87))" +"((rest_118)(unsafe-cdr lst_87)))" "(let-values(((fold-var_34)" "(let-values(((fold-var_157)" " fold-var_69))" @@ -30257,12 +30487,12 @@ static const char *startup_source = " fold-var_157))))" "(values fold-var_9)))))" "(if(not #f)" -"(for-loop_107 fold-var_34 rest_118)" +"(for-loop_108 fold-var_34 rest_118)" " fold-var_34)))" " fold-var_69)))))" -" for-loop_107)" +" for-loop_108)" " null" -" lst_221)))))))" +" lst_222)))))))" "(1/compile-linklet" "(list" " 'linklet" @@ -30290,23 +30520,23 @@ static const char *startup_source = "(map-cim-tree)" "(lambda(cims_1 proc_8)" "(begin" -"((letrec-values(((loop_88)" +"((letrec-values(((loop_91)" "(lambda(cims_2)" "(begin" " 'loop" "(reverse$1" -"(let-values(((lst_80) cims_2))" +"(let-values(((lst_79) cims_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_80)))" -"((letrec-values(((for-loop_98)" -"(lambda(fold-var_215 lst_81)" +"(let-values()(check-list lst_79)))" +"((letrec-values(((for-loop_99)" +"(lambda(fold-var_215 lst_80)" "(begin" " 'for-loop" -"(if(pair? lst_81)" -"(let-values(((cim_4)(unsafe-car lst_81))" -"((rest_119)(unsafe-cdr lst_81)))" +"(if(pair? lst_80)" +"(let-values(((cim_4)(unsafe-car lst_80))" +"((rest_119)(unsafe-cdr lst_80)))" "(let-values(((fold-var_158)" "(let-values(((fold-var_168) fold-var_215))" "(let-values(((fold-var_169)" @@ -30315,22 +30545,22 @@ static const char *startup_source = "(let-values()" "(vector" "(proc_8 cim_4)" -"(loop_88" +"(loop_91" "(compiled-in-memory-pre-compiled-in-memorys" " cim_4))" -"(loop_88" +"(loop_91" "(compiled-in-memory-post-compiled-in-memorys" " cim_4))))" " fold-var_168))))" "(values fold-var_169)))))" "(if(not #f)" -"(for-loop_98 fold-var_158 rest_119)" +"(for-loop_99 fold-var_158 rest_119)" " fold-var_158)))" " fold-var_215)))))" -" for-loop_98)" +" for-loop_99)" " null" -" lst_80))))))))" -" loop_88)" +" lst_79))))))))" +" loop_91)" " cims_1))))" "(define-values" "(compiled-tops->compiled-top8.1)" @@ -30353,33 +30583,33 @@ static const char *startup_source = "(let-values()(car cims_3))" "(let-values()" "(let-values(((sequence-ht_0)" -"(let-values(((lst_222) 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_222)))" +"(let-values()(check-list lst_223)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_35)))" -"((letrec-values(((for-loop_216)" -"(lambda(table_173 lst_101 pos_95)" +"((letrec-values(((for-loop_215)" +"(lambda(table_173 lst_100 pos_94)" "(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_83) pos_95))" +"(if(if(pair? lst_100) #t #f)" +"(let-values(((cim_5)(unsafe-car lst_100))" +"((rest_35)(unsafe-cdr lst_100))" +"((i_84) pos_94))" "(let-values(((table_174)" "(let-values(((table_175) table_173))" "(let-values(((table_176)" "(let-values()" "(let-values(((key_62" -" val_56)" +" val_57)" "(let-values()" "(values" "(string->symbol" "(number->string" -" i_83))" +" i_84))" "((if to-source?_1" " values" " compiled-in-memory-linklet-directory)" @@ -30387,15 +30617,15 @@ static const char *startup_source = "(hash-set" " table_175" " key_62" -" val_56)))))" +" val_57)))))" "(values table_176)))))" "(if(not #f)" -"(for-loop_216 table_174 rest_36(+ pos_95 1))" +"(for-loop_215 table_174 rest_35(+ pos_94 1))" " table_174)))" " table_173)))))" -" for-loop_216)" +" for-loop_215)" " '#hasheq()" -" lst_222" +" lst_223" " start_35)))))" "(let-values(((ht_116)" "(if merge-serialization?_0" @@ -30437,20 +30667,20 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_36 end_25 inc_19)))" "((letrec-values(((for-loop_10)" -"(lambda(fold-var_216 pos_96)" +"(lambda(fold-var_216 pos_95)" "(begin" " 'for-loop" -"(if(< pos_96 end_25)" -"(let-values(((i_91) pos_96))" +"(if(< pos_95 end_25)" +"(let-values(((i_92) pos_95))" "(let-values(((fold-var_173)" "(let-values(((top_0)" "(hash-ref" " ht_117" -"(string->symbol(number->string i_91))" +"(string->symbol(number->string i_92))" " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_115)" +"((letrec-values(((for-loop_116)" "(lambda(fold-var_66)" "(begin" " 'for-loop" @@ -30471,9 +30701,9 @@ static const char *startup_source = " fold-var_219)))" " fold-var_217))))" " fold-var_72))))))" -" for-loop_115)" +" for-loop_116)" " fold-var_216)))))" -"(if(not #f)(for-loop_10 fold-var_173(+ pos_96 inc_19)) fold-var_173)))" +"(if(not #f)(for-loop_10 fold-var_173(+ pos_95 inc_19)) fold-var_173)))" " fold-var_216)))))" " for-loop_10)" " null" @@ -30482,7 +30712,7 @@ static const char *startup_source = "(remove-nontail-purely-functional)" "(lambda(cims_4)" "(begin" -"((letrec-values(((loop_89)" +"((letrec-values(((loop_92)" "(lambda(cims_5)" "(begin" " 'loop" @@ -30493,41 +30723,41 @@ static const char *startup_source = "(if(if(compiled-in-memory?(car cims_5))" "(compiled-in-memory-purely-functional?(car cims_5))" " #f)" -"(let-values()(loop_89(cdr cims_5)))" +"(let-values()(loop_92(cdr cims_5)))" "(let-values()(cons(car cims_5)(cdr cims_5))))))))))" -" loop_89)" +" loop_92)" " cims_4))))" "(define-values" "(struct:known-defined/delay known-defined/delay2.1 known-defined/delay? known-defined/delay-thunk)" -"(let-values(((struct:_67 make-_67 ?_67 -ref_67 -set!_67)" +"(let-values(((struct:_68 make-_68 ?_68 -ref_68 -set!_68)" "(let-values()" "(let-values()" "(make-struct-type 'known-defined/delay #f 1 0 #f null 'prefab #f '(0) #f 'known-defined/delay)))))" -"(values struct:_67 make-_67 ?_67(make-struct-field-accessor -ref_67 0 'thunk))))" +"(values struct:_68 make-_68 ?_68(make-struct-field-accessor -ref_68 0 'thunk))))" "(define-values" "(struct:known-property known-property3.1 known-property?)" -"(let-values(((struct:_61 make-_61 ?_61 -ref_61 -set!_61)" +"(let-values(((struct:_62 make-_62 ?_62 -ref_62 -set!_62)" "(let-values()" "(let-values()(make-struct-type 'known-property #f 0 0 #f null 'prefab #f '() #f 'known-property)))))" -"(values struct:_61 make-_61 ?_61)))" +"(values struct:_62 make-_62 ?_62)))" "(define-values" "(struct:known-function known-function4.1 known-function? known-function-arity known-function-pure?)" -"(let-values(((struct:_68 make-_68 ?_68 -ref_68 -set!_68)" +"(let-values(((struct:_69 make-_69 ?_69 -ref_69 -set!_69)" "(let-values()" "(let-values()" "(make-struct-type 'known-function #f 2 0 #f null 'prefab #f '(0 1) #f 'known-function)))))" "(values" -" struct:_68" -" make-_68" -" ?_68" -"(make-struct-field-accessor -ref_68 0 'arity)" -"(make-struct-field-accessor -ref_68 1 'pure?))))" +" struct:_69" +" make-_69" +" ?_69" +"(make-struct-field-accessor -ref_69 0 'arity)" +"(make-struct-field-accessor -ref_69 1 'pure?))))" "(define-values" "(struct:known-function-of-satisfying" " known-function-of-satisfying5.1" " known-function-of-satisfying?" " known-function-of-satisfying-arg-predicate-keys)" -"(let-values(((struct:_39 make-_39 ?_39 -ref_39 -set!_39)" +"(let-values(((struct:_40 make-_40 ?_40 -ref_40 -set!_40)" "(let-values()" "(let-values()" "(make-struct-type" @@ -30542,7 +30772,7 @@ static const char *startup_source = " '(0)" " #f" " 'known-function-of-satisfying)))))" -"(values struct:_39 make-_39 ?_39(make-struct-field-accessor -ref_39 0 'arg-predicate-keys))))" +"(values struct:_40 make-_40 ?_40(make-struct-field-accessor -ref_40 0 'arg-predicate-keys))))" "(define-values" "(struct:known-predicate known-predicate6.1 known-predicate? known-predicate-key)" "(let-values(((struct:_11 make-_11 ?_11 -ref_11 -set!_11)" @@ -30552,30 +30782,30 @@ static const char *startup_source = "(values struct:_11 make-_11 ?_11(make-struct-field-accessor -ref_11 0 'key))))" "(define-values" "(struct:known-satisfies known-satisfies7.1 known-satisfies? known-satisfies-predicate-key)" -"(let-values(((struct:_69 make-_69 ?_69 -ref_69 -set!_69)" +"(let-values(((struct:_70 make-_70 ?_70 -ref_70 -set!_70)" "(let-values()" "(let-values()" "(make-struct-type 'known-satisfies #f 1 0 #f null 'prefab #f '(0) #f 'known-satisfies)))))" -"(values struct:_69 make-_69 ?_69(make-struct-field-accessor -ref_69 0 'predicate-key))))" +"(values struct:_70 make-_70 ?_70(make-struct-field-accessor -ref_70 0 'predicate-key))))" "(define-values" "(struct:known-struct-op known-struct-op8.1 known-struct-op? known-struct-op-type known-struct-op-field-count)" -"(let-values(((struct:_36 make-_36 ?_36 -ref_36 -set!_36)" +"(let-values(((struct:_37 make-_37 ?_37 -ref_37 -set!_37)" "(let-values()" "(let-values()" "(make-struct-type 'known-struct-op #f 2 0 #f null 'prefab #f '(0 1) #f 'known-struct-op)))))" "(values" -" struct:_36" -" make-_36" -" ?_36" -"(make-struct-field-accessor -ref_36 0 'type)" -"(make-struct-field-accessor -ref_36 1 'field-count))))" +" struct:_37" +" make-_37" +" ?_37" +"(make-struct-field-accessor -ref_37 0 'type)" +"(make-struct-field-accessor -ref_37 1 'field-count))))" "(define-values" "(lookup-defn)" -"(lambda(defns_0 sym_53)" +"(lambda(defns_0 sym_54)" "(begin" -"(let-values(((d_29)(hash-ref defns_0 sym_53 #f)))" +"(let-values(((d_29)(hash-ref defns_0 sym_54 #f)))" "(if(known-defined/delay? d_29)" -"(let-values()(begin((known-defined/delay-thunk d_29))(lookup-defn defns_0 sym_53)))" +"(let-values()(begin((known-defined/delay-thunk d_29))(lookup-defn defns_0 sym_54)))" "(let-values() d_29))))))" "(define-values" "(any-side-effects?9.1)" @@ -30594,7 +30824,7 @@ static const char *startup_source = "(let-values(((locals_0)(if known-locals4_0 known-locals1_0 '#hasheq())))" "(let-values(((defns_1)(if known-defns5_0 known-defns2_0 '#hasheq())))" "(let-values(((ready-variable?_0)" -"(if ready-variable?6_0 ready-variable?3_0(lambda(id_50)(begin 'ready-variable? #f)))))" +"(if ready-variable?6_0 ready-variable?3_0(lambda(id_51)(begin 'ready-variable? #f)))))" "(let-values()" "(let-values(((effects?_0)" "(lambda(e_39 expected-results_1 locals_1)" @@ -30619,12 +30849,12 @@ static const char *startup_source = "(lambda(e_40 locals_2)" "(begin" " 'loop" -"(let-values(((tmp_25)" +"(let-values(((tmp_26)" "(if(pair?(correlated-e e_40))" "(correlated-e(car(correlated-e e_40)))" " #f)))" "(let-values(((index_1)" -"(if(symbol? tmp_25)" +"(if(symbol? tmp_26)" "(hash-ref" " '#hasheq((#%variable-reference . 1)" "(begin . 5)" @@ -30642,7 +30872,7 @@ static const char *startup_source = "(quote . 1)" "(values . 3)" "(void . 4))" -" tmp_25" +" tmp_26" "(lambda() 0))" " 0)))" "(if(unsafe-fx< index_1 6)" @@ -30695,23 +30925,23 @@ static const char *startup_source = "(if(pair?" " s_89)" "(let-values(((_19_0)" -"(let-values(((s_308)" +"(let-values(((s_312)" "(car" " s_89)))" -" s_308))" +" s_312))" "((e20_0)" -"(let-values(((s_184)" +"(let-values(((s_187)" "(cdr" " s_89)))" -"(let-values(((s_309)" +"(let-values(((s_313)" "(if(1/syntax?" -" s_184)" +" s_187)" "(syntax-e$2" -" s_184)" -" s_184)))" +" s_187)" +" s_187)))" "(let-values(((flat-s_13)" "(to-syntax-list.1$1" -" s_309)))" +" s_313)))" "(if(not" " flat-s_13)" "(let-values()" @@ -30742,8 +30972,8 @@ static const char *startup_source = " e18_1))))))" "(let-values(((n-args_0)" "(length e18_0)))" -"(if(let-values(((or-part_216)" -"(if(let-values(((or-part_217)" +"(if(let-values(((or-part_218)" +"(if(let-values(((or-part_219)" "(if(known-struct-op?" " d_19)" "(if(eq?" @@ -30756,8 +30986,8 @@ static const char *startup_source = " n-args_0)" " #f)" " #f)))" -"(if or-part_217" -" or-part_217" +"(if or-part_219" +" or-part_219" "(if(known-function?" " d_19)" "(if(known-function-pure?" @@ -30768,7 +30998,7 @@ static const char *startup_source = " n-args_0)" " #f)" " #f)))" -"(let-values(((lst_223)" +"(let-values(((lst_224)" " e18_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -30776,20 +31006,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_223)))" +" lst_224)))" "((letrec-values(((for-loop_27)" "(lambda(result_82" -" lst_224)" +" lst_225)" "(begin" " 'for-loop" "(if(pair?" -" lst_224)" +" lst_225)" "(let-values(((e_43)" "(unsafe-car" -" lst_224))" +" lst_225))" "((rest_120)" "(unsafe-cdr" -" lst_224)))" +" lst_225)))" "(let-values(((result_83)" "(let-values()" "(let-values(((result_84)" @@ -30803,7 +31033,7 @@ static const char *startup_source = "(values" " result_84)))))" "(if(if(not" -"((lambda x_54" +"((lambda x_55" "(not" " result_83))" " e_43))" @@ -30817,10 +31047,10 @@ static const char *startup_source = " result_82)))))" " for-loop_27)" " #t" -" lst_223)))" +" lst_224)))" " #f)))" -"(if or-part_216" -" or-part_216" +"(if or-part_218" +" or-part_218" "(if(known-function-of-satisfying?" " d_19)" "(if(=" @@ -30828,9 +31058,9 @@ static const char *startup_source = "(length" "(known-function-of-satisfying-arg-predicate-keys" " d_19)))" -"(let-values(((lst_176)" +"(let-values(((lst_177)" " e18_0)" -"((lst_177)" +"((lst_178)" "(known-function-of-satisfying-arg-predicate-keys" " d_19)))" "(begin" @@ -30839,36 +31069,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_176)))" +" lst_177)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_177)))" +" lst_178)))" "((letrec-values(((for-loop_28)" "(lambda(result_85" -" lst_178" -" lst_179)" +" lst_179" +" lst_180)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_178)" -"(pair?" " lst_179)" +"(pair?" +" lst_180)" " #f)" "(let-values(((e_44)" "(unsafe-car" -" lst_178))" +" lst_179))" "((rest_94)" "(unsafe-cdr" -" lst_178))" +" lst_179))" "((key_63)" "(unsafe-car" -" lst_179))" +" lst_180))" "((rest_95)" "(unsafe-cdr" -" lst_179)))" +" lst_180)))" "(let-values(((result_86)" "(let-values()" "(let-values(((result_87)" @@ -30893,7 +31123,7 @@ static const char *startup_source = " result_86))" " e_44))" "(if(not" -"((lambda x_55" +"((lambda x_56" "(not" " result_86))" " key_63))" @@ -30909,8 +31139,8 @@ static const char *startup_source = " result_85)))))" " for-loop_28)" " #t" -" lst_176" -" lst_177)))" +" lst_177" +" lst_178)))" " #f)" " #f)))" " 1" @@ -30923,24 +31153,24 @@ static const char *startup_source = "(if or-part_68" " or-part_68" "(if(symbol? v_4)" -"(let-values(((or-part_218)" +"(let-values(((or-part_220)" "(hash-ref" " locals_2" " v_4" " #f)))" -"(if or-part_218" -" or-part_218" -"(let-values(((or-part_219)" +"(if or-part_220" +" or-part_220" +"(let-values(((or-part_221)" "(lookup-defn" " defns_1" " v_4)))" -"(if or-part_219" -" or-part_219" -"(let-values(((or-part_220)" +"(if or-part_221" +" or-part_221" +"(let-values(((or-part_222)" "(built-in-symbol?" " v_4)))" -"(if or-part_220" -" or-part_220" +"(if or-part_222" +" or-part_222" "(ready-variable?_0" " v_4)))))))" " #f)))" @@ -30954,52 +31184,52 @@ static const char *startup_source = " ids22_0" " rhs23_0" " body24_0)" -"(let-values(((s_310) e_40))" -"(let-values(((orig-s_24) s_310))" +"(let-values(((s_314) e_40))" +"(let-values(((orig-s_24) s_314))" "(let-values(((_21_1" " ids22_1" " rhs23_1" " body24_1)" -"(let-values(((s_168)" +"(let-values(((s_171)" "(if(1/syntax?" -" s_310)" +" s_314)" "(syntax-e$2" -" s_310)" -" s_310)))" -"(if(pair? s_168)" +" s_314)" +" s_314)))" +"(if(pair? s_171)" "(let-values(((_25_0)" -"(let-values(((s_311)" +"(let-values(((s_315)" "(car" -" s_168)))" -" s_311))" +" s_171)))" +" s_315))" "((ids26_0" " rhs27_0" " body28_0)" -"(let-values(((s_165)" +"(let-values(((s_168)" "(cdr" -" s_168)))" -"(let-values(((s_312)" +" s_171)))" +"(let-values(((s_316)" "(if(1/syntax?" -" s_165)" +" s_168)" "(syntax-e$2" -" s_165)" -" s_165)))" +" s_168)" +" s_168)))" "(if(pair?" -" s_312)" +" s_316)" "(let-values(((ids29_0" " rhs30_0)" -"(let-values(((s_313)" +"(let-values(((s_317)" "(car" -" s_312)))" -"(let-values(((s_314)" +" s_316)))" +"(let-values(((s_318)" "(if(1/syntax?" -" s_313)" +" s_317)" "(syntax-e$2" -" s_313)" -" s_313)))" +" s_317)" +" s_317)))" "(let-values(((flat-s_14)" "(to-syntax-list.1$1" -" s_314)))" +" s_318)))" "(if(not" " flat-s_14)" "(let-values()" @@ -31014,7 +31244,7 @@ static const char *startup_source = "(let-values()" "(let-values(((ids_8" " rhs_4)" -"(let-values(((lst_225)" +"(let-values(((lst_226)" " flat-s_14))" "(begin" "(if(variable-reference-from-unsafe?" @@ -31022,21 +31252,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_225)))" -"((letrec-values(((for-loop_78)" +" lst_226)))" +"((letrec-values(((for-loop_79)" "(lambda(ids_9" " rhs_5" -" lst_226)" +" lst_227)" "(begin" " 'for-loop" "(if(pair?" -" lst_226)" -"(let-values(((s_94)" +" lst_227)" +"(let-values(((s_319)" "(unsafe-car" -" lst_226))" +" lst_227))" "((rest_89)" "(unsafe-cdr" -" lst_226)))" +" lst_227)))" "(let-values(((ids_10" " rhs_6)" "(let-values(((ids_11)" @@ -31051,46 +31281,46 @@ static const char *startup_source = "(let-values()" "(let-values(((s_54)" "(if(1/syntax?" -" s_94)" +" s_319)" "(syntax-e$2" -" s_94)" -" s_94)))" +" s_319)" +" s_319)))" "(if(pair?" " s_54)" "(let-values(((ids32_0)" -"(let-values(((s_315)" +"(let-values(((s_320)" "(car" " s_54)))" -" s_315))" +" s_320))" "((rhs33_0)" -"(let-values(((s_316)" +"(let-values(((s_92)" "(cdr" " s_54)))" -"(let-values(((s_317)" +"(let-values(((s_321)" "(if(1/syntax?" -" s_316)" +" s_92)" "(syntax-e$2" -" s_316)" -" s_316)))" +" s_92)" +" s_92)))" "(if(pair?" -" s_317)" +" s_321)" "(let-values(((rhs34_0)" -"(let-values(((s_318)" +"(let-values(((s_93)" "(car" -" s_317)))" -" s_318))" +" s_321)))" +" s_93))" "(()" "(let-values(((s_55)" "(cdr" -" s_317)))" -"(let-values(((s_319)" +" s_321)))" +"(let-values(((s_322)" "(if(1/syntax?" " s_55)" "(syntax-e$2" " s_55)" " s_55)))" "(if(null?" -" s_319)" +" s_322)" "(values)" "((lambda(false_3" " str_8" @@ -31133,7 +31363,7 @@ static const char *startup_source = " rhs_8)))))" "(if(not" " #f)" -"(for-loop_78" +"(for-loop_79" " ids_10" " rhs_6" " rest_89)" @@ -31143,44 +31373,44 @@ static const char *startup_source = "(values" " ids_9" " rhs_5))))))" -" for-loop_78)" +" for-loop_79)" " null" " null" -" lst_225)))))" +" lst_226)))))" "(values" "(reverse$1" " ids_8)" "(reverse$1" " rhs_4)))))))))" "((body31_0)" -"(let-values(((s_320)" -"(cdr" -" s_312)))" -"(let-values(((s_321)" -"(if(1/syntax?" -" s_320)" -"(syntax-e$2" -" s_320)" -" s_320)))" -"(if(pair?" -" s_321)" -"(let-values(((body35_0)" -"(let-values(((s_322)" -"(car" -" s_321)))" -" s_322))" -"(()" -"(let-values(((s_163)" -"(cdr" -" s_321)))" "(let-values(((s_323)" +"(cdr" +" s_316)))" +"(let-values(((s_324)" "(if(1/syntax?" -" s_163)" -"(syntax-e$2" -" s_163)" -" s_163)))" -"(if(null?" " s_323)" +"(syntax-e$2" +" s_323)" +" s_323)))" +"(if(pair?" +" s_324)" +"(let-values(((body35_0)" +"(let-values(((s_325)" +"(car" +" s_324)))" +" s_325))" +"(()" +"(let-values(((s_166)" +"(cdr" +" s_324)))" +"(let-values(((s_326)" +"(if(1/syntax?" +" s_166)" +"(syntax-e$2" +" s_166)" +" s_166)))" +"(if(null?" +" s_326)" "(values)" "((lambda(false_6" " str_11" @@ -31232,40 +31462,40 @@ static const char *startup_source = " rhs23_1" " body24_1))))))" "(if(not" -"(let-values(((lst_227) ids22_0)" -"((lst_228) rhs23_0))" +"(let-values(((lst_228) ids22_0)" +"((lst_229) rhs23_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_227)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" "(let-values()(check-list lst_228)))" -"((letrec-values(((for-loop_217)" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_229)))" +"((letrec-values(((for-loop_216)" "(lambda(result_88" -" lst_229" -" lst_230)" +" lst_230" +" lst_231)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_229)" -"(pair?" " lst_230)" +"(pair?" +" lst_231)" " #f)" "(let-values(((ids_13)" "(unsafe-car" -" lst_229))" +" lst_230))" "((rest_121)" "(unsafe-cdr" -" lst_229))" +" lst_230))" "((rhs_9)" "(unsafe-car" -" lst_230))" +" lst_231))" "((rest_122)" "(unsafe-cdr" -" lst_230)))" +" lst_231)))" "(let-values(((result_89)" "(let-values()" "(let-values(((result_90)" @@ -31279,27 +31509,27 @@ static const char *startup_source = "(values" " result_90)))))" "(if(if(not" -"((lambda x_56" +"((lambda x_57" " result_89)" " ids_13))" "(if(not" -"((lambda x_57" +"((lambda x_58" " result_89)" " rhs_9))" "(not" " #f)" " #f)" " #f)" -"(for-loop_217" +"(for-loop_216" " result_89" " rest_121" " rest_122)" " result_89)))" " result_88)))))" -" for-loop_217)" +" for-loop_216)" " #f" -" lst_227" -" lst_228))))" +" lst_228" +" lst_229))))" "(loop_2" " body24_0" "(add-binding-info locals_2 ids22_0 rhs23_0))" @@ -31310,32 +31540,32 @@ static const char *startup_source = "(let-values(((s_67) e_40))" "(let-values(((orig-s_25) s_67))" "(let-values(((_38_1 e39_1)" -"(let-values(((s_324)" +"(let-values(((s_327)" "(if(1/syntax?" " s_67)" "(syntax-e$2" " s_67)" " s_67)))" "(if(pair?" -" s_324)" +" s_327)" "(let-values(((_40_0)" "(let-values(((s_38)" "(car" -" s_324)))" +" s_327)))" " s_38))" "((e41_0)" -"(let-values(((s_325)" +"(let-values(((s_328)" "(cdr" -" s_324)))" -"(let-values(((s_326)" +" s_327)))" +"(let-values(((s_329)" "(if(1/syntax?" -" s_325)" +" s_328)" "(syntax-e$2" -" s_325)" -" s_325)))" +" s_328)" +" s_328)))" "(let-values(((flat-s_15)" "(to-syntax-list.1$1" -" s_326)))" +" s_329)))" "(if(not" " flat-s_15)" "(let-values()" @@ -31361,25 +31591,25 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_25)))))" "(values #t _38_1 e39_1))))))" -"(if(let-values(((lst_202) e39_0))" +"(if(let-values(((lst_203) e39_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_202)))" -"((letrec-values(((for-loop_207)" +"(let-values()(check-list lst_203)))" +"((letrec-values(((for-loop_206)" "(lambda(result_91" -" lst_203)" +" lst_204)" "(begin" " 'for-loop" "(if(pair?" -" lst_203)" +" lst_204)" "(let-values(((e_55)" "(unsafe-car" -" lst_203))" +" lst_204))" "((rest_107)" "(unsafe-cdr" -" lst_203)))" +" lst_204)))" "(let-values(((result_92)" "(let-values()" "(let-values(((result_93)" @@ -31393,53 +31623,53 @@ static const char *startup_source = "(values" " result_93)))))" "(if(if(not" -"((lambda x_58" +"((lambda x_59" "(not" " result_92))" " e_55))" "(not" " #f)" " #f)" -"(for-loop_207" +"(for-loop_206" " result_92" " rest_107)" " result_92)))" " result_91)))))" -" for-loop_207)" +" for-loop_206)" " #t" -" lst_202)))" +" lst_203)))" "(length e39_0)" " #f)))" "(if(unsafe-fx< index_1 5)" "(let-values()" "(let-values(((ok?_20 _42_0 e43_0)" -"(let-values(((s_327) e_40))" +"(let-values(((s_330) e_40))" "(let-values(((orig-s_26)" -" s_327))" +" s_330))" "(let-values(((_42_1 e43_1)" -"(let-values(((s_328)" +"(let-values(((s_331)" "(if(1/syntax?" -" s_327)" +" s_330)" "(syntax-e$2" -" s_327)" -" s_327)))" +" s_330)" +" s_330)))" "(if(pair?" -" s_328)" +" s_331)" "(let-values(((_44_0)" -"(let-values(((s_102)" +"(let-values(((s_162)" "(car" -" s_328)))" -" s_102))" +" s_331)))" +" s_162))" "((e45_0)" -"(let-values(((s_329)" +"(let-values(((s_332)" "(cdr" -" s_328)))" +" s_331)))" "(let-values(((s_68)" "(if(1/syntax?" -" s_329)" +" s_332)" "(syntax-e$2" -" s_329)" -" s_329)))" +" s_332)" +" s_332)))" "(let-values(((flat-s_16)" "(to-syntax-list.1$1" " s_68)))" @@ -31468,26 +31698,26 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_26)))))" "(values #t _42_1 e43_1))))))" -"(if(let-values(((lst_231) e43_0))" +"(if(let-values(((lst_232) e43_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_231)))" -"((letrec-values(((for-loop_209)" +"(check-list lst_232)))" +"((letrec-values(((for-loop_208)" "(lambda(result_94" -" lst_232)" +" lst_233)" "(begin" " 'for-loop" "(if(pair?" -" lst_232)" +" lst_233)" "(let-values(((e_58)" "(unsafe-car" -" lst_232))" +" lst_233))" "((rest_123)" "(unsafe-cdr" -" lst_232)))" +" lst_233)))" "(let-values(((result_95)" "(let-values()" "(let-values(((result_96)" @@ -31501,55 +31731,55 @@ static const char *startup_source = "(values" " result_96)))))" "(if(if(not" -"((lambda x_59" +"((lambda x_60" "(not" " result_95))" " e_58))" "(not" " #f)" " #f)" -"(for-loop_209" +"(for-loop_208" " result_95" " rest_123)" " result_95)))" " result_94)))))" -" for-loop_209)" +" for-loop_208)" " #t" -" lst_231)))" +" lst_232)))" " 1" " #f)))" "(let-values()" "(let-values(((ok?_21 _46_0 e47_0)" -"(let-values(((s_330) e_40))" +"(let-values(((s_333) e_40))" "(let-values(((orig-s_27)" -" s_330))" +" s_333))" "(let-values(((_46_1 e47_1)" -"(let-values(((s_331)" +"(let-values(((s_334)" "(if(1/syntax?" -" s_330)" +" s_333)" "(syntax-e$2" -" s_330)" -" s_330)))" +" s_333)" +" s_333)))" "(if(pair?" -" s_331)" +" s_334)" "(let-values(((_48_0)" -"(let-values(((s_332)" +"(let-values(((s_335)" "(car" -" s_331)))" -" s_332))" +" s_334)))" +" s_335))" "((e49_0)" -"(let-values(((s_216)" +"(let-values(((s_105)" "(cdr" -" s_331)))" -"(let-values(((s_333)" +" s_334)))" +"(let-values(((s_336)" "(if(1/syntax?" -" s_216)" +" s_105)" "(syntax-e$2" -" s_216)" -" s_216)))" +" s_105)" +" s_105)))" "(let-values(((flat-s_17)" "(to-syntax-list.1$1" -" s_333)))" +" s_336)))" "(if(not" " flat-s_17)" "(let-values()" @@ -31601,52 +31831,52 @@ 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_220) e_40))" -"(let-values(((orig-s_9) s_220))" +"(let-values(((s_116) e_40))" +"(let-values(((orig-s_9) s_116))" "(let-values(((_50_1 e051_1 e52_1)" -"(let-values(((s_126)" +"(let-values(((s_119)" "(if(1/syntax?" -" s_220)" +" s_116)" "(syntax-e$2" -" s_220)" -" s_220)))" -"(if(pair? s_126)" +" s_116)" +" s_116)))" +"(if(pair? s_119)" "(let-values(((_53_0)" -"(let-values(((s_221)" +"(let-values(((s_226)" "(car" -" s_126)))" -" s_221))" +" s_119)))" +" s_226))" "((e054_0" " e55_0)" -"(let-values(((s_222)" +"(let-values(((s_227)" "(cdr" -" s_126)))" -"(let-values(((s_223)" +" s_119)))" +"(let-values(((s_228)" "(if(1/syntax?" -" s_222)" +" s_227)" "(syntax-e$2" -" s_222)" -" s_222)))" +" s_227)" +" s_227)))" "(if(pair?" -" s_223)" +" s_228)" "(let-values(((e056_0)" -"(let-values(((s_224)" +"(let-values(((s_229)" "(car" -" s_223)))" -" s_224))" +" s_228)))" +" s_229))" "((e57_0)" -"(let-values(((s_225)" +"(let-values(((s_230)" "(cdr" -" s_223)))" -"(let-values(((s_226)" +" s_228)))" +"(let-values(((s_120)" "(if(1/syntax?" -" s_225)" +" s_230)" "(syntax-e$2" -" s_225)" -" s_225)))" +" s_230)" +" s_230)))" "(let-values(((flat-s_5)" "(to-syntax-list.1$1" -" s_226)))" +" s_120)))" "(if(not" " flat-s_5)" "(let-values()" @@ -31688,13 +31918,13 @@ static const char *startup_source = " _50_1" " e051_1" " e52_1))))))" -"(if(let-values(((lst_207) e52_0))" +"(if(let-values(((lst_208) e52_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_207)))" -"((letrec-values(((for-loop_218)" +"(let-values()(check-list lst_208)))" +"((letrec-values(((for-loop_217)" "(lambda(result_97" " lst_1)" "(begin" @@ -31703,7 +31933,7 @@ static const char *startup_source = "(let-values(((e_63)" "(unsafe-car" " lst_1))" -"((rest_60)" +"((rest_59)" "(unsafe-cdr" " lst_1)))" "(let-values(((result_98)" @@ -31719,20 +31949,20 @@ static const char *startup_source = "(values" " result_99)))))" "(if(if(not" -"((lambda x_60" +"((lambda x_61" "(not" " result_98))" " e_63))" "(not #f)" " #f)" -"(for-loop_218" +"(for-loop_217" " result_98" -" rest_60)" +" rest_59)" " result_98)))" " result_97)))))" -" for-loop_218)" +" for-loop_217)" " #t" -" lst_207)))" +" lst_208)))" "(loop_2 e051_0 locals_2)" " #f)))" "(if(unsafe-fx< index_1 8)" @@ -31768,84 +31998,84 @@ static const char *startup_source = "(if(unsafe-fx< index_1 12)" "(let-values()" "(let-values(((ok?_22 gs58_0 quot59_0 datum60_0)" -"(let-values(((s_230) e_40))" -"(if(let-values(((s_231)" +"(let-values(((s_234) e_40))" +"(if(let-values(((s_131)" "(if(1/syntax?" -" s_230)" +" s_234)" "(syntax-e$2" -" s_230)" -" s_230)))" -"(if(pair? s_231)" -"(if(let-values(((s_232)" +" s_234)" +" s_234)))" +"(if(pair? s_131)" +"(if(let-values(((s_235)" "(car" -" s_231)))" +" s_131)))" " #t)" -"(let-values(((s_334)" -"(cdr" -" s_231)))" -"(let-values(((s_335)" -"(if(1/syntax?" -" s_334)" -"(syntax-e$2" -" s_334)" -" s_334)))" -"(if(pair? s_335)" -"(if(let-values(((s_233)" -"(car" -" s_335)))" -"(let-values(((s_336)" -"(if(1/syntax?" -" s_233)" -"(syntax-e$2" -" s_233)" -" s_233)))" -"(if(pair?" -" s_336)" -"(if(let-values(((s_234)" -"(car" -" s_336)))" -" #t)" -"(let-values(((s_235)" -"(cdr" -" s_336)))" "(let-values(((s_337)" +"(cdr" +" s_131)))" +"(let-values(((s_338)" "(if(1/syntax?" -" s_235)" -"(syntax-e$2" -" s_235)" -" s_235)))" -"(if(pair?" " s_337)" +"(syntax-e$2" +" s_337)" +" s_337)))" +"(if(pair? s_338)" "(if(let-values(((s_236)" "(car" -" s_337)))" -" #t)" -"(let-values(((s_237)" -"(cdr" -" s_337)))" -"(let-values(((s_238)" +" s_338)))" +"(let-values(((s_132)" "(if(1/syntax?" -" s_237)" +" s_236)" "(syntax-e$2" -" s_237)" -" s_237)))" -"(null?" -" s_238)))" -" #f)" -" #f)))" -" #f)" -" #f)))" -"(let-values(((s_338)" +" s_236)" +" s_236)))" +"(if(pair?" +" s_132)" +"(if(let-values(((s_237)" +"(car" +" s_132)))" +" #t)" +"(let-values(((s_238)" "(cdr" -" s_335)))" +" s_132)))" "(let-values(((s_339)" "(if(1/syntax?" -" s_338)" +" s_238)" "(syntax-e$2" -" s_338)" -" s_338)))" -"(null?" +" s_238)" +" s_238)))" +"(if(pair?" +" s_339)" +"(if(let-values(((s_239)" +"(car" " s_339)))" +" #t)" +"(let-values(((s_240)" +"(cdr" +" s_339)))" +"(let-values(((s_241)" +"(if(1/syntax?" +" s_240)" +"(syntax-e$2" +" s_240)" +" s_240)))" +"(null?" +" s_241)))" +" #f)" +" #f)))" +" #f)" +" #f)))" +"(let-values(((s_340)" +"(cdr" +" s_338)))" +"(let-values(((s_341)" +"(if(1/syntax?" +" s_340)" +"(syntax-e$2" +" s_340)" +" s_340)))" +"(null?" +" s_341)))" " #f)" " #f)))" " #f)" @@ -31854,69 +32084,69 @@ static const char *startup_source = "(let-values(((gs58_1" " quot59_1" " datum60_1)" -"(let-values(((s_340)" +"(let-values(((s_342)" "(if(1/syntax?" -" s_230)" +" s_234)" "(syntax-e$2" -" s_230)" -" s_230)))" +" s_234)" +" s_234)))" "(let-values(((gs61_0)" -"(let-values(((s_341)" +"(let-values(((s_343)" "(car" -" s_340)))" -" s_341))" +" s_342)))" +" s_343))" "((quot62_0" " datum63_0)" -"(let-values(((s_342)" -"(cdr" -" s_340)))" -"(let-values(((s_343)" -"(if(1/syntax?" -" s_342)" -"(syntax-e$2" -" s_342)" -" s_342)))" -"(let-values(((quot64_0" -" datum65_0)" "(let-values(((s_344)" -"(car" -" s_343)))" +"(cdr" +" s_342)))" "(let-values(((s_345)" "(if(1/syntax?" " s_344)" "(syntax-e$2" " s_344)" " s_344)))" -"(let-values(((quot66_0)" +"(let-values(((quot64_0" +" datum65_0)" "(let-values(((s_346)" "(car" " s_345)))" -" s_346))" -"((datum67_0)" "(let-values(((s_347)" -"(cdr" -" s_345)))" -"(let-values(((s_239)" "(if(1/syntax?" -" s_347)" +" s_346)" "(syntax-e$2" -" s_347)" -" s_347)))" -"(let-values(((datum68_0)" +" s_346)" +" s_346)))" +"(let-values(((quot66_0)" "(let-values(((s_348)" "(car" -" s_239)))" +" s_347)))" " s_348))" -"(()" +"((datum67_0)" "(let-values(((s_349)" "(cdr" -" s_239)))" -"(let-values(((s_350)" +" s_347)))" +"(let-values(((s_242)" "(if(1/syntax?" " s_349)" "(syntax-e$2" " s_349)" " s_349)))" +"(let-values(((datum68_0)" +"(let-values(((s_350)" +"(car" +" s_242)))" +" s_350))" +"(()" +"(let-values(((s_351)" +"(cdr" +" s_242)))" +"(let-values(((s_352)" +"(if(1/syntax?" +" s_351)" +"(syntax-e$2" +" s_351)" +" s_351)))" "(values)))))" "(values" " datum68_0))))))" @@ -31924,15 +32154,15 @@ static const char *startup_source = " quot66_0" " datum67_0)))))" "(()" -"(let-values(((s_243)" +"(let-values(((s_246)" "(cdr" -" s_343)))" -"(let-values(((s_351)" +" s_345)))" +"(let-values(((s_353)" "(if(1/syntax?" -" s_243)" +" s_246)" "(syntax-e$2" -" s_243)" -" s_243)))" +" s_246)" +" s_246)))" "(values)))))" "(values" " quot64_0" @@ -31947,20 +32177,20 @@ static const char *startup_source = " quot59_1" " datum60_1)))" "(values #f #f #f #f)))))" -"(if(let-values(((or-part_221)" +"(if(let-values(((or-part_223)" "(if ok?_22" "(if(eq? 'quote quot59_0)" -"(let-values(((or-part_222)" +"(let-values(((or-part_224)" "(symbol?" " datum60_0)))" -"(if or-part_222" -" or-part_222" +"(if or-part_224" +" or-part_224" "(string?" " datum60_0)))" " #f)" " #f)))" -"(if or-part_221" -" or-part_221" +"(if or-part_223" +" or-part_223" "(null?(cdr(correlated-e e_40)))))" " 1" " #f)))" @@ -31971,134 +32201,134 @@ static const char *startup_source = " id:arg71_0" " thn72_0" " els73_0)" -"(let-values(((s_352) e_40))" -"(if(let-values(((s_353)" +"(let-values(((s_354) e_40))" +"(if(let-values(((s_355)" "(if(1/syntax?" -" s_352)" +" s_354)" "(syntax-e$2" -" s_352)" -" s_352)))" -"(if(pair? s_353)" -"(if(let-values(((s_354)" +" s_354)" +" s_354)))" +"(if(pair? s_355)" +"(if(let-values(((s_356)" "(car" -" s_353)))" -" #t)" -"(let-values(((s_355)" -"(cdr" -" s_353)))" -"(let-values(((s_356)" -"(if(1/syntax?" -" s_355)" -"(syntax-e$2" -" s_355)" " s_355)))" -"(if(pair? s_356)" -"(if(let-values(((s_357)" -"(car" -" s_356)))" -"(let-values(((s_248)" +" #t)" +"(let-values(((s_357)" +"(cdr" +" s_355)))" +"(let-values(((s_358)" "(if(1/syntax?" " s_357)" "(syntax-e$2" " s_357)" " s_357)))" -"(if(pair?" -" s_248)" -"(if(let-values(((s_358)" +"(if(pair? s_358)" +"(if(let-values(((s_359)" "(car" -" s_248)))" -"(let-values(((or-part_223)" -"(if(1/syntax?" -" s_358)" -"(symbol?" -"(syntax-e$2" -" s_358))" -" #f)))" -"(if or-part_223" -" or-part_223" -"(symbol?" -" s_358))))" -"(let-values(((s_359)" -"(cdr" -" s_248)))" -"(let-values(((s_360)" +" s_358)))" +"(let-values(((s_251)" "(if(1/syntax?" " s_359)" "(syntax-e$2" " s_359)" " s_359)))" "(if(pair?" -" s_360)" -"(if(let-values(((s_361)" +" s_251)" +"(if(let-values(((s_360)" "(car" -" s_360)))" -"(let-values(((or-part_224)" +" s_251)))" +"(let-values(((or-part_225)" +"(if(1/syntax?" +" s_360)" +"(symbol?" +"(syntax-e$2" +" s_360))" +" #f)))" +"(if or-part_225" +" or-part_225" +"(symbol?" +" s_360))))" +"(let-values(((s_361)" +"(cdr" +" s_251)))" +"(let-values(((s_362)" "(if(1/syntax?" " s_361)" -"(symbol?" -"(syntax-e$2" -" s_361))" -" #f)))" -"(if or-part_224" -" or-part_224" -"(symbol?" -" s_361))))" -"(let-values(((s_362)" -"(cdr" -" s_360)))" -"(let-values(((s_363)" -"(if(1/syntax?" -" s_362)" "(syntax-e$2" +" s_361)" +" s_361)))" +"(if(pair?" " s_362)" +"(if(let-values(((s_363)" +"(car" " s_362)))" -"(null?" -" s_363)))" -" #f)" -" #f)))" -" #f)" +"(let-values(((or-part_112)" +"(if(1/syntax?" +" s_363)" +"(symbol?" +"(syntax-e$2" +" s_363))" " #f)))" +"(if or-part_112" +" or-part_112" +"(symbol?" +" s_363))))" "(let-values(((s_364)" "(cdr" -" s_356)))" +" s_362)))" "(let-values(((s_365)" "(if(1/syntax?" " s_364)" "(syntax-e$2" " s_364)" " s_364)))" -"(if(pair?" -" s_365)" -"(if(let-values(((s_250)" -"(car" -" s_365)))" -" #t)" -"(let-values(((s_251)" -"(cdr" -" s_365)))" -"(let-values(((s_252)" -"(if(1/syntax?" -" s_251)" -"(syntax-e$2" -" s_251)" -" s_251)))" -"(if(pair?" -" s_252)" -"(if(let-values(((s_366)" -"(car" -" s_252)))" -" #t)" -"(let-values(((s_367)" -"(cdr" -" s_252)))" -"(let-values(((s_368)" -"(if(1/syntax?" -" s_367)" -"(syntax-e$2" -" s_367)" -" s_367)))" "(null?" -" s_368)))" +" s_365)))" +" #f)" +" #f)))" +" #f)" +" #f)))" +"(let-values(((s_366)" +"(cdr" +" s_358)))" +"(let-values(((s_367)" +"(if(1/syntax?" +" s_366)" +"(syntax-e$2" +" s_366)" +" s_366)))" +"(if(pair?" +" s_367)" +"(if(let-values(((s_253)" +"(car" +" s_367)))" +" #t)" +"(let-values(((s_254)" +"(cdr" +" s_367)))" +"(let-values(((s_255)" +"(if(1/syntax?" +" s_254)" +"(syntax-e$2" +" s_254)" +" s_254)))" +"(if(pair?" +" s_255)" +"(if(let-values(((s_368)" +"(car" +" s_255)))" +" #t)" +"(let-values(((s_369)" +"(cdr" +" s_255)))" +"(let-values(((s_370)" +"(if(1/syntax?" +" s_369)" +"(syntax-e$2" +" s_369)" +" s_369)))" +"(null?" +" s_370)))" " #f)" " #f)))" " #f)" @@ -32113,71 +32343,71 @@ static const char *startup_source = " id:arg71_1" " thn72_1" " els73_1)" -"(let-values(((s_256)" +"(let-values(((s_259)" "(if(1/syntax?" -" s_352)" +" s_354)" "(syntax-e$2" -" s_352)" -" s_352)))" +" s_354)" +" s_354)))" "(let-values(((_74_0)" -"(let-values(((s_369)" +"(let-values(((s_371)" "(car" -" s_256)))" -" s_369))" +" s_259)))" +" s_371))" "((id:rator75_0" " id:arg76_0" " thn77_0" " els78_0)" -"(let-values(((s_370)" -"(cdr" -" s_256)))" -"(let-values(((s_371)" -"(if(1/syntax?" -" s_370)" -"(syntax-e$2" -" s_370)" -" s_370)))" -"(let-values(((id:rator79_0" -" id:arg80_0)" "(let-values(((s_372)" -"(car" -" s_371)))" +"(cdr" +" s_259)))" "(let-values(((s_373)" "(if(1/syntax?" " s_372)" "(syntax-e$2" " s_372)" " s_372)))" -"(let-values(((id:rator83_0)" +"(let-values(((id:rator79_0" +" id:arg80_0)" "(let-values(((s_374)" "(car" " s_373)))" -" s_374))" -"((id:arg84_0)" "(let-values(((s_375)" -"(cdr" -" s_373)))" +"(if(1/syntax?" +" s_374)" +"(syntax-e$2" +" s_374)" +" s_374)))" +"(let-values(((id:rator83_0)" "(let-values(((s_376)" -"(if(1/syntax?" -" s_375)" -"(syntax-e$2" -" s_375)" -" s_375)))" -"(let-values(((id:arg85_0)" -"(let-values(((s_377)" "(car" -" s_376)))" -" s_377))" -"(()" -"(let-values(((s_378)" +" s_375)))" +" s_376))" +"((id:arg84_0)" +"(let-values(((s_377)" "(cdr" -" s_376)))" -"(let-values(((s_379)" +" s_375)))" +"(let-values(((s_378)" "(if(1/syntax?" -" s_378)" +" s_377)" "(syntax-e$2" -" s_378)" +" s_377)" +" s_377)))" +"(let-values(((id:arg85_0)" +"(let-values(((s_379)" +"(car" " s_378)))" +" s_379))" +"(()" +"(let-values(((s_380)" +"(cdr" +" s_378)))" +"(let-values(((s_381)" +"(if(1/syntax?" +" s_380)" +"(syntax-e$2" +" s_380)" +" s_380)))" "(values)))))" "(values" " id:arg85_0))))))" @@ -32186,36 +32416,21 @@ static const char *startup_source = " id:arg84_0)))))" "((thn81_0" " els82_0)" -"(let-values(((s_380)" -"(cdr" -" s_371)))" -"(let-values(((s_133)" -"(if(1/syntax?" -" s_380)" -"(syntax-e$2" -" s_380)" -" s_380)))" -"(let-values(((thn86_0)" -"(let-values(((s_381)" -"(car" -" s_133)))" -" s_381))" -"((els87_0)" "(let-values(((s_382)" "(cdr" -" s_133)))" +" s_373)))" "(let-values(((s_383)" "(if(1/syntax?" " s_382)" "(syntax-e$2" " s_382)" " s_382)))" -"(let-values(((els88_0)" +"(let-values(((thn86_0)" "(let-values(((s_384)" "(car" " s_383)))" " s_384))" -"(()" +"((els87_0)" "(let-values(((s_385)" "(cdr" " s_383)))" @@ -32225,6 +32440,21 @@ static const char *startup_source = "(syntax-e$2" " s_385)" " s_385)))" +"(let-values(((els88_0)" +"(let-values(((s_387)" +"(car" +" s_386)))" +" s_387))" +"(()" +"(let-values(((s_388)" +"(cdr" +" s_386)))" +"(let-values(((s_389)" +"(if(1/syntax?" +" s_388)" +"(syntax-e$2" +" s_388)" +" s_388)))" "(values)))))" "(values" " els88_0))))))" @@ -32253,13 +32483,13 @@ static const char *startup_source = "(if ok?_23" "(let-values()" "(let-values(((c2_2)" -"(let-values(((or-part_225)" +"(let-values(((or-part_226)" "(hash-ref" " locals_2" " id:rator70_0" " #f)))" -"(if or-part_225" -" or-part_225" +"(if or-part_226" +" or-part_226" "(lookup-defn" " defns_1" " id:rator70_0)))))" @@ -32287,44 +32517,14 @@ static const char *startup_source = " tst90_0" " thn91_0" " els92_0)" -"(let-values(((s_139) e_40))" -"(if(let-values(((s_387)" +"(let-values(((s_390) e_40))" +"(if(let-values(((s_391)" "(if(1/syntax?" -" s_139)" -"(syntax-e$2" -" s_139)" -" s_139)))" -"(if(pair? s_387)" -"(if(let-values(((s_388)" -"(car" -" s_387)))" -" #t)" -"(let-values(((s_389)" -"(cdr" -" s_387)))" -"(let-values(((s_390)" -"(if(1/syntax?" -" s_389)" -"(syntax-e$2" -" s_389)" -" s_389)))" -"(if(pair?" " s_390)" -"(if(let-values(((s_140)" -"(car" -" s_390)))" -" #t)" -"(let-values(((s_141)" -"(cdr" -" s_390)))" -"(let-values(((s_391)" -"(if(1/syntax?" -" s_141)" "(syntax-e$2" -" s_141)" -" s_141)))" -"(if(pair?" -" s_391)" +" s_390)" +" s_390)))" +"(if(pair? s_391)" "(if(let-values(((s_392)" "(car" " s_391)))" @@ -32332,29 +32532,59 @@ static const char *startup_source = "(let-values(((s_393)" "(cdr" " s_391)))" -"(let-values(((s_394)" +"(let-values(((s_134)" "(if(1/syntax?" " s_393)" "(syntax-e$2" " s_393)" " s_393)))" "(if(pair?" -" s_394)" -"(if(let-values(((s_395)" +" s_134)" +"(if(let-values(((s_394)" "(car" -" s_394)))" +" s_134)))" " #t)" -"(let-values(((s_396)" +"(let-values(((s_395)" "(cdr" -" s_394)))" -"(let-values(((s_397)" +" s_134)))" +"(let-values(((s_396)" "(if(1/syntax?" -" s_396)" +" s_395)" "(syntax-e$2" +" s_395)" +" s_395)))" +"(if(pair?" " s_396)" +"(if(let-values(((s_397)" +"(car" " s_396)))" +" #t)" +"(let-values(((s_398)" +"(cdr" +" s_396)))" +"(let-values(((s_399)" +"(if(1/syntax?" +" s_398)" +"(syntax-e$2" +" s_398)" +" s_398)))" +"(if(pair?" +" s_399)" +"(if(let-values(((s_135)" +"(car" +" s_399)))" +" #t)" +"(let-values(((s_400)" +"(cdr" +" s_399)))" +"(let-values(((s_401)" +"(if(1/syntax?" +" s_400)" +"(syntax-e$2" +" s_400)" +" s_400)))" "(null?" -" s_397)))" +" s_401)))" " #f)" " #f)))" " #f)" @@ -32368,60 +32598,60 @@ static const char *startup_source = " tst90_1" " thn91_1" " els92_1)" -"(let-values(((s_398)" +"(let-values(((s_402)" "(if(1/syntax?" -" s_139)" +" s_390)" "(syntax-e$2" -" s_139)" -" s_139)))" +" s_390)" +" s_390)))" "(let-values(((_93_0)" -"(let-values(((s_399)" +"(let-values(((s_403)" "(car" -" s_398)))" -" s_399))" +" s_402)))" +" s_403))" "((tst94_0" " thn95_0" " els96_0)" -"(let-values(((s_400)" +"(let-values(((s_404)" "(cdr" -" s_398)))" -"(let-values(((s_401)" +" s_402)))" +"(let-values(((s_138)" "(if(1/syntax?" -" s_400)" +" s_404)" "(syntax-e$2" -" s_400)" -" s_400)))" +" s_404)" +" s_404)))" "(let-values(((tst97_0)" -"(let-values(((s_402)" +"(let-values(((s_139)" "(car" -" s_401)))" -" s_402))" +" s_138)))" +" s_139))" "((thn98_0" " els99_0)" -"(let-values(((s_403)" -"(cdr" -" s_401)))" -"(let-values(((s_404)" -"(if(1/syntax?" -" s_403)" -"(syntax-e$2" -" s_403)" -" s_403)))" -"(let-values(((thn100_0)" "(let-values(((s_405)" -"(car" -" s_404)))" -" s_405))" -"((els101_0)" -"(let-values(((s_406)" "(cdr" -" s_404)))" +" s_138)))" +"(let-values(((s_406)" +"(if(1/syntax?" +" s_405)" +"(syntax-e$2" +" s_405)" +" s_405)))" +"(let-values(((thn100_0)" +"(let-values(((s_140)" +"(car" +" s_406)))" +" s_140))" +"((els101_0)" +"(let-values(((s_141)" +"(cdr" +" s_406)))" "(let-values(((s_407)" "(if(1/syntax?" -" s_406)" +" s_141)" "(syntax-e$2" -" s_406)" -" s_406)))" +" s_141)" +" s_141)))" "(let-values(((els102_0)" "(let-values(((s_408)" "(car" @@ -32481,43 +32711,43 @@ static const char *startup_source = " locals_0)))" "(not" "(if actual-results_0" -"(let-values(((or-part_226)(not expected-results_0)))" -"(if or-part_226 or-part_226(= actual-results_0 expected-results_0)))" +"(let-values(((or-part_227)(not expected-results_0)))" +"(if or-part_227 or-part_227(= actual-results_0 expected-results_0)))" " #f)))))))))))))" "(define-values" "(satisfies?)" "(lambda(e_64 key_54 defns_2 locals_3)" "(begin" "(let-values(((d_31)" -"(let-values(((or-part_124)(hash-ref locals_3 e_64 #f)))" -"(if or-part_124 or-part_124(lookup-defn defns_2 e_64)))))" +"(let-values(((or-part_228)(hash-ref locals_3 e_64 #f)))" +"(if or-part_228 or-part_228(lookup-defn defns_2 e_64)))))" "(if d_31(if(known-satisfies? d_31)(eq? key_54(known-satisfies-predicate-key d_31)) #f) #f)))))" "(define-values" "(add-binding-info)" "(lambda(locals_4 idss_0 rhss_0)" "(begin" -"(let-values(((lst_125) idss_0)((lst_233) rhss_0))" +"(let-values(((lst_126) idss_0)((lst_234) rhss_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_125)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_233)))" -"((letrec-values(((for-loop_68)" -"(lambda(locals_5 lst_234 lst_235)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_126)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_234)))" +"((letrec-values(((for-loop_218)" +"(lambda(locals_5 lst_235 lst_236)" "(begin" " 'for-loop" -"(if(if(pair? lst_234)(pair? lst_235) #f)" -"(let-values(((ids_14)(unsafe-car lst_234))" -"((rest_124)(unsafe-cdr lst_234))" -"((rhs_10)(unsafe-car lst_235))" -"((rest_125)(unsafe-cdr lst_235)))" +"(if(if(pair? lst_235)(pair? lst_236) #f)" +"(let-values(((ids_14)(unsafe-car lst_235))" +"((rest_124)(unsafe-cdr lst_235))" +"((rhs_10)(unsafe-car lst_236))" +"((rest_125)(unsafe-cdr lst_236)))" "(let-values(((locals_6)" "(let-values(((locals_7) locals_5))" "(let-values(((locals_8)" "(let-values()" -"((letrec-values(((loop_90)" +"((letrec-values(((loop_93)" "(lambda(rhs_11)" "(begin" " 'loop" -"(let-values(((tmp_26)" +"(let-values(((tmp_27)" "(if(pair?" "(correlated-e" " rhs_11))" @@ -32527,16 +32757,16 @@ static const char *startup_source = " rhs_11)))" " #f)))" "(if(equal?" -" tmp_26" +" tmp_27" " 'make-struct-type)" "(let-values()" "(let-values(((field-count_0)" "(extract-struct-field-count-lower-bound" " rhs_11)))" -"(let-values(((lst_236)" +"(let-values(((lst_237)" "(correlated->list" " ids_14))" -"((lst_237)" +"((lst_238)" " '(struct-type" " constructor" " predicate" @@ -32548,36 +32778,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_236)))" +" lst_237)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_237)))" +" lst_238)))" "((letrec-values(((for-loop_219)" "(lambda(locals_9" -" lst_238" -" lst_239)" +" lst_239" +" lst_240)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_238)" -"(pair?" " lst_239)" +"(pair?" +" lst_240)" " #f)" -"(let-values(((id_51)" -"(unsafe-car" -" lst_238))" -"((rest_126)" -"(unsafe-cdr" -" lst_238))" -"((type_0)" +"(let-values(((id_52)" "(unsafe-car" " lst_239))" +"((rest_126)" +"(unsafe-cdr" +" lst_239))" +"((type_0)" +"(unsafe-car" +" lst_240))" "((rest_127)" "(unsafe-cdr" -" lst_239)))" +" lst_240)))" "(let-values(((locals_10)" "(let-values(((locals_11)" " locals_9))" @@ -32586,7 +32816,7 @@ static const char *startup_source = "(hash-set" " locals_11" "(correlated-e" -" id_51)" +" id_52)" "(known-struct-op8.1" " type_0" " field-count_0)))))" @@ -32602,23 +32832,23 @@ static const char *startup_source = " locals_9)))))" " for-loop_219)" " locals_7" -" lst_236" -" lst_237)))))" +" lst_237" +" lst_238)))))" "(if(equal?" -" tmp_26" +" tmp_27" " 'let-values)" "(let-values()" "(if(null?" "(correlated-e" "(correlated-cadr" " rhs_11)))" -"(loop_90" +"(loop_93" "(caddr" "(correlated->list" " rhs_11)))" -"(loop_90 #f)))" +"(loop_93 #f)))" "(let-values()" -"(let-values(((lst_240)" +"(let-values(((lst_241)" "(correlated->list" " ids_14)))" "(begin" @@ -32627,20 +32857,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_240)))" +" lst_241)))" "((letrec-values(((for-loop_220)" "(lambda(locals_13" -" lst_241)" +" lst_242)" "(begin" " 'for-loop" "(if(pair?" -" lst_241)" -"(let-values(((id_52)" +" lst_242)" +"(let-values(((id_53)" "(unsafe-car" -" lst_241))" +" lst_242))" "((rest_128)" "(unsafe-cdr" -" lst_241)))" +" lst_242)))" "(let-values(((locals_14)" "(let-values(((locals_15)" " locals_13))" @@ -32649,7 +32879,7 @@ static const char *startup_source = "(hash-set" " locals_15" "(correlated-e" -" id_52)" +" id_53)" " #t))))" "(values" " locals_16)))))" @@ -32662,87 +32892,87 @@ static const char *startup_source = " locals_13)))))" " for-loop_220)" " locals_7" -" lst_240)))))))))))" -" loop_90)" +" lst_241)))))))))))" +" loop_93)" " rhs_10))))" "(values locals_8)))))" -"(if(not #f)(for-loop_68 locals_6 rest_124 rest_125) locals_6)))" +"(if(not #f)(for-loop_218 locals_6 rest_124 rest_125) locals_6)))" " locals_5)))))" -" for-loop_68)" +" for-loop_218)" " locals_4" -" lst_125" -" lst_233))))))" +" lst_126" +" lst_234))))))" "(define-values" "(ok-make-struct-type-property?)" "(lambda(e_65 defns_3)" "(begin" "(let-values(((l_58)(correlated->list e_65)))" "(if(<= 2(length l_58) 5)" -"(let-values(((lst_242)(cdr l_58))" -"((lst_243)" +"(let-values(((lst_243)(cdr l_58))" +"((lst_244)" "(list" -"(lambda(v_165)(quoted? symbol? v_165))" -"(lambda(v_166)(is-lambda? v_166 2 defns_3))" -"(lambda(v_167)(ok-make-struct-type-property-super? v_167 defns_3))" -"(lambda(v_168)" -"(let-values(((v103_0) v_168)((temp104_0) 1)((defns105_0) defns_3))" +"(lambda(v_166)(quoted? symbol? v_166))" +"(lambda(v_167)(is-lambda? v_167 2 defns_3))" +"(lambda(v_168)(ok-make-struct-type-property-super? v_168 defns_3))" +"(lambda(v_169)" +"(let-values(((v103_0) v_169)((temp104_0) 1)((defns105_0) defns_3))" "(any-side-effects?9.1 defns105_0 #t #f #f #f #f v103_0 temp104_0))))))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_242)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_243)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_244)))" "((letrec-values(((for-loop_221)" -"(lambda(result_100 lst_244 lst_245)" +"(lambda(result_100 lst_245 lst_246)" "(begin" " 'for-loop" -"(if(if(pair? lst_244)(pair? lst_245) #f)" -"(let-values(((arg_0)(unsafe-car lst_244))" -"((rest_129)(unsafe-cdr lst_244))" -"((pred_1)(unsafe-car lst_245))" -"((rest_130)(unsafe-cdr lst_245)))" +"(if(if(pair? lst_245)(pair? lst_246) #f)" +"(let-values(((arg_0)(unsafe-car lst_245))" +"((rest_129)(unsafe-cdr lst_245))" +"((pred_1)(unsafe-car lst_246))" +"((rest_130)(unsafe-cdr lst_246)))" "(let-values(((result_101)" "(let-values()" "(let-values(((result_102)" "(let-values()(let-values()(pred_1 arg_0)))))" "(values result_102)))))" -"(if(if(not((lambda x_61(not result_101)) arg_0))" -"(if(not((lambda x_62(not result_101)) pred_1))(not #f) #f)" +"(if(if(not((lambda x_62(not result_101)) arg_0))" +"(if(not((lambda x_63(not result_101)) pred_1))(not #f) #f)" " #f)" "(for-loop_221 result_101 rest_129 rest_130)" " result_101)))" " result_100)))))" " for-loop_221)" " #t" -" lst_242" -" lst_243)))" +" lst_243" +" lst_244)))" " #f)))))" "(define-values" "(ok-make-struct-type-property-super?)" -"(lambda(v_169 defns_4)" +"(lambda(v_170 defns_4)" "(begin" -"(let-values(((or-part_227)(quoted? null? v_169)))" -"(if or-part_227" -" or-part_227" -"(let-values(((or-part_228)(eq? 'null(correlated-e v_169))))" -"(if or-part_228" -" or-part_228" -"(if(pair?(correlated-e v_169))" -"(if(eq?(correlated-e(car(correlated-e v_169))) 'list)" -"(if(let-values(((lst_246)(cdr(correlated->list v_169))))" +"(let-values(((or-part_229)(quoted? null? v_170)))" +"(if or-part_229" +" or-part_229" +"(let-values(((or-part_230)(eq? 'null(correlated-e v_170))))" +"(if or-part_230" +" or-part_230" +"(if(pair?(correlated-e v_170))" +"(if(eq?(correlated-e(car(correlated-e v_170))) 'list)" +"(if(let-values(((lst_247)(cdr(correlated->list v_170))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_246)))" +"(let-values()(check-list lst_247)))" "((letrec-values(((for-loop_222)" -"(lambda(result_103 lst_247)" +"(lambda(result_103 lst_248)" "(begin" " 'for-loop" -"(if(pair? lst_247)" -"(let-values(((prop+val_0)(unsafe-car lst_247))" -"((rest_131)(unsafe-cdr lst_247)))" -"(let-values(((result_45)" -"(let-values()" +"(if(pair? lst_248)" +"(let-values(((prop+val_0)(unsafe-car lst_248))" +"((rest_131)(unsafe-cdr lst_248)))" "(let-values(((result_104)" "(let-values()" +"(let-values(((result_105)" +"(let-values()" "(let-values()" "(if(=" "(correlated-length" @@ -32755,7 +32985,7 @@ static const char *startup_source = " 'cons" "(correlated-e" "(car prop+val_1)))" -"(if(let-values(((or-part_229)" +"(if(let-values(((or-part_231)" "(memq" "(correlated-e" "(list-ref" @@ -32764,8 +32994,8 @@ static const char *startup_source = " '(prop:procedure" " prop:equal+hash" " prop:custom-write))))" -"(if or-part_229" -" or-part_229" +"(if or-part_231" +" or-part_231" "(known-property?" "(lookup-defn" " defns_4" @@ -32794,36 +33024,36 @@ static const char *startup_source = " #f)" " #f))" " #f)))))" -"(values result_104)))))" -"(if(if(not((lambda x_63(not result_45)) prop+val_0))" +"(values result_105)))))" +"(if(if(not((lambda x_64(not result_104)) prop+val_0))" "(not #f)" " #f)" -"(for-loop_222 result_45 rest_131)" -" result_45)))" +"(for-loop_222 result_104 rest_131)" +" result_104)))" " result_103)))))" " for-loop_222)" " #t" -" lst_246)))" +" lst_247)))" "(=" -"(sub1(correlated-length v_169))" +"(sub1(correlated-length v_170))" "(set-count" -"(let-values(((lst_248)(cdr(correlated->list v_169))))" +"(let-values(((lst_249)(cdr(correlated->list v_170))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_248)))" +"(let-values()(check-list lst_249)))" "((letrec-values(((for-loop_223)" -"(lambda(table_177 lst_249)" +"(lambda(table_177 lst_250)" "(begin" " 'for-loop" -"(if(pair? lst_249)" -"(let-values(((prop+val_2)(unsafe-car lst_249))" -"((rest_132)(unsafe-cdr lst_249)))" +"(if(pair? lst_250)" +"(let-values(((prop+val_2)(unsafe-car lst_250))" +"((rest_132)(unsafe-cdr lst_250)))" "(let-values(((table_178)" "(let-values(((table_179) table_177))" "(let-values(((table_180)" "(let-values()" -"(let-values(((key_64 val_57)" +"(let-values(((key_64 val_58)" "(let-values()" "(values" "(let-values()" @@ -32836,13 +33066,13 @@ static const char *startup_source = "(hash-set" " table_179" " key_64" -" val_57)))))" +" val_58)))))" "(values table_180)))))" "(if(not #f)(for-loop_223 table_178 rest_132) table_178)))" " table_177)))))" " for-loop_223)" " '#hash()" -" lst_248)))))" +" lst_249)))))" " #f)" " #f)" " #f))))))))" @@ -32858,21 +33088,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_230)(if(>(length l_59) 9)(list-ref l_59 9) #f)))" -"(if or-part_230 or-part_230 'null))))" +"(let-values(((or-part_232)(if(>(length l_59) 9)(list-ref l_59 9) #f)))" +"(if or-part_232 or-part_232 'null))))" "(let-values(((super-expr_0)(if(>(length l_59) 2)(list-ref l_59 2) #f)))" "(if(>=(length l_59) 5)" "(if(<=(length l_59) 12)" -"(let-values(((lst_250)(cdr l_59))" -"((lst_251)" +"(let-values(((lst_251)(cdr l_59))" +"((lst_252)" "(list" -"(lambda(v_170)(quoted? symbol? v_170))" -"(lambda(v_171)(super-ok? v_171 defns_5))" -"(lambda(v_172)(field-count-expr-to-field-count v_172))" +"(lambda(v_171)(quoted? symbol? v_171))" +"(lambda(v_172)(super-ok? v_172 defns_5))" "(lambda(v_173)(field-count-expr-to-field-count v_173))" -"(lambda(v_174)" +"(lambda(v_174)(field-count-expr-to-field-count v_174))" +"(lambda(v_175)" "(not" -"(let-values(((v109_0) v_174)" +"(let-values(((v109_0) v_175)" "((temp110_0) 1)" "((ready-variable?111_0) ready-variable?_1)" "((defns112_0) defns_5))" @@ -32885,54 +33115,54 @@ static const char *startup_source = " #t" " v109_0" " temp110_0))))" -"(lambda(v_175)" -"(known-good-struct-properties? v_175 immutables-expr_0 super-expr_0 defns_5))" -"(lambda(v_176)(inspector-or-false? v_176))" -"(lambda(v_177)(procedure-spec? v_177 num-fields_0))" -"(lambda(v_178)(immutables-ok? v_178 init-field-count-expr_0)))))" +"(lambda(v_176)" +"(known-good-struct-properties? v_176 immutables-expr_0 super-expr_0 defns_5))" +"(lambda(v_177)(inspector-or-false? v_177))" +"(lambda(v_178)(procedure-spec? v_178 num-fields_0))" +"(lambda(v_179)(immutables-ok? v_179 init-field-count-expr_0)))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_250)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_251)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_252)))" "((letrec-values(((for-loop_224)" -"(lambda(result_105 lst_252 lst_253)" +"(lambda(result_106 lst_253 lst_254)" "(begin" " 'for-loop" -"(if(if(pair? lst_252)(pair? lst_253) #f)" -"(let-values(((arg_1)(unsafe-car lst_252))" -"((rest_133)(unsafe-cdr lst_252))" -"((pred_2)(unsafe-car lst_253))" -"((rest_134)(unsafe-cdr lst_253)))" -"(let-values(((result_106)" -"(let-values()" +"(if(if(pair? lst_253)(pair? lst_254) #f)" +"(let-values(((arg_1)(unsafe-car lst_253))" +"((rest_133)(unsafe-cdr lst_253))" +"((pred_2)(unsafe-car lst_254))" +"((rest_134)(unsafe-cdr lst_254)))" "(let-values(((result_107)" "(let-values()" +"(let-values(((result_108)" +"(let-values()" "(let-values()(pred_2 arg_1)))))" -"(values result_107)))))" -"(if(if(not((lambda x_64(not result_106)) arg_1))" -"(if(not((lambda x_65(not result_106)) pred_2))" +"(values result_108)))))" +"(if(if(not((lambda x_65(not result_107)) arg_1))" +"(if(not((lambda x_66(not result_107)) pred_2))" "(not #f)" " #f)" " #f)" -"(for-loop_224 result_106 rest_133 rest_134)" -" result_106)))" -" result_105)))))" +"(for-loop_224 result_107 rest_133 rest_134)" +" result_107)))" +" result_106)))))" " for-loop_224)" " #t" -" lst_250" -" lst_251)))" +" lst_251" +" lst_252)))" " #f)" " #f))))))))))" "(define-values" "(super-ok?)" "(lambda(e_67 defns_6)" "(begin" -"(let-values(((or-part_231)(quoted? false? e_67)))" -"(if or-part_231" -" or-part_231" +"(let-values(((or-part_233)(quoted? false? e_67)))" +"(if or-part_233" +" or-part_233" "(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" @@ -32943,64 +33173,64 @@ static const char *startup_source = "(+(field-count-expr-to-field-count(list-ref l_60 3))(field-count-expr-to-field-count(list-ref l_60 4)))))))" "(define-values" "(quoted?)" -"(lambda(val?_0 v_179)" +"(lambda(val?_0 v_180)" "(begin" -"(let-values(((or-part_232)" -"(if(pair?(correlated-e v_179))" -"(if(eq?(correlated-e(car(correlated-e v_179))) 'quote)" -"(val?_0(correlated-e(correlated-cadr v_179)))" +"(let-values(((or-part_234)" +"(if(pair?(correlated-e v_180))" +"(if(eq?(correlated-e(car(correlated-e v_180))) 'quote)" +"(val?_0(correlated-e(correlated-cadr v_180)))" " #f)" " #f)))" -"(if or-part_232 or-part_232(val?_0(correlated-e v_179)))))))" +"(if or-part_234 or-part_234(val?_0(correlated-e v_180)))))))" "(define-values" "(quoted-value)" -"(lambda(v_180)" -"(begin(if(pair?(correlated-e v_180))(correlated-e(correlated-cadr v_180))(correlated-e v_180)))))" -"(define-values(false?)(lambda(v_181)(begin(eq?(correlated-e v_181) #f))))" +"(lambda(v_181)" +"(begin(if(pair?(correlated-e v_181))(correlated-e(correlated-cadr v_181))(correlated-e v_181)))))" +"(define-values(false?)(lambda(v_182)(begin(eq?(correlated-e v_182) #f))))" "(define-values" "(field-count-expr-to-field-count)" -"(lambda(v_182)(begin(if(quoted? exact-nonnegative-integer? v_182)(quoted-value v_182) #f))))" +"(lambda(v_183)(begin(if(quoted? exact-nonnegative-integer? v_183)(quoted-value v_183) #f))))" "(define-values" "(inspector-or-false?)" -"(lambda(v_183)" +"(lambda(v_184)" "(begin" -"(let-values(((or-part_233)(quoted? false? v_183)))" -"(if or-part_233" -" or-part_233" -"(let-values(((or-part_234)(if(quoted? symbol? v_183)(eq? 'prefab(quoted-value v_183)) #f)))" -"(if or-part_234" -" or-part_234" -"(if(= 1(correlated-length v_183))" -"(eq? 'current-inspector(correlated-e(car(correlated-e v_183))))" +"(let-values(((or-part_235)(quoted? false? v_184)))" +"(if or-part_235" +" or-part_235" +"(let-values(((or-part_236)(if(quoted? symbol? v_184)(eq? 'prefab(quoted-value v_184)) #f)))" +"(if or-part_236" +" or-part_236" +"(if(= 1(correlated-length v_184))" +"(eq? 'current-inspector(correlated-e(car(correlated-e v_184))))" " #f))))))))" "(define-values" "(known-good-struct-properties?)" -"(lambda(v_184 immutables-expr_1 super-expr_1 defns_7)" +"(lambda(v_185 immutables-expr_1 super-expr_1 defns_7)" "(begin" -"(let-values(((or-part_235)(quoted? null? v_184)))" -"(if or-part_235" -" or-part_235" -"(let-values(((or-part_236)(eq? 'null(correlated-e v_184))))" -"(if or-part_236" -" or-part_236" -"(if(pair?(correlated-e v_184))" -"(if(eq?(correlated-e(car(correlated-e v_184))) 'list)" -"(if(let-values(((lst_254)(cdr(correlated->list v_184))))" +"(let-values(((or-part_237)(quoted? null? v_185)))" +"(if or-part_237" +" or-part_237" +"(let-values(((or-part_238)(eq? 'null(correlated-e v_185))))" +"(if or-part_238" +" or-part_238" +"(if(pair?(correlated-e v_185))" +"(if(eq?(correlated-e(car(correlated-e v_185))) 'list)" +"(if(let-values(((lst_255)(cdr(correlated->list v_185))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_254)))" +"(let-values()(check-list lst_255)))" "((letrec-values(((for-loop_225)" -"(lambda(result_108 lst_255)" +"(lambda(result_109 lst_256)" "(begin" " 'for-loop" -"(if(pair? lst_255)" -"(let-values(((prop+val_3)(unsafe-car lst_255))" -"((rest_135)(unsafe-cdr lst_255)))" -"(let-values(((result_109)" -"(let-values()" +"(if(pair? lst_256)" +"(let-values(((prop+val_3)(unsafe-car lst_256))" +"((rest_135)(unsafe-cdr lst_256)))" "(let-values(((result_110)" "(let-values()" +"(let-values(((result_111)" +"(let-values()" "(let-values()" "(if(=" "(correlated-length" @@ -33021,36 +33251,36 @@ static const char *startup_source = " defns_7)" " #f))" " #f)))))" -"(values result_110)))))" -"(if(if(not((lambda x_66(not result_109)) prop+val_3))" +"(values result_111)))))" +"(if(if(not((lambda x_67(not result_110)) prop+val_3))" "(not #f)" " #f)" -"(for-loop_225 result_109 rest_135)" -" result_109)))" -" result_108)))))" +"(for-loop_225 result_110 rest_135)" +" result_110)))" +" result_109)))))" " for-loop_225)" " #t" -" lst_254)))" +" lst_255)))" "(=" -"(sub1(correlated-length v_184))" +"(sub1(correlated-length v_185))" "(set-count" -"(let-values(((lst_256)(cdr(correlated->list v_184))))" +"(let-values(((lst_257)(cdr(correlated->list v_185))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_256)))" +"(let-values()(check-list lst_257)))" "((letrec-values(((for-loop_226)" -"(lambda(table_181 lst_257)" +"(lambda(table_181 lst_258)" "(begin" " 'for-loop" -"(if(pair? lst_257)" -"(let-values(((prop+val_5)(unsafe-car lst_257))" -"((rest_136)(unsafe-cdr lst_257)))" +"(if(pair? lst_258)" +"(let-values(((prop+val_5)(unsafe-car lst_258))" +"((rest_136)(unsafe-cdr lst_258)))" "(let-values(((table_182)" "(let-values(((table_183) table_181))" "(let-values(((table_184)" "(let-values()" -"(let-values(((key_65 val_58)" +"(let-values(((key_65 val_59)" "(let-values()" "(values" "(let-values()" @@ -33063,13 +33293,13 @@ static const char *startup_source = "(hash-set" " table_183" " key_65" -" val_58)))))" +" val_59)))))" "(values table_184)))))" "(if(not #f)(for-loop_226 table_182 rest_136) table_182)))" " table_181)))))" " for-loop_226)" " '#hash()" -" lst_256)))))" +" lst_257)))))" " #f)" " #f)" " #f))))))))" @@ -33078,18 +33308,18 @@ static const char *startup_source = "(lambda(prop-expr_0 val-expr_0 immutables-expr_2 super-expr_2 defns_8)" "(begin" "(let-values(((prop-name_0)(correlated-e prop-expr_0)))" -"(let-values(((tmp_27) prop-name_0))" -"(if(equal? tmp_27 'prop:evt)" +"(let-values(((tmp_28) prop-name_0))" +"(if(equal? tmp_28 'prop:evt)" "(let-values()" -"(let-values(((or-part_237)(is-lambda? val-expr_0 1 defns_8)))" -"(if or-part_237 or-part_237(immutable-field? val-expr_0 immutables-expr_2))))" -"(if(equal? tmp_27 'prop:procedure)" +"(let-values(((or-part_239)(is-lambda? val-expr_0 1 defns_8)))" +"(if or-part_239 or-part_239(immutable-field? val-expr_0 immutables-expr_2))))" +"(if(equal? tmp_28 'prop:procedure)" "(let-values()" -"(let-values(((or-part_238)(is-lambda? val-expr_0 1 defns_8)))" -"(if or-part_238 or-part_238(immutable-field? val-expr_0 immutables-expr_2))))" -"(if(equal? tmp_27 'prop:custom-write)" +"(let-values(((or-part_240)(is-lambda? val-expr_0 1 defns_8)))" +"(if or-part_240 or-part_240(immutable-field? val-expr_0 immutables-expr_2))))" +"(if(equal? tmp_28 'prop:custom-write)" "(let-values()(is-lambda? val-expr_0 3 defns_8))" -"(if(equal? tmp_27 'prop:equal+hash)" +"(if(equal? tmp_28 'prop:equal+hash)" "(let-values()" "(let-values(((l_61)(correlated->list val-expr_0)))" "(if(eq? 'list(car l_61))" @@ -33097,16 +33327,16 @@ static const char *startup_source = "(if(is-lambda?(list-ref l_61 2) 2 defns_8)(is-lambda?(list-ref l_61 3) 2 defns_8) #f)" " #f)" " #f)))" -"(if(if(equal? tmp_27 'prop:method-arity-error) #t(equal? tmp_27 'prop:incomplete-arity))" +"(if(if(equal? tmp_28 'prop:method-arity-error) #t(equal? tmp_28 'prop:incomplete-arity))" "(let-values()" "(not" "(let-values(((val-expr113_0) val-expr_0)((temp114_0) 1)((defns115_0) defns_8))" "(any-side-effects?9.1 defns115_0 #t #f #f #f #f val-expr113_0 temp114_0))))" -"(if(equal? tmp_27 'prop:impersonator-of)" +"(if(equal? tmp_28 'prop:impersonator-of)" "(let-values()(is-lambda? val-expr_0 1 defns_8))" -"(if(equal? tmp_27 'prop:arity-string)" +"(if(equal? tmp_28 'prop:arity-string)" "(let-values()(is-lambda? val-expr_0 1 defns_8))" -"(if(equal? tmp_27 'prop:checked-procedure)" +"(if(equal? tmp_28 'prop:checked-procedure)" "(let-values()(if(quoted? false? super-expr_2)(immutable-field? 1 immutables-expr_2) #f))" "(let-values()" "(let-values(((o_1)(lookup-defn defns_8 prop-name_0)))" @@ -33122,74 +33352,74 @@ 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_239)" +"(let-values(((or-part_241)" "(if lookup_0" "(if(known-function? lookup_0)" -"(let-values(((or-part_240)(not arity_0)))" -"(if or-part_240 or-part_240(arity-includes?(known-function-arity lookup_0) arity_0)))" +"(let-values(((or-part_242)(not arity_0)))" +"(if or-part_242 or-part_242(arity-includes?(known-function-arity lookup_0) arity_0)))" " #f)" " #f)))" -"(if or-part_239" -" or-part_239" -"(let-values(((or-part_241)" -"(if(pair?(correlated-e expr_9))" -"(if(eq? 'case-lambda(car(correlated-e expr_9)))(not arity_0) #f)" -" #f)))" "(if or-part_241" " or-part_241" +"(let-values(((or-part_243)" +"(if(pair?(correlated-e expr_9))" +"(if(eq? 'case-lambda(car(correlated-e expr_9)))(not arity_0) #f)" +" #f)))" +"(if or-part_243" +" or-part_243" "(if(pair?(correlated-e expr_9))" "(if(eq? 'lambda(car(correlated-e expr_9)))" -"(let-values(((or-part_242)(not arity_0)))" -"(if or-part_242" -" or-part_242" -"((letrec-values(((loop_91)" +"(let-values(((or-part_244)(not arity_0)))" +"(if or-part_244" +" or-part_244" +"((letrec-values(((loop_94)" "(lambda(args_4 arity_1)" "(begin" " 'loop" "(if(correlated? args_4)" -"(let-values()(loop_91(correlated-e args_4) arity_1))" +"(let-values()(loop_94(correlated-e args_4) arity_1))" "(if(null? args_4)" "(let-values()(zero? arity_1))" "(if(pair? args_4)" -"(let-values()(loop_91(cdr args_4)(sub1 arity_1)))" +"(let-values()(loop_94(cdr args_4)(sub1 arity_1)))" "(let-values()(not(negative? arity_1))))))))))" -" loop_91)" +" loop_94)" "(cadr(correlated->list expr_9))" " arity_0)))" " #f)" " #f)))))))))" "(define-values" "(arity-includes?)" -"(lambda(a_40 n_25)" +"(lambda(a_40 n_26)" "(begin" -"(let-values(((or-part_243)(equal? a_40 n_25)))" -"(if or-part_243" -" or-part_243" +"(let-values(((or-part_245)(equal? a_40 n_26)))" +"(if or-part_245" +" or-part_245" "(if(list? a_40)" -"(let-values(((lst_258) a_40))" +"(let-values(((lst_259) a_40))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_258)))" +"(let-values()(check-list lst_259)))" "((letrec-values(((for-loop_227)" -"(lambda(result_111 lst_259)" +"(lambda(result_112 lst_260)" "(begin" " 'for-loop" -"(if(pair? lst_259)" -"(let-values(((a_41)(unsafe-car lst_259))((rest_137)(unsafe-cdr lst_259)))" -"(let-values(((result_112)" -"(let-values()" +"(if(pair? lst_260)" +"(let-values(((a_41)(unsafe-car lst_260))((rest_137)(unsafe-cdr lst_260)))" "(let-values(((result_113)" "(let-values()" -"(let-values()(equal? a_41 n_25)))))" -"(values result_113)))))" -"(if(if(not((lambda x_67 result_112) a_41))(not #f) #f)" -"(for-loop_227 result_112 rest_137)" -" result_112)))" -" result_111)))))" +"(let-values(((result_114)" +"(let-values()" +"(let-values()(equal? a_41 n_26)))))" +"(values result_114)))))" +"(if(if(not((lambda x_68 result_113) a_41))(not #f) #f)" +"(for-loop_227 result_113 rest_137)" +" result_113)))" +" result_112)))))" " for-loop_227)" " #f" -" lst_258)))" +" lst_259)))" " #f))))))" "(define-values" "(immutable-field?)" @@ -33202,31 +33432,31 @@ static const char *startup_source = "(immutables-expr-to-immutables)" "(lambda(e_69 fail-v_0)" "(begin" -"(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(((tmp_29)(if(pair?(correlated-e e_69))(correlated-e(car(correlated-e e_69))) #f)))" +"(if(equal? tmp_29 'quote)" "(let-values()" -"(let-values(((v_185)(correlated-cadr e_69)))" -"(let-values(((or-part_244)" -"(if(correlated-length v_185)" -"(let-values(((l_62)(map2 correlated-e(correlated->list v_185))))" +"(let-values(((v_186)(correlated-cadr e_69)))" +"(let-values(((or-part_246)" +"(if(correlated-length v_186)" +"(let-values(((l_62)(map2 correlated-e(correlated->list v_186))))" "(if(andmap2 exact-nonnegative-integer? l_62)" "(if(=(length l_62)(set-count(list->set l_62))) l_62 #f)" " #f))" " #f)))" -"(if or-part_244 or-part_244 fail-v_0))))" +"(if or-part_246 or-part_246 fail-v_0))))" "(let-values() fail-v_0))))))" "(define-values" "(procedure-spec?)" "(lambda(e_70 field-count_1)" "(begin" -"(let-values(((or-part_245)(quoted? false? e_70)))" -"(if or-part_245" -" or-part_245" -"(let-values(((or-part_246)" +"(let-values(((or-part_247)(quoted? false? e_70)))" +"(if or-part_247" +" or-part_247" +"(let-values(((or-part_248)" "(if(quoted? exact-nonnegative-integer? e_70)" "(if field-count_1(<(quoted-value e_70) field-count_1) #f)" " #f)))" -"(if or-part_246 or-part_246(is-lambda? e_70 #f '#hasheq()))))))))" +"(if or-part_248 or-part_248(is-lambda? e_70 #f '#hasheq()))))))))" "(define-values" "(immutables-ok?)" "(lambda(e_71 init-field-count-expr_1)" @@ -33234,29 +33464,29 @@ static const char *startup_source = "(let-values(((l_63)(immutables-expr-to-immutables e_71 #f)))" "(let-values(((c_24)(field-count-expr-to-field-count init-field-count-expr_1)))" "(if l_63" -"(let-values(((lst_260) l_63))" +"(let-values(((lst_261) l_63))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_260)))" +"(let-values()(check-list lst_261)))" "((letrec-values(((for-loop_228)" -"(lambda(result_114 lst_261)" +"(lambda(result_115 lst_262)" "(begin" " 'for-loop" -"(if(pair? lst_261)" -"(let-values(((n_26)(unsafe-car lst_261))((rest_138)(unsafe-cdr lst_261)))" -"(let-values(((result_115)" -"(let-values()" +"(if(pair? lst_262)" +"(let-values(((n_27)(unsafe-car lst_262))((rest_138)(unsafe-cdr lst_262)))" "(let-values(((result_116)" -"(let-values()(let-values()(< n_26 c_24)))))" -"(values result_116)))))" -"(if(if(not((lambda x_68(not result_115)) n_26))(not #f) #f)" -"(for-loop_228 result_115 rest_138)" -" result_115)))" -" result_114)))))" +"(let-values()" +"(let-values(((result_117)" +"(let-values()(let-values()(< n_27 c_24)))))" +"(values result_117)))))" +"(if(if(not((lambda x_69(not result_116)) n_27))(not #f) #f)" +"(for-loop_228 result_116 rest_138)" +" result_116)))" +" result_115)))))" " for-loop_228)" " #t" -" lst_260)))" +" lst_261)))" " #f))))))" "(define-values" "(ok-make-struct-field-accessor/mutator?)" @@ -33264,20 +33494,20 @@ static const char *startup_source = "(begin" "(let-values(((l_64)(correlated->list e_72)))" "(let-values(((a_42)" -"(if(let-values(((or-part_247)(=(length l_64) 3)))" -"(if or-part_247 or-part_247(=(length l_64) 4)))" -"(let-values(((or-part_248)(hash-ref locals_17(correlated-e(list-ref l_64 1)) #f)))" -"(if or-part_248 or-part_248(lookup-defn defns_10(correlated-e(list-ref l_64 1)))))" +"(if(let-values(((or-part_249)(=(length l_64) 3)))" +"(if or-part_249 or-part_249(=(length l_64) 4)))" +"(let-values(((or-part_250)(hash-ref locals_17(correlated-e(list-ref l_64 1)) #f)))" +"(if or-part_250 or-part_250(lookup-defn defns_10(correlated-e(list-ref l_64 1)))))" " #f)))" "(if(known-struct-op? a_42)" "(if(eq?(known-struct-op-type a_42) type_1)" "(if(<(field-count-expr-to-field-count(list-ref l_64 2))(known-struct-op-field-count a_42))" -"(let-values(((or-part_249)(=(length l_64) 3)))" -"(if or-part_249 or-part_249(quoted? symbol?(list-ref l_64 3))))" +"(let-values(((or-part_251)(=(length l_64) 3)))" +"(if or-part_251 or-part_251(quoted? symbol?(list-ref l_64 3))))" " #f)" " #f)" " #f))))))" -"(define-values(maybe+)(lambda(x_69 y_10)(begin(if x_69(if y_10(+ x_69 y_10) #f) #f))))" +"(define-values(maybe+)(lambda(x_70 y_10)(begin(if x_70(if y_10(+ x_70 y_10) #f) #f))))" "(define-values" "(compile-single)" "(lambda(p_44 cctx_12)" @@ -33408,11 +33638,11 @@ static const char *startup_source = "(let-values(((link-linklet_0)" "((if to-source?_2" " values" -"(lambda(s_167)" +"(lambda(s_170)" "(let-values()" "(let-values(((linklet_2 new-keys_0)" "(1/compile-linklet" -" s_167" +" s_170" " #f" "(vector" " deserialize-instance" @@ -33509,18 +33739,18 @@ static const char *startup_source = "(let-values(((ht_119)(make-hasheq)))" "(begin(hash-set! defined-syms_8 phase_86 ht_119) ht_119))))))" "(reverse$1" -"(let-values(((lst_79) ids_15))" +"(let-values(((lst_78) ids_15))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_79)))" +"(let-values()(check-list lst_78)))" "((letrec-values(((for-loop_229)" -"(lambda(fold-var_12 lst_172)" +"(lambda(fold-var_12 lst_173)" "(begin" " 'for-loop" -"(if(pair? lst_172)" -"(let-values(((id_53)(unsafe-car lst_172))" -"((rest_90)(unsafe-cdr lst_172)))" +"(if(pair? lst_173)" +"(let-values(((id_54)(unsafe-car lst_173))" +"((rest_90)(unsafe-cdr lst_173)))" "(let-values(((fold-var_93)" "(let-values(((fold-var_158) fold-var_12))" "(let-values(((fold-var_168)" @@ -33529,7 +33759,7 @@ static const char *startup_source = "(let-values()" "(let-values(((sym_13)" "(syntax-e$1" -" id_53)))" +" id_54)))" "(let-values(((defined-sym_0)" "(if(if(not" "(defined-as-other?" @@ -33537,11 +33767,11 @@ static const char *startup_source = " defined-syms-at-phase_0" " sym_13" " #f)" -" id_53" +" id_54" " phase_86" " top-level-bind-scope_3))" "(if(no-extra-scopes?" -" id_53" +" id_54" " all-scopes-stx_3" " top-level-bind-scope_3" " phase_86)" @@ -33550,36 +33780,36 @@ static const char *startup_source = " #f)" " #f)" " sym_13" -"((letrec-values(((loop_92)" -"(lambda(pos_97)" +"((letrec-values(((loop_95)" +"(lambda(pos_96)" "(begin" " 'loop" -"(let-values(((s_183)" +"(let-values(((s_186)" "(string->unreadable-symbol" "(format" " \"~a.~a\"" " sym_13" -" pos_97))))" +" pos_96))))" "(if(defined-as-other?" "(hash-ref" " defined-syms-at-phase_0" -" s_183" +" s_186" " #f)" -" id_53" +" id_54" " phase_86" " top-level-bind-scope_3)" -"(loop_92" +"(loop_95" "(add1" -" pos_97))" -" s_183))))))" -" loop_92)" +" pos_96))" +" s_186))))))" +" loop_95)" " 1))))" "(let-values((()" "(begin" "(hash-set!" " defined-syms-at-phase_0" " defined-sym_0" -" id_53)" +" id_54)" "(values))))" "(let-values(((b_73)" "(let-values(((self23_0)" @@ -33620,7 +33850,7 @@ static const char *startup_source = "(let-values(((requires+provides28_0)" " requires+provides_4)" "((id29_0)" -" id_53)" +" id_54)" "((phase30_0)" " phase_86)" "((b31_0)" @@ -33632,7 +33862,7 @@ static const char *startup_source = " phase30_0)))" "(void))" "(let-values(((id19_0)" -" id_53)" +" id_54)" "((b20_0)" " b_73)" "((phase21_0)" @@ -33652,7 +33882,7 @@ static const char *startup_source = "(let-values(((requires+provides32_0)" " requires+provides_4)" "((id33_0)" -" id_53)" +" id_54)" "((phase34_0)" " phase_86)" "((b35_0)" @@ -33677,31 +33907,31 @@ static const char *startup_source = " fold-var_12)))))" " for-loop_229)" " null" -" lst_79)))))))))))))))))))" +" lst_78)))))))))))))))))))" "(define-values" "(no-extra-scopes?)" -"(lambda(id_54 all-scopes-stx_4 top-level-bind-scope_4 phase_87)" +"(lambda(id_55 all-scopes-stx_4 top-level-bind-scope_4 phase_87)" "(begin" -"(let-values(((m-id_0)(datum->syntax$1 all-scopes-stx_4(syntax-e$1 id_54))))" -"(let-values(((or-part_131)(bound-identifier=?$1 id_54 m-id_0 phase_87)))" +"(let-values(((m-id_0)(datum->syntax$1 all-scopes-stx_4(syntax-e$1 id_55))))" +"(let-values(((or-part_131)(bound-identifier=?$1 id_55 m-id_0 phase_87)))" "(if or-part_131" " or-part_131" "(if top-level-bind-scope_4" -"(bound-identifier=?$1 id_54(add-scope m-id_0 top-level-bind-scope_4) phase_87)" +"(bound-identifier=?$1 id_55(add-scope m-id_0 top-level-bind-scope_4) phase_87)" " #f)))))))" "(define-values" "(defined-as-other?)" -"(lambda(prev-id_0 id_55 phase_76 top-level-bind-scope_5)" +"(lambda(prev-id_0 id_56 phase_76 top-level-bind-scope_5)" "(begin" "(if prev-id_0" -"(if(not(bound-identifier=?$1 prev-id_0 id_55 phase_76))" -"(let-values(((or-part_250)(not top-level-bind-scope_5)))" -"(if or-part_250" -" or-part_250" +"(if(not(bound-identifier=?$1 prev-id_0 id_56 phase_76))" +"(let-values(((or-part_252)(not top-level-bind-scope_5)))" +"(if or-part_252" +" or-part_252" "(not" "(bound-identifier=?$1" "(remove-scope prev-id_0 top-level-bind-scope_5)" -"(remove-scope id_55 top-level-bind-scope_5)" +"(remove-scope id_56 top-level-bind-scope_5)" " phase_76))))" " #f)" " #f))))" @@ -33733,7 +33963,7 @@ static const char *startup_source = " temp41_1)))))" "(define-values" "(add-defined-sym!)" -"(lambda(defined-syms_9 phase_88 sym_58 id_56)" +"(lambda(defined-syms_9 phase_88 sym_59 id_57)" "(begin" "(let-values(((defined-syms-at-phase_1)" "(let-values(((or-part_95)(hash-ref defined-syms_9 phase_88 #f)))" @@ -33741,7 +33971,7 @@ static const char *startup_source = " or-part_95" "(let-values(((ht_120)(make-hasheq)))" "(begin(hash-set! defined-syms_9 phase_88 ht_120) ht_120))))))" -"(hash-set! defined-syms-at-phase_1 sym_58 id_56)))))" +"(hash-set! defined-syms-at-phase_1 sym_59 id_57)))))" "(define-values" "(make-create-root-expand-context-from-module)" "(lambda(requires_3 evaled-ld-h_0)" @@ -33753,11 +33983,11 @@ static const char *startup_source = "(let-values(((s_3)(add-scopes empty-syntax(root-expand-context-module-scopes root-ctx_4))))" "(let-values((()" "(begin" -"(let-values(((lst_262) requires_3))" +"(let-values(((lst_263) requires_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_262)))" +"(let-values()(check-list lst_263)))" "((letrec-values(((for-loop_230)" "(lambda(lst_16)" "(begin" @@ -33775,7 +34005,7 @@ static const char *startup_source = "(car" " phase+reqs_0)))" "(begin" -"(let-values(((lst_263)" +"(let-values(((lst_264)" "(cdr" " phase+reqs_0)))" "(begin" @@ -33784,19 +34014,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_263)))" +" lst_264)))" "((letrec-values(((for-loop_231)" -"(lambda(lst_78)" +"(lambda(lst_77)" "(begin" " 'for-loop" "(if(pair?" -" lst_78)" +" lst_77)" "(let-values(((req_4)" "(unsafe-car" -" lst_78))" -"((rest_36)" +" lst_77))" +"((rest_35)" "(unsafe-cdr" -" lst_78)))" +" lst_77)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33862,18 +34092,18 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_231" -" rest_36)" +" rest_35)" "(values))))" "(values))))))" " for-loop_231)" -" lst_263)))" +" lst_264)))" "(void))))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_230 rest_4)(values))))" "(values))))))" " for-loop_230)" -" lst_262)))" +" lst_263)))" "(values))))" "(let-values()" "(let-values(((defined-syms_10)(root-expand-context-defined-syms root-ctx_4)))" @@ -33883,13 +34113,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_121)))" -"((letrec-values(((for-loop_107)" -"(lambda(i_147)" +"((letrec-values(((for-loop_108)" +"(lambda(i_148)" "(begin" " 'for-loop" -"(if i_147" +"(if i_148" "(let-values(((phase_89 linklet_3)" -"(hash-iterate-key+value ht_121 i_147)))" +"(hash-iterate-key+value ht_121 i_148)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33897,7 +34127,7 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_264)" +"(let-values(((lst_265)" "(1/linklet-export-variables" " linklet_3)))" "(begin" @@ -33905,39 +34135,39 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_264)))" +"(check-list lst_265)))" "((letrec-values(((for-loop_232)" -"(lambda(lst_265)" +"(lambda(lst_266)" "(begin" " 'for-loop" "(if(pair?" -" lst_265)" -"(let-values(((sym_59)" +" lst_266)" +"(let-values(((sym_60)" "(unsafe-car" -" lst_265))" +" lst_266))" "((rest_139)" "(unsafe-cdr" -" lst_265)))" +" lst_266)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((id_57)" +"(let-values(((id_58)" "(datum->syntax$1" " s_3" -" sym_59)))" +" sym_60)))" "(begin" "(let-values(((id10_0)" -" id_57)" +" id_58)" "((temp11_2)" "(let-values(((self13_1)" " self_7)" "((phase14_1)" " phase_89)" "((sym15_0)" -" sym_59))" +" sym_60))" "(make-module-binding22.1" " #f" " #f" @@ -33973,8 +34203,8 @@ static const char *startup_source = "(add-defined-sym!" " defined-syms_10" " phase_89" -" sym_59" -" id_57))))" +" sym_60" +" id_58))))" "(values)))))" "(values)))))" "(if(not" @@ -33984,15 +34214,15 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_232)" -" lst_264)))" +" lst_265)))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_107(hash-iterate-next ht_121 i_147))" +"(for-loop_108(hash-iterate-next ht_121 i_148))" "(values))))" "(values))))))" -" for-loop_107)" +" for-loop_108)" "(hash-iterate-first ht_121))))" "(void)" " root-ctx_4))))))))))" @@ -34002,11 +34232,11 @@ 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_186) root-context_0))" -"(let-values(((the-struct_52) v_186))" +"(let-values(((v_187) root-context_0))" +"(let-values(((the-struct_52) v_187))" "(if(root-expand-context/outer? the-struct_52)" "(let-values(((inner16_0)" -"(let-values(((the-struct_53)(root-expand-context/outer-inner v_186)))" +"(let-values(((the-struct_53)(root-expand-context/outer-inner v_187)))" "(if(root-expand-context/inner? the-struct_53)" "(let-values(((self-mpi17_0) inside-mpi_0)" "((all-scopes-stx18_0)" @@ -34058,9 +34288,9 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values(((lst_41)(list-tail(1/linklet-import-variables linklet_4) skip-num-imports_0))" -"((lst_266) import-module-uses_0)" -"((lst_88) import-module-instances_0)" -"((lst_162)" +"((lst_267) import-module-uses_0)" +"((lst_87) import-module-instances_0)" +"((lst_163)" "(let-values(((or-part_84) extra-inspectorsss_4))" "(if or-part_84 or-part_84 import-module-uses_0))))" "(begin" @@ -34069,28 +34299,28 @@ static const char *startup_source = "(let-values()(check-list lst_41)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_266)))" +"(let-values()(check-list lst_267)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_88)))" +"(let-values()(check-list lst_87)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_162)))" +"(let-values()(check-list lst_163)))" "((letrec-values(((for-loop_232)" -"(lambda(lst_265 lst_267 lst_23 lst_103)" +"(lambda(lst_266 lst_268 lst_23 lst_102)" "(begin" " 'for-loop" -"(if(if(pair? lst_265)" -"(if(pair? lst_267)(if(pair? lst_23)(pair? lst_103) #f) #f)" +"(if(if(pair? lst_266)" +"(if(pair? lst_268)(if(pair? lst_23)(pair? lst_102) #f) #f)" " #f)" -"(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))" +"(let-values(((import-syms_0)(unsafe-car lst_266))" +"((rest_140)(unsafe-cdr lst_266))" +"((mu_7)(unsafe-car lst_268))" +"((rest_141)(unsafe-cdr lst_268))" "((mi_16)(unsafe-car lst_23))" -"((rest_43)(unsafe-cdr lst_23))" -"((extra-inspectorss_14)(unsafe-car lst_103))" -"((rest_119)(unsafe-cdr lst_103)))" +"((rest_42)(unsafe-cdr lst_23))" +"((extra-inspectorss_14)(unsafe-car lst_102))" +"((rest_119)(unsafe-cdr lst_102)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -34163,20 +34393,20 @@ static const char *startup_source = "(namespace-inspector" "(module-instance-namespace" " mi_16))))" -"(if(let-values(((or-part_251)" +"(if(let-values(((or-part_253)" "(inspector-superior?" " insp_10" " guard-insp_3)))" -"(if or-part_251" -" or-part_251" -"(let-values(((or-part_252)" +"(if or-part_253" +" or-part_253" +"(let-values(((or-part_254)" "(if extra-inspector_0" "(inspector-superior?" " extra-inspector_0" " guard-insp_3)" " #f)))" -"(if or-part_252" -" or-part_252" +"(if or-part_254" +" or-part_254" "(if extra-inspectorsss_4" "(if extra-inspectorss_14" "(extra-inspectors-allow?" @@ -34216,33 +34446,33 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_232 rest_140 rest_141 rest_43 rest_119)" +"(for-loop_232 rest_140 rest_141 rest_42 rest_119)" "(values))))" "(values))))))" " for-loop_232)" " lst_41" -" lst_266" -" lst_88" -" lst_162)))" +" lst_267" +" lst_87" +" lst_163)))" "(void)))))))))))))" "(define-values" "(check-single-require-access)" -"(lambda(mi_17 phase_90 sym_60 insp_11)" +"(lambda(mi_17 phase_90 sym_61 insp_11)" "(begin" "(let-values(((m_16)(module-instance-module mi_17)))" "(if(module-no-protected? m_16)" "(let-values() #t)" "(let-values()" "(let-values(((access_3)" -"(let-values(((or-part_253)(module-access m_16)))" -"(if or-part_253 or-part_253(module-compute-access! m_16)))))" -"(let-values(((a_44)(hash-ref(hash-ref access_3 phase_90 '#hasheq()) sym_60 'unexported)))" -"(if(let-values(((or-part_254)(eq? a_44 'unexported)))" -"(if or-part_254 or-part_254(eq? a_44 'protected)))" +"(let-values(((or-part_255)(module-access m_16)))" +"(if or-part_255 or-part_255(module-compute-access! m_16)))))" +"(let-values(((a_44)(hash-ref(hash-ref access_3 phase_90 '#hasheq()) sym_61 'unexported)))" +"(if(let-values(((or-part_256)(eq? a_44 'unexported)))" +"(if or-part_256 or-part_256(eq? a_44 'protected)))" "(let-values()" "(let-values(((guard-insp_4)(namespace-inspector(module-instance-namespace mi_17))))" -"(let-values(((or-part_255)(if insp_11(inspector-superior? insp_11 guard-insp_4) #f)))" -"(if or-part_255 or-part_255(inspector-superior?(current-code-inspector) guard-insp_4)))))" +"(let-values(((or-part_257)(if insp_11(inspector-superior? insp_11 guard-insp_4) #f)))" +"(if or-part_257 or-part_257(inspector-superior?(current-code-inspector) guard-insp_4)))))" "(let-values() #t))))))))))" "(define-values(module-cache)(make-weak-hasheq))" "(define-values" @@ -34312,14 +34542,14 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_37 end_26 inc_20)))" "((letrec-values(((for-loop_234)" -"(lambda(table_185 pos_98)" +"(lambda(table_185 pos_97)" "(begin" " 'for-loop" -"(if(< pos_98 end_26)" +"(if(< pos_97 end_26)" "(let-values(((phase-level_17)" -" pos_98))" +" pos_97))" "(let-values(((table_186)" -"(let-values(((v_187)" +"(let-values(((v_188)" "(hash-ref" " h_1" " phase-level_17" @@ -34334,22 +34564,22 @@ static const char *startup_source = "(let-values(((table_188)" "(let-values(((table_189)" " table_187))" -"(if v_187" +"(if v_188" "(let-values(((table_190)" " table_189))" "(let-values(((table_191)" "(let-values()" "(let-values(((key_68" -" val_59)" +" val_60)" "(let-values()" "(values" " phase-level_17" "(1/eval-linklet" -" v_187)))))" +" v_188)))))" "(hash-set" " table_190" " key_68" -" val_59)))))" +" val_60)))))" "(values" " table_191)))" " table_189))))" @@ -34359,7 +34589,7 @@ static const char *startup_source = "(if(not #f)" "(for-loop_234" " table_186" -"(+ pos_98 inc_20))" +"(+ pos_97 inc_20))" " table_186)))" " table_185)))))" " for-loop_234)" @@ -34405,17 +34635,17 @@ static const char *startup_source = "(let-values()" "(check-list lst_20)))" "((letrec-values(((for-loop_235)" -"(lambda(lst_92)" +"(lambda(lst_91)" "(begin" " 'for-loop" "(if(pair?" -" lst_92)" +" lst_91)" "(let-values(((c_25)" "(unsafe-car" -" lst_92))" -"((rest_44)" +" lst_91))" +"((rest_43)" "(unsafe-cdr" -" lst_92)))" +" lst_91)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -34441,32 +34671,32 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_235" -" rest_44)" +" rest_43)" "(values))))" "(values))))))" " for-loop_235)" " lst_20)))" "(void))" "(begin" -"(let-values(((lst_93) names_0))" +"(let-values(((lst_92) names_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_93)))" +"(check-list lst_92)))" "((letrec-values(((for-loop_26)" -"(lambda(lst_268)" +"(lambda(lst_269)" "(begin" " 'for-loop" "(if(pair?" -" lst_268)" +" lst_269)" "(let-values(((name_49)" "(unsafe-car" -" lst_268))" +" lst_269))" "((rest_142)" "(unsafe-cdr" -" lst_268)))" +" lst_269)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -34508,7 +34738,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_26)" -" lst_93)))" +" lst_92)))" "(void)))))" " void)))" "(let-values(((declare-this-module_0)" @@ -34565,16 +34795,16 @@ static const char *startup_source = " phase-level_18" " #f))))" "((temp35_0)" -"(lambda(bulk-binding-registry_12)" +"(lambda(bulk-binding-registry_13)" "(force-syntax-deserialize" " syntax-literals-data-instance_0" -" bulk-binding-registry_12)))" +" bulk-binding-registry_13)))" "((temp36_2)" "(lambda(data-box_2" " ns_64" " phase-shift_16" " self_21" -" bulk-binding-registry_13" +" bulk-binding-registry_14" " insp_13)" "(if(unbox" " data-box_2)" @@ -34590,7 +34820,7 @@ static const char *startup_source = " phase-shift_16" " original-self_1" " self_21" -" bulk-binding-registry_13" +" bulk-binding-registry_14" " insp_13" " create-root-expand-context-from-module_0)))))" "((temp37_0)" @@ -34599,7 +34829,7 @@ static const char *startup_source = " phase-shift_17" " phase-level_19" " self_22" -" bulk-binding-registry_14" +" bulk-binding-registry_15" " insp_14)" "(let-values()" "(let-values(((syntax-literals-instance_0)" @@ -34621,7 +34851,7 @@ static const char *startup_source = " import-instances_0)" "(let-values(((mis_1" " is_0)" -"(let-values(((lst_269)" +"(let-values(((lst_270)" " module-uses_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -34629,21 +34859,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_269)))" +" lst_270)))" "((letrec-values(((for-loop_236)" "(lambda(mis_2" " is_1" -" lst_270)" +" lst_271)" "(begin" " 'for-loop" "(if(pair?" -" lst_270)" +" lst_271)" "(let-values(((mu_8)" "(unsafe-car" -" lst_270))" +" lst_271))" "((rest_143)" "(unsafe-cdr" -" lst_270)))" +" lst_271)))" "(let-values(((mis_3" " is_2)" "(let-values(((mis_4)" @@ -34704,7 +34934,7 @@ static const char *startup_source = " for-loop_236)" " null" " null" -" lst_269)))))" +" lst_270)))))" "(values" "(reverse$1" " mis_1)" @@ -34741,13 +34971,13 @@ static const char *startup_source = "(let-values(((module-body-instance-instance_0)" "(let-values(((temp52_2)" "(lambda(name_50" -" val_60)" +" val_61)" "(namespace-set-transformer!" " ns_65" "(sub1" " phase-level_19)" " name_50" -" val_60))))" +" val_61))))" "(make-module-body-instance-instance18.1" " temp52_2))))" "(let-values(((instantiate-body_0)" @@ -34894,16 +35124,16 @@ static const char *startup_source = " ns_60)))))))))))))))))))))))))))))))))" "(define-values" "(struct:instance-data instance-data11.1 instance-data? instance-data-syntax-literals-instance instance-data-cache-key)" -"(let-values(((struct:_70 make-_70 ?_70 -ref_70 -set!_70)" +"(let-values(((struct:_71 make-_71 ?_71 -ref_71 -set!_71)" "(let-values()" "(let-values()" "(make-struct-type 'instance-data #f 2 0 #f null(current-inspector) #f '(0 1) #f 'instance-data)))))" "(values" -" struct:_70" -" make-_70" -" ?_70" -"(make-struct-field-accessor -ref_70 0 'syntax-literals-instance)" -"(make-struct-field-accessor -ref_70 1 'cache-key))))" +" struct:_71" +" make-_71" +" ?_71" +"(make-struct-field-accessor -ref_71 0 'syntax-literals-instance)" +"(make-struct-field-accessor -ref_71 1 'cache-key))))" "(define-values" "(init-instance-data!)" "(lambda(data-box_4" @@ -34915,7 +35145,7 @@ static const char *startup_source = " phase-shift_18" " original-self_2" " self_23" -" bulk-binding-registry_15" +" bulk-binding-registry_16" " insp_15" " create-root-expand-context-from-module_1)" "(begin" @@ -34927,7 +35157,7 @@ static const char *startup_source = " #f)" " #f)" "(let-values()" -"(force-syntax-deserialize syntax-literals-data-instance_1 bulk-binding-registry_15))" +"(force-syntax-deserialize syntax-literals-data-instance_1 bulk-binding-registry_16))" "(void))" "(values))))" "(let-values(((inst_1)" @@ -34935,9 +35165,9 @@ static const char *startup_source = "((phase-shift56_1) phase-shift_18)" "((self57_0) self_23)" "((insp58_0) insp_15)" -"((bulk-binding-registry59_0) bulk-binding-registry_15)" +"((bulk-binding-registry59_0) bulk-binding-registry_16)" "((temp60_1)" -" (lambda (name_16 val_61) (error \"shouldn't get here for the root-ctx linklet\"))))" +" (lambda (name_51 val_62) (error \"shouldn't get here for the root-ctx linklet\"))))" "(make-instance-instance13.1" " bulk-binding-registry59_0" " insp58_0" @@ -34993,11 +35223,11 @@ static const char *startup_source = " self_23)))))))))))))))))" "(define-values" "(force-syntax-deserialize)" -"(lambda(syntax-literals-data-instance_2 bulk-binding-registry_16)" +"(lambda(syntax-literals-data-instance_2 bulk-binding-registry_17)" "(begin" "(let-values(((deserialize-syntax_0)" "(1/instance-variable-value syntax-literals-data-instance_2 deserialize-syntax-id)))" -"(if deserialize-syntax_0(let-values()(deserialize-syntax_0 bulk-binding-registry_16))(void))))))" +"(if deserialize-syntax_0(let-values()(deserialize-syntax_0 bulk-binding-registry_17))(void))))))" "(define-values" "(compiled-module->dh+h)" "(lambda(c_26)" @@ -35079,7 +35309,7 @@ static const char *startup_source = " #f" " 'constant" " get-syntax-literal!-id" -"(lambda(pos_99) #f)" +"(lambda(pos_98) #f)" " 'get-encoded-root-expand-ctx" " 'empty))" "(define-values" @@ -35090,25 +35320,25 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_122)))" "((letrec-values(((for-loop_237)" -"(lambda(table_192 i_148)" +"(lambda(table_192 i_149)" "(begin" " 'for-loop" -"(if i_148" -"(let-values(((phase_91 linklet_5)(hash-iterate-key+value ht_122 i_148)))" +"(if i_149" +"(let-values(((phase_91 linklet_5)(hash-iterate-key+value ht_122 i_149)))" "(let-values(((table_193)" "(let-values(((table_194) table_192))" "(let-values(((table_145)" "(let-values()" -"(let-values(((key_69 val_62)" +"(let-values(((key_69 val_63)" "(let-values()" "(values" " phase_91" "(1/linklet-export-variables" " linklet_5)))))" -"(hash-set table_194 key_69 val_62)))))" +"(hash-set table_194 key_69 val_63)))))" "(values table_145)))))" "(if(not #f)" -"(for-loop_237 table_193(hash-iterate-next ht_122 i_148))" +"(for-loop_237 table_193(hash-iterate-next ht_122 i_149))" " table_193)))" " table_192)))))" " for-loop_237)" @@ -35129,13 +35359,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_123)))" -"((letrec-values(((for-loop_102)" -"(lambda(fold-var_59 i_149)" +"((letrec-values(((for-loop_103)" +"(lambda(fold-var_59 i_150)" "(begin" " 'for-loop" -"(if i_149" +"(if i_150" "(let-values(((phase_92 at-phase_11)" -"(hash-iterate-key+value ht_123 i_149)))" +"(hash-iterate-key+value ht_123 i_150)))" "(let-values(((fold-var_60)" "(let-values(((l_67)" "(reverse$1" @@ -35150,15 +35380,15 @@ static const char *startup_source = " ht_116)))" "((letrec-values(((for-loop_238)" "(lambda(fold-var_220" -" i_150)" +" i_151)" "(begin" " 'for-loop" -"(if i_150" -"(let-values(((sym_61" +"(if i_151" +"(let-values(((sym_62" " b/p_1)" "(hash-iterate-key+value" " ht_116" -" i_150)))" +" i_151)))" "(let-values(((fold-var_221)" "(let-values(((fold-var_222)" " fold-var_220))" @@ -35174,7 +35404,7 @@ static const char *startup_source = "(provided-as-binding" " b/p_1)))" "(list" -" sym_61" +" sym_62" "(if(eq?" " self_24" "(module-binding-module" @@ -35183,7 +35413,7 @@ static const char *startup_source = " null)" "(let-values()" "(reverse$1" -"(let-values(((lst_86)" +"(let-values(((lst_85)" "(cons" " b_74" "(module-binding-extra-nominal-bindings" @@ -35194,20 +35424,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_86)))" +" lst_85)))" "((letrec-values(((for-loop_239)" "(lambda(fold-var_225" -" lst_271)" +" lst_272)" "(begin" " 'for-loop" "(if(pair?" -" lst_271)" +" lst_272)" "(let-values(((b_75)" "(unsafe-car" -" lst_271))" +" lst_272))" "((rest_144)" "(unsafe-cdr" -" lst_271)))" +" lst_272)))" "(let-values(((fold-var_29)" "(let-values(((fold-var_30)" " fold-var_225))" @@ -35222,7 +35452,7 @@ static const char *startup_source = "(eq?" "(module-binding-nominal-sym" " b_75)" -" sym_61)" +" sym_62)" " #f)" "(let-values()" "(module-binding-nominal-module" @@ -35249,7 +35479,7 @@ static const char *startup_source = " fold-var_225)))))" " for-loop_239)" " null" -" lst_86)))))))))" +" lst_85)))))))))" " fold-var_223))))" "(values" " fold-var_224)))" @@ -35260,7 +35490,7 @@ static const char *startup_source = " fold-var_221" "(hash-iterate-next" " ht_116" -" i_150))" +" i_151))" " fold-var_221)))" " fold-var_220)))))" " for-loop_238)" @@ -35269,7 +35499,7 @@ static const char *startup_source = " ht_116)))))))" "(begin" " #t" -"((letrec-values(((for-loop_107)" +"((letrec-values(((for-loop_108)" "(lambda(fold-var_69)" "(begin" " 'for-loop" @@ -35305,15 +35535,15 @@ static const char *startup_source = "(values" " fold-var_34)))))))" " fold-var_156))))))" -" for-loop_107)" +" for-loop_108)" " fold-var_59)))))" "(if(not #f)" -"(for-loop_102" +"(for-loop_103" " fold-var_60" -"(hash-iterate-next ht_123 i_149))" +"(hash-iterate-next ht_123 i_150))" " fold-var_60)))" " fold-var_59)))))" -" for-loop_102)" +" for-loop_103)" " null" "(hash-iterate-first ht_123)))))))" "(let-values(((result-l1_0) result-l_0)((phaselinklet-bundle(hash-set(1/linklet-bundle->hash lb_0) 'name name_52)))))" +"(lambda(lb_0 name_53)(begin(1/hash->linklet-bundle(hash-set(1/linklet-bundle->hash lb_0) 'name name_53)))))" "(define-values" "(rebuild-linklet-directory5.1)" "(lambda(bundle-ok?1_0 bundle-ok?2_0 main3_0 submods4_0)" @@ -35570,36 +35800,36 @@ static const char *startup_source = " main_0" "(1/hash->linklet-directory" "(hash-set" -"(let-values(((lst_172) submods_0))" +"(let-values(((lst_173) submods_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_172)))" +"(let-values()(check-list lst_173)))" "((letrec-values(((for-loop_242)" -"(lambda(ht_125 lst_273)" +"(lambda(ht_125 lst_274)" "(begin" " 'for-loop" -"(if(pair? lst_273)" -"(let-values(((submod_1)(unsafe-car lst_273))" -"((rest_146)(unsafe-cdr lst_273)))" +"(if(pair? lst_274)" +"(let-values(((submod_1)(unsafe-car lst_274))" +"((rest_146)(unsafe-cdr lst_274)))" "(let-values(((ht_126)" "(let-values(((ht_127) ht_125))" "(let-values(((ht_117)" "(let-values()" -"(let-values(((name_53)" +"(let-values(((name_54)" "(module-compiled-immediate-name" " submod_1)))" -"(if(hash-ref ht_127 name_53 #f)" +"(if(hash-ref ht_127 name_54 #f)" "(let-values()" "(raise-arguments-error" " 'module-compiled-submodules" " \"change would result in duplicate submodule name\"" " \"name\"" -" name_53))" +" name_54))" "(let-values()" "(hash-set" " ht_127" -" name_53" +" name_54" "(compiled->linklet-directory-or-bundle" " submod_1))))))))" "(values ht_117)))))" @@ -35607,7 +35837,7 @@ static const char *startup_source = " ht_125)))))" " for-loop_242)" " '#hasheq()" -" lst_172)))" +" lst_173)))" " #f" " main_0))))))))))" "(define-values" @@ -35649,7 +35879,7 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'module-compiled-name \"compiled-module-expression?\" c_36)))" "(module-compiled-current-name c_36))))" -"((c_37 name_54)" +"((c_37 name_55)" "(let-values((()" "(begin" "(if(1/compiled-module-expression? c_37)" @@ -35659,21 +35889,21 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_209)(symbol? name_54)))" -"(if or-part_209" -" or-part_209" -"(if(pair? name_54)(if(list? name_54)(andmap2 symbol? name_54) #f) #f)))" +"(if(let-values(((or-part_211)(symbol? name_55)))" +"(if or-part_211" +" or-part_211" +"(if(pair? name_55)(if(list? name_55)(andmap2 symbol? name_55) #f) #f)))" "(void)" "(let-values()" "(raise-argument-error" " 'module-compiled-name" " \"(or/c symbol? (cons/c symbol? (non-empty-listof symbol?)))\"" -" name_54)))" +" name_55)))" "(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)))))))" +"(if(symbol? name_55)" +"(values name_55 null)" +"(let-values(((r_41)(reverse$1 name_55)))(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)" @@ -35699,34 +35929,34 @@ static const char *startup_source = "(let-values(((bh_0)(1/linklet-bundle->hash(hash-ref ht_128 #f))))" "(let-values(((names_1)(hash-ref bh_0(if non-star?_0 'pre 'post) null)))" "(reverse$1" -"(let-values(((lst_85) names_1))" +"(let-values(((lst_84) names_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_85)))" -"((letrec-values(((for-loop_106)" -"(lambda(fold-var_67 lst_86)" +"(let-values()(check-list lst_84)))" +"((letrec-values(((for-loop_107)" +"(lambda(fold-var_67 lst_85)" "(begin" " 'for-loop" -"(if(pair? lst_86)" -"(let-values(((name_55)(unsafe-car lst_86))" -"((rest_41)(unsafe-cdr lst_86)))" +"(if(pair? lst_85)" +"(let-values(((name_56)(unsafe-car lst_85))" +"((rest_40)(unsafe-cdr lst_85)))" "(let-values(((fold-var_68)" "(let-values(((fold-var_27) fold-var_67))" "(let-values(((fold-var_28)" "(let-values()" "(cons" "(let-values()" -"(hash-ref ht_128 name_55))" +"(hash-ref ht_128 name_56))" " fold-var_27))))" "(values fold-var_28)))))" "(if(not #f)" -"(for-loop_106 fold-var_68 rest_41)" +"(for-loop_107 fold-var_68 rest_40)" " fold-var_68)))" " fold-var_67)))))" -" for-loop_106)" +" for-loop_107)" " null" -" lst_85))))))))" +" lst_84))))))))" "(let-values() null)))))))" "((c_38 non-star?_1 submods_1)" "(begin" @@ -35882,17 +36112,17 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_38 end_27 inc_21)))" -"((letrec-values(((for-loop_196)" -"(lambda(table_62 pos_100)" +"((letrec-values(((for-loop_195)" +"(lambda(table_62 pos_99)" "(begin" " 'for-loop" -"(if(< pos_100 end_27)" -"(let-values(((phase-level_20) pos_100))" +"(if(< pos_99 end_27)" +"(let-values(((phase-level_20) pos_99))" "(let-values(((table_65)" "(let-values(((table_198) table_62))" "(let-values(((table_199)" "(let-values()" -"(let-values(((key_72 val_65)" +"(let-values(((key_72 val_66)" "(let-values()" "(let-values(((linklet_0)" "(hash-ref" @@ -35908,11 +36138,11 @@ static const char *startup_source = "(hash-set" " table_198" " key_72" -" val_65)))))" +" val_66)))))" "(values table_199)))))" -"(if(not #f)(for-loop_196 table_65(+ pos_100 inc_21)) table_65)))" +"(if(not #f)(for-loop_195 table_65(+ pos_99 inc_21)) table_65)))" " table_62)))))" -" for-loop_196)" +" for-loop_195)" " '#hash()" " start_38)))))))))))))" "(define-values" @@ -36001,12 +36231,12 @@ static const char *startup_source = "(let-values()" "(let-values(((full-module-name_1)" "(let-values(((parent-full-name_0)(compile-context-full-module-name cctx_16))" -"((name_56)(syntax-e$1(parsed-module-name-id p_37))))" +"((name_57)(syntax-e$1(parsed-module-name-id p_37))))" "(if parent-full-name_0" "(append" "(if(list? parent-full-name_0) parent-full-name_0(list parent-full-name_0))" -"(list name_56))" -" name_56))))" +"(list name_57))" +" name_57))))" "(let-values(((compiled-submodules_0)(parsed-module-compiled-submodules p_37)))" "(let-values(((get-submodules_0)" "(lambda(star?_0)" @@ -36018,15 +36248,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_121)))" -"((letrec-values(((for-loop_107)" -"(lambda(fold-var_69 i_152)" +"((letrec-values(((for-loop_108)" +"(lambda(fold-var_69 i_153)" "(begin" " 'for-loop" -"(if i_152" -"(let-values(((name_57 star?+compiled_0)" +"(if i_153" +"(let-values(((name_58 star?+compiled_0)" "(hash-iterate-key+value" " ht_121" -" i_152)))" +" i_153)))" "(let-values(((fold-var_34)" "(let-values(((fold-var_157)" " fold-var_69))" @@ -36040,7 +36270,7 @@ static const char *startup_source = "(cons" "(let-values()" "(cons" -" name_57" +" name_58" "(if(if need-compiled-submodule-rename?_0" "(not" "(parsed-module-compiled-module" @@ -36049,7 +36279,7 @@ static const char *startup_source = "(update-submodule-names" "(cdr" " star?+compiled_0)" -" name_57" +" name_58" " full-module-name_1)" "(cdr" " star?+compiled_0))))" @@ -36057,12 +36287,12 @@ static const char *startup_source = "(values fold-var_70)))" " fold-var_157))))" "(if(not #f)" -"(for-loop_107" +"(for-loop_108" " fold-var_34" -"(hash-iterate-next ht_121 i_152))" +"(hash-iterate-next ht_121 i_153))" " fold-var_34)))" " fold-var_69)))))" -" for-loop_107)" +" for-loop_108)" " null" "(hash-iterate-first ht_121)))))))))" "(let-values(((pre-submodules_0)(get-submodules_0 #f)))" @@ -36070,12 +36300,12 @@ static const char *startup_source = "(let-values(((c1_27)(parsed-module-compiled-module p_37)))" "(if c1_27" "((lambda(c_45)" -"(let-values(((name_58 prefix_6)" +"(let-values(((name_59 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_45 name_58 prefix_6)))" +"(let-values(((m_18)(change-module-name c_45 name_59 prefix_6)))" "(1/module-compiled-submodules" "(1/module-compiled-submodules m_18 #t(map2 cdr pre-submodules_0))" " #f" @@ -36302,7 +36532,7 @@ static const char *startup_source = " _69_3" " kw70_1))))))" "(begin" -"(let-values(((lst_274)" +"(let-values(((lst_275)" " kw70_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -36310,19 +36540,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_274)))" +" lst_275)))" "((letrec-values(((for-loop_243)" -"(lambda(lst_229)" +"(lambda(lst_230)" "(begin" " 'for-loop" "(if(pair?" -" lst_229)" +" lst_230)" "(let-values(((kw_0)" "(unsafe-car" -" lst_229))" +" lst_230))" "((rest_147)" "(unsafe-cdr" -" lst_229)))" +" lst_230)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -36359,7 +36589,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_243)" -" lst_274)))" +" lst_275)))" "(void)" " #f)))" "(let-values() #f))))" @@ -36426,22 +36656,22 @@ static const char *startup_source = "(check-in-hash ht_130)))" "((letrec-values(((for-loop_244)" "(lambda(table_200" -" i_153)" +" i_154)" "(begin" " 'for-loop" -"(if i_153" +"(if i_154" "(let-values(((phase_95" " linklet_6)" "(hash-iterate-key+value" " ht_130" -" i_153)))" +" i_154)))" "(let-values(((table_201)" "(let-values(((table_202)" " table_200))" "(let-values(((table_203)" "(let-values()" "(let-values(((key_73" -" val_66)" +" val_67)" "(let-values()" "(values" " phase_95" @@ -36463,7 +36693,7 @@ static const char *startup_source = "(hash-set" " table_202" " key_73" -" val_66)))))" +" val_67)))))" "(values" " table_203)))))" "(if(not" @@ -36472,7 +36702,7 @@ static const char *startup_source = " table_201" "(hash-iterate-next" " ht_130" -" i_153))" +" i_154))" " table_201)))" " table_200)))))" " for-loop_244)" @@ -36609,10 +36839,10 @@ static const char *startup_source = " syntax-literals_4))" "((if to-source?_4" " values" -"(lambda(s_325)" +"(lambda(s_328)" "(let-values()" "(1/compile-linklet" -" s_325" +" s_328" " 'syntax-literals-data))))" "(list*" " 'linklet" @@ -36641,10 +36871,10 @@ static const char *startup_source = "(if serializable?_3" "((if to-source?_4" " values" -"(lambda(s_326)" +"(lambda(s_329)" "(let-values()" "(1/compile-linklet" -" s_326" +" s_329" " 'data))))" "(list" " 'linklet" @@ -36670,10 +36900,10 @@ static const char *startup_source = "(hash-set" " bundle_2" " 'decl" -"(let-values(((or-part_256)" +"(let-values(((or-part_258)" " declaration-linklet_0))" -"(if or-part_256" -" or-part_256" +"(if or-part_258" +" or-part_258" " 'in-memory)))))" "(let-values(((bundle_4)" "(if data-linklet_0" @@ -36787,7 +37017,7 @@ static const char *startup_source = "((if to-source?_4" " values" " 1/hash->linklet-directory)" -"(let-values(((lst_275)" +"(let-values(((lst_276)" "(append" " pre-submodules_1" " post-submodules_1)))" @@ -36797,20 +37027,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_275)))" +" lst_276)))" "((letrec-values(((for-loop_245)" "(lambda(ht_131" -" lst_276)" +" lst_277)" "(begin" " 'for-loop" "(if(pair?" -" lst_276)" +" lst_277)" "(let-values(((sm_0)" "(unsafe-car" -" lst_276))" +" lst_277))" "((rest_148)" "(unsafe-cdr" -" lst_276)))" +" lst_277)))" "(let-values(((ht_132)" "(let-values(((ht_133)" " ht_131))" @@ -36836,7 +37066,7 @@ static const char *startup_source = " ht_131)))))" " for-loop_245)" "(hasheq #f bundle_1)" -" lst_275))))))))" +" lst_276))))))))" "(if to-source?_4" "(let-values() ld_4)" "(let-values()" @@ -36857,33 +37087,33 @@ static const char *startup_source = " #f)))))))))))))))))))))))))))))))))))))))))" "(define-values" "(update-submodule-names)" -"(lambda(cim_9 name_59 full-module-name_3)" +"(lambda(cim_9 name_60 full-module-name_3)" "(begin" "(change-module-name" " cim_9" -" name_59" +" name_60" "(if(symbol? full-module-name_3)(list full-module-name_3)(reverse$1(cdr(reverse$1 full-module-name_3))))))))" "(define-values" "(register-compiled-submodules)" "(lambda(modules-being-compiled_2 pre-submodules_2 self_26)" "(begin" "(begin" -"(let-values(((lst_277) pre-submodules_2))" +"(let-values(((lst_278) pre-submodules_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_277)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_278)))" "((letrec-values(((for-loop_246)" -"(lambda(lst_278)" +"(lambda(lst_279)" "(begin" " 'for-loop" -"(if(pair? lst_278)" -"(let-values(((s_418)(unsafe-car lst_278))((rest_149)(unsafe-cdr lst_278)))" +"(if(pair? lst_279)" +"(let-values(((s_418)(unsafe-car lst_279))((rest_149)(unsafe-cdr lst_279)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((name_60)(car s_418)))" +"(let-values(((name_61)(car s_418)))" "(let-values(((cim_10)(cdr s_418)))" "(let-values(((phase-to-link-module-uses_5)" "(compiled-in-memory-phase-to-link-module-uses" @@ -36896,7 +37126,7 @@ static const char *startup_source = "(list" " 'submod" " \".\"" -" name_60)" +" name_61)" " self_26)))" "(let-values(((phase-to-extra-inspectorsss_0)" "(compiled-in-memory-phase-to-link-extra-inspectorsss" @@ -36922,15 +37152,15 @@ static const char *startup_source = "(check-in-hash ht_135)))" "((letrec-values(((for-loop_247)" "(lambda(table_204" -" i_154)" +" i_155)" "(begin" " 'for-loop" -"(if i_154" +"(if i_155" "(let-values(((phase_96" " linklet_8)" "(hash-iterate-key+value" " ht_135" -" i_154)))" +" i_155)))" "(let-values(((table_205)" "(let-values(((table_206)" " table_204))" @@ -36941,7 +37171,7 @@ static const char *startup_source = "(let-values(((table_47)" "(let-values()" "(let-values(((key_74" -" val_67)" +" val_68)" "(let-values()" "(values" " phase_96" @@ -36965,7 +37195,7 @@ static const char *startup_source = "(hash-set" " table_207" " key_74" -" val_67)))))" +" val_68)))))" "(values" " table_47)))" " table_206))))" @@ -36975,7 +37205,7 @@ static const char *startup_source = " table_205" "(hash-iterate-next" " ht_135" -" i_154))" +" i_155))" " table_205)))" " table_204)))))" " for-loop_247)" @@ -36987,7 +37217,7 @@ static const char *startup_source = "(if(not #f)(for-loop_246 rest_149)(values))))" "(values))))))" " for-loop_246)" -" lst_277)))" +" lst_278)))" "(void)))))" "(define-values" "(filter-language-info)" @@ -37016,16 +37246,16 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_136)))" "((letrec-values(((for-loop_248)" -"(lambda(table_208 i_155)" +"(lambda(table_208 i_156)" "(begin" " 'for-loop" -"(if i_155" -"(let-values(((k_33 v_70)(hash-iterate-key+value ht_136 i_155)))" +"(if i_156" +"(let-values(((k_33 v_70)(hash-iterate-key+value ht_136 i_156)))" "(let-values(((table_209)" "(let-values(((table_210) table_208))" "(let-values(((table_211)" "(let-values()" -"(let-values(((key_75 val_68)" +"(let-values(((key_75 val_69)" "(let-values()" "(if(1/linklet? v_70)" "(let-values()" @@ -37035,10 +37265,10 @@ static const char *startup_source = " v_70)))" "(let-values()" "(values k_33 v_70))))))" -"(hash-set table_210 key_75 val_68)))))" +"(hash-set table_210 key_75 val_69)))))" "(values table_211)))))" "(if(not #f)" -"(for-loop_248 table_209(hash-iterate-next ht_136 i_155))" +"(for-loop_248 table_209(hash-iterate-next ht_136 i_156))" " table_209)))" " table_208)))))" " for-loop_248)" @@ -37053,16 +37283,16 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_137)))" "((letrec-values(((for-loop_249)" -"(lambda(table_212 i_156)" +"(lambda(table_212 i_157)" "(begin" " 'for-loop" -"(if i_156" -"(let-values(((k_34 v_1)(hash-iterate-key+value ht_137 i_156)))" +"(if i_157" +"(let-values(((k_34 v_1)(hash-iterate-key+value ht_137 i_157)))" "(let-values(((table_213)" "(let-values(((table_214) table_212))" "(let-values(((table_215)" "(let-values()" -"(let-values(((key_76 val_69)" +"(let-values(((key_76 val_70)" "(let-values()" "(if(1/compiled-expression?" " v_1)" @@ -37073,10 +37303,10 @@ static const char *startup_source = " v_1)))" "(let-values()" "(values k_34 v_1))))))" -"(hash-set table_214 key_76 val_69)))))" +"(hash-set table_214 key_76 val_70)))))" "(values table_215)))))" "(if(not #f)" -"(for-loop_249 table_213(hash-iterate-next ht_137 i_156))" +"(for-loop_249 table_213(hash-iterate-next ht_137 i_157))" " table_213)))" " table_212)))))" " for-loop_249)" @@ -37141,16 +37371,16 @@ static const char *startup_source = "(begin" " 'map-construct-compiled-in-memory" "(reverse$1" -"(let-values(((lst_266) l_69)" -"((lst_88)" +"(let-values(((lst_267) l_69)" +"((lst_87)" "(vector-ref" " mpi-vector-tree_0" " vec-pos_0))" -"((lst_162)" +"((lst_163)" "(vector-ref" " phase-to-link-modules-tree_0" " vec-pos_0))" -"((lst_264)" +"((lst_265)" "(vector-ref" " syntax-literals-tree_0" " vec-pos_0)))" @@ -37158,62 +37388,62 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_266)))" +"(let-values()(check-list lst_267)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_88)))" +"(let-values()(check-list lst_87)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_162)))" +"(let-values()(check-list lst_163)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_264)))" +"(let-values()(check-list lst_265)))" "((letrec-values(((for-loop_232)" "(lambda(fold-var_157" -" lst_267" +" lst_268" " lst_23" -" lst_103" -" lst_89)" +" lst_102" +" lst_88)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_267)" +" lst_268)" "(if(pair?" " lst_23)" "(if(pair?" -" lst_103)" +" lst_102)" "(pair?" -" lst_89)" +" lst_88)" " #f)" " #f)" " #f)" "(let-values(((sub-ld_0)" "(unsafe-car" -" lst_267))" +" lst_268))" "((rest_150)" "(unsafe-cdr" -" lst_267))" +" lst_268))" "((mpi-vector-tree_1)" "(unsafe-car" " lst_23))" -"((rest_51)" +"((rest_50)" "(unsafe-cdr" " lst_23))" "((phase-to-link-modules-tree_1)" "(unsafe-car" -" lst_103))" +" lst_102))" "((rest_90)" "(unsafe-cdr" -" lst_103))" +" lst_102))" "((syntax-literals-tree_1)" "(unsafe-car" -" lst_89))" -"((rest_37)" +" lst_88))" +"((rest_36)" "(unsafe-cdr" -" lst_89)))" +" lst_88)))" "(let-values(((fold-var_168)" "(let-values(((fold-var_169)" " fold-var_157))" @@ -37233,17 +37463,17 @@ static const char *startup_source = "(for-loop_232" " fold-var_168" " rest_150" -" rest_51" +" rest_50" " rest_90" -" rest_37)" +" rest_36)" " fold-var_168)))" " fold-var_157)))))" " for-loop_232)" " null" -" lst_266" -" lst_88" -" lst_162" -" lst_264))))))))" +" lst_267" +" lst_87" +" lst_163" +" lst_265))))))))" "(compiled-in-memory1.1" " ld_6" " #f" @@ -37279,51 +37509,51 @@ static const char *startup_source = " vec_66))))))" "(begin" " #f" -"((letrec-values(((for-loop_104)" -"(lambda(i_157 pos_101)" +"((letrec-values(((for-loop_105)" +"(lambda(i_158 pos_100)" "(begin" " 'for-loop" "(if(unsafe-fx<" -" pos_101" +" pos_100" " len_31)" -"(let-values(((pos_102)" +"(let-values(((pos_101)" "(unsafe-vector-ref" " vec_65" -" pos_101)))" -"(let-values(((i_158)" -"(let-values(((i_59)" -" i_157))" +" pos_100)))" "(let-values(((i_159)" +"(let-values(((i_61)" +" i_158))" +"(let-values(((i_160)" "(let-values()" "(begin" "(unsafe-vector*-set!" " v_66" -" i_59" +" i_61" "(let-values()" "(vector-ref" " mpi-vector_0" -" pos_102)))" +" pos_101)))" "(unsafe-fx+" " 1" -" i_59)))))" +" i_61)))))" "(values" -" i_159)))))" +" i_160)))))" "(if(if(not" "((lambda x_19" "(unsafe-fx=" -" i_158" +" i_159" " len_30))" -" pos_102))" +" pos_101))" "(not #f)" " #f)" -"(for-loop_104" -" i_158" +"(for-loop_105" +" i_159" "(unsafe-fx+" " 1" -" pos_101))" -" i_158)))" -" i_157)))))" -" for-loop_104)" +" pos_100))" +" i_159)))" +" i_158)))))" +" for-loop_105)" " 0" " 0)))))" " v_66))))" @@ -37352,21 +37582,21 @@ static const char *startup_source = "(let-values()" "(check-range start_15 end_28 inc_22)))" "((letrec-values(((for-loop_250)" -"(lambda(i_160 pos_103)" +"(lambda(i_161 pos_102)" "(begin" " 'for-loop" -"(if(< pos_103 end_28)" -"(let-values(((i_95)" -" pos_103))" -"(let-values(((i_161)" -"(let-values(((i_33)" -" i_160))" +"(if(< pos_102 end_28)" +"(let-values(((i_96)" +" pos_102))" +"(let-values(((i_162)" +"(let-values(((i_35)" +" i_161))" "(let-values(((i_20)" "(let-values()" "(begin" "(unsafe-vector*-set!" " v_34" -" i_33" +" i_35" "(let-values()" "(if syntax-literals_5" "(vector-ref" @@ -37374,28 +37604,28 @@ static const char *startup_source = "(+" "(car" " syntax-literals-spec_0)" -" i_95))" +" i_96))" " #f)))" "(unsafe-fx+" " 1" -" i_33)))))" +" i_35)))))" "(values" " i_20)))))" "(if(if(not" -"((lambda x_70" +"((lambda x_71" "(unsafe-fx=" -" i_161" +" i_162" " len_32))" -" i_95))" +" i_96))" "(not #f)" " #f)" "(for-loop_250" -" i_161" +" i_162" "(+" -" pos_103" +" pos_102" " inc_22))" -" i_161)))" -" i_160)))))" +" i_162)))" +" i_161)))))" " for-loop_250)" " 0" " start_15)))))" @@ -37423,18 +37653,18 @@ 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_176) names_2))" +"(let-values(((lst_177) names_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_176)))" +"(let-values()(check-list lst_177)))" "((letrec-values(((for-loop_251)" -"(lambda(fold-var_5 lst_279)" +"(lambda(fold-var_5 lst_280)" "(begin" " 'for-loop" -"(if(pair? lst_279)" -"(let-values(((name_44)(unsafe-car lst_279))" -"((rest_151)(unsafe-cdr lst_279)))" +"(if(pair? lst_280)" +"(let-values(((name_44)(unsafe-car lst_280))" +"((rest_151)(unsafe-cdr lst_280)))" "(let-values(((fold-var_227)" "(let-values(((fold-var_228) fold-var_5))" "(let-values(((fold-var_229)" @@ -37454,7 +37684,7 @@ static const char *startup_source = " fold-var_5)))))" " for-loop_251)" " null" -" lst_176))))))))))))))" +" lst_177))))))))))))))" "(define-values" "(eval-single-top)" "(lambda(c_31 ns_42)" @@ -37494,7 +37724,7 @@ static const char *startup_source = "(lambda(l_65)" "(begin" " 'eval-compiled-parts" -"((letrec-values(((loop_93)" +"((letrec-values(((loop_96)" "(lambda(l_70)" "(begin" " 'loop" @@ -37505,8 +37735,8 @@ static const char *startup_source = "(let-values()" "(begin" "(eval-compiled_2(car l_70) ns_46 #f)" -"(loop_93(cdr l_70))))))))))" -" loop_93)" +"(loop_96(cdr l_70))))))))))" +" loop_96)" " l_65)))))" "(if(compiled-in-memory? c_50)" "(let-values()(eval-compiled-parts_0(compiled-in-memory-pre-compiled-in-memorys c_50)))" @@ -37569,7 +37799,7 @@ static const char *startup_source = "(if(compiled-in-memory? c_51)" "(compiled-in-memory-phase-to-link-module-uses c_51)" "(1/instance-variable-value link-instance_0 'phase-to-link-modules))))" -"(let-values(((thunk_3)" +"(let-values(((thunk_5)" "(let-values(((start_39) max-phase_5)" "((end_29)(sub1 orig-phase_1))" "((inc_23) -1))" @@ -37578,11 +37808,11 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_39 end_29 inc_23)))" "((letrec-values(((for-loop_26)" -"(lambda(prev-thunk_0 pos_104)" +"(lambda(prev-thunk_0 pos_103)" "(begin" " 'for-loop" -"(if(> pos_104 end_29)" -"(let-values(((phase_97) pos_104))" +"(if(> pos_103 end_29)" +"(let-values(((phase_97) pos_103))" "(let-values(((prev-thunk_1)" "(let-values(((prev-thunk_2)" " prev-thunk_0))" @@ -37602,7 +37832,7 @@ static const char *startup_source = " import-instances_1)" "(let-values(((mis_6" " is_5)" -"(let-values(((lst_280)" +"(let-values(((lst_281)" " module-uses_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -37610,8 +37840,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_280)))" -"((letrec-values(((for-loop_100)" +" lst_281)))" +"((letrec-values(((for-loop_101)" "(lambda(mis_7" " is_6" " lst_10)" @@ -37668,7 +37898,7 @@ static const char *startup_source = " is_9)))))" "(if(not" " #f)" -"(for-loop_100" +"(for-loop_101" " mis_8" " is_7" " rest_1)" @@ -37678,10 +37908,10 @@ static const char *startup_source = "(values" " mis_7" " is_6))))))" -" for-loop_100)" +" for-loop_101)" " null" " null" -" lst_280)))))" +" lst_281)))))" "(values" "(reverse$1" " mis_6)" @@ -37711,7 +37941,7 @@ static const char *startup_source = " ns_70))" "((temp39_3)" "(lambda(name_45" -" val_70)" +" val_71)" "(namespace-set-transformer!" " ns_70" "(phase+" @@ -37719,7 +37949,7 @@ static const char *startup_source = " phase_97)" " phase-shift_19)" " name_45" -" val_70))))" +" val_71))))" "(make-instance-instance13.1" " temp38_2" " temp37_1" @@ -37841,13 +38071,13 @@ static const char *startup_source = "(if(not #f)" "(for-loop_26" " prev-thunk_1" -"(+ pos_104 inc_23))" +"(+ pos_103 inc_23))" " prev-thunk_1)))" " prev-thunk_0)))))" " for-loop_26)" " void" " start_39)))))" -"(thunk_3 as-tail?_2))))))))))))))))))))" +"(thunk_5 as-tail?_2))))))))))))))))))))" "(define-values" "(link-instance-from-compiled-in-memory)" "(lambda(cim_11 to-ns_0)" @@ -37867,7 +38097,7 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_33)))" -"(let-values(((v_188)(make-vector len_33 0)))" +"(let-values(((v_189)(make-vector len_33 0)))" "(begin" "(if(zero? len_33)" "(void)" @@ -37880,20 +38110,20 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_252)" -"(lambda(i_162 pos_105)" +"(lambda(i_163 pos_104)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_105 len_34)" +"(if(unsafe-fx< pos_104 len_34)" "(let-values(((s_419)" -"(unsafe-vector-ref vec_67 pos_105)))" -"(let-values(((i_163)" -"(let-values(((i_164) i_162))" -"(let-values(((i_165)" +"(unsafe-vector-ref vec_67 pos_104)))" +"(let-values(((i_164)" +"(let-values(((i_165) i_163))" +"(let-values(((i_166)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_188" -" i_164" +" v_189" +" i_165" "(let-values()" "(swap-top-level-scopes" " s_419" @@ -37902,21 +38132,21 @@ static const char *startup_source = " to-ns_0)))" "(unsafe-fx+" " 1" -" i_164)))))" -"(values i_165)))))" +" i_165)))))" +"(values i_166)))))" "(if(if(not" -"((lambda x_71" -"(unsafe-fx= i_163 len_33))" +"((lambda x_72" +"(unsafe-fx= i_164 len_33))" " s_419))" "(not #f)" " #f)" -"(for-loop_252 i_163(unsafe-fx+ 1 pos_105))" -" i_163)))" -" i_162)))))" +"(for-loop_252 i_164(unsafe-fx+ 1 pos_104))" +" i_164)))" +" i_163)))))" " for-loop_252)" " 0" " 0)))))" -" v_188)))))))))" +" v_189)))))))))" "(1/make-instance" " 'link" " #f" @@ -37934,31 +38164,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_113)" -"(lambda(result_117 lst_6)" +"(let-values()(check-list lst_101)))" +"((letrec-values(((for-loop_114)" +"(lambda(result_118 lst_6)" "(begin" " 'for-loop" "(if(pair? lst_6)" -"(let-values(((r_41)(unsafe-car lst_6))((rest_50)(unsafe-cdr lst_6)))" +"(let-values(((r_42)(unsafe-car lst_6))((rest_49)(unsafe-cdr lst_6)))" "(let-values(((result_81)" "(let-values()" -"(let-values(((result_118)" +"(let-values(((result_119)" "(let-values()" "(let-values()" -"(can-direct-eval? r_41 ns_42 self-mpi_3)))))" -"(values result_118)))))" -"(if(if(not((lambda x_72(not result_81)) r_41))(not #f) #f)" -"(for-loop_113 result_81 rest_50)" +"(can-direct-eval? r_42 ns_42 self-mpi_3)))))" +"(values result_119)))))" +"(if(if(not((lambda x_73(not result_81)) r_42))(not #f) #f)" +"(for-loop_114 result_81 rest_49)" " result_81)))" -" result_117)))))" -" for-loop_113)" +" result_118)))))" +" for-loop_114)" " #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)))" @@ -37974,15 +38204,15 @@ static const char *startup_source = "(apply" "(direct-eval(parsed-app-rator p_48) ns_71 self-mpi_4)" "(reverse$1" -"(let-values(((lst_77)(parsed-app-rands p_48)))" +"(let-values(((lst_76)(parsed-app-rands p_48)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_77)))" -"((letrec-values(((for-loop_97)" -"(lambda(fold-var_230 lst_78)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_76)))" +"((letrec-values(((for-loop_98)" +"(lambda(fold-var_230 lst_77)" "(begin" " 'for-loop" -"(if(pair? lst_78)" -"(let-values(((r_8)(unsafe-car lst_78))((rest_36)(unsafe-cdr lst_78)))" +"(if(pair? lst_77)" +"(let-values(((r_8)(unsafe-car lst_77))((rest_35)(unsafe-cdr lst_77)))" "(let-values(((fold-var_224)" "(let-values(((fold-var_67) fold-var_230))" "(let-values(((fold-var_26)" @@ -37992,11 +38222,11 @@ static const char *startup_source = "(direct-eval r_8 ns_71 self-mpi_4))" " fold-var_67))))" "(values fold-var_26)))))" -"(if(not #f)(for-loop_97 fold-var_224 rest_36) fold-var_224)))" +"(if(not #f)(for-loop_98 fold-var_224 rest_35) fold-var_224)))" " fold-var_230)))))" -" for-loop_97)" +" for-loop_98)" " null" -" lst_77))))))" +" lst_76))))))" "(if(parsed-id? p_48)" "(let-values()(get-id-value p_48 ns_71 self-mpi_4))" "(if(parsed-quote? p_48)" @@ -38046,12 +38276,12 @@ static const char *startup_source = "(define-values(runtime-mpi)(1/module-path-index-join ''#%runtime #f))" "(define-values" "(add-runtime-primitive!)" -"(lambda(sym_62)" +"(lambda(sym_63)" "(begin" "(let-values(((temp1_3)(syntax-scope-set runtime-stx 0))" -"((sym2_0) sym_62)" +"((sym2_0) sym_63)" "((temp3_5)" -"(let-values(((runtime-mpi4_0) runtime-mpi)((temp5_4) 0)((sym6_2) sym_62))" +"(let-values(((runtime-mpi4_0) runtime-mpi)((temp5_4) 0)((sym6_2) sym_63))" "(make-module-binding22.1" " #f" " #f" @@ -38074,7 +38304,7 @@ static const char *startup_source = " runtime-mpi4_0" " temp5_4" " sym6_2))))" -"(add-binding-in-scopes!20.1 #f #f temp1_3 sym2_0 temp3_5)))))" +"(add-binding-in-scopes!21.1 #f #f temp1_3 sym2_0 temp3_5)))))" "(void" "(begin" "(add-runtime-primitive! 'values)" @@ -38091,7 +38321,7 @@ static const char *startup_source = "(define-values(box-clear!)(lambda(b_17)(begin(begin0(reverse$1(unbox b_17))(set-box! b_17 null)))))" "(define-values" "(struct:lift-context lift-context1.1 lift-context? lift-context-convert lift-context-lifts lift-context-module*-ok?)" -"(let-values(((struct:_71 make-_71 ?_71 -ref_71 -set!_71)" +"(let-values(((struct:_72 make-_72 ?_72 -ref_72 -set!_72)" "(let-values()" "(let-values()" "(make-struct-type" @@ -38107,15 +38337,15 @@ static const char *startup_source = " #f" " 'lift-context)))))" "(values" -" struct:_71" -" make-_71" -" ?_71" -"(make-struct-field-accessor -ref_71 0 'convert)" -"(make-struct-field-accessor -ref_71 1 'lifts)" -"(make-struct-field-accessor -ref_71 2 'module*-ok?))))" +" struct:_72" +" make-_72" +" ?_72" +"(make-struct-field-accessor -ref_72 0 'convert)" +"(make-struct-field-accessor -ref_72 1 'lifts)" +"(make-struct-field-accessor -ref_72 2 'module*-ok?))))" "(define-values" "(struct:lifted-bind lifted-bind2.1 lifted-bind? lifted-bind-ids lifted-bind-keys lifted-bind-rhs)" -"(let-values(((struct:_72 make-_72 ?_72 -ref_72 -set!_72)" +"(let-values(((struct:_73 make-_73 ?_73 -ref_73 -set!_73)" "(let-values()" "(let-values()" "(make-struct-type" @@ -38131,12 +38361,12 @@ static const char *startup_source = " #f" " 'lifted-bind)))))" "(values" -" struct:_72" -" make-_72" -" ?_72" -"(make-struct-field-accessor -ref_72 0 'ids)" -"(make-struct-field-accessor -ref_72 1 'keys)" -"(make-struct-field-accessor -ref_72 2 'rhs))))" +" struct:_73" +" make-_73" +" ?_73" +"(make-struct-field-accessor -ref_73 0 'ids)" +"(make-struct-field-accessor -ref_73 1 'keys)" +"(make-struct-field-accessor -ref_73 2 'rhs))))" "(define-values" "(make-lift-context6.1)" "(lambda(module*-ok?3_0 module*-ok?4_0 convert5_0)" @@ -38159,18 +38389,18 @@ static const char *startup_source = "(lambda(ids_17 rhs_13 phase_99)" "(let-values(((keys_2)" "(reverse$1" -"(let-values(((lst_281) ids_17))" +"(let-values(((lst_282) ids_17))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_281)))" +"(let-values()(check-list lst_282)))" "((letrec-values(((for-loop_253)" -"(lambda(fold-var_231 lst_282)" +"(lambda(fold-var_231 lst_283)" "(begin" " 'for-loop" -"(if(pair? lst_282)" -"(let-values(((id_58)(unsafe-car lst_282))" -"((rest_152)(unsafe-cdr lst_282)))" +"(if(pair? lst_283)" +"(let-values(((id_59)(unsafe-car lst_283))" +"((rest_152)(unsafe-cdr lst_283)))" "(let-values(((fold-var_83)" "(let-values(((fold-var_84) fold-var_231))" "(let-values(((fold-var_232)" @@ -38179,7 +38409,7 @@ static const char *startup_source = "(let-values()" "(let-values(((key_78)" "(let-values(((id32_0)" -" id_58)" +" id_59)" "((phase33_0)" " phase_99)" "((counter34_0)" @@ -38206,7 +38436,7 @@ static const char *startup_source = " fold-var_231)))))" " for-loop_253)" " null" -" lst_281))))))" +" lst_282))))))" "(values ids_17(lifted-bind2.1 ids_17 keys_2 rhs_13)))))))" "(define-values" "(make-top-level-lift)" @@ -38218,18 +38448,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_283) ids_18))" +"(let-values(((lst_284) ids_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_283)))" +"(let-values()(check-list lst_284)))" "((letrec-values(((for-loop_254)" -"(lambda(fold-var_233 lst_181)" +"(lambda(fold-var_233 lst_182)" "(begin" " 'for-loop" -"(if(pair? lst_181)" -"(let-values(((id_59)(unsafe-car lst_181))" -"((rest_153)(unsafe-cdr lst_181)))" +"(if(pair? lst_182)" +"(let-values(((id_60)(unsafe-car lst_182))" +"((rest_153)(unsafe-cdr lst_182)))" "(let-values(((fold-var_234)" "(let-values(((fold-var_235) fold-var_233))" "(let-values(((fold-var_236)" @@ -38237,7 +38467,7 @@ static const char *startup_source = "(cons" "(let-values()" "(add-scope" -" id_59" +" id_60" " post-scope_0))" " fold-var_235))))" "(values fold-var_236)))))" @@ -38247,7 +38477,7 @@ static const char *startup_source = " fold-var_233)))))" " for-loop_254)" " null" -" lst_283))))))" +" lst_284))))))" "(let-values(((syms_19)(select-defined-syms-and-bind!/ctx tl-ids_1 ctx_11)))" "(values tl-ids_1(lifted-bind2.1 tl-ids_1 syms_19 rhs_14)))))))))" "(define-values" @@ -38256,15 +38486,15 @@ static const char *startup_source = "(begin" "(datum->syntax$1" " #f" -"(let-values(((lst_284)(reverse$1 lifts_3)))" +"(let-values(((lst_285)(reverse$1 lifts_3)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_284)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_285)))" "((letrec-values(((for-loop_4)" -"(lambda(body_6 lst_190)" +"(lambda(body_6 lst_191)" "(begin" " 'for-loop" -"(if(pair? lst_190)" -"(let-values(((lift_0)(unsafe-car lst_190))((rest_101)(unsafe-cdr lst_190)))" +"(if(pair? lst_191)" +"(let-values(((lift_0)(unsafe-car lst_191))((rest_101)(unsafe-cdr lst_191)))" "(let-values(((body_7)" "(let-values(((body_8) body_6))" "(let-values(((body_9)" @@ -38288,7 +38518,7 @@ static const char *startup_source = " body_6)))))" " for-loop_4)" " body_5" -" lst_284)))))))" +" lst_285)))))))" "(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)" @@ -38306,18 +38536,18 @@ static const char *startup_source = "(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_101) 'begin)" "(append" "(reverse$1" -"(let-values(((lst_285) lifts_4))" +"(let-values(((lst_286) lifts_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_285)))" -"((letrec-values(((for-loop_200)" -"(lambda(fold-var_237 lst_169)" +"(let-values()(check-list lst_286)))" +"((letrec-values(((for-loop_199)" +"(lambda(fold-var_237 lst_170)" "(begin" " 'for-loop" -"(if(pair? lst_169)" -"(let-values(((lift_1)(unsafe-car lst_169))" -"((rest_154)(unsafe-cdr lst_169)))" +"(if(pair? lst_170)" +"(let-values(((lift_1)(unsafe-car lst_170))" +"((rest_154)(unsafe-cdr lst_170)))" "(let-values(((fold-var_0)" "(let-values(((fold-var_238) fold-var_237))" "(let-values(((fold-var_239)" @@ -38341,26 +38571,26 @@ static const char *startup_source = "(let-values() lift_1))))" " fold-var_238))))" "(values fold-var_239)))))" -"(if(not #f)(for-loop_200 fold-var_0 rest_154) fold-var_0)))" +"(if(not #f)(for-loop_199 fold-var_0 rest_154) fold-var_0)))" " fold-var_237)))))" -" for-loop_200)" +" for-loop_199)" " null" -" lst_285))))" +" lst_286))))" "(list(adjust-body_0 body_10))))))))))))))" "(define-values" "(get-lifts-as-lists)" "(lambda(lifts_5)" "(begin" "(reverse$1" -"(let-values(((lst_194) lifts_5))" +"(let-values(((lst_195) lifts_5))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_194)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_195)))" "((letrec-values(((for-loop_255)" -"(lambda(fold-var_101 lst_286)" +"(lambda(fold-var_101 lst_287)" "(begin" " 'for-loop" -"(if(pair? lst_286)" -"(let-values(((lift_2)(unsafe-car lst_286))((rest_155)(unsafe-cdr lst_286)))" +"(if(pair? lst_287)" +"(let-values(((lift_2)(unsafe-car lst_287))((rest_155)(unsafe-cdr lst_287)))" "(let-values(((fold-var_35)" "(let-values(((fold-var_240) fold-var_101))" "(let-values(((fold-var_241)" @@ -38377,7 +38607,7 @@ static const char *startup_source = " fold-var_101)))))" " for-loop_255)" " null" -" lst_194)))))))" +" lst_195)))))))" "(define-values" "(struct:module-lift-context" " module-lift-context19.1" @@ -38385,7 +38615,7 @@ static const char *startup_source = " module-lift-context-wrt-phase" " module-lift-context-lifts" " module-lift-context-module*-ok?)" -"(let-values(((struct:_73 make-_73 ?_73 -ref_73 -set!_73)" +"(let-values(((struct:_74 make-_74 ?_74 -ref_74 -set!_74)" "(let-values()" "(let-values()" "(make-struct-type" @@ -38401,12 +38631,12 @@ static const char *startup_source = " #f" " 'module-lift-context)))))" "(values" -" struct:_73" -" make-_73" -" ?_73" -"(make-struct-field-accessor -ref_73 0 'wrt-phase)" -"(make-struct-field-accessor -ref_73 1 'lifts)" -"(make-struct-field-accessor -ref_73 2 'module*-ok?))))" +" struct:_74" +" make-_74" +" ?_74" +"(make-struct-field-accessor -ref_74 0 'wrt-phase)" +"(make-struct-field-accessor -ref_74 1 'lifts)" +"(make-struct-field-accessor -ref_74 2 'module*-ok?))))" "(define-values" "(make-module-lift-context)" "(lambda(phase_102 module*-ok?_1)(begin(module-lift-context19.1 phase_102(box null) module*-ok?_1))))" @@ -38418,19 +38648,19 @@ static const char *startup_source = "(lambda(module-lifts_2 s_420 phase_103)" "(begin" "(begin" -"(if(let-values(((or-part_213)" +"(if(let-values(((or-part_214)" "(if(module-lift-context? module-lifts_2)" "(module-lift-context-module*-ok? module-lifts_2)" " #f)))" -"(if or-part_213" -" or-part_213" +"(if or-part_214" +" or-part_214" "(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_420 phase_103)))" -"(if(equal? tmp_29 'module)" +"(let-values(((tmp_30)(core-form-sym s_420 phase_103)))" +"(if(equal? tmp_30 'module)" "(let-values()(void))" -"(if(equal? tmp_29 'module*)" +"(if(equal? tmp_30 'module*)" "(let-values()" "(raise-arguments-error" " 'syntax-local-lift-module" @@ -38451,7 +38681,7 @@ static const char *startup_source = " require-lift-context-do-require" " require-lift-context-wrt-phase" " require-lift-context-requires)" -"(let-values(((struct:_74 make-_74 ?_74 -ref_74 -set!_74)" +"(let-values(((struct:_75 make-_75 ?_75 -ref_75 -set!_75)" "(let-values()" "(let-values()" "(make-struct-type" @@ -38467,12 +38697,12 @@ static const char *startup_source = " #f" " 'require-lift-context)))))" "(values" -" struct:_74" -" make-_74" -" ?_74" -"(make-struct-field-accessor -ref_74 0 'do-require)" -"(make-struct-field-accessor -ref_74 1 'wrt-phase)" -"(make-struct-field-accessor -ref_74 2 'requires))))" +" struct:_75" +" make-_75" +" ?_75" +"(make-struct-field-accessor -ref_75 0 'do-require)" +"(make-struct-field-accessor -ref_75 1 'wrt-phase)" +"(make-struct-field-accessor -ref_75 2 'requires))))" "(define-values" "(make-require-lift-context)" "(lambda(wrt-phase_0 do-require_0)(begin(require-lift-context20.1 do-require_0 wrt-phase_0(box null)))))" @@ -38481,10 +38711,10 @@ 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_421 phase_104)" +"(lambda(require-lifts_2 s_421 phase_12)" "(begin" "(begin" -"((require-lift-context-do-require require-lifts_2) s_421 phase_104)" +"((require-lift-context-do-require require-lifts_2) s_421 phase_12)" "(box-cons!(require-lift-context-requires require-lifts_2) s_421)))))" "(define-values" "(struct:to-module-lift-context" @@ -38494,7 +38724,7 @@ static const char *startup_source = " to-module-lift-context-provides" " to-module-lift-context-end-as-expressions?" " to-module-lift-context-ends)" -"(let-values(((struct:_75 make-_75 ?_75 -ref_75 -set!_75)" +"(let-values(((struct:_76 make-_76 ?_76 -ref_76 -set!_76)" "(let-values()" "(let-values()" "(make-struct-type" @@ -38510,22 +38740,22 @@ static const char *startup_source = " #f" " 'to-module-lift-context)))))" "(values" -" struct:_75" -" make-_75" -" ?_75" -"(make-struct-field-accessor -ref_75 0 'wrt-phase)" -"(make-struct-field-accessor -ref_75 1 'provides)" -"(make-struct-field-accessor -ref_75 2 'end-as-expressions?)" -"(make-struct-field-accessor -ref_75 3 'ends))))" +" struct:_76" +" make-_76" +" ?_76" +"(make-struct-field-accessor -ref_76 0 'wrt-phase)" +"(make-struct-field-accessor -ref_76 1 'provides)" +"(make-struct-field-accessor -ref_76 2 'end-as-expressions?)" +"(make-struct-field-accessor -ref_76 3 'ends))))" "(define-values" "(make-to-module-lift-context27.1)" "(lambda(end-as-expressions?23_0 shared-module-ends22_0 phase26_2)" "(begin" " 'make-to-module-lift-context27" -"(let-values(((phase_105) phase26_2))" +"(let-values(((phase_104) phase26_2))" "(let-values(((ends_0) shared-module-ends22_0))" "(let-values(((end-as-expressions?_0) end-as-expressions?23_0))" -"(let-values()(to-module-lift-context21.1 phase_105(box null) end-as-expressions?_0 ends_0))))))))" +"(let-values()(to-module-lift-context21.1 phase_104(box null) end-as-expressions?_0 ends_0))))))))" "(define-values(make-shared-module-ends)(lambda()(begin(box null))))" "(define-values" "(get-and-clear-end-lifts!)" @@ -38535,12 +38765,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_422 phase_106)" +"(lambda(to-module-lifts_3 s_422 phase_105)" "(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_422))))" "(define-values" "(add-lifted-to-module-end!)" -"(lambda(to-module-lifts_4 s_331 phase_107)" -"(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_331))))" +"(lambda(to-module-lifts_4 s_334 phase_106)" +"(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_334))))" "(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)" @@ -38592,20 +38822,20 @@ static const char *startup_source = "(lambda(v_26 info_1)" "(begin" "(if(if(list? v_26)" -"(let-values(((lst_75) v_26))" +"(let-values(((lst_74) v_26))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_75)))" -"((letrec-values(((for-loop_96)" -"(lambda(result_79 lst_76)" +"(let-values()(check-list lst_74)))" +"((letrec-values(((for-loop_97)" +"(lambda(result_79 lst_75)" "(begin" " 'for-loop" -"(if(pair? lst_76)" -"(let-values(((s_2)(unsafe-car lst_76))((rest_35)(unsafe-cdr lst_76)))" +"(if(pair? lst_75)" +"(let-values(((s_2)(unsafe-car lst_75))((rest_34)(unsafe-cdr lst_75)))" "(let-values(((result_66)" "(let-values()" -"(let-values(((result_119)" +"(let-values(((result_120)" "(let-values()" "(let-values()" "(memq" @@ -38615,14 +38845,14 @@ static const char *startup_source = " module" " module-begin" " definition-context))))))" -"(values result_119)))))" -"(if(if(not((lambda x_73(not result_66)) s_2))(not #f) #f)" -"(for-loop_96 result_66 rest_35)" +"(values result_120)))))" +"(if(if(not((lambda x_74(not result_66)) s_2))(not #f) #f)" +"(for-loop_97 result_66 rest_34)" " result_66)))" " result_79)))))" -" for-loop_96)" +" for-loop_97)" " #t" -" lst_75)))" +" lst_74)))" " #f)" "(void)" "(let-values()" @@ -38633,25 +38863,25 @@ static const char *startup_source = " v_26))))" "(define-values" "(not-in-this-expand-context?)" -"(lambda(t_44 ctx_12)" +"(lambda(t_45 ctx_12)" "(begin" -"(if(expansion-contexts? t_44)" -"(not(memq(context->symbol(expand-context-context ctx_12))(expansion-contexts-ref t_44)))" +"(if(expansion-contexts? t_45)" +"(not(memq(context->symbol(expand-context-context ctx_12))(expansion-contexts-ref t_45)))" " #f))))" "(define-values(context->symbol)(lambda(context_5)(begin(if(symbol? context_5) context_5 'definition-context))))" "(define-values" "(avoid-current-expand-context)" -"(lambda(s_177 t_45 ctx_13)" +"(lambda(s_180 t_46 ctx_13)" "(begin" "(let-values(((wrap_1)" -"(lambda(sym_63)" +"(lambda(sym_64)" "(begin" " 'wrap" "(datum->syntax$1" " #f" "(list" -"(syntax-shift-phase-level$1(datum->syntax$1 core-stx sym_63)(expand-context-phase ctx_13))" -" s_177))))))" +"(syntax-shift-phase-level$1(datum->syntax$1 core-stx sym_64)(expand-context-phase ctx_13))" +" s_180))))))" "(let-values(((fail_0)" "(lambda()" "(begin" @@ -38661,12 +38891,12 @@ static const char *startup_source = "(format" " \"not allowed in context\\n expansion context: ~a\"" "(context->symbol(expand-context-context ctx_13)))" -" s_177)))))" -"(let-values(((tmp_30)(context->symbol(expand-context-context ctx_13))))" -"(if(equal? tmp_30 'module-begin)" +" s_180)))))" +"(let-values(((tmp_31)(context->symbol(expand-context-context ctx_13))))" +"(if(equal? tmp_31 'module-begin)" "(let-values()(wrap_1 'begin))" -"(if(if(equal? tmp_30 'module) #t(if(equal? tmp_30 'top-level) #t(equal? tmp_30 'definition-context)))" -"(let-values()(if(memq 'expression(expansion-contexts-ref t_45))(wrap_1 '#%expression)(fail_0)))" +"(if(if(equal? tmp_31 'module) #t(if(equal? tmp_31 'top-level) #t(equal? tmp_31 'definition-context)))" +"(let-values()(if(memq 'expression(expansion-contexts-ref t_46))(wrap_1 '#%expression)(fail_0)))" "(let-values()(fail_0))))))))))" "(define-values" "(struct:reference-record" @@ -38723,11 +38953,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_41)))" "((letrec-values(((for-loop_191)" -"(lambda(lst_88)" +"(lambda(lst_87)" "(begin" " 'for-loop" -"(if(pair? lst_88)" -"(let-values(((rr_1)(unsafe-car lst_88))((rest_118)(unsafe-cdr lst_88)))" +"(if(pair? lst_87)" +"(let-values(((rr_1)(unsafe-car lst_87))((rest_118)(unsafe-cdr lst_87)))" "(let-values(((post-guard-var_0)(lambda()(begin 'post-guard-var #t))))" "(let-values()" "(if(reference-record-all-referenced? rr_1)" @@ -38755,11 +38985,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_23)))" "((letrec-values(((for-loop_256)" -"(lambda(ab_3 lst_79)" +"(lambda(ab_3 lst_78)" "(begin" " 'for-loop" -"(if(pair? lst_79)" -"(let-values(((key_79)(unsafe-car lst_79))((rest_141)(unsafe-cdr lst_79)))" +"(if(pair? lst_78)" +"(let-values(((key_79)(unsafe-car lst_78))((rest_141)(unsafe-cdr lst_78)))" "(let-values(((ab_4)" "(let-values(((ab_5) ab_3))" "(let-values(((ab_6)(let-values()(set-add ab_5 key_79))))" @@ -38771,9 +39001,9 @@ static const char *startup_source = " lst_23))))" "(set-reference-record-reference-before-bound!" " rr_2" -"(let-values(((lst_273) keys_3))" +"(let-values(((lst_274) keys_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_273)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_274)))" "((letrec-values(((for-loop_257)" "(lambda(rbb_0 lst_24)" "(begin" @@ -38788,7 +39018,7 @@ static const char *startup_source = " rbb_0)))))" " for-loop_257)" "(reference-record-reference-before-bound rr_2)" -" lst_273))))))))" +" lst_274))))))))" "(define-values" "(reference-record-forward-references?)" "(lambda(rr_3)" @@ -38808,8 +39038,8 @@ static const char *startup_source = "(let-values(((c1_29)(hash-ref key->arity key_81 #f)))" "(if c1_29" "((lambda(arity_2)" -"(if(let-values(((or-part_220)(eq? arity_2 'any)))" -"(if or-part_220 or-part_220(eqv?(length args_5) arity_2)))" +"(if(let-values(((or-part_222)(eq? arity_2 'any)))" +"(if or-part_222 or-part_222(eqv?(length args_5) arity_2)))" "(void)" " (let-values () (error 'call-expand-observe \"wrong arity for ~s: ~e\" key_81 args_5))))" " c1_29)" @@ -38903,11 +39133,11 @@ static const char *startup_source = "(begin" " 'rebuild5" "(let-values(((orig-s_30) orig-s3_0))" -"(let-values(((new_1) new4_0))" +"(let-values(((new_2) new4_0))" "(let-values(((track?_0)(if track?2_0 track?1_0 #t)))" "(let-values()" "(syntax-rearm$1" -"(datum->syntax$1(syntax-disarm$1 orig-s_30) new_1 orig-s_30(if track?_0 orig-s_30 #f))" +"(datum->syntax$1(syntax-disarm$1 orig-s_30) new_2 orig-s_30(if track?_0 orig-s_30 #f))" " orig-s_30))))))))" "(define-values" "(struct:expanded+parsed expanded+parsed1.1 expanded+parsed? expanded+parsed-s expanded+parsed-parsed)" @@ -38940,7 +39170,7 @@ static const char *startup_source = " semi-parsed-define-values-syms" " semi-parsed-define-values-ids" " semi-parsed-define-values-rhs)" -"(let-values(((struct:_65 make-_65 ?_65 -ref_65 -set!_65)" +"(let-values(((struct:_66 make-_66 ?_66 -ref_66 -set!_66)" "(let-values()" "(let-values()" "(make-struct-type" @@ -38956,13 +39186,13 @@ static const char *startup_source = " #f" " 'semi-parsed-define-values)))))" "(values" -" struct:_65" -" make-_65" -" ?_65" -"(make-struct-field-accessor -ref_65 0 's)" -"(make-struct-field-accessor -ref_65 1 'syms)" -"(make-struct-field-accessor -ref_65 2 'ids)" -"(make-struct-field-accessor -ref_65 3 'rhs))))" +" struct:_66" +" make-_66" +" ?_66" +"(make-struct-field-accessor -ref_66 0 's)" +"(make-struct-field-accessor -ref_66 1 'syms)" +"(make-struct-field-accessor -ref_66 2 'ids)" +"(make-struct-field-accessor -ref_66 3 'rhs))))" "(define-values" "(struct:semi-parsed-begin-for-syntax" " semi-parsed-begin-for-syntax3.1" @@ -38990,46 +39220,46 @@ 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_189)(begin(if(expanded+parsed? s_189)(expanded+parsed-s s_189) s_189))))" +"(define-values(extract-syntax)(lambda(s_192)(begin(if(expanded+parsed? s_192)(expanded+parsed-s s_192) s_192))))" "(define-values" "(parsed-only)" "(lambda(l_71)" "(begin" "(reverse$1" -"(let-values(((lst_176) l_71))" +"(let-values(((lst_177) l_71))" "(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)))" "((letrec-values(((for-loop_251)" -"(lambda(fold-var_5 lst_279)" +"(lambda(fold-var_5 lst_280)" "(begin" " 'for-loop" -"(if(pair? lst_279)" -"(let-values(((i_26)(unsafe-car lst_279))((rest_151)(unsafe-cdr lst_279)))" +"(if(pair? lst_280)" +"(let-values(((i_28)(unsafe-car lst_280))((rest_151)(unsafe-cdr lst_280)))" "(let-values(((fold-var_227)" "(let-values(((fold-var_228) fold-var_5))" -"(if(let-values(((or-part_257)(parsed? i_26)))" -"(if or-part_257" -" or-part_257" -"(let-values(((or-part_34)(expanded+parsed? i_26)))" +"(if(let-values(((or-part_259)(parsed? i_28)))" +"(if or-part_259" +" or-part_259" +"(let-values(((or-part_34)(expanded+parsed? i_28)))" "(if or-part_34" " or-part_34" -"(semi-parsed-begin-for-syntax? i_26)))))" +"(semi-parsed-begin-for-syntax? i_28)))))" "(let-values(((fold-var_159) fold-var_228))" "(let-values(((fold-var_177)" "(let-values()" "(cons" "(let-values()" -"(if(expanded+parsed? i_26)" +"(if(expanded+parsed? i_28)" "(let-values()" -"(expanded+parsed-parsed i_26))" -"(if(semi-parsed-begin-for-syntax? i_26)" +"(expanded+parsed-parsed i_28))" +"(if(semi-parsed-begin-for-syntax? i_28)" "(let-values()" "(parsed-begin-for-syntax21.1" -"(semi-parsed-begin-for-syntax-s i_26)" +"(semi-parsed-begin-for-syntax-s i_28)" "(parsed-only" "(semi-parsed-begin-for-syntax-body" -" i_26))))" -"(let-values() i_26))))" +" i_28))))" +"(let-values() i_28))))" " fold-var_159))))" "(values fold-var_177)))" " fold-var_228))))" @@ -39037,45 +39267,45 @@ static const char *startup_source = " fold-var_5)))))" " for-loop_251)" " null" -" lst_176)))))))" +" lst_177)))))))" "(define-values" "(syntax-only)" "(lambda(l_72)" "(begin" "(reverse$1" -"(let-values(((lst_281) l_72))" +"(let-values(((lst_282) l_72))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_281)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_282)))" "((letrec-values(((for-loop_253)" -"(lambda(fold-var_231 lst_282)" +"(lambda(fold-var_231 lst_283)" "(begin" " 'for-loop" -"(if(pair? lst_282)" -"(let-values(((i_34)(unsafe-car lst_282))((rest_152)(unsafe-cdr lst_282)))" +"(if(pair? lst_283)" +"(let-values(((i_36)(unsafe-car lst_283))((rest_152)(unsafe-cdr lst_283)))" "(let-values(((fold-var_83)" "(let-values(((fold-var_84) fold-var_231))" -"(if(let-values(((or-part_24)(syntax?$1 i_34)))" +"(if(let-values(((or-part_24)(syntax?$1 i_36)))" "(if or-part_24" " or-part_24" -"(let-values(((or-part_25)(expanded+parsed? i_34)))" +"(let-values(((or-part_25)(expanded+parsed? i_36)))" "(if or-part_25" " or-part_25" -"(semi-parsed-begin-for-syntax? i_34)))))" +"(semi-parsed-begin-for-syntax? i_36)))))" "(let-values(((fold-var_85) fold-var_84))" "(let-values(((fold-var_242)" "(let-values()" "(cons" "(let-values()" -"(if(expanded+parsed? i_34)" -"(let-values()(expanded+parsed-s i_34))" -"(if(semi-parsed-begin-for-syntax? i_34)" +"(if(expanded+parsed? i_36)" +"(let-values()(expanded+parsed-s i_36))" +"(if(semi-parsed-begin-for-syntax? i_36)" "(let-values()" "(let-values(((s_423)" "(semi-parsed-begin-for-syntax-s" -" i_34)))" +" i_36)))" "(let-values(((nested-bodys_0)" "(semi-parsed-begin-for-syntax-body" -" i_34)))" +" i_36)))" "(let-values(((disarmed-s_0)" "(syntax-disarm$1" " s_423)))" @@ -39145,7 +39375,7 @@ static const char *startup_source = " #f" " s11_0" " temp12_2)))))))" -"(let-values() i_34))))" +"(let-values() i_36))))" " fold-var_85))))" "(values fold-var_242)))" " fold-var_84))))" @@ -39153,7 +39383,7 @@ static const char *startup_source = " fold-var_231)))))" " for-loop_253)" " null" -" lst_281)))))))" +" lst_282)))))))" "(define-values" "(expand9.1)" "(lambda(alternate-id1_0" @@ -39207,9 +39437,9 @@ static const char *startup_source = "(expand-identifier)" "(lambda(s_425 ctx_15 alternate-id_1)" "(begin" -"(let-values(((id_60)(let-values(((or-part_258) alternate-id_1))(if or-part_258 or-part_258 s_425))))" +"(let-values(((id_61)(let-values(((or-part_260) alternate-id_1))(if or-part_260 or-part_260 s_425))))" "(if(if(not(free-id-set-empty?(expand-context-stops ctx_15)))" -"(free-id-set-member?(expand-context-stops ctx_15)(expand-context-phase ctx_15) id_60)" +"(free-id-set-member?(expand-context-stops ctx_15)(expand-context-phase ctx_15) id_61)" " #f)" "(let-values()" "(begin" @@ -39219,7 +39449,7 @@ static const char *startup_source = "(if(not(expand-context-only-immediate? ctx_15))" "(let-values()" "(begin" -"(call-expand-observe obs_2 'resolve id_60)" +"(call-expand-observe obs_2 'resolve id_61)" "(call-expand-observe obs_2 'enter-prim s_425)" "(call-expand-observe obs_2 'prim-stop)" "(call-expand-observe obs_2 'exit-prim s_425)" @@ -39229,7 +39459,7 @@ static const char *startup_source = " s_425))" "(let-values()" "(let-values(((binding_18)" -"(let-values(((id127_0) id_60)" +"(let-values(((id127_0) id_61)" "((temp128_1)(expand-context-phase ctx_15))" "((temp129_0) 'ambiguous)" "((temp130_0) #t))" @@ -39239,25 +39469,25 @@ static const char *startup_source = "(if obs_3" "(let-values()" "(if(not(expand-context-only-immediate? ctx_15))" -"(let-values()(call-expand-observe obs_3 'resolve id_60))" +"(let-values()(call-expand-observe obs_3 'resolve id_61))" "(void)))" "(void)))" "(if(eq? binding_18 'ambiguous)" -"(let-values()(raise-ambiguous-error id_60 ctx_15))" +"(let-values()(raise-ambiguous-error id_61 ctx_15))" "(if(not binding_18)" "(let-values()(expand-implicit '#%top(substitute-alternate-id s_425 alternate-id_1) ctx_15 s_425))" "(let-values()" -"(let-values(((t_46 primitive?_2 insp-of-t_0 protected?_3)" +"(let-values(((t_47 primitive?_2 insp-of-t_0 protected?_3)" "(let-values(((binding139_0) binding_18)" "((ctx140_0) ctx_15)" -"((id141_0) id_60)" +"((id141_0) id_61)" "((temp142_0)(if alternate-id_1 s_425 #f))" "((temp143_0)(expand-context-in-local-expand? ctx_15)))" "(lookup62.1 temp142_0 #t temp143_0 #t binding139_0 ctx140_0 id141_0))))" -"(let-values(((t131_0) t_46)" +"(let-values(((t131_0) t_47)" "((insp-of-t132_0) insp-of-t_0)" "((s133_0) s_425)" -"((id134_0) id_60)" +"((id134_0) id_61)" "((ctx135_0) ctx_15)" "((binding136_0) binding_18)" "((primitive?137_0) primitive?_2)" @@ -39283,11 +39513,11 @@ static const char *startup_source = "(let-values(((alternate-id_2) alternate-id16_0))" "(let-values(((fail-non-transformer_1) fail-non-transformer12_0))" "(let-values()" -"(let-values(((id_61)" +"(let-values(((id_62)" "(let-values(((or-part_133) alternate-id_2))" "(if or-part_133 or-part_133(car(syntax-e/no-taint s_426))))))" "(if(if(not(free-id-set-empty?(expand-context-stops ctx_16)))" -"(free-id-set-member?(expand-context-stops ctx_16)(expand-context-phase ctx_16) id_61)" +"(free-id-set-member?(expand-context-stops ctx_16)(expand-context-phase ctx_16) id_62)" " #f)" "(let-values()" "(begin" @@ -39297,7 +39527,7 @@ static const char *startup_source = "(if(not(expand-context-only-immediate? ctx_16))" "(let-values()" "(begin" -"(call-expand-observe obs_4 'resolve id_61)" +"(call-expand-observe obs_4 'resolve id_62)" "(call-expand-observe obs_4 'enter-prim s_426)" "(call-expand-observe obs_4 'prim-stop)" "(call-expand-observe obs_4 'exit-prim s_426)" @@ -39307,7 +39537,7 @@ static const char *startup_source = " s_426))" "(let-values()" "(let-values(((binding_19)" -"(let-values(((id144_0) id_61)" +"(let-values(((id144_0) id_62)" "((temp145_0)(expand-context-phase ctx_16))" "((temp146_0) 'ambiguous)" "((temp147_0) #t))" @@ -39329,29 +39559,29 @@ static const char *startup_source = "(if obs_5" "(let-values()" "(if(not(expand-context-only-immediate? ctx_16))" -"(let-values()(call-expand-observe obs_5 'resolve id_61))" +"(let-values()(call-expand-observe obs_5 'resolve id_62))" "(void)))" "(void)))" "(if(eq? binding_19 'ambiguous)" "(let-values()" "(begin" "(if fail-non-transformer_1(let-values()(fail-non-transformer_1))(void))" -"(raise-ambiguous-error id_61 ctx_16)))" +"(raise-ambiguous-error id_62 ctx_16)))" "(if(not binding_19)" "(let-values()" "(begin" "(if fail-non-transformer_1(let-values()(fail-non-transformer_1))(void))" -"(expand-implicit '#%app(substitute-alternate-id s_426 alternate-id_2) ctx_16 id_61)))" +"(expand-implicit '#%app(substitute-alternate-id s_426 alternate-id_2) ctx_16 id_62)))" "(let-values()" -"(let-values(((t_47 primitive?_3 insp-of-t_1 protected?_4)" +"(let-values(((t_48 primitive?_3 insp-of-t_1 protected?_4)" "(let-values(((binding148_0) binding_19)" "((ctx149_0) ctx_16)" -"((id150_0) id_61)" +"((id150_0) id_62)" "((temp151_0)" "(if alternate-id_2(car(syntax-e/no-taint s_426)) #f))" "((temp152_1)(expand-context-in-local-expand? ctx_16)))" "(lookup62.1 temp151_0 #t temp152_1 #t binding148_0 ctx149_0 id150_0))))" -"(if(variable? t_47)" +"(if(variable? t_48)" "(let-values()" "(begin" "(if fail-non-transformer_1(let-values()(fail-non-transformer_1))(void))" @@ -39359,12 +39589,12 @@ static const char *startup_source = " '#%app" "(substitute-alternate-id s_426 alternate-id_2)" " ctx_16" -" id_61)))" +" id_62)))" "(let-values()" -"(let-values(((t153_0) t_47)" +"(let-values(((t153_0) t_48)" "((insp-of-t154_0) insp-of-t_1)" "((s155_0) s_426)" -"((id156_0) id_61)" +"((id156_0) id_62)" "((ctx157_0) ctx_16)" "((binding158_0) binding_19)" "((primitive?159_0) primitive?_3)" @@ -39383,7 +39613,7 @@ static const char *startup_source = " protected?160_0)))))))))))))))))))))" "(define-values" "(expand-implicit)" -"(lambda(sym_50 s_53 ctx_17 trigger-id_1)" +"(lambda(sym_51 s_53 ctx_17 trigger-id_1)" "(begin" "(if(expand-context-only-immediate? ctx_17)" "(let-values()" @@ -39393,9 +39623,9 @@ static const char *startup_source = " s_53))" "(let-values()" "(let-values(((disarmed-s_1)(syntax-disarm$1 s_53)))" -"(let-values(((id_62)(datum->syntax$1 disarmed-s_1 sym_50)))" +"(let-values(((id_63)(datum->syntax$1 disarmed-s_1 sym_51)))" "(if(if(not(free-id-set-empty?(expand-context-stops ctx_17)))" -"(free-id-set-member?(expand-context-stops ctx_17)(expand-context-phase ctx_17) id_62)" +"(free-id-set-member?(expand-context-stops ctx_17)(expand-context-phase ctx_17) id_63)" " #f)" "(let-values()" "(begin" @@ -39405,7 +39635,7 @@ static const char *startup_source = "(if(not(expand-context-only-immediate? ctx_17))" "(let-values()" "(begin" -"(call-expand-observe obs_7 'resolve id_62)" +"(call-expand-observe obs_7 'resolve id_63)" "(call-expand-observe obs_7 'enter-prim s_53)" "(call-expand-observe obs_7 'prim-stop)" "(call-expand-observe obs_7 'exit-prim s_53)" @@ -39418,36 +39648,36 @@ static const char *startup_source = "(begin" "(let-values(((obs_8)(expand-context-observer ctx_17)))" "(if obs_8" -"(let-values()(let-values()(call-expand-observe obs_8 'resolve id_62)))" +"(let-values()(let-values()(call-expand-observe obs_8 'resolve id_63)))" "(void)))" "(values))))" "(let-values(((b_79)" -"(let-values(((id162_0) id_62)" +"(let-values(((id162_0) id_63)" "((temp163_1)(expand-context-phase ctx_17))" "((temp164_0) 'ambiguous)" "((temp165_2) #t))" "(resolve+shift30.1 temp164_0 #t #f #f #f #f temp165_2 #t #f #f id162_0 temp163_1))))" "(if(eq? b_79 'ambiguous)" -"(let-values()(raise-ambiguous-error id_62 ctx_17))" +"(let-values()(raise-ambiguous-error id_63 ctx_17))" "(let-values()" -"(let-values(((t_48 primitive?_4 insp-of-t_2 protected?_5)" +"(let-values(((t_49 primitive?_4 insp-of-t_2 protected?_5)" "(if b_79" -"(let-values(((b166_0) b_79)((ctx167_0) ctx_17)((id168_0) id_62))" +"(let-values(((b166_0) b_79)((ctx167_0) ctx_17)((id168_0) id_63))" "(lookup62.1 #f #f #f #f b166_0 ctx167_0 id168_0))" "(values #f #f #f #f))))" -"(if(transformer? t_48)" +"(if(transformer? t_49)" "(let-values()" "(let-values(((fail-non-transformer_2)" -"(if(1/rename-transformer? t_48)" +"(if(1/rename-transformer? t_49)" "(lambda()" "(begin" " 'fail-non-transformer" -"(raise-syntax-implicit-error s_53 sym_50 trigger-id_1 ctx_17)))" +"(raise-syntax-implicit-error s_53 sym_51 trigger-id_1 ctx_17)))" " #f)))" -"(let-values(((t169_0) t_48)" +"(let-values(((t169_0) t_49)" "((insp-of-t170_0) insp-of-t_2)" -"((temp171_1)(make-explicit ctx_17 sym_50 s_53 disarmed-s_1))" -"((id172_1) id_62)" +"((temp171_1)(make-explicit ctx_17 sym_51 s_53 disarmed-s_1))" +"((id172_1) id_63)" "((ctx173_0) ctx_17)" "((b174_0) b_79)" "((fail-non-transformer175_0) fail-non-transformer_2))" @@ -39459,22 +39689,22 @@ static const char *startup_source = " id172_1" " ctx173_0" " b174_0))))" -"(if(core-form? t_48)" +"(if(core-form? t_49)" "(let-values()" -"(if(if(eq? sym_50 '#%top)" -"(if(eq?(core-form-name t_48) '#%top)" +"(if(if(eq? sym_51 '#%top)" +"(if(eq?(core-form-name t_49) '#%top)" "(expand-context-in-local-expand? ctx_17)" " #f)" " #f)" -"(let-values()(dispatch-implicit-#%top-core-form t_48 s_53 ctx_17))" +"(let-values()(dispatch-implicit-#%top-core-form t_49 s_53 ctx_17))" "(let-values()" "(dispatch-core-form" -" t_48" -"(make-explicit ctx_17 sym_50 s_53 disarmed-s_1)" +" t_49" +"(make-explicit ctx_17 sym_51 s_53 disarmed-s_1)" " ctx_17))))" "(let-values()" "(let-values(((tl-id_0)" -"(if(eq? sym_50 '#%top)" +"(if(eq? sym_51 '#%top)" "(if(root-expand-context-top-level-bind-scope ctx_17)" "(add-scope s_53(root-expand-context-top-level-bind-scope ctx_17))" " #f)" @@ -39483,7 +39713,7 @@ static const char *startup_source = "(if tl-id_0" "(let-values(((tl-id176_0) tl-id_0)" "((temp177_0)(expand-context-phase ctx_17)))" -"(resolve40.1 #f #f #f #f #f #f #f #f tl-id176_0 temp177_0))" +"(resolve41.1 #f #f #f #f #f #f #f #f tl-id176_0 temp177_0))" " #f)))" "(if tl-b_0" "(let-values()" @@ -39495,7 +39725,7 @@ static const char *startup_source = "(let-values()" "(raise-syntax-implicit-error" " s_53" -" sym_50" +" sym_51" " trigger-id_1" " ctx_17))))))))))))))))))))))" "(define-values" @@ -39505,14 +39735,14 @@ static const char *startup_source = "(let-values(((ae_0)(syntax-e$1 s_427)))" "(let-values(((exp-s_0)(already-expanded-s ae_0)))" "(begin" -"(if(let-values(((or-part_259)(syntax-any-macro-scopes? s_427)))" -"(if or-part_259" -" or-part_259" -"(let-values(((or-part_102)" +"(if(let-values(((or-part_261)(syntax-any-macro-scopes? s_427)))" +"(if or-part_261" +" or-part_261" +"(let-values(((or-part_262)" "(not" "(eq?(expand-context-binding-layer ctx_18)(already-expanded-binding-layer ae_0)))))" -"(if or-part_102" -" or-part_102" +"(if or-part_262" +" or-part_262" "(if(parsed? exp-s_0)" "(not" "(if(expand-context-to-parsed? ctx_18)" @@ -39544,10 +39774,10 @@ static const char *startup_source = " result-s_1))))))))))))" "(define-values" "(make-explicit)" -"(lambda(ctx_19 sym_64 s_428 disarmed-s_2)" +"(lambda(ctx_19 sym_65 s_428 disarmed-s_2)" "(begin" "(let-values(((new-s_0)" -"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_64 disarmed-s_2) s_428 s_428) s_428)))" +"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_65 disarmed-s_2) s_428 s_428) s_428)))" "(begin" "(let-values(((obs_10)(expand-context-observer ctx_19)))" "(if obs_10(let-values()(let-values()(call-expand-observe obs_10 'tag new-s_0)))(void)))" @@ -39566,24 +39796,24 @@ static const char *startup_source = " protected?29_0)" "(begin" " 'dispatch30" -"(let-values(((t_49) t22_0))" +"(let-values(((t_50) t22_0))" "(let-values(((insp-of-t_3) insp-of-t23_0))" "(let-values(((s_37) s24_2))" -"(let-values(((id_63) id25_1))" +"(let-values(((id_64) id25_1))" "(let-values(((ctx_20) ctx26_0))" "(let-values(((binding_20) binding27_1))" "(let-values(((primitive?_5) primitive?28_0))" "(let-values(((protected?_6) protected?29_0))" "(let-values(((fail-non-transformer_3)(if fail-non-transformer21_0 fail-non-transformer20_0 #f)))" "(let-values()" -"(if(core-form? t_49)" -"(let-values()(dispatch-core-form t_49 s_37 ctx_20))" -"(if(transformer? t_49)" +"(if(core-form? t_50)" +"(let-values()(dispatch-core-form t_50 s_37 ctx_20))" +"(if(transformer? t_50)" "(let-values()" -"(let-values(((t180_0) t_49)" +"(let-values(((t180_0) t_50)" "((insp-of-t181_0) insp-of-t_3)" "((s182_0) s_37)" -"((id183_0) id_63)" +"((id183_0) id_64)" "((ctx184_0) ctx_20)" "((binding185_0) binding_20)" "((fail-non-transformer186_0) fail-non-transformer_3))" @@ -39595,13 +39825,13 @@ static const char *startup_source = " id183_0" " ctx184_0" " binding185_0)))" -"(if(variable? t_49)" +"(if(variable? t_50)" "(let-values()" -"(dispatch-variable t_49 s_37 id_63 ctx_20 binding_20 primitive?_5 protected?_6))" +"(dispatch-variable t_50 s_37 id_64 ctx_20 binding_20 primitive?_5 protected?_6))" " (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_37))))))))))))))))))" "(define-values" "(dispatch-core-form)" -"(lambda(t_50 s_39 ctx_21)" +"(lambda(t_51 s_39 ctx_21)" "(begin" "(if(expand-context-only-immediate? ctx_21)" "(let-values()" @@ -39618,7 +39848,7 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_12 'enter-prim s_39)))" "(void)))" "(values))))" -"(let-values(((result-s_2)((core-form-expander t_50) s_39 ctx_21)))" +"(let-values(((result-s_2)((core-form-expander t_51) s_39 ctx_21)))" "(begin" "(let-values(((obs_13)(expand-context-observer ctx_21)))" "(if obs_13" @@ -39629,19 +39859,19 @@ static const char *startup_source = "(call-expand-observe obs_13 'return(extract-syntax result-s_2)))))" "(void)))" " result-s_2))))" -"(let-values()((core-form-expander t_50) s_39 ctx_21)))))))" +"(let-values()((core-form-expander t_51) s_39 ctx_21)))))))" "(define-values" "(dispatch-implicit-#%top-core-form)" -"(lambda(t_51 s_158 ctx_22)" +"(lambda(t_52 s_160 ctx_22)" "(begin" "(let-values((()" "(begin" "(let-values(((obs_14)(expand-context-observer ctx_22)))" "(if obs_14" -"(let-values()(let-values()(call-expand-observe obs_14 'enter-prim s_158)))" +"(let-values()(let-values()(call-expand-observe obs_14 'enter-prim s_160)))" "(void)))" "(values))))" -"(let-values(((result-s_3)((core-form-expander t_51) s_158 ctx_22 #t)))" +"(let-values(((result-s_3)((core-form-expander t_52) s_160 ctx_22 #t)))" "(begin" "(let-values(((obs_15)(expand-context-observer ctx_22)))" "(if obs_15" @@ -39657,33 +39887,33 @@ static const char *startup_source = "(lambda(fail-non-transformer33_0 t35_0 insp-of-t36_0 s37_0 id38_0 ctx39_0 binding40_0)" "(begin" " 'dispatch-transformer41" -"(let-values(((t_52) t35_0))" +"(let-values(((t_53) t35_0))" "(let-values(((insp-of-t_4) insp-of-t36_0))" -"(let-values(((s_108) s37_0))" -"(let-values(((id_64) id38_0))" +"(let-values(((s_429) s37_0))" +"(let-values(((id_65) id38_0))" "(let-values(((ctx_23) ctx39_0))" "(let-values(((binding_21) binding40_0))" "(let-values(((fail-non-transformer_4) fail-non-transformer33_0))" "(let-values()" -"(if(not-in-this-expand-context? t_52 ctx_23)" +"(if(not-in-this-expand-context? t_53 ctx_23)" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_16)(expand-context-observer ctx_23)))" "(if obs_16" "(let-values()" -"(let-values()(call-expand-observe obs_16 'enter-macro s_108)))" +"(let-values()(call-expand-observe obs_16 'enter-macro s_429)))" "(void)))" "(values))))" "(let-values(((adj-s_0)" "(avoid-current-expand-context" -"(substitute-alternate-id s_108 id_64)" -" t_52" +"(substitute-alternate-id s_429 id_65)" +" t_53" " ctx_23)))" "(begin" "(let-values(((obs_17)(expand-context-observer ctx_23)))" "(if obs_17" -"(let-values()(let-values()(call-expand-observe obs_17 'exit-macro s_108)))" +"(let-values()(let-values()(call-expand-observe obs_17 'exit-macro s_429)))" "(void)))" "(let-values(((adj-s187_0) adj-s_0)((ctx188_0) ctx_23))" "(expand9.1 #f #f #f #f #f #f adj-s187_0 ctx188_0))))))" @@ -39692,7 +39922,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"encountered a macro binding in form that should be fully expanded\"" -" s_108))" +" s_429))" "(let-values()" "(let-values((()" "(begin" @@ -39700,22 +39930,22 @@ static const char *startup_source = "(if obs_18" "(let-values()" "(if(if(expand-context-only-immediate? ctx_23)" -"(not(1/rename-transformer? t_52))" +"(not(1/rename-transformer? t_53))" " #f)" "(let-values()" "(begin" -"(call-expand-observe obs_18 'visit s_108)" -"(call-expand-observe obs_18 'resolve id_64)))" +"(call-expand-observe obs_18 'visit s_429)" +"(call-expand-observe obs_18 'resolve id_65)))" "(void)))" "(void)))" "(values))))" "(let-values(((exp-s_1 re-ctx_0)" -"(if(1/rename-transformer? t_52)" -"(values s_108 ctx_23)" -"(let-values(((t189_0) t_52)" +"(if(1/rename-transformer? t_53)" +"(values s_429 ctx_23)" +"(let-values(((t189_0) t_53)" "((insp-of-t190_0) insp-of-t_4)" -"((s191_0) s_108)" -"((id192_0) id_64)" +"((s191_0) s_429)" +"((id192_0) id_65)" "((ctx193_0) ctx_23)" "((binding194_0) binding_21))" "(apply-transformer52.1" @@ -39732,7 +39962,7 @@ static const char *startup_source = "(if obs_19" "(let-values()" "(if(if(expand-context-only-immediate? ctx_23)" -"(not(1/rename-transformer? t_52))" +"(not(1/rename-transformer? t_53))" " #f)" "(let-values()(call-expand-observe obs_19 'return exp-s_1))" "(void)))" @@ -39743,18 +39973,18 @@ static const char *startup_source = "(let-values(((exp-s195_0) exp-s_1)" "((re-ctx196_0) re-ctx_0)" "((temp197_0)" -"(if(1/rename-transformer? t_52)" +"(if(1/rename-transformer? t_53)" "(syntax-track-origin$1" "(transfer-srcloc" -"(rename-transformer-target-in-context t_52 ctx_23)" -" id_64)" -" id_64" -" id_64)" +"(rename-transformer-target-in-context t_53 ctx_23)" +" id_65)" +" id_65" +" id_65)" " #f))" "((temp198_0)" -"(let-values(((or-part_260)" +"(let-values(((or-part_263)" "(expand-context-only-immediate? ctx_23)))" -"(if or-part_260 or-part_260(1/rename-transformer? t_52))))" +"(if or-part_263 or-part_263(1/rename-transformer? t_53))))" "((fail-non-transformer199_0) fail-non-transformer_4))" "(expand9.1" " temp197_0" @@ -39767,26 +39997,26 @@ static const char *startup_source = " re-ctx196_0)))))))))))))))))))))" "(define-values" "(dispatch-variable)" -"(lambda(t_53 s_429 id_65 ctx_24 binding_22 primitive?_6 protected?_7)" +"(lambda(t_54 s_430 id_66 ctx_24 binding_22 primitive?_6 protected?_7)" "(begin" "(if(expand-context-only-immediate? ctx_24)" "(let-values()" "(begin" "(let-values(((obs_20)(expand-context-observer ctx_24)))" -"(if obs_20(let-values()(let-values()(call-expand-observe obs_20 'exit-check s_429)))(void)))" -" id_65))" +"(if obs_20(let-values()(let-values()(call-expand-observe obs_20 'exit-check s_430)))(void)))" +" id_66))" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_21)(expand-context-observer ctx_24)))" "(if obs_21" -"(let-values()(let-values()(call-expand-observe obs_21 'variable s_429 id_65)))" +"(let-values()(let-values()(call-expand-observe obs_21 'variable s_430 id_66)))" "(void)))" "(values))))" "(let-values((()(begin(register-variable-referenced-if-local! binding_22)(values))))" "(let-values(((result-s_4)" -"(let-values(((id200_0) id_65)" -"((t201_0) t_53)" +"(let-values(((id200_0) id_66)" +"((t201_0) t_54)" "((temp202_0)" "(free-id-set-empty-or-just-module*?(expand-context-stops ctx_24))))" "(substitute-variable6.1 temp202_0 id200_0 t201_0))))" @@ -39811,10 +40041,10 @@ static const char *startup_source = "(lambda(origin-id44_0 origin-id45_0 t46_0 insp-of-t47_0 s48_0 id49_1 ctx50_0 binding51_0)" "(begin" " 'apply-transformer52" -"(let-values(((t_54) t46_0))" +"(let-values(((t_55) t46_0))" "(let-values(((insp-of-t_5) insp-of-t47_0))" -"(let-values(((s_430) s48_0))" -"(let-values(((id_30) id49_1))" +"(let-values(((s_121) s48_0))" +"(let-values(((id_31) id49_1))" "(let-values(((ctx_25) ctx50_0))" "(let-values(((binding_23) binding51_0))" "(let-values(((origin-id_0)(if origin-id45_0 origin-id44_0 #f)))" @@ -39825,10 +40055,10 @@ static const char *startup_source = "(let-values(((obs_23)(expand-context-observer ctx_25)))" "(if obs_23" "(let-values()" -"(let-values()(call-expand-observe obs_23 'enter-macro s_430)))" +"(let-values()(call-expand-observe obs_23 'enter-macro s_121)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_3)(syntax-disarm$1 s_430)))" +"(let-values(((disarmed-s_3)(syntax-disarm$1 s_121)))" "(let-values(((intro-scope_0)(new-scope 'macro)))" "(let-values(((intro-s_0)(flip-scope disarmed-s_3 intro-scope_0)))" "(let-values(((use-s_0 use-scopes_0)" @@ -39837,30 +40067,30 @@ static const char *startup_source = "(let-values(((def-ctx-scopes_1)(box null)))" "(let-values(((transformed-s_0)" "(apply-transformer-in-context" -" t_54" +" t_55" " cleaned-s_0" " ctx_25" " insp-of-t_5" " intro-scope_0" " use-scopes_0" " def-ctx-scopes_1" -" id_30)))" +" id_31)))" "(let-values(((result-s_5)(flip-scope transformed-s_0 intro-scope_0)))" "(let-values(((post-s_0)(maybe-add-post-expansion-scope result-s_5 ctx_25)))" "(let-values(((tracked-s_0)" "(syntax-track-origin$1" " post-s_0" " cleaned-s_0" -"(let-values(((or-part_261) origin-id_0))" -"(if or-part_261" -" or-part_261" -"(if(syntax-identifier? s_430)" -" s_430" -"(car(syntax-e$1 s_430))))))))" +"(let-values(((or-part_264) origin-id_0))" +"(if or-part_264" +" or-part_264" +"(if(syntax-identifier? s_121)" +" s_121" +"(car(syntax-e$1 s_121))))))))" "(let-values(((rearmed-s_0)" "(taint-dispatch" " tracked-s_0" -"(lambda(t-s_0)(syntax-rearm$1 t-s_0 s_430))" +"(lambda(t-s_0)(syntax-rearm$1 t-s_0 s_121))" "(expand-context-phase ctx_25))))" "(begin" "(let-values(((obs_24)(expand-context-observer ctx_25)))" @@ -39876,7 +40106,7 @@ static const char *startup_source = " def-ctx-scopes_1)))))))))))))))))))))))))))" "(define-values" "(apply-transformer-in-context)" -"(lambda(t_55 cleaned-s_1 ctx_26 insp-of-t_6 intro-scope_1 use-scopes_1 def-ctx-scopes_2 id_66)" +"(lambda(t_56 cleaned-s_1 ctx_26 insp-of-t_6 intro-scope_1 use-scopes_1 def-ctx-scopes_2 id_67)" "(begin" "(let-values((()" "(begin" @@ -39887,9 +40117,9 @@ static const char *startup_source = "(values))))" "(let-values(((confine-def-ctx-scopes?_0)" "(not" -"(let-values(((or-part_262)(expand-context-only-immediate? ctx_26)))" -"(if or-part_262" -" or-part_262" +"(let-values(((or-part_265)(expand-context-only-immediate? ctx_26)))" +"(if or-part_265" +" or-part_265" "(not(free-id-set-empty-or-just-module*?(expand-context-stops ctx_26))))))))" "(let-values(((accum-ctx_0)" "(if(if confine-def-ctx-scopes?_0" @@ -39900,15 +40130,15 @@ static const char *startup_source = "(accumulate-def-ctx-scopes ctx_26(expand-context-def-ctx-scopes ctx_26))" " ctx_26)))" "(let-values(((m-ctx_0)" -"(let-values(((v_189) accum-ctx_0))" -"(let-values(((the-struct_56) v_189))" +"(let-values(((v_190) accum-ctx_0))" +"(let-values(((the-struct_56) v_190))" "(if(expand-context/outer? the-struct_56)" "(let-values(((current-introduction-scopes203_0)(cons intro-scope_1 use-scopes_1))" "((def-ctx-scopes204_0)" "(if confine-def-ctx-scopes?_0" " def-ctx-scopes_2" "(expand-context-def-ctx-scopes ctx_26)))" -"((inner205_0)(root-expand-context/outer-inner v_189)))" +"((inner205_0)(root-expand-context/outer-inner v_190)))" "(expand-context/outer1.1" " inner205_0" "(root-expand-context/outer-post-expansion-scope the-struct_56)" @@ -39938,11 +40168,11 @@ static const char *startup_source = "(expand-context-namespace ctx_26)" "(add1(expand-context-phase ctx_26)))" " current-module-code-inspector" -"(let-values(((or-part_263) insp-of-t_6))" -"(if or-part_263 or-part_263(current-module-code-inspector))))" +"(let-values(((or-part_266) insp-of-t_6))" +"(if or-part_266 or-part_266(current-module-code-inspector))))" "(let-values()" "(call-with-continuation-barrier" -"(lambda()((transformer->procedure t_55) cleaned-s_1)))))))" +"(lambda()((transformer->procedure t_56) cleaned-s_1)))))))" "(begin" "(let-values(((obs_26)(expand-context-observer ctx_26)))" "(if obs_26" @@ -39953,7 +40183,7 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-arguments-error" -"(syntax-e$1 id_66)" +"(syntax-e$1 id_67)" " \"received value from syntax expander was not syntax\"" " \"received\"" " transformed-s_1)))" @@ -39966,37 +40196,37 @@ static const char *startup_source = "(matching-frame?(root-expand-context-frame-id ctx_27)(binding-frame-id binding_24))" " #f)" "(let-values()" -"(let-values(((sc_30)(new-scope 'use-site)))" +"(let-values(((sc_31)(new-scope 'use-site)))" "(let-values(((b_80)(root-expand-context-use-site-scopes ctx_27)))" -"(begin(set-box! b_80(cons sc_30(unbox b_80)))(values(add-scope s_431 sc_30)(list sc_30))))))" +"(begin(set-box! b_80(cons sc_31(unbox b_80)))(values(add-scope s_431 sc_31)(list sc_31))))))" "(let-values()(values s_431 null))))))" "(define-values" "(matching-frame?)" "(lambda(current-frame-id_0 bind-frame-id_0)" "(begin" "(if current-frame-id_0" -"(let-values(((or-part_264)(eq? current-frame-id_0 bind-frame-id_0)))" -"(if or-part_264 or-part_264(eq? current-frame-id_0 'all)))" +"(let-values(((or-part_267)(eq? current-frame-id_0 bind-frame-id_0)))" +"(if or-part_267 or-part_267(eq? current-frame-id_0 'all)))" " #f))))" "(define-values" "(maybe-add-post-expansion-scope)" -"(lambda(s_240 ctx_28)" +"(lambda(s_243 ctx_28)" "(begin" "(if(root-expand-context-post-expansion-scope ctx_28)" "(let-values()" -"((expand-context-post-expansion-scope-action ctx_28) s_240(root-expand-context-post-expansion-scope ctx_28)))" -"(let-values() s_240)))))" +"((expand-context-post-expansion-scope-action ctx_28) s_243(root-expand-context-post-expansion-scope ctx_28)))" +"(let-values() s_243)))))" "(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_190) ctx_29))" -"(let-values(((the-struct_57) v_190))" +"(let-values(((v_191) ctx_29))" +"(let-values(((the-struct_57) v_191))" "(if(expand-context/outer? the-struct_57)" "(let-values(((scopes206_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_29)))" -"((inner207_0)(root-expand-context/outer-inner v_190)))" +"((inner207_0)(root-expand-context/outer-inner v_191)))" "(expand-context/outer1.1" " inner207_0" "(root-expand-context/outer-post-expansion-scope the-struct_57)" @@ -40021,7 +40251,7 @@ static const char *startup_source = " 'lookup62" "(let-values(((b_81) b59_0))" "(let-values(((ctx_30) ctx60_0))" -"(let-values(((id_67) id61_1))" +"(let-values(((id_68) id61_1))" "(let-values(((in-s_7)(if in57_0 in55_0 #f)))" "(let-values(((out-of-context-as-variable?_1)" "(if out-of-context-as-variable?58_0 out-of-context-as-variable?56_0 #f)))" @@ -40031,7 +40261,7 @@ static const char *startup_source = "((temp210_0)(expand-context-lift-envs ctx_30))" "((temp211_1)(expand-context-namespace ctx_30))" "((temp212_0)(expand-context-phase ctx_30))" -"((id213_0) id_67)" +"((id213_0) id_68)" "((in-s214_0) in-s_7)" "((out-of-context-as-variable?215_0) out-of-context-as-variable?_1))" "(binding-lookup50.1" @@ -40047,19 +40277,19 @@ static const char *startup_source = " id213_0)))))))))))" "(define-values" "(substitute-alternate-id)" -"(lambda(s_361 alternate-id_3)" +"(lambda(s_363 alternate-id_3)" "(begin" "(if(not alternate-id_3)" -"(let-values() s_361)" -"(if(syntax-identifier? s_361)" -"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_361) s_361))" +"(let-values() s_363)" +"(if(syntax-identifier? s_363)" +"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_363) s_363))" "(let-values()" -"(let-values(((disarmed-s_4)(syntax-disarm$1 s_361)))" +"(let-values(((disarmed-s_4)(syntax-disarm$1 s_363)))" "(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_361)" -" s_361)" -" s_361))))))))" +"(datum->syntax$1 disarmed-s_4(cons alternate-id_3(cdr(syntax-e$1 disarmed-s_4))) s_363)" +" s_363)" +" s_363))))))))" "(define-values" "(register-variable-referenced-if-local!)" "(lambda(binding_25)" @@ -40081,7 +40311,7 @@ static const char *startup_source = " ctx74_0)" "(begin" " 'expand/capture-lifts75" -"(let-values(((s_254) s73_1))" +"(let-values(((s_257) s73_1))" "(let-values(((ctx_31) ctx74_0))" "(let-values(((expand-lifts?_0)(if expand-lifts?69_0 expand-lifts?65_0 #f)))" "(let-values(((begin-form?_0)(if begin-form?70_0 begin-form?66_0 #f)))" @@ -40089,10 +40319,10 @@ static const char *startup_source = "(let-values(((always-wrap?_0)(if always-wrap?72_0 always-wrap?68_0 #f)))" "(let-values()" "(let-values(((context_6)(expand-context-context ctx_31)))" -"(let-values(((phase_108)(expand-context-phase ctx_31)))" +"(let-values(((phase_107)(expand-context-phase ctx_31)))" "(let-values(((local?_0)(not begin-form?_0)))" -"((letrec-values(((loop_94)" -"(lambda(s_369 always-wrap?_1 ctx_32)" +"((letrec-values(((loop_97)" +"(lambda(s_371 always-wrap?_1 ctx_32)" "(begin" " 'loop" "(let-values(((lift-env_2)(if local?_0(box empty-env) #f)))" @@ -40109,13 +40339,13 @@ static const char *startup_source = " #f)))" "(make-lift-context6.1 temp217_0 #t temp216_1))))" "(let-values(((capture-ctx_0)" -"(let-values(((v_191) ctx_32))" -"(let-values(((the-struct_58) v_191))" +"(let-values(((v_192) ctx_32))" +"(let-values(((the-struct_58) v_192))" "(if(expand-context/outer? the-struct_58)" "(let-values(((inner218_0)" "(let-values(((the-struct_59)" "(root-expand-context/outer-inner" -" v_191)))" +" v_192)))" "(if(expand-context/inner?" " the-struct_59)" "(let-values(((lift-key219_0)" @@ -40131,10 +40361,10 @@ static const char *startup_source = "(expand-context-lift-envs" " ctx_32)))" "((module-lifts222_0)" -"(if(let-values(((or-part_116)" +"(if(let-values(((or-part_268)" " local?_0))" -"(if or-part_116" -" or-part_116" +"(if or-part_268" +" or-part_268" "(not" "(memq" " context_6" @@ -40226,9 +40456,9 @@ static const char *startup_source = " 'struct-copy" " \"expand-context/outer?\"" " the-struct_58))))))" -"(let-values(((rebuild-s_0)(keep-properties-only s_369)))" +"(let-values(((rebuild-s_0)(keep-properties-only s_371)))" "(let-values(((exp-s_2)" -"(let-values(((s223_0) s_369)" +"(let-values(((s223_0) s_371)" "((capture-ctx224_0) capture-ctx_0))" "(expand9.1" " #f" @@ -40243,10 +40473,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_265)" +"(if(let-values(((or-part_269)" "(pair? lifts_6)))" -"(if or-part_265" -" or-part_265" +"(if or-part_269" +" or-part_269" " always-wrap?_1))" "(let-values()" "(if(expand-context-to-parsed? ctx_32)" @@ -40263,13 +40493,13 @@ static const char *startup_source = " rebuild-s_0" " ctx_32" "(lambda(rhs_15 rhs-ctx_0)" -"(loop_94 rhs_15 #f rhs-ctx_0)))))" +"(loop_97 rhs_15 #f rhs-ctx_0)))))" "(let-values()" "(if begin-form?_0" "(let-values(((lifts225_0) lifts_6)" "((exp-s226_0) exp-s_2)" "((phase227_0)" -" phase_108))" +" phase_107))" "(wrap-lifts-as-begin16.1" " #f" " #f" @@ -40281,14 +40511,14 @@ static const char *startup_source = "(wrap-lifts-as-let" " lifts_6" " exp-s_2" -" phase_108)))))" +" phase_107)))))" "(let-values() exp-s_2))))" -"(if(let-values(((or-part_266)(not expand-lifts?_0)))" -"(if or-part_266" -" or-part_266" -"(let-values(((or-part_267)(null? lifts_6)))" -"(if or-part_267" -" or-part_267" +"(if(let-values(((or-part_270)(not expand-lifts?_0)))" +"(if or-part_270" +" or-part_270" +"(let-values(((or-part_271)(null? lifts_6)))" +"(if or-part_271" +" or-part_271" "(expand-context-to-parsed? ctx_32)))))" "(let-values() with-lifts-s_0)" "(let-values()" @@ -40303,9 +40533,9 @@ static const char *startup_source = " 'letlift-loop" " with-lifts-s_0)))" "(void)))" -"(loop_94 with-lifts-s_0 #f ctx_32)))))))))))))))" -" loop_94)" -" s_254" +"(loop_97 with-lifts-s_0 #f ctx_32)))))))))))))))" +" loop_97)" +" s_257" " always-wrap?_0" " ctx_31))))))))))))))" "(define-values" @@ -40326,7 +40556,7 @@ static const char *startup_source = " ctx91_0)" "(begin" " 'expand-transformer92" -"(let-values(((s_392) s90_1))" +"(let-values(((s_397) s90_1))" "(let-values(((ctx_33) ctx91_0))" "(let-values(((context_7)(if context84_0 context78_0 'expression)))" "(let-values(((begin-form?_1)(if begin-form?85_0 begin-form?79_0 #f)))" @@ -40346,7 +40576,7 @@ static const char *startup_source = " ctx234_0" " context235_0" " #t))))" -"(let-values(((s228_0) s_392)" +"(let-values(((s228_0) s_397)" "((trans-ctx229_0) trans-ctx_0)" "((expand-lifts?230_0) expand-lifts?_1)" "((begin-form?231_0) begin-form?_1)" @@ -40372,12 +40602,12 @@ static const char *startup_source = "(let-values(((context_8)(if context98_0 context97_0 'expression)))" "(let-values(((keep-stops?_1)(if keep-stops?96_0 keep-stops?95_0 #f)))" "(let-values()" -"(let-values(((phase_109)(add1(expand-context-phase ctx_34))))" -"(let-values(((ns_73)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_109)))" +"(let-values(((phase_108)(add1(expand-context-phase ctx_34))))" +"(let-values(((ns_73)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_108)))" "(begin" -"(namespace-visit-available-modules! ns_73 phase_109)" -"(let-values(((v_192) ctx_34))" -"(let-values(((the-struct_60) v_192))" +"(namespace-visit-available-modules! ns_73 phase_108)" +"(let-values(((v_193) ctx_34))" +"(let-values(((the-struct_60) v_193))" "(if(expand-context/outer? the-struct_60)" "(let-values(((context237_0) context_8)" "((scopes238_0) null)" @@ -40387,9 +40617,9 @@ static const char *startup_source = "((def-ctx-scopes241_0) #f)" "((post-expansion-scope242_0) #f)" "((inner243_0)" -"(let-values(((the-struct_61)(root-expand-context/outer-inner v_192)))" +"(let-values(((the-struct_61)(root-expand-context/outer-inner v_193)))" "(if(expand-context/inner? the-struct_61)" -"(let-values(((phase244_0) phase_109)" +"(let-values(((phase244_0) phase_108)" "((namespace245_0) ns_73)" "((stops246_0)" "(if keep-stops?_1" @@ -40457,7 +40687,7 @@ static const char *startup_source = "(let-values(((exp-rhs_0)" "(let-values(((rhs247_0) rhs_16)((temp248_0)(as-named-context ctx_35 ids_19)))" "(expand-transformer92.1 #f #f #f #f #f #f #f #f #f #f #f #f rhs247_0 temp248_0))))" -"(let-values(((phase_52)(add1(expand-context-phase ctx_35))))" +"(let-values(((phase_109)(add1(expand-context-phase ctx_35))))" "(let-values(((parsed-rhs_0)" "(if(expand-context-to-parsed? ctx_35)" " exp-rhs_0" @@ -40479,8 +40709,8 @@ static const char *startup_source = " who_17" " ids_19" " parsed-rhs_0" -" phase_52" -"(namespace->namespace-at-phase(expand-context-namespace ctx_35) phase_52)" +" phase_109" +"(namespace->namespace-at-phase(expand-context-namespace ctx_35) phase_109)" " ctx_35)))))))))))))))" "(define-values" "(eval-for-syntaxes-binding)" @@ -40536,8 +40766,8 @@ static const char *startup_source = " (if (pair? (cdr ids_21)) \" ...\" \"\"))))" " vals_4)))" " vals_4))))))" -"(define-values(keep-properties-only)(lambda(s_152)(begin(datum->syntax$1 #f 'props s_152 s_152))))" -"(define-values(keep-properties-only~)(lambda(s_432)(begin #f)))" +"(define-values(keep-properties-only)(lambda(s_432)(begin(datum->syntax$1 #f 'props s_432 s_432))))" +"(define-values(keep-properties-only~)(lambda(s_433)(begin #f)))" "(define-values" "(keep-as-needed120.1)" "(lambda(for-track?112_0" @@ -40551,12 +40781,12 @@ static const char *startup_source = "(begin" " 'keep-as-needed120" "(let-values(((ctx_38) ctx118_0))" -"(let-values(((s_433) s119_0))" +"(let-values(((s_434) s119_0))" "(let-values()" "(let-values(((keep-for-parsed?_0)(if keep-for-parsed?116_0 keep-for-parsed?113_0 #f)))" "(let-values(((keep-for-error?_0)(if keep-for-error?117_0 keep-for-error?114_0 #f)))" "(let-values()" -"(let-values(((d_32)(syntax-e$1 s_433)))" +"(let-values(((d_32)(syntax-e$1 s_434)))" "(let-values(((keep-e_0)" "(if(symbol? d_32)" "(let-values() d_32)" @@ -40565,44 +40795,44 @@ static const char *startup_source = "(let-values() #f)))))" "(if(expand-context-to-parsed? ctx_38)" "(let-values()" -"(if(let-values(((or-part_268) keep-for-parsed?_0))" -"(if or-part_268 or-part_268 keep-for-error?_0))" -"(datum->syntax$1 #f keep-e_0 s_433 s_433)" +"(if(let-values(((or-part_272) keep-for-parsed?_0))" +"(if or-part_272 or-part_272 keep-for-error?_0))" +"(datum->syntax$1 #f keep-e_0 s_434 s_434)" " #f))" "(let-values()" "(syntax-rearm$1" -"(datum->syntax$1(syntax-disarm$1 s_433) keep-e_0 s_433 s_433)" -" s_433))))))))))))))" +"(datum->syntax$1(syntax-disarm$1 s_434) keep-e_0 s_434 s_434)" +" s_434))))))))))))))" "(define-values" "(attach-disappeared-transformer-bindings)" -"(lambda(s_434 trans-idss_0)" +"(lambda(s_435 trans-idss_0)" "(begin" "(if(null? trans-idss_0)" -"(let-values() s_434)" +"(let-values() s_435)" "(let-values()" "(syntax-property$1" -" s_434" +" s_435" " 'disappeared-binding" "(append" "(apply append trans-idss_0)" -"(let-values(((or-part_269)(syntax-property$1 s_434 'disappeared-binding)))" -"(if or-part_269 or-part_269 null)))))))))" +"(let-values(((or-part_273)(syntax-property$1 s_435 'disappeared-binding)))" +"(if or-part_273 or-part_273 null)))))))))" "(define-values" "(increment-binding-layer)" "(lambda(ids_22 ctx_39 layer-val_0)" "(begin" -"(if((letrec-values(((loop_95)" +"(if((letrec-values(((loop_98)" "(lambda(ids_23)" "(begin" " 'loop" -"(let-values(((or-part_127)(identifier? ids_23)))" -"(if or-part_127" -" or-part_127" +"(let-values(((or-part_274)(identifier? ids_23)))" +"(if or-part_274" +" or-part_274" "(if(pair? ids_23)" -"(let-values(((or-part_233)(loop_95(car ids_23))))" -"(if or-part_233 or-part_233(loop_95(cdr ids_23))))" +"(let-values(((or-part_235)(loop_98(car ids_23))))" +"(if or-part_235 or-part_235(loop_98(cdr ids_23))))" " #f)))))))" -" loop_95)" +" loop_98)" " ids_22)" " layer-val_0" "(expand-context-binding-layer ctx_39)))))" @@ -40629,11 +40859,11 @@ static const char *startup_source = "(list" "(lets-loop_0" "(cdr idss+keyss+rhss_1)" -"(let-values(((v_193) rhs-ctx_1))" -"(let-values(((the-struct_62) v_193))" +"(let-values(((v_194) rhs-ctx_1))" +"(let-values(((the-struct_62) v_194))" "(if(expand-context/outer? the-struct_62)" "(let-values(((env258_0)" -"(let-values(((lst_67) ids_24)((lst_256) keys_4))" +"(let-values(((lst_67) ids_24)((lst_257) keys_4))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -40642,26 +40872,26 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_256)))" +"(let-values()(check-list lst_257)))" "((letrec-values(((for-loop_226)" -"(lambda(env_3 lst_257 lst_287)" +"(lambda(env_3 lst_258 lst_288)" "(begin" " 'for-loop" -"(if(if(pair? lst_257)" -"(pair? lst_287)" +"(if(if(pair? lst_258)" +"(pair? lst_288)" " #f)" -"(let-values(((id_68)" +"(let-values(((id_69)" "(unsafe-car" -" lst_257))" +" lst_258))" "((rest_157)" "(unsafe-cdr" -" lst_257))" +" lst_258))" "((key_82)" "(unsafe-car" -" lst_287))" +" lst_288))" "((rest_158)" "(unsafe-cdr" -" lst_287)))" +" lst_288)))" "(let-values(((env_4)" "(let-values(((env_5)" " env_3))" @@ -40671,7 +40901,7 @@ static const char *startup_source = " env_5" " key_82" "(local-variable1.1" -" id_68)))))" +" id_69)))))" "(values" " env_6)))))" "(if(not #f)" @@ -40684,8 +40914,8 @@ static const char *startup_source = " for-loop_226)" "(expand-context-env rhs-ctx_1)" " lst_67" -" lst_256))))" -"((inner259_0)(root-expand-context/outer-inner v_193)))" +" lst_257))))" +"((inner259_0)(root-expand-context/outer-inner v_194)))" "(expand-context/outer1.1" " inner259_0" "(root-expand-context/outer-post-expansion-scope the-struct_62)" @@ -40711,22 +40941,22 @@ static const char *startup_source = " ctx_40)))))" "(define-values" "(rename-transformer-target-in-context)" -"(lambda(t_56 ctx_41)" +"(lambda(t_57 ctx_41)" "(begin" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_41)" -"(let-values()(1/rename-transformer-target t_56))))))" +"(let-values()(1/rename-transformer-target t_57))))))" "(define-values" "(maybe-install-free=id-in-context!)" -"(lambda(val_71 id_69 phase_111 ctx_42)" +"(lambda(val_72 id_70 phase_111 ctx_42)" "(begin" -"(if(1/rename-transformer? val_71)" +"(if(1/rename-transformer? val_72)" "(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_71 id_69 phase_111))))" +"(let-values()(maybe-install-free=id! val_72 id_70 phase_111))))" "(void)))))" "(define-values" "(transfer-srcloc)" @@ -40764,17 +40994,17 @@ 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_113)" +"(let-values()(check-list lst_101)))" +"((letrec-values(((for-loop_114)" "(lambda(fold-var_88 lst_6)" "(begin" " 'for-loop" "(if(pair? lst_6)" -"(let-values(((sym_65)(unsafe-car lst_6))((rest_50)(unsafe-cdr lst_6)))" +"(let-values(((sym_66)(unsafe-car lst_6))((rest_49)(unsafe-cdr lst_6)))" "(let-values(((fold-var_89)" "(let-values(((fold-var_90) fold-var_88))" "(let-values(((fold-var_60)" @@ -40783,14 +41013,14 @@ static const char *startup_source = "(let-values()" "(datum->syntax$1" " p-core-stx_0" -" sym_65))" +" sym_66))" " fold-var_90))))" "(values fold-var_60)))))" -"(if(not #f)(for-loop_113 fold-var_89 rest_50) fold-var_89)))" +"(if(not #f)(for-loop_114 fold-var_89 rest_49) fold-var_89)))" " fold-var_88)))))" -" for-loop_113)" +" for-loop_114)" " null" -" lst_102)))))))))))))" +" lst_101)))))))))))))" "(define-values" "(auto-stop-syms)" " '(begin" @@ -40814,29 +41044,29 @@ static const char *startup_source = "(begin" "(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_112)))" "(reverse$1" -"(let-values(((lst_222) module-stop-syms))" +"(let-values(((lst_223) module-stop-syms))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_222)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_223)))" "((letrec-values(((for-loop_258)" -"(lambda(fold-var_243 lst_263)" +"(lambda(fold-var_243 lst_264)" "(begin" " 'for-loop" -"(if(pair? lst_263)" -"(let-values(((sym_17)(unsafe-car lst_263))((rest_159)(unsafe-cdr lst_263)))" +"(if(pair? lst_264)" +"(let-values(((sym_18)(unsafe-car lst_264))((rest_159)(unsafe-cdr lst_264)))" "(let-values(((fold-var_222)" "(let-values(((fold-var_223) fold-var_243))" "(let-values(((fold-var_224)" "(let-values()" "(cons" "(let-values()" -"(datum->syntax$1 p-core-stx_1 sym_17))" +"(datum->syntax$1 p-core-stx_1 sym_18))" " fold-var_223))))" "(values fold-var_224)))))" "(if(not #f)(for-loop_258 fold-var_222 rest_159) fold-var_222)))" " fold-var_243)))))" " for-loop_258)" " null" -" lst_222))))))))" +" lst_223))))))))" "(define-values" "(module-stop-syms)" "(append" @@ -40851,7 +41081,7 @@ static const char *startup_source = " internal-definition-context-add-scope?" " internal-definition-context-env-mixins" " internal-definition-context-parent-ctx)" -"(let-values(((struct:_38 make-_38 ?_38 -ref_38 -set!_38)" +"(let-values(((struct:_39 make-_39 ?_39 -ref_39 -set!_39)" "(let-values()" "(let-values()" "(make-struct-type" @@ -40867,28 +41097,28 @@ static const char *startup_source = " #f" " 'internal-definition-context)))))" "(values" -" struct:_38" -" make-_38" -" ?_38" -"(make-struct-field-accessor -ref_38 0 'frame-id)" -"(make-struct-field-accessor -ref_38 1 'scope)" -"(make-struct-field-accessor -ref_38 2 'add-scope?)" -"(make-struct-field-accessor -ref_38 3 'env-mixins)" -"(make-struct-field-accessor -ref_38 4 'parent-ctx))))" +" struct:_39" +" make-_39" +" ?_39" +"(make-struct-field-accessor -ref_39 0 'frame-id)" +"(make-struct-field-accessor -ref_39 1 'scope)" +"(make-struct-field-accessor -ref_39 2 'add-scope?)" +"(make-struct-field-accessor -ref_39 3 'env-mixins)" +"(make-struct-field-accessor -ref_39 4 'parent-ctx))))" "(define-values" "(struct:env-mixin env-mixin2.1 env-mixin? env-mixin-id env-mixin-sym env-mixin-value env-mixin-cache)" -"(let-values(((struct:_76 make-_76 ?_76 -ref_76 -set!_76)" +"(let-values(((struct:_77 make-_77 ?_77 -ref_77 -set!_77)" "(let-values()" "(let-values()" "(make-struct-type 'env-mixin #f 4 0 #f null(current-inspector) #f '(0 1 2 3) #f 'env-mixin)))))" "(values" -" struct:_76" -" make-_76" -" ?_76" -"(make-struct-field-accessor -ref_76 0 'id)" -"(make-struct-field-accessor -ref_76 1 'sym)" -"(make-struct-field-accessor -ref_76 2 'value)" -"(make-struct-field-accessor -ref_76 3 'cache))))" +" struct:_77" +" make-_77" +" ?_77" +"(make-struct-field-accessor -ref_77 0 'id)" +"(make-struct-field-accessor -ref_77 1 'sym)" +"(make-struct-field-accessor -ref_77 2 'value)" +"(make-struct-field-accessor -ref_77 3 'cache))))" "(define-values" "(1/syntax-local-make-definition-context)" "(let-values(((syntax-local-make-definition-context7_0)" @@ -40918,22 +41148,22 @@ static const char *startup_source = "(let-values(((or-part_68)(root-expand-context-frame-id ctx_43)))" "(if or-part_68" " or-part_68" -"(let-values(((or-part_218)" +"(let-values(((or-part_220)" "(if parent-ctx_0" "(internal-definition-context-frame-id parent-ctx_0)" " #f)))" -"(if or-part_218 or-part_218(gensym)))))))" -"(let-values(((sc_31)(new-scope 'intdef)))" +"(if or-part_220 or-part_220(gensym)))))))" +"(let-values(((sc_32)(new-scope 'intdef)))" "(let-values(((def-ctx-scopes_4)(expand-context-def-ctx-scopes ctx_43)))" "(begin" "(if def-ctx-scopes_4" "(void)" "(let-values()" " (error \"internal error: no box to accumulate definition-context scopes\")))" -"(set-box! def-ctx-scopes_4(cons sc_31(unbox def-ctx-scopes_4)))" +"(set-box! def-ctx-scopes_4(cons sc_32(unbox def-ctx-scopes_4)))" "(internal-definition-context1.1" " frame-id_8" -" sc_31" +" sc_32" " add-scope?_0" "(box null)" " parent-ctx_0))))))))))))))" @@ -40964,8 +41194,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_250)(not s_83)))" -"(if or-part_250 or-part_250(syntax?$1 s_83)))" +"(if(let-values(((or-part_252)(not s_83)))" +"(if or-part_252 or-part_252(syntax?$1 s_83)))" "(void)" "(let-values()" "(raise-argument-error" @@ -41012,23 +41242,23 @@ static const char *startup_source = "(list intdef_0 extra-intdefs_0))))" "(let-values(((intdef-ids_0)" "(reverse$1" -"(let-values(((lst_288) ids_25))" +"(let-values(((lst_289) ids_25))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_288)))" +"(let-values()(check-list lst_289)))" "((letrec-values(((for-loop_259)" -"(lambda(fold-var_244 lst_188)" +"(lambda(fold-var_244 lst_189)" "(begin" " 'for-loop" -"(if(pair? lst_188)" -"(let-values(((id_70)" +"(if(pair? lst_189)" +"(let-values(((id_71)" "(unsafe-car" -" lst_188))" +" lst_189))" "((rest_100)" "(unsafe-cdr" -" lst_188)))" +" lst_189)))" "(let-values(((fold-var_245)" "(let-values(((fold-var_246)" " fold-var_244))" @@ -41039,7 +41269,7 @@ static const char *startup_source = "(let-values(((pre-id_0)" "(remove-use-site-scopes" "(flip-introduction-scopes" -" id_70" +" id_71" " ctx_44)" " ctx_44)))" "(let-values(((temp53_1)" @@ -41076,7 +41306,7 @@ static const char *startup_source = " fold-var_244)))))" " for-loop_259)" " null" -" lst_288))))))" +" lst_289))))))" "(let-values((()" "(begin" "(let-values(((obs_30)" @@ -41092,23 +41322,23 @@ static const char *startup_source = "(values))))" "(let-values(((syms_20)" "(reverse$1" -"(let-values(((lst_289) intdef-ids_0))" +"(let-values(((lst_290) intdef-ids_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_289)))" +"(let-values()(check-list lst_290)))" "((letrec-values(((for-loop_5)" -"(lambda(fold-var_248 lst_167)" +"(lambda(fold-var_248 lst_168)" "(begin" " 'for-loop" -"(if(pair? lst_167)" +"(if(pair? lst_168)" "(let-values(((intdef-id_0)" "(unsafe-car" -" lst_167))" +" lst_168))" "((rest_86)" "(unsafe-cdr" -" lst_167)))" +" lst_168)))" "(let-values(((fold-var_249)" "(let-values(((fold-var_250)" " fold-var_248))" @@ -41145,7 +41375,7 @@ static const char *startup_source = " fold-var_248)))))" " for-loop_5)" " null" -" lst_289))))))" +" lst_290))))))" "(let-values(((vals_5)" "(if s_83" "(let-values()" @@ -41163,24 +41393,24 @@ static const char *startup_source = " all-intdefs63_0))" " ctx_44)))" "(let-values(((tmp-env_0)" -"(let-values(((lst_104) syms_20))" +"(let-values(((lst_103) syms_20))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_104)))" -"((letrec-values(((for-loop_120)" +"(check-list lst_103)))" +"((letrec-values(((for-loop_121)" "(lambda(env_7" " lst_11)" "(begin" " 'for-loop" "(if(pair?" " lst_11)" -"(let-values(((sym_66)" +"(let-values(((sym_67)" "(unsafe-car" " lst_11))" -"((rest_52)" +"((rest_51)" "(unsafe-cdr" " lst_11)))" "(let-values(((env_8)" @@ -41190,20 +41420,20 @@ static const char *startup_source = "(let-values()" "(hash-set" " env_9" -" sym_66" +" sym_67" " variable))))" "(values" " env_10)))))" "(if(not" " #f)" -"(for-loop_120" +"(for-loop_121" " env_8" -" rest_52)" +" rest_51)" " env_8)))" " env_7)))))" -" for-loop_120)" +" for-loop_121)" "(expand-context-env ctx_44)" -" lst_104)))))" +" lst_103)))))" "(let-values((()" "(begin" "(let-values(((obs_31)" @@ -41223,17 +41453,17 @@ static const char *startup_source = " input-s_0" " ids_25" "(let-values(((temp64_2)" -"(let-values(((v_194)" +"(let-values(((v_195)" " ctx_44))" "(let-values(((the-struct_64)" -" v_194))" +" v_195))" "(if(expand-context/outer?" " the-struct_64)" "(let-values(((env67_0)" " tmp-env_0)" "((inner68_0)" "(root-expand-context/outer-inner" -" v_194)))" +" v_195)))" "(expand-context/outer1.1" " inner68_0" "(root-expand-context/outer-post-expansion-scope" @@ -41299,24 +41529,24 @@ static const char *startup_source = " vals_6))))))" "(let-values()" "(reverse$1" -"(let-values(((lst_290) ids_25))" +"(let-values(((lst_291) ids_25))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_290)))" -"((letrec-values(((for-loop_80)" +"(let-values()(check-list lst_291)))" +"((letrec-values(((for-loop_81)" "(lambda(fold-var_251" -" lst_291)" +" lst_292)" "(begin" " 'for-loop" -"(if(pair? lst_291)" -"(let-values(((id_47)" +"(if(pair? lst_292)" +"(let-values(((id_48)" "(unsafe-car" -" lst_291))" +" lst_292))" "((rest_160)" "(unsafe-cdr" -" lst_291)))" +" lst_292)))" "(let-values(((fold-var_183)" "(let-values(((fold-var_99)" " fold-var_251))" @@ -41329,14 +41559,14 @@ static const char *startup_source = "(values" " fold-var_100)))))" "(if(not #f)" -"(for-loop_80" +"(for-loop_81" " fold-var_183" " rest_160)" " fold-var_183)))" " fold-var_251)))))" -" for-loop_80)" +" for-loop_81)" " null" -" lst_290))))))))" +" lst_291))))))))" "(let-values(((env-mixins_0)" "(internal-definition-context-env-mixins intdef_0)))" "(begin" @@ -41344,32 +41574,32 @@ static const char *startup_source = " env-mixins_0" "(append" "(reverse$1" -"(let-values(((lst_292) intdef-ids_0)" -"((lst_286) syms_20)" +"(let-values(((lst_293) intdef-ids_0)" +"((lst_287) syms_20)" "((lst_50) vals_5))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_292)))" +"(let-values()(check-list lst_293)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_286)))" +"(let-values()(check-list lst_287)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-list lst_50)))" -"((letrec-values(((for-loop_73)" +"((letrec-values(((for-loop_74)" "(lambda(fold-var_35" " lst_51" -" lst_293" -" lst_294)" +" lst_294" +" lst_295)" "(begin" " 'for-loop" "(if(if(pair? lst_51)" -"(if(pair? lst_293)" -"(pair? lst_294)" +"(if(pair? lst_294)" +"(pair? lst_295)" " #f)" " #f)" "(let-values(((intdef-id_1)" @@ -41378,18 +41608,18 @@ static const char *startup_source = "((rest_161)" "(unsafe-cdr" " lst_51))" -"((sym_67)" -"(unsafe-car" -" lst_293))" -"((rest_162)" -"(unsafe-cdr" -" lst_293))" -"((val_72)" +"((sym_68)" "(unsafe-car" " lst_294))" +"((rest_162)" +"(unsafe-cdr" +" lst_294))" +"((val_73)" +"(unsafe-car" +" lst_295))" "((rest_163)" "(unsafe-cdr" -" lst_294)))" +" lst_295)))" "(let-values(((fold-var_252)" "(let-values(((fold-var_187)" " fold-var_35))" @@ -41399,30 +41629,30 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_72" +" val_73" " intdef-id_1" " phase_113" " ctx_44)" "(env-mixin2.1" " intdef-id_1" -" sym_67" -" val_72" +" sym_68" +" val_73" "(make-weak-hasheq))))" " fold-var_187))))" "(values" " fold-var_253)))))" "(if(not #f)" -"(for-loop_73" +"(for-loop_74" " fold-var_252" " rest_161" " rest_162" " rest_163)" " fold-var_252)))" " fold-var_35)))))" -" for-loop_73)" +" for-loop_74)" " null" -" lst_292" -" lst_286" +" lst_293" +" lst_287" " lst_50))))" "(unbox env-mixins_0)))" "(let-values(((obs_33)(expand-context-observer ctx_44)))" @@ -41434,8 +41664,8 @@ static const char *startup_source = "(case-lambda" "((ids_26 s_415 intdef_1)" "(begin 'syntax-local-bind-syntaxes(syntax-local-bind-syntaxes14_0 ids_26 s_415 intdef_1 #f #f)))" -"((ids_27 s_435 intdef_2 extra-intdefs9_1)" -"(syntax-local-bind-syntaxes14_0 ids_27 s_435 intdef_2 extra-intdefs9_1 #t)))))" +"((ids_27 s_436 intdef_2 extra-intdefs9_1)" +"(syntax-local-bind-syntaxes14_0 ids_27 s_436 intdef_2 extra-intdefs9_1 #t)))))" "(define-values" "(1/internal-definition-context-binding-identifiers)" "(lambda(intdef_3)" @@ -41480,7 +41710,7 @@ static const char *startup_source = " 'internal-definition-context-introduce20" "(let-values(((intdef_4) intdef18_0))" "(let-values(((s_420) s19_0))" -"(let-values(((mode_12)(if mode17_0 mode16_0 'flip)))" +"(let-values(((mode_13)(if mode17_0 mode16_0 'flip)))" "(let-values()" "(begin" "(if(1/internal-definition-context? intdef_4)" @@ -41498,23 +41728,23 @@ static const char *startup_source = "((intdef70_0) intdef_4)" "((temp71_0) #t)" "((temp72_0)" -"(let-values(((tmp_31) mode_12))" -"(if(equal? tmp_31 'add)" +"(let-values(((tmp_32) mode_13))" +"(if(equal? tmp_32 'add)" "(let-values() add-scope)" -"(if(equal? tmp_31 'remove)" +"(if(equal? tmp_32 'remove)" "(let-values() remove-scope)" -"(if(equal? tmp_31 'flip)" +"(if(equal? tmp_32 'flip)" "(let-values() flip-scope)" "(let-values()" "(raise-argument-error" " 'internal-definition-context-introduce" " \"(or/c 'add 'remove 'flip)\"" -" mode_12))))))))" +" mode_13))))))))" "(add-intdef-scopes28.1 temp72_0 #t temp71_0 #t s69_0 intdef70_0)))))))))))" "(case-lambda" "((intdef_5 s_67)" "(begin 'internal-definition-context-introduce(internal-definition-context-introduce20_0 intdef_5 s_67 #f #f)))" -"((intdef_6 s_95 mode16_1)(internal-definition-context-introduce20_0 intdef_6 s_95 mode16_1 #t)))))" +"((intdef_6 s_437 mode16_1)(internal-definition-context-introduce20_0 intdef_6 s_437 mode16_1 #t)))))" "(define-values" "(1/internal-definition-context-seal)" "(lambda(intdef_7)" @@ -41528,22 +41758,22 @@ static const char *startup_source = "(void)))))" "(define-values" "(1/identifier-remove-from-definition-context)" -"(lambda(id_71 intdef_8)" +"(lambda(id_72 intdef_8)" "(begin" " 'identifier-remove-from-definition-context" "(begin" -"(if(identifier? id_71)" +"(if(identifier? id_72)" "(void)" -" (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_71)))" -"(if(let-values(((or-part_270)(1/internal-definition-context? intdef_8)))" -"(if or-part_270 or-part_270(if(list? intdef_8)(andmap2 1/internal-definition-context? intdef_8) #f)))" +" (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_72)))" +"(if(let-values(((or-part_275)(1/internal-definition-context? intdef_8)))" +"(if or-part_275 or-part_275(if(list? intdef_8)(andmap2 1/internal-definition-context? intdef_8) #f)))" "(void)" "(let-values()" "(raise-argument-error" " 'identifier-remove-from-definition-context" " \"(or/c internal-definition-context? (listof internal-definition-context?))\"" " intdef_8)))" -"(let-values(((x_74)" +"(let-values(((x_75)" "(let-values(((a_45) intdef_8))" "(if(list? a_45)" "(let-values()(reverse$1 a_45))" @@ -41551,35 +41781,35 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_260)" -"(lambda(id_72 a_46)" +"(lambda(id_73 a_46)" "(begin" " 'for-loop" "(if(pair? a_46)" "(let-values(((intdef_9)(car a_46)))" -"(let-values(((id_73)" -"(let-values(((id_74) id_72))" -"(let-values(((id_75)" +"(let-values(((id_74)" +"(let-values(((id_75) id_73))" +"(let-values(((id_76)" "(let-values()" "(1/internal-definition-context-introduce" " intdef_9" -" id_74" +" id_75" " 'remove))))" -"(values id_75)))))" -"(if(not #f)(for-loop_260 id_73(cdr a_46)) id_73)))" -" id_72)))))" +"(values id_76)))))" +"(if(not #f)(for-loop_260 id_74(cdr a_46)) id_74)))" +" id_73)))))" " for-loop_260)" -" id_71" -" x_74)))))))" +" id_72" +" x_75)))))))" "(define-values" "(intdefs?)" -"(lambda(x_75)" +"(lambda(x_76)" "(begin" -"(let-values(((or-part_271)(1/internal-definition-context? x_75)))" -"(if or-part_271 or-part_271(if(list? x_75)(andmap2 1/internal-definition-context? x_75) #f))))))" +"(let-values(((or-part_276)(1/internal-definition-context? x_76)))" +"(if or-part_276 or-part_276(if(list? x_76)(andmap2 1/internal-definition-context? x_76) #f))))))" " (define-values (intdefs?-string) \"(or/c internal-definition-context? (listof internal-definition-context?))\")" "(define-values" "(intdefs-or-false?)" -"(lambda(x_76)(begin(let-values(((or-part_272)(not x_76)))(if or-part_272 or-part_272(intdefs? x_76))))))" +"(lambda(x_77)(begin(let-values(((or-part_277)(not x_77)))(if or-part_277 or-part_277(intdefs? x_77))))))" "(define-values" "(intdefs-or-false?-string)" " \"(or/c internal-definition-context? (listof internal-definition-context?) #f)\")" @@ -41587,7 +41817,7 @@ static const char *startup_source = "(add-intdef-bindings)" "(lambda(env_11 intdefs_0)" "(begin" -"(let-values(((x_43)" +"(let-values(((x_44)" "(let-values(((a_47) intdefs_0))" "(if(list? a_47)" "(let-values()(reverse$1 a_47))" @@ -41617,7 +41847,7 @@ static const char *startup_source = "(unbox" "(internal-definition-context-env-mixins" " intdef_10))))" -"((letrec-values(((loop_96)" +"((letrec-values(((loop_99)" "(lambda(env_16" " env-mixins_2)" "(begin" @@ -41628,17 +41858,17 @@ static const char *startup_source = "(let-values(((env-mixin_1)" "(car" " env-mixins_2)))" -"(let-values(((or-part_273)" +"(let-values(((or-part_278)" "(hash-ref" "(env-mixin-cache" " env-mixin_1)" " env_16" " #f)))" -"(if or-part_273" -" or-part_273" +"(if or-part_278" +" or-part_278" "(let-values(((new-env_0)" "(env-extend" -"(loop_96" +"(loop_99" " env_16" "(cdr" " env-mixins_2))" @@ -41653,7 +41883,7 @@ static const char *startup_source = " env_16" " new-env_0)" " new-env_0)))))))))))" -" loop_96)" +" loop_99)" " parent-env_0" " env-mixins_1)))))))" "(values env_15)))))" @@ -41661,18 +41891,18 @@ static const char *startup_source = " env_12)))))" " for-loop_261)" " env_11" -" x_43))))))" +" x_44))))))" "(define-values" "(add-intdef-scopes28.1)" "(lambda(action23_0 action25_0 always?22_0 always?24_0 s26_0 intdefs27_0)" "(begin" " 'add-intdef-scopes28" -"(let-values(((s_100) s26_0))" +"(let-values(((s_97) s26_0))" "(let-values(((intdefs_1) intdefs27_0))" "(let-values(((always?_0)(if always?24_0 always?22_0 #f)))" "(let-values(((action_0)(if action25_0 action23_0 add-scope)))" "(let-values()" -"(let-values(((x_77)" +"(let-values(((x_78)" "(let-values(((a_49) intdefs_1))" "(if(list? a_49)" "(let-values()(reverse$1 a_49))" @@ -41680,32 +41910,32 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_262)" -"(lambda(s_329 a_50)" +"(lambda(s_332 a_50)" "(begin" " 'for-loop" "(if(pair? a_50)" "(let-values(((intdef_11)(car a_50)))" -"(let-values(((s_103)" -"(let-values(((s_436) s_329))" -"(if(let-values(((or-part_274) always?_0))" -"(if or-part_274" -" or-part_274" +"(let-values(((s_438)" +"(let-values(((s_439) s_332))" +"(if(let-values(((or-part_279) always?_0))" +"(if or-part_279" +" or-part_279" "(internal-definition-context-add-scope?" " intdef_11)))" -"(let-values(((s_169) s_436))" -"(let-values(((s_437)" +"(let-values(((s_172) s_439))" +"(let-values(((s_440)" "(let-values()" "(action_0" -" s_169" +" s_172" "(internal-definition-context-scope" " intdef_11)))))" -"(values s_437)))" -" s_436))))" -"(if(not #f)(for-loop_262 s_103(cdr a_50)) s_103)))" -" s_329)))))" +"(values s_440)))" +" s_439))))" +"(if(not #f)(for-loop_262 s_438(cdr a_50)) s_438)))" +" s_332)))))" " for-loop_262)" -" s_100" -" x_77)))))))))))" +" s_97" +" x_78)))))))))))" "(define-values" "(make-local-expand-context46.1)" "(lambda(context31_0" @@ -41713,7 +41943,7 @@ static const char *startup_source = " keep-#%expression?37_0" " keep-#%expression?44_0" " phase32_1" -" phase39_1" +" phase39_0" " stop-ids34_0" " stop-ids41_0" " to-parsed-ok?35_0" @@ -41725,7 +41955,7 @@ static const char *startup_source = " 'make-local-expand-context46" "(let-values(((ctx_45) ctx45_0))" "(let-values(((context_9) context31_0))" -"(let-values(((phase_114)(if phase39_1 phase32_1(expand-context-phase ctx_45))))" +"(let-values(((phase_114)(if phase39_0 phase32_1(expand-context-phase ctx_45))))" "(let-values(((intdefs_2) intdefs33_0))" "(let-values(((stop-ids_1)(if stop-ids41_0 stop-ids34_0 #f)))" "(let-values(((to-parsed-ok?_0)(if to-parsed-ok?42_0 to-parsed-ok?35_0 #f)))" @@ -41743,23 +41973,23 @@ 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_195) ctx_45))" -"(let-values(((the-struct_65) v_195))" +"(let-values(((v_196) ctx_45))" +"(let-values(((the-struct_65) v_196))" "(if(expand-context/outer? the-struct_65)" "(let-values(((context73_0) context_9)" "((env74_0)(add-intdef-bindings(expand-context-env ctx_45) intdefs_2))" "((use-site-scopes75_0)" -"(if(let-values(((or-part_275)(eq? context_9 'module)))" -"(if or-part_275" -" or-part_275" -"(let-values(((or-part_276)(eq? context_9 'module-begin)))" -"(if or-part_276 or-part_276(list? context_9)))))" -"(let-values(((or-part_277)" +"(if(let-values(((or-part_280)(eq? context_9 'module)))" +"(if or-part_280" +" or-part_280" +"(let-values(((or-part_281)(eq? context_9 'module-begin)))" +"(if or-part_281 or-part_281(list? context_9)))))" +"(let-values(((or-part_282)" "(root-expand-context-use-site-scopes ctx_45)))" -"(if or-part_277 or-part_277(box null)))" +"(if or-part_282 or-part_282(box null)))" " #f))" "((frame-id76_0)" -"(let-values(((x_78)" +"(let-values(((x_79)" "(let-values(((a_51) intdefs_2))" "(if(list? a_51)" "(let-values()(reverse$1 a_51))" @@ -41793,10 +42023,10 @@ static const char *startup_source = "(let-values()" " 'all)" "(let-values()" -"(let-values(((or-part_278)" +"(let-values(((or-part_283)" " frame-id_11))" -"(if or-part_278" -" or-part_278" +"(if or-part_283" +" or-part_283" " i-frame-id_0))))))))" "(values" " frame-id_12)))))" @@ -41806,7 +42036,7 @@ static const char *startup_source = " frame-id_9)))))" " for-loop_41)" "(root-expand-context-frame-id ctx_45)" -" x_78))))" +" x_79))))" "((post-expansion-scope77_0)" "(if(if intdefs_2(not(null? intdefs_2)) #f)" "(new-scope 'macro)" @@ -41817,10 +42047,10 @@ static const char *startup_source = " #f)))" "((post-expansion-scope-action78_0)" "(if(if intdefs_2(not(null? intdefs_2)) #f)" -"(lambda(s_438 placeholder-sc_0)" +"(lambda(s_441 placeholder-sc_0)" "(begin" " 'post-expansion-scope-action78" -"(let-values(((s84_0) s_438)((intdefs85_0) intdefs_2))" +"(let-values(((s84_0) s_441)((intdefs85_0) intdefs_2))" "(add-intdef-scopes28.1 #f #f #f #f s84_0 intdefs85_0))))" "(expand-context-post-expansion-scope-action ctx_45)))" "((scopes79_0)(append def-ctx-scopes_5(expand-context-scopes ctx_45)))" @@ -41834,7 +42064,7 @@ static const char *startup_source = "(if ht_138(let-values()(make-hasheqv))(let-values() #f)))))" "((inner83_0)" "(let-values(((the-struct_66)" -"(root-expand-context/outer-inner v_195)))" +"(root-expand-context/outer-inner v_196)))" "(if(expand-context/inner? the-struct_66)" "(let-values(((to-parsed?86_0)" "(if to-parsed-ok?_0" @@ -41846,8 +42076,8 @@ static const char *startup_source = "((stops90_0)" "(free-id-set" " phase_114" -"(let-values(((or-part_279) all-stop-ids_0))" -"(if or-part_279 or-part_279 null)))))" +"(let-values(((or-part_284) all-stop-ids_0))" +"(if or-part_284 or-part_284 null)))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi the-struct_66)" "(root-expand-context/inner-module-scopes the-struct_66)" @@ -41902,7 +42132,7 @@ static const char *startup_source = " the-struct_65)))))))))))))))))))" "(define-values" "(flip-introduction-scopes)" -"(lambda(s_228 ctx_46)(begin(flip-scopes s_228(expand-context-current-introduction-scopes ctx_46)))))" +"(lambda(s_232 ctx_46)(begin(flip-scopes s_232(expand-context-current-introduction-scopes ctx_46)))))" "(define-values" "(1/syntax-transforming?)" "(lambda()" @@ -41941,39 +42171,39 @@ static const char *startup_source = "(expand-context-context ctx_50)))))" "(define-values" "(1/syntax-local-introduce)" -"(lambda(s_439)" +"(lambda(s_442)" "(begin" " 'syntax-local-introduce" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_439)" +"(if(syntax?$1 s_442)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_439)))" +" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_442)))" "(values))))" "(let-values(((ctx_51)" "(let-values(((temp68_0) 'syntax-local-introduce))" "(get-current-expand-context17.1 #f #f temp68_0 #t))))" -"(flip-introduction-scopes s_439 ctx_51))))))))" +"(flip-introduction-scopes s_442 ctx_51))))))))" "(define-values" "(1/syntax-local-identifier-as-binding)" -"(lambda(id_76)" +"(lambda(id_77)" "(begin" " 'syntax-local-identifier-as-binding" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? id_76)" +"(if(identifier? id_77)" "(void)" "(let-values()" -" (raise-argument-error 'syntax-local-identifier-as-binding \"identifier?\" id_76)))" +" (raise-argument-error 'syntax-local-identifier-as-binding \"identifier?\" id_77)))" "(values))))" "(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_76 ctx_52))))))))" +"(remove-use-site-scopes id_77 ctx_52))))))))" "(define-values" "(1/syntax-local-phase-level)" "(lambda()" @@ -41991,8 +42221,8 @@ static const char *startup_source = "(let-values(((ctx_54)" "(let-values(((who73_0) 'syntax-local-name))" "(get-current-expand-context17.1 #f #f who73_0 #t))))" -"(let-values(((id_77)(expand-context-name ctx_54)))" -"(if id_77(datum->syntax$1 #f(syntax-e$1 id_77) id_77) #f))))))))" +"(let-values(((id_78)(expand-context-name ctx_54)))" +"(if id_78(datum->syntax$1 #f(syntax-e$1 id_78) id_78) #f))))))))" "(define-values" "(1/make-syntax-introducer)" "(let-values(((make-syntax-introducer3_0)" @@ -42000,39 +42230,51 @@ static const char *startup_source = "(begin" " 'make-syntax-introducer3" "(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(((core77_0)" -"(lambda(s76_0 mode74_0 mode75_0)" -"(begin" -" 'core77" -"(let-values(((s_86) s76_0))" -"(let-values(((mode_13)(if mode75_0 mode74_0 'flip)))" -"(let-values()" -"(begin" -"(if(syntax?$1 s_86)" -"(void)" -"(let-values()" -" (raise-argument-error 'syntax-introducer \"syntax?\" s_86)))" -"(let-values(((tmp_32) mode_13))" -"(if(equal? tmp_32 'add)" -"(let-values()(add-scope s_86 sc_32))" -"(if(equal? tmp_32 'remove)" -"(let-values()(remove-scope s_86 sc_32))" -"(if(equal? tmp_32 'flip)" -"(let-values()(flip-scope s_86 sc_32))" -"(let-values()" -"(raise-argument-error" -" 'syntax-introducer" -" \"(or/c 'add 'remove 'flip)\"" -" mode_13))))))))))))))" -"(case-lambda" -"((s_43)(core77_0 s_43 #f #f))" -"((s_188 mode74_1)(core77_0 s_188 mode74_1 #t)))))))))))" +"(let-values()(do-make-syntax-introducer(new-scope(if as-use-site?_0 'use-site 'macro)))))))))" "(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)))))" "(define-values" +"(1/make-interned-syntax-introducer)" +"(lambda(sym-key_0)" +"(begin" +" 'make-interned-syntax-introducer" +"(let-values()" +"(let-values()" +"(begin" +"(if(symbol? sym-key_0)" +"(void)" +" (let-values () (raise-argument-error 'make-interned-syntax-introducer \"symbol?\" sym-key_0)))" +"(do-make-syntax-introducer(make-interned-scope sym-key_0))))))))" +"(define-values" +"(do-make-syntax-introducer)" +"(lambda(sc_33)" +"(begin" +"(let-values(((core78_0)" +"(lambda(s77_0 mode75_0 mode76_0)" +"(begin" +" 'core78" +"(let-values(((s_43) s77_0))" +"(let-values(((mode_14)(if mode76_0 mode75_0 'flip)))" +"(let-values()" +"(begin" +"(if(syntax?$1 s_43)" +"(void)" +" (let-values () (raise-argument-error 'syntax-introducer \"syntax?\" s_43)))" +"(let-values(((tmp_33) mode_14))" +"(if(equal? tmp_33 'add)" +"(let-values()(add-scope s_43 sc_33))" +"(if(equal? tmp_33 'remove)" +"(let-values()(remove-scope s_43 sc_33))" +"(if(equal? tmp_33 'flip)" +"(let-values()(flip-scope s_43 sc_33))" +"(let-values()" +"(raise-argument-error" +" 'syntax-introducer" +" \"(or/c 'add 'remove 'flip)\"" +" mode_14))))))))))))))" +"(case-lambda((s_411)(core78_0 s_411 #f #f))((s_185 mode75_1)(core78_0 s_185 mode75_1 #t)))))))" +"(define-values" "(1/make-syntax-delta-introducer)" "(let-values(((make-syntax-delta-introducer9_0)" "(lambda(ext-s7_0 base-s8_0 phase5_1 phase6_1)" @@ -42040,7 +42282,7 @@ static const char *startup_source = " 'make-syntax-delta-introducer9" "(let-values(((ext-s_0) ext-s7_0))" "(let-values(((base-s_0) base-s8_0))" -"(let-values(((phase_115)(if phase6_1 phase5_1(1/syntax-local-phase-level))))" +"(let-values(((phase_48)(if phase6_1 phase5_1(1/syntax-local-phase-level))))" "(let-values()" "(let-values()" "(let-values()" @@ -42056,9 +42298,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if((lambda(x_14)" -"(let-values(((or-part_22)(not x_14)))" -"(if or-part_22 or-part_22(syntax?$1 x_14))))" +"(if((lambda(x_80)" +"(let-values(((or-part_33)(not x_80)))" +"(if or-part_33 or-part_33(syntax?$1 x_80))))" " base-s_0)" "(void)" "(let-values()" @@ -42069,72 +42311,72 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(phase? phase_115)" +"(if(phase? phase_48)" "(void)" "(let-values()" "(raise-argument-error" " 'make-syntax-delta-introducer" " phase?-string" -" phase_115)))" +" phase_48)))" "(values))))" -"(let-values(((ext-scs_0)(syntax-scope-set ext-s_0 phase_115)))" +"(let-values(((ext-scs_0)(syntax-scope-set ext-s_0 phase_48)))" "(let-values(((base-scs_0)" "(syntax-scope-set" -"(let-values(((or-part_280) base-s_0))" -"(if or-part_280 or-part_280 empty-syntax))" -" phase_115)))" +"(let-values(((or-part_285) base-s_0))" +"(if or-part_285 or-part_285 empty-syntax))" +" phase_48)))" "(let-values(((use-base-scs_0)" "(if(subset? base-scs_0 ext-scs_0)" " base-scs_0" -"(let-values(((or-part_33)" +"(let-values(((or-part_286)" "(if(identifier? base-s_0)" -"(let-values(((base-s80_0) base-s_0)" -"((phase81_0) phase_115)" -"((temp82_1) #t))" -"(resolve40.1" +"(let-values(((base-s81_0) base-s_0)" +"((phase82_0) phase_48)" +"((temp83_1) #t))" +"(resolve41.1" " #f" " #f" " #f" " #f" " #f" " #f" -" temp82_1" +" temp83_1" " #t" -" base-s80_0" -" phase81_0))" +" base-s81_0" +" phase82_0))" " #f)))" -"(if or-part_33 or-part_33(seteq))))))" +"(if or-part_286 or-part_286(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(((core86_0)" -"(lambda(s85_0 mode83_0 mode84_0)" +"(let-values(((core87_0)" +"(lambda(s86_0 mode84_0 mode85_0)" "(begin" -" 'core86" -"(let-values(((s_425) s85_0))" -"(let-values(((mode_14)" -"(if mode84_0 mode83_0 'add)))" +" 'core87" +"(let-values(((s_12) s86_0))" +"(let-values(((mode_15)" +"(if mode85_0 mode84_0 'add)))" "(let-values()" "(maybe-taint_0" -"(let-values(((tmp_33) mode_14))" -"(if(equal? tmp_33 'add)" +"(let-values(((tmp_14) mode_15))" +"(if(equal? tmp_14 'add)" "(let-values()" -"(add-scopes s_425 delta-scs_0))" -"(if(equal? tmp_33 'remove)" +"(add-scopes s_12 delta-scs_0))" +"(if(equal? tmp_14 'remove)" "(let-values()" -"(remove-scopes s_425 delta-scs_0))" -"(if(equal? tmp_33 'flip)" +"(remove-scopes s_12 delta-scs_0))" +"(if(equal? tmp_14 'flip)" "(let-values()" -"(flip-scopes s_425 delta-scs_0))" +"(flip-scopes s_12 delta-scs_0))" "(let-values()" "(raise-argument-error" " 'syntax-introducer" " \"(or/c 'add 'remove 'flip)\"" -" mode_14))))))))))))))" +" mode_15))))))))))))))" "(case-lambda" -"((s_13)(core86_0 s_13 #f #f))" -"((s_14 mode83_1)(core86_0 s_14 mode83_1 #t))))))))))))))))))))))" +"((s_192)(core87_0 s_192 #f #f))" +"((s_443 mode84_1)(core87_0 s_443 mode84_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)))))" @@ -42159,26 +42401,26 @@ static const char *startup_source = "(begin" " 'do-syntax-local-value17" "(let-values(((who_20) who13_0))" -"(let-values(((id_78) id14_1))" +"(let-values(((id_79) id14_1))" "(let-values(((intdefs_3) intdefs15_0))" "(let-values(((failure-thunk_0) failure-thunk16_0))" "(let-values(((immediate?_1) immediate?11_0))" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? id_78)" +"(if(identifier? id_79)" "(void)" -" (let-values () (raise-argument-error who_20 \"identifier?\" id_78)))" +" (let-values () (raise-argument-error who_20 \"identifier?\" id_79)))" "(values))))" "(let-values((()" "(begin" -"(if((lambda(x_79)" -"(let-values(((or-part_205)(not x_79)))" -"(if or-part_205" -" or-part_205" -"((lambda(p_26)" -"(if(procedure? p_26)(procedure-arity-includes? p_26 0) #f))" -" x_79))))" +"(if((lambda(x_81)" +"(let-values(((or-part_131)(not x_81)))" +"(if or-part_131" +" or-part_131" +"((lambda(p_13)" +"(if(procedure? p_13)(procedure-arity-includes? p_13 0) #f))" +" x_81))))" " failure-thunk_0)" "(void)" "(let-values()" @@ -42195,57 +42437,57 @@ static const char *startup_source = "(raise-argument-error who_20 intdefs-or-false?-string intdefs_3)))" "(values))))" "(let-values(((current-ctx_0)" -"(let-values(((who89_0) who_20))" -"(get-current-expand-context17.1 #f #f who89_0 #t))))" +"(let-values(((who90_0) who_20))" +"(get-current-expand-context17.1 #f #f who90_0 #t))))" "(let-values(((ctx_55)" "(if intdefs_3" -"(let-values(((v_196) current-ctx_0))" -"(let-values(((the-struct_67) v_196))" -"(if(expand-context/outer? the-struct_67)" -"(let-values(((env90_0)" +"(let-values(((v_197) current-ctx_0))" +"(let-values(((the-struct_13) v_197))" +"(if(expand-context/outer? the-struct_13)" +"(let-values(((env91_0)" "(add-intdef-bindings" "(expand-context-env current-ctx_0)" " intdefs_3))" -"((inner91_0)(root-expand-context/outer-inner v_196)))" +"((inner92_0)(root-expand-context/outer-inner v_197)))" "(expand-context/outer1.1" -" inner91_0" -"(root-expand-context/outer-post-expansion-scope the-struct_67)" -"(root-expand-context/outer-use-site-scopes the-struct_67)" -"(root-expand-context/outer-frame-id the-struct_67)" -"(expand-context/outer-context the-struct_67)" -" env90_0" -"(expand-context/outer-post-expansion-scope-action the-struct_67)" -"(expand-context/outer-scopes the-struct_67)" -"(expand-context/outer-def-ctx-scopes the-struct_67)" -"(expand-context/outer-binding-layer the-struct_67)" -"(expand-context/outer-reference-records the-struct_67)" -"(expand-context/outer-only-immediate? the-struct_67)" -"(expand-context/outer-need-eventually-defined the-struct_67)" -"(expand-context/outer-current-introduction-scopes the-struct_67)" -"(expand-context/outer-name the-struct_67)))" +" inner92_0" +"(root-expand-context/outer-post-expansion-scope the-struct_13)" +"(root-expand-context/outer-use-site-scopes the-struct_13)" +"(root-expand-context/outer-frame-id the-struct_13)" +"(expand-context/outer-context the-struct_13)" +" env91_0" +"(expand-context/outer-post-expansion-scope-action the-struct_13)" +"(expand-context/outer-scopes the-struct_13)" +"(expand-context/outer-def-ctx-scopes the-struct_13)" +"(expand-context/outer-binding-layer the-struct_13)" +"(expand-context/outer-reference-records the-struct_13)" +"(expand-context/outer-only-immediate? the-struct_13)" +"(expand-context/outer-need-eventually-defined the-struct_13)" +"(expand-context/outer-current-introduction-scopes the-struct_13)" +"(expand-context/outer-name the-struct_13)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_67))))" +" the-struct_13))))" " current-ctx_0)))" "(let-values((()" "(begin" -"(let-values(((obs_34)(expand-context-observer ctx_55)))" -"(if obs_34" +"(let-values(((obs_29)(expand-context-observer ctx_55)))" +"(if obs_29" "(let-values()" -"(let-values()(call-expand-observe obs_34 'local-value id_78)))" +"(let-values()(call-expand-observe obs_29 'local-value id_79)))" "(void)))" "(values))))" -"(let-values(((phase_7)(expand-context-phase ctx_55)))" -"((letrec-values(((loop_97)" -"(lambda(id_79)" +"(let-values(((phase_87)(expand-context-phase ctx_55)))" +"((letrec-values(((loop_100)" +"(lambda(id_80)" "(begin" " 'loop" -"(let-values(((b_23)" +"(let-values(((b_82)" "(if immediate?_1" -"(let-values(((id92_0) id_79)" -"((phase93_0) phase_7)" -"((temp94_1) #t))" +"(let-values(((id93_1) id_80)" +"((phase94_1) phase_87)" +"((temp95_0) #t))" "(resolve+shift30.1" " #f" " #f" @@ -42253,24 +42495,55 @@ static const char *startup_source = " #f" " #f" " #f" -" temp94_1" +" temp95_0" " #t" " #f" " #f" -" id92_0" -" phase93_0))" +" id93_1" +" phase94_1))" "(resolve+shift/extra-inspector" -" id_79" -" phase_7" +" id_80" +" phase_87" "(expand-context-namespace ctx_55)))))" "(begin" -"(let-values(((obs_35)(expand-context-observer ctx_55)))" +"(let-values(((obs_34)(expand-context-observer ctx_55)))" +"(if obs_34" +"(let-values()" +"(let-values()" +"(call-expand-observe obs_34 'resolve id_80)))" +"(void)))" +"(if(not b_82)" +"(let-values()" +"(begin" +"(let-values(((obs_35)" +"(expand-context-observer ctx_55)))" "(if obs_35" "(let-values()" "(let-values()" -"(call-expand-observe obs_35 'resolve id_79)))" +"(call-expand-observe" +" obs_35" +" 'local-value-result" +" #f)))" "(void)))" -"(if(not b_23)" +"(if failure-thunk_0" +"(failure-thunk_0)" +" (error who_20 \"unbound identifier: ~v\" id_80))))" +"(let-values()" +"(let-values(((v_37 primitive?_7 insp_17 protected?_8)" +"(let-values(((b96_0) b_82)" +"((ctx97_0) ctx_55)" +"((id98_0) id_80)" +"((temp99_0) #t))" +"(lookup62.1" +" #f" +" #f" +" temp99_0" +" #t" +" b96_0" +" ctx97_0" +" id98_0))))" +"(if(let-values(((or-part_287)(variable? v_37)))" +"(if or-part_287 or-part_287(core-form? v_37)))" "(let-values()" "(begin" "(let-values(((obs_36)" @@ -42285,158 +42558,127 @@ static const char *startup_source = "(void)))" "(if failure-thunk_0" "(failure-thunk_0)" -" (error who_20 \"unbound identifier: ~v\" id_79))))" -"(let-values()" -"(let-values(((v_197 primitive?_7 insp_17 protected?_8)" -"(let-values(((b95_0) b_23)" -"((ctx96_0) ctx_55)" -"((id97_0) id_79)" -"((temp98_1) #t))" -"(lookup62.1" -" #f" -" #f" -" temp98_1" -" #t" -" b95_0" -" ctx96_0" -" id97_0))))" -"(if(let-values(((or-part_281)(variable? v_197)))" -"(if or-part_281 or-part_281(core-form? v_197)))" +"(error" +" who_20" +" \"identifier is not bound to syntax: ~v\"" +" id_80))))" "(let-values()" "(begin" "(let-values(((obs_37)" "(expand-context-observer ctx_55)))" "(if obs_37" "(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_37" -" 'local-value-result" -" #f)))" -"(void)))" -"(if failure-thunk_0" -"(failure-thunk_0)" -"(error" -" who_20" -" \"identifier is not bound to syntax: ~v\"" -" id_79))))" -"(let-values()" -"(begin" -"(let-values(((obs_38)" -"(expand-context-observer ctx_55)))" -"(if obs_38" -"(let-values()" "(if(not" -"(if(1/rename-transformer? v_197)" +"(if(1/rename-transformer? v_37)" "(not immediate?_1)" " #f))" "(let-values()" "(call-expand-observe" -" obs_38" +" obs_37" " 'local-value-result" " #t))" "(void)))" "(void)))" -"(if(1/rename-transformer? v_197)" +"(if(1/rename-transformer? v_37)" "(let-values()" "(if immediate?_1" "(values" -" v_197" -"(1/rename-transformer-target v_197))" -"(loop_97" -"(1/rename-transformer-target v_197))))" +" v_37" +"(1/rename-transformer-target v_37))" +"(loop_100" +"(1/rename-transformer-target v_37))))" "(if immediate?_1" -"(let-values()(values v_197 #f))" -"(let-values() v_197)))))))))))))))" -" loop_97)" -"(flip-introduction-scopes id_78 ctx_55))))))))))))))))))" +"(let-values()(values v_37 #f))" +"(let-values() v_37)))))))))))))))" +" loop_100)" +"(flip-introduction-scopes id_79 ctx_55))))))))))))))))))" "(define-values" "(1/syntax-local-value)" "(let-values(((syntax-local-value25_0)" "(lambda(id24_0 failure-thunk20_0 intdef21_0 failure-thunk22_0 intdef23_0)" "(begin" " 'syntax-local-value25" -"(let-values(((id_80) id24_0))" +"(let-values(((id_81) id24_0))" "(let-values(((failure-thunk_1)(if failure-thunk22_0 failure-thunk20_0 #f)))" "(let-values(((intdef_13)(if intdef23_0 intdef21_0 #f)))" "(let-values()" -"(let-values(((temp99_0) 'syntax-local-value)" -"((temp100_0) #f)" -"((id101_0) id_80)" -"((intdef102_0) intdef_13)" -"((failure-thunk103_0) failure-thunk_1))" +"(let-values(((temp100_0) 'syntax-local-value)" +"((temp101_0) #f)" +"((id102_0) id_81)" +"((intdef103_0) intdef_13)" +"((failure-thunk104_0) failure-thunk_1))" "(do-syntax-local-value17.1" +" temp101_0" " temp100_0" -" temp99_0" -" id101_0" -" intdef102_0" -" failure-thunk103_0))))))))))" +" id102_0" +" intdef103_0" +" failure-thunk104_0))))))))))" "(case-lambda" -"((id_62)(begin 'syntax-local-value(syntax-local-value25_0 id_62 #f #f #f #f)))" -"((id_17 failure-thunk_2 intdef21_1)(syntax-local-value25_0 id_17 failure-thunk_2 intdef21_1 #t #t))" -"((id_81 failure-thunk20_1)(syntax-local-value25_0 id_81 failure-thunk20_1 #f #t #f)))))" +"((id_82)(begin 'syntax-local-value(syntax-local-value25_0 id_82 #f #f #f #f)))" +"((id_83 failure-thunk_2 intdef21_1)(syntax-local-value25_0 id_83 failure-thunk_2 intdef21_1 #t #t))" +"((id_84 failure-thunk20_1)(syntax-local-value25_0 id_84 failure-thunk20_1 #f #t #f)))))" "(define-values" "(1/syntax-local-value/immediate)" "(let-values(((syntax-local-value/immediate32_0)" "(lambda(id31_1 failure-thunk27_0 intdef28_0 failure-thunk29_0 intdef30_0)" "(begin" " 'syntax-local-value/immediate32" -"(let-values(((id_82) id31_1))" +"(let-values(((id_85) id31_1))" "(let-values(((failure-thunk_3)(if failure-thunk29_0 failure-thunk27_0 #f)))" "(let-values(((intdef_14)(if intdef30_0 intdef28_0 #f)))" "(let-values()" -"(let-values(((temp104_1) 'syntax-local-value/immediate)" -"((temp105_0) #t)" -"((id106_0) id_82)" -"((intdef107_0) intdef_14)" -"((failure-thunk108_0) failure-thunk_3))" +"(let-values(((temp105_0) 'syntax-local-value/immediate)" +"((temp106_1) #t)" +"((id107_0) id_85)" +"((intdef108_0) intdef_14)" +"((failure-thunk109_0) failure-thunk_3))" "(do-syntax-local-value17.1" +" temp106_1" " temp105_0" -" temp104_1" -" id106_0" -" intdef107_0" -" failure-thunk108_0))))))))))" +" id107_0" +" intdef108_0" +" failure-thunk109_0))))))))))" "(case-lambda" -"((id_83)(begin 'syntax-local-value/immediate(syntax-local-value/immediate32_0 id_83 #f #f #f #f)))" -"((id_84 failure-thunk_4 intdef28_1)(syntax-local-value/immediate32_0 id_84 failure-thunk_4 intdef28_1 #t #t))" -"((id_85 failure-thunk27_1)(syntax-local-value/immediate32_0 id_85 failure-thunk27_1 #f #t #f)))))" +"((id_86)(begin 'syntax-local-value/immediate(syntax-local-value/immediate32_0 id_86 #f #f #f #f)))" +"((id_87 failure-thunk_4 intdef28_1)(syntax-local-value/immediate32_0 id_87 failure-thunk_4 intdef28_1 #t #t))" +"((id_88 failure-thunk27_1)(syntax-local-value/immediate32_0 id_88 failure-thunk27_1 #f #t #f)))))" "(define-values" "(do-lift-values-expression)" -"(lambda(who_21 n_28 s_427)" +"(lambda(who_21 n_29 s_413)" "(begin" "(let-values((()" "(begin" -" (if (syntax?$1 s_427) (void) (let-values () (raise-argument-error who_21 \"syntax?\" s_427)))" +" (if (syntax?$1 s_413) (void) (let-values () (raise-argument-error who_21 \"syntax?\" s_413)))" "(values))))" "(let-values((()" "(begin" -"(if(exact-nonnegative-integer? n_28)" +"(if(exact-nonnegative-integer? n_29)" "(void)" -" (let-values () (raise-argument-error who_21 \"exact-nonnegative-integer?\" n_28)))" +" (let-values () (raise-argument-error who_21 \"exact-nonnegative-integer?\" n_29)))" "(values))))" -"(let-values(((ctx_18)(let-values(((who109_0) who_21))(get-current-expand-context17.1 #f #f who109_0 #t))))" -"(let-values(((lifts_8)(expand-context-lifts ctx_18)))" +"(let-values(((ctx_56)(let-values(((who110_0) who_21))(get-current-expand-context17.1 #f #f who110_0 #t))))" +"(let-values(((lifts_8)(expand-context-lifts ctx_56)))" "(let-values((()" "(begin" " (if lifts_8 (void) (let-values () (raise-arguments-error who_21 \"no lift target\")))" "(values))))" -"(let-values(((counter_4)(root-expand-context-counter ctx_18)))" -"(let-values(((ids_28)" +"(let-values(((counter_4)(root-expand-context-counter ctx_56)))" +"(let-values(((ids_27)" "(reverse$1" -"(let-values(((start_40) 0)((end_30) n_28)((inc_24) 1))" +"(let-values(((start_40) 0)((end_30) n_29)((inc_24) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_40 end_30 inc_24)))" "((letrec-values(((for-loop_263)" -"(lambda(fold-var_258 pos_106)" +"(lambda(fold-var_258 pos_105)" "(begin" " 'for-loop" -"(if(< pos_106 end_30)" +"(if(< pos_105 end_30)" "(let-values()" -"(let-values(((fold-var_254)" -"(let-values(((fold-var_191) fold-var_258))" "(let-values(((fold-var_259)" +"(let-values(((fold-var_260) fold-var_258))" +"(let-values(((fold-var_255)" "(let-values()" "(cons" "(let-values()" @@ -42448,7 +42690,7 @@ static const char *startup_source = "(unbox" " counter_4)))" "(values))))" -"(let-values(((name_36)" +"(let-values(((name_25)" "(string->unreadable-symbol" "(format" " \"lifted/~a\"" @@ -42457,42 +42699,42 @@ static const char *startup_source = "(add-scope" "(datum->syntax$1" " #f" -" name_36)" +" name_25)" "(new-scope" " 'macro)))))" -" fold-var_191))))" -"(values fold-var_259)))))" +" fold-var_260))))" +"(values fold-var_255)))))" "(if(not #f)" -"(for-loop_263 fold-var_254(+ pos_106 inc_24))" -" fold-var_254)))" +"(for-loop_263 fold-var_259(+ pos_105 inc_24))" +" fold-var_259)))" " fold-var_258)))))" " for-loop_263)" " null" " start_40))))))" "(begin" -"(let-values(((obs_39)(expand-context-observer ctx_18)))" -"(if obs_39" -"(let-values()(let-values()(call-expand-observe obs_39 'lift-expr ids_28 s_427)))" +"(let-values(((obs_38)(expand-context-observer ctx_56)))" +"(if obs_38" +"(let-values()(let-values()(call-expand-observe obs_38 'lift-expr ids_27 s_413)))" "(void)))" "(map2" -"(lambda(id_86)(flip-introduction-scopes id_86 ctx_18))" +"(lambda(id_89)(flip-introduction-scopes id_89 ctx_56))" "(add-lifted!" " lifts_8" -" ids_28" -"(flip-introduction-scopes s_427 ctx_18)" -"(expand-context-phase ctx_18))))))))))))))" +" ids_27" +"(flip-introduction-scopes s_413 ctx_56)" +"(expand-context-phase ctx_56))))))))))))))" "(define-values" "(1/syntax-local-lift-expression)" -"(lambda(s_440)" +"(lambda(s_207)" "(begin" " 'syntax-local-lift-expression" -"(let-values()(let-values()(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_440)))))))" +"(let-values()(let-values()(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_207)))))))" "(define-values" "(1/syntax-local-lift-values-expression)" -"(lambda(n_29 s_202)" +"(lambda(n_30 s_444)" "(begin" " 'syntax-local-lift-values-expression" -"(let-values()(let-values()(do-lift-values-expression 'syntax-local-lift-values-expression n_29 s_202))))))" +"(let-values()(let-values()(do-lift-values-expression 'syntax-local-lift-values-expression n_30 s_444))))))" "(define-values" "(1/syntax-local-lift-context)" "(lambda()" @@ -42500,32 +42742,32 @@ static const char *startup_source = " 'syntax-local-lift-context" "(let-values()" "(let-values()" -"(let-values(((ctx_56)" -"(let-values(((who113_0) 'syntax-local-lift-context))" -"(get-current-expand-context17.1 #f #f who113_0 #t))))" -"(root-expand-context-lift-key ctx_56)))))))" +"(let-values(((ctx_57)" +"(let-values(((who114_0) 'syntax-local-lift-context))" +"(get-current-expand-context17.1 #f #f who114_0 #t))))" +"(root-expand-context-lift-key ctx_57)))))))" "(define-values" "(1/syntax-local-lift-module)" -"(lambda(s_64)" +"(lambda(s_65)" "(begin" " 'syntax-local-lift-module" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_64)" +"(if(syntax?$1 s_65)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-lift-module \"syntax?\" s_64)))" +" (let-values () (raise-argument-error 'syntax-local-lift-module \"syntax?\" s_65)))" "(values))))" -"(let-values(((ctx_57)" -"(let-values(((who115_0) 'syntax-local-lift-module))" -"(get-current-expand-context17.1 #f #f who115_0 #t))))" -"(let-values(((phase_116)(expand-context-phase ctx_57)))" +"(let-values(((ctx_58)" +"(let-values(((who116_0) 'syntax-local-lift-module))" +"(get-current-expand-context17.1 #f #f who116_0 #t))))" +"(let-values(((phase_115)(expand-context-phase ctx_58)))" "(begin" -"(let-values(((tmp_34)(core-form-sym s_64 phase_116)))" +"(let-values(((tmp_34)(core-form-sym s_65 phase_115)))" "(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_9)(expand-context-module-lifts ctx_58)))" "(begin" "(if lifts_9" "(void)" @@ -42534,13 +42776,13 @@ static const char *startup_source = " 'syntax-local-lift-module" " \"not currently transforming within a module declaration or top level\"" " \"form to lift\"" -" s_64)))" -"(add-lifted-module! lifts_9(flip-introduction-scopes s_64 ctx_57) phase_116))))" +" s_65)))" +"(add-lifted-module! lifts_9(flip-introduction-scopes s_65 ctx_58) phase_115))))" "(let-values()" -" (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_64))))" -"(let-values(((obs_40)(expand-context-observer ctx_57)))" -"(if obs_40" -"(let-values()(let-values()(call-expand-observe obs_40 'lift-statement s_64)))" +" (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_65))))" +"(let-values(((obs_39)(expand-context-observer ctx_58)))" +"(if obs_39" +"(let-values()(let-values()(call-expand-observe obs_39 'lift-statement s_65)))" "(void))))))))))))" "(define-values" "(do-local-lift-to-module54.1)" @@ -42563,7 +42805,7 @@ static const char *startup_source = "(begin" " 'do-local-lift-to-module54" "(let-values(((who_22) who52_0))" -"(let-values(((s_441) s53_1))" +"(let-values(((s_445) 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)))" @@ -42573,27 +42815,27 @@ static const char *startup_source = "(let-values(((pre-wrap_0)" "(if pre-wrap49_0" " pre-wrap40_0" -"(lambda(s_442 phase_117 lift-ctx_1)(begin 'pre-wrap s_442)))))" +"(lambda(s_446 phase_116 lift-ctx_1)(begin 'pre-wrap s_446)))))" "(let-values(((shift-wrap_0)" "(if shift-wrap50_0" " shift-wrap41_0" -"(lambda(s_98 phase_118 lift-ctx_2)(begin 'shift-wrap s_98)))))" +"(lambda(s_70 phase_117 lift-ctx_2)(begin 'shift-wrap s_70)))))" "(let-values(((post-wrap_0)" "(if post-wrap51_0" " post-wrap42_0" -"(lambda(s_443 phase_119 lift-ctx_3)(begin 'post-wrap s_443)))))" +"(lambda(s_216 phase_118 lift-ctx_3)(begin 'post-wrap s_216)))))" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_441)" +"(if(syntax?$1 s_445)" "(void)" -" (let-values () (raise-argument-error who_22 \"syntax?\" s_441)))" +" (let-values () (raise-argument-error who_22 \"syntax?\" s_445)))" "(values))))" "(let-values((()(begin(more-checks_0)(values))))" -"(let-values(((ctx_58)" -"(let-values(((who116_0) who_22))" -"(get-current-expand-context17.1 #f #f who116_0 #t))))" -"(let-values(((lift-ctx_4)(get-lift-ctx_0 ctx_58)))" +"(let-values(((ctx_59)" +"(let-values(((who117_0) who_22))" +"(get-current-expand-context17.1 #f #f who117_0 #t))))" +"(let-values(((lift-ctx_4)(get-lift-ctx_0 ctx_59)))" "(let-values((()" "(begin" "(if lift-ctx_4" @@ -42603,15 +42845,15 @@ static const char *startup_source = " who_22" " no-target-msg_0" " \"form to lift\"" -" s_441)))" +" s_445)))" "(values))))" -"(let-values(((phase_120)(expand-context-phase ctx_58)))" +"(let-values(((phase_119)(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_441 ctx_58) s_441)))" -"(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_120 lift-ctx_4)))" +"(if intro?_0(flip-introduction-scopes s_445 ctx_59) s_445)))" +"(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_119 lift-ctx_4)))" "(let-values(((shift-s_0)" -"(let-values(((start_41) phase_120)" +"(let-values(((start_41) phase_119)" "((end_31) wrt-phase_1)" "((inc_25) -1))" "(begin" @@ -42620,189 +42862,189 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_41 end_31 inc_25)))" -"((letrec-values(((for-loop_264)" -"(lambda(s_68 pos_107)" +"((letrec-values(((for-loop_207)" +"(lambda(s_438 pos_24)" "(begin" " 'for-loop" -"(if(> pos_107 end_31)" -"(let-values(((phase_121)" -" pos_107))" -"(let-values(((s_436)" -"(let-values(((s_104)" -" s_68))" -"(let-values(((s_169)" +"(if(> pos_24 end_31)" +"(let-values(((phase_54)" +" pos_24))" +"(let-values(((s_172)" +"(let-values(((s_440)" +" s_438))" +"(let-values(((s_218)" "(let-values()" "(shift-wrap_0" -" s_104" +" s_440" "(sub1" -" phase_121)" +" phase_54)" " lift-ctx_4))))" "(values" -" s_169)))))" +" s_218)))))" "(if(not #f)" -"(for-loop_264" -" s_436" -"(+ pos_107 inc_25))" -" s_436)))" -" s_68)))))" -" for-loop_264)" +"(for-loop_207" +" s_172" +"(+ pos_24 inc_25))" +" s_172)))" +" s_438)))))" +" for-loop_207)" " pre-s_0" " start_41)))))" "(let-values(((post-s_1)" "(post-wrap_0 shift-s_0 wrt-phase_1 lift-ctx_4)))" "(begin" "(add-lifted!_0 lift-ctx_4 post-s_1 wrt-phase_1)" -"(values ctx_58 post-s_1))))))))))))))))))))))))))))" +"(values ctx_59 post-s_1))))))))))))))))))))))))))))" "(define-values" "(1/syntax-local-lift-require)" -"(lambda(s_333 use-s_1)" +"(lambda(s_447 use-s_1)" "(begin" " 'syntax-local-lift-require" "(let-values()" "(let-values()" -"(let-values(((sc_33)(new-scope 'lifted-require)))" -"(let-values(((ctx_59 added-s_1)" -"(let-values(((who118_0) 'syntax-local-lift-require)" -"((temp119_0)(datum->syntax$1 #f s_333))" -" ((temp120_0) \"could not find target context\")" -"((temp121_0) #f)" -"((temp122_0)" +"(let-values(((sc_11)(new-scope 'lifted-require)))" +"(let-values(((ctx_60 added-s_1)" +"(let-values(((who119_0) 'syntax-local-lift-require)" +"((temp120_0)(datum->syntax$1 #f s_447))" +" ((temp121_0) \"could not find target context\")" +"((temp122_0) #f)" +"((temp123_0)" "(lambda()" "(if(syntax?$1 use-s_1)" "(void)" "(let-values()" " (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_0)" -"(lambda(s_444 phase_122 require-lift-ctx_0)" -"(require-spec-shift-for-syntax s_444)))" +"((expand-context-require-lifts124_0) expand-context-require-lifts)" +"((require-lift-context-wrt-phase125_0) require-lift-context-wrt-phase)" +"((add-lifted-require!126_0) add-lifted-require!)" "((temp127_1)" -"(lambda(s_445 phase_123 require-lift-ctx_1)" -"(wrap-form '#%require(add-scope s_445 sc_33) phase_123))))" +"(lambda(s_448 phase_120 require-lift-ctx_0)" +"(require-spec-shift-for-syntax s_448)))" +"((temp128_2)" +"(lambda(s_112 phase_121 require-lift-ctx_1)" +"(wrap-form '#%require(add-scope s_112 sc_11) phase_121))))" "(do-local-lift-to-module54.1" -" add-lifted-require!125_0" -" expand-context-require-lifts123_0" -" require-lift-context-wrt-phase124_0" -" temp121_0" -" #t" +" add-lifted-require!126_0" +" expand-context-require-lifts124_0" +" require-lift-context-wrt-phase125_0" " temp122_0" " #t" -" temp120_0" +" temp123_0" +" #t" +" temp121_0" +" temp128_2" +" #t" +" #f" +" #f" " temp127_1" " #t" -" #f" -" #f" -" temp126_0" -" #t" -" who118_0" -" temp119_0))))" +" who119_0" +" temp120_0))))" "(let-values((()" "(begin" "(namespace-visit-available-modules!" -"(expand-context-namespace ctx_59)" -"(expand-context-phase ctx_59))" +"(expand-context-namespace ctx_60)" +"(expand-context-phase ctx_60))" "(values))))" -"(let-values(((result-s_6)(add-scope use-s_1 sc_33)))" +"(let-values(((result-s_6)(add-scope use-s_1 sc_11)))" "(begin" -"(let-values(((obs_41)(expand-context-observer ctx_59)))" -"(if obs_41" +"(let-values(((obs_40)(expand-context-observer ctx_60)))" +"(if obs_40" "(let-values()" -"(let-values()(call-expand-observe obs_41 'lift-require added-s_1 use-s_1 result-s_6)))" +"(let-values()(call-expand-observe obs_40 'lift-require added-s_1 use-s_1 result-s_6)))" "(void)))" " result-s_6))))))))))" "(define-values" "(1/syntax-local-lift-provide)" -"(lambda(s_446)" +"(lambda(s_113)" "(begin" " 'syntax-local-lift-provide" "(let-values()" "(let-values()" -"(let-values(((ctx_60 result-s_7)" -"(let-values(((who129_0) 'syntax-local-lift-provide)" -"((s130_0) s_446)" -" ((temp131_1) \"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_126 phase_124 to-module-lift-ctx_0)(wrap-form 'for-syntax s_126 #f)))" +"(let-values(((ctx_5 result-s_7)" +"(let-values(((who130_0) 'syntax-local-lift-provide)" +"((s131_0) s_113)" +" ((temp132_1) \"not expanding in a module run-time body\")" +"((expand-context-to-module-lifts133_0) expand-context-to-module-lifts)" +"((to-module-lift-context-wrt-phase134_0) to-module-lift-context-wrt-phase)" +"((add-lifted-to-module-provide!135_0) add-lifted-to-module-provide!)" "((temp136_0)" -"(lambda(s_447 phase_125 to-module-lift-ctx_1)" -"(wrap-form '#%provide s_447 phase_125))))" +"(lambda(s_441 phase_122 to-module-lift-ctx_0)(wrap-form 'for-syntax s_441 #f)))" +"((temp137_1)" +"(lambda(s_227 phase_123 to-module-lift-ctx_1)" +"(wrap-form '#%provide s_227 phase_123))))" "(do-local-lift-to-module54.1" -" add-lifted-to-module-provide!134_0" -" expand-context-to-module-lifts132_0" -" to-module-lift-context-wrt-phase133_0" +" add-lifted-to-module-provide!135_0" +" expand-context-to-module-lifts133_0" +" to-module-lift-context-wrt-phase134_0" " #f" " #f" " #f" " #f" -" temp131_1" +" temp132_1" +" temp137_1" +" #t" +" #f" +" #f" " temp136_0" " #t" -" #f" -" #f" -" temp135_0" -" #t" -" who129_0" -" s130_0))))" -"(let-values(((obs_42)(expand-context-observer ctx_60)))" -"(if obs_42" -"(let-values()(let-values()(call-expand-observe obs_42 'lift-provide result-s_7)))" +" who130_0" +" s131_0))))" +"(let-values(((obs_41)(expand-context-observer ctx_5)))" +"(if obs_41" +"(let-values()(let-values()(call-expand-observe obs_41 'lift-provide result-s_7)))" "(void)))))))))" "(define-values" "(1/syntax-local-lift-module-end-declaration)" -"(lambda(s_127)" +"(lambda(s_229)" "(begin" " 'syntax-local-lift-module-end-declaration" "(let-values()" "(let-values()" "(let-values(((ctx_61 also-s_0)" -"(let-values(((who138_0) 'syntax-local-lift-module-end-declaration)" -"((s139_0) s_127)" -"((temp140_0)" +"(let-values(((who139_0) 'syntax-local-lift-module-end-declaration)" +"((s140_0) s_229)" +"((temp141_0)" " \"not currently transforming an expression within a module declaration\")" -"((expand-context-to-module-lifts141_0) expand-context-to-module-lifts)" -"((temp142_1)(lambda(lift-ctx_5) 0))" -"((add-lifted-to-module-end!143_0) add-lifted-to-module-end!)" -"((temp144_0)" -"(lambda(orig-s_32 phase_126 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_126)" -" orig-s_32)))" +"((expand-context-to-module-lifts142_0) expand-context-to-module-lifts)" +"((temp143_1)(lambda(lift-ctx_5) 0))" +"((add-lifted-to-module-end!144_0) add-lifted-to-module-end!)" "((temp145_1)" -"(lambda(s_448 phase_127 to-module-lift-ctx_3)" -"(wrap-form 'begin-for-syntax s_448 phase_127))))" +"(lambda(orig-s_32 phase_124 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_124)" +" orig-s_32)))" +"((temp146_1)" +"(lambda(s_449 phase_125 to-module-lift-ctx_3)" +"(wrap-form 'begin-for-syntax s_449 phase_125))))" "(do-local-lift-to-module54.1" -" add-lifted-to-module-end!143_0" -" expand-context-to-module-lifts141_0" -" temp142_1" +" add-lifted-to-module-end!144_0" +" expand-context-to-module-lifts142_0" +" temp143_1" " #f" " #f" " #f" " #f" -" temp140_0" +" temp141_0" " #f" " #f" -" temp144_0" -" #t" " temp145_1" " #t" -" who138_0" -" s139_0))))" -"(let-values(((obs_43)(expand-context-observer ctx_61)))" -"(if obs_43" -"(let-values()(let-values()(call-expand-observe obs_43 'lift-statement s_127)))" +" temp146_1" +" #t" +" who139_0" +" s140_0))))" +"(let-values(((obs_42)(expand-context-observer ctx_61)))" +"(if obs_42" +"(let-values()(let-values()(call-expand-observe obs_42 'lift-statement s_229)))" "(void)))))))))" "(define-values" "(wrap-form)" -"(lambda(sym_68 s_449 phase_128)" +"(lambda(sym_69 s_450 phase_126)" "(begin" "(datum->syntax$1" " #f" -"(list(datum->syntax$1(if phase_128(syntax-shift-phase-level$1 core-stx phase_128) #f) sym_68) s_449)))))" +"(list(datum->syntax$1(if phase_126(syntax-shift-phase-level$1 core-stx phase_126) #f) sym_69) s_450)))))" "(define-values" "(1/syntax-local-module-defined-identifiers)" "(lambda()" @@ -42820,8 +43062,8 @@ static const char *startup_source = " \"not currently transforming module provides\")))" "(values))))" "(let-values(((ctx_62)" -"(let-values(((temp147_1) 'syntax-local-module-defined-identifiers))" -"(get-current-expand-context17.1 #f #f temp147_1 #t))))" +"(let-values(((temp148_1) 'syntax-local-module-defined-identifiers))" +"(get-current-expand-context17.1 #f #f temp148_1 #t))))" "(requireds->phase-ht(extract-module-definitions(expand-context-requires+provides ctx_62))))))))))" "(define-values" "(1/syntax-local-module-required-identifiers)" @@ -42832,8 +43074,8 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_282)(not mod-path_8)))" -"(if or-part_282 or-part_282(1/module-path? mod-path_8)))" +"(if(let-values(((or-part_288)(not mod-path_8)))" +"(if or-part_288 or-part_288(1/module-path? mod-path_8)))" "(void)" "(let-values()" "(raise-argument-error" @@ -42843,8 +43085,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_283)(eq? phase-level_21 #t)))" -"(if or-part_283 or-part_283(phase? phase-level_21)))" +"(if(let-values(((or-part_289)(eq? phase-level_21 #t)))" +"(if or-part_289 or-part_289(phase? phase-level_21)))" "(void)" "(let-values()" "(raise-argument-error" @@ -42862,8 +43104,8 @@ static const char *startup_source = " \"not currently transforming module provides\")))" "(values))))" "(let-values(((ctx_63)" -"(let-values(((temp149_1) 'syntax-local-module-required-identifiers))" -"(get-current-expand-context17.1 #f #f temp149_1 #t))))" +"(let-values(((temp150_0) 'syntax-local-module-required-identifiers))" +"(get-current-expand-context17.1 #f #f temp150_0 #t))))" "(let-values(((requires+provides_5)(expand-context-requires+provides ctx_63)))" "(let-values(((mpi_47)(if mod-path_8(module-path->mpi/context mod-path_8 ctx_63) #f)))" "(let-values(((requireds_0)" @@ -42878,29 +43120,29 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_139)))" -"((letrec-values(((for-loop_138)" -"(lambda(fold-var_260 i_112)" +"((letrec-values(((for-loop_264)" +"(lambda(fold-var_204 i_167)" "(begin" " 'for-loop" -"(if i_112" -"(let-values(((phase_129 ids_29)" -"(hash-iterate-key+value ht_139 i_112)))" -"(let-values(((fold-var_206)" -"(let-values(((fold-var_261) fold-var_260))" -"(let-values(((fold-var_262)" +"(if i_167" +"(let-values(((phase_127 ids_28)" +"(hash-iterate-key+value ht_139 i_167)))" +"(let-values(((fold-var_261)" +"(let-values(((fold-var_262) fold-var_204))" +"(let-values(((fold-var_263)" "(let-values()" "(cons" "(let-values()" -"(cons phase_129 ids_29))" -" fold-var_261))))" -"(values fold-var_262)))))" +"(cons phase_127 ids_28))" +" fold-var_262))))" +"(values fold-var_263)))))" "(if(not #f)" -"(for-loop_138" -" fold-var_206" -"(hash-iterate-next ht_139 i_112))" -" fold-var_206)))" -" fold-var_260)))))" -" for-loop_138)" +"(for-loop_264" +" fold-var_261" +"(hash-iterate-next ht_139 i_167))" +" fold-var_261)))" +" fold-var_204)))))" +" for-loop_264)" " null" "(hash-iterate-first ht_139)))))" " #f)))))))))))))" @@ -42908,30 +43150,30 @@ static const char *startup_source = "(requireds->phase-ht)" "(lambda(requireds_1)" "(begin" -"(let-values(((lst_295) requireds_1))" +"(let-values(((lst_296) requireds_1))" "(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)))" "((letrec-values(((for-loop_265)" -"(lambda(ht_140 lst_296)" +"(lambda(ht_140 lst_297)" "(begin" " 'for-loop" -"(if(pair? lst_296)" -"(let-values(((r_42)(unsafe-car lst_296))((rest_164)(unsafe-cdr lst_296)))" +"(if(pair? lst_297)" +"(let-values(((r_43)(unsafe-car lst_297))((rest_164)(unsafe-cdr lst_297)))" "(let-values(((ht_141)" "(let-values(((ht_142) ht_140))" "(let-values(((ht_143)" "(let-values()" "(hash-update" " ht_142" -"(required-phase r_42)" -"(lambda(l_73)(cons(required-id r_42) l_73))" +"(required-phase r_43)" +"(lambda(l_73)(cons(required-id r_43) l_73))" " null))))" "(values ht_143)))))" "(if(not #f)(for-loop_265 ht_141 rest_164) ht_141)))" " ht_140)))))" " for-loop_265)" "(hasheqv)" -" lst_295))))))" +" lst_296))))))" "(define-values" "(1/syntax-local-module-exports)" "(lambda(mod-path_9)" @@ -42941,9 +43183,9 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_284)(1/module-path? mod-path_9)))" -"(if or-part_284" -" or-part_284" +"(if(let-values(((or-part_290)(1/module-path? mod-path_9)))" +"(if or-part_290" +" or-part_290" "(if(syntax?$1 mod-path_9)(1/module-path?(syntax->datum$1 mod-path_9)) #f)))" "(void)" "(let-values()" @@ -42957,8 +43199,8 @@ static const char *startup_source = " mod-path_9)))" "(values))))" "(let-values(((ctx_64)" -"(let-values(((temp151_1) 'syntax-local-module-exports))" -"(get-current-expand-context17.1 #f #f temp151_1 #t))))" +"(let-values(((temp152_2) 'syntax-local-module-exports))" +"(get-current-expand-context17.1 #f #f temp152_2 #t))))" "(let-values(((ns_75)(expand-context-namespace ctx_64)))" "(let-values(((mod-name_18)" "(1/module-path-index-resolve" @@ -42978,20 +43220,20 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_144)))" "((letrec-values(((for-loop_266)" -"(lambda(fold-var_263 i_166)" +"(lambda(fold-var_264 i_168)" "(begin" " 'for-loop" -"(if i_166" -"(let-values(((phase_130 syms_21)" -"(hash-iterate-key+value ht_144 i_166)))" -"(let-values(((fold-var_264)" -"(let-values(((fold-var_265) fold-var_263))" -"(let-values(((fold-var_266)" +"(if i_168" +"(let-values(((phase_128 syms_21)" +"(hash-iterate-key+value ht_144 i_168)))" +"(let-values(((fold-var_265)" +"(let-values(((fold-var_266) fold-var_264))" +"(let-values(((fold-var_267)" "(let-values()" "(cons" "(let-values()" "(cons" -" phase_130" +" phase_128" "(reverse$1" "(let-values(((ht_145)" " syms_21))" @@ -43003,45 +43245,45 @@ static const char *startup_source = "(check-in-hash-keys" " ht_145)))" "((letrec-values(((for-loop_267)" -"(lambda(fold-var_267" -" i_167)" +"(lambda(fold-var_268" +" i_169)" "(begin" " 'for-loop" -"(if i_167" -"(let-values(((sym_69)" +"(if i_169" +"(let-values(((sym_70)" "(hash-iterate-key" " ht_145" -" i_167)))" -"(let-values(((fold-var_268)" +" i_169)))" "(let-values(((fold-var_269)" -" fold-var_267))" "(let-values(((fold-var_270)" +" fold-var_268))" +"(let-values(((fold-var_271)" "(let-values()" "(cons" "(let-values()" -" sym_69)" -" fold-var_269))))" +" sym_70)" +" fold-var_270))))" "(values" -" fold-var_270)))))" +" fold-var_271)))))" "(if(not" " #f)" "(for-loop_267" -" fold-var_268" +" fold-var_269" "(hash-iterate-next" " ht_145" -" i_167))" -" fold-var_268)))" -" fold-var_267)))))" +" i_169))" +" fold-var_269)))" +" fold-var_268)))))" " for-loop_267)" " null" "(hash-iterate-first" " ht_145)))))))" -" fold-var_265))))" -"(values fold-var_266)))))" +" fold-var_266))))" +"(values fold-var_267)))))" "(if(not #f)" -"(for-loop_266 fold-var_264(hash-iterate-next ht_144 i_166))" -" fold-var_264)))" -" fold-var_263)))))" +"(for-loop_266 fold-var_265(hash-iterate-next ht_144 i_168))" +" fold-var_265)))" +" fold-var_264)))))" " for-loop_266)" " null" "(hash-iterate-first ht_144))))))))))))))))" @@ -43053,8 +43295,8 @@ static const char *startup_source = "(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(((who154_0) 'syntax-local-submodules))" +"(get-current-expand-context17.1 #f #f who154_0 #t))))" "(let-values(((submods_3)(expand-context-declared-submodule-names ctx_65)))" "(reverse$1" "(let-values(((ht_146) submods_3))" @@ -43063,26 +43305,26 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_146)))" "((letrec-values(((for-loop_268)" -"(lambda(fold-var_271 i_168)" +"(lambda(fold-var_272 i_170)" "(begin" " 'for-loop" -"(if i_168" -"(let-values(((name_61 kind_7)(hash-iterate-key+value ht_146 i_168)))" -"(let-values(((fold-var_272)" -"(let-values(((fold-var_273) fold-var_271))" -"(if(eq? kind_7 'module)" -"(let-values(((fold-var_274) fold-var_273))" -"(let-values(((fold-var_275)" +"(if i_170" +"(let-values(((name_62 kind_8)(hash-iterate-key+value ht_146 i_170)))" +"(let-values(((fold-var_273)" +"(let-values(((fold-var_274) fold-var_272))" +"(if(eq? kind_8 'module)" +"(let-values(((fold-var_275) fold-var_274))" +"(let-values(((fold-var_276)" "(let-values()" "(cons" -"(let-values() name_61)" +"(let-values() name_62)" +" fold-var_275))))" +"(values fold-var_276)))" " fold-var_274))))" -"(values fold-var_275)))" -" fold-var_273))))" "(if(not #f)" -"(for-loop_268 fold-var_272(hash-iterate-next ht_146 i_168))" -" fold-var_272)))" -" fold-var_271)))))" +"(for-loop_268 fold-var_273(hash-iterate-next ht_146 i_170))" +" fold-var_273)))" +" fold-var_272)))))" " for-loop_268)" " null" "(hash-iterate-first ht_146))))))))))))" @@ -43092,39 +43334,39 @@ static const char *startup_source = "(lambda(id59_0 only-generated?57_0 only-generated?58_0)" "(begin" " 'syntax-local-get-shadower60" -"(let-values(((id_34) id59_0))" +"(let-values(((id_90) id59_0))" "(let-values()" "(let-values()" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? id_34)" +"(if(identifier? id_90)" "(void)" "(let-values()" "(raise-argument-error" " 'syntax-local-get-shadower" " \"identifier?\"" -" id_34)))" +" id_90)))" "(values))))" -"(let-values(((ctx_30)" -"(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_34(expand-context-scopes ctx_30))))" -"(if(syntax-clean? id_34) new-id_0(syntax-taint$1 new-id_0))))))))))))))" +"(let-values(((ctx_66)" +"(let-values(((who156_0) 'syntax-local-get-shadower))" +"(get-current-expand-context17.1 #f #f who156_0 #t))))" +"(let-values(((new-id_0)(add-scopes id_90(expand-context-scopes ctx_66))))" +"(if(syntax-clean? id_90) new-id_0(syntax-taint$1 new-id_0))))))))))))))" "(case-lambda" -"((id_87)(begin 'syntax-local-get-shadower(syntax-local-get-shadower60_0 id_87 #f #f)))" -"((id_36 only-generated?57_1)(syntax-local-get-shadower60_0 id_36 only-generated?57_1 #t)))))" +"((id_38)(begin 'syntax-local-get-shadower(syntax-local-get-shadower60_0 id_38 #f #f)))" +"((id_39 only-generated?57_1)(syntax-local-get-shadower60_0 id_39 only-generated?57_1 #t)))))" "(define-values" "(syntax-source-accessor)" "(lambda(who_0 srcloc-accessor_0)" "(begin" -"(lambda(s_187)" +"(lambda(s_190)" "(let-values((()" "(begin" -" (if (syntax?$1 s_187) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_187)))" +" (if (syntax?$1 s_190) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_190)))" "(values))))" -"(let-values(((srcloc_8)(syntax-srcloc s_187)))(if srcloc_8(srcloc-accessor_0 srcloc_8) #f)))))))" +"(let-values(((srcloc_8)(syntax-srcloc s_190)))(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))" @@ -43140,8 +43382,8 @@ static const char *startup_source = "(srcloc-vector?)" "(lambda(v_70)" "(begin" -"(if(let-values(((or-part_285)(not(vector-ref v_70 1))))" -"(if or-part_285 or-part_285(exact-positive-integer?(vector-ref v_70 1))))" +"(if(let-values(((or-part_291)(not(vector-ref v_70 1))))" +"(if or-part_291 or-part_291(exact-positive-integer?(vector-ref v_70 1))))" "(if(let-values(((or-part_27)(not(vector-ref v_70 2))))" "(if or-part_27 or-part_27(exact-nonnegative-integer?(vector-ref v_70 2))))" "(if(let-values(((or-part_10)(not(vector-ref v_70 3))))" @@ -43157,25 +43399,25 @@ static const char *startup_source = "(begin" "(if(srcloc? v_198)" "(let-values()" -"(let-values(((the-struct_68) empty-syntax))" -"(if(syntax?$1 the-struct_68)" +"(let-values(((the-struct_67) empty-syntax))" +"(if(syntax?$1 the-struct_67)" "(let-values(((srcloc1_2) v_198))" "(syntax1.1" -"(syntax-content the-struct_68)" -"(syntax-scopes the-struct_68)" -"(syntax-shifted-multi-scopes the-struct_68)" -"(syntax-scope-propagations+tamper the-struct_68)" -"(syntax-mpi-shifts the-struct_68)" +"(syntax-content the-struct_67)" +"(syntax-scopes the-struct_67)" +"(syntax-shifted-multi-scopes the-struct_67)" +"(syntax-scope-propagations+tamper the-struct_67)" +"(syntax-mpi-shifts the-struct_67)" " srcloc1_2" -"(syntax-props the-struct_68)" -"(syntax-inspector the-struct_68)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_68))))" +"(syntax-props the-struct_67)" +"(syntax-inspector the-struct_67)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_67))))" "(if(pair? v_198)" "(let-values()(to-srcloc-stx(list->vector v_198)))" "(if(vector? v_198)" "(let-values()" -"(let-values(((the-struct_69) empty-syntax))" -"(if(syntax?$1 the-struct_69)" +"(let-values(((the-struct_68) empty-syntax))" +"(if(syntax?$1 the-struct_68)" "(let-values(((srcloc2_1)" "(srcloc" "(vector-ref v_198 0)" @@ -43184,15 +43426,15 @@ static const char *startup_source = "(vector-ref v_198 3)" "(vector-ref v_198 4))))" "(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_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_69)" -"(syntax-inspector the-struct_69)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_69))))" +"(syntax-props the-struct_68)" +"(syntax-inspector the-struct_68)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_68))))" "(let-values() v_198)))))))" "(define-values" "(1/syntax-e)" @@ -43206,14 +43448,14 @@ static const char *startup_source = "(syntax-e$1 s_0)))))))" "(define-values" "(1/syntax->datum)" -"(lambda(s_187)" +"(lambda(s_190)" "(begin" " 'syntax->datum" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_187) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_187)))" -"(syntax->datum$1 s_187)))))))" +" (if (syntax?$1 s_190) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_190)))" +"(syntax->datum$1 s_190)))))))" "(define-values(maybe-syntax->datum)(lambda(s_72)(begin(if(syntax?$1 s_72)(syntax->datum$1 s_72) s_72))))" "(define-values" "(1/datum->syntax)" @@ -43222,7 +43464,7 @@ static const char *startup_source = "(begin" " 'datum->syntax9" "(let-values(((stx-c_4) stx-c7_0))" -"(let-values(((s_177) s8_0))" +"(let-values(((s_180) 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()" @@ -43230,15 +43472,15 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(let-values(((or-part_286)(not stx-c_4)))" -"(if or-part_286 or-part_286(syntax?$1 stx-c_4)))" +"(if(let-values(((or-part_292)(not stx-c_4)))" +"(if or-part_292 or-part_292(syntax?$1 stx-c_4)))" "(void)" " (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-c_4)))" -"(if(let-values(((or-part_287)(not stx-l_2)))" -"(if or-part_287" -" or-part_287" -"(let-values(((or-part_288)(syntax?$1 stx-l_2)))" -"(if or-part_288 or-part_288(encoded-srcloc? stx-l_2)))))" +"(if(let-values(((or-part_293)(not stx-l_2)))" +"(if or-part_293" +" or-part_293" +"(let-values(((or-part_294)(syntax?$1 stx-l_2)))" +"(if or-part_294 or-part_294(encoded-srcloc? stx-l_2)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -43256,16 +43498,16 @@ static const char *startup_source = " \" (or/c exact-positive-integer? #f)\\n\"" " \" (or/c exact-nonnegative-integer? #f)))\")" " stx-l_2)))" -"(if(let-values(((or-part_289)(not stx-p_1)))" -"(if or-part_289 or-part_289(syntax?$1 stx-p_1)))" +"(if(let-values(((or-part_295)(not stx-p_1)))" +"(if or-part_295 or-part_295(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_177(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))" +"(datum->syntax$1 stx-c_4 s_180(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))" "(case-lambda" -"((stx-c_5 s_304)(begin 'datum->syntax(datum->syntax9_0 stx-c_5 s_304 #f #f #f #f #f #f)))" -"((stx-c_6 s_450 stx-l_3 stx-p_2 ignored3_1)(datum->syntax9_0 stx-c_6 s_450 stx-l_3 stx-p_2 ignored3_1 #t #t #t))" +"((stx-c_5 s_309)(begin 'datum->syntax(datum->syntax9_0 stx-c_5 s_309 #f #f #f #f #f #f)))" +"((stx-c_6 s_451 stx-l_3 stx-p_2 ignored3_1)(datum->syntax9_0 stx-c_6 s_451 stx-l_3 stx-p_2 ignored3_1 #t #t #t))" "((stx-c_7 s_75 stx-l_4 stx-p2_1)(datum->syntax9_0 stx-c_7 s_75 stx-l_4 stx-p2_1 #f #t #t #f))" -"((stx-c_8 s_451 stx-l1_1)(datum->syntax9_0 stx-c_8 s_451 stx-l1_1 #f #f #t #f #f)))))" +"((stx-c_8 s_452 stx-l1_1)(datum->syntax9_0 stx-c_8 s_452 stx-l1_1 #f #f #t #f #f)))))" "(define-values" "(1/syntax->list)" "(lambda(s_5)" @@ -43293,8 +43535,8 @@ static const char *startup_source = "(begin" " 'bound-identifier=?15" "(let-values(((a_53) a13_0))" -"(let-values(((b_82) b14_0))" -"(let-values(((phase_131)(if phase12_1 phase11_0(1/syntax-local-phase-level))))" +"(let-values(((b_83) b14_0))" +"(let-values(((phase_129)(if phase12_1 phase11_0(1/syntax-local-phase-level))))" "(let-values()" "(let-values()" "(let-values()" @@ -43302,16 +43544,16 @@ static const char *startup_source = "(if(identifier? a_53)" "(void)" " (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" a_53)))" -"(if(identifier? b_82)" +"(if(identifier? b_83)" "(void)" -" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_82)))" -"(if(phase? phase_131)" +" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_83)))" +"(if(phase? phase_129)" "(void)" -"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_131)))" -"(bound-identifier=?$1 a_53 b_82 phase_131))))))))))))" +"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_129)))" +"(bound-identifier=?$1 a_53 b_83 phase_129))))))))))))" "(case-lambda" "((a_54 b_8)(begin 'bound-identifier=?(bound-identifier=?15_0 a_54 b_8 #f #f)))" -"((a_55 b_83 phase11_1)(bound-identifier=?15_0 a_55 b_83 phase11_1 #t)))))" +"((a_55 b_84 phase11_1)(bound-identifier=?15_0 a_55 b_84 phase11_1 #t)))))" "(define-values" "(1/free-identifier=?)" "(let-values(((free-identifier=?23_0)" @@ -43319,7 +43561,7 @@ static const char *startup_source = "(begin" " 'free-identifier=?23" "(let-values(((a_56) a21_0))" -"(let-values(((b_84) b22_0))" +"(let-values(((b_85) 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()" @@ -43329,23 +43571,23 @@ static const char *startup_source = "(if(identifier? a_56)" "(void)" " (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" a_56)))" -"(if(identifier? b_84)" +"(if(identifier? b_85)" "(void)" -" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" b_84)))" +" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" b_85)))" "(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_84 a-phase_1 b-phase_1)))))))))))))" +"(free-identifier=?$1 a_56 b_85 a-phase_1 b-phase_1)))))))))))))" "(case-lambda" -"((a_57 b_85)(begin 'free-identifier=?(free-identifier=?23_0 a_57 b_85 #f #f #f #f)))" -"((a_58 b_86 a-phase_2 b-phase18_1)(free-identifier=?23_0 a_58 b_86 a-phase_2 b-phase18_1 #t #t))" -"((a_59 b_87 a-phase17_1)(free-identifier=?23_0 a_59 b_87 a-phase17_1 #f #t #f)))))" +"((a_57 b_86)(begin 'free-identifier=?(free-identifier=?23_0 a_57 b_86 #f #f #f #f)))" +"((a_58 b_87 a-phase_2 b-phase18_1)(free-identifier=?23_0 a_58 b_87 a-phase_2 b-phase18_1 #t #t))" +"((a_59 b_88 a-phase17_1)(free-identifier=?23_0 a_59 b_88 a-phase17_1 #f #t #f)))))" "(define-values" "(1/free-transformer-identifier=?)" -"(lambda(a_60 b_88)" +"(lambda(a_60 b_89)" "(begin" " 'free-transformer-identifier=?" "(let-values()" @@ -43358,15 +43600,15 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(identifier? b_88)" +"(if(identifier? b_89)" "(void)" -" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_88)))" +" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_89)))" "(values))))" -"(let-values(((phase_132)(add1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_60 b_88 phase_132 phase_132)))))))))" +"(let-values(((phase_130)(add1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_60 b_89 phase_130 phase_130)))))))))" "(define-values" "(1/free-template-identifier=?)" -"(lambda(a_61 b_89)" +"(lambda(a_61 b_90)" "(begin" " 'free-template-identifier=?" "(let-values()" @@ -43379,15 +43621,15 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(identifier? b_89)" +"(if(identifier? b_90)" "(void)" -" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_89)))" +" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_90)))" "(values))))" -"(let-values(((phase_133)(sub1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_61 b_89 phase_133 phase_133)))))))))" +"(let-values(((phase_131)(sub1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_61 b_90 phase_131 phase_131)))))))))" "(define-values" "(1/free-label-identifier=?)" -"(lambda(a_62 b_90)" +"(lambda(a_62 b_91)" "(begin" " 'free-label-identifier=?" "(let-values()" @@ -43396,117 +43638,117 @@ static const char *startup_source = "(if(identifier? a_62)" "(void)" " (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" a_62)))" -"(if(identifier? b_90)" +"(if(identifier? b_91)" "(void)" -" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" b_90)))" -"(free-identifier=?$1 a_62 b_90 #f #f)))))))" +" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" b_91)))" +"(free-identifier=?$1 a_62 b_91 #f #f)))))))" "(define-values" "(1/identifier-binding)" "(let-values(((identifier-binding30_0)" "(lambda(id29_1 phase25_0 top-level-symbol?26_0 phase27_0 top-level-symbol?28_0)" "(begin" " 'identifier-binding30" -"(let-values(((id_88) id29_1))" +"(let-values(((id_91) id29_1))" "(let-values(((phase_36)(if phase27_0 phase25_0(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_88)" +"(if(identifier? id_91)" "(void)" -" (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_88)))" +" (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_91)))" "(if(phase? phase_36)" "(void)" "(let-values()(raise-argument-error 'identifier-binding phase?-string phase_36)))" -"(identifier-binding$1 id_88 phase_36 top-level-symbol?_1))))))))))))" +"(identifier-binding$1 id_91 phase_36 top-level-symbol?_1))))))))))))" "(case-lambda" -"((id_89)(begin 'identifier-binding(identifier-binding30_0 id_89 #f #f #f #f)))" -"((id_90 phase_134 top-level-symbol?26_1)(identifier-binding30_0 id_90 phase_134 top-level-symbol?26_1 #t #t))" -"((id_91 phase25_1)(identifier-binding30_0 id_91 phase25_1 #f #t #f)))))" +"((id_92)(begin 'identifier-binding(identifier-binding30_0 id_92 #f #f #f #f)))" +"((id_93 phase_132 top-level-symbol?26_1)(identifier-binding30_0 id_93 phase_132 top-level-symbol?26_1 #t #t))" +"((id_94 phase25_1)(identifier-binding30_0 id_94 phase25_1 #f #t #f)))))" "(define-values" "(1/identifier-transformer-binding)" "(let-values(((identifier-transformer-binding35_0)" "(lambda(id34_1 phase32_2 phase33_1)" "(begin" " 'identifier-transformer-binding35" -"(let-values(((id_92) id34_1))" -"(let-values(((phase_135)(if phase33_1 phase32_2(1/syntax-local-phase-level))))" +"(let-values(((id_95) id34_1))" +"(let-values(((phase_133)(if phase33_1 phase32_2(1/syntax-local-phase-level))))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_92)" -"(void)" -"(let-values()" -" (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_92)))" -"(identifier-binding$1 id_92(if phase_135(add1 phase_135) #f))))))))))))" -"(case-lambda" -"((id_93)(begin 'identifier-transformer-binding(identifier-transformer-binding35_0 id_93 #f #f)))" -"((id_94 phase32_3)(identifier-transformer-binding35_0 id_94 phase32_3 #t)))))" -"(define-values" -"(1/identifier-template-binding)" -"(lambda(id_54)" -"(begin" -" 'identifier-template-binding" -"(let-values()" -"(let-values()" -"(begin" -"(if(identifier? id_54)" -"(void)" -" (let-values () (raise-argument-error 'identifier-template-binding \"identifier?\" id_54)))" -"(identifier-binding$1 id_54(sub1(1/syntax-local-phase-level)))))))))" -"(define-values" -"(1/identifier-label-binding)" -"(lambda(id_95)" -"(begin" -" 'identifier-label-binding" -"(let-values()" -"(let-values()" -"(begin" "(if(identifier? id_95)" "(void)" -" (let-values () (raise-argument-error 'identifier-label-binding \"identifier?\" id_95)))" -"(identifier-binding$1 id_95 #f)))))))" +"(let-values()" +" (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_95)))" +"(identifier-binding$1 id_95(if phase_133(add1 phase_133) #f))))))))))))" +"(case-lambda" +"((id_79)(begin 'identifier-transformer-binding(identifier-transformer-binding35_0 id_79 #f #f)))" +"((id_96 phase32_3)(identifier-transformer-binding35_0 id_96 phase32_3 #t)))))" +"(define-values" +"(1/identifier-template-binding)" +"(lambda(id_55)" +"(begin" +" 'identifier-template-binding" +"(let-values()" +"(let-values()" +"(begin" +"(if(identifier? id_55)" +"(void)" +" (let-values () (raise-argument-error 'identifier-template-binding \"identifier?\" id_55)))" +"(identifier-binding$1 id_55(sub1(1/syntax-local-phase-level)))))))))" +"(define-values" +"(1/identifier-label-binding)" +"(lambda(id_97)" +"(begin" +" 'identifier-label-binding" +"(let-values()" +"(let-values()" +"(begin" +"(if(identifier? id_97)" +"(void)" +" (let-values () (raise-argument-error 'identifier-label-binding \"identifier?\" id_97)))" +"(identifier-binding$1 id_97 #f)))))))" "(define-values" "(1/identifier-binding-symbol)" "(let-values(((identifier-binding-symbol40_0)" "(lambda(id39_0 phase37_2 phase38_0)" "(begin" " 'identifier-binding-symbol40" -"(let-values(((id_96) id39_0))" -"(let-values(((phase_136)(if phase38_0 phase37_2(1/syntax-local-phase-level))))" -"(let-values()" -"(let-values()" -"(let-values()" -"(begin" -"(if(identifier? id_96)" -"(void)" -" (let-values () (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_96)))" -"(if(phase? phase_136)" -"(void)" -"(let-values()" -"(raise-argument-error 'identifier-binding-symbol phase?-string phase_136)))" -"(identifier-binding-symbol$1 id_96 phase_136)))))))))))" -"(case-lambda" -"((id_97)(begin 'identifier-binding-symbol(identifier-binding-symbol40_0 id_97 #f #f)))" -"((id_79 phase37_3)(identifier-binding-symbol40_0 id_79 phase37_3 #t)))))" -"(define-values" -"(1/identifier-prune-lexical-context)" -"(let-values(((identifier-prune-lexical-context45_0)" -"(lambda(id44_0 syms42_0 syms43_0)" -"(begin" -" 'identifier-prune-lexical-context45" -"(let-values(((id_98) id44_0))" -"(let-values(((syms_22)(if syms43_0 syms42_0 null)))" +"(let-values(((id_98) id39_0))" +"(let-values(((phase_134)(if phase38_0 phase37_2(1/syntax-local-phase-level))))" "(let-values()" "(let-values()" "(let-values()" "(begin" "(if(identifier? id_98)" "(void)" +" (let-values () (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_98)))" +"(if(phase? phase_134)" +"(void)" "(let-values()" -" (raise-argument-error 'identifier-prune-lexical-context \"identifier?\" id_98)))" +"(raise-argument-error 'identifier-binding-symbol phase?-string phase_134)))" +"(identifier-binding-symbol$1 id_98 phase_134)))))))))))" +"(case-lambda" +"((id_99)(begin 'identifier-binding-symbol(identifier-binding-symbol40_0 id_99 #f #f)))" +"((id_100 phase37_3)(identifier-binding-symbol40_0 id_100 phase37_3 #t)))))" +"(define-values" +"(1/identifier-prune-lexical-context)" +"(let-values(((identifier-prune-lexical-context45_0)" +"(lambda(id44_0 syms42_0 syms43_0)" +"(begin" +" 'identifier-prune-lexical-context45" +"(let-values(((id_101) id44_0))" +"(let-values(((syms_22)(if syms43_0 syms42_0 null)))" +"(let-values()" +"(let-values()" +"(let-values()" +"(begin" +"(if(identifier? id_101)" +"(void)" +"(let-values()" +" (raise-argument-error 'identifier-prune-lexical-context \"identifier?\" id_101)))" "(if(if(list? syms_22)(andmap2 symbol? syms_22) #f)" "(void)" "(let-values()" @@ -43514,50 +43756,52 @@ static const char *startup_source = " 'identifier-prune-lexical-context" " \"(listof symbol?)\"" " syms_22)))" -" id_98))))))))))" +" id_101))))))))))" "(case-lambda" -"((id_99)(begin 'identifier-prune-lexical-context(identifier-prune-lexical-context45_0 id_99 #f #f)))" -"((id_100 syms42_1)(identifier-prune-lexical-context45_0 id_100 syms42_1 #t)))))" +"((id_102)(begin 'identifier-prune-lexical-context(identifier-prune-lexical-context45_0 id_102 #f #f)))" +"((id_103 syms42_1)(identifier-prune-lexical-context45_0 id_103 syms42_1 #t)))))" "(define-values" "(1/syntax-debug-info)" "(let-values(((syntax-debug-info52_0)" "(lambda(s51_0 phase47_2 all-bindings?48_0 phase49_1 all-bindings?50_0)" "(begin" " 'syntax-debug-info52" -"(let-values(((s_452) s51_0))" -"(let-values(((phase_137)(if phase49_1 phase47_2(1/syntax-local-phase-level))))" +"(let-values(((s_453) s51_0))" +"(let-values(((phase_135)(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_452)" +"(if(syntax?$1 s_453)" "(void)" -" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_452)))" -"(if(phase? phase_137)" +" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_453)))" +"(if(phase? phase_135)" "(void)" -"(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_137)))" -"(syntax-debug-info$1 s_452 phase_137 all-bindings?_1))))))))))))" +"(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_135)))" +"(syntax-debug-info$1 s_453 phase_135 all-bindings?_1))))))))))))" "(case-lambda" -"((s_314)(begin 'syntax-debug-info(syntax-debug-info52_0 s_314 #f #f #f #f)))" -"((s_91 phase_101 all-bindings?48_1)(syntax-debug-info52_0 s_91 phase_101 all-bindings?48_1 #t #t))" +"((s_318)(begin 'syntax-debug-info(syntax-debug-info52_0 s_318 #f #f #f #f)))" +"((s_454 phase_101 all-bindings?48_1)(syntax-debug-info52_0 s_454 phase_101 all-bindings?48_1 #t #t))" "((s_47 phase47_3)(syntax-debug-info52_0 s_47 phase47_3 #f #t #f)))))" "(define-values" "(1/syntax-shift-phase-level)" -"(lambda(s_93 phase_23)" +"(lambda(s_158 phase_23)" "(begin" " 'syntax-shift-phase-level" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_93) (void) (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_93)))" +"(if(syntax?$1 s_158)" +"(void)" +" (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_158)))" "(if(phase? phase_23)" "(void)" "(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_23)))" -"(syntax-shift-phase-level$1 s_93 phase_23)))))))" +"(syntax-shift-phase-level$1 s_158 phase_23)))))))" "(define-values" "(1/syntax-track-origin)" -"(lambda(new-stx_8 old-stx_4 id_101)" +"(lambda(new-stx_8 old-stx_4 id_104)" "(begin" " 'syntax-track-origin" "(let-values()" @@ -43576,19 +43820,19 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(identifier? id_101)" +"(if(identifier? id_104)" "(void)" -" (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_101)))" +" (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_104)))" "(values))))" -"(let-values(((s_32)(syntax-track-origin$1 new-stx_8 old-stx_4 id_101)))" -"(let-values(((ctx_66)" +"(let-values(((s_32)(syntax-track-origin$1 new-stx_8 old-stx_4 id_104)))" +"(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_44)(expand-context-observer ctx_66)))" -"(if obs_44" -"(let-values()(let-values()(call-expand-observe obs_44 'track-origin new-stx_8 s_32)))" +"(let-values(((obs_43)(expand-context-observer ctx_67)))" +"(if obs_43" +"(let-values()(let-values()(call-expand-observe obs_43 'track-origin new-stx_8 s_32)))" "(void))))" "(void))" " s_32)))))))))))" @@ -43684,17 +43928,17 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error who_23 \"namespace?\" dest-namespace_2)))" "(values))))" -"(let-values(((phase_131)(namespace-phase src-namespace_6)))" +"(let-values(((phase_129)(namespace-phase src-namespace_6)))" "(let-values((()" "(begin" -"(if(eqv? phase_131(namespace-phase dest-namespace_2))" +"(if(eqv? phase_129(namespace-phase dest-namespace_2))" "(void)" "(let-values()" "(raise-arguments-error" " who_23" " \"source and destination namespace phases do not match\"" " \"source phase\"" -" phase_131" +" phase_129" " \"destination phase\"" "(namespace-phase dest-namespace_2))))" "(values))))" @@ -43702,9 +43946,9 @@ static const char *startup_source = "(let-values(((missing_0)(gensym 'missing)))" "(let-values((()" "(begin" -"((letrec-values(((loop_98)" +"((letrec-values(((loop_101)" "(lambda(mpi_48" -" phase_138" +" phase_136" " attach-instances?_1" " attach-phase_0)" "(begin" @@ -43723,7 +43967,7 @@ static const char *startup_source = " mpi_48)))))" "(let-values(((attach-this-instance?_0)" "(if attach-instances?_1" -"(eqv? phase_138 attach-phase_0)" +"(eqv? phase_136 attach-phase_0)" " #f)))" "(let-values(((m-ns_12)" "(hash-ref" @@ -43731,12 +43975,12 @@ static const char *startup_source = " todo_0" " mod-name_19" " '#hasheqv())" -" phase_138" +" phase_136" " missing_0)))" -"(if(let-values(((or-part_251)" +"(if(let-values(((or-part_253)" "(eq? missing_0 m-ns_12)))" -"(if or-part_251" -" or-part_251" +"(if or-part_253" +" or-part_253" "(if attach-this-instance?_0" "(not m-ns_12)" " #f)))" @@ -43757,13 +44001,13 @@ static const char *startup_source = "(if(if(module-cross-phase-persistent?" " m_20)" "(if(not" -"(label-phase? phase_138))" +"(label-phase? phase_136))" "(not" -"(zero-phase? phase_138))" +"(zero-phase? phase_136))" " #f)" " #f)" "(let-values()" -"(loop_98" +"(loop_101" " mpi_48" " 0" " attach-instances?_1" @@ -43804,7 +44048,7 @@ static const char *startup_source = "((mod-name33_0)" " mod-name_19)" "((phase34_1)" -" phase_138))" +" phase_136))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43833,7 +44077,7 @@ static const char *startup_source = "((mod-name36_0)" " mod-name_19)" "((phase37_4)" -" phase_138))" +" phase_136))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43872,14 +44116,14 @@ static const char *startup_source = "(let-values()" "(begin" "(if(if(label-phase?" -" phase_138)" +" phase_136)" "(not" "(let-values(((src-namespace38_0)" " src-namespace_6)" "((mod-name39_0)" " mod-name_19)" -"((phase40_0)" -" phase_138))" +"((phase40_1)" +" phase_136))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43889,7 +44133,7 @@ static const char *startup_source = " #f" " src-namespace38_0" " mod-name39_0" -" phase40_0)))" +" phase40_1)))" " #f)" "(let-values()" "(with-continuation-mark" @@ -43906,7 +44150,7 @@ static const char *startup_source = "((mpi42_0)" " mpi_48)" "((phase43_1)" -" phase_138))" +" phase_136))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -43932,7 +44176,7 @@ static const char *startup_source = "(lambda(ht_147)" "(hash-set" " ht_147" -" phase_138" +" phase_136" " m-ns_13))" " '#hasheqv())" "(if already?_0" @@ -43950,19 +44194,19 @@ static const char *startup_source = "(check-list" " lst_21)))" "((letrec-values(((for-loop_17)" -"(lambda(lst_280)" +"(lambda(lst_281)" "(begin" " 'for-loop" "(if(pair?" -" lst_280)" +" lst_281)" "(let-values(((phase+reqs_1)" "(unsafe-car" -" lst_280))" +" lst_281))" "((rest_165)" "(unsafe-cdr" -" lst_280)))" +" lst_281)))" "(let-values((()" -"(let-values(((lst_177)" +"(let-values(((lst_178)" "(cdr" " phase+reqs_1)))" "(begin" @@ -43971,33 +44215,33 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_177)))" +" lst_178)))" "((letrec-values(((for-loop_28)" -"(lambda(lst_279)" +"(lambda(lst_280)" "(begin" " 'for-loop" "(if(pair?" -" lst_279)" +" lst_280)" "(let-values(((req_5)" "(unsafe-car" -" lst_279))" +" lst_280))" "((rest_151)" "(unsafe-cdr" -" lst_279)))" +" lst_280)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(loop_98" +"(loop_101" "(module-path-index-shift" " req_5" "(module-self" " m_20)" " mpi_48)" "(phase+" -" phase_138" +" phase_136" "(car" " phase+reqs_1))" " attach-instances?_1" @@ -44011,7 +44255,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_28)" -" lst_177)))))" +" lst_178)))))" "(if(not" " #f)" "(for-loop_17" @@ -44021,7 +44265,7 @@ static const char *startup_source = " for-loop_17)" " lst_21)))" "(void)" -"(let-values(((lst_297)" +"(let-values(((lst_298)" "(module-submodule-names" " m_20)))" "(begin" @@ -44030,26 +44274,26 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_297)))" +" lst_298)))" "((letrec-values(((for-loop_269)" -"(lambda(lst_298)" +"(lambda(lst_299)" "(begin" " 'for-loop" "(if(pair?" -" lst_298)" +" lst_299)" "(let-values(((submod-name_0)" "(unsafe-car" -" lst_298))" +" lst_299))" "((rest_166)" "(unsafe-cdr" -" lst_298)))" +" lst_299)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(loop_98" +"(loop_101" "(1/module-path-index-join" "(list" " 'submod" @@ -44068,12 +44312,12 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_269)" -" lst_297)))" +" lst_298)))" "(void)" "(if(module-supermodule-name" " m_20)" "(let-values()" -"(loop_98" +"(loop_101" "(1/module-path-index-join" " '(submod" " \"..\")" @@ -44083,15 +44327,15 @@ static const char *startup_source = " attach-phase_0))" "(void))))))))))))))" "(void)))))))))" -" loop_98)" +" loop_101)" "(1/module-path-index-join" "(if(1/resolved-module-path? mod-path_15)" "(resolved-module-path->module-path mod-path_15)" " mod-path_15)" " #f)" -" phase_131" +" phase_129" " attach-instances?_0" -" phase_131)" +" phase_129)" "(values))))" "(let-values((()" "(begin" @@ -44100,15 +44344,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_148)))" -"((letrec-values(((for-loop_111)" -"(lambda(i_169)" +"((letrec-values(((for-loop_112)" +"(lambda(i_171)" "(begin" " 'for-loop" -"(if i_169" +"(if i_171" "(let-values(((mod-name_20 phases_0)" "(hash-iterate-key+value" " ht_148" -" i_169)))" +" i_171)))" "(let-values((()" "(let-values(((ht_149)" " phases_0))" @@ -44120,15 +44364,15 @@ static const char *startup_source = "(check-in-hash" " ht_149)))" "((letrec-values(((for-loop_270)" -"(lambda(i_170)" +"(lambda(i_172)" "(begin" " 'for-loop" -"(if i_170" -"(let-values(((phase_139" +"(if i_172" +"(let-values(((phase_137" " m-ns_15)" "(hash-iterate-key+value" " ht_149" -" i_170)))" +" i_172)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -44170,14 +44414,14 @@ static const char *startup_source = "(namespace-record-module-instance-attached!" " src-namespace_6" " mod-name_20" -" phase_139)" +" phase_137)" "(let-values(((or-part_72)" "(let-values(((dest-namespace47_0)" " dest-namespace_2)" "((mod-name48_0)" " mod-name_20)" "((phase49_2)" -" phase_139))" +" phase_137))" "(namespace->module-namespace82.1" " #f" " #f" @@ -44193,7 +44437,7 @@ static const char *startup_source = "(namespace-install-module-namespace!" " dest-namespace_2" " mod-name_20" -" phase_139" +" phase_137" " m_21" " m-ns_15)))))" "(void)))))" @@ -44204,18 +44448,18 @@ static const char *startup_source = "(for-loop_270" "(hash-iterate-next" " ht_149" -" i_170))" +" i_172))" "(values))))" "(values))))))" " for-loop_270)" "(hash-iterate-first" " ht_149))))))" "(if(not #f)" -"(for-loop_111" -"(hash-iterate-next ht_148 i_169))" +"(for-loop_112" +"(hash-iterate-next ht_148 i_171))" "(values))))" "(values))))))" -" for-loop_111)" +" for-loop_112)" "(hash-iterate-first ht_148))))" "(values))))" "(let-values()" @@ -44228,18 +44472,18 @@ static const char *startup_source = " dest-namespace_2)" "(let-values()" "(begin" -"(let-values(((ht_49) todo_0))" +"(let-values(((ht_150) todo_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_49)))" +"(let-values()(check-in-hash-keys ht_150)))" "((letrec-values(((for-loop_183)" -"(lambda(i_171)" +"(lambda(i_173)" "(begin" " 'for-loop" -"(if i_171" +"(if i_173" "(let-values(((mod-name_21)" -"(hash-iterate-key ht_49 i_171)))" +"(hash-iterate-key ht_150 i_173)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -44253,11 +44497,11 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_183" -"(hash-iterate-next ht_49 i_171))" +"(hash-iterate-next ht_150 i_173))" "(values))))" "(values))))))" " for-loop_183)" -"(hash-iterate-first ht_49))))" +"(hash-iterate-first ht_150))))" "(void))))))))))))))))))))))))" "(define-values" "(1/make-empty-namespace)" @@ -44303,26 +44547,26 @@ static const char *startup_source = "(let-values(((post-scope_1)(root-expand-context-post-expansion-scope root-ctx_5)))" "(let-values(((other-namespace-scopes_0)" "(reverse$1" -"(let-values(((ht_150)" +"(let-values(((ht_151)" "(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_150)))" -"((letrec-values(((for-loop_216)" -"(lambda(fold-var_276 i_172)" +"(let-values()(check-in-immutable-hash-keys ht_151)))" +"((letrec-values(((for-loop_215)" +"(lambda(fold-var_277 i_174)" "(begin" " 'for-loop" -"(if i_172" +"(if i_174" "(let-values(((sc_34)" "(unsafe-immutable-hash-iterate-key" -" ht_150" -" i_172)))" +" ht_151" +" i_174)))" "(let-values(((fold-var_222)" "(let-values(((fold-var_223)" -" fold-var_276))" +" fold-var_277))" "(if(equal?" " sc_34" " post-scope_1)" @@ -44338,16 +44582,16 @@ static const char *startup_source = "(values" " fold-var_67)))))))" "(if(not #f)" -"(for-loop_216" +"(for-loop_215" " fold-var_222" "(unsafe-immutable-hash-iterate-next" -" ht_150" -" i_172))" +" ht_151" +" i_174))" " fold-var_222)))" -" fold-var_276)))))" -" for-loop_216)" +" fold-var_277)))))" +" for-loop_215)" " null" -"(unsafe-immutable-hash-iterate-first ht_150)))))))" +"(unsafe-immutable-hash-iterate-first ht_151)))))))" "(let-values(((add-ns-scopes_0)" "(lambda(s_4)" "(begin" @@ -44365,9 +44609,9 @@ static const char *startup_source = "(if or-part_78" " or-part_78" "(current-code-inspector))))" -"((temp82_2) #t))" +"((temp82_1) #t))" "(syntax-transfer-shifts39.1" -" temp82_2" +" temp82_1" " #t" " temp79_0" " temp80_1" @@ -44393,7 +44637,7 @@ static const char *startup_source = " s_3))" "(let-values()(add-ns-scopes_0 s_3)))))))))))))))))))" "(case-lambda" -"((s_453)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_453 #f #f)))" +"((s_455)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_455 #f #f)))" "((s_75 ns1_4)(namespace-syntax-introduce4_0 s_75 ns1_4 #t)))))" "(define-values" "(namespace-datum-introduce)" @@ -44409,8 +44653,8 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(let-values(((or-part_290)(1/namespace? where_0)))" -"(if or-part_290 or-part_290(phase? where_0)))" +"(if(let-values(((or-part_296)(1/namespace? where_0)))" +"(if or-part_296 or-part_296(phase? where_0)))" "(void)" "(let-values()" "(raise-argument-error" @@ -44427,16 +44671,16 @@ static const char *startup_source = "((where6_1)(namespace-module-identifier8_0 where6_1 #t)))))" "(define-values" "(1/namespace-symbol->identifier)" -"(lambda(sym_70)" +"(lambda(sym_71)" "(begin" " 'namespace-symbol->identifier" "(let-values()" "(let-values()" "(begin" -"(if(symbol? sym_70)" +"(if(symbol? sym_71)" "(void)" -" (let-values () (raise-argument-error 'namespace-symbol->identifier \"symbol?\" sym_70)))" -"(1/namespace-syntax-introduce(1/datum->syntax #f sym_70))))))))" +" (let-values () (raise-argument-error 'namespace-symbol->identifier \"symbol?\" sym_71)))" +"(1/namespace-syntax-introduce(1/datum->syntax #f sym_71))))))))" "(define-values" "(do-namespace-require23.1)" "(lambda(copy-variable-as-constant?13_0" @@ -44476,8 +44720,8 @@ static const char *startup_source = "(add-scopes" " empty-syntax" "(root-expand-context-module-scopes(namespace-get-root-expand-ctx ns_76)))))" -"(if(let-values(((or-part_291)(1/module-path-index? req_6)))" -"(if or-part_291 or-part_291(1/module-path? req_6)))" +"(if(let-values(((or-part_297)(1/module-path-index? req_6)))" +"(if or-part_297 or-part_297(1/module-path? req_6)))" "(let-values()" "(let-values(((temp85_0)" "(if(1/module-path-index? req_6)" @@ -44530,10 +44774,10 @@ static const char *startup_source = "(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)" +"((temp101_1) #f)" "((ns102_0) ns_76)" "((temp103_0)(namespace-phase ns_76))" -"((temp104_2)" +"((temp104_1)" "(let-values(((temp107_1) #f))" "(make-requires+provides8.1 #f #f temp107_1)))" "((skip-variable-phase-level105_0) skip-variable-phase-level_2)" @@ -44559,10 +44803,10 @@ static const char *startup_source = " #t" " who106_0" " temp100_1" -" temp101_0" +" temp101_1" " ns102_0" " temp103_0" -" temp104_2))))))))))))))))))" +" temp104_1))))))))))))))))))" "(define-values" "(1/namespace-require)" "(let-values(((namespace-require29_0)" @@ -44574,7 +44818,7 @@ static const char *startup_source = "(let-values()" "(let-values()" "(let-values()" -"(let-values(((who109_1) 'namespace-require)((req110_0) req_7)((ns111_0) ns_77))" +"(let-values(((who109_0) 'namespace-require)((req110_0) req_7)((ns111_0) ns_77))" "(do-namespace-require23.1" " #f" " #f" @@ -44586,7 +44830,7 @@ static const char *startup_source = " #f" " #f" " #f" -" who109_1" +" who109_0" " req110_0" " ns111_0)))))))))))" "(case-lambda" @@ -44605,7 +44849,7 @@ static const char *startup_source = "(let-values()" "(let-values(((temp113_0) #f)" "((temp114_1) #t)" -"((who115_1) 'namespace-require/expansion-time)" +"((who115_0) 'namespace-require/expansion-time)" "((req116_0) req_10)" "((ns117_0) ns_78))" "(do-namespace-require23.1" @@ -44619,7 +44863,7 @@ static const char *startup_source = " #f" " temp114_1" " #t" -" who115_1" +" who115_0" " req116_0" " ns117_0)))))))))))" "(case-lambda" @@ -44636,13 +44880,13 @@ static const char *startup_source = "(let-values()" "(let-values()" "(let-values()" -"(let-values(((who119_0) 'namespace-require/constant)" +"(let-values(((who119_1) 'namespace-require/constant)" "((req120_0) req_13)" "((ns121_0) ns_79)" "((temp122_1) 0)" -"((temp123_0) #t))" +"((temp123_1) #t))" "(do-namespace-require23.1" -" temp123_0" +" temp123_1" " #t" " temp122_1" " #t" @@ -44652,7 +44896,7 @@ static const char *startup_source = " #f" " #f" " #f" -" who119_0" +" who119_1" " req120_0" " ns121_0)))))))))))" "(case-lambda" @@ -44672,12 +44916,12 @@ static const char *startup_source = "(let-values(((who125_0) 'namespace-require/copy)" "((req126_0) req_16)" "((ns127_0) ns_80)" -"((temp128_2) 0)" +"((temp128_3) 0)" "((temp129_1) 0))" "(do-namespace-require23.1" " #f" " #f" -" temp128_2" +" temp128_3" " #t" " #f" " #f" @@ -44697,7 +44941,7 @@ 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_71) sym52_0))" +"(let-values(((sym_72) 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))))" @@ -44705,12 +44949,12 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(symbol? sym_71)" +"(if(symbol? sym_72)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_71)))" -"(if(let-values(((or-part_259)(not failure-thunk_5)))" -"(if or-part_259" -" or-part_259" +" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_72)))" +"(if(let-values(((or-part_261)(not failure-thunk_5)))" +"(if or-part_261" +" or-part_261" "(if(procedure? failure-thunk_5)" "(procedure-arity-includes? failure-thunk_5 0)" " #f)))" @@ -44729,15 +44973,15 @@ static const char *startup_source = "(let-values(((var-ns_0 var-phase-level_0 var-sym_6)" "(if use-mapping?_0" "(let-values()" -"(let-values(((id_18)(1/datum->syntax #f sym_71)))" -"(let-values(((b_91)" +"(let-values(((id_18)(1/datum->syntax #f sym_72)))" +"(let-values(((b_92)" "(resolve+shift/extra-inspector" "(1/namespace-syntax-introduce id_18 ns_81)" "(namespace-phase ns_81)" " ns_81)))" "(let-values((()" "(begin" -"(if b_91" +"(if b_92" "(let-values()" "(namespace-visit-available-modules!" " ns_81))" @@ -44747,13 +44991,13 @@ static const char *startup_source = " primitive?_8" " extra-inspector_8" " protected?_9)" -"(if b_91" -"(let-values(((b131_0) b_91)" +"(if b_92" +"(let-values(((b131_0) b_92)" "((empty-env132_0)" " empty-env)" "((null133_0) null)" "((ns134_0) ns_81)" -"((temp135_1)" +"((temp135_0)" "(namespace-phase ns_81))" "((id136_0) id_18))" "(binding-lookup50.1" @@ -44765,7 +45009,7 @@ static const char *startup_source = " empty-env132_0" " null133_0" " ns134_0" -" temp135_1" +" temp135_0" " id136_0))" "(values variable #f #f #f))))" "(begin" @@ -44773,9 +45017,9 @@ static const char *startup_source = "(void)" "(let-values()" "(escape_0" -"(let-values(((or-part_292) failure-thunk_5))" -"(if or-part_292" -" or-part_292" +"(let-values(((or-part_298) failure-thunk_5))" +"(if or-part_298" +" or-part_298" "(lambda()" "(raise" "(make-exn:fail:syntax$1" @@ -44783,62 +45027,62 @@ static const char *startup_source = "(string-append" " \"namespace-variable-value: bound to syntax\\n\"" " \" in: ~s\")" -" sym_71)" +" sym_72)" "(current-continuation-marks)" " null))))))))" -"(if(module-binding? b_91)" +"(if(module-binding? b_92)" "(values" "(if(top-level-module-path-index?" -"(module-binding-module b_91))" +"(module-binding-module b_92))" " ns_81" "(module-instance-namespace" "(binding->module-instance" -" b_91" +" b_92" " ns_81" "(namespace-phase ns_81)" " id_18)))" -"(module-binding-phase b_91)" -"(module-binding-sym b_91))" +"(module-binding-phase b_92)" +"(module-binding-sym b_92))" "(values" " ns_81" "(namespace-phase ns_81)" -" sym_71))))))))" -"(let-values()(values ns_81(namespace-phase ns_81) sym_71)))))" -"(let-values(((val_73)" +" sym_72))))))))" +"(let-values()(values ns_81(namespace-phase ns_81) sym_72)))))" +"(let-values(((val_74)" "(namespace-get-variable" " var-ns_0" " var-phase-level_0" " var-sym_6" "(lambda()" "(escape_0" -"(let-values(((or-part_293) failure-thunk_5))" -"(if or-part_293" -" or-part_293" +"(let-values(((or-part_299) failure-thunk_5))" +"(if or-part_299" +" or-part_299" "(raise" "(exn:fail:contract:variable" "(format" "(string-append" " \"namespace-variable-value: given name is not defined\\n\"" " \" name: ~s\")" -" sym_71)" +" sym_72)" "(current-continuation-marks)" -" sym_71)))))))))" -"(lambda() val_73))))))))))))))))))" +" sym_72)))))))))" +"(lambda() val_74))))))))))))))))))" "(case-lambda" -"((sym_72)(begin 'namespace-variable-value(namespace-variable-value53_0 sym_72 #f #f #f #f #f #f)))" -"((sym_73 use-mapping?_1 failure-thunk_6 ns48_1)" -"(namespace-variable-value53_0 sym_73 use-mapping?_1 failure-thunk_6 ns48_1 #t #t #t))" -"((sym_74 use-mapping?_2 failure-thunk47_1)" -"(namespace-variable-value53_0 sym_74 use-mapping?_2 failure-thunk47_1 #f #t #t #f))" -"((sym_75 use-mapping?46_1)(namespace-variable-value53_0 sym_75 use-mapping?46_1 #f #f #t #f #f)))))" +"((sym_73)(begin 'namespace-variable-value(namespace-variable-value53_0 sym_73 #f #f #f #f #f #f)))" +"((sym_74 use-mapping?_1 failure-thunk_6 ns48_1)" +"(namespace-variable-value53_0 sym_74 use-mapping?_1 failure-thunk_6 ns48_1 #t #t #t))" +"((sym_75 use-mapping?_2 failure-thunk47_1)" +"(namespace-variable-value53_0 sym_75 use-mapping?_2 failure-thunk47_1 #f #t #t #f))" +"((sym_76 use-mapping?46_1)(namespace-variable-value53_0 sym_76 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_76) sym61_0))" -"(let-values(((val_74) val62_0))" +"(let-values(((sym_77) sym61_0))" +"(let-values(((val_75) 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)))" @@ -44846,10 +45090,10 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(symbol? sym_76)" +"(if(symbol? sym_77)" "(void)" "(let-values()" -" (raise-argument-error 'namespace-set-variable-value! \"symbol?\" sym_76)))" +" (raise-argument-error 'namespace-set-variable-value! \"symbol?\" sym_77)))" "(if(1/namespace? ns_82)" "(void)" "(let-values()" @@ -44857,8 +45101,8 @@ static const char *startup_source = "(namespace-set-variable!" " ns_82" "(namespace-phase ns_82)" -" sym_76" -" val_74" +" sym_77" +" val_75" " as-constant?_2)" "(if map?_0" "(let-values()" @@ -44867,14 +45111,14 @@ static const char *startup_source = "(namespace-unset-transformer!" " ns_82" "(namespace-phase ns_82)" -" sym_76)" +" sym_77)" "(values))))" -"(let-values(((id_73)(1/datum->syntax #f sym_76)))" -"(let-values(((temp138_1)(1/namespace-syntax-introduce id_73 ns_82))" +"(let-values(((id_74)(1/datum->syntax #f sym_77)))" +"(let-values(((temp138_1)(1/namespace-syntax-introduce id_74 ns_82))" "((temp139_0)" -"(let-values(((temp141_0)(namespace-mpi ns_82))" -"((temp142_2)(namespace-phase ns_82))" -"((sym143_0) sym_76))" +"(let-values(((temp141_1)(namespace-mpi ns_82))" +"((temp142_1)(namespace-phase ns_82))" +"((sym143_0) sym_77))" "(make-module-binding22.1" " #f" " #f" @@ -44894,42 +45138,42 @@ static const char *startup_source = " #f" " #f" " #f" -" temp141_0" -" temp142_2" +" temp141_1" +" temp142_1" " sym143_0)))" -"((temp140_1)(namespace-phase ns_82)))" -"(add-binding!17.1 #f #f #f #f temp138_1 temp139_0 temp140_1)))))" +"((temp140_0)(namespace-phase ns_82)))" +"(add-binding!17.1 #f #f #f #f temp138_1 temp139_0 temp140_0)))))" "(void)))))))))))))))" "(case-lambda" -"((sym_77 val_75)" -"(begin 'namespace-set-variable-value!(namespace-set-variable-value!63_0 sym_77 val_75 #f #f #f #f #f #f)))" -"((sym_78 val_76 map?_1 ns_83 as-constant?57_1)" -"(namespace-set-variable-value!63_0 sym_78 val_76 map?_1 ns_83 as-constant?57_1 #t #t #t))" -"((sym_79 val_77 map?_2 ns56_1)(namespace-set-variable-value!63_0 sym_79 val_77 map?_2 ns56_1 #f #t #t #f))" -"((sym_80 val_78 map?55_1)(namespace-set-variable-value!63_0 sym_80 val_78 map?55_1 #f #f #t #f #f)))))" +"((sym_78 val_76)" +"(begin 'namespace-set-variable-value!(namespace-set-variable-value!63_0 sym_78 val_76 #f #f #f #f #f #f)))" +"((sym_79 val_77 map?_1 ns_83 as-constant?57_1)" +"(namespace-set-variable-value!63_0 sym_79 val_77 map?_1 ns_83 as-constant?57_1 #t #t #t))" +"((sym_80 val_78 map?_2 ns56_1)(namespace-set-variable-value!63_0 sym_80 val_78 map?_2 ns56_1 #f #t #t #f))" +"((sym_81 val_79 map?55_1)(namespace-set-variable-value!63_0 sym_81 val_79 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_81) sym67_0))" +"(let-values(((sym_82) sym67_0))" "(let-values(((ns_84)(if ns66_0 ns65_0(1/current-namespace))))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(symbol? sym_81)" +"(if(symbol? sym_82)" "(void)" -" (let-values () (raise-argument-error 'namespace-undefine-variable! \"symbol?\" sym_81)))" +" (let-values () (raise-argument-error 'namespace-undefine-variable! \"symbol?\" sym_82)))" "(if(1/namespace? ns_84)" "(void)" "(let-values()" " (raise-argument-error 'namespace-undefine-variable! \"namespace?\" ns_84)))" -"(namespace-unset-variable! ns_84(namespace-phase ns_84) sym_81)))))))))))" +"(namespace-unset-variable! ns_84(namespace-phase ns_84) sym_82)))))))))))" "(case-lambda" -"((sym_82)(begin 'namespace-undefine-variable!(namespace-undefine-variable!68_0 sym_82 #f #f)))" -"((sym_83 ns65_1)(namespace-undefine-variable!68_0 sym_83 ns65_1 #t)))))" +"((sym_83)(begin 'namespace-undefine-variable!(namespace-undefine-variable!68_0 sym_83 #f #f)))" +"((sym_84 ns65_1)(namespace-undefine-variable!68_0 sym_84 ns65_1 #t)))))" "(define-values" "(1/namespace-mapped-symbols)" "(let-values(((namespace-mapped-symbols72_0)" @@ -44977,53 +45221,53 @@ static const char *startup_source = "(lambda(s5_1 ns1_5 compile2_0 ns3_0 compile4_0)" "(begin" " 'eval6" -"(let-values(((s_178) s5_1))" +"(let-values(((s_181) s5_1))" "(let-values(((ns_43)(if ns3_0 ns1_5(1/current-namespace))))" "(let-values(((compile_1)" "(if compile4_0" " compile2_0" -"(lambda(s_454 ns_87)(begin 'compile(1/compile s_454 ns_87 #f))))))" +"(lambda(s_456 ns_87)(begin 'compile(1/compile s_456 ns_87 #f))))))" "(let-values()" -"(if(let-values(((or-part_287)(compiled-in-memory? s_178)))" -"(if or-part_287" -" or-part_287" -"(let-values(((or-part_288)(1/linklet-directory? s_178)))" -"(if or-part_288 or-part_288(1/linklet-bundle? s_178)))))" -"(let-values()(eval-compiled s_178 ns_43))" -"(if(if(syntax?$1 s_178)" -"(let-values(((or-part_289)(compiled-in-memory?(1/syntax-e s_178))))" -"(if or-part_289" -" or-part_289" -"(let-values(((or-part_294)(1/linklet-directory?(1/syntax-e s_178))))" -"(if or-part_294 or-part_294(1/linklet-bundle?(1/syntax-e s_178))))))" +"(if(let-values(((or-part_293)(compiled-in-memory? s_181)))" +"(if or-part_293" +" or-part_293" +"(let-values(((or-part_294)(1/linklet-directory? s_181)))" +"(if or-part_294 or-part_294(1/linklet-bundle? s_181)))))" +"(let-values()(eval-compiled s_181 ns_43))" +"(if(if(syntax?$1 s_181)" +"(let-values(((or-part_295)(compiled-in-memory?(1/syntax-e s_181))))" +"(if or-part_295" +" or-part_295" +"(let-values(((or-part_300)(1/linklet-directory?(1/syntax-e s_181))))" +"(if or-part_300 or-part_300(1/linklet-bundle?(1/syntax-e s_181))))))" " #f)" -"(let-values()(eval-compiled(1/syntax->datum s_178) ns_43))" +"(let-values()(eval-compiled(1/syntax->datum s_181) ns_43))" "(let-values()" -"(let-values(((s80_0) s_178)" +"(let-values(((s80_0) s_181)" "((ns81_0) ns_43)" -"((temp82_3)" +"((temp82_2)" "(lambda(s_77 ns_88 tail?_44)" "(eval-compiled(compile_1 s_77 ns_88) ns_88 tail?_44)))" -"((temp83_1) #f))" +"((temp83_2) #f))" "(per-top-level68.1" " #f" " #f" " #f" " #f" -" temp83_1" +" temp83_2" " #f" " #f" " #f" " #f" -" temp82_3" +" temp82_2" " #f" " #f" " s80_0" " ns81_0)))))))))))))" "(case-lambda" -"((s_180)(begin 'eval(eval6_0 s_180 #f #f #f #f)))" +"((s_183)(begin 'eval(eval6_0 s_183 #f #f #f #f)))" "((s_78 ns_53 compile2_1)(eval6_0 s_78 ns_53 compile2_1 #t #t))" -"((s_166 ns1_6)(eval6_0 s_166 ns1_6 #f #t #f)))))" +"((s_169 ns1_6)(eval6_0 s_169 ns1_6 #f #t #f)))))" "(define-values" "(eval-compiled)" "(let-values(((eval-compiled12_0)" @@ -45056,23 +45300,23 @@ static const char *startup_source = " to-source?21_1)" "(begin" " 'compile23" -"(let-values(((s_455) s22_0))" +"(let-values(((s_457) 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_455)" -"(let-values()(list s_455))" -"(if(if(syntax?$1 s_455)" -"(1/compiled-expression?(1/syntax-e s_455))" +"(if(1/compiled-expression? s_457)" +"(let-values()(list s_457))" +"(if(if(syntax?$1 s_457)" +"(1/compiled-expression?(1/syntax-e s_457))" " #f)" -"(let-values()(list(1/syntax-e s_455)))" +"(let-values()(list(1/syntax-e s_457)))" "(let-values()" -"(let-values(((s86_0) s_455)" +"(let-values(((s86_1) s_457)" "((ns87_0) ns_92)" -"((temp88_2)" +"((temp88_1)" "(lambda(s_80 ns_49 as-tail?_4)" "(list" "(compile-single$1" @@ -45082,21 +45326,21 @@ static const char *startup_source = " serializable?_4" " to-source?_5))))" "((append89_0) append)" -"((temp90_0) #f))" +"((temp90_1) #f))" "(per-top-level68.1" " append89_0" " #t" " #f" " #f" -" temp90_0" +" temp90_1" " #f" " #f" " #f" " #f" -" temp88_2" +" temp88_1" " #f" " #f" -" s86_0" +" s86_1" " ns87_0)))))))" "(if(if(= 1(length cs_0))(not(compiled-multiple-top?(car cs_0))) #f)" "(car cs_0)" @@ -45113,9 +45357,9 @@ static const char *startup_source = " #t" " cs91_0))))))))))))))" "(case-lambda" -"((s_189)(begin 'compile(compile23_0 s_189 #f #f #f #f #f #f #f #f)))" -"((s_456 ns_93 serializable?_5 expand_1 to-source?17_1)" -"(compile23_0 s_456 ns_93 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" +"((s_192)(begin 'compile(compile23_0 s_192 #f #f #f #f #f #f #f #f)))" +"((s_443 ns_93 serializable?_5 expand_1 to-source?17_1)" +"(compile23_0 s_443 ns_93 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" "((s_81 ns_94 serializable?_6 expand16_1)(compile23_0 s_81 ns_94 serializable?_6 expand16_1 #f #t #t #t #f))" "((s_19 ns_95 serializable?15_1)(compile23_0 s_19 ns_95 serializable?15_1 #f #f #t #t #f #f))" "((s_156 ns14_3)(compile23_0 s_156 ns14_3 #f #f #f #t #f #f #f)))))" @@ -45129,15 +45373,15 @@ static const char *startup_source = "(let-values(((ns_96)(if ns26_2 ns25_0(1/current-namespace))))" "(let-values()(1/compile s_25 ns_96 #t expand$1 #t))))))))" "(case-lambda" -"((s_457)(begin(compile-to-linklets28_0 s_457 #f #f)))" -"((s_307 ns25_1)(compile-to-linklets28_0 s_307 ns25_1 #t)))))" +"((s_458)(begin(compile-to-linklets28_0 s_458 #f #f)))" +"((s_311 ns25_1)(compile-to-linklets28_0 s_311 ns25_1 #t)))))" "(define-values" "(struct:lifted-parsed-begin" " lifted-parsed-begin30.1" " lifted-parsed-begin?" " lifted-parsed-begin-seq" " lifted-parsed-begin-last)" -"(let-values(((struct:_77 make-_77 ?_77 -ref_77 -set!_77)" +"(let-values(((struct:_78 make-_78 ?_78 -ref_78 -set!_78)" "(let-values()" "(let-values()" "(make-struct-type" @@ -45153,18 +45397,18 @@ static const char *startup_source = " #f" " 'lifted-parsed-begin)))))" "(values" -" struct:_77" -" make-_77" -" ?_77" -"(make-struct-field-accessor -ref_77 0 'seq)" -"(make-struct-field-accessor -ref_77 1 'last))))" +" struct:_78" +" make-_78" +" ?_78" +"(make-struct-field-accessor -ref_78 0 'seq)" +"(make-struct-field-accessor -ref_78 1 'last))))" "(define-values" "(compile-single$1)" "(lambda(s_26 ns_97 expand_2 serializable?_7 to-source?_6)" "(begin" " 'compile-single" "(let-values(((exp-s_4)(expand_2 s_26 ns_97 #f #t serializable?_7)))" -"((letrec-values(((loop_99)" +"((letrec-values(((loop_102)" "(lambda(exp-s_5)" "(begin" " 'loop" @@ -45191,25 +45435,25 @@ static const char *startup_source = " temp97_1)))" "(if(lifted-parsed-begin? exp-s_5)" "(let-values()" -"(let-values(((temp101_1)" +"(let-values(((temp101_2)" "(reverse$1" -"(let-values(((lst_299)" +"(let-values(((lst_300)" "(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_299)))" +"(let-values()(check-list lst_300)))" "((letrec-values(((for-loop_271)" -"(lambda(fold-var_164 lst_168)" +"(lambda(fold-var_164 lst_169)" "(begin" " 'for-loop" -"(if(pair? lst_168)" +"(if(pair? lst_169)" "(let-values(((e_76)" -"(unsafe-car lst_168))" +"(unsafe-car lst_169))" "((rest_167)" -"(unsafe-cdr lst_168)))" +"(unsafe-cdr lst_169)))" "(let-values(((fold-var_165)" "(let-values(((fold-var_0)" " fold-var_164))" @@ -45217,7 +45461,7 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(loop_99" +"(loop_102" " e_76))" " fold-var_0))))" "(values" @@ -45230,12 +45474,12 @@ static const char *startup_source = " fold-var_164)))))" " for-loop_271)" " null" -" lst_299)))))" +" lst_300)))))" "((to-source?102_0) to-source?_6))" -"(compiled-tops->compiled-top8.1 #f #f #f #f to-source?102_0 #t temp101_1)))" +"(compiled-tops->compiled-top8.1 #f #f #f #f to-source?102_0 #t temp101_2)))" "(let-values()" "(let-values(((exp-s103_0) exp-s_5)" -"((temp104_3)" +"((temp104_2)" "(let-values(((ns107_0) ns_97))" "(make-compile-context14.1" " #f" @@ -45260,13 +45504,13 @@ static const char *startup_source = " to-source?106_0" " #t" " exp-s103_0" -" temp104_3)))))))))" -" loop_99)" +" temp104_2)))))))))" +" loop_102)" " exp-s_4)))))" "(define-values" "(expand$1)" "(let-values(((expand40_0)" -"(lambda(s39_0" +"(lambda(s39_1" " ns31_3" " observable?32_0" " to-parsed?33_0" @@ -45277,7 +45521,7 @@ static const char *startup_source = " serializable?38_0)" "(begin" " 'expand40" -"(let-values(((s_317) s39_0))" +"(let-values(((s_321) s39_1))" "(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)))" @@ -45293,12 +45537,12 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s108_0) s_317)" +"(let-values(((s108_0) s_321)" "((ns109_1) ns_98)" "((temp110_1)" -"(lambda(s_458 ns_99 as-tail?_5)" +"(lambda(s_459 ns_99 as-tail?_5)" "(expand-single" -" s_458" +" s_459" " ns_99" " observer_2" " to-parsed?_2" @@ -45322,24 +45566,24 @@ static const char *startup_source = " s108_0" " ns109_1))))))))))))))))" "(case-lambda" -"((s_305)(begin 'expand(expand40_0 s_305 #f #f #f #f #f #f #f #f)))" -"((s_322 ns_100 observable?_1 to-parsed?_3 serializable?34_1)" -"(expand40_0 s_322 ns_100 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" -"((s_459 ns_101 observable?_2 to-parsed?33_1)(expand40_0 s_459 ns_101 observable?_2 to-parsed?33_1 #f #t #t #t #f))" +"((s_310)(begin 'expand(expand40_0 s_310 #f #f #f #f #f #f #f #f)))" +"((s_325 ns_100 observable?_1 to-parsed?_3 serializable?34_1)" +"(expand40_0 s_325 ns_100 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" +"((s_460 ns_101 observable?_2 to-parsed?33_1)(expand40_0 s_460 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_460 ns31_4)(expand40_0 s_460 ns31_4 #f #f #f #t #f #f #f)))))" +"((s_461 ns31_4)(expand40_0 s_461 ns31_4 #f #f #f #t #f #f #f)))))" "(define-values" "(expand-single)" "(lambda(s_414 ns_103 observer_3 to-parsed?_4 serializable?_9)" "(begin" "(let-values(((rebuild-s_2)(keep-properties-only s_414)))" -"(let-values(((ctx_67)" +"(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_414 ctx_67)))" +"(let-values(((require-lifts_3 lifts_10 exp-s_6)(expand-capturing-lifts s_414 ctx_68)))" "(if(if(null? require-lifts_3)(null? lifts_10) #f)" "(let-values() exp-s_6)" "(if to-parsed?_4" @@ -45360,17 +45604,17 @@ 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_103)" +"(log-top-lift-begin-before ctx_68 require-lifts_3 lifts_10 exp-s_6 ns_103)" "(values))))" "(let-values(((new-s_2)" -"(let-values(((temp123_1)(append require-lifts_3 lifts_10))" +"(let-values(((temp123_2)(append require-lifts_3 lifts_10))" "((temp124_0)" "(lambda(form_1)" "(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_1" @@ -45384,10 +45628,10 @@ static const char *startup_source = "(let-values() form_2)" "(let-values()" "(begin" -"(let-values(((obs_46)(expand-context-observer ctx_67)))" -"(if obs_46" +"(let-values(((obs_45)(expand-context-observer ctx_68)))" +"(if obs_45" "(let-values()" -"(let-values()(call-expand-observe obs_46 'next)))" +"(let-values()(call-expand-observe obs_45 'next)))" "(void)))" "(expand-single" " form_2" @@ -45402,23 +45646,23 @@ static const char *startup_source = " #t" " temp124_0" " #t" -" temp123_1" +" temp123_2" " exp-s126_0" " temp127_2))))" -"(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_461) s44_1))" +"(let-values(((s_462) s44_1))" "(let-values(((ns_104)(if ns43_0 ns42_1(1/current-namespace))))" "(let-values()" -"(let-values(((s128_0) s_461)" +"(let-values(((s128_0) s_462)" "((ns129_0) ns_104)" "((temp130_1)" -"(lambda(s_206 ns_105 as-tail?_6)(expand-single-once s_206 ns_105)))" +"(lambda(s_213 ns_105 as-tail?_6)(expand-single-once s_213 ns_105)))" "((cons131_0) cons)" "((re-pair132_0) re-pair)" "((temp133_0) #t)" @@ -45439,86 +45683,86 @@ static const char *startup_source = " s128_0" " ns129_0)))))))))" "(case-lambda" -"((s_462)(begin 'expand-once(expand-once45_0 s_462 #f #f)))" -"((s_463 ns42_2)(expand-once45_0 s_463 ns42_2 #t)))))" +"((s_463)(begin 'expand-once(expand-once45_0 s_463 #f #f)))" +"((s_464 ns42_2)(expand-once45_0 s_464 ns42_2 #t)))))" "(define-values" "(expand-single-once)" -"(lambda(s_464 ns_45)" +"(lambda(s_465 ns_45)" "(begin" "(let-values(((require-lifts_4 lifts_11 exp-s_7)" "(expand-capturing-lifts" -" s_464" +" s_465" "(let-values(((v_200)" "(let-values(((ns135_1) ns_45))" "(make-expand-context10.1 #f #f #f #f #f #f ns135_1))))" -"(let-values(((the-struct_70) v_200))" -"(if(expand-context/outer? the-struct_70)" +"(let-values(((the-struct_69) v_200))" +"(if(expand-context/outer? the-struct_69)" "(let-values(((inner136_0)" -"(let-values(((the-struct_71)(root-expand-context/outer-inner v_200)))" -"(if(expand-context/inner? the-struct_71)" +"(let-values(((the-struct_70)(root-expand-context/outer-inner v_200)))" +"(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-keep-#%expression? 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-keep-#%expression? 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)))))))" +"(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_11) #f)" "(let-values() exp-s_7)" "(let-values()" "(let-values(((temp138_2)(append require-lifts_4 lifts_11))" "((exp-s139_0) exp-s_7)" -"((temp140_2)(namespace-phase ns_45)))" -"(wrap-lifts-as-begin16.1 #f #f #f #f temp138_2 exp-s139_0 temp140_2))))))))" +"((temp140_1)(namespace-phase ns_45)))" +"(wrap-lifts-as-begin16.1 #f #f #f #f temp138_2 exp-s139_0 temp140_1))))))))" "(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_443) s49_0))" +"(let-values(((s_466) s49_0))" "(let-values(((ns_84)(if ns48_2 ns47_2(1/current-namespace))))" "(let-values()" "(let-values(((observer_4)(current-expand-observe)))" @@ -45531,10 +45775,10 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s141_0) s_443)" +"(let-values(((s141_0) s_466)" "((ns142_0) ns_84)" -"((temp143_1) #f)" -"((temp144_1) #f)" +"((temp143_2) #f)" +"((temp144_0) #f)" "((observer145_0) observer_4))" "(per-top-level68.1" " #f" @@ -45542,18 +45786,18 @@ static const char *startup_source = " #f" " #f" " observer145_0" -" temp144_1" +" temp144_0" " #t" " #f" " #f" -" temp143_1" +" temp143_2" " #f" " #f" " s141_0" " ns142_0)))))))))))))" "(case-lambda" -"((s_465)(begin 'expand-to-top-form(expand-to-top-form50_0 s_465 #f #f)))" -"((s_466 ns47_3)(expand-to-top-form50_0 s_466 ns47_3 #t)))))" +"((s_467)(begin 'expand-to-top-form(expand-to-top-form50_0 s_467 #f #f)))" +"((s_468 ns47_3)(expand-to-top-form50_0 s_468 ns47_3 #t)))))" "(define-values" "(per-top-level68.1)" "(lambda(combine53_0" @@ -45582,13 +45826,13 @@ static const char *startup_source = "(let-values(((serializable?_10)(if serializable?64_0 serializable?57_0 #f)))" "(let-values(((observer_5) observer58_0))" "(let-values()" -"(let-values(((s_109)(maybe-intro given-s_0 ns_106)))" +"(let-values(((s_469)(maybe-intro given-s_0 ns_106)))" "(let-values(((ctx_23)" "(let-values(((ns146_0) ns_106)((observer147_0) observer_5))" "(make-expand-context10.1 #f #f observer147_0 #t #f #f ns146_0))))" -"(let-values(((phase_140)(namespace-phase ns_106)))" -"((letrec-values(((loop_100)" -"(lambda(s_159 phase_141 ns_107 as-tail?_7)" +"(let-values(((phase_138)(namespace-phase ns_106)))" +"((letrec-values(((loop_103)" +"(lambda(s_103 phase_139 ns_107 as-tail?_7)" "(begin" " 'loop" "(let-values(((tl-ctx_0)" @@ -45596,13 +45840,13 @@ static const char *startup_source = "(let-values(((the-struct_41) v_130))" "(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_130)))" "(if(expand-context/inner?" -" the-struct_72)" +" the-struct_71)" "(let-values(((phase149_0)" -" phase_141)" +" phase_139)" "((namespace150_0)" " ns_107)" "((just-once?151_0)" @@ -45611,57 +45855,57 @@ 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-keep-#%expression?" -" 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" @@ -45693,133 +45937,133 @@ static const char *startup_source = " 'struct-copy" " \"expand-context/outer?\"" " the-struct_41))))))" -"(let-values(((wb-s_0)(if just-once?_1 s_159 #f)))" +"(let-values(((wb-s_0)(if just-once?_1 s_103 #f)))" "(let-values((()" "(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" " 'visit" -" s_159)))" +" s_103)))" "(void)))" "(values))))" "(let-values(((require-lifts_5 lifts_12 exp-s_8)" "(expand-capturing-lifts" -" s_159" +" s_103" "(let-values(((v_201) tl-ctx_0))" -"(let-values(((the-struct_73) v_201))" -"(if(expand-context/outer? the-struct_73)" +"(let-values(((the-struct_72) v_201))" +"(if(expand-context/outer? the-struct_72)" "(let-values(((only-immediate?153_0)" " #t)" "((def-ctx-scopes154_0)" "(box null))" "((inner155_0)" -"(let-values(((the-struct_74)" +"(let-values(((the-struct_73)" "(root-expand-context/outer-inner" " v_201)))" "(if(expand-context/inner?" -" the-struct_74)" +" the-struct_73)" "(let-values(((phase156_0)" -" phase_141)" +" phase_139)" "((namespace157_0)" " ns_107))" "(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)" +" the-struct_73)" "(root-expand-context/inner-counter" -" the-struct_74)" +" the-struct_73)" "(root-expand-context/inner-lift-key" -" the-struct_74)" +" the-struct_73)" "(expand-context/inner-to-parsed?" -" the-struct_74)" +" the-struct_73)" " phase156_0" " namespace157_0" "(expand-context/inner-just-once?" -" the-struct_74)" +" 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)" +" the-struct_73)" "(expand-context/inner-keep-#%expression?" -" the-struct_74)" +" the-struct_73)" "(expand-context/inner-stops" -" the-struct_74)" +" the-struct_73)" "(expand-context/inner-declared-submodule-names" -" the-struct_74)" +" the-struct_73)" "(expand-context/inner-lifts" -" the-struct_74)" +" the-struct_73)" "(expand-context/inner-lift-envs" -" the-struct_74)" +" the-struct_73)" "(expand-context/inner-module-lifts" -" the-struct_74)" +" the-struct_73)" "(expand-context/inner-require-lifts" -" the-struct_74)" +" the-struct_73)" "(expand-context/inner-to-module-lifts" -" the-struct_74)" +" the-struct_73)" "(expand-context/inner-requires+provides" -" the-struct_74)" +" the-struct_73)" "(expand-context/inner-observer" -" the-struct_74)" +" the-struct_73)" "(expand-context/inner-for-serializable?" -" the-struct_74)" +" the-struct_73)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_74)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_74)))))" -"(expand-context/outer1.1" -" inner155_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)" -" def-ctx-scopes154_0" -"(expand-context/outer-binding-layer" -" the-struct_73)" -"(expand-context/outer-reference-records" -" the-struct_73)" -" only-immediate?153_0" -"(expand-context/outer-need-eventually-defined" -" the-struct_73)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_73)" -"(expand-context/outer-name" " the-struct_73)))" "(raise-argument-error" " 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_73)))))" +"(expand-context/outer1.1" +" inner155_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_72)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_72)" +"(root-expand-context/outer-frame-id" +" the-struct_72)" +"(expand-context/outer-context" +" the-struct_72)" +"(expand-context/outer-env" +" the-struct_72)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_72)" +"(expand-context/outer-scopes" +" the-struct_72)" +" def-ctx-scopes154_0" +"(expand-context/outer-binding-layer" +" the-struct_72)" +"(expand-context/outer-reference-records" +" the-struct_72)" +" only-immediate?153_0" +"(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)))))))" "(let-values(((disarmed-exp-s_0)" "(syntax-disarm$1 exp-s_8)))" -"(if(let-values(((or-part_295)" +"(if(let-values(((or-part_301)" "(pair? require-lifts_5)))" -"(if or-part_295 or-part_295(pair? lifts_12)))" +"(if or-part_301 or-part_301(pair? lifts_12)))" "(let-values()" "(let-values(((new-s_3)" "(let-values(((temp158_0)" @@ -45827,7 +46071,7 @@ static const char *startup_source = " require-lifts_5" " lifts_12))" "((exp-s159_0) exp-s_8)" -"((phase160_0) phase_141))" +"((phase160_0) phase_139))" "(wrap-lifts-as-begin16.1" " #f" " #f" @@ -45837,6 +46081,27 @@ static const char *startup_source = " exp-s159_0" " phase160_0))))" "(begin" +"(let-values(((obs_47)" +"(expand-context-observer" +" tl-ctx_0)))" +"(if obs_47" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_47" +" 'lift-loop" +" new-s_3)))" +"(void)))" +"(if just-once?_1" +" new-s_3" +"(loop_103" +" new-s_3" +" phase_139" +" ns_107" +" as-tail?_7)))))" +"(if(not single_0)" +"(let-values()" +"(begin" "(let-values(((obs_48)" "(expand-context-observer" " tl-ctx_0)))" @@ -45845,27 +46110,6 @@ static const char *startup_source = "(let-values()" "(call-expand-observe" " obs_48" -" 'lift-loop" -" new-s_3)))" -"(void)))" -"(if just-once?_1" -" new-s_3" -"(loop_100" -" new-s_3" -" phase_141" -" ns_107" -" as-tail?_7)))))" -"(if(not single_0)" -"(let-values()" -"(begin" -"(let-values(((obs_49)" -"(expand-context-observer" -" tl-ctx_0)))" -"(if obs_49" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_49" " 'return" " exp-s_8)))" "(void)))" @@ -45876,55 +46120,55 @@ static const char *startup_source = "(let-values(((tmp_35)" "(core-form-sym" " disarmed-exp-s_0" -" phase_141)))" +" phase_139)))" "(if(equal? tmp_35 'begin)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_50)" +"(let-values(((obs_49)" "(expand-context-observer" " ctx_23)))" -"(if obs_50" +"(if obs_49" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_50" +" obs_49" " 'prim-begin)))" "(void)))" "(values))))" "(let-values(((ok?_28 begin161_0 e162_0)" -"(let-values(((s_467)" +"(let-values(((s_470)" " disarmed-exp-s_0))" "(let-values(((orig-s_33)" -" s_467))" +" s_470))" "(let-values(((begin161_1" " e162_1)" -"(let-values(((s_222)" +"(let-values(((s_227)" "(if(syntax?$1" -" s_467)" +" s_470)" "(syntax-e$1" -" s_467)" -" s_467)))" +" s_470)" +" s_470)))" "(if(pair?" -" s_222)" +" s_227)" "(let-values(((begin163_0)" -"(let-values(((s_468)" +"(let-values(((s_471)" "(car" -" s_222)))" -" s_468))" +" s_227)))" +" s_471))" "((e164_0)" -"(let-values(((s_224)" +"(let-values(((s_229)" "(cdr" -" s_222)))" -"(let-values(((s_225)" +" s_227)))" +"(let-values(((s_230)" "(if(syntax?$1" -" s_224)" +" s_229)" "(syntax-e$1" -" s_224)" -" s_224)))" +" s_229)" +" s_229)))" "(let-values(((flat-s_20)" "(to-syntax-list.1" -" s_225)))" +" s_230)))" "(if(not" " flat-s_20)" "(let-values()" @@ -45961,38 +46205,38 @@ static const char *startup_source = " es_2))" " #f)" "(let-values()" -"(loop_100" +"(loop_103" "(car es_2)" -" phase_141" +" phase_139" " ns_107" " as-tail?_7))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_51)" +"(let-values(((obs_50)" "(expand-context-observer" " tl-ctx_0)))" -"(if obs_51" +"(if obs_50" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_51" +" obs_50" " 'next)))" "(void)))" "(values))))" "(let-values(((a_63)" "(if combine_0" -"(loop_100" +"(loop_103" "(car" " es_2)" -" phase_141" +" phase_139" " ns_107" " #f)" "(begin" -"(loop_100" +"(loop_103" "(car" " es_2)" -" phase_141" +" phase_139" " ns_107" " #f)" "(void)))))" @@ -46014,14 +46258,14 @@ static const char *startup_source = "(begin-loop_0" " e162_0))))" "(begin" -"(let-values(((obs_52)" +"(let-values(((obs_51)" "(expand-context-observer" " tl-ctx_0)))" -"(if obs_52" +"(if obs_51" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_52" +" obs_51" " 'return" " new-s_4)))" "(void)))" @@ -46032,52 +46276,52 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_53)" +"(let-values(((obs_52)" "(expand-context-observer" " tl-ctx_0)))" -"(if obs_53" +"(if obs_52" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_53" +" obs_52" " 'prim-begin-for-syntax)))" "(void)))" "(values))))" "(let-values(((ok?_29" " begin-for-syntax165_0" " e166_0)" -"(let-values(((s_469)" +"(let-values(((s_127)" " disarmed-exp-s_0))" "(let-values(((orig-s_34)" -" s_469))" +" s_127))" "(let-values(((begin-for-syntax165_1" " e166_1)" -"(let-values(((s_470)" -"(if(syntax?$1" -" s_469)" -"(syntax-e$1" -" s_469)" -" s_469)))" -"(if(pair?" -" s_470)" -"(let-values(((begin-for-syntax167_0)" -"(let-values(((s_471)" -"(car" -" s_470)))" -" s_471))" -"((e168_0)" "(let-values(((s_472)" -"(cdr" -" s_470)))" -"(let-values(((s_228)" "(if(syntax?$1" -" s_472)" +" s_127)" "(syntax-e$1" +" s_127)" +" s_127)))" +"(if(pair?" " s_472)" +"(let-values(((begin-for-syntax167_0)" +"(let-values(((s_129)" +"(car" " s_472)))" +" s_129))" +"((e168_0)" +"(let-values(((s_473)" +"(cdr" +" s_472)))" +"(let-values(((s_232)" +"(if(syntax?$1" +" s_473)" +"(syntax-e$1" +" s_473)" +" s_473)))" "(let-values(((flat-s_21)" "(to-syntax-list.1" -" s_228)))" +" s_232)))" "(if(not" " flat-s_21)" "(let-values()" @@ -46099,21 +46343,21 @@ static const char *startup_source = " begin-for-syntax165_1" " e166_1))))))" "(let-values(((next-phase_0)" -"(add1 phase_141)))" +"(add1 phase_139)))" "(let-values(((next-ns_0)" "(namespace->namespace-at-phase" " ns_107" " next-phase_0)))" "(let-values((()" "(begin" -"(let-values(((obs_54)" +"(let-values(((obs_53)" "(expand-context-observer" " tl-ctx_0)))" -"(if obs_54" +"(if obs_53" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_54" +" obs_53" " 'prepare-env)))" "(void)))" "(values))))" @@ -46132,7 +46376,7 @@ static const char *startup_source = "(values))))" "(let-values(((l_74)" "(reverse$1" -"(let-values(((lst_300)" +"(let-values(((lst_301)" " e166_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -46140,28 +46384,64 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_300)))" +" lst_301)))" "((letrec-values(((for-loop_272)" -"(lambda(fold-var_261" -" lst_301)" +"(lambda(fold-var_278" +" lst_302)" "(begin" " 'for-loop" "(if(pair?" -" lst_301)" -"(let-values(((s_473)" +" lst_302)" +"(let-values(((s_474)" "(unsafe-car" -" lst_301))" +" lst_302))" "((rest_168)" "(unsafe-cdr" -" lst_301)))" -"(let-values(((fold-var_277)" -"(let-values(((fold-var_278)" -" fold-var_261))" +" lst_302)))" "(let-values(((fold-var_279)" +"(let-values(((fold-var_280)" +" fold-var_278))" +"(let-values(((fold-var_281)" "(let-values()" "(cons" "(let-values()" "(begin" +"(let-values(((obs_54)" +"(expand-context-observer" +" tl-ctx_0)))" +"(if obs_54" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_54" +" 'next)))" +"(void)))" +"(loop_103" +" s_474" +" next-phase_0" +" next-ns_0" +" #f)))" +" fold-var_280))))" +"(values" +" fold-var_281)))))" +"(if(not" +" #f)" +"(for-loop_272" +" fold-var_279" +" rest_168)" +" fold-var_279)))" +" fold-var_278)))))" +" for-loop_272)" +" null" +" lst_301))))))" +"(if wrap_2" +"(let-values()" +"(let-values(((new-s_5)" +"(wrap_2" +" begin-for-syntax165_0" +" exp-s_8" +" l_74)))" +"(begin" "(let-values(((obs_55)" "(expand-context-observer" " tl-ctx_0)))" @@ -46170,42 +46450,6 @@ static const char *startup_source = "(let-values()" "(call-expand-observe" " obs_55" -" 'next)))" -"(void)))" -"(loop_100" -" s_473" -" next-phase_0" -" next-ns_0" -" #f)))" -" fold-var_278))))" -"(values" -" fold-var_279)))))" -"(if(not" -" #f)" -"(for-loop_272" -" fold-var_277" -" rest_168)" -" fold-var_277)))" -" fold-var_261)))))" -" for-loop_272)" -" null" -" lst_300))))))" -"(if wrap_2" -"(let-values()" -"(let-values(((new-s_5)" -"(wrap_2" -" begin-for-syntax165_0" -" exp-s_8" -" l_74)))" -"(begin" -"(let-values(((obs_56)" -"(expand-context-observer" -" tl-ctx_0)))" -"(if obs_56" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_56" " 'return" " new-s_5)))" "(void)))" @@ -46222,113 +46466,113 @@ static const char *startup_source = " exp-s_8" " ns_107" " as-tail?_7))))))))))))))))))" -" loop_100)" -" s_109" -" phase_140" +" loop_103)" +" s_469" +" phase_138" " ns_106" " #t)))))))))))))))))" "(define-values" "(maybe-intro)" -"(lambda(s_474 ns_108)" -"(begin(if(syntax?$1 s_474) s_474(1/namespace-syntax-introduce(1/datum->syntax #f s_474) ns_108)))))" +"(lambda(s_475 ns_108)" +"(begin(if(syntax?$1 s_475) s_475(1/namespace-syntax-introduce(1/datum->syntax #f s_475) ns_108)))))" "(define-values" "(re-pair)" -"(lambda(form-id_0 s_241 r_43)" -"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_241)(cons form-id_0 r_43) s_241 s_241) s_241))))" +"(lambda(form-id_0 s_244 r_44)" +"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_244)(cons form-id_0 r_44) s_244 s_244) s_244))))" "(define-values" "(expand-capturing-lifts)" -"(lambda(s_243 ctx_68)" +"(lambda(s_246 ctx_69)" "(begin" "(let-values()" -"(let-values(((ns_109)(expand-context-namespace ctx_68)))" +"(let-values(((ns_109)(expand-context-namespace ctx_69)))" "(let-values((()(begin(namespace-visit-available-modules! ns_109)(values))))" "(let-values(((lift-ctx_6)" -"(let-values(((temp169_0)(make-top-level-lift ctx_68)))" +"(let-values(((temp169_0)(make-top-level-lift ctx_69)))" "(make-lift-context6.1 #f #f temp169_0))))" "(let-values(((require-lift-ctx_2)" "(make-require-lift-context" "(namespace-phase ns_109)" "(make-parse-top-lifted-require ns_109))))" "(let-values(((exp-s_9)" -"(let-values(((s170_0) s_243)" +"(let-values(((s170_0) s_246)" "((temp171_2)" -"(let-values(((v_202) ctx_68))" -"(let-values(((the-struct_75) v_202))" -"(if(expand-context/outer? the-struct_75)" +"(let-values(((v_202) ctx_69))" +"(let-values(((the-struct_74) v_202))" +"(if(expand-context/outer? the-struct_74)" "(let-values(((inner172_0)" -"(let-values(((the-struct_76)" +"(let-values(((the-struct_75)" "(root-expand-context/outer-inner v_202)))" -"(if(expand-context/inner? the-struct_76)" +"(if(expand-context/inner? the-struct_75)" "(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_76)" +" the-struct_75)" "(root-expand-context/inner-module-scopes" -" the-struct_76)" +" the-struct_75)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_76)" +" the-struct_75)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_76)" +" the-struct_75)" "(root-expand-context/inner-defined-syms" -" the-struct_76)" -"(root-expand-context/inner-counter the-struct_76)" +" the-struct_75)" +"(root-expand-context/inner-counter the-struct_75)" "(root-expand-context/inner-lift-key" -" the-struct_76)" -"(expand-context/inner-to-parsed? the-struct_76)" -"(expand-context/inner-phase the-struct_76)" -"(expand-context/inner-namespace the-struct_76)" -"(expand-context/inner-just-once? the-struct_76)" +" the-struct_75)" +"(expand-context/inner-to-parsed? the-struct_75)" +"(expand-context/inner-phase the-struct_75)" +"(expand-context/inner-namespace the-struct_75)" +"(expand-context/inner-just-once? the-struct_75)" "(expand-context/inner-module-begin-k" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-allow-unbound?" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-in-local-expand?" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-keep-#%expression?" -" the-struct_76)" -"(expand-context/inner-stops the-struct_76)" +" the-struct_75)" +"(expand-context/inner-stops the-struct_75)" "(expand-context/inner-declared-submodule-names" -" the-struct_76)" +" the-struct_75)" " lifts173_0" -"(expand-context/inner-lift-envs the-struct_76)" +"(expand-context/inner-lift-envs the-struct_75)" " module-lifts174_0" " require-lifts175_0" "(expand-context/inner-to-module-lifts" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-requires+provides" -" the-struct_76)" -"(expand-context/inner-observer the-struct_76)" +" the-struct_75)" +"(expand-context/inner-observer the-struct_75)" "(expand-context/inner-for-serializable?" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_76)))" +" the-struct_75)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_76)))))" +" the-struct_75)))))" "(expand-context/outer1.1" " inner172_0" -"(root-expand-context/outer-post-expansion-scope the-struct_75)" -"(root-expand-context/outer-use-site-scopes the-struct_75)" -"(root-expand-context/outer-frame-id the-struct_75)" -"(expand-context/outer-context the-struct_75)" -"(expand-context/outer-env the-struct_75)" -"(expand-context/outer-post-expansion-scope-action the-struct_75)" -"(expand-context/outer-scopes the-struct_75)" -"(expand-context/outer-def-ctx-scopes the-struct_75)" -"(expand-context/outer-binding-layer the-struct_75)" -"(expand-context/outer-reference-records the-struct_75)" -"(expand-context/outer-only-immediate? the-struct_75)" -"(expand-context/outer-need-eventually-defined the-struct_75)" -"(expand-context/outer-current-introduction-scopes the-struct_75)" -"(expand-context/outer-name the-struct_75)))" +"(root-expand-context/outer-post-expansion-scope the-struct_74)" +"(root-expand-context/outer-use-site-scopes the-struct_74)" +"(root-expand-context/outer-frame-id the-struct_74)" +"(expand-context/outer-context the-struct_74)" +"(expand-context/outer-env the-struct_74)" +"(expand-context/outer-post-expansion-scope-action the-struct_74)" +"(expand-context/outer-scopes the-struct_74)" +"(expand-context/outer-def-ctx-scopes the-struct_74)" +"(expand-context/outer-binding-layer the-struct_74)" +"(expand-context/outer-reference-records the-struct_74)" +"(expand-context/outer-only-immediate? the-struct_74)" +"(expand-context/outer-need-eventually-defined the-struct_74)" +"(expand-context/outer-current-introduction-scopes the-struct_74)" +"(expand-context/outer-name the-struct_74)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_75))))))" +" the-struct_74))))))" "(expand9.1 #f #f #f #f #f #f s170_0 temp171_2))))" "(values" "(get-and-clear-require-lifts! require-lift-ctx_2)" @@ -46338,31 +46582,31 @@ static const char *startup_source = "(make-parse-top-lifted-require)" "(lambda(ns_110)" "(begin" -"(lambda(s_475 phase_142)" +"(lambda(s_476 phase_140)" "(let-values(((ok?_30 #%require176_0 req177_0)" -"(let-values(((s_476)(syntax-disarm$1 s_475)))" -"(let-values(((orig-s_35) s_476))" +"(let-values(((s_477)(syntax-disarm$1 s_476)))" +"(let-values(((orig-s_35) s_477))" "(let-values(((#%require176_1 req177_1)" -"(let-values(((s_353)(if(syntax?$1 s_476)(syntax-e$1 s_476) s_476)))" -"(if(pair? s_353)" -"(let-values(((#%require178_0)(let-values(((s_356)(car s_353))) s_356))" +"(let-values(((s_355)(if(syntax?$1 s_477)(syntax-e$1 s_477) s_477)))" +"(if(pair? s_355)" +"(let-values(((#%require178_0)(let-values(((s_358)(car s_355))) s_358))" "((req179_0)" -"(let-values(((s_357)(cdr s_353)))" -"(let-values(((s_248)" -"(if(syntax?$1 s_357)" -"(syntax-e$1 s_357)" -" s_357)))" -"(if(pair? s_248)" -"(let-values(((req180_0)" -"(let-values(((s_477)(car s_248)))" -" s_477))" -"(()" -"(let-values(((s_359)(cdr s_248)))" -"(let-values(((s_360)" +"(let-values(((s_359)(cdr s_355)))" +"(let-values(((s_251)" "(if(syntax?$1 s_359)" "(syntax-e$1 s_359)" " s_359)))" -"(if(null? s_360)" +"(if(pair? s_251)" +"(let-values(((req180_0)" +"(let-values(((s_478)(car s_251)))" +" s_478))" +"(()" +"(let-values(((s_361)(cdr s_251)))" +"(let-values(((s_362)" +"(if(syntax?$1 s_361)" +"(syntax-e$1 s_361)" +" s_361)))" +"(if(null? s_362)" "(values)" "(raise-syntax-error$1" " #f" @@ -46374,10 +46618,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_1) s_475)" +"((s182_1) s_476)" "((ns183_0) ns_110)" -"((phase184_1) phase_142)" -"((phase185_0) phase_142)" +"((phase184_1) phase_140)" +"((phase185_0) phase_140)" "((temp186_0)(let-values(((temp188_0) #f))(make-requires+provides8.1 #f #f temp188_0)))" "((temp187_0) 'require))" "(parse-and-perform-requires!30.1" @@ -46419,48 +46663,48 @@ static const char *startup_source = "(lifted-parsed-begin30.1" "(append" "(reverse$1" -"(let-values(((lst_302) require-lifts_6))" +"(let-values(((lst_303) require-lifts_6))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_302)))" +"(let-values()(check-list lst_303)))" "((letrec-values(((for-loop_273)" -"(lambda(fold-var_280 lst_303)" +"(lambda(fold-var_282 lst_304)" "(begin" " 'for-loop" -"(if(pair? lst_303)" -"(let-values(((req_19)(unsafe-car lst_303))" -"((rest_169)(unsafe-cdr lst_303)))" -"(let-values(((fold-var_281)" -"(let-values(((fold-var_282) fold-var_280))" +"(if(pair? lst_304)" +"(let-values(((req_19)(unsafe-car lst_304))" +"((rest_169)(unsafe-cdr lst_304)))" "(let-values(((fold-var_283)" +"(let-values(((fold-var_284) fold-var_282))" +"(let-values(((fold-var_285)" "(let-values()" "(cons" "(let-values()" "(parsed-require23.1 req_19))" -" fold-var_282))))" -"(values fold-var_283)))))" -"(if(not #f)(for-loop_273 fold-var_281 rest_169) fold-var_281)))" -" fold-var_280)))))" +" fold-var_284))))" +"(values fold-var_285)))))" +"(if(not #f)(for-loop_273 fold-var_283 rest_169) fold-var_283)))" +" fold-var_282)))))" " for-loop_273)" " null" -" lst_302))))" +" lst_303))))" "(reverse$1" -"(let-values(((lst_304)(get-lifts-as-lists lifts_13)))" +"(let-values(((lst_305)(get-lifts-as-lists lifts_13)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_304)))" +"(let-values()(check-list lst_305)))" "((letrec-values(((for-loop_274)" -"(lambda(fold-var_284 lst_305)" +"(lambda(fold-var_286 lst_306)" "(begin" " 'for-loop" -"(if(pair? lst_305)" -"(let-values(((ids+syms+rhs_0)(unsafe-car lst_305))" -"((rest_170)(unsafe-cdr lst_305)))" -"(let-values(((fold-var_285)" -"(let-values(((fold-var_286) fold-var_284))" +"(if(pair? lst_306)" +"(let-values(((ids+syms+rhs_0)(unsafe-car lst_306))" +"((rest_170)(unsafe-cdr lst_306)))" "(let-values(((fold-var_287)" +"(let-values(((fold-var_288) fold-var_286))" +"(let-values(((fold-var_289)" "(let-values()" "(cons" "(let-values()" @@ -46484,64 +46728,64 @@ static const char *startup_source = " just-rhs_0)))" "(if(lifted-parsed-begin?" " exp-rhs_3)" -"(let-values(((the-struct_77)" +"(let-values(((the-struct_76)" " exp-rhs_3))" "(if(lifted-parsed-begin?" -" the-struct_77)" +" the-struct_76)" "(let-values(((last189_0)" " dv_0))" "(lifted-parsed-begin30.1" "(lifted-parsed-begin-seq" -" the-struct_77)" +" the-struct_76)" " last189_0))" "(raise-argument-error" " 'struct-copy" " \"lifted-parsed-begin?\"" -" the-struct_77)))" +" the-struct_76)))" " dv_0)))))" -" fold-var_286))))" -"(values fold-var_287)))))" -"(if(not #f)(for-loop_274 fold-var_285 rest_170) fold-var_285)))" -" fold-var_284)))))" +" fold-var_288))))" +"(values fold-var_289)))))" +"(if(not #f)(for-loop_274 fold-var_287 rest_170) fold-var_287)))" +" fold-var_286)))))" " for-loop_274)" " null" -" lst_304)))))" +" lst_305)))))" " exp-s_10))))))))))" "(define-values" "(log-top-lift-begin-before)" -"(lambda(ctx_69 require-lifts_7 lifts_14 exp-s_11 ns_111)" +"(lambda(ctx_70 require-lifts_7 lifts_14 exp-s_11 ns_111)" "(begin" -"(let-values(((obs_57)(expand-context-observer ctx_69)))" -"(if obs_57" +"(let-values(((obs_56)(expand-context-observer ctx_70)))" +"(if obs_56" "(let-values()" "(let-values(((new-s_6)" "(let-values(((temp190_0)(append require-lifts_7 lifts_14))" "((exp-s191_0) exp-s_11)" "((temp192_0)(namespace-phase ns_111)))" "(wrap-lifts-as-begin16.1 #f #f #f #f temp190_0 exp-s191_0 temp192_0))))" -"(begin(call-expand-observe obs_57 'lift-loop new-s_6)(log-top-begin-before ctx_69 new-s_6))))" +"(begin(call-expand-observe obs_56 'lift-loop new-s_6)(log-top-begin-before ctx_70 new-s_6))))" "(void))))))" "(define-values" "(log-top-begin-before)" -"(lambda(ctx_70 new-s_7)" +"(lambda(ctx_71 new-s_7)" "(begin" -"(let-values(((obs_58)(expand-context-observer ctx_70)))" -"(if obs_58" +"(let-values(((obs_57)(expand-context-observer ctx_71)))" +"(if obs_57" "(let-values()" "(let-values(((ok?_31 begin193_0 e194_0)" -"(let-values(((s_478) new-s_7))" -"(let-values(((orig-s_36) s_478))" +"(let-values(((s_479) new-s_7))" +"(let-values(((orig-s_36) s_479))" "(let-values(((begin193_1 e194_1)" -"(let-values(((s_389)(if(syntax?$1 s_478)(syntax-e$1 s_478) s_478)))" -"(if(pair? s_389)" -"(let-values(((begin195_0)(let-values(((s_141)(car s_389))) s_141))" +"(let-values(((s_393)(if(syntax?$1 s_479)(syntax-e$1 s_479) s_479)))" +"(if(pair? s_393)" +"(let-values(((begin195_0)(let-values(((s_395)(car s_393))) s_395))" "((e196_0)" -"(let-values(((s_391)(cdr s_389)))" -"(let-values(((s_392)" -"(if(syntax?$1 s_391)" -"(syntax-e$1 s_391)" -" s_391)))" -"(let-values(((flat-s_22)(to-syntax-list.1 s_392)))" +"(let-values(((s_396)(cdr s_393)))" +"(let-values(((s_397)" +"(if(syntax?$1 s_396)" +"(syntax-e$1 s_396)" +" s_396)))" +"(let-values(((flat-s_22)(to-syntax-list.1 s_397)))" "(if(not flat-s_22)" "(let-values()" "(raise-syntax-error$1" @@ -46553,33 +46797,33 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_36)))))" "(values #t begin193_1 e194_1))))))" "(begin" -"(call-expand-observe obs_58 'visit new-s_7)" -"(call-expand-observe obs_58 'resolve begin193_0)" -"(call-expand-observe obs_58 'enter-prim new-s_7)" -"(call-expand-observe obs_58 'prim-begin)" -"(call-expand-observe obs_58 'enter-list(1/datum->syntax #f e194_0 new-s_7)))))" +"(call-expand-observe obs_57 'visit new-s_7)" +"(call-expand-observe obs_57 'resolve begin193_0)" +"(call-expand-observe obs_57 'enter-prim new-s_7)" +"(call-expand-observe obs_57 'prim-begin)" +"(call-expand-observe obs_57 'enter-list(1/datum->syntax #f e194_0 new-s_7)))))" "(void))))))" "(define-values" "(log-top-begin-after)" -"(lambda(ctx_71 new-s_8)" +"(lambda(ctx_72 new-s_8)" "(begin" -"(let-values(((obs_59)(expand-context-observer ctx_71)))" -"(if obs_59" +"(let-values(((obs_58)(expand-context-observer ctx_72)))" +"(if obs_58" "(let-values()" "(let-values(((ok?_32 begin197_0 e198_0)" -"(let-values(((s_479) new-s_8))" -"(let-values(((orig-s_37) s_479))" +"(let-values(((s_480) new-s_8))" +"(let-values(((orig-s_37) s_480))" "(let-values(((begin197_1 e198_1)" -"(let-values(((s_480)(if(syntax?$1 s_479)(syntax-e$1 s_479) s_479)))" -"(if(pair? s_480)" -"(let-values(((begin199_0)(let-values(((s_406)(car s_480))) s_406))" +"(let-values(((s_481)(if(syntax?$1 s_480)(syntax-e$1 s_480) s_480)))" +"(if(pair? s_481)" +"(let-values(((begin199_0)(let-values(((s_141)(car s_481))) s_141))" "((e200_0)" -"(let-values(((s_407)(cdr s_480)))" -"(let-values(((s_481)" +"(let-values(((s_407)(cdr s_481)))" +"(let-values(((s_482)" "(if(syntax?$1 s_407)" "(syntax-e$1 s_407)" " s_407)))" -"(let-values(((flat-s_23)(to-syntax-list.1 s_481)))" +"(let-values(((flat-s_23)(to-syntax-list.1 s_482)))" "(if(not flat-s_23)" "(let-values()" "(raise-syntax-error$1" @@ -46590,14 +46834,14 @@ 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_60)(expand-context-observer ctx_71)))" -"(if obs_60" +"(let-values(((obs_59)(expand-context-observer ctx_72)))" +"(if obs_59" "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_60 'exit-list(1/datum->syntax #f e198_0 new-s_8))" -"(call-expand-observe obs_60 'exit-prim new-s_8)" -"(call-expand-observe obs_60 'return new-s_8))))" +"(call-expand-observe obs_59 'exit-list(1/datum->syntax #f e198_0 new-s_8))" +"(call-expand-observe obs_59 'exit-prim new-s_8)" +"(call-expand-observe obs_59 'return new-s_8))))" "(void)))))" "(void))))))" "(define-values" @@ -46608,7 +46852,7 @@ static const char *startup_source = " 'do-dynamic-require6" "(let-values(((who_25) who3_0))" "(let-values(((mod-path_5) mod-path4_0))" -"(let-values(((sym_84) sym5_0))" +"(let-values(((sym_85) sym5_0))" "(let-values(((fail-k_2)(if fail-k2_0 fail-k1_0 default-dynamic-require-fail-thunk)))" "(let-values()" "(let-values((()" @@ -46627,17 +46871,17 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_5)(symbol? sym_84)))" +"(if(let-values(((or-part_5)(symbol? sym_85)))" "(if or-part_5" " or-part_5" -"(let-values(((or-part_6)(not sym_84)))" +"(let-values(((or-part_6)(not sym_85)))" "(if or-part_6" " or-part_6" -"(let-values(((or-part_296)(equal? sym_84 0)))" -"(if or-part_296 or-part_296(void? sym_84)))))))" +"(let-values(((or-part_302)(equal? sym_85 0)))" +"(if or-part_302 or-part_302(void? sym_85)))))))" "(void)" "(let-values()" -" (raise-argument-error who_25 \"(or/c symbol? #f 0 void?)\" sym_84)))" +" (raise-argument-error who_25 \"(or/c symbol? #f 0 void?)\" sym_85)))" "(values))))" "(let-values((()" "(begin" @@ -46658,13 +46902,13 @@ static const char *startup_source = "(resolved-module-path->module-path mod-path_5)" " #f))))))" "(let-values(((mod-name_22)(1/module-path-index-resolve mpi_49 #t)))" -"(let-values(((phase_143)(namespace-phase ns_58)))" -"(if(not sym_84)" +"(let-values(((phase_141)(namespace-phase ns_58)))" +"(if(not sym_85)" "(let-values()" "(let-values(((ns20_1) ns_58)" "((mpi21_0) mpi_49)" -"((phase22_0) phase_143)" -"((phase23_1) phase_143)" +"((phase22_0) phase_141)" +"((phase23_1) phase_141)" "((temp24_4) #f))" "(namespace-module-instantiate!96.1" " temp24_4" @@ -46678,12 +46922,12 @@ static const char *startup_source = " ns20_1" " mpi21_0" " phase22_0)))" -"(if(equal? sym_84 0)" +"(if(equal? sym_85 0)" "(let-values()" "(let-values(((ns25_2) ns_58)" "((mpi26_0) mpi_49)" -"((phase27_1) phase_143)" -"((phase28_1) phase_143))" +"((phase27_1) phase_141)" +"((phase28_1) phase_141))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -46696,12 +46940,12 @@ static const char *startup_source = " ns25_2" " mpi26_0" " phase27_1)))" -"(if(void? sym_84)" +"(if(void? sym_85)" "(let-values()" "(let-values(((ns29_0) ns_58)" "((mpi30_0) mpi_49)" -"((phase31_0) phase_143)" -"((phase32_4) phase_143))" +"((phase31_0) phase_141)" +"((phase32_4) phase_141))" "(namespace-module-visit!104.1" " phase32_4" " #t" @@ -46722,7 +46966,7 @@ static const char *startup_source = "(let-values(((binding/p_5)" "(hash-ref" "(hash-ref(module-provides m_22) 0 '#hasheq())" -" sym_84" +" sym_85" " #f)))" "(if(not binding/p_5)" "(let-values()" @@ -46731,7 +46975,7 @@ static const char *startup_source = " 'dynamic-require" " \"name is not provided\"" " \"name\"" -" sym_84" +" sym_85" " \"module\"" " mod-name_22)" "(fail-k_2)))" @@ -46746,8 +46990,8 @@ static const char *startup_source = "(begin" "(let-values(((ns33_0) ns_58)" "((mpi34_0) mpi_49)" -"((phase35_1) phase_143)" -"((phase36_0) phase_143)" +"((phase35_1) phase_141)" +"((phase36_0) phase_141)" "((temp37_2) #f))" "(namespace-module-instantiate!96.1" " temp37_2" @@ -46774,7 +47018,7 @@ static const char *startup_source = " ex-mod-name_0)" "((temp40_2)" "(phase-" -" phase_143" +" phase_141" " ex-phase_0))" "((temp41_3) #t))" "(namespace->module-namespace82.1" @@ -46832,7 +47076,7 @@ static const char *startup_source = " 'dynamic-require" " \"name is protected\"" " \"name\"" -" sym_84" +" sym_85" " \"module\"" " mod-name_22))" "(void))" @@ -46848,7 +47092,7 @@ static const char *startup_source = " 'dynamic-require" " \"name's binding is missing\"" " \"name\"" -" sym_84" +" sym_85" " \"module\"" " mod-name_22)" "(fail-k_2))))))" @@ -46871,9 +47115,9 @@ static const char *startup_source = "((mpi43_1)" " mpi_49)" "((phase44_0)" -" phase_143)" +" phase_141)" "((phase45_1)" -" phase_143))" +" phase_141))" "(namespace-module-visit!104.1" " phase45_1" " #t" @@ -46881,13 +47125,13 @@ static const char *startup_source = " mpi43_1" " phase44_0))" "(values))))" -"(let-values(((t_18)" +"(let-values(((t_19)" "(namespace-get-transformer" " m-ns_16" " ex-phase_0" " ex-sym_2" " missing_1)))" -"(if(eq? t_18 missing_1)" +"(if(eq? t_19 missing_1)" "(let-values()(fail_1))" "(let-values()" "(let-values(((tmp-ns_0)" @@ -46917,11 +47161,11 @@ static const char *startup_source = " tmp-ns_0)" "(let-values()" "(1/eval" -" sym_84" +" sym_85" " tmp-ns_0))))))))))))))))))))))))))))))))))))))))))))))))" "(case-lambda" -"((who_26 mod-path_17 sym_85)(begin(do-dynamic-require6_0 who_26 mod-path_17 sym_85 #f #f)))" -"((who_27 mod-path_18 sym_86 fail-k1_1)(do-dynamic-require6_0 who_27 mod-path_18 sym_86 fail-k1_1 #t)))))" +"((who_26 mod-path_17 sym_86)(begin(do-dynamic-require6_0 who_26 mod-path_17 sym_86 #f #f)))" +"((who_27 mod-path_18 sym_87 fail-k1_1)(do-dynamic-require6_0 who_27 mod-path_18 sym_87 fail-k1_1 #t)))))" " (define-values (default-dynamic-require-fail-thunk) (lambda () (begin (error \"failed\"))))" "(define-values" "(1/dynamic-require)" @@ -46930,14 +47174,14 @@ static const char *startup_source = "(begin" " 'dynamic-require12" "(let-values(((mod-path_19) mod-path10_2))" -"(let-values(((sym_87) sym11_0))" +"(let-values(((sym_88) sym11_0))" "(let-values(((fail-k_3)(if fail-k9_0 fail-k8_0 default-dynamic-require-fail-thunk)))" "(let-values()" "(let-values()" -"(let-values()(do-dynamic-require 'dynamic-require mod-path_19 sym_87 fail-k_3)))))))))))" +"(let-values()(do-dynamic-require 'dynamic-require mod-path_19 sym_88 fail-k_3)))))))))))" "(case-lambda" -"((mod-path_20 sym_88)(begin 'dynamic-require(dynamic-require12_0 mod-path_20 sym_88 #f #f)))" -"((mod-path_21 sym_60 fail-k8_1)(dynamic-require12_0 mod-path_21 sym_60 fail-k8_1 #t)))))" +"((mod-path_20 sym_89)(begin 'dynamic-require(dynamic-require12_0 mod-path_20 sym_89 #f #f)))" +"((mod-path_21 sym_61 fail-k8_1)(dynamic-require12_0 mod-path_21 sym_61 fail-k8_1 #t)))))" "(define-values" "(1/dynamic-require-for-syntax)" "(let-values(((dynamic-require-for-syntax18_0)" @@ -46945,7 +47189,7 @@ static const char *startup_source = "(begin" " 'dynamic-require-for-syntax18" "(let-values(((mod-path_22) mod-path16_0))" -"(let-values(((sym_89) sym17_1))" +"(let-values(((sym_90) sym17_1))" "(let-values(((fail-k_4)(if fail-k15_0 fail-k14_0 default-dynamic-require-fail-thunk)))" "(let-values()" "(let-values()" @@ -46961,12 +47205,12 @@ static const char *startup_source = "(do-dynamic-require" " 'dynamic-require-for-syntax" " mod-path_22" -" sym_89" +" sym_90" " fail-k_4)))))))))))))" "(case-lambda" -"((mod-path_23 sym_90)" -"(begin 'dynamic-require-for-syntax(dynamic-require-for-syntax18_0 mod-path_23 sym_90 #f #f)))" -"((mod-path_24 sym_91 fail-k14_1)(dynamic-require-for-syntax18_0 mod-path_24 sym_91 fail-k14_1 #t)))))" +"((mod-path_23 sym_91)" +"(begin 'dynamic-require-for-syntax(dynamic-require-for-syntax18_0 mod-path_23 sym_91 #f #f)))" +"((mod-path_24 sym_92 fail-k14_1)(dynamic-require-for-syntax18_0 mod-path_24 sym_92 fail-k14_1 #t)))))" " (define-values (replace-me) (lambda (who_0) (begin (lambda args_6 (error who_0 \"this stub must be replaced\")))))" "(define-values" "(1/current-eval)" @@ -47044,29 +47288,29 @@ static const char *startup_source = "(if(list? l_76)" "(andmap2" "(lambda(p_55)" -"(let-values(((or-part_287)(not p_55)))" -"(if or-part_287" -" or-part_287" -"(let-values(((or-part_288)(complete-path-string? p_55)))" -"(if or-part_288" -" or-part_288" +"(let-values(((or-part_293)(not p_55)))" +"(if or-part_293" +" or-part_293" +"(let-values(((or-part_294)(complete-path-string? p_55)))" +"(if or-part_294" +" or-part_294" "(if(hash? p_55)" -"(let-values(((ht_151) p_55))" +"(let-values(((ht_152) p_55))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_151)))" +"(let-values()(check-in-hash ht_152)))" "((letrec-values(((for-loop_190)" -"(lambda(result_120 i_89)" +"(lambda(result_121 i_90)" "(begin" " 'for-loop" -"(if i_89" +"(if i_90" "(let-values(((k_35 v_3)" -"(hash-iterate-key+value ht_151 i_89)))" -"(let-values(((result_121)" -"(let-values()" +"(hash-iterate-key+value ht_152 i_90)))" "(let-values(((result_122)" "(let-values()" +"(let-values(((result_123)" +"(let-values()" "(let-values()" "(if(let-values(((or-part_80)" "(not" @@ -47084,18 +47328,18 @@ static const char *startup_source = " v_3)" " #f)" " #f)))))" -"(values result_122)))))" -"(if(if(not((lambda x_80(not result_121)) k_35 v_3))" +"(values result_123)))))" +"(if(if(not((lambda x_82(not result_122)) k_35 v_3))" "(not #f)" " #f)" "(for-loop_190" -" result_121" -"(hash-iterate-next ht_151 i_89))" -" result_121)))" -" result_120)))))" +" result_122" +"(hash-iterate-next ht_152 i_90))" +" result_122)))" +" result_121)))))" " for-loop_190)" " #t" -"(hash-iterate-first ht_151))))" +"(hash-iterate-first ht_152))))" " #f))))))" " l_76)" " #f))" @@ -47119,22 +47363,22 @@ static const char *startup_source = "(if(string? p_3)" "(let-values()(string->path p_3))" "(let-values()" -"(let-values(((ht_152) p_3))" +"(let-values(((ht_153) p_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_152)))" +"(let-values()(check-in-hash ht_153)))" "((letrec-values(((for-loop_275)" -"(lambda(table_216 i_90)" +"(lambda(table_216 i_91)" "(begin" " 'for-loop" -"(if i_90" -"(let-values(((k_36 v_203)(hash-iterate-key+value ht_152 i_90)))" +"(if i_91" +"(let-values(((k_36 v_203)(hash-iterate-key+value ht_153 i_91)))" "(let-values(((table_217)" "(let-values(((table_185) table_216))" "(let-values(((table_218)" "(let-values()" -"(let-values(((key_83 val_79)" +"(let-values(((key_83 val_80)" "(let-values()" "(values" " k_36" @@ -47142,15 +47386,15 @@ static const char *startup_source = "(hash-set" " table_185" " key_83" -" val_79)))))" +" val_80)))))" "(values table_218)))))" "(if(not #f)" -"(for-loop_275 table_217(hash-iterate-next ht_152 i_90))" +"(for-loop_275 table_217(hash-iterate-next ht_153 i_91))" " table_217)))" " table_216)))))" " for-loop_275)" " '#hash()" -"(hash-iterate-first ht_152)))))))))" +"(hash-iterate-first ht_153)))))))))" " l_8)))))))" "(define-values" "(1/use-compiled-file-paths)" @@ -47237,45 +47481,45 @@ static const char *startup_source = "(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)" +"(lambda(p_31 thunk_6)" "(begin" -"(let-values(((base_18 name_62 dir?_2)(split-path p_31)))" +"(let-values(((base_18 name_63 dir?_2)(split-path p_31)))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " current-load-relative-directory" "(if(eq? base_18 'relative)(current-directory)(path->complete-path base_18)))" -"(let-values()(thunk_4)))))))" +"(let-values()(thunk_6)))))))" "(define-values" "(1/load/use-compiled)" -"(lambda(f_25)" +"(lambda(f_27)" "(begin" " 'load/use-compiled" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(path-string? f_25)" +"(if(path-string? f_27)" "(void)" -" (let-values () (raise-argument-error 'load/use-compiled \"path-string?\" f_25)))" +" (let-values () (raise-argument-error 'load/use-compiled \"path-string?\" f_27)))" "(values))))" -"(let-values(((p_48)(->path f_25)))((1/current-load/use-compiled) p_48 #f))))))))" +"(let-values(((p_48)(->path f_27)))((1/current-load/use-compiled) p_48 #f))))))))" "(define-values" "(embedded-load)" "(lambda(start_42 end_32 str_24 as-predefined?_0)" "(begin" -"(let-values(((s_170)" +"(let-values(((s_173)" "(if str_24" " str_24" "(let-values(((sp_0)(find-system-path 'exec-file)))" "(let-values(((exe_0)(find-executable-path sp_0 #f)))" "(let-values(((start_43)" -"(let-values(((or-part_288)(1/string->number start_42)))" -"(if or-part_288 or-part_288 0))))" -"(let-values(((end_33)" -"(let-values(((or-part_294)(1/string->number end_32)))" +"(let-values(((or-part_294)(1/string->number start_42)))" "(if or-part_294 or-part_294 0))))" +"(let-values(((end_33)" +"(let-values(((or-part_300)(1/string->number end_32)))" +"(if or-part_300 or-part_300 0))))" "(let-values(((exe4_0) exe_0)" "((temp5_5)" "(lambda()" @@ -47285,8 +47529,8 @@ static const char *startup_source = "(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_170)))" -"((letrec-values(((loop_66)" +"(let-values(((p_62)(open-input-bytes s_173)))" +"((letrec-values(((loop_68)" "(lambda()" "(begin" " 'loop" @@ -47315,8 +47559,8 @@ static const char *startup_source = " current-module-declare-as-predefined" " as-predefined?_0)" "(let-values()((1/current-eval) e_77)))" -"(loop_66)))))))))" -" loop_66)))))))" +"(loop_68)))))))))" +" loop_68)))))))" "(define-values(->path)(lambda(s_77)(begin(if(string? s_77)(string->path s_77) s_77))))" "(define-values" "(find-main-collects)" @@ -47338,7 +47582,7 @@ 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_63 dir?_3)(split-path exec_0)))" +"(let-values(((base_19 name_64 dir?_3)(split-path exec_0)))" "(simplify-path(path->complete-path collects-path_0 base_19)))))" "(let-values()" "(let-values(((p_61)(find-executable-path(find-system-path 'exec-file) collects-path_0 #t)))" @@ -47346,12 +47590,12 @@ static const char *startup_source = "(define-values(relative-path-string?)(lambda(s_0)(begin(if(path-string? s_0)(relative-path? s_0) #f))))" "(define-values" "(check-collection)" -"(lambda(who_28 s_187 l_4)" +"(lambda(who_28 s_190 l_4)" "(begin" "(begin" -"(if(relative-path-string? s_187)" +"(if(relative-path-string? s_190)" "(void)" -" (let-values () (raise-argument-error who_28 \"(and/c path-string? relative-path?)\" s_187)))" +" (let-values () (raise-argument-error who_28 \"(and/c path-string? relative-path?)\" s_190)))" "(if((lambda(l_2)(if(list? l_2)(andmap2 relative-path-string? l_2) #f)) l_4)" "(void)" " (let-values () (raise-argument-error who_28 \"(listof (and/c path-string? relative-path?))\" l_4)))))))" @@ -47393,7 +47637,7 @@ static const char *startup_source = "(lambda(d_33)" "(begin" " (let-values (((p_63) (if d_33 (build-path d_33 \"config.rktd\") #f)))" -"(let-values(((or-part_286)" +"(let-values(((or-part_292)" "(if p_63" "(if(file-exists? p_63)" "(let-values(((p9_0) p_63)" @@ -47406,7 +47650,7 @@ static const char *startup_source = "(with-input-from-file45.1 #f #f p9_0 temp10_4))" " #f)" " #f)))" -"(if or-part_286 or-part_286 '#hash()))))))" +"(if or-part_292 or-part_292 '#hash()))))))" "(define-values" "(get-installation-name)" "(lambda(config-table_0)(begin(hash-ref config-table_0 'installation-name(version)))))" @@ -47431,20 +47675,20 @@ static const char *startup_source = "(let-values(((or-part_75)(find-main-collects)))(if or-part_75 or-part_75(current-directory)))))))))" "(define-values" "(add-config-search)" -"(lambda(ht_153 key_84 orig-l_9)" +"(lambda(ht_154 key_84 orig-l_9)" "(begin" -"(let-values(((l_80)(hash-ref ht_153 key_84 #f)))" +"(let-values(((l_80)(hash-ref ht_154 key_84 #f)))" "(if l_80" -"((letrec-values(((loop_101)" +"((letrec-values(((loop_104)" "(lambda(l_81)" "(begin" " 'loop" "(if(null? l_81)" "(let-values() null)" "(if(not(car l_81))" -"(let-values()(append orig-l_9(loop_101(cdr l_81))))" -"(let-values()(cons(coerce-to-path(car l_81))(loop_101(cdr l_81))))))))))" -" loop_101)" +"(let-values()(append orig-l_9(loop_104(cdr l_81))))" +"(let-values()(cons(coerce-to-path(car l_81))(loop_104(cdr l_81))))))))))" +" loop_104)" " l_80)" " orig-l_9)))))" "(define-values" @@ -47452,22 +47696,22 @@ static const char *startup_source = "(lambda()" "(begin" " 'find-library-collection-links" -"(let-values(((ht_154)(get-config-table(find-main-config))))" +"(let-values(((ht_155)(get-config-table(find-main-config))))" "(let-values(((lf_0)" "(coerce-to-path" -"(let-values(((or-part_83)(hash-ref ht_154 'links-file #f)))" +"(let-values(((or-part_83)(hash-ref ht_155 'links-file #f)))" "(if or-part_83" " or-part_83" "(build-path" -"(let-values(((or-part_84)(hash-ref ht_154 'share-dir #f)))" +"(let-values(((or-part_84)(hash-ref ht_155 'share-dir #f)))" " (if or-part_84 or-part_84 (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_154) \"links.rktd\"))" +" (list (build-path (find-system-path 'addon-dir) (get-installation-name ht_155) \"links.rktd\"))" " null)" -"(if(1/use-collection-link-paths)(add-config-search ht_154 'links-search-files(list lf_0)) null)))))))" +"(if(1/use-collection-link-paths)(add-config-search ht_155 '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" @@ -47480,24 +47724,24 @@ static const char *startup_source = "(call-with-continuation-prompt" "(lambda()" "(call-with-exception-handler" -"(lambda(exn_0)" +"(lambda(exn_1)" "(abort-current-continuation" " stamp-prompt-tag" -"(if(exn:fail:filesystem? exn_0)(lambda() #f)(lambda()(raise exn_0)))))" +"(if(exn:fail:filesystem? exn_1)(lambda() #f)(lambda()(raise exn_1)))))" "(lambda()" "(let-values(((dir-evt_0)" "(if(vector-ref(system-type 'fs-change) 2)" -"((letrec-values(((loop_60)" +"((letrec-values(((loop_62)" "(lambda(path_8)" "(begin" " 'loop" -"(let-values(((base_20 name_64 dir?_4)(split-path path_8)))" +"(let-values(((base_20 name_65 dir?_4)(split-path path_8)))" "(if(path? base_20)" "(if(directory-exists? base_20)" "(filesystem-change-evt base_20(lambda() #f))" -"(loop_60 base_20))" +"(loop_62 base_20))" " #f))))))" -" loop_60)" +" loop_62)" " path_7)" " #f)))" "(if(not(file-exists? path_7))" @@ -47526,13 +47770,13 @@ static const char *startup_source = " bytes-append" "(cons" " bstr_1" -"((letrec-values(((loop_102)" +"((letrec-values(((loop_105)" "(lambda()" "(begin" " 'loop" "(let-values(((bstr_2)(read-bytes 8192 p_65)))" -"(if(eof-object? bstr_2) null(cons bstr_2(loop_102))))))))" -" loop_102))))" +"(if(eof-object? bstr_2) null(cons bstr_2(loop_105))))))))" +" loop_105))))" " bstr_1))))))" "(call-with-input-file*61.1 #f #f path11_0 temp12_3)))))" "(define-values" @@ -47548,9 +47792,9 @@ static const char *startup_source = "(lambda(ts_0)" "(begin" " 'make-handler" -"(lambda(exn_1)" +"(lambda(exn_2)" "(begin" -"(if(exn:fail? exn_1)" +"(if(exn:fail? exn_2)" "(let-values(((l_82)(current-logger)))" "(if(log-level? l_82 'error)" "(let-values()" @@ -47560,14 +47804,14 @@ static const char *startup_source = "(format" " \"error reading collection links file ~s: ~a\"" " links-path_0" -"(exn-message exn_1))" +"(exn-message exn_2))" "(current-continuation-marks)))" "(void)))" "(void))" "(if ts_0" "(let-values()(hash-set! links-cache links-path_0(cons ts_0 '#hasheq())))" "(void))" -"(if(exn:fail? exn_1)(esc_1(make-hasheq)) exn_1)))))))" +"(if(exn:fail? exn_2)(esc_1(make-hasheq)) exn_2)))))))" "(call-with-exception-handler" "(make-handler_0 #f)" "(lambda()" @@ -47603,19 +47847,19 @@ static const char *startup_source = "(andmap2" "(lambda(p_67)" "(if(list? p_67)" -"(if(let-values(((or-part_297)(= 2(length p_67))))" -"(if or-part_297 or-part_297(= 3(length p_67))))" -"(if(let-values(((or-part_298)(string?(car p_67))))" -"(if or-part_298" -" or-part_298" -"(let-values(((or-part_216)" +"(if(let-values(((or-part_286)(= 2(length p_67))))" +"(if or-part_286 or-part_286(= 3(length p_67))))" +"(if(let-values(((or-part_303)(string?(car p_67))))" +"(if or-part_303" +" or-part_303" +"(let-values(((or-part_218)" "(eq? 'root(car p_67))))" -"(if or-part_216" -" or-part_216" +"(if or-part_218" +" or-part_218" "(eq? 'static-root(car p_67))))))" "(if(path-string?(cadr p_67))" -"(let-values(((or-part_217)(null?(cddr p_67))))" -"(if or-part_217 or-part_217(regexp?(caddr p_67))))" +"(let-values(((or-part_219)(null?(cddr p_67))))" +"(if or-part_219 or-part_219(regexp?(caddr p_67))))" " #f)" " #f)" " #f)" @@ -47625,15 +47869,15 @@ static const char *startup_source = "(void)" " (let-values () (error \"ill-formed content\")))" "(values))))" -"(let-values(((ht_155)(make-hasheq)))" +"(let-values(((ht_156)(make-hasheq)))" "(let-values(((dir_0)" -"(let-values(((base_21 name_65 dir?_5)(split-path links-path_0)))" +"(let-values(((base_21 name_66 dir?_5)(split-path links-path_0)))" " base_21)))" "(begin" "(for-each2" "(lambda(p_68)" -"(if(let-values(((or-part_299)(null?(cddr p_68))))" -"(if or-part_299 or-part_299(regexp-match?(caddr p_68)(version))))" +"(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_68) dir_0))))" @@ -47645,34 +47889,34 @@ static const char *startup_source = "(let-values()" "(let-values(((k_37)(string->symbol(path->string sub_1))))" "(hash-set!" -" ht_155" +" ht_156" " k_37" -"(cons dir_1(hash-ref ht_155 k_37 null)))))" +"(cons dir_1(hash-ref ht_156 k_37 null)))))" "(void)))" "(directory-list dir_1)))" "(if(eq?(car p_68) 'root)" "(let-values()" "(begin" -"(if(hash-ref ht_155 #f #f)" +"(if(hash-ref ht_156 #f #f)" "(void)" -"(let-values()(hash-set! ht_155 #f null)))" +"(let-values()(hash-set! ht_156 #f null)))" "(hash-for-each" -" ht_155" +" ht_156" "(lambda(k_38 v_207)" -"(hash-set! ht_155 k_38(cons dir_1 v_207))))))" +"(hash-set! ht_156 k_38(cons dir_1 v_207))))))" "(let-values()" -"(let-values(((s_482)(string->symbol(car p_68))))" +"(let-values(((s_483)(string->symbol(car p_68))))" "(hash-set!" -" ht_155" -" s_482" -"(cons(box dir_1)(hash-ref ht_155 s_482 null)))))))))" +" ht_156" +" s_483" +"(cons(box dir_1)(hash-ref ht_156 s_483 null)))))))))" "(void)))" " v_206)" "(hash-for-each" -" ht_155" -"(lambda(k_39 v_208)(hash-set! ht_155 k_39(reverse$1 v_208))))" -"(hash-set! links-cache links-path_0(cons ts_1 ht_155))" -" ht_155))))))))))))))))))))))" +" ht_156" +"(lambda(k_39 v_208)(hash-set! ht_156 k_39(reverse$1 v_208))))" +"(hash-set! links-cache links-path_0(cons ts_1 ht_156))" +" ht_156))))))))))))))))))))))" "(define-values" "(normalize-collection-reference)" "(lambda(collection_2 collection-path_2)" @@ -47689,10 +47933,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_66 dir?_6)(split-path collection_2)))" +"(let-values(((base_22 name_67 dir?_6)(split-path collection_2)))" "(if(eq? base_22 'relative)" -"(values name_66 collection-path_2)" -"(normalize-collection-reference base_22(cons name_66 collection-path_2)))))))))" +"(values name_67 collection-path_2)" +"(normalize-collection-reference base_22(cons name_67 collection-path_2)))))))))" "(define-values" "(find-col-file)" "(lambda(fail_5 collection-in_0 collection-path-in_0 file-name_1 check-compiled?_1)" @@ -47700,10 +47944,10 @@ static const char *startup_source = "(let-values(((collection_3 collection-path_3)" "(normalize-collection-reference collection-in_0 collection-path-in_0)))" "(let-values(((all-paths_0)" -"(let-values(((sym_92)" +"(let-values(((sym_93)" "(string->symbol" "(if(path? collection_3)(path->string collection_3) collection_3))))" -"((letrec-values(((loop_103)" +"((letrec-values(((loop_106)" "(lambda(l_83)" "(begin" " 'loop" @@ -47711,20 +47955,20 @@ static const char *startup_source = "(let-values() null)" "(if(not(car l_83))" "(let-values()" -"(append(1/current-library-collection-paths)(loop_103(cdr l_83))))" +"(append(1/current-library-collection-paths)(loop_106(cdr l_83))))" "(if(hash?(car l_83))" "(let-values()" "(append" -"(map2 box(hash-ref(car l_83) sym_92 null))" +"(map2 box(hash-ref(car l_83) sym_93 null))" "(hash-ref(car l_83) #f null)" -"(loop_103(cdr l_83))))" +"(loop_106(cdr l_83))))" "(let-values()" -"(let-values(((ht_156)(get-linked-collections(car l_83))))" +"(let-values(((ht_157)(get-linked-collections(car l_83))))" "(append" -"(hash-ref ht_156 sym_92 null)" -"(hash-ref ht_156 #f null)" -"(loop_103(cdr l_83))))))))))))" -" loop_103)" +"(hash-ref ht_157 sym_93 null)" +"(hash-ref ht_157 #f null)" +"(loop_106(cdr l_83))))))))))))" +" loop_106)" "(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)" @@ -47760,14 +48004,14 @@ static const char *startup_source = " loop_49)" " collection-path_3)))))" "(letrec-values(((filter_1)" -"(lambda(f_38 l_29)" +"(lambda(f_40 l_29)" "(begin" " 'filter" "(if(null? l_29)" " null" -"(if(f_38(car l_29))" -"(cons(car l_29)(filter_1 f_38(cdr l_29)))" -"(filter_1 f_38(cdr l_29))))))))" +"(if(f_40(car l_29))" +"(cons(car l_29)(filter_1 f_40(cdr l_29)))" +"(filter_1 f_40(cdr l_29))))))))" "(fail_5" "(format" " \"collection not found\\n collection: ~s\\n in collection directories:~a~a\"" @@ -47853,9 +48097,9 @@ static const char *startup_source = "(file-exists?/maybe-compiled)" "(lambda(dir_3 path_10 check-compiled?_2)" "(begin" -"(let-values(((or-part_300)(file-exists?(build-path dir_3 path_10))))" -"(if or-part_300" -" or-part_300" +"(let-values(((or-part_100)(file-exists?(build-path dir_3 path_10))))" +"(if or-part_100" +" or-part_100" "(if check-compiled?_2" " (let-values (((try-path_0) (path-add-extension path_10 #\".zo\"))" "((modes_0)(1/use-compiled-file-paths))" @@ -47863,9 +48107,9 @@ static const char *startup_source = "(ormap2" "(lambda(d_34)" "(ormap2" -"(lambda(mode_15)" +"(lambda(mode_16)" "(file-exists?" -"(let-values(((p_73)(build-path dir_3 mode_15 try-path_0)))" +"(let-values(((p_73)(build-path dir_3 mode_16 try-path_0)))" "(if(eq? d_34 'same)" "(let-values() p_73)" "(if(relative-path? d_34)" @@ -47885,7 +48129,7 @@ static const char *startup_source = "(let-values()" "(let-values(((user-too?_0)(1/use-user-specific-search-paths))" "((cons-if_0)" -"(lambda(f_39 r_44)(begin 'cons-if(if f_39(cons f_39 r_44) r_44))))" +"(lambda(f_41 r_45)(begin 'cons-if(if f_41(cons f_41 r_45) r_45))))" "((config-table_1)(get-config-table(find-main-config))))" "(path-list-string->path-list" "(if user-too?_0" @@ -47905,7 +48149,7 @@ static const char *startup_source = "(get-installation-name config-table_1)" " \"collects\")" " #f)" -"((letrec-values(((loop_84)" +"((letrec-values(((loop_87)" "(lambda(l_84)" "(begin" " 'loop" @@ -47919,9 +48163,9 @@ static const char *startup_source = "(cons" "(simplify-path" "(path->complete-path v_209(current-directory)))" -"(loop_84(cdr l_84)))" -"(loop_84(cdr l_84))))))))))" -" loop_84)" +"(loop_87(cdr l_84)))" +"(loop_87(cdr l_84))))))))))" +" loop_87)" "(append" " extra-collects-dirs_0" "(list(find-system-path 'collects-dir))" @@ -47940,8 +48184,8 @@ static const char *startup_source = " #f" "(lambda(v_210)" "(begin" -"(if((lambda(x_81)" -"(let-values(((or-part_11)(not x_81)))(if or-part_11 or-part_11(prop:readtable? x_81))))" +"(if((lambda(x_83)" +"(let-values(((or-part_11)(not x_83)))(if or-part_11 or-part_11(prop:readtable? x_83))))" " v_210)" "(void)" " (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_210)))" @@ -47957,7 +48201,7 @@ static const char *startup_source = " read-config/outer-pos" " read-config/outer-indentations" " read-config/outer-keep-comment?)" -"(let-values(((struct:_34 make-_34 ?_34 -ref_34 -set!_34)" +"(let-values(((struct:_35 make-_35 ?_35 -ref_35 -set!_35)" "(let-values()" "(let-values()" "(make-struct-type" @@ -47973,16 +48217,16 @@ static const char *startup_source = " #f" " 'read-config/outer)))))" "(values" -" struct:_34" -" make-_34" -" ?_34" -"(make-struct-field-accessor -ref_34 0 'inner)" -"(make-struct-field-accessor -ref_34 1 'wrap)" -"(make-struct-field-accessor -ref_34 2 'line)" -"(make-struct-field-accessor -ref_34 3 'col)" -"(make-struct-field-accessor -ref_34 4 'pos)" -"(make-struct-field-accessor -ref_34 5 'indentations)" -"(make-struct-field-accessor -ref_34 6 'keep-comment?))))" +" struct:_35" +" make-_35" +" ?_35" +"(make-struct-field-accessor -ref_35 0 'inner)" +"(make-struct-field-accessor -ref_35 1 'wrap)" +"(make-struct-field-accessor -ref_35 2 'line)" +"(make-struct-field-accessor -ref_35 3 'col)" +"(make-struct-field-accessor -ref_35 4 'pos)" +"(make-struct-field-accessor -ref_35 5 'indentations)" +"(make-struct-field-accessor -ref_35 6 'keep-comment?))))" "(define-values" "(struct:read-config/inner" " read-config/inner2.1" @@ -47999,7 +48243,7 @@ static const char *startup_source = " read-config/inner-parameter-override" " read-config/inner-parameter-cache" " read-config/inner-st)" -"(let-values(((struct:_78 make-_78 ?_78 -ref_78 -set!_78)" +"(let-values(((struct:_79 make-_79 ?_79 -ref_79 -set!_79)" "(let-values()" "(let-values()" "(make-struct-type" @@ -48015,21 +48259,21 @@ static const char *startup_source = " #f" " 'read-config/inner)))))" "(values" -" struct:_78" -" make-_78" -" ?_78" -"(make-struct-field-accessor -ref_78 0 'readtable)" -"(make-struct-field-accessor -ref_78 1 'next-readtable)" -"(make-struct-field-accessor -ref_78 2 'for-syntax?)" -"(make-struct-field-accessor -ref_78 3 'source)" -"(make-struct-field-accessor -ref_78 4 'read-compiled)" -"(make-struct-field-accessor -ref_78 5 'dynamic-require)" -"(make-struct-field-accessor -ref_78 6 'module-declared?)" -"(make-struct-field-accessor -ref_78 7 'coerce)" -"(make-struct-field-accessor -ref_78 8 'coerce-key)" -"(make-struct-field-accessor -ref_78 9 'parameter-override)" -"(make-struct-field-accessor -ref_78 10 'parameter-cache)" -"(make-struct-field-accessor -ref_78 11 'st))))" +" struct:_79" +" make-_79" +" ?_79" +"(make-struct-field-accessor -ref_79 0 'readtable)" +"(make-struct-field-accessor -ref_79 1 'next-readtable)" +"(make-struct-field-accessor -ref_79 2 'for-syntax?)" +"(make-struct-field-accessor -ref_79 3 'source)" +"(make-struct-field-accessor -ref_79 4 'read-compiled)" +"(make-struct-field-accessor -ref_79 5 'dynamic-require)" +"(make-struct-field-accessor -ref_79 6 'module-declared?)" +"(make-struct-field-accessor -ref_79 7 'coerce)" +"(make-struct-field-accessor -ref_79 8 'coerce-key)" +"(make-struct-field-accessor -ref_79 9 'parameter-override)" +"(make-struct-field-accessor -ref_79 10 'parameter-cache)" +"(make-struct-field-accessor -ref_79 11 'st))))" "(define-values" "(read-config/make)" "(lambda(readtable_0" @@ -48044,7 +48288,7 @@ static const char *startup_source = " coerce-key_0" " line_1" " col_0" -" pos_108" +" pos_106" " indentations_0" " keep-comment?_0" " parameter-override_0" @@ -48068,7 +48312,7 @@ static const char *startup_source = " wrap_3" " line_1" " col_0" -" pos_108" +" pos_106" " indentations_0" " keep-comment?_0))))" "(define-values(read-config-wrap)(lambda(v_25)(begin(read-config/outer-wrap v_25))))" @@ -48089,24 +48333,26 @@ static const char *startup_source = "(define-values(read-config-source)(lambda(v_73)(begin(read-config/inner-source(read-config/outer-inner v_73)))))" "(define-values" "(read-config-read-compiled)" -"(lambda(v_188)(begin(read-config/inner-read-compiled(read-config/outer-inner v_188)))))" +"(lambda(v_189)(begin(read-config/inner-read-compiled(read-config/outer-inner v_189)))))" "(define-values" "(read-config-dynamic-require)" "(lambda(v_219)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_219)))))" "(define-values" "(read-config-module-declared?)" "(lambda(v_220)(begin(read-config/inner-module-declared?(read-config/outer-inner v_220)))))" -"(define-values(read-config-coerce)(lambda(v_80)(begin(read-config/inner-coerce(read-config/outer-inner v_80)))))" +"(define-values" +"(read-config-coerce)" +"(lambda(v_221)(begin(read-config/inner-coerce(read-config/outer-inner v_221)))))" "(define-values" "(read-config-coerce-key)" -"(lambda(v_221)(begin(read-config/inner-coerce-key(read-config/outer-inner v_221)))))" +"(lambda(v_222)(begin(read-config/inner-coerce-key(read-config/outer-inner v_222)))))" "(define-values" "(read-config-parameter-override)" "(lambda(v_209)(begin(read-config/inner-parameter-override(read-config/outer-inner v_209)))))" "(define-values" "(read-config-parameter-cache)" -"(lambda(v_222)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_222)))))" -"(define-values(read-config-st)(lambda(v_223)(begin(read-config/inner-st(read-config/outer-inner v_223)))))" +"(lambda(v_223)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_223)))))" +"(define-values(read-config-st)(lambda(v_224)(begin(read-config/inner-st(read-config/outer-inner v_224)))))" "(define-values" "(struct:read-config-state" " read-config-state3.1" @@ -48115,7 +48361,7 @@ static const char *startup_source = " read-config-state-graph" " set-read-config-state-accum-str!" " set-read-config-state-graph!)" -"(let-values(((struct:_79 make-_79 ?_79 -ref_79 -set!_79)" +"(let-values(((struct:_80 make-_80 ?_80 -ref_80 -set!_80)" "(let-values()" "(let-values()" "(make-struct-type" @@ -48131,13 +48377,13 @@ static const char *startup_source = " #f" " 'read-config-state)))))" "(values" -" struct:_79" -" make-_79" -" ?_79" -"(make-struct-field-accessor -ref_79 0 'accum-str)" -"(make-struct-field-accessor -ref_79 1 'graph)" -"(make-struct-field-mutator -set!_79 0 'accum-str)" -"(make-struct-field-mutator -set!_79 1 'graph))))" +" struct:_80" +" make-_80" +" ?_80" +"(make-struct-field-accessor -ref_80 0 'accum-str)" +"(make-struct-field-accessor -ref_80 1 'graph)" +"(make-struct-field-mutator -set!_80 0 'accum-str)" +"(make-struct-field-mutator -set!_80 1 'graph))))" "(define-values(current-read-config)(make-parameter #f))" "(define-values" "(make-read-config26.1)" @@ -48188,16 +48434,16 @@ static const char *startup_source = "(let-values(((or-part_91) dynamic-require_1))" "(if or-part_91" " or-part_91" -"(lambda(mod-path_25 sym_93 failure-k_0)" +"(lambda(mod-path_25 sym_94 failure-k_0)" " (error 'read \"no `dynamic-require` provided\"))))" -"(let-values(((or-part_301) module-declared?_1))" -"(if or-part_301" -" or-part_301" +"(let-values(((or-part_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_212) coerce_1))" -"(if or-part_212 or-part_212(lambda(for-syntax?_2 v_107 srcloc_9) v_107)))" -"(let-values(((or-part_302) coerce-key_1))" -"(if or-part_302 or-part_302(lambda(for-syntax?_3 v_111) v_111)))" +"(let-values(((or-part_101) coerce_1))" +"(if or-part_101 or-part_101(lambda(for-syntax?_2 v_107 srcloc_9) v_107)))" +"(let-values(((or-part_102) coerce-key_1))" +"(if or-part_102 or-part_102(lambda(for-syntax?_3 v_111) v_111)))" " #f" " #f" " #f" @@ -48227,14 +48473,14 @@ static const char *startup_source = "(let-values(((local-graph?_0) reset-graph?33_0))" "(let-values(((keep-comment?_2) keep-comment?34_0))" "(let-values()" -"(let-values(((v_224) config_0))" -"(let-values(((the-struct_78) v_224))" -"(if(read-config/outer? the-struct_78)" +"(let-values(((v_225) config_0))" +"(let-values(((the-struct_77) v_225))" +"(if(read-config/outer? the-struct_77)" "(let-values(((wrap55_0) wrap_5)" "((keep-comment?56_0) keep-comment?_2)" "((inner57_0)" -"(let-values(((the-struct_79)(read-config/outer-inner v_224)))" -"(if(read-config/inner? the-struct_79)" +"(let-values(((the-struct_78)(read-config/outer-inner v_225)))" +"(if(read-config/inner? the-struct_78)" "(let-values(((for-syntax?58_0) for-syntax?_4)" "((readtable59_0) readtable_2)" "((next-readtable60_0) next-readtable_2)" @@ -48246,25 +48492,25 @@ static const char *startup_source = " readtable59_0" " next-readtable60_0" " for-syntax?58_0" -"(read-config/inner-source the-struct_79)" -"(read-config/inner-read-compiled the-struct_79)" -"(read-config/inner-dynamic-require the-struct_79)" -"(read-config/inner-module-declared? the-struct_79)" -"(read-config/inner-coerce the-struct_79)" -"(read-config/inner-coerce-key the-struct_79)" -"(read-config/inner-parameter-override the-struct_79)" -"(read-config/inner-parameter-cache the-struct_79)" +"(read-config/inner-source the-struct_78)" +"(read-config/inner-read-compiled the-struct_78)" +"(read-config/inner-dynamic-require the-struct_78)" +"(read-config/inner-module-declared? the-struct_78)" +"(read-config/inner-coerce the-struct_78)" +"(read-config/inner-coerce-key the-struct_78)" +"(read-config/inner-parameter-override the-struct_78)" +"(read-config/inner-parameter-cache the-struct_78)" " st61_0))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_79)))))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_78)))))" "(read-config/outer1.1" " inner57_0" " wrap55_0" -"(read-config/outer-line the-struct_78)" -"(read-config/outer-col the-struct_78)" -"(read-config/outer-pos the-struct_78)" -"(read-config/outer-indentations the-struct_78)" +"(read-config/outer-line the-struct_77)" +"(read-config/outer-col the-struct_77)" +"(read-config/outer-pos the-struct_77)" +"(read-config/outer-indentations the-struct_77)" " keep-comment?56_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_78)))))))))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_77)))))))))))))))" "(define-values" "(port+config->srcloc49.1)" "(lambda(end-pos45_0 end-pos46_0 in47_0 config48_0)" @@ -48275,16 +48521,16 @@ static const char *startup_source = "(let-values(((given-end-pos_0)(if end-pos46_0 end-pos45_0 #f)))" "(let-values()" "(let-values(((end-pos_0)" -"(let-values(((or-part_303) given-end-pos_0))" -"(if or-part_303" -" or-part_303" +"(let-values(((or-part_306) given-end-pos_0))" +"(if or-part_306" +" or-part_306" "(let-values(((end-line_0 end-col_0 end-pos_1)(port-next-location in_1)))" " end-pos_1)))))" "(srcloc" "(let-values(((or-part_174)(read-config-source config_1)))" "(if or-part_174" " or-part_174" -" (let-values (((or-part_304) (object-name in_1))) (if or-part_304 or-part_304 \"UNKNOWN\"))))" +" (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)" @@ -48293,58 +48539,58 @@ static const char *startup_source = " #f))))))))))" "(define-values" "(reading-at)" -"(lambda(config_2 line_2 col_1 pos_109)" +"(lambda(config_2 line_2 col_1 pos_107)" "(begin" -"(let-values(((v_225) config_2))" -"(let-values(((the-struct_80) v_225))" -"(if(read-config/outer? the-struct_80)" +"(let-values(((v_226) config_2))" +"(let-values(((the-struct_79) v_226))" +"(if(read-config/outer? the-struct_79)" "(let-values(((line62_0) line_2)" "((col63_0) col_1)" -"((pos64_0) pos_109)" -"((inner65_0)(read-config/outer-inner v_225)))" +"((pos64_0) pos_107)" +"((inner65_0)(read-config/outer-inner v_226)))" "(read-config/outer1.1" " inner65_0" -"(read-config/outer-wrap the-struct_80)" +"(read-config/outer-wrap the-struct_79)" " line62_0" " col63_0" " pos64_0" -"(read-config/outer-indentations the-struct_80)" -"(read-config/outer-keep-comment? the-struct_80)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_80)))))))" +"(read-config/outer-indentations the-struct_79)" +"(read-config/outer-keep-comment? the-struct_79)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_79)))))))" "(define-values" "(disable-wrapping)" "(lambda(config_3)" "(begin" -"(let-values(((v_226) config_3))" -"(let-values(((the-struct_81) v_226))" -"(if(read-config/outer? the-struct_81)" -"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_226)))" +"(let-values(((v_227) config_3))" +"(let-values(((the-struct_80) v_227))" +"(if(read-config/outer? the-struct_80)" +"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_227)))" "(read-config/outer1.1" " inner67_0" " wrap66_0" -"(read-config/outer-line the-struct_81)" -"(read-config/outer-col the-struct_81)" -"(read-config/outer-pos the-struct_81)" -"(read-config/outer-indentations the-struct_81)" -"(read-config/outer-keep-comment? the-struct_81)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_81)))))))" +"(read-config/outer-line the-struct_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)))))))" "(define-values" "(keep-comment)" "(lambda(config_4)" "(begin" -"(let-values(((v_227) config_4))" -"(let-values(((the-struct_82) v_227))" -"(if(read-config/outer? the-struct_82)" -"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_227)))" +"(let-values(((v_228) config_4))" +"(let-values(((the-struct_81) v_228))" +"(if(read-config/outer? the-struct_81)" +"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_228)))" "(read-config/outer1.1" " inner69_0" -"(read-config/outer-wrap the-struct_82)" -"(read-config/outer-line the-struct_82)" -"(read-config/outer-col the-struct_82)" -"(read-config/outer-pos the-struct_82)" -"(read-config/outer-indentations the-struct_82)" +"(read-config/outer-wrap the-struct_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)" " keep-comment?68_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_82)))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_81)))))))" "(define-values" "(discard-comment)" "(lambda(config_5)" @@ -48352,19 +48598,19 @@ static const char *startup_source = "(if(not(read-config-keep-comment? config_5))" "(let-values() config_5)" "(let-values()" -"(let-values(((v_228) config_5))" -"(let-values(((the-struct_83) v_228))" -"(if(read-config/outer? the-struct_83)" -"(let-values(((keep-comment?70_0) #f)((inner71_0)(read-config/outer-inner v_228)))" +"(let-values(((v_229) config_5))" +"(let-values(((the-struct_82) v_229))" +"(if(read-config/outer? the-struct_82)" +"(let-values(((keep-comment?70_0) #f)((inner71_0)(read-config/outer-inner v_229)))" "(read-config/outer1.1" " inner71_0" -"(read-config/outer-wrap the-struct_83)" -"(read-config/outer-line the-struct_83)" -"(read-config/outer-col the-struct_83)" -"(read-config/outer-pos the-struct_83)" -"(read-config/outer-indentations the-struct_83)" +"(read-config/outer-wrap the-struct_82)" +"(read-config/outer-line the-struct_82)" +"(read-config/outer-col the-struct_82)" +"(read-config/outer-pos the-struct_82)" +"(read-config/outer-indentations the-struct_82)" " keep-comment?70_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_83)))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_82)))))))))" "(define-values" "(next-readtable)" "(lambda(config_6)" @@ -48372,67 +48618,67 @@ static const char *startup_source = "(if(eq?(read-config-readtable config_6)(read-config-next-readtable config_6))" "(let-values() config_6)" "(let-values()" -"(let-values(((v_229) config_6))" -"(let-values(((the-struct_84) v_229))" -"(if(read-config/outer? the-struct_84)" +"(let-values(((v_230) config_6))" +"(let-values(((the-struct_83) v_230))" +"(if(read-config/outer? the-struct_83)" "(let-values(((inner72_0)" -"(let-values(((the-struct_85)(read-config/outer-inner v_229)))" -"(if(read-config/inner? the-struct_85)" +"(let-values(((the-struct_84)(read-config/outer-inner v_230)))" +"(if(read-config/inner? the-struct_84)" "(let-values(((readtable73_0)(read-config-next-readtable config_6)))" "(read-config/inner2.1" " readtable73_0" -"(read-config/inner-next-readtable the-struct_85)" -"(read-config/inner-for-syntax? the-struct_85)" -"(read-config/inner-source the-struct_85)" -"(read-config/inner-read-compiled the-struct_85)" -"(read-config/inner-dynamic-require the-struct_85)" -"(read-config/inner-module-declared? the-struct_85)" -"(read-config/inner-coerce the-struct_85)" -"(read-config/inner-coerce-key the-struct_85)" -"(read-config/inner-parameter-override the-struct_85)" -"(read-config/inner-parameter-cache the-struct_85)" -"(read-config/inner-st the-struct_85)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_85)))))" +"(read-config/inner-next-readtable the-struct_84)" +"(read-config/inner-for-syntax? the-struct_84)" +"(read-config/inner-source the-struct_84)" +"(read-config/inner-read-compiled the-struct_84)" +"(read-config/inner-dynamic-require the-struct_84)" +"(read-config/inner-module-declared? the-struct_84)" +"(read-config/inner-coerce the-struct_84)" +"(read-config/inner-coerce-key the-struct_84)" +"(read-config/inner-parameter-override the-struct_84)" +"(read-config/inner-parameter-cache the-struct_84)" +"(read-config/inner-st the-struct_84)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_84)))))" "(read-config/outer1.1" " inner72_0" -"(read-config/outer-wrap the-struct_84)" -"(read-config/outer-line the-struct_84)" -"(read-config/outer-col the-struct_84)" -"(read-config/outer-pos the-struct_84)" -"(read-config/outer-indentations the-struct_84)" -"(read-config/outer-keep-comment? the-struct_84)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_84)))))))))" +"(read-config/outer-wrap the-struct_83)" +"(read-config/outer-line the-struct_83)" +"(read-config/outer-col the-struct_83)" +"(read-config/outer-pos the-struct_83)" +"(read-config/outer-indentations the-struct_83)" +"(read-config/outer-keep-comment? the-struct_83)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_83)))))))))" "(define-values" "(coerce)" -"(lambda(val_80 in_2 config_7)" +"(lambda(val_81 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_80" +" val_81" "(if for-syntax?_5" "(let-values(((in1_0) in_2)((config2_0) config_7))(port+config->srcloc49.1 #f #f in1_0 config2_0))" " #f))))))" -"(define-values(default-reader-guard$1)(lambda(v_230)(begin 'default-reader-guard v_230)))" +"(define-values(default-reader-guard$1)(lambda(v_231)(begin 'default-reader-guard v_231)))" "(define-values" "(1/current-reader-guard)" "(make-parameter" " default-reader-guard$1" -"(lambda(v_231)" +"(lambda(v_232)" "(begin" -"(if(if(procedure? v_231)(procedure-arity-includes? v_231 1) #f)" +"(if(if(procedure? v_232)(procedure-arity-includes? v_232 1) #f)" "(void)" -" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_231)))" -" v_231))))" +" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_232)))" +" v_232))))" "(define-values(1/read-square-bracket-as-paren)(make-parameter #t(lambda(v_1)(if v_1 #t #f))))" -"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_232)(if v_232 #t #f))))" -"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_233)(if v_233 #t #f))))" +"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_233)(if v_233 #t #f))))" +"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_234)(if v_234 #t #f))))" "(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_63)(if v_63 #t #f))))" "(define-values(1/read-cdot)(make-parameter #f(lambda(v_29)(if v_29 #t #f))))" "(define-values(1/read-accept-graph)(make-parameter #t(lambda(v_64)(if v_64 #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_96)(if v_96 #t #f))))" -"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_234)(if v_234 #t #f))))" +"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_235)(if v_235 #t #f))))" "(define-values(1/read-accept-dot)(make-parameter #t(lambda(v_65)(if v_65 #t #f))))" "(define-values(1/read-accept-infix-dot)(make-parameter #t(lambda(v_30)(if v_30 #t #f))))" "(define-values(1/read-accept-quasiquote)(make-parameter #t(lambda(v_3)(if v_3 #t #f))))" @@ -48454,36 +48700,36 @@ static const char *startup_source = "(lambda(param_1 config_9 v_28)" "(begin" "(let-values(((v_95) config_9))" -"(let-values(((the-struct_86) v_95))" -"(if(read-config/outer? the-struct_86)" +"(let-values(((the-struct_85) v_95))" +"(if(read-config/outer? the-struct_85)" "(let-values(((inner1_0)" -"(let-values(((the-struct_87)(read-config/outer-inner v_95)))" -"(if(read-config/inner? the-struct_87)" +"(let-values(((the-struct_86)(read-config/outer-inner v_95)))" +"(if(read-config/inner? the-struct_86)" "(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_87)" -"(read-config/inner-next-readtable the-struct_87)" -"(read-config/inner-for-syntax? the-struct_87)" -"(read-config/inner-source the-struct_87)" -"(read-config/inner-read-compiled the-struct_87)" -"(read-config/inner-dynamic-require the-struct_87)" -"(read-config/inner-module-declared? the-struct_87)" -"(read-config/inner-coerce the-struct_87)" -"(read-config/inner-coerce-key the-struct_87)" +"(read-config/inner-readtable the-struct_86)" +"(read-config/inner-next-readtable the-struct_86)" +"(read-config/inner-for-syntax? the-struct_86)" +"(read-config/inner-source the-struct_86)" +"(read-config/inner-read-compiled the-struct_86)" +"(read-config/inner-dynamic-require the-struct_86)" +"(read-config/inner-module-declared? the-struct_86)" +"(read-config/inner-coerce the-struct_86)" +"(read-config/inner-coerce-key the-struct_86)" " parameter-override2_0" -"(read-config/inner-parameter-cache the-struct_87)" -"(read-config/inner-st the-struct_87)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_87)))))" +"(read-config/inner-parameter-cache the-struct_86)" +"(read-config/inner-st the-struct_86)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_86)))))" "(read-config/outer1.1" " inner1_0" -"(read-config/outer-wrap the-struct_86)" -"(read-config/outer-line the-struct_86)" -"(read-config/outer-col the-struct_86)" -"(read-config/outer-pos the-struct_86)" -"(read-config/outer-indentations the-struct_86)" -"(read-config/outer-keep-comment? the-struct_86)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_86)))))))" +"(read-config/outer-wrap the-struct_85)" +"(read-config/outer-line the-struct_85)" +"(read-config/outer-col the-struct_85)" +"(read-config/outer-pos the-struct_85)" +"(read-config/outer-indentations the-struct_85)" +"(read-config/outer-keep-comment? the-struct_85)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_85)))))))" "(define-values" "(force-parameters!)" "(lambda(config_10)" @@ -48568,7 +48814,7 @@ static const char *startup_source = "(if(let-values(((or-part_53)(not rt_0)))(if or-part_53 or-part_53(1/readtable? rt_0)))" "(void)" " (let-values () (raise-argument-error 'make-readtable \"(or/c readtable? #f)\" rt_0)))" -"((letrec-values(((loop_104)" +"((letrec-values(((loop_107)" "(lambda(args_8 symbol-parser_0 char-ht_0 dispatch-ht_0 delimiter-ht_0)" "(begin" " 'loop" @@ -48606,34 +48852,34 @@ static const char *startup_source = " \"expected 'non-terminating-macro after #f\"))))" "(void))" "(values))))" -"(let-values(((mode_16)(cadr args_8)))" +"(let-values(((mode_17)(cadr args_8)))" "(let-values((()" "(begin" "(if key_85" "(let-values()" -"(if(let-values(((or-part_251)" -"(eq? mode_16 'terminating-macro)))" -"(if or-part_251" -" or-part_251" -"(let-values(((or-part_252)" +"(if(let-values(((or-part_253)" +"(eq? mode_17 'terminating-macro)))" +"(if or-part_253" +" or-part_253" +"(let-values(((or-part_254)" "(eq?" -" mode_16" +" mode_17" " 'non-terminating-macro)))" -"(if or-part_252" -" or-part_252" -"(let-values(((or-part_305)" -"(eq? mode_16 'dispatch-macro)))" -"(if or-part_305" -" or-part_305" -"(char? mode_16)))))))" +"(if or-part_254" +" or-part_254" +"(let-values(((or-part_308)" +"(eq? mode_17 'dispatch-macro)))" +"(if or-part_308" +" or-part_308" +"(char? mode_17)))))))" "(void)" "(let-values()" "(raise-argument-error" " 'make-readtable" " \"(or/c 'terminating-macro 'non-terminating-macro 'dispatch-macro char?)\"" -" mode_16))))" +" mode_17))))" "(let-values()" -"(if(eq? mode_16 'non-terminating-macro)" +"(if(eq? mode_17 'non-terminating-macro)" "(void)" "(let-values()" "(raise-arguments-error" @@ -48650,7 +48896,7 @@ static const char *startup_source = " \"expected readtable or #f argument after character argument\"" " \"expected procedure argument after symbol argument\")" " \"given\"" -" mode_16))" +" mode_17))" "(void))" "(values))))" "(let-values(((target_0)(caddr args_8)))" @@ -48667,13 +48913,13 @@ static const char *startup_source = " 'make-readtable" " \"(procedure-arity-includes/c 6)\"" " target_0)))" -"(loop_104" +"(loop_107" " rest-args_0" " target_0" " char-ht_0" " dispatch-ht_0" " delimiter-ht_0)))" -"(if(eq? mode_16 'dispatch-macro)" +"(if(eq? mode_17 'dispatch-macro)" "(let-values()" "(begin" "(if(if(procedure? target_0)" @@ -48685,20 +48931,20 @@ static const char *startup_source = " 'make-readtable" " \"(procedure-arity-includes/c 6)\"" " target_0)))" -"(loop_104" +"(loop_107" " rest-args_0" " symbol-parser_0" " char-ht_0" "(hash-set dispatch-ht_0 key_85 target_0)" " delimiter-ht_0)))" -"(if(char? mode_16)" +"(if(char? mode_17)" "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_306)" +"(if(let-values(((or-part_309)" "(not target_0)))" -"(if or-part_306" -" or-part_306" +"(if or-part_309" +" or-part_309" "(1/readtable? target_0)))" "(void)" "(let-values()" @@ -48712,10 +48958,10 @@ static const char *startup_source = "(if target_0" "(hash-ref" "(readtable-char-ht target_0)" -" mode_16" +" mode_17" " #f)" " #f)))" -"(if or-part_22 or-part_22 mode_16))))" +"(if or-part_22 or-part_22 mode_17))))" "(let-values(((new-char-ht_0)" "(if actual-target_0" "(hash-set" @@ -48730,10 +48976,10 @@ static const char *startup_source = "(if target_0" "(hash-ref" "(readtable-delimiter-ht target_0)" -" mode_16" -" mode_16)" -" mode_16))))" -"(loop_104" +" mode_17" +" mode_17)" +" mode_17))))" +"(loop_107" " rest-args_0" " symbol-parser_0" " new-char-ht_0" @@ -48758,16 +49004,16 @@ static const char *startup_source = "(hash-set" " delimiter-ht_0" " key_85" -"(if(eq? mode_16 'terminating-macro)" +"(if(eq? mode_17 'terminating-macro)" " 'delimit" " 'no-delimit))))" -"(loop_104" +"(loop_107" " rest-args_0" " symbol-parser_0" " new-char-ht_1" " dispatch-ht_0" " new-delimiter-ht_1))))))))))))))))))))))" -" loop_104)" +" loop_107)" " args_7" "(if rt_0(readtable-symbol-parser rt_0) #f)" "(if rt_0(readtable-char-ht rt_0) '#hasheqv())" @@ -48784,7 +49030,7 @@ static const char *startup_source = "(lambda(c_58 config_11)" "(begin" "(let-values(((rt_2)(read-config-readtable config_11))((c_59) c_58))" -"(if(let-values(((or-part_307)(not rt_2)))(if or-part_307 or-part_307(not(char? c_59))))" +"(if(let-values(((or-part_310)(not rt_2)))(if or-part_310 or-part_310(not(char? c_59))))" "(let-values() c_59)" "(let-values()(*readtable-effective-char rt_2 c_59)))))))" "(define-values" @@ -48805,10 +49051,10 @@ static const char *startup_source = "(if rt_4(hash-ref(readtable-dispatch-ht rt_4) c_61 #f) #f))))))" "(define-values" "(readtable-apply)" -"(lambda(handler_0 c_62 in_3 config_14 line_3 col_2 pos_110)" +"(lambda(handler_0 c_62 in_3 config_14 line_3 col_2 pos_108)" "(begin" "(let-values(((for-syntax?_6)(read-config-for-syntax? config_14)))" -"(let-values(((v_235)" +"(let-values(((v_236)" "(if(not for-syntax?_6)" "(let-values()" "(with-continuation-mark" @@ -48820,7 +49066,7 @@ static const char *startup_source = "(let-values()" "(if(procedure-arity-includes? handler_0 2)" "(handler_0 c_62 in_3)" -"(handler_0 c_62 in_3 #f line_3 col_2 pos_110)))))" +"(handler_0 c_62 in_3 #f line_3 col_2 pos_108)))))" "(let-values()" "(with-continuation-mark" " parameterization-key" @@ -48829,8 +49075,8 @@ static const char *startup_source = " current-read-config" " config_14)" "(let-values()" -"(handler_0 c_62 in_3(read-config-source config_14) line_3 col_2 pos_110)))))))" -"(if(1/special-comment? v_235) v_235(coerce v_235 in_3 config_14)))))))" +"(handler_0 c_62 in_3(read-config-source config_14) line_3 col_2 pos_108)))))))" +"(if(1/special-comment? v_236) v_236(coerce v_236 in_3 config_14)))))))" "(define-values" "(1/readtable-mapping)" "(lambda(rt_5 c_63)" @@ -48863,22 +49109,22 @@ static const char *startup_source = "(readtable-equivalent-chars)" "(lambda(rt_6 c_64)" "(begin" -"(let-values(((ht_157)(readtable-char-ht rt_6)))" +"(let-values(((ht_158)(readtable-char-ht rt_6)))" "(append" -"(if(hash-ref ht_157 c_64 #f) null(list c_64))" +"(if(hash-ref ht_158 c_64 #f) null(list c_64))" "(reverse$1" -"(let-values(((ht_149) ht_157))" +"(let-values(((ht_149) ht_158))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_149)))" "((letrec-values(((for-loop_270)" -"(lambda(fold-var_82 i_173)" +"(lambda(fold-var_82 i_175)" "(begin" " 'for-loop" -"(if i_173" -"(let-values(((k_40 v_91)(hash-iterate-key+value ht_149 i_173)))" -"(let-values(((fold-var_288)" +"(if i_175" +"(let-values(((k_40 v_91)(hash-iterate-key+value ht_149 i_175)))" +"(let-values(((fold-var_290)" "(let-values(((fold-var_85) fold-var_82))" "(if(eqv? v_91 c_64)" "(let-values(((fold-var_242) fold-var_85))" @@ -48888,18 +49134,18 @@ static const char *startup_source = "(values fold-var_13)))" " fold-var_85))))" "(if(not #f)" -"(for-loop_270 fold-var_288(hash-iterate-next ht_149 i_173))" -" fold-var_288)))" +"(for-loop_270 fold-var_290(hash-iterate-next ht_149 i_175))" +" fold-var_290)))" " fold-var_82)))))" " for-loop_270)" " null" "(hash-iterate-first ht_149))))))))))" "(define-values" "(struct:special special1.1 special? special-value)" -"(let-values(((struct:_80 make-_80 ?_80 -ref_80 -set!_80)" +"(let-values(((struct:_81 make-_81 ?_81 -ref_81 -set!_81)" "(let-values()" "(let-values()(make-struct-type 'special #f 1 0 #f null(current-inspector) #f '(0) #f 'special)))))" -"(values struct:_80 make-_80 ?_80(make-struct-field-accessor -ref_80 0 'value))))" +"(values struct:_81 make-_81 ?_81(make-struct-field-accessor -ref_81 0 'value))))" "(define-values" "(wrap)" "(lambda(s-exp_3 in_2 config_7 rep_0)" @@ -48978,20 +49224,20 @@ static const char *startup_source = "(reader-error12.1 #f #f due-to28_0 #t #f #f #f #f in26_0 config27_0 temp29_2(list str30_0)))))))))))" "(define-values" "(catch-and-reraise-as-reader/proc)" -"(lambda(in_8 config_18 thunk_5)" +"(lambda(in_8 config_18 thunk_7)" "(begin" "(let-values(((with-handlers-predicate31_0) exn:fail?)" "((with-handlers-handler32_0)" -"(lambda(exn_2)" +"(lambda(exn_3)" "(begin" " 'with-handlers-handler32" "(let-values(((in33_1) in_8)" "((config34_0) config_18)" " ((temp35_1) \"~a\")" "((temp36_4)" -"(let-values(((s_483)(exn-message exn_2)))" -" (regexp-replace \"^[a-z-]*: \" s_483 \"\")))" -"((temp37_3)(exn-continuation-marks exn_2)))" +"(let-values(((s_484)(exn-message exn_3)))" +" (regexp-replace \"^[a-z-]*: \" s_484 \"\")))" +"((temp37_3)(exn-continuation-marks exn_3)))" "(reader-error12.1" " temp37_3" " #t" @@ -49010,7 +49256,7 @@ static const char *startup_source = " bpz_3" "(lambda(e_78)" "(select-handler/no-breaks e_78 bpz_3(list(cons with-handlers-predicate31_0 with-handlers-handler32_0))))" -"(lambda()(thunk_5))))))))" +"(lambda()(thunk_7))))))))" "(define-values" "(port-next-location*)" "(lambda(in_4 init-c_0)" @@ -49018,8 +49264,8 @@ static const char *startup_source = "(if(not init-c_0)" "(let-values()(port-next-location in_4))" "(let-values()" -"(let-values(((line_4 col_3 pos_111)(port-next-location in_4)))" -"(values line_4(if col_3(max 0(sub1 col_3)) #f)(if pos_111(max 1(sub1 pos_111)) #f))))))))" +"(let-values(((line_4 col_3 pos_109)(port-next-location in_4)))" +"(values line_4(if col_3(max 0(sub1 col_3)) #f)(if pos_109(max 1(sub1 pos_109)) #f))))))))" "(define-values" "(read-char/skip-whitespace-and-comments)" "(lambda(init-c_1 read-one_0 in_5 config_15)" @@ -49057,7 +49303,7 @@ static const char *startup_source = "(if(char=? '#\\; ec_0)" "(let-values()" "(begin" -"((letrec-values(((loop_75)" +"((letrec-values(((loop_78)" "(lambda()" "(begin" " 'loop" @@ -49068,16 +49314,16 @@ static const char *startup_source = " in_10" " special1.1" " source_5))))" -"(if(let-values(((or-part_289)" +"(if(let-values(((or-part_295)" "(eof-object? c_65)))" -"(if or-part_289" -" or-part_289" +"(if or-part_295" +" or-part_295" "(eqv?" " '#\\newline" "(effective-char c_65 config_15))))" "(void)" -"(let-values()(loop_75))))))))" -" loop_75))" +"(let-values()(loop_78))))))))" +" loop_78))" "(if(read-config-keep-comment? config_15)" "(result-special-comment)" "(skip-loop_0 #f))))" @@ -49125,8 +49371,8 @@ static const char *startup_source = "(if(eq? c_67 'special)" "(special1.1 'special)" " c_67)))))" -"(let-values(((or-part_290)(eqv? '#\\space c3_1)))" -"(if or-part_290 or-part_290(eqv? '#\\/ c3_1))))" +"(let-values(((or-part_296)(eqv? '#\\space c3_1)))" +"(if or-part_296 or-part_296(eqv? '#\\/ c3_1))))" " #f)" " #f)" "(let-values()" @@ -49151,13 +49397,13 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values((()(begin(consume-char in_5 '#\\;)(values))))" -"(let-values(((v_187)(read-one_0 #f in_5 config_15)))" +"(let-values(((v_188)(read-one_0 #f in_5 config_15)))" "(begin" -"(if(eof-object? v_187)" +"(if(eof-object? v_188)" "(let-values()" "(let-values(((in1_2) in_5)" "((config2_2) config_15)" -"((v3_0) v_187)" +"((v3_0) v_188)" "((temp4_2)" " \"expected a commented-out element for `~a;`, but found end-of-file\")" "((ec5_0) ec_0))" @@ -49187,10 +49433,10 @@ static const char *startup_source = "(lambda(init-c_3 in_15 config_19)" "(begin" "(let-values(((source_10)(read-config-source config_19)))" -"(let-values(((line_5 col_4 pos_112)(port-next-location in_15)))" +"(let-values(((line_5 col_4 pos_110)(port-next-location in_15)))" "(begin" "(consume-char in_15 '#\\|)" -"((letrec-values(((loop_105)" +"((letrec-values(((loop_108)" "(lambda(prev-c_0 depth_10)" "(begin" " 'loop" @@ -49200,28 +49446,28 @@ static const char *startup_source = "(if(eof-object? c_25)" "(let-values()" "(let-values(((in6_0) in_15)" -"((temp7_3)(reading-at config_19 line_5 col_4 pos_112))" +"((temp7_3)(reading-at config_19 line_5 col_4 pos_110))" "((c8_0) c_25)" " ((temp9_4) \"end of file in `#|` comment\"))" "(reader-error12.1 #f #f c8_0 #t #f #f #f #f in6_0 temp7_3 temp9_4(list))))" "(if(not(char? c_25))" -"(let-values()(loop_105 #f depth_10))" +"(let-values()(loop_108 #f depth_10))" "(if(if(char=? '#\\| c_25)(eqv? prev-c_0 '#\\#) #f)" -"(let-values()(loop_105 #f(add1 depth_10)))" +"(let-values()(loop_108 #f(add1 depth_10)))" "(if(if(char=? '#\\# c_25)(eqv? prev-c_0 '#\\|) #f)" "(let-values()" "(if(positive? depth_10)" -"(let-values()(loop_105 #f(sub1 depth_10)))" +"(let-values()(loop_108 #f(sub1 depth_10)))" "(void)))" -"(let-values()(loop_105 c_25 depth_10)))))))))))" -" loop_105)" +"(let-values()(loop_108 c_25 depth_10)))))))))))" +" loop_108)" " #f" " 0)))))))" "(define-values" "(skip-unix-line-comment!)" "(lambda(in_17 config_20)" "(begin" -"((letrec-values(((loop_106)" +"((letrec-values(((loop_109)" "(lambda(backslash?_0)" "(begin" " 'loop" @@ -49231,13 +49477,13 @@ static const char *startup_source = "(if(eof-object? c_42)" "(let-values()(void))" "(if(not(char? c_42))" -"(let-values()(loop_106 #f))" +"(let-values()(loop_109 #f))" "(if(char=? c_42 '#\\newline)" -"(let-values()(if backslash?_0(let-values()(loop_106 #f))(void)))" +"(let-values()(if backslash?_0(let-values()(loop_109 #f))(void)))" "(if(char=? c_42 '#\\\\)" -"(let-values()(loop_106 #t))" -"(let-values()(loop_106 #f)))))))))))" -" loop_106)" +"(let-values()(loop_109 #t))" +"(let-values()(loop_109 #f)))))))))))" +" loop_109)" " #f))))" "(define-values" "(readtable-char-delimiter?)" @@ -49254,12 +49500,12 @@ static const char *startup_source = "(let-values(((or-part_26)(char-whitespace? dc_0)))" "(if or-part_26" " or-part_26" -"(let-values(((or-part_308)(char=? dc_0 '#\\()))" -"(if or-part_308" -" or-part_308" -"(let-values(((or-part_285)(char=? dc_0 '#\\))))" -"(if or-part_285" -" or-part_285" +"(let-values(((or-part_311)(char=? dc_0 '#\\()))" +"(if or-part_311" +" or-part_311" +"(let-values(((or-part_291)(char=? dc_0 '#\\))))" +"(if or-part_291" +" or-part_291" "(let-values(((or-part_27)(char=? dc_0 '#\\[)))" "(if or-part_27" " or-part_27" @@ -49275,9 +49521,9 @@ static const char *startup_source = "(let-values(((or-part_13)(char=? dc_0 '#\\')))" "(if or-part_13" " or-part_13" -"(let-values(((or-part_209)(char=? dc_0 '#\\`)))" -"(if or-part_209" -" or-part_209" +"(let-values(((or-part_211)(char=? dc_0 '#\\`)))" +"(if or-part_211" +" or-part_211" "(let-values(((or-part_3)(char=? dc_0 '#\\,)))" "(if or-part_3" " or-part_3" @@ -49323,15 +49569,15 @@ static const char *startup_source = "(let-values()" "(apply" " string-append" -"((letrec-values(((loop_107)" +"((letrec-values(((loop_110)" "(lambda(cs_2)" "(begin" " 'loop" "(if(null?(cdr cs_2))" " (let-values () (list (format \"or `~a`\" (car cs_2))))" "(let-values()" -" (cons (format \"`~a`, \" (car cs_2)) (loop_107 (cdr cs_2)))))))))" -" loop_107)" +" (cons (format \"`~a`, \" (car cs_2)) (loop_110 (cdr cs_2)))))))))" +" loop_110)" " cs_1)))))))))))))" "(define-values" "(closer->opener)" @@ -49355,9 +49601,9 @@ static const char *startup_source = "(if(check-parameter 1/read-curly-brace-as-paren config_21)(opener-name '#\\{ config_21) #f)))" "(if(if s_10 c_69 #f)" " (let-values () (format \"~a, ~a, or ~a\" p_63 s_10 c_69))" -"(if(let-values(((or-part_288) s_10))(if or-part_288 or-part_288 c_69))" +"(if(let-values(((or-part_294) s_10))(if or-part_294 or-part_294 c_69))" "(let-values()" -" (format \"~a or ~a\" p_63 (let-values (((or-part_289) s_10)) (if or-part_289 or-part_289 c_69))))" +" (format \"~a or ~a\" p_63 (let-values (((or-part_295) s_10)) (if or-part_295 or-part_295 c_69))))" "(let-values() p_63)))))))))" "(define-values" "(struct:accum-string" @@ -49392,15 +49638,15 @@ static const char *startup_source = "(accum-string-add!)" "(lambda(a_66 c_70)" "(begin" -"(let-values(((pos_113)(accum-string-pos a_66)))" +"(let-values(((pos_111)(accum-string-pos a_66)))" "(let-values(((str_27)(accum-string-str a_66)))" "(let-values(((str2_0)" -"(if(< pos_113(string-length str_27))" +"(if(< pos_111(string-length str_27))" "(let-values() str_27)" "(let-values()" "(let-values(((str2_1)(make-string(*(string-length str_27) 2))))" "(begin(string-copy! str2_1 0 str_27)(set-accum-string-str! a_66 str2_1) str2_1))))))" -"(begin(string-set! str2_0 pos_113 c_70)(set-accum-string-pos! a_66(add1 pos_113)))))))))" +"(begin(string-set! str2_0 pos_111 c_70)(set-accum-string-pos! a_66(add1 pos_111)))))))))" "(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))))" "(define-values" @@ -49427,8 +49673,8 @@ static const char *startup_source = "(let-values(((config_27) config5_0))" "(let-values(((start-pos_7)(if start-pos3_0 start-pos2_0 0)))" "(let-values()" -"(let-values(((s_188)(substring(accum-string-str a_70) start-pos_7(accum-string-pos a_70))))" -"(begin(accum-string-abandon! a_70 config_27) s_188)))))))))" +"(let-values(((s_191)(substring(accum-string-str a_70) start-pos_7(accum-string-pos a_70))))" +"(begin(accum-string-abandon! a_70 config_27) s_191)))))))))" "(define-values" "(accum-string-get-bytes!13.1)" "(lambda(start-pos9_0 start-pos10_0 a11_0 config12_0)" @@ -49488,7 +49734,7 @@ static const char *startup_source = "(make-indentation)" "(lambda(closer_0 in_19 config_30)" "(begin" -"(let-values(((line_6 col_5 pos_114)(port-next-location in_19)))" +"(let-values(((line_6 col_5 pos_112)(port-next-location in_19)))" "(indentation1.1 closer_0 #f #f line_6 line_6 #f(if col_5(add1 col_5) #f) #f)))))" "(define-values" "(track-indentation!)" @@ -49539,23 +49785,23 @@ static const char *startup_source = " (let-values () (format \"unexpected `~a`\" c_71))" "(let-values()" "(let-values(((missing_2)" -"(let-values(((or-part_216)" +"(let-values(((or-part_218)" "(let-values(((lst_7)(cdr indts_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_7)))" "((letrec-values(((for-loop_0)" -"(lambda(result_123 lst_8)" +"(lambda(result_124 lst_8)" "(begin" " 'for-loop" "(if(pair? lst_8)" "(let-values(((indt_3)(unsafe-car lst_8))" "((rest_0)(unsafe-cdr lst_8)))" -"(let-values(((result_124)" -"(let-values()" "(let-values(((result_125)" "(let-values()" +"(let-values(((result_126)" +"(let-values()" "(let-values()" "(if(char=?" " ec_2" @@ -49563,19 +49809,19 @@ static const char *startup_source = " indt_3))" " \"missing\"" " #f)))))" -"(values result_125)))))" +"(values result_126)))))" "(if(if(not" -"((lambda x_82 result_124)" +"((lambda x_84 result_125)" " indt_3))" "(not #f)" " #f)" -"(for-loop_0 result_124 rest_0)" -" result_124)))" -" result_123)))))" +"(for-loop_0 result_125 rest_0)" +" result_125)))" +" result_124)))))" " for-loop_0)" " #f" " lst_7)))))" -" (if or-part_216 or-part_216 \"expected\"))))" +" (if or-part_218 or-part_218 \"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`\"" @@ -49622,26 +49868,26 @@ static const char *startup_source = "(let-values(((head_0) #f))" "(let-values(((indentation_0)(make-indentation closer_1 in_10 seq-config_0)))" "(let-values(((config_34)" -"(let-values(((v_236) elem-config_0))" -"(let-values(((the-struct_88) v_236))" -"(if(read-config/outer? the-struct_88)" +"(let-values(((v_237) elem-config_0))" +"(let-values(((the-struct_87) v_237))" +"(if(read-config/outer? the-struct_87)" "(let-values(((indentations20_0)" "(cons" " indentation_0" "(read-config-indentations seq-config_0)))" -"((inner21_0)(read-config/outer-inner v_236)))" +"((inner21_0)(read-config/outer-inner v_237)))" "(read-config/outer1.1" " inner21_0" -"(read-config/outer-wrap the-struct_88)" -"(read-config/outer-line the-struct_88)" -"(read-config/outer-col the-struct_88)" -"(read-config/outer-pos the-struct_88)" +"(read-config/outer-wrap the-struct_87)" +"(read-config/outer-line the-struct_87)" +"(read-config/outer-col the-struct_87)" +"(read-config/outer-pos the-struct_87)" " indentations20_0" -"(read-config/outer-keep-comment? the-struct_88)))" +"(read-config/outer-keep-comment? the-struct_87)))" "(raise-argument-error" " 'struct-copy" " \"read-config/outer?\"" -" the-struct_88))))))" +" the-struct_87))))))" "(let-values(((open-end-line_0 open-end-col_0 open-end-pos_0)" "(port-next-location in_10)))" "(let-values(((config/keep-comment_0)(keep-comment config_34)))" @@ -49680,7 +49926,7 @@ static const char *startup_source = "(void))" " e_79))))))" "(let-values(((seq_0)" -"((letrec-values(((loop_98)" +"((letrec-values(((loop_101)" "(lambda(depth_11" " accum_0" " init-c_5" @@ -49867,11 +50113,11 @@ static const char *startup_source = " post-c_0" " seq-config_0)))" "(begin" -"(if(let-values(((or-part_309)" +"(if(let-values(((or-part_312)" "(eof-object?" " post-ec_0)))" -"(if or-part_309" -" or-part_309" +"(if or-part_312" +" or-part_312" "(eqv?" " post-ec_0" " closer_1)))" @@ -49902,7 +50148,7 @@ static const char *startup_source = " temp36_5" "(list))))" "(void))" -"(loop_98" +"(loop_101" " depth_11" " accum_0" " post-c_0" @@ -49935,14 +50181,14 @@ static const char *startup_source = " temp40_3" "(list)))))))))))))" "(let-values()" -"(let-values(((v_237)" +"(let-values(((v_238)" "(read-one/not-eof_0" " c_72" " first-read-one_1" " config/keep-comment_0)))" -"(if(1/special-comment? v_237)" +"(if(1/special-comment? v_238)" "(let-values()" -"(loop_98" +"(loop_101" " depth_11" " accum_0" " #f" @@ -49950,22 +50196,22 @@ static const char *startup_source = " read-one_1))" "(if(> depth_11 1024)" "(let-values()" -"(loop_98" +"(loop_101" " depth_11" -"(cons v_237 accum_0)" +"(cons v_238 accum_0)" " #f" " #f" " read-one_1))" "(let-values()" "(cons" -" v_237" -"(loop_98" +" v_238" +"(loop_101" "(add1 depth_11)" " null" " #f" " #f" " read-one_1)))))))))))))))" -" loop_98)" +" loop_101)" " 0" " null" " #f" @@ -50022,12 +50268,12 @@ static const char *startup_source = "(begin" "(consume-char in_12 c_75)" "(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_75))(void))" -"((letrec-values(((loop_60)" -"(lambda(v_238 max-count_1)" +"((letrec-values(((loop_62)" +"(lambda(v_239 max-count_1)" "(begin" " 'loop" "(if(zero? max-count_1)" -"(let-values() v_238)" +"(let-values() v_239)" "(let-values()" "(let-values(((c_68)" "(let-values(((in_24) in_12)" @@ -50050,11 +50296,11 @@ static const char *startup_source = "(if accum-str_0" "(let-values()(accum-string-add! accum-str_0 c_68))" "(void))" -"(loop_60" -"(+(digit->number c_68)(* v_238 base_23))" +"(loop_62" +"(+(digit->number c_68)(* v_239 base_23))" "(sub1 max-count_1))))" -"(let-values() v_238)))))))))" -" loop_60)" +"(let-values() v_239)))))))))" +" loop_62)" "(+(digit->number c_75)(* init-v_0 base_23))" "(sub1 max-count_0))))" "(if zero-digits-result_0" @@ -50076,11 +50322,11 @@ static const char *startup_source = "(hex-digit?)" "(lambda(c_78)" "(begin" -"(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_309)(if(char>=? c_78 '#\\A)(char<=? c_78 '#\\F) #f)))" -"(if or-part_309 or-part_309(if(char>=? c_78 '#\\a)(char<=? c_78 '#\\f) #f))))))))" +"(let-values(((or-part_313)(if(char>=? c_78 '#\\0)(char<=? c_78 '#\\9) #f)))" +"(if or-part_313" +" or-part_313" +"(let-values(((or-part_312)(if(char>=? c_78 '#\\A)(char<=? c_78 '#\\F) #f)))" +"(if or-part_312 or-part_312(if(char>=? c_78 '#\\a)(char<=? c_78 '#\\f) #f))))))))" "(define-values" "(digit->number)" "(lambda(c_79)" @@ -50153,11 +50399,11 @@ static const char *startup_source = " decimal-mode74_0" " convert-mode75_0))))))))))))))" "(case-lambda" -"((s_309)(begin 'string->number(string->number8_0 s_309 #f #f #f #f #f #f)))" -"((s_455 radix_1 convert-mode_1 decimal-mode3_1)" -"(string->number8_0 s_455 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" -"((s_484 radix_2 convert-mode2_1)(string->number8_0 s_484 radix_2 convert-mode2_1 #f #t #t #f))" -"((s_485 radix1_1)(string->number8_0 s_485 radix1_1 #f #f #t #f #f)))))" +"((s_313)(begin 'string->number(string->number8_0 s_313 #f #f #f #f #f #f)))" +"((s_457 radix_1 convert-mode_1 decimal-mode3_1)" +"(string->number8_0 s_457 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" +"((s_485 radix_2 convert-mode2_1)(string->number8_0 s_485 radix_2 convert-mode2_1 #f #t #t #f))" +"((s_486 radix1_1)(string->number8_0 s_486 radix1_1 #f #f #t #f #f)))))" "(define-values" "(do-string->number20.1)" "(lambda(in-complex11_0" @@ -50196,8 +50442,8 @@ static const char *startup_source = " (let-values () (format \"no character after `#` indicator in `~.a`\" s_21))" "(let-values() #f)))" "(let-values()" -"(let-values(((i_63)(string-ref s_21 next_4)))" -"(let-values(((tmp_38) i_63))" +"(let-values(((i_176)(string-ref s_21 next_4)))" +"(let-values(((tmp_38) i_176))" "(let-values(((index_2)" "(if(char? tmp_38)" "(let-values(((codepoint_0)(char->integer tmp_38)))" @@ -50271,7 +50517,7 @@ static const char *startup_source = "(let-values()" "(format" " \"bad `#` indicator `~a` at `~.a`\"" -" i_63" +" i_176" "(substring s_21 start_44 end_34)))" "(let-values() #f)))" "(if(unsafe-fx< index_2 2)" @@ -50286,20 +50532,20 @@ static const char *startup_source = "(substring s_21 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(let-values(((s76_1) s_21)" +"(let-values(((s76_0) s_21)" "((temp77_0)(add1 next_4))" "((end78_0) end_34)" "((radix79_0) radix_3)" "((radix-set?80_0) radix-set?_0)" "((temp81_1)" "(if(let-values(((or-part_96)" -"(char=? i_63 '#\\e)))" +"(char=? i_176 '#\\e)))" "(if or-part_96" " or-part_96" -"(char=? i_63 '#\\E)))" +"(char=? i_176 '#\\E)))" " 'exact" " 'inexact))" -"((temp82_4)" +"((temp82_3)" "(if(eq? convert-mode_2 'read)" " 'must-read" " convert-mode_2)))" @@ -50307,15 +50553,15 @@ static const char *startup_source = " #f" " #f" " radix-set?80_0" -" s76_1" +" s76_0" " temp77_0" " end78_0" " radix79_0" " temp81_1" -" temp82_4)))))" +" temp82_3)))))" "(let-values()" -"(if(let-values(((or-part_210) radix-set?_0))" -"(if or-part_210 or-part_210 in-complex_0))" +"(if(let-values(((or-part_212) radix-set?_0))" +"(if or-part_212 or-part_212 in-complex_0))" "(let-values()" "(if(eq? convert-mode_2 'must-read)" "(let-values()" @@ -50325,7 +50571,7 @@ static const char *startup_source = "(let-values() #f)))" "(let-values()" "(let-values(((radix_4)" -"(let-values(((tmp_39) i_63))" +"(let-values(((tmp_39) i_176))" "(if(if(equal? tmp_39 '#\\b)" " #t" "(equal? tmp_39 '#\\B))" @@ -50364,13 +50610,13 @@ static const char *startup_source = "(read-special-number s_21 start_44 end_34 convert-mode_2)" " #f)))" "(if c1_30" -"((lambda(v_197)" +"((lambda(v_240)" "(if(eq? exactness_0 'exact)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_197))" +" (let-values () (format \"no exact representation for `~a`\" v_240))" "(let-values() #f)))" -"(let-values() v_197)))" +"(let-values() v_240)))" " c1_30)" "(let-values(((c2_3)" "(if(char-sign? c_80)" @@ -50398,9 +50644,9 @@ static const char *startup_source = "((convert-mode95_0) convert-mode_2)" "((temp96_1) 'i)" "((v97_0) v_37)" -"((temp98_2)" -"(lambda(v_239 v2_0)" -"(begin 'temp98(make-rectangular v_239 v2_0)))))" +"((temp98_1)" +"(lambda(v_241 v2_0)" +"(begin 'temp98(make-rectangular v_241 v2_0)))))" "(read-for-special-compound65.1" " temp96_1" " #f" @@ -50412,7 +50658,7 @@ static const char *startup_source = " exactness94_0" " convert-mode95_0" " v97_0" -" temp98_2)))" +" temp98_1)))" " c2_3)" "(let-values(((c3_2)" "(if(not in-complex_0)" @@ -50435,23 +50681,23 @@ static const char *startup_source = "(let-values()" "(let-values(((s99_0) s_21)" "((start100_0) start_44)" -"((temp101_2)(- end_34 7))" +"((temp101_3)(- end_34 7))" "((radix102_0) radix_3)" "((exactness103_0) exactness_0)" "((convert-mode104_0) convert-mode_2)" "((temp105_1) 'i)" -"((temp106_1) #t)" +"((temp106_2) #t)" "((v2107_0) v2_1)" "((temp108_0)" -"(lambda(v2_2 v_221)" -"(begin 'temp108(make-rectangular v_221 v2_2)))))" +"(lambda(v2_2 v_222)" +"(begin 'temp108(make-rectangular v_222 v2_2)))))" "(read-for-special-compound65.1" " temp105_1" -" temp106_1" +" temp106_2" " #t" " s99_0" " start100_0" -" temp101_2" +" temp101_3" " radix102_0" " exactness103_0" " convert-mode104_0" @@ -50473,7 +50719,7 @@ static const char *startup_source = " #f)" " #f)))" "(if c4_0" -"((lambda(v_222)" +"((lambda(v_223)" "(let-values(((s109_0) s_21)" "((temp110_2)(+ start_44 7))" "((end111_0) end_34)" @@ -50481,10 +50727,10 @@ static const char *startup_source = "((exactness113_0) exactness_0)" "((convert-mode114_0) convert-mode_2)" "((temp115_0) '@)" -"((v116_0) v_222)" +"((v116_0) v_223)" "((temp117_1)" -"(lambda(v_240 v2_3)" -"(begin 'temp117(make-polar v_240 v2_3)))))" +"(lambda(v_242 v2_3)" +"(begin 'temp117(make-polar v_242 v2_3)))))" "(read-for-special-compound65.1" " temp115_0" " #f" @@ -50522,8 +50768,8 @@ static const char *startup_source = "((temp125_1) #t)" "((v2126_0) v2_4)" "((temp127_3)" -"(lambda(v2_5 v_241)" -"(begin 'temp127(make-polar v_241 v2_5)))))" +"(lambda(v2_5 v_243)" +"(begin 'temp127(make-polar v_243 v2_5)))))" "(read-for-special-compound65.1" " temp124_1" " temp125_1" @@ -50578,8 +50824,8 @@ static const char *startup_source = "(let-values(((in-complex_1)(if in-complex26_0 in-complex24_0 #f)))" "(let-values(((convert-mode_3) convert-mode32_0))" "(let-values()" -"((letrec-values(((loop_108)" -"(lambda(i_174" +"((letrec-values(((loop_111)" +"(lambda(i_177" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -50591,7 +50837,7 @@ static const char *startup_source = " must-i?_0)" "(begin" " 'loop" -"(if(= i_174 end_35)" +"(if(= i_177 end_35)" "(let-values()" "(if(if(not any-digits?_0)(not i-pos_3) #f)" "(let-values()" @@ -50610,10 +50856,10 @@ static const char *startup_source = "(substring s_38 start_45 end_35)))" "(let-values() #f)))" "(if(if sign-pos_0" -"(let-values(((or-part_311)" +"(let-values(((or-part_314)" "(if dot-pos_1(< dot-pos_1 sign-pos_0) #f)))" -"(if or-part_311" -" or-part_311" +"(if or-part_314" +" or-part_314" "(if slash-pos_0(< slash-pos_0 sign-pos_0) #f)))" " #f)" "(let-values()" @@ -50629,22 +50875,22 @@ static const char *startup_source = "((start137_0) start_45)" "((sign-pos138_0) sign-pos_0)" "((sign-pos139_0) sign-pos_0)" -"((temp140_3)(sub1 end_35))" +"((temp140_2)(sub1 end_35))" "((i-pos141_0) i-pos_3)" "((sign-pos142_0) sign-pos_0)" "((radix143_0) radix_5)" "((radix-set?144_0) radix-set?_1)" "((exactness145_0) exactness_1)" -"((temp146_1) 'i)" +"((temp146_2) 'i)" "((convert-mode147_0) convert-mode_3))" "(string->complex-number50.1" -" temp146_1" +" temp146_2" " radix-set?144_0" " s136_0" " start137_0" " sign-pos138_0" " sign-pos139_0" -" temp140_3" +" temp140_2" " i-pos141_0" " sign-pos142_0" " radix143_0" @@ -50655,7 +50901,7 @@ static const char *startup_source = "(let-values(((s148_0) s_38)" "((start149_0) start_45)" "((@-pos150_0) @-pos_0)" -"((temp151_2)(add1 @-pos_0))" +"((temp151_1)(add1 @-pos_0))" "((end152_0) end_35)" "((i-pos153_0) i-pos_3)" "((sign-pos154_0) sign-pos_0)" @@ -50670,7 +50916,7 @@ static const char *startup_source = " s148_0" " start149_0" " @-pos150_0" -" temp151_2" +" temp151_1" " end152_0" " i-pos153_0" " sign-pos154_0" @@ -50690,11 +50936,11 @@ static const char *startup_source = " exactness_1" " convert-mode_3))))))))" "(let-values()" -"(let-values(((c_81)(string-ref s_38 i_174)))" +"(let-values(((c_81)(string-ref s_38 i_177)))" "(if(digit? c_81 radix_5)" "(let-values()" -"(loop_108" -"(add1 i_174)" +"(loop_111" +"(add1 i_177)" " #t" " any-hashes?_0" " i-pos_3" @@ -50706,8 +50952,8 @@ static const char *startup_source = " must-i?_0))" "(if(char=? c_81 '#\\#)" "(let-values()" -"(loop_108" -"(add1 i_174)" +"(loop_111" +"(add1 i_177)" " #t" " #t" " i-pos_3" @@ -50728,38 +50974,38 @@ static const char *startup_source = "(substring s_38 start_45 end_35)))" "(let-values() #f)))" "(let-values()" -"(loop_108" -"(add1 i_174)" +"(loop_111" +"(add1 i_177)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" -" i_174" +" i_177" " dot-pos_1" " slash-pos_0" " #f" -"(if(> i_174 start_45)" -"(let-values(((or-part_203)(not @-pos_0)))" -"(if or-part_203" -" or-part_203" -"(> i_174(add1 @-pos_0))))" +"(if(> i_177 start_45)" +"(let-values(((or-part_204)(not @-pos_0)))" +"(if or-part_204" +" or-part_204" +"(> i_177(add1 @-pos_0))))" " #f)))))" "(if(char=? c_81 '#\\.)" "(let-values()" -"(if(let-values(((or-part_312)" +"(if(let-values(((or-part_315)" "(if exp-pos_0" -"(let-values(((or-part_313)" +"(let-values(((or-part_316)" "(not sign-pos_0)))" -"(if or-part_313" -" or-part_313" +"(if or-part_316" +" or-part_316" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_312" -" or-part_312" +"(if or-part_315" +" or-part_315" "(if dot-pos_1" -"(let-values(((or-part_314)(not sign-pos_0)))" -"(if or-part_314" -" or-part_314" +"(let-values(((or-part_317)(not sign-pos_0)))" +"(if or-part_317" +" or-part_317" "(> dot-pos_1 sign-pos_0)))" " #f)))" "(let-values()" @@ -50770,9 +51016,9 @@ static const char *startup_source = "(substring s_38 start_45 end_35)))" "(let-values() #f)))" "(if(if slash-pos_0" -"(let-values(((or-part_315)(not sign-pos_0)))" -"(if or-part_315" -" or-part_315" +"(let-values(((or-part_318)(not sign-pos_0)))" +"(if or-part_318" +" or-part_318" "(> slash-pos_0 sign-pos_0)))" " #f)" "(let-values()" @@ -50783,23 +51029,23 @@ static const char *startup_source = "(substring s_38 start_45 end_35)))" "(let-values() #f)))" "(let-values()" -"(loop_108" -"(add1 i_174)" +"(loop_111" +"(add1 i_177)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" " sign-pos_0" -" i_174" +" i_177" " #f" " #f" " must-i?_0)))))" "(if(char=? c_81 '#\\/)" "(let-values()" "(if(if dot-pos_1" -"(let-values(((or-part_274)(not sign-pos_0)))" -"(if or-part_274" -" or-part_274" +"(let-values(((or-part_279)(not sign-pos_0)))" +"(if or-part_279" +" or-part_279" "(> dot-pos_1 sign-pos_0)))" " #f)" "(let-values()" @@ -50809,21 +51055,21 @@ static const char *startup_source = " \"decimal points and fractions annot be mixed `~.a`\"" "(substring s_38 start_45 end_35)))" "(let-values() #f)))" -"(if(let-values(((or-part_316)" +"(if(let-values(((or-part_319)" "(if exp-pos_0" -"(let-values(((or-part_317)" +"(let-values(((or-part_320)" "(not sign-pos_0)))" -"(if or-part_317" -" or-part_317" +"(if or-part_320" +" or-part_320" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_316" -" or-part_316" +"(if or-part_319" +" or-part_319" "(if slash-pos_0" -"(let-values(((or-part_318)" +"(let-values(((or-part_321)" "(not sign-pos_0)))" -"(if or-part_318" -" or-part_318" +"(if or-part_321" +" or-part_321" "(> slash-pos_0 sign-pos_0)))" " #f)))" "(let-values()" @@ -50834,63 +51080,63 @@ static const char *startup_source = "(substring s_38 start_45 end_35)))" "(let-values() #f)))" "(let-values()" -"(loop_108" -"(add1 i_174)" +"(loop_111" +"(add1 i_177)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" " sign-pos_0" " #f" -" i_174" +" i_177" " #f" " must-i?_0)))))" -"(if(let-values(((or-part_319)(char=? c_81 '#\\e)))" -"(if or-part_319" -" or-part_319" -"(let-values(((or-part_320)(char=? c_81 '#\\E)))" -"(if or-part_320" -" or-part_320" -"(let-values(((or-part_321)" -"(char=? c_81 '#\\f)))" -"(if or-part_321" -" or-part_321" -"(let-values(((or-part_322)" -"(char=? c_81 '#\\F)))" +"(if(let-values(((or-part_322)(char=? c_81 '#\\e)))" "(if or-part_322" " or-part_322" -"(let-values(((or-part_323)" -"(char=? c_81 '#\\d)))" +"(let-values(((or-part_323)(char=? c_81 '#\\E)))" "(if or-part_323" " or-part_323" -"(let-values(((or-part_204)" +"(let-values(((or-part_324)" +"(char=? c_81 '#\\f)))" +"(if or-part_324" +" or-part_324" +"(let-values(((or-part_325)" +"(char=? c_81 '#\\F)))" +"(if or-part_325" +" or-part_325" +"(let-values(((or-part_326)" +"(char=? c_81 '#\\d)))" +"(if or-part_326" +" or-part_326" +"(let-values(((or-part_205)" "(char=? c_81 '#\\D)))" -"(if or-part_204" -" or-part_204" +"(if or-part_205" +" or-part_205" "(let-values(((or-part_173)" "(char=?" " c_81" " '#\\s)))" "(if or-part_173" " or-part_173" -"(let-values(((or-part_324)" +"(let-values(((or-part_327)" "(char=?" " c_81" " '#\\S)))" -"(if or-part_324" -" or-part_324" -"(let-values(((or-part_325)" +"(if or-part_327" +" or-part_327" +"(let-values(((or-part_328)" "(char=?" " c_81" " '#\\l)))" -"(if or-part_325" -" or-part_325" -"(let-values(((or-part_326)" +"(if or-part_328" +" or-part_328" +"(let-values(((or-part_329)" "(char=?" " c_81" " '#\\L)))" -"(if or-part_326" -" or-part_326" +"(if or-part_329" +" or-part_329" "(let-values(((or-part_180)" "(char=?" " c_81" @@ -50910,12 +51156,12 @@ static const char *startup_source = " c_81" "(substring s_38 start_45 end_35)))" "(let-values() #f)))" -"(if(if(<(add1 i_174) end_35)" -"(char-sign?(string-ref s_38(add1 i_174)))" +"(if(if(<(add1 i_177) end_35)" +"(char-sign?(string-ref s_38(add1 i_177)))" " #f)" "(let-values()" -"(loop_108" -"(+ i_174 2)" +"(loop_111" +"(+ i_177 2)" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -50923,12 +51169,12 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_327) exp-pos_0))" -"(if or-part_327 or-part_327 i_174))" +"(let-values(((or-part_330) exp-pos_0))" +"(if or-part_330 or-part_330 i_177))" " must-i?_0))" "(let-values()" -"(loop_108" -"(+ i_174 1)" +"(loop_111" +"(+ i_177 1)" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -50936,8 +51182,8 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_328) exp-pos_0))" -"(if or-part_328 or-part_328 i_174))" +"(let-values(((or-part_331) exp-pos_0))" +"(if or-part_331 or-part_331 i_177))" " must-i?_0)))))" "(if(char=? c_81 '#\\@)" "(let-values()" @@ -50960,7 +51206,7 @@ static const char *startup_source = " \"too many `@`s in `~.a`\"" "(substring s_38 start_45 end_35)))" "(let-values() #f)))" -"(if(= i_174 start_45)" +"(if(= i_177 start_45)" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" @@ -50977,28 +51223,28 @@ static const char *startup_source = "(substring s_38 start_45 end_35)))" "(let-values() #f)))" "(let-values()" -"(loop_108" -"(add1 i_174)" +"(loop_111" +"(add1 i_177)" " any-digits?_0" " any-hashes?_0" " i-pos_3" -" i_174" +" i_177" " #f" " #f" " #f" " #f" " must-i?_0)))))))" -"(if(if(let-values(((or-part_329)" +"(if(if(let-values(((or-part_332)" "(char=? c_81 '#\\i)))" -"(if or-part_329" -" or-part_329" +"(if or-part_332" +" or-part_332" "(char=? c_81 '#\\I)))" " sign-pos_0" " #f)" "(let-values()" -"(if(let-values(((or-part_330) @-pos_0))" -"(if or-part_330" -" or-part_330" +"(if(let-values(((or-part_106) @-pos_0))" +"(if or-part_106" +" or-part_106" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -51007,10 +51253,10 @@ static const char *startup_source = " \"cannot mix `@` and `i` in `~.a`\"" "(substring s_38 start_45 end_35)))" "(let-values() #f)))" -"(if(let-values(((or-part_331)" -"(<(add1 i_174) end_35)))" -"(if or-part_331" -" or-part_331" +"(if(let-values(((or-part_107)" +"(<(add1 i_177) end_35)))" +"(if or-part_107" +" or-part_107" "(eq? in-complex_1 'i)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -51020,11 +51266,11 @@ static const char *startup_source = "(substring s_38 start_45 end_35)))" "(let-values() #f)))" "(let-values()" -"(loop_108" -"(add1 i_174)" +"(loop_111" +"(add1 i_177)" " any-digits?_0" " any-hashes?_0" -" i_174" +" i_177" " @-pos_0" " sign-pos_0" " #f" @@ -51043,7 +51289,7 @@ static const char *startup_source = "(let-values()" " (format \"bad digit `~a`\" c_81))" "(let-values() #f))))))))))))))))))))" -" loop_108)" +" loop_111)" " start_45" " #f" " #f" @@ -51070,7 +51316,7 @@ static const char *startup_source = " convert-mode49_0)" "(begin" " 'string->complex-number50" -"(let-values(((s_486) s40_0))" +"(let-values(((s_118) s40_0))" "(let-values(((start1_0) start141_0))" "(let-values(((end1_0) end142_0))" "(let-values(((start2_0) start243_0))" @@ -51087,7 +51333,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_486)" +"(let-values(((s160_0) s_118)" "((start1161_0) start1_0)" "((end1162_0) end1_0)" "((radix163_0) radix_6)" @@ -51108,12 +51354,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_486 start2_0) '#\\-)))" +"(let-values(((neg?_0)(char=?(string-ref s_118 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_486)" +"(let-values(((s168_0) s_118)" "((start2169_0) start2_0)" "((end2170_0) end2_0)" "((radix171_0) radix_6)" @@ -51131,11 +51377,11 @@ static const char *startup_source = " radix171_0" " exactness173_0" " convert-mode175_0))))))" -"(if(let-values(((or-part_332)(not v1_0)))" -"(if or-part_332 or-part_332(not v2_6)))" +"(if(let-values(((or-part_333)(not v1_0)))" +"(if or-part_333 or-part_333(not v2_6)))" "(let-values() #f)" -"(if(if(let-values(((or-part_333)(extflonum? v1_0)))" -"(if or-part_333 or-part_333(extflonum? v2_6)))" +"(if(if(let-values(((or-part_334)(extflonum? v1_0)))" +"(if or-part_334 or-part_334(extflonum? v2_6)))" "(not(eq? convert-mode_4 'must-read))" " #f)" "(let-values()(fail-extflonum convert-mode_4 v1_0))" @@ -51156,33 +51402,33 @@ static const char *startup_source = " p_75))))))))))))))))))))))))))))" "(define-values" "(string->real-number)" -"(lambda(s_237 start_46 end_36 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)" +"(lambda(s_240 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_237 exp-pos_1)) '#\\t)))))" +"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_240 exp-pos_1)) '#\\t)))))" "(let-values(((simple?_0)" "(if(not slash-pos_1)" -"(if(let-values(((or-part_334)(eq? exactness_3 'inexact)))" -"(if or-part_334" -" or-part_334" -"(let-values(((or-part_335)(eq? exactness_3 'decimal-as-inexact)))" -"(if or-part_335 or-part_335(if(not dot-pos_2)(not exp-pos_1) #f)))))" -"(if(let-values(((or-part_336)(not exp-pos_1)))" -"(if or-part_336" -" or-part_336" -"(let-values(((or-part_337)(not(eq? convert-mode_5 'number-or-false))))" -"(if or-part_337 or-part_337(not(extfl-mark?_0))))))" -"(not(if any-hashes?_1(hashes? s_237 start_46 end_36) #f))" +"(if(let-values(((or-part_335)(eq? exactness_3 'inexact)))" +"(if or-part_335" +" or-part_335" +"(let-values(((or-part_336)(eq? exactness_3 'decimal-as-inexact)))" +"(if or-part_336 or-part_336(if(not dot-pos_2)(not exp-pos_1) #f)))))" +"(if(let-values(((or-part_337)(not exp-pos_1)))" +"(if or-part_337" +" or-part_337" +"(let-values(((or-part_338)(not(eq? convert-mode_5 'number-or-false))))" +"(if or-part_338 or-part_338(not(extfl-mark?_0))))))" +"(not(if any-hashes?_1(hashes? s_240 start_46 end_36) #f))" " #f)" " #f)" " #f)))" -"(let-values(((has-sign?_0)(if(> end_36 start_46)(char-sign?(string-ref s_237 start_46)) #f)))" +"(let-values(((has-sign?_0)(if(> end_36 start_46)(char-sign?(string-ref s_240 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_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_237 start_46 end_36)))" +" (let-values () (format \"missing digits in `~.a`\" (substring s_240 start_46 end_36)))" "(let-values() #f))))" "(if simple?_0" "(let-values()" @@ -51194,56 +51440,56 @@ static const char *startup_source = "(let-values()" "(if(eq? convert-mode_5 'must-read)" "(let-values()" -" (format \"missing digits before exponent marker in `~.a`\" (substring s_237 start_46 end_36)))" +" (format \"missing digits before exponent marker in `~.a`\" (substring s_240 start_46 end_36)))" "(let-values() #f)))" "(if(if exp-pos_1" -"(let-values(((or-part_338)(= exp-pos_1(sub1 end_36))))" -"(if or-part_338" -" or-part_338" -"(if(= exp-pos_1(- end_36 2))(char-sign?(string-ref s_237(sub1 end_36))) #f)))" +"(let-values(((or-part_339)(= exp-pos_1(sub1 end_36))))" +"(if or-part_339" +" or-part_339" +"(if(= exp-pos_1(- end_36 2))(char-sign?(string-ref s_240(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_237 start_46 end_36)))" +" (format \"missing digits after exponent marker in `~.a`\" (substring s_240 start_46 end_36)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_30)" +"(let-values(((n_31)" "(string->number$1" -"(maybe-substring s_237 start_46 end_36)" +"(maybe-substring s_240 start_46 end_36)" " radix_7" -"(if(let-values(((or-part_339)(eq? convert-mode_5 'number-or-false)))" -"(if or-part_339" -" or-part_339" -"(let-values(((or-part_340)(not exp-pos_1)))" -"(if or-part_340 or-part_340(not(extfl-mark?_0))))))" +"(if(let-values(((or-part_340)(eq? convert-mode_5 'number-or-false)))" +"(if or-part_340" +" or-part_340" +"(let-values(((or-part_341)(not exp-pos_1)))" +"(if or-part_341 or-part_341(not(extfl-mark?_0))))))" " 'number-or-false" " 'read))))" -"(if(let-values(((or-part_341)(not n_30)))(if or-part_341 or-part_341(string? n_30)))" +"(if(let-values(((or-part_342)(not n_31)))(if or-part_342 or-part_342(string? n_31)))" "(let-values()" "(error" " 'string->number" " \"host `string->number` failed on ~s\"" -"(substring s_237 start_46 end_36)))" +"(substring s_240 start_46 end_36)))" "(if(eq? exactness_3 'inexact)" "(let-values()" -"(if(extflonum? n_30)" +"(if(extflonum? n_31)" "(let-values()" "(if(eq? convert-mode_5 'must-read)" "(let-values()" "(format" " \"cannot convert extflonum `~.a` to inexact\"" -"(substring s_237 start_46 end_36)))" +"(substring s_240 start_46 end_36)))" "(let-values() #f)))" -"(if(if(eqv? n_30 0)(char=?(string-ref s_237 start_46) '#\\-) #f)" +"(if(if(eqv? n_31 0)(char=?(string-ref s_240 start_46) '#\\-) #f)" "(let-values() -0.0)" -"(let-values()(exact->inexact n_30)))))" -"(let-values() n_30))))))))" +"(let-values()(exact->inexact n_31)))))" +"(let-values() n_31))))))))" "(if exp-pos_1" "(let-values()" "(let-values(((m-v_0)" "(string->real-number" -" s_237" +" s_240" " start_46" " exp-pos_1" " dot-pos_2" @@ -51254,29 +51500,29 @@ static const char *startup_source = " 'exact" " convert-mode_5)))" "(let-values(((e-v_0)" -"(string->exact-integer-number s_237(+ exp-pos_1 1) end_36 radix_7 convert-mode_5)))" +"(string->exact-integer-number s_240(+ 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_237 exp-pos_1)))" +"(let-values(((tmp_40)(string-ref s_240 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_237 start_46 end_36)" +"(replace-hashes s_240 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_215)(not m-v_0)))(if or-part_215 or-part_215(not e-v_0)))" +"(if(let-values(((or-part_217)(not m-v_0)))(if or-part_217 or-part_217(not e-v_0)))" "(let-values() #f)" "(if(string? m-v_0)" "(let-values() m-v_0)" @@ -51284,14 +51530,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_342)(eq? exactness_3 'inexact)))" -"(if or-part_342 or-part_342(eq? exactness_3 'decimal-as-inexact)))" +"(if(if(let-values(((or-part_343)(eq? exactness_3 'inexact)))" +"(if or-part_343 or-part_343(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_237 start_46) '#\\-) -0.0 0.0))" +"(let-values()(if(char=?(string-ref s_240 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))))))" @@ -51301,24 +51547,24 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to ~a\"" -"(substring s_237 start_46 end_36)" +"(substring s_240 start_46 end_36)" " exactness_3))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_31)(* m-v_0(expt radix_7 e-v_0))))" +"(let-values(((n_32)(* m-v_0(expt radix_7 e-v_0))))" "(if(if(not get-extfl?_0)" -"(let-values(((or-part_343)(eq? exactness_3 'exact)))" -"(if or-part_343 or-part_343(eq? exactness_3 'decimal-as-exact)))" +"(let-values(((or-part_344)(eq? exactness_3 'exact)))" +"(if or-part_344 or-part_344(eq? exactness_3 'decimal-as-exact)))" " #f)" -"(let-values() n_31)" -"(if(if(eqv? n_31 0)(char=?(string-ref s_237 start_46) '#\\-) #f)" +"(let-values() n_32)" +"(if(if(eqv? n_32 0)(char=?(string-ref s_240 start_46) '#\\-) #f)" "(let-values()(real->precision-inexact_0 -0.0))" -"(let-values()(real->precision-inexact_0 n_31)))))))))))))))))" +"(let-values()(real->precision-inexact_0 n_32)))))))))))))))))" "(if slash-pos_1" "(let-values()" "(let-values(((n-v_0)" "(string->real-number" -" s_237" +" s_240" " start_46" " slash-pos_1" " #f" @@ -51330,7 +51576,7 @@ static const char *startup_source = " convert-mode_5)))" "(let-values(((d-v_0)" "(string->real-number" -" s_237" +" s_240" "(add1 slash-pos_1)" " end_36" " #f" @@ -51344,11 +51590,11 @@ static const char *startup_source = "(lambda(from-pos_0)" "(begin" " 'get-inexact?" -"(let-values(((or-part_344)(eq? exactness_3 'inexact)))" -"(if or-part_344" -" or-part_344" +"(let-values(((or-part_345)(eq? exactness_3 'inexact)))" +"(if or-part_345" +" or-part_345" "(if(not(eq? exactness_3 'exact))" -"(hashes? s_237 from-pos_0 end_36)" +"(hashes? s_240 from-pos_0 end_36)" " #f)))))))" "(if(let-values(((or-part_146)(not n-v_0)))(if or-part_146 or-part_146(not d-v_0)))" "(let-values() #f)" @@ -51363,14 +51609,14 @@ static const char *startup_source = "(let-values()" "(if(eq?(read-complains convert-mode_5) 'must-read)" "(let-values()" -" (format \"division by zero in `~.a`\" (substring s_237 start_46 end_36)))" +" (format \"division by zero in `~.a`\" (substring s_240 start_46 end_36)))" "(let-values() #f)))))" "(let-values()" -"(let-values(((n_32)(/ n-v_0 d-v_0)))" -"(if(get-inexact?_0 start_46)(exact->inexact n_32) n_32)))))))))))" +"(let-values(((n_33)(/ n-v_0 d-v_0)))" +"(if(get-inexact?_0 start_46)(exact->inexact n_33) n_33)))))))))))" "(let-values()" "(string->decimal-number" -" s_237" +" s_240" " start_46" " end_36" " dot-pos_2" @@ -51379,81 +51625,81 @@ static const char *startup_source = " convert-mode_5))))))))))))" "(define-values" "(string->decimal-number)" -"(lambda(s_246 start_47 end_37 dot-pos_3 radix_8 exactness_4 convert-mode_6)" +"(lambda(s_249 start_47 end_37 dot-pos_3 radix_8 exactness_4 convert-mode_6)" "(begin" "(let-values(((get-exact?_0)" -"(let-values(((or-part_345)(eq? exactness_4 'exact)))" -"(if or-part_345 or-part_345(eq? exactness_4 'decimal-as-exact)))))" +"(let-values(((or-part_346)(eq? exactness_4 'exact)))" +"(if or-part_346 or-part_346(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_109)" -"(lambda(i_175 j_3 hashes-pos_0)" +"((letrec-values(((loop_112)" +"(lambda(i_178 j_3 hashes-pos_0)" "(begin" " 'loop" -"(if(< i_175 start_47)" +"(if(< i_178 start_47)" "(let-values()" "(if(= hashes-pos_0 start_47)" "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" -" (format \"misplaced `#` in `~.a`\" (substring s_246 start_47 end_37)))" +" (format \"misplaced `#` in `~.a`\" (substring s_249 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_246 start_47 end_37))" +"(let-values(((n_34)(string->number$1 new-str_0 radix_8)))" +"(if(not n_34)" +"(let-values()(fail-bad-number convert-mode_6 s_249 start_47 end_37))" "(if(not get-exact?_0)" "(let-values()" -"(if(if(eqv? n_33 0)(char=?(string-ref s_246 start_47) '#\\-) #f)" +"(if(if(eqv? n_34 0)(char=?(string-ref s_249 start_47) '#\\-) #f)" " -0.0" -"(exact->inexact n_33)))" +"(exact->inexact n_34)))" "(if(if dot-pos_3 get-exact?_0 #f)" -"(let-values()(/ n_33(expt 10(- end_37 dot-pos_3 1))))" -"(let-values() n_33))))))))" +"(let-values()(/ n_34(expt 10(- end_37 dot-pos_3 1))))" +"(let-values() n_34))))))))" "(let-values()" -"(let-values(((c_82)(string-ref s_246 i_175)))" +"(let-values(((c_82)(string-ref s_249 i_178)))" "(if(char=? c_82 '#\\.)" "(let-values()" "(if get-exact?_0" "(let-values()" -"(loop_109" -"(sub1 i_175)" +"(loop_112" +"(sub1 i_178)" " j_3" -"(if(= hashes-pos_0(add1 i_175)) i_175 hashes-pos_0)))" +"(if(= hashes-pos_0(add1 i_178)) i_178 hashes-pos_0)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_82)" -"(loop_109" -"(sub1 i_175)" +"(loop_112" +"(sub1 i_178)" "(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_175)) i_175 hashes-pos_0))))))" -"(if(let-values(((or-part_113)(char=? c_82 '#\\-)))" -"(if or-part_113 or-part_113(char=? c_82 '#\\+)))" +"(if(= hashes-pos_0(add1 i_178)) i_178 hashes-pos_0))))))" +"(if(let-values(((or-part_347)(char=? c_82 '#\\-)))" +"(if or-part_347 or-part_347(char=? c_82 '#\\+)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_82)" -"(loop_109" -"(sub1 i_175)" +"(loop_112" +"(sub1 i_178)" "(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_175)) i_175 hashes-pos_0))))" +"(if(= hashes-pos_0(add1 i_178)) i_178 hashes-pos_0))))" "(if(char=? c_82 '#\\#)" "(let-values()" -"(if(= hashes-pos_0(add1 i_175))" +"(if(= hashes-pos_0(add1 i_178))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 '#\\0)" -"(loop_109(sub1 i_175)(sub1 j_3) i_175)))" +"(loop_112(sub1 i_178)(sub1 j_3) i_178)))" "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" "(format" " \"misplaced `#` in `~.a`\"" -"(substring s_246 start_47 end_37)))" +"(substring s_249 start_47 end_37)))" "(let-values() #f)))))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_82)" -"(loop_109(sub1 i_175)(sub1 j_3) hashes-pos_0)))))))))))))" -" loop_109)" +"(loop_112(sub1 i_178)(sub1 j_3) hashes-pos_0)))))))))))))" +" loop_112)" "(sub1 end_37)" "(sub1(string-length new-str_0))" " end_37))))))" @@ -51467,37 +51713,37 @@ static const char *startup_source = " (let-values () (format \"misplaced `#` in `~.a`\" (substring s_487 start_48 end_38)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_34)(string->number$1(maybe-substring s_487 start_48 end_38) radix_9)))" -"(if(not n_34)" +"(let-values(((n_35)(string->number$1(maybe-substring s_487 start_48 end_38) radix_9)))" +"(if(not n_35)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" " (let-values () (format \"bad exponent `~.a`\" (substring s_487 start_48 end_38)))" "(let-values() #f)))" -"(let-values() n_34))))))))" +"(let-values() n_35))))))))" "(define-values" "(read-special-number)" "(lambda(s_488 start_49 end_39 convert-mode_8)" "(begin" "(if(=(- end_39 start_49) 6)" -"(if(let-values(((or-part_346)(char=?(string-ref s_488 start_49) '#\\+)))" -"(if or-part_346 or-part_346(char=?(string-ref s_488 start_49) '#\\-)))" -"(let-values(((or-part_347)" +"(if(let-values(((or-part_348)(char=?(string-ref s_488 start_49) '#\\+)))" +"(if or-part_348 or-part_348(char=?(string-ref s_488 start_49) '#\\-)))" +"(let-values(((or-part_349)" "(if(char=?(char-downcase(string-ref s_488(+ start_49 1))) '#\\i)" "(if(char=?(char-downcase(string-ref s_488(+ start_49 2))) '#\\n)" "(if(char=?(char-downcase(string-ref s_488(+ start_49 3))) '#\\f)" "(if(char=?(char-downcase(string-ref s_488(+ start_49 4))) '#\\.)" -"(let-values(((or-part_348)" +"(let-values(((or-part_350)" "(if(char=?(char-downcase(string-ref s_488(+ start_49 5))) '#\\0)" "(if(char=?(string-ref s_488 start_49) '#\\+) +inf.0 -inf.0)" " #f)))" -"(if or-part_348" -" or-part_348" -"(let-values(((or-part_349)" +"(if or-part_350" +" or-part_350" +"(let-values(((or-part_351)" "(if(char=?(char-downcase(string-ref s_488(+ start_49 5))) '#\\f)" "(if(char=?(string-ref s_488 start_49) '#\\+) +inf.f -inf.f)" " #f)))" -"(if or-part_349" -" or-part_349" +"(if or-part_351" +" or-part_351" "(if(char=?(char-downcase(string-ref s_488(+ start_49 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false))" "(if(char=?(string-ref s_488 start_49) '#\\+) '+inf.t '-inf.t)" @@ -51507,20 +51753,20 @@ static const char *startup_source = " #f)" " #f)" " #f)))" -"(if or-part_347" -" or-part_347" +"(if or-part_349" +" or-part_349" "(if(char=?(char-downcase(string-ref s_488(+ start_49 1))) '#\\n)" "(if(char=?(char-downcase(string-ref s_488(+ start_49 2))) '#\\a)" "(if(char=?(char-downcase(string-ref s_488(+ start_49 3))) '#\\n)" "(if(char=?(char-downcase(string-ref s_488(+ start_49 4))) '#\\.)" -"(let-values(((or-part_350)" +"(let-values(((or-part_352)" "(if(char=?(char-downcase(string-ref s_488(+ start_49 5))) '#\\0) +nan.0 #f)))" -"(if or-part_350" -" or-part_350" -"(let-values(((or-part_351)" +"(if or-part_352" +" or-part_352" +"(let-values(((or-part_353)" "(if(char=?(char-downcase(string-ref s_488(+ start_49 5))) '#\\f) +nan.f #f)))" -"(if or-part_351" -" or-part_351" +"(if or-part_353" +" or-part_353" "(if(char=?(char-downcase(string-ref s_488(+ start_49 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)" " #f)))))" @@ -51532,10 +51778,10 @@ static const char *startup_source = " #f))))" "(define-values" "(fail-extflonum)" -"(lambda(convert-mode_9 v_242)" +"(lambda(convert-mode_9 v_244)" "(begin" "(if(eq? convert-mode_9 'must-read)" -" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_242))" +" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_244))" "(let-values() #f)))))" "(define-values" "(read-for-special-compound65.1)" @@ -51552,7 +51798,7 @@ static const char *startup_source = " combine64_0)" "(begin" " 'read-for-special-compound65" -"(let-values(((s_258) s57_0))" +"(let-values(((s_261) s57_0))" "(let-values(((start_50) start58_0))" "(let-values(((end_40) end59_0))" "(let-values(((radix_10) radix60_0))" @@ -51560,22 +51806,22 @@ static const char *startup_source = "(let-values(((convert-mode_10) convert-mode62_0))" "(let-values(((in-complex_3) in-complex53_0))" "(let-values(((reading-first?_0)(if reading-first?56_0 reading-first?54_0 #f)))" -"(let-values(((v_243) v63_0))" +"(let-values(((v_245) v63_0))" "(let-values(((combine_1) combine64_0))" "(let-values()" "(if(eq? exactness_5 'exact)" "(let-values()" "(if(eq? convert-mode_10 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_243))" +" (let-values () (format \"no exact representation for `~a`\" v_245))" "(let-values() #f)))" -"(if(if(extflonum? v_243)" -"(let-values(((or-part_352)(not reading-first?_0)))" -"(if or-part_352 or-part_352(not(eq? convert-mode_10 'must-read))))" +"(if(if(extflonum? v_245)" +"(let-values(((or-part_354)(not reading-first?_0)))" +"(if or-part_354 or-part_354(not(eq? convert-mode_10 'must-read))))" " #f)" -"(let-values()(fail-extflonum convert-mode_10 v_243))" +"(let-values()(fail-extflonum convert-mode_10 v_245))" "(let-values()" "(let-values(((v2_7)" -"(let-values(((s176_0) s_258)" +"(let-values(((s176_0) s_261)" "((start177_0) start_50)" "((end178_0) end_40)" "((radix179_0) radix_10)" @@ -51597,9 +51843,9 @@ static const char *startup_source = "(let-values() v2_7)" "(if(not v2_7)" "(let-values() v2_7)" -"(if(extflonum? v_243)" -"(let-values()(fail-extflonum convert-mode_10 v_243))" -"(let-values()(combine_1 v_243 v2_7)))))))))))))))))))))))" +"(if(extflonum? v_245)" +"(let-values()(fail-extflonum convert-mode_10 v_245))" +"(let-values()(combine_1 v_245 v2_7)))))))))))))))))))))))" "(define-values" "(hashes?)" "(lambda(s_489 start_51 end_41)" @@ -51608,8 +51854,8 @@ static const char *startup_source = "(normalise-inputs" " 'in-string" " \"string\"" -"(lambda(x_83)(string? x_83))" -"(lambda(x_84)(unsafe-string-length x_84))" +"(lambda(x_85)(string? x_85))" +"(lambda(x_86)(unsafe-string-length x_86))" " s_489" " start_51" " end_41" @@ -51617,26 +51863,26 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_276)" -"(lambda(result_126 idx_5)" +"(lambda(result_127 idx_5)" "(begin" " 'for-loop" "(if(unsafe-fx< idx_5 stop*_6)" "(let-values(((c_83)(string-ref v*_6 idx_5)))" -"(let-values(((result_127)" -"(let-values()" "(let-values(((result_128)" +"(let-values()" +"(let-values(((result_129)" "(let-values()(let-values()(char=? c_83 '#\\#)))))" -"(values result_128)))))" -"(if(if(not((lambda x_85 result_127) c_83))(not #f) #f)" -"(for-loop_276 result_127(unsafe-fx+ idx_5 1))" -" result_127)))" -" result_126)))))" +"(values result_129)))))" +"(if(if(not((lambda x_87 result_128) c_83))(not #f) #f)" +"(for-loop_276 result_128(unsafe-fx+ idx_5 1))" +" result_128)))" +" result_127)))))" " for-loop_276)" " #f" " start*_5))))))" "(define-values" "(replace-hashes)" -"(lambda(s_136 start_52 end_42)" +"(lambda(s_490 start_52 end_42)" "(begin" "(let-values(((new-s_9)(make-string(- end_42 start_52))))" "(begin" @@ -51644,9 +51890,9 @@ static const char *startup_source = "(normalise-inputs" " 'in-string" " \"string\"" -"(lambda(x_86)(string? x_86))" -"(lambda(x_87)(unsafe-string-length x_87))" -" s_136" +"(lambda(x_88)(string? x_88))" +"(lambda(x_89)(unsafe-string-length x_89))" +" s_490" " start_52" " end_42" " 1))" @@ -51657,11 +51903,11 @@ static const char *startup_source = "(void)" "(let-values()(check-naturals start_53)))" "((letrec-values(((for-loop_277)" -"(lambda(idx_6 pos_115)" +"(lambda(idx_6 pos_113)" "(begin" " 'for-loop" "(if(if(unsafe-fx< idx_6 stop*_7) #t #f)" -"(let-values(((c_84)(string-ref v*_7 idx_6))((i_121) pos_115))" +"(let-values(((c_84)(string-ref v*_7 idx_6))((i_122) pos_113))" "(let-values((()" "(let-values()" "(let-values((()" @@ -51669,11 +51915,11 @@ static const char *startup_source = "(begin" "(let-values()" "(if(char=? c_84 '#\\#)" -"(string-set! new-s_9 i_121 '#\\0)" -"(string-set! new-s_9 i_121 c_84)))" +"(string-set! new-s_9 i_122 '#\\0)" +"(string-set! new-s_9 i_122 c_84)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_277(unsafe-fx+ idx_6 1)(+ pos_115 1))(values))))" +"(if(not #f)(for-loop_277(unsafe-fx+ idx_6 1)(+ pos_113 1))(values))))" "(values))))))" " for-loop_277)" " start*_6" @@ -51682,39 +51928,39 @@ static const char *startup_source = " new-s_9)))))" "(define-values" "(maybe-substring)" -"(lambda(s_389 start_54 end_43)" -"(begin(if(if(= 0 start_54)(= end_43(string-length s_389)) #f) s_389(substring s_389 start_54 end_43)))))" +"(lambda(s_393 start_54 end_43)" +"(begin(if(if(= 0 start_54)(= end_43(string-length s_393)) #f) s_393(substring s_393 start_54 end_43)))))" "(define-values" "(exactness-set?)" "(lambda(exactness_6)" "(begin" -"(let-values(((or-part_353)(eq? exactness_6 'exact)))(if or-part_353 or-part_353(eq? exactness_6 'inexact))))))" +"(let-values(((or-part_355)(eq? exactness_6 'exact)))(if or-part_355 or-part_355(eq? exactness_6 'inexact))))))" "(define-values" "(char-sign?)" "(lambda(c_85)" -"(begin(let-values(((or-part_354)(char=? c_85 '#\\-)))(if or-part_354 or-part_354(char=? c_85 '#\\+))))))" +"(begin(let-values(((or-part_356)(char=? c_85 '#\\-)))(if or-part_356 or-part_356(char=? c_85 '#\\+))))))" "(define-values" "(digit?)" "(lambda(c_86 radix_11)" "(begin" -"(let-values(((v_244)(char->integer c_86)))" -"(let-values(((or-part_355)" -"(if(>= v_244(char->integer '#\\0))(<(- v_244(char->integer '#\\0)) radix_11) #f)))" -"(if or-part_355" -" or-part_355" +"(let-values(((v_246)(char->integer c_86)))" +"(let-values(((or-part_357)" +"(if(>= v_246(char->integer '#\\0))(<(- v_246(char->integer '#\\0)) radix_11) #f)))" +"(if or-part_357" +" or-part_357" "(if(> radix_11 10)" -"(let-values(((or-part_356)" -"(if(>= v_244(char->integer '#\\a))(<(- v_244(-(char->integer '#\\a) 10)) radix_11) #f)))" -"(if or-part_356" -" or-part_356" -"(if(>= v_244(char->integer '#\\A))(<(- v_244(-(char->integer '#\\A) 10)) radix_11) #f)))" +"(let-values(((or-part_358)" +"(if(>= v_246(char->integer '#\\a))(<(- v_246(-(char->integer '#\\a) 10)) radix_11) #f)))" +"(if or-part_358" +" or-part_358" +"(if(>= v_246(char->integer '#\\A))(<(- v_246(-(char->integer '#\\A) 10)) radix_11) #f)))" " #f)))))))" "(define-values" "(fail-bad-number)" -"(lambda(convert-mode_11 s_490 start_55 end_44)" +"(lambda(convert-mode_11 s_491 start_55 end_44)" "(begin" "(if(eq? convert-mode_11 'must-read)" -" (let-values () (format \"bad number `~.a`\" (substring s_490 start_55 end_44)))" +" (let-values () (format \"bad number `~.a`\" (substring s_491 start_55 end_44)))" "(let-values() #f)))))" "(define-values" "(read-complains)" @@ -51727,14 +51973,14 @@ static const char *startup_source = "(let-values(((init-c_2) init-c5_0))" "(let-values(((in_25) in6_1))" "(let-values(((config_24) config7_0))" -"(let-values(((mode_17)(if mode3_0 mode1_0 'symbol-or-number)))" +"(let-values(((mode_18)(if mode3_0 mode1_0 'symbol-or-number)))" "(let-values(((extra-prefix_0)(if extra-prefix4_0 extra-prefix2_0 #f)))" "(let-values()" "(let-values(((rt_11)(read-config-readtable config_24)))" "(let-values(((c1_31)" "(if rt_11" -"(if(let-values(((or-part_3)(eq? mode_17 'symbol-or-number)))" -"(if or-part_3 or-part_3(eq? mode_17 'symbol/indirect)))" +"(if(let-values(((or-part_3)(eq? mode_18 'symbol-or-number)))" +"(if or-part_3 or-part_3(eq? mode_18 'symbol/indirect)))" "(readtable-symbol-parser rt_11)" " #f)" " #f)))" @@ -51774,9 +52020,9 @@ static const char *startup_source = " \"non-character\"))" "((after-c16_0) after-c_0)" "((temp17_3)" -"(if(eq? mode_17 'keyword)" +"(if(eq? mode_18 'keyword)" " (let-values () \"keyword\")" -"(if(string? mode_17)" +"(if(string? mode_18)" " (let-values () \"number\")" " (let-values () \"symbol\")))))" "(reader-error12.1" @@ -51794,7 +52040,7 @@ static const char *startup_source = "(list temp15_5 after-c16_0 temp17_3)))))))" "(let-values((()" "(begin" -"((letrec-values(((loop_110)" +"((letrec-values(((loop_113)" "(lambda(init-c_6" " pipe-quote-c_0" " foldcase-from_0)" @@ -51878,7 +52124,7 @@ static const char *startup_source = "(consume-char" " in_25" " c_88)))" -"(loop_110" +"(loop_113" " #f" " #f" "(accum-string-count" @@ -51904,7 +52150,7 @@ static const char *startup_source = " accum-str_1" " string-foldcase" " foldcase-from_0)))" -"(loop_110" +"(loop_113" " #f" " c_88" "(accum-string-count" @@ -51954,7 +52200,7 @@ static const char *startup_source = " next-c_0)" "(set! quoted-ever?_0" " #t)" -"(loop_110" +"(loop_113" " #f" " #f" "(accum-string-count" @@ -51970,11 +52216,11 @@ static const char *startup_source = "(accum-string-add!" " accum-str_1" " c_88)" -"(loop_110" +"(loop_113" " #f" " pipe-quote-c_0" " foldcase-from_0))))))))))))))" -" loop_110)" +" loop_113)" " init-c_2" " #f" " 0)" @@ -52013,12 +52259,12 @@ static const char *startup_source = "(values))))" "(let-values(((num_0)" "(if(let-values(((or-part_156)" -"(eq? mode_17 'symbol-or-number)))" -"(if or-part_156 or-part_156(string? mode_17)))" +"(eq? mode_18 'symbol-or-number)))" +"(if or-part_156 or-part_156(string? mode_18)))" "(if(not quoted-ever?_0)" "(1/string->number" -"(if(string? mode_17)" -"(string-append mode_17 str_29)" +"(if(string? mode_18)" +"(string-append mode_18 str_29)" " str_29)" " 10" " 'read" @@ -52048,12 +52294,12 @@ static const char *startup_source = " temp25_5" "(list num26_0))))" "(void))" -"(if(if(not num_0)(string? mode_17) #f)" +"(if(if(not num_0)(string? mode_18) #f)" "(let-values()" "(let-values(((in27_0) in_25)" "((config28_0) config_24)" " ((temp29_3) \"bad number: `~a`\")" -"((temp30_2)(string-append mode_17 str_29)))" +"((temp30_2)(string-append mode_18 str_29)))" "(reader-error12.1" " #f" " #f" @@ -52072,11 +52318,11 @@ static const char *startup_source = "(let-values(((or-part_164) num_0))" "(if or-part_164" " or-part_164" -"(let-values(((or-part_306)" -"(if(eq? mode_17 'keyword)" +"(let-values(((or-part_309)" +"(if(eq? mode_18 'keyword)" "(string->keyword str_29)" " #f)))" -"(if or-part_306 or-part_306(string->symbol str_29)))))" +"(if or-part_309 or-part_309(string->symbol str_29)))))" " in_25" " config_24" " str_29)))))))))))))))))))))))))" @@ -52085,7 +52331,7 @@ static const char *startup_source = "(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_116)(port-next-location* in_5 c_33)))" +"(let-values(((line_8 col_7 pos_114)(port-next-location* in_5 c_33)))" " (let-values (((v_95) (read-number-literal c_33 in_5 config_15 \"#e\")))" "(if(fixnum? v_95)" "(let-values() v_95)" @@ -52093,7 +52339,7 @@ static const char *startup_source = "(let-values() v_95)" "(let-values()" "(let-values(((in1_3) in_5)" -"((temp2_5)(reading-at config_15 line_8 col_7 pos_116))" +"((temp2_5)(reading-at config_15 line_8 col_7 pos_114))" " ((temp3_6) \"expected a fixnum, found ~a\")" "((v4_1) v_95))" "(reader-error12.1 #f #f #f #f #f #f #f #f in1_3 temp2_5 temp3_6(list v4_1))))))))))))" @@ -52102,7 +52348,7 @@ static const char *startup_source = "(lambda(read-one_4 init-c_7 in_28 config_38)" "(begin" "(let-values(((c_14)(read-char/skip-whitespace-and-comments init-c_7 read-one_4 in_28 config_38)))" -"(let-values(((line_9 col_8 pos_93)(port-next-location* in_28 c_14)))" +"(let-values(((line_9 col_8 pos_92)(port-next-location* in_28 c_14)))" " (let-values (((v_29) (read-number-literal c_14 in_28 config_38 \"#i\")))" "(if(flonum? v_29)" "(let-values() v_29)" @@ -52110,18 +52356,18 @@ static const char *startup_source = "(let-values() v_29)" "(let-values()" "(let-values(((in5_0) in_28)" -"((temp6_1)(reading-at config_38 line_9 col_8 pos_93))" +"((temp6_1)(reading-at config_38 line_9 col_8 pos_92))" " ((temp7_4) \"expected a flonum, found ~a\")" "((v8_0) v_29))" "(reader-error12.1 #f #f #f #f #f #f #f #f in5_0 temp6_1 temp7_4(list v8_0))))))))))))" "(define-values" "(read-number-literal)" -"(lambda(c_90 in_29 config_39 mode_18)" +"(lambda(c_90 in_29 config_39 mode_19)" "(begin" "(if(not(char? c_90))" "(let-values() c_90)" "(let-values()" -"(let-values(((c9_0) c_90)((in10_1) in_29)((config11_0) config_39)((mode12_0) mode_18))" +"(let-values(((c9_0) c_90)((in10_1) in_29)((config11_0) config_39)((mode12_0) mode_19))" "(read-symbol-or-number8.1 #f #f mode12_0 #t c9_0 in10_1 config11_0)))))))" "(define-values" "(read-vector11.1)" @@ -52138,16 +52384,16 @@ static const char *startup_source = "(let-values(((expected-len_0)(if length4_0 length2_0 #f)))" "(let-values()" "(let-values(((read-one-element_0)" -"(let-values(((tmp_30) vector-mode_0))" -"(if(equal? tmp_30 'any)" +"(let-values(((tmp_31) vector-mode_0))" +"(if(equal? tmp_31 'any)" "(let-values() read-one_5)" -"(if(equal? tmp_30 'fixnum)" +"(if(equal? tmp_31 'fixnum)" "(let-values()" "(lambda(init-c_8 in_31 config_41)" "(begin" " 'read-one-element" "(read-fixnum read-one_5 init-c_8 in_31 config_41))))" -"(if(equal? tmp_30 'flonum)" +"(if(equal? tmp_31 'flonum)" "(let-values()" "(lambda(init-c_9 in_32 config_42)" "(begin" @@ -52210,20 +52456,20 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_23)))" "((letrec-values(((for-loop_256)" -"(lambda(i_176 lst_79)" +"(lambda(i_179 lst_78)" "(begin" " 'for-loop" -"(if(pair? lst_79)" +"(if(pair? lst_78)" "(let-values(((e_73)" "(unsafe-car" -" lst_79))" +" lst_78))" "((rest_141)" "(unsafe-cdr" -" lst_79)))" -"(let-values(((i_177)" -"(let-values(((i_178)" -" i_176))" -"(let-values(((i_58)" +" lst_78)))" +"(let-values(((i_180)" +"(let-values(((i_181)" +" i_179))" +"(let-values(((i_60)" "(let-values()" "(begin" "(let-values(((elem_0)" @@ -52233,29 +52479,29 @@ static const char *startup_source = " elem_0)" "(unsafe-fxvector-set!" " v_203" -" i_178" +" i_181" " elem_0)" "(not-an-fX.1" " 'for*/vector" " elem_0)))" "(unsafe-fx+" " 1" -" i_178)))))" +" i_181)))))" "(values" -" i_58)))))" +" i_60)))))" "(if(if(not" -"((lambda x_88" +"((lambda x_90" "(unsafe-fx=" -" i_177" +" i_180" " len_38))" " e_73))" "(not #f)" " #f)" "(for-loop_256" -" i_177" +" i_180" " rest_141)" -" i_177)))" -" i_176)))))" +" i_180)))" +" i_179)))))" " for-loop_256)" " 0" " lst_23)))))" @@ -52272,19 +52518,19 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_8)))" "(let-values(((fill_1) 0.0))" -"(let-values(((v_245)(make-flvector len_8 fill_1)))" +"(let-values(((v_247)(make-flvector len_8 fill_1)))" "(begin" "(if(zero? len_8)" "(void)" "(let-values()" -"(let-values(((lst_91) seq_2))" +"(let-values(((lst_90) seq_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_91)))" -"((letrec-values(((for-loop_195)" -"(lambda(i_179 lst_17)" +"(let-values()(check-list lst_90)))" +"((letrec-values(((for-loop_194)" +"(lambda(i_182 lst_17)" "(begin" " 'for-loop" "(if(pair? lst_17)" @@ -52294,10 +52540,10 @@ static const char *startup_source = "((rest_91)" "(unsafe-cdr" " lst_17)))" -"(let-values(((i_157)" -"(let-values(((i_91)" -" i_179))" -"(let-values(((i_180)" +"(let-values(((i_158)" +"(let-values(((i_92)" +" i_182))" +"(let-values(((i_183)" "(let-values()" "(begin" "(let-values(((elem_1)" @@ -52306,34 +52552,34 @@ static const char *startup_source = "(if(flonum?" " elem_1)" "(unsafe-flvector-set!" -" v_245" -" i_91" +" v_247" +" i_92" " elem_1)" "(not-an-fX.1$1" " 'for*/vector" " elem_1)))" "(unsafe-fx+" " 1" -" i_91)))))" +" i_92)))))" "(values" -" i_180)))))" +" i_183)))))" "(if(if(not" -"((lambda x_89" +"((lambda x_91" "(unsafe-fx=" -" i_157" +" i_158" " len_8))" " e_80))" "(not #f)" " #f)" -"(for-loop_195" -" i_157" +"(for-loop_194" +" i_158" " rest_91)" -" i_157)))" -" i_179)))))" -" for-loop_195)" +" i_158)))" +" i_182)))))" +" for-loop_194)" " 0" -" lst_91)))))" -" v_245))))))" +" lst_90)))))" +" v_247))))))" "(let-values()(void)))))))" "(let-values()" "(let-values(((len_39)(length seq_2)))" @@ -52371,20 +52617,20 @@ static const char *startup_source = "(list temp25_6 expected-len26_0 len27_0))))" "(let-values()" "(let-values(((last-or_0)" -"(lambda(v_246)" +"(lambda(v_248)" "(begin" " 'last-or" "(if(null? seq_2)" -"(wrap v_246 in_30 config_40 #f)" -"((letrec-values(((loop_111)" +"(wrap v_248 in_30 config_40 #f)" +"((letrec-values(((loop_114)" "(lambda(seq_3)" "(begin" " 'loop" "(if(null?(cdr seq_3))" "(car seq_3)" -"(loop_111" +"(loop_114" "(cdr seq_3)))))))" -" loop_111)" +" loop_114)" " seq_2))))))" "(let-values((()" "(begin" @@ -52419,31 +52665,31 @@ static const char *startup_source = "(if(equal? tmp_44 'any)" "(let-values()" "(begin" -"(let-values(((lst_95) seq_2)((start_56) 0))" +"(let-values(((lst_94) seq_2)((start_56) 0))" "(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_56)))" "((letrec-values(((for-loop_278)" -"(lambda(lst_96 pos_117)" +"(lambda(lst_95 pos_115)" "(begin" " 'for-loop" -"(if(if(pair? lst_96)" +"(if(if(pair? lst_95)" " #t" " #f)" "(let-values(((e_81)" "(unsafe-car" -" lst_96))" +" lst_95))" "((rest_165)" "(unsafe-cdr" -" lst_96))" -"((i_181)" -" pos_117))" +" lst_95))" +"((i_184)" +" pos_115))" "(let-values((()" "(let-values()" "(let-values((()" @@ -52452,18 +52698,18 @@ static const char *startup_source = "(let-values()" "(vector-set!" " vec_70" -" i_181" +" i_184" " e_81))" "(values)))))" "(values)))))" "(if(not #f)" "(for-loop_278" " rest_165" -"(+ pos_117 1))" +"(+ pos_115 1))" "(values))))" "(values))))))" " for-loop_278)" -" lst_95" +" lst_94" " start_56)))" "(void)))" "(if(equal? tmp_44 'fixnum)" @@ -52479,22 +52725,22 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-naturals start_57)))" -"((letrec-values(((for-loop_101)" -"(lambda(lst_179 pos_110)" +"((letrec-values(((for-loop_102)" +"(lambda(lst_180 pos_108)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_179)" +" lst_180)" " #t" " #f)" "(let-values(((e_82)" "(unsafe-car" -" lst_179))" +" lst_180))" "((rest_171)" "(unsafe-cdr" -" lst_179))" -"((i_182)" -" pos_110))" +" lst_180))" +"((i_185)" +" pos_108))" "(let-values((()" "(let-values()" "(let-values((()" @@ -52503,53 +52749,53 @@ static const char *startup_source = "(let-values()" "(fxvector-set!" " vec_70" -" i_182" +" i_185" " e_82))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_101" +"(for-loop_102" " rest_171" "(+" -" pos_110" +" pos_108" " 1))" "(values))))" "(values))))))" -" for-loop_101)" +" for-loop_102)" " lst_10" " start_57)))" "(void)))" "(if(equal? tmp_44 'flonum)" "(let-values()" "(begin" -"(let-values(((lst_306) seq_2)((start_44) 0))" +"(let-values(((lst_307) seq_2)((start_44) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_306)))" +"(let-values()(check-list lst_307)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals start_44)))" -"((letrec-values(((for-loop_111)" -"(lambda(lst_281" -" pos_118)" +"((letrec-values(((for-loop_112)" +"(lambda(lst_282" +" pos_116)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_281)" +" lst_282)" " #t" " #f)" "(let-values(((e_83)" "(unsafe-car" -" lst_281))" -"((rest_47)" +" lst_282))" +"((rest_46)" "(unsafe-cdr" -" lst_281))" -"((i_34)" -" pos_118))" +" lst_282))" +"((i_36)" +" pos_116))" "(let-values((()" "(let-values()" "(let-values((()" @@ -52558,20 +52804,20 @@ static const char *startup_source = "(let-values()" "(flvector-set!" " vec_70" -" i_34" +" i_36" " e_83))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_111" -" rest_47" +"(for-loop_112" +" rest_46" "(+" -" pos_118" +" pos_116" " 1))" "(values))))" "(values))))))" -" for-loop_111)" -" lst_306" +" for-loop_112)" +" lst_307" " start_44)))" "(void)))" "(let-values()(void))))))" @@ -52707,7 +52953,7 @@ static const char *startup_source = "(let-values(((accum-str_2)(accum-string-init! config_44)))" "(let-values((()(begin(accum-string-add! accum-str_2 init-c_10)(values))))" "(let-values(((init-v_1)(digit->number init-c_10)))" -"(let-values(((v_247)" +"(let-values(((v_249)" "(let-values(((in69_0) in_35)" "((config70_0) config_44)" "((accum-str71_0) accum-str_2)" @@ -52727,7 +52973,7 @@ static const char *startup_source = " accum-str71_0" " #t))))" "(values" -" v_247" +" v_249" "(let-values(((accum-str76_0) accum-str_2)((config77_0) config_44))" "(accum-string-get!6.1 #f #f accum-str76_0 config77_0))" "(let-values(((in_36) in_35)((source_20)(read-config-source config_44)))" @@ -52830,7 +53076,7 @@ static const char *startup_source = "(let-values(((st_2)" "(let-values(((with-handlers-predicate20_0) exn:fail?)" "((with-handlers-handler21_0)" -"(lambda(exn_3)(begin 'with-handlers-handler21 #f))))" +"(lambda(exn_4)(begin 'with-handlers-handler21 #f))))" "(let-values(((bpz_4)(continuation-mark-set-first #f break-enabled-key)))" "(call-handled-body" " bpz_4" @@ -53032,9 +53278,9 @@ static const char *startup_source = "(if(if(equal? tmp_48 '#\\=) #t(equal? tmp_48 '#\\#))" "(let-values()" "(begin" -"(if(let-values(((or-part_307)(read-config-for-syntax? config_46)))" -"(if or-part_307" -" or-part_307" +"(if(let-values(((or-part_310)(read-config-for-syntax? config_46)))" +"(if or-part_310" +" or-part_310" "(not(check-parameter 1/read-accept-graph config_46))))" "(let-values()" "(let-values(((in37_1) in_38)" @@ -53088,10 +53334,10 @@ static const char *startup_source = "(if(equal? tmp_49 '#\\=)" "(let-values()" "(let-values(((ph_1)(make-placeholder 'placeholder)))" -"(let-values(((ht_158)(get-graph-hash config_46)))" +"(let-values(((ht_159)(get-graph-hash config_46)))" "(let-values((()" "(begin" -"(if(hash-ref ht_158 v_28 #f)" +"(if(hash-ref ht_159 v_28 #f)" "(let-values()" "(let-values(((in50_0) in_38)" "((config51_0) config_46)" @@ -53123,7 +53369,7 @@ static const char *startup_source = "(list dispatch-c53_0 temp54_1 c55_0))))" "(void))" "(values))))" -"(let-values((()(begin(hash-set! ht_158 v_28 ph_1)(values))))" +"(let-values((()(begin(hash-set! ht_159 v_28 ph_1)(values))))" "(let-values(((result-v_0)" "(read-one_3 #f in_38(next-readtable config_46))))" "(begin" @@ -53165,9 +53411,9 @@ static const char *startup_source = "(let-values()" "(begin0" "(hash-ref" -"(let-values(((or-part_100)" +"(let-values(((or-part_359)" "(read-config-state-graph(read-config-st config_46))))" -"(if or-part_100 or-part_100 '#hash()))" +"(if or-part_359 or-part_359 '#hash()))" " v_28" "(lambda()" "(let-values(((in67_0) in_38)" @@ -53227,7 +53473,7 @@ static const char *startup_source = "(let-values(((or-part_134)(read-config-state-graph st_3)))" "(if or-part_134" " or-part_134" -"(let-values(((ht_159)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_159) ht_159))))))))" +"(let-values(((ht_160)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_160) ht_160))))))))" "(define-values" "(coerce-key)" "(lambda(key_86 config_8)" @@ -53278,9 +53524,9 @@ static const char *startup_source = "(let-values((()(begin(get-next!_0 '#\\a '#\\A)(values))))" "(let-values((()(begin(get-next!_0 '#\\s '#\\S)(values))))" "(let-values((()(begin(get-next!_0 '#\\h '#\\H)(values))))" -"(let-values(((content_11 opener_4 mode_19)" -"((letrec-values(((loop_112)" -"(lambda(mode_20)" +"(let-values(((content_11 opener_4 mode_20)" +"((letrec-values(((loop_115)" +"(lambda(mode_21)" "(begin" " 'loop" "(let-values(((c_70)" @@ -53333,7 +53579,7 @@ static const char *startup_source = " in13_0" " config14_0))" " ec_7" -" mode_20))))" +" mode_21))))" "(if(equal? tmp_50 '#\\[)" "(let-values()" "(if(check-parameter" @@ -53378,7 +53624,7 @@ static const char *startup_source = " in21_1" " config22_1))" " ec_7" -" mode_20))))" +" mode_21))))" "(let-values()" "(let-values(((in25_0) in_38)" "((config26_0) config_46)" @@ -53441,7 +53687,7 @@ static const char *startup_source = " in33_3" " config34_1))" " ec_7" -" mode_20))))" +" mode_21))))" "(let-values()" "(let-values(((in37_2) in_38)" "((config38_1) config_46)" @@ -53468,15 +53714,15 @@ static const char *startup_source = "(begin" "(accum-string-add! accum-str_3 c_70)" "(get-next!_0 '#\\q '#\\Q)" -"(loop_112 'eq)))" +"(loop_115 'eq)))" "(if(if(equal? tmp_50 '#\\v)" " #t" "(equal? tmp_50 '#\\V))" "(let-values()" "(begin" "(accum-string-add! accum-str_3 c_70)" -"(if(eq? mode_20 'eq)" -"(loop_112 'eqv)" +"(if(eq? mode_21 'eq)" +"(loop_115 'eqv)" "(let-values(((in41_0) in_38)" "((config42_0) config_46)" "((temp43_2)" @@ -53537,11 +53783,11 @@ static const char *startup_source = " config48_1" " temp50_2" "(list temp51_3)))))))))))))))))" -" loop_112)" +" loop_115)" " 'equal)))" "(let-values(((graph?_0)(if(read-config-state-graph(read-config-st config_46)) #t #f)))" "(wrap" -"(let-values(((tmp_51) mode_19))" +"(let-values(((tmp_51) mode_20))" "(if(equal? tmp_51 'equal)" "(let-values()" "(if graph?_0(make-hash-placeholder content_11)(make-immutable-hash content_11)))" @@ -53609,8 +53855,8 @@ static const char *startup_source = "((temp64_4)(indentation-unexpected-closer-message ec_8 c_93 config_48)))" "(reader-error12.1 #f #f #f #f #f #f #f #f in61_0 temp62_2 temp63_4(list temp64_4))))" "(let-values()" -"(let-values(((v_248)(read-one_8 c_93 in_41(keep-comment elem-config_1))))" -"(if(1/special-comment? v_248)" +"(let-values(((v_250)(read-one_8 c_93 in_41(keep-comment elem-config_1))))" +"(if(1/special-comment? v_250)" "(let-values()" "((make-read-one-key+value" " read-one_8" @@ -53681,7 +53927,7 @@ static const char *startup_source = " temp72_2" "(list temp73_4)))))" "(values))))" -"(let-values(((v_249)(read-one_8 #f in_41 elem-config_1)))" +"(let-values(((v_251)(read-one_8 #f in_41 elem-config_1)))" "(let-values(((closer-c_0)" "(read-char/skip-whitespace-and-comments #f read-one_8 in_41 config_48)))" "(let-values(((closer-line_0 closer-col_0 closer-pos_0)" @@ -53714,7 +53960,7 @@ static const char *startup_source = " temp75_1" " temp77_1" "(list temp78_2)))))" -"(cons(coerce-key k_41 elem-config_1) v_249))))))))))))))))))))))" +"(cons(coerce-key k_41 elem-config_1) v_251))))))))))))))))))))))" "(define-values" "(read-string5.1)" "(lambda(mode1_1 mode2_0 in3_0 config4_0)" @@ -53772,7 +54018,7 @@ static const char *startup_source = "(list mode17_1)))))))))" "(let-values((()" "(begin" -"((letrec-values(((loop_112)" +"((letrec-values(((loop_115)" "(lambda()" "(begin" " 'loop" @@ -54051,7 +54297,7 @@ static const char *startup_source = "(void))" "(void))))" "(let-values()" -"(let-values(((pos_119)" +"(let-values(((pos_117)" "(accum-string-count" " accum-str_4)))" "(let-values((()" @@ -54107,7 +54353,7 @@ static const char *startup_source = "((config38_2)" " config_22)" "((pos39_0)" -" pos_119))" +" pos_117))" "(accum-string-get!6.1" " pos39_0" " #t" @@ -54133,17 +54379,17 @@ static const char *startup_source = " mode36_0)))))" "(set-accum-string-count!" " accum-str_4" -" pos_119)" +" pos_117)" "(accum-string-add!" " accum-str_4" "(integer->char" " v_66)))))))))" "(if(unsafe-fx< index_3 14)" "(let-values()" -"(let-values(((pos_103)" +"(let-values(((pos_102)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_246)" +"(let-values(((v_248)" "(let-values(((in40_1)" " in_43)" "((config41_1)" @@ -54166,22 +54412,22 @@ static const char *startup_source = " accum-str42_0" " #t))))" "(begin" -"(if(integer? v_246)" +"(if(integer? v_248)" "(void)" "(let-values()" "(no-hex-digits" " in_43" " config_22" -" v_246" +" v_248" " escaping-c_0" " escaped-c_0)))" "(set-accum-string-count!" " accum-str_4" -" pos_103)" +" pos_102)" "(accum-string-add!" " accum-str_4" "(integer->char" -" v_246))))))" +" v_248))))))" "(if(unsafe-fx< index_3 15)" "(let-values()" "(let-values((()" @@ -54193,10 +54439,10 @@ static const char *startup_source = "(let-values()" "(unknown-error_0)))" "(values))))" -"(let-values(((pos_120)" +"(let-values(((pos_118)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_250)" +"(let-values(((v_252)" "(let-values(((in45_0)" " in_43)" "((config46_0)" @@ -54220,33 +54466,33 @@ static const char *startup_source = " #t))))" "(begin" "(if(integer?" -" v_250)" +" v_252)" "(void)" "(let-values()" "(no-hex-digits" " in_43" " config_22" -" v_250" +" v_252" " escaping-c_0" " escaped-c_0)))" -"(if(let-values(((or-part_253)" +"(if(let-values(((or-part_255)" "(<" -" v_250" +" v_252" " 55296)))" -"(if or-part_253" -" or-part_253" +"(if or-part_255" +" or-part_255" "(>" -" v_250" +" v_252" " 57343)))" "(let-values()" "(begin" "(set-accum-string-count!" " accum-str_4" -" pos_120)" +" pos_118)" "(accum-string-add!" " accum-str_4" "(integer->char" -" v_250))))" +" v_252))))" "(let-values()" "(let-values(((next!_0)" "(lambda()" @@ -54330,7 +54576,7 @@ static const char *startup_source = "(+" "(arithmetic-shift" "(-" -" v_250" +" v_252" " 55296)" " 10)" "(-" @@ -54355,7 +54601,7 @@ static const char *startup_source = "((config61_0)" " config_22)" "((pos62_0)" -" pos_120))" +" pos_118))" "(accum-string-get!6.1" " pos62_0" " #t" @@ -54380,7 +54626,7 @@ static const char *startup_source = "(begin" "(set-accum-string-count!" " accum-str_4" -" pos_120)" +" pos_118)" "(accum-string-add!" " accum-str_4" "(integer->char" @@ -54402,7 +54648,7 @@ static const char *startup_source = "((config70_1)" " config_22)" "((pos71_0)" -" pos_120))" +" pos_118))" "(accum-string-get!6.1" " pos71_0" " #t" @@ -54433,10 +54679,10 @@ static const char *startup_source = "(let-values()" "(unknown-error_0)))" "(values))))" -"(let-values(((pos_121)" +"(let-values(((pos_119)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_251)" +"(let-values(((v_253)" "(let-values(((in72_0)" " in_43)" "((config73_0)" @@ -54460,37 +54706,37 @@ static const char *startup_source = " #t))))" "(begin" "(if(integer?" -" v_251)" +" v_253)" "(void)" "(let-values()" "(no-hex-digits" " in_43" " config_22" -" v_251" +" v_253" " escaping-c_0" " escaped-c_0)))" "(if(if(let-values(((or-part_55)" "(<" -" v_251" +" v_253" " 55296)))" "(if or-part_55" " or-part_55" "(>" -" v_251" +" v_253" " 57343)))" "(<=" -" v_251" +" v_253" " 1114111)" " #f)" "(let-values()" "(begin" "(set-accum-string-count!" " accum-str_4" -" pos_121)" +" pos_119)" "(accum-string-add!" " accum-str_4" "(integer->char" -" v_251))))" +" v_253))))" "(let-values()" "(let-values(((in77_1)" " in_43)" @@ -54506,7 +54752,7 @@ static const char *startup_source = "((config83_0)" " config_22)" "((pos84_0)" -" pos_121))" +" pos_119))" "(accum-string-get!6.1" " pos84_0" " #t" @@ -54527,7 +54773,7 @@ static const char *startup_source = "(list" " escaping-c80_0" " temp81_3)))))))))))))))))" -"(loop_112)))))))" +"(loop_115)))))))" " (if (char=? '#\\\" c_49)" "(let-values() null)" "(let-values()" @@ -54557,8 +54803,8 @@ static const char *startup_source = "(list c88_0))))))" "(void))" "(accum-string-add! accum-str_4 c_49)" -"(loop_112)))))))))))" -" loop_112))" +"(loop_115)))))))))))" +" loop_115))" "(values))))" "(let-values(((str_30)" "(if(eq? mode_0 '|byte string|)" @@ -54577,7 +54823,7 @@ static const char *startup_source = "(let-values(((full-terminator_0)" "(cons" " '#\\newline" -"((letrec-values(((loop_113)" +"((letrec-values(((loop_116)" "(lambda()" "(begin" " 'loop" @@ -54626,11 +54872,11 @@ static const char *startup_source = "(list))))" "(if(char=? c_97 '#\\newline)" "(let-values() null)" -"(let-values()(cons c_97(loop_113)))))))))))" -" loop_113)))))" +"(let-values()(cons c_97(loop_116)))))))))))" +" loop_116)))))" "(let-values((()" "(begin" -"((letrec-values(((loop_114)" +"((letrec-values(((loop_117)" "(lambda(terminator_0 terminator-accum_0)" "(begin" " 'loop" @@ -54648,7 +54894,7 @@ static const char *startup_source = "((open-end-pos104_0) open-end-pos_5)" "((temp105_2)" " \"found end-of-file before terminating `~a`\")" -"((temp106_2)" +"((temp106_3)" "(list->string(cdr full-terminator_0))))" "(reader-error12.1" " #f" @@ -54662,7 +54908,7 @@ static const char *startup_source = " in101_0" " config102_0" " temp105_2" -"(list temp106_2))))))" +"(list temp106_3))))))" "(if(not(char? c_98))" "(let-values()" "(let-values(((in107_0) in_45)" @@ -54687,7 +54933,7 @@ static const char *startup_source = "(char=? c_98(car terminator_0))" " #f)" "(let-values()" -"(loop_114" +"(loop_117" "(cdr terminator_0)" "(cons(car terminator_0) terminator-accum_0)))" "(if(if(null? terminator_0)(char=? c_98 '#\\newline) #f)" @@ -54698,24 +54944,24 @@ static const char *startup_source = "(void)" "(let-values()" "(begin" -"(let-values(((lst_229)" +"(let-values(((lst_230)" "(reverse$1 terminator-accum_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_229)))" -"((letrec-values(((for-loop_263)" -"(lambda(lst_307)" +"(let-values()(check-list lst_230)))" +"((letrec-values(((for-loop_279)" +"(lambda(lst_308)" "(begin" " 'for-loop" -"(if(pair? lst_307)" +"(if(pair? lst_308)" "(let-values(((c_12)" "(unsafe-car" -" lst_307))" +" lst_308))" "((rest_172)" "(unsafe-cdr" -" lst_307)))" +" lst_308)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -54728,23 +54974,23 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_263" +"(for-loop_279" " rest_172)" "(values))))" "(values))))))" -" for-loop_263)" -" lst_229)))" +" for-loop_279)" +" lst_230)))" "(void))))" "(if(char=? c_98 '#\\newline)" "(let-values()" -"(loop_114" +"(loop_117" "(cdr full-terminator_0)" "(list '#\\newline)))" "(let-values()" "(begin" "(accum-string-add! accum-str_5 c_98)" -"(loop_114 full-terminator_0 null)))))))))))))))" -" loop_114)" +"(loop_117 full-terminator_0 null)))))))))))))))" +" loop_117)" "(cdr full-terminator_0)" " null)" "(values))))" @@ -54923,7 +55169,7 @@ static const char *startup_source = "(let-values((()(begin(consume-char in_4 next-c_4)(values))))" "(let-values((()" "(begin" -"((letrec-values(((loop_105)" +"((letrec-values(((loop_108)" "(lambda()" "(begin" " 'loop" @@ -54959,11 +55205,11 @@ static const char *startup_source = "(consume-char" " in_4" " next-c_5)" -"(loop_105)))" +"(loop_108)))" "(void)))))))" -" loop_105))" +" loop_108))" "(values))))" -"(let-values(((name_67)" +"(let-values(((name_68)" "(string-foldcase" "(let-values(((accum-str27_0) accum-str_7)" "((config28_1) config_8))" @@ -54972,7 +55218,7 @@ static const char *startup_source = " #f" " accum-str27_0" " config28_1)))))" -"(let-values(((tmp_54) name_67))" +"(let-values(((tmp_54) name_68))" " (if (if (equal? tmp_54 \"nul\") #t (equal? tmp_54 \"null\"))" "(let-values() '#\\nul)" " (if (equal? tmp_54 \"backspace\")" @@ -54998,7 +55244,7 @@ static const char *startup_source = "((config30_0) config_8)" "((temp31_5)" " \"bad character constant `#\\\\~a`\")" -"((name32_0) name_67))" +"((name32_0) name_68))" "(reader-error12.1" " #f" " #f" @@ -55017,9 +55263,9 @@ static const char *startup_source = "(wrap char_0 in_4 config_8 char_0))))))" "(define-values" "(read-quote)" -"(lambda(read-one_3 sym_28 desc_0 c_35 in_43 config_22)" +"(lambda(read-one_3 sym_29 desc_0 c_35 in_43 config_22)" "(begin" -"(let-values(((wrapped-sym_0)(wrap sym_28 in_43 config_22 c_35)))" +"(let-values(((wrapped-sym_0)(wrap sym_29 in_43 config_22 c_35)))" "(let-values(((end-line_1 end-col_1 end-pos_3)(port-next-location in_43)))" "(let-values(((e_85)(read-one_3 #f in_43 config_22)))" "(begin" @@ -55036,12 +55282,12 @@ static const char *startup_source = "(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_81 in_43 config_22)" +"(lambda(init-c_1 can-match?_0 chars_0 val_82 in_43 config_22)" "(begin" "(let-values(((accum-str_8)(accum-string-init! config_22)))" "(begin" "(accum-string-add! accum-str_8 init-c_1)" -"((letrec-values(((loop_115)" +"((letrec-values(((loop_118)" "(lambda(chars_1)" "(begin" " 'loop" @@ -55111,7 +55357,7 @@ static const char *startup_source = "(begin" "(consume-char in_43 c_37)" "(accum-string-add! accum-str_8 c_37)" -"(loop_115(cdr chars_1))))" +"(loop_118(cdr chars_1))))" "(let-values()" "(begin" "(consume-char/special in_43 config_22 c_37)" @@ -55136,10 +55382,10 @@ static const char *startup_source = " config15_2" " temp16_7" "(list temp17_3)))))))))))))" -" loop_115)" +" loop_118)" " chars_0)" "(wrap" -" val_81" +" val_82" " in_43" " config_22" "(let-values(((accum-str20_0) accum-str_8)((config21_1) config_22))" @@ -55456,7 +55702,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in88_0) in_57)" "((config89_0) config_53)" -" ((temp90_1) \"`~a` not enabled\")" +" ((temp90_2) \"`~a` not enabled\")" "((extend-str91_0) extend-str_2))" "(reader-error12.1" " #f" @@ -55469,10 +55715,10 @@ static const char *startup_source = " #f" " in88_0" " config89_0" -" temp90_1" +" temp90_2" "(list extend-str91_0)))))" "(values))))" -"(let-values(((line_10 col_9 pos_122)(port-next-location in_57)))" +"(let-values(((line_10 col_9 pos_120)(port-next-location in_57)))" "(let-values(((accum-str_10)(accum-string-init! config_53)))" "(let-values((()" "(begin" @@ -55482,7 +55728,7 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"((letrec-values(((loop_116)" +"((letrec-values(((loop_119)" "(lambda()" "(begin" " 'loop" @@ -55510,7 +55756,7 @@ static const char *startup_source = "(let-values(((in92_0) in_57)" "((config93_0) config_53)" "((c94_0) c_9)" -"((temp95_0)" +"((temp95_1)" " \"found non-character while reading `#~a`\")" "((extend-str96_0)" " extend-str_2))" @@ -55525,7 +55771,7 @@ static const char *startup_source = " #f" " in92_0" " config93_0" -" temp95_0" +" temp95_1" "(list extend-str96_0)))))" "(if(char-whitespace? c_9)" "(let-values()(void))" @@ -55538,7 +55784,7 @@ static const char *startup_source = "(begin" "(consume-char in_57 c_9)" "(accum-string-add! accum-str_10 c_9)" -"(loop_116)))" +"(loop_119)))" "(let-values()" "(begin" "(consume-char in_57 c_9)" @@ -55566,7 +55812,7 @@ static const char *startup_source = "(list" " extend-str100_0" " c101_0))))))))))))))" -" loop_116))" +" loop_119))" "(values))))" "(let-values(((lang-str_0)" "(let-values(((accum-str102_0) accum-str_10)((config103_0) config_53))" @@ -55577,7 +55823,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in104_0) in_57)" "((config105_0) config_53)" -"((temp106_3)" +"((temp106_4)" " \"expected a non-empty sequence of alphanumeric, `-`, `+`, `_`, or `/` after `~a`\")" "((extend-str107_0) extend-str_2))" "(reader-error12.1" @@ -55591,7 +55837,7 @@ static const char *startup_source = " #f" " in104_0" " config105_0" -" temp106_3" +" temp106_4" "(list extend-str107_0))))" "(void))" "(values))))" @@ -55653,7 +55899,7 @@ static const char *startup_source = "((reader-path82_0) reader-path_0)" "((read-recur83_0) read-recur_3)" "((in84_0) in_57)" -"((temp85_1)(reading-at config_53 line_10 col_9 pos_122))" +"((temp85_1)(reading-at config_53 line_10 col_9 pos_120))" "((get-info?86_0) get-info?_2)" "((who87_0) who_31))" "(read-extension44.1" @@ -55674,15 +55920,15 @@ static const char *startup_source = "(lambda(c_104)" "(begin" "(if(<(char->integer c_104) 128)" -"(let-values(((or-part_293)(char-alphabetic? c_104)))" -"(if or-part_293" -" or-part_293" +"(let-values(((or-part_299)(char-alphabetic? c_104)))" +"(if or-part_299" +" or-part_299" "(let-values(((or-part_178)(char-numeric? c_104)))" "(if or-part_178" " or-part_178" -"(let-values(((or-part_301)(char=? '#\\- c_104)))" -"(if or-part_301" -" or-part_301" +"(let-values(((or-part_305)(char=? '#\\- c_104)))" +"(if or-part_305" +" or-part_305" "(let-values(((or-part_171)(char=? '#\\+ c_104)))" "(if or-part_171 or-part_171(char=? '#\\_ c_104)))))))))" " #f))))" @@ -55692,15 +55938,15 @@ static const char *startup_source = "(begin" "(let-values(((accum-str_11)(accum-string-init! config_54)))" "(begin" -"(let-values(((lst_308) already_0))" +"(let-values(((lst_309) already_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_308)))" -"((letrec-values(((for-loop_279)" -"(lambda(lst_309)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_309)))" +"((letrec-values(((for-loop_280)" +"(lambda(lst_310)" "(begin" " 'for-loop" -"(if(pair? lst_309)" -"(let-values(((c_105)(unsafe-car lst_309))((rest_173)(unsafe-cdr lst_309)))" +"(if(pair? lst_310)" +"(let-values(((c_105)(unsafe-car lst_310))((rest_173)(unsafe-cdr lst_310)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -55710,12 +55956,12 @@ static const char *startup_source = "(accum-string-add! accum-str_11 c_105))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_279 rest_173)(values))))" +"(if(not #f)(for-loop_280 rest_173)(values))))" "(values))))))" -" for-loop_279)" -" lst_308)))" +" for-loop_280)" +" lst_309)))" "(void)" -"((letrec-values(((loop_117)" +"((letrec-values(((loop_120)" "(lambda(wanted_1)" "(begin" " 'loop" @@ -55739,8 +55985,8 @@ static const char *startup_source = "(accum-string-get!6.1 #f #f accum-str122_0 config123_0)))" "((c121_0) c_26))" "(bad-syntax-error20.1 c121_0 #t in118_0 config119_0 temp120_2))))" -"(loop_117(cdr wanted_1))))))))))" -" loop_117)" +"(loop_120(cdr wanted_1))))))))))" +" loop_120)" " wanted_0)" "(let-values(((accum-str116_0) accum-str_11)((config117_0) config_54))" "(accum-string-get!6.1 #f #f accum-str116_0 config117_0)))))))" @@ -55900,9 +56146,9 @@ static const char *startup_source = "(lambda(read-one_3 in_2 config_7 fail-k_5)" "(begin" "(let-values(((c_33)(read-char/skip-whitespace-and-comments #f read-one_3 in_2 config_7)))" -"(let-values(((line_8 col_7 pos_116)(port-next-location* in_2 c_33)))" +"(let-values(((line_8 col_7 pos_114)(port-next-location* in_2 c_33)))" "(let-values(((l-config_0)" -"(override-parameter 1/read-accept-reader(reading-at config_7 line_8 col_7 pos_116) #t)))" +"(override-parameter 1/read-accept-reader(reading-at config_7 line_8 col_7 pos_114) #t)))" "(if(not(eqv? c_33 '#\\#))" " (let-values () (if fail-k_5 (fail-k_5) (lang-error in_2 l-config_0 \"\" c_33)))" "(let-values()" @@ -56057,26 +56303,26 @@ static const char *startup_source = " #t" " wrap63_0" " #t)))))))" -"(let-values(((v_252)(read-one init-c_15 in_12 config_57)))" -"(if(if(let-values(((or-part_306)(not recursive?_0)))" -"(if or-part_306 or-part_306 local-graph?_1))" +"(let-values(((v_254)(read-one init-c_15 in_12 config_57)))" +"(if(if(let-values(((or-part_309)(not recursive?_0)))" +"(if or-part_309 or-part_309 local-graph?_1))" "(read-config-state-graph(read-config-st config_57))" " #f)" "(let-values()" "(catch-and-reraise-as-reader/proc" " #f" " config_57" -"(lambda()(make-reader-graph v_252))))" +"(lambda()(make-reader-graph v_254))))" "(if(if recursive?_0" "(if(not local-graph?_1)" "(if(not for-syntax?_9)" -"(if(not(eof-object? v_252))(not(1/special-comment? v_252)) #f)" +"(if(not(eof-object? v_254))(not(1/special-comment? v_254)) #f)" " #f)" " #f)" " #f)" "(let-values()" -"(begin(get-graph-hash config_57)(make-placeholder v_252)))" -"(let-values() v_252))))))))))))))))))))))))" +"(begin(get-graph-hash config_57)(make-placeholder v_254)))" +"(let-values() v_254))))))))))))))))))))))))" "(define-values" "(read-language49.1)" "(lambda(coerce38_0" @@ -56150,13 +56396,13 @@ static const char *startup_source = "(let-values()(read-undotted init-c_16 in_62 config_60))" "(if(check-parameter 1/read-cdot config_60)" "(let-values()" -"(let-values(((line_11 col_10 pos_123)(port-next-location in_62)))" -"(let-values(((v_253)(read-undotted init-c_16 in_62 config_60)))" -"(if(1/special-comment? v_253)" -"(let-values() v_253)" +"(let-values(((line_11 col_10 pos_121)(port-next-location in_62)))" +"(let-values(((v_255)(read-undotted init-c_16 in_62 config_60)))" +"(if(1/special-comment? v_255)" +"(let-values() v_255)" "(let-values()" -"((letrec-values(((loop_118)" -"(lambda(v_254)" +"((letrec-values(((loop_121)" +"(lambda(v_256)" "(begin" " 'loop" "(let-values(((c_106)" @@ -56172,9 +56418,9 @@ static const char *startup_source = "(if(eq? c_107 'special)(special1.1 'special) c_107)))))" "(let-values(((ec_9)(effective-char c_106 config_60)))" "(if(not(char? ec_9))" -"(let-values() v_254)" +"(let-values() v_256)" "(if(char-whitespace? ec_9)" -"(let-values()(begin(consume-char in_62 c_106)(loop_118 v_254)))" +"(let-values()(begin(consume-char in_62 c_106)(loop_121 v_256)))" "(if(char=? ec_9 '#\\.)" "(let-values()" "(let-values(((dot-line_2 dot-col_2 dot-pos_5)" @@ -56192,34 +56438,34 @@ static const char *startup_source = " '#\\.)))" "(let-values(((post-v_0)" "(read-undotted #f in_62 config_60)))" -"(loop_118" +"(loop_121" "(wrap" -"(list cdot_0 v_254 post-v_0)" +"(list cdot_0 v_256 post-v_0)" " in_62" -"(reading-at config_60 line_11 col_10 pos_123)" +"(reading-at config_60 line_11 col_10 pos_121)" " '#\\.)))))))" -"(let-values() v_254))))))))))" -" loop_118)" -" v_253))))))" +"(let-values() v_256))))))))))" +" loop_121)" +" v_255))))))" "(void))))))" "(define-values" "(read-undotted)" "(lambda(init-c_17 in_60 config_55)" "(begin" "(let-values(((c_108)(read-char/skip-whitespace-and-comments init-c_17 read-one in_60 config_55)))" -"(let-values(((line_12 col_11 pos_124)(port-next-location* in_60 c_108)))" +"(let-values(((line_12 col_11 pos_122)(port-next-location* in_60 c_108)))" "(if(eof-object? c_108)" "(let-values() eof)" "(if(not(char? c_108))" "(let-values()" -"(let-values(((v_255)(special-value c_108)))" -"(if(1/special-comment? v_255)" -"(let-values()(if(read-config-keep-comment? config_55) v_255(read-undotted #f in_60 config_55)))" -"(let-values()(coerce v_255 in_60(reading-at config_55 line_12 col_11 pos_124))))))" +"(let-values(((v_257)(special-value c_108)))" +"(if(1/special-comment? v_257)" +"(let-values()(if(read-config-keep-comment? config_55) v_257(read-undotted #f in_60 config_55)))" +"(let-values()(coerce v_257 in_60(reading-at config_55 line_12 col_11 pos_122))))))" "(let-values(((c2_8)(readtable-handler config_55 c_108)))" "(if c2_8" "((lambda(handler_3)" -"(let-values(((v_43)(readtable-apply handler_3 c_108 in_60 config_55 line_12 col_11 pos_124)))" +"(let-values(((v_43)(readtable-apply handler_3 c_108 in_60 config_55 line_12 col_11 pos_122)))" "(retry-special-comment v_43 in_60 config_55)))" " c2_8)" "(let-values()" @@ -56230,7 +56476,7 @@ static const char *startup_source = "(let-values()(track-indentation! config_55 line_12 col_11))" "(void))" "(values))))" -"(let-values(((r-config_0)(reading-at(discard-comment config_55) line_12 col_11 pos_124)))" +"(let-values(((r-config_0)(reading-at(discard-comment config_55) line_12 col_11 pos_122)))" "(let-values(((tmp_57) ec_10))" "(let-values(((index_4)" "(if(char? tmp_57)" @@ -56289,14 +56535,14 @@ static const char *startup_source = "(if(unsafe-fx< index_4 2)" "(if(unsafe-fx< index_4 1)" "(let-values()" -"(let-values(((v_256)" +"(let-values(((v_258)" "(let-values(((c79_1) c_108)" "((in80_1) in_60)" "((r-config81_0) r-config_0)" -"((temp82_5)" -"(if(let-values(((or-part_326)(eq? c_108 ec_10)))" -"(if or-part_326" -" or-part_326" +"((temp82_4)" +"(if(let-values(((or-part_329)(eq? c_108 ec_10)))" +"(if or-part_329" +" or-part_329" "(if(<(char->integer ec_10) 128)" "(char-numeric? ec_10)" " #f)))" @@ -56305,12 +56551,12 @@ static const char *startup_source = "(read-symbol-or-number8.1" " #f" " #f" -" temp82_5" +" temp82_4" " #t" " c79_1" " in80_1" " r-config81_0))))" -"(retry-special-comment v_256 in_60 config_55)))" +"(retry-special-comment v_258 in_60 config_55)))" "(let-values()(read-dispatch c_108 in_60 r-config_0 config_55)))" "(if(unsafe-fx< index_4 3)" " (let-values () (read-quote read-one 'quote \"quoting \\\"'\\\"\" c_108 in_60 r-config_0))" @@ -56400,7 +56646,7 @@ static const char *startup_source = "(let-values(((read-one91_0) read-one)" "((ec92_0) ec_10)" "((temp93_2) '#\\()" -"((temp94_2) '#\\))" +"((temp94_1) '#\\))" "((in95_0) in_60)" "((r-config96_0) r-config_0)" "((temp97_2) #t))" @@ -56418,7 +56664,7 @@ static const char *startup_source = " read-one91_0" " ec92_0" " temp93_2" -" temp94_2" +" temp94_1" " in95_0" " r-config96_0))" " in_60" @@ -56430,7 +56676,7 @@ static const char *startup_source = "(let-values(((in98_0) in_60)" "((r-config99_0) r-config_0)" " ((temp100_3) \"~a\")" -"((temp101_3)" +"((temp101_4)" "(indentation-unexpected-closer-message ec_10 c_108 r-config_0)))" "(reader-error12.1" " #f" @@ -56444,19 +56690,19 @@ static const char *startup_source = " in98_0" " r-config99_0" " temp100_3" -"(list temp101_3))))" +"(list temp101_4))))" "(if(unsafe-fx< index_4 8)" "(let-values()" -"(if(let-values(((or-part_357)" +"(if(let-values(((or-part_360)" "(check-parameter 1/read-square-bracket-as-paren config_55)))" -"(if or-part_357" -" or-part_357" +"(if or-part_360" +" or-part_360" "(check-parameter 1/read-square-bracket-with-tag config_55)))" "(let-values()" "(wrap" "(let-values(((read-one102_0) read-one)" "((ec103_0) ec_10)" -"((temp104_4) '#\\[)" +"((temp104_3) '#\\[)" "((temp105_3) '#\\])" "((in106_0) in_60)" "((r-config107_0) r-config_0)" @@ -56474,7 +56720,7 @@ static const char *startup_source = " #f" " read-one102_0" " ec103_0" -" temp104_4" +" temp104_3" " temp105_3" " in106_0" " r-config107_0))" @@ -56500,10 +56746,10 @@ static const char *startup_source = " temp111_0" "(list c112_0))))))" "(let-values()" -"(if(let-values(((or-part_358)" +"(if(let-values(((or-part_361)" "(check-parameter 1/read-square-bracket-as-paren config_55)))" -"(if or-part_358" -" or-part_358" +"(if or-part_361" +" or-part_361" "(check-parameter 1/read-square-bracket-with-tag config_55)))" "(let-values()" "(let-values(((in113_1) in_60)" @@ -56530,7 +56776,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in117_0) in_60)" "((r-config118_0) r-config_0)" -" ((temp119_1) \"illegal use of `~a`\")" +" ((temp119_0) \"illegal use of `~a`\")" "((c120_0) c_108))" "(reader-error12.1" " #f" @@ -56543,20 +56789,20 @@ static const char *startup_source = " #f" " in117_0" " r-config118_0" -" temp119_1" +" temp119_0" "(list c120_0))))))))" "(if(unsafe-fx< index_4 10)" "(let-values()" -"(if(let-values(((or-part_359)" +"(if(let-values(((or-part_362)" "(check-parameter 1/read-curly-brace-as-paren config_55)))" -"(if or-part_359" -" or-part_359" +"(if or-part_362" +" or-part_362" "(check-parameter 1/read-curly-brace-with-tag config_55)))" "(let-values()" "(wrap" "(let-values(((read-one121_0) read-one)" "((ec122_0) ec_10)" -"((temp123_2) '#\\{)" +"((temp123_3) '#\\{)" "((temp124_2) '#\\})" "((in125_0) in_60)" "((r-config126_0) r-config_0)" @@ -56574,7 +56820,7 @@ static const char *startup_source = " #f" " read-one121_0" " ec122_0" -" temp123_2" +" temp123_3" " temp124_2" " in125_0" " r-config126_0))" @@ -56601,16 +56847,16 @@ static const char *startup_source = "(list c131_0))))))" "(if(unsafe-fx< index_4 11)" "(let-values()" -"(if(let-values(((or-part_360)" +"(if(let-values(((or-part_363)" "(check-parameter 1/read-curly-brace-as-paren config_55)))" -"(if or-part_360" -" or-part_360" +"(if or-part_363" +" or-part_363" "(check-parameter 1/read-curly-brace-with-tag config_55)))" "(let-values()" "(let-values(((in132_0) in_60)" "((r-config133_0) r-config_0)" " ((temp134_2) \"~a\")" -"((temp135_2)" +"((temp135_1)" "(indentation-unexpected-closer-message" " ec_10" " c_108" @@ -56627,7 +56873,7 @@ static const char *startup_source = " in132_0" " r-config133_0" " temp134_2" -"(list temp135_2))))" +"(list temp135_1))))" "(let-values()" "(let-values(((in136_0) in_60)" "((r-config137_0) r-config_0)" @@ -56675,9 +56921,9 @@ static const char *startup_source = "(let-values(((in146_0) in_65)" "((config147_0) config_61)" "((c148_0) c_110)" -" ((temp149_2) \"bad syntax `~a`\")" +" ((temp149_1) \"bad syntax `~a`\")" "((dispatch-c150_0) dispatch-c_5))" -"(reader-error12.1 #f #f c148_0 #t #f #f #f #f in146_0 config147_0 temp149_2(list dispatch-c150_0))))" +"(reader-error12.1 #f #f c148_0 #t #f #f #f #f in146_0 config147_0 temp149_1(list dispatch-c150_0))))" "(if(not(char? c_110))" "(let-values()" "(let-values(((in151_0) in_65)" @@ -56691,10 +56937,10 @@ static const char *startup_source = "((lambda(handler_4)" "(let-values(((line_13)(read-config-line config_61)))" "(let-values(((col_12)(read-config-col config_61)))" -"(let-values(((pos_125)(read-config-pos config_61)))" -"(let-values(((v_150)" -"(readtable-apply handler_4 c_110 in_65 config_61 line_13 col_12 pos_125)))" -"(retry-special-comment v_150 in_65 orig-config_0))))))" +"(let-values(((pos_123)(read-config-pos config_61)))" +"(let-values(((v_151)" +"(readtable-apply handler_4 c_110 in_65 config_61 line_13 col_12 pos_123)))" +"(retry-special-comment v_151 in_65 orig-config_0))))))" " c3_9)" "(let-values()" "(let-values()" @@ -57030,8 +57276,8 @@ static const char *startup_source = "(if(eq? c_114 'special)(special1.1 'special) c_114)))))" "(if(char-delimiter? c2_13 config_61)" "(let-values()(wrap #f in_65 config_61 c_110))" -"(if(let-values(((or-part_348)(char=? c2_13 '#\\x)))" -"(if or-part_348 or-part_348(char=? c2_13 '#\\l)))" +"(if(let-values(((or-part_350)(char=? c2_13 '#\\x)))" +"(if or-part_350 or-part_350(char=? c2_13 '#\\l)))" "(let-values()" "(read-fixnum-or-flonum-vector" " read-one" @@ -57303,11 +57549,11 @@ static const char *startup_source = "(list dispatch-c279_0)))))))))))))))))))))))))" "(define-values" "(retry-special-comment)" -"(lambda(v_257 in_74 config_62)" +"(lambda(v_259 in_74 config_62)" "(begin" -"(if(1/special-comment? v_257)" -"(let-values()(if(read-config-keep-comment? config_62) v_257(read-undotted #f in_74 config_62)))" -"(let-values() v_257)))))" +"(if(1/special-comment? v_259)" +"(let-values()(if(read-config-keep-comment? config_62) v_259(read-undotted #f in_74 config_62)))" +"(let-values() v_259)))))" "(define-values" "(1/module-declared?)" "(let-values(((module-declared?4_0)" @@ -57327,10 +57573,10 @@ static const char *startup_source = "(raise-argument-error 'module-declared? module-reference-str mod_4)))" "(values))))" "(let-values(((ns_56)(1/current-namespace)))" -"(let-values(((name_51)" +"(let-values(((name_52)" "(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)))))))))))))" +"(if(namespace->module ns_56 name_52) #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)))))" @@ -57348,10 +57594,10 @@ static const char *startup_source = "(let-values()(raise-argument-error 'module-predefined? module-reference-str mod_7)))" "(values))))" "(let-values(((ns_113)(1/current-namespace)))" -"(let-values(((name_68)" +"(let-values(((name_69)" "(let-values(((mod39_0) mod_7)((temp40_4) #f))" "(reference->resolved-module-path32.1 temp40_4 mod39_0))))" -"(let-values(((m_24)(namespace->module ns_113 name_68)))" +"(let-values(((m_24)(namespace->module ns_113 name_69)))" "(if m_24(module-is-predefined? m_24) #f))))))))))" "(define-values" "(module->)" @@ -57422,12 +57668,12 @@ static const char *startup_source = " mod_16))))" "(define-values" "(1/module-provide-protected?)" -"(lambda(mod_17 sym_94)" +"(lambda(mod_17 sym_95)" "(begin" " 'module-provide-protected?" "(module->" "(lambda(m_28)" -"(let-values(((b/p_3)(hash-ref(module-provides m_28) sym_94 #f)))" +"(let-values(((b/p_3)(hash-ref(module-provides m_28) sym_95 #f)))" "(let-values(((or-part_33)(not b/p_3)))(if or-part_33 or-part_33(provided-as-protected? b/p_3)))))" " 'module-provide-protected?" " mod_17))))" @@ -57459,14 +57705,14 @@ static const char *startup_source = "(let-values()" " (raise-argument-error 'module->namespace \"namespace?\" ns_114)))" "(values))))" -"(let-values(((name_69)" +"(let-values(((name_70)" "(let-values(((mod49_0) mod_18)((temp50_3) #t))" "(reference->resolved-module-path32.1 temp50_3 mod49_0))))" -"(let-values(((phase_132)(namespace-phase ns_114)))" +"(let-values(((phase_130)(namespace-phase ns_114)))" "(let-values(((m-ns_17)" "(let-values(((ns51_1) ns_114)" -"((name52_0) name_69)" -"((phase53_0) phase_132))" +"((name52_0) name_70)" +"((phase53_0) phase_130))" "(namespace->module-namespace82.1" " #f" " #f" @@ -57482,12 +57728,12 @@ static const char *startup_source = "(void)" "(let-values()" "(begin" -"(namespace->module/complain 'module->namespace ns_114 name_69)" +"(namespace->module/complain 'module->namespace ns_114 name_70)" "(raise-arguments-error" " 'module->namespace" " \"module not instantiated in the current namespace\"" " \"name\"" -" name_69))))" +" name_70))))" "(if(inspector-superior?" "(current-code-inspector)" "(namespace-inspector m-ns_17))" @@ -57497,7 +57743,7 @@ static const char *startup_source = " 'module->namespace" " \"current code inspector cannot access namespace of module\"" " \"module name\"" -" name_69)))" +" name_70)))" "(if(namespace-get-root-expand-ctx m-ns_17)" "(void)" "(let-values()" @@ -57507,7 +57753,7 @@ static const char *startup_source = "(make-root-expand-context13.1 #f #f #f #f #f #f #f #f temp54_4)))))" "(let-values(((ns46_1) ns_114)" "((temp47_2)(namespace-mpi m-ns_17))" -"((phase48_1) phase_132))" +"((phase48_1) phase_130))" "(namespace-module-make-available!112.1 #f #f ns46_1 temp47_2 phase48_1))" " m-ns_17)))))))))))))))" "(case-lambda" @@ -57555,14 +57801,14 @@ static const char *startup_source = " \"namespace?\"" " ns_115)))" "(values))))" -"(let-values(((name_70)" +"(let-values(((name_71)" "(let-values(((mod56_0) mod_21)((temp57_1) #f))" "(reference->resolved-module-path32.1 temp57_1 mod56_0))))" -"(let-values(((phase_139)(namespace-phase ns_115)))" +"(let-values(((phase_137)(namespace-phase ns_115)))" "(let-values(((m-ns_15)" "(let-values(((ns58_0) ns_115)" -"((name59_0) name_70)" -"((phase60_0) phase_139))" +"((name59_0) name_71)" +"((phase60_0) phase_137))" "(namespace->module-namespace82.1" " #f" " #f" @@ -57581,7 +57827,7 @@ static const char *startup_source = " 'namespace-unprotect-module" " \"module not instantiated\"" " \"module name\"" -" name_70)))" +" name_71)))" "(if(inspector-superior? insp_12(namespace-inspector m-ns_15))" "(let-values()" "(set-namespace-inspector!" @@ -57593,21 +57839,21 @@ static const char *startup_source = "((insp_19 mod_23 ns23_1)(namespace-unprotect-module27_0 insp_19 mod_23 ns23_1 #t)))))" "(define-values" "(namespace->module/complain)" -"(lambda(who_36 ns_116 name_71)" +"(lambda(who_36 ns_116 name_72)" "(begin" -"(let-values(((or-part_210)(namespace->module ns_116 name_71)))" -"(if or-part_210" -" or-part_210" -" (raise-arguments-error who_36 \"unknown module in the current namespace\" \"name\" name_71))))))" +"(let-values(((or-part_212)(namespace->module ns_116 name_72)))" +"(if or-part_212" +" or-part_212" +" (raise-arguments-error who_36 \"unknown module in the current namespace\" \"name\" name_72))))))" "(define-values" "(module-reference?)" "(lambda(mod_24)" "(begin" -"(let-values(((or-part_250)(1/module-path? mod_24)))" -"(if or-part_250" -" or-part_250" -"(let-values(((or-part_361)(1/module-path-index? mod_24)))" -"(if or-part_361 or-part_361(1/resolved-module-path? mod_24))))))))" +"(let-values(((or-part_252)(1/module-path? mod_24)))" +"(if or-part_252" +" or-part_252" +"(let-values(((or-part_364)(1/module-path-index? mod_24)))" +"(if or-part_364 or-part_364(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)" @@ -57773,8 +58019,8 @@ static const char *startup_source = "(read-to-syntax)" "(lambda(s-exp_4 srcloc_11 rep_1)" "(begin" -"(let-values(((the-struct_89) empty-syntax))" -"(if(syntax?$1 the-struct_89)" +"(let-values(((the-struct_88) empty-syntax))" +"(if(syntax?$1 the-struct_88)" "(let-values(((content63_0)(datum-intern-literal s-exp_4))" "((srcloc64_0) srcloc_11)" "((props65_0)" @@ -57786,14 +58032,14 @@ static const char *startup_source = "(let-values() original-props))))))" "(syntax1.1" " content63_0" -"(syntax-scopes the-struct_89)" -"(syntax-shifted-multi-scopes the-struct_89)" -"(syntax-scope-propagations+tamper the-struct_89)" -"(syntax-mpi-shifts the-struct_89)" +"(syntax-scopes the-struct_88)" +"(syntax-shifted-multi-scopes the-struct_88)" +"(syntax-scope-propagations+tamper the-struct_88)" +"(syntax-mpi-shifts the-struct_88)" " srcloc64_0" " props65_0" -"(syntax-inspector the-struct_89)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_89))))))" +"(syntax-inspector the-struct_88)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_88))))))" "(define-values(original-props)(syntax-props(syntax-property$1 empty-syntax original-property-sym #t)))" "(define-values" "(original-square-props)" @@ -57804,51 +58050,51 @@ 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_258 srcloc_12)" +"(lambda(for-syntax?_12 v_260 srcloc_12)" "(begin" "(if(not for-syntax?_12)" -"(let-values()(if(syntax?$1 v_258)(let-values()(syntax->datum$1 v_258))(let-values() v_258)))" -"(if(syntax?$1 v_258)" -"(let-values() v_258)" -"(if(list? v_258)" +"(let-values()(if(syntax?$1 v_260)(let-values()(syntax->datum$1 v_260))(let-values() v_260)))" +"(if(syntax?$1 v_260)" +"(let-values() v_260)" +"(if(list? v_260)" "(let-values()" "(read-to-syntax" "(reverse$1" -"(let-values(((lst_270) v_258))" +"(let-values(((lst_271) v_260))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_270)))" +"(let-values()(check-list lst_271)))" "((letrec-values(((for-loop_51)" -"(lambda(fold-var_289 lst_284)" +"(lambda(fold-var_291 lst_285)" "(begin" " 'for-loop" -"(if(pair? lst_284)" -"(let-values(((e_87)(unsafe-car lst_284))" -"((rest_174)(unsafe-cdr lst_284)))" +"(if(pair? lst_285)" +"(let-values(((e_87)(unsafe-car lst_285))" +"((rest_174)(unsafe-cdr lst_285)))" "(let-values(((fold-var_247)" -"(let-values(((fold-var_290) fold-var_289))" -"(let-values(((fold-var_291)" +"(let-values(((fold-var_292) fold-var_291))" +"(let-values(((fold-var_293)" "(let-values()" "(cons" "(let-values()" "(read-coerce #t e_87 srcloc_12))" -" fold-var_290))))" -"(values fold-var_291)))))" +" fold-var_292))))" +"(values fold-var_293)))))" "(if(not #f)(for-loop_51 fold-var_247 rest_174) fold-var_247)))" -" fold-var_289)))))" +" fold-var_291)))))" " for-loop_51)" " null" -" lst_270))))" +" lst_271))))" " srcloc_12" " #f))" -"(if(pair? v_258)" +"(if(pair? v_260)" "(let-values()" "(read-to-syntax" -"(cons(read-coerce #t(car v_258) srcloc_12)(read-coerce #t(cdr v_258) srcloc_12))" +"(cons(read-coerce #t(car v_260) srcloc_12)(read-coerce #t(cdr v_260) srcloc_12))" " srcloc_12" " #f))" -"(let-values()(read-to-syntax v_258 srcloc_12 #f)))))))))" +"(let-values()(read-to-syntax v_260 srcloc_12 #f)))))))))" "(define-values" "(read-coerce-key)" "(lambda(for-syntax?_13 k_42)" @@ -57878,7 +58124,7 @@ static const char *startup_source = "(begin" " 'dynamic-require-reader21" "(let-values(((mod-path_30) mod-path19_0))" -"(let-values(((sym_95) sym20_0))" +"(let-values(((sym_96) sym20_0))" "(let-values(((fail-thunk_1)" "(if fail-thunk18_0 fail-thunk17_0 default-dynamic-require-fail-thunk)))" "(let-values()" @@ -57890,11 +58136,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_95 fail-thunk_1)))" -"(1/dynamic-require mod-path_30 sym_95 fail-thunk_1)))))))))))" +"(let-values()(1/dynamic-require mod-path_30 sym_96 fail-thunk_1)))" +"(1/dynamic-require mod-path_30 sym_96 fail-thunk_1)))))))))))" "(case-lambda" -"((mod-path_31 sym_96)(begin(dynamic-require-reader21_0 mod-path_31 sym_96 #f #f)))" -"((mod-path_32 sym_97 fail-thunk17_1)(dynamic-require-reader21_0 mod-path_32 sym_97 fail-thunk17_1 #t)))))" +"((mod-path_31 sym_97)(begin(dynamic-require-reader21_0 mod-path_31 sym_97 #f #f)))" +"((mod-path_32 sym_98 fail-thunk17_1)(dynamic-require-reader21_0 mod-path_32 sym_98 fail-thunk17_1 #t)))))" "(define-values" "(1/read-syntax)" "(let-values(((read-syntax5_0)" @@ -57943,16 +58189,16 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'read-syntax/recursive \"input-port?\" in_31)))" -"(if((lambda(x_90)" -"(let-values(((or-part_77)(not x_90)))" -"(if or-part_77 or-part_77(char? x_90))))" +"(if((lambda(x_92)" +"(let-values(((or-part_77)(not x_92)))" +"(if or-part_77 or-part_77(char? x_92))))" " start_60)" "(void)" "(let-values()" " (raise-argument-error 'read-syntax/recursive \"(or/c char? #f)\" start_60)))" -"(if((lambda(x_91)" -"(let-values(((or-part_79)(not x_91)))" -"(if or-part_79 or-part_79(1/readtable? x_91))))" +"(if((lambda(x_93)" +"(let-values(((or-part_79)(not x_93)))" +"(if or-part_79 or-part_79(1/readtable? x_93))))" " readtable_7)" "(void)" "(let-values()" @@ -58004,14 +58250,14 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'read/recursive \"input-port?\" in_20)))" "(if((lambda(x_19)" -"(let-values(((or-part_306)(not x_19)))" -"(if or-part_306 or-part_306(char? x_19))))" +"(let-values(((or-part_309)(not x_19)))" +"(if or-part_309 or-part_309(char? x_19))))" " start_38)" "(void)" " (let-values () (raise-argument-error 'read/recursive \"(or/c char? #f)\" start_38)))" "(if((lambda(x_23)" -"(let-values(((or-part_280)(not x_23)))" -"(if or-part_280 or-part_280(1/readtable? x_23))))" +"(let-values(((or-part_365)(not x_23)))" +"(if or-part_365 or-part_365(1/readtable? x_23))))" " readtable_9)" "(void)" "(let-values()" @@ -58056,9 +58302,9 @@ static const char *startup_source = " (define-values (read-language-fail-thunk) (lambda () (begin (error \"fail\"))))" "(define-values" "(declare-primitive-module!)" -"(lambda(name_72 inst_7 in-ns_0 protected_0 cross-phase-persistent?_3)" +"(lambda(name_73 inst_7 in-ns_0 protected_0 cross-phase-persistent?_3)" "(begin" -"(let-values(((mpi_51)(1/module-path-index-join(list 'quote name_72) #f)))" +"(let-values(((mpi_51)(1/module-path-index-join(list 'quote name_73) #f)))" "(let-values(((in-ns1_0) in-ns_0)" "((temp2_6)" "(let-values(((temp4_0)(1/current-module-declare-source))" @@ -58068,24 +58314,24 @@ static const char *startup_source = "((temp8_4)" "(hasheqv" " 0" -"(let-values(((lst_77)(1/instance-variable-names inst_7)))" +"(let-values(((lst_76)(1/instance-variable-names inst_7)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_77)))" -"((letrec-values(((for-loop_97)" -"(lambda(table_213 lst_78)" +"(let-values()(check-list lst_76)))" +"((letrec-values(((for-loop_98)" +"(lambda(table_213 lst_77)" "(begin" " 'for-loop" -"(if(pair? lst_78)" -"(let-values(((sym_63)(unsafe-car lst_78))" -"((rest_36)(unsafe-cdr lst_78)))" +"(if(pair? lst_77)" +"(let-values(((sym_64)(unsafe-car lst_77))" +"((rest_35)(unsafe-cdr lst_77)))" "(let-values(((table_219)" "(let-values(((table_174) table_213))" "(let-values(((table_175)" "(let-values()" "(let-values(((key_33" -" val_82)" +" val_83)" "(let-values()" "(let-values(((binding_27)" "(let-values(((mpi10_0)" @@ -58093,7 +58339,7 @@ static const char *startup_source = "((temp11_6)" " 0)" "((sym12_0)" -" sym_63))" +" sym_64))" "(make-module-binding22.1" " #f" " #f" @@ -58117,10 +58363,10 @@ static const char *startup_source = " temp11_6" " sym12_0))))" "(values" -" sym_63" +" sym_64" "(if(hash-ref" " protected_0" -" sym_63" +" sym_64" " #f)" "(provided1.1" " binding_27" @@ -58130,22 +58376,22 @@ static const char *startup_source = "(hash-set" " table_174" " key_33" -" val_82)))))" +" val_83)))))" "(values table_175)))))" "(if(not #f)" -"(for-loop_97 table_219 rest_36)" +"(for-loop_98 table_219 rest_35)" " table_219)))" " table_213)))))" -" for-loop_97)" +" for-loop_98)" " '#hash()" -" lst_77)))))" +" lst_76)))))" "((temp9_8)" "(lambda(data-box_5" " ns_46" " phase-shift_20" " phase-level_22" " self_28" -" bulk-binding-registry_17" +" bulk-binding-registry_18" " insp_20)" "(if(= 0 phase-level_22)" "(let-values()" @@ -58156,12 +58402,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_22)))" "((letrec-values(((for-loop_20)" -"(lambda(lst_267)" +"(lambda(lst_268)" "(begin" " 'for-loop" -"(if(pair? lst_267)" -"(let-values(((sym_98)(unsafe-car lst_267))" -"((rest_175)(unsafe-cdr lst_267)))" +"(if(pair? lst_268)" +"(let-values(((sym_99)(unsafe-car lst_268))" +"((rest_175)(unsafe-cdr lst_268)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -58171,11 +58417,11 @@ static const char *startup_source = "(let-values(((val_22)" "(1/instance-variable-value" " inst_7" -" sym_98)))" +" sym_99)))" "(namespace-set-variable!" " ns_46" " 0" -" sym_98" +" sym_99" " val_22)))" "(values)))))" "(values)))))" @@ -58221,7 +58467,7 @@ static const char *startup_source = " #f" " #f" " #f)))" -"((temp3_9)(substitute-module-declare-name name_72)))" +"((temp3_9)(substitute-module-declare-name name_73)))" "(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)" @@ -58239,7 +58485,7 @@ static const char *startup_source = " 1/make-exn:fail:filesystem:missing-module" " 1/exn:fail:filesystem:missing-module?" " 1/exn:fail:filesystem:missing-module-path)" -"(let-values(((struct:_81 make-_81 ?_81 -ref_81 -set!_81)" +"(let-values(((struct:_82 make-_82 ?_82 -ref_82 -set!_82)" "(let-values()" "(let-values()" "(make-struct-type" @@ -58255,13 +58501,13 @@ static const char *startup_source = " '(0)" " #f" " 'exn:fail:filesystem:missing-module)))))" -"(values struct:_81 make-_81 ?_81(make-struct-field-accessor -ref_81 0 'path))))" +"(values struct:_82 make-_82 ?_82(make-struct-field-accessor -ref_82 0 'path))))" "(define-values" "(1/struct:exn:fail:syntax:missing-module" " 1/make-exn:fail:syntax:missing-module" " 1/exn:fail:syntax:missing-module?" " 1/exn:fail:syntax:missing-module-path)" -"(let-values(((struct:_65 make-_65 ?_65 -ref_65 -set!_65)" +"(let-values(((struct:_66 make-_66 ?_66 -ref_66 -set!_66)" "(let-values()" "(let-values()" "(make-struct-type" @@ -58277,18 +58523,18 @@ static const char *startup_source = " '(0)" " #f" " 'exn:fail:syntax:missing-module)))))" -"(values struct:_65 make-_65 ?_65(make-struct-field-accessor -ref_65 0 'path))))" +"(values struct:_66 make-_66 ?_66(make-struct-field-accessor -ref_66 0 'path))))" "(define-values" "(1/current-module-path-for-load)" "(make-parameter" " #f" -"(lambda(v_187)" +"(lambda(v_188)" "(begin" -"(if(let-values(((or-part_69)(not v_187)))" +"(if(let-values(((or-part_69)(not v_188)))" "(if or-part_69" " or-part_69" -"(let-values(((or-part_70)(1/module-path? v_187)))" -"(if or-part_70 or-part_70(if(syntax?$1 v_187)(1/module-path?(syntax->datum$1 v_187)) #f)))))" +"(let-values(((or-part_70)(1/module-path? v_188)))" +"(if or-part_70 or-part_70(if(syntax?$1 v_188)(1/module-path?(syntax->datum$1 v_188)) #f)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -58297,11 +58543,11 @@ static const char *startup_source = " \"(or/c module-path?\"" " \" (and/c syntax? (lambda (stx) (module-path? (syntax->datum stx))))\"" " \" #f)\")" -" v_187)))" -" v_187))))" +" v_188)))" +" v_188))))" "(define-values" "(maybe-raise-missing-module)" -"(lambda(name_73 filename_0 pre_0 rel_0 post_0 errstr_0)" +"(lambda(name_74 filename_0 pre_0 rel_0 post_0 errstr_0)" "(begin" "(let-values(((path_11)(1/current-module-path-for-load)))" "(if path_11" @@ -58317,7 +58563,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_73)" +"(if(syntax-srcloc path_11)(srcloc->string(syntax-srcloc path_11)) name_74)" "(syntax->datum$1 path_11)" " filename_0" " pre_0" @@ -58336,7 +58582,7 @@ static const char *startup_source = " \" module path: ~a\\n\"" " \" path: ~a~a~a~a\\n\"" " \" system error: ~a\")" -" name_73" +" name_74" " path_11" " filename_0" " pre_0" @@ -58384,8 +58630,8 @@ static const char *startup_source = " intdefs65_0" " #t)))))))))))" "(case-lambda" -"((s_177 context_1 stop-ids_3)(begin 'local-expand(local-expand6_0 s_177 context_1 stop-ids_3 #f #f)))" -"((s_170 context_11 stop-ids_4 intdefs1_1)(local-expand6_0 s_170 context_11 stop-ids_4 intdefs1_1 #t)))))" +"((s_180 context_1 stop-ids_3)(begin 'local-expand(local-expand6_0 s_180 context_1 stop-ids_3 #f #f)))" +"((s_173 context_11 stop-ids_4 intdefs1_1)(local-expand6_0 s_173 context_11 stop-ids_4 intdefs1_1 #t)))))" "(define-values" "(1/local-expand/capture-lifts)" "(let-values(((local-expand/capture-lifts15_0)" @@ -58431,21 +58677,21 @@ static const char *startup_source = "(begin 'local-expand/capture-lifts(local-expand/capture-lifts15_0 s_85 context_13 stop-ids_6 #f #f #f #f)))" "((s_42 context_14 stop-ids_7 intdefs_6 lift-key9_1)" "(local-expand/capture-lifts15_0 s_42 context_14 stop-ids_7 intdefs_6 lift-key9_1 #t #t))" -"((s_188 context_15 stop-ids_8 intdefs8_1)" -"(local-expand/capture-lifts15_0 s_188 context_15 stop-ids_8 intdefs8_1 #f #t #f)))))" +"((s_191 context_15 stop-ids_8 intdefs8_1)" +"(local-expand/capture-lifts15_0 s_191 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_491) s19_1))" +"(let-values(((s_492) s19_1))" "(let-values(((context_16) context20_0))" "(let-values(((stop-ids_9) stop-ids21_0))" "(let-values(((intdefs_7)(if intdefs18_0 intdefs17_0 '())))" "(let-values()" "(let-values(((temp73_5) 'local-expand)" -"((s74_0) s_491)" +"((s74_0) s_492)" "((context75_0) context_16)" "((stop-ids76_0) stop-ids_9)" "((intdefs77_0) intdefs_7)" @@ -58472,24 +58718,24 @@ static const char *startup_source = " intdefs77_0" " #t)))))))))))" "(case-lambda" -"((s_485 context_17 stop-ids_10)" -"(begin 'local-transformer-expand(local-transformer-expand22_0 s_485 context_17 stop-ids_10 #f #f)))" -"((s_492 context_18 stop-ids_11 intdefs17_1)" -"(local-transformer-expand22_0 s_492 context_18 stop-ids_11 intdefs17_1 #t)))))" +"((s_486 context_17 stop-ids_10)" +"(begin 'local-transformer-expand(local-transformer-expand22_0 s_486 context_17 stop-ids_10 #f #f)))" +"((s_493 context_18 stop-ids_11 intdefs17_1)" +"(local-transformer-expand22_0 s_493 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_1 context29_0 stop-ids30_0 intdefs24_0 lift-key25_0 intdefs26_0 lift-key27_0)" "(begin" " 'local-transformer-expand/capture-lifts31" -"(let-values(((s_482) s28_1))" +"(let-values(((s_483) s28_1))" "(let-values(((context_19) context29_0))" "(let-values(((stop-ids_12) stop-ids30_0))" "(let-values(((intdefs_8)(if intdefs26_0 intdefs24_0 '())))" "(let-values(((lift-key_5)(if lift-key27_0 lift-key25_0(generate-lift-key))))" "(let-values()" "(let-values(((temp79_2) 'local-expand)" -"((s80_1) s_482)" +"((s80_1) s_483)" "((context81_0) context_19)" "((stop-ids82_0) stop-ids_12)" "((intdefs83_0) intdefs_8)" @@ -58518,39 +58764,39 @@ static const char *startup_source = " intdefs83_0" " #t))))))))))))" "(case-lambda" -"((s_493 context_20 stop-ids_13)" +"((s_494 context_20 stop-ids_13)" "(begin" " 'local-transformer-expand/capture-lifts" -"(local-transformer-expand/capture-lifts31_0 s_493 context_20 stop-ids_13 #f #f #f #f)))" +"(local-transformer-expand/capture-lifts31_0 s_494 context_20 stop-ids_13 #f #f #f #f)))" "((s_25 context_21 stop-ids_14 intdefs_9 lift-key25_1)" "(local-transformer-expand/capture-lifts31_0 s_25 context_21 stop-ids_14 intdefs_9 lift-key25_1 #t #t))" -"((s_90 context_22 stop-ids_15 intdefs24_1)" -"(local-transformer-expand/capture-lifts31_0 s_90 context_22 stop-ids_15 intdefs24_1 #f #t #f)))))" +"((s_157 context_22 stop-ids_15 intdefs24_1)" +"(local-transformer-expand/capture-lifts31_0 s_157 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_1 opaque-only?33_0 opaque-only?34_0)" "(begin" " 'syntax-local-expand-expression36" -"(let-values(((s_173) s35_1))" +"(let-values(((s_176) 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(((temp87_4) 'syntax-local-expand-expression)" -"((s88_0) s_173)" +"((s88_0) s_176)" "((temp89_3) 'expression)" "((null90_0) null)" "((temp91_1) #f)" "((opaque-only?92_0) opaque-only?_0)" "((temp93_3) #t)" -"((temp94_3) #t)" -"((temp95_1) #f))" +"((temp94_2) #t)" +"((temp95_2) #f))" "(do-local-expand58.1" " #f" " #f" " #f" " #f" -" temp95_1" +" temp95_2" " #t" " #f" " #f" @@ -58558,7 +58804,7 @@ static const char *startup_source = " #t" " opaque-only?92_0" " #t" -" temp94_3" +" temp94_2" " #t" " temp87_4" " s88_0" @@ -58566,7 +58812,7 @@ static const char *startup_source = " null90_0" " temp91_1" " #t))))" -"(let-values(((ctx_72)(let-values()(get-current-expand-context17.1 #f #f #f #f))))" +"(let-values(((ctx_73)(let-values()(get-current-expand-context17.1 #f #f #f #f))))" "(let-values(((ae_1)" "(flip-introduction-scopes" "(datum->syntax$1" @@ -58574,17 +58820,17 @@ static const char *startup_source = "(already-expanded1.1" "(if(parsed? exp-s_12)" " exp-s_12" -"(flip-introduction-scopes exp-s_12 ctx_72))" -"(expand-context-binding-layer ctx_72)))" -" ctx_72)))" +"(flip-introduction-scopes exp-s_12 ctx_73))" +"(expand-context-binding-layer ctx_73)))" +" ctx_73)))" "(begin" -"(let-values(((obs_35)(expand-context-observer ctx_72)))" -"(if obs_35" -"(let-values()(let-values()(call-expand-observe obs_35 'opaque-expr ae_1)))" +"(let-values(((obs_60)(expand-context-observer ctx_73)))" +"(if obs_60" +"(let-values()(let-values()(call-expand-observe obs_60 'opaque-expr ae_1)))" "(void)))" -"(let-values(((obs_36)(expand-context-observer ctx_72)))" -"(if obs_36" -"(let-values()(let-values()(call-expand-observe obs_36 'exit-local exp-s_12)))" +"(let-values(((obs_61)(expand-context-observer ctx_73)))" +"(if obs_61" +"(let-values()(let-values()(call-expand-observe obs_61 'exit-local exp-s_12)))" "(void)))" "(values(if(not opaque-only?_0) exp-s_12 #f) ae_1))))))))))))" "(case-lambda" @@ -58635,7 +58881,7 @@ static const char *startup_source = "(let-values(((skip-log-exit?_0)(if skip-log-exit?51_0 skip-log-exit?44_0 #f)))" "(let-values()" "(let-values()" -"(let-values(((s_494)(datum->syntax$1 #f s-or-s-exp_0)))" +"(let-values(((s_495)(datum->syntax$1 #f s-or-s-exp_0)))" "(let-values((()" "(begin" "(if(let-values(((or-part_170)(list? context_23)))" @@ -58657,9 +58903,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_362)(not stop-ids_16)))" -"(if or-part_362" -" or-part_362" +"(if(let-values(((or-part_366)(not stop-ids_16)))" +"(if or-part_366" +" or-part_366" "(if(list? stop-ids_16)" "(andmap2 identifier? stop-ids_16)" " #f)))" @@ -58680,29 +58926,29 @@ static const char *startup_source = " intdefs-or-false?-string" " intdefs_10)))" "(values))))" -"(let-values(((ctx_73)" +"(let-values(((ctx_74)" "(let-values(((who96_0) who_37))" "(get-current-expand-context17.1 #f #f who96_0 #t))))" -"(let-values(((phase_144)" +"(let-values(((phase_142)" "(if as-transformer?_6" -"(add1(expand-context-phase ctx_73))" -"(expand-context-phase ctx_73))))" +"(add1(expand-context-phase ctx_74))" +"(expand-context-phase ctx_74))))" "(let-values(((local-ctx_0)" -"(let-values(((ctx97_0) ctx_73)" +"(let-values(((ctx97_1) ctx_74)" "((context98_1) context_23)" -"((phase99_0) phase_144)" +"((phase99_0) phase_142)" "((intdefs100_0) intdefs_10)" "((stop-ids101_0) stop-ids_16)" "((to-parsed-ok?102_0) to-parsed-ok?_1)" "((temp103_1)" -"(let-values(((or-part_363)" +"(let-values(((or-part_367)" " keep-#%expression?_2))" -"(if or-part_363" -" or-part_363" +"(if or-part_367" +" or-part_367" "(if(expand-context-in-local-expand?" -" ctx_73)" +" ctx_74)" "(expand-context-keep-#%expression?" -" ctx_73)" +" ctx_74)" " #f))))" "((track-to-be-defined?104_0)" " track-to-be-defined?_1))" @@ -58719,29 +58965,29 @@ static const char *startup_source = " #t" " track-to-be-defined?104_0" " #t" -" ctx97_0))))" +" ctx97_1))))" "(let-values((()" "(begin" "(namespace-visit-available-modules!" -"(expand-context-namespace ctx_73)" -" phase_144)" +"(expand-context-namespace ctx_74)" +" phase_142)" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_61)" +"(let-values(((obs_62)" "(expand-context-observer local-ctx_0)))" -"(if obs_61" +"(if obs_62" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_61" +" obs_62" " 'enter-local" -" s_494)))" +" s_495)))" "(void)))" "(values))))" "(let-values(((input-s_1)" "(let-values(((temp105_4)" -"(flip-introduction-scopes s_494 ctx_73))" +"(flip-introduction-scopes s_495 ctx_74))" "((intdefs106_0) intdefs_10))" "(add-intdef-scopes28.1" " #f" @@ -58754,20 +59000,6 @@ static const char *startup_source = "(begin" "(if as-transformer?_6" "(let-values()" -"(let-values(((obs_62)" -"(expand-context-observer" -" local-ctx_0)))" -"(if obs_62" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_62" -" 'phase-up)))" -"(void))))" -"(void))" -"(values))))" -"(let-values((()" -"(begin" "(let-values(((obs_63)" "(expand-context-observer" " local-ctx_0)))" @@ -58776,14 +59008,12 @@ static const char *startup_source = "(let-values()" "(call-expand-observe" " obs_63" -" 'local-pre" -" input-s_1)))" -"(void)))" +" 'phase-up)))" +"(void))))" +"(void))" "(values))))" "(let-values((()" "(begin" -"(if stop-ids_16" -"(let-values()" "(let-values(((obs_64)" "(expand-context-observer" " local-ctx_0)))" @@ -58792,6 +59022,22 @@ static const char *startup_source = "(let-values()" "(call-expand-observe" " obs_64" +" 'local-pre" +" input-s_1)))" +"(void)))" +"(values))))" +"(let-values((()" +"(begin" +"(if stop-ids_16" +"(let-values()" +"(let-values(((obs_65)" +"(expand-context-observer" +" local-ctx_0)))" +"(if obs_65" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_65" " 'start)))" "(void))))" "(void))" @@ -58830,7 +59076,7 @@ static const char *startup_source = " local-ctx_0)" "((context117_0) context_23)" "((temp118_0) #f)" -"((temp119_2)" +"((temp119_1)" "(eq?" " 'top-level" " context_23))" @@ -58840,7 +59086,7 @@ static const char *startup_source = "(expand-transformer92.1" " #f" " #f" -" temp119_2" +" temp119_1" " #t" " context117_0" " #t" @@ -58861,9 +59107,9 @@ static const char *startup_source = "((temp124_3) #t)" "((lift-key125_0)" " lift-key_6)" -"((temp126_1) #t))" +"((temp126_0) #t))" "(expand/capture-lifts75.1" -" temp126_1" +" temp126_0" " #t" " temp124_3" " #t" @@ -58906,19 +59152,19 @@ static const char *startup_source = " output-s_0" "(flip-introduction-scopes" " output-s_0" -" ctx_73))))" +" ctx_74))))" "(begin" "(if skip-log-exit?_0" "(void)" "(let-values()" -"(let-values(((obs_65)" +"(let-values(((obs_66)" "(expand-context-observer" " local-ctx_0)))" -"(if obs_65" +"(if obs_66" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_65" +" obs_66" " 'exit-local" " result-s_8)))" "(void)))))" @@ -58939,7 +59185,7 @@ static const char *startup_source = "(lambda(s5_2 maybe-insp1_0 use-mode?2_0 maybe-insp3_0 use-mode?4_0)" "(begin" " 'syntax-arm6" -"(let-values(((s_176) s5_2))" +"(let-values(((s_179) s5_2))" "(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()" @@ -58947,14 +59193,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_176)" +"(if(syntax?$1 s_179)" "(void)" -" (let-values () (raise-argument-error 'syntax-arm \"syntax?\" s_176)))" +" (let-values () (raise-argument-error 'syntax-arm \"syntax?\" s_179)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_209)(not maybe-insp_0)))" -"(if or-part_209 or-part_209(inspector? maybe-insp_0)))" +"(if(let-values(((or-part_211)(not maybe-insp_0)))" +"(if or-part_211 or-part_211(inspector? maybe-insp_0)))" "(void)" "(let-values()" "(raise-argument-error" @@ -58966,63 +59212,63 @@ static const char *startup_source = "(if use-mode?_0" "(let-values()" "(taint-dispatch" -" s_176" -"(lambda(s_495)(syntax-arm$1 s_495 insp_21))" +" s_179" +"(lambda(s_496)(syntax-arm$1 s_496 insp_21))" "(1/syntax-local-phase-level)))" -"(let-values()(syntax-arm$1 s_176 insp_21))))))))))))))))" +"(let-values()(syntax-arm$1 s_179 insp_21))))))))))))))))" "(case-lambda" -"((s_177)(begin 'syntax-arm(syntax-arm6_0 s_177 #f #f #f #f)))" -"((s_178 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_178 maybe-insp_1 use-mode?2_1 #t #t))" -"((s_454 maybe-insp1_1)(syntax-arm6_0 s_454 maybe-insp1_1 #f #t #f)))))" +"((s_180)(begin 'syntax-arm(syntax-arm6_0 s_180 #f #f #f #f)))" +"((s_181 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_181 maybe-insp_1 use-mode?2_1 #t #t))" +"((s_456 maybe-insp1_1)(syntax-arm6_0 s_456 maybe-insp1_1 #f #t #f)))))" "(define-values" "(1/syntax-disarm)" -"(lambda(s_496 maybe-insp_2)" +"(lambda(s_497 maybe-insp_2)" "(begin" " 'syntax-disarm" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_496)" +"(if(syntax?$1 s_497)" "(void)" -" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_496)))" +" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_497)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_364)(not maybe-insp_2)))" -"(if or-part_364 or-part_364(inspector? maybe-insp_2)))" +"(if(let-values(((or-part_368)(not maybe-insp_2)))" +"(if or-part_368 or-part_368(inspector? maybe-insp_2)))" "(void)" " (let-values () (raise-argument-error 'syntax-disarm \"(or/c inspector? #f)\" maybe-insp_2)))" "(values))))" -"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_496 insp_22)))))))))" +"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_497 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_453) s10_0))" +"(let-values(((s_455) 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_453)" +"(if(syntax?$1 s_455)" "(void)" -" (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" s_453)))" +" (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" s_455)))" "(if(syntax?$1 from-s_2)" "(void)" " (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" from-s_2)))" "(if use-mode?_1" "(let-values()" "(taint-dispatch" -" s_453" -"(lambda(s_497)(syntax-rearm$1 s_497 from-s_2))" +" s_455" +"(lambda(s_498)(syntax-rearm$1 s_498 from-s_2))" "(1/syntax-local-phase-level)))" -"(let-values()(syntax-rearm$1 s_453 from-s_2))))))))))))))" +"(let-values()(syntax-rearm$1 s_455 from-s_2))))))))))))))" "(case-lambda" -"((s_451 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_451 from-s_3 #f #f)))" +"((s_452 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_452 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)" @@ -59038,9 +59284,9 @@ static const char *startup_source = "(inspector-for-taint)" "(lambda(maybe-insp_3)" "(begin" -"(let-values(((or-part_365) maybe-insp_3))" -"(if or-part_365" -" or-part_365" +"(let-values(((or-part_369) maybe-insp_3))" +"(if or-part_369" +" or-part_369" "(let-values(((or-part_94)(current-module-code-inspector)))" "(if or-part_94 or-part_94(current-code-inspector))))))))" "(define-values" @@ -59263,6 +59509,7 @@ static const char *startup_source = " 'syntax-local-phase-level" " 'syntax-local-name" " 'make-syntax-introducer" +" 'make-interned-syntax-introducer" " 'make-syntax-delta-introducer" " 'syntax-local-make-delta-introducer" " 'syntax-local-value" @@ -59399,6 +59646,7 @@ static const char *startup_source = "(add-core-primitive! 'syntax-local-phase-level 1/syntax-local-phase-level)" "(add-core-primitive! 'syntax-local-name 1/syntax-local-name)" "(add-core-primitive! 'make-syntax-introducer 1/make-syntax-introducer)" +"(add-core-primitive! 'make-interned-syntax-introducer 1/make-interned-syntax-introducer)" "(add-core-primitive! 'make-syntax-delta-introducer 1/make-syntax-delta-introducer)" "(add-core-primitive! 'syntax-local-make-delta-introducer 1/syntax-local-make-delta-introducer)" "(add-core-primitive! 'syntax-local-value 1/syntax-local-value)" @@ -59511,8 +59759,8 @@ static const char *startup_source = " name25_0)" "(begin" " 'copy-runtime-module!26" -"(let-values(((name_65) name25_0))" -"(let-values(((to-name_0)(if to18_0 to11_0 name_65)))" +"(let-values(((name_66) name25_0))" +"(let-values(((to-name_0)(if to18_0 to11_0 name_66)))" "(let-values(((ns_119) namespace12_0))" "(let-values(((skip-syms_0)(if skip20_0 skip13_0(seteq))))" "(let-values(((alts_0)(if alts21_0 alts14_0 '#hasheq())))" @@ -59520,7 +59768,7 @@ static const char *startup_source = "(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_65)))" +"(let-values(((prims_0)(1/primitive-table name_66)))" "(let-values((()" "(begin" "(let-values(((ht_24) prims_0))" @@ -59528,13 +59776,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_24)))" -"((letrec-values(((for-loop_280)" -"(lambda(i_26)" +"((letrec-values(((for-loop_281)" +"(lambda(i_28)" "(begin" " 'for-loop" -"(if i_26" -"(let-values(((sym_99)" -"(hash-iterate-key ht_24 i_26)))" +"(if i_28" +"(let-values(((sym_100)" +"(hash-iterate-key ht_24 i_28)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -59542,104 +59790,104 @@ static const char *startup_source = "(begin" "(let-values()" "(register-built-in-symbol!" -" sym_99))" +" sym_100))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_280" -"(hash-iterate-next ht_24 i_26))" +"(for-loop_281" +"(hash-iterate-next ht_24 i_28))" "(values))))" "(values))))))" -" for-loop_280)" +" for-loop_281)" "(hash-iterate-first ht_24))))" "(values))))" "(let-values()" -"(let-values(((ht_160)" -"(let-values(((ht_161) prims_0))" +"(let-values(((ht_161)" +"(let-values(((ht_162) prims_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_161)))" +"(let-values()(check-in-hash ht_162)))" "((letrec-values(((for-loop_269)" -"(lambda(table_11 i_182)" +"(lambda(table_11 i_185)" "(begin" " 'for-loop" -"(if i_182" -"(let-values(((sym_100 val_5)" +"(if i_185" +"(let-values(((sym_101 val_5)" "(hash-iterate-key+value" -" ht_161" -" i_182)))" +" ht_162" +" i_185)))" "(let-values(((table_220)" "(let-values(((table_221)" " table_11))" "(if(set-member?" " skip-syms_0" -" sym_100)" +" sym_101)" " table_221" "(let-values(((table_20)" " table_221))" "(let-values(((table_222)" "(let-values()" "(let-values(((key_87" -" val_83)" +" val_84)" "(let-values()" "(values" -" sym_100" -"(let-values(((or-part_220)" +" sym_101" +"(let-values(((or-part_222)" "(hash-ref" " alts_0" -" sym_100" +" sym_101" " #f)))" -"(if or-part_220" -" or-part_220" +"(if or-part_222" +" or-part_222" " val_5))))))" "(hash-set" " table_20" " key_87" -" val_83)))))" +" val_84)))))" "(values table_222)))))))" "(if(not #f)" "(for-loop_269" " table_220" -"(hash-iterate-next ht_161 i_182))" +"(hash-iterate-next ht_162 i_185))" " table_220)))" " table_11)))))" " for-loop_269)" " '#hasheq()" -"(hash-iterate-first ht_161))))))" +"(hash-iterate-first ht_162))))))" "(let-values(((ht+extras_0)" -"(let-values(((ht_162) extras_0))" +"(let-values(((ht_163) extras_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_162)))" -"((letrec-values(((for-loop_281)" -"(lambda(ht_163 i_183)" +"(let-values()(check-in-hash ht_163)))" +"((letrec-values(((for-loop_282)" +"(lambda(ht_164 i_186)" "(begin" " 'for-loop" -"(if i_183" +"(if i_186" "(let-values(((k_43 v_50)" "(hash-iterate-key+value" -" ht_162" -" i_183)))" +" ht_163" +" i_186)))" "(let-values(((ht_16)" -"(let-values(((ht_46) ht_163))" -"(let-values(((ht_164)" +"(let-values(((ht_46) ht_164))" +"(let-values(((ht_165)" "(let-values()" "(hash-set" " ht_46" " k_43" " v_50))))" -"(values ht_164)))))" +"(values ht_165)))))" "(if(not #f)" -"(for-loop_281" +"(for-loop_282" " ht_16" -"(hash-iterate-next ht_162 i_183))" +"(hash-iterate-next ht_163 i_186))" " ht_16)))" -" ht_163)))))" -" for-loop_281)" -" ht_160" -"(hash-iterate-first ht_162))))))" +" ht_164)))))" +" for-loop_282)" +" ht_161" +"(hash-iterate-first ht_163))))))" "(let-values(((to-name61_0) to-name_0)" "((ht+extras62_0) ht+extras_0)" "((ns63_0) ns_119)" @@ -59672,15 +59920,15 @@ static const char *startup_source = " ht40_0)" "(begin" " 'declare-hash-based-module!41" -"(let-values(((name_74) name39_0))" -"(let-values(((ht_165) ht40_0))" +"(let-values(((name_75) name39_0))" +"(let-values(((ht_166) ht40_0))" "(let-values(((ns_120) 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_55)(1/module-path-index-join(list 'quote name_74) #f)))" +"(let-values(((mpi_55)(1/module-path-index-join(list 'quote name_75) #f)))" "(let-values(((ns66_1) ns_120)" "((temp67_1)" "(let-values(((temp69_2) #t)" @@ -59691,34 +59939,34 @@ static const char *startup_source = "((temp74_0)" "(hasheqv" " 0" -"(let-values(((ht_166) ht_165))" +"(let-values(((ht_167) ht_166))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_166)))" -"((letrec-values(((for-loop_282)" -"(lambda(table_223 i_184)" +"(let-values()(check-in-hash-keys ht_167)))" +"((letrec-values(((for-loop_283)" +"(lambda(table_223 i_187)" "(begin" " 'for-loop" -"(if i_184" -"(let-values(((sym_101)" +"(if i_187" +"(let-values(((sym_102)" "(hash-iterate-key" -" ht_166" -" i_184)))" +" ht_167" +" i_187)))" "(let-values(((table_224)" "(let-values(((table_225)" " table_223))" "(let-values(((table_226)" "(let-values()" "(let-values(((key_88" -" val_84)" +" val_85)" "(let-values()" "(let-values((()" "(begin" "(if register-builtin?_0" "(let-values()" "(register-built-in-symbol!" -" sym_101))" +" sym_102))" "(void))" "(values))))" "(let-values(((binding_28)" @@ -59727,7 +59975,7 @@ static const char *startup_source = "((temp77_2)" " 0)" "((sym78_0)" -" sym_101))" +" sym_102))" "(make-module-binding22.1" " #f" " #f" @@ -59751,13 +59999,13 @@ static const char *startup_source = " temp77_2" " sym78_0))))" "(values" -" sym_101" -"(if(let-values(((or-part_366)" +" sym_102" +"(if(let-values(((or-part_370)" " protected?_11))" -"(if or-part_366" -" or-part_366" +"(if or-part_370" +" or-part_370" "(member" -" sym_101" +" sym_102" " protected-syms_0)))" "(provided1.1" " binding_28" @@ -59767,46 +60015,46 @@ static const char *startup_source = "(hash-set" " table_225" " key_88" -" val_84)))))" +" val_85)))))" "(values" " table_226)))))" "(if(not #f)" -"(for-loop_282" +"(for-loop_283" " table_224" "(hash-iterate-next" -" ht_166" -" i_184))" +" ht_167" +" i_187))" " table_224)))" " table_223)))))" -" for-loop_282)" +" for-loop_283)" " '#hash()" -"(hash-iterate-first ht_166))))))" +"(hash-iterate-first ht_167))))))" "((temp75_3)" "(lambda(data-box_6" " ns_121" " phase-shift_21" " phase-level_23" " self_29" -" bulk-binding-registry_18" +" bulk-binding-registry_19" " insp_23)" "(if(= 0 phase-level_23)" "(let-values()" "(begin" -"(let-values(((ht_167) ht_165))" +"(let-values(((ht_168) ht_166))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_167)))" +"(let-values()(check-in-hash ht_168)))" "((letrec-values(((for-loop_243)" -"(lambda(i_185)" +"(lambda(i_188)" "(begin" " 'for-loop" -"(if i_185" -"(let-values(((sym_102 val_31)" +"(if i_188" +"(let-values(((sym_103 val_32)" "(hash-iterate-key+value" -" ht_167" -" i_185)))" +" ht_168" +" i_188)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -59816,19 +60064,19 @@ static const char *startup_source = "(namespace-set-variable!" " ns_121" " 0" -" sym_102" -" val_31))" +" sym_103" +" val_32))" "(values)))))" "(values)))))" "(if(not #f)" "(for-loop_243" "(hash-iterate-next" -" ht_167" -" i_185))" +" ht_168" +" i_188))" "(values))))" "(values))))))" " for-loop_243)" -"(hash-iterate-first ht_167))))" +"(hash-iterate-first ht_168))))" "(void)))" "(void)))))" "(make-module39.1" @@ -59872,28 +60120,28 @@ static const char *startup_source = "(lambda(namespace45_0 reexport?44_0 reexport?46_0 name48_1 require-names49_0)" "(begin" " 'declare-reexporting-module!50" -"(let-values(((name_75) name48_1))" +"(let-values(((name_76) 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_122) namespace45_0))" "(let-values()" -"(let-values(((mpi_56)(1/module-path-index-join(list 'quote name_75) #f)))" +"(let-values(((mpi_56)(1/module-path-index-join(list 'quote name_76) #f)))" "(let-values(((require-mpis_0)" "(reverse$1" -"(let-values(((lst_202) require-names_0))" +"(let-values(((lst_203) require-names_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_202)))" -"((letrec-values(((for-loop_207)" -"(lambda(fold-var_145 lst_203)" +"(let-values()(check-list lst_203)))" +"((letrec-values(((for-loop_206)" +"(lambda(fold-var_145 lst_204)" "(begin" " 'for-loop" -"(if(pair? lst_203)" -"(let-values(((require-name_0)(unsafe-car lst_203))" -"((rest_107)(unsafe-cdr lst_203)))" -"(let-values(((fold-var_292)" -"(let-values(((fold-var_293) fold-var_145))" +"(if(pair? lst_204)" +"(let-values(((require-name_0)(unsafe-car lst_204))" +"((rest_107)(unsafe-cdr lst_204)))" +"(let-values(((fold-var_294)" +"(let-values(((fold-var_295) fold-var_145))" "(let-values(((fold-var_40)" "(let-values()" "(cons" @@ -59903,31 +60151,31 @@ static const char *startup_source = " 'quote" " require-name_0)" " #f))" -" fold-var_293))))" +" fold-var_295))))" "(values fold-var_40)))))" "(if(not #f)" -"(for-loop_207 fold-var_292 rest_107)" -" fold-var_292)))" +"(for-loop_206 fold-var_294 rest_107)" +" fold-var_294)))" " fold-var_145)))))" -" for-loop_207)" +" for-loop_206)" " null" -" lst_202))))))" +" lst_203))))))" "(let-values(((ns79_1) ns_122)" "((temp80_4)" -"(let-values(((temp82_6) #t)" -"((temp83_2) #t)" +"(let-values(((temp82_5) #t)" +"((temp83_3) #t)" "((mpi84_0) mpi_56)" "((temp85_4)(list(cons 0 require-mpis_0)))" "((temp86_1)" "(if reexport?_0" "(hasheqv" " 0" -"(let-values(((lst_111) require-mpis_0))" +"(let-values(((lst_110) require-mpis_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_111)))" -"((letrec-values(((for-loop_283)" +"(let-values()(check-list lst_110)))" +"((letrec-values(((for-loop_284)" "(lambda(table_227 lst_54)" "(begin" " 'for-loop" @@ -59944,13 +60192,13 @@ static const char *startup_source = " require-mpi_0))))" "(begin" " #t" -"((letrec-values(((for-loop_284)" +"((letrec-values(((for-loop_285)" "(lambda(table_32)" "(begin" " 'for-loop" "(let-values()" "(let-values(((table_229)" -"(let-values(((ht_168)" +"(let-values(((ht_169)" "(hash-ref" "(shift-provides-module-path-index" "(module-provides" @@ -59965,62 +60213,62 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_168)))" -"((letrec-values(((for-loop_285)" +" ht_169)))" +"((letrec-values(((for-loop_286)" "(lambda(table_148" -" i_186)" +" i_189)" "(begin" " 'for-loop" -"(if i_186" -"(let-values(((sym_103" +"(if i_189" +"(let-values(((sym_104" " binding_29)" "(hash-iterate-key+value" -" ht_168" -" i_186)))" +" ht_169" +" i_189)))" "(let-values(((table_122)" "(let-values(((table_163)" " table_148))" "(let-values(((table_35)" "(let-values()" "(let-values(((key_89" -" val_85)" +" val_86)" "(let-values()" "(values" -" sym_103" +" sym_104" " binding_29))))" "(hash-set" " table_163" " key_89" -" val_85)))))" +" val_86)))))" "(values" " table_35)))))" "(if(not" " #f)" -"(for-loop_285" +"(for-loop_286" " table_122" "(hash-iterate-next" -" ht_168" -" i_186))" +" ht_169" +" i_189))" " table_122)))" " table_148)))))" -" for-loop_285)" +" for-loop_286)" " table_32" "(hash-iterate-first" -" ht_168))))))" +" ht_169))))))" " table_229))))))" -" for-loop_284)" +" for-loop_285)" " table_227)))))" "(if(not #f)" -"(for-loop_283 table_228 rest_176)" +"(for-loop_284 table_228 rest_176)" " table_228)))" " table_227)))))" -" for-loop_283)" +" for-loop_284)" " '#hash()" -" lst_111))))" +" lst_110))))" " '#hasheqv()))" "((void87_0) void))" "(make-module39.1" -" temp82_6" +" temp82_5" " #t" " #f" " #f" @@ -60037,7 +60285,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp83_2" +" temp83_3" " #t" " #f" " #f" @@ -60116,13 +60364,13 @@ static const char *startup_source = "(let-values()" "(case-lambda" "((s_71)(begin 'eval((1/current-eval)(intro s_71))))" -"((s_187 ns_123)" +"((s_190 ns_123)" "(begin" " (if (1/namespace? ns_123) (void) (let-values () (raise-argument-error 'eval \"namespace?\" ns_123)))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_123)" -"(let-values()((1/current-eval)(intro s_187 ns_123))))))))))" +"(let-values()((1/current-eval)(intro s_190 ns_123))))))))))" "(define-values" "(1/eval-syntax)" "(let-values()" @@ -60142,52 +60390,52 @@ static const char *startup_source = " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_124)" "(let-values()((1/current-eval) s_2)))))))))" -"(define-values(compile$1)(lambda(s_176)(begin 'compile((1/current-compile)(intro s_176) #f))))" +"(define-values(compile$1)(lambda(s_179)(begin 'compile((1/current-compile)(intro s_179) #f))))" "(define-values" "(1/compile-syntax)" -"(lambda(s_190)" +"(lambda(s_193)" "(begin" " 'compile-syntax" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_190) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_190)))" -"((1/current-compile) s_190 #f)))))))" +" (if (syntax?$1 s_193) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_193)))" +"((1/current-compile) s_193 #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_498)" +"(lambda(s_499)" "(begin" " 'expand-syntax" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_498) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_498)))" -"(expand$1 s_498(1/current-namespace) #t)))))))" -"(define-values(1/expand-once)(lambda(s_495)(begin 'expand-once(expand-once$1(intro s_495)))))" +" (if (syntax?$1 s_499) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_499)))" +"(expand$1 s_499(1/current-namespace) #t)))))))" +"(define-values(1/expand-once)(lambda(s_496)(begin 'expand-once(expand-once$1(intro s_496)))))" "(define-values" "(1/expand-syntax-once)" -"(lambda(s_177)" +"(lambda(s_180)" "(begin" " 'expand-syntax-once" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_177) (void) (let-values () (raise-argument-error 'expand-syntax-once \"syntax?\" s_177)))" -"(expand-once$1 s_177)))))))" +" (if (syntax?$1 s_180) (void) (let-values () (raise-argument-error 'expand-syntax-once \"syntax?\" s_180)))" +"(expand-once$1 s_180)))))))" "(define-values(1/expand-to-top-form)(lambda(s_74)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_74)))))" "(define-values" "(1/expand-syntax-to-top-form)" -"(lambda(s_170)" +"(lambda(s_173)" "(begin" " 'expand-syntax-to-top-form" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_170)" +"(if(syntax?$1 s_173)" "(void)" -" (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_170)))" -"(expand-to-top-form$1 s_170)))))))" +" (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_173)))" +"(expand-to-top-form$1 s_173)))))))" "(define-values" "(intro)" "(let-values(((intro4_0)" @@ -60197,8 +60445,8 @@ static const char *startup_source = "(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_499)(if(syntax?$1 given-s_1) given-s_1(1/datum->syntax #f given-s_1))))" -"(1/namespace-syntax-introduce s_499 ns_68)))))))))" +"(let-values(((s_500)(if(syntax?$1 given-s_1) given-s_1(1/datum->syntax #f given-s_1))))" +"(1/namespace-syntax-introduce s_500 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)" @@ -60367,10 +60615,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_92)(TH-place-channel-ref x_92 0))))))" +"(make-struct-type 'TH-place-channel #f 2 0 #f(list(cons prop:evt(lambda(x_94)(TH-place-channel-ref x_94 0))))))" "(define-values" "(TH-place-channel-in TH-place-channel-out)" -"(values(lambda(x_93)(TH-place-channel-ref x_93 0))(lambda(x_81)(TH-place-channel-ref x_81 1))))" +"(values(lambda(x_95)(TH-place-channel-ref x_95 0))(lambda(x_83)(TH-place-channel-ref x_83 1))))" "(define-values" "(place-struct-primitives)" "(hasheq" @@ -60449,7 +60697,7 @@ static const char *startup_source = " 1/variable-reference-from-unsafe?))" "(define-values" "(with-module-reading-parameterization)" -"(lambda(thunk_1)" +"(lambda(thunk_3)" "(begin" "(with-continuation-mark" " parameterization-key" @@ -60489,13 +60737,13 @@ static const char *startup_source = " #t" " 1/current-readtable" " #f)" -"(let-values()(thunk_1))))))" +"(let-values()(thunk_3))))))" "(define-values" "(check-module-form)" "(lambda(exp_0 filename_1)" "(begin" -"(if(let-values(((or-part_308)(eof-object? exp_0)))" -"(if or-part_308 or-part_308(eof-object?(1/syntax-e exp_0))))" +"(if(let-values(((or-part_311)(eof-object? exp_0)))" +"(if or-part_311 or-part_311(eof-object?(1/syntax-e exp_0))))" "(let-values()" "(if filename_1" "(error" @@ -60508,8 +60756,8 @@ 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_4)(if(syntax?$1 r_41)(1/syntax-e r_41) r_41)))" +"(let-values(((r_42)(cdr(1/syntax-e exp_0))))" +"(let-values(((r_4)(if(syntax?$1 r_42)(1/syntax-e r_42) r_42)))" "(if(pair? r_4)(identifier?(car r_4)) #f)))" " #f)" " #f)" @@ -60557,35 +60805,35 @@ static const char *startup_source = " expected-mod_0)))" "(values))))" "(let-values(((maybe-count-lines!_0)" -"(lambda(i_126)" +"(lambda(i_127)" "(begin" " 'maybe-count-lines!" " (if (regexp-match? '#rx\"[.]zo$\" path_12)" "(void)" -"(let-values()(port-count-lines! i_126)))))))" +"(let-values()(port-count-lines! i_127)))))))" "(if expected-mod_0" "(let-values()" "((call-with-input-module-file" " path_12" -"(lambda(i_187)" +"(lambda(i_190)" "(begin" -"(maybe-count-lines!_0 i_187)" +"(maybe-count-lines!_0 i_190)" "(with-module-reading-parameterization+delay-source" " path_12" "(lambda()" -"(let-values(((c1_33)(linklet-directory-start i_187)))" +"(let-values(((c1_33)(linklet-directory-start i_190)))" "(if c1_33" -"((lambda(pos_126)" +"((lambda(pos_124)" "(let-values(((b-pos_0)" -"(search-directory i_187 pos_126(encode-symbols expected-mod_0))))" +"(search-directory i_190 pos_124(encode-symbols expected-mod_0))))" "(if b-pos_0" "(let-values()" "(begin" -"(file-position i_187 b-pos_0)" -"(let-values(((or-part_12)(cached-bundle i_187)))" +"(file-position i_190 b-pos_0)" +"(let-values(((or-part_12)(cached-bundle i_190)))" "(if or-part_12" " or-part_12" -"(let-values(((v_0)(1/read i_187)))" +"(let-values(((v_0)(1/read i_190)))" "(if(1/compiled-module-expression? v_0)" "(lambda()((1/current-eval) v_0))" "(error" @@ -60594,7 +60842,7 @@ static const char *startup_source = " \"expected a compiled module\\n\"" " \" in: ~e\\n\"" " \" found: ~e\")" -"(object-name i_187)" +"(object-name i_190)" " v_0)))))))" "(if(pair? expected-mod_0)" "(let-values() void)" @@ -60602,18 +60850,18 @@ static const char *startup_source = "(error" " 'default-load-handler" " (string-append \"could not find main module\\n\" \" in: ~e\")" -"(object-name i_187)))))))" +"(object-name i_190)))))))" " c1_33)" "(if(if(pair? expected-mod_0)(not(car expected-mod_0)) #f)" "(let-values() void)" -"(let-values(((c2_17)(cached-bundle i_187)))" +"(let-values(((c2_17)(cached-bundle i_190)))" "(if c2_17" -"((lambda(thunk_6) thunk_6) c2_17)" +"((lambda(thunk_8) thunk_8) c2_17)" "(let-values()" -"(let-values(((s_177)(1/read-syntax(object-name i_187) i_187)))" +"(let-values(((s_180)(1/read-syntax(object-name i_190) i_190)))" "(let-values((()" "(begin" -"(if(eof-object? s_177)" +"(if(eof-object? s_180)" "(let-values()" "(error" " 'default-load-handler" @@ -60621,11 +60869,11 @@ static const char *startup_source = " \"expected a `module' declaration;\\n\"" " \" found end-of-file\\n\"" " \" in: ~e\")" -"(object-name i_187)))" +"(object-name i_190)))" "(void))" "(values))))" -"(let-values(((m-s_0)(check-module-form s_177 path_12)))" -"(let-values(((s2_7)(1/read-syntax(object-name i_187) i_187)))" +"(let-values(((m-s_0)(check-module-form s_180 path_12)))" +"(let-values(((s2_7)(1/read-syntax(object-name i_190) i_190)))" "(begin" "(if(eof-object? s2_7)" "(void)" @@ -60637,28 +60885,28 @@ static const char *startup_source = " \" found an extra form\\n\"" " \" in: ~e\\n\"" " \" found: ~.s\")" -"(object-name i_187)" +"(object-name i_190)" " s2_7)))" "(lambda()((1/current-eval) m-s_0))))))))))))))))))))" "(let-values()" "(let-values(((add-top-interaction_0)" -"(lambda(s_454)" +"(lambda(s_456)" "(begin" " 'add-top-interaction" "(1/namespace-syntax-introduce" -"(1/datum->syntax #f(cons '#%top-interaction s_454) s_454))))))" +"(1/datum->syntax #f(cons '#%top-interaction s_456) s_456))))))" "(let-values(((path1_0) path_12)" "((temp2_8)" -"(lambda(i_83)" +"(lambda(i_84)" "(begin" " 'temp2" "(begin" -"(maybe-count-lines!_0 i_83)" +"(maybe-count-lines!_0 i_84)" "((letrec-values(((loop_35)" "(lambda(vals_7)" "(begin" " 'loop" -"(let-values(((s_304)" +"(let-values(((s_309)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -60683,19 +60931,19 @@ static const char *startup_source = "(path->complete-path path_12))" "(let-values()" "(1/read-syntax" -"(object-name i_83)" -" i_83)))" +"(object-name i_84)" +" i_84)))" "(1/read-syntax" -"(object-name i_83)" -" i_83))))))" -"(if(eof-object? s_304)" +"(object-name i_84)" +" i_84))))))" +"(if(eof-object? s_309)" "(apply values vals_7)" "(loop_35" "(call-with-continuation-prompt" "(lambda()" "(call-with-values" "(lambda()" -"((1/current-eval)(add-top-interaction_0 s_304)))" +"((1/current-eval)(add-top-interaction_0 s_309)))" " list))" "(default-continuation-prompt-tag)" "(lambda args_10" @@ -60708,28 +60956,28 @@ static const char *startup_source = "(call-with-input-file*61.1 #f #f path1_0 temp2_8)))))))))))" "(define-values" "(linklet-bundle-or-directory-start)" -"(lambda(i_146 tag_1)" +"(lambda(i_147 tag_1)" "(begin" "(let-values(((version-length_0)(string-length(version))))" -"(if(equal?(peek-byte i_146)(char->integer '#\\#))" -"(if(equal?(peek-byte i_146 1)(char->integer '#\\~))" -"(if(equal?(peek-byte i_146 2) version-length_0)" -"(if(equal?(peek-bytes version-length_0 3 i_146)(string->bytes/utf-8(version)))" -"(if(equal?(peek-byte i_146(+ 3 version-length_0))(char->integer tag_1))(+ version-length_0 4) #f)" +"(if(equal?(peek-byte i_147)(char->integer '#\\#))" +"(if(equal?(peek-byte i_147 1)(char->integer '#\\~))" +"(if(equal?(peek-byte i_147 2) version-length_0)" +"(if(equal?(peek-bytes version-length_0 3 i_147)(string->bytes/utf-8(version)))" +"(if(equal?(peek-byte i_147(+ 3 version-length_0))(char->integer tag_1))(+ version-length_0 4) #f)" " #f)" " #f)" " #f)" " #f)))))" "(define-values" "(linklet-directory-start)" -"(lambda(i_151)" -"(begin(let-values(((pos_94)(linklet-bundle-or-directory-start i_151 '#\\D)))(if pos_94(+ pos_94 4) #f)))))" +"(lambda(i_152)" +"(begin(let-values(((pos_93)(linklet-bundle-or-directory-start i_152 '#\\D)))(if pos_93(+ pos_93 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_71 len_40)" @@ -60738,21 +60986,21 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_232)" -"(lambda(result_129 pos_127)" +"(lambda(result_130 pos_125)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_127 len_40)" -"(let-values(((c_76)(unsafe-bytes-ref vec_71 pos_127)))" -"(let-values(((result_130)" -"(let-values()" +"(if(unsafe-fx< pos_125 len_40)" +"(let-values(((c_76)(unsafe-bytes-ref vec_71 pos_125)))" "(let-values(((result_131)" "(let-values()" +"(let-values(((result_132)" +"(let-values()" "(let-values()(not(eq? c_76 0))))))" -"(values result_131)))))" -"(if(if(not((lambda x_94 result_130) c_76))(not #f) #f)" -"(for-loop_232 result_130(unsafe-fx+ 1 pos_127))" -" result_130)))" -" result_129)))))" +"(values result_132)))))" +"(if(if(not((lambda x_96 result_131) c_76))(not #f) #f)" +"(for-loop_232 result_131(unsafe-fx+ 1 pos_125))" +" result_131)))" +" result_130)))))" " for-loop_232)" " #f" " 0)))" @@ -60762,38 +61010,38 @@ static const char *startup_source = " #f))))))" "(define-values" "(cached-bundle)" -"(lambda(i_92)" +"(lambda(i_93)" "(begin" -"(let-values(((c3_10)(module-cache-ref(make-module-cache-key(linklet-bundle-hash-code i_92)))))" +"(let-values(((c3_10)(module-cache-ref(make-module-cache-key(linklet-bundle-hash-code i_93)))))" "(if c3_10" "((lambda(declare-module_0)(lambda()(declare-module_0(1/current-namespace)))) c3_10)" "(let-values() #f))))))" "(define-values" "(read-number)" -"(lambda(i_58)" +"(lambda(i_60)" "(begin" "(let-values(((read-byte/not-eof_0)" -"(lambda(i_188)" +"(lambda(i_191)" "(begin" " 'read-byte/not-eof" -"(let-values(((v_186)(read-byte i_188)))(if(eof-object? v_186) 0 v_186))))))" +"(let-values(((v_187)(read-byte i_191)))(if(eof-object? v_187) 0 v_187))))))" "(bitwise-ior" -"(read-byte/not-eof_0 i_58)" -"(arithmetic-shift(read-byte/not-eof_0 i_58) 8)" -"(arithmetic-shift(read-byte/not-eof_0 i_58) 16)" -"(arithmetic-shift(read-byte/not-eof_0 i_58) 24))))))" +"(read-byte/not-eof_0 i_60)" +"(arithmetic-shift(read-byte/not-eof_0 i_60) 8)" +"(arithmetic-shift(read-byte/not-eof_0 i_60) 16)" +"(arithmetic-shift(read-byte/not-eof_0 i_60) 24))))))" "(define-values" "(search-directory)" -"(lambda(i_189 pos_119 bstr_5)" +"(lambda(i_192 pos_117 bstr_5)" "(begin" -"(if(zero? pos_119)" +"(if(zero? pos_117)" "(let-values() #f)" "(let-values()" -"(let-values((()(begin(file-position i_189 pos_119)(values))))" -"(let-values(((name-len_0)(read-number i_189)))" -"(let-values(((v_259)(read-bytes name-len_0 i_189)))" +"(let-values((()(begin(file-position i_192 pos_117)(values))))" +"(let-values(((name-len_0)(read-number i_192)))" +"(let-values(((v_261)(read-bytes name-len_0 i_192)))" "(begin" -"(if(if(bytes? v_259)(=(bytes-length v_259) name-len_0) #f)" +"(if(if(bytes? v_261)(=(bytes-length v_261) name-len_0) #f)" "(void)" "(let-values()" "(error" @@ -60804,24 +61052,24 @@ static const char *startup_source = " \" at position: ~a\\n\"" " \" expected bytes: ~a\\n\"" " \" read bytes: ~e\")" -"(object-name i_189)" -" pos_119" +"(object-name i_192)" +" pos_117" " name-len_0" -" v_259)))" -"(if(bytes=? bstr_5 v_259)" -"(let-values()(read-number i_189))" -"(if(bytesbytes/utf-8" -"(symbol->string s_184))))" +"(symbol->string s_187))))" "(let-values(((len_41)" "(bytes-length bstr_6)))" "(if(< len_41 255)" @@ -60870,14 +61118,14 @@ static const char *startup_source = " bstr_6))))))" " fold-var_66))))" "(values fold-var_72)))))" -"(if(not #f)(for-loop_104 fold-var_65 rest_44) fold-var_65)))" +"(if(not #f)(for-loop_105 fold-var_65 rest_43) fold-var_65)))" " fold-var_63)))))" -" for-loop_104)" +" for-loop_105)" " null" -" lst_310))))))))))" +" lst_311))))))))))" "(define-values" "(with-module-reading-parameterization+delay-source)" -"(lambda(path_13 thunk_7)" +"(lambda(path_13 thunk_9)" "(begin" "(if(load-on-demand-enabled)" "(with-continuation-mark" @@ -60886,18 +61134,18 @@ static const char *startup_source = "(continuation-mark-set-first #f parameterization-key)" " read-on-demand-source" "(path->complete-path path_13))" -"(let-values()(with-module-reading-parameterization thunk_7)))" -"(with-module-reading-parameterization thunk_7)))))" +"(let-values()(with-module-reading-parameterization thunk_9)))" +"(with-module-reading-parameterization thunk_9)))))" "(define-values" "(call-with-input-module-file)" "(lambda(path_14 proc_10)" "(begin" -"(let-values(((i_160) #f))" +"(let-values(((i_161) #f))" "(dynamic-wind" "(lambda()" -"(set! i_160(let-values(((path3_0) path_14)((temp4_7) #t))(open-input-file6.1 temp4_7 #t #f #f path3_0))))" -"(lambda()(proc_10 i_160))" -"(lambda()(close-input-port i_160)))))))" +"(set! i_161(let-values(((path3_0) path_14)((temp4_7) #t))(open-input-file6.1 temp4_7 #t #f #f path3_0))))" +"(lambda()(proc_10 i_161))" +"(lambda()(close-input-port i_161)))))))" "(define-values(dll-suffix)(system-type 'so-suffix))" "(define-values" "(default-load/use-compiled)" @@ -60938,7 +61186,7 @@ static const char *startup_source = "(if am_0(if bm_0(if(>=(cdr am_0)(cdr bm_0)) am_0 #f) #f) #f))))" " #f)))))" "(let-values(((with-dir*_0)" -"(lambda(base_25 t_57)" +"(lambda(base_25 t_58)" "(begin" " 'with-dir*" "(with-continuation-mark" @@ -60947,7 +61195,7 @@ static const char *startup_source = "(continuation-mark-set-first #f parameterization-key)" " current-load-relative-directory" "(if(path? base_25) base_25(current-directory)))" -"(let-values()(t_57)))))))" +"(let-values()(t_58)))))))" "(lambda(path_15 expect-module_0)" "(begin" "(let-values((()" @@ -60979,12 +61227,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_55)(if expect-module_0(1/current-module-declare-name) #f)))" +"(let-values(((name_56)(if expect-module_0(1/current-module-declare-name) #f)))" "(let-values(((ns-hts_0)" -"(if name_55" +"(if name_56" "(registry-table-ref(namespace-module-registry$1(1/current-namespace)))" " #f)))" -"(let-values(((use-path/src_0)(if ns-hts_0(hash-ref(cdr ns-hts_0) name_55 #f) #f)))" +"(let-values(((use-path/src_0)(if ns-hts_0(hash-ref(cdr ns-hts_0) name_56 #f) #f)))" "(if use-path/src_0" "(with-continuation-mark" " parameterization-key" @@ -61000,16 +61248,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_92)(path->bytes orig-file_0)))" -"(let-values(((len_38)(bytes-length b_92)))" +"(let-values(((b_93)(path->bytes orig-file_0)))" +"(let-values(((len_38)(bytes-length b_93)))" "(if(if(>= len_38 4)" -" (bytes=? #\".rkt\" (subbytes b_92 (- len_38 4)))" +" (bytes=? #\".rkt\" (subbytes b_93 (- len_38 4)))" " #f)" "(let-values()" "(values" " orig-file_0" "(bytes->path" -" (bytes-append (subbytes b_92 0 (- len_38 4)) #\".ss\"))))" +" (bytes-append (subbytes b_93 0 (- len_38 4)) #\".ss\"))))" "(let-values()(values orig-file_0 #f)))))" "(values orig-file_0 #f))))" "(let-values(((path_16)" @@ -61072,9 +61320,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_367) main-path-d_0))" -"(if or-part_367" -" or-part_367" +"(let-values(((or-part_371) main-path-d_0))" +"(if or-part_371" +" or-part_371" "(not alt-path-d_0)))))" "(let-values(((try-alt?_0)" "(if alt-file_0" @@ -61085,10 +61333,10 @@ static const char *startup_source = "(not main-path-d_0)))" " #f)))" "(let-values(((with-dir_0)" -"(lambda(t_58)" +"(lambda(t_59)" "(begin" " 'with-dir" -"(with-dir*_0 base_26 t_58)))))" +"(with-dir*_0 base_26 t_59)))))" "(let-values(((c1_34)" "(if try-main?_0" "(date>=?_0" @@ -61151,7 +61399,7 @@ static const char *startup_source = "((lambda(zo-d_0)" "(begin" "(register-zo-path" -" name_55" +" name_56" " ns-hts_0" "(car zo-d_0)" " #f" @@ -61183,7 +61431,7 @@ static const char *startup_source = "((lambda(zo-d_1)" "(begin" "(register-zo-path" -" name_55" +" name_56" " ns-hts_0" "(car zo-d_1)" " alt-path_0" @@ -61203,12 +61451,12 @@ static const char *startup_source = "(car zo-d_1)" " expect-module_0)))))))" " c4_3)" -"(if(let-values(((or-part_368)" +"(if(let-values(((or-part_372)" "(not" "(pair?" " expect-module_0))))" -"(if or-part_368" -" or-part_368" +"(if or-part_372" +" or-part_372" "(car expect-module_0)))" "(let-values()" "(let-values(((p_40)" @@ -61243,8 +61491,8 @@ static const char *startup_source = "(void))))))))))))))))))))))))))))))))))))))))))))" "(define-values" "(register-zo-path)" -"(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)))))" +"(lambda(name_77 ns-hts_1 path_17 src-path_0 base_27)" +"(begin(if ns-hts_1(let-values()(hash-set!(cdr ns-hts_1) name_77(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" @@ -61260,63 +61508,63 @@ static const char *startup_source = "(path-cache-get)" "(lambda(p_22)" "(begin" -"(let-values(((i_26)(modulo(abs(equal-hash-code p_22)) CACHE-N)))" -"(let-values(((w_1)(vector-ref -path-cache i_26)))" +"(let-values(((i_28)(modulo(abs(equal-hash-code p_22)) CACHE-N)))" +"(let-values(((w_1)(vector-ref -path-cache i_28)))" "(let-values(((l_85)(if w_1(weak-box-value w_1) #f)))" "(if l_85(let-values(((a_72)(1/assoc p_22 l_85)))(if a_72(cdr a_72) #f)) #f)))))))" "(define-values" "(path-cache-set!)" -"(lambda(p_77 v_260)" +"(lambda(p_77 v_262)" "(begin" -"(let-values(((i_190)(modulo(abs(equal-hash-code p_77)) CACHE-N)))" -"(let-values(((w_2)(vector-ref -path-cache i_190)))" +"(let-values(((i_193)(modulo(abs(equal-hash-code p_77)) CACHE-N)))" +"(let-values(((w_2)(vector-ref -path-cache i_193)))" "(let-values(((l_72)(if w_2(weak-box-value w_2) #f)))" "(vector-set!" " -path-cache" -" i_190" +" i_193" "(make-weak-box" -"(cons(cons p_77 v_260)(let-values(((or-part_36) l_72))(if or-part_36 or-part_36 null)))))))))))" +"(cons(cons p_77 v_262)(let-values(((or-part_36) l_72))(if or-part_36 or-part_36 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_493 coll-mode?_0)" +"(lambda(s_494 coll-mode?_0)" "(begin" "(let-values(((l_20)" -"((letrec-values(((loop_119)" -"(lambda(s_500)" +"((letrec-values(((loop_122)" +"(lambda(s_501)" "(begin" " 'loop" -"(let-values(((len_42)(string-length s_500)))" +"(let-values(((len_42)(string-length s_501)))" "((letrec-values(((iloop_2)" -"(lambda(i_100)" +"(lambda(i_101)" "(begin" " 'iloop" -"(if(= i_100 len_42)" -"(let-values()(list s_500))" -"(if(char=? '#\\/(string-ref s_500 i_100))" +"(if(= i_101 len_42)" +"(let-values()(list s_501))" +"(if(char=? '#\\/(string-ref s_501 i_101))" "(let-values()" "(cons" -"(substring s_500 0 i_100)" -"(loop_119(substring s_500(add1 i_100)))))" -"(let-values()(iloop_2(add1 i_100)))))))))" +"(substring s_501 0 i_101)" +"(loop_122(substring s_501(add1 i_101)))))" +"(let-values()(iloop_2(add1 i_101)))))))))" " iloop_2)" " 0))))))" -" loop_119)" -" s_493)))" +" loop_122)" +" s_494)))" "(if coll-mode?_0" " l_20" -"((letrec-values(((loop_103)" +"((letrec-values(((loop_106)" "(lambda(l_83)" "(begin" " 'loop" "(if(null?(cdr l_83))" "(values null(car l_83))" -"(let-values(((c_115 f_40)(loop_103(cdr l_83))))" -"(values(cons(car l_83) c_115) f_40)))))))" -" loop_103)" +"(let-values(((c_115 f_42)(loop_106(cdr l_83))))" +"(values(cons(car l_83) c_115) f_42)))))))" +" loop_106)" " l_20))))))" "(define-values" "(format-source-location)" @@ -61348,14 +61596,14 @@ static const char *startup_source = " (1/dynamic-require '(lib \"planet/resolver.rkt\") 'planet-module-name-resolver)))))))))" "(letrec-values(((standard-module-name-resolver_0)" "(case-lambda" -"((s_173 from-namespace_1)" +"((s_176 from-namespace_1)" "(begin" " 'standard-module-name-resolver" "(begin" -"(if(1/resolved-module-path? s_173)" +"(if(1/resolved-module-path? s_176)" "(void)" "(let-values()" -" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_173)))" +" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_176)))" "(if(let-values(((or-part_131)(not from-namespace_1)))" "(if or-part_131 or-part_131(1/namespace? from-namespace_1)))" "(void)" @@ -61364,7 +61612,7 @@ static const char *startup_source = " 'standard-module-name-resolver" " \"(or/c #f namespace?)\"" " from-namespace_1)))" -"(if planet-resolver_0(let-values()(planet-resolver_0 s_173))(void))" +"(if planet-resolver_0(let-values()(planet-resolver_0 s_176))(void))" "(let-values(((hts_1)" "(let-values(((or-part_96)" "(registry-table-ref" @@ -61378,14 +61626,14 @@ static const char *startup_source = " hts_2)" " hts_2))))))" "(begin" -"(hash-set!(car hts_1) s_173 'declared)" +"(hash-set!(car hts_1) s_176 'declared)" "(if from-namespace_1" "(let-values()" "(let-values(((root-name_2)" -"(if(pair?(1/resolved-module-path-name s_173))" +"(if(pair?(1/resolved-module-path-name s_176))" "(1/make-resolved-module-path" -"(car(1/resolved-module-path-name s_173)))" -" s_173))" +"(car(1/resolved-module-path-name s_176)))" +" s_176))" "((from-hts_0)" "(registry-table-ref" "(namespace-module-registry$1 from-namespace_1))))" @@ -61397,18 +61645,18 @@ static const char *startup_source = "(void))))" "(void))))" "(void)))))))" -"((s_501 relto_0 stx_18)" +"((s_502 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_501 relto_0 stx_18 #t)))" -"((s_502 relto_1 stx_19 load?_7)" +"(standard-module-name-resolver_0 s_502 relto_0 stx_18 #t)))" +"((s_503 relto_1 stx_19 load?_7)" "(let-values((()" "(begin" -"(if(1/module-path? s_502)" +"(if(1/module-path? s_503)" "(void)" "(let-values()" "(if(syntax?$1 stx_19)" @@ -61416,7 +61664,7 @@ static const char *startup_source = "(raise-argument-error" " 'standard-module-name-resolver" " \"module-path?\"" -" s_502))))" +" s_503))))" "(values))))" "(let-values((()" "(begin" @@ -61444,7 +61692,7 @@ static const char *startup_source = "(lambda(base_28 orig-l_10)" "(begin" " 'flatten-sub-path" -"((letrec-values(((loop_120)" +"((letrec-values(((loop_123)" "(lambda(a_75 l_34)" "(begin" " 'loop" @@ -61471,32 +61719,32 @@ static const char *startup_source = " 'file)" " base_28)))" " orig-l_10))" -"(loop_120(cdr a_75)(cdr l_34))))" +"(loop_123(cdr a_75)(cdr l_34))))" "(let-values()" -"(loop_120" +"(loop_123" "(cons(car l_34) a_75)" "(cdr l_34)))))))))" -" loop_120)" +" loop_123)" " null" " orig-l_10)))))" -"(if(if(pair? s_502)(eq?(car s_502) 'quote) #f)" -"(let-values()(1/make-resolved-module-path(cadr s_502)))" -"(if(if(pair? s_502)" -"(if(eq?(car s_502) 'submod)" -"(if(pair?(cadr s_502))(eq?(caadr s_502) 'quote) #f)" +"(if(if(pair? s_503)(eq?(car s_503) 'quote) #f)" +"(let-values()(1/make-resolved-module-path(cadr s_503)))" +"(if(if(pair? s_503)" +"(if(eq?(car s_503) 'submod)" +"(if(pair?(cadr s_503))(eq?(caadr s_503) 'quote) #f)" " #f)" " #f)" "(let-values()" -"(1/make-resolved-module-path(flatten-sub-path_0(cadadr s_502)(cddr s_502))))" -"(if(if(pair? s_502)" -"(if(eq?(car s_502) 'submod)" -" (if (let-values (((or-part_300) (equal? (cadr s_502) \".\")))" -" (if or-part_300 or-part_300 (equal? (cadr s_502) \"..\")))" +"(1/make-resolved-module-path(flatten-sub-path_0(cadadr s_503)(cddr s_503))))" +"(if(if(pair? s_503)" +"(if(eq?(car s_503) 'submod)" +" (if (let-values (((or-part_100) (equal? (cadr s_503) \".\")))" +" (if or-part_100 or-part_100 (equal? (cadr s_503) \"..\")))" "(if relto_1" "(let-values(((p_78)(1/resolved-module-path-name relto_1)))" -"(let-values(((or-part_281)(symbol? p_78)))" -"(if or-part_281" -" or-part_281" +"(let-values(((or-part_373)(symbol? p_78)))" +"(if or-part_373" +" or-part_373" "(if(pair? p_78)(symbol?(car p_78)) #f))))" " #f)" " #f)" @@ -61507,35 +61755,35 @@ static const char *startup_source = "(1/make-resolved-module-path" "(flatten-sub-path_0" "(if(pair? rp_0)(car rp_0) rp_0)" -"(let-values(((r_46)" -" (if (equal? (cadr s_502) \"..\") (cdr s_502) (cddr s_502))))" -"(if(pair? rp_0)(append(cdr rp_0) r_46) r_46))))))" -"(if(if(pair? s_502)(eq?(car s_502) 'planet) #f)" +"(let-values(((r_47)" +" (if (equal? (cadr s_503) \"..\") (cdr s_503) (cddr s_503))))" +"(if(pair? rp_0)(append(cdr rp_0) r_47) r_47))))))" +"(if(if(pair? s_503)(eq?(car s_503) 'planet) #f)" "(let-values()" "(begin" "(prep-planet-resolver!_0)" -"(planet-resolver_0 s_502 relto_1 stx_19 load?_7 #f orig-paramz)))" -"(if(if(pair? s_502)" -"(if(eq?(car s_502) 'submod)" -"(if(pair?(cadr s_502))(eq?(caadr s_502) 'planet) #f)" +"(planet-resolver_0 s_503 relto_1 stx_19 load?_7 #f orig-paramz)))" +"(if(if(pair? s_503)" +"(if(eq?(car s_503) 'submod)" +"(if(pair?(cadr s_503))(eq?(caadr s_503) 'planet) #f)" " #f)" " #f)" "(let-values()" "(begin" "(prep-planet-resolver!_0)" "(planet-resolver_0" -"(cadr s_502)" +"(cadr s_503)" " relto_1" " stx_19" " load?_7" -"(cddr s_502)" +"(cddr s_503)" " orig-paramz)))" "(let-values()" "(let-values(((get-dir_0)" "(lambda()" "(begin" " 'get-dir" -"(let-values(((or-part_369)" +"(let-values(((or-part_374)" "(if relto_1" "(if(eq? relto_1 -prev-relto)" " -prev-relto-dir" @@ -61548,7 +61796,7 @@ static const char *startup_source = " p_79)))" "(if(path? p_80)" "(let-values(((base_29" -" n_35" +" n_36" " d?_0)" "(split-path" " p_80)))" @@ -61559,8 +61807,8 @@ static const char *startup_source = " base_29))" " #f))))" " #f)))" -"(if or-part_369" -" or-part_369" +"(if or-part_374" +" or-part_374" "(let-values(((or-part_43)" "(current-load-relative-directory)))" "(if or-part_43" @@ -61577,15 +61825,15 @@ static const char *startup_source = " 'show-collection-err" "(let-values(((msg_2)" "(string-append" -"(let-values(((or-part_370)" +"(let-values(((or-part_375)" "(if stx_19" "(if(error-print-source-location)" "(format-source-location" " stx_19)" " #f)" " #f)))" -"(if or-part_370" -" or-part_370" +"(if or-part_375" +" or-part_375" " \"standard-module-name-resolver\"))" " \": \"" "(regexp-replace" @@ -61593,54 +61841,54 @@ static const char *startup_source = " msg_1" "(format" " \"\\n for module path: ~s\\n\"" -" s_502)))))" +" s_503)))))" "(raise" "(if stx_19" "(1/make-exn:fail:syntax:missing-module" " msg_2" "(current-continuation-marks)" "(list stx_19)" -" s_502)" +" s_503)" "(1/make-exn:fail:filesystem:missing-module" " msg_2" "(current-continuation-marks)" -" s_502)))))))" +" s_503)))))))" "((ss->rkt_0)" -"(lambda(s_94)" +"(lambda(s_319)" "(begin" " 'ss->rkt" -"(let-values(((len_43)(string-length s_94)))" +"(let-values(((len_43)(string-length s_319)))" "(if(if(>= len_43 3)" "(if(equal?" " '#\\." -"(string-ref s_94(- len_43 3)))" +"(string-ref s_319(- len_43 3)))" "(if(equal?" " '#\\s" -"(string-ref s_94(- len_43 2)))" +"(string-ref s_319(- len_43 2)))" "(equal?" " '#\\s" -"(string-ref s_94(- len_43 1)))" +"(string-ref s_319(- len_43 1)))" " #f)" " #f)" " #f)" "(string-append" -"(substring s_94 0(- len_43 3))" +"(substring s_319 0(- len_43 3))" " \".rkt\")" -" s_94)))))" +" s_319)))))" "((path-ss->rkt_0)" "(lambda(p_81)" "(begin" " 'path-ss->rkt" -"(let-values(((base_11 name_77 dir?_8)" +"(let-values(((base_11 name_78 dir?_8)" "(split-path p_81)))" -" (if (regexp-match '#rx\"[.]ss$\" (path->bytes name_77))" +" (if (regexp-match '#rx\"[.]ss$\" (path->bytes name_78))" " (path-replace-extension p_81 #\".rkt\")" " p_81)))))" -"((s_92)" -"(if(if(pair? s_502)(eq? 'submod(car s_502)) #f)" -"(let-values(((v_38)(cadr s_502)))" -" (if (let-values (((or-part_371) (equal? v_38 \".\")))" -" (if or-part_371 or-part_371 (equal? v_38 \"..\")))" +"((s_504)" +"(if(if(pair? s_503)(eq? 'submod(car s_503)) #f)" +"(let-values(((v_38)(cadr s_503)))" +" (if (let-values (((or-part_376) (equal? v_38 \".\")))" +" (if or-part_376 or-part_376 (equal? v_38 \"..\")))" "(if relto_1" "(let-values(((p_82)" "(1/resolved-module-path-name" @@ -61649,19 +61897,19 @@ static const char *startup_source = "(error" " 'standard-module-name-resolver" " \"no base path for relative submodule path: ~.s\"" -" s_502))" +" s_503))" " v_38))" -" s_502))" +" s_503))" "((subm-path_0)" -"(if(if(pair? s_502)(eq? 'submod(car s_502)) #f)" +"(if(if(pair? s_503)(eq? 'submod(car s_503)) #f)" "(let-values(((p_83)" "(if(if(let-values(((or-part_166)" "(equal?" -"(cadr s_502)" +"(cadr s_503)" " \".\")))" "(if or-part_166" " or-part_166" -" (equal? (cadr s_502) \"..\")))" +" (equal? (cadr s_503) \"..\")))" " relto_1" " #f)" "(let-values(((p_84)" @@ -61669,10 +61917,10 @@ static const char *startup_source = " relto_1))" "((r_27)" "(if(equal?" -"(cadr s_502)" +"(cadr s_503)" " \"..\")" -"(cdr s_502)" -"(cddr s_502))))" +"(cdr s_503)" +"(cddr s_503))))" "(if(pair? p_84)" "(flatten-sub-path_0" "(car p_84)" @@ -61680,22 +61928,22 @@ static const char *startup_source = "(flatten-sub-path_0 p_84 r_27)))" "(flatten-sub-path_0" " \".\"" -" (if (equal? (cadr s_502) \"..\")" -"(cdr s_502)" -"(cddr s_502))))))" +" (if (equal? (cadr s_503) \"..\")" +"(cdr s_503)" +"(cddr s_503))))))" "(if(pair? p_83)(cdr p_83) #f))" " #f)))" "(let-values(((s-parsed_0)" -"(if(symbol? s_92)" +"(if(symbol? s_504)" "(let-values()" "(let-values(((or-part_170)" "(path-cache-get" -"(cons s_92(get-reg_0)))))" +"(cons s_504(get-reg_0)))))" "(if or-part_170" " or-part_170" "(let-values(((cols_0 file_3)" "(split-relative-string" -"(symbol->string s_92)" +"(symbol->string s_504)" " #f)))" "(let-values(((f-file_0)" "(if(null? cols_0)" @@ -61709,17 +61957,17 @@ static const char *startup_source = "(if(null? cols_0) null(cdr cols_0))" " f-file_0" " #t))))))" -"(if(string? s_92)" +"(if(string? s_504)" "(let-values()" "(let-values(((dir_4)(get-dir_0)))" -"(let-values(((or-part_372)" +"(let-values(((or-part_377)" "(path-cache-get" -"(cons s_92 dir_4))))" -"(if or-part_372" -" or-part_372" +"(cons s_504 dir_4))))" +"(if or-part_377" +" or-part_377" "(let-values(((cols_1 file_4)" "(split-relative-string" -" s_92" +" s_504" " #f)))" "(if(null? cols_1)" "(build-path dir_4(ss->rkt_0 file_4))" @@ -61736,26 +61984,26 @@ static const char *startup_source = "(let-values() s_56))))" " cols_1)" "(list(ss->rkt_0 file_4))))))))))" -"(if(path? s_92)" +"(if(path? s_504)" "(let-values()" "(path-ss->rkt_0" "(simplify-path" -"(if(complete-path? s_92)" -" s_92" -"(path->complete-path s_92(get-dir_0))))))" -"(if(eq?(car s_92) 'lib)" +"(if(complete-path? s_504)" +" s_504" +"(path->complete-path s_504(get-dir_0))))))" +"(if(eq?(car s_504) 'lib)" "(let-values()" "(let-values(((or-part_88)" "(path-cache-get" -"(cons s_92(get-reg_0)))))" +"(cons s_504(get-reg_0)))))" "(if or-part_88" " or-part_88" "(let-values(((cols_2 file_5)" "(split-relative-string" -"(cadr s_92)" +"(cadr s_504)" " #f)))" "(let-values(((old-style?_0)" -"(if(null?(cddr s_92))" +"(if(null?(cddr s_504))" "(if(null? cols_2)" "(regexp-match?" " '#rx\"[.]\"" @@ -61778,7 +62026,7 @@ static const char *startup_source = "(if old-style?_0" "(append" "(if(null?" -"(cddr s_92))" +"(cddr s_504))" " '(\"mzlib\")" "(apply" " append" @@ -61787,7 +62035,7 @@ static const char *startup_source = "(split-relative-string" " p_85" " #t))" -"(cddr s_92))))" +"(cddr s_504))))" " cols_2)" "(if(null? cols_2)" "(list file_5)" @@ -61798,17 +62046,17 @@ static const char *startup_source = "(cdr cols_3)" " f-file_1" " #t))))))))" -"(if(eq?(car s_92) 'file)" +"(if(eq?(car s_504) 'file)" "(let-values()" "(path-ss->rkt_0" "(simplify-path" "(path->complete-path" -"(expand-user-path(cadr s_92))" +"(expand-user-path(cadr s_504))" "(get-dir_0)))))" "(void))))))))" "(begin" -"(if(let-values(((or-part_373)(path? s-parsed_0)))" -"(if or-part_373 or-part_373(vector? s-parsed_0)))" +"(if(let-values(((or-part_378)(path? s-parsed_0)))" +"(if or-part_378 or-part_378(vector? s-parsed_0)))" "(void)" "(let-values()" "(if stx_19" @@ -61821,7 +62069,7 @@ static const char *startup_source = "(raise-argument-error" " 'standard-module-name-resolver" " \"module-path?\"" -" s_92))))" +" s_504))))" "(let-values(((filename_2)" "(if(vector? s-parsed_0)" "(vector-ref s-parsed_0 0)" @@ -61927,10 +62175,10 @@ static const char *startup_source = " loading_0)" "((if(continuation-prompt-available?" " -loading-prompt-tag)" -"(lambda(f_41)(f_41))" -"(lambda(f_24)" +"(lambda(f_43)(f_43))" +"(lambda(f_26)" "(call-with-continuation-prompt" -" f_24" +" f_26" " -loading-prompt-tag)))" "(lambda()" "(with-continuation-mark" @@ -61954,12 +62202,12 @@ static const char *startup_source = " p_86" " stx_19))" " values)" -"(if(symbol? s_92)" -"(let-values() s_92)" -"(if(if(pair? s_92)" -"(eq?(car s_92) 'lib)" +"(if(symbol? s_504)" +"(let-values() s_504)" +"(if(if(pair? s_504)" +"(eq?(car s_504) 'lib)" " #f)" -"(let-values() s_92)" +"(let-values() s_504)" "(let-values()" "(if(1/resolved-module-path?" " root-modname_0)" @@ -61975,7 +62223,7 @@ static const char *startup_source = "(let-values()" "((1/current-load/use-compiled)" " filename_2" -"(let-values(((sym_104)" +"(let-values(((sym_105)" "(string->symbol" "(path->string" " no-sfx_0))))" @@ -61986,30 +62234,30 @@ static const char *startup_source = " #f)" "(cons #f subm-path_0)" "(cons" -" sym_104" +" sym_105" " subm-path_0))" -" sym_104))))))))))))))" +" sym_105))))))))))))))" "(void))" "(if(if(not(vector? s-parsed_0))" "(if load?_7" -"(let-values(((or-part_374)" -"(string? s_92)))" -"(if or-part_374" -" or-part_374" +"(let-values(((or-part_379)" +"(string? s_504)))" +"(if or-part_379" +" or-part_379" "(let-values(((or-part_52)" -"(symbol? s_92)))" +"(symbol? s_504)))" "(if or-part_52" " or-part_52" -"(if(pair? s_92)" -"(eq?(car s_92) 'lib)" +"(if(pair? s_504)" +"(eq?(car s_504) 'lib)" " #f)))))" " #f)" " #f)" "(let-values()" "(path-cache-set!" -"(if(string? s_92)" -"(cons s_92(get-dir_0))" -"(cons s_92(get-reg_0)))" +"(if(string? s_504)" +"(cons s_504(get-dir_0))" +"(cons s_504(get-reg_0)))" "(vector" " filename_2" " normal-filename_0" @@ -62021,10 +62269,10 @@ static const char *startup_source = " standard-module-name-resolver_0)))))" "(define-values" "(default-eval-handler)" -"(lambda(s_503)" +"(lambda(s_505)" "(begin" "(1/eval" -" s_503" +" s_505" "(1/current-namespace)" "(let-values(((c_116)(1/current-compile)))" "(lambda(e_90 ns_16)" @@ -62036,7 +62284,7 @@ static const char *startup_source = "(let-values()(c_116 e_90 #t))))))))))" "(define-values" "(default-compile-handler)" -"(lambda(s_199 immediate-eval?_0)(begin(1/compile s_199(1/current-namespace)(not immediate-eval?_0)))))" +"(lambda(s_205 immediate-eval?_0)(begin(1/compile s_205(1/current-namespace)(not immediate-eval?_0)))))" "(define-values" "(default-read-interaction)" "(lambda(src_9 in_0)" @@ -62076,10 +62324,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_74)" +"(lambda(ctx_75)" "(begin" -"(let-values(((phase_45)(add1(expand-context-phase ctx_74))))" -"(let-values(((ns_59)(namespace->namespace-at-phase(expand-context-namespace ctx_74) phase_45)))" +"(let-values(((phase_45)(add1(expand-context-phase ctx_75))))" +"(let-values(((ns_59)(namespace->namespace-at-phase(expand-context-namespace ctx_75) phase_45)))" "(namespace-visit-available-modules! ns_59 phase_45))))))" "(define-values" "(expand-body7.1)" @@ -62087,34 +62335,34 @@ static const char *startup_source = "(begin" " 'expand-body7" "(let-values(((bodys_7) bodys5_0))" -"(let-values(((ctx_75) ctx6_0))" -"(let-values(((s_179) source1_0))" +"(let-values(((ctx_76) ctx6_0))" +"(let-values(((s_182) source1_0))" "(let-values(((stratified?_0)(if stratified?4_0 stratified?2_0 #f)))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_66)(expand-context-observer ctx_75)))" -"(if obs_66" +"(let-values(((obs_67)(expand-context-observer ctx_76)))" +"(if obs_67" "(let-values()" "(let-values()" -"(call-expand-observe obs_66 'enter-block(datum->syntax$1 #f bodys_7))))" +"(call-expand-observe obs_67 'enter-block(datum->syntax$1 #f bodys_7))))" "(void)))" "(values))))" "(let-values(((inside-sc_0)(new-scope 'intdef)))" "(let-values(((init-bodys_0)" "(reverse$1" -"(let-values(((lst_265) bodys_7))" +"(let-values(((lst_266) bodys_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_265)))" -"((letrec-values(((for-loop_286)" -"(lambda(fold-var_70 lst_103)" +"(let-values()(check-list lst_266)))" +"((letrec-values(((for-loop_287)" +"(lambda(fold-var_70 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_70))" "(let-values(((fold-var_215)" @@ -62127,32 +62375,32 @@ static const char *startup_source = " fold-var_12))))" "(values fold-var_215)))))" "(if(not #f)" -"(for-loop_286 fold-var_11 rest_140)" +"(for-loop_287 fold-var_11 rest_140)" " fold-var_11)))" " fold-var_70)))))" -" for-loop_286)" +" for-loop_287)" " null" -" lst_265))))))" +" lst_266))))))" "(let-values((()" "(begin" -"(let-values(((obs_67)(expand-context-observer ctx_75)))" -"(if obs_67" +"(let-values(((obs_68)(expand-context-observer ctx_76)))" +"(if obs_68" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_67" +" obs_68" " 'block-renames" "(datum->syntax$1 #f init-bodys_0)" "(datum->syntax$1 #f bodys_7))))" "(void)))" "(values))))" -"(let-values(((phase_145)(expand-context-phase ctx_75)))" +"(let-values(((phase_143)(expand-context-phase ctx_76)))" "(let-values(((frame-id_2)(make-reference-record)))" "(let-values(((def-ctx-scopes_6)(box null)))" "(let-values(((body-ctx_0)" -"(let-values(((v_261) ctx_75))" -"(let-values(((the-struct_90) v_261))" -"(if(expand-context/outer? the-struct_90)" +"(let-values(((v_263) ctx_76))" +"(let-values(((the-struct_89) v_263))" +"(if(expand-context/outer? the-struct_89)" "(let-values(((context51_0)(list(make-liberal-define-context)))" "((name52_1) #f)" "((only-immediate?53_0) #t)" @@ -62160,44 +62408,44 @@ static const char *startup_source = "((post-expansion-scope55_0) inside-sc_0)" "((post-expansion-scope-action56_0) add-scope)" "((scopes57_0)" -"(cons inside-sc_0(expand-context-scopes ctx_75)))" +"(cons inside-sc_0(expand-context-scopes ctx_76)))" "((use-site-scopes58_0)(box null))" "((frame-id59_0) frame-id_2)" "((reference-records60_0)" "(cons" " frame-id_2" -"(expand-context-reference-records ctx_75)))" -"((inner61_0)(root-expand-context/outer-inner v_261)))" +"(expand-context-reference-records ctx_76)))" +"((inner61_0)(root-expand-context/outer-inner v_263)))" "(expand-context/outer1.1" " inner61_0" " post-expansion-scope55_0" " use-site-scopes58_0" " frame-id59_0" " context51_0" -"(expand-context/outer-env the-struct_90)" +"(expand-context/outer-env the-struct_89)" " post-expansion-scope-action56_0" " scopes57_0" " def-ctx-scopes54_0" -"(expand-context/outer-binding-layer the-struct_90)" +"(expand-context/outer-binding-layer the-struct_89)" " reference-records60_0" " only-immediate?53_0" -"(expand-context/outer-need-eventually-defined the-struct_90)" -"(expand-context/outer-current-introduction-scopes the-struct_90)" +"(expand-context/outer-need-eventually-defined the-struct_89)" +"(expand-context/outer-current-introduction-scopes the-struct_89)" " name52_1))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_90))))))" +" the-struct_89))))))" "(let-values(((maybe-increment-binding-layer_0)" -"(lambda(ids_30 body-ctx_1)" +"(lambda(ids_29 body-ctx_1)" "(begin" " 'maybe-increment-binding-layer" "(if(eq?" "(expand-context-binding-layer body-ctx_1)" -"(expand-context-binding-layer ctx_75))" -"(increment-binding-layer ids_30 body-ctx_1 inside-sc_0)" +"(expand-context-binding-layer ctx_76))" +"(increment-binding-layer ids_29 body-ctx_1 inside-sc_0)" "(expand-context-binding-layer body-ctx_1))))))" -"(let-values(((name_78)(expand-context-name ctx_75)))" +"(let-values(((name_79)(expand-context-name ctx_76)))" "((letrec-values(((loop_40)" "(lambda(body-ctx_2" " bodys_8" @@ -62222,9 +62470,9 @@ static const char *startup_source = "((temp68_4)(reverse$1 track-stxs_0))" "((temp69_3)(reverse$1 stx-clauses_0))" "((temp70_4)(reverse$1 done-bodys_0))" -"((s71_0) s_179)" +"((s71_0) s_182)" "((stratified?72_0) stratified?_0)" -"((name73_0) name_78)" +"((name73_0) name_79)" "((temp74_1)(reverse$1 trans-idss_1)))" "(finish-expanding-body27.1" " temp74_1" @@ -62258,54 +62506,54 @@ static const char *startup_source = "(let-values(((exp-body_0)" "(let-values(((temp75_4)(car bodys_8))" "((temp76_2)" -"(if(if name_78" +"(if(if name_79" "(null?" "(cdr bodys_8))" " #f)" -"(let-values(((v_235)" +"(let-values(((v_236)" " body-ctx_2))" -"(let-values(((the-struct_91)" -" v_235))" +"(let-values(((the-struct_90)" +" v_236))" "(if(expand-context/outer?" -" the-struct_91)" +" the-struct_90)" "(let-values(((name77_0)" -" name_78)" +" name_79)" "((inner78_0)" "(root-expand-context/outer-inner" -" v_235)))" +" v_236)))" "(expand-context/outer1.1" " inner78_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_91)" +" the-struct_90)" "(root-expand-context/outer-use-site-scopes" -" the-struct_91)" +" the-struct_90)" "(root-expand-context/outer-frame-id" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-context" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-env" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-scopes" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-def-ctx-scopes" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-binding-layer" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-reference-records" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-only-immediate?" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-need-eventually-defined" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-current-introduction-scopes" -" the-struct_91)" +" the-struct_90)" " name77_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_91))))" +" the-struct_90))))" " body-ctx_2)))" "(expand9.1" " #f" @@ -62321,19 +62569,19 @@ static const char *startup_source = "(let-values(((tmp_62)" "(core-form-sym" " disarmed-exp-body_0" -" phase_145)))" +" phase_143)))" "(if(equal? tmp_62 'begin)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_68)" +"(let-values(((obs_69)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_68" +"(if obs_69" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_68" +" obs_69" " 'prim-begin)))" "(void)))" "(values))))" @@ -62353,15 +62601,15 @@ static const char *startup_source = "(if(pair?" " s_426)" "(let-values(((begin81_0)" -"(let-values(((s_501)" +"(let-values(((s_502)" "(car" " s_426)))" -" s_501))" +" s_502))" "((e82_0)" "(let-values(((s_46)" "(cdr" " s_426)))" -"(let-values(((s_504)" +"(let-values(((s_506)" "(if(syntax?$1" " s_46)" "(syntax-e$1" @@ -62369,7 +62617,7 @@ static const char *startup_source = " s_46)))" "(let-values(((flat-s_24)" "(to-syntax-list.1" -" s_504)))" +" s_506)))" "(if(not" " flat-s_24)" "(let-values()" @@ -62402,14 +62650,14 @@ static const char *startup_source = "(map2 track_0 e80_0)" " rest-bodys_0)))" "(begin" -"(let-values(((obs_69)" +"(let-values(((obs_70)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_69" +"(if obs_70" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_69" +" obs_70" " 'splice" " splice-bodys_0)))" "(void)))" @@ -62428,14 +62676,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_70)" +"(let-values(((obs_71)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_70" +"(if obs_71" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_70" +" obs_71" " 'prim-define-values)))" "(void)))" "(values))))" @@ -62443,38 +62691,38 @@ static const char *startup_source = " define-values83_0" " id84_0" " rhs85_0)" -"(let-values(((s_505)" +"(let-values(((s_507)" " disarmed-exp-body_0))" "(let-values(((orig-s_39)" -" s_505))" +" s_507))" "(let-values(((define-values83_1" " id84_1" " rhs85_1)" -"(let-values(((s_94)" -"(if(syntax?$1" -" s_505)" -"(syntax-e$1" -" s_505)" -" s_505)))" -"(if(pair?" -" s_94)" -"(let-values(((define-values86_0)" -"(let-values(((s_506)" -"(car" -" s_94)))" -" s_506))" -"((id87_0" -" rhs88_0)" -"(let-values(((s_507)" -"(cdr" -" s_94)))" -"(let-values(((s_52)" +"(let-values(((s_319)" "(if(syntax?$1" " s_507)" "(syntax-e$1" " s_507)" " s_507)))" "(if(pair?" +" s_319)" +"(let-values(((define-values86_0)" +"(let-values(((s_508)" +"(car" +" s_319)))" +" s_508))" +"((id87_0" +" rhs88_0)" +"(let-values(((s_509)" +"(cdr" +" s_319)))" +"(let-values(((s_52)" +"(if(syntax?$1" +" s_509)" +"(syntax-e$1" +" s_509)" +" s_509)))" +"(if(pair?" " s_52)" "(let-values(((id89_0)" "(let-values(((s_53)" @@ -62497,8 +62745,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_39))" "(let-values()" -"(let-values(((id_102)" -"(let-values(((lst_311)" +"(let-values(((id_105)" +"(let-values(((lst_312)" " flat-s_25))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62506,90 +62754,90 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_311)))" -"((letrec-values(((for-loop_287)" +" lst_312)))" +"((letrec-values(((for-loop_288)" "(lambda(id_17" -" lst_312)" +" lst_313)" "(begin" " 'for-loop" "(if(pair?" -" lst_312)" -"(let-values(((s_318)" +" lst_313)" +"(let-values(((s_93)" "(unsafe-car" -" lst_312))" +" lst_313))" "((rest_177)" "(unsafe-cdr" -" lst_312)))" -"(let-values(((id_103)" -"(let-values(((id_104)" +" lst_313)))" +"(let-values(((id_106)" +"(let-values(((id_84)" " id_17))" -"(let-values(((id_105)" +"(let-values(((id_107)" "(let-values()" -"(let-values(((id92_1)" +"(let-values(((id92_0)" "(let-values()" "(if(let-values(((or-part_88)" "(if(syntax?$1" -" s_318)" +" s_93)" "(symbol?" "(syntax-e$1" -" s_318))" +" s_93))" " #f)))" "(if or-part_88" " or-part_88" "(symbol?" -" s_318)))" -" s_318" +" s_93)))" +" s_93" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_39" -" s_318)))))" +" s_93)))))" "(cons" -" id92_1" -" id_104)))))" +" id92_0" +" id_84)))))" "(values" -" id_105)))))" +" id_107)))))" "(if(not" " #f)" -"(for-loop_287" -" id_103" +"(for-loop_288" +" id_106" " rest_177)" -" id_103)))" +" id_106)))" " id_17)))))" -" for-loop_287)" +" for-loop_288)" " null" -" lst_311)))))" +" lst_312)))))" "(reverse$1" -" id_102))))))))" +" id_105))))))))" "((rhs90_0)" -"(let-values(((s_508)" +"(let-values(((s_510)" "(cdr" " s_52)))" -"(let-values(((s_509)" +"(let-values(((s_511)" "(if(syntax?$1" -" s_508)" +" s_510)" "(syntax-e$1" -" s_508)" -" s_508)))" +" s_510)" +" s_510)))" "(if(pair?" -" s_509)" +" s_511)" "(let-values(((rhs91_0)" "(let-values(((s_33)" "(car" -" s_509)))" +" s_511)))" " s_33))" "(()" -"(let-values(((s_458)" +"(let-values(((s_459)" "(cdr" -" s_509)))" -"(let-values(((s_320)" +" s_511)))" +"(let-values(((s_323)" "(if(syntax?$1" -" s_458)" +" s_459)" "(syntax-e$1" -" s_458)" -" s_458)))" +" s_459)" +" s_459)))" "(if(null?" -" s_320)" +" s_323)" "(values)" "(raise-syntax-error$1" " #f" @@ -62621,33 +62869,33 @@ static const char *startup_source = " define-values83_1" " id84_1" " rhs85_1))))))" -"(let-values(((ids_31)" +"(let-values(((ids_30)" "(remove-use-site-scopes" " id84_0" " body-ctx_2)))" "(let-values((()" "(begin" -"(let-values(((obs_62)" +"(let-values(((obs_63)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_62" +"(if obs_63" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_62" +" obs_63" " 'rename-one" "(datum->syntax$1" " #f" "(list" -" ids_31" +" ids_30" " rhs85_0)))))" "(void)))" "(values))))" "(let-values(((new-dups_0)" "(let-values(((ids93_0)" -" ids_31)" -"((phase94_1)" -" phase_145)" +" ids_30)" +"((phase94_2)" +" phase_143)" "((exp-body95_0)" " exp-body_0)" "((dups96_0)" @@ -62656,48 +62904,48 @@ static const char *startup_source = " #f" " #f" " ids93_0" -" phase94_1" +" phase94_2" " exp-body95_0" " dups96_0" " #t))))" "(let-values(((counter_5)" "(root-expand-context-counter" -" ctx_75)))" +" ctx_76)))" "(let-values(((keys_5)" "(reverse$1" -"(let-values(((lst_294)" -" ids_31))" +"(let-values(((lst_295)" +" ids_30))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_294)))" -"((letrec-values(((for-loop_81)" +" lst_295)))" +"((letrec-values(((for-loop_82)" "(lambda(fold-var_37" -" lst_313)" +" lst_314)" "(begin" " 'for-loop" "(if(pair?" -" lst_313)" -"(let-values(((id_85)" +" lst_314)" +"(let-values(((id_108)" "(unsafe-car" -" lst_313))" +" lst_314))" "((rest_178)" "(unsafe-cdr" -" lst_313)))" -"(let-values(((fold-var_294)" +" lst_314)))" +"(let-values(((fold-var_296)" "(let-values(((fold-var_252)" " fold-var_37))" "(let-values(((fold-var_187)" "(let-values()" "(cons" "(let-values()" -"(let-values(((id97_1)" -" id_85)" +"(let-values(((id97_0)" +" id_108)" "((phase98_0)" -" phase_145)" +" phase_143)" "((counter99_0)" " counter_5)" "((frame-id100_0)" @@ -62709,7 +62957,7 @@ static const char *startup_source = " #t" " exp-body101_0" " #t" -" id97_1" +" id97_0" " phase98_0" " counter99_0)))" " fold-var_252))))" @@ -62717,42 +62965,42 @@ static const char *startup_source = " fold-var_187)))))" "(if(not" " #f)" -"(for-loop_81" -" fold-var_294" +"(for-loop_82" +" fold-var_296" " rest_178)" -" fold-var_294)))" +" fold-var_296)))" " fold-var_37)))))" -" for-loop_81)" +" for-loop_82)" " null" -" lst_294))))))" +" lst_295))))))" "(let-values(((extended-env_0)" -"(let-values(((lst_314)" +"(let-values(((lst_315)" " keys_5)" -"((lst_229)" -" ids_31))" +"((lst_230)" +" ids_30))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_314)))" +" lst_315)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_229)))" -"((letrec-values(((for-loop_263)" +" lst_230)))" +"((letrec-values(((for-loop_279)" "(lambda(env_17" " lst_28" -" lst_197)" +" lst_198)" "(begin" " 'for-loop" "(if(if(pair?" " lst_28)" "(pair?" -" lst_197)" +" lst_198)" " #f)" "(let-values(((key_90)" "(unsafe-car" @@ -62760,12 +63008,12 @@ static const char *startup_source = "((rest_179)" "(unsafe-cdr" " lst_28))" -"((id_106)" +"((id_109)" "(unsafe-car" -" lst_197))" +" lst_198))" "((rest_11)" "(unsafe-cdr" -" lst_197)))" +" lst_198)))" "(let-values(((env_18)" "(let-values(((env_19)" " env_17))" @@ -62775,34 +63023,34 @@ static const char *startup_source = " env_19" " key_90" "(local-variable1.1" -" id_106)))))" +" id_109)))))" "(values" " env_20)))))" "(if(not" " #f)" -"(for-loop_263" +"(for-loop_279" " env_18" " rest_179" " rest_11)" " env_18)))" " env_17)))))" -" for-loop_263)" +" for-loop_279)" "(expand-context-env" " body-ctx_2)" -" lst_314" -" lst_229)))))" +" lst_315" +" lst_230)))))" "(loop_40" "(let-values(((v_98)" " body-ctx_2))" -"(let-values(((the-struct_92)" +"(let-values(((the-struct_91)" " v_98))" "(if(expand-context/outer?" -" the-struct_92)" +" the-struct_91)" "(let-values(((env102_0)" " extended-env_0)" "((binding-layer103_0)" "(maybe-increment-binding-layer_0" -" ids_31" +" ids_30" " body-ctx_2))" "((inner104_0)" "(root-expand-context/outer-inner" @@ -62810,42 +63058,42 @@ static const char *startup_source = "(expand-context/outer1.1" " inner104_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_92)" +" the-struct_91)" "(root-expand-context/outer-use-site-scopes" -" the-struct_92)" +" the-struct_91)" "(root-expand-context/outer-frame-id" -" the-struct_92)" +" the-struct_91)" "(expand-context/outer-context" -" the-struct_92)" +" the-struct_91)" " env102_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_92)" +" the-struct_91)" "(expand-context/outer-scopes" -" the-struct_92)" +" the-struct_91)" "(expand-context/outer-def-ctx-scopes" -" the-struct_92)" +" the-struct_91)" " binding-layer103_0" "(expand-context/outer-reference-records" -" the-struct_92)" +" the-struct_91)" "(expand-context/outer-only-immediate?" -" the-struct_92)" +" the-struct_91)" "(expand-context/outer-need-eventually-defined" -" the-struct_92)" +" the-struct_91)" "(expand-context/outer-current-introduction-scopes" -" the-struct_92)" +" the-struct_91)" "(expand-context/outer-name" -" the-struct_92)))" +" the-struct_91)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_92))))" +" the-struct_91))))" " rest-bodys_0" " null" "(cons" -" ids_31" +" ids_30" "(append" "(reverse$1" -"(let-values(((lst_152)" +"(let-values(((lst_153)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62853,47 +63101,47 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_152)))" +" lst_153)))" "((letrec-values(((for-loop_184)" -"(lambda(fold-var_295" -" lst_315)" +"(lambda(fold-var_297" +" lst_316)" "(begin" " 'for-loop" "(if(pair?" -" lst_315)" +" lst_316)" "(let-values(((done-body_0)" "(unsafe-car" -" lst_315))" +" lst_316))" "((rest_180)" "(unsafe-cdr" -" lst_315)))" -"(let-values(((fold-var_296)" -"(let-values(((fold-var_297)" -" fold-var_295))" +" lst_316)))" "(let-values(((fold-var_298)" +"(let-values(((fold-var_299)" +" fold-var_297))" +"(let-values(((fold-var_300)" "(let-values()" "(cons" "(let-values()" " null)" -" fold-var_297))))" +" fold-var_299))))" "(values" -" fold-var_298)))))" +" fold-var_300)))))" "(if(not" " #f)" "(for-loop_184" -" fold-var_296" +" fold-var_298" " rest_180)" -" fold-var_296)))" -" fold-var_295)))))" +" fold-var_298)))" +" fold-var_297)))))" " for-loop_184)" " null" -" lst_152))))" +" lst_153))))" " val-idss_0))" "(cons" " keys_5" "(append" "(reverse$1" -"(let-values(((lst_309)" +"(let-values(((lst_310)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62901,47 +63149,47 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_309)))" -"((letrec-values(((for-loop_288)" -"(lambda(fold-var_299" -" lst_316)" +" lst_310)))" +"((letrec-values(((for-loop_289)" +"(lambda(fold-var_301" +" lst_317)" "(begin" " 'for-loop" "(if(pair?" -" lst_316)" +" lst_317)" "(let-values(((done-body_1)" "(unsafe-car" -" lst_316))" +" lst_317))" "((rest_181)" "(unsafe-cdr" -" lst_316)))" -"(let-values(((fold-var_300)" -"(let-values(((fold-var_301)" -" fold-var_299))" +" lst_317)))" "(let-values(((fold-var_302)" +"(let-values(((fold-var_303)" +" fold-var_301))" +"(let-values(((fold-var_304)" "(let-values()" "(cons" "(let-values()" " null)" -" fold-var_301))))" +" fold-var_303))))" "(values" -" fold-var_302)))))" +" fold-var_304)))))" "(if(not" " #f)" -"(for-loop_288" -" fold-var_300" +"(for-loop_289" +" fold-var_302" " rest_181)" -" fold-var_300)))" -" fold-var_299)))))" -" for-loop_288)" +" fold-var_302)))" +" fold-var_301)))))" +" for-loop_289)" " null" -" lst_309))))" +" lst_310))))" " val-keyss_0))" "(cons" " rhs85_0" "(append" "(reverse$1" -"(let-values(((lst_74)" +"(let-values(((lst_73)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62949,172 +63197,51 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_74)))" -"((letrec-values(((for-loop_124)" -"(lambda(fold-var_303" -" lst_317)" +" lst_73)))" +"((letrec-values(((for-loop_125)" +"(lambda(fold-var_305" +" lst_318)" "(begin" " 'for-loop" "(if(pair?" -" lst_317)" +" lst_318)" "(let-values(((done-body_2)" "(unsafe-car" -" lst_317))" +" lst_318))" "((rest_182)" "(unsafe-cdr" -" lst_317)))" +" lst_318)))" "(let-values(((fold-var_142)" -"(let-values(((fold-var_304)" -" fold-var_303))" -"(let-values(((fold-var_305)" +"(let-values(((fold-var_306)" +" fold-var_305))" +"(let-values(((fold-var_307)" "(let-values()" "(cons" "(let-values()" "(no-binds" " done-body_2" -" s_179" -" phase_145))" -" fold-var_304))))" +" s_182" +" phase_143))" +" fold-var_306))))" "(values" -" fold-var_305)))))" +" fold-var_307)))))" "(if(not" " #f)" -"(for-loop_124" +"(for-loop_125" " fold-var_142" " rest_182)" " fold-var_142)))" -" fold-var_303)))))" -" for-loop_124)" +" fold-var_305)))))" +" for-loop_125)" " null" -" lst_74))))" +" lst_73))))" " val-rhss_0))" "(cons" " exp-body_0" "(append" "(reverse$1" -"(let-values(((lst_318)" -" done-bodys_0))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_318)))" -"((letrec-values(((for-loop_289)" -"(lambda(fold-var_306" -" lst_202)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_202)" -"(let-values(((done-body_3)" -"(unsafe-car" -" lst_202))" -"((rest_183)" -"(unsafe-cdr" -" lst_202)))" -"(let-values(((fold-var_146)" -"(let-values(((fold-var_39)" -" fold-var_306))" -"(let-values(((fold-var_307)" -"(let-values()" -"(cons" -"(let-values()" -" #f)" -" fold-var_39))))" -"(values" -" fold-var_307)))))" -"(if(not" -" #f)" -"(for-loop_289" -" fold-var_146" -" rest_183)" -" fold-var_146)))" -" fold-var_306)))))" -" for-loop_289)" -" null" -" lst_318))))" -" track-stxs_0))" -" trans-idss_1" -" stx-clauses_0" -" new-dups_0))))))))))" -"(if(equal? tmp_62 'define-syntaxes)" -"(let-values()" -"(let-values((()" -"(begin" -"(let-values(((obs_71)" -"(expand-context-observer" -" body-ctx_2)))" -"(if obs_71" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_71" -" 'prim-define-syntaxes)))" -"(void)))" -"(values))))" -"(let-values(((ok?_35" -" define-syntaxes105_0" -" id106_1" -" rhs107_0)" -"(let-values(((s_102)" -" disarmed-exp-body_0))" -"(let-values(((orig-s_40)" -" s_102))" -"(let-values(((define-syntaxes105_1" -" id106_2" -" rhs107_1)" -"(let-values(((s_436)" -"(if(syntax?$1" -" s_102)" -"(syntax-e$1" -" s_102)" -" s_102)))" -"(if(pair?" -" s_436)" -"(let-values(((define-syntaxes108_0)" -"(let-values(((s_211)" -"(car" -" s_436)))" -" s_211))" -"((id109_0" -" rhs110_0)" -"(let-values(((s_510)" -"(cdr" -" s_436)))" -"(let-values(((s_511)" -"(if(syntax?$1" -" s_510)" -"(syntax-e$1" -" s_510)" -" s_510)))" -"(if(pair?" -" s_511)" -"(let-values(((id111_0)" -"(let-values(((s_512)" -"(car" -" s_511)))" -"(let-values(((s_513)" -"(if(syntax?$1" -" s_512)" -"(syntax-e$1" -" s_512)" -" s_512)))" -"(let-values(((flat-s_26)" -"(to-syntax-list.1" -" s_513)))" -"(if(not" -" flat-s_26)" -"(let-values()" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_40))" -"(let-values()" -"(let-values(((id_107)" "(let-values(((lst_319)" -" flat-s_26))" +" done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -63123,88 +63250,209 @@ static const char *startup_source = "(check-list" " lst_319)))" "((letrec-values(((for-loop_290)" -"(lambda(id_108" -" lst_320)" +"(lambda(fold-var_308" +" lst_203)" "(begin" " 'for-loop" "(if(pair?" -" lst_320)" -"(let-values(((s_514)" +" lst_203)" +"(let-values(((done-body_3)" "(unsafe-car" -" lst_320))" +" lst_203))" +"((rest_183)" +"(unsafe-cdr" +" lst_203)))" +"(let-values(((fold-var_146)" +"(let-values(((fold-var_39)" +" fold-var_308))" +"(let-values(((fold-var_309)" +"(let-values()" +"(cons" +"(let-values()" +" #f)" +" fold-var_39))))" +"(values" +" fold-var_309)))))" +"(if(not" +" #f)" +"(for-loop_290" +" fold-var_146" +" rest_183)" +" fold-var_146)))" +" fold-var_308)))))" +" for-loop_290)" +" null" +" lst_319))))" +" track-stxs_0))" +" trans-idss_1" +" stx-clauses_0" +" new-dups_0))))))))))" +"(if(equal? tmp_62 'define-syntaxes)" +"(let-values()" +"(let-values((()" +"(begin" +"(let-values(((obs_72)" +"(expand-context-observer" +" body-ctx_2)))" +"(if obs_72" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_72" +" 'prim-define-syntaxes)))" +"(void)))" +"(values))))" +"(let-values(((ok?_35" +" define-syntaxes105_0" +" id106_0" +" rhs107_0)" +"(let-values(((s_162)" +" disarmed-exp-body_0))" +"(let-values(((orig-s_40)" +" s_162))" +"(let-values(((define-syntaxes105_1" +" id106_1" +" rhs107_1)" +"(let-values(((s_439)" +"(if(syntax?$1" +" s_162)" +"(syntax-e$1" +" s_162)" +" s_162)))" +"(if(pair?" +" s_439)" +"(let-values(((define-syntaxes108_0)" +"(let-values(((s_218)" +"(car" +" s_439)))" +" s_218))" +"((id109_0" +" rhs110_0)" +"(let-values(((s_512)" +"(cdr" +" s_439)))" +"(let-values(((s_513)" +"(if(syntax?$1" +" s_512)" +"(syntax-e$1" +" s_512)" +" s_512)))" +"(if(pair?" +" s_513)" +"(let-values(((id111_0)" +"(let-values(((s_514)" +"(car" +" s_513)))" +"(let-values(((s_515)" +"(if(syntax?$1" +" s_514)" +"(syntax-e$1" +" s_514)" +" s_514)))" +"(let-values(((flat-s_26)" +"(to-syntax-list.1" +" s_515)))" +"(if(not" +" flat-s_26)" +"(let-values()" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_40))" +"(let-values()" +"(let-values(((id_110)" +"(let-values(((lst_320)" +" flat-s_26))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_320)))" +"((letrec-values(((for-loop_291)" +"(lambda(id_111" +" lst_321)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_321)" +"(let-values(((s_516)" +"(unsafe-car" +" lst_321))" "((rest_184)" "(unsafe-cdr" -" lst_320)))" -"(let-values(((id_109)" -"(let-values(((id_110)" -" id_108))" -"(let-values(((id_111)" +" lst_321)))" +"(let-values(((id_112)" +"(let-values(((id_113)" +" id_111))" +"(let-values(((id_114)" "(let-values()" "(let-values(((id114_0)" "(let-values()" -"(if(let-values(((or-part_375)" +"(if(let-values(((or-part_380)" "(if(syntax?$1" -" s_514)" +" s_516)" "(symbol?" "(syntax-e$1" -" s_514))" +" s_516))" " #f)))" -"(if or-part_375" -" or-part_375" +"(if or-part_380" +" or-part_380" "(symbol?" -" s_514)))" -" s_514" +" s_516)))" +" s_516" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_40" -" s_514)))))" +" s_516)))))" "(cons" " id114_0" -" id_110)))))" +" id_113)))))" "(values" -" id_111)))))" +" id_114)))))" "(if(not" " #f)" -"(for-loop_290" -" id_109" +"(for-loop_291" +" id_112" " rest_184)" -" id_109)))" -" id_108)))))" -" for-loop_290)" +" id_112)))" +" id_111)))))" +" for-loop_291)" " null" -" lst_319)))))" +" lst_320)))))" "(reverse$1" -" id_107))))))))" +" id_110))))))))" "((rhs112_0)" -"(let-values(((s_515)" +"(let-values(((s_101)" "(cdr" -" s_511)))" -"(let-values(((s_111)" +" s_513)))" +"(let-values(((s_102)" "(if(syntax?$1" -" s_515)" +" s_101)" "(syntax-e$1" -" s_515)" -" s_515)))" +" s_101)" +" s_101)))" "(if(pair?" -" s_111)" +" s_102)" "(let-values(((rhs113_0)" -"(let-values(((s_516)" -"(car" -" s_111)))" -" s_516))" -"(()" "(let-values(((s_517)" +"(car" +" s_102)))" +" s_517))" +"(()" +"(let-values(((s_518)" "(cdr" -" s_111)))" -"(let-values(((s_159)" +" s_102)))" +"(let-values(((s_103)" "(if(syntax?$1" -" s_517)" +" s_518)" "(syntax-e$1" -" s_517)" -" s_517)))" +" s_518)" +" s_518)))" "(if(null?" -" s_159)" +" s_103)" "(values)" "(raise-syntax-error$1" " #f" @@ -63234,35 +63482,35 @@ static const char *startup_source = "(values" " #t" " define-syntaxes105_1" -" id106_2" -" rhs107_1))))))" -"(let-values(((ids_32)" -"(remove-use-site-scopes" " id106_1" +" rhs107_1))))))" +"(let-values(((ids_31)" +"(remove-use-site-scopes" +" id106_0" " body-ctx_2)))" "(let-values((()" "(begin" -"(let-values(((obs_72)" +"(let-values(((obs_73)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_72" +"(if obs_73" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_72" +" obs_73" " 'rename-one" "(datum->syntax$1" " #f" "(list" -" ids_32" +" ids_31" " rhs107_0)))))" "(void)))" "(values))))" "(let-values(((new-dups_1)" "(let-values(((ids115_0)" -" ids_32)" +" ids_31)" "((phase116_0)" -" phase_145)" +" phase_143)" "((exp-body117_0)" " exp-body_0)" "((dups118_0)" @@ -63277,42 +63525,42 @@ static const char *startup_source = " #t))))" "(let-values(((counter_6)" "(root-expand-context-counter" -" ctx_75)))" +" ctx_76)))" "(let-values(((keys_6)" "(reverse$1" -"(let-values(((lst_321)" -" ids_32))" +"(let-values(((lst_322)" +" ids_31))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_321)))" -"((letrec-values(((for-loop_291)" -"(lambda(fold-var_308" -" lst_44)" +" lst_322)))" +"((letrec-values(((for-loop_292)" +"(lambda(fold-var_310" +" lst_323)" "(begin" " 'for-loop" "(if(pair?" -" lst_44)" -"(let-values(((id_112)" +" lst_323)" +"(let-values(((id_115)" "(unsafe-car" -" lst_44))" +" lst_323))" "((rest_185)" "(unsafe-cdr" -" lst_44)))" -"(let-values(((fold-var_309)" -"(let-values(((fold-var_310)" -" fold-var_308))" +" lst_323)))" "(let-values(((fold-var_311)" +"(let-values(((fold-var_312)" +" fold-var_310))" +"(let-values(((fold-var_313)" "(let-values()" "(cons" "(let-values()" "(let-values(((id119_0)" -" id_112)" +" id_115)" "((phase120_0)" -" phase_145)" +" phase_143)" "((counter121_0)" " counter_6)" "((frame-id122_0)" @@ -63327,37 +63575,19 @@ static const char *startup_source = " id119_0" " phase120_0" " counter121_0)))" -" fold-var_310))))" +" fold-var_312))))" "(values" -" fold-var_311)))))" +" fold-var_313)))))" "(if(not" " #f)" -"(for-loop_291" -" fold-var_309" +"(for-loop_292" +" fold-var_311" " rest_185)" -" fold-var_309)))" -" fold-var_308)))))" -" for-loop_291)" +" fold-var_311)))" +" fold-var_310)))))" +" for-loop_292)" " null" -" lst_321))))))" -"(let-values((()" -"(begin" -"(let-values(((obs_73)" -"(expand-context-observer" -" body-ctx_2)))" -"(if obs_73" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_73" -" 'prepare-env)))" -"(void)))" -"(values))))" -"(let-values((()" -"(begin" -"(prepare-next-phase-namespace" -" ctx_75)" -"(values))))" +" lst_322))))))" "(let-values((()" "(begin" "(let-values(((obs_74)" @@ -63368,106 +63598,15 @@ static const char *startup_source = "(let-values()" "(call-expand-observe" " obs_74" -" 'enter-bind)))" +" 'prepare-env)))" "(void)))" "(values))))" -"(let-values(((vals_8)" -"(eval-for-syntaxes-binding" -" 'define-syntaxes" -" rhs107_0" -" ids_32" -" body-ctx_2)))" -"(let-values(((extended-env_1)" -"(let-values(((lst_322)" -" keys_6)" -"((lst_323)" -" vals_8)" -"((lst_324)" -" ids_32))" +"(let-values((()" "(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_322)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_323)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_324)))" -"((letrec-values(((for-loop_292)" -"(lambda(env_21" -" lst_36" -" lst_325" -" lst_326)" -"(begin" -" 'for-loop" -"(if(if(pair?" -" lst_36)" -"(if(pair?" -" lst_325)" -"(pair?" -" lst_326)" -" #f)" -" #f)" -"(let-values(((key_91)" -"(unsafe-car" -" lst_36))" -"((rest_186)" -"(unsafe-cdr" -" lst_36))" -"((val_40)" -"(unsafe-car" -" lst_325))" -"((rest_187)" -"(unsafe-cdr" -" lst_325))" -"((id_113)" -"(unsafe-car" -" lst_326))" -"((rest_188)" -"(unsafe-cdr" -" lst_326)))" -"(let-values(((env_22)" -"(let-values(((env_23)" -" env_21))" -"(let-values(((env_24)" -"(let-values()" -"(begin" -"(maybe-install-free=id-in-context!" -" val_40" -" id_113" -" phase_145" -" body-ctx_2)" -"(env-extend" -" env_23" -" key_91" -" val_40)))))" -"(values" -" env_24)))))" -"(if(not" -" #f)" -"(for-loop_292" -" env_22" -" rest_186" -" rest_187" -" rest_188)" -" env_22)))" -" env_21)))))" -" for-loop_292)" -"(expand-context-env" -" body-ctx_2)" -" lst_322" -" lst_323" -" lst_324)))))" +"(prepare-next-phase-namespace" +" ctx_76)" +"(values))))" +"(let-values((()" "(begin" "(let-values(((obs_75)" "(expand-context-observer" @@ -63477,56 +63616,165 @@ static const char *startup_source = "(let-values()" "(call-expand-observe" " obs_75" +" 'enter-bind)))" +"(void)))" +"(values))))" +"(let-values(((vals_8)" +"(eval-for-syntaxes-binding" +" 'define-syntaxes" +" rhs107_0" +" ids_31" +" body-ctx_2)))" +"(let-values(((extended-env_1)" +"(let-values(((lst_324)" +" keys_6)" +"((lst_325)" +" vals_8)" +"((lst_326)" +" ids_31))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_324)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_325)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_326)))" +"((letrec-values(((for-loop_293)" +"(lambda(env_21" +" lst_36" +" lst_327" +" lst_328)" +"(begin" +" 'for-loop" +"(if(if(pair?" +" lst_36)" +"(if(pair?" +" lst_327)" +"(pair?" +" lst_328)" +" #f)" +" #f)" +"(let-values(((key_91)" +"(unsafe-car" +" lst_36))" +"((rest_186)" +"(unsafe-cdr" +" lst_36))" +"((val_41)" +"(unsafe-car" +" lst_327))" +"((rest_187)" +"(unsafe-cdr" +" lst_327))" +"((id_116)" +"(unsafe-car" +" lst_328))" +"((rest_188)" +"(unsafe-cdr" +" lst_328)))" +"(let-values(((env_22)" +"(let-values(((env_23)" +" env_21))" +"(let-values(((env_24)" +"(let-values()" +"(begin" +"(maybe-install-free=id-in-context!" +" val_41" +" id_116" +" phase_143" +" body-ctx_2)" +"(env-extend" +" env_23" +" key_91" +" val_41)))))" +"(values" +" env_24)))))" +"(if(not" +" #f)" +"(for-loop_293" +" env_22" +" rest_186" +" rest_187" +" rest_188)" +" env_22)))" +" env_21)))))" +" for-loop_293)" +"(expand-context-env" +" body-ctx_2)" +" lst_324" +" lst_325" +" lst_326)))))" +"(begin" +"(let-values(((obs_40)" +"(expand-context-observer" +" body-ctx_2)))" +"(if obs_40" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_40" " 'exit-bind)))" "(void)))" "(loop_40" -"(let-values(((v_262)" +"(let-values(((v_264)" " body-ctx_2))" -"(let-values(((the-struct_93)" -" v_262))" +"(let-values(((the-struct_92)" +" v_264))" "(if(expand-context/outer?" -" the-struct_93)" +" the-struct_92)" "(let-values(((env124_0)" " extended-env_1)" "((binding-layer125_0)" "(maybe-increment-binding-layer_0" -" ids_32" +" ids_31" " body-ctx_2))" "((inner126_0)" "(root-expand-context/outer-inner" -" v_262)))" +" v_264)))" "(expand-context/outer1.1" " inner126_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_93)" +" the-struct_92)" "(root-expand-context/outer-use-site-scopes" -" the-struct_93)" +" the-struct_92)" "(root-expand-context/outer-frame-id" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-context" -" the-struct_93)" +" the-struct_92)" " env124_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-scopes" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-def-ctx-scopes" -" the-struct_93)" +" the-struct_92)" " binding-layer125_0" "(expand-context/outer-reference-records" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-only-immediate?" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-need-eventually-defined" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-current-introduction-scopes" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-name" -" the-struct_93)))" +" the-struct_92)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_93))))" +" the-struct_92))))" " rest-bodys_0" " done-bodys_0" " val-idss_0" @@ -63534,13 +63782,13 @@ static const char *startup_source = " val-rhss_0" " track-stxs_0" "(cons" -" ids_32" +" ids_31" " trans-idss_1)" "(cons" "(datum->syntax$1" " #f" "(list" -" ids_32" +" ids_31" " rhs107_0)" " exp-body_0)" " stx-clauses_0)" @@ -63570,7 +63818,7 @@ static const char *startup_source = "(cons" "(core-id" " '#%stratified-body" -" phase_145)" +" phase_143)" "(cons" " exp-body_0" " rest-bodys_0)))))" @@ -63630,9 +63878,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_229) source10_0))" +"(let-values(((s_233) source10_0))" "(let-values(((stratified?_1) stratified?11_0))" -"(let-values(((name_79) name12_0))" +"(let-values(((name_80) name12_0))" "(let-values(((disappeared-transformer-bindings_0) disappeared-transformer-bindings13_0))" "(let-values()" "(let-values((()" @@ -63642,16 +63890,16 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"no expression after a sequence of internal definitions\"" -" s_229))" +" s_233))" "(void))" "(values))))" "(let-values(((finish-ctx_0)" -"(let-values(((v_263)" +"(let-values(((v_265)" "(accumulate-def-ctx-scopes" " body-ctx_3" " def-ctx-scopes_7)))" -"(let-values(((the-struct_94) v_263))" -"(if(expand-context/outer? the-struct_94)" +"(let-values(((the-struct_93) v_265))" +"(if(expand-context/outer? the-struct_93)" "(let-values(((context127_0) 'expression)" "((use-site-scopes128_0)(box null))" "((scopes129_0)" @@ -63664,29 +63912,29 @@ static const char *startup_source = "((def-ctx-scopes131_0) #f)" "((post-expansion-scope132_0) #f)" "((inner133_0)" -"(root-expand-context/outer-inner v_263)))" +"(root-expand-context/outer-inner v_265)))" "(expand-context/outer1.1" " inner133_0" " post-expansion-scope132_0" " use-site-scopes128_0" -"(root-expand-context/outer-frame-id the-struct_94)" +"(root-expand-context/outer-frame-id the-struct_93)" " context127_0" -"(expand-context/outer-env the-struct_94)" +"(expand-context/outer-env the-struct_93)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_94)" +" the-struct_93)" " scopes129_0" " def-ctx-scopes131_0" -"(expand-context/outer-binding-layer the-struct_94)" -"(expand-context/outer-reference-records the-struct_94)" +"(expand-context/outer-binding-layer the-struct_93)" +"(expand-context/outer-reference-records the-struct_93)" " only-immediate?130_0" -"(expand-context/outer-need-eventually-defined the-struct_94)" +"(expand-context/outer-need-eventually-defined the-struct_93)" "(expand-context/outer-current-introduction-scopes" -" the-struct_94)" -"(expand-context/outer-name the-struct_94)))" +" the-struct_93)" +"(expand-context/outer-name the-struct_93)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_94))))))" +" the-struct_93))))))" "(let-values(((finish-bodys_0)" "(lambda()" "(begin" @@ -63727,41 +63975,41 @@ static const char *startup_source = "(values))))" "(let-values(((exp-bodys_0)" "(reverse$1" -"(let-values(((lst_327) done-bodys_1)" +"(let-values(((lst_329) done-bodys_1)" "((start_65) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_327)))" +"(check-list lst_329)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals start_65)))" -"((letrec-values(((for-loop_266)" -"(lambda(fold-var_263" -" lst_328" -" pos_128)" +"((letrec-values(((for-loop_294)" +"(lambda(fold-var_314" +" lst_330" +" pos_126)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_328)" +" lst_330)" " #t" " #f)" "(let-values(((done-body_4)" "(unsafe-car" -" lst_328))" +" lst_330))" "((rest_189)" "(unsafe-cdr" -" lst_328))" -"((i_191)" -" pos_128))" +" lst_330))" +"((i_194)" +" pos_126))" +"(let-values(((fold-var_265)" "(let-values(((fold-var_266)" -"(let-values(((fold-var_312)" -" fold-var_263))" -"(let-values(((fold-var_313)" +" fold-var_314))" +"(let-values(((fold-var_267)" "(let-values()" "(cons" "(let-values()" @@ -63778,56 +64026,56 @@ static const char *startup_source = "(void)))" "(let-values(((done-body134_0)" " done-body_4)" -"((temp135_3)" -"(if(if name_79" +"((temp135_2)" +"(if(if name_80" "(=" -" i_191" +" i_194" " last-i_1)" " #f)" -"(let-values(((v_264)" +"(let-values(((v_266)" " finish-ctx_0))" -"(let-values(((the-struct_95)" -" v_264))" +"(let-values(((the-struct_94)" +" v_266))" "(if(expand-context/outer?" -" the-struct_95)" +" the-struct_94)" "(let-values(((name136_0)" -" name_79)" +" name_80)" "((inner137_0)" "(root-expand-context/outer-inner" -" v_264)))" +" v_266)))" "(expand-context/outer1.1" " inner137_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_95)" +" the-struct_94)" "(root-expand-context/outer-use-site-scopes" -" the-struct_95)" +" the-struct_94)" "(root-expand-context/outer-frame-id" -" the-struct_95)" +" the-struct_94)" "(expand-context/outer-context" -" the-struct_95)" +" the-struct_94)" "(expand-context/outer-env" -" the-struct_95)" +" the-struct_94)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_95)" +" the-struct_94)" "(expand-context/outer-scopes" -" the-struct_95)" +" the-struct_94)" "(expand-context/outer-def-ctx-scopes" -" the-struct_95)" +" the-struct_94)" "(expand-context/outer-binding-layer" -" the-struct_95)" +" the-struct_94)" "(expand-context/outer-reference-records" -" the-struct_95)" +" the-struct_94)" "(expand-context/outer-only-immediate?" -" the-struct_95)" +" the-struct_94)" "(expand-context/outer-need-eventually-defined" -" the-struct_95)" +" the-struct_94)" "(expand-context/outer-current-introduction-scopes" -" the-struct_95)" +" the-struct_94)" " name136_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_95))))" +" the-struct_94))))" " finish-ctx_0)))" "(expand9.1" " #f" @@ -63837,23 +64085,23 @@ static const char *startup_source = " #f" " #f" " done-body134_0" -" temp135_3))))" -" fold-var_312))))" +" temp135_2))))" +" fold-var_266))))" "(values" -" fold-var_313)))))" +" fold-var_267)))))" "(if(not" " #f)" -"(for-loop_266" -" fold-var_266" +"(for-loop_294" +" fold-var_265" " rest_189" "(+" -" pos_128" +" pos_126" " 1))" -" fold-var_266)))" -" fold-var_263)))))" -" for-loop_266)" +" fold-var_265)))" +" fold-var_314)))))" +" for-loop_294)" " null" -" lst_327" +" lst_329" " start_65))))))" "(begin" "(let-values(((obs_79)" @@ -63878,7 +64126,7 @@ static const char *startup_source = "(call-expand-observe" " obs_80" " 'block->list" -"(datum->syntax$1 s_229 done-bodys_1))))" +"(datum->syntax$1 s_233 done-bodys_1))))" "(void)))" "(finish-bodys_0)))" "(let-values()" @@ -63891,7 +64139,7 @@ static const char *startup_source = "(log-letrec-values$1" " obs_81" " finish-ctx_0" -" s_229" +" s_233" " val-idss_1" " val-rhss_1" " track-stxs_1" @@ -63904,21 +64152,21 @@ static const char *startup_source = "((val-keyss139_0) val-keyss_1)" "((val-rhss140_0) val-rhss_1)" "((track-stxs141_0) track-stxs_1)" -"((temp142_3)(not stratified?_1))" +"((temp142_2)(not stratified?_1))" "((frame-id143_0) frame-id_13)" "((finish-ctx144_0) finish-ctx_0)" -"((s145_0) s_229)" -"((temp146_2)(pair? stx-clauses_1))" +"((s145_0) s_233)" +"((temp146_3)(pair? stx-clauses_1))" "((finish-bodys147_0) finish-bodys_0)" -"((temp148_1) #f))" +"((temp148_2) #f))" "(expand-and-split-bindings-by-reference48.1" " finish-ctx144_0" " frame-id143_0" " finish-bodys147_0" -" temp146_2" +" temp146_3" " s145_0" -" temp142_3" -" temp148_1" +" temp142_2" +" temp148_2" " val-idss138_0" " val-keyss139_0" " val-rhss140_0" @@ -63959,14 +64207,14 @@ 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_369) source33_0))" +"(let-values(((ctx_77) ctx32_0))" +"(let-values(((s_371) source33_0))" "(let-values(((had-stxes?_0) had-stxes?34_0))" "(let-values(((get-body_0) get-body35_0))" "(let-values(((track?_1) track?36_0))" "(let-values()" -"(let-values(((phase_146)(expand-context-phase ctx_76)))" -"((letrec-values(((loop_121)" +"(let-values(((phase_144)(expand-context-phase ctx_77)))" +"((letrec-values(((loop_124)" "(lambda(idss_2" " keyss_1" " rhss_2" @@ -63987,15 +64235,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_369)" +"(keep-properties-only s_371)" " null" " null" " exp-body_1)" "(parsed-letrec-values18.1" -"(keep-properties-only s_369)" +"(keep-properties-only s_371)" "(reverse$1 accum-idss_0)" "(reverse$1" "(map2" @@ -64004,16 +64252,16 @@ static const char *startup_source = " accum-rhss_0))" " exp-body_1))" "(let-values(((track?149_0) track?_2)" -"((s150_0) s_369)" -"((temp151_3)" +"((s150_0) s_371)" +"((temp151_2)" "(list*" "(if(null? accum-idss_0)" "(core-id" " 'let-values" -" phase_146)" +" phase_144)" "(core-id" " 'letrec-values" -" phase_146))" +" phase_144))" "(build-clauses" " accum-idss_0" " accum-rhss_0" @@ -64023,14 +64271,14 @@ static const char *startup_source = " track?149_0" " #t" " s150_0" -" temp151_3)))))" +" temp151_2)))))" "(begin" "(let-values(((obs_83)" -"(expand-context-observer ctx_76)))" +"(expand-context-observer ctx_77)))" "(if obs_83" "(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" @@ -64045,20 +64293,20 @@ static const char *startup_source = "(begin" "(let-values(((obs_84)" "(expand-context-observer" -" ctx_76)))" +" ctx_77)))" "(if obs_84" "(let-values()" "(let-values()" "(call-expand-observe obs_84 'next)))" "(void)))" "(values))))" -"(let-values(((ids_33)(car idss_2)))" +"(let-values(((ids_32)(car idss_2)))" "(let-values(((expanded-rhs_0)" -"(let-values(((temp152_2)(car rhss_2))" +"(let-values(((temp152_3)(car rhss_2))" "((temp153_1)" "(as-named-context" -" ctx_76" -" ids_33)))" +" ctx_77" +" ids_32)))" "(expand9.1" " #f" " #f" @@ -64066,7 +64314,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp152_2" +" temp152_3" " temp153_1))))" "(let-values(((track-stx_0)(car track-stxs_3)))" "(let-values(((local-or-forward-references?_0)" @@ -64094,7 +64342,7 @@ static const char *startup_source = " \"internal error: accumulated ids not empty\")))" "(values))))" "(let-values(((exp-rest_0)" -"(loop_121" +"(loop_124" "(cdr idss_2)" "(cdr keyss_1)" "(cdr rhss_2)" @@ -64108,11 +64356,11 @@ 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_369)" -"(list ids_33)" +" s_371)" +"(list ids_32)" "(list" "(list" "(car keyss_1)" @@ -64121,15 +64369,15 @@ static const char *startup_source = "(let-values(((track?154_0)" " track?_2)" "((s155_1)" -" s_369)" +" s_371)" "((temp156_0)" "(list*" "(core-id" " 'let-values" -" phase_146)" +" phase_144)" "(list" "(build-clause" -" ids_33" +" ids_32" " expanded-rhs_0" " track-stx_0))" " exp-rest_0)))" @@ -64141,13 +64389,13 @@ static const char *startup_source = "(begin" "(let-values(((obs_85)" "(expand-context-observer" -" ctx_76)))" +" ctx_77)))" "(if obs_85" "(let-values()" "(if(if can-log?_0" "(log-tag?" " had-stxes?_0" -" ctx_76)" +" ctx_77)" " #f)" "(let-values()" "(call-expand-observe" @@ -64160,14 +64408,14 @@ static const char *startup_source = "(list result-s_10)" " result-s_10))))))" "(if(if(not forward-references?_0)" -"(let-values(((or-part_376) split?_0))" -"(if or-part_376" -" or-part_376" +"(let-values(((or-part_381) split?_0))" +"(if or-part_381" +" or-part_381" "(null?(cdr idss_2))))" " #f)" "(let-values()" "(let-values(((exp-rest_1)" -"(loop_121" +"(loop_124" "(cdr idss_2)" "(cdr keyss_1)" "(cdr rhss_2)" @@ -64181,13 +64429,13 @@ 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_369)" +" s_371)" "(reverse$1" "(cons" -" ids_33" +" ids_32" " accum-idss_0))" "(reverse$1" "(cons" @@ -64202,15 +64450,15 @@ static const char *startup_source = "(let-values(((track?157_0)" " track?_2)" "((s158_0)" -" s_369)" +" s_371)" "((temp159_1)" "(list*" "(core-id" " 'letrec-values" -" phase_146)" +" phase_144)" "(build-clauses" "(cons" -" ids_33" +" ids_32" " accum-idss_0)" "(cons" " expanded-rhs_0" @@ -64227,13 +64475,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" @@ -64246,19 +64494,19 @@ static const char *startup_source = "(list result-s_11)" " result-s_11)))))" "(let-values()" -"(loop_121" +"(loop_124" "(cdr idss_2)" "(cdr keyss_1)" "(cdr rhss_2)" "(cdr track-stxs_3)" -"(cons ids_33 accum-idss_0)" +"(cons ids_32 accum-idss_0)" "(cons(car keyss_1) accum-keyss_0)" "(cons expanded-rhs_0 accum-rhss_0)" "(cons track-stx_0 accum-track-stxs_0)" " track?_2" " get-list?_0" " can-log?_0)))))))))))))))))" -" loop_121)" +" loop_124)" " idss_1" " keyss_0" " rhss_1" @@ -64276,55 +64524,55 @@ static const char *startup_source = "(begin(map2 build-clause(reverse$1 accum-idss_1)(reverse$1 accum-rhss_1)(reverse$1 accum-track-stxs_1)))))" "(define-values" "(build-clause)" -"(lambda(ids_34 rhs_19 track-stx_1)" +"(lambda(ids_33 rhs_19 track-stx_1)" "(begin" -"(let-values(((clause_2)(datum->syntax$1 #f(list ids_34 rhs_19))))" +"(let-values(((clause_2)(datum->syntax$1 #f(list ids_33 rhs_19))))" "(if track-stx_1(syntax-track-origin$1 clause_2 track-stx_1) clause_2)))))" "(define-values" "(no-binds)" -"(lambda(expr_10 s_518 phase_147)" +"(lambda(expr_10 s_519 phase_145)" "(begin" -"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_147)))" +"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_145)))" "(datum->syntax$1" -"(core-id '#%app phase_147)" -"(list(core-id 'begin phase_147) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" -" s_518)))))" +"(core-id '#%app phase_145)" +"(list(core-id 'begin phase_145) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" +" s_519)))))" "(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_87 ctx_78 s_519 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" +"(lambda(obs_87 ctx_79 s_520 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" "(begin" " 'log-letrec-values" -"(let-values(((phase_148)(expand-context-phase ctx_78)))" +"(let-values(((phase_146)(expand-context-phase ctx_79)))" "(let-values(((clauses_0)" "(reverse$1" -"(let-values(((lst_124) val-idss_2)((lst_329) val-rhss_2)((lst_330) track-stxs_4))" +"(let-values(((lst_125) val-idss_2)((lst_331) val-rhss_2)((lst_332) track-stxs_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_124)))" +"(let-values()(check-list lst_125)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_329)))" +"(let-values()(check-list lst_331)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_330)))" -"((letrec-values(((for-loop_293)" -"(lambda(fold-var_314 lst_331 lst_332 lst_333)" +"(let-values()(check-list lst_332)))" +"((letrec-values(((for-loop_295)" +"(lambda(fold-var_315 lst_333 lst_334 lst_335)" "(begin" " 'for-loop" -"(if(if(pair? lst_331)(if(pair? lst_332)(pair? lst_333) #f) #f)" -"(let-values(((val-ids_0)(unsafe-car lst_331))" -"((rest_190)(unsafe-cdr lst_331))" -"((val-rhs_0)(unsafe-car lst_332))" -"((rest_191)(unsafe-cdr lst_332))" -"((track-stx_2)(unsafe-car lst_333))" -"((rest_192)(unsafe-cdr lst_333)))" -"(let-values(((fold-var_315)" -"(let-values(((fold-var_316) fold-var_314))" -"(let-values(((fold-var_317)" +"(if(if(pair? lst_333)(if(pair? lst_334)(pair? lst_335) #f) #f)" +"(let-values(((val-ids_0)(unsafe-car lst_333))" +"((rest_190)(unsafe-cdr lst_333))" +"((val-rhs_0)(unsafe-car lst_334))" +"((rest_191)(unsafe-cdr lst_334))" +"((track-stx_2)(unsafe-car lst_335))" +"((rest_192)(unsafe-cdr lst_335)))" +"(let-values(((fold-var_316)" +"(let-values(((fold-var_317) fold-var_315))" +"(let-values(((fold-var_318)" "(let-values()" "(cons" "(let-values()" @@ -64332,26 +64580,26 @@ static const char *startup_source = " #f" "(list val-ids_0 val-rhs_0)" " track-stx_2))" -" fold-var_316))))" -"(values fold-var_317)))))" +" fold-var_317))))" +"(values fold-var_318)))))" "(if(not #f)" -"(for-loop_293 fold-var_315 rest_190 rest_191 rest_192)" -" fold-var_315)))" -" fold-var_314)))))" -" for-loop_293)" +"(for-loop_295 fold-var_316 rest_190 rest_191 rest_192)" +" fold-var_316)))" +" fold-var_315)))))" +" for-loop_295)" " null" -" lst_124" -" lst_329" -" lst_330))))))" +" lst_125" +" lst_331" +" lst_332))))))" "(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_148)))" +"(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_146)))" "(let-values(((lv-s_0)" "(datum->syntax$1" " #f" "(if had-stxes?_2" "(list* lv-id_0 stx-clauses_2 clauses_0 done-bodys_2)" "(list* lv-id_0 clauses_0 done-bodys_2))" -" s_519)))" +" s_520)))" "(begin" "(call-expand-observe obs_87 'block->letrec(list lv-s_0))" "(call-expand-observe obs_87 'visit lv-s_0)" @@ -64366,7 +64614,7 @@ static const char *startup_source = " 'letrec-syntaxes-renames" " stx-clauses_2" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_519))" +"(datum->syntax$1 #f done-bodys_2 s_520))" "(call-expand-observe obs_87 'prepare-env)" "(call-expand-observe obs_87 'next-group)" "(if(null? val-idss_2)" @@ -64378,7 +64626,7 @@ static const char *startup_source = " obs_87" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_519)))))))" +"(datum->syntax$1 #f done-bodys_2 s_520)))))))" "(let-values()" "(begin" "(call-expand-observe obs_87 'prim-letrec-values)" @@ -64386,47 +64634,47 @@ static const char *startup_source = " obs_87" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_519))))))))))))))" +"(datum->syntax$1 #f done-bodys_2 s_520))))))))))))))" "(define-values" "(lambda-clause-expander)" -"(lambda(s_73 disarmed-s_5 formals_1 bodys_9 ctx_79 log-renames-tag_0)" +"(lambda(s_73 disarmed-s_5 formals_1 bodys_9 ctx_80 log-renames-tag_0)" "(begin" "(let-values(((sc_35)(new-scope 'local)))" -"(let-values(((phase_149)(expand-context-phase ctx_79)))" -"(let-values(((ids_35)(parse-and-flatten-formals formals_1 sc_35 disarmed-s_5)))" +"(let-values(((phase_147)(expand-context-phase ctx_80)))" +"(let-values(((ids_34)(parse-and-flatten-formals formals_1 sc_35 disarmed-s_5)))" "(let-values((()" "(begin" -"(let-values(((ids34_0) ids_35)" -"((phase35_2) phase_149)" +"(let-values(((ids34_0) ids_34)" +"((phase35_2) phase_147)" "((s36_0) s_73)" " ((temp37_5) \"argument name\"))" "(check-no-duplicate-ids8.1 temp37_5 #t ids34_0 phase35_2 s36_0 #f #f))" "(values))))" -"(let-values(((counter_7)(root-expand-context-counter ctx_79)))" +"(let-values(((counter_7)(root-expand-context-counter ctx_80)))" "(let-values(((keys_7)" "(reverse$1" -"(let-values(((lst_87) ids_35))" +"(let-values(((lst_86) ids_34))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_87)))" -"((letrec-values(((for-loop_294)" -"(lambda(fold-var_318 lst_266)" +"(let-values()(check-list lst_86)))" +"((letrec-values(((for-loop_296)" +"(lambda(fold-var_319 lst_267)" "(begin" " 'for-loop" -"(if(pair? lst_266)" -"(let-values(((id_114)(unsafe-car lst_266))" -"((rest_193)(unsafe-cdr lst_266)))" +"(if(pair? lst_267)" +"(let-values(((id_117)(unsafe-car lst_267))" +"((rest_193)(unsafe-cdr lst_267)))" "(let-values(((fold-var_33)" -"(let-values(((fold-var_34) fold-var_318))" +"(let-values(((fold-var_34) fold-var_319))" "(let-values(((fold-var_157)" "(let-values()" "(cons" "(let-values()" "(let-values(((id38_1)" -" id_114)" -"((phase39_2)" -" phase_149)" +" id_117)" +"((phase39_1)" +" phase_147)" "((counter40_0)" " counter_7)" "((s41_0)" @@ -64437,35 +64685,35 @@ static const char *startup_source = " s41_0" " #t" " id38_1" -" phase39_2" +" phase39_1" " counter40_0)))" " fold-var_34))))" "(values fold-var_157)))))" "(if(not #f)" -"(for-loop_294 fold-var_33 rest_193)" +"(for-loop_296 fold-var_33 rest_193)" " fold-var_33)))" -" fold-var_318)))))" -" for-loop_294)" +" fold-var_319)))))" +" for-loop_296)" " null" -" lst_87))))))" +" lst_86))))))" "(let-values(((body-env_0)" -"(let-values(((lst_80) keys_7)((lst_90) ids_35))" +"(let-values(((lst_79) keys_7)((lst_89) ids_34))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_80)))" +"(let-values()(check-list lst_79)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_90)))" +"(let-values()(check-list lst_89)))" "((letrec-values(((for-loop_48)" -"(lambda(env_25 lst_82 lst_273)" +"(lambda(env_25 lst_81 lst_274)" "(begin" " 'for-loop" -"(if(if(pair? lst_82)(pair? lst_273) #f)" -"(let-values(((key_92)(unsafe-car lst_82))" -"((rest_146)(unsafe-cdr lst_82))" -"((id_115)(unsafe-car lst_273))" -"((rest_194)(unsafe-cdr lst_273)))" +"(if(if(pair? lst_81)(pair? lst_274) #f)" +"(let-values(((key_92)(unsafe-car lst_81))" +"((rest_146)(unsafe-cdr lst_81))" +"((id_118)(unsafe-car lst_274))" +"((rest_194)(unsafe-cdr lst_274)))" "(let-values(((env_26)" "(let-values(((env_27) env_25))" "(let-values(((env_28)" @@ -64474,16 +64722,16 @@ static const char *startup_source = " env_27" " key_92" "(local-variable1.1" -" id_115)))))" +" id_118)))))" "(values env_28)))))" "(if(not #f)" "(for-loop_48 env_26 rest_146 rest_194)" " env_26)))" " env_25)))))" " for-loop_48)" -"(expand-context-env ctx_79)" -" lst_80" -" lst_90)))))" +"(expand-context-env ctx_80)" +" lst_79" +" lst_89)))))" "(let-values(((sc-formals_0)(add-scope formals_1 sc_35)))" "(let-values(((sc-bodys_0)" "(reverse$1" @@ -64520,7 +64768,7 @@ static const char *startup_source = " lst_17))))))" "(let-values((()" "(begin" -"(let-values(((obs_88)(expand-context-observer ctx_79)))" +"(let-values(((obs_88)(expand-context-observer ctx_80)))" "(if obs_88" "(let-values()" "(let-values()" @@ -64532,83 +64780,83 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_4)" -"(let-values(((v_265) ctx_79))" -"(let-values(((the-struct_96) v_265))" -"(if(expand-context/outer? the-struct_96)" +"(let-values(((v_267) ctx_80))" +"(let-values(((the-struct_95) v_267))" +"(if(expand-context/outer? the-struct_95)" "(let-values(((env42_0) body-env_0)" -"((scopes43_1)(cons sc_35(expand-context-scopes ctx_79)))" +"((scopes43_1)(cons sc_35(expand-context-scopes ctx_80)))" "((binding-layer44_0)" -"(increment-binding-layer ids_35 ctx_79 sc_35))" +"(increment-binding-layer ids_34 ctx_80 sc_35))" "((frame-id45_0) #f)" -"((inner46_0)(root-expand-context/outer-inner v_265)))" +"((inner46_0)(root-expand-context/outer-inner v_267)))" "(expand-context/outer1.1" " inner46_0" -"(root-expand-context/outer-post-expansion-scope the-struct_96)" -"(root-expand-context/outer-use-site-scopes the-struct_96)" +"(root-expand-context/outer-post-expansion-scope the-struct_95)" +"(root-expand-context/outer-use-site-scopes the-struct_95)" " frame-id45_0" -"(expand-context/outer-context the-struct_96)" +"(expand-context/outer-context the-struct_95)" " env42_0" -"(expand-context/outer-post-expansion-scope-action the-struct_96)" +"(expand-context/outer-post-expansion-scope-action the-struct_95)" " scopes43_1" -"(expand-context/outer-def-ctx-scopes the-struct_96)" +"(expand-context/outer-def-ctx-scopes the-struct_95)" " binding-layer44_0" -"(expand-context/outer-reference-records the-struct_96)" -"(expand-context/outer-only-immediate? the-struct_96)" -"(expand-context/outer-need-eventually-defined the-struct_96)" -"(expand-context/outer-current-introduction-scopes the-struct_96)" -"(expand-context/outer-name the-struct_96)))" +"(expand-context/outer-reference-records the-struct_95)" +"(expand-context/outer-only-immediate? the-struct_95)" +"(expand-context/outer-need-eventually-defined the-struct_95)" +"(expand-context/outer-current-introduction-scopes the-struct_95)" +"(expand-context/outer-name the-struct_95)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_96))))))" +" the-struct_95))))))" "(let-values(((exp-body_2)" "(let-values(((sc-bodys47_0) sc-bodys_0)" "((body-ctx48_0) body-ctx_4)" "((temp49_2)" -"(let-values(((ctx50_1) ctx_79)((s51_1) s_73)((temp52_6) #t))" +"(let-values(((ctx50_1) ctx_80)((s51_1) s_73)((temp52_6) #t))" "(keep-as-needed120.1 #f #f temp52_6 #t #f #f ctx50_1 s51_1))))" "(expand-body7.1 temp49_2 #f #f sc-bodys47_0 body-ctx48_0))))" "(values" -"(if(expand-context-to-parsed? ctx_79)" +"(if(expand-context-to-parsed? ctx_80)" "(unflatten-like-formals keys_7 formals_1)" " sc-formals_0)" " exp-body_2))))))))))))))))" "(void" "(add-core-form!*" " 'lambda" -"(lambda(s_13 ctx_80)" +"(lambda(s_13 ctx_81)" "(let-values((()" "(begin" -"(let-values(((obs_89)(expand-context-observer ctx_80)))" +"(let-values(((obs_89)(expand-context-observer ctx_81)))" "(if obs_89(let-values()(let-values()(call-expand-observe obs_89 'prim-lambda)))(void)))" "(values))))" "(let-values(((disarmed-s_6)(syntax-disarm$1 s_13)))" "(let-values(((ok?_36 lambda53_0 formals54_0 body55_0)" -"(let-values(((s_520) disarmed-s_6))" -"(let-values(((orig-s_41) s_520))" +"(let-values(((s_521) disarmed-s_6))" +"(let-values(((orig-s_41) s_521))" "(let-values(((lambda53_1 formals54_1 body55_1)" -"(let-values(((s_172)(if(syntax?$1 s_520)(syntax-e$1 s_520) s_520)))" -"(if(pair? s_172)" -"(let-values(((lambda56_0)(let-values(((s_45)(car s_172))) s_45))" +"(let-values(((s_175)(if(syntax?$1 s_521)(syntax-e$1 s_521) s_521)))" +"(if(pair? s_175)" +"(let-values(((lambda56_0)(let-values(((s_45)(car s_175))) s_45))" "((formals57_0 body58_0)" -"(let-values(((s_69)(cdr s_172)))" +"(let-values(((s_69)(cdr s_175)))" "(let-values(((s_82)" "(if(syntax?$1 s_69)" "(syntax-e$1 s_69)" " s_69)))" "(if(pair? s_82)" "(let-values(((formals59_0)" -"(let-values(((s_174)(car s_82)))" -" s_174))" +"(let-values(((s_177)(car s_82)))" +" s_177))" "((body60_0)" -"(let-values(((s_175)(cdr s_82)))" -"(let-values(((s_501)" -"(if(syntax?$1 s_175)" -"(syntax-e$1 s_175)" -" s_175)))" +"(let-values(((s_178)(cdr s_82)))" +"(let-values(((s_502)" +"(if(syntax?$1 s_178)" +"(syntax-e$1 s_178)" +" s_178)))" "(let-values(((flat-s_27)" "(to-syntax-list.1" -" s_501)))" +" s_502)))" "(if(not flat-s_27)" "(let-values()" "(raise-syntax-error$1" @@ -64629,11 +64877,11 @@ 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_80)((s62_2) s_13)((temp63_5) #t))" +"(let-values(((ctx61_0) ctx_81)((s62_2) s_13)((temp63_5) #t))" "(keep-as-needed120.1 #f #f #f #f temp63_5 #t ctx61_0 s62_2))))" "(let-values(((formals_2 body_13)" -"(lambda-clause-expander s_13 disarmed-s_6 formals54_0 body55_0 ctx_80 'lambda-renames)))" -"(if(expand-context-to-parsed? ctx_80)" +"(lambda-clause-expander s_13 disarmed-s_6 formals54_0 body55_0 ctx_81 'lambda-renames)))" +"(if(expand-context-to-parsed? ctx_81)" "(parsed-lambda5.1 rebuild-s_4 formals_2 body_13)" "(let-values(((rebuild-s64_0) rebuild-s_4)((temp65_6)(list* lambda53_0 formals_2 body_13)))" "(rebuild5.1 #f #f rebuild-s64_0 temp65_6)))))))))))" @@ -64642,27 +64890,27 @@ static const char *startup_source = " 'λ" "(lambda(s_26)" "(let-values(((ok?_37 lam-id66_0 formals67_0 _68_0)" -"(let-values(((s_505) s_26))" -"(let-values(((orig-s_39) s_505))" +"(let-values(((s_507) s_26))" +"(let-values(((orig-s_39) s_507))" "(let-values(((lam-id66_1 formals67_1 _68_1)" -"(let-values(((s_94)(if(syntax?$1 s_505)(syntax-e$1 s_505) s_505)))" -"(if(pair? s_94)" -"(let-values(((lam-id69_0)(let-values(((s_506)(car s_94))) s_506))" +"(let-values(((s_319)(if(syntax?$1 s_507)(syntax-e$1 s_507) s_507)))" +"(if(pair? s_319)" +"(let-values(((lam-id69_0)(let-values(((s_508)(car s_319))) s_508))" "((formals70_0 _71_1)" -"(let-values(((s_507)(cdr s_94)))" +"(let-values(((s_509)(cdr s_319)))" "(let-values(((s_52)" -"(if(syntax?$1 s_507)(syntax-e$1 s_507) s_507)))" +"(if(syntax?$1 s_509)(syntax-e$1 s_509) s_509)))" "(if(pair? s_52)" "(let-values(((formals72_0)" "(let-values(((s_53)(car s_52))) s_53))" "((_73_0)" "(let-values(((s_54)(cdr s_52)))" -"(let-values(((s_164)" +"(let-values(((s_167)" "(if(syntax?$1 s_54)" "(syntax-e$1 s_54)" " s_54)))" "(let-values(((flat-s_28)" -"(to-syntax-list.1 s_164)))" +"(to-syntax-list.1 s_167)))" "(if(not flat-s_28)" "(let-values()" "(raise-syntax-error$1" @@ -64681,58 +64929,58 @@ static const char *startup_source = "(values lam-id69_0 formals70_0 _71_1))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_39)))))" "(values #t lam-id66_1 formals67_1 _68_1))))))" -"(let-values(((ids_36)(parse-and-flatten-formals formals67_0 #f s_26)))" -"(let-values(((ctx_81)(let-values(((temp78_4) #t))(get-current-expand-context17.1 temp78_4 #t #f #f))))" -"(let-values(((phase_150)(if ctx_81(expand-context-phase ctx_81) 0)))" +"(let-values(((ids_35)(parse-and-flatten-formals formals67_0 #f s_26)))" +"(let-values(((ctx_82)(let-values(((temp78_4) #t))(get-current-expand-context17.1 temp78_4 #t #f #f))))" +"(let-values(((phase_148)(if ctx_82(expand-context-phase ctx_82) 0)))" "(begin" -" (let-values (((ids74_0) ids_36) ((phase75_0) phase_150) ((s76_2) s_26) ((temp77_3) \"argument name\"))" -"(check-no-duplicate-ids8.1 temp77_3 #t ids74_0 phase75_0 s76_2 #f #f))" +" (let-values (((ids74_0) ids_35) ((phase75_0) phase_148) ((s76_1) s_26) ((temp77_3) \"argument name\"))" +"(check-no-duplicate-ids8.1 temp77_3 #t ids74_0 phase75_0 s76_1 #f #f))" "(datum->syntax$1" " s_26" "(cons" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_150) 'lambda lam-id66_0 lam-id66_0)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_148) 'lambda lam-id66_0 lam-id66_0)" "(cdr(syntax-e$1 s_26)))" " s_26" " s_26)))))))))" "(void" "(add-core-form!*" " 'case-lambda" -"(lambda(s_521 ctx_82)" +"(lambda(s_522 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 'prim-case-lambda)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_7)(syntax-disarm$1 s_521)))" +"(let-values(((disarmed-s_7)(syntax-disarm$1 s_522)))" "(let-values(((ok?_1 case-lambda79_0 formals80_0 body81_0)" -"(let-values(((s_440) disarmed-s_7))" -"(let-values(((orig-s_42) s_440))" +"(let-values(((s_523) disarmed-s_7))" +"(let-values(((orig-s_42) s_523))" "(let-values(((case-lambda79_1 formals80_1 body81_1)" -"(let-values(((s_522)(if(syntax?$1 s_440)(syntax-e$1 s_440) s_440)))" -"(if(pair? s_522)" -"(let-values(((case-lambda82_0)(let-values(((s_37)(car s_522))) s_37))" +"(let-values(((s_444)(if(syntax?$1 s_523)(syntax-e$1 s_523) s_523)))" +"(if(pair? s_444)" +"(let-values(((case-lambda82_0)(let-values(((s_37)(car s_444))) s_37))" "((formals83_0 body84_0)" -"(let-values(((s_65)(cdr s_522)))" -"(let-values(((s_523)" +"(let-values(((s_65)(cdr s_444)))" +"(let-values(((s_524)" "(if(syntax?$1 s_65)" "(syntax-e$1 s_65)" " s_65)))" -"(let-values(((flat-s_29)(to-syntax-list.1 s_523)))" +"(let-values(((flat-s_29)(to-syntax-list.1 s_524)))" "(if(not flat-s_29)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_42))" "(let-values()" "(let-values(((formals_3 body_14)" -"(let-values(((lst_309) flat-s_29))" +"(let-values(((lst_310) flat-s_29))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_309)))" -"((letrec-values(((for-loop_288)" +"(check-list lst_310)))" +"((letrec-values(((for-loop_289)" "(lambda(formals_4" " body_15" " lst_32)" @@ -64740,7 +64988,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_32)" -"(let-values(((s_324)" +"(let-values(((s_327)" "(unsafe-car" " lst_32))" "((rest_195)" @@ -64758,32 +65006,32 @@ static const char *startup_source = "(let-values(((formals91_0" " body92_0)" "(let-values()" -"(let-values(((s_205)" +"(let-values(((s_212)" "(if(syntax?$1" -" s_324)" +" s_327)" "(syntax-e$1" -" s_324)" -" s_324)))" +" s_327)" +" s_327)))" "(if(pair?" -" s_205)" +" s_212)" "(let-values(((formals85_0)" -"(let-values(((s_97)" +"(let-values(((s_525)" "(car" -" s_205)))" -" s_97))" +" s_212)))" +" s_525))" "((body86_0)" -"(let-values(((s_462)" -"(cdr" -" s_205)))" "(let-values(((s_463)" +"(cdr" +" s_212)))" +"(let-values(((s_464)" "(if(syntax?$1" -" s_462)" +" s_463)" "(syntax-e$1" -" s_462)" -" s_462)))" +" s_463)" +" s_463)))" "(let-values(((flat-s_30)" "(to-syntax-list.1" -" s_463)))" +" s_464)))" "(if(not" " flat-s_30)" "(let-values()" @@ -64819,7 +65067,7 @@ static const char *startup_source = " body_18)))))" "(if(not" " #f)" -"(for-loop_288" +"(for-loop_289" " formals_5" " body_16" " rest_195)" @@ -64829,10 +65077,10 @@ static const char *startup_source = "(values" " formals_4" " body_15))))))" -" for-loop_288)" +" for-loop_289)" " null" " null" -" lst_309)))))" +" lst_310)))))" "(values" "(reverse$1 formals_3)" "(reverse$1 body_14))))))))))" @@ -64840,20 +65088,20 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_42)))))" "(values #t case-lambda79_1 formals80_1 body81_1))))))" "(let-values(((ok?_38 case-lambda87_0 clause88_0)" -"(let-values(((s_464) disarmed-s_7))" -"(let-values(((orig-s_43) s_464))" +"(let-values(((s_465) disarmed-s_7))" +"(let-values(((orig-s_43) s_465))" "(let-values(((case-lambda87_1 clause88_1)" -"(let-values(((s_524)(if(syntax?$1 s_464)(syntax-e$1 s_464) s_464)))" -"(if(pair? s_524)" +"(let-values(((s_445)(if(syntax?$1 s_465)(syntax-e$1 s_465) s_465)))" +"(if(pair? s_445)" "(let-values(((case-lambda89_0)" -"(let-values(((s_525)(car s_524))) s_525))" +"(let-values(((s_526)(car s_445))) s_526))" "((clause90_0)" -"(let-values(((s_421)(cdr s_524)))" -"(let-values(((s_526)" +"(let-values(((s_421)(cdr s_445)))" +"(let-values(((s_527)" "(if(syntax?$1 s_421)" "(syntax-e$1 s_421)" " s_421)))" -"(let-values(((flat-s_31)(to-syntax-list.1 s_526)))" +"(let-values(((flat-s_31)(to-syntax-list.1 s_527)))" "(if(not flat-s_31)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43))" @@ -64862,36 +65110,36 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))" "(values #t case-lambda87_1 clause88_1))))))" "(let-values(((rebuild-s_5)" -"(let-values(((ctx93_0) ctx_82)((s94_0) s_521)((temp95_2) #t))" -"(keep-as-needed120.1 #f #f #f #f temp95_2 #t ctx93_0 s94_0))))" +"(let-values(((ctx93_0) ctx_83)((s94_0) s_522)((temp95_3) #t))" +"(keep-as-needed120.1 #f #f #f #f temp95_3 #t ctx93_0 s94_0))))" "(let-values(((clauses_1)" "(reverse$1" -"(let-values(((lst_334) formals80_0)((lst_110) body81_0)((lst_335) clause88_0))" +"(let-values(((lst_336) formals80_0)((lst_109) body81_0)((lst_337) clause88_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_334)))" +"(let-values()(check-list lst_336)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_110)))" +"(let-values()(check-list lst_109)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_335)))" -"((letrec-values(((for-loop_295)" -"(lambda(fold-var_319 lst_336 lst_54 lst_337)" +"(let-values()(check-list lst_337)))" +"((letrec-values(((for-loop_297)" +"(lambda(fold-var_320 lst_338 lst_54 lst_339)" "(begin" " 'for-loop" -"(if(if(pair? lst_336)" -"(if(pair? lst_54)(pair? lst_337) #f)" +"(if(if(pair? lst_338)" +"(if(pair? lst_54)(pair? lst_339) #f)" " #f)" -"(let-values(((formals_8)(unsafe-car lst_336))" -"((rest_196)(unsafe-cdr lst_336))" +"(let-values(((formals_8)(unsafe-car lst_338))" +"((rest_196)(unsafe-cdr lst_338))" "((body_19)(unsafe-car lst_54))" "((rest_197)(unsafe-cdr lst_54))" -"((clause_3)(unsafe-car lst_337))" -"((rest_24)(unsafe-cdr lst_337)))" +"((clause_3)(unsafe-car lst_339))" +"((rest_24)(unsafe-cdr lst_339)))" "(let-values(((fold-var_105)" -"(let-values(((fold-var_196) fold-var_319))" +"(let-values(((fold-var_196) fold-var_320))" "(let-values(((fold-var_197)" "(let-values()" "(cons" @@ -64900,7 +65148,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_91)" "(expand-context-observer" -" ctx_82)))" +" ctx_83)))" "(if obs_91" "(let-values()" "(let-values()" @@ -64910,8 +65158,8 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((rebuild-clause_0)" -"(let-values(((ctx96_1)" -" ctx_82)" +"(let-values(((ctx96_0)" +" ctx_83)" "((clause97_0)" " clause_3))" "(keep-as-needed120.1" @@ -64921,19 +65169,19 @@ static const char *startup_source = " #f" " #f" " #f" -" ctx96_1" +" ctx96_0" " clause97_0))))" "(let-values(((exp-formals_0" " exp-body_3)" "(lambda-clause-expander" -" s_521" +" s_522" " disarmed-s_7" " formals_8" " body_19" -" ctx_82" +" ctx_83" " 'lambda-renames)))" "(if(expand-context-to-parsed?" -" ctx_82)" +" ctx_83)" "(list" " exp-formals_0" " exp-body_3)" @@ -64951,23 +65199,23 @@ static const char *startup_source = " fold-var_196))))" "(values fold-var_197)))))" "(if(not #f)" -"(for-loop_295 fold-var_105 rest_196 rest_197 rest_24)" +"(for-loop_297 fold-var_105 rest_196 rest_197 rest_24)" " fold-var_105)))" -" fold-var_319)))))" -" for-loop_295)" +" fold-var_320)))))" +" for-loop_297)" " null" -" lst_334" -" lst_110" -" lst_335))))))" -"(if(expand-context-to-parsed? ctx_82)" +" lst_336" +" lst_109" +" lst_337))))))" +"(if(expand-context-to-parsed? ctx_83)" "(parsed-case-lambda6.1 rebuild-s_5 clauses_1)" -"(let-values(((rebuild-s100_0) rebuild-s_5)((temp101_4)(list* case-lambda79_0 clauses_1)))" -"(rebuild5.1 #f #f rebuild-s100_0 temp101_4))))))))))))" +"(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_527)" +"(lambda(all-formals_0 sc_36 s_98)" "(begin" -"((letrec-values(((loop_122)" +"((letrec-values(((loop_125)" "(lambda(formals_9)" "(begin" " 'loop" @@ -64977,42 +65225,42 @@ static const char *startup_source = "(let-values()" "(let-values(((p_87)(syntax-e$1 formals_9)))" "(if(pair? p_87)" -"(let-values()(loop_122 p_87))" +"(let-values()(loop_125 p_87))" "(if(null? p_87)" "(let-values() null)" -" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_527 p_87))))))" +" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_98 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_527 (car formals_9))))" +" (raise-syntax-error$1 #f \"not an identifier\" s_98 (car formals_9))))" "(cons" "(if sc_36(add-scope(car formals_9) sc_36)(car formals_9))" -"(loop_122(cdr formals_9)))))" +"(loop_125(cdr formals_9)))))" "(if(null? formals_9)" "(let-values() null)" "(let-values()" -" (raise-syntax-error$1 \"bad argument sequence\" s_527 all-formals_0))))))))))" -" loop_122)" +" (raise-syntax-error$1 \"bad argument sequence\" s_98 all-formals_0))))))))))" +" loop_125)" " all-formals_0))))" "(define-values" "(unflatten-like-formals)" "(lambda(keys_8 formals_10)" "(begin" -"((letrec-values(((loop_123)" +"((letrec-values(((loop_69)" "(lambda(keys_9 formals_11)" "(begin" " 'loop" "(if(null? formals_11)" "(let-values() null)" "(if(pair? formals_11)" -"(let-values()(cons(car keys_9)(loop_123(cdr keys_9)(cdr formals_11))))" +"(let-values()(cons(car keys_9)(loop_69(cdr keys_9)(cdr formals_11))))" "(if(syntax?$1 formals_11)" -"(let-values()(loop_123 keys_9(syntax-e$1 formals_11)))" +"(let-values()(loop_69 keys_9(syntax-e$1 formals_11)))" "(let-values()(car keys_9)))))))))" -" loop_123)" +" loop_69)" " keys_8" " formals_10))))" "(define-values" @@ -65034,10 +65282,10 @@ 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_528 ctx_83)" +"(lambda(s_528 ctx_84)" "(let-values((()" "(begin" -"(let-values(((obs_23)(expand-context-observer ctx_83)))" +"(let-values(((obs_23)(expand-context-observer ctx_84)))" "(if obs_23" "(let-values()(let-values()(call-expand-observe obs_23 log-tag_0)))" "(void)))" @@ -65059,19 +65307,19 @@ static const char *startup_source = " id:val105_1" " val-rhs106_1" " body107_1)" -"(let-values(((s_470)" +"(let-values(((s_472)" "(if(syntax?$1 s_529)" "(syntax-e$1 s_529)" " s_529)))" -"(if(pair? s_470)" +"(if(pair? s_472)" "(let-values(((letrec-syntaxes+values108_0)" -"(let-values(((s_530)(car s_470))) s_530))" +"(let-values(((s_530)(car s_472))) s_530))" "((id:trans109_0" " trans-rhs110_0" " id:val111_0" " val-rhs112_0" " body113_0)" -"(let-values(((s_531)(cdr s_470)))" +"(let-values(((s_531)(cdr s_472)))" "(let-values(((s_532)" "(if(syntax?$1 s_531)" "(syntax-e$1 s_531)" @@ -65079,18 +65327,18 @@ static const char *startup_source = "(if(pair? s_532)" "(let-values(((id:trans114_0" " trans-rhs115_0)" -"(let-values(((s_231)" +"(let-values(((s_131)" "(car" " s_532)))" -"(let-values(((s_232)" +"(let-values(((s_235)" "(if(syntax?$1" -" s_231)" +" s_131)" "(syntax-e$1" -" s_231)" -" s_231)))" +" s_131)" +" s_131)))" "(let-values(((flat-s_32)" "(to-syntax-list.1" -" s_232)))" +" s_235)))" "(if(not" " flat-s_32)" "(let-values()" @@ -65101,7 +65349,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans_0" " trans-rhs_0)" -"(let-values(((lst_212)" +"(let-values(((lst_213)" " flat-s_32))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65109,21 +65357,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_212)))" -"((letrec-values(((for-loop_296)" +" lst_213)))" +"((letrec-values(((for-loop_298)" "(lambda(id:trans_1" " trans-rhs_1" -" lst_338)" +" lst_340)" "(begin" " 'for-loop" "(if(pair?" -" lst_338)" -"(let-values(((s_237)" +" lst_340)" +"(let-values(((s_240)" "(unsafe-car" -" lst_338))" +" lst_340))" "((rest_198)" "(unsafe-cdr" -" lst_338)))" +" lst_340)))" "(let-values(((id:trans_2" " trans-rhs_2)" "(let-values(((id:trans_3)" @@ -65138,25 +65386,25 @@ static const char *startup_source = "(let-values()" "(let-values(((s_533)" "(if(syntax?$1" -" s_237)" +" s_240)" "(syntax-e$1" -" s_237)" -" s_237)))" +" s_240)" +" s_240)))" "(if(pair?" " s_533)" "(let-values(((id:trans119_0)" -"(let-values(((s_342)" +"(let-values(((s_344)" "(car" " s_533)))" -"(let-values(((s_343)" +"(let-values(((s_345)" "(if(syntax?$1" -" s_342)" +" s_344)" "(syntax-e$1" -" s_342)" -" s_342)))" +" s_344)" +" s_344)))" "(let-values(((flat-s_33)" "(to-syntax-list.1" -" s_343)))" +" s_345)))" "(if(not" " flat-s_33)" "(let-values()" @@ -65166,7 +65414,7 @@ static const char *startup_source = " orig-s_44))" "(let-values()" "(let-values(((id:trans_5)" -"(let-values(((lst_339)" +"(let-values(((lst_341)" " flat-s_33))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65174,20 +65422,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_339)))" -"((letrec-values(((for-loop_297)" +" lst_341)))" +"((letrec-values(((for-loop_267)" "(lambda(id:trans_6" -" lst_340)" +" lst_342)" "(begin" " 'for-loop" "(if(pair?" -" lst_340)" -"(let-values(((s_346)" +" lst_342)" +"(let-values(((s_348)" "(unsafe-car" -" lst_340))" +" lst_342))" "((rest_199)" "(unsafe-cdr" -" lst_340)))" +" lst_342)))" "(let-values(((id:trans_7)" "(let-values(((id:trans_8)" " id:trans_6))" @@ -65195,23 +65443,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans147_0)" "(let-values()" -"(if(let-values(((or-part_264)" +"(if(let-values(((or-part_267)" "(if(syntax?$1" -" s_346)" +" s_348)" "(symbol?" "(syntax-e$1" -" s_346))" +" s_348))" " #f)))" -"(if or-part_264" -" or-part_264" +"(if or-part_267" +" or-part_267" "(symbol?" -" s_346)))" -" s_346" +" s_348)))" +" s_348" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_44" -" s_346)))))" +" s_348)))))" "(cons" " id:trans147_0" " id:trans_8)))))" @@ -65219,45 +65467,45 @@ static const char *startup_source = " id:trans_9)))))" "(if(not" " #f)" -"(for-loop_297" +"(for-loop_267" " id:trans_7" " rest_199)" " id:trans_7)))" " id:trans_6)))))" -" for-loop_297)" +" for-loop_267)" " null" -" lst_339)))))" +" lst_341)))))" "(reverse$1" " id:trans_5))))))))" "((trans-rhs120_0)" -"(let-values(((s_240)" +"(let-values(((s_243)" "(cdr" " s_533)))" -"(let-values(((s_474)" +"(let-values(((s_475)" "(if(syntax?$1" -" s_240)" +" s_243)" "(syntax-e$1" -" s_240)" -" s_240)))" +" s_243)" +" s_243)))" "(if(pair?" -" s_474)" +" s_475)" "(let-values(((trans-rhs121_0)" "(let-values(((s_534)" "(car" -" s_474)))" +" s_475)))" " s_534))" "(()" -"(let-values(((s_241)" +"(let-values(((s_244)" "(cdr" -" s_474)))" -"(let-values(((s_242)" +" s_475)))" +"(let-values(((s_245)" "(if(syntax?$1" -" s_241)" +" s_244)" "(syntax-e$1" -" s_241)" -" s_241)))" +" s_244)" +" s_244)))" "(if(null?" -" s_242)" +" s_245)" "(values)" "(raise-syntax-error$1" " #f" @@ -65288,7 +65536,7 @@ static const char *startup_source = " trans-rhs_4)))))" "(if(not" " #f)" -"(for-loop_296" +"(for-loop_298" " id:trans_2" " trans-rhs_2" " rest_198)" @@ -65298,10 +65546,10 @@ static const char *startup_source = "(values" " id:trans_1" " trans-rhs_1))))))" -" for-loop_296)" +" for-loop_298)" " null" " null" -" lst_212)))))" +" lst_213)))))" "(values" "(reverse$1" " id:trans_0)" @@ -65310,27 +65558,27 @@ static const char *startup_source = "((id:val116_0" " val-rhs117_0" " body118_0)" -"(let-values(((s_243)" +"(let-values(((s_246)" "(cdr" " s_532)))" -"(let-values(((s_351)" -"(if(syntax?$1" -" s_243)" -"(syntax-e$1" -" s_243)" -" s_243)))" -"(if(pair? s_351)" -"(let-values(((id:val122_0" -" val-rhs123_0)" -"(let-values(((s_246)" -"(car" -" s_351)))" -"(let-values(((s_535)" +"(let-values(((s_353)" "(if(syntax?$1" " s_246)" "(syntax-e$1" " s_246)" " s_246)))" +"(if(pair? s_353)" +"(let-values(((id:val122_0" +" val-rhs123_0)" +"(let-values(((s_249)" +"(car" +" s_353)))" +"(let-values(((s_535)" +"(if(syntax?$1" +" s_249)" +"(syntax-e$1" +" s_249)" +" s_249)))" "(let-values(((flat-s_34)" "(to-syntax-list.1" " s_535)))" @@ -65344,7 +65592,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_0" " val-rhs_1)" -"(let-values(((lst_341)" +"(let-values(((lst_343)" " flat-s_34))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65352,21 +65600,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_341)))" -"((letrec-values(((for-loop_298)" +" lst_343)))" +"((letrec-values(((for-loop_299)" "(lambda(id:val_1" " val-rhs_2" -" lst_342)" +" lst_344)" "(begin" " 'for-loop" "(if(pair?" -" lst_342)" +" lst_344)" "(let-values(((s_536)" "(unsafe-car" -" lst_342))" +" lst_344))" "((rest_200)" "(unsafe-cdr" -" lst_342)))" +" lst_344)))" "(let-values(((id:val_2" " val-rhs_3)" "(let-values(((id:val_3)" @@ -65409,7 +65657,7 @@ static const char *startup_source = " orig-s_44))" "(let-values()" "(let-values(((id:val_5)" -"(let-values(((lst_343)" +"(let-values(((lst_345)" " flat-s_35))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65417,20 +65665,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_343)))" -"((letrec-values(((for-loop_299)" +" lst_345)))" +"((letrec-values(((for-loop_300)" "(lambda(id:val_6" -" lst_344)" +" lst_346)" "(begin" " 'for-loop" "(if(pair?" -" lst_344)" +" lst_346)" "(let-values(((s_539)" "(unsafe-car" -" lst_344))" +" lst_346))" "((rest_201)" "(unsafe-cdr" -" lst_344)))" +" lst_346)))" "(let-values(((id:val_7)" "(let-values(((id:val_8)" " id:val_6))" @@ -65438,15 +65686,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val150_0)" "(let-values()" -"(if(let-values(((or-part_377)" +"(if(let-values(((or-part_382)" "(if(syntax?$1" " s_539)" "(symbol?" "(syntax-e$1" " s_539))" " #f)))" -"(if or-part_377" -" or-part_377" +"(if or-part_382" +" or-part_382" "(symbol?" " s_539)))" " s_539" @@ -65462,45 +65710,45 @@ static const char *startup_source = " id:val_9)))))" "(if(not" " #f)" -"(for-loop_299" +"(for-loop_300" " id:val_7" " rest_201)" " id:val_7)))" " id:val_6)))))" -" for-loop_299)" +" for-loop_300)" " null" -" lst_343)))))" +" lst_345)))))" "(reverse$1" " id:val_5))))))))" "((val-rhs126_0)" -"(let-values(((s_357)" -"(cdr" -" s_537)))" -"(let-values(((s_248)" -"(if(syntax?$1" -" s_357)" -"(syntax-e$1" -" s_357)" -" s_357)))" -"(if(pair?" -" s_248)" -"(let-values(((val-rhs127_0)" -"(let-values(((s_477)" -"(car" -" s_248)))" -" s_477))" -"(()" "(let-values(((s_359)" "(cdr" -" s_248)))" -"(let-values(((s_360)" +" s_537)))" +"(let-values(((s_251)" "(if(syntax?$1" " s_359)" "(syntax-e$1" " s_359)" " s_359)))" +"(if(pair?" +" s_251)" +"(let-values(((val-rhs127_0)" +"(let-values(((s_478)" +"(car" +" s_251)))" +" s_478))" +"(()" +"(let-values(((s_361)" +"(cdr" +" s_251)))" +"(let-values(((s_362)" +"(if(syntax?$1" +" s_361)" +"(syntax-e$1" +" s_361)" +" s_361)))" "(if(null?" -" s_360)" +" s_362)" "(values)" "(raise-syntax-error$1" " #f" @@ -65531,7 +65779,7 @@ static const char *startup_source = " val-rhs_5)))))" "(if(not" " #f)" -"(for-loop_298" +"(for-loop_299" " id:val_2" " val-rhs_3" " rest_200)" @@ -65541,28 +65789,28 @@ static const char *startup_source = "(values" " id:val_1" " val-rhs_2))))))" -" for-loop_298)" +" for-loop_299)" " null" " null" -" lst_341)))))" +" lst_343)))))" "(values" "(reverse$1" " id:val_0)" "(reverse$1" " val-rhs_1)))))))))" "((body124_0)" -"(let-values(((s_361)" +"(let-values(((s_363)" "(cdr" -" s_351)))" -"(let-values(((s_249)" +" s_353)))" +"(let-values(((s_252)" "(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_249)))" +" s_252)))" "(if(not" " flat-s_36)" "(let-values()" @@ -65615,36 +65863,36 @@ static const char *startup_source = " body107_1)))" "(values #f #f #f #f #f #f #f)))))" "(let-values(((ok?_40 let-values128_0 id:val129_0 val-rhs130_0 body131_0)" -"(let-values(((s_363) disarmed-s_8))" +"(let-values(((s_365) disarmed-s_8))" "(if(if(not syntaxes?_0) #t #f)" -"(let-values(((orig-s_45) s_363))" +"(let-values(((orig-s_45) s_365))" "(let-values(((let-values128_1 id:val129_1 val-rhs130_1 body131_1)" -"(let-values(((s_366)" -"(if(syntax?$1 s_363)" -"(syntax-e$1 s_363)" -" s_363)))" -"(if(pair? s_366)" +"(let-values(((s_368)" +"(if(syntax?$1 s_365)" +"(syntax-e$1 s_365)" +" s_365)))" +"(if(pair? s_368)" "(let-values(((let-values132_0)" -"(let-values(((s_254)(car s_366)))" -" s_254))" +"(let-values(((s_257)(car s_368)))" +" s_257))" "((id:val133_0 val-rhs134_0 body135_0)" -"(let-values(((s_255)(cdr s_366)))" +"(let-values(((s_258)(cdr s_368)))" "(let-values(((s_540)" -"(if(syntax?$1 s_255)" -"(syntax-e$1 s_255)" -" s_255)))" +"(if(syntax?$1 s_258)" +"(syntax-e$1 s_258)" +" s_258)))" "(if(pair? s_540)" "(let-values(((id:val136_0" " val-rhs137_0)" -"(let-values(((s_258)" +"(let-values(((s_261)" "(car" " s_540)))" "(let-values(((s_541)" "(if(syntax?$1" -" s_258)" +" s_261)" "(syntax-e$1" -" s_258)" -" s_258)))" +" s_261)" +" s_261)))" "(let-values(((flat-s_37)" "(to-syntax-list.1" " s_541)))" @@ -65658,7 +65906,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_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65666,21 +65914,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_345)))" -"((letrec-values(((for-loop_300)" +" lst_347)))" +"((letrec-values(((for-loop_301)" "(lambda(id:val_11" " val-rhs_7" -" lst_302)" +" lst_303)" "(begin" " 'for-loop" "(if(pair?" -" lst_302)" +" lst_303)" "(let-values(((s_542)" "(unsafe-car" -" lst_302))" +" lst_303))" "((rest_202)" "(unsafe-cdr" -" lst_302)))" +" lst_303)))" "(let-values(((id:val_12" " val-rhs_8)" "(let-values(((id:val_13)" @@ -65693,18 +65941,18 @@ static const char *startup_source = "(let-values(((id:val151_0" " val-rhs152_0)" "(let-values()" -"(let-values(((s_378)" +"(let-values(((s_380)" "(if(syntax?$1" " s_542)" "(syntax-e$1" " s_542)" " s_542)))" "(if(pair?" -" s_378)" +" s_380)" "(let-values(((id:val139_0)" "(let-values(((s_543)" "(car" -" s_378)))" +" s_380)))" "(let-values(((s_544)" "(if(syntax?$1" " s_543)" @@ -65723,7 +65971,7 @@ static const char *startup_source = " orig-s_45))" "(let-values()" "(let-values(((id:val_15)" -"(let-values(((lst_346)" +"(let-values(((lst_348)" " flat-s_38))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65731,20 +65979,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_346)))" -"((letrec-values(((for-loop_301)" +" lst_348)))" +"((letrec-values(((for-loop_302)" "(lambda(id:val_16" -" lst_347)" +" lst_349)" "(begin" " 'for-loop" "(if(pair?" -" lst_347)" +" lst_349)" "(let-values(((s_545)" "(unsafe-car" -" lst_347))" +" lst_349))" "((rest_203)" "(unsafe-cdr" -" lst_347)))" +" lst_349)))" "(let-values(((id:val_17)" "(let-values(((id:val_18)" " id:val_16))" @@ -65752,15 +66000,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val153_0)" "(let-values()" -"(if(let-values(((or-part_378)" +"(if(let-values(((or-part_383)" "(if(syntax?$1" " s_545)" "(symbol?" "(syntax-e$1" " s_545))" " #f)))" -"(if or-part_378" -" or-part_378" +"(if or-part_383" +" or-part_383" "(symbol?" " s_545)))" " s_545" @@ -65776,37 +66024,37 @@ static const char *startup_source = " id:val_19)))))" "(if(not" " #f)" -"(for-loop_301" +"(for-loop_302" " id:val_17" " rest_203)" " id:val_17)))" " id:val_16)))))" -" for-loop_301)" +" for-loop_302)" " null" -" lst_346)))))" +" lst_348)))))" "(reverse$1" " id:val_15))))))))" "((val-rhs140_0)" -"(let-values(((s_386)" +"(let-values(((s_389)" "(cdr" -" s_378)))" -"(let-values(((s_260)" +" s_380)))" +"(let-values(((s_263)" "(if(syntax?$1" -" s_386)" +" s_389)" "(syntax-e$1" -" s_386)" -" s_386)))" +" s_389)" +" s_389)))" "(if(pair?" -" s_260)" +" s_263)" "(let-values(((val-rhs141_0)" "(let-values(((s_546)" "(car" -" s_260)))" +" s_263)))" " s_546))" "(()" "(let-values(((s_547)" "(cdr" -" s_260)))" +" s_263)))" "(let-values(((s_548)" "(if(syntax?$1" " s_547)" @@ -65845,7 +66093,7 @@ static const char *startup_source = " val-rhs_10)))))" "(if(not" " #f)" -"(for-loop_300" +"(for-loop_301" " id:val_12" " val-rhs_8" " rest_202)" @@ -65855,10 +66103,10 @@ static const char *startup_source = "(values" " id:val_11" " val-rhs_7))))))" -" for-loop_300)" +" for-loop_301)" " null" " null" -" lst_345)))))" +" lst_347)))))" "(values" "(reverse$1" " id:val_10)" @@ -65868,7 +66116,7 @@ static const char *startup_source = "(let-values(((s_549)" "(cdr" " s_540)))" -"(let-values(((s_261)" +"(let-values(((s_264)" "(if(syntax?$1" " s_549)" "(syntax-e$1" @@ -65876,7 +66124,7 @@ static const char *startup_source = " s_549)))" "(let-values(((flat-s_39)" "(to-syntax-list.1" -" s_261)))" +" s_264)))" "(if(not" " flat-s_39)" "(let-values()" @@ -65910,33 +66158,112 @@ 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_151)(expand-context-phase ctx_83)))" +"(let-values(((phase_149)(expand-context-phase ctx_84)))" "(let-values(((frame-id_15)(if syntaxes?_0(make-reference-record) #f)))" "(let-values(((trans-idss_2)" "(reverse$1" -"(let-values(((lst_348)(if syntaxes?_0 id:trans103_0 null)))" +"(let-values(((lst_350)(if syntaxes?_0 id:trans103_0 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_348)))" -"((letrec-values(((for-loop_160)" -"(lambda(fold-var_108 lst_349)" +"(let-values()(check-list lst_350)))" +"((letrec-values(((for-loop_161)" +"(lambda(fold-var_108 lst_351)" "(begin" " 'for-loop" -"(if(pair? lst_349)" -"(let-values(((ids_37)" -"(unsafe-car lst_349))" +"(if(pair? lst_351)" +"(let-values(((ids_36)" +"(unsafe-car lst_351))" "((rest_204)" -"(unsafe-cdr lst_349)))" +"(unsafe-cdr lst_351)))" "(let-values(((fold-var_112)" -"(let-values(((fold-var_320)" -" fold-var_108))" "(let-values(((fold-var_321)" +" fold-var_108))" +"(let-values(((fold-var_322)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_350)" +"(let-values(((lst_352)" +" ids_36))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_352)))" +"((letrec-values(((for-loop_276)" +"(lambda(fold-var_323" +" lst_353)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_353)" +"(let-values(((id_119)" +"(unsafe-car" +" lst_353))" +"((rest_205)" +"(unsafe-cdr" +" lst_353)))" +"(let-values(((fold-var_324)" +"(let-values(((fold-var_325)" +" fold-var_323))" +"(let-values(((fold-var_326)" +"(let-values()" +"(cons" +"(let-values()" +"(add-scope" +" id_119" +" sc_37))" +" fold-var_325))))" +"(values" +" fold-var_326)))))" +"(if(not" +" #f)" +"(for-loop_276" +" fold-var_324" +" rest_205)" +" fold-var_324)))" +" fold-var_323)))))" +" for-loop_276)" +" null" +" lst_352)))))" +" fold-var_321))))" +"(values" +" fold-var_322)))))" +"(if(not #f)" +"(for-loop_161 fold-var_112 rest_204)" +" fold-var_112)))" +" fold-var_108)))))" +" for-loop_161)" +" null" +" lst_350))))))" +"(let-values(((val-idss_3)" +"(reverse$1" +"(let-values(((lst_354)(if syntaxes?_0 id:val105_0 id:val129_0)))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_354)))" +"((letrec-values(((for-loop_303)" +"(lambda(fold-var_327 lst_355)" +"(begin" +" 'for-loop" +"(if(pair? lst_355)" +"(let-values(((ids_37)" +"(unsafe-car lst_355))" +"((rest_206)" +"(unsafe-cdr lst_355)))" +"(let-values(((fold-var_328)" +"(let-values(((fold-var_329)" +" fold-var_327))" +"(let-values(((fold-var_330)" +"(let-values()" +"(cons" +"(let-values()" +"(reverse$1" +"(let-values(((lst_356)" " ids_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65944,242 +66271,163 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_350)))" -"((letrec-values(((for-loop_276)" -"(lambda(fold-var_322" -" lst_351)" +" lst_356)))" +"((letrec-values(((for-loop_304)" +"(lambda(fold-var_331" +" lst_357)" "(begin" " 'for-loop" "(if(pair?" -" lst_351)" -"(let-values(((id_116)" +" lst_357)" +"(let-values(((id_120)" "(unsafe-car" -" lst_351))" -"((rest_205)" -"(unsafe-cdr" -" lst_351)))" -"(let-values(((fold-var_323)" -"(let-values(((fold-var_324)" -" fold-var_322))" -"(let-values(((fold-var_325)" -"(let-values()" -"(cons" -"(let-values()" -"(add-scope" -" id_116" -" sc_37))" -" fold-var_324))))" -"(values" -" fold-var_325)))))" -"(if(not" -" #f)" -"(for-loop_276" -" fold-var_323" -" rest_205)" -" fold-var_323)))" -" fold-var_322)))))" -" for-loop_276)" -" null" -" lst_350)))))" -" fold-var_320))))" -"(values" -" fold-var_321)))))" -"(if(not #f)" -"(for-loop_160 fold-var_112 rest_204)" -" fold-var_112)))" -" fold-var_108)))))" -" for-loop_160)" -" null" -" lst_348))))))" -"(let-values(((val-idss_3)" -"(reverse$1" -"(let-values(((lst_352)(if syntaxes?_0 id:val105_0 id:val129_0)))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_352)))" -"((letrec-values(((for-loop_302)" -"(lambda(fold-var_326 lst_353)" -"(begin" -" 'for-loop" -"(if(pair? lst_353)" -"(let-values(((ids_38)" -"(unsafe-car lst_353))" -"((rest_206)" -"(unsafe-cdr lst_353)))" -"(let-values(((fold-var_327)" -"(let-values(((fold-var_328)" -" fold-var_326))" -"(let-values(((fold-var_329)" -"(let-values()" -"(cons" -"(let-values()" -"(reverse$1" -"(let-values(((lst_354)" -" ids_38))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_354)))" -"((letrec-values(((for-loop_303)" -"(lambda(fold-var_330" -" lst_355)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_355)" -"(let-values(((id_117)" -"(unsafe-car" -" lst_355))" +" lst_357))" "((rest_207)" "(unsafe-cdr" -" lst_355)))" -"(let-values(((fold-var_331)" +" lst_357)))" "(let-values(((fold-var_332)" -" fold-var_330))" "(let-values(((fold-var_333)" +" fold-var_331))" +"(let-values(((fold-var_334)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_117" +" id_120" " sc_37))" -" fold-var_332))))" +" fold-var_333))))" "(values" -" fold-var_333)))))" +" fold-var_334)))))" "(if(not" " #f)" -"(for-loop_303" -" fold-var_331" +"(for-loop_304" +" fold-var_332" " rest_207)" -" fold-var_331)))" +" fold-var_332)))" +" fold-var_331)))))" +" for-loop_304)" +" null" +" lst_356)))))" +" fold-var_329))))" +"(values" " fold-var_330)))))" +"(if(not #f)" +"(for-loop_303" +" fold-var_328" +" rest_206)" +" fold-var_328)))" +" fold-var_327)))))" " for-loop_303)" " null" -" lst_354)))))" -" fold-var_328))))" -"(values" -" fold-var_329)))))" -"(if(not #f)" -"(for-loop_302" -" fold-var_327" -" rest_206)" -" fold-var_327)))" -" fold-var_326)))))" -" for-loop_302)" -" null" -" lst_352))))))" +" lst_354))))))" "(let-values(((val-rhss_3)" "(if rec?_1" "(reverse$1" -"(let-values(((lst_356)" +"(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_356)))" -"((letrec-values(((for-loop_304)" -"(lambda(fold-var_334 lst_357)" +"(let-values()(check-list lst_358)))" +"((letrec-values(((for-loop_305)" +"(lambda(fold-var_335 lst_359)" "(begin" " 'for-loop" -"(if(pair? lst_357)" +"(if(pair? lst_359)" "(let-values(((rhs_20)" -"(unsafe-car lst_357))" +"(unsafe-car lst_359))" "((rest_208)" -"(unsafe-cdr lst_357)))" -"(let-values(((fold-var_335)" +"(unsafe-cdr lst_359)))" "(let-values(((fold-var_336)" -" fold-var_334))" "(let-values(((fold-var_337)" +" fold-var_335))" +"(let-values(((fold-var_338)" "(let-values()" "(cons" "(let-values()" "(add-scope" " rhs_20" " sc_37))" -" fold-var_336))))" +" fold-var_337))))" "(values" -" fold-var_337)))))" +" fold-var_338)))))" "(if(not #f)" -"(for-loop_304" -" fold-var_335" +"(for-loop_305" +" fold-var_336" " rest_208)" -" fold-var_335)))" -" fold-var_334)))))" -" for-loop_304)" +" fold-var_336)))" +" fold-var_335)))))" +" for-loop_305)" " null" -" lst_356))))" +" lst_358))))" "(if syntaxes?_0 val-rhs106_0 val-rhs130_0))))" "(let-values(((val-clauses_0)" "(if syntaxes?_0" "(let-values()" "(let-values(((ok?_41 _154_0 _155_0 clause156_0 _157_0)" -"(let-values(((s_481) disarmed-s_8))" -"(let-values(((orig-s_46) s_481))" +"(let-values(((s_482) disarmed-s_8))" +"(let-values(((orig-s_46) s_482))" "(let-values(((_154_1" " _155_1" " clause156_1" " _157_1)" -"(let-values(((s_142)" -"(if(syntax?$1" -" s_481)" -"(syntax-e$1" -" s_481)" -" s_481)))" -"(if(pair? s_142)" -"(let-values(((_158_0)" "(let-values(((s_550)" +"(if(syntax?$1" +" s_482)" +"(syntax-e$1" +" s_482)" +" s_482)))" +"(if(pair? s_550)" +"(let-values(((_158_0)" +"(let-values(((s_551)" "(car" -" s_142)))" -" s_550))" +" s_550)))" +" s_551))" "((_159_0" " clause160_0" " _161_0)" -"(let-values(((s_551)" -"(cdr" -" s_142)))" -"(let-values(((s_143)" -"(if(syntax?$1" -" s_551)" -"(syntax-e$1" -" s_551)" -" s_551)))" -"(if(pair?" -" s_143)" -"(let-values(((_162_0)" "(let-values(((s_552)" +"(cdr" +" s_550)))" +"(let-values(((s_553)" +"(if(syntax?$1" +" s_552)" +"(syntax-e$1" +" s_552)" +" s_552)))" +"(if(pair?" +" s_553)" +"(let-values(((_162_0)" +"(let-values(((s_554)" "(car" -" s_143)))" -" s_552))" +" s_553)))" +" s_554))" "((clause163_0" " _164_0)" -"(let-values(((s_553)" -"(cdr" -" s_143)))" -"(let-values(((s_554)" -"(if(syntax?$1" -" s_553)" -"(syntax-e$1" -" s_553)" -" s_553)))" -"(if(pair?" -" s_554)" -"(let-values(((clause165_0)" "(let-values(((s_555)" -"(car" -" s_554)))" +"(cdr" +" s_553)))" "(let-values(((s_556)" "(if(syntax?$1" " s_555)" "(syntax-e$1" " s_555)" " s_555)))" +"(if(pair?" +" s_556)" +"(let-values(((clause165_0)" +"(let-values(((s_557)" +"(car" +" s_556)))" +"(let-values(((s_558)" +"(if(syntax?$1" +" s_557)" +"(syntax-e$1" +" s_557)" +" s_557)))" "(let-values(((flat-s_40)" "(to-syntax-list.1" -" s_556)))" +" s_558)))" "(if(not" " flat-s_40)" "(let-values()" @@ -66190,10 +66438,10 @@ static const char *startup_source = "(let-values()" " flat-s_40))))))" "((_166_0)" -"(let-values(((s_557)" +"(let-values(((s_559)" "(cdr" -" s_554)))" -" s_557)))" +" s_556)))" +" s_559)))" "(values" " clause165_0" " _166_0))" @@ -66227,47 +66475,47 @@ static const char *startup_source = " clause156_0))" "(let-values()" "(let-values(((ok?_42 _167_0 clause168_0 _169_0)" -"(let-values(((s_558) disarmed-s_8))" -"(let-values(((orig-s_47) s_558))" +"(let-values(((s_560) disarmed-s_8))" +"(let-values(((orig-s_47) s_560))" "(let-values(((_167_1 clause168_1 _169_1)" -"(let-values(((s_559)" +"(let-values(((s_145)" "(if(syntax?$1" -" s_558)" +" s_560)" "(syntax-e$1" -" s_558)" -" s_558)))" -"(if(pair? s_559)" +" s_560)" +" s_560)))" +"(if(pair? s_145)" "(let-values(((_170_0)" -"(let-values(((s_560)" +"(let-values(((s_561)" "(car" -" s_559)))" -" s_560))" +" s_145)))" +" s_561))" "((clause171_0" " _172_0)" -"(let-values(((s_561)" -"(cdr" -" s_559)))" "(let-values(((s_562)" -"(if(syntax?$1" -" s_561)" -"(syntax-e$1" -" s_561)" -" s_561)))" -"(if(pair?" -" s_562)" -"(let-values(((clause173_0)" +"(cdr" +" s_145)))" "(let-values(((s_563)" -"(car" -" s_562)))" -"(let-values(((s_564)" "(if(syntax?$1" -" s_563)" +" s_562)" "(syntax-e$1" +" s_562)" +" s_562)))" +"(if(pair?" " s_563)" +"(let-values(((clause173_0)" +"(let-values(((s_564)" +"(car" " s_563)))" +"(let-values(((s_565)" +"(if(syntax?$1" +" s_564)" +"(syntax-e$1" +" s_564)" +" s_564)))" "(let-values(((flat-s_41)" "(to-syntax-list.1" -" s_564)))" +" s_565)))" "(if(not" " flat-s_41)" "(let-values()" @@ -66278,10 +66526,10 @@ static const char *startup_source = "(let-values()" " flat-s_41))))))" "((_174_0)" -"(let-values(((s_565)" +"(let-values(((s_147)" "(cdr" -" s_562)))" -" s_565)))" +" s_563)))" +" s_147)))" "(values" " clause173_0" " _174_0))" @@ -66301,79 +66549,79 @@ static const char *startup_source = " clause168_0)))))" "(let-values((()" "(begin" -"(let-values(((temp142_4)(list trans-idss_2 val-idss_3))" -"((phase143_0) phase_151)" +"(let-values(((temp142_3)(list trans-idss_2 val-idss_3))" +"((phase143_0) phase_149)" "((s144_0) s_528))" "(check-no-duplicate-ids8.1" " #f" " #f" -" temp142_4" +" temp142_3" " phase143_0" " s144_0" " #f" " #f))" "(values))))" -"(let-values(((counter_8)(root-expand-context-counter ctx_83)))" +"(let-values(((counter_8)(root-expand-context-counter ctx_84)))" "(let-values(((trans-keyss_0)" "(reverse$1" -"(let-values(((lst_358) trans-idss_2))" +"(let-values(((lst_360) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_358)))" -"((letrec-values(((for-loop_305)" -"(lambda(fold-var_338 lst_359)" +"(let-values()(check-list lst_360)))" +"((letrec-values(((for-loop_306)" +"(lambda(fold-var_339 lst_361)" "(begin" " 'for-loop" -"(if(pair? lst_359)" -"(let-values(((ids_39)" +"(if(pair? lst_361)" +"(let-values(((ids_38)" "(unsafe-car" -" lst_359))" +" lst_361))" "((rest_209)" "(unsafe-cdr" -" lst_359)))" -"(let-values(((fold-var_339)" +" lst_361)))" "(let-values(((fold-var_340)" -" fold-var_338))" "(let-values(((fold-var_341)" +" fold-var_339))" +"(let-values(((fold-var_342)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_238)" -" ids_39))" +"(let-values(((lst_239)" +" ids_38))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_238)))" -"((letrec-values(((for-loop_306)" -"(lambda(fold-var_342" -" lst_360)" +" lst_239)))" +"((letrec-values(((for-loop_307)" +"(lambda(fold-var_343" +" lst_362)" "(begin" " 'for-loop" "(if(pair?" -" lst_360)" -"(let-values(((id_118)" +" lst_362)" +"(let-values(((id_121)" "(unsafe-car" -" lst_360))" +" lst_362))" "((rest_127)" "(unsafe-cdr" -" lst_360)))" -"(let-values(((fold-var_343)" +" lst_362)))" "(let-values(((fold-var_344)" -" fold-var_342))" "(let-values(((fold-var_345)" +" fold-var_343))" +"(let-values(((fold-var_346)" "(let-values()" "(cons" "(let-values()" "(let-values(((id175_0)" -" id_118)" +" id_121)" "((phase176_0)" -" phase_151)" +" phase_149)" "((counter177_0)" " counter_8)" "((frame-id178_0)" @@ -66388,91 +66636,91 @@ static const char *startup_source = " id175_0" " phase176_0" " counter177_0)))" -" fold-var_344))))" +" fold-var_345))))" "(values" -" fold-var_345)))))" +" fold-var_346)))))" "(if(not" " #f)" -"(for-loop_306" -" fold-var_343" +"(for-loop_307" +" fold-var_344" " rest_127)" -" fold-var_343)))" +" fold-var_344)))" +" fold-var_343)))))" +" for-loop_307)" +" null" +" lst_239)))))" +" fold-var_341))))" +"(values" " fold-var_342)))))" +"(if(not #f)" +"(for-loop_306" +" fold-var_340" +" rest_209)" +" fold-var_340)))" +" fold-var_339)))))" " for-loop_306)" " null" -" lst_238)))))" -" fold-var_340))))" -"(values" -" fold-var_341)))))" -"(if(not #f)" -"(for-loop_305" -" fold-var_339" -" rest_209)" -" fold-var_339)))" -" fold-var_338)))))" -" for-loop_305)" -" null" -" lst_358))))))" +" lst_360))))))" "(let-values(((val-keyss_2)" "(reverse$1" -"(let-values(((lst_361) val-idss_3))" +"(let-values(((lst_363) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_361)))" -"((letrec-values(((for-loop_307)" -"(lambda(fold-var_346 lst_362)" +"(let-values()(check-list lst_363)))" +"((letrec-values(((for-loop_308)" +"(lambda(fold-var_347 lst_364)" "(begin" " 'for-loop" -"(if(pair? lst_362)" -"(let-values(((ids_40)" +"(if(pair? lst_364)" +"(let-values(((ids_39)" "(unsafe-car" -" lst_362))" +" lst_364))" "((rest_210)" "(unsafe-cdr" -" lst_362)))" -"(let-values(((fold-var_347)" +" lst_364)))" "(let-values(((fold-var_348)" -" fold-var_346))" "(let-values(((fold-var_349)" +" fold-var_347))" +"(let-values(((fold-var_350)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_363)" -" ids_40))" +"(let-values(((lst_365)" +" ids_39))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_363)))" -"((letrec-values(((for-loop_308)" -"(lambda(fold-var_350" -" lst_364)" +" lst_365)))" +"((letrec-values(((for-loop_309)" +"(lambda(fold-var_351" +" lst_366)" "(begin" " 'for-loop" "(if(pair?" -" lst_364)" -"(let-values(((id_119)" +" lst_366)" +"(let-values(((id_122)" "(unsafe-car" -" lst_364))" +" lst_366))" "((rest_211)" "(unsafe-cdr" -" lst_364)))" -"(let-values(((fold-var_351)" +" lst_366)))" +"(let-values(((fold-var_352)" "(let-values(((fold-var_116)" -" fold-var_350))" +" fold-var_351))" "(let-values(((fold-var_117)" "(let-values()" "(cons" "(let-values()" "(let-values(((id180_0)" -" id_119)" +" id_122)" "((phase181_0)" -" phase_151)" +" phase_149)" "((counter182_0)" " counter_8)" "((frame-id183_0)" @@ -66492,72 +66740,72 @@ static const char *startup_source = " fold-var_117)))))" "(if(not" " #f)" -"(for-loop_308" -" fold-var_351" +"(for-loop_309" +" fold-var_352" " rest_211)" -" fold-var_351)))" +" fold-var_352)))" +" fold-var_351)))))" +" for-loop_309)" +" null" +" lst_365)))))" +" fold-var_349))))" +"(values" " fold-var_350)))))" +"(if(not #f)" +"(for-loop_308" +" fold-var_348" +" rest_210)" +" fold-var_348)))" +" fold-var_347)))))" " for-loop_308)" " null" -" lst_363)))))" -" fold-var_348))))" -"(values" -" fold-var_349)))))" -"(if(not #f)" -"(for-loop_307" -" fold-var_347" -" rest_210)" -" fold-var_347)))" -" fold-var_346)))))" -" for-loop_307)" -" null" -" lst_361))))))" +" lst_363))))))" "(let-values(((bodys_10)" "(reverse$1" -"(let-values(((lst_365)" +"(let-values(((lst_367)" "(if syntaxes?_0 body107_0 body131_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_365)))" -"((letrec-values(((for-loop_309)" -"(lambda(fold-var_352 lst_129)" +"(let-values()(check-list lst_367)))" +"((letrec-values(((for-loop_310)" +"(lambda(fold-var_353 lst_130)" "(begin" " 'for-loop" -"(if(pair? lst_129)" +"(if(pair? lst_130)" "(let-values(((body_20)" "(unsafe-car" -" lst_129))" +" lst_130))" "((rest_212)" "(unsafe-cdr" -" lst_129)))" -"(let-values(((fold-var_353)" +" lst_130)))" "(let-values(((fold-var_354)" -" fold-var_352))" "(let-values(((fold-var_355)" +" fold-var_353))" +"(let-values(((fold-var_356)" "(let-values()" "(cons" "(let-values()" "(add-scope" " body_20" " sc_37))" -" fold-var_354))))" +" fold-var_355))))" "(values" -" fold-var_355)))))" +" fold-var_356)))))" "(if(not #f)" -"(for-loop_309" -" fold-var_353" +"(for-loop_310" +" fold-var_354" " rest_212)" -" fold-var_353)))" -" fold-var_352)))))" -" for-loop_309)" +" fold-var_354)))" +" fold-var_353)))))" +" for-loop_310)" " null" -" lst_365))))))" +" lst_367))))))" "(let-values((()" "(begin" "(let-values(((obs_92)" -"(expand-context-observer ctx_83)))" +"(expand-context-observer ctx_84)))" "(if obs_92" "(let-values()" "(log-let-renames" @@ -66578,7 +66826,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_93)" "(expand-context-observer" -" ctx_83)))" +" ctx_84)))" "(if obs_93" "(let-values()" "(let-values()" @@ -66586,50 +66834,50 @@ static const char *startup_source = " obs_93" " 'prepare-env)))" "(void)))" -"(prepare-next-phase-namespace ctx_83)))" +"(prepare-next-phase-namespace ctx_84)))" "(void))" "(values))))" "(let-values(((trans-valss_0)" "(reverse$1" -"(let-values(((lst_366)" +"(let-values(((lst_368)" "(if syntaxes?_0" " trans-rhs104_0" " '()))" -"((lst_247) trans-idss_2))" +"((lst_248) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_366)))" +"(let-values()(check-list lst_368)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_247)))" -"((letrec-values(((for-loop_310)" +"(let-values()(check-list lst_248)))" +"((letrec-values(((for-loop_311)" "(lambda(fold-var_123" -" lst_131" -" lst_367)" +" lst_132" +" lst_369)" "(begin" " 'for-loop" -"(if(if(pair? lst_131)" -"(pair? lst_367)" +"(if(if(pair? lst_132)" +"(pair? lst_369)" " #f)" "(let-values(((rhs_21)" "(unsafe-car" -" lst_131))" +" lst_132))" "((rest_213)" "(unsafe-cdr" -" lst_131))" -"((ids_41)" +" lst_132))" +"((ids_40)" "(unsafe-car" -" lst_367))" +" lst_369))" "((rest_67)" "(unsafe-cdr" -" lst_367)))" +" lst_369)))" "(let-values(((fold-var_125)" -"(let-values(((fold-var_356)" -" fold-var_123))" "(let-values(((fold-var_357)" +" fold-var_123))" +"(let-values(((fold-var_358)" "(let-values()" "(cons" "(let-values()" @@ -66637,7 +66885,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_94)" "(expand-context-observer" -" ctx_83)))" +" ctx_84)))" "(if obs_94" "(let-values()" "(let-values()" @@ -66656,12 +66904,12 @@ static const char *startup_source = "(add-scope" " rhs_21" " sc_37)" -" ids_41" -" ctx_83)))" +" ids_40" +" ctx_84)))" "(begin" "(let-values(((obs_95)" "(expand-context-observer" -" ctx_83)))" +" ctx_84)))" "(if obs_95" "(let-values()" "(let-values()" @@ -66670,23 +66918,23 @@ static const char *startup_source = " 'exit-bind)))" "(void)))" " trans-val_1))))" -" fold-var_356))))" +" fold-var_357))))" "(values" -" fold-var_357)))))" +" fold-var_358)))))" "(if(not #f)" -"(for-loop_310" +"(for-loop_311" " fold-var_125" " rest_213" " rest_67)" " fold-var_125)))" " fold-var_123)))))" -" for-loop_310)" +" for-loop_311)" " null" -" lst_366" -" lst_247))))))" +" lst_368" +" lst_248))))))" "(let-values(((rec-val-env_0)" "(let-values(((lst_61) val-keyss_2)" -"((lst_249) val-idss_3))" +"((lst_250) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -66695,67 +66943,67 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_249)))" -"((letrec-values(((for-loop_311)" +"(let-values()(check-list lst_250)))" +"((letrec-values(((for-loop_312)" "(lambda(env_29" -" lst_368" -" lst_133)" +" lst_370" +" lst_134)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_368)" -"(pair? lst_133)" +" lst_370)" +"(pair? lst_134)" " #f)" "(let-values(((keys_10)" "(unsafe-car" -" lst_368))" +" lst_370))" "((rest_68)" "(unsafe-cdr" -" lst_368))" -"((ids_42)" +" lst_370))" +"((ids_41)" "(unsafe-car" -" lst_133))" +" lst_134))" "((rest_214)" "(unsafe-cdr" -" lst_133)))" +" lst_134)))" "(let-values(((env_30)" "(let-values(((env_31)" " env_29))" -"(let-values(((lst_369)" +"(let-values(((lst_371)" " keys_10)" -"((lst_370)" -" ids_42))" +"((lst_372)" +" ids_41))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_369)))" +" lst_371)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_370)))" -"((letrec-values(((for-loop_312)" +" lst_372)))" +"((letrec-values(((for-loop_150)" "(lambda(env_32" -" lst_371" +" lst_373" " lst_66)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_371)" +" lst_373)" "(pair?" " lst_66)" " #f)" "(let-values(((key_93)" "(unsafe-car" -" lst_371))" +" lst_373))" "((rest_30)" "(unsafe-cdr" -" lst_371))" -"((id_120)" +" lst_373))" +"((id_123)" "(unsafe-car" " lst_66))" "((rest_215)" @@ -66770,145 +67018,145 @@ static const char *startup_source = " env_34" " key_93" "(local-variable1.1" -" id_120)))))" +" id_123)))))" "(values" " env_35)))))" "(if(not" " #f)" -"(for-loop_312" +"(for-loop_150" " env_33" " rest_30" " rest_215)" " env_33)))" " env_32)))))" -" for-loop_312)" +" for-loop_150)" " env_31" -" lst_369" -" lst_370))))))" +" lst_371" +" lst_372))))))" "(if(not #f)" -"(for-loop_311" +"(for-loop_312" " env_30" " rest_68" " rest_214)" " env_30)))" " env_29)))))" -" for-loop_311)" -"(expand-context-env ctx_83)" +" for-loop_312)" +"(expand-context-env ctx_84)" " lst_61" -" lst_249)))))" +" lst_250)))))" "(let-values(((rec-env_0)" -"(let-values(((lst_372) trans-keyss_0)" -"((lst_373) trans-valss_0)" -"((lst_374) trans-idss_2))" +"(let-values(((lst_374) trans-keyss_0)" +"((lst_375) trans-valss_0)" +"((lst_376) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_372)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_373)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" "(let-values()(check-list lst_374)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_375)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_376)))" "((letrec-values(((for-loop_313)" "(lambda(env_36" -" lst_375" -" lst_376" -" lst_377)" +" lst_377" +" lst_378" +" lst_379)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_375)" -"(if(pair?" -" lst_376)" -"(pair?" " lst_377)" +"(if(pair?" +" lst_378)" +"(pair?" +" lst_379)" " #f)" " #f)" "(let-values(((keys_11)" "(unsafe-car" -" lst_375))" +" lst_377))" "((rest_216)" "(unsafe-cdr" -" lst_375))" +" lst_377))" "((vals_9)" "(unsafe-car" -" lst_376))" +" lst_378))" "((rest_217)" "(unsafe-cdr" -" lst_376))" -"((ids_43)" +" lst_378))" +"((ids_42)" "(unsafe-car" -" lst_377))" +" lst_379))" "((rest_218)" "(unsafe-cdr" -" lst_377)))" +" lst_379)))" "(let-values(((env_37)" "(let-values(((env_38)" " env_36))" "(let-values(((env_39)" "(let-values()" -"(let-values(((lst_378)" +"(let-values(((lst_380)" " keys_11)" -"((lst_379)" +"((lst_381)" " vals_9)" -"((lst_380)" -" ids_43))" +"((lst_382)" +" ids_42))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_378)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_379)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" " lst_380)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_381)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_382)))" "((letrec-values(((for-loop_314)" "(lambda(env_40" -" lst_381" -" lst_48" -" lst_118)" +" lst_383" +" lst_384" +" lst_385)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_381)" +" lst_383)" "(if(pair?" -" lst_48)" +" lst_384)" "(pair?" -" lst_118)" +" lst_385)" " #f)" " #f)" "(let-values(((key_94)" "(unsafe-car" -" lst_381))" +" lst_383))" "((rest_219)" "(unsafe-cdr" -" lst_381))" -"((val_86)" +" lst_383))" +"((val_87)" "(unsafe-car" -" lst_48))" -"((rest_21)" -"(unsafe-cdr" -" lst_48))" -"((id_121)" -"(unsafe-car" -" lst_118))" +" lst_384))" "((rest_220)" "(unsafe-cdr" -" lst_118)))" +" lst_384))" +"((id_124)" +"(unsafe-car" +" lst_385))" +"((rest_60)" +"(unsafe-cdr" +" lst_385)))" "(let-values(((env_41)" "(let-values(((env_42)" " env_40))" @@ -66916,14 +67164,14 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_86" -" id_121" -" phase_151" -" ctx_83)" +" val_87" +" id_124" +" phase_149" +" ctx_84)" "(env-extend" " env_42" " key_94" -" val_86)))))" +" val_87)))))" "(values" " env_43)))))" "(if(not" @@ -66931,15 +67179,15 @@ static const char *startup_source = "(for-loop_314" " env_41" " rest_219" -" rest_21" -" rest_220)" +" rest_220" +" rest_60)" " env_41)))" " env_40)))))" " for-loop_314)" " env_38" -" lst_378" -" lst_379" -" lst_380))))))" +" lst_380" +" lst_381" +" lst_382))))))" "(values" " env_39)))))" "(if(not #f)" @@ -66952,26 +67200,26 @@ static const char *startup_source = " env_36)))))" " for-loop_313)" " rec-val-env_0" -" lst_372" -" lst_373" -" lst_374)))))" +" lst_374" +" lst_375" +" lst_376)))))" "(let-values(((expr-ctx_0)" -"(as-expression-context ctx_83)))" +"(as-expression-context ctx_84)))" "(let-values(((orig-rrs_0)" "(expand-context-reference-records" " expr-ctx_0)))" "(let-values(((rec-ctx_0)" -"(let-values(((v_182) expr-ctx_0))" -"(let-values(((the-struct_97) v_182))" +"(let-values(((v_183) expr-ctx_0))" +"(let-values(((the-struct_96) v_183))" "(if(expand-context/outer?" -" the-struct_97)" +" the-struct_96)" "(let-values(((env185_0)" " rec-env_0)" "((scopes186_0)" "(cons" " sc_37" "(expand-context-scopes" -" ctx_83)))" +" ctx_84)))" "((reference-records187_0)" "(if split-by-reference?_0" "(cons" @@ -66983,51 +67231,51 @@ static const char *startup_source = "(cons" " trans-idss_2" " val-idss_3)" -" ctx_83" +" ctx_84" " sc_37))" "((inner189_0)" "(root-expand-context/outer-inner" -" v_182)))" +" v_183)))" "(expand-context/outer1.1" " inner189_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_97)" +" the-struct_96)" "(root-expand-context/outer-use-site-scopes" -" the-struct_97)" +" the-struct_96)" "(root-expand-context/outer-frame-id" -" the-struct_97)" +" the-struct_96)" "(expand-context/outer-context" -" the-struct_97)" +" the-struct_96)" " env185_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_97)" +" the-struct_96)" " scopes186_0" "(expand-context/outer-def-ctx-scopes" -" the-struct_97)" +" the-struct_96)" " binding-layer188_0" " reference-records187_0" "(expand-context/outer-only-immediate?" -" the-struct_97)" +" the-struct_96)" "(expand-context/outer-need-eventually-defined" -" the-struct_97)" +" the-struct_96)" "(expand-context/outer-current-introduction-scopes" -" the-struct_97)" +" the-struct_96)" "(expand-context/outer-name" -" the-struct_97)))" +" the-struct_96)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_97))))))" +" the-struct_96))))))" "(let-values(((letrec-values-id_0)" "(if(not" "(expand-context-to-parsed?" -" ctx_83))" +" ctx_84))" "(if syntaxes?_0" -"(core-id 'letrec-values phase_151)" +"(core-id 'letrec-values phase_149)" " let-values128_0)" " #f)))" "(let-values(((rebuild-s_6)" -"(let-values(((ctx190_0) ctx_83)" +"(let-values(((ctx190_0) ctx_84)" "((s191_1) s_528)" "((temp192_1) #t))" "(keep-as-needed120.1" @@ -67041,33 +67289,33 @@ static const char *startup_source = " s191_1))))" "(let-values(((val-name-idss_0)" "(if(expand-context-to-parsed?" -" ctx_83)" +" ctx_84)" "(reverse$1" -"(let-values(((lst_382)" +"(let-values(((lst_386)" " val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_382)))" +"(check-list lst_386)))" "((letrec-values(((for-loop_315)" -"(lambda(fold-var_358" -" lst_383)" +"(lambda(fold-var_359" +" lst_387)" "(begin" " 'for-loop" "(if(pair?" -" lst_383)" +" lst_387)" "(let-values(((val-ids_1)" "(unsafe-car" -" lst_383))" +" lst_387))" "((rest_221)" "(unsafe-cdr" -" lst_383)))" -"(let-values(((fold-var_359)" +" lst_387)))" "(let-values(((fold-var_360)" -" fold-var_358))" "(let-values(((fold-var_361)" +" fold-var_359))" +"(let-values(((fold-var_362)" "(let-values()" "(cons" "(let-values()" @@ -67081,23 +67329,23 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_67)))" -"((letrec-values(((for-loop_90)" -"(lambda(fold-var_362" -" lst_384)" +"((letrec-values(((for-loop_91)" +"(lambda(fold-var_363" +" lst_388)" "(begin" " 'for-loop" "(if(pair?" -" lst_384)" +" lst_388)" "(let-values(((val-id_0)" "(unsafe-car" -" lst_384))" +" lst_388))" "((rest_222)" "(unsafe-cdr" -" lst_384)))" -"(let-values(((fold-var_363)" +" lst_388)))" "(let-values(((fold-var_364)" -" fold-var_362))" "(let-values(((fold-var_365)" +" fold-var_363))" +"(let-values(((fold-var_366)" "(let-values()" "(cons" "(let-values()" @@ -67107,32 +67355,32 @@ static const char *startup_source = " val-id_0)" " val-id_0" " val-id_0))" -" fold-var_364))))" +" fold-var_365))))" "(values" -" fold-var_365)))))" +" fold-var_366)))))" "(if(not" " #f)" -"(for-loop_90" -" fold-var_363" +"(for-loop_91" +" fold-var_364" " rest_222)" -" fold-var_363)))" -" fold-var_362)))))" -" for-loop_90)" +" fold-var_364)))" +" fold-var_363)))))" +" for-loop_91)" " null" " lst_67)))))" -" fold-var_360))))" +" fold-var_361))))" "(values" -" fold-var_361)))))" +" fold-var_362)))))" "(if(not" " #f)" "(for-loop_315" -" fold-var_359" +" fold-var_360" " rest_221)" -" fold-var_359)))" -" fold-var_358)))))" +" fold-var_360)))" +" fold-var_359)))))" " for-loop_315)" " null" -" lst_382))))" +" lst_386))))" " val-idss_3)))" "(let-values((()" "(begin" @@ -67140,7 +67388,7 @@ static const char *startup_source = "(let-values()" "(let-values(((obs_96)" "(expand-context-observer" -" ctx_83)))" +" ctx_84)))" "(if obs_96" "(let-values()" "(log-letrec-values" @@ -67159,7 +67407,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_97)" "(expand-context-observer" -" ctx_83)))" +" ctx_84)))" "(if obs_97" "(let-values()" "(if(not" @@ -67175,57 +67423,57 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_5)" -"(let-values(((v_266)" +"(let-values(((v_268)" " rec-ctx_0))" -"(let-values(((the-struct_98)" -" v_266))" +"(let-values(((the-struct_97)" +" v_268))" "(if(expand-context/outer?" -" the-struct_98)" +" the-struct_97)" "(let-values(((reference-records196_0)" " orig-rrs_0)" "((inner197_0)" "(root-expand-context/outer-inner" -" v_266)))" +" v_268)))" "(expand-context/outer1.1" " inner197_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_98)" +" the-struct_97)" "(root-expand-context/outer-use-site-scopes" -" the-struct_98)" +" the-struct_97)" "(root-expand-context/outer-frame-id" -" the-struct_98)" +" the-struct_97)" "(expand-context/outer-context" -" the-struct_98)" +" the-struct_97)" "(expand-context/outer-env" -" the-struct_98)" +" the-struct_97)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_98)" +" the-struct_97)" "(expand-context/outer-scopes" -" the-struct_98)" +" the-struct_97)" "(expand-context/outer-def-ctx-scopes" -" the-struct_98)" +" the-struct_97)" "(expand-context/outer-binding-layer" -" the-struct_98)" +" the-struct_97)" " reference-records196_0" "(expand-context/outer-only-immediate?" -" the-struct_98)" +" the-struct_97)" "(expand-context/outer-need-eventually-defined" -" the-struct_98)" +" the-struct_97)" "(expand-context/outer-current-introduction-scopes" -" the-struct_98)" +" the-struct_97)" "(expand-context/outer-name" -" the-struct_98)))" +" the-struct_97)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_98))))))" +" the-struct_97))))))" "(let-values(((bodys193_0)" " bodys_10)" "((temp194_0)" "(let-values(((body-ctx198_0)" " body-ctx_5)" "((ctx199_0)" -" ctx_83))" +" ctx_84))" "(as-tail-context23.1" " ctx199_0" " body-ctx198_0)))" @@ -67243,13 +67491,13 @@ static const char *startup_source = "(let-values()" "(let-values(((clauses_2)" "(reverse$1" -"(let-values(((lst_385)" +"(let-values(((lst_389)" " val-name-idss_0)" -"((lst_386)" +"((lst_390)" " val-keyss_2)" -"((lst_387)" +"((lst_391)" " val-rhss_3)" -"((lst_388)" +"((lst_392)" " val-clauses_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -67257,72 +67505,72 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_385)))" +" lst_389)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_386)))" +" lst_390)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_387)))" +" lst_391)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_388)))" +" lst_392)))" "((letrec-values(((for-loop_316)" -"(lambda(fold-var_366" -" lst_389" -" lst_390" -" lst_391" -" lst_392)" +"(lambda(fold-var_367" +" lst_393" +" lst_394" +" lst_395" +" lst_396)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_389)" +" lst_393)" "(if(pair?" -" lst_390)" +" lst_394)" "(if(pair?" -" lst_391)" +" lst_395)" "(pair?" -" lst_392)" +" lst_396)" " #f)" " #f)" " #f)" -"(let-values(((ids_44)" +"(let-values(((ids_43)" "(unsafe-car" -" lst_389))" +" lst_393))" "((rest_223)" "(unsafe-cdr" -" lst_389))" +" lst_393))" "((keys_12)" "(unsafe-car" -" lst_390))" +" lst_394))" "((rest_224)" "(unsafe-cdr" -" lst_390))" +" lst_394))" "((rhs_22)" "(unsafe-car" -" lst_391))" +" lst_395))" "((rest_225)" "(unsafe-cdr" -" lst_391))" +" lst_395))" "((clause_4)" "(unsafe-car" -" lst_392))" +" lst_396))" "((rest_226)" "(unsafe-cdr" -" lst_392)))" -"(let-values(((fold-var_367)" +" lst_396)))" "(let-values(((fold-var_368)" -" fold-var_366))" "(let-values(((fold-var_369)" +" fold-var_367))" +"(let-values(((fold-var_370)" "(let-values()" "(cons" "(let-values()" @@ -67330,7 +67578,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_98)" "(expand-context-observer" -" ctx_83)))" +" ctx_84)))" "(if obs_98" "(let-values()" "(let-values()" @@ -67346,10 +67594,10 @@ static const char *startup_source = "(if rec?_1" "(as-named-context" " rec-ctx_0" -" ids_44)" +" ids_43)" "(as-named-context" " expr-ctx_0" -" ids_44))))" +" ids_43))))" "(expand9.1" " #f" " #f" @@ -67360,36 +67608,36 @@ static const char *startup_source = " rhs200_0" " temp201_1))))" "(if(expand-context-to-parsed?" -" ctx_83)" +" ctx_84)" "(list" " keys_12" " exp-rhs_4)" "(datum->syntax$1" " #f" "(list" -" ids_44" +" ids_43" " exp-rhs_4)" " clause_4" " clause_4)))))" -" fold-var_368))))" +" fold-var_369))))" "(values" -" fold-var_369)))))" +" fold-var_370)))))" "(if(not" " #f)" "(for-loop_316" -" fold-var_367" +" fold-var_368" " rest_223" " rest_224" " rest_225" " rest_226)" -" fold-var_367)))" -" fold-var_366)))))" +" fold-var_368)))" +" fold-var_367)))))" " for-loop_316)" " null" -" lst_385" -" lst_386" -" lst_387" -" lst_388))))))" +" lst_389" +" lst_390" +" lst_391" +" lst_392))))))" "(let-values(((exp-body_4)" "(get-body_1)))" "(begin" @@ -67399,7 +67647,7 @@ static const char *startup_source = " frame-id_15))" "(void))" "(if(expand-context-to-parsed?" -" ctx_83)" +" ctx_84)" "(if rec?_1" "(parsed-letrec-values18.1" " rebuild-s_6" @@ -67458,7 +67706,7 @@ static const char *startup_source = " val-keyss205_0" " val-rhss206_0" " val-clauses207_0))))))" -"(if(expand-context-to-parsed? ctx_83)" +"(if(expand-context-to-parsed? ctx_84)" " result-s_12" "(attach-disappeared-transformer-bindings" " result-s_12" @@ -67470,42 +67718,42 @@ static const char *startup_source = "(let-values(((vals+body_0)" "(cons" "(reverse$1" -"(let-values(((lst_393) val-idss_4)((lst_394) val-rhss_4))" +"(let-values(((lst_397) val-idss_4)((lst_398) val-rhss_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_393)))" +"(let-values()(check-list lst_397)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_394)))" +"(let-values()(check-list lst_398)))" "((letrec-values(((for-loop_317)" -"(lambda(fold-var_370 lst_395 lst_396)" +"(lambda(fold-var_371 lst_399 lst_400)" "(begin" " 'for-loop" -"(if(if(pair? lst_395)(pair? lst_396) #f)" -"(let-values(((val-ids_2)(unsafe-car lst_395))" -"((rest_227)(unsafe-cdr lst_395))" -"((val-rhs_11)(unsafe-car lst_396))" -"((rest_228)(unsafe-cdr lst_396)))" -"(let-values(((fold-var_371)" -"(let-values(((fold-var_372) fold-var_370))" -"(let-values(((fold-var_373)" +"(if(if(pair? lst_399)(pair? lst_400) #f)" +"(let-values(((val-ids_2)(unsafe-car lst_399))" +"((rest_227)(unsafe-cdr lst_399))" +"((val-rhs_11)(unsafe-car lst_400))" +"((rest_228)(unsafe-cdr lst_400)))" +"(let-values(((fold-var_372)" +"(let-values(((fold-var_373) fold-var_371))" +"(let-values(((fold-var_374)" "(let-values()" "(cons" "(let-values()" "(datum->syntax$1" " #f" "(list val-ids_2 val-rhs_11)))" -" fold-var_372))))" -"(values fold-var_373)))))" +" fold-var_373))))" +"(values fold-var_374)))))" "(if(not #f)" -"(for-loop_317 fold-var_371 rest_227 rest_228)" -" fold-var_371)))" -" fold-var_370)))))" +"(for-loop_317 fold-var_372 rest_227 rest_228)" +" fold-var_372)))" +" fold-var_371)))))" " for-loop_317)" " null" -" lst_393" -" lst_394))))" +" lst_397" +" lst_398))))" "(datum->syntax$1 #f bodys_11))))" "(call-expand-observe" " obs_99" @@ -67514,26 +67762,26 @@ static const char *startup_source = " vals+body_0" "(cons" "(reverse$1" -"(let-values(((lst_397) trans-idss_3)((lst_398) trans-rhss_0))" +"(let-values(((lst_401) trans-idss_3)((lst_402) trans-rhss_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_397)))" +"(let-values()(check-list lst_401)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_398)))" +"(let-values()(check-list lst_402)))" "((letrec-values(((for-loop_318)" -"(lambda(fold-var_374 lst_399 lst_400)" +"(lambda(fold-var_375 lst_403 lst_404)" "(begin" " 'for-loop" -"(if(if(pair? lst_399)(pair? lst_400) #f)" -"(let-values(((trans-ids_0)(unsafe-car lst_399))" -"((rest_229)(unsafe-cdr lst_399))" -"((trans-rhs_5)(unsafe-car lst_400))" -"((rest_230)(unsafe-cdr lst_400)))" -"(let-values(((fold-var_375)" -"(let-values(((fold-var_376) fold-var_374))" -"(let-values(((fold-var_377)" +"(if(if(pair? lst_403)(pair? lst_404) #f)" +"(let-values(((trans-ids_0)(unsafe-car lst_403))" +"((rest_229)(unsafe-cdr lst_403))" +"((trans-rhs_5)(unsafe-car lst_404))" +"((rest_230)(unsafe-cdr lst_404)))" +"(let-values(((fold-var_376)" +"(let-values(((fold-var_377) fold-var_375))" +"(let-values(((fold-var_378)" "(let-values()" "(cons" "(let-values()" @@ -67542,14 +67790,14 @@ static const char *startup_source = "(list" " trans-ids_0" "(add-scope trans-rhs_5 sc_38))))" -" fold-var_376))))" -"(values fold-var_377)))))" -"(if(not #f)(for-loop_318 fold-var_375 rest_229 rest_230) fold-var_375)))" -" fold-var_374)))))" +" fold-var_377))))" +"(values fold-var_378)))))" +"(if(not #f)(for-loop_318 fold-var_376 rest_229 rest_230) fold-var_376)))" +" fold-var_375)))))" " for-loop_318)" " null" -" lst_397" -" lst_398))))" +" lst_401" +" lst_402))))" " vals+body_0)))))))" "(define-values" "(log-letrec-values)" @@ -67584,10 +67832,10 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%stratified-body" -"(lambda(s_566 ctx_84)" +"(lambda(s_566 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-#%stratified)))" "(void)))" @@ -67619,29 +67867,29 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_48)))))" "(values #t #%stratified-body223_1 body224_1))))))" "(let-values(((rebuild-s_7)" -"(let-values(((ctx227_0) ctx_84)((s228_1) s_566)((temp229_1) #t))" +"(let-values(((ctx227_0) ctx_85)((s228_1) s_566)((temp229_1) #t))" "(keep-as-needed120.1 #f #f temp229_1 #t #f #f ctx227_0 s228_1))))" "(let-values(((exp-body_5)" "(let-values(((temp230_2) body224_0)" -"((ctx231_0) ctx_84)" +"((ctx231_0) ctx_85)" "((temp232_1) #t)" "((rebuild-s233_0) rebuild-s_7))" "(expand-body7.1 rebuild-s233_0 temp232_1 #t temp230_2 ctx231_0))))" -"(if(expand-context-to-parsed? ctx_84)" +"(if(expand-context-to-parsed? ctx_85)" "(parsed-begin12.1 rebuild-s_7 exp-body_5)" "(let-values(((rebuild-s234_0) rebuild-s_7)" "((temp235_1)" "(if(null?(cdr exp-body_5))" "(car exp-body_5)" -"(list*(core-id 'begin(expand-context-phase ctx_84)) exp-body_5))))" +"(list*(core-id 'begin(expand-context-phase ctx_85)) exp-body_5))))" "(rebuild5.1 #f #f rebuild-s234_0 temp235_1)))))))))))" "(void" "(add-core-form!*" " '#%datum" -"(lambda(s_572 ctx_85)" +"(lambda(s_572 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-#%datum)))(void)))" "(values))))" "(let-values(((disarmed-s_10)(syntax-disarm$1 s_572)))" @@ -67664,18 +67912,18 @@ static const char *startup_source = " (raise-syntax-error$1 '#%datum \"keyword misused as an expression\" #f datum_2))" "(void))" "(values))))" -"(let-values(((phase_152)(expand-context-phase ctx_85)))" -"(if(if(expand-context-to-parsed? ctx_85)(free-id-set-empty?(expand-context-stops ctx_85)) #f)" +"(let-values(((phase_150)(expand-context-phase ctx_86)))" +"(if(if(expand-context-to-parsed? ctx_86)(free-id-set-empty?(expand-context-stops ctx_86)) #f)" "(parsed-quote14.1(keep-properties-only~ s_572)(syntax->datum$1 datum_2))" -"(let-values(((s240_0) s_572)((temp241_1)(list(core-id 'quote phase_152) datum_2)))" +"(let-values(((s240_0) s_572)((temp241_1)(list(core-id 'quote phase_150) datum_2)))" "(rebuild5.1 #f #f s240_0 temp241_1))))))))))))" "(void" "(add-core-form!*" " '#%app" -"(lambda(s_577 ctx_86)" +"(lambda(s_577 ctx_87)" "(let-values((()" "(begin" -"(let-values(((obs_103)(expand-context-observer ctx_86)))" +"(let-values(((obs_103)(expand-context-observer ctx_87)))" "(if obs_103(let-values()(let-values()(call-expand-observe obs_103 'prim-#%app)))(void)))" "(values))))" "(let-values(((disarmed-s_11)(syntax-disarm$1 s_577)))" @@ -67703,22 +67951,22 @@ static const char *startup_source = "(let-values(((es_3) e243_0))" "(if(null? es_3)" "(let-values()" -"(let-values(((phase_153)(expand-context-phase ctx_86)))" -"(if(expand-context-to-parsed? ctx_86)" +"(let-values(((phase_151)(expand-context-phase ctx_87)))" +"(if(expand-context-to-parsed? ctx_87)" "(parsed-quote14.1(keep-properties-only~ s_577) null)" -"(let-values(((s246_0) s_577)((temp247_0)(list(core-id 'quote phase_153) null)))" +"(let-values(((s246_0) s_577)((temp247_0)(list(core-id 'quote phase_151) null)))" "(rebuild5.1 #f #f s246_0 temp247_0)))))" "(let-values()" "(let-values(((keep-for-parsed?_1)(eq?(system-type 'vm) 'chez-scheme)))" "(let-values(((rebuild-s_8)" -"(let-values(((ctx248_0) ctx_86)" +"(let-values(((ctx248_0) ctx_87)" "((s249_0) s_577)" "((keep-for-parsed?250_0) keep-for-parsed?_1))" "(keep-as-needed120.1 #f #f #f #f keep-for-parsed?250_0 #t ctx248_0 s249_0))))" "(let-values(((prefixless_0)(cdr(syntax-e$1 disarmed-s_11))))" "(let-values(((rebuild-prefixless_0)" "(if(syntax?$1 prefixless_0)" -"(let-values(((ctx251_0) ctx_86)" +"(let-values(((ctx251_0) ctx_87)" "((prefixless252_0) prefixless_0)" "((keep-for-parsed?253_0) keep-for-parsed?_1))" "(keep-as-needed120.1" @@ -67731,7 +67979,7 @@ static const char *startup_source = " ctx251_0" " prefixless252_0))" " #f)))" -"(let-values(((expr-ctx_1)(as-expression-context ctx_86)))" +"(let-values(((expr-ctx_1)(as-expression-context ctx_87)))" "(let-values((()" "(begin" "(let-values(((obs_104)(expand-context-observer expr-ctx_1)))" @@ -67752,23 +68000,23 @@ static const char *startup_source = "(expand9.1 #f #f #f #f #f #f temp254_0 expr-ctx255_0))))" "(let-values(((exp-es_0)" "(reverse$1" -"(let-values(((lst_401) rest-es_0))" +"(let-values(((lst_405) rest-es_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_401)))" +"(let-values()(check-list lst_405)))" "((letrec-values(((for-loop_319)" -"(lambda(fold-var_378 lst_402)" +"(lambda(fold-var_379 lst_406)" "(begin" " 'for-loop" -"(if(pair? lst_402)" -"(let-values(((e_92)(unsafe-car lst_402))" +"(if(pair? lst_406)" +"(let-values(((e_92)(unsafe-car lst_406))" "((rest_231)" -"(unsafe-cdr lst_402)))" -"(let-values(((fold-var_379)" +"(unsafe-cdr lst_406)))" "(let-values(((fold-var_380)" -" fold-var_378))" "(let-values(((fold-var_381)" +" fold-var_379))" +"(let-values(((fold-var_382)" "(let-values()" "(cons" "(let-values()" @@ -67796,21 +68044,21 @@ static const char *startup_source = " #f" " e256_0" " expr-ctx257_0))))" -" fold-var_380))))" +" fold-var_381))))" "(values" -" fold-var_381)))))" +" fold-var_382)))))" "(if(not #f)" -"(for-loop_319 fold-var_379 rest_231)" -" fold-var_379)))" -" fold-var_378)))))" +"(for-loop_319 fold-var_380 rest_231)" +" fold-var_380)))" +" fold-var_379)))))" " for-loop_319)" " null" -" lst_401))))))" -"(if(expand-context-to-parsed? ctx_86)" +" lst_405))))))" +"(if(expand-context-to-parsed? ctx_87)" "(let-values()" "(parsed-app7.1" -"(let-values(((or-part_379) rebuild-prefixless_0))" -"(if or-part_379 or-part_379 rebuild-s_8))" +"(let-values(((or-part_384) rebuild-prefixless_0))" +"(if or-part_384 or-part_384 rebuild-s_8))" " exp-rator_0" " exp-es_0))" "(let-values()" @@ -67837,10 +68085,10 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'quote" -"(lambda(s_583 ctx_87)" +"(lambda(s_583 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)))(void)))" "(values))))" "(let-values(((ok?_46 quote262_0 datum263_0)" @@ -67861,11 +68109,11 @@ static const char *startup_source = "(let-values(((s_589)(car s_588))) s_589))" "(()" "(let-values(((s_590)(cdr s_588)))" -"(let-values(((s_281)" +"(let-values(((s_286)" "(if(syntax?$1 s_590)" "(syntax-e$1 s_590)" " s_590)))" -"(if(null? s_281)" +"(if(null? s_286)" "(values)" "(raise-syntax-error$1" " #f" @@ -67876,16 +68124,16 @@ static const char *startup_source = "(values quote264_0 datum265_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_51)))))" "(values #t quote262_1 datum263_1))))))" -"(if(expand-context-to-parsed? ctx_87)" +"(if(expand-context-to-parsed? ctx_88)" "(parsed-quote14.1(keep-properties-only~ s_583)(syntax->datum$1 datum263_0))" " s_583))))))" "(void" "(add-core-form!*" " 'quote-syntax" -"(lambda(s_591 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-quote-syntax)))" "(void)))" @@ -67932,25 +68180,25 @@ static const char *startup_source = "(let-values(((s_608)(car s_607))) s_608))" "(()" "(let-values(((s_609)(cdr s_607)))" -"(let-values(((s_293)" +"(let-values(((s_298)" "(if(syntax?$1 s_609)" "(syntax-e$1 s_609)" " s_609)))" "(let-values((()" -"(let-values(((s_294)" +"(let-values(((s_299)" "(car" -" s_293)))" -"(let-values(((s_295)" +" s_298)))" +"(let-values(((s_300)" "(if(syntax?$1" -" s_294)" +" s_299)" "(syntax-e$1" -" s_294)" -" s_294)))" +" s_299)" +" s_299)))" "(values))))" "(()" "(let-values(((s_610)" "(cdr" -" s_293)))" +" s_298)))" "(let-values(((s_611)" "(if(syntax?$1" " s_610)" @@ -68007,14 +68255,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(reference-records-all-used!(expand-context-reference-records ctx_88))" +"(reference-records-all-used!(expand-context-reference-records ctx_89))" "(values))))" "(let-values(((ok?_49 _277_0 _278_0 kw279_0)" -"(let-values(((s_302) disarmed-s_12))" -"(let-values(((orig-s_53) s_302))" +"(let-values(((s_307) disarmed-s_12))" +"(let-values(((orig-s_53) s_307))" "(let-values(((_277_1 _278_1 kw279_1)" "(let-values(((s_620)" -"(if(syntax?$1 s_302)(syntax-e$1 s_302) s_302)))" +"(if(syntax?$1 s_307)(syntax-e$1 s_307) s_307)))" "(if(pair? s_620)" "(let-values(((_280_0)" "(let-values(((s_621)(car s_620))) s_621))" @@ -68074,23 +68322,23 @@ static const char *startup_source = "(values _280_0 _281_0 kw282_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_53)))))" "(values #t _277_1 _278_1 kw279_1))))))" -"(if(expand-context-to-parsed? ctx_88)" +"(if(expand-context-to-parsed? ctx_89)" "(parsed-quote-syntax15.1(keep-properties-only~ s_591) datum268_0)" "(let-values(((s286_0) s_591)((temp287_0)(list quote-syntax267_0 datum268_0 kw279_0)))" "(rebuild5.1 #f #f s286_0 temp287_0))))))" "(let-values()" -"(let-values(((datum-s_0)(remove-scopes datum273_0(expand-context-scopes ctx_88))))" -"(if(if(expand-context-to-parsed? ctx_88)(free-id-set-empty?(expand-context-stops ctx_88)) #f)" +"(let-values(((datum-s_0)(remove-scopes datum273_0(expand-context-scopes ctx_89))))" +"(if(if(expand-context-to-parsed? ctx_89)(free-id-set-empty?(expand-context-stops ctx_89)) #f)" "(parsed-quote-syntax15.1(keep-properties-only~ s_591) datum-s_0)" "(let-values(((s288_0) s_591)((temp289_0)(list quote-syntax272_0 datum-s_0)))" "(rebuild5.1 #f #f s288_0 temp289_0)))))))))))))" "(void" "(add-core-form!*" " 'if" -"(lambda(s_630 ctx_89)" +"(lambda(s_630 ctx_90)" "(let-values((()" "(begin" -"(let-values(((obs_109)(expand-context-observer ctx_89)))" +"(let-values(((obs_109)(expand-context-observer ctx_90)))" "(if obs_109(let-values()(let-values()(call-expand-observe obs_109 'prim-if)))(void)))" "(values))))" "(let-values(((disarmed-s_13)(syntax-disarm$1 s_630)))" @@ -68244,19 +68492,19 @@ static const char *startup_source = "(values if303_0 tst304_0 thn305_0 els306_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_54)))))" "(values #t if299_1 tst300_1 thn301_1 els302_1))))))" -"(let-values(((expr-ctx_2)(as-expression-context ctx_89)))" +"(let-values(((expr-ctx_2)(as-expression-context ctx_90)))" "(let-values(((tail-ctx_0)" -"(let-values(((expr-ctx313_0) expr-ctx_2)((ctx314_0) ctx_89))" +"(let-values(((expr-ctx313_0) expr-ctx_2)((ctx314_0) ctx_90))" "(as-tail-context23.1 ctx314_0 expr-ctx313_0))))" "(let-values(((rebuild-s_9)" -"(let-values(((ctx315_0) ctx_89)((s316_0) s_630))" +"(let-values(((ctx315_0) ctx_90)((s316_0) s_630))" "(keep-as-needed120.1 #f #f #f #f #f #f ctx315_0 s316_0))))" "(let-values(((exp-tst_0)" "(let-values(((temp317_0) tst300_0)((expr-ctx318_0) expr-ctx_2))" "(expand9.1 #f #f #f #f #f #f temp317_0 expr-ctx318_0))))" "(let-values((()" "(begin" -"(let-values(((obs_110)(expand-context-observer ctx_89)))" +"(let-values(((obs_110)(expand-context-observer ctx_90)))" "(if obs_110" "(let-values()(let-values()(call-expand-observe obs_110 'next)))" "(void)))" @@ -68266,7 +68514,7 @@ static const char *startup_source = "(expand9.1 #f #f #f #f #f #f temp319_0 tail-ctx320_0))))" "(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 'next)))" "(void)))" @@ -68274,7 +68522,7 @@ static const char *startup_source = "(let-values(((exp-els_0)" "(let-values(((temp321_0) els302_0)((tail-ctx322_0) tail-ctx_0))" "(expand9.1 #f #f #f #f #f #f temp321_0 tail-ctx322_0))))" -"(if(expand-context-to-parsed? ctx_89)" +"(if(expand-context-to-parsed? ctx_90)" "(parsed-if8.1 rebuild-s_9 exp-tst_0 exp-thn_0 exp-els_0)" "(let-values(((rebuild-s323_0) rebuild-s_9)" "((temp324_0)(list if299_0 exp-tst_0 exp-thn_0 exp-els_0)))" @@ -68282,10 +68530,10 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'with-continuation-mark" -"(lambda(s_666 ctx_90)" +"(lambda(s_666 ctx_91)" "(let-values((()" "(begin" -"(let-values(((obs_112)(expand-context-observer ctx_90)))" +"(let-values(((obs_112)(expand-context-observer ctx_91)))" "(if obs_112" "(let-values()(let-values()(call-expand-observe obs_112 'prim-with-continuation-mark)))" "(void)))" @@ -68370,16 +68618,16 @@ static const char *startup_source = "(values with-continuation-mark329_0 key330_0 val331_0 body332_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_55)))))" "(values #t with-continuation-mark325_1 key326_1 val327_1 body328_1))))))" -"(let-values(((expr-ctx_3)(as-expression-context ctx_90)))" +"(let-values(((expr-ctx_3)(as-expression-context ctx_91)))" "(let-values(((rebuild-s_10)" -"(let-values(((ctx339_0) ctx_90)((s340_0) s_666))" +"(let-values(((ctx339_0) ctx_91)((s340_0) s_666))" "(keep-as-needed120.1 #f #f #f #f #f #f ctx339_0 s340_0))))" "(let-values(((exp-key_0)" "(let-values(((temp341_0) key326_0)((expr-ctx342_0) expr-ctx_3))" "(expand9.1 #f #f #f #f #f #f temp341_0 expr-ctx342_0))))" "(let-values((()" "(begin" -"(let-values(((obs_113)(expand-context-observer ctx_90)))" +"(let-values(((obs_113)(expand-context-observer ctx_91)))" "(if obs_113" "(let-values()(let-values()(call-expand-observe obs_113 'next)))" "(void)))" @@ -68389,7 +68637,7 @@ static const char *startup_source = "(expand9.1 #f #f #f #f #f #f temp343_0 expr-ctx344_0))))" "(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 'next)))" "(void)))" @@ -68397,10 +68645,10 @@ static const char *startup_source = "(let-values(((exp-body_6)" "(let-values(((temp345_0) body328_0)" "((temp346_0)" -"(let-values(((expr-ctx347_0) expr-ctx_3)((ctx348_0) ctx_90))" +"(let-values(((expr-ctx347_0) expr-ctx_3)((ctx348_0) ctx_91))" "(as-tail-context23.1 ctx348_0 expr-ctx347_0))))" "(expand9.1 #f #f #f #f #f #f temp345_0 temp346_0))))" -"(if(expand-context-to-parsed? ctx_90)" +"(if(expand-context-to-parsed? ctx_91)" "(parsed-with-continuation-mark10.1 rebuild-s_10 exp-key_0 exp-val_0 exp-body_6)" "(let-values(((rebuild-s349_0) rebuild-s_10)" "((temp350_0)(list with-continuation-mark325_0 exp-key_0 exp-val_0 exp-body_6)))" @@ -68415,10 +68663,10 @@ 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_681 ctx_91)" +"(lambda(s_681 ctx_92)" "(let-values((()" "(begin" -"(let-values(((obs_115)(expand-context-observer ctx_91)))" +"(let-values(((obs_115)(expand-context-observer ctx_92)))" "(if obs_115" "(let-values()(let-values()(call-expand-observe obs_115 log-tag_1)))" "(void)))" @@ -68459,13 +68707,13 @@ static const char *startup_source = "(values #t begin351_1 e352_1))))))" "(let-values(((expr-ctx_4)" "(if last-is-tail?_0" -"(as-begin-expression-context ctx_91)" -"(as-expression-context ctx_91))))" +"(as-begin-expression-context ctx_92)" +"(as-expression-context ctx_92))))" "(let-values(((rebuild-s_11)" -"(let-values(((ctx355_0) ctx_91)((s356_0) s_681))" +"(let-values(((ctx355_0) ctx_92)((s356_0) s_681))" "(keep-as-needed120.1 #f #f #f #f #f #f ctx355_0 s356_0))))" "(let-values(((exp-es_2)" -"((letrec-values(((loop_124)" +"((letrec-values(((loop_126)" "(lambda(es_5 index_6)" "(begin" " 'loop" @@ -68473,7 +68721,7 @@ static const char *startup_source = "(if(zero? index_6)" "(let-values()" "(let-values(((obs_116)" -"(expand-context-observer ctx_91)))" +"(expand-context-observer ctx_92)))" "(if obs_116" "(let-values()" "(begin" @@ -68494,7 +68742,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_117)" "(expand-context-observer" -" ctx_91)))" +" ctx_92)))" "(if obs_117" "(let-values()" "(let-values()" @@ -68509,7 +68757,7 @@ static const char *startup_source = "(let-values(((expr-ctx359_0)" " expr-ctx_4)" "((ctx360_0)" -" ctx_91))" +" ctx_92))" "(as-tail-context23.1" " ctx360_0" " expr-ctx359_0))" @@ -68523,12 +68771,12 @@ static const char *startup_source = " #f" " temp357_0" " temp358_0))" -"(loop_124 rest-es_1(sub1 index_6))))))))))))" -" loop_124)" +"(loop_126 rest-es_1(sub1 index_6))))))))))))" +" loop_126)" " e352_0" " list-start-index_0)))" "(begin" -"(let-values(((obs_118)(expand-context-observer ctx_91)))" +"(let-values(((obs_118)(expand-context-observer ctx_92)))" "(if obs_118" "(let-values()" "(let-values()" @@ -68537,7 +68785,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_91)" +"(if(expand-context-to-parsed? ctx_92)" "(parsed-begin_0 rebuild-s_11 exp-es_2)" "(let-values(((rebuild-s361_0) rebuild-s_11)((temp362_0)(cons begin351_0 exp-es_2)))" "(rebuild5.1 #f #f rebuild-s361_0 temp362_0)))))))))))))))))))" @@ -68550,10 +68798,10 @@ static const char *startup_source = "((temp365_0) 0)" "((temp366_0) #t))" "(make-begin20.1 temp366_0 temp365_0 temp363_0 parsed-begin364_0))))" -"(lambda(s_687 ctx_92)" -"(let-values(((context_24)(expand-context-context ctx_92)))" -"(if(let-values(((or-part_380)(eq? context_24 'top-level)))" -"(if or-part_380 or-part_380(eq? context_24 'module)))" +"(lambda(s_687 ctx_93)" +"(let-values(((context_24)(expand-context-context ctx_93)))" +"(if(let-values(((or-part_385)(eq? context_24 'top-level)))" +"(if or-part_385 or-part_385(eq? context_24 'module)))" "(let-values()" "(let-values(((disarmed-s_16)(syntax-disarm$1 s_687)))" "(let-values(((ok?_54 begin367_0)" @@ -68581,8 +68829,8 @@ static const char *startup_source = "(values begin368_0)))))" "(values #t begin367_1)))" "(values #f #f)))))" -"(if ok?_54 s_687(nonempty-begin_0 s_687 ctx_92)))))" -"(let-values()(nonempty-begin_0 s_687 ctx_92))))))))" +"(if ok?_54 s_687(nonempty-begin_0 s_687 ctx_93)))))" +"(let-values()(nonempty-begin_0 s_687 ctx_93))))))))" "(void" "(add-core-form!*" " 'begin0" @@ -68590,15 +68838,15 @@ static const char *startup_source = "(make-begin20.1 temp372_0 temp371_0 temp369_0 parsed-begin0370_0))))" "(define-values" "(register-eventual-variable!?)" -"(lambda(id_122 ctx_93)" +"(lambda(id_125 ctx_94)" "(begin" -"(if(if(expand-context-need-eventually-defined ctx_93)(>=(expand-context-phase ctx_93) 1) #f)" +"(if(if(expand-context-need-eventually-defined ctx_94)(>=(expand-context-phase ctx_94) 1) #f)" "(let-values()" "(begin" "(hash-update!" -"(expand-context-need-eventually-defined ctx_93)" -"(expand-context-phase ctx_93)" -"(lambda(l_87)(cons id_122 l_87))" +"(expand-context-need-eventually-defined ctx_94)" +"(expand-context-phase ctx_94)" +"(lambda(l_87)(cons id_125 l_87))" " null)" " #t))" "(let-values() #f)))))" @@ -68610,19 +68858,19 @@ static const char *startup_source = "(begin" " 'core377" "(let-values(((s_697) s375_0))" -"(let-values(((ctx_94) ctx376_0))" +"(let-values(((ctx_95) ctx376_0))" "(let-values(((implicit-omitted?_0)(if implicit-omitted?374_0 implicit-omitted?373_0 #f)))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_119)(expand-context-observer ctx_94)))" +"(let-values(((obs_119)(expand-context-observer ctx_95)))" "(if obs_119" "(let-values()" "(let-values()(call-expand-observe obs_119 'prim-#%top)))" "(void)))" "(values))))" "(let-values(((disarmed-s_17)(syntax-disarm$1 s_697)))" -"(let-values(((id_123)" +"(let-values(((id_126)" "(if implicit-omitted?_0" "(let-values() s_697)" "(let-values()" @@ -68644,15 +68892,15 @@ static const char *startup_source = "(let-values(((s_701)" "(cdr" " s_699)))" -"(if(let-values(((or-part_381)" +"(if(let-values(((or-part_386)" "(if(syntax?$1" " s_701)" "(symbol?" "(syntax-e$1" " s_701))" " #f)))" -"(if or-part_381" -" or-part_381" +"(if or-part_386" +" or-part_386" "(symbol?" " s_701)))" " s_701" @@ -68668,9 +68916,9 @@ static const char *startup_source = " orig-s_57)))))" "(values #t #%top379_1 id380_1))))))" " id380_0)))))" -"(let-values(((b_93)" -"(let-values(((id383_0) id_123)" -"((temp384_0)(expand-context-phase ctx_94))" +"(let-values(((b_94)" +"(let-values(((id383_0) id_126)" +"((temp384_0)(expand-context-phase ctx_95))" "((temp385_0) 'ambiguous))" "(resolve+shift30.1" " temp385_0" @@ -68685,44 +68933,44 @@ static const char *startup_source = " #f" " id383_0" " temp384_0))))" -"(if(eq? b_93 'ambiguous)" -"(let-values()(raise-ambiguous-error id_123 ctx_94))" -"(if(if b_93" -"(if(module-binding? b_93)" -"(eq?(module-binding-module b_93)(root-expand-context-self-mpi ctx_94))" +"(if(eq? b_94 'ambiguous)" +"(let-values()(raise-ambiguous-error id_126 ctx_95))" +"(if(if b_94" +"(if(module-binding? b_94)" +"(eq?(module-binding-module b_94)(root-expand-context-self-mpi ctx_95))" " #f)" " #f)" "(let-values()" -"(if(expand-context-to-parsed? ctx_94)" -"(parsed-id2.1 id_123 b_93 #f)" -"(if(top-level-module-path-index?(module-binding-module b_93))" +"(if(expand-context-to-parsed? ctx_95)" +"(parsed-id2.1 id_126 b_94 #f)" +"(if(top-level-module-path-index?(module-binding-module b_94))" "(let-values() s_697)" -"(let-values() id_123))))" -"(if(register-eventual-variable!? id_123 ctx_94)" +"(let-values() id_126))))" +"(if(register-eventual-variable!? id_126 ctx_95)" "(let-values()" -"(if(expand-context-to-parsed? ctx_94)" -"(parsed-id2.1 id_123 b_93 #f)" -" id_123))" +"(if(expand-context-to-parsed? ctx_95)" +"(parsed-id2.1 id_126 b_94 #f)" +" id_126))" "(let-values()" -"(if(not(expand-context-allow-unbound? ctx_94))" +"(if(not(expand-context-allow-unbound? ctx_95))" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" id_123" +" id_126" " #f" " null" -"(syntax-debug-info-string id_123 ctx_94)))" +"(syntax-debug-info-string id_126 ctx_95)))" "(let-values()" "(let-values(((tl-id_1)" "(add-scope" -" id_123" -"(root-expand-context-top-level-bind-scope ctx_94))))" +" id_126" +"(root-expand-context-top-level-bind-scope ctx_95))))" "(let-values(((tl-b_1)" "(let-values(((tl-id386_0) tl-id_1)" "((temp387_0)" -"(expand-context-phase ctx_94)))" -"(resolve40.1" +"(expand-context-phase ctx_95)))" +"(resolve41.1" " #f" " #f" " #f" @@ -68735,10 +68983,10 @@ static const char *startup_source = " temp387_0))))" "(if tl-b_1" "(let-values()" -"(if(expand-context-to-parsed? ctx_94)" +"(if(expand-context-to-parsed? ctx_95)" "(parsed-top-id4.1 tl-id_1 tl-b_1 #f)" "(if implicit-omitted?_0" -"(let-values() id_123)" +"(let-values() id_126)" "(let-values()" "(let-values(((ok?_56 #%top388_0 id389_0)" "(let-values(((s_702) disarmed-s_17))" @@ -68760,15 +69008,15 @@ static const char *startup_source = "(let-values(((s_705)" "(cdr" " s_703)))" -"(if(let-values(((or-part_382)" +"(if(let-values(((or-part_387)" "(if(syntax?$1" " s_705)" "(symbol?" "(syntax-e$1" " s_705))" " #f)))" -"(if or-part_382" -" or-part_382" +"(if or-part_387" +" or-part_387" "(symbol?" " s_705)))" " s_705" @@ -68786,22 +69034,22 @@ static const char *startup_source = " orig-s_58)))))" "(values #t #%top388_1 id389_1))))))" "(let-values(((s392_0) s_697)" -"((temp393_0)(cons #%top388_0 id_123)))" +"((temp393_0)(cons #%top388_0 id_126)))" "(rebuild5.1 #f #f s392_0 temp393_0)))))))" "(let-values()" -"(if(expand-context-to-parsed? ctx_94)" -"(parsed-top-id4.1 id_123 b_93 #f)" +"(if(expand-context-to-parsed? ctx_95)" +"(parsed-top-id4.1 id_126 b_94 #f)" " s_697)))))))))))))))))))))))" "(case-lambda" -"((s_706 ctx_95)(core377_0 s_706 ctx_95 #f #f))" -"((s_707 ctx_96 implicit-omitted?373_1)(core377_0 s_707 ctx_96 implicit-omitted?373_1 #t))))))" +"((s_706 ctx_96)(core377_0 s_706 ctx_96 #f #f))" +"((s_707 ctx_97 implicit-omitted?373_1)(core377_0 s_707 ctx_97 implicit-omitted?373_1 #t))))))" "(void" "(add-core-form!*" " 'set!" -"(lambda(s_708 ctx_97)" +"(lambda(s_708 ctx_98)" "(let-values((()" "(begin" -"(let-values(((obs_120)(expand-context-observer ctx_97)))" +"(let-values(((obs_120)(expand-context-observer ctx_98)))" "(if obs_120(let-values()(let-values()(call-expand-observe obs_120 'prim-set!)))(void)))" "(values))))" "(let-values(((disarmed-s_18)(syntax-disarm$1 s_708)))" @@ -68821,14 +69069,14 @@ static const char *startup_source = "(if(pair? s_713)" "(let-values(((id400_0)" "(let-values(((s_714)(car s_713)))" -"(if(let-values(((or-part_383)" +"(if(let-values(((or-part_388)" "(if(syntax?$1 s_714)" "(symbol?" "(syntax-e$1" " s_714))" " #f)))" -"(if or-part_383" -" or-part_383" +"(if or-part_388" +" or-part_388" "(symbol? s_714)))" " s_714" "(raise-syntax-error$1" @@ -68876,12 +69124,12 @@ static const char *startup_source = "(values #t set!394_1 id395_1 rhs396_1))))))" "(let-values(((orig-id_1) id395_0))" "((letrec-values(((rename-loop_0)" -"(lambda(id_124 from-rename?_0)" +"(lambda(id_127 from-rename?_0)" "(begin" " 'rename-loop" "(let-values(((binding_30)" -"(let-values(((id403_0) id_124)" -"((temp404_0)(expand-context-phase ctx_97))" +"(let-values(((id403_0) id_127)" +"((temp404_0)(expand-context-phase ctx_98))" "((temp405_0) 'ambiguous)" "((temp406_0) #t))" "(resolve+shift30.1" @@ -68900,31 +69148,31 @@ static const char *startup_source = "(let-values((()" "(begin" "(if(eq? binding_30 'ambiguous)" -"(let-values()(raise-ambiguous-error id_124 ctx_97))" +"(let-values()(raise-ambiguous-error id_127 ctx_98))" "(void))" "(values))))" -"(let-values(((t_59 primitive?_11 insp_24 protected?_12)" +"(let-values(((t_60 primitive?_11 insp_24 protected?_12)" "(if binding_30" "(let-values(((binding407_0) binding_30)" -"((ctx408_0) ctx_97)" +"((ctx408_0) ctx_98)" "((s409_0) s_708))" "(lookup62.1 #f #f #f #f binding407_0 ctx408_0 s409_0))" "(values #f #f #f #f))))" "(begin" -"(let-values(((obs_121)(expand-context-observer ctx_97)))" +"(let-values(((obs_121)(expand-context-observer ctx_98)))" "(if obs_121" "(let-values()" -"(let-values()(call-expand-observe obs_121 'resolve id_124)))" +"(let-values()(call-expand-observe obs_121 'resolve id_127)))" "(void)))" -"(if(let-values(((or-part_384)(variable? t_59)))" -"(if or-part_384" -" or-part_384" +"(if(let-values(((or-part_389)(variable? t_60)))" +"(if or-part_389" +" or-part_389" "(if(not binding_30)" -"(let-values(((or-part_385)" -"(register-eventual-variable!? id_124 ctx_97)))" -"(if or-part_385" -" or-part_385" -"(expand-context-allow-unbound? ctx_97)))" +"(let-values(((or-part_390)" +"(register-eventual-variable!? id_127 ctx_98)))" +"(if or-part_390" +" or-part_390" +"(expand-context-allow-unbound? ctx_98)))" " #f)))" "(let-values()" "(let-values((()" @@ -68933,20 +69181,20 @@ static const char *startup_source = "(not" "(eq?" "(module-binding-module binding_30)" -"(root-expand-context-self-mpi ctx_97)))" +"(root-expand-context-self-mpi ctx_98)))" " #f)" "(let-values()" "(raise-syntax-error$1" " #f" " \"cannot mutate module-required identifier\"" " s_708" -" id_124))" +" id_127))" "(void))" "(values))))" "(let-values((()" "(begin" "(let-values(((obs_122)" -"(expand-context-observer ctx_97)))" +"(expand-context-observer ctx_98)))" "(if obs_122" "(let-values()" "(let-values()" @@ -68958,7 +69206,7 @@ static const char *startup_source = "(register-variable-referenced-if-local! binding_30)" "(values))))" "(let-values(((rebuild-s_12)" -"(let-values(((ctx410_0) ctx_97)((s411_0) s_708))" +"(let-values(((ctx410_0) ctx_98)((s411_0) s_708))" "(keep-as-needed120.1" " #f" " #f" @@ -68971,7 +69219,7 @@ static const char *startup_source = "(let-values(((exp-rhs_5)" "(let-values(((temp412_0) rhs396_0)" "((temp413_0)" -"(as-expression-context ctx_97)))" +"(as-expression-context ctx_98)))" "(expand9.1" " #f" " #f" @@ -68981,21 +69229,21 @@ static const char *startup_source = " #f" " temp412_0" " temp413_0))))" -"(if(expand-context-to-parsed? ctx_97)" +"(if(expand-context-to-parsed? ctx_98)" "(parsed-set!9.1" " rebuild-s_12" -"(parsed-id2.1 id_124 binding_30 #f)" +"(parsed-id2.1 id_127 binding_30 #f)" " exp-rhs_5)" "(let-values(((rebuild-s414_0) rebuild-s_12)" "((temp415_0)" "(list" " set!394_0" -"(let-values(((id416_0) id_124)" -"((t417_0) t_59)" +"(let-values(((id416_0) id_127)" +"((t417_0) t_60)" "((temp418_0)" "(free-id-set-empty-or-just-module*?" "(expand-context-stops" -" ctx_97))))" +" ctx_98))))" "(substitute-variable6.1" " temp418_0" " id416_0" @@ -69008,12 +69256,12 @@ static const char *startup_source = " #f" " \"unbound identifier\"" " s_708" -" id_124" +" id_127" " null" -"(syntax-debug-info-string id_124 ctx_97)))" -"(if(1/set!-transformer? t_59)" +"(syntax-debug-info-string id_127 ctx_98)))" +"(if(1/set!-transformer? t_60)" "(let-values()" -"(if(not-in-this-expand-context? t_59 ctx_97)" +"(if(not-in-this-expand-context? t_60 ctx_98)" "(let-values()" "(let-values(((temp419_0)" "(avoid-current-expand-context" @@ -69022,20 +69270,20 @@ static const char *startup_source = " disarmed-s_18" " set!394_0" " rhs396_0" -" id_124" +" id_127" " from-rename?_0" -" ctx_97)" -" t_59" -" ctx_97))" -"((ctx420_0) ctx_97))" +" ctx_98)" +" t_60" +" ctx_98))" +"((ctx420_0) ctx_98))" "(expand9.1 #f #f #f #f #f #f temp419_0 ctx420_0)))" "(let-values()" "(let-values(((exp-s_14 re-ctx_1)" -"(let-values(((t421_0) t_59)" +"(let-values(((t421_0) t_60)" "((insp422_0) insp_24)" "((s423_0) s_708)" "((orig-id424_0) orig-id_1)" -"((ctx425_0) ctx_97)" +"((ctx425_0) ctx_98)" "((binding426_0) binding_30)" "((orig-id427_0) orig-id_1))" "(apply-transformer52.1" @@ -69047,7 +69295,7 @@ static const char *startup_source = " orig-id424_0" " ctx425_0" " binding426_0))))" -"(if(expand-context-just-once? ctx_97)" +"(if(expand-context-just-once? ctx_98)" "(let-values() exp-s_14)" "(let-values()" "(let-values(((exp-s428_0) exp-s_14)" @@ -69061,9 +69309,9 @@ static const char *startup_source = " #f" " exp-s428_0" " re-ctx429_0))))))))" -"(if(1/rename-transformer? t_59)" +"(if(1/rename-transformer? t_60)" "(let-values()" -"(if(not-in-this-expand-context? t_59 ctx_97)" +"(if(not-in-this-expand-context? t_60 ctx_98)" "(let-values()" "(let-values(((temp430_0)" "(avoid-current-expand-context" @@ -69072,27 +69320,27 @@ static const char *startup_source = " disarmed-s_18" " set!394_0" " rhs396_0" -" id_124" +" id_127" " from-rename?_0" -" ctx_97" -" t_59)" -" t_59" -" ctx_97))" -"((ctx431_0) ctx_97))" +" ctx_98" +" t_60)" +" t_60" +" ctx_98))" +"((ctx431_0) ctx_98))" "(expand9.1 #f #f #f #f #f #f temp430_0 ctx431_0)))" "(let-values()" "(rename-loop_0" "(syntax-track-origin$1" -"(rename-transformer-target-in-context t_59 ctx_97)" -" id_124" -" id_124)" +"(rename-transformer-target-in-context t_60 ctx_98)" +" id_127" +" id_127)" " #t))))" "(let-values()" "(raise-syntax-error$1" " #f" " \"cannot mutate syntax identifier\"" " s_708" -" id_124))))))))))))))" +" id_127))))))))))))))" " rename-loop_0)" " orig-id_1" " #f))))))))" @@ -69105,19 +69353,19 @@ static const char *startup_source = "(let-values(((s_720) s25_0))" "(let-values(((disarmed-s_19) disarmed-s26_0))" "(let-values(((set!-id_0) set!-id27_0))" -"(let-values(((id_125) id28_0))" +"(let-values(((id_128) id28_0))" "(let-values(((rhs-s_0) rhs-s29_0))" "(let-values(((from-rename?_1) from-rename?30_0))" -"(let-values(((ctx_98) ctx31_0))" -"(let-values(((t_60)(if t24_0 t23_0 #f)))" +"(let-values(((ctx_99) ctx31_0))" +"(let-values(((t_61)(if t24_0 t23_0 #f)))" "(let-values()" -"(if(let-values(((or-part_386) t_60))" -"(if or-part_386 or-part_386 from-rename?_1))" +"(if(let-values(((or-part_391) t_61))" +"(if or-part_391 or-part_391 from-rename?_1))" "(let-values()" "(let-values(((new-id_1)" -"(if t_60" -"(rename-transformer-target-in-context t_60 ctx_98)" -" id_125)))" +"(if t_61" +"(rename-transformer-target-in-context t_61 ctx_99)" +" id_128)))" "(syntax-rearm$1" "(datum->syntax$1" " disarmed-s_19" @@ -69127,17 +69375,17 @@ static const char *startup_source = " s_720)))" "(let-values() s_720)))))))))))))))" "(case-lambda" -"((s_721 disarmed-s_20 set!-id_1 id_126 rhs-s_1 from-rename?_2 ctx_99)" -"(begin(substitute-set!-rename32_0 s_721 disarmed-s_20 set!-id_1 id_126 rhs-s_1 from-rename?_2 ctx_99 #f #f)))" -"((s_722 disarmed-s_21 set!-id_2 id_127 rhs-s_2 from-rename?_3 ctx_100 t23_1)" -"(substitute-set!-rename32_0 s_722 disarmed-s_21 set!-id_2 id_127 rhs-s_2 from-rename?_3 ctx_100 t23_1 #t)))))" +"((s_721 disarmed-s_20 set!-id_1 id_129 rhs-s_1 from-rename?_2 ctx_100)" +"(begin(substitute-set!-rename32_0 s_721 disarmed-s_20 set!-id_1 id_129 rhs-s_1 from-rename?_2 ctx_100 #f #f)))" +"((s_722 disarmed-s_21 set!-id_2 id_130 rhs-s_2 from-rename?_3 ctx_101 t23_1)" +"(substitute-set!-rename32_0 s_722 disarmed-s_21 set!-id_2 id_130 rhs-s_2 from-rename?_3 ctx_101 t23_1 #t)))))" "(void" "(add-core-form!*" " '#%variable-reference" -"(lambda(s_723 ctx_101)" +"(lambda(s_723 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-#%variable-reference)))" "(void)))" @@ -69152,9 +69400,9 @@ static const char *startup_source = "(let-values(((s_728)(if(syntax?$1 s_727)(syntax-e$1 s_727) s_727)))" "(if(pair? s_728)" "(if(let-values(((s_729)(car s_728)))" -"(let-values(((or-part_387)" +"(let-values(((or-part_392)" "(if(syntax?$1 s_729)(symbol?(syntax-e$1 s_729)) #f)))" -"(if or-part_387 or-part_387(symbol? s_729))))" +"(if or-part_392 or-part_392(symbol? s_729))))" "(let-values(((s_730)(cdr s_728)))" "(let-values(((s_731)(if(syntax?$1 s_730)(syntax-e$1 s_730) s_730)))" "(null? s_731)))" @@ -69201,11 +69449,11 @@ static const char *startup_source = "(if(pair? s_745)" "(if(let-values(((s_746)(car s_745))) #t)" "(let-values(((s_747)(cdr s_745)))" -"(let-values(((or-part_388)" +"(let-values(((or-part_393)" "(if(syntax?$1 s_747)" "(symbol?(syntax-e$1 s_747))" " #f)))" -"(if or-part_388 or-part_388(symbol? s_747))))" +"(if or-part_393 or-part_393(symbol? s_747))))" " #f)" " #f)))" "(let-values(((s_748)(cdr s_743)))" @@ -69257,7 +69505,7 @@ static const char *startup_source = "(values #f #f #f #f)))))" "(let-values(((ok?_60 #%variable-reference447_0)" "(let-values(((s_760) disarmed-s_22))" -"(if(if(not(let-values(((or-part_389) ok?_58))(if or-part_389 or-part_389 ok?_59)))" +"(if(if(not(let-values(((or-part_394) ok?_58))(if or-part_394 or-part_394 ok?_59)))" " #t" " #f)" "(let-values(((orig-s_60) s_760))" @@ -69282,24 +69530,24 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_60)))))" "(values #t #%variable-reference447_1)))" "(values #f #f)))))" -"(if(let-values(((or-part_390) ok?_58))(if or-part_390 or-part_390 ok?_59))" +"(if(let-values(((or-part_395) ok?_58))(if or-part_395 or-part_395 ok?_59))" "(let-values()" "(let-values(((var-id_0)(if ok?_58 id433_0 id439_0)))" "(let-values(((binding_31)" "(let-values(((var-id449_0) var-id_0)" -"((temp450_0)(expand-context-phase ctx_101))" +"((temp450_0)(expand-context-phase ctx_102))" "((temp451_0) 'ambiguous))" "(resolve+shift30.1 temp451_0 #t #f #f #f #f #f #f #f #f var-id449_0 temp450_0))))" "(let-values((()" "(begin" "(if(eq? binding_31 'ambiguous)" -"(let-values()(raise-ambiguous-error var-id_0 ctx_101))" +"(let-values()(raise-ambiguous-error var-id_0 ctx_102))" "(void))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_391) binding_31))" -"(if or-part_391 or-part_391(expand-context-allow-unbound? ctx_101)))" +"(if(let-values(((or-part_396) binding_31))" +"(if or-part_396 or-part_396(expand-context-allow-unbound? ctx_102)))" "(void)" "(let-values()" "(raise-unbound-syntax-error" @@ -69308,23 +69556,23 @@ static const char *startup_source = " s_723" " var-id_0" " null" -"(syntax-debug-info-string var-id_0 ctx_101))))" +"(syntax-debug-info-string var-id_0 ctx_102))))" "(values))))" -"(let-values(((t_61 primitive?_12 insp-of-t_7 protected?_13)" +"(let-values(((t_62 primitive?_12 insp-of-t_7 protected?_13)" "(if binding_31" "(let-values(((binding452_0) binding_31)" -"((ctx453_0) ctx_101)" +"((ctx453_0) ctx_102)" "((var-id454_0) var-id_0)" "((s455_0) s_723)" -"((temp456_0)(expand-context-in-local-expand? ctx_101)))" +"((temp456_0)(expand-context-in-local-expand? ctx_102)))" "(lookup62.1 s455_0 #t temp456_0 #t binding452_0 ctx453_0 var-id454_0))" "(values #f #f #f #f))))" "(begin" -"(if(if t_61(not(variable? t_61)) #f)" +"(if(if t_62(not(variable? t_62)) #f)" "(let-values()" " (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_723))" "(void))" -"(if(expand-context-to-parsed? ctx_101)" +"(if(expand-context-to-parsed? ctx_102)" "(parsed-#%variable-reference11.1" "(keep-properties-only~ s_723)" "(if ok?_59" @@ -69332,16 +69580,16 @@ static const char *startup_source = "(let-values()(parsed-id2.1 var-id_0 binding_31 #f))))" " s_723))))))))" "(let-values()" -"(if(expand-context-to-parsed? ctx_101)" +"(if(expand-context-to-parsed? ctx_102)" "(parsed-#%variable-reference11.1(keep-properties-only~ s_723) #f)" " s_723)))))))))))" "(void" "(add-core-form!*" " '#%expression" -"(lambda(s_765 ctx_102)" +"(lambda(s_765 ctx_103)" "(let-values((()" "(begin" -"(let-values(((obs_124)(expand-context-observer ctx_102)))" +"(let-values(((obs_124)(expand-context-observer ctx_103)))" "(if obs_124" "(let-values()(let-values()(call-expand-observe obs_124 'prim-#%expression)))" "(void)))" @@ -69383,38 +69631,38 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_61)))))" "(values #t #%expression457_1 e458_1))))))" "(let-values(((rebuild-s_13)" -"(let-values(((ctx462_0) ctx_102)((s463_0) s_765)((temp464_0) #t))" +"(let-values(((ctx462_0) ctx_103)((s463_0) s_765)((temp464_0) #t))" "(keep-as-needed120.1 temp464_0 #t #f #f #f #f ctx462_0 s463_0))))" "(let-values(((exp-e_0)" "(let-values(((temp465_0) e458_0)" "((temp466_0)" -"(let-values(((temp467_0)(as-expression-context ctx_102))" -"((ctx468_0) ctx_102))" +"(let-values(((temp467_0)(as-expression-context ctx_103))" +"((ctx468_0) ctx_103))" "(as-tail-context23.1 ctx468_0 temp467_0))))" "(expand9.1 #f #f #f #f #f #f temp465_0 temp466_0))))" -"(if(expand-context-to-parsed? ctx_102)" +"(if(expand-context-to-parsed? ctx_103)" " exp-e_0" -"(if(let-values(((or-part_392)" -"(if(expand-context-in-local-expand? ctx_102)" -"(expand-context-keep-#%expression? ctx_102)" +"(if(let-values(((or-part_397)" +"(if(expand-context-in-local-expand? ctx_103)" +"(expand-context-keep-#%expression? ctx_103)" " #f)))" -"(if or-part_392 or-part_392(eq? 'top-level(expand-context-context ctx_102))))" +"(if or-part_397 or-part_397(eq? 'top-level(expand-context-context ctx_103))))" "(let-values()" "(let-values(((rebuild-s469_0) rebuild-s_13)((temp470_0)(list #%expression457_0 exp-e_0)))" "(rebuild5.1 #f #f rebuild-s469_0 temp470_0)))" "(let-values()" "(let-values(((result-s_13)(syntax-track-origin$1 exp-e_0 rebuild-s_13)))" "(begin" -"(let-values(((obs_125)(expand-context-observer ctx_102)))" +"(let-values(((obs_125)(expand-context-observer ctx_103)))" "(if obs_125" "(let-values()(let-values()(call-expand-observe obs_125 'tag result-s_13)))" "(void)))" " result-s_13)))))))))))))" -" (void (add-core-form!* 'unquote (lambda (s_774 ctx_103) (raise-syntax-error$1 #f \"not in quasiquote\" s_774))))" -" (void (add-core-form!* 'unquote-splicing (lambda (s_775 ctx_104) (raise-syntax-error$1 #f \"not in quasiquote\" s_775))))" +" (void (add-core-form!* 'unquote (lambda (s_774 ctx_104) (raise-syntax-error$1 #f \"not in quasiquote\" s_774))))" +" (void (add-core-form!* 'unquote-splicing (lambda (s_775 ctx_105) (raise-syntax-error$1 #f \"not in quasiquote\" s_775))))" "(define-values" "(binding-for-transformer?)" -"(lambda(b_42 id_128 at-phase_12 ns_123)" +"(lambda(b_42 id_131 at-phase_12 ns_123)" "(begin" "(if(not at-phase_12)" "(let-values()" @@ -69433,41 +69681,41 @@ static const char *startup_source = "((null3_0) null)" "((ns4_1) ns_123)" "((at-phase5_0) at-phase_12)" -"((id6_0) id_128))" +"((id6_0) id_131))" "(binding-lookup50.1 #f #f #f #f b1_8 empty-env2_0 null3_0 ns4_1 at-phase5_0 id6_0))))" "(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_62 rp_1 self_30 phase_46 ctx_105)" +"(lambda(specs_0 orig-s_62 rp_1 self_30 phase_46 ctx_106)" "(begin" -"(let-values(((ns_125)(expand-context-namespace ctx_105)))" -"((letrec-values(((loop_115)" +"(let-values(((ns_125)(expand-context-namespace ctx_106)))" +"((letrec-values(((loop_118)" "(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_77) specs_1))" +"(let-values(((lst_76) specs_1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_77)))" -"((letrec-values(((for-loop_97)" +"(let-values()(check-list lst_76)))" +"((letrec-values(((for-loop_98)" "(lambda(track-stxes_1" " exp-specs_1" -" lst_403)" +" lst_407)" "(begin" " 'for-loop" -"(if(pair? lst_403)" +"(if(pair? lst_407)" "(let-values(((spec_0)" "(unsafe-car" -" lst_403))" +" lst_407))" "((rest_232)" "(unsafe-cdr" -" lst_403)))" +" lst_407)))" "(let-values(((track-stxes_2" " exp-specs_2)" "(let-values(((track-stxes_3)" @@ -69606,31 +69854,31 @@ static const char *startup_source = " for-meta3_0" " phase-level4_0" " spec5_0)" -"(let-values(((s_167)" +"(let-values(((s_170)" " disarmed-spec_0))" "(let-values(((orig-s_63)" -" s_167))" +" s_170))" "(let-values(((for-meta3_1" " phase-level4_1" " spec5_1)" -"(let-values(((s_455)" +"(let-values(((s_457)" "(if(syntax?$1" -" s_167)" +" s_170)" "(syntax-e$1" -" s_167)" -" s_167)))" +" s_170)" +" s_170)))" "(if(pair?" -" s_455)" +" s_457)" "(let-values(((for-meta6_0)" -"(let-values(((s_484)" +"(let-values(((s_485)" "(car" -" s_455)))" -" s_484))" +" s_457)))" +" s_485))" "((phase-level7_0" " spec8_0)" "(let-values(((s_776)" "(cdr" -" s_455)))" +" s_457)))" "(let-values(((s_777)" "(if(syntax?$1" " s_776)" @@ -69645,15 +69893,15 @@ static const char *startup_source = " s_777)))" " s_778))" "((spec10_0)" -"(let-values(((s_492)" +"(let-values(((s_493)" "(cdr" " s_777)))" "(let-values(((s_779)" "(if(syntax?$1" -" s_492)" +" s_493)" "(syntax-e$1" -" s_492)" -" s_492)))" +" s_493)" +" s_493)))" "(let-values(((flat-s_45)" "(to-syntax-list.1" " s_779)))" @@ -69703,7 +69951,7 @@ static const char *startup_source = "(values))))" "(let-values(((track-stxes_5" " exp-specs_5)" -"(loop_115" +"(loop_118" " spec5_0" "(phase+" " p_88" @@ -69754,23 +70002,23 @@ static const char *startup_source = "(if(pair?" " s_24)" "(let-values(((for-syntax15_0)" -"(let-values(((s_500)" +"(let-values(((s_501)" "(car" " s_24)))" -" s_500))" +" s_501))" "((spec16_0)" -"(let-values(((s_457)" +"(let-values(((s_458)" "(cdr" " s_24)))" -"(let-values(((s_307)" +"(let-values(((s_311)" "(if(syntax?$1" -" s_457)" +" s_458)" "(syntax-e$1" -" s_457)" -" s_457)))" +" s_458)" +" s_458)))" "(let-values(((flat-s_46)" "(to-syntax-list.1" -" s_307)))" +" s_311)))" "(if(not" " flat-s_46)" "(let-values()" @@ -69793,7 +70041,7 @@ static const char *startup_source = " spec14_1))))))" "(let-values(((track-stxes_6" " exp-specs_6)" -"(loop_115" +"(loop_118" " spec14_0" "(phase+" " 1" @@ -69828,29 +70076,29 @@ static const char *startup_source = "(let-values(((ok?_64" " for-label19_0" " spec20_0)" -"(let-values(((s_502)" +"(let-values(((s_503)" " disarmed-spec_0))" "(let-values(((orig-s_65)" -" s_502))" +" s_503))" "(let-values(((for-label19_1" " spec20_1)" -"(let-values(((s_483)" +"(let-values(((s_484)" "(if(syntax?$1" -" s_502)" +" s_503)" "(syntax-e$1" -" s_502)" -" s_502)))" +" s_503)" +" s_503)))" "(if(pair?" -" s_483)" +" s_484)" "(let-values(((for-label21_0)" -"(let-values(((s_168)" +"(let-values(((s_171)" "(car" -" s_483)))" -" s_168))" +" s_484)))" +" s_171))" "((spec22_0)" "(let-values(((s_27)" "(cdr" -" s_483)))" +" s_484)))" "(let-values(((s_28)" "(if(syntax?$1" " s_27)" @@ -69882,7 +70130,7 @@ static const char *startup_source = " spec20_1))))))" "(let-values(((track-stxes_7" " exp-specs_7)" -"(loop_115" +"(loop_118" " spec20_0" " #f" " protected?_15" @@ -69941,20 +70189,20 @@ static const char *startup_source = "(if(pair?" " s_780)" "(let-values(((protect27_0)" -"(let-values(((s_506)" +"(let-values(((s_508)" "(car" " s_780)))" -" s_506))" +" s_508))" "((p-spec28_0)" -"(let-values(((s_507)" +"(let-values(((s_509)" "(cdr" " s_780)))" "(let-values(((s_52)" "(if(syntax?$1" -" s_507)" +" s_509)" "(syntax-e$1" -" s_507)" -" s_507)))" +" s_509)" +" s_509)))" "(let-values(((flat-s_48)" "(to-syntax-list.1" " s_52)))" @@ -69980,7 +70228,7 @@ static const char *startup_source = " p-spec26_1))))))" "(let-values(((track-stxes_8" " exp-specs_8)" -"(loop_115" +"(loop_118" " p-spec26_0" " at-phase_13" " #t" @@ -70011,19 +70259,19 @@ static const char *startup_source = " rename31_0" " id:from32_0" " id:to33_0)" -"(let-values(((s_321)" +"(let-values(((s_324)" " disarmed-spec_0))" "(let-values(((orig-s_67)" -" s_321))" +" s_324))" "(let-values(((rename31_1" " id:from32_1" " id:to33_1)" "(let-values(((s_781)" "(if(syntax?$1" -" s_321)" +" s_324)" "(syntax-e$1" -" s_321)" -" s_321)))" +" s_324)" +" s_324)))" "(if(pair?" " s_781)" "(let-values(((rename34_0)" @@ -70045,26 +70293,26 @@ static const char *startup_source = "(if(pair?" " s_34)" "(let-values(((id:from37_0)" -"(let-values(((s_460)" +"(let-values(((s_461)" "(car" " s_34)))" -"(if(let-values(((or-part_393)" +"(if(let-values(((or-part_398)" "(if(syntax?$1" -" s_460)" +" s_461)" "(symbol?" "(syntax-e$1" -" s_460))" +" s_461))" " #f)))" -"(if or-part_393" -" or-part_393" +"(if or-part_398" +" or-part_398" "(symbol?" -" s_460)))" -" s_460" +" s_461)))" +" s_461" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_67" -" s_460))))" +" s_461))))" "((id:to38_0)" "(let-values(((s_414)" "(cdr" @@ -70081,15 +70329,15 @@ static const char *startup_source = "(let-values(((s_60)" "(car" " s_415)))" -"(if(let-values(((or-part_208)" +"(if(let-values(((or-part_210)" "(if(syntax?$1" " s_60)" "(symbol?" "(syntax-e$1" " s_60))" " #f)))" -"(if or-part_208" -" or-part_208" +"(if or-part_210" +" or-part_210" "(symbol?" " s_60)))" " s_60" @@ -70171,64 +70419,64 @@ static const char *startup_source = " struct40_0" " id:struct41_0" " id:field42_0)" -"(let-values(((s_523)" +"(let-values(((s_524)" " disarmed-spec_0))" "(let-values(((orig-s_68)" -" s_523))" +" s_524))" "(let-values(((struct40_1" " id:struct41_1" " id:field42_1)" "(let-values(((s_67)" "(if(syntax?$1" -" s_523)" +" s_524)" "(syntax-e$1" -" s_523)" -" s_523)))" +" s_524)" +" s_524)))" "(if(pair?" " s_67)" "(let-values(((struct43_0)" -"(let-values(((s_324)" +"(let-values(((s_327)" "(car" " s_67)))" -" s_324))" +" s_327))" "((id:struct44_0" " id:field45_0)" -"(let-values(((s_461)" +"(let-values(((s_462)" "(cdr" " s_67)))" -"(let-values(((s_203)" +"(let-values(((s_209)" "(if(syntax?$1" -" s_461)" +" s_462)" "(syntax-e$1" -" s_461)" -" s_461)))" +" s_462)" +" s_462)))" "(if(pair?" -" s_203)" +" s_209)" "(let-values(((id:struct46_0)" -"(let-values(((s_326)" +"(let-values(((s_329)" "(car" -" s_203)))" -"(if(let-values(((or-part_394)" +" s_209)))" +"(if(let-values(((or-part_399)" "(if(syntax?$1" -" s_326)" +" s_329)" "(symbol?" "(syntax-e$1" -" s_326))" +" s_329))" " #f)))" -"(if or-part_394" -" or-part_394" +"(if or-part_399" +" or-part_399" "(symbol?" -" s_326)))" -" s_326" +" s_329)))" +" s_329" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_68" -" s_326))))" +" s_329))))" "((id:field47_0)" "(let-values(((s_786)" "(cdr" -" s_203)))" +" s_209)))" "(let-values(((s_787)" "(if(syntax?$1" " s_786)" @@ -70238,18 +70486,18 @@ static const char *startup_source = "(if(pair?" " s_787)" "(let-values(((id:field48_0)" -"(let-values(((s_205)" +"(let-values(((s_212)" "(car" " s_787)))" -"(let-values(((s_206)" +"(let-values(((s_213)" "(if(syntax?$1" -" s_205)" +" s_212)" "(syntax-e$1" -" s_205)" -" s_205)))" +" s_212)" +" s_212)))" "(let-values(((flat-s_1)" "(to-syntax-list.1" -" s_206)))" +" s_213)))" "(if(not" " flat-s_1)" "(let-values()" @@ -70259,7 +70507,7 @@ static const char *startup_source = " orig-s_68))" "(let-values()" "(let-values(((id:field_0)" -"(let-values(((lst_155)" +"(let-values(((lst_156)" " flat-s_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -70267,20 +70515,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_155)))" +" lst_156)))" "((letrec-values(((for-loop_320)" "(lambda(id:field_1" -" lst_404)" +" lst_408)" "(begin" " 'for-loop" "(if(pair?" -" lst_404)" +" lst_408)" "(let-values(((s_788)" "(unsafe-car" -" lst_404))" +" lst_408))" "((rest_233)" "(unsafe-cdr" -" lst_404)))" +" lst_408)))" "(let-values(((id:field_2)" "(let-values(((id:field_3)" " id:field_1))" @@ -70288,15 +70536,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id:field49_0)" "(let-values()" -"(if(let-values(((or-part_395)" +"(if(let-values(((or-part_400)" "(if(syntax?$1" " s_788)" "(symbol?" "(syntax-e$1" " s_788))" " #f)))" -"(if or-part_395" -" or-part_395" +"(if or-part_400" +" or-part_400" "(symbol?" " s_788)))" " s_788" @@ -70319,21 +70567,21 @@ static const char *startup_source = " id:field_1)))))" " for-loop_320)" " null" -" lst_155)))))" +" lst_156)))))" "(reverse$1" " id:field_0))))))))" "(()" "(let-values(((s_421)" "(cdr" " s_787)))" -"(let-values(((s_526)" +"(let-values(((s_527)" "(if(syntax?$1" " s_421)" "(syntax-e$1" " s_421)" " s_421)))" "(if(null?" -" s_526)" +" s_527)" "(values)" "(raise-syntax-error$1" " #f" @@ -70390,29 +70638,29 @@ static const char *startup_source = "(let-values(((ok?_68" " all-from50_0" " mod-path51_0)" -"(let-values(((s_100)" +"(let-values(((s_97)" " disarmed-spec_0))" "(let-values(((orig-s_69)" -" s_100))" +" s_97))" "(let-values(((all-from50_1" " mod-path51_1)" -"(let-values(((s_158)" +"(let-values(((s_160)" "(if(syntax?$1" -" s_100)" +" s_97)" "(syntax-e$1" -" s_100)" -" s_100)))" +" s_97)" +" s_97)))" "(if(pair?" -" s_158)" +" s_160)" "(let-values(((all-from52_0)" -"(let-values(((s_329)" +"(let-values(((s_332)" "(car" -" s_158)))" -" s_329))" +" s_160)))" +" s_332))" "((mod-path53_0)" "(let-values(((s_68)" "(cdr" -" s_158)))" +" s_160)))" "(let-values(((s_789)" "(if(syntax?$1" " s_68)" @@ -70422,22 +70670,22 @@ static const char *startup_source = "(if(pair?" " s_789)" "(let-values(((mod-path54_0)" -"(let-values(((s_436)" +"(let-values(((s_439)" "(car" " s_789)))" -" s_436))" +" s_439))" "(()" -"(let-values(((s_104)" +"(let-values(((s_790)" "(cdr" " s_789)))" -"(let-values(((s_169)" +"(let-values(((s_172)" "(if(syntax?$1" -" s_104)" +" s_790)" "(syntax-e$1" -" s_104)" -" s_104)))" +" s_790)" +" s_790)))" "(if(null?" -" s_169)" +" s_172)" "(values)" "(raise-syntax-error$1" " #f" @@ -70470,7 +70718,7 @@ static const char *startup_source = " ns_125" " rp_1" " protected?_15" -" ctx_105)" +" ctx_106)" "(values" " null" "(list" @@ -70485,57 +70733,57 @@ static const char *startup_source = " all-from-except55_0" " mod-path56_0" " id57_0)" -"(let-values(((s_110)" +"(let-values(((s_791)" " disarmed-spec_0))" "(let-values(((orig-s_70)" -" s_110))" +" s_791))" "(let-values(((all-from-except55_1" " mod-path56_1" " id57_1)" -"(let-values(((s_517)" +"(let-values(((s_518)" "(if(syntax?$1" -" s_110)" +" s_791)" "(syntax-e$1" -" s_110)" -" s_110)))" +" s_791)" +" s_791)))" "(if(pair?" -" s_517)" +" s_518)" "(let-values(((all-from-except58_0)" "(let-values(((s_528)" "(car" -" s_517)))" +" s_518)))" " s_528))" "((mod-path59_0" " id60_0)" -"(let-values(((s_790)" +"(let-values(((s_792)" "(cdr" -" s_517)))" -"(let-values(((s_330)" +" s_518)))" +"(let-values(((s_333)" "(if(syntax?$1" -" s_790)" +" s_792)" "(syntax-e$1" -" s_790)" -" s_790)))" +" s_792)" +" s_792)))" "(if(pair?" -" s_330)" +" s_333)" "(let-values(((mod-path61_0)" -"(let-values(((s_215)" +"(let-values(((s_223)" "(car" -" s_330)))" -" s_215))" +" s_333)))" +" s_223))" "((id62_0)" -"(let-values(((s_331)" +"(let-values(((s_334)" "(cdr" -" s_330)))" -"(let-values(((s_160)" +" s_333)))" +"(let-values(((s_163)" "(if(syntax?$1" -" s_331)" +" s_334)" "(syntax-e$1" -" s_331)" -" s_331)))" +" s_334)" +" s_334)))" "(let-values(((flat-s_49)" "(to-syntax-list.1" -" s_160)))" +" s_163)))" "(if(not" " flat-s_49)" "(let-values()" @@ -70544,8 +70792,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_70))" "(let-values()" -"(let-values(((id_129)" -"(let-values(((lst_405)" +"(let-values(((id_132)" +"(let-values(((lst_409)" " flat-s_49))" "(begin" "(if(variable-reference-from-unsafe?" @@ -70553,61 +70801,61 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_405)))" +" lst_409)))" "((letrec-values(((for-loop_321)" -"(lambda(id_130" -" lst_406)" +"(lambda(id_133" +" lst_410)" "(begin" " 'for-loop" "(if(pair?" -" lst_406)" -"(let-values(((s_116)" +" lst_410)" +"(let-values(((s_106)" "(unsafe-car" -" lst_406))" +" lst_410))" "((rest_234)" "(unsafe-cdr" -" lst_406)))" -"(let-values(((id_131)" -"(let-values(((id_132)" -" id_130))" -"(let-values(((id_133)" +" lst_410)))" +"(let-values(((id_134)" +"(let-values(((id_135)" +" id_133))" +"(let-values(((id_136)" "(let-values()" "(let-values(((id63_0)" "(let-values()" -"(if(let-values(((or-part_396)" +"(if(let-values(((or-part_401)" "(if(syntax?$1" -" s_116)" +" s_106)" "(symbol?" "(syntax-e$1" -" s_116))" +" s_106))" " #f)))" -"(if or-part_396" -" or-part_396" +"(if or-part_401" +" or-part_401" "(symbol?" -" s_116)))" -" s_116" +" s_106)))" +" s_106" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_70" -" s_116)))))" +" s_106)))))" "(cons" " id63_0" -" id_132)))))" +" id_135)))))" "(values" -" id_133)))))" +" id_136)))))" "(if(not" " #f)" "(for-loop_321" -" id_131" +" id_134" " rest_234)" -" id_131)))" -" id_130)))))" +" id_134)))" +" id_133)))))" " for-loop_321)" " null" -" lst_405)))))" +" lst_409)))))" "(reverse$1" -" id_129)))))))))" +" id_132)))))))))" "(values" " mod-path61_0" " id62_0))" @@ -70638,7 +70886,7 @@ static const char *startup_source = " ns_125" " rp_1" " protected?_15" -" ctx_105)" +" ctx_106)" "(values" " null" "(list" @@ -70657,36 +70905,36 @@ static const char *startup_source = "(values))))" "(let-values(((ok?_70" " all-defined64_0)" -"(let-values(((s_791)" +"(let-values(((s_793)" " disarmed-spec_0))" "(let-values(((orig-s_71)" -" s_791))" +" s_793))" "(let-values(((all-defined64_1)" -"(let-values(((s_446)" +"(let-values(((s_794)" "(if(syntax?$1" -" s_791)" +" s_793)" "(syntax-e$1" -" s_791)" -" s_791)))" +" s_793)" +" s_793)))" "(if(pair?" -" s_446)" +" s_794)" "(let-values(((all-defined65_0)" -"(let-values(((s_122)" +"(let-values(((s_113)" "(car" -" s_446)))" -" s_122))" +" s_794)))" +" s_113))" "(()" -"(let-values(((s_123)" +"(let-values(((s_795)" "(cdr" -" s_446)))" -"(let-values(((s_124)" +" s_794)))" +"(let-values(((s_796)" "(if(syntax?$1" -" s_123)" +" s_795)" "(syntax-e$1" -" s_123)" -" s_123)))" +" s_795)" +" s_795)))" "(if(null?" -" s_124)" +" s_796)" "(values)" "(raise-syntax-error$1" " #f" @@ -70725,38 +70973,38 @@ static const char *startup_source = "(let-values(((ok?_71" " all-defined-except66_0" " id67_0)" -"(let-values(((s_468)" +"(let-values(((s_471)" " disarmed-spec_0))" "(let-values(((orig-s_72)" -" s_468))" +" s_471))" "(let-values(((all-defined-except66_1" " id67_1)" -"(let-values(((s_792)" +"(let-values(((s_797)" "(if(syntax?$1" -" s_468)" +" s_471)" "(syntax-e$1" -" s_468)" -" s_468)))" +" s_471)" +" s_471)))" "(if(pair?" -" s_792)" +" s_797)" "(let-values(((all-defined-except68_0)" -"(let-values(((s_430)" +"(let-values(((s_121)" "(car" -" s_792)))" -" s_430))" +" s_797)))" +" s_121))" "((id69_0)" -"(let-values(((s_793)" +"(let-values(((s_798)" "(cdr" -" s_792)))" -"(let-values(((s_794)" +" s_797)))" +"(let-values(((s_799)" "(if(syntax?$1" -" s_793)" +" s_798)" "(syntax-e$1" -" s_793)" -" s_793)))" +" s_798)" +" s_798)))" "(let-values(((flat-s_50)" "(to-syntax-list.1" -" s_794)))" +" s_799)))" "(if(not" " flat-s_50)" "(let-values()" @@ -70765,8 +71013,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_72))" "(let-values()" -"(let-values(((id_134)" -"(let-values(((lst_407)" +"(let-values(((id_137)" +"(let-values(((lst_411)" " flat-s_50))" "(begin" "(if(variable-reference-from-unsafe?" @@ -70774,61 +71022,61 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_407)))" +" lst_411)))" "((letrec-values(((for-loop_322)" -"(lambda(id_33" -" lst_408)" +"(lambda(id_34" +" lst_412)" "(begin" " 'for-loop" "(if(pair?" -" lst_408)" -"(let-values(((s_448)" +" lst_412)" +"(let-values(((s_800)" "(unsafe-car" -" lst_408))" +" lst_412))" "((rest_235)" "(unsafe-cdr" -" lst_408)))" -"(let-values(((id_135)" -"(let-values(((id_136)" -" id_33))" -"(let-values(((id_137)" +" lst_412)))" +"(let-values(((id_138)" +"(let-values(((id_139)" +" id_34))" +"(let-values(((id_140)" "(let-values()" "(let-values(((id70_0)" "(let-values()" -"(if(let-values(((or-part_397)" +"(if(let-values(((or-part_402)" "(if(syntax?$1" -" s_448)" +" s_800)" "(symbol?" "(syntax-e$1" -" s_448))" +" s_800))" " #f)))" -"(if or-part_397" -" or-part_397" +"(if or-part_402" +" or-part_402" "(symbol?" -" s_448)))" -" s_448" +" s_800)))" +" s_800" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_72" -" s_448)))))" +" s_800)))))" "(cons" " id70_0" -" id_136)))))" +" id_139)))))" "(values" -" id_137)))))" +" id_140)))))" "(if(not" " #f)" "(for-loop_322" -" id_135" +" id_138" " rest_235)" -" id_135)))" -" id_33)))))" +" id_138)))" +" id_34)))))" " for-loop_322)" " null" -" lst_407)))))" +" lst_411)))))" "(reverse$1" -" id_134)))))))))" +" id_137)))))))))" "(values" " all-defined-except68_0" " id69_0))" @@ -70867,70 +71115,70 @@ static const char *startup_source = "(let-values(((ok?_72" " prefix-all-defined71_0" " id:prefix72_0)" -"(let-values(((s_795)" +"(let-values(((s_801)" " disarmed-spec_0))" "(let-values(((orig-s_73)" -" s_795))" +" s_801))" "(let-values(((prefix-all-defined71_1" " id:prefix72_1)" -"(let-values(((s_229)" +"(let-values(((s_233)" "(if(syntax?$1" -" s_795)" +" s_801)" "(syntax-e$1" -" s_795)" -" s_795)))" +" s_801)" +" s_801)))" "(if(pair?" -" s_229)" +" s_233)" "(let-values(((prefix-all-defined73_0)" -"(let-values(((s_796)" +"(let-values(((s_802)" "(car" -" s_229)))" -" s_796))" +" s_233)))" +" s_802))" "((id:prefix74_0)" -"(let-values(((s_230)" +"(let-values(((s_234)" "(cdr" -" s_229)))" -"(let-values(((s_231)" +" s_233)))" +"(let-values(((s_131)" "(if(syntax?$1" -" s_230)" +" s_234)" "(syntax-e$1" -" s_230)" -" s_230)))" +" s_234)" +" s_234)))" "(if(pair?" -" s_231)" +" s_131)" "(let-values(((id:prefix75_0)" -"(let-values(((s_334)" +"(let-values(((s_337)" "(car" -" s_231)))" -"(if(let-values(((or-part_398)" +" s_131)))" +"(if(let-values(((or-part_111)" "(if(syntax?$1" -" s_334)" +" s_337)" "(symbol?" "(syntax-e$1" -" s_334))" +" s_337))" " #f)))" -"(if or-part_398" -" or-part_398" +"(if or-part_111" +" or-part_111" "(symbol?" -" s_334)))" -" s_334" +" s_337)))" +" s_337" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_73" -" s_334))))" +" s_337))))" "(()" -"(let-values(((s_233)" +"(let-values(((s_236)" "(cdr" -" s_231)))" -"(let-values(((s_336)" +" s_131)))" +"(let-values(((s_132)" "(if(syntax?$1" -" s_233)" +" s_236)" "(syntax-e$1" -" s_233)" -" s_233)))" +" s_236)" +" s_236)))" "(if(null?" -" s_336)" +" s_132)" "(values)" "(raise-syntax-error$1" " #f" @@ -70982,73 +71230,73 @@ static const char *startup_source = " prefix-all-defined-except76_0" " id:prefix77_0" " id78_0)" -"(let-values(((s_797)" +"(let-values(((s_803)" " disarmed-spec_0))" "(let-values(((orig-s_74)" -" s_797))" +" s_803))" "(let-values(((prefix-all-defined-except76_1" " id:prefix77_1" " id78_1)" -"(let-values(((s_346)" -"(if(syntax?$1" -" s_797)" -"(syntax-e$1" -" s_797)" -" s_797)))" -"(if(pair?" -" s_346)" -"(let-values(((prefix-all-defined-except79_0)" "(let-values(((s_348)" +"(if(syntax?$1" +" s_803)" +"(syntax-e$1" +" s_803)" +" s_803)))" +"(if(pair?" +" s_348)" +"(let-values(((prefix-all-defined-except79_0)" +"(let-values(((s_350)" "(car" -" s_346)))" -" s_348))" +" s_348)))" +" s_350))" "((id:prefix80_0" " id81_0)" -"(let-values(((s_349)" +"(let-values(((s_351)" "(cdr" -" s_346)))" -"(let-values(((s_350)" +" s_348)))" +"(let-values(((s_352)" "(if(syntax?$1" -" s_349)" +" s_351)" "(syntax-e$1" -" s_349)" -" s_349)))" +" s_351)" +" s_351)))" "(if(pair?" -" s_350)" +" s_352)" "(let-values(((id:prefix82_0)" -"(let-values(((s_798)" +"(let-values(((s_804)" "(car" -" s_350)))" -"(if(let-values(((or-part_343)" +" s_352)))" +"(if(let-values(((or-part_344)" "(if(syntax?$1" -" s_798)" +" s_804)" "(symbol?" "(syntax-e$1" -" s_798))" +" s_804))" " #f)))" -"(if or-part_343" -" or-part_343" +"(if or-part_344" +" or-part_344" "(symbol?" -" s_798)))" -" s_798" +" s_804)))" +" s_804" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_74" -" s_798))))" +" s_804))))" "((id83_0)" -"(let-values(((s_241)" +"(let-values(((s_244)" "(cdr" -" s_350)))" -"(let-values(((s_242)" +" s_352)))" +"(let-values(((s_245)" "(if(syntax?$1" -" s_241)" +" s_244)" "(syntax-e$1" -" s_241)" -" s_241)))" +" s_244)" +" s_244)))" "(let-values(((flat-s_51)" "(to-syntax-list.1" -" s_242)))" +" s_245)))" "(if(not" " flat-s_51)" "(let-values()" @@ -71057,8 +71305,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_74))" "(let-values()" -"(let-values(((id_138)" -"(let-values(((lst_409)" +"(let-values(((id_141)" +"(let-values(((lst_413)" " flat-s_51))" "(begin" "(if(variable-reference-from-unsafe?" @@ -71066,36 +71314,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_409)))" +" lst_413)))" "((letrec-values(((for-loop_323)" -"(lambda(id_139" -" lst_410)" +"(lambda(id_142" +" lst_414)" "(begin" " 'for-loop" "(if(pair?" -" lst_410)" +" lst_414)" "(let-values(((s_535)" "(unsafe-car" -" lst_410))" +" lst_414))" "((rest_236)" "(unsafe-cdr" -" lst_410)))" -"(let-values(((id_140)" -"(let-values(((id_141)" -" id_139))" -"(let-values(((id_35)" +" lst_414)))" +"(let-values(((id_143)" +"(let-values(((id_90)" +" id_142))" +"(let-values(((id_36)" "(let-values()" "(let-values(((id84_2)" "(let-values()" -"(if(let-values(((or-part_399)" +"(if(let-values(((or-part_403)" "(if(syntax?$1" " s_535)" "(symbol?" "(syntax-e$1" " s_535))" " #f)))" -"(if or-part_399" -" or-part_399" +"(if or-part_403" +" or-part_403" "(symbol?" " s_535)))" " s_535" @@ -71106,21 +71354,21 @@ static const char *startup_source = " s_535)))))" "(cons" " id84_2" -" id_141)))))" +" id_90)))))" "(values" -" id_35)))))" +" id_36)))))" "(if(not" " #f)" "(for-loop_323" -" id_140" +" id_143" " rest_236)" -" id_140)))" -" id_139)))))" +" id_143)))" +" id_142)))))" " for-loop_323)" " null" -" lst_409)))))" +" lst_413)))))" "(reverse$1" -" id_138)))))))))" +" id_141)))))))))" "(values" " id:prefix82_0" " id83_0))" @@ -71162,97 +71410,97 @@ static const char *startup_source = " expand85_0" " id86_0" " datum87_0)" -"(let-values(((s_257)" +"(let-values(((s_260)" " disarmed-spec_0))" "(let-values(((orig-s_75)" -" s_257))" +" s_260))" "(let-values(((expand85_1" " id86_1" " datum87_1)" -"(let-values(((s_369)" +"(let-values(((s_371)" "(if(syntax?$1" -" s_257)" +" s_260)" "(syntax-e$1" -" s_257)" -" s_257)))" +" s_260)" +" s_260)))" "(if(pair?" -" s_369)" +" s_371)" "(let-values(((expand88_0)" -"(let-values(((s_799)" +"(let-values(((s_805)" "(car" -" s_369)))" -" s_799))" +" s_371)))" +" s_805))" "((id89_1" " datum90_0)" -"(let-values(((s_800)" +"(let-values(((s_806)" "(cdr" -" s_369)))" +" s_371)))" "(let-values(((s_542)" "(if(syntax?$1" -" s_800)" +" s_806)" "(syntax-e$1" -" s_800)" -" s_800)))" +" s_806)" +" s_806)))" "(if(pair?" " s_542)" "(let-values(((id91_0" " datum92_0)" -"(let-values(((s_801)" +"(let-values(((s_807)" "(car" " s_542)))" -"(let-values(((s_802)" +"(let-values(((s_808)" "(if(syntax?$1" -" s_801)" +" s_807)" "(syntax-e$1" -" s_801)" -" s_801)))" +" s_807)" +" s_807)))" "(if(pair?" -" s_802)" -"(let-values(((id93_1)" -"(let-values(((s_376)" +" s_808)" +"(let-values(((id93_2)" +"(let-values(((s_378)" "(car" -" s_802)))" -"(if(let-values(((or-part_115)" +" s_808)))" +"(if(let-values(((or-part_404)" "(if(syntax?$1" -" s_376)" +" s_378)" "(symbol?" "(syntax-e$1" -" s_376))" +" s_378))" " #f)))" -"(if or-part_115" -" or-part_115" +"(if or-part_404" +" or-part_404" "(symbol?" -" s_376)))" -" s_376" +" s_378)))" +" s_378" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_75" -" s_376))))" +" s_378))))" "((datum94_0)" -"(let-values(((s_377)" +"(let-values(((s_379)" "(cdr" -" s_802)))" -" s_377)))" +" s_808)))" +" s_379)))" "(values" -" id93_1" +" id93_2" " datum94_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_75)))))" "(()" -"(let-values(((s_378)" +"(let-values(((s_380)" "(cdr" " s_542)))" -"(let-values(((s_379)" +"(let-values(((s_381)" "(if(syntax?$1" -" s_378)" +" s_380)" "(syntax-e$1" -" s_378)" -" s_378)))" +" s_380)" +" s_380)))" "(if(null?" -" s_379)" +" s_381)" "(values)" "(raise-syntax-error$1" " #f" @@ -71281,54 +71529,54 @@ static const char *startup_source = "(let-values(((ok?_75" " expand95_0" " form96_0)" -"(let-values(((s_803)" +"(let-values(((s_809)" " disarmed-spec_0))" "(let-values(((orig-s_76)" -" s_803))" +" s_809))" "(let-values(((expand95_1" " form96_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(((expand97_0)" -"(let-values(((s_133)" +"(let-values(((s_383)" "(car" -" s_804)))" -" s_133))" +" s_810)))" +" s_383))" "((form98_0)" -"(let-values(((s_805)" +"(let-values(((s_811)" "(cdr" -" s_804)))" +" s_810)))" "(let-values(((s_545)" "(if(syntax?$1" -" s_805)" +" s_811)" "(syntax-e$1" -" s_805)" -" s_805)))" +" s_811)" +" s_811)))" "(if(pair?" " s_545)" "(let-values(((form99_0)" -"(let-values(((s_382)" +"(let-values(((s_385)" "(car" " s_545)))" -" s_382))" +" s_385))" "(()" -"(let-values(((s_383)" +"(let-values(((s_386)" "(cdr" " s_545)))" -"(let-values(((s_806)" +"(let-values(((s_812)" "(if(syntax?$1" -" s_383)" +" s_386)" "(syntax-e$1" -" s_383)" -" s_383)))" +" s_386)" +" s_386)))" "(if(null?" -" s_806)" +" s_812)" "(values)" "(raise-syntax-error$1" " #f" @@ -71352,24 +71600,24 @@ static const char *startup_source = " expand95_1" " form96_1))))))" "(let-values(((exp-spec_0)" -"(let-values(((temp104_5)" +"(let-values(((temp104_4)" " form96_0)" "((temp105_5)" -"(let-values(((v_267)" -" ctx_105))" -"(let-values(((the-struct_99)" -" v_267))" +"(let-values(((v_269)" +" ctx_106))" +"(let-values(((the-struct_98)" +" v_269))" "(if(expand-context/outer?" -" the-struct_99)" +" the-struct_98)" "(let-values(((def-ctx-scopes106_0)" "(box" " null))" "((inner107_0)" -"(let-values(((the-struct_100)" +"(let-values(((the-struct_99)" "(root-expand-context/outer-inner" -" v_267)))" +" v_269)))" "(if(expand-context/inner?" -" the-struct_100)" +" the-struct_99)" "(let-values(((stops108_0)" "(free-id-set" " at-phase_13" @@ -71379,93 +71627,93 @@ static const char *startup_source = " at-phase_13)))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_100)" +" the-struct_99)" "(root-expand-context/inner-module-scopes" -" the-struct_100)" +" the-struct_99)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_100)" +" the-struct_99)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_100)" +" the-struct_99)" "(root-expand-context/inner-defined-syms" -" the-struct_100)" +" the-struct_99)" "(root-expand-context/inner-counter" -" the-struct_100)" +" the-struct_99)" "(root-expand-context/inner-lift-key" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-to-parsed?" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-phase" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-namespace" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-just-once?" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-module-begin-k" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-allow-unbound?" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-in-local-expand?" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-keep-#%expression?" -" the-struct_100)" +" the-struct_99)" " stops108_0" "(expand-context/inner-declared-submodule-names" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-lifts" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-lift-envs" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-module-lifts" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-require-lifts" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-to-module-lifts" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-requires+provides" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-observer" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-for-serializable?" -" the-struct_100)" +" the-struct_99)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_100)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_100)))))" -"(expand-context/outer1.1" -" inner107_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_99)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_99)" -"(root-expand-context/outer-frame-id" -" the-struct_99)" -"(expand-context/outer-context" -" the-struct_99)" -"(expand-context/outer-env" -" the-struct_99)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_99)" -"(expand-context/outer-scopes" -" the-struct_99)" -" def-ctx-scopes106_0" -"(expand-context/outer-binding-layer" -" the-struct_99)" -"(expand-context/outer-reference-records" -" the-struct_99)" -"(expand-context/outer-only-immediate?" -" the-struct_99)" -"(expand-context/outer-need-eventually-defined" -" the-struct_99)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_99)" -"(expand-context/outer-name" " the-struct_99)))" "(raise-argument-error" " 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_99)))))" +"(expand-context/outer1.1" +" inner107_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_98)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_98)" +"(root-expand-context/outer-frame-id" +" the-struct_98)" +"(expand-context/outer-context" +" the-struct_98)" +"(expand-context/outer-env" +" the-struct_98)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_98)" +"(expand-context/outer-scopes" +" the-struct_98)" +" def-ctx-scopes106_0" +"(expand-context/outer-binding-layer" +" the-struct_98)" +"(expand-context/outer-reference-records" +" the-struct_98)" +"(expand-context/outer-only-immediate?" +" the-struct_98)" +"(expand-context/outer-need-eventually-defined" +" the-struct_98)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_98)" +"(expand-context/outer-name" +" the-struct_98)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_99))))))" +" the-struct_98))))))" "(expand9.1" " #f" " #f" @@ -71473,7 +71721,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp104_5" +" temp104_4" " temp105_5))))" "(let-values((()" "(begin" @@ -71517,23 +71765,23 @@ static const char *startup_source = "(if(pair?" " s_489)" "(let-values(((begin102_0)" -"(let-values(((s_263)" +"(let-values(((s_266)" "(car" " s_489)))" -" s_263))" +" s_266))" "((spec103_0)" -"(let-values(((s_134)" +"(let-values(((s_267)" "(cdr" " s_489)))" -"(let-values(((s_807)" +"(let-values(((s_813)" "(if(syntax?$1" -" s_134)" +" s_267)" "(syntax-e$1" -" s_134)" -" s_134)))" +" s_267)" +" s_267)))" "(let-values(((flat-s_52)" "(to-syntax-list.1" -" s_807)))" +" s_813)))" "(if(not" " flat-s_52)" "(let-values()" @@ -71556,7 +71804,7 @@ static const char *startup_source = " spec101_1))))))" "(let-values(((track-stxes_9" " exp-specs_9)" -"(loop_115" +"(loop_118" " spec101_0" " at-phase_13" " protected?_15" @@ -71578,7 +71826,7 @@ static const char *startup_source = " track-stxes_4" " exp-specs_4)))))" "(if(not #f)" -"(for-loop_97" +"(for-loop_98" " track-stxes_2" " exp-specs_2" " rest_232)" @@ -71588,25 +71836,25 @@ static const char *startup_source = "(values" " track-stxes_1" " exp-specs_1))))))" -" for-loop_97)" +" for-loop_98)" " null" " null" -" lst_77)))))" +" lst_76)))))" "(values(reverse$1 track-stxes_0)(reverse$1 exp-specs_0)))))" "(values(apply append track-stxess_0)(apply append exp-specss_0)))))))" -" loop_115)" +" loop_118)" " specs_0" " phase_46" " #f" " 'raw)))))" "(define-values" "(parse-identifier!)" -"(lambda(spec_1 orig-s_78 sym_105 at-phase_14 ns_126 rp_2 protected?_16)" +"(lambda(spec_1 orig-s_78 sym_106 at-phase_14 ns_126 rp_2 protected?_16)" "(begin" -"(let-values(((b_94)(resolve+shift/extra-inspector spec_1 at-phase_14 ns_126)))" +"(let-values(((b_95)(resolve+shift/extra-inspector spec_1 at-phase_14 ns_126)))" "(let-values((()" "(begin" -"(if b_94" +"(if b_95" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -71615,14 +71863,14 @@ static const char *startup_source = " orig-s_78" " spec_1)))" "(values))))" -"(let-values(((as-transformer?_7)(binding-for-transformer? b_94 spec_1 at-phase_14 ns_126)))" +"(let-values(((as-transformer?_7)(binding-for-transformer? b_95 spec_1 at-phase_14 ns_126)))" "(let-values(((immed-b_0)" "(let-values(((spec118_0) spec_1)((at-phase119_0) at-phase_14)((temp120_3) #t))" "(resolve+shift30.1 #f #f #f #f #f #f temp120_3 #t #f #f spec118_0 at-phase119_0))))" "(let-values(((rp109_0) rp_2)" -"((sym110_0) sym_105)" +"((sym110_0) sym_106)" "((at-phase111_0) at-phase_14)" -"((b112_0) b_94)" +"((b112_0) b_95)" "((immed-b113_0) immed-b_0)" "((spec114_0) spec_1)" "((orig-s115_0) orig-s_78)" @@ -71646,39 +71894,39 @@ static const char *startup_source = "(lambda(fmt_1)" "(begin" " 'mk" -"(let-values(((sym_106)(string->symbol(format fmt_1(syntax-e$1 id:struct_0)))))" -"(datum->syntax$1 id:struct_0 sym_106 id:struct_0))))))" +"(let-values(((sym_107)(string->symbol(format fmt_1(syntax-e$1 id:struct_0)))))" +"(datum->syntax$1 id:struct_0 sym_107 id:struct_0))))))" "(let-values(((mk2_0)" "(lambda(fmt_2 field-id_0)" "(begin" " 'mk2" -"(let-values(((sym_107)" +"(let-values(((sym_108)" "(string->symbol" "(format fmt_2(syntax-e$1 id:struct_0)(syntax-e$1 field-id_0)))))" -"(datum->syntax$1 id:struct_0 sym_107 id:struct_0))))))" +"(datum->syntax$1 id:struct_0 sym_108 id:struct_0))))))" "(begin" -" (let-values (((lst_411) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" +" (let-values (((lst_415) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_411)))" +"(let-values()(check-list lst_415)))" "((letrec-values(((for-loop_324)" -"(lambda(lst_412)" +"(lambda(lst_416)" "(begin" " 'for-loop" -"(if(pair? lst_412)" -"(let-values(((fmt_3)(unsafe-car lst_412))((rest_237)(unsafe-cdr lst_412)))" +"(if(pair? lst_416)" +"(let-values(((fmt_3)(unsafe-car lst_416))((rest_237)(unsafe-cdr lst_416)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((id_142)(mk_0 fmt_3)))" +"(let-values(((id_144)(mk_0 fmt_3)))" "(parse-identifier!" -" id_142" +" id_144" " orig-s_79" -"(syntax-e$1 id_142)" +"(syntax-e$1 id_144)" " at-phase_15" " ns_127" " rp_3" @@ -71688,19 +71936,19 @@ static const char *startup_source = "(if(not #f)(for-loop_324 rest_237)(values))))" "(values))))))" " for-loop_324)" -" lst_411)))" +" lst_415)))" "(void)" -"(let-values(((lst_413) fields_0))" +"(let-values(((lst_417) fields_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_413)))" +"(let-values()(check-list lst_417)))" "((letrec-values(((for-loop_325)" -"(lambda(lst_414)" +"(lambda(lst_418)" "(begin" " 'for-loop" -"(if(pair? lst_414)" -"(let-values(((field_0)(unsafe-car lst_414))((rest_238)(unsafe-cdr lst_414)))" +"(if(pair? lst_418)" +"(let-values(((field_0)(unsafe-car lst_418))((rest_238)(unsafe-cdr lst_418)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71735,11 +71983,11 @@ static const char *startup_source = "(if(not #f)(for-loop_325 rest_238)(values))))" "(values))))))" " for-loop_325)" -" lst_413)))" +" lst_417)))" "(void)))))))" "(define-values" "(parse-all-from)" -"(lambda(mod-path-stx_0 orig-s_80 self_31 except-ids_0 at-phase_16 ns_128 rp_4 protected?_18 ctx_106)" +"(lambda(mod-path-stx_0 orig-s_80 self_31 except-ids_0 at-phase_16 ns_128 rp_4 protected?_18 ctx_107)" "(begin" "(let-values(((mod-path_33)(syntax->datum$1 mod-path-stx_0)))" "(let-values((()" @@ -71749,7 +71997,7 @@ static const char *startup_source = "(let-values()" " (raise-syntax-error$1 provide-form-name \"not a module path\" orig-s_80 mod-path-stx_0)))" "(values))))" -"(let-values(((mpi_57)(module-path->mpi/context mod-path_33 ctx_106)))" +"(let-values(((mpi_57)(module-path->mpi/context mod-path_33 ctx_107)))" "(parse-all-from-module mpi_57 #f orig-s_80 except-ids_0 #f at-phase_16 ns_128 rp_4 protected?_18)))))))" "(define-values" "(parse-all-from-module)" @@ -71777,54 +72025,54 @@ static const char *startup_source = " matching-stx_0)))" "(values))))" "(let-values(((add-prefix_1)" -"(lambda(sym_108)" +"(lambda(sym_109)" "(begin" " 'add-prefix" -" (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_108)) sym_108)))))" +" (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_109)) sym_109)))))" "(let-values(((found_0)(make-hasheq)))" "(begin" -"(let-values(((lst_415) requireds_2))" +"(let-values(((lst_419) requireds_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_415)))" -"((letrec-values(((for-loop_326)" -"(lambda(lst_416)" +"(let-values()(check-list lst_419)))" +"((letrec-values(((for-loop_67)" +"(lambda(lst_420)" "(begin" " 'for-loop" -"(if(pair? lst_416)" -"(let-values(((i_192)(unsafe-car lst_416))" -"((rest_239)(unsafe-cdr lst_416)))" +"(if(pair? lst_420)" +"(let-values(((i_71)(unsafe-car lst_420))" +"((rest_239)(unsafe-cdr lst_420)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((id_143)" -"(required-id i_192)))" -"(let-values(((phase_154)" +"(let-values(((id_145)" +"(required-id i_71)))" +"(let-values(((phase_152)" "(required-phase" -" i_192)))" -"(if(let-values(((or-part_400)" +" i_71)))" +"(if(let-values(((or-part_405)" "(if matching-stx_0" "(not" "(if(eqv?" -" phase_154" +" phase_152" " at-phase_17)" "(free-identifier=?$1" -" id_143" +" id_145" "(datum->syntax$1" " matching-stx_0" "(syntax-e$1" -" id_143))" -" phase_154" -" phase_154)" +" id_145))" +" phase_152" +" phase_152)" " #f))" " #f)))" -"(if or-part_400" -" or-part_400" -"(let-values(((lst_417)" +"(if or-part_405" +" or-part_405" +"(let-values(((lst_421)" " except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -71832,65 +72080,65 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_417)))" -"((letrec-values(((for-loop_327)" -"(lambda(result_132" -" lst_418)" +" lst_421)))" +"((letrec-values(((for-loop_326)" +"(lambda(result_133" +" lst_422)" "(begin" " 'for-loop" "(if(pair?" -" lst_418)" +" lst_422)" "(let-values(((except-id_0)" "(unsafe-car" -" lst_418))" +" lst_422))" "((rest_240)" "(unsafe-cdr" -" lst_418)))" -"(let-values(((result_133)" -"(let-values()" +" lst_422)))" "(let-values(((result_134)" "(let-values()" +"(let-values(((result_135)" +"(let-values()" "(let-values()" "(if(free-identifier=?$1" -" id_143" +" id_145" " except-id_0" -" phase_154" -" phase_154)" +" phase_152" +" phase_152)" "(hash-set!" " found_0" " except-id_0" " #t)" " #f)))))" "(values" -" result_134)))))" +" result_135)))))" "(if(if(not" -"((lambda x_95" -" result_133)" +"((lambda x_97" +" result_134)" " except-id_0))" "(not" " #f)" " #f)" -"(for-loop_327" -" result_133" +"(for-loop_326" +" result_134" " rest_240)" -" result_133)))" -" result_132)))))" -" for-loop_327)" +" result_134)))" +" result_133)))))" +" for-loop_326)" " #f" -" lst_417)))))" +" lst_421)))))" "(void)" "(let-values()" -"(let-values(((b_95)" +"(let-values(((b_96)" "(resolve+shift/extra-inspector" -" id_143" -" phase_154" +" id_145" +" phase_152" " ns_129)))" "(let-values(((immed-b_1)" "(let-values(((id130_0)" -" id_143)" +" id_145)" "((phase131_0)" -" phase_154)" -"((temp132_1)" +" phase_152)" +"((temp132_2)" " #t))" "(resolve+shift30.1" " #f" @@ -71899,7 +72147,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp132_1" +" temp132_2" " #t" " #f" " #f" @@ -71910,22 +72158,22 @@ static const char *startup_source = "((temp122_3)" "(add-prefix_1" "(syntax-e$1" -" id_143)))" +" id_145)))" "((phase123_0)" -" phase_154)" +" phase_152)" "((b124_0)" -" b_95)" +" b_96)" "((immed-b125_0)" " immed-b_1)" "((id126_0)" -" id_143)" +" id_145)" "((orig-s127_0)" " orig-s_81)" "((protected?128_0)" " protected?_19)" "((temp129_2)" "(required-as-transformer?" -" i_192)))" +" i_71)))" "(add-provide!117.1" " protected?128_0" " temp129_2" @@ -71938,41 +72186,41 @@ static const char *startup_source = " orig-s127_0)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_326 rest_239)(values))))" +"(if(not #f)(for-loop_67 rest_239)(values))))" "(values))))))" -" for-loop_326)" -" lst_415)))" +" for-loop_67)" +" lst_419)))" "(void)" "(if(=(hash-count found_0)(length except-ids_1))" "(void)" "(let-values()" "(begin" -"(let-values(((lst_419) except-ids_1))" +"(let-values(((lst_423) except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_419)))" -"((letrec-values(((for-loop_328)" -"(lambda(lst_420)" +"(let-values()(check-list lst_423)))" +"((letrec-values(((for-loop_327)" +"(lambda(lst_424)" "(begin" " 'for-loop" -"(if(pair? lst_420)" -"(let-values(((except-id_1)(unsafe-car lst_420))" -"((rest_241)(unsafe-cdr lst_420)))" +"(if(pair? lst_424)" +"(let-values(((except-id_1)(unsafe-car lst_424))" +"((rest_241)(unsafe-cdr lst_424)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(if(let-values(((or-part_401)" +"(if(let-values(((or-part_406)" "(hash-ref" " found_0" " except-id_1" " #f)))" -"(if or-part_401" -" or-part_401" -"(let-values(((lst_125)" +"(if or-part_406" +" or-part_406" +"(let-values(((lst_126)" " requireds_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -71980,53 +72228,53 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_125)))" -"((letrec-values(((for-loop_162)" -"(lambda(result_135" -" lst_126)" +" lst_126)))" +"((letrec-values(((for-loop_163)" +"(lambda(result_136" +" lst_127)" "(begin" " 'for-loop" "(if(pair?" -" lst_126)" -"(let-values(((i_72)" +" lst_127)" +"(let-values(((i_195)" "(unsafe-car" -" lst_126))" +" lst_127))" "((rest_64)" "(unsafe-cdr" -" lst_126)))" -"(let-values(((result_136)" -"(let-values()" +" lst_127)))" "(let-values(((result_137)" "(let-values()" +"(let-values(((result_138)" "(let-values()" -"(let-values(((id_144)" +"(let-values()" +"(let-values(((id_146)" "(required-id" -" i_72)))" -"(let-values(((phase_155)" +" i_195)))" +"(let-values(((phase_153)" "(required-phase" -" i_72)))" +" i_195)))" "(free-identifier=?$1" -" id_144" +" id_146" " except-id_1" -" phase_155" -" phase_155)))))))" +" phase_153" +" phase_153)))))))" "(values" -" result_137)))))" +" result_138)))))" "(if(if(not" -"((lambda x_96" -" result_136)" -" i_72))" +"((lambda x_98" +" result_137)" +" i_195))" "(not" " #f)" " #f)" -"(for-loop_162" -" result_136" +"(for-loop_163" +" result_137" " rest_64)" -" result_136)))" -" result_135)))))" -" for-loop_162)" +" result_137)))" +" result_136)))))" +" for-loop_163)" " #f" -" lst_125)))))" +" lst_126)))))" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -72040,10 +72288,10 @@ static const char *startup_source = " except-id_1))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_328 rest_241)(values))))" +"(if(not #f)(for-loop_327 rest_241)(values))))" "(values))))))" -" for-loop_328)" -" lst_419)))" +" for-loop_327)" +" lst_423)))" "(void)))))))))))))" "(define-values" "(check-cross-phase-persistent-form)" @@ -72054,18 +72302,18 @@ static const char *startup_source = "(begin" " 'check-body" "(begin" -"(let-values(((lst_421) bodys_14))" +"(let-values(((lst_425) bodys_14))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_421)))" -"((letrec-values(((for-loop_329)" -"(lambda(lst_84)" +"(let-values()(check-list lst_425)))" +"((letrec-values(((for-loop_328)" +"(lambda(lst_83)" "(begin" " 'for-loop" -"(if(pair? lst_84)" -"(let-values(((body_21)(unsafe-car lst_84))" -"((rest_40)(unsafe-cdr lst_84)))" +"(if(pair? lst_83)" +"(let-values(((body_21)(unsafe-car lst_83))" +"((rest_39)(unsafe-cdr lst_83)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -72088,11 +72336,11 @@ static const char *startup_source = "(parsed-define-values-syms" " p_36))" " p_36))" -"(if(let-values(((or-part_209)" +"(if(let-values(((or-part_211)" "(parsed-#%declare?" " p_36)))" -"(if or-part_209" -" or-part_209" +"(if or-part_211" +" or-part_211" "(let-values(((or-part_3)" "(parsed-module?" " p_36)))" @@ -72107,10 +72355,10 @@ static const char *startup_source = " p_36))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_329 rest_40)(values))))" +"(if(not #f)(for-loop_328 rest_39)(values))))" "(values))))))" -" for-loop_329)" -" lst_421)))" +" for-loop_328)" +" lst_425)))" "(void)))))" "((check-expr_0)" "(lambda(e_93 num-results_0 enclosing_15)" @@ -72131,18 +72379,18 @@ static const char *startup_source = "(let-values()" "(let-values(((rands_1)(parsed-app-rands e_93)))" "(begin" -"(let-values(((lst_78) rands_1))" +"(let-values(((lst_77) rands_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_78)))" -"((letrec-values(((for-loop_82)" -"(lambda(lst_85)" +"(let-values()(check-list lst_77)))" +"((letrec-values(((for-loop_83)" +"(lambda(lst_84)" "(begin" " 'for-loop" -"(if(pair? lst_85)" -"(let-values(((rand_0)(unsafe-car lst_85))" -"((rest_242)(unsafe-cdr lst_85)))" +"(if(pair? lst_84)" +"(let-values(((rand_0)(unsafe-car lst_84))" +"((rest_242)(unsafe-cdr lst_84)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -72155,10 +72403,10 @@ static const char *startup_source = " e_93))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_82 rest_242)(values))))" +"(if(not #f)(for-loop_83 rest_242)(values))))" "(values))))))" -" for-loop_82)" -" lst_78)))" +" for-loop_83)" +" lst_77)))" "(void)" "(let-values(((tmp_64)(cross-phase-primitive-name(parsed-app-rator e_93))))" "(if(if(equal? tmp_64 'cons) #t(equal? tmp_64 'list))" @@ -72169,9 +72417,9 @@ static const char *startup_source = "(let-values()(check-count 3 num-results_0 enclosing_15))" "(if(equal? tmp_64 'gensym)" "(let-values()" -"(if(let-values(((or-part_364)(= 0(length rands_1))))" -"(if or-part_364" -" or-part_364" +"(if(let-values(((or-part_368)(= 0(length rands_1))))" +"(if or-part_368" +" or-part_368" "(if(= 1(length rands_1))" "(quoted-string?(car rands_1))" " #f)))" @@ -72193,18 +72441,18 @@ static const char *startup_source = "(if(parsed-case-lambda? e_40)" "(let-values()" "(begin" -"(let-values(((lst_271)(parsed-case-lambda-clauses e_40)))" +"(let-values(((lst_272)(parsed-case-lambda-clauses e_40)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_271)))" +"(let-values()(check-list lst_272)))" "((letrec-values(((for-loop_241)" -"(lambda(lst_422)" +"(lambda(lst_426)" "(begin" " 'for-loop" -"(if(pair? lst_422)" -"(let-values(((clause_5)(unsafe-car lst_422))" -"((rest_243)(unsafe-cdr lst_422)))" +"(if(pair? lst_426)" +"(let-values(((clause_5)(unsafe-car lst_426))" +"((rest_243)(unsafe-cdr lst_426)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -72218,24 +72466,24 @@ static const char *startup_source = "(if(not #f)(for-loop_241 rest_243)(values))))" "(values))))))" " for-loop_241)" -" lst_271)))" +" lst_272)))" "(void)))" "(if(parsed-app? e_40)" "(let-values()" "(begin" "(check-no-disallowed-expr_0(parsed-app-rator e_40))" -"(let-values(((lst_221)(parsed-app-rands e_40)))" +"(let-values(((lst_222)(parsed-app-rands e_40)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_221)))" -"((letrec-values(((for-loop_107)" -"(lambda(lst_266)" +"(let-values()(check-list lst_222)))" +"((letrec-values(((for-loop_108)" +"(lambda(lst_267)" "(begin" " 'for-loop" -"(if(pair? lst_266)" -"(let-values(((e_94)(unsafe-car lst_266))" -"((rest_193)(unsafe-cdr lst_266)))" +"(if(pair? lst_267)" +"(let-values(((e_94)(unsafe-car lst_267))" +"((rest_193)(unsafe-cdr lst_267)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -72246,10 +72494,10 @@ static const char *startup_source = " e_94))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_107 rest_193)(values))))" +"(if(not #f)(for-loop_108 rest_193)(values))))" "(values))))))" -" for-loop_107)" -" lst_221)))" +" for-loop_108)" +" lst_222)))" "(void)))" "(if(parsed-if? e_40)" "(let-values()" @@ -72259,15 +72507,15 @@ static const char *startup_source = "(check-no-disallowed-expr_0(parsed-if-els e_40))))" "(if(parsed-set!? e_40)" "(let-values()" -"(let-values(((id_145)(parsed-set!-id e_40)))" -"(let-values(((normal-b_1)(parsed-id-binding id_145)))" +"(let-values(((id_147)(parsed-set!-id e_40)))" +"(let-values(((normal-b_1)(parsed-id-binding id_147)))" "(begin" "(if(let-values(((or-part_86)(not normal-b_1)))" "(if or-part_86" " or-part_86" -"(let-values(((or-part_290)(parsed-top-id? id_145)))" -"(if or-part_290" -" or-part_290" +"(let-values(((or-part_296)(parsed-top-id? id_147)))" +"(if or-part_296" +" or-part_296" "(if(not(symbol? normal-b_1))" "(eq?(module-binding-module normal-b_1) self-mpi_6)" " #f)))))" @@ -72293,14 +72541,14 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_23)))" "((letrec-values(((for-loop_256)" -"(lambda(lst_89)" +"(lambda(lst_88)" "(begin" " 'for-loop" -"(if(pair? lst_89)" +"(if(pair? lst_88)" "(let-values(((clause_6)" -"(unsafe-car lst_89))" +"(unsafe-car lst_88))" "((rest_150)" -"(unsafe-cdr lst_89)))" +"(unsafe-cdr lst_88)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -72320,8 +72568,8 @@ static const char *startup_source = " lst_23)))" "(void)" "(check-body-no-disallowed-expr_0(parsed-let_-values-body e_40))))" -"(if(let-values(((or-part_402)(parsed-quote-syntax? e_40)))" -"(if or-part_402 or-part_402(parsed-#%variable-reference? e_40)))" +"(if(let-values(((or-part_407)(parsed-quote-syntax? e_40)))" +"(if or-part_407 or-part_407(parsed-#%variable-reference? e_40)))" "(let-values()(disallow e_40))" "(let-values()(void)))))))))))))))" "((check-body-no-disallowed-expr_0)" @@ -72329,18 +72577,18 @@ static const char *startup_source = "(begin" " 'check-body-no-disallowed-expr" "(begin" -"(let-values(((lst_81) l_48))" +"(let-values(((lst_80) l_48))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_81)))" -"((letrec-values(((for-loop_330)" -"(lambda(lst_273)" +"(let-values()(check-list lst_80)))" +"((letrec-values(((for-loop_329)" +"(lambda(lst_274)" "(begin" " 'for-loop" -"(if(pair? lst_273)" -"(let-values(((e_84)(unsafe-car lst_273))" -"((rest_146)(unsafe-cdr lst_273)))" +"(if(pair? lst_274)" +"(let-values(((e_84)(unsafe-car lst_274))" +"((rest_146)(unsafe-cdr lst_274)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -72351,10 +72599,10 @@ static const char *startup_source = " e_84))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_330 rest_146)(values))))" +"(if(not #f)(for-loop_329 rest_146)(values))))" "(values))))))" -" for-loop_330)" -" lst_81)))" +" for-loop_329)" +" lst_80)))" "(void))))))" "(check-body_0 bodys_13)))))" "(define-values" @@ -72377,7 +72625,7 @@ static const char *startup_source = "(let-values(((or-part_163)(string? d_37)))" "(if or-part_163" " or-part_163" -"(let-values(((or-part_251)(bytes? d_37)))(if or-part_251 or-part_251(null? d_37)))))))))))" +"(let-values(((or-part_253)(bytes? d_37)))(if or-part_253 or-part_253(null? d_37)))))))))))" "(let-values()(void))" "(let-values()(disallow e_12))))))" "(define-values" @@ -72385,14 +72633,14 @@ static const char *startup_source = "(lambda(e_95)(begin(if(parsed-quote? e_95)(string?(parsed-quote-datum e_95)) #f))))" "(define-values" "(cross-phase-primitive-name)" -"(lambda(id_146)" +"(lambda(id_148)" "(begin" -"(if(parsed-id? id_146)" +"(if(parsed-id? id_148)" "(let-values()" -"(let-values(((b_96)(parsed-id-binding id_146)))" -"(if(module-binding? b_96)" -"(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_96)))" -"(module-binding-sym b_96)" +"(let-values(((b_97)(parsed-id-binding id_148)))" +"(if(module-binding? b_97)" +"(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_97)))" +"(module-binding-sym b_97)" " #f)" " #f)))" "(let-values() #f)))))" @@ -72407,101 +72655,101 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'module" -"(lambda(s_43 ctx_107)" +"(lambda(s_43 ctx_108)" "(begin" -"(if(eq?(expand-context-context ctx_107) 'top-level)" +"(if(eq?(expand-context-context ctx_108) 'top-level)" "(void)" "(let-values()" "(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 \"allowed only at the top level\" s_43))))" "(let-values()" -"(let-values(((s223_1) s_43)((ctx224_0) ctx_107)((temp225_1) #f))" +"(let-values(((s223_1) s_43)((ctx224_0) ctx_108)((temp225_1) #f))" "(expand-module18.1 #f #f #f #f #f #f #f #f #f #f #f #f #f #f s223_1 ctx224_0 temp225_1)))))))" "(void" "(add-core-form!*" " 'module*" -"(lambda(s_808 ctx_108)" +"(lambda(s_814 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)))(void)))" -" (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_808)))))" +" (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_814)))))" "(void" "(add-core-form!*" " '#%module-begin" -"(lambda(s_89 ctx_109)" +"(lambda(s_89 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-module-begin)))(void)))" -"(if(eq?(expand-context-context ctx_109) 'module-begin)" +"(if(eq?(expand-context-context ctx_110) 'module-begin)" "(void)" " (let-values () (raise-syntax-error$1 #f \"not in a module-definition context\" s_89)))" -"(if(expand-context-module-begin-k ctx_109)" +"(if(expand-context-module-begin-k ctx_110)" "(void)" " (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_89)))" -"((expand-context-module-begin-k ctx_109)" +"((expand-context-module-begin-k ctx_110)" " s_89" -"(let-values(((v_268) ctx_109))" -"(let-values(((the-struct_101) v_268))" -"(if(expand-context/outer? the-struct_101)" +"(let-values(((v_270) ctx_110))" +"(let-values(((the-struct_100) v_270))" +"(if(expand-context/outer? the-struct_100)" "(let-values(((inner226_0)" -"(let-values(((the-struct_102)(root-expand-context/outer-inner v_268)))" -"(if(expand-context/inner? the-struct_102)" +"(let-values(((the-struct_101)(root-expand-context/outer-inner v_270)))" +"(if(expand-context/inner? the-struct_101)" "(let-values(((module-begin-k227_0) #f))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_102)" -"(root-expand-context/inner-module-scopes the-struct_102)" -"(root-expand-context/inner-top-level-bind-scope the-struct_102)" -"(root-expand-context/inner-all-scopes-stx the-struct_102)" -"(root-expand-context/inner-defined-syms the-struct_102)" -"(root-expand-context/inner-counter the-struct_102)" -"(root-expand-context/inner-lift-key the-struct_102)" -"(expand-context/inner-to-parsed? the-struct_102)" -"(expand-context/inner-phase the-struct_102)" -"(expand-context/inner-namespace the-struct_102)" -"(expand-context/inner-just-once? the-struct_102)" +"(root-expand-context/inner-self-mpi the-struct_101)" +"(root-expand-context/inner-module-scopes the-struct_101)" +"(root-expand-context/inner-top-level-bind-scope the-struct_101)" +"(root-expand-context/inner-all-scopes-stx the-struct_101)" +"(root-expand-context/inner-defined-syms the-struct_101)" +"(root-expand-context/inner-counter the-struct_101)" +"(root-expand-context/inner-lift-key the-struct_101)" +"(expand-context/inner-to-parsed? the-struct_101)" +"(expand-context/inner-phase the-struct_101)" +"(expand-context/inner-namespace the-struct_101)" +"(expand-context/inner-just-once? the-struct_101)" " module-begin-k227_0" -"(expand-context/inner-allow-unbound? the-struct_102)" -"(expand-context/inner-in-local-expand? the-struct_102)" -"(expand-context/inner-keep-#%expression? the-struct_102)" -"(expand-context/inner-stops the-struct_102)" -"(expand-context/inner-declared-submodule-names the-struct_102)" -"(expand-context/inner-lifts the-struct_102)" -"(expand-context/inner-lift-envs the-struct_102)" -"(expand-context/inner-module-lifts the-struct_102)" -"(expand-context/inner-require-lifts the-struct_102)" -"(expand-context/inner-to-module-lifts the-struct_102)" -"(expand-context/inner-requires+provides the-struct_102)" -"(expand-context/inner-observer the-struct_102)" -"(expand-context/inner-for-serializable? the-struct_102)" -"(expand-context/inner-should-not-encounter-macros? the-struct_102)))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_102)))))" +"(expand-context/inner-allow-unbound? the-struct_101)" +"(expand-context/inner-in-local-expand? the-struct_101)" +"(expand-context/inner-keep-#%expression? the-struct_101)" +"(expand-context/inner-stops the-struct_101)" +"(expand-context/inner-declared-submodule-names the-struct_101)" +"(expand-context/inner-lifts the-struct_101)" +"(expand-context/inner-lift-envs the-struct_101)" +"(expand-context/inner-module-lifts the-struct_101)" +"(expand-context/inner-require-lifts the-struct_101)" +"(expand-context/inner-to-module-lifts the-struct_101)" +"(expand-context/inner-requires+provides the-struct_101)" +"(expand-context/inner-observer the-struct_101)" +"(expand-context/inner-for-serializable? the-struct_101)" +"(expand-context/inner-should-not-encounter-macros? the-struct_101)))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_101)))))" "(expand-context/outer1.1" " inner226_0" -"(root-expand-context/outer-post-expansion-scope the-struct_101)" -"(root-expand-context/outer-use-site-scopes the-struct_101)" -"(root-expand-context/outer-frame-id the-struct_101)" -"(expand-context/outer-context the-struct_101)" -"(expand-context/outer-env the-struct_101)" -"(expand-context/outer-post-expansion-scope-action the-struct_101)" -"(expand-context/outer-scopes the-struct_101)" -"(expand-context/outer-def-ctx-scopes the-struct_101)" -"(expand-context/outer-binding-layer the-struct_101)" -"(expand-context/outer-reference-records the-struct_101)" -"(expand-context/outer-only-immediate? the-struct_101)" -"(expand-context/outer-need-eventually-defined the-struct_101)" -"(expand-context/outer-current-introduction-scopes the-struct_101)" -"(expand-context/outer-name the-struct_101)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_101)))))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_100)" +"(root-expand-context/outer-use-site-scopes the-struct_100)" +"(root-expand-context/outer-frame-id the-struct_100)" +"(expand-context/outer-context the-struct_100)" +"(expand-context/outer-env the-struct_100)" +"(expand-context/outer-post-expansion-scope-action the-struct_100)" +"(expand-context/outer-scopes the-struct_100)" +"(expand-context/outer-def-ctx-scopes the-struct_100)" +"(expand-context/outer-binding-layer the-struct_100)" +"(expand-context/outer-reference-records the-struct_100)" +"(expand-context/outer-only-immediate? the-struct_100)" +"(expand-context/outer-need-eventually-defined the-struct_100)" +"(expand-context/outer-current-introduction-scopes the-struct_100)" +"(expand-context/outer-name the-struct_100)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_100)))))))))" "(void" "(add-core-form!*" " '#%declare" -"(lambda(s_809 ctx_110)" +"(lambda(s_815 ctx_111)" "(begin" -"(let-values(((obs_129)(expand-context-observer ctx_110)))" +"(let-values(((obs_129)(expand-context-observer ctx_111)))" "(if obs_129(let-values()(let-values()(call-expand-observe obs_129 'prim-declare)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_809)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_815)))))" "(define-values" "(expand-module18.1)" "(lambda(always-produce-compiled?1_0" @@ -72523,7 +72771,7 @@ static const char *startup_source = " enclosing-self17_0)" "(begin" " 'expand-module18" -"(let-values(((s_482) s15_0))" +"(let-values(((s_483) s15_0))" "(let-values(((init-ctx_0) init-ctx16_0))" "(let-values(((enclosing-self_1) enclosing-self17_0))" "(let-values(((always-produce-compiled?_0)(if always-produce-compiled?8_0 always-produce-compiled?1_0 #f)))" @@ -72550,7 +72798,7 @@ static const char *startup_source = "(let-values()(call-expand-observe obs_130 'prim-module)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_24)(syntax-disarm$1 s_482)))" +"(let-values(((disarmed-s_24)(syntax-disarm$1 s_483)))" "(let-values(((ok?_77 module228_0 id:module-name229_0 initial-require230_0 body231_0)" "(let-values(((s_52) disarmed-s_24))" "(let-values(((orig-s_82) s_52))" @@ -72558,75 +72806,75 @@ static const char *startup_source = " id:module-name229_1" " initial-require230_1" " body231_1)" -"(let-values(((s_810)" +"(let-values(((s_91)" "(if(syntax?$1 s_52)" "(syntax-e$1 s_52)" " s_52)))" -"(if(pair? s_810)" +"(if(pair? s_91)" "(let-values(((module232_0)" -"(let-values(((s_318)(car s_810)))" -" s_318))" +"(let-values(((s_93)(car s_91)))" +" s_93))" "((id:module-name233_0" " initial-require234_0" " body235_0)" -"(let-values(((s_55)(cdr s_810)))" -"(let-values(((s_319)" +"(let-values(((s_55)(cdr s_91)))" +"(let-values(((s_322)" "(if(syntax?$1 s_55)" "(syntax-e$1 s_55)" " s_55)))" -"(if(pair? s_319)" +"(if(pair? s_322)" "(let-values(((id:module-name236_0)" -"(let-values(((s_811)" +"(let-values(((s_816)" "(car" -" s_319)))" +" s_322)))" "(if(let-values(((or-part_50)" "(if(syntax?$1" -" s_811)" +" s_816)" "(symbol?" "(syntax-e$1" -" s_811))" +" s_816))" " #f)))" "(if or-part_50" " or-part_50" "(symbol?" -" s_811)))" -" s_811" +" s_816)))" +" s_816" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_82" -" s_811))))" +" s_816))))" "((initial-require237_0" " body238_0)" -"(let-values(((s_509)" +"(let-values(((s_511)" "(cdr" -" s_319)))" -"(let-values(((s_812)" +" s_322)))" +"(let-values(((s_94)" "(if(syntax?$1" -" s_509)" +" s_511)" "(syntax-e$1" -" s_509)" -" s_509)))" +" s_511)" +" s_511)))" "(if(pair?" -" s_812)" +" s_94)" "(let-values(((initial-require239_0)" -"(let-values(((s_320)" +"(let-values(((s_323)" "(car" -" s_812)))" -" s_320))" +" s_94)))" +" s_323))" "((body240_0)" -"(let-values(((s_321)" +"(let-values(((s_324)" "(cdr" -" s_812)))" -"(let-values(((s_305)" +" s_94)))" +"(let-values(((s_310)" "(if(syntax?$1" -" s_321)" +" s_324)" "(syntax-e$1" -" s_321)" -" s_321)))" +" s_324)" +" s_324)))" "(let-values(((flat-s_53)" "(to-syntax-list.1" -" s_305)))" +" s_310)))" "(if(not" " flat-s_53)" "(let-values()" @@ -72665,7 +72913,7 @@ static const char *startup_source = " body231_1))))))" "(let-values(((rebuild-s_14)" "(let-values(((init-ctx253_0) init-ctx_0)" -"((s254_0) s_482)" +"((s254_0) s_483)" "((temp255_0) #t)" "((temp256_0) #t))" "(keep-as-needed120.1" @@ -72680,19 +72928,19 @@ static const char *startup_source = "(let-values(((initial-require_0)(syntax->datum$1 initial-require230_0)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_207) keep-enclosing-scope-at-phase_0))" -"(if or-part_207" -" or-part_207" +"(if(let-values(((or-part_208) keep-enclosing-scope-at-phase_0))" +"(if or-part_208" +" or-part_208" "(1/module-path? initial-require_0)))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"not a module path\"" -" s_482" +" s_483" " initial-require230_0)))" "(values))))" -"(let-values(((phase_156) 0))" +"(let-values(((phase_154) 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)))" @@ -72804,117 +73052,117 @@ static const char *startup_source = " #f" " #f" " temp266_1))))" -"(let-values(((ctx_111)" +"(let-values(((ctx_112)" "(let-values(((v_105)" "(copy-root-expand-context" " init-ctx_0" " root-ctx_6)))" -"(let-values(((the-struct_103)" +"(let-values(((the-struct_102)" " v_105))" "(if(expand-context/outer?" -" the-struct_103)" +" the-struct_102)" "(let-values(((post-expansion-scope-action267_0)" " add-scope)" "((inner268_0)" -"(let-values(((the-struct_104)" +"(let-values(((the-struct_103)" "(root-expand-context/outer-inner" " v_105)))" "(if(expand-context/inner?" -" the-struct_104)" +" the-struct_103)" "(let-values(((allow-unbound?269_0)" " #f)" "((namespace270_0)" " m-ns_18)" "((phase271_0)" -" phase_156)" +" phase_154)" "((just-once?272_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_104)" +" the-struct_103)" "(root-expand-context/inner-module-scopes" -" the-struct_104)" +" the-struct_103)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_104)" +" the-struct_103)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_104)" +" the-struct_103)" "(root-expand-context/inner-defined-syms" -" the-struct_104)" +" the-struct_103)" "(root-expand-context/inner-counter" -" the-struct_104)" +" the-struct_103)" "(root-expand-context/inner-lift-key" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-to-parsed?" -" the-struct_104)" +" the-struct_103)" " phase271_0" " namespace270_0" " just-once?272_0" "(expand-context/inner-module-begin-k" -" the-struct_104)" +" the-struct_103)" " allow-unbound?269_0" "(expand-context/inner-in-local-expand?" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-keep-#%expression?" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-stops" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-declared-submodule-names" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-lifts" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-lift-envs" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-module-lifts" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-require-lifts" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-to-module-lifts" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-requires+provides" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-observer" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-for-serializable?" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_104)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_104)))))" -"(expand-context/outer1.1" -" inner268_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_103)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_103)" -"(root-expand-context/outer-frame-id" -" the-struct_103)" -"(expand-context/outer-context" -" the-struct_103)" -"(expand-context/outer-env" -" the-struct_103)" -" post-expansion-scope-action267_0" -"(expand-context/outer-scopes" -" the-struct_103)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_103)" -"(expand-context/outer-binding-layer" -" the-struct_103)" -"(expand-context/outer-reference-records" -" the-struct_103)" -"(expand-context/outer-only-immediate?" -" the-struct_103)" -"(expand-context/outer-need-eventually-defined" -" the-struct_103)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_103)" -"(expand-context/outer-name" " the-struct_103)))" "(raise-argument-error" " 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_103)))))" +"(expand-context/outer1.1" +" inner268_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_102)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_102)" +"(root-expand-context/outer-frame-id" +" the-struct_102)" +"(expand-context/outer-context" +" the-struct_102)" +"(expand-context/outer-env" +" the-struct_102)" +" post-expansion-scope-action267_0" +"(expand-context/outer-scopes" +" the-struct_102)" +"(expand-context/outer-def-ctx-scopes" +" the-struct_102)" +"(expand-context/outer-binding-layer" +" the-struct_102)" +"(expand-context/outer-reference-records" +" the-struct_102)" +"(expand-context/outer-only-immediate?" +" the-struct_102)" +"(expand-context/outer-need-eventually-defined" +" the-struct_102)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_102)" +"(expand-context/outer-name" +" the-struct_102)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_103))))))" +" the-struct_102))))))" "(let-values(((bodys_4)" "(let-values(((scoped-s_0)" "(apply-module-scopes_0" @@ -72924,77 +73172,77 @@ static const char *startup_source = " _274_0" " _275_0" " body276_0)" -"(let-values(((s_813)" +"(let-values(((s_817)" " scoped-s_0))" "(let-values(((orig-s_83)" -" s_813))" +" s_817))" "(let-values(((_273_1" " _274_1" " _275_1" " body276_1)" -"(let-values(((s_814)" +"(let-values(((s_95)" "(if(syntax?$1" -" s_813)" +" s_817)" "(syntax-e$1" -" s_813)" -" s_813)))" +" s_817)" +" s_817)))" "(if(pair?" -" s_814)" +" s_95)" "(let-values(((_277_2)" "(let-values(((s_70)" "(car" -" s_814)))" +" s_95)))" " s_70))" "((_278_2" " _279_0" " body280_0)" -"(let-values(((s_208)" +"(let-values(((s_215)" "(cdr" -" s_814)))" -"(let-values(((s_443)" +" s_95)))" +"(let-values(((s_466)" "(if(syntax?$1" -" s_208)" +" s_215)" "(syntax-e$1" -" s_208)" -" s_208)))" +" s_215)" +" s_215)))" "(if(pair?" -" s_443)" +" s_466)" "(let-values(((_281_1)" -"(let-values(((s_99)" +"(let-values(((s_96)" "(car" -" s_443)))" -" s_99))" +" s_466)))" +" s_96))" "((_282_0" " body283_0)" "(let-values(((s_39)" "(cdr" -" s_443)))" -"(let-values(((s_157)" +" s_466)))" +"(let-values(((s_159)" "(if(syntax?$1" " s_39)" "(syntax-e$1" " s_39)" " s_39)))" "(if(pair?" -" s_157)" +" s_159)" "(let-values(((_284_0)" -"(let-values(((s_465)" +"(let-values(((s_467)" "(car" -" s_157)))" -" s_465))" +" s_159)))" +" s_467))" "((body285_0)" -"(let-values(((s_466)" +"(let-values(((s_468)" "(cdr" -" s_157)))" -"(let-values(((s_328)" +" s_159)))" +"(let-values(((s_331)" "(if(syntax?$1" -" s_466)" +" s_468)" "(syntax-e$1" -" s_466)" -" s_466)))" +" s_468)" +" s_468)))" "(let-values(((flat-s_54)" "(to-syntax-list.1" -" s_328)))" +" s_331)))" "(if(not" " flat-s_54)" "(let-values()" @@ -73167,22 +73415,22 @@ static const char *startup_source = "(set! again?_0" " #t)" "(values))))" -"(let-values(((ctx_112)" -"(let-values(((v_269)" +"(let-values(((ctx_113)" +"(let-values(((v_271)" " mb-init-ctx_0))" -"(let-values(((the-struct_105)" -" v_269))" +"(let-values(((the-struct_104)" +" v_271))" "(if(expand-context/outer?" -" the-struct_105)" +" the-struct_104)" "(let-values(((inner306_0)" -"(let-values(((the-struct_106)" +"(let-values(((the-struct_19)" "(root-expand-context/outer-inner" -" v_269)))" +" v_271)))" "(if(expand-context/inner?" -" the-struct_106)" +" the-struct_19)" "(let-values(((module-begin-k307_0)" -"(lambda(s_791" -" ctx_113)" +"(lambda(s_793" +" ctx_114)" "(begin" " 'module-begin-k307" "(let-values(((new-requires+provides_0)" @@ -73218,8 +73466,8 @@ static const char *startup_source = " compiled-module-box313_0)))" "(lambda()" "(module-begin-k_1" -" s_791" -" ctx_113))" +" s_793" +" ctx_114))" "(lambda()" "(begin" "(set! requires+provides_6" @@ -73230,94 +73478,94 @@ static const char *startup_source = " compiled-module-box310_0))))))))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_106)" +" the-struct_19)" "(root-expand-context/inner-module-scopes" -" the-struct_106)" +" the-struct_19)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_106)" +" the-struct_19)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_106)" +" the-struct_19)" "(root-expand-context/inner-defined-syms" -" the-struct_106)" +" the-struct_19)" "(root-expand-context/inner-counter" -" the-struct_106)" +" the-struct_19)" "(root-expand-context/inner-lift-key" -" the-struct_106)" +" the-struct_19)" "(expand-context/inner-to-parsed?" -" the-struct_106)" +" the-struct_19)" "(expand-context/inner-phase" -" the-struct_106)" +" the-struct_19)" "(expand-context/inner-namespace" -" the-struct_106)" +" the-struct_19)" "(expand-context/inner-just-once?" -" the-struct_106)" +" the-struct_19)" " module-begin-k307_0" "(expand-context/inner-allow-unbound?" -" the-struct_106)" +" the-struct_19)" "(expand-context/inner-in-local-expand?" -" the-struct_106)" +" the-struct_19)" "(expand-context/inner-keep-#%expression?" -" the-struct_106)" +" the-struct_19)" "(expand-context/inner-stops" -" the-struct_106)" +" the-struct_19)" "(expand-context/inner-declared-submodule-names" -" the-struct_106)" +" the-struct_19)" "(expand-context/inner-lifts" -" the-struct_106)" +" the-struct_19)" "(expand-context/inner-lift-envs" -" the-struct_106)" +" the-struct_19)" "(expand-context/inner-module-lifts" -" the-struct_106)" +" the-struct_19)" "(expand-context/inner-require-lifts" -" the-struct_106)" +" the-struct_19)" "(expand-context/inner-to-module-lifts" -" the-struct_106)" +" the-struct_19)" "(expand-context/inner-requires+provides" -" the-struct_106)" +" the-struct_19)" "(expand-context/inner-observer" -" the-struct_106)" +" the-struct_19)" "(expand-context/inner-for-serializable?" -" the-struct_106)" +" the-struct_19)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_106)))" +" the-struct_19)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_106)))))" +" the-struct_19)))))" "(expand-context/outer1.1" " inner306_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_105)" +" the-struct_104)" "(root-expand-context/outer-use-site-scopes" -" the-struct_105)" +" the-struct_104)" "(root-expand-context/outer-frame-id" -" the-struct_105)" +" the-struct_104)" "(expand-context/outer-context" -" the-struct_105)" +" the-struct_104)" "(expand-context/outer-env" -" the-struct_105)" +" the-struct_104)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_105)" +" the-struct_104)" "(expand-context/outer-scopes" -" the-struct_105)" +" the-struct_104)" "(expand-context/outer-def-ctx-scopes" -" the-struct_105)" +" the-struct_104)" "(expand-context/outer-binding-layer" -" the-struct_105)" +" the-struct_104)" "(expand-context/outer-reference-records" -" the-struct_105)" +" the-struct_104)" "(expand-context/outer-only-immediate?" -" the-struct_105)" +" the-struct_104)" "(expand-context/outer-need-eventually-defined" -" the-struct_105)" +" the-struct_104)" "(expand-context/outer-current-introduction-scopes" -" the-struct_105)" +" the-struct_104)" "(expand-context/outer-name" -" the-struct_105)))" +" the-struct_104)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_105))))))" +" the-struct_104))))))" "(let-values(((added-s_2)" "(add-scope" " mb-s_0" @@ -73326,7 +73574,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_21)" "(expand-context-observer" -" ctx_112)))" +" ctx_113)))" "(if obs_21" "(let-values()" "(let-values()" @@ -73342,38 +73590,38 @@ static const char *startup_source = "(let-values(((ok?_79" " #%module-begin301_0" " body302_0)" -"(let-values(((s_815)" +"(let-values(((s_818)" " disarmed-mb-s_0))" "(let-values(((orig-s_84)" -" s_815))" +" s_818))" "(let-values(((#%module-begin301_1" " body302_1)" -"(let-values(((s_467)" +"(let-values(((s_470)" "(if(syntax?$1" -" s_815)" +" s_818)" "(syntax-e$1" -" s_815)" -" s_815)))" +" s_818)" +" s_818)))" "(if(pair?" -" s_467)" +" s_470)" "(let-values(((#%module-begin303_0)" -"(let-values(((s_221)" +"(let-values(((s_226)" "(car" -" s_467)))" -" s_221))" +" s_470)))" +" s_226))" "((body304_0)" -"(let-values(((s_222)" +"(let-values(((s_227)" "(cdr" -" s_467)))" -"(let-values(((s_223)" +" s_470)))" +"(let-values(((s_228)" "(if(syntax?$1" -" s_222)" +" s_227)" "(syntax-e$1" -" s_222)" -" s_222)))" +" s_227)" +" s_227)))" "(let-values(((flat-s_55)" "(to-syntax-list.1" -" s_223)))" +" s_228)))" "(if(not" " flat-s_55)" "(let-values()" @@ -73398,7 +73646,7 @@ static const char *startup_source = " body302_0))" "(let-values(((rebuild-mb-s_0)" "(let-values(((ctx316_0)" -" ctx_112)" +" ctx_113)" "((mb-s317_0)" " mb-s_0))" "(keep-as-needed120.1" @@ -73421,7 +73669,7 @@ static const char *startup_source = "(let-values(((expression-expanded-bodys_0)" "((letrec-values(((pass-1-and-2-loop_0)" "(lambda(bodys_16" -" phase_157)" +" phase_155)" "(begin" " 'pass-1-and-2-loop" "(let-values(((def-ctx-scopes_8)" @@ -73429,14 +73677,14 @@ static const char *startup_source = " null)))" "(let-values(((to-parsed?_5)" "(expand-context-to-parsed?" -" ctx_112)))" +" ctx_113)))" "(let-values(((partial-body-ctx_0)" -"(let-values(((v_148)" -" ctx_112))" -"(let-values(((the-struct_107)" -" v_148))" +"(let-values(((v_149)" +" ctx_113))" +"(let-values(((the-struct_105)" +" v_149))" "(if(expand-context/outer?" -" the-struct_107)" +" the-struct_105)" "(let-values(((context326_0)" " 'module)" "((def-ctx-scopes327_0)" @@ -73444,22 +73692,22 @@ static const char *startup_source = "((need-eventually-defined328_0)" " need-eventually-defined_1)" "((inner329_0)" -"(let-values(((the-struct_108)" +"(let-values(((the-struct_106)" "(root-expand-context/outer-inner" -" v_148)))" +" v_149)))" "(if(expand-context/inner?" -" the-struct_108)" +" the-struct_106)" "(let-values(((phase330_0)" -" phase_157)" +" phase_155)" "((namespace331_0)" "(namespace->namespace-at-phase" " m-ns_18" -" phase_157))" +" phase_155))" "((stops332_0)" "(free-id-set" -" phase_157" +" phase_155" "(module-expand-stop-ids" -" phase_157)))" +" phase_155)))" "((declared-submodule-names333_0)" " declared-submodule-names_3)" "((lift-key334_0)" @@ -73479,11 +73727,11 @@ static const char *startup_source = " temp339_1)))" "((module-lifts336_0)" "(make-module-lift-context" -" phase_157" +" phase_155" " #t))" "((require-lifts337_0)" "(make-require-lift-context" -" phase_157" +" phase_155" "(let-values(((m-ns340_0)" " m-ns_18)" "((self341_0)" @@ -73499,7 +73747,7 @@ static const char *startup_source = " requires+provides342_0))))" "((to-module-lifts338_0)" "(let-values(((phase344_0)" -" phase_157)" +" phase_155)" "((module-ends345_0)" " module-ends_0)" "((temp346_1)" @@ -73510,88 +73758,88 @@ static const char *startup_source = " phase344_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_108)" +" the-struct_106)" "(root-expand-context/inner-module-scopes" -" the-struct_108)" +" the-struct_106)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_108)" +" the-struct_106)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_108)" +" the-struct_106)" "(root-expand-context/inner-defined-syms" -" the-struct_108)" +" the-struct_106)" "(root-expand-context/inner-counter" -" the-struct_108)" +" the-struct_106)" " lift-key334_0" "(expand-context/inner-to-parsed?" -" the-struct_108)" +" the-struct_106)" " phase330_0" " namespace331_0" "(expand-context/inner-just-once?" -" the-struct_108)" +" the-struct_106)" "(expand-context/inner-module-begin-k" -" the-struct_108)" +" the-struct_106)" "(expand-context/inner-allow-unbound?" -" the-struct_108)" +" the-struct_106)" "(expand-context/inner-in-local-expand?" -" the-struct_108)" +" the-struct_106)" "(expand-context/inner-keep-#%expression?" -" the-struct_108)" +" the-struct_106)" " stops332_0" " declared-submodule-names333_0" " lifts335_0" "(expand-context/inner-lift-envs" -" the-struct_108)" +" the-struct_106)" " module-lifts336_0" " require-lifts337_0" " to-module-lifts338_0" "(expand-context/inner-requires+provides" -" the-struct_108)" +" the-struct_106)" "(expand-context/inner-observer" -" the-struct_108)" +" the-struct_106)" "(expand-context/inner-for-serializable?" -" the-struct_108)" +" the-struct_106)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_108)))" +" the-struct_106)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_108)))))" +" the-struct_106)))))" "(expand-context/outer1.1" " inner329_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_107)" +" the-struct_105)" "(root-expand-context/outer-use-site-scopes" -" the-struct_107)" +" the-struct_105)" "(root-expand-context/outer-frame-id" -" the-struct_107)" +" the-struct_105)" " context326_0" "(expand-context/outer-env" -" the-struct_107)" +" the-struct_105)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_107)" +" the-struct_105)" "(expand-context/outer-scopes" -" the-struct_107)" +" the-struct_105)" " def-ctx-scopes327_0" "(expand-context/outer-binding-layer" -" the-struct_107)" +" the-struct_105)" "(expand-context/outer-reference-records" -" the-struct_107)" +" the-struct_105)" "(expand-context/outer-only-immediate?" -" the-struct_107)" +" the-struct_105)" " need-eventually-defined328_0" "(expand-context/outer-current-introduction-scopes" -" the-struct_107)" +" the-struct_105)" "(expand-context/outer-name" -" the-struct_107)))" +" the-struct_105)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_107))))))" +" the-struct_105))))))" "(let-values(((partially-expanded-bodys_0)" "(let-values(((bodys347_0)" " bodys_16)" "((phase348_0)" -" phase_157)" +" phase_155)" "((partial-body-ctx349_0)" " partial-body-ctx_0)" "((m-ns350_0)" @@ -73651,29 +73899,29 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_6)" -"(let-values(((v_270)" +"(let-values(((v_272)" "(accumulate-def-ctx-scopes" " partial-body-ctx_0" " def-ctx-scopes_8)))" -"(let-values(((the-struct_109)" -" v_270))" +"(let-values(((the-struct_107)" +" v_272))" "(if(expand-context/outer?" -" the-struct_109)" +" the-struct_107)" "(let-values(((def-ctx-scopes363_0)" " #f)" "((post-expansion-scope364_0)" " #f)" "((inner365_0)" -"(let-values(((the-struct_110)" +"(let-values(((the-struct_108)" "(root-expand-context/outer-inner" -" v_270)))" +" v_272)))" "(if(expand-context/inner?" -" the-struct_110)" +" the-struct_108)" "(let-values(((stops366_0)" " empty-free-id-set)" "((to-module-lifts367_0)" "(let-values(((phase368_0)" -" phase_157)" +" phase_155)" "((module-ends369_0)" " module-ends_0)" "((temp370_0)" @@ -73684,95 +73932,95 @@ static const char *startup_source = " phase368_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_110)" +" the-struct_108)" "(root-expand-context/inner-module-scopes" -" the-struct_110)" +" the-struct_108)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_110)" +" the-struct_108)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_110)" +" the-struct_108)" "(root-expand-context/inner-defined-syms" -" the-struct_110)" +" the-struct_108)" "(root-expand-context/inner-counter" -" the-struct_110)" +" the-struct_108)" "(root-expand-context/inner-lift-key" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-to-parsed?" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-phase" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-namespace" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-just-once?" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-module-begin-k" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-allow-unbound?" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-in-local-expand?" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-keep-#%expression?" -" the-struct_110)" +" the-struct_108)" " stops366_0" "(expand-context/inner-declared-submodule-names" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-lifts" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-lift-envs" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-module-lifts" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-require-lifts" -" the-struct_110)" +" the-struct_108)" " to-module-lifts367_0" "(expand-context/inner-requires+provides" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-observer" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-for-serializable?" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_110)))" +" the-struct_108)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_110)))))" +" the-struct_108)))))" "(expand-context/outer1.1" " inner365_0" " post-expansion-scope364_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_109)" +" the-struct_107)" "(root-expand-context/outer-frame-id" -" the-struct_109)" +" the-struct_107)" "(expand-context/outer-context" -" the-struct_109)" +" the-struct_107)" "(expand-context/outer-env" -" the-struct_109)" +" the-struct_107)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_109)" +" the-struct_107)" "(expand-context/outer-scopes" -" the-struct_109)" +" the-struct_107)" " def-ctx-scopes363_0" "(expand-context/outer-binding-layer" -" the-struct_109)" +" the-struct_107)" "(expand-context/outer-reference-records" -" the-struct_109)" +" the-struct_107)" "(expand-context/outer-only-immediate?" -" the-struct_109)" +" the-struct_107)" "(expand-context/outer-need-eventually-defined" -" the-struct_109)" +" the-struct_107)" "(expand-context/outer-current-introduction-scopes" -" the-struct_109)" +" the-struct_107)" "(expand-context/outer-name" -" the-struct_109)))" +" the-struct_107)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_109))))))" +" the-struct_107))))))" "(let-values(((partially-expanded-bodys318_0)" " partially-expanded-bodys_0)" "((phase319_0)" -" phase_157)" +" phase_155)" "((body-ctx320_0)" " body-ctx_6)" "((self321_0)" @@ -73796,20 +74044,20 @@ static const char *startup_source = " partially-expanded-bodys318_0))))))))))))" " pass-1-and-2-loop_0)" " bodys_15" -" phase_156)))" +" phase_154)))" "(let-values((()" "(begin" "(check-defined-by-now" " need-eventually-defined_1" " self_14" -" ctx_112" +" ctx_113" " requires+provides_6)" "(values))))" "(let-values((()" "(begin" "(let-values(((obs_78)" "(expand-context-observer" -" ctx_112)))" +" ctx_113)))" "(if obs_78" "(let-values()" "(let-values()" @@ -73828,11 +74076,11 @@ static const char *startup_source = "((m-ns374_0)" " m-ns_18)" "((phase375_0)" -" phase_156)" +" phase_154)" "((self376_0)" " self_14)" "((ctx377_0)" -" ctx_112))" +" ctx_113))" "(resolve-provides115.1" " ctx377_0" " declared-submodule-names373_0" @@ -73871,7 +74119,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_133)" "(expand-context-observer" -" ctx_112)))" +" ctx_113)))" "(if obs_133" "(let-values()" "(let-values()" @@ -73890,112 +74138,112 @@ static const char *startup_source = " #t" " m-ns378_0))))" "(let-values(((submod-ctx_0)" -"(let-values(((v_271)" -" ctx_112))" -"(let-values(((the-struct_24)" -" v_271))" +"(let-values(((v_273)" +" ctx_113))" +"(let-values(((the-struct_109)" +" v_273))" "(if(expand-context/outer?" -" the-struct_24)" +" the-struct_109)" "(let-values(((frame-id380_0)" " #f)" "((post-expansion-scope381_0)" " #f)" "((inner382_0)" -"(let-values(((the-struct_111)" +"(let-values(((the-struct_110)" "(root-expand-context/outer-inner" -" v_271)))" +" v_273)))" "(if(expand-context/inner?" -" the-struct_111)" +" the-struct_110)" "(let-values(((namespace383_0)" " submod-m-ns_0))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_111)" +" the-struct_110)" "(root-expand-context/inner-module-scopes" -" the-struct_111)" +" the-struct_110)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_111)" +" the-struct_110)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_111)" +" the-struct_110)" "(root-expand-context/inner-defined-syms" -" the-struct_111)" +" the-struct_110)" "(root-expand-context/inner-counter" -" the-struct_111)" +" the-struct_110)" "(root-expand-context/inner-lift-key" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-to-parsed?" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-phase" -" the-struct_111)" +" the-struct_110)" " namespace383_0" "(expand-context/inner-just-once?" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-module-begin-k" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-allow-unbound?" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-in-local-expand?" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-keep-#%expression?" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-stops" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-declared-submodule-names" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-lifts" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-lift-envs" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-module-lifts" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-require-lifts" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-to-module-lifts" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-requires+provides" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-observer" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-for-serializable?" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_111)))" +" the-struct_110)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_111)))))" +" the-struct_110)))))" "(expand-context/outer1.1" " inner382_0" " post-expansion-scope381_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_24)" +" the-struct_109)" " frame-id380_0" "(expand-context/outer-context" -" the-struct_24)" +" the-struct_109)" "(expand-context/outer-env" -" the-struct_24)" +" the-struct_109)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_24)" +" the-struct_109)" "(expand-context/outer-scopes" -" the-struct_24)" +" the-struct_109)" "(expand-context/outer-def-ctx-scopes" -" the-struct_24)" +" the-struct_109)" "(expand-context/outer-binding-layer" -" the-struct_24)" +" the-struct_109)" "(expand-context/outer-reference-records" -" the-struct_24)" +" the-struct_109)" "(expand-context/outer-only-immediate?" -" the-struct_24)" +" the-struct_109)" "(expand-context/outer-need-eventually-defined" -" the-struct_24)" +" the-struct_109)" "(expand-context/outer-current-introduction-scopes" -" the-struct_24)" +" the-struct_109)" "(expand-context/outer-name" -" the-struct_24)))" +" the-struct_109)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_24))))))" +" the-struct_109))))))" "(let-values(((declare-enclosing-module_0)" "(delay" "(lambda()" @@ -74046,7 +74294,7 @@ static const char *startup_source = "((declare-enclosing-module396_0)" " declare-enclosing-module_0)" "((phase397_0)" -" phase_156)" +" phase_154)" "((self398_0)" " self_14)" "((requires+provides399_0)" @@ -74112,20 +74360,20 @@ static const char *startup_source = "(let-values()" " mb-result-s_0)))))))))))))))))))))))))))))))))" "(let-values(((mb-ctx_0)" -"(let-values(((v_272)" -" ctx_111))" -"(let-values(((the-struct_112)" -" v_272))" +"(let-values(((v_274)" +" ctx_112))" +"(let-values(((the-struct_111)" +" v_274))" "(if(expand-context/outer?" -" the-struct_112)" +" the-struct_111)" "(let-values(((context409_0)" " 'module-begin)" "((inner410_0)" -"(let-values(((the-struct_113)" +"(let-values(((the-struct_112)" "(root-expand-context/outer-inner" -" v_272)))" +" v_274)))" "(if(expand-context/inner?" -" the-struct_113)" +" the-struct_112)" "(let-values(((module-begin-k411_0)" " module-begin-k_1)" "((in-local-expand?412_0)" @@ -74140,88 +74388,88 @@ static const char *startup_source = " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_113)" +" the-struct_112)" "(root-expand-context/inner-module-scopes" -" the-struct_113)" +" the-struct_112)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_113)" +" the-struct_112)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_113)" +" the-struct_112)" "(root-expand-context/inner-defined-syms" -" the-struct_113)" +" the-struct_112)" "(root-expand-context/inner-counter" -" the-struct_113)" +" the-struct_112)" "(root-expand-context/inner-lift-key" -" the-struct_113)" +" the-struct_112)" "(expand-context/inner-to-parsed?" -" the-struct_113)" +" the-struct_112)" "(expand-context/inner-phase" -" the-struct_113)" +" the-struct_112)" "(expand-context/inner-namespace" -" the-struct_113)" +" the-struct_112)" "(expand-context/inner-just-once?" -" the-struct_113)" +" the-struct_112)" " module-begin-k411_0" "(expand-context/inner-allow-unbound?" -" the-struct_113)" +" the-struct_112)" " in-local-expand?412_0" "(expand-context/inner-keep-#%expression?" -" the-struct_113)" +" the-struct_112)" "(expand-context/inner-stops" -" the-struct_113)" +" the-struct_112)" "(expand-context/inner-declared-submodule-names" -" the-struct_113)" +" the-struct_112)" " lifts413_0" "(expand-context/inner-lift-envs" -" the-struct_113)" +" the-struct_112)" " module-lifts414_0" " require-lifts416_0" " to-module-lifts415_0" "(expand-context/inner-requires+provides" -" the-struct_113)" +" the-struct_112)" "(expand-context/inner-observer" -" the-struct_113)" +" the-struct_112)" "(expand-context/inner-for-serializable?" -" the-struct_113)" +" the-struct_112)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_113)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_113)))))" -"(expand-context/outer1.1" -" inner410_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_112)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_112)" -"(root-expand-context/outer-frame-id" -" the-struct_112)" -" context409_0" -"(expand-context/outer-env" -" the-struct_112)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_112)" -"(expand-context/outer-scopes" -" the-struct_112)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_112)" -"(expand-context/outer-binding-layer" -" the-struct_112)" -"(expand-context/outer-reference-records" -" the-struct_112)" -"(expand-context/outer-only-immediate?" -" the-struct_112)" -"(expand-context/outer-need-eventually-defined" -" the-struct_112)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_112)" -"(expand-context/outer-name" " the-struct_112)))" "(raise-argument-error" " 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_112)))))" +"(expand-context/outer1.1" +" inner410_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_111)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_111)" +"(root-expand-context/outer-frame-id" +" the-struct_111)" +" context409_0" +"(expand-context/outer-env" +" the-struct_111)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_111)" +"(expand-context/outer-scopes" +" the-struct_111)" +"(expand-context/outer-def-ctx-scopes" +" the-struct_111)" +"(expand-context/outer-binding-layer" +" the-struct_111)" +"(expand-context/outer-reference-records" +" the-struct_111)" +"(expand-context/outer-only-immediate?" +" the-struct_111)" +"(expand-context/outer-need-eventually-defined" +" the-struct_111)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_111)" +"(expand-context/outer-name" +" the-struct_111)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_112))))))" +" the-struct_111))))))" "(let-values(((mb-scopes-s_0)" "(if keep-enclosing-scope-at-phase_0" "(apply-module-scopes_0" @@ -74244,9 +74492,9 @@ static const char *startup_source = "((mb-def-ctx-scopes422_0)" " mb-def-ctx-scopes_0)" "((phase423_0)" -" phase_156)" +" phase_154)" "((s424_0)" -" s_482))" +" s_483))" "(ensure-module-begin36.1" " mb-ctx421_0" " mb-def-ctx-scopes422_0" @@ -74320,7 +74568,7 @@ static const char *startup_source = "(begin" "(imitate-generic-module-path-index!" " self_14)" -"(let-values(((lst_423)" +"(let-values(((lst_427)" "(unbox" " mpis-to-reset_0)))" "(begin" @@ -74329,19 +74577,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_423)))" -"((letrec-values(((for-loop_331)" -"(lambda(lst_424)" +" lst_427)))" +"((letrec-values(((for-loop_330)" +"(lambda(lst_428)" "(begin" " 'for-loop" "(if(pair?" -" lst_424)" +" lst_428)" "(let-values(((mpi_59)" "(unsafe-car" -" lst_424))" +" lst_428))" "((rest_244)" "(unsafe-cdr" -" lst_424)))" +" lst_428)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74354,12 +74602,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_331" +"(for-loop_330" " rest_244)" "(values))))" "(values))))))" -" for-loop_331)" -" lst_423)))" +" for-loop_330)" +" lst_427)))" "(void)" "(let-values(((result-s_15)" "(let-values(((rebuild-s427_0)" @@ -74439,47 +74687,47 @@ 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_114) ctx24_0))" +"(let-values(((ctx_115) ctx24_0))" "(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))" -"(let-values(((phase_158) phase26_3))" -"(let-values(((s_139) s27_2))" +"(let-values(((phase_156) phase26_3))" +"(let-values(((s_390) s27_2))" "(let-values()" "(let-values(((make-mb-ctx_0)" "(lambda()" "(begin" " 'make-mb-ctx" -"(let-values(((v_273) ctx_114))" -"(let-values(((the-struct_114) v_273))" -"(if(expand-context/outer? the-struct_114)" +"(let-values(((v_275) ctx_115))" +"(let-values(((the-struct_113) v_275))" +"(if(expand-context/outer? the-struct_113)" "(let-values(((context432_0) 'module-begin)" "((only-immediate?433_0) #t)" "((def-ctx-scopes434_0) def-ctx-scopes_9)" -"((inner435_0)(root-expand-context/outer-inner v_273)))" +"((inner435_0)(root-expand-context/outer-inner v_275)))" "(expand-context/outer1.1" " inner435_0" -"(root-expand-context/outer-post-expansion-scope the-struct_114)" -"(root-expand-context/outer-use-site-scopes the-struct_114)" -"(root-expand-context/outer-frame-id the-struct_114)" +"(root-expand-context/outer-post-expansion-scope the-struct_113)" +"(root-expand-context/outer-use-site-scopes the-struct_113)" +"(root-expand-context/outer-frame-id the-struct_113)" " context432_0" -"(expand-context/outer-env the-struct_114)" -"(expand-context/outer-post-expansion-scope-action the-struct_114)" -"(expand-context/outer-scopes the-struct_114)" +"(expand-context/outer-env the-struct_113)" +"(expand-context/outer-post-expansion-scope-action the-struct_113)" +"(expand-context/outer-scopes the-struct_113)" " def-ctx-scopes434_0" -"(expand-context/outer-binding-layer the-struct_114)" -"(expand-context/outer-reference-records the-struct_114)" +"(expand-context/outer-binding-layer the-struct_113)" +"(expand-context/outer-reference-records the-struct_113)" " only-immediate?433_0" -"(expand-context/outer-need-eventually-defined the-struct_114)" -"(expand-context/outer-current-introduction-scopes the-struct_114)" -"(expand-context/outer-name the-struct_114)))" +"(expand-context/outer-need-eventually-defined the-struct_113)" +"(expand-context/outer-current-introduction-scopes the-struct_113)" +"(expand-context/outer-name the-struct_113)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_114))))))))" +" the-struct_113))))))))" "(let-values(((mb_1)" "(if(= 1(length bodys_17))" "(let-values()" "(begin" -"(let-values(((obs_135)(expand-context-observer ctx_114)))" +"(let-values(((obs_135)(expand-context-observer ctx_115)))" "(if obs_135" "(let-values()" "(let-values()" @@ -74487,7 +74735,7 @@ static const char *startup_source = "(void)))" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1(car bodys_17)) phase_158))" +"(core-form-sym(syntax-disarm$1(car bodys_17)) phase_156))" "(let-values()(car bodys_17))" "(let-values()" "(let-values(((partly-expanded-body_0)" @@ -74510,13 +74758,13 @@ static const char *startup_source = " '#%module-begin" "(core-form-sym" "(syntax-disarm$1 partly-expanded-body_0)" -" phase_158))" +" phase_156))" "(let-values() partly-expanded-body_0)" "(let-values()" "(let-values(((temp438_0)(list partly-expanded-body_0))" -"((s439_0) s_139)" +"((s439_0) s_390)" "((scopes-s440_0) scopes-s_0)" -"((phase441_0) phase_158)" +"((phase441_0) phase_156)" "((module-name-sym442_0) module-name-sym_1)" "((temp443_0)(make-mb-ctx_0))" "((temp444_0) #f))" @@ -74531,9 +74779,9 @@ static const char *startup_source = " temp443_0)))))))))" "(let-values()" "(let-values(((bodys445_0) bodys_17)" -"((s446_0) s_139)" +"((s446_0) s_390)" "((scopes-s447_0) scopes-s_0)" -"((phase448_0) phase_158)" +"((phase448_0) phase_156)" "((module-name-sym449_0) module-name-sym_1)" "((temp450_1)(make-mb-ctx_0)))" "(add-module-begin47.1" @@ -74559,9 +74807,9 @@ static const char *startup_source = "(begin" " 'add-module-begin47" "(let-values(((bodys_18) bodys41_0))" -"(let-values(((s_816) s42_0))" +"(let-values(((s_819) s42_0))" "(let-values(((scopes-s_1) scopes-s43_0))" -"(let-values(((phase_159) phase44_1))" +"(let-values(((phase_157) 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)))" @@ -74570,17 +74818,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-id451_0) mb-id_0)((phase452_0) phase_159))" -"(resolve40.1 #f #f #f #f #f #f #f #f mb-id451_0 phase452_0))" +"(if(let-values(((mb-id451_0) mb-id_0)((phase452_0) phase_157))" +"(resolve41.1 #f #f #f #f #f #f #f #f mb-id451_0 phase452_0))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"no #%module-begin binding in the module's language\"" -" s_816)))" +" s_819)))" "(values))))" "(let-values(((mb_2)" -"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_18) s_816 s_816)))" +"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_18) s_819 s_819)))" "(let-values((()" "(begin" "(let-values(((obs_136)(expand-context-observer mb-ctx_1)))" @@ -74610,13 +74858,13 @@ static const char *startup_source = "(begin" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_159))" +"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_157))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"expansion of #%module-begin is not a #%plain-module-begin form\"" -" s_816" +" s_819" " partly-expanded-mb_0)))" " partly-expanded-mb_0)))))))))))))))))))" "(define-values" @@ -74632,13 +74880,13 @@ static const char *startup_source = " enclosing-self_2" " enclosing-mod_2)" "(begin" -"(lambda(s_817)" +"(lambda(s_820)" "(let-values()" "(let-values(((s-without-enclosing_0)" "(if keep-enclosing-scope-at-phase_1" -" s_817" +" s_820" "(remove-use-site-scopes" -"(remove-scopes s_817(root-expand-context-module-scopes init-ctx_1))" +"(remove-scopes s_820(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)))" @@ -74690,7 +74938,7 @@ static const char *startup_source = "(begin" " 'partially-expand-bodys81" "(let-values(((bodys_19) bodys80_0))" -"(let-values(((phase_160) phase50_0))" +"(let-values(((phase_158) phase50_0))" "(let-values(((partial-body-ctx_1) ctx51_0))" "(let-values(((m-ns_19) namespace52_0))" "(let-values(((self_33) self53_0))" @@ -74707,14 +74955,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_19 phase_160)" -"((letrec-values(((loop_125)" +"(namespace-visit-available-modules! m-ns_19 phase_158)" +"((letrec-values(((loop_127)" "(lambda(tail?_52 bodys_20)" "(begin" " 'loop" "(if(null? bodys_20)" "(let-values()" -"(if(if tail?_52(not(zero? phase_160)) #f)" +"(if(if tail?_52(not(zero? phase_158)) #f)" "(let-values()" "(begin" "(let-values(((obs_138)" @@ -74754,7 +75002,7 @@ static const char *startup_source = "(if(null? bodys_21)" "(let-values() null)" "(let-values()" -"(loop_125" +"(loop_127" " #t" "(add-post-expansion-scope" " bodys_21" @@ -74823,7 +75071,7 @@ static const char *startup_source = "(let-values(((tmp_65)" "(core-form-sym" " disarmed-exp-body_1" -" phase_160)))" +" phase_158)))" "(if(equal?" " tmp_65" " 'begin)" @@ -74831,38 +75079,38 @@ static const char *startup_source = "(let-values(((ok?_80" " begin464_0" " e465_0)" -"(let-values(((s_818)" +"(let-values(((s_821)" " disarmed-exp-body_1))" "(let-values(((orig-s_85)" -" s_818))" +" s_821))" "(let-values(((begin464_1" " e465_1)" -"(let-values(((s_153)" +"(let-values(((s_822)" "(if(syntax?$1" -" s_818)" +" s_821)" "(syntax-e$1" -" s_818)" -" s_818)))" +" s_821)" +" s_821)))" "(if(pair?" -" s_153)" +" s_822)" "(let-values(((begin466_0)" -"(let-values(((s_819)" +"(let-values(((s_823)" "(car" -" s_153)))" -" s_819))" +" s_822)))" +" s_823))" "((e467_0)" -"(let-values(((s_820)" +"(let-values(((s_824)" "(cdr" -" s_153)))" -"(let-values(((s_821)" +" s_822)))" +"(let-values(((s_825)" "(if(syntax?$1" -" s_820)" +" s_824)" "(syntax-e$1" -" s_820)" -" s_820)))" +" s_824)" +" s_824)))" "(let-values(((flat-s_56)" "(to-syntax-list.1" -" s_821)))" +" s_825)))" "(if(not" " flat-s_56)" "(let-values()" @@ -74908,7 +75156,7 @@ static const char *startup_source = " 'splice" " spliced-bodys_0)))" "(void)))" -"(loop_125" +"(loop_127" " tail?_52" " spliced-bodys_0))))))" "(if(equal?" @@ -74940,7 +75188,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " m-ns_19" "(add1" -" phase_160))))" +" phase_158))))" "(let-values((()" "(begin" "(prepare-next-phase-namespace" @@ -74962,38 +75210,38 @@ static const char *startup_source = "(let-values(((ok?_81" " begin-for-syntax468_0" " e469_0)" -"(let-values(((s_822)" +"(let-values(((s_826)" " disarmed-exp-body_1))" "(let-values(((orig-s_86)" -" s_822))" +" s_826))" "(let-values(((begin-for-syntax468_1" " e469_1)" -"(let-values(((s_823)" +"(let-values(((s_827)" "(if(syntax?$1" -" s_822)" +" s_826)" "(syntax-e$1" -" s_822)" -" s_822)))" +" s_826)" +" s_826)))" "(if(pair?" -" s_823)" +" s_827)" "(let-values(((begin-for-syntax470_0)" -"(let-values(((s_824)" +"(let-values(((s_828)" "(car" -" s_823)))" -" s_824))" +" s_827)))" +" s_828))" "((e471_0)" -"(let-values(((s_825)" +"(let-values(((s_829)" "(cdr" -" s_823)))" -"(let-values(((s_826)" +" s_827)))" +"(let-values(((s_830)" "(if(syntax?$1" -" s_825)" +" s_829)" "(syntax-e$1" -" s_825)" -" s_825)))" +" s_829)" +" s_829)))" "(let-values(((flat-s_57)" "(to-syntax-list.1" -" s_826)))" +" s_830)))" "(if(not" " flat-s_57)" "(let-values()" @@ -75018,7 +75266,7 @@ static const char *startup_source = "(pass-1-and-2-loop_1" " e469_0" "(add1" -" phase_160))))" +" phase_158))))" "(begin" "(let-values(((obs_145)" "(expand-context-observer" @@ -75033,17 +75281,17 @@ static const char *startup_source = "(namespace-run-available-modules!" " m-ns_19" "(add1" -" phase_160))" +" phase_158))" "(eval-nested-bodys" " nested-bodys_1" "(add1" -" phase_160)" +" phase_158)" " ct-m-ns_0" " self_33" " partial-body-ctx_1)" "(namespace-visit-available-modules!" " m-ns_19" -" phase_160)" +" phase_158)" "(let-values(((obs_146)" "(expand-context-observer" " partial-body-ctx_1)))" @@ -75055,7 +75303,7 @@ static const char *startup_source = " 'exit-prim" "(let-values(((s-nested-bodys_0)" "(reverse$1" -"(let-values(((lst_255)" +"(let-values(((lst_256)" " nested-bodys_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -75063,42 +75311,42 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_255)))" -"((letrec-values(((for-loop_332)" -"(lambda(fold-var_382" -" lst_425)" +" lst_256)))" +"((letrec-values(((for-loop_331)" +"(lambda(fold-var_383" +" lst_429)" "(begin" " 'for-loop" "(if(pair?" -" lst_425)" +" lst_429)" "(let-values(((nested-body_0)" "(unsafe-car" -" lst_425))" +" lst_429))" "((rest_245)" "(unsafe-cdr" -" lst_425)))" -"(let-values(((fold-var_361)" -"(let-values(((fold-var_383)" -" fold-var_382))" +" lst_429)))" +"(let-values(((fold-var_362)" "(let-values(((fold-var_384)" +" fold-var_383))" +"(let-values(((fold-var_385)" "(let-values()" "(cons" "(let-values()" "(extract-syntax" " nested-body_0))" -" fold-var_383))))" +" fold-var_384))))" "(values" -" fold-var_384)))))" +" fold-var_385)))))" "(if(not" " #f)" -"(for-loop_332" -" fold-var_361" +"(for-loop_331" +" fold-var_362" " rest_245)" -" fold-var_361)))" -" fold-var_382)))))" -" for-loop_332)" +" fold-var_362)))" +" fold-var_383)))))" +" for-loop_331)" " null" -" lst_255))))))" +" lst_256))))))" "(datum->syntax$1" " #f" "(cons" @@ -75110,7 +75358,7 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax3.1" " exp-body_7" " nested-bodys_1)" -"(loop_125" +"(loop_127" " tail?_52" " rest-bodys_1))))))))))" "(if(equal?" @@ -75139,52 +75387,52 @@ static const char *startup_source = " define-values472_0" " id473_0" " rhs474_0)" -"(let-values(((s_827)" +"(let-values(((s_831)" " disarmed-exp-body_1))" "(let-values(((orig-s_87)" -" s_827))" +" s_831))" "(let-values(((define-values472_1" " id473_1" " rhs474_1)" -"(let-values(((s_828)" +"(let-values(((s_832)" "(if(syntax?$1" -" s_827)" +" s_831)" "(syntax-e$1" -" s_827)" -" s_827)))" +" s_831)" +" s_831)))" "(if(pair?" -" s_828)" +" s_832)" "(let-values(((define-values475_0)" -"(let-values(((s_829)" +"(let-values(((s_833)" "(car" -" s_828)))" -" s_829))" +" s_832)))" +" s_833))" "((id476_0" " rhs477_0)" -"(let-values(((s_830)" +"(let-values(((s_834)" "(cdr" -" s_828)))" -"(let-values(((s_831)" -"(if(syntax?$1" -" s_830)" -"(syntax-e$1" -" s_830)" -" s_830)))" -"(if(pair?" -" s_831)" -"(let-values(((id478_0)" -"(let-values(((s_832)" -"(car" -" s_831)))" -"(let-values(((s_833)" -"(if(syntax?$1" -" s_832)" -"(syntax-e$1" -" s_832)" " s_832)))" +"(let-values(((s_835)" +"(if(syntax?$1" +" s_834)" +"(syntax-e$1" +" s_834)" +" s_834)))" +"(if(pair?" +" s_835)" +"(let-values(((id478_0)" +"(let-values(((s_836)" +"(car" +" s_835)))" +"(let-values(((s_837)" +"(if(syntax?$1" +" s_836)" +"(syntax-e$1" +" s_836)" +" s_836)))" "(let-values(((flat-s_58)" "(to-syntax-list.1" -" s_833)))" +" s_837)))" "(if(not" " flat-s_58)" "(let-values()" @@ -75193,8 +75441,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_87))" "(let-values()" -"(let-values(((id_147)" -"(let-values(((lst_426)" +"(let-values(((id_149)" +"(let-values(((lst_430)" " flat-s_58))" "(begin" "(if(variable-reference-from-unsafe?" @@ -75202,90 +75450,90 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_426)))" -"((letrec-values(((for-loop_333)" -"(lambda(id_148" -" lst_427)" +" lst_430)))" +"((letrec-values(((for-loop_332)" +"(lambda(id_150" +" lst_431)" "(begin" " 'for-loop" "(if(pair?" -" lst_427)" -"(let-values(((s_834)" +" lst_431)" +"(let-values(((s_838)" "(unsafe-car" -" lst_427))" +" lst_431))" "((rest_246)" "(unsafe-cdr" -" lst_427)))" -"(let-values(((id_149)" -"(let-values(((id_150)" -" id_148))" +" lst_431)))" "(let-values(((id_151)" +"(let-values(((id_152)" +" id_150))" +"(let-values(((id_153)" "(let-values()" "(let-values(((id491_0)" "(let-values()" -"(if(let-values(((or-part_403)" +"(if(let-values(((or-part_408)" "(if(syntax?$1" -" s_834)" +" s_838)" "(symbol?" "(syntax-e$1" -" s_834))" +" s_838))" " #f)))" -"(if or-part_403" -" or-part_403" +"(if or-part_408" +" or-part_408" "(symbol?" -" s_834)))" -" s_834" +" s_838)))" +" s_838" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_87" -" s_834)))))" +" s_838)))))" "(cons" " id491_0" -" id_150)))))" +" id_152)))))" "(values" -" id_151)))))" +" id_153)))))" "(if(not" " #f)" -"(for-loop_333" -" id_149" +"(for-loop_332" +" id_151" " rest_246)" -" id_149)))" -" id_148)))))" -" for-loop_333)" +" id_151)))" +" id_150)))))" +" for-loop_332)" " null" -" lst_426)))))" +" lst_430)))))" "(reverse$1" -" id_147))))))))" +" id_149))))))))" "((rhs479_0)" -"(let-values(((s_835)" -"(cdr" -" s_831)))" -"(let-values(((s_836)" -"(if(syntax?$1" -" s_835)" -"(syntax-e$1" -" s_835)" -" s_835)))" -"(if(pair?" -" s_836)" -"(let-values(((rhs480_0)" -"(let-values(((s_837)" -"(car" -" s_836)))" -" s_837))" -"(()" -"(let-values(((s_838)" -"(cdr" -" s_836)))" "(let-values(((s_839)" +"(cdr" +" s_835)))" +"(let-values(((s_840)" "(if(syntax?$1" -" s_838)" -"(syntax-e$1" -" s_838)" -" s_838)))" -"(if(null?" " s_839)" +"(syntax-e$1" +" s_839)" +" s_839)))" +"(if(pair?" +" s_840)" +"(let-values(((rhs480_0)" +"(let-values(((s_841)" +"(car" +" s_840)))" +" s_841))" +"(()" +"(let-values(((s_842)" +"(cdr" +" s_840)))" +"(let-values(((s_843)" +"(if(syntax?$1" +" s_842)" +"(syntax-e$1" +" s_842)" +" s_842)))" +"(if(null?" +" s_843)" "(values)" "(raise-syntax-error$1" " #f" @@ -75317,16 +75565,16 @@ static const char *startup_source = " define-values472_1" " id473_1" " rhs474_1))))))" -"(let-values(((ids_45)" +"(let-values(((ids_44)" "(remove-use-site-scopes" " id473_0" " partial-body-ctx_1)))" "(let-values((()" "(begin" "(let-values(((ids481_0)" -" ids_45)" +" ids_44)" "((phase482_0)" -" phase_160)" +" phase_158)" "((exp-body483_0)" " exp-body_7))" "(check-no-duplicate-ids8.1" @@ -75341,9 +75589,9 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((ids484_0)" -" ids_45)" +" ids_44)" "((phase485_0)" -" phase_160)" +" phase_158)" "((requires+provides486_0)" " requires+provides_7)" "((exp-body487_0)" @@ -75356,13 +75604,13 @@ static const char *startup_source = "(values))))" "(let-values(((syms_23)" "(let-values(((ids492_0)" -" ids_45)" +" ids_44)" "((defined-syms493_0)" " defined-syms_12)" "((self494_0)" " self_33)" "((phase495_0)" -" phase_160)" +" phase_158)" "((all-scopes-stx496_0)" " all-scopes-stx_5)" "((frame-id497_0)" @@ -75392,7 +75640,7 @@ static const char *startup_source = "((syms489_0)" " syms_23)" "((phase490_0)" -" phase_160))" +" phase_158))" "(add-defined-syms!103.1" " #f" " #f" @@ -75412,7 +75660,7 @@ static const char *startup_source = " #f" "(list" " define-values472_0" -" ids_45" +" ids_44" " rhs474_0)" " exp-body_7))))" "(void)))" @@ -75420,9 +75668,9 @@ static const char *startup_source = "(semi-parsed-define-values2.1" " exp-body_7" " syms_23" -" ids_45" +" ids_44" " rhs474_0)" -"(loop_125" +"(loop_127" " tail?_52" " rest-bodys_1))))))))))" "(if(equal?" @@ -75472,52 +75720,52 @@ static const char *startup_source = " define-syntaxes500_0" " id501_0" " rhs502_0)" -"(let-values(((s_840)" +"(let-values(((s_844)" " disarmed-exp-body_1))" "(let-values(((orig-s_88)" -" s_840))" +" s_844))" "(let-values(((define-syntaxes500_1" " id501_1" " rhs502_1)" -"(let-values(((s_841)" +"(let-values(((s_845)" "(if(syntax?$1" -" s_840)" +" s_844)" "(syntax-e$1" -" s_840)" -" s_840)))" +" s_844)" +" s_844)))" "(if(pair?" -" s_841)" +" s_845)" "(let-values(((define-syntaxes503_0)" -"(let-values(((s_842)" +"(let-values(((s_846)" "(car" -" s_841)))" -" s_842))" +" s_845)))" +" s_846))" "((id504_0" " rhs505_0)" -"(let-values(((s_843)" +"(let-values(((s_847)" "(cdr" -" s_841)))" -"(let-values(((s_844)" -"(if(syntax?$1" -" s_843)" -"(syntax-e$1" -" s_843)" -" s_843)))" -"(if(pair?" -" s_844)" -"(let-values(((id506_0)" -"(let-values(((s_845)" -"(car" -" s_844)))" -"(let-values(((s_846)" -"(if(syntax?$1" -" s_845)" -"(syntax-e$1" -" s_845)" " s_845)))" +"(let-values(((s_848)" +"(if(syntax?$1" +" s_847)" +"(syntax-e$1" +" s_847)" +" s_847)))" +"(if(pair?" +" s_848)" +"(let-values(((id506_0)" +"(let-values(((s_849)" +"(car" +" s_848)))" +"(let-values(((s_850)" +"(if(syntax?$1" +" s_849)" +"(syntax-e$1" +" s_849)" +" s_849)))" "(let-values(((flat-s_59)" "(to-syntax-list.1" -" s_846)))" +" s_850)))" "(if(not" " flat-s_59)" "(let-values()" @@ -75526,8 +75774,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_88))" "(let-values()" -"(let-values(((id_152)" -"(let-values(((lst_428)" +"(let-values(((id_154)" +"(let-values(((lst_432)" " flat-s_59))" "(begin" "(if(variable-reference-from-unsafe?" @@ -75535,90 +75783,90 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_428)))" -"((letrec-values(((for-loop_334)" -"(lambda(id_153" -" lst_429)" +" lst_432)))" +"((letrec-values(((for-loop_333)" +"(lambda(id_155" +" lst_433)" "(begin" " 'for-loop" "(if(pair?" -" lst_429)" -"(let-values(((s_847)" +" lst_433)" +"(let-values(((s_851)" "(unsafe-car" -" lst_429))" +" lst_433))" "((rest_247)" "(unsafe-cdr" -" lst_429)))" -"(let-values(((id_154)" -"(let-values(((id_155)" -" id_153))" +" lst_433)))" "(let-values(((id_156)" +"(let-values(((id_157)" +" id_155))" +"(let-values(((id_158)" "(let-values()" "(let-values(((id520_0)" "(let-values()" -"(if(let-values(((or-part_404)" +"(if(let-values(((or-part_409)" "(if(syntax?$1" -" s_847)" +" s_851)" "(symbol?" "(syntax-e$1" -" s_847))" +" s_851))" " #f)))" -"(if or-part_404" -" or-part_404" +"(if or-part_409" +" or-part_409" "(symbol?" -" s_847)))" -" s_847" +" s_851)))" +" s_851" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_88" -" s_847)))))" +" s_851)))))" "(cons" " id520_0" -" id_155)))))" +" id_157)))))" "(values" -" id_156)))))" +" id_158)))))" "(if(not" " #f)" -"(for-loop_334" -" id_154" +"(for-loop_333" +" id_156" " rest_247)" -" id_154)))" -" id_153)))))" -" for-loop_334)" +" id_156)))" +" id_155)))))" +" for-loop_333)" " null" -" lst_428)))))" +" lst_432)))))" "(reverse$1" -" id_152))))))))" +" id_154))))))))" "((rhs507_0)" -"(let-values(((s_848)" -"(cdr" -" s_844)))" -"(let-values(((s_849)" -"(if(syntax?$1" -" s_848)" -"(syntax-e$1" -" s_848)" -" s_848)))" -"(if(pair?" -" s_849)" -"(let-values(((rhs508_0)" -"(let-values(((s_850)" -"(car" -" s_849)))" -" s_850))" -"(()" -"(let-values(((s_851)" -"(cdr" -" s_849)))" "(let-values(((s_852)" +"(cdr" +" s_848)))" +"(let-values(((s_853)" "(if(syntax?$1" -" s_851)" -"(syntax-e$1" -" s_851)" -" s_851)))" -"(if(null?" " s_852)" +"(syntax-e$1" +" s_852)" +" s_852)))" +"(if(pair?" +" s_853)" +"(let-values(((rhs508_0)" +"(let-values(((s_854)" +"(car" +" s_853)))" +" s_854))" +"(()" +"(let-values(((s_855)" +"(cdr" +" s_853)))" +"(let-values(((s_856)" +"(if(syntax?$1" +" s_855)" +"(syntax-e$1" +" s_855)" +" s_855)))" +"(if(null?" +" s_856)" "(values)" "(raise-syntax-error$1" " #f" @@ -75650,16 +75898,16 @@ static const char *startup_source = " define-syntaxes500_1" " id501_1" " rhs502_1))))))" -"(let-values(((ids_46)" +"(let-values(((ids_45)" "(remove-use-site-scopes" " id501_0" " partial-body-ctx_1)))" "(let-values((()" "(begin" "(let-values(((ids509_0)" -" ids_46)" +" ids_45)" "((phase510_0)" -" phase_160)" +" phase_158)" "((exp-body511_0)" " exp-body_7))" "(check-no-duplicate-ids8.1" @@ -75674,9 +75922,9 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((ids512_0)" -" ids_46)" +" ids_45)" "((phase513_0)" -" phase_160)" +" phase_158)" "((requires+provides514_0)" " requires+provides_7)" "((exp-body515_0)" @@ -75689,13 +75937,13 @@ static const char *startup_source = "(values))))" "(let-values(((syms_24)" "(let-values(((ids521_0)" -" ids_46)" +" ids_45)" "((defined-syms522_0)" " defined-syms_12)" "((self523_0)" " self_33)" "((phase524_0)" -" phase_160)" +" phase_158)" "((all-scopes-stx525_0)" " all-scopes-stx_5)" "((frame-id526_0)" @@ -75728,7 +75976,7 @@ static const char *startup_source = "((syms517_0)" " syms_24)" "((phase518_0)" -" phase_160)" +" phase_158)" "((temp519_0)" " #t))" "(add-defined-syms!103.1" @@ -75746,22 +75994,22 @@ static const char *startup_source = "((temp531_0)" " rhs502_0)" "((ids532_0)" -" ids_46)" +" ids_45)" "((temp533_0)" -"(let-values(((v_274)" +"(let-values(((v_276)" " partial-body-ctx_1))" -"(let-values(((the-struct_115)" -" v_274))" +"(let-values(((the-struct_114)" +" v_276))" "(if(expand-context/outer?" -" the-struct_115)" +" the-struct_114)" "(let-values(((need-eventually-defined535_0)" " need-eventually-defined_2)" "((inner536_0)" -"(let-values(((the-struct_116)" +"(let-values(((the-struct_115)" "(root-expand-context/outer-inner" -" v_274)))" +" v_276)))" "(if(expand-context/inner?" -" the-struct_116)" +" the-struct_115)" "(let-values(((lifts537_0)" " #f)" "((module-lifts538_0)" @@ -75770,91 +76018,91 @@ static const char *startup_source = " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_116)" +" the-struct_115)" "(root-expand-context/inner-module-scopes" -" the-struct_116)" +" the-struct_115)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_116)" +" the-struct_115)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_116)" +" the-struct_115)" "(root-expand-context/inner-defined-syms" -" the-struct_116)" +" the-struct_115)" "(root-expand-context/inner-counter" -" the-struct_116)" +" the-struct_115)" "(root-expand-context/inner-lift-key" -" the-struct_116)" +" the-struct_115)" "(expand-context/inner-to-parsed?" -" the-struct_116)" +" the-struct_115)" "(expand-context/inner-phase" -" the-struct_116)" +" the-struct_115)" "(expand-context/inner-namespace" -" the-struct_116)" +" the-struct_115)" "(expand-context/inner-just-once?" -" the-struct_116)" +" the-struct_115)" "(expand-context/inner-module-begin-k" -" the-struct_116)" +" the-struct_115)" "(expand-context/inner-allow-unbound?" -" the-struct_116)" +" the-struct_115)" "(expand-context/inner-in-local-expand?" -" the-struct_116)" +" the-struct_115)" "(expand-context/inner-keep-#%expression?" -" the-struct_116)" +" the-struct_115)" "(expand-context/inner-stops" -" the-struct_116)" +" the-struct_115)" "(expand-context/inner-declared-submodule-names" -" the-struct_116)" +" the-struct_115)" " lifts537_0" "(expand-context/inner-lift-envs" -" the-struct_116)" +" the-struct_115)" " module-lifts538_0" "(expand-context/inner-require-lifts" -" the-struct_116)" +" the-struct_115)" " to-module-lifts539_0" "(expand-context/inner-requires+provides" -" the-struct_116)" +" the-struct_115)" "(expand-context/inner-observer" -" the-struct_116)" +" the-struct_115)" "(expand-context/inner-for-serializable?" -" the-struct_116)" +" the-struct_115)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_116)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_116)))))" -"(expand-context/outer1.1" -" inner536_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_115)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_115)" -"(root-expand-context/outer-frame-id" -" the-struct_115)" -"(expand-context/outer-context" -" the-struct_115)" -"(expand-context/outer-env" -" the-struct_115)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_115)" -"(expand-context/outer-scopes" -" the-struct_115)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_115)" -"(expand-context/outer-binding-layer" -" the-struct_115)" -"(expand-context/outer-reference-records" -" the-struct_115)" -"(expand-context/outer-only-immediate?" -" the-struct_115)" -" need-eventually-defined535_0" -"(expand-context/outer-current-introduction-scopes" -" the-struct_115)" -"(expand-context/outer-name" " the-struct_115)))" "(raise-argument-error" " 'struct-copy" -" \"expand-context/outer?\"" +" \"expand-context/inner?\"" " the-struct_115)))))" +"(expand-context/outer1.1" +" inner536_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_114)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_114)" +"(root-expand-context/outer-frame-id" +" the-struct_114)" +"(expand-context/outer-context" +" the-struct_114)" +"(expand-context/outer-env" +" the-struct_114)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_114)" +"(expand-context/outer-scopes" +" the-struct_114)" +"(expand-context/outer-def-ctx-scopes" +" the-struct_114)" +"(expand-context/outer-binding-layer" +" the-struct_114)" +"(expand-context/outer-reference-records" +" the-struct_114)" +"(expand-context/outer-only-immediate?" +" the-struct_114)" +" need-eventually-defined535_0" +"(expand-context/outer-current-introduction-scopes" +" the-struct_114)" +"(expand-context/outer-name" +" the-struct_114)))" +"(raise-argument-error" +" 'struct-copy" +" \"expand-context/outer?\"" +" the-struct_114)))))" "((temp534_0)" " #f))" "(expand+eval-for-syntaxes-binding109.1" @@ -75866,63 +76114,63 @@ static const char *startup_source = " temp533_0))))" "(let-values((()" "(begin" -"(let-values(((lst_430)" +"(let-values(((lst_434)" " syms_24)" -"((lst_431)" +"((lst_435)" " vals_10)" -"((lst_432)" -" ids_46))" +"((lst_436)" +" ids_45))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_430)))" +" lst_434)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_431)))" +" lst_435)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_432)))" -"((letrec-values(((for-loop_335)" -"(lambda(lst_433" -" lst_434" -" lst_435)" +" lst_436)))" +"((letrec-values(((for-loop_334)" +"(lambda(lst_437" +" lst_438" +" lst_439)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_433)" +" lst_437)" "(if(pair?" -" lst_434)" +" lst_438)" "(pair?" -" lst_435)" +" lst_439)" " #f)" " #f)" -"(let-values(((sym_47)" +"(let-values(((sym_48)" "(unsafe-car" -" lst_433))" +" lst_437))" "((rest_248)" "(unsafe-cdr" -" lst_433))" -"((val_87)" +" lst_437))" +"((val_88)" "(unsafe-car" -" lst_434))" +" lst_438))" "((rest_249)" "(unsafe-cdr" -" lst_434))" -"((id_157)" +" lst_438))" +"((id_159)" "(unsafe-car" -" lst_435))" +" lst_439))" "((rest_250)" "(unsafe-cdr" -" lst_435)))" +" lst_439)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75931,29 +76179,29 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_87" -" id_157" -" phase_160" +" val_88" +" id_159" +" phase_158" " partial-body-ctx_1)" "(namespace-set-transformer!" " m-ns_19" -" phase_160" -" sym_47" -" val_87)))" +" phase_158" +" sym_48" +" val_88)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_335" +"(for-loop_334" " rest_248" " rest_249" " rest_250)" "(values))))" "(values))))))" -" for-loop_335)" -" lst_430" -" lst_431" -" lst_432)))" +" for-loop_334)" +" lst_434" +" lst_435" +" lst_436)))" "(values))))" "(let-values()" "(let-values((()" @@ -75971,7 +76219,7 @@ static const char *startup_source = " #f" "(list" " define-syntaxes500_0" -" ids_46" +" ids_45" " exp-rhs_6)))))" "(void)))" "(values))))" @@ -75979,7 +76227,7 @@ static const char *startup_source = "(parsed-define-syntaxes20.1" "(keep-properties-only" " exp-body_7)" -" ids_46" +" ids_45" " syms_24" " parsed-rhs_2)))" "(cons" @@ -75992,7 +76240,7 @@ static const char *startup_source = "((temp541_0)" "(list" " define-syntaxes500_0" -" ids_46" +" ids_45" " exp-rhs_6)))" "(rebuild5.1" " #f" @@ -76000,7 +76248,7 @@ static const char *startup_source = " exp-body540_0" " temp541_0))" " parsed-body_0))" -"(loop_125" +"(loop_127" " tail?_52" " rest-bodys_1)))))))))))))))))" "(if(equal?" @@ -76032,38 +76280,38 @@ static const char *startup_source = "(let-values(((ok?_84" " #%require542_0" " req543_0)" -"(let-values(((s_853)" +"(let-values(((s_857)" " ready-body_0))" "(let-values(((orig-s_89)" -" s_853))" +" s_857))" "(let-values(((#%require542_1" " req543_1)" -"(let-values(((s_854)" +"(let-values(((s_858)" "(if(syntax?$1" -" s_853)" +" s_857)" "(syntax-e$1" -" s_853)" -" s_853)))" +" s_857)" +" s_857)))" "(if(pair?" -" s_854)" +" s_858)" "(let-values(((#%require544_0)" -"(let-values(((s_855)" +"(let-values(((s_859)" "(car" -" s_854)))" -" s_855))" +" s_858)))" +" s_859))" "((req545_0)" -"(let-values(((s_856)" +"(let-values(((s_860)" "(cdr" -" s_854)))" -"(let-values(((s_857)" +" s_858)))" +"(let-values(((s_861)" "(if(syntax?$1" -" s_856)" +" s_860)" "(syntax-e$1" -" s_856)" -" s_856)))" +" s_860)" +" s_860)))" "(let-values(((flat-s_60)" "(to-syntax-list.1" -" s_857)))" +" s_861)))" "(if(not" " flat-s_60)" "(let-values()" @@ -76094,9 +76342,9 @@ static const char *startup_source = "((m-ns549_0)" " m-ns_19)" "((phase550_0)" -" phase_160)" +" phase_158)" "((phase551_0)" -" phase_160)" +" phase_158)" "((requires+provides552_0)" " requires+provides_7)" "((declared-submodule-names553_0)" @@ -76141,7 +76389,7 @@ static const char *startup_source = "(void)))" "(cons" " exp-body_7" -"(loop_125" +"(loop_127" " tail?_52" " rest-bodys_1)))))))" "(if(equal?" @@ -76150,7 +76398,7 @@ static const char *startup_source = "(let-values()" "(cons" " exp-body_7" -"(loop_125" +"(loop_127" " tail?_52" " rest-bodys_1)))" "(if(equal?" @@ -76197,7 +76445,7 @@ static const char *startup_source = " partial-body-ctx557_0))))" "(cons" " submod_2" -"(loop_125" +"(loop_127" " tail?_52" " rest-bodys_1)))))" "(if(equal?" @@ -76226,7 +76474,7 @@ static const char *startup_source = "(void)))" "(cons" " exp-body_7" -"(loop_125" +"(loop_127" " tail?_52" " rest-bodys_1))))" "(if(equal?" @@ -76236,38 +76484,38 @@ static const char *startup_source = "(let-values(((ok?_85" " #%declare563_0" " kw564_0)" -"(let-values(((s_858)" +"(let-values(((s_862)" " disarmed-exp-body_1))" "(let-values(((orig-s_90)" -" s_858))" +" s_862))" "(let-values(((#%declare563_1" " kw564_1)" -"(let-values(((s_859)" +"(let-values(((s_863)" "(if(syntax?$1" -" s_858)" +" s_862)" "(syntax-e$1" -" s_858)" -" s_858)))" +" s_862)" +" s_862)))" "(if(pair?" -" s_859)" +" s_863)" "(let-values(((#%declare565_0)" -"(let-values(((s_860)" +"(let-values(((s_864)" "(car" -" s_859)))" -" s_860))" +" s_863)))" +" s_864))" "((kw566_0)" -"(let-values(((s_861)" +"(let-values(((s_865)" "(cdr" -" s_859)))" -"(let-values(((s_862)" +" s_863)))" +"(let-values(((s_866)" "(if(syntax?$1" -" s_861)" +" s_865)" "(syntax-e$1" -" s_861)" -" s_861)))" +" s_865)" +" s_865)))" "(let-values(((flat-s_61)" "(to-syntax-list.1" -" s_862)))" +" s_866)))" "(if(not" " flat-s_61)" "(let-values()" @@ -76290,7 +76538,7 @@ static const char *startup_source = " kw564_1))))))" "(let-values((()" "(begin" -"(let-values(((lst_436)" +"(let-values(((lst_440)" " kw564_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -76298,19 +76546,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_436)))" -"((letrec-values(((for-loop_336)" -"(lambda(lst_437)" +" lst_440)))" +"((letrec-values(((for-loop_335)" +"(lambda(lst_441)" "(begin" " 'for-loop" "(if(pair?" -" lst_437)" +" lst_441)" "(let-values(((kw_1)" "(unsafe-car" -" lst_437))" +" lst_441))" "((rest_251)" "(unsafe-cdr" -" lst_437)))" +" lst_441)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76361,12 +76609,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_336" +"(for-loop_335" " rest_251)" "(values))))" "(values))))))" -" for-loop_336)" -" lst_436)))" +" for-loop_335)" +" lst_440)))" "(values))))" "(let-values()" "(let-values(((parsed-body_1)" @@ -76379,13 +76627,13 @@ static const char *startup_source = "(expanded+parsed1.1" " exp-body_7" " parsed-body_1))" -"(loop_125" +"(loop_127" " tail?_52" " rest-bodys_1)))))))" "(let-values()" "(cons" " exp-body_7" -"(loop_125" +"(loop_127" " tail?_52" " rest-bodys_1)))))))))))))))))" "(let-values(((l_88)" @@ -76394,7 +76642,7 @@ static const char *startup_source = "(expand-context-require-lifts" " partial-body-ctx_1))" " lifted-defns_0" -"(loop_125" +"(loop_127" " #f" "(add-post-expansion-scope" "(get-and-clear-module-lifts!" @@ -76406,49 +76654,49 @@ static const char *startup_source = "(append" " l_88" "(finish_2)))))))))))))))))" -" loop_125)" +" loop_127)" " #t" " bodys_19))))))))))))))))))))))" "(define-values" "(make-wrap-as-definition)" "(lambda(self_34 frame-id_17 inside-scope_2 all-scopes-stx_6 defined-syms_13 requires+provides_8)" "(begin" -"(lambda(ids_47 rhs_23 phase_161)" +"(lambda(ids_46 rhs_23 phase_159)" "(let-values(((scoped-ids_0)" "(reverse$1" -"(let-values(((lst_438) ids_47))" +"(let-values(((lst_442) ids_46))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_438)))" -"((letrec-values(((for-loop_337)" -"(lambda(fold-var_385 lst_439)" +"(let-values()(check-list lst_442)))" +"((letrec-values(((for-loop_336)" +"(lambda(fold-var_386 lst_443)" "(begin" " 'for-loop" -"(if(pair? lst_439)" -"(let-values(((id_158)(unsafe-car lst_439))" -"((rest_252)(unsafe-cdr lst_439)))" -"(let-values(((fold-var_386)" -"(let-values(((fold-var_387) fold-var_385))" -"(let-values(((fold-var_388)" +"(if(pair? lst_443)" +"(let-values(((id_160)(unsafe-car lst_443))" +"((rest_252)(unsafe-cdr lst_443)))" +"(let-values(((fold-var_387)" +"(let-values(((fold-var_388) fold-var_386))" +"(let-values(((fold-var_389)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_158" +" id_160" " inside-scope_2))" -" fold-var_387))))" -"(values fold-var_388)))))" -"(if(not #f)(for-loop_337 fold-var_386 rest_252) fold-var_386)))" -" fold-var_385)))))" -" for-loop_337)" +" fold-var_388))))" +"(values fold-var_389)))))" +"(if(not #f)(for-loop_336 fold-var_387 rest_252) fold-var_387)))" +" fold-var_386)))))" +" for-loop_336)" " null" -" lst_438))))))" +" lst_442))))))" "(let-values(((syms_25)" "(let-values(((scoped-ids567_0) scoped-ids_0)" "((defined-syms568_0) defined-syms_13)" "((self569_0) self_34)" -"((phase570_0) phase_161)" +"((phase570_0) phase_159)" "((all-scopes-stx571_0) all-scopes-stx_6)" "((frame-id572_0) frame-id_17)" "((requires+provides573_0) requires+provides_8))" @@ -76472,40 +76720,40 @@ static const char *startup_source = "(datum->syntax$1" " #f" "(list" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_161) 'define-values)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_159) 'define-values)" " scoped-ids_0" " rhs_23))" " inside-scope_2)))" "(values scoped-ids_0(semi-parsed-define-values2.1 s_595 syms_25 scoped-ids_0 rhs_23)))))))))" "(define-values" "(add-post-expansion-scope)" -"(lambda(bodys_22 ctx_115)" +"(lambda(bodys_22 ctx_116)" "(begin" -"(let-values(((sc_39)(root-expand-context-post-expansion-scope ctx_115)))" +"(let-values(((sc_39)(root-expand-context-post-expansion-scope ctx_116)))" "(if sc_39" "(reverse$1" -"(let-values(((lst_440) bodys_22))" +"(let-values(((lst_444) bodys_22))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_440)))" -"((letrec-values(((for-loop_338)" -"(lambda(fold-var_389 lst_441)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_444)))" +"((letrec-values(((for-loop_337)" +"(lambda(fold-var_390 lst_445)" "(begin" " 'for-loop" -"(if(pair? lst_441)" -"(let-values(((body_23)(unsafe-car lst_441))((rest_253)(unsafe-cdr lst_441)))" -"(let-values(((fold-var_390)" -"(let-values(((fold-var_391) fold-var_389))" -"(let-values(((fold-var_392)" +"(if(pair? lst_445)" +"(let-values(((body_23)(unsafe-car lst_445))((rest_253)(unsafe-cdr lst_445)))" +"(let-values(((fold-var_391)" +"(let-values(((fold-var_392) fold-var_390))" +"(let-values(((fold-var_393)" "(let-values()" "(cons" "(let-values()(add-scope body_23 sc_39))" -" fold-var_391))))" -"(values fold-var_392)))))" -"(if(not #f)(for-loop_338 fold-var_390 rest_253) fold-var_390)))" -" fold-var_389)))))" -" for-loop_338)" +" fold-var_392))))" +"(values fold-var_393)))))" +"(if(not #f)(for-loop_337 fold-var_391 rest_253) fold-var_391)))" +" fold-var_390)))))" +" for-loop_337)" " null" -" lst_440))))" +" lst_444))))" " bodys_22)))))" "(define-values" "(finish-expanding-body-expressons99.1)" @@ -76520,7 +76768,7 @@ static const char *startup_source = "(begin" " 'finish-expanding-body-expressons99" "(let-values(((partially-expanded-bodys_1) partially-expanded-bodys98_0))" -"(let-values(((phase_162) phase84_0))" +"(let-values(((phase_160) phase84_0))" "(let-values(((body-ctx_7) ctx85_0))" "(let-values(((self_35) self86_0))" "(let-values(((declared-submodule-names_5) declared-submodule-names87_0))" @@ -76528,13 +76776,13 @@ static const char *startup_source = "(let-values(((modules-being-compiled_5) modules-being-compiled89_0))" "(let-values(((mpis-to-reset_2) mpis-to-reset90_0))" "(let-values()" -"((letrec-values(((loop_126)" +"((letrec-values(((loop_128)" "(lambda(tail?_53 bodys_23)" "(begin" " 'loop" "(if(null? bodys_23)" "(let-values()" -"(if(if tail?_53(not(zero? phase_162)) #f)" +"(if(if tail?_53(not(zero? phase_160)) #f)" "(let-values()" "(begin" "(let-values(((obs_155)(expand-context-observer body-ctx_7)))" @@ -76570,7 +76818,7 @@ static const char *startup_source = "(void)))" " null))" "(let-values()" -"(loop_126" +"(loop_128" " #t" "(add-post-expansion-scope bodys_24 body-ctx_7))))))" "(let-values() null))))" @@ -76588,27 +76836,27 @@ static const char *startup_source = "(let-values(((body_24)(car bodys_23)))" "(let-values(((rest-bodys_2)(cdr bodys_23)))" "(let-values(((exp-body_8)" -"(if(let-values(((or-part_405)" +"(if(let-values(((or-part_410)" "(parsed? body_24)))" -"(if or-part_405" -" or-part_405" -"(let-values(((or-part_406)" +"(if or-part_410" +" or-part_410" +"(let-values(((or-part_411)" "(expanded+parsed? body_24)))" -"(if or-part_406" -" or-part_406" +"(if or-part_411" +" or-part_411" "(semi-parsed-begin-for-syntax?" " body_24)))))" "(let-values() body_24)" "(if(semi-parsed-define-values? body_24)" "(let-values()" -"(let-values(((ids_48)" +"(let-values(((ids_47)" "(semi-parsed-define-values-ids" " body_24)))" "(let-values(((rhs-ctx_2)" "(as-named-context" "(as-expression-context" " body-ctx_7)" -" ids_48)))" +" ids_47)))" "(let-values(((syms_26)" "(semi-parsed-define-values-syms" " body_24)))" @@ -76619,7 +76867,7 @@ static const char *startup_source = " define-values574_0" " _575_0" " _576_0)" -"(let-values(((s_863)" +"(let-values(((s_867)" "(syntax-disarm$1" " s_623)))" "(if(if(not" @@ -76628,70 +76876,70 @@ static const char *startup_source = " #t" " #f)" "(let-values(((orig-s_91)" -" s_863))" +" s_867))" "(let-values(((define-values574_1" " _575_1" " _576_1)" -"(let-values(((s_864)" +"(let-values(((s_868)" "(if(syntax?$1" -" s_863)" +" s_867)" "(syntax-e$1" -" s_863)" -" s_863)))" +" s_867)" +" s_867)))" "(if(pair?" -" s_864)" +" s_868)" "(let-values(((define-values577_0)" -"(let-values(((s_865)" +"(let-values(((s_869)" "(car" -" s_864)))" -" s_865))" +" s_868)))" +" s_869))" "((_578_0" " _579_0)" -"(let-values(((s_866)" -"(cdr" -" s_864)))" -"(let-values(((s_867)" -"(if(syntax?$1" -" s_866)" -"(syntax-e$1" -" s_866)" -" s_866)))" -"(if(pair?" -" s_867)" -"(let-values(((_580_0)" -"(let-values(((s_868)" -"(car" -" s_867)))" -" s_868))" -"((_581_0)" -"(let-values(((s_869)" -"(cdr" -" s_867)))" "(let-values(((s_870)" -"(if(syntax?$1" -" s_869)" -"(syntax-e$1" -" s_869)" -" s_869)))" -"(if(pair?" -" s_870)" -"(let-values(((_582_0)" -"(let-values(((s_871)" -"(car" -" s_870)))" -" s_871))" -"(()" -"(let-values(((s_872)" "(cdr" -" s_870)))" -"(let-values(((s_873)" +" s_868)))" +"(let-values(((s_871)" "(if(syntax?$1" -" s_872)" +" s_870)" "(syntax-e$1" -" s_872)" -" s_872)))" -"(if(null?" +" s_870)" +" s_870)))" +"(if(pair?" +" s_871)" +"(let-values(((_580_0)" +"(let-values(((s_872)" +"(car" +" s_871)))" +" s_872))" +"((_581_0)" +"(let-values(((s_873)" +"(cdr" +" s_871)))" +"(let-values(((s_874)" +"(if(syntax?$1" " s_873)" +"(syntax-e$1" +" s_873)" +" s_873)))" +"(if(pair?" +" s_874)" +"(let-values(((_582_0)" +"(let-values(((s_875)" +"(car" +" s_874)))" +" s_875))" +"(()" +"(let-values(((s_876)" +"(cdr" +" s_874)))" +"(let-values(((s_877)" +"(if(syntax?$1" +" s_876)" +"(syntax-e$1" +" s_876)" +" s_876)))" +"(if(null?" +" s_877)" "(values)" "(raise-syntax-error$1" " #f" @@ -76776,7 +77024,7 @@ static const char *startup_source = "(let-values(((comp-form_0)" "(parsed-define-values19.1" " rebuild-s_15" -" ids_48" +" ids_47" " syms_26" "(if(expand-context-to-parsed?" " rhs-ctx_2)" @@ -76804,7 +77052,7 @@ static const char *startup_source = "((temp591_0)" "(list" " define-values574_0" -" ids_48" +" ids_47" " exp-rhs_7)))" "(rebuild5.1" " #f" @@ -76818,7 +77066,7 @@ static const char *startup_source = "(let-values(((tmp_66)" "(core-form-sym" " disarmed-body_0" -" phase_162)))" +" phase_160)))" "(if(if(equal? tmp_66 '#%require)" " #t" "(if(equal? tmp_66 '#%provide)" @@ -76902,7 +77150,7 @@ static const char *startup_source = "(let-values(((exp-lifted-modules_0)" "(let-values(((lifted-modules596_0)" " lifted-modules_0)" -"((phase597_0) phase_162)" +"((phase597_0) phase_160)" "((self598_0) self_35)" "((body-ctx599_0)" " body-ctx_7)" @@ -76924,7 +77172,7 @@ static const char *startup_source = " self598_0" " body-ctx599_0))))" "(let-values(((exp-lifted-defns_0)" -"(loop_126 #f lifted-defns_1)))" +"(loop_128 #f lifted-defns_1)))" "(begin" "(if no-lifts?_0" "(void)" @@ -76945,26 +77193,26 @@ static const char *startup_source = " exp-lifted-modules_0" "(cons" " exp-body_8" -"(loop_126" +"(loop_128" " tail?_53" " rest-bodys_2)))))))))))))))))))))" -" loop_126)" +" loop_128)" " #t" " partially-expanded-bodys_1)))))))))))))" "(define-values" "(check-defined-by-now)" -"(lambda(need-eventually-defined_3 self_36 ctx_116 requires+provides_9)" +"(lambda(need-eventually-defined_3 self_36 ctx_117 requires+provides_9)" "(begin" "(begin" -"(let-values(((ht_169) need-eventually-defined_3))" +"(let-values(((ht_170) need-eventually-defined_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_169)))" -"((letrec-values(((for-loop_339)" -"(lambda(i_193)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_170)))" +"((letrec-values(((for-loop_338)" +"(lambda(i_196)" "(begin" " 'for-loop" -"(if i_193" -"(let-values(((phase_163 l_89)(hash-iterate-key+value ht_169 i_193)))" +"(if i_196" +"(let-values(((phase_161 l_89)(hash-iterate-key+value ht_170 i_196)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76972,35 +77220,35 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_442) l_89))" +"(let-values(((lst_446) l_89))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_442)))" -"((letrec-values(((for-loop_340)" -"(lambda(lst_443)" +"(let-values()(check-list lst_446)))" +"((letrec-values(((for-loop_339)" +"(lambda(lst_447)" "(begin" " 'for-loop" "(if(pair?" -" lst_443)" -"(let-values(((id_159)" +" lst_447)" +"(let-values(((id_161)" "(unsafe-car" -" lst_443))" +" lst_447))" "((rest_254)" "(unsafe-cdr" -" lst_443)))" +" lst_447)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((b_97)" +"(let-values(((b_98)" "(let-values(((id604_0)" -" id_159)" +" id_161)" "((phase605_0)" -" phase_163))" +" phase_161))" "(resolve+shift30.1" " #f" " #f" @@ -77015,17 +77263,17 @@ static const char *startup_source = " id604_0" " phase605_0))))" "(let-values(((bound-here?_0)" -"(if b_97" +"(if b_98" "(if(module-binding?" -" b_97)" +" b_98)" "(if(eq?" "(module-binding-sym" -" b_97)" +" b_98)" "(syntax-e$1" -" id_159))" +" id_161))" "(eq?" "(module-binding-module" -" b_97)" +" b_98)" " self_36)" " #f)" " #f)" @@ -77035,8 +77283,8 @@ static const char *startup_source = "(defined-sym-kind" " requires+provides_9" "(module-binding-sym" -" b_97)" -" phase_163)" +" b_98)" +" phase_161)" " #f)))" "(if(eq?" " bound-kind_0" @@ -77047,7 +77295,7 @@ static const char *startup_source = " #f" "(string-append" "(if(not" -" b_97)" +" b_98)" "(let-values()" " \"reference to an unbound identifier\")" "(if(eq?" @@ -77060,36 +77308,36 @@ static const char *startup_source = "(format" " \"\\n at phase: ~a\"" "(let-values(((tmp_67)" -" phase_163))" +" phase_161))" "(if(equal?" " tmp_67" " 1)" "(let-values()" " \"1; the transformer environment\")" "(let-values()" -" phase_163)))))" -" id_159" +" phase_161)))))" +" id_161" " #f" " null" "(syntax-debug-info-string" -" id_159" -" ctx_116))))))))" +" id_161" +" ctx_117))))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_340" +"(for-loop_339" " rest_254)" "(values))))" "(values))))))" -" for-loop_340)" -" lst_442)))" +" for-loop_339)" +" lst_446)))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_339(hash-iterate-next ht_169 i_193))(values))))" +"(if(not #f)(for-loop_338(hash-iterate-next ht_170 i_196))(values))))" "(values))))))" -" for-loop_339)" -"(hash-iterate-first ht_169))))" +" for-loop_338)" +"(hash-iterate-first ht_170))))" "(void)))))" "(define-values" "(resolve-provides115.1)" @@ -77106,50 +77354,50 @@ static const char *startup_source = "(let-values(((requires+provides_10) requires-and-provides102_0))" "(let-values(((declared-submodule-names_6) declared-submodule-names103_0))" "(let-values(((m-ns_20) namespace104_0))" -"(let-values(((phase_164) phase105_0))" +"(let-values(((phase_162) phase105_0))" "(let-values(((self_37) self106_0))" -"(let-values(((ctx_117) ctx107_0))" +"(let-values(((ctx_118) ctx107_0))" "(let-values()" "(let-values()" -"((letrec-values(((loop_127)" -"(lambda(bodys_25 phase_165)" +"((letrec-values(((loop_129)" +"(lambda(bodys_25 phase_163)" "(begin" " 'loop" "(if(null? bodys_25)" "(let-values() null)" -"(if(let-values(((or-part_407)(parsed?(car bodys_25))))" -"(if or-part_407 or-part_407(expanded+parsed?(car bodys_25))))" +"(if(let-values(((or-part_412)(parsed?(car bodys_25))))" +"(if or-part_412 or-part_412(expanded+parsed?(car bodys_25))))" "(let-values()" -"(cons(car bodys_25)(loop_127(cdr bodys_25) phase_165)))" +"(cons(car bodys_25)(loop_129(cdr bodys_25) phase_163)))" "(if(semi-parsed-begin-for-syntax?(car bodys_25))" "(let-values()" "(let-values(((nested-bodys_2)" -"(loop_127" +"(loop_129" "(semi-parsed-begin-for-syntax-body(car bodys_25))" -"(add1 phase_165))))" +"(add1 phase_163))))" "(cons" -"(let-values(((the-struct_117)(car bodys_25)))" -"(if(semi-parsed-begin-for-syntax? the-struct_117)" +"(let-values(((the-struct_116)(car bodys_25)))" +"(if(semi-parsed-begin-for-syntax? the-struct_116)" "(let-values(((body606_0) nested-bodys_2))" "(semi-parsed-begin-for-syntax3.1" -"(semi-parsed-begin-for-syntax-s the-struct_117)" +"(semi-parsed-begin-for-syntax-s the-struct_116)" " body606_0))" "(raise-argument-error" " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" -" the-struct_117)))" -"(loop_127(cdr bodys_25) phase_165))))" +" the-struct_116)))" +"(loop_129(cdr bodys_25) phase_163))))" "(let-values()" "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_25))))" "(let-values(((tmp_68)" -"(core-form-sym disarmed-body_1 phase_165)))" +"(core-form-sym disarmed-body_1 phase_163)))" "(if(equal? tmp_68 '#%provide)" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_160)" "(expand-context-observer" -" ctx_117)))" +" ctx_118)))" "(if obs_160" "(let-values()" "(let-values()" @@ -77164,35 +77412,35 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_87 #%provide607_0 spec608_0)" -"(let-values(((s_874) disarmed-body_1))" -"(let-values(((orig-s_92) s_874))" +"(let-values(((s_878) disarmed-body_1))" +"(let-values(((orig-s_92) s_878))" "(let-values(((#%provide607_1" " spec608_1)" "(let-values(((s_667)" "(if(syntax?$1" -" s_874)" +" s_878)" "(syntax-e$1" -" s_874)" -" s_874)))" +" s_878)" +" s_878)))" "(if(pair? s_667)" "(let-values(((#%provide609_0)" -"(let-values(((s_875)" +"(let-values(((s_879)" "(car" " s_667)))" -" s_875))" +" s_879))" "((spec610_0)" -"(let-values(((s_876)" +"(let-values(((s_880)" "(cdr" " s_667)))" -"(let-values(((s_877)" +"(let-values(((s_881)" "(if(syntax?$1" -" s_876)" +" s_880)" "(syntax-e$1" -" s_876)" -" s_876)))" +" s_880)" +" s_880)))" "(let-values(((flat-s_62)" "(to-syntax-list.1" -" s_877)))" +" s_881)))" "(if(not" " flat-s_62)" "(let-values()" @@ -77219,119 +77467,119 @@ static const char *startup_source = "(car bodys_25)" " requires+provides_10" " self_37" -" phase_165" -"(let-values(((v_275) ctx_117))" -"(let-values(((the-struct_118)" -" v_275))" +" phase_163" +"(let-values(((v_277) ctx_118))" +"(let-values(((the-struct_117)" +" v_277))" "(if(expand-context/outer?" -" the-struct_118)" +" the-struct_117)" "(let-values(((context611_0)" " 'top-level)" "((inner612_0)" -"(let-values(((the-struct_119)" +"(let-values(((the-struct_118)" "(root-expand-context/outer-inner" -" v_275)))" +" v_277)))" "(if(expand-context/inner?" -" the-struct_119)" +" the-struct_118)" "(let-values(((phase613_0)" -" phase_165)" +" phase_163)" "((namespace614_0)" "(namespace->namespace-at-phase" " m-ns_20" -" phase_165))" +" phase_163))" "((requires+provides615_0)" " requires+provides_10)" "((declared-submodule-names616_0)" " declared-submodule-names_6))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_119)" +" the-struct_118)" "(root-expand-context/inner-module-scopes" -" the-struct_119)" +" the-struct_118)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_119)" +" the-struct_118)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_119)" +" the-struct_118)" "(root-expand-context/inner-defined-syms" -" the-struct_119)" +" the-struct_118)" "(root-expand-context/inner-counter" -" the-struct_119)" +" the-struct_118)" "(root-expand-context/inner-lift-key" -" the-struct_119)" +" the-struct_118)" "(expand-context/inner-to-parsed?" -" the-struct_119)" +" the-struct_118)" " phase613_0" " namespace614_0" "(expand-context/inner-just-once?" -" the-struct_119)" +" the-struct_118)" "(expand-context/inner-module-begin-k" -" the-struct_119)" +" the-struct_118)" "(expand-context/inner-allow-unbound?" -" the-struct_119)" +" the-struct_118)" "(expand-context/inner-in-local-expand?" -" the-struct_119)" +" the-struct_118)" "(expand-context/inner-keep-#%expression?" -" the-struct_119)" +" the-struct_118)" "(expand-context/inner-stops" -" the-struct_119)" +" the-struct_118)" " declared-submodule-names616_0" "(expand-context/inner-lifts" -" the-struct_119)" +" the-struct_118)" "(expand-context/inner-lift-envs" -" the-struct_119)" +" the-struct_118)" "(expand-context/inner-module-lifts" -" the-struct_119)" +" the-struct_118)" "(expand-context/inner-require-lifts" -" the-struct_119)" +" the-struct_118)" "(expand-context/inner-to-module-lifts" -" the-struct_119)" +" the-struct_118)" " requires+provides615_0" "(expand-context/inner-observer" -" the-struct_119)" +" the-struct_118)" "(expand-context/inner-for-serializable?" -" the-struct_119)" +" the-struct_118)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_119)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_119)))))" -"(expand-context/outer1.1" -" inner612_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_118)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_118)" -"(root-expand-context/outer-frame-id" -" the-struct_118)" -" context611_0" -"(expand-context/outer-env" -" the-struct_118)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_118)" -"(expand-context/outer-scopes" -" the-struct_118)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_118)" -"(expand-context/outer-binding-layer" -" the-struct_118)" -"(expand-context/outer-reference-records" -" the-struct_118)" -"(expand-context/outer-only-immediate?" -" the-struct_118)" -"(expand-context/outer-need-eventually-defined" -" the-struct_118)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_118)" -"(expand-context/outer-name" " the-struct_118)))" "(raise-argument-error" " 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_118)))))" +"(expand-context/outer1.1" +" inner612_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_117)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_117)" +"(root-expand-context/outer-frame-id" +" the-struct_117)" +" context611_0" +"(expand-context/outer-env" +" the-struct_117)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_117)" +"(expand-context/outer-scopes" +" the-struct_117)" +"(expand-context/outer-def-ctx-scopes" +" the-struct_117)" +"(expand-context/outer-binding-layer" +" the-struct_117)" +"(expand-context/outer-reference-records" +" the-struct_117)" +"(expand-context/outer-only-immediate?" +" the-struct_117)" +"(expand-context/outer-need-eventually-defined" +" the-struct_117)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_117)" +"(expand-context/outer-name" +" the-struct_117)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_118)))))))" -"(if(expand-context-to-parsed? ctx_117)" +" the-struct_117)))))))" +"(if(expand-context-to-parsed? ctx_118)" "(let-values()" -"(loop_127(cdr bodys_25) phase_165))" +"(loop_129(cdr bodys_25) phase_163))" "(let-values()" "(let-values(((new-s_10)" "(syntax-track-origin*" @@ -77350,7 +77598,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_161)" "(expand-context-observer" -" ctx_117)))" +" ctx_118)))" "(if obs_161" "(let-values()" "(let-values()" @@ -77361,16 +77609,16 @@ static const char *startup_source = "(void)))" "(cons" " new-s_10" -"(loop_127" +"(loop_129" "(cdr bodys_25)" -" phase_165))))))))))" +" phase_163))))))))))" "(let-values()" "(cons" "(car bodys_25)" -"(loop_127(cdr bodys_25) phase_165))))))))))))))" -" loop_127)" +"(loop_129(cdr bodys_25) phase_163))))))))))))))" +" loop_129)" " expression-expanded-bodys_1" -" phase_164)))))))))))))" +" phase_162)))))))))))))" "(define-values" "(declare-module-for-expansion139.1)" "(lambda(ctx125_0" @@ -77394,7 +77642,7 @@ static const char *startup_source = "(let-values(((self_38) self122_0))" "(let-values(((enclosing-self_3) enclosing123_0))" "(let-values(((root-ctx_7) root-ctx124_0))" -"(let-values(((ctx_118) ctx125_0))" +"(let-values(((ctx_119) ctx125_0))" "(let-values(((modules-being-compiled_6) modules-being-compiled126_0))" "(let-values(((compiled-module-box_1) fill127_0))" "(let-values()" @@ -77415,8 +77663,8 @@ static const char *startup_source = "(hasheq))))" "(let-values(((module-name_2)" "(1/module-path-index-resolve" -"(let-values(((or-part_408) enclosing-self_3))" -"(if or-part_408 or-part_408 self_38)))))" +"(let-values(((or-part_413) enclosing-self_3))" +"(if or-part_413 or-part_413 self_38)))))" "(let-values(((compiled-module_0)" "(let-values(((parsed-mod619_0) parsed-mod_0)" "((temp620_0)" @@ -77440,7 +77688,7 @@ static const char *startup_source = " #f" " #f" " #f)))" -"((temp621_0)(expand-context-for-serializable? ctx_118))" +"((temp621_0)(expand-context-for-serializable? ctx_119))" "((modules-being-compiled622_0) modules-being-compiled_6)" "((temp623_0) #f))" "(compile-module13.1" @@ -77482,13 +77730,13 @@ static const char *startup_source = " compiled-module627_0)))))))))))))))))))))))))" "(define-values" "(attach-root-expand-context-properties)" -"(lambda(s_878 root-ctx_8 orig-self_1 new-self_2)" +"(lambda(s_882 root-ctx_8 orig-self_1 new-self_2)" "(begin" -"(let-values(((s_879)" -"(syntax-property$1 s_878 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" +"(let-values(((s_883)" +"(syntax-property$1 s_882 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" "(let-values(((s_688)" "(syntax-property$1" -" s_879" +" s_883" " 'module-body-inside-context" "(add-scope empty-syntax(root-expand-context-post-expansion-scope root-ctx_8)))))" " s_688)))))" @@ -77510,7 +77758,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_166) phase143_1))" +"(let-values(((phase_164) phase143_1))" "(let-values(((self_39) self144_0))" "(let-values(((requires+provides_12) requires-and-provides145_0))" "(let-values(((enclosing-is-cross-phase-persistent?_1) enclosing-is-cross-phase-persistent?146_0))" @@ -77521,8 +77769,8 @@ static const char *startup_source = "(let-values(((modules-being-compiled_7) modules-being-compiled151_0))" "(let-values(((submod-ctx_1) ctx152_0))" "(let-values()" -"((letrec-values(((loop_128)" -"(lambda(bodys_26 phase_167)" +"((letrec-values(((loop_130)" +"(lambda(bodys_26 phase_165)" "(begin" " 'loop" "(if(null? bodys_26)" @@ -77536,37 +77784,37 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax-s" " body_25)))" "(let-values(((ok?_88 begin-for-syntax629_0 _630_0)" -"(let-values(((s_880)" +"(let-values(((s_884)" "(syntax-disarm$1" " body-s_0)))" -"(let-values(((orig-s_93) s_880))" +"(let-values(((orig-s_93) s_884))" "(let-values(((begin-for-syntax629_1" " _630_1)" -"(let-values(((s_881)" +"(let-values(((s_885)" "(if(syntax?$1" -" s_880)" +" s_884)" "(syntax-e$1" -" s_880)" -" s_880)))" -"(if(pair? s_881)" +" s_884)" +" s_884)))" +"(if(pair? s_885)" "(let-values(((begin-for-syntax631_0)" -"(let-values(((s_882)" +"(let-values(((s_886)" "(car" -" s_881)))" -" s_882))" +" s_885)))" +" s_886))" "((_632_0)" -"(let-values(((s_883)" +"(let-values(((s_887)" "(cdr" -" s_881)))" -"(let-values(((s_884)" +" s_885)))" +"(let-values(((s_888)" "(if(syntax?$1" -" s_883)" +" s_887)" "(syntax-e$1" -" s_883)" -" s_883)))" +" s_887)" +" s_887)))" "(let-values(((flat-s_63)" "(to-syntax-list.1" -" s_884)))" +" s_888)))" "(if(not" " flat-s_63)" "(let-values()" @@ -77602,10 +77850,10 @@ static const char *startup_source = " submod-ctx633_0" " body-s634_0))))" "(let-values(((nested-bodys_3)" -"(loop_128" +"(loop_130" "(semi-parsed-begin-for-syntax-body" " body_25)" -"(add1 phase_167))))" +"(add1 phase_165))))" "(let-values(((parsed-bfs_0)" "(parsed-begin-for-syntax21.1" " rebuild-body-s_0" @@ -77628,20 +77876,20 @@ static const char *startup_source = " rebuild-body-s635_0" " temp636_0))" " parsed-bfs_0))" -"(loop_128 rest-bodys_3 phase_167))))))))" -"(if(let-values(((or-part_409)(parsed? body_25)))" -"(if or-part_409" -" or-part_409" +"(loop_130 rest-bodys_3 phase_165))))))))" +"(if(let-values(((or-part_414)(parsed? body_25)))" +"(if or-part_414" +" or-part_414" "(expanded+parsed? body_25)))" "(let-values()" -"(cons body_25(loop_128 rest-bodys_3 phase_167)))" +"(cons body_25(loop_130 rest-bodys_3 phase_165)))" "(let-values()" "(let-values(((disarmed-body_2)" "(syntax-disarm$1 body_25)))" "(let-values(((tmp_69)" "(core-form-sym" " disarmed-body_2" -" phase_167)))" +" phase_165)))" "(if(equal? tmp_69 'module*)" "(let-values()" "(let-values((()" @@ -77659,45 +77907,19 @@ static const char *startup_source = " _639_0)" "(let-values(((s_706)" " disarmed-body_2))" -"(if(let-values(((s_885)" +"(if(let-values(((s_889)" "(if(syntax?$1" " s_706)" "(syntax-e$1" " s_706)" " s_706)))" -"(if(pair? s_885)" +"(if(pair? s_889)" "(if(let-values(((s_707)" "(car" -" s_885)))" +" s_889)))" " #t)" -"(let-values(((s_886)" +"(let-values(((s_890)" "(cdr" -" s_885)))" -"(let-values(((s_887)" -"(if(syntax?$1" -" s_886)" -"(syntax-e$1" -" s_886)" -" s_886)))" -"(if(pair?" -" s_887)" -"(if(let-values(((s_708)" -"(car" -" s_887)))" -" #t)" -"(let-values(((s_888)" -"(cdr" -" s_887)))" -"(let-values(((s_889)" -"(if(syntax?$1" -" s_888)" -"(syntax-e$1" -" s_888)" -" s_888)))" -"(if(pair?" -" s_889)" -"(if(let-values(((s_890)" -"(car" " s_889)))" "(let-values(((s_891)" "(if(syntax?$1" @@ -77705,12 +77927,38 @@ static const char *startup_source = "(syntax-e$1" " s_890)" " s_890)))" -"(eq?" -" #f" +"(if(pair?" +" s_891)" +"(if(let-values(((s_708)" +"(car" " s_891)))" +" #t)" "(let-values(((s_892)" "(cdr" -" s_889)))" +" s_891)))" +"(let-values(((s_893)" +"(if(syntax?$1" +" s_892)" +"(syntax-e$1" +" s_892)" +" s_892)))" +"(if(pair?" +" s_893)" +"(if(let-values(((s_894)" +"(car" +" s_893)))" +"(let-values(((s_895)" +"(if(syntax?$1" +" s_894)" +"(syntax-e$1" +" s_894)" +" s_894)))" +"(eq?" +" #f" +" s_895)))" +"(let-values(((s_896)" +"(cdr" +" s_893)))" " #t)" " #f)" " #f)))" @@ -77722,58 +77970,58 @@ static const char *startup_source = "(let-values(((module*637_1" " name638_1" " _639_1)" -"(let-values(((s_893)" +"(let-values(((s_897)" "(if(syntax?$1" " s_706)" "(syntax-e$1" " s_706)" " s_706)))" "(let-values(((module*640_0)" -"(let-values(((s_894)" +"(let-values(((s_898)" "(car" -" s_893)))" -" s_894))" +" s_897)))" +" s_898))" "((name641_0" " _642_0)" -"(let-values(((s_895)" -"(cdr" -" s_893)))" -"(let-values(((s_896)" -"(if(syntax?$1" -" s_895)" -"(syntax-e$1" -" s_895)" -" s_895)))" -"(let-values(((name643_0)" -"(let-values(((s_897)" -"(car" -" s_896)))" -" s_897))" -"((_644_0)" -"(let-values(((s_898)" -"(cdr" -" s_896)))" "(let-values(((s_899)" -"(if(syntax?$1" -" s_898)" -"(syntax-e$1" -" s_898)" -" s_898)))" -"(let-values((()" +"(cdr" +" s_897)))" "(let-values(((s_900)" -"(car" -" s_899)))" -"(let-values(((s_901)" "(if(syntax?$1" -" s_900)" +" s_899)" "(syntax-e$1" -" s_900)" +" s_899)" +" s_899)))" +"(let-values(((name643_0)" +"(let-values(((s_901)" +"(car" " s_900)))" +" s_901))" +"((_644_0)" +"(let-values(((s_902)" +"(cdr" +" s_900)))" +"(let-values(((s_903)" +"(if(syntax?$1" +" s_902)" +"(syntax-e$1" +" s_902)" +" s_902)))" +"(let-values((()" +"(let-values(((s_904)" +"(car" +" s_903)))" +"(let-values(((s_905)" +"(if(syntax?$1" +" s_904)" +"(syntax-e$1" +" s_904)" +" s_904)))" "(values))))" "((_645_0)" "(let-values(((s_709)" "(cdr" -" s_899)))" +" s_903)))" " s_709)))" "(values" " _645_0))))))" @@ -77800,7 +78048,7 @@ static const char *startup_source = "(let-values(((neg-phase_0)" "(phase-" " 0" -" phase_167)))" +" phase_165)))" "(let-values(((shifted-s_0)" "(syntax-shift-phase-level$1" " ready-body_2" @@ -77854,27 +78102,27 @@ static const char *startup_source = "(if(expanded+parsed?" " submod_4)" "(let-values()" -"(let-values(((the-struct_120)" +"(let-values(((the-struct_119)" " submod_4))" "(if(expanded+parsed?" -" the-struct_120)" +" the-struct_119)" "(let-values(((s658_0)" "(syntax-shift-phase-level$1" "(expanded+parsed-s" " submod_4)" -" phase_167)))" +" phase_165)))" "(expanded+parsed1.1" " s658_0" "(expanded+parsed-parsed" -" the-struct_120)))" +" the-struct_119)))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_120))))" +" the-struct_119))))" "(let-values()" "(syntax-shift-phase-level$1" " submod_4" -" phase_167))))))))" +" phase_165))))))))" "(let-values()" "(let-values(((ready-body659_0)" " ready-body_2)" @@ -77911,49 +78159,49 @@ static const char *startup_source = " submod-ctx661_0))))))" "(cons" " submod_3" -"(loop_128" +"(loop_130" " rest-bodys_3" -" phase_167)))))))" +" phase_165)))))))" "(let-values()" "(cons" " body_25" -"(loop_128" +"(loop_130" " rest-bodys_3" -" phase_167)))))))))))))))))" -" loop_128)" +" phase_165)))))))))))))))))" +" loop_130)" " fully-expanded-bodys-except-post-submodules_2" -" phase_166)))))))))))))))))" +" phase_164)))))))))))))))))" "(define-values" "(stop-at-module*?)" -"(lambda(ctx_119)" +"(lambda(ctx_120)" "(begin" "(free-id-set-member?" -"(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))))))" +"(expand-context-stops ctx_120)" +"(expand-context-phase ctx_120)" +"(syntax-shift-phase-level$1(datum->syntax$1 core-stx 'module*)(expand-context-phase ctx_120))))))" "(define-values" "(check-ids-unbound173.1)" "(lambda(in168_0 ids170_0 phase171_1 requires+provides172_0)" "(begin" " 'check-ids-unbound173" -"(let-values(((ids_49) ids170_0))" -"(let-values(((phase_168) phase171_1))" +"(let-values(((ids_48) ids170_0))" +"(let-values(((phase_166) phase171_1))" "(let-values(((requires+provides_13) requires+provides172_0))" -"(let-values(((s_902) in168_0))" +"(let-values(((s_906) in168_0))" "(let-values()" "(begin" -"(let-values(((lst_444) ids_49))" +"(let-values(((lst_448) ids_48))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_444)))" -"((letrec-values(((for-loop_341)" -"(lambda(lst_445)" +"(let-values()(check-list lst_448)))" +"((letrec-values(((for-loop_340)" +"(lambda(lst_449)" "(begin" " 'for-loop" -"(if(pair? lst_445)" -"(let-values(((id_160)(unsafe-car lst_445))" -"((rest_255)(unsafe-cdr lst_445)))" +"(if(pair? lst_449)" +"(let-values(((id_162)(unsafe-car lst_449))" +"((rest_255)(unsafe-cdr lst_449)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77962,10 +78210,10 @@ static const char *startup_source = "(let-values()" "(let-values(((requires+provides667_0)" " requires+provides_13)" -"((id668_0) id_160)" +"((id668_0) id_162)" "((phase669_0)" -" phase_168)" -"((s670_0) s_902)" +" phase_166)" +"((s670_0) s_906)" "((temp671_0) 'module))" "(check-not-defined95.1" " #f" @@ -77985,25 +78233,25 @@ static const char *startup_source = " phase669_0)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_341 rest_255)(values))))" +"(if(not #f)(for-loop_340 rest_255)(values))))" "(values))))))" -" for-loop_341)" -" lst_444)))" +" for-loop_340)" +" lst_448)))" "(void))))))))))" "(define-values" "(eval-nested-bodys)" -"(lambda(bodys_27 phase_169 m-ns_22 self_40 ctx_120)" +"(lambda(bodys_27 phase_167 m-ns_22 self_40 ctx_121)" "(begin" "(begin" -"(let-values(((lst_446) bodys_27))" +"(let-values(((lst_450) bodys_27))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_446)))" -"((letrec-values(((for-loop_342)" -"(lambda(lst_447)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_450)))" +"((letrec-values(((for-loop_341)" +"(lambda(lst_451)" "(begin" " 'for-loop" -"(if(pair? lst_447)" -"(let-values(((body_26)(unsafe-car lst_447))((rest_256)(unsafe-cdr lst_447)))" +"(if(pair? lst_451)" +"(let-values(((body_26)(unsafe-car lst_451))((rest_256)(unsafe-cdr lst_451)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -78017,72 +78265,72 @@ static const char *startup_source = " body_26)))" "(if(parsed-define-values? p_89)" "(let-values()" -"(let-values(((ids_50)" +"(let-values(((ids_49)" "(parsed-define-values-ids" " p_89)))" "(let-values(((vals_11)" "(eval-for-bindings" " 'define-values" -" ids_50" +" ids_49" "(parsed-define-values-rhs" " p_89)" -" phase_169" +" phase_167" " m-ns_22" -" ctx_120)))" +" ctx_121)))" "(begin" -"(let-values(((lst_448) ids_50)" -"((lst_449)" +"(let-values(((lst_452) ids_49)" +"((lst_453)" "(parsed-define-values-syms" " p_89))" -"((lst_450) vals_11))" +"((lst_454) vals_11))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_448)))" +"(check-list lst_452)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_449)))" +"(check-list lst_453)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_450)))" -"((letrec-values(((for-loop_343)" -"(lambda(lst_451" -" lst_452" -" lst_453)" +"(check-list lst_454)))" +"((letrec-values(((for-loop_342)" +"(lambda(lst_455" +" lst_456" +" lst_457)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_451)" +" lst_455)" "(if(pair?" -" lst_452)" +" lst_456)" "(pair?" -" lst_453)" +" lst_457)" " #f)" " #f)" -"(let-values(((id_161)" +"(let-values(((id_163)" "(unsafe-car" -" lst_451))" +" lst_455))" "((rest_257)" "(unsafe-cdr" -" lst_451))" -"((sym_109)" +" lst_455))" +"((sym_110)" "(unsafe-car" -" lst_452))" +" lst_456))" "((rest_258)" "(unsafe-cdr" -" lst_452))" -"((val_88)" +" lst_456))" +"((val_89)" "(unsafe-car" -" lst_453))" +" lst_457))" "((rest_259)" "(unsafe-cdr" -" lst_453)))" +" lst_457)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -78091,37 +78339,37 @@ static const char *startup_source = "(let-values()" "(namespace-set-variable!" " m-ns_22" -" phase_169" -" sym_109" -" val_88))" +" phase_167" +" sym_110" +" val_89))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_343" +"(for-loop_342" " rest_257" " rest_258" " rest_259)" "(values))))" "(values))))))" -" for-loop_343)" -" lst_448" -" lst_449" -" lst_450)))" +" for-loop_342)" +" lst_452" +" lst_453" +" lst_454)))" "(void)))))" -"(if(let-values(((or-part_410)" +"(if(let-values(((or-part_415)" "(parsed-define-syntaxes?" " p_89)))" -"(if or-part_410" -" or-part_410" +"(if or-part_415" +" or-part_415" "(semi-parsed-begin-for-syntax?" " p_89)))" "(let-values()(void))" -"(if(let-values(((or-part_411)" +"(if(let-values(((or-part_416)" "(parsed-#%declare?" " p_89)))" -"(if or-part_411" -" or-part_411" +"(if or-part_416" +" or-part_416" "(syntax?$1 p_89)))" "(let-values()(void))" "(let-values()" @@ -78132,7 +78380,7 @@ static const char *startup_source = " #f" " parameterization-key)" " current-expand-context" -" ctx_120" +" ctx_121" " 1/current-namespace" " m-ns_22)" "(let-values()" @@ -78142,7 +78390,7 @@ static const char *startup_source = "(let-values(((m-ns672_0)" " m-ns_22)" "((phase673_0)" -" phase_169))" +" phase_167))" "(make-compile-context14.1" " #f" " #f" @@ -78159,10 +78407,10 @@ static const char *startup_source = " m-ns_22)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_342 rest_256)(values))))" +"(if(not #f)(for-loop_341 rest_256)(values))))" "(values))))))" -" for-loop_342)" -" lst_446)))" +" for-loop_341)" +" lst_450)))" "(void)))))" "(define-values" "(expand-submodule197.1)" @@ -78184,9 +78432,9 @@ static const char *startup_source = " ctx196_0)" "(begin" " 'expand-submodule197" -"(let-values(((s_903) s194_0))" +"(let-values(((s_907) s194_0))" "(let-values(((self_41) self195_0))" -"(let-values(((ctx_121) ctx196_0))" +"(let-values(((ctx_122) 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)))" @@ -78208,47 +78456,47 @@ static const char *startup_source = "(if is-star?_0" "(void)" "(let-values()" -"(let-values(((obs_162)(expand-context-observer ctx_121)))" +"(let-values(((obs_162)(expand-context-observer ctx_122)))" "(if obs_162" "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_162 'enter-prim s_903)" +"(call-expand-observe obs_162 'enter-prim s_907)" "(call-expand-observe" " obs_162" "(if is-star?_0 'prim-submodule* 'prim-submodule)))))" "(void)))))" "(values))))" "(let-values(((ok?_90 module674_0 name675_0 _676_0)" -"(let-values(((s_904) s_903))" -"(let-values(((orig-s_94) s_904))" +"(let-values(((s_908) s_907))" +"(let-values(((orig-s_94) s_908))" "(let-values(((module674_1 name675_1 _676_1)" "(let-values(((s_763)" -"(if(syntax?$1 s_904)" -"(syntax-e$1 s_904)" -" s_904)))" +"(if(syntax?$1 s_908)" +"(syntax-e$1 s_908)" +" s_908)))" "(if(pair? s_763)" "(let-values(((module677_0)" -"(let-values(((s_905)(car s_763)))" -" s_905))" +"(let-values(((s_909)(car s_763)))" +" s_909))" "((name678_0 _679_0)" -"(let-values(((s_906)(cdr s_763)))" -"(let-values(((s_907)" +"(let-values(((s_910)(cdr s_763)))" +"(let-values(((s_911)" "(if(syntax?$1" -" s_906)" -"(syntax-e$1 s_906)" -" s_906)))" -"(if(pair? s_907)" +" s_910)" +"(syntax-e$1 s_910)" +" s_910)))" +"(if(pair? s_911)" "(let-values(((name680_0)" -"(let-values(((s_908)" +"(let-values(((s_912)" "(car" -" s_907)))" -" s_908))" +" s_911)))" +" s_912))" "((_681_0)" -"(let-values(((s_909)" +"(let-values(((s_913)" "(cdr" -" s_907)))" -" s_909)))" +" s_911)))" +" s_913)))" "(values name680_0 _681_0))" "(raise-syntax-error$1" " #f" @@ -78260,139 +78508,139 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_94)))))" "(values #t module674_1 name675_1 _676_1))))))" -"(let-values(((name_80)(syntax-e$1 name675_0)))" +"(let-values(((name_81)(syntax-e$1 name675_0)))" "(let-values((()" "(begin" -"(if(hash-ref declared-submodule-names_8 name_80 #f)" +"(if(hash-ref declared-submodule-names_8 name_81 #f)" "(let-values()" "(raise-syntax-error$1" " #f" " \"submodule already declared with the same name\"" -" s_903" -" name_80))" +" s_907" +" name_81))" "(void))" "(values))))" "(let-values((()" "(begin" "(hash-set!" " declared-submodule-names_8" -" name_80" +" name_81" "(syntax-e$1 module674_0))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_163)(expand-context-observer ctx_121)))" +"(let-values(((obs_163)(expand-context-observer ctx_122)))" "(if obs_163" "(let-values()" "(let-values()" -"(call-expand-observe obs_163 'enter-prim s_903)))" +"(call-expand-observe obs_163 'enter-prim s_907)))" "(void)))" "(values))))" "(let-values(((submod_5)" -"(let-values(((s682_0) s_903)" +"(let-values(((s682_0) s_907)" "((temp683_0)" -"(let-values(((v_276) ctx_121))" -"(let-values(((the-struct_121) v_276))" -"(if(expand-context/outer? the-struct_121)" +"(let-values(((v_278) ctx_122))" +"(let-values(((the-struct_120) v_278))" +"(if(expand-context/outer? the-struct_120)" "(let-values(((context692_0) 'module)" "((post-expansion-scope693_0)" " #f)" "((inner694_0)" -"(let-values(((the-struct_122)" +"(let-values(((the-struct_121)" "(root-expand-context/outer-inner" -" v_276)))" +" v_278)))" "(if(expand-context/inner?" -" the-struct_122)" +" the-struct_121)" "(let-values(((stops695_0)" " empty-free-id-set))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_122)" +" the-struct_121)" "(root-expand-context/inner-module-scopes" -" the-struct_122)" +" the-struct_121)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_122)" +" the-struct_121)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_122)" +" the-struct_121)" "(root-expand-context/inner-defined-syms" -" the-struct_122)" +" the-struct_121)" "(root-expand-context/inner-counter" -" the-struct_122)" +" the-struct_121)" "(root-expand-context/inner-lift-key" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-to-parsed?" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-phase" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-namespace" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-just-once?" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-module-begin-k" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-allow-unbound?" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-in-local-expand?" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-keep-#%expression?" -" the-struct_122)" +" the-struct_121)" " stops695_0" "(expand-context/inner-declared-submodule-names" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-lifts" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-lift-envs" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-module-lifts" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-require-lifts" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-to-module-lifts" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-requires+provides" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-observer" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-for-serializable?" -" the-struct_122)" +" the-struct_121)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_122)))" +" the-struct_121)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_122)))))" +" the-struct_121)))))" "(expand-context/outer1.1" " inner694_0" " post-expansion-scope693_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_121)" +" the-struct_120)" "(root-expand-context/outer-frame-id" -" the-struct_121)" +" the-struct_120)" " context692_0" "(expand-context/outer-env" -" the-struct_121)" +" the-struct_120)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_121)" +" the-struct_120)" "(expand-context/outer-scopes" -" the-struct_121)" +" the-struct_120)" "(expand-context/outer-def-ctx-scopes" -" the-struct_121)" +" the-struct_120)" "(expand-context/outer-binding-layer" -" the-struct_121)" +" the-struct_120)" "(expand-context/outer-reference-records" -" the-struct_121)" +" the-struct_120)" "(expand-context/outer-only-immediate?" -" the-struct_121)" +" the-struct_120)" "(expand-context/outer-need-eventually-defined" -" the-struct_121)" +" the-struct_120)" "(expand-context/outer-current-introduction-scopes" -" the-struct_121)" +" the-struct_120)" "(expand-context/outer-name" -" the-struct_121)))" +" the-struct_120)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_121)))))" +" the-struct_120)))))" "((self684_0) self_41)" "((temp685_0) #t)" "((keep-enclosing-scope-at-phase686_0)" @@ -78426,7 +78674,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((obs_164)" -"(expand-context-observer ctx_121)))" +"(expand-context-observer ctx_122)))" "(if obs_164" "(let-values()" "(let-values()" @@ -78436,7 +78684,7 @@ static const char *startup_source = "(extract-syntax submod_5))))" "(void)))" "(values))))" -"(let-values(((ns_131)(expand-context-namespace ctx_121)))" +"(let-values(((ns_131)(expand-context-namespace ctx_122)))" "(let-values(((module-name_3)(1/module-path-index-resolve self_41)))" "(let-values(((root-module-name_1)" "(resolved-module-path-root-name module-name_3)))" @@ -78467,7 +78715,7 @@ static const char *startup_source = "((temp698_0) #t)" "((temp699_0)" "(expand-context-for-serializable?" -" ctx_121))" +" ctx_122))" "((modules-being-compiled700_0)" " modules-being-compiled_8)" "((temp701_0) #f))" @@ -78487,7 +78735,7 @@ static const char *startup_source = "(begin" "(hash-set!" " compiled-submodules_5" -" name_80" +" name_81" "(cons is-star?_0 compiled-submodule_0))" "(with-continuation-mark" " parameterization-key" @@ -78513,7 +78761,7 @@ static const char *startup_source = "(void)" "(let-values()" "(let-values(((obs_165)" -"(expand-context-observer ctx_121)))" +"(expand-context-observer ctx_122)))" "(if obs_165" "(let-values()" "(let-values()" @@ -78526,67 +78774,67 @@ static const char *startup_source = "(let-values() submod_5)" "(if(expanded+parsed? submod_5)" "(let-values()" -"(let-values(((the-struct_123) submod_5))" -"(if(expanded+parsed? the-struct_123)" +"(let-values(((the-struct_122) submod_5))" +"(if(expanded+parsed? the-struct_122)" "(let-values(((parsed707_0)" -"(let-values(((the-struct_124)" +"(let-values(((the-struct_123)" "(expanded+parsed-parsed" " submod_5)))" -"(if(parsed-module? the-struct_124)" +"(if(parsed-module? the-struct_123)" "(let-values(((star?708_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_124)" +"(parsed-s the-struct_123)" " star?708_0" "(parsed-module-name-id" -" the-struct_124)" +" the-struct_123)" "(parsed-module-self" -" the-struct_124)" +" the-struct_123)" "(parsed-module-requires" -" the-struct_124)" +" the-struct_123)" "(parsed-module-provides" -" the-struct_124)" +" the-struct_123)" "(parsed-module-root-ctx-simple?" -" the-struct_124)" +" the-struct_123)" "(parsed-module-encoded-root-ctx" -" the-struct_124)" +" the-struct_123)" "(parsed-module-body" -" the-struct_124)" +" the-struct_123)" "(parsed-module-compiled-module" -" the-struct_124)" +" the-struct_123)" "(parsed-module-compiled-submodules" -" the-struct_124)))" +" the-struct_123)))" "(raise-argument-error" " 'struct-copy" " \"parsed-module?\"" -" the-struct_124)))))" +" the-struct_123)))))" "(expanded+parsed1.1" -"(expanded+parsed-s the-struct_123)" +"(expanded+parsed-s the-struct_122)" " parsed707_0))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_123))))" +" the-struct_122))))" "(let-values()" -"(let-values(((the-struct_125) submod_5))" -"(if(parsed-module? the-struct_125)" +"(let-values(((the-struct_124) submod_5))" +"(if(parsed-module? the-struct_124)" "(let-values(((star?709_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_125)" +"(parsed-s the-struct_124)" " star?709_0" -"(parsed-module-name-id the-struct_125)" -"(parsed-module-self the-struct_125)" -"(parsed-module-requires the-struct_125)" -"(parsed-module-provides the-struct_125)" -"(parsed-module-root-ctx-simple? the-struct_125)" -"(parsed-module-encoded-root-ctx the-struct_125)" -"(parsed-module-body the-struct_125)" -"(parsed-module-compiled-module the-struct_125)" +"(parsed-module-name-id the-struct_124)" +"(parsed-module-self the-struct_124)" +"(parsed-module-requires the-struct_124)" +"(parsed-module-provides the-struct_124)" +"(parsed-module-root-ctx-simple? the-struct_124)" +"(parsed-module-encoded-root-ctx the-struct_124)" +"(parsed-module-body the-struct_124)" +"(parsed-module-compiled-module the-struct_124)" "(parsed-module-compiled-submodules" -" the-struct_125)))" +" the-struct_124)))" "(raise-argument-error" " 'struct-copy" " \"parsed-module?\"" -" the-struct_125)))))))))))))))))))))))))))))))))))" +" the-struct_124)))))))))))))))))))))))))))))))))))" "(define-values" "(expand-non-module*-submodules212.1)" "(lambda(compiled-submodules202_0" @@ -78600,30 +78848,30 @@ static const char *startup_source = "(begin" " 'expand-non-module*-submodules212" "(let-values(((bodys_28) bodys208_0))" -"(let-values(((phase_170) phase209_0))" +"(let-values(((phase_168) phase209_0))" "(let-values(((self_42) self210_0))" -"(let-values(((ctx_122) ctx211_0))" +"(let-values(((ctx_123) 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_454) bodys_28))" +"(let-values(((lst_458) bodys_28))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_454)))" -"((letrec-values(((for-loop_344)" -"(lambda(fold-var_393 lst_455)" +"(let-values()(check-list lst_458)))" +"((letrec-values(((for-loop_343)" +"(lambda(fold-var_394 lst_459)" "(begin" " 'for-loop" -"(if(pair? lst_455)" -"(let-values(((body_27)(unsafe-car lst_455))" -"((rest_260)(unsafe-cdr lst_455)))" -"(let-values(((fold-var_394)" -"(let-values(((fold-var_395) fold-var_393))" -"(let-values(((fold-var_396)" +"(if(pair? lst_459)" +"(let-values(((body_27)(unsafe-car lst_459))" +"((rest_260)(unsafe-cdr lst_459)))" +"(let-values(((fold-var_395)" +"(let-values(((fold-var_396) fold-var_394))" +"(let-values(((fold-var_397)" "(let-values()" "(cons" "(let-values()" @@ -78631,7 +78879,7 @@ static const char *startup_source = "(core-form-sym" "(syntax-disarm$1" " body_27)" -" phase_170)))" +" phase_168)))" "(if(equal? tmp_70 'module)" "(let-values()" "(let-values(((body710_0)" @@ -78639,7 +78887,7 @@ static const char *startup_source = "((self711_0)" " self_42)" "((ctx712_0)" -" ctx_122)" +" ctx_123)" "((temp713_0)" " #f)" "((mpis-to-reset714_0)" @@ -78668,15 +78916,15 @@ static const char *startup_source = " self711_0" " ctx712_0)))" "(let-values() body_27))))" -" fold-var_395))))" -"(values fold-var_396)))))" +" fold-var_396))))" +"(values fold-var_397)))))" "(if(not #f)" -"(for-loop_344 fold-var_394 rest_260)" -" fold-var_394)))" -" fold-var_393)))))" -" for-loop_344)" +"(for-loop_343 fold-var_395 rest_260)" +" fold-var_395)))" +" fold-var_394)))))" +" for-loop_343)" " null" -" lst_454))))))))))))))))" +" lst_458))))))))))))))))" "(define-values" "(make-parse-lifted-require220.1)" "(lambda(declared-submodule-names215_0 m-ns217_0 self218_0 requires+provides219_0)" @@ -78687,37 +78935,37 @@ static const char *startup_source = "(let-values(((requires+provides_14) requires+provides219_0))" "(let-values(((declared-submodule-names_10) declared-submodule-names215_0))" "(let-values()" -"(lambda(s_910 phase_171)" +"(lambda(s_914 phase_169)" "(let-values(((ok?_91 #%require718_0 req719_0)" -"(let-values(((s_911)(syntax-disarm$1 s_910)))" -"(let-values(((orig-s_95) s_911))" +"(let-values(((s_915)(syntax-disarm$1 s_914)))" +"(let-values(((orig-s_95) s_915))" "(let-values(((#%require718_1 req719_1)" -"(let-values(((s_912)" -"(if(syntax?$1 s_911)(syntax-e$1 s_911) s_911)))" -"(if(pair? s_912)" -"(let-values(((#%require720_0)" -"(let-values(((s_913)(car s_912))) s_913))" -"((req721_0)" -"(let-values(((s_914)(cdr s_912)))" -"(let-values(((s_915)" -"(if(syntax?$1 s_914)" -"(syntax-e$1 s_914)" -" s_914)))" -"(if(pair? s_915)" -"(let-values(((req722_0)" "(let-values(((s_916)" -"(car s_915)))" -" s_916))" +"(if(syntax?$1 s_915)(syntax-e$1 s_915) s_915)))" +"(if(pair? s_916)" +"(let-values(((#%require720_0)" +"(let-values(((s_917)(car s_916))) s_917))" +"((req721_0)" +"(let-values(((s_918)(cdr s_916)))" +"(let-values(((s_919)" +"(if(syntax?$1 s_918)" +"(syntax-e$1 s_918)" +" s_918)))" +"(if(pair? s_919)" +"(let-values(((req722_0)" +"(let-values(((s_920)" +"(car s_919)))" +" s_920))" "(()" -"(let-values(((s_917)" -"(cdr s_915)))" -"(let-values(((s_918)" +"(let-values(((s_921)" +"(cdr s_919)))" +"(let-values(((s_922)" "(if(syntax?$1" -" s_917)" +" s_921)" "(syntax-e$1" -" s_917)" -" s_917)))" -"(if(null? s_918)" +" s_921)" +" s_921)))" +"(if(null? s_922)" "(values)" "(raise-syntax-error$1" " #f" @@ -78732,11 +78980,11 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_95)))))" "(values #t #%require718_1 req719_1))))))" "(let-values(((temp723_0)(list req719_0))" -"((s724_0) s_910)" +"((s724_0) s_914)" "((self725_0) self_43)" "((m-ns726_0) m-ns_23)" -"((phase727_0) phase_171)" -"((phase728_0) phase_171)" +"((phase727_0) phase_169)" +"((phase728_0) phase_169)" "((requires+provides729_0) requires+provides_14)" "((declared-submodule-names730_0) declared-submodule-names_10)" "((temp731_0) 'require))" @@ -78778,30 +79026,30 @@ static const char *startup_source = "(lambda(lifted-defns_2)" "(begin" "(reverse$1" -"(let-values(((lst_456) lifted-defns_2))" +"(let-values(((lst_460) lifted-defns_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_456)))" -"((letrec-values(((for-loop_345)" -"(lambda(fold-var_397 lst_457)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_460)))" +"((letrec-values(((for-loop_344)" +"(lambda(fold-var_398 lst_461)" "(begin" " 'for-loop" -"(if(pair? lst_457)" -"(let-values(((lifted-defn_0)(unsafe-car lst_457))" -"((rest_261)(unsafe-cdr lst_457)))" -"(let-values(((fold-var_398)" -"(let-values(((fold-var_399) fold-var_397))" -"(let-values(((fold-var_400)" +"(if(pair? lst_461)" +"(let-values(((lifted-defn_0)(unsafe-car lst_461))" +"((rest_261)(unsafe-cdr lst_461)))" +"(let-values(((fold-var_399)" +"(let-values(((fold-var_400) fold-var_398))" +"(let-values(((fold-var_401)" "(let-values()" "(cons" "(let-values()" "(defn-extract-syntax lifted-defn_0))" -" fold-var_399))))" -"(values fold-var_400)))))" -"(if(not #f)(for-loop_345 fold-var_398 rest_261) fold-var_398)))" -" fold-var_397)))))" -" for-loop_345)" +" fold-var_400))))" +"(values fold-var_401)))))" +"(if(not #f)(for-loop_344 fold-var_399 rest_261) fold-var_399)))" +" fold-var_398)))))" +" for-loop_344)" " null" -" lst_456)))))))" +" lst_460)))))))" "(define-values" "(log-lifted-defns)" "(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)" @@ -78817,18 +79065,18 @@ static const char *startup_source = "(let-values((()(begin(call-expand-observe obs_166 'module-lift-loop s-lifted-defns_0)(values))))" "(let-values((()" "(begin" -"(let-values(((lst_458) s-lifted-defns_0))" +"(let-values(((lst_462) s-lifted-defns_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_458)))" -"((letrec-values(((for-loop_346)" -"(lambda(lst_459)" +"(let-values()(check-list lst_462)))" +"((letrec-values(((for-loop_345)" +"(lambda(lst_463)" "(begin" " 'for-loop" -"(if(pair? lst_459)" -"(let-values(((s-lifted-defn_0)(unsafe-car lst_459))" -"((rest_262)(unsafe-cdr lst_459)))" +"(if(pair? lst_463)" +"(let-values(((s-lifted-defn_0)(unsafe-car lst_463))" +"((rest_262)(unsafe-cdr lst_463)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -78838,38 +79086,38 @@ static const char *startup_source = "(let-values(((ok?_92" " define-values736_0" " _737_0)" -"(let-values(((s_919)" +"(let-values(((s_923)" " s-lifted-defn_0))" "(let-values(((orig-s_96)" -" s_919))" +" s_923))" "(let-values(((define-values736_1" " _737_1)" -"(let-values(((s_920)" +"(let-values(((s_924)" "(if(syntax?$1" -" s_919)" +" s_923)" "(syntax-e$1" -" s_919)" -" s_919)))" +" s_923)" +" s_923)))" "(if(pair?" -" s_920)" +" s_924)" "(let-values(((define-values738_0)" -"(let-values(((s_921)" +"(let-values(((s_925)" "(car" -" s_920)))" -" s_921))" +" s_924)))" +" s_925))" "((_739_0)" -"(let-values(((s_922)" +"(let-values(((s_926)" "(cdr" -" s_920)))" -"(let-values(((s_923)" +" s_924)))" +"(let-values(((s_927)" "(if(syntax?$1" -" s_922)" +" s_926)" "(syntax-e$1" -" s_922)" -" s_922)))" +" s_926)" +" s_926)))" "(let-values(((flat-s_64)" "(to-syntax-list.1" -" s_923)))" +" s_927)))" "(if(not" " flat-s_64)" "(let-values()" @@ -78934,23 +79182,23 @@ static const char *startup_source = " s-lifted-defn_0))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_346 rest_262)(values))))" +"(if(not #f)(for-loop_345 rest_262)(values))))" "(values))))))" -" for-loop_346)" -" lst_458)))" +" for-loop_345)" +" lst_462)))" "(values))))" "(let-values()" "(let-values(((ok?_93 form-id732_0 _733_0)" -"(let-values(((s_924) exp-body_10))" -"(let-values(((orig-s_97) s_924))" +"(let-values(((s_928) exp-body_10))" +"(let-values(((orig-s_97) s_928))" "(let-values(((form-id732_1 _733_1)" -"(let-values(((s_925)" -"(if(syntax?$1 s_924)(syntax-e$1 s_924) s_924)))" -"(if(pair? s_925)" +"(let-values(((s_929)" +"(if(syntax?$1 s_928)(syntax-e$1 s_928) s_928)))" +"(if(pair? s_929)" "(let-values(((form-id734_0)" -"(let-values(((s_926)(car s_925))) s_926))" +"(let-values(((s_930)(car s_929))) s_930))" "((_735_0)" -"(let-values(((s_927)(cdr s_925))) s_927)))" +"(let-values(((s_931)(cdr s_929))) s_931)))" "(values form-id734_0 _735_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_97)))))" "(values #t form-id732_1 _733_1))))))" @@ -78965,27 +79213,27 @@ static const char *startup_source = "(void))))))" "(define-values" "(log-defn-enter)" -"(lambda(ctx_123 defn_1)" +"(lambda(ctx_124 defn_1)" "(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_0)(defn-extract-syntax defn_1)))" "(let-values(((ok?_94 define-values740_0 _741_0)" -"(let-values(((s_928) s-defn_0))" -"(let-values(((orig-s_98) s_928))" +"(let-values(((s_932) s-defn_0))" +"(let-values(((orig-s_98) s_932))" "(let-values(((define-values740_1 _741_1)" -"(let-values(((s_929)(if(syntax?$1 s_928)(syntax-e$1 s_928) s_928)))" -"(if(pair? s_929)" +"(let-values(((s_933)(if(syntax?$1 s_932)(syntax-e$1 s_932) s_932)))" +"(if(pair? s_933)" "(let-values(((define-values742_0)" -"(let-values(((s_930)(car s_929))) s_930))" +"(let-values(((s_934)(car s_933))) s_934))" "((_743_0)" -"(let-values(((s_931)(cdr s_929)))" -"(let-values(((s_932)" -"(if(syntax?$1 s_931)" -"(syntax-e$1 s_931)" -" s_931)))" -"(let-values(((flat-s_65)(to-syntax-list.1 s_932)))" +"(let-values(((s_935)(cdr s_933)))" +"(let-values(((s_936)" +"(if(syntax?$1 s_935)" +"(syntax-e$1 s_935)" +" s_935)))" +"(let-values(((flat-s_65)(to-syntax-list.1 s_936)))" "(if(not flat-s_65)" "(let-values()" "(raise-syntax-error$1" @@ -79004,9 +79252,9 @@ static const char *startup_source = "(void))))))" "(define-values" "(log-defn-exit)" -"(lambda(ctx_124 defn_2 exp-rhs_8)" +"(lambda(ctx_125 defn_2 exp-rhs_8)" "(begin" -"(let-values(((obs_168)(expand-context-observer ctx_124)))" +"(let-values(((obs_168)(expand-context-observer ctx_125)))" "(if obs_168" "(let-values()" "(let-values(((s-defn_1)" @@ -79018,58 +79266,58 @@ static const char *startup_source = "(void))))))" "(define-values" "(as-expand-time-top-level-bindings)" -"(lambda(ids_51 s_71 ctx_125)" +"(lambda(ids_50 s_71 ctx_126)" "(begin" -"(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_125)))" +"(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_126)))" "(let-values(((tl-ids_2)" "(reverse$1" -"(let-values(((lst_6) ids_51))" +"(let-values(((lst_6) ids_50))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_6)))" -"((letrec-values(((for-loop_105)" -"(lambda(fold-var_401 lst_84)" +"((letrec-values(((for-loop_106)" +"(lambda(fold-var_402 lst_83)" "(begin" " 'for-loop" -"(if(pair? lst_84)" -"(let-values(((id_162)(unsafe-car lst_84))" -"((rest_40)(unsafe-cdr lst_84)))" +"(if(pair? lst_83)" +"(let-values(((id_164)(unsafe-car lst_83))" +"((rest_39)(unsafe-cdr lst_83)))" "(let-values(((fold-var_61)" -"(let-values(((fold-var_62) fold-var_401))" -"(let-values(((fold-var_402)" +"(let-values(((fold-var_62) fold-var_402))" +"(let-values(((fold-var_403)" "(let-values()" "(cons" "(let-values()" "(remove-use-site-scopes" -" id_162" -" ctx_125))" +" id_164" +" ctx_126))" " fold-var_62))))" -"(values fold-var_402)))))" -"(if(not #f)(for-loop_105 fold-var_61 rest_40) fold-var_61)))" -" fold-var_401)))))" -" for-loop_105)" +"(values fold-var_403)))))" +"(if(not #f)(for-loop_106 fold-var_61 rest_39) fold-var_61)))" +" fold-var_402)))))" +" for-loop_106)" " null" " lst_6))))))" "(let-values((()" "(begin" -"(let-values(((tl-ids1_0) tl-ids_2)((temp2_9)(expand-context-phase ctx_125))((s3_4) s_71))" +"(let-values(((tl-ids1_0) tl-ids_2)((temp2_9)(expand-context-phase ctx_126))((s3_4) s_71))" "(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_347)" -"(lambda(fold-var_222 lst_85)" +"(let-values()(check-list lst_100)))" +"((letrec-values(((for-loop_346)" +"(lambda(fold-var_222 lst_84)" "(begin" " 'for-loop" -"(if(pair? lst_85)" -"(let-values(((id_163)(unsafe-car lst_85))" -"((rest_242)(unsafe-cdr lst_85)))" +"(if(pair? lst_84)" +"(let-values(((id_165)(unsafe-car lst_84))" +"((rest_242)(unsafe-cdr lst_84)))" "(let-values(((fold-var_26)" "(let-values(((fold-var_155) fold-var_222))" "(let-values(((fold-var_225)" @@ -79077,18 +79325,18 @@ static const char *startup_source = "(cons" "(let-values()" "(add-scope" -" id_163" +" id_165" " top-level-bind-scope_6))" " fold-var_155))))" "(values fold-var_225)))))" "(if(not #f)" -"(for-loop_347 fold-var_26 rest_242)" +"(for-loop_346 fold-var_26 rest_242)" " fold-var_26)))" " fold-var_222)))))" -" for-loop_347)" +" for-loop_346)" " null" -" lst_101))))))" -"(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_125)))))))))" +" lst_100))))))" +"(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_126)))))))))" "(void" "(add-core-form!*" " 'define-values" @@ -79108,19 +79356,19 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_25)(syntax-disarm$1 s_0)))" "(let-values(((ok?_25 define-values1_0 id2_1 rhs3_0)" -"(let-values(((s_450) s_0))" -"(let-values(((orig-s_99) s_450))" +"(let-values(((s_451) s_0))" +"(let-values(((orig-s_99) s_451))" "(let-values(((define-values1_1 id2_2 rhs3_1)" -"(let-values(((s_75)(if(syntax?$1 s_450)(syntax-e$1 s_450) s_450)))" +"(let-values(((s_75)(if(syntax?$1 s_451)(syntax-e$1 s_451) s_451)))" "(if(pair? s_75)" "(let-values(((define-values4_0)" -"(let-values(((s_451)(car s_75))) s_451))" +"(let-values(((s_452)(car s_75))) s_452))" "((id5_0 rhs6_0)" -"(let-values(((s_166)(cdr s_75)))" +"(let-values(((s_169)(cdr s_75)))" "(let-values(((s_5)" -"(if(syntax?$1 s_166)" -"(syntax-e$1 s_166)" -" s_166)))" +"(if(syntax?$1 s_169)" +"(syntax-e$1 s_169)" +" s_169)))" "(if(pair? s_5)" "(let-values(((id7_0)" "(let-values(((s_79)(car s_5)))" @@ -79139,7 +79387,7 @@ static const char *startup_source = " orig-s_99))" "(let-values()" "(let-values(((id_6)" -"(let-values(((lst_80)" +"(let-values(((lst_79)" " flat-s_66))" "(begin" "(if(variable-reference-from-unsafe?" @@ -79147,24 +79395,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_80)))" -"((letrec-values(((for-loop_98)" -"(lambda(id_164" -" lst_81)" +" lst_79)))" +"((letrec-values(((for-loop_99)" +"(lambda(id_166" +" lst_80)" "(begin" " 'for-loop" "(if(pair?" -" lst_81)" +" lst_80)" "(let-values(((s_87)" "(unsafe-car" -" lst_81))" +" lst_80))" "((rest_119)" "(unsafe-cdr" -" lst_81)))" -"(let-values(((id_165)" -"(let-values(((id_166)" -" id_164))" -"(let-values(((id_115)" +" lst_80)))" +"(let-values(((id_167)" +"(let-values(((id_168)" +" id_166))" +"(let-values(((id_118)" "(let-values()" "(let-values(((id10_1)" "(let-values()" @@ -79187,26 +79435,26 @@ static const char *startup_source = " s_87)))))" "(cons" " id10_1" -" id_166)))))" +" id_168)))))" "(values" -" id_115)))))" +" id_118)))))" "(if(not" " #f)" -"(for-loop_98" -" id_165" +"(for-loop_99" +" id_167" " rest_119)" -" id_165)))" -" id_164)))))" -" for-loop_98)" +" id_167)))" +" id_166)))))" +" for-loop_99)" " null" -" lst_80)))))" +" lst_79)))))" "(reverse$1 id_6))))))))" "((rhs8_0)" -"(let-values(((s_808)(cdr s_5)))" +"(let-values(((s_814)(cdr s_5)))" "(let-values(((s_35)" -"(if(syntax?$1 s_808)" -"(syntax-e$1 s_808)" -" s_808)))" +"(if(syntax?$1 s_814)" +"(syntax-e$1 s_814)" +" s_814)))" "(if(pair? s_35)" "(let-values(((rhs9_0)" "(let-values(((s_89)" @@ -79214,17 +79462,17 @@ static const char *startup_source = " s_35)))" " s_89))" "(()" -"(let-values(((s_167)" +"(let-values(((s_170)" "(cdr" " s_35)))" -"(let-values(((s_491)" +"(let-values(((s_492)" "(if(syntax?$1" -" s_167)" +" s_170)" "(syntax-e$1" -" s_167)" -" s_167)))" +" s_170)" +" s_170)))" "(if(null?" -" s_491)" +" s_492)" "(values)" "(raise-syntax-error$1" " #f" @@ -79240,38 +79488,38 @@ static const char *startup_source = "(values define-values4_0 id5_0 rhs6_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_99)))))" "(values #t define-values1_1 id2_2 rhs3_1))))))" -"(let-values(((ids_52 syms_27)(as-expand-time-top-level-bindings id2_1 s_0 ctx_7)))" +"(let-values(((ids_51 syms_27)(as-expand-time-top-level-bindings id2_1 s_0 ctx_7)))" "(let-values(((exp-rhs_9)" "(let-values(((temp11_7) rhs3_0)" -"((temp12_9)(as-named-context(as-expression-context ctx_7) ids_52)))" +"((temp12_9)(as-named-context(as-expression-context ctx_7) ids_51)))" "(expand9.1 #f #f #f #f #f #f temp11_7 temp12_9))))" "(if(expand-context-to-parsed? ctx_7)" -"(parsed-define-values19.1 s_0 ids_52 syms_27 exp-rhs_9)" -"(let-values(((s13_0) s_0)((temp14_8)(list define-values1_0 ids_52 exp-rhs_9)))" +"(parsed-define-values19.1 s_0 ids_51 syms_27 exp-rhs_9)" +"(let-values(((s13_0) s_0)((temp14_8)(list define-values1_0 ids_51 exp-rhs_9)))" "(rebuild5.1 #f #f s13_0 temp14_8))))))))))))" "(void" "(add-core-form!*" " 'define-syntaxes" -"(lambda(s_185 ctx_126)" +"(lambda(s_188 ctx_127)" "(let-values((()" "(begin" -"(let-values(((obs_3)(expand-context-observer ctx_126)))" +"(let-values(((obs_3)(expand-context-observer ctx_127)))" "(if obs_3" "(let-values()(let-values()(call-expand-observe obs_3 'prim-define-syntaxes)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_170)(expand-context-observer ctx_126)))" +"(let-values(((obs_170)(expand-context-observer ctx_127)))" "(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_126) 'top-level)" +"(if(eq?(expand-context-context ctx_127) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_185)))" +" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_188)))" "(values))))" -"(let-values(((disarmed-s_26)(syntax-disarm$1 s_185)))" +"(let-values(((disarmed-s_26)(syntax-disarm$1 s_188)))" "(let-values(((ok?_95 define-syntaxes15_0 id16_1 rhs17_0)" "(let-values(((s_18) disarmed-s_26))" "(let-values(((orig-s_100) s_18))" @@ -79279,23 +79527,23 @@ static const char *startup_source = "(let-values(((s_22)(if(syntax?$1 s_18)(syntax-e$1 s_18) s_18)))" "(if(pair? s_22)" "(let-values(((define-syntaxes18_0)" -"(let-values(((s_933)(car s_22))) s_933))" +"(let-values(((s_937)(car s_22))) s_937))" "((id19_1 rhs20_0)" "(let-values(((s_25)(cdr s_22)))" -"(let-values(((s_500)" +"(let-values(((s_501)" "(if(syntax?$1 s_25)" "(syntax-e$1 s_25)" " s_25)))" -"(if(pair? s_500)" +"(if(pair? s_501)" "(let-values(((id21_0)" -"(let-values(((s_934)(car s_500)))" -"(let-values(((s_90)" -"(if(syntax?$1 s_934)" -"(syntax-e$1 s_934)" -" s_934)))" +"(let-values(((s_938)(car s_501)))" +"(let-values(((s_157)" +"(if(syntax?$1 s_938)" +"(syntax-e$1 s_938)" +" s_938)))" "(let-values(((flat-s_67)" "(to-syntax-list.1" -" s_90)))" +" s_157)))" "(if(not flat-s_67)" "(let-values()" "(raise-syntax-error$1" @@ -79303,8 +79551,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_100))" "(let-values()" -"(let-values(((id_93)" -"(let-values(((lst_460)" +"(let-values(((id_79)" +"(let-values(((lst_464)" " flat-s_67))" "(begin" "(if(variable-reference-from-unsafe?" @@ -79312,84 +79560,84 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_460)))" +" lst_464)))" "((letrec-values(((for-loop_2)" -"(lambda(id_54" -" lst_461)" +"(lambda(id_55" +" lst_465)" "(begin" " 'for-loop" "(if(pair?" -" lst_461)" -"(let-values(((s_935)" +" lst_465)" +"(let-values(((s_939)" "(unsafe-car" -" lst_461))" +" lst_465))" "((rest_263)" "(unsafe-cdr" -" lst_461)))" -"(let-values(((id_167)" -"(let-values(((id_168)" -" id_54))" +" lst_465)))" "(let-values(((id_169)" +"(let-values(((id_170)" +" id_55))" +"(let-values(((id_171)" "(let-values()" "(let-values(((id24_1)" "(let-values()" -"(if(let-values(((or-part_210)" +"(if(let-values(((or-part_212)" "(if(syntax?$1" -" s_935)" +" s_939)" "(symbol?" "(syntax-e$1" -" s_935))" +" s_939))" " #f)))" -"(if or-part_210" -" or-part_210" +"(if or-part_212" +" or-part_212" "(symbol?" -" s_935)))" -" s_935" +" s_939)))" +" s_939" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_100" -" s_935)))))" +" s_939)))))" "(cons" " id24_1" -" id_168)))))" +" id_170)))))" "(values" -" id_169)))))" +" id_171)))))" "(if(not" " #f)" "(for-loop_2" -" id_167" +" id_169" " rest_263)" -" id_167)))" -" id_54)))))" +" id_169)))" +" id_55)))))" " for-loop_2)" " null" -" lst_460)))))" -"(reverse$1 id_93))))))))" +" lst_464)))))" +"(reverse$1 id_79))))))))" "((rhs22_0)" -"(let-values(((s_426)(cdr s_500)))" -"(let-values(((s_174)" +"(let-values(((s_426)(cdr s_501)))" +"(let-values(((s_177)" "(if(syntax?$1 s_426)" "(syntax-e$1 s_426)" " s_426)))" -"(if(pair? s_174)" +"(if(pair? s_177)" "(let-values(((rhs23_2)" -"(let-values(((s_501)" +"(let-values(((s_502)" "(car" -" s_174)))" -" s_501))" +" s_177)))" +" s_502))" "(()" "(let-values(((s_46)" "(cdr" -" s_174)))" -"(let-values(((s_504)" +" s_177)))" +"(let-values(((s_506)" "(if(syntax?$1" " s_46)" "(syntax-e$1" " s_46)" " s_46)))" "(if(null?" -" s_504)" +" s_506)" "(values)" "(raise-syntax-error$1" " #f" @@ -79408,35 +79656,37 @@ static const char *startup_source = "(values define-syntaxes18_0 id19_1 rhs20_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_100)))))" "(values #t define-syntaxes15_1 id16_2 rhs17_1))))))" -"(let-values(((ids_53 syms_28)(as-expand-time-top-level-bindings id16_1 s_185 ctx_126)))" +"(let-values(((ids_52 syms_28)(as-expand-time-top-level-bindings id16_1 s_188 ctx_127)))" "(let-values(((exp-rhs_10)" -"(let-values(((temp25_7) rhs17_0)((temp26_6)(as-named-context ctx_126 ids_53)))" +"(let-values(((temp25_7) rhs17_0)((temp26_6)(as-named-context ctx_127 ids_52)))" "(expand-transformer92.1 #f #f #f #f #f #f #f #f #f #f #f #f temp25_7 temp26_6))))" -"(if(expand-context-to-parsed? ctx_126)" -"(parsed-define-syntaxes20.1 s_185 ids_53 syms_28 exp-rhs_10)" -"(let-values(((s27_3) s_185)((temp28_7)(list define-syntaxes15_0 ids_53 exp-rhs_10)))" +"(if(expand-context-to-parsed? ctx_127)" +"(parsed-define-syntaxes20.1 s_188 ids_52 syms_28 exp-rhs_10)" +"(let-values(((s27_3) s_188)((temp28_7)(list define-syntaxes15_0 ids_52 exp-rhs_10)))" "(rebuild5.1 #f #f s27_3 temp28_7)))))))))))))" "(void" "(add-core-form!*" " 'begin-for-syntax" -"(lambda(s_483 ctx_127)" +"(lambda(s_484 ctx_128)" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_127) 'top-level)" +"(if(eq?(expand-context-context ctx_128) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_483)))" +" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_484)))" "(values))))" "(let-values(((ok?_37 begin-for-syntax29_0 form30_0)" -"(let-values(((s_936) s_483))" -"(let-values(((orig-s_101) s_936))" +"(let-values(((s_940) s_484))" +"(let-values(((orig-s_101) s_940))" "(let-values(((begin-for-syntax29_1 form30_1)" -"(let-values(((s_49)(if(syntax?$1 s_936)(syntax-e$1 s_936) s_936)))" +"(let-values(((s_49)(if(syntax?$1 s_940)(syntax-e$1 s_940) s_940)))" "(if(pair? s_49)" "(let-values(((begin-for-syntax31_0)(let-values(((s_51)(car s_49))) s_51))" "((form32_0)" -"(let-values(((s_94)(cdr s_49)))" +"(let-values(((s_319)(cdr s_49)))" "(let-values(((s_780)" -"(if(syntax?$1 s_94)(syntax-e$1 s_94) s_94)))" +"(if(syntax?$1 s_319)" +"(syntax-e$1 s_319)" +" s_319)))" "(let-values(((flat-s_68)(to-syntax-list.1 s_780)))" "(if(not flat-s_68)" "(let-values()" @@ -79447,104 +79697,104 @@ static const char *startup_source = "(values #t begin-for-syntax29_1 form30_1))))))" "(let-values((()" "(begin" -"(let-values(((obs_171)(expand-context-observer ctx_127)))" +"(let-values(((obs_171)(expand-context-observer ctx_128)))" "(if obs_171" "(let-values()(let-values()(call-expand-observe obs_171 'prim-begin-for-syntax)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_172)(expand-context-observer ctx_127)))" +"(let-values(((obs_172)(expand-context-observer ctx_128)))" "(if obs_172" "(let-values()(let-values()(call-expand-observe obs_172 'prepare-env)))" "(void)))" "(values))))" "(let-values(((trans-ctx_1)" -"(let-values(((ctx33_0) ctx_127)((temp34_5) 'top-level)((temp35_4) #t))" +"(let-values(((ctx33_0) ctx_128)((temp34_5) 'top-level)((temp35_4) #t))" "(context->transformer-context100.1 temp35_4 #t ctx33_0 temp34_5 #t))))" "(let-values(((lift-ctx_7)" "(let-values(((temp36_9)(make-top-level-lift trans-ctx_1)))" "(make-lift-context6.1 #f #f temp36_9))))" "(let-values(((capture-ctx_1)" -"(let-values(((v_277) trans-ctx_1))" -"(let-values(((the-struct_126) v_277))" -"(if(expand-context/outer? the-struct_126)" +"(let-values(((v_279) trans-ctx_1))" +"(let-values(((the-struct_125) v_279))" +"(if(expand-context/outer? the-struct_125)" "(let-values(((inner37_0)" -"(let-values(((the-struct_127)" -"(root-expand-context/outer-inner v_277)))" -"(if(expand-context/inner? the-struct_127)" +"(let-values(((the-struct_126)" +"(root-expand-context/outer-inner v_279)))" +"(if(expand-context/inner? the-struct_126)" "(let-values(((lift-key38_0)(generate-lift-key))" "((lifts39_0) lift-ctx_7))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_127)" -"(root-expand-context/inner-module-scopes the-struct_127)" +"(root-expand-context/inner-self-mpi the-struct_126)" +"(root-expand-context/inner-module-scopes the-struct_126)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_127)" -"(root-expand-context/inner-all-scopes-stx the-struct_127)" -"(root-expand-context/inner-defined-syms the-struct_127)" -"(root-expand-context/inner-counter the-struct_127)" +" the-struct_126)" +"(root-expand-context/inner-all-scopes-stx the-struct_126)" +"(root-expand-context/inner-defined-syms the-struct_126)" +"(root-expand-context/inner-counter the-struct_126)" " lift-key38_0" -"(expand-context/inner-to-parsed? the-struct_127)" -"(expand-context/inner-phase the-struct_127)" -"(expand-context/inner-namespace the-struct_127)" -"(expand-context/inner-just-once? the-struct_127)" -"(expand-context/inner-module-begin-k the-struct_127)" -"(expand-context/inner-allow-unbound? the-struct_127)" -"(expand-context/inner-in-local-expand? the-struct_127)" -"(expand-context/inner-keep-#%expression? the-struct_127)" -"(expand-context/inner-stops the-struct_127)" -"(expand-context/inner-declared-submodule-names the-struct_127)" +"(expand-context/inner-to-parsed? the-struct_126)" +"(expand-context/inner-phase the-struct_126)" +"(expand-context/inner-namespace the-struct_126)" +"(expand-context/inner-just-once? the-struct_126)" +"(expand-context/inner-module-begin-k the-struct_126)" +"(expand-context/inner-allow-unbound? the-struct_126)" +"(expand-context/inner-in-local-expand? the-struct_126)" +"(expand-context/inner-keep-#%expression? the-struct_126)" +"(expand-context/inner-stops the-struct_126)" +"(expand-context/inner-declared-submodule-names the-struct_126)" " lifts39_0" -"(expand-context/inner-lift-envs the-struct_127)" -"(expand-context/inner-module-lifts the-struct_127)" -"(expand-context/inner-require-lifts the-struct_127)" -"(expand-context/inner-to-module-lifts the-struct_127)" -"(expand-context/inner-requires+provides the-struct_127)" -"(expand-context/inner-observer the-struct_127)" -"(expand-context/inner-for-serializable? the-struct_127)" +"(expand-context/inner-lift-envs the-struct_126)" +"(expand-context/inner-module-lifts the-struct_126)" +"(expand-context/inner-require-lifts the-struct_126)" +"(expand-context/inner-to-module-lifts the-struct_126)" +"(expand-context/inner-requires+provides the-struct_126)" +"(expand-context/inner-observer the-struct_126)" +"(expand-context/inner-for-serializable? the-struct_126)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_127)))" +" the-struct_126)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_127)))))" +" the-struct_126)))))" "(expand-context/outer1.1" " inner37_0" -"(root-expand-context/outer-post-expansion-scope the-struct_126)" -"(root-expand-context/outer-use-site-scopes the-struct_126)" -"(root-expand-context/outer-frame-id the-struct_126)" -"(expand-context/outer-context the-struct_126)" -"(expand-context/outer-env the-struct_126)" -"(expand-context/outer-post-expansion-scope-action the-struct_126)" -"(expand-context/outer-scopes the-struct_126)" -"(expand-context/outer-def-ctx-scopes the-struct_126)" -"(expand-context/outer-binding-layer the-struct_126)" -"(expand-context/outer-reference-records the-struct_126)" -"(expand-context/outer-only-immediate? the-struct_126)" -"(expand-context/outer-need-eventually-defined the-struct_126)" -"(expand-context/outer-current-introduction-scopes the-struct_126)" -"(expand-context/outer-name the-struct_126)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_126))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_125)" +"(root-expand-context/outer-use-site-scopes the-struct_125)" +"(root-expand-context/outer-frame-id the-struct_125)" +"(expand-context/outer-context the-struct_125)" +"(expand-context/outer-env the-struct_125)" +"(expand-context/outer-post-expansion-scope-action the-struct_125)" +"(expand-context/outer-scopes the-struct_125)" +"(expand-context/outer-def-ctx-scopes the-struct_125)" +"(expand-context/outer-binding-layer the-struct_125)" +"(expand-context/outer-reference-records the-struct_125)" +"(expand-context/outer-only-immediate? the-struct_125)" +"(expand-context/outer-need-eventually-defined the-struct_125)" +"(expand-context/outer-current-introduction-scopes the-struct_125)" +"(expand-context/outer-name the-struct_125)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_125))))))" "(let-values(((all-exp-forms_0)" -"((letrec-values(((loop_63)" +"((letrec-values(((loop_65)" "(lambda(forms_0)" "(begin" " 'loop" "(let-values((()" "(begin" "(let-values(((obs_173)" -"(expand-context-observer ctx_127)))" +"(expand-context-observer ctx_128)))" "(if obs_173" "(let-values()" "(let-values()" "(call-expand-observe" " obs_173" " 'enter-list" -"(datum->syntax$1 #f form30_0 s_483))))" +"(datum->syntax$1 #f form30_0 s_484))))" "(void)))" "(values))))" "(let-values(((exp-forms_0)" -"((letrec-values(((loop_129)" +"((letrec-values(((loop_131)" "(lambda(forms_1 accum_1)" "(begin" " 'loop" @@ -79556,7 +79806,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_174)" "(expand-context-observer" -" ctx_127)))" +" ctx_128)))" "(if obs_174" "(let-values()" "(let-values()" @@ -79566,20 +79816,20 @@ static const char *startup_source = "(datum->syntax$1" " #f" " forms_2" -" s_483))))" +" s_484))))" "(void)))" " forms_2)))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_61)" +"(let-values(((obs_62)" "(expand-context-observer" -" ctx_127)))" -"(if obs_61" +" ctx_128)))" +"(if obs_62" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_61" +" obs_62" " 'next)))" "(void)))" "(values))))" @@ -79598,12 +79848,12 @@ static const char *startup_source = " #f" " temp40_6" " capture-ctx41_0))))" -"(loop_129" +"(loop_131" "(cdr forms_1)" "(cons" " exp-form_0" " accum_1))))))))))" -" loop_129)" +" loop_131)" " forms_0" " null)))" "(let-values(((lifts_15)(get-and-clear-lifts! lift-ctx_7)))" @@ -79612,14 +79862,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_64)" +"(let-values(((obs_65)" "(expand-context-observer" -" ctx_127)))" -"(if obs_64" +" ctx_128)))" +"(if obs_65" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_64" +" obs_65" " 'module-lift-loop" " lifts_15)))" "(void)))" @@ -79644,43 +79894,43 @@ static const char *startup_source = "(reverse$1" "(cdr(syntax-e$1 beg_0)))))))" "(append" -"(loop_63 exprs_1)" +"(loop_65 exprs_1)" " exp-forms_0)))))))))))))" -" loop_63)" +" loop_65)" " form30_0)))" -"(if(expand-context-to-parsed? ctx_127)" -"(parsed-begin-for-syntax21.1 s_483 all-exp-forms_0)" -"(let-values(((s45_0) s_483)((temp46_3)(cons begin-for-syntax29_0 all-exp-forms_0)))" +"(if(expand-context-to-parsed? ctx_128)" +"(parsed-begin-for-syntax21.1 s_484 all-exp-forms_0)" +"(let-values(((s45_0) s_484)((temp46_3)(cons begin-for-syntax29_0 all-exp-forms_0)))" "(rebuild5.1 #f #f s45_0 temp46_3))))))))))))))" "(void" "(add-core-form!*" " '#%require" -"(lambda(s_412 ctx_128)" +"(lambda(s_412 ctx_129)" "(let-values((()" "(begin" -"(let-values(((obs_10)(expand-context-observer ctx_128)))" +"(let-values(((obs_10)(expand-context-observer ctx_129)))" "(if obs_10(let-values()(let-values()(call-expand-observe obs_10 'prim-require)))(void)))" "(values))))" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_128) 'top-level)" +"(if(eq?(expand-context-context ctx_129) 'top-level)" "(void)" " (let-values () (raise-syntax-error$1 #f \"allowed only in a module or the top level\" s_412)))" "(values))))" "(let-values(((disarmed-s_27)(syntax-disarm$1 s_412)))" "(let-values(((ok?_96 #%require47_0 req48_0)" -"(let-values(((s_198) disarmed-s_27))" -"(let-values(((orig-s_102) s_198))" +"(let-values(((s_204) disarmed-s_27))" +"(let-values(((orig-s_102) s_204))" "(let-values(((#%require47_1 req48_1)" -"(let-values(((s_200)(if(syntax?$1 s_198)(syntax-e$1 s_198) s_198)))" -"(if(pair? s_200)" -"(let-values(((#%require49_0)(let-values(((s_63)(car s_200))) s_63))" +"(let-values(((s_206)(if(syntax?$1 s_204)(syntax-e$1 s_204) s_204)))" +"(if(pair? s_206)" +"(let-values(((#%require49_0)(let-values(((s_63)(car s_206))) s_63))" "((req50_0)" -"(let-values(((s_522)(cdr s_200)))" +"(let-values(((s_444)(cdr s_206)))" "(let-values(((s_416)" -"(if(syntax?$1 s_522)" -"(syntax-e$1 s_522)" -" s_522)))" +"(if(syntax?$1 s_444)" +"(syntax-e$1 s_444)" +" s_444)))" "(let-values(((flat-s_69)(to-syntax-list.1 s_416)))" "(if(not flat-s_69)" "(let-values()" @@ -79696,21 +79946,21 @@ static const char *startup_source = "(begin" "(let-values(((temp51_4)" "(reverse$1" -"(let-values(((lst_462) req48_0))" +"(let-values(((lst_466) req48_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_462)))" -"((letrec-values(((for-loop_348)" -"(lambda(fold-var_403 lst_200)" +"(let-values()(check-list lst_466)))" +"((letrec-values(((for-loop_347)" +"(lambda(fold-var_404 lst_201)" "(begin" " 'for-loop" -"(if(pair? lst_200)" -"(let-values(((req_20)(unsafe-car lst_200))" -"((rest_264)(unsafe-cdr lst_200)))" -"(let-values(((fold-var_302)" -"(let-values(((fold-var_139) fold-var_403))" -"(let-values(((fold-var_404)" +"(if(pair? lst_201)" +"(let-values(((req_20)(unsafe-car lst_201))" +"((rest_264)(unsafe-cdr lst_201)))" +"(let-values(((fold-var_304)" +"(let-values(((fold-var_139) fold-var_404))" +"(let-values(((fold-var_405)" "(let-values()" "(cons" "(let-values()" @@ -79718,18 +79968,18 @@ static const char *startup_source = " req_20" " sc_40))" " fold-var_139))))" -"(values fold-var_404)))))" +"(values fold-var_405)))))" "(if(not #f)" -"(for-loop_348 fold-var_302 rest_264)" -" fold-var_302)))" -" fold-var_403)))))" -" for-loop_348)" +"(for-loop_347 fold-var_304 rest_264)" +" fold-var_304)))" +" fold-var_404)))))" +" for-loop_347)" " null" -" lst_462)))))" +" lst_466)))))" "((s52_0) s_412)" "((temp53_5) #f)" -"((temp54_6)(expand-context-namespace ctx_128))" -"((temp55_3)(expand-context-phase ctx_128))" +"((temp54_6)(expand-context-namespace ctx_129))" +"((temp55_3)(expand-context-phase ctx_129))" "((temp56_3)(let-values(((temp59_7) #f))(make-requires+provides8.1 #f #f temp59_7)))" "((temp57_2) 'require)" "((temp58_4) #t))" @@ -79758,13 +80008,13 @@ static const char *startup_source = " temp54_6" " temp55_3" " temp56_3))" -"(if(expand-context-to-parsed? ctx_128)(parsed-require23.1 s_412) s_412))))))))))" +"(if(expand-context-to-parsed? ctx_129)(parsed-require23.1 s_412) s_412))))))))))" "(void" "(add-core-form!*" " '#%provide" -"(lambda(s_786 ctx_129)" +"(lambda(s_786 ctx_130)" "(begin" -"(let-values(((obs_175)(expand-context-observer ctx_129)))" +"(let-values(((obs_175)(expand-context-observer ctx_130)))" "(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_786)))))" "(define-values(ns)(make-namespace))" @@ -79797,65 +80047,65 @@ static const char *startup_source = "(let-values(((ns26_3) ns)" "((eval27_0) 1/eval)" "((temp28_8)" -"(let-values(((ht_170) main-primitives))" +"(let-values(((ht_171) main-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_170)))" +"(let-values()(check-in-hash-keys ht_171)))" "((letrec-values(((for-loop_20)" "(lambda(table_230 i_3)" "(begin" " 'for-loop" "(if i_3" -"(let-values(((name_81)(hash-iterate-key ht_170 i_3)))" +"(let-values(((name_82)(hash-iterate-key ht_171 i_3)))" "(let-values(((table_218)" "(let-values(((table_231) table_230))" "(let-values(((table_186)" "(let-values()" -"(let-values(((key_95 val_89)" -"(let-values()" -"(values" -"(let-values() name_81)" -" #t))))" -"(hash-set table_231 key_95 val_89)))))" -"(values table_186)))))" -"(if(not #f)" -"(for-loop_20 table_218(hash-iterate-next ht_170 i_3))" -" table_218)))" -" table_230)))))" -" for-loop_20)" -" '#hash()" -"(hash-iterate-first ht_170)))))" -"((temp29_5)" -"(let-values(((ht_171) read-primitives))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-in-hash-keys ht_171)))" -"((letrec-values(((for-loop_330)" -"(lambda(table_189 i_188)" -"(begin" -" 'for-loop" -"(if i_188" -"(let-values(((name_82)(hash-iterate-key ht_171 i_188)))" -"(let-values(((table_117)" -"(let-values(((table_110) table_189))" -"(let-values(((table_111)" -"(let-values()" -"(let-values(((key_96 val_90)" +"(let-values(((key_95 val_90)" "(let-values()" "(values" "(let-values() name_82)" " #t))))" -"(hash-set table_110 key_96 val_90)))))" +"(hash-set table_231 key_95 val_90)))))" +"(values table_186)))))" +"(if(not #f)" +"(for-loop_20 table_218(hash-iterate-next ht_171 i_3))" +" table_218)))" +" table_230)))))" +" for-loop_20)" +" '#hash()" +"(hash-iterate-first ht_171)))))" +"((temp29_5)" +"(let-values(((ht_172) read-primitives))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-in-hash-keys ht_172)))" +"((letrec-values(((for-loop_329)" +"(lambda(table_189 i_191)" +"(begin" +" 'for-loop" +"(if i_191" +"(let-values(((name_83)(hash-iterate-key ht_172 i_191)))" +"(let-values(((table_117)" +"(let-values(((table_110) table_189))" +"(let-values(((table_111)" +"(let-values()" +"(let-values(((key_96 val_91)" +"(let-values()" +"(values" +"(let-values() name_83)" +" #t))))" +"(hash-set table_110 key_96 val_91)))))" "(values table_111)))))" "(if(not #f)" -"(for-loop_330 table_117(hash-iterate-next ht_171 i_188))" +"(for-loop_329 table_117(hash-iterate-next ht_172 i_191))" " table_117)))" " table_189)))))" -" for-loop_330)" +" for-loop_329)" " '#hash()" -"(hash-iterate-first ht_171))))))" +"(hash-iterate-first ht_172))))))" "(declare-kernel-module!8.1 eval27_0 temp28_8 temp29_5 ns26_3))" "(begin" "(let-values(((lst_17) runtime-instances))" @@ -79866,33 +80116,33 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_20)" -"(let-values(((name_83)(unsafe-car lst_20))((rest_6)(unsafe-cdr lst_20)))" +"(let-values(((name_84)(unsafe-car lst_20))((rest_6)(unsafe-cdr lst_20)))" "(let-values((()" "(let-values()" -"(if(eq? name_83 '#%kernel)" +"(if(eq? name_84 '#%kernel)" "(values)" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((name30_0) name_83)" +"(let-values(((name30_0) name_84)" "((ns31_5) ns)" "((temp32_5)" "(let-values(((or-part_164)" "(eq?" -" name_83" +" name_84" " '#%foreign)))" "(if or-part_164" " or-part_164" -"(let-values(((or-part_306)" +"(let-values(((or-part_309)" "(eq?" -" name_83" +" name_84" " '#%futures)))" -"(if or-part_306" -" or-part_306" +"(if or-part_309" +" or-part_309" "(eq?" -" name_83" +" name_84" " '#%unsafe)))))))" "(copy-runtime-module!26.1" " #f"