diff --git a/racket/src/expander/common/intern.rkt b/racket/src/expander/common/intern.rkt index e4d90d5b81..6b3d44faac 100644 --- a/racket/src/expander/common/intern.rkt +++ b/racket/src/expander/common/intern.rkt @@ -9,10 +9,12 @@ ;; the table after failing to find an entry (and if the transaction ;; fails, we look again for an entry). -(struct weak-intern-table (box)) +(struct weak-intern-table (box) + #:authentic) (struct table (ht ; integer[hash code] -> list of weak boxes count ; number of items in the table (= sum of list lengths) - prune-at)) ; count at which we should try to prune empty weak boxes + prune-at) ; count at which we should try to prune empty weak boxes + #:authentic) (define (make-weak-intern-table) (weak-intern-table (box (table (hasheqv) 0 128)))) diff --git a/racket/src/expander/expand/lift-context.rkt b/racket/src/expander/expand/lift-context.rkt index fa5b325d1f..a41ad1a655 100644 --- a/racket/src/expander/expand/lift-context.rkt +++ b/racket/src/expander/expand/lift-context.rkt @@ -56,8 +56,9 @@ (struct lift-context (convert ; takes a list of ids and rhs to produce a lifted-bind lifts ; box of list of lifted-binds and maybe other forms - module*-ok?)) ; if used to capture module lifts, allow `module*`? -(struct lifted-bind (ids keys rhs)) + module*-ok?) ; if used to capture module lifts, allow `module*`? + #:authentic) +(struct lifted-bind (ids keys rhs) #:authentic) (define (make-lift-context convert #:module*-ok? [module*-ok? #f]) (lift-context convert (box null) module*-ok?)) @@ -137,9 +138,10 @@ ;; ---------------------------------------- -(struct module-lift-context (wrt-phase ; phase of target for lifts - lifts ; box of list of lifted - module*-ok?)) ; whether `module*` is allowed +(struct module-lift-context (wrt-phase ; phase of target for lifts + lifts ; box of list of lifted + module*-ok?) ; whether `module*` is allowed + #:authentic) (define (make-module-lift-context phase module*-ok?) (module-lift-context phase (box null) module*-ok?)) @@ -176,7 +178,8 @@ (struct require-lift-context (do-require ; callback to process a lifted require wrt-phase ; phase of target for lifts - requires)) ; records lifted requires + requires) ; records lifted requires + #:authentic) (define (make-require-lift-context wrt-phase do-require) (require-lift-context do-require wrt-phase (box null))) @@ -194,7 +197,8 @@ (struct to-module-lift-context (wrt-phase ; phase of target for lifts provides end-as-expressions? - ends)) + ends) + #:authentic) (define (make-to-module-lift-context phase #:shared-module-ends ends diff --git a/racket/src/expander/expand/reference-record.rkt b/racket/src/expander/expand/reference-record.rkt index 4f0ee216b3..48897188dc 100644 --- a/racket/src/expander/expand/reference-record.rkt +++ b/racket/src/expander/expand/reference-record.rkt @@ -18,7 +18,8 @@ (struct reference-record ([already-bound #:mutable] [reference-before-bound #:mutable] [all-referenced? #:mutable]) - #:transparent) + #:authentic + #:transparent) (define (make-reference-record) (reference-record (seteq) (seteq) #f)) diff --git a/racket/src/expander/expand/require+provide.rkt b/racket/src/expander/expand/require+provide.rkt index e4c12c1190..da3844c1a6 100644 --- a/racket/src/expander/expand/require+provide.rkt +++ b/racket/src/expander/expand/require+provide.rkt @@ -55,7 +55,7 @@ #:authentic) ;; A `required` represents an identifier required into a module -(struct required (id phase can-be-shadowed? as-transformer?)) +(struct required (id phase can-be-shadowed? as-transformer?) #:authentic) ;; A `nominal` supports a reverse mapping of bindings to nominal info (struct nominal (module provide-phase require-phase sym) #:transparent #:authentic) diff --git a/racket/src/expander/host/correlate.rkt b/racket/src/expander/host/correlate.rkt index f3d194522d..1638494685 100644 --- a/racket/src/expander/host/correlate.rkt +++ b/racket/src/expander/host/correlate.rkt @@ -88,10 +88,10 @@ [else (error 'correlated->list "not a list")]))) (define (correlated->datum e) - (datum-map e (lambda (tail? d) - (if (syntax? d) - (syntax->datum d) - d)))) + (datum-map e (lambda (tail? d) d) (lambda (tail? d) + (if (syntax? d) + (syntax->datum d) + d)))) (define (correlated-property-symbol-keys e) (syntax-property-symbol-keys e)) diff --git a/racket/src/expander/namespace/module.rkt b/racket/src/expander/namespace/module.rkt index 036624c6aa..123c26c7b1 100644 --- a/racket/src/expander/namespace/module.rkt +++ b/racket/src/expander/namespace/module.rkt @@ -77,7 +77,8 @@ inspector ; declaration-time inspector submodule-names ; associated submodules (i.e, when declared together) supermodule-name ; associated supermodule (i.e, when declared together) - get-all-variables)) ; for `module->indirect-exports` + get-all-variables) ; for `module->indirect-exports` + #:authentic) ;; [*] Beware that tabels in `provides` may map non-interned symbols ;; to provided bindings, in case something like a lifted @@ -93,7 +94,8 @@ inspector ; declaration-time inspector extra-inspector ; optional extra inspector extra-inspectorsss) ; optional extra inspector sets per variable per import - #:transparent) + #:authentic + #:transparent) (define (make-module #:source-name [source-name #f] #:self self @@ -140,7 +142,8 @@ phase-level-to-state ; phase-level -> #f, 'available, or 'started [made-available? #:mutable] ; no #f in `phase-level-to-state`? [attached? #:mutable] ; whether the instance has been attached elsewhere - data-box)) ; for use by module implementation + data-box) ; for use by module implementation + #:authentic) (define (make-module-instance m-ns m) (module-instance m-ns ; namespace diff --git a/racket/src/expander/namespace/namespace.rkt b/racket/src/expander/namespace/namespace.rkt index 160d4ba250..8b0d769b26 100644 --- a/racket/src/expander/namespace/namespace.rkt +++ b/racket/src/expander/namespace/namespace.rkt @@ -63,6 +63,7 @@ module-instances) ; union resolved-module-path -> module-instance [shared among modules] ;; ; 0-phase -> resolved-module-path -> module-instance ;; ; where the first option is for cross phase persistent modules + #:authentic #:property prop:custom-write (lambda (ns port mode) (write-string "#" port))) (struct definitions (variables ; linklet instance - transformers)) ; sym -> val + transformers) ; sym -> val + #:authentic) (define (make-namespace) (new-namespace)) diff --git a/racket/src/expander/namespace/provided.rkt b/racket/src/expander/namespace/provided.rkt index 3b97cd629c..ad3cc36d27 100644 --- a/racket/src/expander/namespace/provided.rkt +++ b/racket/src/expander/namespace/provided.rkt @@ -10,6 +10,7 @@ ;; Wrapper for provides that are protected or syntax (struct provided (binding protected? syntax?) + #:authentic #:transparent #:property prop:serialize (lambda (p ser-push! state) diff --git a/racket/src/expander/syntax/binding-table.rkt b/racket/src/expander/syntax/binding-table.rkt index b1a35c41f1..9894db4497 100644 --- a/racket/src/expander/syntax/binding-table.rkt +++ b/racket/src/expander/syntax/binding-table.rkt @@ -47,7 +47,8 @@ (lambda (twbb ser-push! state) (ser-push! 'tag '#:table-with-bulk-bindings) (ser-push! (table-with-bulk-bindings-syms/serialize twbb)) - (ser-push! (table-with-bulk-bindings-bulk-bindings twbb)))) + (ser-push! (table-with-bulk-bindings-bulk-bindings twbb))) + #:authentic) (define (deserialize-table-with-bulk-bindings syms bulk-bindings) (table-with-bulk-bindings syms syms bulk-bindings)) @@ -67,7 +68,8 @@ ;; bulk bindings are pruned dependong on whether all scopes ;; in `scopes` are reachable, and we shouldn't get here ;; when looking for scopes - (error "shouldn't get here"))) + (error "shouldn't get here")) + #:authentic) (define (deserialize-bulk-binding-at scopes bulk) (bulk-binding-at scopes bulk)) diff --git a/racket/src/expander/syntax/binding.rkt b/racket/src/expander/syntax/binding.rkt index b38cc413e0..9a262aeb58 100644 --- a/racket/src/expander/syntax/binding.rkt +++ b/racket/src/expander/syntax/binding.rkt @@ -51,6 +51,7 @@ [else (same-binding? ab bb)])) +;; By tradition, equate "unbound" with "bound at the top level" (define (toplevel-as-symbol b) (if (and (module-binding? b) (top-level-module-path-index? (module-binding-module b))) diff --git a/racket/src/expander/syntax/datum-map.rkt b/racket/src/expander/syntax/datum-map.rkt index 0ef990ec67..845b3cb0a1 100644 --- a/racket/src/expander/syntax/datum-map.rkt +++ b/racket/src/expander/syntax/datum-map.rkt @@ -1,16 +1,21 @@ #lang racket/base (require "../common/prefab.rkt" - "../common/inline.rkt") + "../common/inline.rkt" + racket/fixnum) (provide datum-map datum-has-elements?) ;; `(datum-map v f)` walks over `v`, traversing objects that -;; `datum->syntax` traverses to convert context to syntax objects. +;; `datum->syntax` traverses to convert content to syntax objects. ;; -;; `(f tail? d)` is called to each datum `d`, where `tail?` -;; indicates that the value is a pair/null in a `cdr` --- so that it -;; doesn't need to be wrapped for `datum->syntax`, for example +;; `(f tail? d)` is called on each datum `d`, where `tail?` +;; indicates that the value is a pair/null in a `cdr` --- so that it +;; doesn't need to be wrapped for `datum->syntax`, for example +;; +;; `gf` is like `f`, but `gf` is used when the argument might be +;; syntax; if `gf` is provided, `f` can assume that its argument +;; is not syntax ;; ;; If a `seen` argument is provided, then it should be an `eq?`-based ;; hash table, and cycle checking is enabled; when a cycle is @@ -20,21 +25,22 @@ ;; The inline version uses `f` only in an application position to ;; help avoid allocating a closure. It also covers only the most common ;; cases, defering to the general (not inlined) function for other cases. -(define-inline (datum-map s f [seen #f]) +(define-inline (datum-map s f [gf f] [seen #f]) (let loop ([tail? #f] [s s] [prev-depth 0]) - (define depth (add1 prev-depth)) ; avoid cycle-checking overhead for shallow cases + (define depth (fx+ 1 prev-depth)) ; avoid cycle-checking overhead for shallow cases (cond - [(and seen (depth . > . 32)) - (datum-map-slow tail? s (lambda (tail? s) (f tail? s)) seen)] + [(and seen (depth . fx> . 32)) + (datum-map-slow tail? s (lambda (tail? s) (gf tail? s)) seen)] [(null? s) (f tail? s)] [(pair? s) (f tail? (cons (loop #f (car s) depth) (loop #t (cdr s) depth)))] - [(or (symbol? s) (boolean? s) (number? s)) - (f #f s)] + [(symbol? s) (f #f s)] + [(boolean? s) (f #f s)] + [(number? s) (f #f s)] [(or (vector? s) (box? s) (prefab-struct-key s) (hash? s)) - (datum-map-slow tail? s (lambda (tail? s) (f tail? s)) seen)] - [else (f #f s)]))) + (datum-map-slow tail? s (lambda (tail? s) (gf tail? s)) seen)] + [else (gf #f s)]))) (define (datum-map-slow tail? s f seen) (let loop ([tail? tail?] [s s] [prev-seen seen]) diff --git a/racket/src/expander/syntax/preserved.rkt b/racket/src/expander/syntax/preserved.rkt index d64f7a92bc..0a4bdf0ce2 100644 --- a/racket/src/expander/syntax/preserved.rkt +++ b/racket/src/expander/syntax/preserved.rkt @@ -19,18 +19,17 @@ (preserved-property-value v)) (define (check-value-to-preserve v syntax?) - (datum-map v - (lambda (tail? v) - (unless (or (null? v) (boolean? v) (symbol? v) (number? v) - (char? v) (string? v) (bytes? v) (regexp? v) - (syntax? v) - (pair? v) (vector? v) (box? v) (hash? v) - (immutable-prefab-struct-key v)) - (raise-arguments-error 'write - "disallowed value in preserved syntax property" - "value" v)) - v) - disallow-cycles)) + (define (check-preserve tail? v) + (unless (or (null? v) (boolean? v) (symbol? v) (number? v) + (char? v) (string? v) (bytes? v) (regexp? v) + (syntax? v) + (pair? v) (vector? v) (box? v) (hash? v) + (immutable-prefab-struct-key v)) + (raise-arguments-error 'write + "disallowed value in preserved syntax property" + "value" v)) + v) + (datum-map v check-preserve check-preserve disallow-cycles)) (define disallow-cycles (hash 'cycle-fail diff --git a/racket/src/expander/syntax/scope.rkt b/racket/src/expander/syntax/scope.rkt index 6788e4f96d..476203cf0b 100644 --- a/racket/src/expander/syntax/scope.rkt +++ b/racket/src/expander/syntax/scope.rkt @@ -395,8 +395,10 @@ (define (syntax-e s) (define content (syntax-e/no-taint s)) + ;; Since we just called `syntax-e/no-taint`, we know that + ;; `(syntax-scope-propagations+tamper s)` is not a propagation (cond - [(not (tamper-armed? (syntax-tamper s))) content] + [(not (tamper-armed? (syntax-scope-propagations+tamper s))) content] [(datum-has-elements? content) (taint-content content)] [else content])) diff --git a/racket/src/expander/syntax/syntax.rkt b/racket/src/expander/syntax/syntax.rkt index d68166ab1a..36a130c436 100644 --- a/racket/src/expander/syntax/syntax.rkt +++ b/racket/src/expander/syntax/syntax.rkt @@ -229,6 +229,7 @@ (define-inline (syntax-map s f d->s s-e [seen #f]) (let loop ([s s]) (datum-map s + f (lambda (tail? v) (cond [(syntax? v) (d->s v (loop (s-e v)))] @@ -236,11 +237,12 @@ seen))) ;; `(non-syntax-map s f s->)` is like `(syntax-map s f d->s)`, except that -;; when a syntax object is found, it is just passed to `d` --- so there's +;; when a syntax object is found, it is just passed to `s->` --- so there's ;; no `d->s` or `s-e`, since they would not be called (define-inline (non-syntax-map s f [s-> (lambda (x) x)] [seen #f]) (datum-map s + f (lambda (tail? v) (cond [(syntax? v) (s-> v)] diff --git a/racket/src/racket/src/numarith.c b/racket/src/racket/src/numarith.c index 7ad8bcaceb..46fff30b1f 100644 --- a/racket/src/racket/src/numarith.c +++ b/racket/src/racket/src/numarith.c @@ -27,6 +27,10 @@ #include "nummacs.h" #include +READ_ONLY Scheme_Object *scheme_unsafe_fx_plus_proc; +READ_ONLY Scheme_Object *scheme_unsafe_fx_minus_proc; +READ_ONLY Scheme_Object *scheme_unsafe_fx_times_proc; + static Scheme_Object *plus (int argc, Scheme_Object *argv[]); static Scheme_Object *minus (int argc, Scheme_Object *argv[]); static Scheme_Object *mult (int argc, Scheme_Object *argv[]); @@ -184,17 +188,20 @@ void scheme_init_flfxnum_numarith(Scheme_Startup_Env *env) p = scheme_make_folding_prim(fx_plus, "fx+", 2, 2, 1); SCHEME_PRIM_PROC_FLAGS(p) |= scheme_intern_prim_opt_flags(SCHEME_PRIM_IS_BINARY_INLINED - | SCHEME_PRIM_PRODUCES_FIXNUM); + | SCHEME_PRIM_PRODUCES_FIXNUM + | SCHEME_PRIM_AD_HOC_OPT); scheme_addto_prim_instance("fx+", p, env); p = scheme_make_folding_prim(fx_minus, "fx-", 2, 2, 1); SCHEME_PRIM_PROC_FLAGS(p) |= scheme_intern_prim_opt_flags(SCHEME_PRIM_IS_BINARY_INLINED - | SCHEME_PRIM_PRODUCES_FIXNUM); + | SCHEME_PRIM_PRODUCES_FIXNUM + | SCHEME_PRIM_AD_HOC_OPT); scheme_addto_prim_instance("fx-", p, env); p = scheme_make_folding_prim(fx_mult, "fx*", 2, 2, 1); SCHEME_PRIM_PROC_FLAGS(p) |= scheme_intern_prim_opt_flags(SCHEME_PRIM_IS_BINARY_INLINED - | SCHEME_PRIM_PRODUCES_FIXNUM); + | SCHEME_PRIM_PRODUCES_FIXNUM + | SCHEME_PRIM_AD_HOC_OPT); scheme_addto_prim_instance("fx*", p, env); p = scheme_make_folding_prim(fx_div, "fxquotient", 2, 2, 1); @@ -350,19 +357,25 @@ void scheme_init_unsafe_numarith(Scheme_Startup_Env *env) Scheme_Object *p; int flags; + REGISTER_SO(scheme_unsafe_fx_plus_proc); p = scheme_make_folding_prim(unsafe_fx_plus, "unsafe-fx+", 2, 2, 1); + scheme_unsafe_fx_plus_proc = p; SCHEME_PRIM_PROC_FLAGS(p) |= scheme_intern_prim_opt_flags(SCHEME_PRIM_IS_BINARY_INLINED | SCHEME_PRIM_IS_UNSAFE_FUNCTIONAL | SCHEME_PRIM_PRODUCES_FIXNUM); scheme_addto_prim_instance("unsafe-fx+", p, env); + REGISTER_SO(scheme_unsafe_fx_minus_proc); p = scheme_make_folding_prim(unsafe_fx_minus, "unsafe-fx-", 2, 2, 1); + scheme_unsafe_fx_minus_proc = p; SCHEME_PRIM_PROC_FLAGS(p) |= scheme_intern_prim_opt_flags(SCHEME_PRIM_IS_BINARY_INLINED | SCHEME_PRIM_IS_UNSAFE_FUNCTIONAL | SCHEME_PRIM_PRODUCES_FIXNUM); scheme_addto_prim_instance("unsafe-fx-", p, env); + REGISTER_SO(scheme_unsafe_fx_times_proc); p = scheme_make_folding_prim(unsafe_fx_mult, "unsafe-fx*", 2, 2, 1); + scheme_unsafe_fx_times_proc = p; SCHEME_PRIM_PROC_FLAGS(p) |= scheme_intern_prim_opt_flags(SCHEME_PRIM_IS_BINARY_INLINED | SCHEME_PRIM_IS_UNSAFE_FUNCTIONAL | SCHEME_PRIM_PRODUCES_FIXNUM); diff --git a/racket/src/racket/src/optimize.c b/racket/src/racket/src/optimize.c index 5831c3b924..555866f0c5 100644 --- a/racket/src/racket/src/optimize.c +++ b/racket/src/racket/src/optimize.c @@ -540,6 +540,25 @@ int scheme_omittable_expr(Scheme_Object *o, int vals, int fuel, int flags, } } + /* check for struct-type declaration: */ + if (!(flags & OMITTABLE_IGNORE_MAKE_STRUCT_TYPE)) { + Scheme_Object *auto_e; + int auto_e_depth; + auto_e = scheme_is_simple_make_struct_type(o, vals, + (((flags & OMITTABLE_RESOLVED) ? CHECK_STRUCT_TYPE_RESOLVED : 0) + | CHECK_STRUCT_TYPE_ALWAYS_SUCCEED + | CHECK_STRUCT_TYPE_DELAY_AUTO_CHECK), + &auto_e_depth, + NULL, NULL, + opt_info, + NULL, NULL, 0, NULL, NULL, + 5); + if (auto_e) { + if (scheme_omittable_expr(auto_e, 1, fuel - 1, flags, opt_info, warn_info)) + return 1; + } + } + if (vtype == scheme_branch_type) { Scheme_Branch_Rec *b; b = (Scheme_Branch_Rec *)o; @@ -687,25 +706,6 @@ int scheme_omittable_expr(Scheme_Object *o, int vals, int fuel, int flags, return 1; } - /* check for struct-type declaration: */ - if (!(flags & OMITTABLE_IGNORE_MAKE_STRUCT_TYPE)) { - Scheme_Object *auto_e; - int auto_e_depth; - auto_e = scheme_is_simple_make_struct_type(o, vals, - (((flags & OMITTABLE_RESOLVED) ? CHECK_STRUCT_TYPE_RESOLVED : 0) - | CHECK_STRUCT_TYPE_ALWAYS_SUCCEED - | CHECK_STRUCT_TYPE_DELAY_AUTO_CHECK), - &auto_e_depth, - NULL, NULL, - opt_info, - NULL, NULL, 0, NULL, NULL, - 5); - if (auto_e) { - if (scheme_omittable_expr(auto_e, 1, fuel - 1, flags, opt_info, warn_info)) - return 1; - } - } - /* check for struct-type property declaration: */ if (!(flags & OMITTABLE_IGNORE_MAKE_STRUCT_TYPE)) { if (scheme_is_simple_make_struct_type_property(o, vals, @@ -1389,7 +1389,8 @@ static int is_ok_value(Ok_Value_Callback ok_value, void *data, return ok_value(data, v, OK_CONSTANT_VALIDATE_SHAPE); } } - } + } else if (SCHEME_TYPE(arg) > _scheme_ir_values_types_) + return ok_value(data, arg, OK_CONSTANT_VALUE); return 0; } @@ -1459,7 +1460,7 @@ static int is_constant_super(Scheme_Object *arg, enclosing_linklet); } -static int ok_constant_property_with_guard(void *data, Scheme_Object *v, int mode) +static int ok_constant_property_without_guard(void *data, Scheme_Object *v, int mode) { intptr_t k = 0; @@ -1499,7 +1500,7 @@ static int is_struct_type_property_without_guard(Scheme_Object *arg, Scheme_Linklet *enclosing_linklet) /* Does `arg` produce a structure type property that has no guard (so that any value is ok)? */ { - return is_ok_value(ok_constant_property_with_guard, NULL, + return is_ok_value(ok_constant_property_without_guard, NULL, arg, info, top_level_table, @@ -1517,7 +1518,7 @@ static int is_simple_property_list(Scheme_Object *a, int resolved, { Scheme_Object *arg; int i, count; - + if (SAME_TYPE(SCHEME_TYPE(a), scheme_application_type)) { if (!SAME_OBJ(((Scheme_App_Rec *)a)->args[0], scheme_list_proc)) return 0; @@ -1571,7 +1572,7 @@ static int is_simple_property_list(Scheme_Object *a, int resolved, return 0; } } - + return 1; } @@ -4661,6 +4662,11 @@ static Scheme_Object *finish_optimize_application2(Scheme_App2_Rec *app, Optimiz SCHEME_APPN_FLAGS(new) |= (APPN_FLAG_IMMED | APPN_FLAG_SFS_TAIL); return finish_optimize_application3(new, info, context); } + } else if ((mode == STRUCT_PROC_SHAPE_PRED) && pred && predicate_implies_not(pred, alt)) { + /* We know that the predicate will fail */ + return replace_tail_inside(make_discarding_sequence(rand, scheme_false, info), + inside, + app->rand); } /* Register type based on getter succeeding: */ @@ -5064,6 +5070,10 @@ static Scheme_Object *finish_optimize_application3(Scheme_App3_Rec *app, Optimiz check_known_both_try(info, app_o, rator, rand1, rand2, "fxmin", scheme_fixnum_p_proc, scheme_unsafe_fx_min_proc, info->unsafe_mode); check_known_both_try(info, app_o, rator, rand1, rand2, "fxmax", scheme_fixnum_p_proc, scheme_unsafe_fx_max_proc, info->unsafe_mode); + check_known_both_try(info, app_o, rator, rand1, rand2, "fx+", scheme_fixnum_p_proc, scheme_unsafe_fx_plus_proc, info->unsafe_mode); + check_known_both_try(info, app_o, rator, rand1, rand2, "fx-", scheme_fixnum_p_proc, scheme_unsafe_fx_minus_proc, info->unsafe_mode); + check_known_both_try(info, app_o, rator, rand1, rand2, "fx*", scheme_fixnum_p_proc, scheme_unsafe_fx_times_proc, info->unsafe_mode); + rator = app->rator; /* in case it was updated */ check_known_both(info, app_o, rator, rand1, rand2, "string-append", scheme_string_p_proc, scheme_true, info->unsafe_mode); @@ -5159,13 +5169,13 @@ static Scheme_Object *finish_optimize_application3(Scheme_App3_Rec *app, Optimiz SCHEME_APPN_FLAGS(new_app) |= (APPN_FLAG_IMMED | APPN_FLAG_SFS_TAIL); return finish_optimize_application(new_app, info, context); } - } - /* Register type based on setter succeeding: */ - if (!SCHEME_NULLP(SCHEME_PROC_SHAPE_IDENTITY(alt)) - && SAME_TYPE(SCHEME_TYPE(app->rand1), scheme_ir_local_type)) - add_type(info, app->rand1, scheme_make_struct_proc_shape(STRUCT_PROC_SHAPE_PRED, - SCHEME_PROC_SHAPE_IDENTITY(alt))); + /* Register type based on setter succeeding: */ + if (!SCHEME_NULLP(SCHEME_PROC_SHAPE_IDENTITY(alt)) + && SAME_TYPE(SCHEME_TYPE(app->rand1), scheme_ir_local_type)) + add_type(info, app->rand1, scheme_make_struct_proc_shape(STRUCT_PROC_SHAPE_PRED, + SCHEME_PROC_SHAPE_IDENTITY(alt))); + } } } @@ -5754,12 +5764,15 @@ static int predicate_implies_not(Scheme_Object *pred1, Scheme_Object *pred2) return 0; /* we don't track structure-type identity precisely enough to know - that structures don't rule out other structures --- or even other - prdicates (such as `procedure?`) */ - if (SAME_TYPE(SCHEME_TYPE(pred1), scheme_struct_proc_shape_type) - || SAME_TYPE(SCHEME_TYPE(pred2), scheme_struct_proc_shape_type)) + that structures don't rule out other structures; among the + tracked predicates, only `procedure?` is compatible with + structures */ + if ((SAME_TYPE(SCHEME_TYPE(pred1), scheme_struct_proc_shape_type) + || SAME_OBJ(pred1, scheme_procedure_p_proc)) + && (SAME_TYPE(SCHEME_TYPE(pred2), scheme_struct_proc_shape_type) + || SAME_OBJ(pred2, scheme_procedure_p_proc))) return 0; - + /* Otherwise, with our current set of predicates, overlapping matches happen only when one implies the other: */ return (!predicate_implies(pred1, pred2) && !predicate_implies(pred2, pred1)); @@ -8882,6 +8895,9 @@ Scheme_Linklet *scheme_optimize_linklet(Scheme_Linklet *linklet, Optimize_Info *limited_info; Optimize_Info_Sequence info_seq; Scheme_Hash_Tree **iu; + /* For now, treat unsafe mode as a hint that cooperation with the validator + is not needed. We may eventually give up on the validator completely. */ + int support_validation = !unsafe_mode; info = optimize_info_create(linklet, enforce_const, can_inline, unsafe_mode); info->context = (Scheme_Object *)linklet; @@ -9051,23 +9067,27 @@ Scheme_Linklet *scheme_optimize_linklet(Scheme_Linklet *linklet, n = SCHEME_DEFN_VAR_COUNT(defn); e = SCHEME_DEFN_RHS(defn); - limited_info->cross = info->cross; + if (support_validation) + limited_info->cross = info->cross; cont = scheme_omittable_expr(e, n, -1, - /* ignore APPN_FLAG_OMITTABLE, because the - validator won't be able to reconstruct it - in general; also, don't recognize struct-type - functions, since they weren't recognized - as immediate calls */ - (OMITTABLE_IGNORE_APPN_OMIT - | OMITTABLE_IGNORE_MAKE_STRUCT_TYPE), + (support_validation + /* ignore APPN_FLAG_OMITTABLE, because the + validator won't be able to reconstruct it + in general; also, don't recognize struct-type + functions, since they weren't recognized + as immediate calls */ + ? (OMITTABLE_IGNORE_APPN_OMIT + | OMITTABLE_IGNORE_MAKE_STRUCT_TYPE) + : 0), /* similarly, use `limited_info` instead of `info' here, because the decision of omittable should not depend on information that's only available at optimization time: */ - limited_info, + (support_validation ? limited_info : info), info); - info->cross = limited_info->cross; + if (support_validation) + info->cross = limited_info->cross; if (n == 1) { if (ir_propagate_ok(e, info, 0, NULL)) @@ -9094,7 +9114,7 @@ Scheme_Linklet *scheme_optimize_linklet(Scheme_Linklet *linklet, } else sstruct = NULL; - if ((sstruct || sprop) && !cont) { + if (support_validation && (sstruct || sprop) && !cont) { /* Since the `make-struct-type` or `make-struct-tye-property` form is immediate enough that the validator can see it, re-check whether we can continue a group of simultaneously defined variables. */ diff --git a/racket/src/racket/src/schpriv.h b/racket/src/racket/src/schpriv.h index b9da4b1968..2d8763aaaf 100644 --- a/racket/src/racket/src/schpriv.h +++ b/racket/src/racket/src/schpriv.h @@ -634,6 +634,9 @@ extern Scheme_Object *scheme_unsafe_fx_lt_eq_proc; extern Scheme_Object *scheme_unsafe_fx_gt_eq_proc; extern Scheme_Object *scheme_unsafe_fx_min_proc; extern Scheme_Object *scheme_unsafe_fx_max_proc; +extern Scheme_Object *scheme_unsafe_fx_plus_proc; +extern Scheme_Object *scheme_unsafe_fx_minus_proc; +extern Scheme_Object *scheme_unsafe_fx_times_proc; extern Scheme_Object *scheme_not_proc; extern Scheme_Object *scheme_true_object_p_proc; diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 6beff1ee03..09eb311d6b 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -3520,7 +3520,7 @@ static const char *startup_source = " 1" " 0" " #f" -" null" +"(list(cons prop:authentic #t))" "(current-inspector)" " #f" " '(0)" @@ -3531,7 +3531,19 @@ static const char *startup_source = "(struct:table table2.1 table? table-ht table-count table-prune-at)" "(let-values(((struct:_1 make-_1 ?_1 -ref_1 -set!_1)" "(let-values()" -"(let-values()(make-struct-type 'table #f 3 0 #f null(current-inspector) #f '(0 1 2) #f 'table)))))" +"(let-values()" +"(make-struct-type" +" 'table" +" #f" +" 3" +" 0" +" #f" +"(list(cons prop:authentic #t))" +"(current-inspector)" +" #f" +" '(0 1 2)" +" #f" +" 'table)))))" "(values" " struct:_1" " make-_1" @@ -4765,7 +4777,18 @@ static const char *startup_source = "(let-values(((struct:_10 make-_10 ?_10 -ref_10 -set!_10)" "(let-values()" "(let-values()" -"(make-struct-type 'syncinfo #f 4 0 #f null(current-inspector) #f '(1 2 3) #f 'syncinfo)))))" +"(make-struct-type" +" 'syncinfo" +" #f" +" 4" +" 0" +" #f" +"(list(cons new-prop:procedure(case-lambda)))" +"(current-inspector)" +" #f" +" '(1 2 3)" +" #f" +" 'syncinfo)))))" "(values" " struct:_10" " make-_10" @@ -5124,38 +5147,39 @@ static const char *startup_source = "(if(if(pair? rk_2)(vector?(car rk_2)) #f)" "(if(zero?(vector-length(car rk_2)))(all-fields-immutable?(cdr rk_2)) #f)" "(all-fields-immutable? rk_2))))))))))))" +" (define-values (not-an-fX.1) (lambda (who_8 v_57) (begin 'not-an-fX (raise-argument-error who_8 \"fixnum?\" v_57))))" "(define-values" "(datum-map-slow)" -"(lambda(tail?_0 s_40 f_19 seen_0)" +"(lambda(tail?_0 s_40 f_7 seen_0)" "(begin" "((letrec-values(((loop_60)" -"(lambda(tail?_1 s_41 prev-seen_0)" +"(lambda(tail?_1 s_7 prev-seen_0)" "(begin" " 'loop" "(let-values(((seen_1)" -"(if(if prev-seen_0(datum-has-elements? s_41) #f)" +"(if(if prev-seen_0(datum-has-elements? s_7) #f)" "(let-values()" -"(if(hash-ref prev-seen_0 s_41 #f)" -"(let-values()((hash-ref prev-seen_0 'cycle-fail) s_41))" -"(let-values()(hash-set prev-seen_0 s_41 #t))))" +"(if(hash-ref prev-seen_0 s_7 #f)" +"(let-values()((hash-ref prev-seen_0 'cycle-fail) s_7))" +"(let-values()(hash-set prev-seen_0 s_7 #t))))" "(let-values() prev-seen_0))))" -"(if(null? s_41)" -"(let-values()(f_19 tail?_1 s_41))" -"(if(pair? s_41)" +"(if(null? s_7)" +"(let-values()(f_7 tail?_1 s_7))" +"(if(pair? s_7)" "(let-values()" -"(f_19 tail?_1(cons(loop_60 #f(car s_41) seen_1)(loop_60 #t(cdr s_41) seen_1))))" -"(if(let-values(((or-part_68)(symbol? s_41)))" +"(f_7 tail?_1(cons(loop_60 #f(car s_7) seen_1)(loop_60 #t(cdr s_7) seen_1))))" +"(if(let-values(((or-part_68)(symbol? s_7)))" "(if or-part_68" " or-part_68" -"(let-values(((or-part_69)(boolean? s_41)))" -"(if or-part_69 or-part_69(number? s_41)))))" -"(let-values()(f_19 #f s_41))" -"(if(vector? s_41)" +"(let-values(((or-part_69)(boolean? s_7)))" +"(if or-part_69 or-part_69(number? s_7)))))" +"(let-values()(f_7 #f s_7))" +"(if(vector? s_7)" "(let-values()" -"(f_19" +"(f_7" " #f" "(vector->immutable-vector" -"(let-values(((len_7)(vector-length s_41)))" +"(let-values(((len_7)(vector-length s_7)))" "(begin" "(if(exact-nonnegative-integer? len_7)" "(void)" @@ -5164,13 +5188,13 @@ static const char *startup_source = " 'for/vector" " \"exact-nonnegative-integer?\"" " len_7)))" -"(let-values(((v_57)(make-vector len_7 0)))" +"(let-values(((v_58)(make-vector len_7 0)))" "(begin" "(if(zero? len_7)" "(void)" "(let-values()" "(let-values(((vec_14 len_8)" -"(let-values(((vec_15) s_41))" +"(let-values(((vec_15) s_7))" "(begin" "(check-vector vec_15)" "(values" @@ -5178,7 +5202,7 @@ static const char *startup_source = "(unsafe-vector-length vec_15))))))" "(begin" " #f" -"((letrec-values(((for-loop_26)" +"((letrec-values(((for-loop_21)" "(lambda(i_38 pos_6)" "(begin" " 'for-loop" @@ -5194,7 +5218,7 @@ static const char *startup_source = "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_57" +" v_58" " i_40" "(let-values()" "(loop_60" @@ -5213,21 +5237,21 @@ static const char *startup_source = " e_13))" "(not #f)" " #f)" -"(for-loop_26" +"(for-loop_21" " i_39" "(unsafe-fx+ 1 pos_6))" " i_39)))" " i_38)))))" -" for-loop_26)" +" for-loop_21)" " 0" " 0)))))" -" v_57)))))))" -"(if(box? s_41)" -"(let-values()(f_19 #f(box-immutable(loop_60 #f(unbox s_41) seen_1))))" -"(let-values(((c1_20)(immutable-prefab-struct-key s_41)))" +" v_58)))))))" +"(if(box? s_7)" +"(let-values()(f_7 #f(box-immutable(loop_60 #f(unbox s_7) seen_1))))" +"(let-values(((c1_20)(immutable-prefab-struct-key s_7)))" "(if c1_20" "((lambda(key_13)" -"(f_19" +"(f_7" " #f" "(apply" " make-prefab-struct" @@ -5237,15 +5261,15 @@ static const char *startup_source = "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_23)(vector? x_23))" -"(lambda(x_24)(unsafe-vector-length x_24))" -"(struct->vector s_41)" +"(lambda(x_14)(vector? x_14))" +"(lambda(x_23)(unsafe-vector-length x_23))" +"(struct->vector s_7)" " 1" " #f" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_10)" +"((letrec-values(((for-loop_26)" "(lambda(fold-var_17 idx_0)" "(begin" " 'for-loop" @@ -5269,22 +5293,22 @@ static const char *startup_source = "(values" " fold-var_20)))))" "(if(not #f)" -"(for-loop_10" +"(for-loop_26" " fold-var_18" "(unsafe-fx+ idx_0 1))" " fold-var_18)))" " fold-var_17)))))" -" for-loop_10)" +" for-loop_26)" " null" " start*_0)))))))" " c1_20)" -"(if(if(hash? s_41)(immutable? s_41) #f)" +"(if(if(hash? s_7)(immutable? s_7) #f)" "(let-values()" -"(if(hash-eq? s_41)" +"(if(hash-eq? s_7)" "(let-values()" -"(f_19" +"(f_7" " #f" -"(let-values(((ht_27) s_41))" +"(let-values(((ht_27) s_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -5294,7 +5318,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_42" -"(let-values(((k_10 v_58)" +"(let-values(((k_10 v_36)" "(hash-iterate-key+value" " ht_27" " i_42)))" @@ -5310,7 +5334,7 @@ static const char *startup_source = " k_10" "(loop_60" " #f" -" v_58" +" v_36" " seen_1)))))" "(hash-set" " table_17" @@ -5327,28 +5351,28 @@ static const char *startup_source = " for-loop_27)" " '#hasheq()" "(hash-iterate-first ht_27))))))" -"(if(hash-eqv? s_41)" +"(if(hash-eqv? s_7)" "(let-values()" -"(f_19" +"(f_7" " #f" -"(let-values(((ht_28) s_41))" +"(let-values(((ht_28) s_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_28)))" "((letrec-values(((for-loop_28)" -"(lambda(table_19 i_43)" +"(lambda(table_19 i_26)" "(begin" " 'for-loop" -"(if i_43" -"(let-values(((k_11 v_36)" +"(if i_26" +"(let-values(((k_11 v_59)" "(hash-iterate-key+value" " ht_28" -" i_43)))" -"(let-values(((table_20)" -"(let-values(((table_21)" +" i_26)))" +"(let-values(((table_10)" +"(let-values(((table_11)" " table_19))" -"(let-values(((table_22)" +"(let-values(((table_12)" "(let-values()" "(let-values(((key_15" " val_5)" @@ -5357,46 +5381,46 @@ static const char *startup_source = " k_11" "(loop_60" " #f" -" v_36" +" v_59" " seen_1)))))" "(hash-set" -" table_21" +" table_11" " key_15" " val_5)))))" "(values" -" table_22)))))" +" table_12)))))" "(if(not #f)" "(for-loop_28" -" table_20" +" table_10" "(hash-iterate-next" " ht_28" -" i_43))" -" table_20)))" +" i_26))" +" table_10)))" " table_19)))))" " for-loop_28)" " '#hasheqv()" "(hash-iterate-first ht_28))))))" "(let-values()" -"(f_19" +"(f_7" " #f" -"(let-values(((ht_29) s_41))" +"(let-values(((ht_26) s_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_29)))" +"(let-values()(check-in-hash ht_26)))" "((letrec-values(((for-loop_29)" -"(lambda(table_23 i_26)" +"(lambda(table_20 i_43)" "(begin" " 'for-loop" -"(if i_26" -"(let-values(((k_12 v_59)" +"(if i_43" +"(let-values(((k_12 v_60)" "(hash-iterate-key+value" -" ht_29" -" i_26)))" -"(let-values(((table_10)" -"(let-values(((table_11)" -" table_23))" -"(let-values(((table_12)" +" ht_26" +" i_43)))" +"(let-values(((table_21)" +"(let-values(((table_22)" +" table_20))" +"(let-values(((table_23)" "(let-values()" "(let-values(((key_16" " val_6)" @@ -5405,26 +5429,26 @@ static const char *startup_source = " k_12" "(loop_60" " #f" -" v_59" +" v_60" " seen_1)))))" "(hash-set" -" table_11" +" table_22" " key_16" " val_6)))))" "(values" -" table_12)))))" +" table_23)))))" "(if(not #f)" "(for-loop_29" -" table_10" +" table_21" "(hash-iterate-next" -" ht_29" -" i_26))" -" table_10)))" -" table_23)))))" +" ht_26" +" i_43))" +" table_21)))" +" table_20)))))" " for-loop_29)" " '#hash()" -"(hash-iterate-first ht_29)))))))))" -"(let-values()(f_19 #f s_41)))))))))))))))" +"(hash-iterate-first ht_26)))))))))" +"(let-values()(f_7 #f s_7)))))))))))))))" " loop_60)" " tail?_0" " s_40" @@ -5433,18 +5457,18 @@ static const char *startup_source = "(datum-has-elements?)" "(lambda(d_0)" "(begin" -"(let-values(((or-part_35)(pair? d_0)))" -"(if or-part_35" -" or-part_35" -"(let-values(((or-part_36)(vector? d_0)))" -"(if or-part_36" -" or-part_36" -"(let-values(((or-part_67)(box? d_0)))" -"(if or-part_67" -" or-part_67" -"(let-values(((or-part_70)(immutable-prefab-struct-key d_0)))" +"(let-values(((or-part_70)(pair? d_0)))" "(if or-part_70" " or-part_70" +"(let-values(((or-part_71)(vector? d_0)))" +"(if or-part_71" +" or-part_71" +"(let-values(((or-part_72)(box? d_0)))" +"(if or-part_72" +" or-part_72" +"(let-values(((or-part_73)(immutable-prefab-struct-key d_0)))" +"(if or-part_73" +" or-part_73" "(if(hash? d_0)(if(immutable? d_0)(positive?(hash-count d_0)) #f) #f))))))))))))" "(define-values" "(struct:preserved-property-value" @@ -5469,124 +5493,123 @@ static const char *startup_source = "(values struct:_0 make-_0 ?_0(make-struct-field-accessor -ref_0 0 'content))))" "(define-values" "(plain-property-value)" -"(lambda(v_60)(begin(if(preserved-property-value? v_60)(preserved-property-value-content v_60) v_60))))" +"(lambda(v_61)(begin(if(preserved-property-value? v_61)(preserved-property-value-content v_61) v_61))))" "(define-values" "(check-value-to-preserve)" -"(lambda(v_61 syntax?_0)" +"(lambda(v_62 syntax?_0)" "(begin" -"(let-values(((s_4) v_61)" -"((f_20)" -"(lambda(tail?_0 v_3)" +"(let-values(((check-preserve_0)" +"(lambda(tail?_2 v_63)" "(begin" -" 'f" +" 'check-preserve" "(begin" -"(if(let-values(((or-part_71)(null? v_3)))" -"(if or-part_71" -" or-part_71" -"(let-values(((or-part_72)(boolean? v_3)))" -"(if or-part_72" -" or-part_72" -"(let-values(((or-part_73)(symbol? v_3)))" -"(if or-part_73" -" or-part_73" -"(let-values(((or-part_74)(number? v_3)))" +"(if(let-values(((or-part_74)(null? v_63)))" "(if or-part_74" " or-part_74" -"(let-values(((or-part_29)(char? v_3)))" -"(if or-part_29" -" or-part_29" -"(let-values(((or-part_75)(string? v_3)))" +"(let-values(((or-part_75)(boolean? v_63)))" "(if or-part_75" " or-part_75" -"(let-values(((or-part_76)(bytes? v_3)))" +"(let-values(((or-part_76)(symbol? v_63)))" "(if or-part_76" " or-part_76" -"(let-values(((or-part_68)(regexp? v_3)))" -"(if or-part_68" -" or-part_68" -"(let-values(((or-part_69)(syntax?_0 v_3)))" -"(if or-part_69" -" or-part_69" -"(let-values(((or-part_77)(pair? v_3)))" +"(let-values(((or-part_77)(number? v_63)))" "(if or-part_77" " or-part_77" -"(let-values(((or-part_78)(vector? v_3)))" +"(let-values(((or-part_78)(char? v_63)))" "(if or-part_78" " or-part_78" -"(let-values(((or-part_79)(box? v_3)))" +"(let-values(((or-part_79)(string? v_63)))" "(if or-part_79" " or-part_79" -"(let-values(((or-part_80)(hash? v_3)))" +"(let-values(((or-part_29)(bytes? v_63)))" +"(if or-part_29" +" or-part_29" +"(let-values(((or-part_80)(regexp? v_63)))" "(if or-part_80" " or-part_80" +"(let-values(((or-part_81)(syntax?_0 v_63)))" +"(if or-part_81" +" or-part_81" +"(let-values(((or-part_82)(pair? v_63)))" +"(if or-part_82" +" or-part_82" +"(let-values(((or-part_83)(vector? v_63)))" +"(if or-part_83" +" or-part_83" +"(let-values(((or-part_84)(box? v_63)))" +"(if or-part_84" +" or-part_84" +"(let-values(((or-part_85)(hash? v_63)))" +"(if or-part_85" +" or-part_85" "(immutable-prefab-struct-key" -" v_3)))))))))))))))))))))))))))" +" v_63)))))))))))))))))))))))))))" "(void)" "(let-values()" "(raise-arguments-error" " 'write" " \"disallowed value in preserved syntax property\"" " \"value\"" -" v_3)))" -" v_3))))" -"((seen_2) disallow-cycles$1))" +" v_63)))" +" v_63)))))" +"(let-values(((s_41) v_62)((f_19) check-preserve_0)((gf_0) check-preserve_0)((seen_2) disallow-cycles$1))" "((letrec-values(((loop_61)" -"(lambda(tail?_2 s_7 prev-depth_0)" +"(lambda(tail?_3 s_42 prev-depth_0)" "(begin" " 'loop" -"(let-values(((depth_0)(add1 prev-depth_0)))" -"(if(if seen_2(> depth_0 32) #f)" +"(let-values(((depth_0)(fx+ 1 prev-depth_0)))" +"(if(if seen_2(fx> depth_0 32) #f)" "(let-values()" -"(datum-map-slow tail?_2 s_7(lambda(tail?_3 s_42)(f_20 tail?_3 s_42)) seen_2))" -"(if(null? s_7)" -"(let-values()(f_20 tail?_2 s_7))" -"(if(pair? s_7)" +"(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_19 tail?_3 s_42))" +"(if(pair? s_42)" "(let-values()" -"(f_20" -" tail?_2" -"(cons(loop_61 #f(car s_7) depth_0)(loop_61 #t(cdr s_7) depth_0))))" -"(if(let-values(((or-part_81)(symbol? s_7)))" -"(if or-part_81" -" or-part_81" -"(let-values(((or-part_52)(boolean? s_7)))" -"(if or-part_52 or-part_52(number? s_7)))))" -"(let-values()(f_20 #f s_7))" -"(if(let-values(((or-part_53)(vector? s_7)))" +"(f_19" +" tail?_3" +"(cons(loop_61 #f(car s_42) depth_0)(loop_61 #t(cdr s_42) depth_0))))" +"(if(symbol? s_42)" +"(let-values()(f_19 #f s_42))" +"(if(boolean? s_42)" +"(let-values()(f_19 #f s_42))" +"(if(number? s_42)" +"(let-values()(f_19 #f s_42))" +"(if(let-values(((or-part_53)(vector? s_42)))" "(if or-part_53" " or-part_53" -"(let-values(((or-part_7)(box? s_7)))" +"(let-values(((or-part_7)(box? s_42)))" "(if or-part_7" " or-part_7" -"(let-values(((or-part_8)(prefab-struct-key s_7)))" -"(if or-part_8 or-part_8(hash? s_7)))))))" +"(let-values(((or-part_8)(prefab-struct-key s_42)))" +"(if or-part_8 or-part_8(hash? s_42)))))))" "(let-values()" "(datum-map-slow" -" tail?_2" -" s_7" -"(lambda(tail?_4 s_43)(f_20 tail?_4 s_43))" +" tail?_3" +" s_42" +"(lambda(tail?_5 s_44)(gf_0 tail?_5 s_44))" " seen_2))" -"(let-values()(f_20 #f s_7))))))))))))" +"(let-values()(gf_0 #f s_42))))))))))))))" " loop_61)" " #f" -" s_4" -" 0)))))" +" s_41" +" 0))))))" "(define-values" "(disallow-cycles$1)" "(hash" " 'cycle-fail" -" (lambda (v_62) (raise-arguments-error 'write \"disallowed cycle in preserved syntax property\" \"at\" v_62))))" +" (lambda (v_64) (raise-arguments-error 'write \"disallowed cycle in preserved syntax property\" \"at\" v_64))))" "(define-values" "(tamper?)" "(lambda(v_26)" "(begin" "(let-values(((or-part_0)(not v_26)))" "(if or-part_0 or-part_0(let-values(((or-part_1)(symbol? v_26)))(if or-part_1 or-part_1(set? v_26))))))))" -"(define-values(tamper-tainted?)(lambda(v_63)(begin(symbol? v_63))))" -"(define-values(tamper-armed?)(lambda(v_64)(begin(set? v_64))))" -"(define-values(tamper-clean?)(lambda(v_65)(begin(not v_65))))" +"(define-values(tamper-tainted?)(lambda(v_65)(begin(symbol? v_65))))" +"(define-values(tamper-armed?)(lambda(v_66)(begin(set? v_66))))" +"(define-values(tamper-clean?)(lambda(v_67)(begin(not v_67))))" "(define-values" "(tamper-tainted-for-content)" -"(lambda(v_66)(begin(if(datum-has-elements? v_66) 'tainted/need-propagate 'tainted))))" +"(lambda(v_68)(begin(if(datum-has-elements? v_68) '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))))" @@ -5619,30 +5642,30 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:reach-scopes" -"(lambda(s_44 reach_0)" -"(let-values(((prop_1)(syntax-scope-propagations+tamper s_44)))" +"(lambda(s_45 reach_0)" +"(let-values(((prop_1)(syntax-scope-propagations+tamper s_45)))" "(begin" "(reach_0" -"(if(propagation?$1 prop_1)((propagation-ref prop_1) s_44)(syntax-content s_44)))" -"(reach_0(syntax-scopes s_44))" -"(reach_0(syntax-shifted-multi-scopes s_44))" -"(let-values(((ht_30)(syntax-props s_44)))" +"(if(propagation?$1 prop_1)((propagation-ref prop_1) s_45)(syntax-content s_45)))" +"(reach_0(syntax-scopes s_45))" +"(reach_0(syntax-shifted-multi-scopes s_45))" +"(let-values(((ht_29)(syntax-props s_45)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_30)))" +"(let-values()(check-in-immutable-hash ht_29)))" "((letrec-values(((for-loop_30)" "(lambda(i_44)" "(begin" " 'for-loop" "(if i_44" -"(let-values(((k_13 v_67)" +"(let-values(((k_13 v_69)" "(unsafe-immutable-hash-iterate-key+value" -" ht_30" +" ht_29" " i_44)))" "(let-values((()" "(let-values()" -"(if(preserved-property-value? v_67)" +"(if(preserved-property-value? v_69)" "(let-values()" "(let-values((()" "(let-values()" @@ -5650,50 +5673,50 @@ static const char *startup_source = "(let-values()" "(reach_0" "(plain-property-value" -" v_67)))" +" v_69)))" "(values)))))" "(values)))" "(values)))))" "(if(not #f)" "(for-loop_30" -"(unsafe-immutable-hash-iterate-next ht_30 i_44))" +"(unsafe-immutable-hash-iterate-next ht_29 i_44))" "(values))))" "(values))))))" " for-loop_30)" -"(unsafe-immutable-hash-iterate-first ht_30))))" +"(unsafe-immutable-hash-iterate-first ht_29))))" "(void)" -"(reach_0(syntax-srcloc s_44))))))" +"(reach_0(syntax-srcloc s_45))))))" "(cons" " prop:serialize" -"(lambda(s_45 ser-push!_1 state_10)" -"(let-values(((prop_2)(syntax-scope-propagations+tamper s_45)))" +"(lambda(s_46 ser-push!_1 state_10)" +"(let-values(((prop_2)(syntax-scope-propagations+tamper s_46)))" "(let-values(((content_0)" "(if(propagation?$1 prop_2)" -"((propagation-ref prop_2) s_45)" -"(syntax-content s_45))))" +"((propagation-ref prop_2) s_46)" +"(syntax-content s_46))))" "(let-values(((properties_0)" "(intern-properties" -"(syntax-props s_45)" +"(syntax-props s_46)" "(lambda()" -"(let-values(((ht_31)(syntax-props s_45)))" +"(let-values(((ht_30)(syntax-props s_46)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_31)))" +"(let-values()(check-in-hash ht_30)))" "((letrec-values(((for-loop_31)" "(lambda(table_24 i_45)" "(begin" " 'for-loop" "(if i_45" -"(let-values(((k_14 v_68)" +"(let-values(((k_14 v_70)" "(hash-iterate-key+value" -" ht_31" +" ht_30" " i_45)))" "(let-values(((table_25)" "(let-values(((table_26)" " table_24))" "(if(preserved-property-value?" -" v_68)" +" v_70)" "(let-values(((table_27)" " table_26))" "(let-values(((table_28)" @@ -5705,7 +5728,7 @@ static const char *startup_source = " k_14" "(check-value-to-preserve" "(plain-property-value" -" v_68)" +" v_70)" " syntax?$1)))))" "(hash-set" " table_27" @@ -5716,24 +5739,24 @@ static const char *startup_source = "(if(not #f)" "(for-loop_31" " table_25" -"(hash-iterate-next ht_31 i_45))" +"(hash-iterate-next ht_30 i_45))" " table_25)))" " table_24)))))" " for-loop_31)" " '#hasheq()" -"(hash-iterate-first ht_31)))))" +"(hash-iterate-first ht_30)))))" " state_10)))" -"(let-values(((tamper_0)(serialize-tamper(syntax-tamper s_45))))" +"(let-values(((tamper_0)(serialize-tamper(syntax-tamper s_46))))" "(let-values(((context-triple_0)" "(intern-context-triple" -"(intern-scopes(syntax-scopes s_45) state_10)" +"(intern-scopes(syntax-scopes s_46) state_10)" "(intern-shifted-multi-scopes" -"(syntax-shifted-multi-scopes s_45)" +"(syntax-shifted-multi-scopes s_46)" " state_10)" -"(intern-mpi-shifts(syntax-mpi-shifts s_45) state_10)" +"(intern-mpi-shifts(syntax-mpi-shifts s_46) state_10)" " state_10)))" "(let-values(((stx-state_0)(get-syntax-context state_10)))" -"(if(let-values(((or-part_82) properties_0))(if or-part_82 or-part_82 tamper_0))" +"(if(let-values(((or-part_86) properties_0))(if or-part_86 or-part_86 tamper_0))" "(let-values()" "(begin" "(ser-push!_1 'tag '#:syntax+props)" @@ -5741,7 +5764,7 @@ static const char *startup_source = "(ser-push!_1 content_0)" "(pop-syntax-context! state_10)" "(ser-push!_1 'reference context-triple_0)" -"(ser-push!_1 'reference(syntax-srcloc s_45))" +"(ser-push!_1 'reference(syntax-srcloc s_46))" "(ser-push!_1 properties_0)" "(ser-push!_1 tamper_0)" "(if stx-state_0" @@ -5751,14 +5774,14 @@ static const char *startup_source = "(let-values(((sharing-mode_0)" "(hash-ref" "(serialize-state-sharing-syntaxes state_10)" -" s_45" +" s_46" " 'unknown)))" "(begin" "(if(eq? sharing-mode_0 'share)" "(let-values()" "(begin" "(ser-push!_1 'tag '#:datum->syntax)" -"(ser-push!_1(syntax->datum$1 s_45))))" +"(ser-push!_1(syntax->datum$1 s_46))))" "(if(eq? sharing-mode_0 'unknown)" "(let-values()" "(let-values((()(begin(ser-push!_1 'tag '#:syntax)(values))))" @@ -5767,7 +5790,7 @@ static const char *startup_source = "(syntax-state19.1" " #t" " context-triple_0" -"(syntax-srcloc s_45))" +"(syntax-srcloc s_46))" " #f)))" "(let-values((()" "(begin" @@ -5788,7 +5811,7 @@ static const char *startup_source = "(begin" "(hash-set!" "(serialize-state-sharing-syntaxes state_10)" -" s_45" +" s_46" "(if(datum-has-elements? content_0)" " new-sharing-mode_0" " 'none))" @@ -5803,29 +5826,29 @@ static const char *startup_source = "(ser-push!_1 content_0)" "(pop-syntax-context! state_10)))))" "(ser-push!_1 'reference context-triple_0)" -"(ser-push!_1 'reference(syntax-srcloc s_45))" +"(ser-push!_1 'reference(syntax-srcloc s_46))" "(if stx-state_0" "(let-values()" "(if(if(eq?" " context-triple_0" "(syntax-state-context-triple stx-state_0))" -"(equal?(syntax-srcloc s_45)(syntax-state-srcloc stx-state_0))" +"(equal?(syntax-srcloc s_46)(syntax-state-srcloc stx-state_0))" " #f)" "(void)" "(let-values()(set-syntax-state-all-sharing?! stx-state_0 #f))))" "(void))))))))))))))" "(cons" " prop:custom-write" -"(lambda(s_46 port_5 mode_5)" +"(lambda(s_47 port_5 mode_5)" " (let-values ((() (begin (write-string \"#string srcloc_0)))" " (if srcloc-str_0 (let-values () (fprintf port_5 \":~a\" srcloc-str_0)) (void))))" "(void))" -" (fprintf port_5 \" ~.s\" (syntax->datum$1 s_46))" +" (fprintf port_5 \" ~.s\" (syntax->datum$1 s_47))" " (write-string \">\" port_5)))))))" "(current-inspector)" " #f" @@ -5855,10 +5878,10 @@ static const char *startup_source = "(make-struct-type-property 'propagation-set-tamper))" "(define-values" "(syntax-tamper)" -"(lambda(s_47)" +"(lambda(s_48)" "(begin" -"(let-values(((v_69)(syntax-scope-propagations+tamper s_47)))" -"(if(tamper? v_69) v_69((propagation-tamper-ref v_69) v_69))))))" +"(let-values(((v_71)(syntax-scope-propagations+tamper s_48)))" +"(if(tamper? v_71) v_71((propagation-tamper-ref v_71) v_71))))))" "(define-values(empty-scopes)(seteq))" "(define-values(empty-shifted-multi-scopes)(seteq))" "(define-values(empty-mpi-shifts) null)" @@ -5866,78 +5889,79 @@ static const char *startup_source = "(define-values" "(empty-syntax)" "(syntax1.1 #f empty-scopes empty-shifted-multi-scopes #f empty-mpi-shifts #f empty-props #f))" -"(define-values(identifier?)(lambda(s_48)(begin(if(syntax?$1 s_48)(symbol?(syntax-content s_48)) #f))))" +"(define-values(identifier?)(lambda(s_49)(begin(if(syntax?$1 s_49)(symbol?(syntax-content s_49)) #f))))" "(define-values" "(syntax->datum$1)" -"(lambda(s_49)" +"(lambda(s_50)" "(begin" " 'syntax->datum" -"(let-values(((s_32) s_49)" -"((f_21)(lambda(tail?_5 x_25)(begin 'f x_25)))" -"((d->s_0)(lambda(s_50 d_1)(begin 'd->s d_1)))" +"(let-values(((s_32) s_50)" +"((f_20)(lambda(tail?_6 x_24)(begin 'f x_24)))" +"((d->s_0)(lambda(s_51 d_1)(begin 'd->s d_1)))" "((s-e_0) syntax-content)" "((seen_3) #f))" "((letrec-values(((loop_62)" -"(lambda(s_51)" +"(lambda(s_52)" "(begin" " 'loop" -"(let-values(((s_52) s_51)" -"((f_22)" -"(lambda(tail?_6 v_70)" +"(let-values(((s_53) s_52)" +"((f_21) f_20)" +"((gf_1)" +"(lambda(tail?_7 v_72)" "(begin" -" 'f" -"(if(syntax?$1 v_70)" -"(let-values()(d->s_0 v_70(loop_62(s-e_0 v_70))))" -"(let-values()(f_21 tail?_6 v_70))))))" +" 'gf" +"(if(syntax?$1 v_72)" +"(let-values()(d->s_0 v_72(loop_62(s-e_0 v_72))))" +"(let-values()(f_20 tail?_7 v_72))))))" "((seen_4) seen_3))" "((letrec-values(((loop_63)" -"(lambda(tail?_7 s_53 prev-depth_1)" +"(lambda(tail?_8 s_54 prev-depth_1)" "(begin" " 'loop" -"(let-values(((depth_1)(add1 prev-depth_1)))" -"(if(if seen_4(> depth_1 32) #f)" +"(let-values(((depth_1)(fx+ 1 prev-depth_1)))" +"(if(if seen_4(fx> depth_1 32) #f)" "(let-values()" "(datum-map-slow" -" tail?_7" -" s_53" -"(lambda(tail?_8 s_54)(f_22 tail?_8 s_54))" +" tail?_8" +" s_54" +"(lambda(tail?_9 s_55)(gf_1 tail?_9 s_55))" " seen_4))" -"(if(null? s_53)" -"(let-values()(f_22 tail?_7 s_53))" -"(if(pair? s_53)" +"(if(null? s_54)" +"(let-values()(f_21 tail?_8 s_54))" +"(if(pair? s_54)" "(let-values()" -"(f_22" -" tail?_7" +"(f_21" +" tail?_8" "(cons" -"(loop_63 #f(car s_53) depth_1)" -"(loop_63 #t(cdr s_53) depth_1))))" -"(if(let-values(((or-part_47)(symbol? s_53)))" -"(if or-part_47" -" or-part_47" -"(let-values(((or-part_48)(boolean? s_53)))" -"(if or-part_48 or-part_48(number? s_53)))))" -"(let-values()(f_22 #f s_53))" -"(if(let-values(((or-part_83)(vector? s_53)))" -"(if or-part_83" -" or-part_83" -"(let-values(((or-part_49)(box? s_53)))" +"(loop_63 #f(car s_54) depth_1)" +"(loop_63 #t(cdr s_54) depth_1))))" +"(if(symbol? s_54)" +"(let-values()(f_21 #f s_54))" +"(if(boolean? s_54)" +"(let-values()(f_21 #f s_54))" +"(if(number? s_54)" +"(let-values()(f_21 #f s_54))" +"(if(let-values(((or-part_48)(vector? s_54)))" +"(if or-part_48" +" or-part_48" +"(let-values(((or-part_87)(box? s_54)))" +"(if or-part_87" +" or-part_87" +"(let-values(((or-part_49)" +"(prefab-struct-key s_54)))" "(if or-part_49" " or-part_49" -"(let-values(((or-part_50)" -"(prefab-struct-key s_53)))" -"(if or-part_50" -" or-part_50" -"(hash? s_53)))))))" +"(hash? s_54)))))))" "(let-values()" "(datum-map-slow" -" tail?_7" -" s_53" -"(lambda(tail?_9 s_33)(f_22 tail?_9 s_33))" +" tail?_8" +" s_54" +"(lambda(tail?_10 s_56)(gf_1 tail?_10 s_56))" " seen_4))" -"(let-values()(f_22 #f s_53))))))))))))" +"(let-values()(gf_1 #f s_54))))))))))))))" " loop_63)" " #f" -" s_52" +" s_53" " 0))))))" " loop_62)" " s_32)))))" @@ -5948,12 +5972,12 @@ static const char *startup_source = "(begin" " 'datum->syntax8" "(let-values(((stx-c_0) stx-c6_0))" -"(let-values(((s_55) s7_0))" +"(let-values(((s_57) s7_0))" "(let-values(((stx-l_0)(if stx-l4_0 stx-l2_0 #f)))" "(let-values(((stx-p_0)(if stx-p5_0 stx-p3_0 #f)))" "(let-values()" -"(if(syntax?$1 s_55)" -"(let-values() s_55)" +"(if(syntax?$1 s_57)" +"(let-values() s_57)" "(let-values()" "(let-values(((wrap_0)" "(lambda(content_1)" @@ -5975,85 +5999,85 @@ static const char *startup_source = " empty-props" "(if stx-c_0(syntax-inspector stx-c_0) #f))))))" "(let-values(((result-s_0)" -"(let-values(((s_56) s_55)" -"((f_23)" -"(lambda(tail?_10 x_26)" -"(begin 'f(if tail?_10 x_26(wrap_0 x_26)))))" -"((s->_0)(lambda(s_57)(begin 's-> s_57)))" +"(let-values(((s_34) s_57)" +"((f_22)" +"(lambda(tail?_11 x_25)" +"(begin 'f(if tail?_11 x_25(wrap_0 x_25)))))" +"((s->_0)(lambda(s_58)(begin 's-> s_58)))" "((seen_5) disallow-cycles))" -"(let-values(((s_58) s_56)" -"((f_24)" -"(lambda(tail?_11 v_71)" +"(let-values(((s_59) s_34)" +"((f_23) f_22)" +"((gf_2)" +"(lambda(tail?_12 v_73)" "(begin" -" 'f" -"(if(syntax?$1 v_71)" -"(let-values()(s->_0 v_71))" -"(let-values()(f_23 tail?_11 v_71))))))" +" 'gf" +"(if(syntax?$1 v_73)" +"(let-values()(s->_0 v_73))" +"(let-values()(f_22 tail?_12 v_73))))))" "((seen_6) seen_5))" "((letrec-values(((loop_64)" -"(lambda(tail?_12 s_59 prev-depth_2)" +"(lambda(tail?_13 s_60 prev-depth_2)" "(begin" " 'loop" "(let-values(((depth_2)" -"(add1 prev-depth_2)))" -"(if(if seen_6(> depth_2 32) #f)" +"(fx+ 1 prev-depth_2)))" +"(if(if seen_6(fx> depth_2 32) #f)" "(let-values()" "(datum-map-slow" -" tail?_12" -" s_59" -"(lambda(tail?_13 s_60)" -"(f_24 tail?_13 s_60))" +" tail?_13" +" s_60" +"(lambda(tail?_14 s_61)" +"(gf_2 tail?_14 s_61))" " seen_6))" -"(if(null? s_59)" -"(let-values()(f_24 tail?_12 s_59))" -"(if(pair? s_59)" +"(if(null? s_60)" +"(let-values()(f_23 tail?_13 s_60))" +"(if(pair? s_60)" "(let-values()" -"(f_24" -" tail?_12" +"(f_23" +" tail?_13" "(cons" -"(loop_64 #f(car s_59) depth_2)" +"(loop_64 #f(car s_60) depth_2)" "(loop_64" " #t" -"(cdr s_59)" +"(cdr s_60)" " depth_2))))" -"(if(let-values(((or-part_84)" -"(symbol? s_59)))" -"(if or-part_84" -" or-part_84" -"(let-values(((or-part_85)" -"(boolean?" -" s_59)))" -"(if or-part_85" -" or-part_85" -"(number? s_59)))))" -"(let-values()(f_24 #f s_59))" -"(if(let-values(((or-part_86)" -"(vector? s_59)))" -"(if or-part_86" -" or-part_86" -"(let-values(((or-part_87)" -"(box?" -" s_59)))" -"(if or-part_87" -" or-part_87" -"(let-values(((or-part_88)" -"(prefab-struct-key" -" s_59)))" +"(if(symbol? s_60)" +"(let-values()(f_23 #f s_60))" +"(if(boolean? s_60)" +"(let-values()(f_23 #f s_60))" +"(if(number? s_60)" +"(let-values()(f_23 #f s_60))" +"(if(let-values(((or-part_88)" +"(vector?" +" s_60)))" "(if or-part_88" " or-part_88" -"(hash? s_59)))))))" +"(let-values(((or-part_89)" +"(box?" +" s_60)))" +"(if or-part_89" +" or-part_89" +"(let-values(((or-part_90)" +"(prefab-struct-key" +" s_60)))" +"(if or-part_90" +" or-part_90" +"(hash?" +" s_60)))))))" "(let-values()" "(datum-map-slow" -" tail?_12" -" s_59" -"(lambda(tail?_14 s_61)" -"(f_24 tail?_14 s_61))" +" tail?_13" +" s_60" +"(lambda(tail?_15 s_62)" +"(gf_2 tail?_15 s_62))" " seen_6))" "(let-values()" -"(f_24 #f s_59))))))))))))" +"(gf_2" +" #f" +" s_60))))))))))))))" " loop_64)" " #f" -" s_58" +" s_59" " 0)))))" "(if(if stx-p_0(not(eq?(syntax-props stx-p_0) empty-props)) #f)" "(let-values(((the-struct_0) result-s_0))" @@ -6071,14 +6095,14 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_0)))" " result-s_0))))))))))))))" "(case-lambda" -"((stx-c_1 s_37)(begin 'datum->syntax(datum->syntax8_0 stx-c_1 s_37 #f #f #f #f)))" -"((stx-c_2 s_62 stx-l_1 stx-p3_1)(datum->syntax8_0 stx-c_2 s_62 stx-l_1 stx-p3_1 #t #t))" -"((stx-c_3 s_63 stx-l2_1)(datum->syntax8_0 stx-c_3 s_63 stx-l2_1 #f #t #f)))))" +"((stx-c_1 s_63)(begin 'datum->syntax(datum->syntax8_0 stx-c_1 s_63 #f #f #f #f)))" +"((stx-c_2 s_37 stx-l_1 stx-p3_1)(datum->syntax8_0 stx-c_2 s_37 stx-l_1 stx-p3_1 #t #t))" +"((stx-c_3 s_64 stx-l2_1)(datum->syntax8_0 stx-c_3 s_64 stx-l2_1 #f #t #f)))))" "(define-values" "(disallow-cycles)" "(hasheq" " 'cycle-fail" -" (lambda (s_64) (raise-arguments-error 'datum->syntax \"cannot create syntax from cyclic datum\" \"datum\" s_64))))" +" (lambda (s_65) (raise-arguments-error 'datum->syntax \"cannot create syntax from cyclic datum\" \"datum\" s_65))))" "(define-values" "(struct:syntax-state" " syntax-state19.1" @@ -6129,17 +6153,17 @@ static const char *startup_source = "(vector*-ref context-triple_1 2)" " srcloc_1" "(if props_0" -"(let-values(((ht_32) props_0))" +"(let-values(((ht_31) props_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_32)))" +"(let-values()(check-in-immutable-hash ht_31)))" "((letrec-values(((for-loop_32)" "(lambda(table_29 i_46)" "(begin" " 'for-loop" "(if i_46" -"(let-values(((k_15 v_72)(unsafe-immutable-hash-iterate-key+value ht_32 i_46)))" +"(let-values(((k_15 v_74)(unsafe-immutable-hash-iterate-key+value ht_31 i_46)))" "(let-values(((table_30)" "(let-values(((table_31) table_29))" "(let-values(((table_32)" @@ -6149,24 +6173,24 @@ static const char *startup_source = "(values" " k_15" "(preserved-property-value1.1" -" v_72)))))" +" v_74)))))" "(hash-set table_31 key_18 val_8)))))" "(values table_32)))))" "(if(not #f)" -"(for-loop_32 table_30(unsafe-immutable-hash-iterate-next ht_32 i_46))" +"(for-loop_32 table_30(unsafe-immutable-hash-iterate-next ht_31 i_46))" " table_30)))" " table_29)))))" " for-loop_32)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_32))))" +"(unsafe-immutable-hash-iterate-first ht_31))))" " empty-props)" " inspector_0))))" "(define-values" "(deserialize-datum->syntax)" "(lambda(content_5 context-triple_2 srcloc_2 inspector_1)" "(begin" -"(let-values(((s_65)(deserialize-syntax #f context-triple_2 srcloc_2 #f #f inspector_1)))" -"(datum->syntax$1 s_65 content_5 s_65 s_65)))))" +"(let-values(((s_66)(deserialize-syntax #f context-triple_2 srcloc_2 #f #f inspector_1)))" +"(datum->syntax$1 s_66 content_5 s_66 s_66)))))" "(define-values" "(struct:full-binding full-binding1.1 full-binding? full-binding-frame-id full-binding-free=id)" "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" @@ -6236,12 +6260,12 @@ static const char *startup_source = "(if(let-values(((or-part_29) frame-id_0))" "(if or-part_29" " or-part_29" -"(let-values(((or-part_75) free=id_0))" -"(if or-part_75" -" or-part_75" -"(let-values(((or-part_76) extra-inspector_0))" -"(if or-part_76" -" or-part_76" +"(let-values(((or-part_80) free=id_0))" +"(if or-part_80" +" or-part_80" +"(let-values(((or-part_81) extra-inspector_0))" +"(if or-part_81" +" or-part_81" "(not" "(if(eqv? nominal-phase_0 phase_0)" "(if(eq? nominal-sym_0 sym_0)" @@ -6357,8 +6381,8 @@ static const char *startup_source = "(module-binding?)" "(lambda(b_24)" "(begin" -"(let-values(((or-part_86)(simple-module-binding? b_24)))" -"(if or-part_86 or-part_86(full-module-binding? b_24))))))" +"(let-values(((or-part_90)(simple-module-binding? b_24)))" +"(if or-part_90 or-part_90(full-module-binding? b_24))))))" "(define-values" "(struct:full-module-binding" " full-module-binding51.1" @@ -6594,6 +6618,7 @@ static const char *startup_source = " 0" " #f" "(list" +"(cons prop:authentic #t)" "(cons" " prop:serialize" "(lambda(twbb_0 ser-push!_4 state_13)" @@ -6628,6 +6653,7 @@ static const char *startup_source = " 0" " #f" "(list" +"(cons prop:authentic #t)" " (cons prop:reach-scopes (lambda (sms_2 reach_1) (error \"shouldn't get here\")))" "(cons" " prop:serialize" @@ -6678,11 +6704,11 @@ static const char *startup_source = "(make-struct-field-accessor -ref_11 1 'create))))" "(define-values" "(bulk-binding-symbols)" -"(lambda(b_12 s_66 extra-shifts_0)" +"(lambda(b_12 s_67 extra-shifts_0)" "(begin" "((bulk-binding-class-get-symbols(bulk-binding-ref b_12))" " b_12" -"(append extra-shifts_0(if s_66(syntax-mpi-shifts s_66) null))))))" +"(append extra-shifts_0(if s_67(syntax-mpi-shifts s_67) null))))))" "(define-values(bulk-binding-create)(lambda(b_36)(begin(bulk-binding-class-create(bulk-binding-ref b_36)))))" "(define-values(binding-table-empty?)(lambda(bt_0)(begin(if(hash? bt_0)(zero?(hash-count bt_0)) #f))))" "(define-values" @@ -6778,18 +6804,18 @@ static const char *startup_source = "(let-values(((bulk-symbols_0)(bulk-binding-symbols bulk_2 #f null)))" "(if(<(hash-count syms_2)(hash-count bulk-symbols_0))" "(let-values()" -"(let-values(((ht_33) syms_2))" +"(let-values(((ht_32) syms_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_33)))" +"(let-values()(check-in-immutable-hash ht_32)))" "((letrec-values(((for-loop_33)" "(lambda(syms_3 i_31)" "(begin" " 'for-loop" "(if i_31" "(let-values(((sym_5 sym-bindings_0)" -"(unsafe-immutable-hash-iterate-key+value ht_33 i_31)))" +"(unsafe-immutable-hash-iterate-key+value ht_32 i_31)))" "(let-values(((syms_4)" "(let-values(((syms_5) syms_3))" "(let-values(((syms_6)" @@ -6817,24 +6843,24 @@ static const char *startup_source = "(if(not #f)" "(for-loop_33" " syms_4" -"(unsafe-immutable-hash-iterate-next ht_33 i_31))" +"(unsafe-immutable-hash-iterate-next ht_32 i_31))" " syms_4)))" " syms_3)))))" " for-loop_33)" " syms_2" -"(unsafe-immutable-hash-iterate-first ht_33)))))" +"(unsafe-immutable-hash-iterate-first ht_32)))))" "(let-values()" -"(let-values(((ht_34) bulk-symbols_0))" +"(let-values(((ht_33) bulk-symbols_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_34)))" +"(let-values()(check-in-immutable-hash-keys ht_33)))" "((letrec-values(((for-loop_34)" "(lambda(syms_7 i_47)" "(begin" " 'for-loop" "(if i_47" -"(let-values(((sym_6)(unsafe-immutable-hash-iterate-key ht_34 i_47)))" +"(let-values(((sym_6)(unsafe-immutable-hash-iterate-key ht_33 i_47)))" "(let-values(((syms_8)" "(let-values(((syms_9) syms_7))" "(let-values(((syms_10)" @@ -6864,12 +6890,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_34" " syms_8" -"(unsafe-immutable-hash-iterate-next ht_34 i_47))" +"(unsafe-immutable-hash-iterate-next ht_33 i_47))" " syms_8)))" " syms_7)))))" " for-loop_34)" " syms_2" -"(unsafe-immutable-hash-iterate-first ht_34)))))))))))))))" +"(unsafe-immutable-hash-iterate-first ht_33)))))))))))))))" "(define-values" "(remove-matching-binding26.1)" "(lambda(except20_0 syms22_0 sym23_0 sym-bindings24_0 scopes25_0)" @@ -6889,32 +6915,32 @@ static const char *startup_source = "(let-values()(hash-set syms_11 sym_7(hash-remove sym-bindings_2 scopes_4)))))))))))))" "(define-values" "(binding-table-symbols)" -"(lambda(table_33 scs_2 s_67 extra-shifts_1)" +"(lambda(table_33 scs_2 s_68 extra-shifts_1)" "(begin" -"(let-values(((ht_35 bulk-bindings_1)" +"(let-values(((ht_34 bulk-bindings_1)" "(if(hash? table_33)" "(values table_33 null)" "(values" "(table-with-bulk-bindings-syms table_33)" "(table-with-bulk-bindings-bulk-bindings table_33)))))" "(set-union" -"(let-values(((ht_36) ht_35))" +"(let-values(((ht_35) ht_34))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_36)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_35)))" "((letrec-values(((for-loop_35)" "(lambda(table_34 i_48)" "(begin" " 'for-loop" "(if i_48" -"(let-values(((sym_8 at-sym_0)(hash-iterate-key+value ht_36 i_48)))" -"(let-values(((table_31)" -"(let-values(((table_32) table_34))" -"(if(let-values(((ht_37) at-sym_0))" +"(let-values(((sym_8 at-sym_0)(hash-iterate-key+value ht_35 i_48)))" +"(let-values(((table_35)" +"(let-values(((table_36) table_34))" +"(if(let-values(((ht_36) at-sym_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_37)))" +"(let-values()(check-in-hash-keys ht_36)))" "((letrec-values(((for-loop_36)" "(lambda(result_29 i_49)" "(begin" @@ -6922,7 +6948,7 @@ static const char *startup_source = "(if i_49" "(let-values(((an-scs_0)" "(hash-iterate-key" -" ht_37" +" ht_36" " i_49)))" "(let-values(((result_30)" "(let-values()" @@ -6935,7 +6961,7 @@ static const char *startup_source = "(values" " result_31)))))" "(if(if(not" -"((lambda x_27" +"((lambda x_26" " result_30)" " an-scs_0))" "(not #f)" @@ -6943,64 +6969,64 @@ static const char *startup_source = "(for-loop_36" " result_30" "(hash-iterate-next" -" ht_37" +" ht_36" " i_49))" " result_30)))" " result_29)))))" " for-loop_36)" " #f" -"(hash-iterate-first ht_37))))" -"(let-values(((table_35) table_32))" -"(let-values(((table_36)" +"(hash-iterate-first ht_36))))" +"(let-values(((table_37) table_36))" +"(let-values(((table_38)" "(let-values()" "(let-values(((key_19 val_9)" "(let-values()" "(values" "(let-values() sym_8)" " #t))))" -"(hash-set table_35 key_19 val_9)))))" -"(values table_36)))" -" table_32))))" -"(if(not #f)(for-loop_35 table_31(hash-iterate-next ht_36 i_48)) table_31)))" +"(hash-set table_37 key_19 val_9)))))" +"(values table_38)))" +" table_36))))" +"(if(not #f)(for-loop_35 table_35(hash-iterate-next ht_35 i_48)) table_35)))" " table_34)))))" " for-loop_35)" " '#hasheq()" -"(hash-iterate-first ht_36))))" +"(hash-iterate-first ht_35))))" "(let-values(((lst_35) bulk-bindings_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_35)))" "((letrec-values(((for-loop_37)" -"(lambda(table_37 lst_36)" +"(lambda(table_39 lst_36)" "(begin" " 'for-loop" "(if(pair? lst_36)" "(let-values(((bba_1)(unsafe-car lst_36))((rest_14)(unsafe-cdr lst_36)))" -"(let-values(((table_38)" -"(let-values(((table_39) table_37))" +"(let-values(((table_40)" +"(let-values(((table_41) table_39))" "(if(subset?(bulk-binding-at-scopes bba_1) scs_2)" -"(let-values(((ht_38)" +"(let-values(((ht_37)" "(bulk-binding-symbols" "(bulk-binding-at-bulk bba_1)" -" s_67" +" s_68" " extra-shifts_1)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_38)))" +"(let-values()(check-in-hash-keys ht_37)))" "((letrec-values(((for-loop_38)" -"(lambda(table_40 i_50)" +"(lambda(table_42 i_50)" "(begin" " 'for-loop" "(if i_50" "(let-values(((sym_9)" "(hash-iterate-key" -" ht_38" +" ht_37" " i_50)))" -"(let-values(((table_41)" -"(let-values(((table_42)" -" table_40))" "(let-values(((table_43)" +"(let-values(((table_44)" +" table_42))" +"(let-values(((table_45)" "(let-values()" "(let-values(((key_20" " val_10)" @@ -7010,25 +7036,25 @@ static const char *startup_source = " sym_9)" " #t))))" "(hash-set" -" table_42" +" table_44" " key_20" " val_10)))))" "(values" -" table_43)))))" +" table_45)))))" "(if(not #f)" "(for-loop_38" -" table_41" +" table_43" "(hash-iterate-next" -" ht_38" +" ht_37" " i_50))" -" table_41)))" -" table_40)))))" +" table_43)))" +" table_42)))))" " for-loop_38)" -" table_39" -"(hash-iterate-first ht_38))))" -" table_39))))" -"(if(not #f)(for-loop_37 table_38 rest_14) table_38)))" -" table_37)))))" +" table_41" +"(hash-iterate-first ht_37))))" +" table_41))))" +"(if(not #f)(for-loop_37 table_40 rest_14) table_40)))" +" table_39)))))" " for-loop_37)" " '#hasheq()" " lst_35))))))))" @@ -7036,28 +7062,28 @@ static const char *startup_source = "(binding-table-prune-to-reachable)" "(lambda(bt_3 state_15)" "(begin" -"(let-values(((or-part_89)(hash-ref(serialize-state-bindings-intern state_15) bt_3 #f)))" -"(if or-part_89" -" or-part_89" +"(let-values(((or-part_91)(hash-ref(serialize-state-bindings-intern state_15) bt_3 #f)))" +"(if or-part_91" +" or-part_91" "(let-values(((reachable-scopes_1)(serialize-state-reachable-scopes state_15)))" "(let-values(((new-syms_2)" -"(let-values(((ht_39)(if(hash? bt_3) bt_3(table-with-bulk-bindings-syms/serialize bt_3))))" +"(let-values(((ht_38)(if(hash? bt_3) bt_3(table-with-bulk-bindings-syms/serialize bt_3))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_39)))" +"(let-values()(check-in-immutable-hash ht_38)))" "((letrec-values(((for-loop_39)" -"(lambda(table_44 i_51)" +"(lambda(table_46 i_51)" "(begin" " 'for-loop" "(if i_51" "(let-values(((sym_2 bindings-for-sym_0)" "(unsafe-immutable-hash-iterate-key+value" -" ht_39" +" ht_38" " i_51)))" -"(let-values(((table_45)" +"(let-values(((table_47)" "(let-values(((new-bindings-for-sym_0)" -"(let-values(((ht_40)" +"(let-values(((ht_39)" " bindings-for-sym_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -7065,9 +7091,9 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-immutable-hash" -" ht_40)))" +" ht_39)))" "((letrec-values(((for-loop_40)" -"(lambda(table_46" +"(lambda(table_48" " i_52)" "(begin" " 'for-loop" @@ -7075,17 +7101,17 @@ static const char *startup_source = "(let-values(((scopes_5" " binding_1)" "(unsafe-immutable-hash-iterate-key+value" -" ht_40" +" ht_39" " i_52)))" -"(let-values(((table_47)" -"(let-values(((table_48)" -" table_46))" +"(let-values(((table_49)" +"(let-values(((table_50)" +" table_48))" "(if(subset?" " scopes_5" " reachable-scopes_1)" -"(let-values(((table_49)" -" table_48))" -"(let-values(((table_50)" +"(let-values(((table_51)" +" table_50))" +"(let-values(((table_52)" "(let-values()" "(let-values(((key_21" " val_11)" @@ -7096,41 +7122,41 @@ static const char *startup_source = " state_15)" " binding_1))))" "(hash-set" -" table_49" +" table_51" " key_21" " val_11)))))" "(values" -" table_50)))" -" table_48))))" +" table_52)))" +" table_50))))" "(if(not" " #f)" "(for-loop_40" -" table_47" +" table_49" "(unsafe-immutable-hash-iterate-next" -" ht_40" +" ht_39" " i_52))" -" table_47)))" -" table_46)))))" +" table_49)))" +" table_48)))))" " for-loop_40)" " '#hash()" "(unsafe-immutable-hash-iterate-first" -" ht_40))))))" +" ht_39))))))" "(begin" " #t" "((letrec-values(((for-loop_41)" -"(lambda(table_51)" +"(lambda(table_53)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_52)" -"(let-values(((table_53)" -" table_51))" +"(let-values(((table_54)" +"(let-values(((table_55)" +" table_53))" "(if(positive?" "(hash-count" " new-bindings-for-sym_0))" -"(let-values(((table_54)" -" table_53))" -"(let-values(((table_55)" +"(let-values(((table_56)" +" table_55))" +"(let-values(((table_57)" "(let-values()" "(let-values(((key_22" " val_12)" @@ -7139,24 +7165,24 @@ static const char *startup_source = " sym_2" " new-bindings-for-sym_0))))" "(hash-set" -" table_54" +" table_56" " key_22" " val_12)))))" "(values" -" table_55)))" -" table_53))))" -" table_52))))))" +" table_57)))" +" table_55))))" +" table_54))))))" " for-loop_41)" -" table_44)))))" +" table_46)))))" "(if(not #f)" "(for-loop_39" -" table_45" -"(unsafe-immutable-hash-iterate-next ht_39 i_51))" -" table_45)))" -" table_44)))))" +" table_47" +"(unsafe-immutable-hash-iterate-next ht_38 i_51))" +" table_47)))" +" table_46)))))" " for-loop_39)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_39))))))" +"(unsafe-immutable-hash-iterate-first ht_38))))))" "(let-values(((new-bulk-bindings_0)" "(if(hash? bt_3)" " null" @@ -7220,24 +7246,24 @@ static const char *startup_source = "(lambda(bt_4 get-reachable-scopes_0 reach_2 register-trigger_0)" "(begin" "(begin" -"(let-values(((ht_41)(if(hash? bt_4) bt_4(table-with-bulk-bindings-syms/serialize bt_4))))" +"(let-values(((ht_40)(if(hash? bt_4) bt_4(table-with-bulk-bindings-syms/serialize bt_4))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_41)))" +"(let-values()(check-in-immutable-hash ht_40)))" "((letrec-values(((for-loop_43)" "(lambda(i_53)" "(begin" " 'for-loop" "(if i_53" "(let-values(((sym_10 bindings-for-sym_1)" -"(unsafe-immutable-hash-iterate-key+value ht_41 i_53)))" +"(unsafe-immutable-hash-iterate-key+value ht_40 i_53)))" "(let-values((()" -"(let-values(((ht_42) bindings-for-sym_1))" +"(let-values(((ht_41) bindings-for-sym_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_42)))" +"(let-values()(check-in-immutable-hash ht_41)))" "((letrec-values(((for-loop_44)" "(lambda(i_54)" "(begin" @@ -7245,7 +7271,7 @@ static const char *startup_source = "(if i_54" "(let-values(((scopes_6 binding_2)" "(unsafe-immutable-hash-iterate-key+value" -" ht_42" +" ht_41" " i_54)))" "(let-values((()" "(let-values()" @@ -7253,7 +7279,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((v_73)" +"(let-values(((v_75)" "(if(binding-reach-scopes?" " binding_2)" "((binding-reach-scopes-ref" @@ -7262,7 +7288,7 @@ static const char *startup_source = " #f)))" "(scopes-register-reachable" " scopes_6" -" v_73" +" v_75" " get-reachable-scopes_0" " reach_2" " register-trigger_0)))" @@ -7271,18 +7297,18 @@ static const char *startup_source = "(if(not #f)" "(for-loop_44" "(unsafe-immutable-hash-iterate-next" -" ht_42" +" ht_41" " i_54))" "(values))))" "(values))))))" " for-loop_44)" -"(unsafe-immutable-hash-iterate-first ht_42))))))" +"(unsafe-immutable-hash-iterate-first ht_41))))))" "(if(not #f)" -"(for-loop_43(unsafe-immutable-hash-iterate-next ht_41 i_53))" +"(for-loop_43(unsafe-immutable-hash-iterate-next ht_40 i_53))" "(values))))" "(values))))))" " for-loop_43)" -"(unsafe-immutable-hash-iterate-first ht_41))))" +"(unsafe-immutable-hash-iterate-first ht_40))))" "(void)" "(if(table-with-bulk-bindings? bt_4)" "(let-values()" @@ -7320,37 +7346,37 @@ static const char *startup_source = "(void))))))" "(define-values" "(scopes-register-reachable)" -"(lambda(scopes_7 v_74 get-reachable-scopes_1 reach_3 register-trigger_1)" +"(lambda(scopes_7 v_76 get-reachable-scopes_1 reach_3 register-trigger_1)" "(begin" "(let-values(((reachable-scopes_2)(get-reachable-scopes_1)))" "(if(subset? scopes_7 reachable-scopes_2)" -"(let-values()(reach_3 v_74))" +"(let-values()(reach_3 v_76))" "(let-values()" "(let-values(((pending-scopes_0)" -"(let-values(((ht_43) scopes_7))" +"(let-values(((ht_42) scopes_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_43)))" +"(let-values()(check-in-immutable-hash-keys ht_42)))" "((letrec-values(((for-loop_46)" -"(lambda(table_56 i_55)" +"(lambda(table_58 i_55)" "(begin" " 'for-loop" "(if i_55" "(let-values(((sc_0)" -"(unsafe-immutable-hash-iterate-key ht_43 i_55)))" -"(let-values(((table_57)" -"(let-values(((table_58) table_56))" -"(if(let-values(((or-part_90)" +"(unsafe-immutable-hash-iterate-key ht_42 i_55)))" +"(let-values(((table_59)" +"(let-values(((table_60) table_58))" +"(if(let-values(((or-part_92)" "(set-member?" " reachable-scopes_2" " sc_0)))" -"(if or-part_90" -" or-part_90" +"(if or-part_92" +" or-part_92" "(implicitly-reachable? sc_0)))" -" table_58" -"(let-values(((table_59) table_58))" -"(let-values(((table_60)" +" table_60" +"(let-values(((table_61) table_60))" +"(let-values(((table_62)" "(let-values()" "(let-values(((key_23" " val_13)" @@ -7360,19 +7386,19 @@ static const char *startup_source = " sc_0)" " #t))))" "(hash-set" -" table_59" +" table_61" " key_23" " val_13)))))" -"(values table_60)))))))" +"(values table_62)))))))" "(if(not #f)" "(for-loop_46" -" table_57" -"(unsafe-immutable-hash-iterate-next ht_43 i_55))" -" table_57)))" -" table_56)))))" +" table_59" +"(unsafe-immutable-hash-iterate-next ht_42 i_55))" +" table_59)))" +" table_58)))))" " for-loop_46)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_43))))))" +"(unsafe-immutable-hash-iterate-first ht_42))))))" "(let-values(((check-trigger_0)" "(lambda(reach_4)" "(begin" @@ -7380,12 +7406,12 @@ static const char *startup_source = "(if(zero?(hash-count pending-scopes_0))" "(let-values()" "(begin" -"(reach_4 v_74)" -"(let-values(((ht_44) scopes_7))" +"(reach_4 v_76)" +"(let-values(((ht_43) scopes_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_44)))" +"(let-values()(check-in-immutable-hash-keys ht_43)))" "((letrec-values(((for-loop_47)" "(lambda(i_56)" "(begin" @@ -7393,7 +7419,7 @@ static const char *startup_source = "(if i_56" "(let-values(((sc_1)" "(unsafe-immutable-hash-iterate-key" -" ht_44" +" ht_43" " i_56)))" "(let-values((()" "(let-values()" @@ -7412,26 +7438,26 @@ static const char *startup_source = "(if(not #f)" "(for-loop_47" "(unsafe-immutable-hash-iterate-next" -" ht_44" +" ht_43" " i_56))" "(values))))" "(values))))))" " for-loop_47)" -"(unsafe-immutable-hash-iterate-first ht_44))))" +"(unsafe-immutable-hash-iterate-first ht_43))))" "(void)))" "(void))))))" "(begin" -"(let-values(((ht_45) pending-scopes_0))" +"(let-values(((ht_44) pending-scopes_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_45)))" +"(let-values()(check-in-immutable-hash-keys ht_44)))" "((letrec-values(((for-loop_48)" "(lambda(i_8)" "(begin" " 'for-loop" "(if i_8" -"(let-values(((sc_2)(unsafe-immutable-hash-iterate-key ht_45 i_8)))" +"(let-values(((sc_2)(unsafe-immutable-hash-iterate-key ht_44 i_8)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -7450,11 +7476,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_48(unsafe-immutable-hash-iterate-next ht_45 i_8))" +"(for-loop_48(unsafe-immutable-hash-iterate-next ht_44 i_8))" "(values))))" "(values))))))" " for-loop_48)" -"(unsafe-immutable-hash-iterate-first ht_45))))" +"(unsafe-immutable-hash-iterate-first ht_44))))" "(void)" "(check-trigger_0 reach_3))))))))))" "(define-values" @@ -7462,27 +7488,27 @@ static const char *startup_source = "(let-values()" "(let-values()" "(case-lambda" -"((s_68 key_24)" +"((s_69 key_24)" "(begin" " 'syntax-property" "(let-values((()" "(begin" -"(if(syntax?$1 s_68)" -"(void)" -" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_68)))" -"(values))))" -"(let-values(((v_63)(hash-ref(syntax-props s_68) key_24 #f)))(plain-property-value v_63)))))" -"((s_69 key_25 val_14)" -"(let-values((()" -"(begin" "(if(syntax?$1 s_69)" "(void)" -" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_69)))" +" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_69)))" +"(values))))" +"(let-values(((v_65)(hash-ref(syntax-props s_69) key_24 #f)))(plain-property-value v_65)))))" +"((s_70 key_25 val_14)" +"(let-values((()" +"(begin" +"(if(syntax?$1 s_70)" +"(void)" +" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_70)))" "(values))))" "(let-values(((pval_0)(if(eq? key_25 'paren-shape)(preserved-property-value1.1 val_14) val_14)))" -"(let-values(((the-struct_3) s_69))" +"(let-values(((the-struct_3) s_70))" "(if(syntax?$1 the-struct_3)" -"(let-values(((props2_0)(hash-set(syntax-props s_69) key_25 pval_0)))" +"(let-values(((props2_0)(hash-set(syntax-props s_70) key_25 pval_0)))" "(syntax1.1" "(syntax-content the-struct_3)" "(syntax-scopes the-struct_3)" @@ -7493,12 +7519,12 @@ static const char *startup_source = " props2_0" "(syntax-inspector the-struct_3)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_3))))))" -"((s_70 key_26 val_15 preserved?_0)" +"((s_71 key_26 val_15 preserved?_0)" "(let-values((()" "(begin" -"(if(syntax?$1 s_70)" +"(if(syntax?$1 s_71)" "(void)" -" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_70)))" +" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_71)))" "(values))))" "(let-values((()" "(begin" @@ -7517,9 +7543,9 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((pval_1)(if preserved?_0(preserved-property-value1.1 val_15) val_15)))" -"(let-values(((the-struct_4) s_70))" +"(let-values(((the-struct_4) s_71))" "(if(syntax?$1 the-struct_4)" -"(let-values(((props3_0)(hash-set(syntax-props s_70) key_26 pval_1)))" +"(let-values(((props3_0)(hash-set(syntax-props s_71) key_26 pval_1)))" "(syntax1.1" "(syntax-content the-struct_4)" "(syntax-scopes the-struct_4)" @@ -7532,20 +7558,20 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_4)))))))))))" "(define-values" "(1/syntax-property-preserved?)" -"(lambda(s_71 key_27)" +"(lambda(s_72 key_27)" "(begin" " 'syntax-property-preserved?" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_71)" +"(if(syntax?$1 s_72)" "(void)" -" (let-values () (raise-argument-error 'syntax-property-preserved? \"syntax?\" s_71)))" +" (let-values () (raise-argument-error 'syntax-property-preserved? \"syntax?\" s_72)))" "(if(if(symbol? key_27)(symbol-interned? key_27) #f)" "(void)" "(let-values()" " (raise-argument-error 'syntax-property-preserved? \"(and/c symbol? symbol-interned?)\" key_27)))" -"(preserved-property-value?(hash-ref(syntax-props s_71) key_27 #f))))))))" +"(preserved-property-value?(hash-ref(syntax-props s_72) key_27 #f))))))))" "(define-values" "(1/syntax-property-symbol-keys)" "(lambda(s_10)" @@ -7558,18 +7584,18 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'syntax-property-symbol-keys \"syntax\" s_10)))" "(reverse$1" -"(let-values(((ht_46)(syntax-props s_10)))" +"(let-values(((ht_45)(syntax-props s_10)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_46)))" +"(let-values()(check-in-immutable-hash ht_45)))" "((letrec-values(((for-loop_49)" "(lambda(fold-var_26 i_57)" "(begin" " 'for-loop" "(if i_57" "(let-values(((k_16 v_30)" -"(unsafe-immutable-hash-iterate-key+value ht_46 i_57)))" +"(unsafe-immutable-hash-iterate-key+value ht_45 i_57)))" "(let-values(((fold-var_27)" "(let-values(((fold-var_28) fold-var_26))" "(if(if(symbol? k_16)(symbol-interned? k_16) #f)" @@ -7582,24 +7608,25 @@ static const char *startup_source = "(values fold-var_30)))" " fold-var_28))))" "(if(not #f)" -"(for-loop_49 fold-var_27(unsafe-immutable-hash-iterate-next ht_46 i_57))" +"(for-loop_49 fold-var_27(unsafe-immutable-hash-iterate-next ht_45 i_57))" " fold-var_27)))" " fold-var_26)))))" " for-loop_49)" " null" -"(unsafe-immutable-hash-iterate-first ht_46)))))))))))" +"(unsafe-immutable-hash-iterate-first ht_45)))))))))))" "(define-values" -"(syntax-property-remove)" -"(lambda(s_72 key_28)" +"(1/syntax-property-remove)" +"(lambda(s_73 key_28)" "(begin" +" 'syntax-property-remove" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_72) (void) (let-values () (raise-argument-error 'syntax-property-remove \"syntax?\" s_72)))" -"(if(hash-ref(syntax-props s_72) key_28 #f)" -"(let-values(((the-struct_5) s_72))" +" (if (syntax?$1 s_73) (void) (let-values () (raise-argument-error 'syntax-property-remove \"syntax?\" s_73)))" +"(if(hash-ref(syntax-props s_73) key_28 #f)" +"(let-values(((the-struct_5) s_73))" "(if(syntax?$1 the-struct_5)" -"(let-values(((props7_0)(hash-remove(syntax-props s_72) key_28)))" +"(let-values(((props7_0)(hash-remove(syntax-props s_73) key_28)))" "(syntax1.1" "(syntax-content the-struct_5)" "(syntax-scopes the-struct_5)" @@ -7610,13 +7637,13 @@ static const char *startup_source = " props7_0" "(syntax-inspector the-struct_5)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_5)))" -" s_72)))))))" +" s_73)))))))" "(define-values" "(taint-content)" "(lambda(d_2)" "(begin" -"(let-values(((s_70) d_2)" -"((f_25)(lambda(tail?_15 x_28)(begin 'f x_28)))" +"(let-values(((s_71) d_2)" +"((f_24)(lambda(tail?_16 x_27)(begin 'f x_27)))" "((s->_1)" "(lambda(sub-s_0)" "(begin" @@ -7645,79 +7672,84 @@ static const char *startup_source = "(syntax-inspector the-struct_6)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_6)))))))))" "((seen_7) #f))" -"(let-values(((s_73) s_70)" -"((f_4)" -"(lambda(tail?_16 v_75)" +"(let-values(((s_74) s_71)" +"((f_4) f_24)" +"((gf_3)" +"(lambda(tail?_17 v_30)" "(begin" -" 'f" -"(if(syntax?$1 v_75)(let-values()(s->_1 v_75))(let-values()(f_25 tail?_16 v_75))))))" +" 'gf" +"(if(syntax?$1 v_30)(let-values()(s->_1 v_30))(let-values()(f_24 tail?_17 v_30))))))" "((seen_8) seen_7))" "((letrec-values(((loop_66)" -"(lambda(tail?_17 s_74 prev-depth_3)" +"(lambda(tail?_18 s_75 prev-depth_3)" "(begin" " 'loop" -"(let-values(((depth_3)(add1 prev-depth_3)))" -"(if(if seen_8(> depth_3 32) #f)" -"(let-values()" -"(datum-map-slow tail?_17 s_74(lambda(tail?_1 s_41)(f_4 tail?_1 s_41)) seen_8))" -"(if(null? s_74)" -"(let-values()(f_4 tail?_17 s_74))" -"(if(pair? s_74)" -"(let-values()" -"(f_4" -" tail?_17" -"(cons(loop_66 #f(car s_74) depth_3)(loop_66 #t(cdr s_74) depth_3))))" -"(if(let-values(((or-part_75)(symbol? s_74)))" -"(if or-part_75" -" or-part_75" -"(let-values(((or-part_76)(boolean? s_74)))" -"(if or-part_76 or-part_76(number? s_74)))))" -"(let-values()(f_4 #f s_74))" -"(if(let-values(((or-part_68)(vector? s_74)))" -"(if or-part_68" -" or-part_68" -"(let-values(((or-part_69)(box? s_74)))" -"(if or-part_69" -" or-part_69" -"(let-values(((or-part_77)(prefab-struct-key s_74)))" -"(if or-part_77 or-part_77(hash? s_74)))))))" +"(let-values(((depth_3)(fx+ 1 prev-depth_3)))" +"(if(if seen_8(fx> depth_3 32) #f)" "(let-values()" "(datum-map-slow" -" tail?_17" -" s_74" -"(lambda(tail?_18 s_75)(f_4 tail?_18 s_75))" +" tail?_18" +" s_75" +"(lambda(tail?_19 s_76)(gf_3 tail?_19 s_76))" " seen_8))" -"(let-values()(f_4 #f s_74))))))))))))" +"(if(null? s_75)" +"(let-values()(f_4 tail?_18 s_75))" +"(if(pair? s_75)" +"(let-values()" +"(f_4" +" tail?_18" +"(cons(loop_66 #f(car s_75) depth_3)(loop_66 #t(cdr s_75) depth_3))))" +"(if(symbol? s_75)" +"(let-values()(f_4 #f s_75))" +"(if(boolean? s_75)" +"(let-values()(f_4 #f s_75))" +"(if(number? s_75)" +"(let-values()(f_4 #f s_75))" +"(if(let-values(((or-part_81)(vector? s_75)))" +"(if or-part_81" +" or-part_81" +"(let-values(((or-part_82)(box? s_75)))" +"(if or-part_82" +" or-part_82" +"(let-values(((or-part_83)(prefab-struct-key s_75)))" +"(if or-part_83 or-part_83(hash? s_75)))))))" +"(let-values()" +"(datum-map-slow" +" tail?_18" +" s_75" +"(lambda(tail?_0 s_40)(gf_3 tail?_0 s_40))" +" seen_8))" +"(let-values()(gf_3 #f s_75))))))))))))))" " loop_66)" " #f" -" s_73" +" s_74" " 0))))))" -"(define-values(syntax-tainted?$1)(lambda(s_76)(begin 'syntax-tainted?(tamper-tainted?(syntax-tamper s_76)))))" -"(define-values(syntax-clean?)(lambda(s_6)(begin(tamper-clean?(syntax-tamper s_6)))))" +"(define-values(syntax-tainted?$1)(lambda(s_41)(begin 'syntax-tainted?(tamper-tainted?(syntax-tamper s_41)))))" +"(define-values(syntax-clean?)(lambda(s_77)(begin(tamper-clean?(syntax-tamper s_77)))))" "(define-values" "(syntax-arm$1)" -"(lambda(s_77 insp_0)" +"(lambda(s_6 insp_0)" "(begin" " 'syntax-arm" -"(let-values(((t_17)(syntax-tamper s_77)))" +"(let-values(((t_17)(syntax-tamper s_6)))" "(if(tamper-tainted? t_17)" -"(let-values() s_77)" +"(let-values() s_6)" "(if(if t_17" -"(let-values(((or-part_91)(set-member? t_17 insp_0)))" -"(if or-part_91" -" or-part_91" -"(let-values(((ht_47) t_17))" +"(let-values(((or-part_93)(set-member? t_17 insp_0)))" +"(if or-part_93" +" or-part_93" +"(let-values(((ht_46) t_17))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_47)))" +"(let-values()(check-in-immutable-hash-keys ht_46)))" "((letrec-values(((for-loop_50)" "(lambda(result_32 i_58)" "(begin" " 'for-loop" "(if i_58" "(let-values(((already-insp_0)" -"(unsafe-immutable-hash-iterate-key ht_47 i_58)))" +"(unsafe-immutable-hash-iterate-key ht_46 i_58)))" "(let-values(((result_33)" "(let-values()" "(let-values(((result_34)" @@ -7727,19 +7759,19 @@ static const char *startup_source = " already-insp_0" " insp_0)))))" "(values result_34)))))" -"(if(if(not((lambda x_29 result_33) already-insp_0))(not #f) #f)" +"(if(if(not((lambda x_28 result_33) already-insp_0))(not #f) #f)" "(for-loop_50" " result_33" -"(unsafe-immutable-hash-iterate-next ht_47 i_58))" +"(unsafe-immutable-hash-iterate-next ht_46 i_58))" " result_33)))" " result_32)))))" " for-loop_50)" " #f" -"(unsafe-immutable-hash-iterate-first ht_47))))))" +"(unsafe-immutable-hash-iterate-first ht_46))))))" " #f)" -"(let-values() s_77)" +"(let-values() s_6)" "(let-values()" -"(let-values(((stx_1) s_77))" +"(let-values(((stx_1) s_6))" "(let-values(((the-struct_7) stx_1))" "(if(syntax?$1 the-struct_7)" "(let-values(((scope-propagations+tamper7_0)" @@ -7760,53 +7792,53 @@ static const char *startup_source = "(remove-inferior)" "(lambda(t_19 insp_1)" "(begin" -"(let-values(((ht_48) t_19))" +"(let-values(((ht_47) t_19))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_48)))" +"(let-values()(check-in-immutable-hash-keys ht_47)))" "((letrec-values(((for-loop_51)" -"(lambda(table_61 i_59)" +"(lambda(table_63 i_59)" "(begin" " 'for-loop" "(if i_59" -"(let-values(((already-insp_1)(unsafe-immutable-hash-iterate-key ht_48 i_59)))" -"(let-values(((table_15)" -"(let-values(((table_62) table_61))" -"(if(inspector-superior-or-same? insp_1 already-insp_1)" -" table_62" -"(let-values(((table_63) table_62))" +"(let-values(((already-insp_1)(unsafe-immutable-hash-iterate-key ht_47 i_59)))" "(let-values(((table_64)" +"(let-values(((table_65) table_63))" +"(if(inspector-superior-or-same? insp_1 already-insp_1)" +" table_65" +"(let-values(((table_66) table_65))" +"(let-values(((table_67)" "(let-values()" "(let-values(((key_29 val_16)" "(let-values()" "(values" "(let-values() already-insp_1)" " #t))))" -"(hash-set table_63 key_29 val_16)))))" -"(values table_64)))))))" +"(hash-set table_66 key_29 val_16)))))" +"(values table_67)))))))" "(if(not #f)" -"(for-loop_51 table_15(unsafe-immutable-hash-iterate-next ht_48 i_59))" -" table_15)))" -" table_61)))))" +"(for-loop_51 table_64(unsafe-immutable-hash-iterate-next ht_47 i_59))" +" table_64)))" +" table_63)))))" " for-loop_51)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_48)))))))" +"(unsafe-immutable-hash-iterate-first ht_47)))))))" "(define-values" "(syntax-disarm$1)" "(let-values(((syntax-disarm4_0)" "(lambda(s3_0 insp1_0 insp2_0)" "(begin" " 'syntax-disarm4" -"(let-values(((s_13) s3_0))" +"(let-values(((s_12) s3_0))" "(let-values(((insp_2)(if insp2_0 insp1_0 #f)))" "(let-values()" -"(let-values(((t_20)(syntax-tamper s_13)))" +"(let-values(((t_20)(syntax-tamper s_12)))" "(if(not(tamper-armed? t_20))" -"(let-values() s_13)" +"(let-values() s_12)" "(if(not insp_2)" "(let-values()" -"(let-values(((stx_2) s_13))" +"(let-values(((stx_2) s_12))" "(let-values(((the-struct_8) stx_2))" "(if(syntax?$1 the-struct_8)" "(let-values(((scope-propagations+tamper8_0)" @@ -7827,7 +7859,7 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_8)))))" "(let-values()" "(let-values(((new-t_1)(remove-inferior t_20 insp_2)))" -"(let-values(((stx_3) s_13))" +"(let-values(((stx_3) s_12))" "(let-values(((the-struct_9) stx_3))" "(if(syntax?$1 the-struct_9)" "(let-values(((scope-propagations+tamper9_0)" @@ -7847,27 +7879,27 @@ static const char *startup_source = "(syntax-inspector the-struct_9)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_9))))))))))))))))" "(case-lambda" -"((s_21)(begin 'syntax-disarm(syntax-disarm4_0 s_21 #f #f)))" -"((s_78 insp1_1)(syntax-disarm4_0 s_78 insp1_1 #t)))))" +"((s_20)(begin 'syntax-disarm(syntax-disarm4_0 s_20 #f #f)))" +"((s_21 insp1_1)(syntax-disarm4_0 s_21 insp1_1 #t)))))" "(define-values" "(syntax-rearm$1)" -"(lambda(s_23 from-s_0)" +"(lambda(s_22 from-s_0)" "(begin" " 'syntax-rearm" -"(let-values(((t_23)(syntax-tamper s_23)))" +"(let-values(((t_23)(syntax-tamper s_22)))" "(if(tamper-tainted? t_23)" -"(let-values() s_23)" +"(let-values() s_22)" "(let-values()" "(let-values(((from-t_0)(syntax-tamper from-s_0)))" "(if(tamper-clean? from-t_0)" -"(let-values() s_23)" +"(let-values() s_22)" "(if(tamper-tainted? from-t_0)" "(let-values()" -"(let-values(((stx_4) s_23))" +"(let-values(((stx_4) s_22))" "(let-values(((the-struct_10) stx_4))" "(if(syntax?$1 the-struct_10)" "(let-values(((scope-propagations+tamper10_0)" -"(let-values(((t_24)(tamper-tainted-for-content(syntax-content s_23)))" +"(let-values(((t_24)(tamper-tainted-for-content(syntax-content s_22)))" "((p_23)(syntax-scope-propagations+tamper stx_4)))" "(if(tamper? p_23) t_24((propagation-set-tamper-ref p_23) p_23 t_24)))))" "(syntax1.1" @@ -7882,7 +7914,7 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_10)))))" "(if(tamper-clean? t_23)" "(let-values()" -"(let-values(((stx_5) s_23))" +"(let-values(((stx_5) s_22))" "(let-values(((the-struct_11) stx_5))" "(if(syntax?$1 the-struct_11)" "(let-values(((scope-propagations+tamper11_0)" @@ -7900,16 +7932,16 @@ static const char *startup_source = "(syntax-inspector the-struct_11)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_11)))))" "(let-values()" -"(let-values(((stx_6) s_23))" +"(let-values(((stx_6) s_22))" "(let-values(((the-struct_12) stx_6))" "(if(syntax?$1 the-struct_12)" "(let-values(((scope-propagations+tamper12_0)" "(let-values(((t_26)" -"(let-values(((ht_49) from-t_0))" +"(let-values(((ht_48) from-t_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_49)))" +"(let-values()(check-in-immutable-hash-keys ht_48)))" "((letrec-values(((for-loop_52)" "(lambda(t_27 i_60)" "(begin" @@ -7917,44 +7949,44 @@ static const char *startup_source = "(if i_60" "(let-values(((from-i_0)" "(unsafe-immutable-hash-iterate-key" -" ht_49" +" ht_48" " i_60)))" +"(let-values(((t_3)" "(let-values(((t_28)" -"(let-values(((t_29)" " t_27))" -"(let-values(((t_30)" +"(let-values(((t_29)" "(let-values()" "(if(set-member?" -" t_29" +" t_28" " from-i_0)" "(let-values()" -" t_29)" +" t_28)" "(if(any-superior?" -" t_29" +" t_28" " from-i_0)" "(let-values()" -" t_29)" +" t_28)" "(let-values()" "(set-add" "(remove-inferior" -" t_29" +" t_28" " from-i_0)" " from-i_0)))))))" "(values" -" t_30)))))" +" t_29)))))" "(if(not #f)" "(for-loop_52" -" t_28" +" t_3" "(unsafe-immutable-hash-iterate-next" -" ht_49" +" ht_48" " i_60))" -" t_28)))" +" t_3)))" " t_27)))))" " for-loop_52)" " t_23" -"(unsafe-immutable-hash-iterate-first ht_49)))))" -"((p_25)(syntax-scope-propagations+tamper stx_6)))" -"(if(tamper? p_25) t_26((propagation-set-tamper-ref p_25) p_25 t_26)))))" +"(unsafe-immutable-hash-iterate-first ht_48)))))" +"((p_11)(syntax-scope-propagations+tamper stx_6)))" +"(if(tamper? p_11) t_26((propagation-set-tamper-ref p_11) p_11 t_26)))))" "(syntax1.1" "(syntax-content the-struct_12)" "(syntax-scopes the-struct_12)" @@ -7967,18 +7999,18 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_12)))))))))))))))" "(define-values" "(syntax-taint$1)" -"(lambda(s_79)" +"(lambda(s_67)" "(begin" " 'syntax-taint" -"(if(tamper-tainted?(syntax-tamper s_79))" -" s_79" -"(let-values(((stx_7) s_79))" +"(if(tamper-tainted?(syntax-tamper s_67))" +" s_67" +"(let-values(((stx_7) s_67))" "(let-values(((the-struct_13) stx_7))" "(if(syntax?$1 the-struct_13)" "(let-values(((scope-propagations+tamper13_0)" -"(let-values(((t_31)(tamper-tainted-for-content(syntax-content s_79)))" -"((p_26)(syntax-scope-propagations+tamper stx_7)))" -"(if(tamper? p_26) t_31((propagation-set-tamper-ref p_26) p_26 t_31)))))" +"(let-values(((t_30)(tamper-tainted-for-content(syntax-content s_67)))" +"((p_25)(syntax-scope-propagations+tamper stx_7)))" +"(if(tamper? p_25) t_30((propagation-set-tamper-ref p_25) p_25 t_30)))))" "(syntax1.1" "(syntax-content the-struct_13)" "(syntax-scopes the-struct_13)" @@ -7991,19 +8023,19 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_13))))))))" "(define-values" "(any-superior?)" -"(lambda(t_5 from-i_1)" +"(lambda(t_31 from-i_1)" "(begin" -"(let-values(((ht_50) t_5))" +"(let-values(((ht_49) t_31))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_50)))" +"(let-values()(check-in-immutable-hash-keys ht_49)))" "((letrec-values(((for-loop_53)" "(lambda(result_35 i_61)" "(begin" " 'for-loop" "(if i_61" -"(let-values(((i_62)(unsafe-immutable-hash-iterate-key ht_50 i_61)))" +"(let-values(((i_62)(unsafe-immutable-hash-iterate-key ht_49 i_61)))" "(let-values(((result_36)" "(let-values()" "(let-values(((result_37)" @@ -8011,18 +8043,18 @@ static const char *startup_source = "(let-values()" "(inspector-superior-or-same? i_62 from-i_1)))))" "(values result_37)))))" -"(if(if(not((lambda x_30 result_36) i_62))(not #f) #f)" -"(for-loop_53 result_36(unsafe-immutable-hash-iterate-next ht_50 i_61))" +"(if(if(not((lambda x_29 result_36) i_62))(not #f) #f)" +"(for-loop_53 result_36(unsafe-immutable-hash-iterate-next ht_49 i_61))" " result_36)))" " result_35)))))" " for-loop_53)" " #f" -"(unsafe-immutable-hash-iterate-first ht_50)))))))" +"(unsafe-immutable-hash-iterate-first ht_49)))))))" "(define-values" "(inspector-superior-or-same?)" -"(lambda(sup-i_0 i_63)" +"(lambda(sup-i_0 i_45)" "(begin" -"(let-values(((or-part_92)(eq? sup-i_0 i_63)))(if or-part_92 or-part_92(inspector-superior? sup-i_0 i_63))))))" +"(let-values(((or-part_94)(eq? sup-i_0 i_45)))(if or-part_94 or-part_94(inspector-superior? sup-i_0 i_45))))))" "(define-values" "(struct:fallback fallback1.1 fallback? fallback-search-list)" "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" @@ -8050,14 +8082,14 @@ static const char *startup_source = "(list smss/maybe-fallback_0)))))))" "(define-values" "(fallback-update-first)" -"(lambda(smss_3 f_26)" +"(lambda(smss_3 f_25)" "(begin" "(if(fallback? smss_3)" -"(let-values(((l_45)(fallback-search-list smss_3)))(fallback1.1(cons(f_26(car l_45))(cdr l_45))))" -"(f_26 smss_3)))))" +"(let-values(((l_45)(fallback-search-list smss_3)))(fallback1.1(cons(f_25(car l_45))(cdr l_45))))" +"(f_25 smss_3)))))" "(define-values" "(fallback-map)" -"(lambda(smss_4 f_19)" +"(lambda(smss_4 f_26)" "(begin" "(if(fallback? smss_4)" "(fallback1.1" @@ -8076,7 +8108,7 @@ static const char *startup_source = "(let-values(((fold-var_34)" "(let-values()" "(cons" -"(let-values()(f_19 smss_5))" +"(let-values()(f_26 smss_5))" " fold-var_33))))" "(values fold-var_34)))))" "(if(not #f)(for-loop_54 fold-var_32 rest_17) fold-var_32)))" @@ -8084,7 +8116,7 @@ static const char *startup_source = " for-loop_54)" " null" " lst_41)))))" -"(f_19 smss_4)))))" +"(f_26 smss_4)))))" "(define-values" "(fallback->list)" "(lambda(smss_6)(begin(if(fallback? smss_6)(fallback-search-list smss_6)(list smss_6)))))" @@ -8128,10 +8160,10 @@ static const char *startup_source = "(begin" "(let-values(((c_15)(weak-box-value(unbox* cache))))" "(if c_15" -"(let-values(((v_76)(hash-ref c_15 sym_12 #f)))" -"(if v_76" -"(if(eqv? phase_4(entry-phase v_76))" -"(if(set=? scs_3(entry-scs v_76))(if(set=? smss_7(entry-smss v_76))(entry-binding v_76) #f) #f)" +"(let-values(((v_77)(hash-ref c_15 sym_12 #f)))" +"(if v_77" +"(if(eqv? phase_4(entry-phase v_77))" +"(if(set=? scs_3(entry-scs v_77))(if(set=? smss_7(entry-smss v_77))(entry-binding v_77) #f) #f)" " #f)" " #f))" " #f)))))" @@ -8154,15 +8186,15 @@ static const char *startup_source = "(define-values(cached-hashes-pos) 0)" "(define-values" "(cache-or-reuse-set)" -"(lambda(s_80)" +"(lambda(s_78)" "(begin" "(let-values(((vec_16)" -"(let-values(((or-part_93)(weak-box-value cached-sets)))" -"(if or-part_93" -" or-part_93" +"(let-values(((or-part_95)(weak-box-value cached-sets)))" +"(if or-part_95" +" or-part_95" "(let-values(((vec_17)(make-vector NUM-CACHE-SLOTS #f)))" "(begin(set! cached-sets(make-weak-box vec_17)) vec_17))))))" -"(let-values(((or-part_94)" +"(let-values(((or-part_96)" "(let-values(((vec_18 len_9)" "(let-values(((vec_19) vec_16))" "(begin(check-vector vec_19)(values vec_19(unsafe-vector-length vec_19))))))" @@ -8180,33 +8212,33 @@ static const char *startup_source = "(let-values()" "(let-values()" "(if s2_5" -"(if(set=? s_80 s2_5) s2_5 #f)" +"(if(set=? s_78 s2_5) s2_5 #f)" " #f)))))" "(values result_40)))))" -"(if(if(not((lambda x_31 result_39) s2_5))(not #f) #f)" +"(if(if(not((lambda x_30 result_39) s2_5))(not #f) #f)" "(for-loop_55 result_39(unsafe-fx+ 1 pos_7))" " result_39)))" " result_38)))))" " for-loop_55)" " #f" " 0)))))" -"(if or-part_94" -" or-part_94" +"(if or-part_96" +" or-part_96" "(begin" -"(vector-set! vec_16 cached-sets-pos s_80)" +"(vector-set! vec_16 cached-sets-pos s_78)" "(set! cached-sets-pos(modulo(add1 cached-sets-pos) NUM-CACHE-SLOTS))" -" s_80)))))))" +" s_78)))))))" "(define-values" "(cache-or-reuse-hash)" -"(lambda(s_81)" +"(lambda(s_79)" "(begin" "(let-values(((vec_20)" -"(let-values(((or-part_95)(weak-box-value cached-hashes)))" -"(if or-part_95" -" or-part_95" +"(let-values(((or-part_97)(weak-box-value cached-hashes)))" +"(if or-part_97" +" or-part_97" "(let-values(((vec_21)(make-vector NUM-CACHE-SLOTS #f)))" "(begin(set! cached-hashes(make-weak-box vec_21)) vec_21))))))" -"(let-values(((or-part_96)" +"(let-values(((or-part_98)" "(let-values(((vec_22 len_10)" "(let-values(((vec_23) vec_20))" "(begin(check-vector vec_23)(values vec_23(unsafe-vector-length vec_23))))))" @@ -8224,22 +8256,22 @@ static const char *startup_source = "(let-values()" "(let-values()" "(if s2_6" -"(if(equal? s_81 s2_6) s2_6 #f)" +"(if(equal? s_79 s2_6) s2_6 #f)" " #f)))))" "(values result_43)))))" -"(if(if(not((lambda x_32 result_42) s2_6))(not #f) #f)" +"(if(if(not((lambda x_31 result_42) s2_6))(not #f) #f)" "(for-loop_56 result_42(unsafe-fx+ 1 pos_8))" " result_42)))" " result_41)))))" " for-loop_56)" " #f" " 0)))))" -"(if or-part_96" -" or-part_96" +"(if or-part_98" +" or-part_98" "(begin" -"(vector-set! vec_20 cached-hashes-pos s_81)" +"(vector-set! vec_20 cached-hashes-pos s_79)" "(set! cached-hashes-pos(modulo(add1 cached-hashes-pos) NUM-CACHE-SLOTS))" -" s_81)))))))" +" s_79)))))))" "(define-values" "(struct:scope scope1.1 scope? scope-id scope-kind scope-binding-table set-scope-binding-table!)" "(let-values(((struct:_21 make-_21 ?_21 -ref_21 -set!_21)" @@ -8255,33 +8287,33 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:scope-with-bindings" -"(lambda(s_77 get-reachable-scopes_2 reach_6 register-trigger_2)" +"(lambda(s_80 get-reachable-scopes_2 reach_6 register-trigger_2)" "(binding-table-register-reachable" -"(scope-binding-table s_77)" +"(scope-binding-table s_80)" " get-reachable-scopes_2" " reach_6" " register-trigger_2)))" -"(cons prop:reach-scopes(lambda(s_82 reach_7)(void)))" +"(cons prop:reach-scopes(lambda(s_81 reach_7)(void)))" "(cons" " prop:serialize-fill!" -"(lambda(s_83 ser-push!_6 state_16)" -"(if(binding-table-empty?(scope-binding-table s_83))" +"(lambda(s_82 ser-push!_6 state_16)" +"(if(binding-table-empty?(scope-binding-table s_82))" "(let-values()(ser-push!_6 'tag #f))" "(let-values()" "(begin" "(ser-push!_6 'tag '#:scope-fill!)" -"(ser-push!_6(binding-table-prune-to-reachable(scope-binding-table s_83) state_16)))))))" +"(ser-push!_6(binding-table-prune-to-reachable(scope-binding-table s_82) state_16)))))))" "(cons" " prop:serialize" -"(lambda(s_84 ser-push!_7 state_17)" +"(lambda(s_83 ser-push!_7 state_17)" "(begin" -"(if(set-member?(serialize-state-reachable-scopes state_17) s_84)" +"(if(set-member?(serialize-state-reachable-scopes state_17) s_83)" "(void)" " (let-values () (error \"internal error: found supposedly unreachable scope\")))" -"(if(eq? s_84 top-level-common-scope)" +"(if(eq? s_83 top-level-common-scope)" "(let-values()(ser-push!_7 'tag '#:scope))" "(let-values()" -"(begin(ser-push!_7 'tag '#:scope+kind)(ser-push!_7(scope-kind s_84))))))))" +"(begin(ser-push!_7 'tag '#:scope+kind)(ser-push!_7(scope-kind s_83))))))))" "(cons" " prop:custom-write" "(lambda(sc_3 port_6 mode_6)" @@ -8309,7 +8341,7 @@ static const char *startup_source = "(case-lambda" "(()(begin top-level-common-scope))" "((kind_0)(scope1.1(new-deserialize-scope-id!) kind_0 empty-binding-table))))" -"(define-values(deserialize-scope-fill!)(lambda(s_85 bt_5)(begin(set-scope-binding-table! s_85 bt_5))))" +"(define-values(deserialize-scope-fill!)(lambda(s_84 bt_5)(begin(set-scope-binding-table! s_84 bt_5))))" "(define-values" "(struct:multi-scope" " multi-scope2.1" @@ -8334,17 +8366,17 @@ static const char *startup_source = " prop:scope-with-bindings" "(lambda(ms_0 get-reachable-scopes_3 reach_8 register-trigger_3)" "(begin" -"(let-values(((ht_51)(multi-scope-scopes ms_0)))" +"(let-values(((ht_50)(multi-scope-scopes ms_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-values ht_51)))" +"(let-values()(check-in-hash-values ht_50)))" "((letrec-values(((for-loop_57)" -"(lambda(i_64)" +"(lambda(i_63)" "(begin" " 'for-loop" -"(if i_64" -"(let-values(((sc_4)(hash-iterate-value ht_51 i_64)))" +"(if i_63" +"(let-values(((sc_4)(hash-iterate-value ht_50 i_63)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -8360,13 +8392,13 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_57(hash-iterate-next ht_51 i_64))" +"(for-loop_57(hash-iterate-next ht_50 i_63))" "(values))))" "(values))))))" " for-loop_57)" -"(hash-iterate-first ht_51))))" +"(hash-iterate-first ht_50))))" "(void))))" -"(cons prop:reach-scopes(lambda(s_86 reach_9)(void)))" +"(cons prop:reach-scopes(lambda(s_85 reach_9)(void)))" "(cons" " prop:serialize" "(lambda(ms_1 ser-push!_8 state_18)" @@ -8374,11 +8406,11 @@ static const char *startup_source = "(let-values((()(begin(ser-push!_8(multi-scope-name ms_1))(values))))" "(let-values(((multi-scope-tables_0)(serialize-state-multi-scope-tables state_18)))" "(ser-push!_8" -"(let-values(((or-part_97)" +"(let-values(((or-part_99)" "(hash-ref multi-scope-tables_0(multi-scope-scopes ms_1) #f)))" -"(if or-part_97" -" or-part_97" -"(let-values(((ht_52)(make-hasheqv)))" +"(if or-part_99" +" or-part_99" +"(let-values(((ht_51)(make-hasheqv)))" "(begin" "(let-values(((ht_18)(multi-scope-scopes ms_1)))" "(begin" @@ -8386,12 +8418,12 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_18)))" "((letrec-values(((for-loop_3)" -"(lambda(i_65)" +"(lambda(i_64)" "(begin" " 'for-loop" -"(if i_65" +"(if i_64" "(let-values(((phase_6 sc_5)" -"(hash-iterate-key+value ht_18 i_65)))" +"(hash-iterate-key+value ht_18 i_64)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -8404,21 +8436,21 @@ static const char *startup_source = " sc_5)" "(let-values()" "(hash-set!" -" ht_52" +" ht_51" " phase_6" " sc_5))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_3(hash-iterate-next ht_18 i_65))" +"(for-loop_3(hash-iterate-next ht_18 i_64))" "(values))))" "(values))))))" " for-loop_3)" "(hash-iterate-first ht_18))))" "(void)" -"(hash-set! multi-scope-tables_0(multi-scope-scopes ms_1) ht_52)" -" ht_52)))))))))))" +"(hash-set! multi-scope-tables_0(multi-scope-scopes ms_1) ht_51)" +" ht_51)))))))))))" "(current-inspector)" " #f" " '(0 1 2 3 4)" @@ -8457,7 +8489,7 @@ static const char *startup_source = "(list" "(cons prop:authentic #t)" "(cons prop:implicitly-reachable #t)" -"(cons prop:reach-scopes(lambda(s_87 reach_10)(reach_10(representative-scope-owner s_87))))" +"(cons prop:reach-scopes(lambda(s_86 reach_10)(reach_10(representative-scope-owner s_86))))" "(cons" " prop:serialize-fill!" "(lambda(s_31 ser-push!_9 state_19)" @@ -8467,11 +8499,11 @@ static const char *startup_source = "(ser-push!_9(representative-scope-owner s_31)))))" "(cons" " prop:serialize" -"(lambda(s_88 ser-push!_10 state_20)" +"(lambda(s_87 ser-push!_10 state_20)" "(begin" "(ser-push!_10 'tag '#:representative-scope)" -"(ser-push!_10(scope-kind s_88))" -"(ser-push!_10(representative-scope-phase s_88)))))" +"(ser-push!_10(scope-kind s_87))" +"(ser-push!_10(representative-scope-phase s_87)))))" "(cons" " prop:custom-write" "(lambda(sc_6 port_7 mode_7)" @@ -8503,11 +8535,11 @@ static const char *startup_source = "(define-values" "(deserialize-representative-scope)" "(lambda(kind_1 phase_7)" -"(begin(let-values(((v_77)(representative-scope3.1(new-deserialize-scope-id!) kind_1 #f #f phase_7))) v_77))))" +"(begin(let-values(((v_78)(representative-scope3.1(new-deserialize-scope-id!) kind_1 #f #f phase_7))) v_78))))" "(define-values" "(deserialize-representative-scope-fill!)" -"(lambda(s_89 bt_6 owner_0)" -"(begin(begin(deserialize-scope-fill! s_89 bt_6)(set-representative-scope-owner! s_89 owner_0)))))" +"(lambda(s_88 bt_6 owner_0)" +"(begin(begin(deserialize-scope-fill! s_88 bt_6)(set-representative-scope-owner! s_88 owner_0)))))" "(define-values" "(struct:shifted-multi-scope" " shifted-multi-scope4.1" @@ -8566,9 +8598,9 @@ static const char *startup_source = "(lambda(boxed-table_0 key_30 make_0)" "(begin" " 'transaction-loop" -"(let-values(((or-part_98)(hash-ref(unbox boxed-table_0) phase_9 #f)))" -"(if or-part_98" -" or-part_98" +"(let-values(((or-part_100)(hash-ref(unbox boxed-table_0) phase_9 #f)))" +"(if or-part_100" +" or-part_100" "(let-values(((val_17)(make_0)))" "(let-values(((current_0)(unbox boxed-table_0)))" "(let-values(((next_3)(hash-set current_0 key_30 val_17)))" @@ -8577,17 +8609,17 @@ static const char *startup_source = "(transaction-loop_0 boxed-table_0 key_30 make_0)))))))))))" "(if(phase? phase_9)" "(let-values()" -"(let-values(((or-part_99)(hash-ref(unbox(multi-scope-shifted multi-scope_1)) phase_9 #f)))" -"(if or-part_99" -" or-part_99" +"(let-values(((or-part_101)(hash-ref(unbox(multi-scope-shifted multi-scope_1)) phase_9 #f)))" +"(if or-part_101" +" or-part_101" "(transaction-loop_0" "(multi-scope-shifted multi-scope_1)" " phase_9" "(lambda()(shifted-multi-scope4.1 phase_9 multi-scope_1))))))" "(let-values()" -"(let-values(((or-part_100)(hash-ref(unbox(multi-scope-label-shifted multi-scope_1)) phase_9 #f)))" -"(if or-part_100" -" or-part_100" +"(let-values(((or-part_102)(hash-ref(unbox(multi-scope-label-shifted multi-scope_1)) phase_9 #f)))" +"(if or-part_102" +" or-part_102" "(transaction-loop_0" "(multi-scope-label-shifted multi-scope_1)" " phase_9" @@ -8632,17 +8664,17 @@ static const char *startup_source = "(multi-scope-to-scope-at-phase)" "(lambda(ms_2 phase_10)" "(begin" -"(let-values(((or-part_101)(hash-ref(multi-scope-scopes ms_2) phase_10 #f)))" -"(if or-part_101" -" or-part_101" -"(let-values(((s_90)" +"(let-values(((or-part_103)(hash-ref(multi-scope-scopes ms_2) phase_10 #f)))" +"(if or-part_103" +" or-part_103" +"(let-values(((s_89)" "(representative-scope3.1" "(if(deserialized-scope-id?(multi-scope-id ms_2))(new-deserialize-scope-id!)(new-scope-id!))" " 'module" " empty-binding-table" " ms_2" " phase_10)))" -"(begin(hash-set!(multi-scope-scopes ms_2) phase_10 s_90) s_90)))))))" +"(begin(hash-set!(multi-scope-scopes ms_2) phase_10 s_89) s_89)))))))" "(define-values(scope>?)(lambda(sc1_0 sc2_0)(begin(>(scope-id sc1_0)(scope-id sc2_0)))))" "(define-values(scope_2)" "(lambda(sub-s_1)" "(begin" @@ -8678,17 +8710,17 @@ static const char *startup_source = "(let-values(((the-struct_14) sub-s_1))" "(if(syntax?$1 the-struct_14)" "(let-values(((scopes48_1)" -"(propagation-apply prop_3(syntax-scopes sub-s_1) s_91))" +"(propagation-apply prop_3(syntax-scopes sub-s_1) s_90))" "((shifted-multi-scopes49_0)" "(propagation-apply-shifted" " prop_3" "(syntax-shifted-multi-scopes sub-s_1)" -" s_91))" +" s_90))" "((mpi-shifts50_0)" "(propagation-apply-mpi-shifts" " prop_3" "(syntax-mpi-shifts sub-s_1)" -" s_91))" +" s_90))" "((inspector51_0)" "(propagation-apply-inspector" " prop_3" @@ -8718,11 +8750,11 @@ static const char *startup_source = "(let-values(((t_32)" "(tamper-tainted-for-content" "(syntax-content sub-s_1)))" -"((p_27)" +"((p_26)" "(syntax-scope-propagations+tamper stx_8)))" -"(if(tamper? p_27)" +"(if(tamper? p_26)" " t_32" -"((propagation-set-tamper-ref p_27) p_27 t_32)))))" +"((propagation-set-tamper-ref p_26) p_26 t_32)))))" "(syntax1.1" "(syntax-content the-struct_15)" "(syntax-scopes the-struct_15)" @@ -8734,76 +8766,79 @@ static const char *startup_source = "(syntax-inspector the-struct_15)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_15))))))))" "((seen_9) #f))" -"(let-values(((s_93) s_92)" -"((f_28)" -"(lambda(tail?_20 v_78)" +"(let-values(((s_92) s_91)" +"((f_28) f_27)" +"((gf_4)" +"(lambda(tail?_21 v_79)" "(begin" -" 'f" -"(if(syntax?$1 v_78)" -"(let-values()(s->_2 v_78))" -"(let-values()(f_27 tail?_20 v_78))))))" +" 'gf" +"(if(syntax?$1 v_79)" +"(let-values()(s->_2 v_79))" +"(let-values()(f_27 tail?_21 v_79))))))" "((seen_10) seen_9))" "((letrec-values(((loop_67)" -"(lambda(tail?_21 s_94 prev-depth_4)" +"(lambda(tail?_22 s_93 prev-depth_4)" "(begin" " 'loop" -"(let-values(((depth_4)(add1 prev-depth_4)))" -"(if(if seen_10(> depth_4 32) #f)" +"(let-values(((depth_4)(fx+ 1 prev-depth_4)))" +"(if(if seen_10(fx> depth_4 32) #f)" "(let-values()" "(datum-map-slow" -" tail?_21" -" s_94" -"(lambda(tail?_22 s_95)(f_28 tail?_22 s_95))" +" tail?_22" +" s_93" +"(lambda(tail?_23 s_94)(gf_4 tail?_23 s_94))" " seen_10))" -"(if(null? s_94)" -"(let-values()(f_28 tail?_21 s_94))" -"(if(pair? s_94)" +"(if(null? s_93)" +"(let-values()(f_28 tail?_22 s_93))" +"(if(pair? s_93)" "(let-values()" "(f_28" -" tail?_21" +" tail?_22" "(cons" -"(loop_67 #f(car s_94) depth_4)" -"(loop_67 #t(cdr s_94) depth_4))))" -"(if(let-values(((or-part_103)(symbol? s_94)))" -"(if or-part_103" -" or-part_103" -"(let-values(((or-part_104)(boolean? s_94)))" -"(if or-part_104 or-part_104(number? s_94)))))" -"(let-values()(f_28 #f s_94))" -"(if(let-values(((or-part_105)(vector? s_94)))" +"(loop_67 #f(car s_93) depth_4)" +"(loop_67 #t(cdr s_93) depth_4))))" +"(if(symbol? s_93)" +"(let-values()(f_28 #f s_93))" +"(if(boolean? s_93)" +"(let-values()(f_28 #f s_93))" +"(if(number? s_93)" +"(let-values()(f_28 #f s_93))" +"(if(let-values(((or-part_105)(vector? s_93)))" "(if or-part_105" " or-part_105" -"(let-values(((or-part_106)(box? s_94)))" +"(let-values(((or-part_106)(box? s_93)))" "(if or-part_106" " or-part_106" "(let-values(((or-part_107)" -"(prefab-struct-key s_94)))" -"(if or-part_107 or-part_107(hash? s_94)))))))" +"(prefab-struct-key s_93)))" +"(if or-part_107" +" or-part_107" +"(hash? s_93)))))))" "(let-values()" "(datum-map-slow" -" tail?_21" -" s_94" -"(lambda(tail?_23 s_96)(f_28 tail?_23 s_96))" +" tail?_22" +" s_93" +"(lambda(tail?_24 s_95)(gf_4 tail?_24 s_95))" " seen_10))" -"(let-values()(f_28 #f s_94))))))))))))" +"(let-values()(gf_4 #f s_93))))))))))))))" " loop_67)" " #f" -" s_93" +" s_92" " 0)))))" "(begin" -"(set-syntax-content! s_91 new-content_0)" +"(set-syntax-content! s_90 new-content_0)" "(set-syntax-scope-propagations+tamper!" -" s_91" +" s_90" "(tamper-propagated(if(propagation? prop_3)(propagation-tamper prop_3) prop_3)))" " new-content_0))" -"(syntax-content s_91))))))" +"(syntax-content s_90))))))" "(define-values" "(syntax-e$1)" -"(lambda(s_97)" +"(lambda(s_96)" "(begin" " 'syntax-e" -"(let-values(((content_6)(syntax-e/no-taint s_97)))" -"(if(not(tamper-armed?(syntax-tamper s_97)))" +"(let-values(((content_6)(syntax-e/no-taint s_96)))" +"(if(not(tamper-armed?(syntax-scope-propagations+tamper s_96)))" "(let-values() content_6)" "(if(datum-has-elements? content_6)(let-values()(taint-content content_6))(let-values() content_6)))))))" "(define-values" @@ -8815,25 +8850,25 @@ static const char *startup_source = " sc_7))))" "(define-values" "(add-scope)" -"(lambda(s_98 sc_8)" +"(lambda(s_97 sc_8)" "(begin" -"(let-values(((s_99) s_98)((sc_9)(generalize-scope sc_8))((op_0) set-add)((prop-op_0) propagation-add))" +"(let-values(((s_98) s_97)((sc_9)(generalize-scope sc_8))((op_0) set-add)((prop-op_0) propagation-add))" "(if(shifted-multi-scope? sc_9)" -"(let-values(((the-struct_16) s_99))" +"(let-values(((the-struct_16) s_98))" "(if(syntax?$1 the-struct_16)" "(let-values(((shifted-multi-scopes54_0)" "(fallback-update-first" -"(syntax-shifted-multi-scopes s_99)" +"(syntax-shifted-multi-scopes s_98)" "(lambda(smss_9)(op_0(fallback-first smss_9) sc_9))))" "((scope-propagations+tamper55_0)" -"(if(datum-has-elements?(syntax-content s_99))" +"(if(datum-has-elements?(syntax-content s_98))" "(prop-op_0" -"(syntax-scope-propagations+tamper s_99)" +"(syntax-scope-propagations+tamper s_98)" " sc_9" -"(syntax-scopes s_99)" -"(syntax-shifted-multi-scopes s_99)" -"(syntax-mpi-shifts s_99))" -"(syntax-scope-propagations+tamper s_99))))" +"(syntax-scopes s_98)" +"(syntax-shifted-multi-scopes s_98)" +"(syntax-mpi-shifts s_98))" +"(syntax-scope-propagations+tamper s_98))))" "(syntax1.1" "(syntax-content the-struct_16)" "(syntax-scopes the-struct_16)" @@ -8844,18 +8879,18 @@ static const char *startup_source = "(syntax-props the-struct_16)" "(syntax-inspector the-struct_16)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_16)))" -"(let-values(((the-struct_17) s_99))" +"(let-values(((the-struct_17) s_98))" "(if(syntax?$1 the-struct_17)" -"(let-values(((scopes56_0)(op_0(syntax-scopes s_99) sc_9))" +"(let-values(((scopes56_0)(op_0(syntax-scopes s_98) sc_9))" "((scope-propagations+tamper57_0)" -"(if(datum-has-elements?(syntax-content s_99))" +"(if(datum-has-elements?(syntax-content s_98))" "(prop-op_0" -"(syntax-scope-propagations+tamper s_99)" +"(syntax-scope-propagations+tamper s_98)" " sc_9" -"(syntax-scopes s_99)" -"(syntax-shifted-multi-scopes s_99)" -"(syntax-mpi-shifts s_99))" -"(syntax-scope-propagations+tamper s_99))))" +"(syntax-scopes s_98)" +"(syntax-shifted-multi-scopes s_98)" +"(syntax-mpi-shifts s_98))" +"(syntax-scope-propagations+tamper s_98))))" "(syntax1.1" "(syntax-content the-struct_17)" " scopes56_0" @@ -8868,50 +8903,50 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_17))))))))" "(define-values" "(add-scopes)" -"(lambda(s_100 scs_5)" +"(lambda(s_99 scs_5)" "(begin" "(let-values(((lst_43) scs_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_43)))" -"((letrec-values(((for-loop_58)" -"(lambda(s_101 lst_44)" +"((letrec-values(((for-loop_38)" +"(lambda(s_100 lst_44)" "(begin" " 'for-loop" "(if(pair? lst_44)" "(let-values(((sc_10)(unsafe-car lst_44))((rest_18)(unsafe-cdr lst_44)))" -"(let-values(((s_102)" -"(let-values(((s_103) s_101))" -"(let-values(((s_104)(let-values()(add-scope s_103 sc_10))))" -"(values s_104)))))" -"(if(not #f)(for-loop_58 s_102 rest_18) s_102)))" -" s_101)))))" -" for-loop_58)" -" s_100" +"(let-values(((s_101)" +"(let-values(((s_102) s_100))" +"(let-values(((s_103)(let-values()(add-scope s_102 sc_10))))" +"(values s_103)))))" +"(if(not #f)(for-loop_38 s_101 rest_18) s_101)))" +" s_100)))))" +" for-loop_38)" +" s_99" " lst_43))))))" "(define-values" "(remove-scope)" -"(lambda(s_105 sc_11)" +"(lambda(s_104 sc_11)" "(begin" -"(let-values(((s_106) s_105)" +"(let-values(((s_105) s_104)" "((sc_12)(generalize-scope sc_11))" "((op_1) set-remove)" "((prop-op_1) propagation-remove))" "(if(shifted-multi-scope? sc_12)" -"(let-values(((the-struct_18) s_106))" +"(let-values(((the-struct_18) s_105))" "(if(syntax?$1 the-struct_18)" "(let-values(((shifted-multi-scopes58_0)" "(fallback-update-first" -"(syntax-shifted-multi-scopes s_106)" +"(syntax-shifted-multi-scopes s_105)" "(lambda(smss_10)(op_1(fallback-first smss_10) sc_12))))" "((scope-propagations+tamper59_0)" -"(if(datum-has-elements?(syntax-content s_106))" +"(if(datum-has-elements?(syntax-content s_105))" "(prop-op_1" -"(syntax-scope-propagations+tamper s_106)" +"(syntax-scope-propagations+tamper s_105)" " sc_12" -"(syntax-scopes s_106)" -"(syntax-shifted-multi-scopes s_106)" -"(syntax-mpi-shifts s_106))" -"(syntax-scope-propagations+tamper s_106))))" +"(syntax-scopes s_105)" +"(syntax-shifted-multi-scopes s_105)" +"(syntax-mpi-shifts s_105))" +"(syntax-scope-propagations+tamper s_105))))" "(syntax1.1" "(syntax-content the-struct_18)" "(syntax-scopes the-struct_18)" @@ -8922,18 +8957,18 @@ static const char *startup_source = "(syntax-props the-struct_18)" "(syntax-inspector the-struct_18)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_18)))" -"(let-values(((the-struct_19) s_106))" +"(let-values(((the-struct_19) s_105))" "(if(syntax?$1 the-struct_19)" -"(let-values(((scopes60_0)(op_1(syntax-scopes s_106) sc_12))" +"(let-values(((scopes60_0)(op_1(syntax-scopes s_105) sc_12))" "((scope-propagations+tamper61_0)" -"(if(datum-has-elements?(syntax-content s_106))" +"(if(datum-has-elements?(syntax-content s_105))" "(prop-op_1" -"(syntax-scope-propagations+tamper s_106)" +"(syntax-scope-propagations+tamper s_105)" " sc_12" -"(syntax-scopes s_106)" -"(syntax-shifted-multi-scopes s_106)" -"(syntax-mpi-shifts s_106))" -"(syntax-scope-propagations+tamper s_106))))" +"(syntax-scopes s_105)" +"(syntax-shifted-multi-scopes s_105)" +"(syntax-mpi-shifts s_105))" +"(syntax-scope-propagations+tamper s_105))))" "(syntax1.1" "(syntax-content the-struct_19)" " scopes60_0" @@ -8946,50 +8981,50 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_19))))))))" "(define-values" "(remove-scopes)" -"(lambda(s_107 scs_6)" +"(lambda(s_106 scs_6)" "(begin" "(let-values(((lst_45) scs_6))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_45)))" -"((letrec-values(((for-loop_40)" -"(lambda(s_108 lst_46)" +"((letrec-values(((for-loop_58)" +"(lambda(s_107 lst_46)" "(begin" " 'for-loop" "(if(pair? lst_46)" "(let-values(((sc_13)(unsafe-car lst_46))((rest_19)(unsafe-cdr lst_46)))" -"(let-values(((s_109)" -"(let-values(((s_110) s_108))" -"(let-values(((s_111)(let-values()(remove-scope s_110 sc_13))))" -"(values s_111)))))" -"(if(not #f)(for-loop_40 s_109 rest_19) s_109)))" -" s_108)))))" -" for-loop_40)" -" s_107" +"(let-values(((s_108)" +"(let-values(((s_109) s_107))" +"(let-values(((s_110)(let-values()(remove-scope s_109 sc_13))))" +"(values s_110)))))" +"(if(not #f)(for-loop_58 s_108 rest_19) s_108)))" +" s_107)))))" +" for-loop_58)" +" s_106" " lst_45))))))" "(define-values" "(set-flip)" -"(lambda(s_112 e_15)(begin(if(set-member? s_112 e_15)(set-remove s_112 e_15)(set-add s_112 e_15)))))" +"(lambda(s_111 e_15)(begin(if(set-member? s_111 e_15)(set-remove s_111 e_15)(set-add s_111 e_15)))))" "(define-values" "(flip-scope)" -"(lambda(s_113 sc_14)" +"(lambda(s_112 sc_14)" "(begin" -"(let-values(((s_114) s_113)((sc_15)(generalize-scope sc_14))((op_2) set-flip)((prop-op_2) propagation-flip))" +"(let-values(((s_113) s_112)((sc_15)(generalize-scope sc_14))((op_2) set-flip)((prop-op_2) propagation-flip))" "(if(shifted-multi-scope? sc_15)" -"(let-values(((the-struct_20) s_114))" +"(let-values(((the-struct_20) s_113))" "(if(syntax?$1 the-struct_20)" "(let-values(((shifted-multi-scopes62_0)" "(fallback-update-first" -"(syntax-shifted-multi-scopes s_114)" +"(syntax-shifted-multi-scopes s_113)" "(lambda(smss_11)(op_2(fallback-first smss_11) sc_15))))" "((scope-propagations+tamper63_0)" -"(if(datum-has-elements?(syntax-content s_114))" +"(if(datum-has-elements?(syntax-content s_113))" "(prop-op_2" -"(syntax-scope-propagations+tamper s_114)" +"(syntax-scope-propagations+tamper s_113)" " sc_15" -"(syntax-scopes s_114)" -"(syntax-shifted-multi-scopes s_114)" -"(syntax-mpi-shifts s_114))" -"(syntax-scope-propagations+tamper s_114))))" +"(syntax-scopes s_113)" +"(syntax-shifted-multi-scopes s_113)" +"(syntax-mpi-shifts s_113))" +"(syntax-scope-propagations+tamper s_113))))" "(syntax1.1" "(syntax-content the-struct_20)" "(syntax-scopes the-struct_20)" @@ -9000,18 +9035,18 @@ static const char *startup_source = "(syntax-props the-struct_20)" "(syntax-inspector the-struct_20)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_20)))" -"(let-values(((the-struct_21) s_114))" +"(let-values(((the-struct_21) s_113))" "(if(syntax?$1 the-struct_21)" -"(let-values(((scopes64_0)(op_2(syntax-scopes s_114) sc_15))" +"(let-values(((scopes64_0)(op_2(syntax-scopes s_113) sc_15))" "((scope-propagations+tamper65_0)" -"(if(datum-has-elements?(syntax-content s_114))" +"(if(datum-has-elements?(syntax-content s_113))" "(prop-op_2" -"(syntax-scope-propagations+tamper s_114)" +"(syntax-scope-propagations+tamper s_113)" " sc_15" -"(syntax-scopes s_114)" -"(syntax-shifted-multi-scopes s_114)" -"(syntax-mpi-shifts s_114))" -"(syntax-scope-propagations+tamper s_114))))" +"(syntax-scopes s_113)" +"(syntax-shifted-multi-scopes s_113)" +"(syntax-mpi-shifts s_113))" +"(syntax-scope-propagations+tamper s_113))))" "(syntax1.1" "(syntax-content the-struct_21)" " scopes64_0" @@ -9024,29 +9059,29 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_21))))))))" "(define-values" "(flip-scopes)" -"(lambda(s_115 scs_7)" +"(lambda(s_114 scs_7)" "(begin" "(let-values(((lst_47) scs_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_47)))" "((letrec-values(((for-loop_59)" -"(lambda(s_116 lst_48)" +"(lambda(s_115 lst_48)" "(begin" " 'for-loop" "(if(pair? lst_48)" "(let-values(((sc_16)(unsafe-car lst_48))((rest_20)(unsafe-cdr lst_48)))" -"(let-values(((s_117)" -"(let-values(((s_118) s_116))" -"(let-values(((s_119)(let-values()(flip-scope s_118 sc_16))))" -"(values s_119)))))" -"(if(not #f)(for-loop_59 s_117 rest_20) s_117)))" -" s_116)))))" +"(let-values(((s_116)" +"(let-values(((s_117) s_115))" +"(let-values(((s_118)(let-values()(flip-scope s_117 sc_16))))" +"(values s_118)))))" +"(if(not #f)(for-loop_59 s_116 rest_20) s_116)))" +" s_115)))))" " for-loop_59)" -" s_115" +" s_114" " lst_47))))))" "(define-values" "(push-scope)" -"(lambda(s_120 sms_6)" +"(lambda(s_119 sms_6)" "(begin" "(let-values(((smss/maybe-fallbacks66_0) #f))" "(let-values(((prev-result_0) #f))" @@ -9072,17 +9107,17 @@ static const char *startup_source = "(set! smss/maybe-fallbacks66_0 smss/maybe-fallbacks_0)" "(set! prev-result_0 r_22)" " r_22))))))))" -"(let-values(((s_121) s_120)" -"((f_29)(lambda(tail?_24 x_34)(begin 'f x_34)))" +"(let-values(((s_120) s_119)" +"((f_29)(lambda(tail?_25 x_33)(begin 'f x_33)))" "((d->s_1)" -"(lambda(s_122 d_3)" +"(lambda(s_121 d_3)" "(begin" " 'd->s" -"(let-values(((the-struct_22) s_122))" +"(let-values(((the-struct_22) s_121))" "(if(syntax?$1 the-struct_22)" "(let-values(((content67_0) d_3)" "((shifted-multi-scopes68_0)" -"(push_0(syntax-shifted-multi-scopes s_122))))" +"(push_0(syntax-shifted-multi-scopes s_121))))" "(syntax1.1" " content67_0" "(syntax-scopes the-struct_22)" @@ -9096,74 +9131,74 @@ static const char *startup_source = "((s-e_1) syntax-e/no-taint)" "((seen_11) #f))" "((letrec-values(((loop_68)" -"(lambda(s_123)" +"(lambda(s_122)" "(begin" " 'loop" -"(let-values(((s_124) s_123)" -"((f_30)" -"(lambda(tail?_25 v_79)" +"(let-values(((s_123) s_122)" +"((f_30) f_29)" +"((gf_5)" +"(lambda(tail?_26 v_80)" "(begin" -" 'f" -"(if(syntax?$1 v_79)" -"(let-values()(d->s_1 v_79(loop_68(s-e_1 v_79))))" -"(let-values()(f_29 tail?_25 v_79))))))" +" 'gf" +"(if(syntax?$1 v_80)" +"(let-values()(d->s_1 v_80(loop_68(s-e_1 v_80))))" +"(let-values()(f_29 tail?_26 v_80))))))" "((seen_12) seen_11))" "((letrec-values(((loop_69)" -"(lambda(tail?_26 s_125 prev-depth_5)" +"(lambda(tail?_27 s_124 prev-depth_5)" "(begin" " 'loop" -"(let-values(((depth_5)(add1 prev-depth_5)))" -"(if(if seen_12(> depth_5 32) #f)" +"(let-values(((depth_5)(fx+ 1 prev-depth_5)))" +"(if(if seen_12(fx> depth_5 32) #f)" "(let-values()" "(datum-map-slow" -" tail?_26" -" s_125" -"(lambda(tail?_27 s_126)(f_30 tail?_27 s_126))" +" tail?_27" +" s_124" +"(lambda(tail?_28 s_125)(gf_5 tail?_28 s_125))" " seen_12))" -"(if(null? s_125)" -"(let-values()(f_30 tail?_26 s_125))" -"(if(pair? s_125)" +"(if(null? s_124)" +"(let-values()(f_30 tail?_27 s_124))" +"(if(pair? s_124)" "(let-values()" "(f_30" -" tail?_26" +" tail?_27" "(cons" -"(loop_69 #f(car s_125) depth_5)" -"(loop_69 #t(cdr s_125) depth_5))))" -"(if(let-values(((or-part_108)(symbol? s_125)))" +"(loop_69 #f(car s_124) depth_5)" +"(loop_69 #t(cdr s_124) depth_5))))" +"(if(symbol? s_124)" +"(let-values()(f_30 #f s_124))" +"(if(boolean? s_124)" +"(let-values()(f_30 #f s_124))" +"(if(number? s_124)" +"(let-values()(f_30 #f s_124))" +"(if(let-values(((or-part_108)" +"(vector? s_124)))" "(if or-part_108" " or-part_108" "(let-values(((or-part_109)" -"(boolean? s_125)))" +"(box? s_124)))" "(if or-part_109" " or-part_109" -"(number? s_125)))))" -"(let-values()(f_30 #f s_125))" -"(if(let-values(((or-part_110)(vector? s_125)))" +"(let-values(((or-part_110)" +"(prefab-struct-key" +" s_124)))" "(if or-part_110" " or-part_110" -"(let-values(((or-part_111)(box? s_125)))" -"(if or-part_111" -" or-part_111" -"(let-values(((or-part_112)" -"(prefab-struct-key" -" s_125)))" -"(if or-part_112" -" or-part_112" -"(hash? s_125)))))))" +"(hash? s_124)))))))" "(let-values()" "(datum-map-slow" -" tail?_26" -" s_125" -"(lambda(tail?_28 s_127)" -"(f_30 tail?_28 s_127))" +" tail?_27" +" s_124" +"(lambda(tail?_29 s_126)" +"(gf_5 tail?_29 s_126))" " seen_12))" -"(let-values()(f_30 #f s_125))))))))))))" +"(let-values()(gf_5 #f s_124))))))))))))))" " loop_69)" " #f" -" s_124" +" s_123" " 0))))))" " loop_68)" -" s_121))))))))" +" s_120))))))))" "(define-values" "(struct:propagation" " propagation14.1" @@ -9186,8 +9221,8 @@ static const char *startup_source = " #f" "(list" "(cons prop:authentic #t)" -"(cons prop:propagation-set-tamper(lambda(p_28 v_6)(propagation-set-tamper p_28 v_6)))" -"(cons prop:propagation-tamper(lambda(p_29)(propagation-tamper p_29)))" +"(cons prop:propagation-set-tamper(lambda(p_27 v_81)(propagation-set-tamper p_27 v_81)))" +"(cons prop:propagation-tamper(lambda(p_28)(propagation-tamper p_28)))" "(cons prop:propagation syntax-e$1))" "(current-inspector)" " #f" @@ -9288,10 +9323,10 @@ static const char *startup_source = "(let-values(((base-add_0)(propagation-add-mpi-shifts prop_7)))" "(if(if add_0 base-add_0 #f)" "(lambda(mss_0)(begin 'add-mpi-shifts73(add_0(base-add_0 mss_0))))" -"(let-values(((or-part_113) add_0))(if or-part_113 or-part_113 base-add_0)))))" +"(let-values(((or-part_111) add_0))(if or-part_111 or-part_111 base-add_0)))))" "((inspector74_0)" -"(let-values(((or-part_114)(propagation-inspector prop_7)))" -"(if or-part_114 or-part_114 inspector_2))))" +"(let-values(((or-part_112)(propagation-inspector prop_7)))" +"(if or-part_112 or-part_112 inspector_2))))" "(propagation14.1" "(propagation-prev-scs the-struct_26)" "(propagation-prev-smss the-struct_26)" @@ -9310,18 +9345,18 @@ static const char *startup_source = "(let-values()(syntax-scopes parent-s_0))" "(let-values()" "(let-values(((new-scs_0)" -"(let-values(((ht_53)(propagation-scope-ops prop_8)))" +"(let-values(((ht_52)(propagation-scope-ops prop_8)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_53)))" +"(let-values()(check-in-immutable-hash ht_52)))" "((letrec-values(((for-loop_60)" -"(lambda(scs_9 i_66)" +"(lambda(scs_9 i_65)" "(begin" " 'for-loop" -"(if i_66" +"(if i_65" "(let-values(((sc_20 op_3)" -"(unsafe-immutable-hash-iterate-key+value ht_53 i_66)))" +"(unsafe-immutable-hash-iterate-key+value ht_52 i_65)))" "(let-values(((scs_10)" "(let-values(((scs_11) scs_9))" "(if(not(shifted-multi-scope? sc_20))" @@ -9348,12 +9383,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_60" " scs_10" -"(unsafe-immutable-hash-iterate-next ht_53 i_66))" +"(unsafe-immutable-hash-iterate-next ht_52 i_65))" " scs_10)))" " scs_9)))))" " for-loop_60)" " scs_8" -"(unsafe-immutable-hash-iterate-first ht_53))))))" +"(unsafe-immutable-hash-iterate-first ht_52))))))" "(if(set=? new-scs_0(syntax-scopes parent-s_0))" "(syntax-scopes parent-s_0)" "(cache-or-reuse-set new-scs_0))))))))" @@ -9365,18 +9400,18 @@ static const char *startup_source = "(let-values()(syntax-shifted-multi-scopes parent-s_1))" "(let-values()" "(let-values(((new-smss_0)" -"(let-values(((ht_54)(propagation-scope-ops prop_9)))" +"(let-values(((ht_53)(propagation-scope-ops prop_9)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_54)))" +"(let-values()(check-in-immutable-hash ht_53)))" "((letrec-values(((for-loop_61)" -"(lambda(smss_14 i_67)" +"(lambda(smss_14 i_66)" "(begin" " 'for-loop" -"(if i_67" +"(if i_66" "(let-values(((sms_7 op_4)" -"(unsafe-immutable-hash-iterate-key+value ht_54 i_67)))" +"(unsafe-immutable-hash-iterate-key+value ht_53 i_66)))" "(let-values(((smss_15)" "(let-values(((smss_16) smss_14))" "(if(shifted-multi-scope? sms_7)" @@ -9409,12 +9444,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_61" " smss_15" -"(unsafe-immutable-hash-iterate-next ht_54 i_67))" +"(unsafe-immutable-hash-iterate-next ht_53 i_66))" " smss_15)))" " smss_14)))))" " for-loop_61)" " smss_13" -"(unsafe-immutable-hash-iterate-first ht_54))))))" +"(unsafe-immutable-hash-iterate-first ht_53))))))" "(let-values(((parent-smss_0)(syntax-shifted-multi-scopes parent-s_1)))" "(if(if(set? new-smss_0)(if(set? parent-smss_0)(set=? new-smss_0 parent-smss_0) #f) #f)" " parent-smss_0" @@ -9428,8 +9463,8 @@ static const char *startup_source = "(let-values()(let-values(((add_1)(propagation-add-mpi-shifts prop_10)))(if add_1(add_1 mss_1) mss_1)))))))" "(define-values" "(propagation-apply-inspector)" -"(lambda(prop_11 i_68)" -"(begin(let-values(((or-part_115) i_68))(if or-part_115 or-part_115(propagation-inspector prop_11))))))" +"(lambda(prop_11 i_67)" +"(begin(let-values(((or-part_113) i_67))(if or-part_113 or-part_113(propagation-inspector prop_11))))))" "(define-values" "(propagation-set-tamper)" "(lambda(prop_12 t_33)" @@ -9475,20 +9510,20 @@ static const char *startup_source = "(if(tamper-tainted?(propagation-tamper prop_13)) 'tainted/need-propagate base-prop_0)))))" "(let-values()" "(let-values(((new-ops_0)" -"(let-values(((ht_55)(propagation-scope-ops prop_13)))" +"(let-values(((ht_54)(propagation-scope-ops prop_13)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_55)))" +"(let-values()(check-in-immutable-hash ht_54)))" "((letrec-values(((for-loop_62)" -"(lambda(ops_1 i_15)" +"(lambda(ops_1 i_68)" "(begin" " 'for-loop" -"(if i_15" +"(if i_68" "(let-values(((sc_21 op_5)" "(unsafe-immutable-hash-iterate-key+value" -" ht_55" -" i_15)))" +" ht_54" +" i_68)))" "(let-values(((ops_2)" "(let-values(((ops_3) ops_1))" "(let-values(((ops_4)" @@ -9546,17 +9581,17 @@ static const char *startup_source = "(if(not #f)" "(for-loop_62" " ops_2" -"(unsafe-immutable-hash-iterate-next ht_55 i_15))" +"(unsafe-immutable-hash-iterate-next ht_54 i_68))" " ops_2)))" " ops_1)))))" " for-loop_62)" "(propagation-scope-ops base-prop_0)" -"(unsafe-immutable-hash-iterate-first ht_55))))))" +"(unsafe-immutable-hash-iterate-first ht_54))))))" "(let-values(((add_2)(propagation-add-mpi-shifts prop_13)))" "(let-values(((base-add_1)(propagation-add-mpi-shifts base-prop_0)))" "(let-values(((new-tamper_0)" -"(if(let-values(((or-part_116)(tamper-tainted?(propagation-tamper prop_13))))" -"(if or-part_116 or-part_116(tamper-tainted?(propagation-tamper base-prop_0))))" +"(if(let-values(((or-part_17)(tamper-tainted?(propagation-tamper prop_13))))" +"(if or-part_17 or-part_17(tamper-tainted?(propagation-tamper base-prop_0))))" " 'tainted/need-propagate" "(propagation-tamper base-prop_0))))" "(if(if(zero?(hash-count new-ops_0))" @@ -9573,10 +9608,10 @@ static const char *startup_source = "((add-mpi-shifts77_0)" "(if(if add_2 base-add_1 #f)" "(lambda(mss_2)(begin 'add-mpi-shifts77(add_2(base-add_1 mss_2))))" -"(let-values(((or-part_117) add_2))(if or-part_117 or-part_117 base-add_1))))" +"(let-values(((or-part_114) add_2))(if or-part_114 or-part_114 base-add_1))))" "((inspector78_0)" -"(let-values(((or-part_118)(propagation-inspector base-prop_0)))" -"(if or-part_118 or-part_118(propagation-inspector prop_13))))" +"(let-values(((or-part_115)(propagation-inspector base-prop_0)))" +"(if or-part_115 or-part_115(propagation-inspector prop_13))))" "((tamper79_0) new-tamper_0))" "(propagation14.1" "(propagation-prev-scs the-struct_28)" @@ -9609,11 +9644,11 @@ static const char *startup_source = "(shifted-multi-scope-multi-scope sms_8)))))))))" "(define-values" "(syntax-shift-phase-level$1)" -"(lambda(s_128 phase_11)" +"(lambda(s_127 phase_11)" "(begin" " 'syntax-shift-phase-level" "(if(eqv? phase_11 0)" -" s_128" +" s_127" "(let-values()" "(let-values(((smss80_0) #f))" "(let-values(((prev-result_1) #f))" @@ -9629,21 +9664,21 @@ static const char *startup_source = "(fallback-map" " smss_20" "(lambda(smss_21)" -"(let-values(((ht_56) smss_21))" +"(let-values(((ht_55) smss_21))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_56)))" +"(let-values()(check-in-immutable-hash-keys ht_55)))" "((letrec-values(((for-loop_63)" -"(lambda(table_65 i_69)" +"(lambda(table_68 i_69)" "(begin" " 'for-loop" "(if i_69" "(let-values(((sms_9)" "(unsafe-immutable-hash-iterate-key" -" ht_56" +" ht_55" " i_69)))" -"(let-values(((table_66)" +"(let-values(((table_69)" "(let-values(((new-sms_0)" "(shift-multi-scope" " sms_9" @@ -9651,17 +9686,17 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_64)" -"(lambda(table_67)" +"(lambda(table_70)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_68)" -"(let-values(((table_69)" -" table_67))" -"(if new-sms_0" -"(let-values(((table_70)" -" table_69))" "(let-values(((table_71)" +"(let-values(((table_72)" +" table_70))" +"(if new-sms_0" +"(let-values(((table_73)" +" table_72))" +"(let-values(((table_74)" "(let-values()" "(let-values(((key_31" " val_18)" @@ -9671,38 +9706,38 @@ static const char *startup_source = " new-sms_0)" " #t))))" "(hash-set" -" table_70" +" table_73" " key_31" " val_18)))))" "(values" -" table_71)))" -" table_69))))" -" table_68))))))" +" table_74)))" +" table_72))))" +" table_71))))))" " for-loop_64)" -" table_65)))))" +" table_68)))))" "(if(not #f)" "(for-loop_63" -" table_66" +" table_69" "(unsafe-immutable-hash-iterate-next" -" ht_56" +" ht_55" " i_69))" -" table_66)))" -" table_65)))))" +" table_69)))" +" table_68)))))" " for-loop_63)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_56)))))))))" +"(unsafe-immutable-hash-iterate-first ht_55)))))))))" "(begin(set! smss80_0 smss_20)(set! prev-result_1 r_23) r_23))))))))" -"(let-values(((s_129) s_128)" -"((f_31)(lambda(tail?_29 d_4)(begin 'f d_4)))" +"(let-values(((s_128) s_127)" +"((f_31)(lambda(tail?_30 d_4)(begin 'f d_4)))" "((d->s_2)" -"(lambda(s_130 d_5)" +"(lambda(s_129 d_5)" "(begin" " 'd->s" -"(let-values(((the-struct_29) s_130))" +"(let-values(((the-struct_29) s_129))" "(if(syntax?$1 the-struct_29)" "(let-values(((content81_0) d_5)" "((shifted-multi-scopes82_0)" -"(shift-all_0(syntax-shifted-multi-scopes s_130))))" +"(shift-all_0(syntax-shifted-multi-scopes s_129))))" "(syntax1.1" " content81_0" "(syntax-scopes the-struct_29)" @@ -9716,100 +9751,98 @@ static const char *startup_source = "((s-e_2) syntax-e/no-taint)" "((seen_13) #f))" "((letrec-values(((loop_70)" -"(lambda(s_131)" +"(lambda(s_130)" "(begin" " 'loop" -"(let-values(((s_132) s_131)" -"((f_32)" -"(lambda(tail?_30 v_80)" +"(let-values(((s_131) s_130)" +"((f_32) f_31)" +"((gf_6)" +"(lambda(tail?_31 v_82)" "(begin" -" 'f" -"(if(syntax?$1 v_80)" -"(let-values()(d->s_2 v_80(loop_70(s-e_2 v_80))))" -"(let-values()(f_31 tail?_30 v_80))))))" +" 'gf" +"(if(syntax?$1 v_82)" +"(let-values()(d->s_2 v_82(loop_70(s-e_2 v_82))))" +"(let-values()(f_31 tail?_31 v_82))))))" "((seen_14) seen_13))" "((letrec-values(((loop_71)" -"(lambda(tail?_31 s_133 prev-depth_6)" +"(lambda(tail?_32 s_132 prev-depth_6)" "(begin" " 'loop" -"(let-values(((depth_6)(add1 prev-depth_6)))" -"(if(if seen_14(> depth_6 32) #f)" +"(let-values(((depth_6)(fx+ 1 prev-depth_6)))" +"(if(if seen_14(fx> depth_6 32) #f)" "(let-values()" "(datum-map-slow" -" tail?_31" -" s_133" -"(lambda(tail?_32 s_134)(f_32 tail?_32 s_134))" +" tail?_32" +" s_132" +"(lambda(tail?_33 s_133)(gf_6 tail?_33 s_133))" " seen_14))" -"(if(null? s_133)" -"(let-values()(f_32 tail?_31 s_133))" -"(if(pair? s_133)" +"(if(null? s_132)" +"(let-values()(f_32 tail?_32 s_132))" +"(if(pair? s_132)" "(let-values()" "(f_32" -" tail?_31" +" tail?_32" "(cons" -"(loop_71 #f(car s_133) depth_6)" -"(loop_71 #t(cdr s_133) depth_6))))" -"(if(let-values(((or-part_119)" -"(symbol? s_133)))" -"(if or-part_119" -" or-part_119" -"(let-values(((or-part_120)" -"(boolean? s_133)))" -"(if or-part_120" -" or-part_120" -"(number? s_133)))))" -"(let-values()(f_32 #f s_133))" -"(if(let-values(((or-part_121)" -"(vector? s_133)))" -"(if or-part_121" -" or-part_121" -"(let-values(((or-part_122)" -"(box? s_133)))" -"(if or-part_122" -" or-part_122" -"(let-values(((or-part_123)" +"(loop_71 #f(car s_132) depth_6)" +"(loop_71 #t(cdr s_132) depth_6))))" +"(if(symbol? s_132)" +"(let-values()(f_32 #f s_132))" +"(if(boolean? s_132)" +"(let-values()(f_32 #f s_132))" +"(if(number? s_132)" +"(let-values()(f_32 #f s_132))" +"(if(let-values(((or-part_116)" +"(vector? s_132)))" +"(if or-part_116" +" or-part_116" +"(let-values(((or-part_117)" +"(box? s_132)))" +"(if or-part_117" +" or-part_117" +"(let-values(((or-part_118)" "(prefab-struct-key" -" s_133)))" -"(if or-part_123" -" or-part_123" -"(hash? s_133)))))))" +" s_132)))" +"(if or-part_118" +" or-part_118" +"(hash? s_132)))))))" "(let-values()" "(datum-map-slow" -" tail?_31" -" s_133" -"(lambda(tail?_33 s_135)" -"(f_32 tail?_33 s_135))" +" tail?_32" +" s_132" +"(lambda(tail?_34 s_134)" +"(gf_6 tail?_34 s_134))" " seen_14))" -"(let-values()(f_32 #f s_133))))))))))))" +"(let-values()" +"(gf_6 #f s_132))))))))))))))" " loop_71)" " #f" -" s_132" +" s_131" " 0))))))" " loop_70)" -" s_129))))))))))" +" s_128))))))))))" "(define-values" "(syntax-swap-scopes)" -"(lambda(s_136 src-scopes_0 dest-scopes_0)" +"(lambda(s_135 src-scopes_0 dest-scopes_0)" "(begin" "(if(equal? src-scopes_0 dest-scopes_0)" -" s_136" +" s_135" "(let-values(((src-smss_0 src-scs_0)" "(set-partition" -"(let-values(((ht_57) src-scopes_0))" +"(let-values(((ht_56) src-scopes_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_57)))" +"(let-values()(check-in-immutable-hash-keys ht_56)))" "((letrec-values(((for-loop_65)" -"(lambda(table_72 i_70)" +"(lambda(table_75 i_70)" "(begin" " 'for-loop" "(if i_70" "(let-values(((sc_22)" -"(unsafe-immutable-hash-iterate-key ht_57 i_70)))" -"(let-values(((table_73)" -"(let-values(((table_74) table_72))" -"(let-values(((table_75)" +"(unsafe-immutable-hash-iterate-key ht_56 i_70)))" +"(let-values(((table_76)" +"(let-values(((table_77) table_75))" +"(let-values(((table_78)" "(let-values()" "(let-values(((key_32 val_19)" "(let-values()" @@ -9819,39 +9852,39 @@ static const char *startup_source = " sc_22))" " #t))))" "(hash-set" -" table_74" +" table_77" " key_32" " val_19)))))" -"(values table_75)))))" +"(values table_78)))))" "(if(not #f)" "(for-loop_65" -" table_73" -"(unsafe-immutable-hash-iterate-next ht_57 i_70))" -" table_73)))" -" table_72)))))" +" table_76" +"(unsafe-immutable-hash-iterate-next ht_56 i_70))" +" table_76)))" +" table_75)))))" " for-loop_65)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_57))))" +"(unsafe-immutable-hash-iterate-first ht_56))))" " shifted-multi-scope?" "(seteq)" "(seteq)))" "((dest-smss_0 dest-scs_0)" "(set-partition" -"(let-values(((ht_58) dest-scopes_0))" +"(let-values(((ht_57) dest-scopes_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_58)))" +"(let-values()(check-in-immutable-hash-keys ht_57)))" "((letrec-values(((for-loop_66)" -"(lambda(table_76 i_71)" +"(lambda(table_79 i_71)" "(begin" " 'for-loop" "(if i_71" "(let-values(((sc_23)" -"(unsafe-immutable-hash-iterate-key ht_58 i_71)))" -"(let-values(((table_77)" -"(let-values(((table_78) table_76))" -"(let-values(((table_79)" +"(unsafe-immutable-hash-iterate-key ht_57 i_71)))" +"(let-values(((table_80)" +"(let-values(((table_81) table_79))" +"(let-values(((table_82)" "(let-values()" "(let-values(((key_33 val_20)" "(let-values()" @@ -9861,19 +9894,19 @@ static const char *startup_source = " sc_23))" " #t))))" "(hash-set" -" table_78" +" table_81" " key_33" " val_20)))))" -"(values table_79)))))" +"(values table_82)))))" "(if(not #f)" "(for-loop_66" -" table_77" -"(unsafe-immutable-hash-iterate-next ht_58 i_71))" -" table_77)))" -" table_76)))))" +" table_80" +"(unsafe-immutable-hash-iterate-next ht_57 i_71))" +" table_80)))" +" table_79)))))" " for-loop_66)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_58))))" +"(unsafe-immutable-hash-iterate-first ht_57))))" " shifted-multi-scope?" "(seteq)" "(seteq))))" @@ -9910,18 +9943,18 @@ static const char *startup_source = "(set-union(set-subtract smss_23 src-smss_0) dest-smss_0)" " smss_23))))))" "(begin(set! smss84_0 smss_22)(set! prev-result_3 r_25) r_25))))))))" -"(let-values(((s_137) s_136)" -"((f_33)(lambda(tail?_34 d_6)(begin 'f d_6)))" +"(let-values(((s_136) s_135)" +"((f_33)(lambda(tail?_35 d_6)(begin 'f d_6)))" "((d->s_3)" -"(lambda(s_138 d_7)" +"(lambda(s_137 d_7)" "(begin" " 'd->s" -"(let-values(((the-struct_30) s_138))" +"(let-values(((the-struct_30) s_137))" "(if(syntax?$1 the-struct_30)" "(let-values(((content85_0) d_7)" -"((scopes86_0)(swap-scs_0(syntax-scopes s_138)))" +"((scopes86_0)(swap-scs_0(syntax-scopes s_137)))" "((shifted-multi-scopes87_0)" -"(swap-smss_0(syntax-shifted-multi-scopes s_138))))" +"(swap-smss_0(syntax-shifted-multi-scopes s_137))))" "(syntax1.1" " content85_0" " scopes86_0" @@ -9935,103 +9968,100 @@ static const char *startup_source = "((s-e_3) syntax-e/no-taint)" "((seen_15) #f))" "((letrec-values(((loop_72)" -"(lambda(s_139)" +"(lambda(s_138)" "(begin" " 'loop" -"(let-values(((s_140) s_139)" -"((f_34)" -"(lambda(tail?_35 v_81)" +"(let-values(((s_139) s_138)" +"((f_34) f_33)" +"((gf_7)" +"(lambda(tail?_36 v_83)" "(begin" -" 'f" -"(if(syntax?$1 v_81)" -"(let-values()(d->s_3 v_81(loop_72(s-e_3 v_81))))" -"(let-values()(f_33 tail?_35 v_81))))))" +" 'gf" +"(if(syntax?$1 v_83)" +"(let-values()(d->s_3 v_83(loop_72(s-e_3 v_83))))" +"(let-values()(f_33 tail?_36 v_83))))))" "((seen_16) seen_15))" "((letrec-values(((loop_73)" -"(lambda(tail?_36 s_141 prev-depth_7)" +"(lambda(tail?_37 s_140 prev-depth_7)" "(begin" " 'loop" -"(let-values(((depth_7)(add1 prev-depth_7)))" -"(if(if seen_16(> depth_7 32) #f)" +"(let-values(((depth_7)(fx+ 1 prev-depth_7)))" +"(if(if seen_16(fx> depth_7 32) #f)" "(let-values()" "(datum-map-slow" -" tail?_36" -" s_141" -"(lambda(tail?_37 s_142)" -"(f_34 tail?_37 s_142))" +" tail?_37" +" s_140" +"(lambda(tail?_38 s_141)" +"(gf_7 tail?_38 s_141))" " seen_16))" -"(if(null? s_141)" -"(let-values()(f_34 tail?_36 s_141))" -"(if(pair? s_141)" +"(if(null? s_140)" +"(let-values()(f_34 tail?_37 s_140))" +"(if(pair? s_140)" "(let-values()" "(f_34" -" tail?_36" +" tail?_37" "(cons" -"(loop_73 #f(car s_141) depth_7)" -"(loop_73 #t(cdr s_141) depth_7))))" -"(if(let-values(((or-part_124)" -"(symbol? s_141)))" -"(if or-part_124" -" or-part_124" -"(let-values(((or-part_125)" -"(boolean? s_141)))" -"(if or-part_125" -" or-part_125" -"(number? s_141)))))" -"(let-values()(f_34 #f s_141))" -"(if(let-values(((or-part_126)" -"(vector? s_141)))" -"(if or-part_126" -" or-part_126" -"(let-values(((or-part_127)" -"(box? s_141)))" -"(if or-part_127" -" or-part_127" -"(let-values(((or-part_128)" +"(loop_73 #f(car s_140) depth_7)" +"(loop_73 #t(cdr s_140) depth_7))))" +"(if(symbol? s_140)" +"(let-values()(f_34 #f s_140))" +"(if(boolean? s_140)" +"(let-values()(f_34 #f s_140))" +"(if(number? s_140)" +"(let-values()(f_34 #f s_140))" +"(if(let-values(((or-part_119)" +"(vector? s_140)))" +"(if or-part_119" +" or-part_119" +"(let-values(((or-part_120)" +"(box? s_140)))" +"(if or-part_120" +" or-part_120" +"(let-values(((or-part_121)" "(prefab-struct-key" -" s_141)))" -"(if or-part_128" -" or-part_128" -"(hash? s_141)))))))" +" s_140)))" +"(if or-part_121" +" or-part_121" +"(hash? s_140)))))))" "(let-values()" "(datum-map-slow" -" tail?_36" -" s_141" -"(lambda(tail?_38 s_143)" -"(f_34 tail?_38 s_143))" +" tail?_37" +" s_140" +"(lambda(tail?_39 s_142)" +"(gf_7 tail?_39 s_142))" " seen_16))" "(let-values()" -"(f_34 #f s_141))))))))))))" +"(gf_7 #f s_140))))))))))))))" " loop_73)" " #f" -" s_140" +" s_139" " 0))))))" " loop_72)" -" s_137)))))))))))))" +" s_136)))))))))))))" "(define-values" "(syntax-scope-set)" -"(lambda(s_144 phase_12)" -"(begin(scope-set-at-fallback s_144(fallback-first(syntax-shifted-multi-scopes s_144)) phase_12))))" +"(lambda(s_143 phase_12)" +"(begin(scope-set-at-fallback s_143(fallback-first(syntax-shifted-multi-scopes s_143)) phase_12))))" "(define-values" "(scope-set-at-fallback)" -"(lambda(s_145 smss_24 phase_13)" +"(lambda(s_144 smss_24 phase_13)" "(begin" -"(let-values(((ht_59) smss_24))" +"(let-values(((ht_58) smss_24))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_59)))" +"(let-values()(check-in-immutable-hash-keys ht_58)))" "((letrec-values(((for-loop_67)" "(lambda(scopes_9 i_72)" "(begin" " 'for-loop" "(if i_72" -"(let-values(((sms_10)(unsafe-immutable-hash-iterate-key ht_59 i_72)))" +"(let-values(((sms_10)(unsafe-immutable-hash-iterate-key ht_58 i_72)))" "(let-values(((scopes_10)" "(let-values(((scopes_11) scopes_9))" -"(if(let-values(((or-part_129)(label-phase? phase_13)))" -"(if or-part_129" -" or-part_129" +"(if(let-values(((or-part_122)(label-phase? phase_13)))" +"(if or-part_122" +" or-part_122" "(not" "(shifted-to-label-phase?" "(shifted-multi-scope-phase sms_10)))))" @@ -10051,29 +10081,29 @@ static const char *startup_source = "(values scopes_13)))" " scopes_11))))" "(if(not #f)" -"(for-loop_67 scopes_10(unsafe-immutable-hash-iterate-next ht_59 i_72))" +"(for-loop_67 scopes_10(unsafe-immutable-hash-iterate-next ht_58 i_72))" " scopes_10)))" " scopes_9)))))" " for-loop_67)" -"(syntax-scopes s_145)" -"(unsafe-immutable-hash-iterate-first ht_59)))))))" +"(syntax-scopes s_144)" +"(unsafe-immutable-hash-iterate-first ht_58)))))))" "(define-values" "(find-max-scope)" "(lambda(scopes_14)" "(begin" "(begin" " (if (set-empty? scopes_14) (let-values () (error \"cannot bind in empty scope set\")) (void))" -"(let-values(((ht_60) scopes_14))" +"(let-values(((ht_59) scopes_14))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_60)))" +"(let-values()(check-in-immutable-hash-keys ht_59)))" "((letrec-values(((for-loop_68)" "(lambda(max-sc_0 i_73)" "(begin" " 'for-loop" "(if i_73" -"(let-values(((sc_24)(unsafe-immutable-hash-iterate-key ht_60 i_73)))" +"(let-values(((sc_24)(unsafe-immutable-hash-iterate-key ht_59 i_73)))" "(let-values(((max-sc_1)" "(let-values(((max-sc_2) max-sc_0))" "(let-values(((max-sc_3)" @@ -10081,12 +10111,12 @@ static const char *startup_source = "(if(scope>? sc_24 max-sc_2) sc_24 max-sc_2))))" "(values max-sc_3)))))" "(if(not #f)" -"(for-loop_68 max-sc_1(unsafe-immutable-hash-iterate-next ht_60 i_73))" +"(for-loop_68 max-sc_1(unsafe-immutable-hash-iterate-next ht_59 i_73))" " max-sc_1)))" " max-sc_0)))))" " for-loop_68)" "(set-first scopes_14)" -"(unsafe-immutable-hash-iterate-first ht_60))))))))" +"(unsafe-immutable-hash-iterate-first ht_59))))))))" "(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)" @@ -10125,32 +10155,32 @@ static const char *startup_source = "(begin(set-scope-binding-table! max-sc_5 bt_8)(clear-resolve-cache!)))))))))))" "(define-values" "(syntax-any-macro-scopes?)" -"(lambda(s_146)" +"(lambda(s_145)" "(begin" -"(let-values(((ht_61)(syntax-scopes s_146)))" +"(let-values(((ht_60)(syntax-scopes s_145)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_61)))" +"(let-values()(check-in-immutable-hash-keys ht_60)))" "((letrec-values(((for-loop_69)" "(lambda(result_44 i_74)" "(begin" " 'for-loop" "(if i_74" -"(let-values(((sc_25)(unsafe-immutable-hash-iterate-key ht_61 i_74)))" +"(let-values(((sc_25)(unsafe-immutable-hash-iterate-key ht_60 i_74)))" "(let-values(((result_45)" "(let-values()" "(let-values(((result_46)" "(let-values()" "(let-values()(eq?(scope-kind sc_25) 'macro)))))" "(values result_46)))))" -"(if(if(not((lambda x_35 result_45) sc_25))(not #f) #f)" -"(for-loop_69 result_45(unsafe-immutable-hash-iterate-next ht_61 i_74))" +"(if(if(not((lambda x_34 result_45) sc_25))(not #f) #f)" +"(for-loop_69 result_45(unsafe-immutable-hash-iterate-next ht_60 i_74))" " result_45)))" " result_44)))))" " for-loop_69)" " #f" -"(unsafe-immutable-hash-iterate-first ht_61)))))))" +"(unsafe-immutable-hash-iterate-first ht_60)))))))" "(define-values" "(resolve40.1)" "(lambda(ambiguous-value30_0" @@ -10165,14 +10195,14 @@ static const char *startup_source = " phase39_0)" "(begin" " 'resolve40" -"(let-values(((s_147) s38_0))" +"(let-values(((s_146) s38_0))" "(let-values(((phase_14) phase39_0))" "(let-values(((ambiguous-value_0)(if ambiguous-value34_0 ambiguous-value30_0 #f)))" "(let-values(((exactly?_0)(if exactly?35_0 exactly?31_0 #f)))" "(let-values(((get-scopes?_0)(if get-scopes?36_0 get-scopes?32_0 #f)))" "(let-values(((extra-shifts_2)(if extra-shifts37_0 extra-shifts33_0 null)))" "(let-values()" -"(let-values(((sym_15)(syntax-content s_147)))" +"(let-values(((sym_15)(syntax-content s_146)))" "((letrec-values(((fallback-loop_0)" "(lambda(smss_25)" "(begin" @@ -10183,7 +10213,7 @@ static const char *startup_source = "(resolve-cache-get" " sym_15" " phase_14" -"(syntax-scopes s_147)" +"(syntax-scopes s_146)" "(fallback-first smss_25))" " #f)" " #f)))" @@ -10199,17 +10229,17 @@ static const char *startup_source = "(let-values()" "(let-values(((scopes_17)" "(scope-set-at-fallback" -" s_147" +" s_146" "(fallback-first smss_25)" " phase_14)))" "(let-values(((best-scopes_0 best-binding_0)" -"(let-values(((ht_62) scopes_17))" +"(let-values(((ht_61) scopes_17))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-immutable-hash-keys ht_62)))" +"(check-in-immutable-hash-keys ht_61)))" "((letrec-values(((for-loop_70)" "(lambda(best-scopes_1" " best-binding_1" @@ -10219,33 +10249,33 @@ static const char *startup_source = "(if i_75" "(let-values(((sc_26)" "(unsafe-immutable-hash-iterate-key" -" ht_62" +" ht_61" " i_75)))" "(let-values(((best-scopes_2" " best-binding_2)" -"(let-values(((ht_63" +"(let-values(((ht_62" " bulk-bindings_2)" -"(let-values(((table_80)" +"(let-values(((table_83)" "(scope-binding-table" " sc_26)))" "(if(hash?" -" table_80)" +" table_83)" "(values" "(hash-ref" -" table_80" +" table_83" " sym_15" " '#hash())" " null)" "(values" "(hash-ref" "(table-with-bulk-bindings-syms" -" table_80)" +" table_83)" " sym_15" " '#hash())" "(table-with-bulk-bindings-bulk-bindings" -" table_80)))))" -"((s_148)" -" s_147)" +" table_83)))))" +"((s_147)" +" s_146)" "((extra-shifts_3)" " extra-shifts_2))" "(begin" @@ -10268,7 +10298,7 @@ static const char *startup_source = " i_76)))" "(let-values()" "(hash-iterate-key" -" ht_63" +" ht_62" " i_76))))" "((binding_4)" "(if(pair?" @@ -10284,7 +10314,7 @@ static const char *startup_source = "(hash-ref" "(bulk-binding-symbols" " bulk_3" -" s_148" +" s_147" " extra-shifts_3)" " sym_15" " #f)" @@ -10298,7 +10328,7 @@ static const char *startup_source = " #f))))" "(let-values()" "(hash-iterate-value" -" ht_63" +" ht_62" " i_76)))))" "(let-values(((best-scopes_4" " best-binding_4)" @@ -10356,7 +10386,7 @@ static const char *startup_source = "(values" " result_49)))))" "(if(if(not" -"((lambda x_36" +"((lambda x_35" "(not" " result_48))" " amb-scopes_0))" @@ -10424,12 +10454,12 @@ static const char *startup_source = "(cdr" " i_76))" "(let-values()" -"(let-values(((or-part_130)" +"(let-values(((or-part_123)" "(hash-iterate-next" -" ht_63" +" ht_62" " i_76)))" -"(if or-part_130" -" or-part_130" +"(if or-part_123" +" or-part_123" " bulk-bindings_2)))))" "(values" " best-scopes_4" @@ -10440,18 +10470,18 @@ static const char *startup_source = " for-loop_71)" " best-scopes_1" " best-binding_1" -"(let-values(((or-part_131)" +"(let-values(((or-part_124)" "(hash-iterate-first" -" ht_63)))" -"(if or-part_131" -" or-part_131" +" ht_62)))" +"(if or-part_124" +" or-part_124" " bulk-bindings_2)))))))" "(if(not #f)" "(for-loop_70" " best-scopes_2" " best-binding_2" "(unsafe-immutable-hash-iterate-next" -" ht_62" +" ht_61" " i_75))" "(values" " best-scopes_2" @@ -10462,7 +10492,7 @@ static const char *startup_source = " for-loop_70)" " #f" " #f" -"(unsafe-immutable-hash-iterate-first ht_62))))))" +"(unsafe-immutable-hash-iterate-first ht_61))))))" "(if(pair? best-scopes_0)" "(let-values()" "(if(fallback? smss_25)" @@ -10474,12 +10504,12 @@ static const char *startup_source = "(resolve-cache-set!" " sym_15" " phase_14" -"(syntax-scopes s_147)" +"(syntax-scopes s_146)" "(fallback-first smss_25)" " best-binding_0)" -"(if(let-values(((or-part_132)(not exactly?_0)))" -"(if or-part_132" -" or-part_132" +"(if(let-values(((or-part_125)(not exactly?_0)))" +"(if or-part_125" +" or-part_125" "(eqv?" "(set-count scopes_17)" "(set-count best-scopes_0))))" @@ -10490,14 +10520,14 @@ static const char *startup_source = "(resolve-cache-set!" " sym_15" " phase_14" -"(syntax-scopes s_147)" +"(syntax-scopes s_146)" "(fallback-first smss_25)" " '#:none)" "(if(fallback? smss_25)" "(fallback-loop_0(fallback-rest smss_25))" " #f))))))))))))))" " fallback-loop_0)" -"(syntax-shifted-multi-scopes s_147)))))))))))))" +"(syntax-shifted-multi-scopes s_146)))))))))))))" "(define-values" "(bound-identifier=?$1)" "(lambda(a_32 b_40 phase_15)" @@ -10557,11 +10587,11 @@ static const char *startup_source = "(begin" " 'local-binding-update17" "(let-values(((b_43) b16_0))" -"(let-values(((key_36)(if key13_0 key10_0(local-binding-key b_43))))" +"(let-values(((key_13)(if key13_0 key10_0(local-binding-key b_43))))" "(let-values(((frame-id_3)(if frame-id14_0 frame-id11_0(binding-frame-id b_43))))" "(let-values(((free=id_5)(if free=id15_0 free=id12_0(binding-free=id b_43))))" "(let-values()" -"(let-values(((key21_0) key_36)((frame-id22_0) frame-id_3)((free=id23_0) free=id_5))" +"(let-values(((key21_0) key_13)((frame-id22_0) frame-id_3)((free=id23_0) free=id_5))" "(make-local-binding7.1 frame-id22_0 #t free=id23_0 #t key21_0))))))))))" "(define-values" "(local-binding-key)" @@ -10832,45 +10862,45 @@ static const char *startup_source = "(lambda(non-source?8_0 non-source?9_0 s12_0 from-mpi13_0 to-mpi14_0 inspector10_0 inspector11_0)" "(begin" " 'syntax-module-path-index-shift15" -"(let-values(((s_149) s12_0))" +"(let-values(((s_148) s12_0))" "(let-values(((from-mpi_1) from-mpi13_0))" "(let-values(((to-mpi_1) to-mpi14_0))" "(let-values(((inspector_3)(if inspector11_0 inspector10_0 #f)))" "(let-values(((non-source?_0)(if non-source?9_0 non-source?8_0 #f)))" "(let-values()" "(if(eq? from-mpi_1 to-mpi_1)" -"(let-values()(if inspector_3(syntax-set-inspector s_149 inspector_3) s_149))" +"(let-values()(if inspector_3(syntax-set-inspector s_148 inspector_3) s_148))" "(let-values()" "(let-values(((shift_0)" "(if non-source?_0" "(non-source-shift7.1 from-mpi_1 to-mpi_1)" "(cons from-mpi_1 to-mpi_1))))" -"(let-values(((the-struct_31) s_149))" -"(if(syntax?$1 the-struct_31)" -"(let-values(((mpi-shifts70_0)(cons shift_0(syntax-mpi-shifts s_149)))" +"(let-values(((the-struct_11) s_148))" +"(if(syntax?$1 the-struct_11)" +"(let-values(((mpi-shifts70_0)(cons shift_0(syntax-mpi-shifts s_148)))" "((inspector71_0)" -"(let-values(((or-part_133)(syntax-inspector s_149)))" -"(if or-part_133 or-part_133 inspector_3)))" +"(let-values(((or-part_126)(syntax-inspector s_148)))" +"(if or-part_126 or-part_126 inspector_3)))" "((scope-propagations+tamper72_0)" -"(if(datum-has-elements?(syntax-content s_149))" +"(if(datum-has-elements?(syntax-content s_148))" "(propagation-mpi-shift" -"(syntax-scope-propagations+tamper s_149)" -"(lambda(s_86)(cons shift_0 s_86))" +"(syntax-scope-propagations+tamper s_148)" +"(lambda(s_85)(cons shift_0 s_85))" " inspector_3" -"(syntax-scopes s_149)" -"(syntax-shifted-multi-scopes s_149)" -"(syntax-mpi-shifts s_149))" -"(syntax-scope-propagations+tamper s_149))))" +"(syntax-scopes s_148)" +"(syntax-shifted-multi-scopes s_148)" +"(syntax-mpi-shifts s_148))" +"(syntax-scope-propagations+tamper s_148))))" "(syntax1.1" -"(syntax-content the-struct_31)" -"(syntax-scopes the-struct_31)" -"(syntax-shifted-multi-scopes the-struct_31)" +"(syntax-content the-struct_11)" +"(syntax-scopes the-struct_11)" +"(syntax-shifted-multi-scopes the-struct_11)" " scope-propagations+tamper72_0" " mpi-shifts70_0" -"(syntax-srcloc the-struct_31)" -"(syntax-props the-struct_31)" +"(syntax-srcloc the-struct_11)" +"(syntax-props the-struct_11)" " inspector71_0))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_31)))))))))))))))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_11)))))))))))))))" "(define-values" "(resolve+shift30.1)" "(lambda(ambiguous-value18_0" @@ -10887,7 +10917,7 @@ static const char *startup_source = " phase29_0)" "(begin" " 'resolve+shift30" -"(let-values(((s_88) s28_0))" +"(let-values(((s_87) s28_0))" "(let-values(((phase_21) phase29_0))" "(let-values(((ambiguous-value_1)(if ambiguous-value23_0 ambiguous-value18_0 #f)))" "(let-values(((exactly?_1)(if exactly?24_0 exactly?19_0 #f)))" @@ -10896,7 +10926,7 @@ static const char *startup_source = "(let-values(((extra-shifts_4)(if extra-shifts27_0 extra-shifts22_0 null)))" "(let-values()" "(let-values(((immediate-b_0)" -"(let-values(((s73_0) s_88)" +"(let-values(((s73_0) s_87)" "((phase74_0) phase_21)" "((ambiguous-value75_0) ambiguous-value_1)" "((exactly?76_0) exactly?_1)" @@ -10918,7 +10948,7 @@ static const char *startup_source = " #f)" "(let-values(((temp78_0)(binding-free=id immediate-b_0))" "((phase79_0) phase_21)" -"((temp80_0)(append extra-shifts_4(syntax-mpi-shifts s_88)))" +"((temp80_0)(append extra-shifts_4(syntax-mpi-shifts s_87)))" "((ambiguous-value81_0) ambiguous-value_1)" "((exactly?82_0) exactly?_1)" "((unbound-sym?83_0) unbound-sym?_0))" @@ -10938,7 +10968,7 @@ static const char *startup_source = " immediate-b_0)))" "(if(module-binding? b_50)" "(let-values()" -"(let-values(((mpi-shifts_2)(syntax-mpi-shifts s_88)))" +"(let-values(((mpi-shifts_2)(syntax-mpi-shifts s_87)))" "(if(null? mpi-shifts_2)" "(let-values() b_50)" "(let-values()" @@ -10963,7 +10993,7 @@ static const char *startup_source = "((temp87_0)" "(if(binding-free=id b_50)" "(let-values(((temp89_0)(binding-free=id b_50))" -"((s90_0) s_88))" +"((s90_0) s_87))" "(syntax-transfer-shifts39.1 #f #f temp89_0 s90_0 #f #f))" " #f))" "((temp88_1)" @@ -11034,7 +11064,7 @@ static const char *startup_source = " #f" " b84_0)))))))))))" "(if(if(not b_50) unbound-sym?_0 #f)" -"(let-values()(syntax-e$1 s_88))" +"(let-values()(syntax-e$1 s_87))" "(let-values() b_50))))))))))))))))" "(define-values" "(apply-syntax-shifts)" @@ -11144,24 +11174,24 @@ static const char *startup_source = "(void)" "(let-values()(check-naturals start_12)))" "((letrec-values(((for-loop_75)" -"(lambda(s_150 lst_56 pos_9)" +"(lambda(s_149 lst_56 pos_9)" "(begin" " 'for-loop" "(if(if(pair? lst_56) #t #f)" "(let-values(((shift_3)(unsafe-car lst_56))" "((rest_24)(unsafe-cdr lst_56))" -"((i_46) pos_9))" -"(let-values(((s_151)" -"(let-values(((s_95) s_150))" -"(let-values(((s_152)" +"((i_77) pos_9))" +"(let-values(((s_150)" +"(let-values(((s_151) s_149))" +"(let-values(((s_94)" "(let-values()" -"(let-values(((s95_0) s_95)" +"(let-values(((s95_0) s_151)" "((temp96_0)" "(shift-from shift_3))" "((temp97_0)" "(shift-to shift_3))" "((temp98_0)" -"(if(zero? i_46)" +"(if(zero? i_77)" " inspector_4" " #f))" "((non-source?99_0)" @@ -11174,41 +11204,41 @@ static const char *startup_source = " temp97_0" " temp98_0" " #t)))))" -"(values s_152)))))" -"(if(not #f)(for-loop_75 s_151 rest_24(+ pos_9 1)) s_151)))" -" s_150)))))" +"(values s_94)))))" +"(if(not #f)(for-loop_75 s_150 rest_24(+ pos_9 1)) s_150)))" +" s_149)))))" " for-loop_75)" " to-s_0" " lst_55" " start_12))))))))))))))" "(define-values" "(syntax-set-inspector)" -"(lambda(s_105 insp_3)" +"(lambda(s_152 insp_3)" "(begin" -"(let-values(((the-struct_32) s_105))" -"(if(syntax?$1 the-struct_32)" +"(let-values(((the-struct_31) s_152))" +"(if(syntax?$1 the-struct_31)" "(let-values(((inspector100_0)" -"(let-values(((or-part_134)(syntax-inspector s_105)))(if or-part_134 or-part_134 insp_3)))" +"(let-values(((or-part_127)(syntax-inspector s_152)))(if or-part_127 or-part_127 insp_3)))" "((scope-propagations+tamper101_0)" -"(if(datum-has-elements?(syntax-content s_105))" +"(if(datum-has-elements?(syntax-content s_152))" "(propagation-mpi-shift" -"(syntax-scope-propagations+tamper s_105)" +"(syntax-scope-propagations+tamper s_152)" " #f" " insp_3" -"(syntax-scopes s_105)" -"(syntax-shifted-multi-scopes s_105)" -"(syntax-mpi-shifts s_105))" -"(syntax-scope-propagations+tamper s_105))))" +"(syntax-scopes s_152)" +"(syntax-shifted-multi-scopes s_152)" +"(syntax-mpi-shifts s_152))" +"(syntax-scope-propagations+tamper s_152))))" "(syntax1.1" -"(syntax-content the-struct_32)" -"(syntax-scopes the-struct_32)" -"(syntax-shifted-multi-scopes the-struct_32)" +"(syntax-content the-struct_31)" +"(syntax-scopes the-struct_31)" +"(syntax-shifted-multi-scopes the-struct_31)" " scope-propagations+tamper101_0" -"(syntax-mpi-shifts the-struct_32)" -"(syntax-srcloc the-struct_32)" -"(syntax-props the-struct_32)" +"(syntax-mpi-shifts the-struct_31)" +"(syntax-srcloc the-struct_31)" +"(syntax-props the-struct_31)" " inspector100_0))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_32))))))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_31))))))" "(define-values" "(1/syntax-source-module)" "(let-values(((syntax-source-module45_0)" @@ -11228,12 +11258,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_57)))" "((letrec-values(((for-loop_76)" -"(lambda(result_50 lst_45)" +"(lambda(result_50 lst_58)" "(begin" " 'for-loop" -"(if(pair? lst_45)" -"(let-values(((shift_4)(unsafe-car lst_45))" -"((rest_25)(unsafe-cdr lst_45)))" +"(if(pair? lst_58)" +"(let-values(((shift_4)(unsafe-car lst_58))" +"((rest_25)(unsafe-cdr lst_58)))" "(let-values(((result_51)" "(let-values(((result_52) result_50))" "(if(non-source-shift? shift_4)" @@ -11274,8 +11304,8 @@ static const char *startup_source = " #f" " lst_57)))))))))))" "(case-lambda" -"((s_154)(begin 'syntax-source-module(syntax-source-module45_0 s_154 #f #f)))" -"((s_114 source?42_1)(syntax-source-module45_0 s_114 source?42_1 #t)))))" +"((s_113)(begin 'syntax-source-module(syntax-source-module45_0 s_113 #f #f)))" +"((s_154 source?42_1)(syntax-source-module45_0 s_154 source?42_1 #t)))))" "(define-values" "(1/identifier-prune-to-source-module)" "(lambda(id_7)" @@ -11285,19 +11315,19 @@ static const char *startup_source = "(if(identifier? id_7)" "(void)" " (let-values () (raise-argument-error 'identifier-prune-to-source-module \"identifier?\" id_7)))" -"(let-values(((the-struct_33)(datum->syntax$1 #f(syntax-e$1 id_7) id_7 id_7)))" -"(if(syntax?$1 the-struct_33)" +"(let-values(((the-struct_20)(datum->syntax$1 #f(syntax-e$1 id_7) id_7 id_7)))" +"(if(syntax?$1 the-struct_20)" "(let-values(((mpi-shifts102_0)(syntax-mpi-shifts id_7)))" "(syntax1.1" -"(syntax-content the-struct_33)" -"(syntax-scopes the-struct_33)" -"(syntax-shifted-multi-scopes the-struct_33)" -"(syntax-scope-propagations+tamper the-struct_33)" +"(syntax-content the-struct_20)" +"(syntax-scopes the-struct_20)" +"(syntax-shifted-multi-scopes the-struct_20)" +"(syntax-scope-propagations+tamper the-struct_20)" " mpi-shifts102_0" -"(syntax-srcloc the-struct_33)" -"(syntax-props the-struct_33)" -"(syntax-inspector the-struct_33)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_33)))))))" +"(syntax-srcloc the-struct_20)" +"(syntax-props the-struct_20)" +"(syntax-inspector the-struct_20)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_20)))))))" "(define-values" "(struct:provided provided1.1 provided? provided-binding provided-protected? provided-syntax?)" "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" @@ -11310,14 +11340,15 @@ static const char *startup_source = " 0" " #f" "(list" +"(cons prop:authentic #t)" "(cons" " prop:serialize" -"(lambda(p_30 ser-push!_13 state_23)" +"(lambda(p_29 ser-push!_13 state_23)" "(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!_13(provided-binding p_29))" +"(ser-push!_13(provided-protected? p_29))" +"(ser-push!_13(provided-syntax? p_29))))))" " #f" " #f" " '(0 1 2)" @@ -11330,9 +11361,9 @@ static const char *startup_source = "(make-struct-field-accessor -ref_0 0 'binding)" "(make-struct-field-accessor -ref_0 1 'protected?)" "(make-struct-field-accessor -ref_0 2 'syntax?))))" -"(define-values(provided-as-binding)(lambda(v_82)(begin(if(provided? v_82)(provided-binding v_82) v_82))))" +"(define-values(provided-as-binding)(lambda(v_84)(begin(if(provided? v_84)(provided-binding v_84) v_84))))" "(define-values(provided-as-protected?)(lambda(v_5)(begin(if(provided? v_5)(provided-protected? v_5) #f))))" -"(define-values(provided-as-transformer?)(lambda(v_83)(begin(if(provided? v_83)(provided-syntax? v_83) #f))))" +"(define-values(provided-as-transformer?)(lambda(v_85)(begin(if(provided? v_85)(provided-syntax? v_85) #f))))" "(define-values" "(deserialize-provided)" "(lambda(binding_5 protected?_0 syntax?_1)(begin(provided1.1 binding_5 protected?_0 syntax?_1))))" @@ -11425,9 +11456,9 @@ static const char *startup_source = " prop:bulk-binding" "(bulk-binding-class3.1" "(lambda(b_55 mpi-shifts_3)" -"(let-values(((or-part_135)(bulk-binding-provides b_55)))" -"(if or-part_135" -" or-part_135" +"(let-values(((or-part_128)(bulk-binding-provides b_55)))" +"(if or-part_128" +" or-part_128" "(let-values(((mod-name_1)" "(1/module-path-index-resolve" "(apply-syntax-shifts(bulk-binding-mpi b_55) mpi-shifts_3))))" @@ -11440,10 +11471,10 @@ static const char *startup_source = " \"namespace mismatch: no bulk-binding registry available:\"" " mod-name_1)))" "(values))))" -"(let-values(((table_81)" +"(let-values(((table_84)" "(bulk-binding-registry-table" "(bulk-binding-bulk-binding-registry b_55))))" -"(let-values(((bulk-provide_0)(hash-ref table_81 mod-name_1 #f)))" +"(let-values(((bulk-provide_0)(hash-ref table_84 mod-name_1 #f)))" "(let-values((()" "(begin" "(if bulk-provide_0" @@ -11464,9 +11495,9 @@ static const char *startup_source = "(let-values(((excepts_0)(bulk-binding-excepts b_55)))" "(let-values(((prefix_0)(bulk-binding-prefix b_55)))" "(let-values(((adjusted-provides_0)" -"(if(let-values(((or-part_136) prefix_0))" -"(if or-part_136" -" or-part_136" +"(if(let-values(((or-part_129) prefix_0))" +"(if or-part_129" +" or-part_129" "(positive?(hash-count excepts_0))))" "(let-values()" "(bulk-provides-add-prefix-remove-exceptions" @@ -11525,25 +11556,25 @@ static const char *startup_source = "(bulk-provides-add-prefix-remove-exceptions)" "(lambda(provides_1 prefix_2 excepts_2)" "(begin" -"(let-values(((ht_64) provides_1))" +"(let-values(((ht_63) provides_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_64)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_63)))" "((letrec-values(((for-loop_77)" -"(lambda(table_82 i_77)" +"(lambda(table_85 i_78)" "(begin" " 'for-loop" -"(if i_77" -"(let-values(((sym_17 val_23)(hash-iterate-key+value ht_64 i_77)))" -"(let-values(((table_83)" -"(let-values(((table_84) table_82))" +"(if i_78" +"(let-values(((sym_17 val_23)(hash-iterate-key+value ht_63 i_78)))" +"(let-values(((table_86)" +"(let-values(((table_87) table_85))" "(if(hash-ref excepts_2 sym_17 #f)" -" table_84" -"(let-values(((table_85) table_84))" +" table_87" +"(let-values(((table_88) table_87))" "(if(symbol-interned? sym_17)" -"(let-values(((table_86) table_85))" -"(let-values(((table_87)" +"(let-values(((table_89) table_88))" +"(let-values(((table_90)" "(let-values()" -"(let-values(((key_37 val_24)" +"(let-values(((key_36 val_24)" "(let-values()" "(values" "(if prefix_2" @@ -11554,14 +11585,14 @@ static const char *startup_source = " sym_17))" " sym_17)" " val_23))))" -"(hash-set table_86 key_37 val_24)))))" -"(values table_87)))" -" table_85))))))" -"(if(not #f)(for-loop_77 table_83(hash-iterate-next ht_64 i_77)) table_83)))" -" table_82)))))" +"(hash-set table_89 key_36 val_24)))))" +"(values table_90)))" +" table_88))))))" +"(if(not #f)(for-loop_77 table_86(hash-iterate-next ht_63 i_78)) table_86)))" +" table_85)))))" " for-loop_77)" " '#hash()" -"(hash-iterate-first ht_64)))))))" +"(hash-iterate-first ht_63)))))))" "(define-values" "(struct:bulk-provide bulk-provide15.1 bulk-provide? bulk-provide-self bulk-provide-provides)" "(let-values(((struct:_5 make-_5 ?_5 -ref_5 -set!_5)" @@ -11704,29 +11735,29 @@ static const char *startup_source = "(lambda(v_45)(begin(root-expand-context/outer-post-expansion-scope v_45))))" "(define-values" "(root-expand-context-use-site-scopes)" -"(lambda(v_84)(begin(root-expand-context/outer-use-site-scopes v_84))))" +"(lambda(v_86)(begin(root-expand-context/outer-use-site-scopes v_86))))" "(define-values(root-expand-context-frame-id)(lambda(v_46)(begin(root-expand-context/outer-frame-id v_46))))" "(define-values" "(root-expand-context-self-mpi)" -"(lambda(v_85)(begin(root-expand-context/inner-self-mpi(root-expand-context/outer-inner v_85)))))" +"(lambda(v_60)(begin(root-expand-context/inner-self-mpi(root-expand-context/outer-inner v_60)))))" "(define-values" "(root-expand-context-module-scopes)" "(lambda(v_47)(begin(root-expand-context/inner-module-scopes(root-expand-context/outer-inner v_47)))))" "(define-values" "(root-expand-context-top-level-bind-scope)" -"(lambda(v_86)(begin(root-expand-context/inner-top-level-bind-scope(root-expand-context/outer-inner v_86)))))" +"(lambda(v_87)(begin(root-expand-context/inner-top-level-bind-scope(root-expand-context/outer-inner v_87)))))" "(define-values" "(root-expand-context-all-scopes-stx)" "(lambda(v_56)(begin(root-expand-context/inner-all-scopes-stx(root-expand-context/outer-inner v_56)))))" "(define-values" "(root-expand-context-defined-syms)" -"(lambda(v_87)(begin(root-expand-context/inner-defined-syms(root-expand-context/outer-inner v_87)))))" +"(lambda(v_88)(begin(root-expand-context/inner-defined-syms(root-expand-context/outer-inner v_88)))))" "(define-values" "(root-expand-context-counter)" "(lambda(v_40)(begin(root-expand-context/inner-counter(root-expand-context/outer-inner v_40)))))" "(define-values" "(root-expand-context-lift-key)" -"(lambda(v_88)(begin(root-expand-context/inner-lift-key(root-expand-context/outer-inner v_88)))))" +"(lambda(v_89)(begin(root-expand-context/inner-lift-key(root-expand-context/outer-inner v_89)))))" "(define-values" "(make-root-expand-context13.1)" "(lambda(all-scopes-stx7_0" @@ -11753,8 +11784,8 @@ static const char *startup_source = " module-scopes_1" " post-expansion-scope_1" "(new-scope 'module)" -"(let-values(((or-part_137) all-scopes-stx_1))" -"(if or-part_137 or-part_137(add-scopes empty-syntax module-scopes_1)))" +"(let-values(((or-part_130) all-scopes-stx_1))" +"(if or-part_130 or-part_130(add-scopes empty-syntax module-scopes_1)))" "(box null)" "(make-hasheqv)" " (string->uninterned-symbol \"root-frame\")" @@ -11774,29 +11805,29 @@ static const char *startup_source = "((new-self20_0) new-self_0))" "(syntax-module-path-index-shift15.1 #f #f temp18_2 orig-self19_0 new-self20_0 #f #f))" "(add-scopes empty-syntax(unbox(root-expand-context-use-site-scopes ctx_0)))" -"(let-values(((ht_65)(root-expand-context-defined-syms ctx_0)))" +"(let-values(((ht_64)(root-expand-context-defined-syms ctx_0)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_65)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_64)))" "((letrec-values(((for-loop_78)" -"(lambda(table_88 i_78)" +"(lambda(table_91 i_79)" "(begin" " 'for-loop" -"(if i_78" -"(let-values(((phase_22 ht_66)(hash-iterate-key+value ht_65 i_78)))" -"(let-values(((table_89)" -"(let-values(((table_90) table_88))" -"(let-values(((table_91)" +"(if i_79" +"(let-values(((phase_22 ht_65)(hash-iterate-key+value ht_64 i_79)))" +"(let-values(((table_92)" +"(let-values(((table_93) table_91))" +"(let-values(((table_94)" "(let-values()" -"(let-values(((key_38 val_25)" +"(let-values(((key_37 val_25)" "(let-values()" -"(values phase_22 ht_66))))" -"(hash-set table_90 key_38 val_25)))))" -"(values table_91)))))" -"(if(not #f)(for-loop_78 table_89(hash-iterate-next ht_65 i_78)) table_89)))" -" table_88)))))" +"(values phase_22 ht_65))))" +"(hash-set table_93 key_37 val_25)))))" +"(values table_94)))))" +"(if(not #f)(for-loop_78 table_92(hash-iterate-next ht_64 i_79)) table_92)))" +" table_91)))))" " for-loop_78)" " '#hasheqv()" -"(hash-iterate-first ht_65))))" +"(hash-iterate-first ht_64))))" "(root-expand-context-frame-id ctx_0)" "(unbox(root-expand-context-counter ctx_0)))))))" "(define-values" @@ -11837,17 +11868,17 @@ static const char *startup_source = "(generate-lift-key)))))))" "(define-values" "(defined-syms-hash?)" -"(lambda(v_89)" +"(lambda(v_90)" "(begin" -"(let-values(((ht_67) v_89))" +"(let-values(((ht_66) v_90))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_67)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_66)))" "((letrec-values(((for-loop_8)" -"(lambda(result_54 i_79)" +"(lambda(result_54 i_80)" "(begin" " 'for-loop" -"(if i_79" -"(let-values(((phase_23 ht-s_0)(hash-iterate-key+value ht_67 i_79)))" +"(if i_80" +"(let-values(((phase_23 ht-s_0)(hash-iterate-key+value ht_66 i_80)))" "(let-values(((result_55)" "(let-values()" "(let-values(((result_56)" @@ -11855,22 +11886,22 @@ static const char *startup_source = "(let-values()" "(if(phase? phase_23)" "(if(hash?(syntax-e$1 ht-s_0))" -"(let-values(((ht_68)(syntax-e$1 ht-s_0)))" +"(let-values(((ht_67)(syntax-e$1 ht-s_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_68)))" +"(let-values()(check-in-hash ht_67)))" "((letrec-values(((for-loop_79)" -"(lambda(result_57 i_80)" +"(lambda(result_57 i_81)" "(begin" " 'for-loop" -"(if i_80" +"(if i_81" "(let-values(((sym_18" " id_8)" "(hash-iterate-key+value" -" ht_68" -" i_80)))" +" ht_67" +" i_81)))" "(let-values(((result_58)" "(let-values()" "(let-values(((result_59)" @@ -11884,7 +11915,7 @@ static const char *startup_source = "(values" " result_59)))))" "(if(if(not" -"((lambda x_37" +"((lambda x_36" "(not" " result_58))" " sym_18" @@ -11894,23 +11925,23 @@ static const char *startup_source = "(for-loop_79" " result_58" "(hash-iterate-next" -" ht_68" -" i_80))" +" ht_67" +" i_81))" " result_58)))" " result_57)))))" " for-loop_79)" " #t" -"(hash-iterate-first ht_68))))" +"(hash-iterate-first ht_67))))" " #f)" " #f)))))" "(values result_56)))))" -"(if(if(not((lambda x_38(not result_55)) phase_23 ht-s_0))(not #f) #f)" -"(for-loop_8 result_55(hash-iterate-next ht_67 i_79))" +"(if(if(not((lambda x_37(not result_55)) phase_23 ht-s_0))(not #f) #f)" +"(for-loop_8 result_55(hash-iterate-next ht_66 i_80))" " result_55)))" " result_54)))))" " for-loop_8)" " #t" -"(hash-iterate-first ht_67)))))))" +"(hash-iterate-first ht_66)))))))" "(define-values" "(extract-scope-list)" "(lambda(stx_9)(begin(map2 generalize-scope(set->list(syntax-scope-set stx_9 0))))))" @@ -11922,28 +11953,28 @@ static const char *startup_source = "(lambda(stx_11)(begin(let-values(((s_155)(syntax-scope-set stx_11 0)))(generalize-scope(set-first s_155))))))" "(define-values" "(unpack-defined-syms)" -"(lambda(v_90)" +"(lambda(v_91)" "(begin" "(hash-copy" -"(let-values(((ht_69)(syntax-e$1 v_90)))" +"(let-values(((ht_68)(syntax-e$1 v_91)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_69)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_68)))" "((letrec-values(((for-loop_80)" -"(lambda(table_92 i_81)" +"(lambda(table_95 i_82)" "(begin" " 'for-loop" -"(if i_81" -"(let-values(((phase_24 ht-s_1)(hash-iterate-key+value ht_69 i_81)))" -"(let-values(((table_93)" -"(let-values(((table_94) table_92))" -"(let-values(((table_95)" +"(if i_82" +"(let-values(((phase_24 ht-s_1)(hash-iterate-key+value ht_68 i_82)))" +"(let-values(((table_96)" +"(let-values(((table_97) table_95))" +"(let-values(((table_98)" "(let-values()" -"(let-values(((key_39 val_17)" +"(let-values(((key_38 val_17)" "(let-values()" "(values" " phase_24" "(hash-copy" -"(let-values(((ht_70)" +"(let-values(((ht_69)" "(syntax-e$1" " ht-s_1)))" "(begin" @@ -11951,55 +11982,55 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_70)))" +"(check-in-hash ht_69)))" "((letrec-values(((for-loop_13)" -"(lambda(table_96" -" i_82)" +"(lambda(table_99" +" i_83)" "(begin" " 'for-loop" -"(if i_82" +"(if i_83" "(let-values(((sym_19" " id_9)" "(hash-iterate-key+value" -" ht_70" -" i_82)))" -"(let-values(((table_97)" -"(let-values(((table_98)" -" table_96))" -"(let-values(((table_99)" +" ht_69" +" i_83)))" +"(let-values(((table_100)" +"(let-values(((table_101)" +" table_99))" +"(let-values(((table_102)" "(let-values()" -"(let-values(((key_40" +"(let-values(((key_39" " val_26)" "(let-values()" "(values" " sym_19" " id_9))))" "(hash-set" -" table_98" -" key_40" +" table_101" +" key_39" " val_26)))))" "(values" -" table_99)))))" +" table_102)))))" "(if(not" " #f)" "(for-loop_13" -" table_97" +" table_100" "(hash-iterate-next" -" ht_70" -" i_82))" -" table_97)))" -" table_96)))))" +" ht_69" +" i_83))" +" table_100)))" +" table_99)))))" " for-loop_13)" " '#hash()" "(hash-iterate-first" -" ht_70)))))))))" -"(hash-set table_94 key_39 val_17)))))" -"(values table_95)))))" -"(if(not #f)(for-loop_80 table_93(hash-iterate-next ht_69 i_81)) table_93)))" -" table_92)))))" +" ht_69)))))))))" +"(hash-set table_97 key_38 val_17)))))" +"(values table_98)))))" +"(if(not #f)(for-loop_80 table_96(hash-iterate-next ht_68 i_82)) table_96)))" +" table_95)))))" " for-loop_80)" " '#hasheqv()" -"(hash-iterate-first ht_69))))))))" +"(hash-iterate-first ht_68))))))))" "(define-values(1/primitive-table) primitive-table)" "(define-values(1/primitive->compiled-position) primitive->compiled-position)" "(define-values(1/compiled-position->primitive) compiled-position->primitive)" @@ -12063,13 +12094,13 @@ static const char *startup_source = "(lambda(r_26 proc_2)" "(begin" "(let-values(((lock-box_0)(module-registry-lock-box r_26)))" -"((letrec-values(((loop_74)" +"((letrec-values(((loop_66)" "(lambda()" "(begin" " 'loop" "(let-values(((v_31)(unbox lock-box_0)))" -"(if(let-values(((or-part_72)(not v_31)))" -"(if or-part_72 or-part_72(sync/timeout 0(car v_31)(cdr v_31))))" +"(if(let-values(((or-part_77)(not v_31)))" +"(if or-part_77 or-part_77(sync/timeout 0(car v_31)(cdr v_31))))" "(let-values()" "(let-values(((sema_0)(make-semaphore)))" "(let-values(((lock_0)(cons(semaphore-peek-evt sema_0)(current-thread))))" @@ -12078,12 +12109,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_74)))))" +"(let-values()(lambda()(loop_66)))))" "(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_74))))))))))" -" loop_74))))))" +"(let-values()(begin(sync(car v_31)(cdr v_31))(loop_66))))))))))" +" loop_66))))))" "(define-values" "(struct:namespace" " namespace1.1" @@ -12114,6 +12145,7 @@ static const char *startup_source = " 0" " #f" "(list" +"(cons prop:authentic #t)" "(cons" " prop:custom-write" "(lambda(ns_0 port_9 mode_9)" @@ -12166,7 +12198,18 @@ static const char *startup_source = "(let-values(((struct:_32 make-_32 ?_32 -ref_32 -set!_32)" "(let-values()" "(let-values()" -"(make-struct-type 'definitions #f 2 0 #f null(current-inspector) #f '(0 1) #f 'definitions)))))" +"(make-struct-type" +" 'definitions" +" #f" +" 2" +" 0" +" #f" +"(list(cons prop:authentic #t))" +"(current-inspector)" +" #f" +" '(0 1)" +" #f" +" 'definitions)))))" "(values" " struct:_32" " make-_32" @@ -12203,8 +12246,8 @@ static const char *startup_source = "(make-bulk-binding-registry))" "(make-small-hasheq)" "(if share-from-ns_0" -"(let-values(((or-part_138)(namespace-root-namespace share-from-ns_0)))" -"(if or-part_138 or-part_138 share-from-ns_0))" +"(let-values(((or-part_131)(namespace-root-namespace share-from-ns_0)))" +"(if or-part_131 or-part_131 share-from-ns_0))" " #f)" " #f" "(make-inspector(current-code-inspector))" @@ -12221,10 +12264,10 @@ static const char *startup_source = "(1/current-namespace)" "(make-parameter" "(make-namespace)" -"(lambda(v_69)" +"(lambda(v_71)" "(begin" -" (if (1/namespace? v_69) (void) (let-values () (raise-argument-error 'current-namespace \"namespace?\" v_69)))" -" v_69))))" +" (if (1/namespace? v_71) (void) (let-values () (raise-argument-error 'current-namespace \"namespace?\" v_71)))" +" v_71))))" "(define-values" "(namespace-get-root-expand-ctx)" "(lambda(ns_2)(begin(force(unbox(namespace-root-expand-ctx ns_2))))))" @@ -12238,38 +12281,38 @@ static const char *startup_source = "(namespace->module)" "(lambda(ns_5 name_17)" "(begin" -"(let-values(((or-part_139)(small-hash-ref(namespace-submodule-declarations ns_5) name_17 #f)))" -"(if or-part_139" -" or-part_139" +"(let-values(((or-part_132)(small-hash-ref(namespace-submodule-declarations ns_5) name_17 #f)))" +"(if or-part_132" +" or-part_132" "(hash-ref(module-registry-declarations(namespace-module-registry$1 ns_5)) name_17 #f))))))" "(define-values" "(namespace->namespace-at-phase)" "(lambda(ns_6 phase_26)" "(begin" -"(let-values(((or-part_140)(small-hash-ref(namespace-phase-to-namespace ns_6) phase_26 #f)))" -"(if or-part_140" -" or-part_140" +"(let-values(((or-part_133)(small-hash-ref(namespace-phase-to-namespace ns_6) phase_26 #f)))" +"(if or-part_133" +" or-part_133" "(let-values(((p-ns_0)" -"(let-values(((the-struct_34) ns_6))" -"(if(1/namespace? the-struct_34)" +"(let-values(((the-struct_32) ns_6))" +"(if(1/namespace? the-struct_32)" "(let-values(((phase23_0) phase_26))" "(namespace1.1" -"(namespace-mpi the-struct_34)" -"(namespace-source-name the-struct_34)" -"(namespace-root-expand-ctx the-struct_34)" +"(namespace-mpi the-struct_32)" +"(namespace-source-name the-struct_32)" +"(namespace-root-expand-ctx the-struct_32)" " phase23_0" -"(namespace-0-phase the-struct_34)" -"(namespace-phase-to-namespace the-struct_34)" -"(namespace-phase-level-to-definitions the-struct_34)" -"(namespace-module-registry$1 the-struct_34)" -"(namespace-bulk-binding-registry the-struct_34)" -"(namespace-submodule-declarations the-struct_34)" -"(namespace-root-namespace the-struct_34)" -"(namespace-declaration-inspector the-struct_34)" -"(namespace-inspector the-struct_34)" -"(namespace-available-module-instances the-struct_34)" -"(namespace-module-instances the-struct_34)))" -" (raise-argument-error 'struct-copy \"namespace?\" the-struct_34)))))" +"(namespace-0-phase the-struct_32)" +"(namespace-phase-to-namespace the-struct_32)" +"(namespace-phase-level-to-definitions the-struct_32)" +"(namespace-module-registry$1 the-struct_32)" +"(namespace-bulk-binding-registry the-struct_32)" +"(namespace-submodule-declarations the-struct_32)" +"(namespace-root-namespace the-struct_32)" +"(namespace-declaration-inspector the-struct_32)" +"(namespace-inspector the-struct_32)" +"(namespace-available-module-instances the-struct_32)" +"(namespace-module-instances the-struct_32)))" +" (raise-argument-error 'struct-copy \"namespace?\" the-struct_32)))))" "(begin(small-hash-set!(namespace-phase-to-namespace ns_6) phase_26 p-ns_0) p-ns_0)))))))" "(define-values" "(namespace->name)" @@ -12289,9 +12332,9 @@ static const char *startup_source = "(lambda(ns_8 phase-level_1)" "(begin" "(let-values(((d_8)(small-hash-ref(namespace-phase-level-to-definitions ns_8) phase-level_1 #f)))" -"(let-values(((or-part_141) d_8))" -"(if or-part_141" -" or-part_141" +"(let-values(((or-part_134) d_8))" +"(if or-part_134" +" or-part_134" "(let-values()" "(let-values(((p-ns_1)" "(namespace->namespace-at-phase ns_8(phase+(namespace-0-phase ns_8) phase-level_1))))" @@ -12373,16 +12416,16 @@ static const char *startup_source = "(begin" " 'syntax->list" "(let-values(((l_46)" -"((letrec-values(((loop_75)" +"((letrec-values(((loop_74)" "(lambda(s_1)" "(begin" " 'loop" "(if(pair? s_1)" -"(let-values()(cons(car s_1)(loop_75(cdr s_1))))" +"(let-values()(cons(car s_1)(loop_74(cdr s_1))))" "(if(syntax?$1 s_1)" -"(let-values()(loop_75(syntax-e$1 s_1)))" +"(let-values()(loop_74(syntax-e$1 s_1)))" "(let-values() s_1)))))))" -" loop_75)" +" loop_74)" " s_0)))" "(if(list? l_46) l_46 #f)))))" "(define-values(missing$1)(gensym))" @@ -12399,8 +12442,8 @@ static const char *startup_source = " id1_0" "(if(identifier? old-stx_0)" " old-stx_0" -"(let-values(((v_91)(syntax-e/no-taint old-stx_0)))" -"(if(pair? v_91)(car v_91) #f))))))" +"(let-values(((v_92)(syntax-e/no-taint old-stx_0)))" +"(if(pair? v_92)(car v_92) #f))))))" "(let-values()" "(let-values(((old-props_0)(syntax-props old-stx_0)))" "(if(zero?(hash-count old-props_0))" @@ -12424,19 +12467,19 @@ static const char *startup_source = "(if(eq? old-origin_0 missing$1)" "(list id_10)" "(cons id_10 old-origin_0))))" -"(let-values(((the-struct_35) new-stx_0))" -"(if(syntax?$1 the-struct_35)" +"(let-values(((the-struct_33) new-stx_0))" +"(if(syntax?$1 the-struct_33)" "(let-values(((props7_1)(hash-set old-props_0 'origin origin_0)))" "(syntax1.1" -"(syntax-content the-struct_35)" -"(syntax-scopes the-struct_35)" -"(syntax-shifted-multi-scopes the-struct_35)" -"(syntax-scope-propagations+tamper the-struct_35)" -"(syntax-mpi-shifts the-struct_35)" -"(syntax-srcloc the-struct_35)" +"(syntax-content the-struct_33)" +"(syntax-scopes the-struct_33)" +"(syntax-shifted-multi-scopes the-struct_33)" +"(syntax-scope-propagations+tamper the-struct_33)" +"(syntax-mpi-shifts the-struct_33)" +"(syntax-srcloc the-struct_33)" " props7_1" -"(syntax-inspector the-struct_35)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_35))))))" +"(syntax-inspector the-struct_33)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_33))))))" "(let-values()" "(let-values(((the-struct_4) new-stx_0))" "(if(syntax?$1 the-struct_4)" @@ -12464,21 +12507,21 @@ static const char *startup_source = "(hash-count old-props-with-origin_0)" "(hash-count new-props_0))" "(let-values()" -"(let-values(((ht_71) old-props-with-origin_0))" +"(let-values(((ht_70) old-props-with-origin_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_71)))" +"(let-values()(check-in-immutable-hash ht_70)))" "((letrec-values(((for-loop_81)" -"(lambda(new-props_1 i_83)" +"(lambda(new-props_1 i_84)" "(begin" " 'for-loop" -"(if i_83" -"(let-values(((k_17 v_92)" +"(if i_84" +"(let-values(((k_17 v_93)" "(unsafe-immutable-hash-iterate-key+value" -" ht_71" -" i_83)))" +" ht_70" +" i_84)))" "(let-values(((new-props_2)" "(let-values(((new-props_3)" " new-props_1))" @@ -12495,39 +12538,39 @@ static const char *startup_source = "(if(eq?" " new-v_0" " missing$1)" -" v_92" +" v_93" "(cons/preserve" " new-v_0" -" v_92)))))))" +" v_93)))))))" "(values" " new-props_4)))))" "(if(not #f)" "(for-loop_81" " new-props_2" "(unsafe-immutable-hash-iterate-next" -" ht_71" -" i_83))" +" ht_70" +" i_84))" " new-props_2)))" " new-props_1)))))" " for-loop_81)" " new-props_0" -"(unsafe-immutable-hash-iterate-first ht_71)))))" +"(unsafe-immutable-hash-iterate-first ht_70)))))" "(let-values()" -"(let-values(((ht_72) new-props_0))" +"(let-values(((ht_71) new-props_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_72)))" +"(let-values()(check-in-immutable-hash ht_71)))" "((letrec-values(((for-loop_82)" -"(lambda(old-props_1 i_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_72" -" i_84)))" +" ht_71" +" i_85)))" "(let-values(((old-props_2)" "(let-values(((old-props_3)" " old-props_1))" @@ -12554,29 +12597,29 @@ static const char *startup_source = "(for-loop_82" " old-props_2" "(unsafe-immutable-hash-iterate-next" -" ht_72" -" i_84))" +" ht_71" +" i_85))" " old-props_2)))" " old-props_1)))))" " for-loop_82)" " old-props-with-origin_0" -"(unsafe-immutable-hash-iterate-first ht_72))))))))" -"(let-values(((the-struct_36) new-stx_0))" -"(if(syntax?$1 the-struct_36)" +"(unsafe-immutable-hash-iterate-first ht_71))))))))" +"(let-values(((the-struct_34) new-stx_0))" +"(if(syntax?$1 the-struct_34)" "(let-values(((props9_0) updated-props_0))" "(syntax1.1" -"(syntax-content the-struct_36)" -"(syntax-scopes the-struct_36)" -"(syntax-shifted-multi-scopes the-struct_36)" -"(syntax-scope-propagations+tamper the-struct_36)" -"(syntax-mpi-shifts the-struct_36)" -"(syntax-srcloc the-struct_36)" +"(syntax-content the-struct_34)" +"(syntax-scopes the-struct_34)" +"(syntax-shifted-multi-scopes the-struct_34)" +"(syntax-scope-propagations+tamper the-struct_34)" +"(syntax-mpi-shifts the-struct_34)" +"(syntax-srcloc the-struct_34)" " props9_0" -"(syntax-inspector the-struct_36)))" +"(syntax-inspector the-struct_34)))" "(raise-argument-error" " 'struct-copy" " \"syntax?\"" -" the-struct_36)))))))))))))))))))" +" the-struct_34)))))))))))))))))))" "(case-lambda" "((new-stx_1 old-stx_1)(begin 'syntax-track-origin(syntax-track-origin5_0 new-stx_1 old-stx_1 #f #f)))" "((new-stx_2 old-stx_2 id1_1)(syntax-track-origin5_0 new-stx_2 old-stx_2 id1_1 #t)))))" @@ -12584,23 +12627,23 @@ static const char *startup_source = "(cons/preserve)" "(lambda(a_34 b_48)" "(begin" -"(if(let-values(((or-part_142)(preserved-property-value? a_34)))" -"(if or-part_142 or-part_142(preserved-property-value? b_48)))" +"(if(let-values(((or-part_69)(preserved-property-value? a_34)))" +"(if or-part_69 or-part_69(preserved-property-value? b_48)))" "(preserved-property-value1.1(cons(plain-property-value a_34)(plain-property-value b_48)))" "(cons a_34 b_48)))))" "(define-values" "(syntax-track-origin*)" "(lambda(old-stxes_0 new-stx_3)" "(begin" -"(let-values(((lst_58) old-stxes_0))" +"(let-values(((lst_59) old-stxes_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_58)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_59)))" "((letrec-values(((for-loop_83)" -"(lambda(new-stx_4 lst_59)" +"(lambda(new-stx_4 lst_60)" "(begin" " 'for-loop" -"(if(pair? lst_59)" -"(let-values(((old-stx_3)(unsafe-car lst_59))((rest_26)(unsafe-cdr lst_59)))" +"(if(pair? lst_60)" +"(let-values(((old-stx_3)(unsafe-car lst_60))((rest_26)(unsafe-cdr lst_60)))" "(let-values(((new-stx_5)" "(let-values(((new-stx_6) new-stx_4))" "(let-values(((new-stx_7)" @@ -12611,7 +12654,7 @@ static const char *startup_source = " new-stx_4)))))" " for-loop_83)" " new-stx_3" -" lst_58))))))" +" lst_59))))))" "(define-values" "(1/struct:exn:fail:syntax make-exn:fail:syntax$1 1/exn:fail:syntax? 1/exn:fail:syntax-exprs)" "(let-values(((struct:_27 make-_27 ?_27 -ref_27 -set!_27)" @@ -12754,63 +12797,63 @@ static const char *startup_source = "(raise-unbound-syntax-error23_0 given-name_11 message_11 expr13_1 #f #f #f #t #f #f #f)))))" "(define-values" "(do-raise-syntax-error)" -"(lambda(who_8 exn:fail:syntax_0 given-name_12 message_12 expr_8 sub-expr_6 extra-sources_4 message-suffix_2)" +"(lambda(who_9 exn:fail:syntax_0 given-name_12 message_12 expr_8 sub-expr_6 extra-sources_4 message-suffix_2)" "(begin" "(let-values((()" "(begin" "(if((lambda(x_12)" -"(let-values(((or-part_143)(not x_12)))(if or-part_143 or-part_143(symbol? x_12))))" +"(let-values(((or-part_135)(not x_12)))(if or-part_135 or-part_135(symbol? x_12))))" " given-name_12)" "(void)" -" (let-values () (raise-argument-error who_8 \"(or/c symbol? #f)\" given-name_12)))" +" (let-values () (raise-argument-error who_9 \"(or/c symbol? #f)\" given-name_12)))" "(values))))" "(let-values((()" "(begin" "(if(string? message_12)" "(void)" -" (let-values () (raise-argument-error who_8 \"string?\" message_12)))" +" (let-values () (raise-argument-error who_9 \"string?\" message_12)))" "(values))))" "(let-values((()" "(begin" "(if(if(list? extra-sources_4)(andmap2 syntax?$1 extra-sources_4) #f)" "(void)" -" (let-values () (raise-argument-error who_8 \"(listof syntax?)\" extra-sources_4)))" +" (let-values () (raise-argument-error who_9 \"(listof syntax?)\" extra-sources_4)))" "(values))))" "(let-values((()" "(begin" "(if(string? message-suffix_2)" "(void)" -" (let-values () (raise-argument-error who_8 \"string?\" message-suffix_2)))" +" (let-values () (raise-argument-error who_9 \"string?\" message-suffix_2)))" "(values))))" "(let-values(((name_27)" "(format" " \"~a\"" -"(let-values(((or-part_144) given-name_12))" -"(if or-part_144" -" or-part_144" -"(let-values(((or-part_145)(extract-form-name expr_8)))" -"(if or-part_145 or-part_145 '?)))))))" +"(let-values(((or-part_136) given-name_12))" +"(if or-part_136" +" or-part_136" +"(let-values(((or-part_137)(extract-form-name expr_8)))" +"(if or-part_137 or-part_137 '?)))))))" "(let-values(((at-message_0)" -"(let-values(((or-part_138)" +"(let-values(((or-part_131)" "(if sub-expr_6" "(if(error-print-source-location)" " (format \"\\n at: ~.s\" (syntax->datum$1 (datum->syntax$1 #f sub-expr_6)))" " #f)" " #f)))" -" (if or-part_138 or-part_138 \"\"))))" +" (if or-part_131 or-part_131 \"\"))))" "(let-values(((in-message_0)" -"(let-values(((or-part_146)" +"(let-values(((or-part_138)" "(if expr_8" "(if(error-print-source-location)" " (format \"\\n in: ~.s\" (syntax->datum$1 (datum->syntax$1 #f expr_8)))" " #f)" " #f)))" -" (if or-part_146 or-part_146 \"\"))))" +" (if or-part_138 or-part_138 \"\"))))" "(let-values(((src-loc-str_0)" "(let-values(((or-part_54)" "(if(error-print-source-location)" -"(let-values(((or-part_147)(extract-source-location sub-expr_6)))" -"(if or-part_147 or-part_147(extract-source-location expr_8)))" +"(let-values(((or-part_139)(extract-source-location sub-expr_6)))" +"(if or-part_139 or-part_139(extract-source-location expr_8)))" " #f)))" " (if or-part_54 or-part_54 \"\"))))" "(raise" @@ -12819,11 +12862,11 @@ static const char *startup_source = "(current-continuation-marks)" "(map2" " syntax-taint$1" -"(if(let-values(((or-part_148) sub-expr_6))(if or-part_148 or-part_148 expr_8))" +"(if(let-values(((or-part_140) sub-expr_6))(if or-part_140 or-part_140 expr_8))" "(cons" "(datum->syntax$1" " #f" -"(let-values(((or-part_149) sub-expr_6))(if or-part_149 or-part_149 expr_8)))" +"(let-values(((or-part_141) sub-expr_6))(if or-part_141 or-part_141 expr_8)))" " extra-sources_4)" " extra-sources_4)))))))))))))))" "(define-values" @@ -12893,7 +12936,7 @@ static const char *startup_source = " 20" " 0" " #f" -" null" +"(list(cons prop:authentic #t))" "(current-inspector)" " #f" " '(0 1 2 3 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19)" @@ -12943,7 +12986,7 @@ static const char *startup_source = " 6" " 0" " #f" -" null" +"(list(cons prop:authentic #t))" " #f" " #f" " '(0 1 2 3 4 5)" @@ -13073,7 +13116,7 @@ static const char *startup_source = " 7" " 0" " #f" -" null" +"(list(cons prop:authentic #t))" "(current-inspector)" " #f" " '(0 1 3 6)" @@ -13109,12 +13152,12 @@ static const char *startup_source = "(let-values(((phase_27) 0))" "(let-values(((name_28)(1/module-path-index-resolve name-mpi_0)))" "(let-values(((m-ns_1)" -"(let-values(((the-struct_37)" +"(let-values(((the-struct_35)" "(let-values(((ns160_0) ns_20)" "((root-expand-ctx161_0) root-expand-ctx_1)" "((temp162_0) #f))" "(new-namespace9.1 temp162_0 #t root-expand-ctx161_0 #t ns160_0 #t))))" -"(if(1/namespace? the-struct_37)" +"(if(1/namespace? the-struct_35)" "(let-values(((mpi152_0) name-mpi_0)" "((source-name153_0)(resolved-module-path-root-name name_28))" "((phase154_0) phase_27)" @@ -13129,20 +13172,20 @@ static const char *startup_source = "(namespace1.1" " mpi152_0" " source-name153_0" -"(namespace-root-expand-ctx the-struct_37)" +"(namespace-root-expand-ctx the-struct_35)" " phase154_0" " 0-phase155_0" -"(namespace-phase-to-namespace the-struct_37)" -"(namespace-phase-level-to-definitions the-struct_37)" -"(namespace-module-registry$1 the-struct_37)" -"(namespace-bulk-binding-registry the-struct_37)" +"(namespace-phase-to-namespace the-struct_35)" +"(namespace-phase-level-to-definitions the-struct_35)" +"(namespace-module-registry$1 the-struct_35)" +"(namespace-bulk-binding-registry the-struct_35)" " submodule-declarations156_0" -"(namespace-root-namespace the-struct_37)" +"(namespace-root-namespace the-struct_35)" " declaration-inspector159_0" -"(namespace-inspector the-struct_37)" +"(namespace-inspector the-struct_35)" " available-module-instances157_0" " module-instances158_0))" -" (raise-argument-error 'struct-copy \"namespace?\" the-struct_37)))))" +" (raise-argument-error 'struct-copy \"namespace?\" the-struct_35)))))" "(let-values((()" "(begin" "(small-hash-set!(namespace-phase-to-namespace m-ns_1) phase_27 m-ns_1)" @@ -13250,9 +13293,9 @@ static const char *startup_source = " (raise-arguments-error 'module \"cannot redeclare cross-phase persistent module\" \"module name\" mod-name_5))" "(void))" "(if(if prior-mi_1" -"(let-values(((or-part_150)(module-instance-attached? prior-mi_1)))" -"(if or-part_150" -" or-part_150" +"(let-values(((or-part_142)(module-instance-attached? prior-mi_1)))" +"(if or-part_142" +" or-part_142" "(not" "(inspector-superior?" "(current-code-inspector)" @@ -13263,7 +13306,7 @@ static const char *startup_source = "(void))))))" "(define-values" "(raise-unknown-module-error)" -" (lambda (who_9 mod-name_6) (begin (raise-arguments-error who_9 \"unknown module\" \"module name\" mod-name_6))))" +" (lambda (who_10 mod-name_6) (begin (raise-arguments-error who_10 \"unknown module\" \"module name\" mod-name_6))))" "(define-values" "(namespace->module-linklet-info)" "(lambda(ns_22 name_29 phase-level_12)" @@ -13292,21 +13335,21 @@ static const char *startup_source = "(let-values(((unavailable-callback_0)(if unavailable-callback66_0 unavailable-callback63_0 void)))" "(let-values()" "(let-values(((mi_0)" -"(let-values(((or-part_151)" +"(let-values(((or-part_143)" "(hash-ref" "(hash-ref(namespace-module-instances ns_23) 0-phase_1 '#hasheq())" " name_30" " #f)))" -"(if or-part_151" -" or-part_151" -"(let-values(((or-part_152)" +"(if or-part_143" +" or-part_143" +"(let-values(((or-part_144)" "(let-values(((c-ns_0)" -"(let-values(((or-part_153)" +"(let-values(((or-part_145)" "(namespace-root-namespace ns_23)))" -"(if or-part_153 or-part_153 ns_23))))" +"(if or-part_145 or-part_145 ns_23))))" "(hash-ref(namespace-module-instances c-ns_0) name_30 #f))))" -"(if or-part_152" -" or-part_152" +"(if or-part_144" +" or-part_144" "(if complain-on-failure?_0" " (error \"no module instance found:\" name_30 0-phase_1)" " #f)))))))" @@ -13318,8 +13361,8 @@ static const char *startup_source = "(lambda(ns_24 name_31 0-phase_2 m_4 existing-m-ns_0)" "(begin" "(let-values(((m-ns_3)" -"(let-values(((the-struct_38) ns_24))" -"(if(1/namespace? the-struct_38)" +"(let-values(((the-struct_36) ns_24))" +"(if(1/namespace? the-struct_36)" "(let-values(((mpi172_0)(namespace-mpi existing-m-ns_0))" "((source-name173_0)(namespace-source-name existing-m-ns_0))" "((root-expand-ctx174_0)(box(unbox(namespace-root-expand-ctx existing-m-ns_0))))" @@ -13340,15 +13383,15 @@ static const char *startup_source = " 0-phase176_0" " phase-to-namespace177_0" " phase-level-to-definitions178_0" -"(namespace-module-registry$1 the-struct_38)" -"(namespace-bulk-binding-registry the-struct_38)" -"(namespace-submodule-declarations the-struct_38)" -"(namespace-root-namespace the-struct_38)" +"(namespace-module-registry$1 the-struct_36)" +"(namespace-bulk-binding-registry the-struct_36)" +"(namespace-submodule-declarations the-struct_36)" +"(namespace-root-namespace the-struct_36)" " declaration-inspector179_0" " inspector180_0" -"(namespace-available-module-instances the-struct_38)" -"(namespace-module-instances the-struct_38)))" -" (raise-argument-error 'struct-copy \"namespace?\" the-struct_38)))))" +"(namespace-available-module-instances the-struct_36)" +"(namespace-module-instances the-struct_36)))" +" (raise-argument-error 'struct-copy \"namespace?\" the-struct_36)))))" "(let-values(((mi_1)(make-module-instance m-ns_3 m_4)))" "(if(module-cross-phase-persistent? m_4)" "(let-values()" @@ -13365,7 +13408,7 @@ static const char *startup_source = "(namespace->definitions existing-m-ns_0 1))" "(hash-set!" "(namespace-module-instances" -"(let-values(((or-part_154)(namespace-root-namespace ns_24)))(if or-part_154 or-part_154 ns_24)))" +"(let-values(((or-part_146)(namespace-root-namespace ns_24)))(if or-part_146 or-part_146 ns_24)))" " name_31" " mi_1)" "(small-hash-set!(module-instance-phase-level-to-state mi_1) 0 'started)))" @@ -13384,10 +13427,10 @@ static const char *startup_source = "(small-hash-set!(module-instance-phase-level-to-state mi_1) 0 'started)" "(values))))" "(let-values(((at-phase_2)" -"(let-values(((or-part_155)" +"(let-values(((or-part_147)" "(hash-ref(namespace-module-instances ns_24) 0-phase_2 #f)))" -"(if or-part_155" -" or-part_155" +"(if or-part_147" +" or-part_147" "(let-values(((at-phase_3)(make-hasheq)))" "(begin" "(hash-set!(namespace-module-instances ns_24) 0-phase_2 at-phase_3)" @@ -13398,13 +13441,13 @@ static const char *startup_source = "(lambda(ns_25 name_32 0-phase_3 m_5 mpi_16)" "(begin" "(let-values(((m-ns_4)" -"(let-values(((the-struct_27) ns_25))" -"(if(1/namespace? the-struct_27)" +"(let-values(((the-struct_37) ns_25))" +"(if(1/namespace? the-struct_37)" "(let-values(((mpi181_0) mpi_16)" "((source-name182_0)" -"(let-values(((or-part_156)(module-source-name m_5)))" -"(if or-part_156" -" or-part_156" +"(let-values(((or-part_148)(module-source-name m_5)))" +"(if or-part_148" +" or-part_148" "(resolved-module-path-root-name(1/module-path-index-resolve mpi_16)))))" "((root-expand-ctx183_0)(box #f))" "((phase184_0) 0-phase_3)" @@ -13421,24 +13464,24 @@ static const char *startup_source = " 0-phase185_0" " phase-to-namespace186_0" " phase-level-to-definitions187_0" -"(namespace-module-registry$1 the-struct_27)" -"(namespace-bulk-binding-registry the-struct_27)" -"(namespace-submodule-declarations the-struct_27)" -"(namespace-root-namespace the-struct_27)" +"(namespace-module-registry$1 the-struct_37)" +"(namespace-bulk-binding-registry the-struct_37)" +"(namespace-submodule-declarations the-struct_37)" +"(namespace-root-namespace the-struct_37)" " declaration-inspector188_0" " inspector189_0" -"(namespace-available-module-instances the-struct_27)" -"(namespace-module-instances the-struct_27)))" -" (raise-argument-error 'struct-copy \"namespace?\" the-struct_27)))))" +"(namespace-available-module-instances the-struct_37)" +"(namespace-module-instances the-struct_37)))" +" (raise-argument-error 'struct-copy \"namespace?\" the-struct_37)))))" "(let-values((()(begin(small-hash-set!(namespace-phase-to-namespace m-ns_4) 0-phase_3 m-ns_4)(values))))" "(let-values(((mi_2)(make-module-instance m-ns_4 m_5)))" "(begin" "(if(module-cross-phase-persistent? m_5)" "(hash-set!(namespace-module-instances ns_25) name_32 mi_2)" "(let-values(((at-phase_4)" -"(let-values(((or-part_157)(hash-ref(namespace-module-instances ns_25) 0-phase_3 #f)))" -"(if or-part_157" -" or-part_157" +"(let-values(((or-part_149)(hash-ref(namespace-module-instances ns_25) 0-phase_3 #f)))" +"(if or-part_149" +" or-part_149" "(let-values(((at-phase_5)(make-hasheq)))" "(begin" "(hash-set!(namespace-module-instances ns_25) 0-phase_3 at-phase_5)" @@ -13553,7 +13596,7 @@ static const char *startup_source = "(begin" " 'instantiate!" "(let-values(((mi_6)" -"(let-values(((or-part_158)" +"(let-values(((or-part_150)" "(let-values(((ns205_0) ns_30)" "((name206_0) name_34)" "((instance-phase207_0)" @@ -13568,8 +13611,8 @@ static const char *startup_source = " ns205_0" " name206_0" " instance-phase207_0))))" -"(if or-part_158" -" or-part_158" +"(if or-part_150" +" or-part_150" "(namespace-create-module-instance!" " ns_30" " name_34" @@ -13595,8 +13638,8 @@ static const char *startup_source = "(instantiate!_0" " 0" " 0" -"(let-values(((or-part_159)(namespace-root-namespace ns_29)))" -"(if or-part_159 or-part_159 ns_29))))" +"(let-values(((or-part_151)(namespace-root-namespace ns_29)))" +"(if or-part_151 or-part_151 ns_29))))" "(let-values()(instantiate!_0 instance-phase_0 run-phase_0 ns_29)))))))))))))))))))" "(define-values" "(namespace-module-visit!104.1)" @@ -13667,17 +13710,17 @@ static const char *startup_source = "(let-values(((m-ns_5)(module-instance-namespace mi_7)))" "(let-values(((instance-phase_4)(namespace-0-phase m-ns_5)))" "(let-values(((run-phase-level_0)(phase- run-phase_2 instance-phase_4)))" -"(if(if(let-values(((or-part_160) skip-run?_1))" -"(if or-part_160" -" or-part_160" +"(if(if(let-values(((or-part_152) skip-run?_1))" +"(if or-part_152" +" or-part_152" "(eq?" " 'started" "(small-hash-ref" "(module-instance-phase-level-to-state mi_7)" " run-phase-level_0" " #f))))" -"(let-values(((or-part_161)(not otherwise-available?_1)))" -"(if or-part_161 or-part_161(module-instance-made-available? mi_7)))" +"(let-values(((or-part_153)(not otherwise-available?_1)))" +"(if or-part_153 or-part_153(module-instance-made-available? mi_7)))" " #f)" "(void)" "(let-values()" @@ -13696,20 +13739,20 @@ static const char *startup_source = "(set-module-instance-shifted-requires!" " mi_7" "(reverse$1" -"(let-values(((lst_60)(module-requires m_9)))" +"(let-values(((lst_61)(module-requires m_9)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_60)))" +"(let-values()(check-list lst_61)))" "((letrec-values(((for-loop_84)" -"(lambda(fold-var_43 lst_61)" +"(lambda(fold-var_43 lst_62)" "(begin" " 'for-loop" -"(if(pair? lst_61)" +"(if(pair? lst_62)" "(let-values(((phase+mpis_0)" -"(unsafe-car lst_61))" +"(unsafe-car lst_62))" "((rest_27)" -"(unsafe-cdr lst_61)))" +"(unsafe-cdr lst_62)))" "(let-values(((fold-var_44)" "(let-values(((fold-var_45)" " fold-var_43))" @@ -13721,7 +13764,7 @@ static const char *startup_source = "(car" " phase+mpis_0)" "(reverse$1" -"(let-values(((lst_62)" +"(let-values(((lst_63)" "(cdr" " phase+mpis_0)))" "(begin" @@ -13730,20 +13773,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_62)))" +" lst_63)))" "((letrec-values(((for-loop_85)" "(lambda(fold-var_47" -" lst_63)" +" lst_64)" "(begin" " 'for-loop" "(if(pair?" -" lst_63)" +" lst_64)" "(let-values(((req-mpi_0)" "(unsafe-car" -" lst_63))" +" lst_64))" "((rest_28)" "(unsafe-cdr" -" lst_63)))" +" lst_64)))" "(let-values(((fold-var_48)" "(let-values(((fold-var_49)" " fold-var_47))" @@ -13768,7 +13811,7 @@ static const char *startup_source = " fold-var_47)))))" " for-loop_85)" " null" -" lst_62))))))" +" lst_63))))))" " fold-var_45))))" "(values fold-var_46)))))" "(if(not #f)" @@ -13777,19 +13820,19 @@ static const char *startup_source = " fold-var_43)))))" " for-loop_84)" " null" -" lst_60)))))))" -"(let-values(((lst_64)(module-instance-shifted-requires mi_7)))" +" lst_61)))))))" +"(let-values(((lst_65)(module-instance-shifted-requires mi_7)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_64)))" +"(let-values()(check-list lst_65)))" "((letrec-values(((for-loop_86)" -"(lambda(lst_65)" +"(lambda(lst_66)" "(begin" " 'for-loop" -"(if(pair? lst_65)" -"(let-values(((phase+mpis_1)(unsafe-car lst_65))" -"((rest_29)(unsafe-cdr lst_65)))" +"(if(pair? lst_66)" +"(let-values(((phase+mpis_1)(unsafe-car lst_66))" +"((rest_29)(unsafe-cdr lst_66)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -13800,7 +13843,7 @@ static const char *startup_source = "(car" " phase+mpis_1)))" "(begin" -"(let-values(((lst_66)" +"(let-values(((lst_67)" "(cdr" " phase+mpis_1)))" "(begin" @@ -13809,19 +13852,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_66)))" +" lst_67)))" "((letrec-values(((for-loop_87)" -"(lambda(lst_67)" +"(lambda(lst_68)" "(begin" " 'for-loop" "(if(pair?" -" lst_67)" +" lst_68)" "(let-values(((req-mpi_1)" "(unsafe-car" -" lst_67))" +" lst_68))" "((rest_30)" "(unsafe-cdr" -" lst_67)))" +" lst_68)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -13868,14 +13911,14 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_87)" -" lst_66)))" +" lst_67)))" "(void))))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_86 rest_29)(values))))" "(values))))))" " for-loop_86)" -" lst_64)))" +" lst_65)))" "(void)" "(if(label-phase? instance-phase_4)" "(void)" @@ -13888,7 +13931,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_88)" +"((letrec-values(((for-loop_71)" "(lambda(pos_10)" "(begin" " 'for-loop" @@ -13999,10 +14042,10 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_88(+ pos_10 inc_3))" +"(for-loop_71(+ pos_10 inc_3))" "(values))))" "(values))))))" -" for-loop_88)" +" for-loop_71)" " start_13)))" "(void))))" "(if otherwise-available?_1" @@ -14042,7 +14085,7 @@ static const char *startup_source = "(registry-call-with-lock" "(namespace-module-registry$1 ns_37)" "(lambda()" -"((letrec-values(((loop_76)" +"((letrec-values(((loop_75)" "(lambda()" "(begin" " 'loop" @@ -14059,23 +14102,23 @@ static const char *startup_source = "(namespace-available-module-instances ns_37)" " run-phase_4" " null)" -"(let-values(((lst_68)(reverse$1 mis_0)))" +"(let-values(((lst_69)(reverse$1 mis_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_68)))" -"((letrec-values(((for-loop_89)" -"(lambda(lst_69)" +"(let-values()(check-list lst_69)))" +"((letrec-values(((for-loop_88)" +"(lambda(lst_70)" "(begin" " 'for-loop" -"(if(pair? lst_69)" +"(if(pair? lst_70)" "(let-values(((mi_8)" "(unsafe-car" -" lst_69))" +" lst_70))" "((rest_31)" "(unsafe-cdr" -" lst_69)))" +" lst_70)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -14103,14 +14146,14 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_89 rest_31)" +"(for-loop_88 rest_31)" "(values))))" "(values))))))" -" for-loop_89)" -" lst_68)))" +" for-loop_88)" +" lst_69)))" "(void)" -"(loop_76)))))))))" -" loop_76)))))))))))))" +"(loop_75)))))))))" +" loop_75)))))))))))))" "(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)))))" @@ -14175,15 +14218,15 @@ static const char *startup_source = "(lambda(requires_1)" "(begin" "(reverse$1" -"(let-values(((lst_70) requires_1))" +"(let-values(((lst_71) requires_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_70)))" -"((letrec-values(((for-loop_90)" -"(lambda(fold-var_51 lst_71)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_71)))" +"((letrec-values(((for-loop_89)" +"(lambda(fold-var_51 lst_72)" "(begin" " 'for-loop" -"(if(pair? lst_71)" -"(let-values(((phase+mpis_2)(unsafe-car lst_71))((rest_32)(unsafe-cdr lst_71)))" +"(if(pair? lst_72)" +"(let-values(((phase+mpis_2)(unsafe-car lst_72))((rest_32)(unsafe-cdr lst_72)))" "(let-values(((fold-var_52)" "(let-values(((fold-var_53) fold-var_51))" "(let-values(((fold-var_54)" @@ -14193,24 +14236,24 @@ static const char *startup_source = "(cons" "(car phase+mpis_2)" "(reverse$1" -"(let-values(((lst_72)(cdr phase+mpis_2)))" +"(let-values(((lst_73)(cdr phase+mpis_2)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_72)))" -"((letrec-values(((for-loop_91)" +"(let-values()(check-list lst_73)))" +"((letrec-values(((for-loop_90)" "(lambda(fold-var_55" -" lst_73)" +" lst_74)" "(begin" " 'for-loop" -"(if(pair? lst_73)" +"(if(pair? lst_74)" "(let-values(((req-mpi_2)" "(unsafe-car" -" lst_73))" +" lst_74))" "((rest_33)" "(unsafe-cdr" -" lst_73)))" +" lst_74)))" "(let-values(((fold-var_56)" "(let-values(((fold-var_57)" " fold-var_55))" @@ -14224,47 +14267,47 @@ static const char *startup_source = "(values" " fold-var_58)))))" "(if(not #f)" -"(for-loop_91" +"(for-loop_90" " fold-var_56" " rest_33)" " fold-var_56)))" " fold-var_55)))))" -" for-loop_91)" -" null" -" lst_72))))))" -" fold-var_53))))" -"(values fold-var_54)))))" -"(if(not #f)(for-loop_90 fold-var_52 rest_32) fold-var_52)))" -" fold-var_51)))))" " for-loop_90)" " null" -" lst_70)))))))" +" lst_73))))))" +" fold-var_53))))" +"(values fold-var_54)))))" +"(if(not #f)(for-loop_89 fold-var_52 rest_32) fold-var_52)))" +" fold-var_51)))))" +" for-loop_89)" +" null" +" lst_71)))))))" "(define-values" "(module-compute-access!)" "(lambda(m_10)" "(begin" "(let-values(((access_0)" -"(let-values(((ht_73)(module-provides m_10)))" +"(let-values(((ht_72)(module-provides m_10)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_73)))" -"((letrec-values(((for-loop_92)" -"(lambda(table_100 i_85)" +"(let-values()(check-in-hash ht_72)))" +"((letrec-values(((for-loop_91)" +"(lambda(table_103 i_86)" "(begin" " 'for-loop" -"(if i_85" +"(if i_86" "(let-values(((phase_31 at-phase_6)" -"(hash-iterate-key+value ht_73 i_85)))" -"(let-values(((table_101)" -"(let-values(((table_102) table_100))" -"(let-values(((table_103)" +"(hash-iterate-key+value ht_72 i_86)))" +"(let-values(((table_104)" +"(let-values(((table_105) table_103))" +"(let-values(((table_106)" "(let-values()" -"(let-values(((key_41 val_32)" +"(let-values(((key_40 val_32)" "(let-values()" "(values" " phase_31" -"(let-values(((ht_74)" +"(let-values(((ht_73)" " at-phase_6))" "(begin" "(if(variable-reference-from-unsafe?" @@ -14272,24 +14315,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_74)))" -"((letrec-values(((for-loop_93)" -"(lambda(table_104" -" i_86)" +" ht_73)))" +"((letrec-values(((for-loop_92)" +"(lambda(table_107" +" i_87)" "(begin" " 'for-loop" -"(if i_86" +"(if i_87" "(let-values(((sym_20" " binding/p_1)" "(hash-iterate-key+value" -" ht_74" -" i_86)))" -"(let-values(((table_105)" -"(let-values(((table_106)" -" table_104))" -"(let-values(((table_107)" +" ht_73" +" i_87)))" +"(let-values(((table_108)" +"(let-values(((table_109)" +" table_107))" +"(let-values(((table_110)" "(let-values()" -"(let-values(((key_42" +"(let-values(((key_41" " val_33)" "(let-values()" "(values" @@ -14301,36 +14344,36 @@ static const char *startup_source = " 'protected" " 'provided)))))" "(hash-set" -" table_106" -" key_42" +" table_109" +" key_41" " val_33)))))" "(values" -" table_107)))))" +" table_110)))))" "(if(not" " #f)" -"(for-loop_93" -" table_105" +"(for-loop_92" +" table_108" "(hash-iterate-next" -" ht_74" -" i_86))" -" table_105)))" -" table_104)))))" -" for-loop_93)" +" ht_73" +" i_87))" +" table_108)))" +" table_107)))))" +" for-loop_92)" " '#hash()" "(hash-iterate-first" -" ht_74))))))))" +" ht_73))))))))" "(hash-set" -" table_102" -" key_41" +" table_105" +" key_40" " val_32)))))" -"(values table_103)))))" +"(values table_106)))))" "(if(not #f)" -"(for-loop_92 table_101(hash-iterate-next ht_73 i_85))" -" table_101)))" -" table_100)))))" -" for-loop_92)" +"(for-loop_91 table_104(hash-iterate-next ht_72 i_86))" +" table_104)))" +" table_103)))))" +" for-loop_91)" " '#hasheqv()" -"(hash-iterate-first ht_73))))))" +"(hash-iterate-first ht_72))))))" "(begin(set-module-access! m_10 access_0) access_0)))))" "(define-values" "(binding->module-instance)" @@ -14397,13 +14440,13 @@ static const char *startup_source = "(if or-part_10 or-part_10(eq? a_35 'protected)))" "(let-values()" "(begin" -"(if(let-values(((or-part_162)" +"(if(let-values(((or-part_154)" "(inspector-superior?" "(let-values(((or-part_12)(syntax-inspector id_12)))" "(if or-part_12 or-part_12(current-code-inspector)))" "(namespace-inspector(module-instance-namespace mi_13)))))" -"(if or-part_162" -" or-part_162" +"(if or-part_154" +" or-part_154" "(if(module-binding-extra-inspector b_41)" "(inspector-superior?" "(module-binding-extra-inspector b_41)" @@ -14438,7 +14481,7 @@ static const char *startup_source = "(resolve+shift/extra-inspector)" "(lambda(id_13 phase_33 ns_43)" "(begin" -"((letrec-values(((loop_77)" +"((letrec-values(((loop_76)" "(lambda(id_14 in-s_1)" "(begin" " 'loop" @@ -14465,10 +14508,10 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((next-b_0)" -"(loop_77" +"(loop_76" " next-id_0" -"(let-values(((or-part_72) in-s_1))" -"(if or-part_72 or-part_72 id_14)))))" +"(let-values(((or-part_77) in-s_1))" +"(if or-part_77 or-part_77 id_14)))))" "(if(not next-b_0)" "(let-values() b_57)" "(if(if(module-binding? next-b_0)" @@ -14505,7 +14548,7 @@ static const char *startup_source = "(let-values() next-b_0))))))" " c1_22)" "(let-values() b_57))))))))" -" loop_77)" +" loop_76)" " id_13" " #f))))" "(define-values" @@ -14560,9 +14603,9 @@ static const char *startup_source = "(if(integer? v_26)" "(let-values()" "(lambda(t_34)" -"(let-values(((p_31)(ref_0 t_34 v_26)))" -"(if(if(procedure? p_31)(procedure-arity-includes? p_31 1) #f)" -" p_31" +"(let-values(((p_30)(ref_0 t_34 v_26)))" +"(if(if(procedure? p_30)(procedure-arity-includes? p_30 1) #f)" +" p_30" " (lambda (s_3) (error \"bad syntax:\" s_3))))))" "(let-values()(lambda(t_13) v_26)))))))))" "(define-values" @@ -14598,10 +14641,10 @@ static const char *startup_source = "(lambda(t_37)" "(begin" " 'set!-transformer-procedure" -"(let-values(((v_93)((set!-transformer-value t_37) t_37)))" -"(if(procedure-arity-includes? v_93 1) v_93(lambda(s_159)(v_93 t_37 s_159)))))))" +"(let-values(((v_94)((set!-transformer-value t_37) t_37)))" +"(if(procedure-arity-includes? v_94 1) v_94(lambda(s_159)(v_94 t_37 s_159)))))))" "(define-values(empty-env) '#hasheq())" -"(define-values(env-extend)(lambda(env_0 key_43 val_21)(begin(hash-set env_0 key_43 val_21))))" +"(define-values(env-extend)(lambda(env_0 key_42 val_21)(begin(hash-set env_0 key_42 val_21))))" "(define-values(variable)(gensym 'variable))" "(define-values" "(variable?)" @@ -14648,15 +14691,15 @@ static const char *startup_source = "(let-values(((or-part_21)(procedure? t_39)))" "(if or-part_21" " or-part_21" -"(let-values(((or-part_163)(1/set!-transformer? t_39)))" -"(if or-part_163 or-part_163(1/rename-transformer? t_39))))))))" +"(let-values(((or-part_155)(1/set!-transformer? t_39)))" +"(if or-part_155 or-part_155(1/rename-transformer? t_39))))))))" "(define-values" "(transformer->procedure)" -"(lambda(t_18)" +"(lambda(t_40)" "(begin" -"(if(1/set!-transformer? t_18)" -"(let-values()(1/set!-transformer-procedure t_18))" -"(if(1/rename-transformer? t_18)(let-values()(lambda(s_160) s_160))(let-values() t_18))))))" +"(if(1/set!-transformer? t_40)" +"(let-values()(1/set!-transformer-procedure t_40))" +"(if(1/rename-transformer? t_40)(let-values()(lambda(s_160) s_160))(let-values() t_40))))))" "(define-values" "(struct:core-form core-form9.1 core-form? core-form-expander core-form-name)" "(let-values(((struct:_22 make-_22 ?_22 -ref_22 -set!_22)" @@ -14730,16 +14773,16 @@ static const char *startup_source = "(let-values()" "(let-values((()(begin(check-id-taint id_17 in-s_4)(values))))" "(let-values((()(begin(set-box! counter_1(add1(unbox counter_1)))(values))))" -"(let-values(((key_44)" +"(let-values(((key_43)" " (string->uninterned-symbol (format \"~a_~a\" (syntax-e$1 id_17) (unbox counter_1)))))" "(begin" "(let-values(((temp62_0)(syntax-scope-set id_17 phase_36))" "((temp63_1)(syntax-e$1 id_17))" "((temp64_1)" -"(let-values(((key65_0) key_44)((frame-id66_0) frame-id_5))" +"(let-values(((key65_0) key_43)((frame-id66_0) frame-id_5))" "(make-local-binding7.1 frame-id66_0 #t #f #f key65_0))))" "(add-binding-in-scopes!20.1 #f #f temp62_0 temp63_1 temp64_1))" -" key_44)))))))))))))" +" key_43)))))))))))))" "(define-values" "(check-id-taint)" "(lambda(id_18 in-s_5)" @@ -14785,7 +14828,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_40)" +"(let-values(((t_41)" "(namespace-get-transformer" " m-ns_7" "(module-binding-phase b_58)" @@ -14798,7 +14841,7 @@ static const char *startup_source = " mi_15" " id_19" " in-s_6" -" (if (variable? t_40) \"variable\" \"transformer\"))" +" (if (variable? t_41) \"variable\" \"transformer\"))" " #f)))" "(let-values(((insp_6)" "(if mi_15" @@ -14806,28 +14849,28 @@ static const char *startup_source = "(module-inspector(module-instance-module mi_15))" " #f)" " #f)))" -"(values t_40 primitive?_1 insp_6 protected?_1)))))))))))" +"(values t_41 primitive?_1 insp_6 protected?_1)))))))))))" "(if(local-binding? b_58)" "(let-values()" -"(let-values(((t_41)(hash-ref env_1(local-binding-key b_58) missing)))" -"(if(eq? t_41 missing)" +"(let-values(((t_42)(hash-ref env_1(local-binding-key b_58) missing)))" +"(if(eq? t_42 missing)" "(let-values()" "(values" -"(let-values(((or-part_164)" -"(let-values(((lst_74) lift-envs_0))" +"(let-values(((or-part_156)" +"(let-values(((lst_75) lift-envs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_74)))" -"((letrec-values(((for-loop_94)" -"(lambda(result_60 lst_75)" +"(let-values()(check-list lst_75)))" +"((letrec-values(((for-loop_93)" +"(lambda(result_60 lst_76)" "(begin" " 'for-loop" -"(if(pair? lst_75)" +"(if(pair? lst_76)" "(let-values(((lift-env_0)" -"(unsafe-car lst_75))" +"(unsafe-car lst_76))" "((rest_34)" -"(unsafe-cdr lst_75)))" +"(unsafe-cdr lst_76)))" "(let-values(((result_61)" "(let-values()" "(let-values(((result_62)" @@ -14842,25 +14885,25 @@ static const char *startup_source = "(values" " result_62)))))" "(if(if(not" -"((lambda x_39 result_61)" +"((lambda x_38 result_61)" " lift-env_0))" "(not #f)" " #f)" -"(for-loop_94 result_61 rest_34)" +"(for-loop_93 result_61 rest_34)" " result_61)))" " result_60)))))" -" for-loop_94)" +" for-loop_93)" " #f" -" lst_74)))))" -"(if or-part_164" -" or-part_164" +" lst_75)))))" +"(if or-part_156" +" or-part_156" "(if out-of-context-as-variable?_0" " variable" " (error \"identifier used out of context:\" id_19))))" " #f" " #f" " #f))" -"(let-values()(begin(check-taint id_19)(values t_41 #f #f #f))))))" +"(let-values()(begin(check-taint id_19)(values t_42 #f #f #f))))))" " (let-values () (error \"internal error: unknown binding for lookup:\" b_58))))))))))))))))" "(define-values" "(check-taint)" @@ -14874,35 +14917,35 @@ static const char *startup_source = "(free-id-set)" "(lambda(phase_38 ids_0)" "(begin" -"(let-values(((lst_76) ids_0))" +"(let-values(((lst_77) ids_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_76)))" -"((letrec-values(((for-loop_95)" -"(lambda(ht_75 lst_77)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_77)))" +"((letrec-values(((for-loop_94)" +"(lambda(ht_74 lst_78)" "(begin" " 'for-loop" -"(if(pair? lst_77)" -"(let-values(((id_21)(unsafe-car lst_77))((rest_35)(unsafe-cdr lst_77)))" -"(let-values(((ht_76)" -"(let-values(((ht_77) ht_75))" -"(let-values(((ht_78)" +"(if(pair? lst_78)" +"(let-values(((id_21)(unsafe-car lst_78))((rest_35)(unsafe-cdr lst_78)))" +"(let-values(((ht_75)" +"(let-values(((ht_76) ht_74))" +"(let-values(((ht_77)" "(let-values()" "(let-values(((sym_21)" "(identifier-binding-symbol$1" " id_21" " phase_38)))" "(hash-set" -" ht_77" +" ht_76" " sym_21" "(cons-ish" " id_21" -"(hash-ref ht_77 sym_21 null)))))))" -"(values ht_78)))))" -"(if(not #f)(for-loop_95 ht_76 rest_35) ht_76)))" -" ht_75)))))" -" for-loop_95)" +"(hash-ref ht_76 sym_21 null)))))))" +"(values ht_77)))))" +"(if(not #f)(for-loop_94 ht_75 rest_35) ht_75)))" +" ht_74)))))" +" for-loop_94)" " '#hasheq()" -" lst_76))))))" +" lst_77))))))" "(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" @@ -14911,16 +14954,16 @@ static const char *startup_source = "(begin" "(if(zero?(hash-count fs_1))" " #f" -"(let-values(((lst_78)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_39) null)))" +"(let-values(((lst_79)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_39) null)))" "(begin" "(void)" -"((letrec-values(((for-loop_96)" -"(lambda(result_3 lst_79)" +"((letrec-values(((for-loop_95)" +"(lambda(result_3 lst_80)" "(begin" " 'for-loop" -"(if(not(null? lst_79))" -"(let-values(((id_2)(if(pair? lst_79)(car lst_79) lst_79))" -"((rest_36)(if(pair? lst_79)(cdr lst_79) null)))" +"(if(not(null? lst_80))" +"(let-values(((id_2)(if(pair? lst_80)(car lst_80) lst_80))" +"((rest_36)(if(pair? lst_80)(cdr lst_80) null)))" "(let-values(((result_63)" "(let-values()" "(let-values(((result_64)" @@ -14932,13 +14975,13 @@ static const char *startup_source = " phase_39" " phase_39)))))" "(values result_64)))))" -"(if(if(not((lambda x_40 result_63) id_2))(not #f) #f)" -"(for-loop_96 result_63 rest_36)" +"(if(if(not((lambda x_39 result_63) id_2))(not #f) #f)" +"(for-loop_95 result_63 rest_36)" " result_63)))" " result_3)))))" -" for-loop_96)" +" for-loop_95)" " #f" -" lst_78)))))))" +" lst_79)))))))" "(define-values" "(free-id-set-empty-or-just-module*?)" "(lambda(fs_2)(begin(let-values(((c_17)(hash-count fs_2)))(<= c_17 1)))))" @@ -15129,79 +15172,79 @@ static const char *startup_source = " need-eventually-defined_0" " current-introduction-scopes_0" " name_36))))" -"(define-values(expand-context-context)(lambda(v_94)(begin(expand-context/outer-context v_94))))" -"(define-values(expand-context-env)(lambda(v_95)(begin(expand-context/outer-env v_95))))" +"(define-values(expand-context-context)(lambda(v_95)(begin(expand-context/outer-context v_95))))" +"(define-values(expand-context-env)(lambda(v_96)(begin(expand-context/outer-env v_96))))" "(define-values" "(expand-context-post-expansion-scope-action)" -"(lambda(v_96)(begin(expand-context/outer-post-expansion-scope-action v_96))))" -"(define-values(expand-context-scopes)(lambda(v_97)(begin(expand-context/outer-scopes v_97))))" -"(define-values(expand-context-def-ctx-scopes)(lambda(v_98)(begin(expand-context/outer-def-ctx-scopes v_98))))" -"(define-values(expand-context-binding-layer)(lambda(v_99)(begin(expand-context/outer-binding-layer v_99))))" +"(lambda(v_97)(begin(expand-context/outer-post-expansion-scope-action v_97))))" +"(define-values(expand-context-scopes)(lambda(v_98)(begin(expand-context/outer-scopes v_98))))" +"(define-values(expand-context-def-ctx-scopes)(lambda(v_99)(begin(expand-context/outer-def-ctx-scopes v_99))))" +"(define-values(expand-context-binding-layer)(lambda(v_100)(begin(expand-context/outer-binding-layer v_100))))" "(define-values" "(expand-context-reference-records)" -"(lambda(v_100)(begin(expand-context/outer-reference-records v_100))))" -"(define-values(expand-context-only-immediate?)(lambda(v_101)(begin(expand-context/outer-only-immediate? v_101))))" +"(lambda(v_101)(begin(expand-context/outer-reference-records v_101))))" +"(define-values(expand-context-only-immediate?)(lambda(v_102)(begin(expand-context/outer-only-immediate? v_102))))" "(define-values" "(expand-context-need-eventually-defined)" -"(lambda(v_102)(begin(expand-context/outer-need-eventually-defined v_102))))" +"(lambda(v_103)(begin(expand-context/outer-need-eventually-defined v_103))))" "(define-values" "(expand-context-current-introduction-scopes)" -"(lambda(v_103)(begin(expand-context/outer-current-introduction-scopes v_103))))" -"(define-values(expand-context-name)(lambda(v_104)(begin(expand-context/outer-name v_104))))" +"(lambda(v_104)(begin(expand-context/outer-current-introduction-scopes v_104))))" +"(define-values(expand-context-name)(lambda(v_105)(begin(expand-context/outer-name v_105))))" "(define-values" "(expand-context-to-parsed?)" -"(lambda(v_105)(begin(expand-context/inner-to-parsed?(root-expand-context/outer-inner v_105)))))" +"(lambda(v_106)(begin(expand-context/inner-to-parsed?(root-expand-context/outer-inner v_106)))))" "(define-values" "(expand-context-phase)" -"(lambda(v_106)(begin(expand-context/inner-phase(root-expand-context/outer-inner v_106)))))" +"(lambda(v_107)(begin(expand-context/inner-phase(root-expand-context/outer-inner v_107)))))" "(define-values" "(expand-context-namespace)" -"(lambda(v_107)(begin(expand-context/inner-namespace(root-expand-context/outer-inner v_107)))))" +"(lambda(v_108)(begin(expand-context/inner-namespace(root-expand-context/outer-inner v_108)))))" "(define-values" "(expand-context-just-once?)" -"(lambda(v_108)(begin(expand-context/inner-just-once?(root-expand-context/outer-inner v_108)))))" +"(lambda(v_109)(begin(expand-context/inner-just-once?(root-expand-context/outer-inner v_109)))))" "(define-values" "(expand-context-module-begin-k)" -"(lambda(v_109)(begin(expand-context/inner-module-begin-k(root-expand-context/outer-inner v_109)))))" +"(lambda(v_110)(begin(expand-context/inner-module-begin-k(root-expand-context/outer-inner v_110)))))" "(define-values" "(expand-context-allow-unbound?)" -"(lambda(v_110)(begin(expand-context/inner-allow-unbound?(root-expand-context/outer-inner v_110)))))" +"(lambda(v_111)(begin(expand-context/inner-allow-unbound?(root-expand-context/outer-inner v_111)))))" "(define-values" "(expand-context-in-local-expand?)" -"(lambda(v_111)(begin(expand-context/inner-in-local-expand?(root-expand-context/outer-inner v_111)))))" +"(lambda(v_112)(begin(expand-context/inner-in-local-expand?(root-expand-context/outer-inner v_112)))))" "(define-values" "(expand-context-stops)" -"(lambda(v_112)(begin(expand-context/inner-stops(root-expand-context/outer-inner v_112)))))" +"(lambda(v_113)(begin(expand-context/inner-stops(root-expand-context/outer-inner v_113)))))" "(define-values" "(expand-context-declared-submodule-names)" -"(lambda(v_113)(begin(expand-context/inner-declared-submodule-names(root-expand-context/outer-inner v_113)))))" +"(lambda(v_114)(begin(expand-context/inner-declared-submodule-names(root-expand-context/outer-inner v_114)))))" "(define-values" "(expand-context-lifts)" -"(lambda(v_114)(begin(expand-context/inner-lifts(root-expand-context/outer-inner v_114)))))" +"(lambda(v_115)(begin(expand-context/inner-lifts(root-expand-context/outer-inner v_115)))))" "(define-values" "(expand-context-lift-envs)" -"(lambda(v_115)(begin(expand-context/inner-lift-envs(root-expand-context/outer-inner v_115)))))" +"(lambda(v_116)(begin(expand-context/inner-lift-envs(root-expand-context/outer-inner v_116)))))" "(define-values" "(expand-context-module-lifts)" -"(lambda(v_116)(begin(expand-context/inner-module-lifts(root-expand-context/outer-inner v_116)))))" +"(lambda(v_117)(begin(expand-context/inner-module-lifts(root-expand-context/outer-inner v_117)))))" "(define-values" "(expand-context-require-lifts)" -"(lambda(v_117)(begin(expand-context/inner-require-lifts(root-expand-context/outer-inner v_117)))))" +"(lambda(v_118)(begin(expand-context/inner-require-lifts(root-expand-context/outer-inner v_118)))))" "(define-values" "(expand-context-to-module-lifts)" -"(lambda(v_118)(begin(expand-context/inner-to-module-lifts(root-expand-context/outer-inner v_118)))))" +"(lambda(v_119)(begin(expand-context/inner-to-module-lifts(root-expand-context/outer-inner v_119)))))" "(define-values" "(expand-context-requires+provides)" -"(lambda(v_119)(begin(expand-context/inner-requires+provides(root-expand-context/outer-inner v_119)))))" +"(lambda(v_120)(begin(expand-context/inner-requires+provides(root-expand-context/outer-inner v_120)))))" "(define-values" "(expand-context-observer)" -"(lambda(v_120)(begin(expand-context/inner-observer(root-expand-context/outer-inner v_120)))))" +"(lambda(v_121)(begin(expand-context/inner-observer(root-expand-context/outer-inner v_121)))))" "(define-values" "(expand-context-for-serializable?)" -"(lambda(v_121)(begin(expand-context/inner-for-serializable?(root-expand-context/outer-inner v_121)))))" +"(lambda(v_122)(begin(expand-context/inner-for-serializable?(root-expand-context/outer-inner v_122)))))" "(define-values" "(expand-context-should-not-encounter-macros?)" -"(lambda(v_122)(begin(expand-context/inner-should-not-encounter-macros?(root-expand-context/outer-inner v_122)))))" +"(lambda(v_123)(begin(expand-context/inner-should-not-encounter-macros?(root-expand-context/outer-inner v_123)))))" "(define-values" "(make-expand-context10.1)" "(lambda(for-serializable?4_0 for-serializable?7_0 observer5_0 observer8_0 to-parsed?3_0 to-parsed?6_0 ns9_0)" @@ -15257,16 +15300,16 @@ static const char *startup_source = "(copy-root-expand-context)" "(lambda(ctx_1 root-ctx_2)" "(begin" -"(let-values(((v_123) ctx_1))" -"(let-values(((the-struct_39) v_123))" -"(if(expand-context/outer? the-struct_39)" +"(let-values(((v_124) ctx_1))" +"(let-values(((the-struct_38) v_124))" +"(if(expand-context/outer? the-struct_38)" "(let-values(((post-expansion-scope28_0)(root-expand-context-post-expansion-scope root-ctx_2))" "((use-site-scopes29_0)(root-expand-context-use-site-scopes root-ctx_2))" "((frame-id30_1)(root-expand-context-frame-id root-ctx_2))" "((binding-layer31_0)(root-expand-context-frame-id root-ctx_2))" "((inner32_0)" -"(let-values(((the-struct_40)(root-expand-context/outer-inner v_123)))" -"(if(expand-context/inner? the-struct_40)" +"(let-values(((the-struct_39)(root-expand-context/outer-inner v_124)))" +"(if(expand-context/inner? the-struct_39)" "(let-values(((self-mpi33_0)(root-expand-context-self-mpi root-ctx_2))" "((module-scopes34_0)(root-expand-context-module-scopes root-ctx_2))" "((top-level-bind-scope35_0)" @@ -15283,67 +15326,67 @@ static const char *startup_source = " defined-syms37_0" " counter38_0" " lift-key39_0" -"(expand-context/inner-to-parsed? the-struct_40)" -"(expand-context/inner-phase the-struct_40)" -"(expand-context/inner-namespace the-struct_40)" -"(expand-context/inner-just-once? the-struct_40)" -"(expand-context/inner-module-begin-k the-struct_40)" -"(expand-context/inner-allow-unbound? the-struct_40)" -"(expand-context/inner-in-local-expand? the-struct_40)" -"(expand-context/inner-stops the-struct_40)" -"(expand-context/inner-declared-submodule-names the-struct_40)" -"(expand-context/inner-lifts the-struct_40)" -"(expand-context/inner-lift-envs the-struct_40)" -"(expand-context/inner-module-lifts the-struct_40)" -"(expand-context/inner-require-lifts the-struct_40)" -"(expand-context/inner-to-module-lifts the-struct_40)" -"(expand-context/inner-requires+provides the-struct_40)" -"(expand-context/inner-observer the-struct_40)" -"(expand-context/inner-for-serializable? the-struct_40)" -"(expand-context/inner-should-not-encounter-macros? the-struct_40)))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_40)))))" +"(expand-context/inner-to-parsed? the-struct_39)" +"(expand-context/inner-phase the-struct_39)" +"(expand-context/inner-namespace the-struct_39)" +"(expand-context/inner-just-once? the-struct_39)" +"(expand-context/inner-module-begin-k the-struct_39)" +"(expand-context/inner-allow-unbound? the-struct_39)" +"(expand-context/inner-in-local-expand? the-struct_39)" +"(expand-context/inner-stops the-struct_39)" +"(expand-context/inner-declared-submodule-names the-struct_39)" +"(expand-context/inner-lifts the-struct_39)" +"(expand-context/inner-lift-envs the-struct_39)" +"(expand-context/inner-module-lifts the-struct_39)" +"(expand-context/inner-require-lifts the-struct_39)" +"(expand-context/inner-to-module-lifts the-struct_39)" +"(expand-context/inner-requires+provides the-struct_39)" +"(expand-context/inner-observer the-struct_39)" +"(expand-context/inner-for-serializable? the-struct_39)" +"(expand-context/inner-should-not-encounter-macros? the-struct_39)))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_39)))))" "(expand-context/outer1.1" " inner32_0" " post-expansion-scope28_0" " use-site-scopes29_0" " frame-id30_1" -"(expand-context/outer-context the-struct_39)" -"(expand-context/outer-env the-struct_39)" -"(expand-context/outer-post-expansion-scope-action the-struct_39)" -"(expand-context/outer-scopes the-struct_39)" -"(expand-context/outer-def-ctx-scopes the-struct_39)" +"(expand-context/outer-context the-struct_38)" +"(expand-context/outer-env the-struct_38)" +"(expand-context/outer-post-expansion-scope-action the-struct_38)" +"(expand-context/outer-scopes the-struct_38)" +"(expand-context/outer-def-ctx-scopes the-struct_38)" " binding-layer31_0" -"(expand-context/outer-reference-records the-struct_39)" -"(expand-context/outer-only-immediate? the-struct_39)" -"(expand-context/outer-need-eventually-defined the-struct_39)" -"(expand-context/outer-current-introduction-scopes the-struct_39)" -"(expand-context/outer-name the-struct_39)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_39)))))))" +"(expand-context/outer-reference-records the-struct_38)" +"(expand-context/outer-only-immediate? the-struct_38)" +"(expand-context/outer-need-eventually-defined the-struct_38)" +"(expand-context/outer-current-introduction-scopes the-struct_38)" +"(expand-context/outer-name the-struct_38)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_38)))))))" "(define-values(current-expand-context)(make-parameter #f))" "(define-values" "(get-current-expand-context17.1)" "(lambda(fail-ok?13_0 fail-ok?14_0 who15_0 who16_0)" "(begin" " 'get-current-expand-context17" -"(let-values(((who_10)(if who16_0 who15_0 'unexpected)))" +"(let-values(((who_11)(if who16_0 who15_0 'unexpected)))" "(let-values(((fail-ok?_0)(if fail-ok?14_0 fail-ok?13_0 #f)))" "(let-values()" -"(let-values(((or-part_165)(force(current-expand-context))))" -"(if or-part_165" -" or-part_165" -" (if fail-ok?_0 #f (raise-arguments-error who_10 \"not currently expanding\"))))))))))" +"(let-values(((or-part_157)(force(current-expand-context))))" +"(if or-part_157" +" or-part_157" +" (if fail-ok?_0 #f (raise-arguments-error who_11 \"not currently expanding\"))))))))))" "(define-values" "(current-expand-observe)" "(make-parameter" " #f" -"(lambda(v_124)" +"(lambda(v_125)" "(begin" -"(if(let-values(((or-part_166)(not v_124)))" -"(if or-part_166 or-part_166(if(procedure? v_124)(procedure-arity-includes? v_124 2) #f)))" +"(if(let-values(((or-part_158)(not v_125)))" +"(if or-part_158 or-part_158(if(procedure? v_125)(procedure-arity-includes? v_125 2) #f)))" "(void)" "(let-values()" -" (raise-argument-error 'current-expand-observe \"(or/c (procedure-arity-includes/c 2) #f)\" v_124)))" -" v_124))))" +" (raise-argument-error 'current-expand-observe \"(or/c (procedure-arity-includes/c 2) #f)\" v_125)))" +" v_125))))" "(define-values" "(as-expression-context)" "(lambda(ctx_2)" @@ -15351,30 +15394,30 @@ static const char *startup_source = "(if(if(eq? 'expression(expand-context-context ctx_2))(not(expand-context-name ctx_2)) #f)" "(let-values() ctx_2)" "(let-values()" -"(let-values(((v_125) ctx_2))" -"(let-values(((the-struct_19) v_125))" -"(if(expand-context/outer? the-struct_19)" +"(let-values(((v_126) ctx_2))" +"(let-values(((the-struct_40) v_126))" +"(if(expand-context/outer? the-struct_40)" "(let-values(((context40_0) 'expression)" "((name41_0) #f)" "((post-expansion-scope42_0) #f)" -"((inner43_0)(root-expand-context/outer-inner v_125)))" +"((inner43_0)(root-expand-context/outer-inner v_126)))" "(expand-context/outer1.1" " inner43_0" " post-expansion-scope42_0" -"(root-expand-context/outer-use-site-scopes the-struct_19)" -"(root-expand-context/outer-frame-id the-struct_19)" +"(root-expand-context/outer-use-site-scopes the-struct_40)" +"(root-expand-context/outer-frame-id the-struct_40)" " context40_0" -"(expand-context/outer-env the-struct_19)" -"(expand-context/outer-post-expansion-scope-action the-struct_19)" -"(expand-context/outer-scopes the-struct_19)" -"(expand-context/outer-def-ctx-scopes the-struct_19)" -"(expand-context/outer-binding-layer the-struct_19)" -"(expand-context/outer-reference-records the-struct_19)" -"(expand-context/outer-only-immediate? the-struct_19)" -"(expand-context/outer-need-eventually-defined the-struct_19)" -"(expand-context/outer-current-introduction-scopes the-struct_19)" +"(expand-context/outer-env the-struct_40)" +"(expand-context/outer-post-expansion-scope-action the-struct_40)" +"(expand-context/outer-scopes the-struct_40)" +"(expand-context/outer-def-ctx-scopes the-struct_40)" +"(expand-context/outer-binding-layer the-struct_40)" +"(expand-context/outer-reference-records the-struct_40)" +"(expand-context/outer-only-immediate? the-struct_40)" +"(expand-context/outer-need-eventually-defined the-struct_40)" +"(expand-context/outer-current-introduction-scopes the-struct_40)" " name41_0))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_19)))))))))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_40)))))))))" "(define-values" "(as-begin-expression-context)" "(lambda(ctx_3)" @@ -15382,10 +15425,10 @@ static const char *startup_source = "(if(not(expand-context-name ctx_3))" "(let-values() ctx_3)" "(let-values()" -"(let-values(((v_126) ctx_3))" -"(let-values(((the-struct_41) v_126))" +"(let-values(((v_127) ctx_3))" +"(let-values(((the-struct_41) v_127))" "(if(expand-context/outer? the-struct_41)" -"(let-values(((name44_0) #f)((inner45_0)(root-expand-context/outer-inner v_126)))" +"(let-values(((name44_0) #f)((inner45_0)(root-expand-context/outer-inner v_127)))" "(expand-context/outer1.1" " inner45_0" "(root-expand-context/outer-post-expansion-scope the-struct_41)" @@ -15413,11 +15456,11 @@ static const char *startup_source = "(let-values()" "(if(expand-context-name wrt-ctx_0)" "(let-values()" -"(let-values(((v_127) ctx_4))" -"(let-values(((the-struct_42) v_127))" +"(let-values(((v_128) ctx_4))" +"(let-values(((the-struct_42) v_128))" "(if(expand-context/outer? the-struct_42)" "(let-values(((name46_0)(expand-context-name wrt-ctx_0))" -"((inner47_0)(root-expand-context/outer-inner v_127)))" +"((inner47_0)(root-expand-context/outer-inner v_128)))" "(expand-context/outer1.1" " inner47_0" "(root-expand-context/outer-post-expansion-scope the-struct_42)" @@ -15442,10 +15485,10 @@ static const char *startup_source = "(begin" "(if(if(pair? ids_1)(null?(cdr ids_1)) #f)" "(let-values()" -"(let-values(((v_128) ctx_5))" -"(let-values(((the-struct_2) v_128))" +"(let-values(((v_129) ctx_5))" +"(let-values(((the-struct_2) v_129))" "(if(expand-context/outer? the-struct_2)" -"(let-values(((name48_0)(car ids_1))((inner49_0)(root-expand-context/outer-inner v_128)))" +"(let-values(((name48_0)(car ids_1))((inner49_0)(root-expand-context/outer-inner v_129)))" "(expand-context/outer1.1" " inner49_0" "(root-expand-context/outer-post-expansion-scope the-struct_2)" @@ -15468,11 +15511,11 @@ static const char *startup_source = "(as-to-parsed-context)" "(lambda(ctx_6)" "(begin" -"(let-values(((v_129) ctx_6))" -"(let-values(((the-struct_43) v_129))" +"(let-values(((v_130) ctx_6))" +"(let-values(((the-struct_43) v_130))" "(if(expand-context/outer? the-struct_43)" "(let-values(((inner50_0)" -"(let-values(((the-struct_44)(root-expand-context/outer-inner v_129)))" +"(let-values(((the-struct_44)(root-expand-context/outer-inner v_130)))" "(if(expand-context/inner? the-struct_44)" "(let-values(((to-parsed?51_0) #t)" "((observer52_0) #f)" @@ -15610,48 +15653,48 @@ static const char *startup_source = "((temp14_1)" "(hasheqv" " 0" -"(let-values(((lst_80)(list core-primitives core-forms))((lst_81) '(#f #t)))" +"(let-values(((lst_81)(list core-primitives core-forms))((lst_82) '(#f #t)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_80)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_81)))" -"((letrec-values(((for-loop_97)" -"(lambda(table_108 lst_82 lst_83)" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_82)))" +"((letrec-values(((for-loop_96)" +"(lambda(table_111 lst_83 lst_84)" "(begin" " 'for-loop" -"(if(if(pair? lst_82)(pair? lst_83) #f)" -"(let-values(((syms_12)(unsafe-car lst_82))" -"((rest_37)(unsafe-cdr lst_82))" -"((syntax?_2)(unsafe-car lst_83))" -"((rest_38)(unsafe-cdr lst_83)))" -"(let-values(((table_109)" -"(let-values(((table_110) table_108))" -"(let-values(((ht_79) syms_12))" +"(if(if(pair? lst_83)(pair? lst_84) #f)" +"(let-values(((syms_12)(unsafe-car lst_83))" +"((rest_37)(unsafe-cdr lst_83))" +"((syntax?_2)(unsafe-car lst_84))" +"((rest_38)(unsafe-cdr lst_84)))" +"(let-values(((table_112)" +"(let-values(((table_113) table_111))" +"(let-values(((ht_78) syms_12))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash-keys ht_79)))" -"((letrec-values(((for-loop_98)" -"(lambda(table_111" -" i_87)" +"(check-in-hash-keys ht_78)))" +"((letrec-values(((for-loop_97)" +"(lambda(table_114" +" i_40)" "(begin" " 'for-loop" -"(if i_87" +"(if i_40" "(let-values(((sym_24)" "(hash-iterate-key" -" ht_79" -" i_87)))" -"(let-values(((table_112)" -"(let-values(((table_113)" -" table_111))" -"(let-values(((table_114)" +" ht_78" +" i_40)))" +"(let-values(((table_115)" +"(let-values(((table_116)" +" table_114))" +"(let-values(((table_117)" "(let-values()" -"(let-values(((key_45" +"(let-values(((key_44" " val_35)" "(let-values()" "(let-values(((b_60)" @@ -15692,31 +15735,31 @@ static const char *startup_source = " #t)" " b_60))))))" "(hash-set" -" table_113" -" key_45" +" table_116" +" key_44" " val_35)))))" "(values" -" table_114)))))" +" table_117)))))" "(if(not" " #f)" -"(for-loop_98" -" table_112" +"(for-loop_97" +" table_115" "(hash-iterate-next" -" ht_79" -" i_87))" +" ht_78" +" i_40))" +" table_115)))" +" table_114)))))" +" for-loop_97)" +" table_113" +"(hash-iterate-first ht_78)))))))" +"(if(not #f)" +"(for-loop_96 table_112 rest_37 rest_38)" " table_112)))" " table_111)))))" -" for-loop_98)" -" table_110" -"(hash-iterate-first ht_79)))))))" -"(if(not #f)" -"(for-loop_97 table_109 rest_37 rest_38)" -" table_109)))" -" table_108)))))" -" for-loop_97)" +" for-loop_96)" " '#hasheq()" -" lst_80" -" lst_81)))))" +" lst_81" +" lst_82)))))" "((temp15_1)" "(lambda(phase-level_14 ns_47 insp_7)" "(if(zero? phase-level_14)" @@ -15750,19 +15793,19 @@ static const char *startup_source = "(if(equal? tmp_14 0)" "(let-values()" "(begin" -"(let-values(((ht_80) core-primitives))" +"(let-values(((ht_79) core-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_80)))" -"((letrec-values(((for-loop_99)" +"(let-values()(check-in-hash ht_79)))" +"((letrec-values(((for-loop_98)" "(lambda(i_88)" "(begin" " 'for-loop" "(if i_88" "(let-values(((sym_25 val_36)" "(hash-iterate-key+value" -" ht_80" +" ht_79" " i_88)))" "(let-values((()" "(let-values()" @@ -15778,26 +15821,26 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_99" -"(hash-iterate-next ht_80 i_88))" +"(for-loop_98" +"(hash-iterate-next ht_79 i_88))" "(values))))" "(values))))))" -" for-loop_99)" -"(hash-iterate-first ht_80))))" +" for-loop_98)" +"(hash-iterate-first ht_79))))" "(void)" -"(let-values(((ht_81) core-forms))" +"(let-values(((ht_80) core-forms))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_81)))" -"((letrec-values(((for-loop_100)" +"(let-values()(check-in-hash ht_80)))" +"((letrec-values(((for-loop_99)" "(lambda(i_89)" "(begin" " 'for-loop" "(if i_89" "(let-values(((sym_26 proc_5)" "(hash-iterate-key+value" -" ht_81" +" ht_80" " i_89)))" "(let-values((()" "(let-values()" @@ -15819,12 +15862,12 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_100" -"(hash-iterate-next ht_81 i_89))" +"(for-loop_99" +"(hash-iterate-next ht_80 i_89))" "(values))))" "(values))))))" -" for-loop_100)" -"(hash-iterate-first ht_81))))" +" for-loop_99)" +"(hash-iterate-first ht_80))))" "(void)))" "(let-values()(void)))))))" "(make-module39.1" @@ -15872,16 +15915,16 @@ static const char *startup_source = "(if(let-values(((s_165)(if(syntax?$1 s_164)(syntax-e$1 s_164) s_164)))" "(if(pair? s_165)" "(if(let-values(((s_166)(car s_165)))" -"(let-values(((or-part_167)(if(syntax?$1 s_166)(symbol?(syntax-e$1 s_166)) #f)))" -"(if or-part_167 or-part_167(symbol? s_166))))" +"(let-values(((or-part_72)(if(syntax?$1 s_166)(symbol?(syntax-e$1 s_166)) #f)))" +"(if or-part_72 or-part_72(symbol? s_166))))" "(let-values(((s_167)(cdr s_165))) #t)" " #f)" " #f))" "(let-values()" "(let-values(((id23_1 _24_1)" "(let-values(((s_168)(if(syntax?$1 s_164)(syntax-e$1 s_164) s_164)))" -"(let-values(((id25_0)(let-values(((s_66)(car s_168))) s_66))" -"((_26_0)(let-values(((s_79)(cdr s_168))) s_79)))" +"(let-values(((id25_0)(let-values(((s_67)(car s_168))) s_67))" +"((_26_0)(let-values(((s_169)(cdr s_168))) s_169)))" "(values id25_0 _26_0)))))" "(values #t id23_1 _24_1)))" "(values #f #f #f)))))" @@ -15900,126 +15943,123 @@ static const char *startup_source = "(lambda(s_0 proc_6 phase_32)" "(begin" "((letrec-values(((loop_33)" -"(lambda(s_69 mode_10)" +"(lambda(s_70 mode_10)" "(begin" " 'loop" "(let-values(((tmp_4) mode_10))" "(if(equal? tmp_4 'none)" -"(let-values() s_69)" +"(let-values() s_70)" "(if(equal? tmp_4 'opaque)" -"(let-values()(proc_6 s_69))" +"(let-values()(proc_6 s_70))" "(if(equal? tmp_4 'transparent)" "(let-values()" "(let-values(((c_18)" -"(let-values(((s_169)" -"(let-values(((or-part_13)(syntax->list$1 s_69)))" -"(if or-part_13 or-part_13(syntax-e$1 s_69))))" -"((f_35)(lambda(tail?_39 d_18)(begin 'f d_18)))" +"(let-values(((s_170)" +"(let-values(((or-part_13)(syntax->list$1 s_70)))" +"(if or-part_13 or-part_13(syntax-e$1 s_70))))" +"((f_35)(lambda(tail?_40 d_18)(begin 'f d_18)))" "((s->_3)" -"(lambda(s_170)" +"(lambda(s_171)" "(begin" " 's->" "(loop_33" -" s_170" -"(syntax-taint-mode-property s_170)))))" +" s_171" +"(syntax-taint-mode-property s_171)))))" "((seen_19) #f))" -"(let-values(((s_171) s_169)" -"((f_36)" -"(lambda(tail?_40 v_60)" +"(let-values(((s_172) s_170)" +"((f_36) f_35)" +"((gf_8)" +"(lambda(tail?_41 v_29)" "(begin" -" 'f" -"(if(syntax?$1 v_60)" -"(let-values()(s->_3 v_60))" -"(let-values()(f_35 tail?_40 v_60))))))" +" 'gf" +"(if(syntax?$1 v_29)" +"(let-values()(s->_3 v_29))" +"(let-values()(f_35 tail?_41 v_29))))))" "((seen_20) seen_19))" -"((letrec-values(((loop_7)" -"(lambda(tail?_41 s_172 prev-depth_8)" +"((letrec-values(((loop_77)" +"(lambda(tail?_42 s_4 prev-depth_8)" "(begin" " 'loop" "(let-values(((depth_8)" -"(add1 prev-depth_8)))" -"(if(if seen_20(> depth_8 32) #f)" +"(fx+ 1 prev-depth_8)))" +"(if(if seen_20(fx> depth_8 32) #f)" "(let-values()" "(datum-map-slow" -" tail?_41" -" s_172" -"(lambda(tail?_42 s_173)" -"(f_36 tail?_42 s_173))" +" tail?_42" +" s_4" +"(lambda(tail?_43 s_173)" +"(gf_8 tail?_43 s_173))" " seen_20))" -"(if(null? s_172)" -"(let-values()" -"(f_36 tail?_41 s_172))" -"(if(pair? s_172)" +"(if(null? s_4)" +"(let-values()(f_36 tail?_42 s_4))" +"(if(pair? s_4)" "(let-values()" "(f_36" -" tail?_41" +" tail?_42" "(cons" -"(loop_7" -" #f" -"(car s_172)" -" depth_8)" -"(loop_7" +"(loop_77 #f(car s_4) depth_8)" +"(loop_77" " #t" -"(cdr s_172)" +"(cdr s_4)" " depth_8))))" -"(if(let-values(((or-part_168)" -"(symbol?" -" s_172)))" -"(if or-part_168" -" or-part_168" -"(let-values(((or-part_71)" -"(boolean?" -" s_172)))" -"(if or-part_71" -" or-part_71" -"(number? s_172)))))" -"(let-values()(f_36 #f s_172))" -"(if(let-values(((or-part_72)" +"(if(symbol? s_4)" +"(let-values()(f_36 #f s_4))" +"(if(boolean? s_4)" +"(let-values()(f_36 #f s_4))" +"(if(number? s_4)" +"(let-values()" +"(f_36 #f s_4))" +"(if(let-values(((or-part_76)" "(vector?" -" s_172)))" -"(if or-part_72" -" or-part_72" -"(let-values(((or-part_73)" +" s_4)))" +"(if or-part_76" +" or-part_76" +"(let-values(((or-part_77)" "(box?" -" s_172)))" -"(if or-part_73" -" or-part_73" -"(let-values(((or-part_74)" +" s_4)))" +"(if or-part_77" +" or-part_77" +"(let-values(((or-part_78)" "(prefab-struct-key" -" s_172)))" -"(if or-part_74" -" or-part_74" +" s_4)))" +"(if or-part_78" +" or-part_78" "(hash?" -" s_172)))))))" +" s_4)))))))" "(let-values()" "(datum-map-slow" -" tail?_41" -" s_172" -"(lambda(tail?_43 s_174)" -"(f_36 tail?_43 s_174))" +" tail?_42" +" s_4" +"(lambda(tail?_44" +" s_174)" +"(gf_8" +" tail?_44" +" s_174))" " seen_20))" "(let-values()" -"(f_36 #f s_172))))))))))))" -" loop_7)" +"(gf_8" " #f" -" s_171" +" s_4))))))))))))))" +" loop_77)" +" #f" +" s_172" " 0)))))" "(datum->syntax$1" " #f" " c_18" -" s_69" -"(if(syntax-any-macro-scopes? s_69)" -"(syntax-property-remove s_69 original-property-sym)" -" s_69))))" +" s_70" +"(if(syntax-any-macro-scopes? s_70)" +"(1/syntax-property-remove s_70 original-property-sym)" +" s_70))))" "(if(equal? tmp_4 'transparent-binding)" "(let-values()" -"(let-values(((c_19)(syntax-e$1 s_69)))" +"(let-values(((c_19)(syntax-e$1 s_70)))" "(if(pair? c_19)" "(let-values()" "(let-values(((cd_0)(cdr c_19)))" -"(if(let-values(((or-part_69)(pair? cd_0)))" -"(if or-part_69" -" or-part_69" +"(if(let-values(((or-part_82)(pair? cd_0)))" +"(if or-part_82" +" or-part_82" "(if(syntax?$1 cd_0)(pair?(syntax-e$1 cd_0)) #f)))" "(let-values()" "(let-values(((d_19)(if(syntax?$1 cd_0)(syntax-e$1 cd_0) cd_0)))" @@ -16029,139 +16069,137 @@ static const char *startup_source = "(loop_33(car c_19)(syntax-taint-mode-property(car c_19)))" "(cons" "(loop_33(car d_19) 'transparent)" -"(let-values(((s_175)" -"(let-values(((or-part_169)" +"(let-values(((s_5)" +"(let-values(((or-part_159)" "(syntax->list$1(cdr d_19))))" -"(if or-part_169 or-part_169(cdr d_19))))" -"((f_7)(lambda(tail?_44 d_20)(begin 'f d_20)))" +"(if or-part_159 or-part_159(cdr d_19))))" +"((f_37)(lambda(tail?_1 d_20)(begin 'f d_20)))" "((s->_4)" -"(lambda(s_176)" +"(lambda(s_175)" "(begin" " 's->" "(loop_33" -" s_176" -"(syntax-taint-mode-property s_176)))))" -"((seen_21) #f))" -"(let-values(((s_82) s_175)" -"((f_8)" +" s_175" +"(syntax-taint-mode-property s_175)))))" +"((seen_0) #f))" +"(let-values(((s_42) s_5)" +"((f_38) f_37)" +"((gf_9)" "(lambda(tail?_45 v_39)" "(begin" -" 'f" +" 'gf" "(if(syntax?$1 v_39)" "(let-values()(s->_4 v_39))" -"(let-values()(f_7 tail?_45 v_39))))))" -"((seen_22) seen_21))" +"(let-values()(f_37 tail?_45 v_39))))))" +"((seen_21) seen_0))" "((letrec-values(((loop_78)" -"(lambda(tail?_46 s_177 prev-depth_9)" +"(lambda(tail?_46 s_176 prev-depth_9)" "(begin" " 'loop" "(let-values(((depth_9)" -"(add1 prev-depth_9)))" -"(if(if seen_22(> depth_9 32) #f)" +"(fx+ 1 prev-depth_9)))" +"(if(if seen_21" +"(fx> depth_9 32)" +" #f)" "(let-values()" "(datum-map-slow" " tail?_46" -" s_177" -"(lambda(tail?_47 s_178)" -"(f_8 tail?_47 s_178))" -" seen_22))" -"(if(null? s_177)" +" s_176" +"(lambda(tail?_47 s_177)" +"(gf_9 tail?_47 s_177))" +" seen_21))" +"(if(null? s_176)" "(let-values()" -"(f_8 tail?_46 s_177))" -"(if(pair? s_177)" +"(f_38 tail?_46 s_176))" +"(if(pair? s_176)" "(let-values()" -"(f_8" +"(f_38" " tail?_46" "(cons" "(loop_78" " #f" -"(car s_177)" +"(car s_176)" " depth_9)" "(loop_78" " #t" -"(cdr s_177)" +"(cdr s_176)" " depth_9))))" -"(if(let-values(((or-part_170)" -"(symbol?" -" s_177)))" -"(if or-part_170" -" or-part_170" -"(let-values(((or-part_171)" -"(boolean?" -" s_177)))" -"(if or-part_171" -" or-part_171" -"(number?" -" s_177)))))" +"(if(symbol? s_176)" "(let-values()" -"(f_8 #f s_177))" -"(if(let-values(((or-part_172)" +"(f_38 #f s_176))" +"(if(boolean? s_176)" +"(let-values()" +"(f_38 #f s_176))" +"(if(number? s_176)" +"(let-values()" +"(f_38 #f s_176))" +"(if(let-values(((or-part_160)" "(vector?" -" s_177)))" -"(if or-part_172" -" or-part_172" -"(let-values(((or-part_173)" +" s_176)))" +"(if or-part_160" +" or-part_160" +"(let-values(((or-part_161)" "(box?" -" s_177)))" -"(if or-part_173" -" or-part_173" -"(let-values(((or-part_174)" +" s_176)))" +"(if or-part_161" +" or-part_161" +"(let-values(((or-part_162)" "(prefab-struct-key" -" s_177)))" -"(if or-part_174" -" or-part_174" +" s_176)))" +"(if or-part_162" +" or-part_162" "(hash?" -" s_177)))))))" +" s_176)))))))" "(let-values()" "(datum-map-slow" " tail?_46" -" s_177" +" s_176" "(lambda(tail?_48" -" s_179)" -"(f_8" +" s_178)" +"(gf_9" " tail?_48" -" s_179))" -" seen_22))" +" s_178))" +" seen_21))" "(let-values()" -"(f_8" +"(gf_9" " #f" -" s_177))))))))))))" +" s_176))))))))))))))" " loop_78)" " #f" -" s_82" +" s_42" " 0)))))" -" s_69" -"(if(syntax-any-macro-scopes? s_69)" -"(syntax-property-remove s_69 original-property-sym)" -" s_69))))" -"(let-values()(loop_33 s_69 'transparent)))))" -"(let-values()(loop_33 s_69 'transparent)))))" +" s_70" +"(if(syntax-any-macro-scopes? s_70)" +"(1/syntax-property-remove s_70 original-property-sym)" +" s_70))))" +"(let-values()(loop_33 s_70 'transparent)))))" +"(let-values()(loop_33 s_70 'transparent)))))" "(let-values()" -"(let-values(((c_20)(syntax-e$1 s_69)))" +"(let-values(((c_20)(syntax-e$1 s_70)))" "(let-values(((tmp_15)(core-form-sym c_20 phase_32)))" "(if(if(equal? tmp_15 'begin)" " #t" "(if(equal? tmp_15 'begin-for-syntax)" " #t" "(equal? tmp_15 '#%module-begin)))" -"(let-values()(loop_33 s_69 'transparent))" +"(let-values()(loop_33 s_70 'transparent))" "(if(if(equal? tmp_15 'define-values)" " #t" "(equal? tmp_15 'define-syntaxes))" -"(let-values()(loop_33 s_69 'transparent-binding))" -"(let-values()(loop_33 s_69 'opaque))))))))))))))))" +"(let-values()(loop_33 s_70 'transparent-binding))" +"(let-values()(loop_33 s_70 'opaque))))))))))))))))" " loop_33)" " s_0" "(syntax-taint-mode-property s_0)))))" "(define-values" "(syntax-taint-mode-property)" -"(lambda(s_180)" +"(lambda(s_78)" "(begin" -"(let-values(((or-part_175)(syntax-property$1 s_180 'taint-mode)))" -"(if or-part_175 or-part_175(syntax-property$1 s_180 'certify-mode))))))" +"(let-values(((or-part_163)(syntax-property$1 s_78 'taint-mode)))" +"(if or-part_163 or-part_163(syntax-property$1 s_78 'certify-mode))))))" "(define-values" "(syntax-remove-taint-dispatch-properties)" -"(lambda(s_181)(begin(syntax-property-remove(syntax-property-remove s_181 'taint-mode) 'certify-mode))))" +"(lambda(s_179)(begin(1/syntax-property-remove(1/syntax-property-remove s_179 'taint-mode) 'certify-mode))))" "(define-values(current-module-code-inspector)(make-parameter #f))" "(define-values" "(syntax-debug-info$1)" @@ -16170,18 +16208,18 @@ static const char *startup_source = " 'syntax-debug-info" "(let-values(((hts_0)" "(reverse$1" -"(let-values(((lst_77)(fallback->list(syntax-shifted-multi-scopes s_0))))" +"(let-values(((lst_78)(fallback->list(syntax-shifted-multi-scopes s_0))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_77)))" -"((letrec-values(((for-loop_101)" -"(lambda(fold-var_59 lst_84)" +"(let-values()(check-list lst_78)))" +"((letrec-values(((for-loop_100)" +"(lambda(fold-var_59 lst_85)" "(begin" " 'for-loop" -"(if(pair? lst_84)" -"(let-values(((smss_26)(unsafe-car lst_84))" -"((rest_39)(unsafe-cdr lst_84)))" +"(if(pair? lst_85)" +"(let-values(((smss_26)(unsafe-car lst_85))" +"((rest_39)(unsafe-cdr lst_85)))" "(let-values(((fold-var_60)" "(let-values(((fold-var_61) fold-var_59))" "(let-values(((fold-var_62)" @@ -16217,7 +16255,7 @@ static const char *startup_source = "(let-values()" "(let-values(((bindings_1" " covered-scopess_0)" -"(let-values(((ht_46)" +"(let-values(((ht_45)" " s-scs_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -16225,7 +16263,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-immutable-hash-keys" -" ht_46)))" +" ht_45)))" "((letrec-values(((for-loop_49)" "(lambda(bindings_2" " covered-scope-sets_0" @@ -16235,38 +16273,38 @@ static const char *startup_source = "(if i_90" "(let-values(((sc_27)" "(unsafe-immutable-hash-iterate-key" -" ht_46" +" ht_45" " i_90)))" "(let-values(((bindings_3" " covered-scope-sets_1)" -"(let-values(((ht_82" +"(let-values(((ht_81" " bulk-bindings_3)" -"(let-values(((table_115)" +"(let-values(((table_118)" "(scope-binding-table" " sc_27)))" "(if(hash?" -" table_115)" +" table_118)" "(values" "(hash-ref" -" table_115" +" table_118" " sym_16" " '#hash())" " null)" "(values" "(hash-ref" "(table-with-bulk-bindings-syms" -" table_115)" +" table_118)" " sym_16" " '#hash())" "(table-with-bulk-bindings-bulk-bindings" -" table_115)))))" -"((s_72)" +" table_118)))))" +"((s_73)" " s_0)" "((extra-shifts_5)" " null))" "(begin" " #t" -"((letrec-values(((for-loop_102)" +"((letrec-values(((for-loop_101)" "(lambda(bindings_4" " covered-scope-sets_2" " i_91)" @@ -16284,7 +16322,7 @@ static const char *startup_source = " i_91)))" "(let-values()" "(hash-iterate-key" -" ht_82" +" ht_81" " i_91))))" "((b_61)" "(if(pair?" @@ -16300,7 +16338,7 @@ static const char *startup_source = "(hash-ref" "(bulk-binding-symbols" " bulk_4" -" s_72" +" s_73" " extra-shifts_5)" " sym_16" " #f)" @@ -16314,7 +16352,7 @@ static const char *startup_source = " #f))))" "(let-values()" "(hash-iterate-value" -" ht_82" +" ht_81" " i_91)))))" "(let-values(((bindings_5" " covered-scope-sets_3)" @@ -16324,10 +16362,10 @@ static const char *startup_source = " covered-scope-sets_2))" "(if(if scs_15" "(if b_61" -"(if(let-values(((or-part_176)" +"(if(let-values(((or-part_68)" " all-bindings?_0))" -"(if or-part_176" -" or-part_176" +"(if or-part_68" +" or-part_68" "(subset?" " scs_15" " s-scs_0)))" @@ -16385,7 +16423,7 @@ static const char *startup_source = " covered-scope-sets_4)))))" "(if(not" " #f)" -"(for-loop_102" +"(for-loop_101" " bindings_5" " covered-scope-sets_3" "(if(pair?" @@ -16396,7 +16434,7 @@ static const char *startup_source = "(let-values()" "(let-values(((or-part_7)" "(hash-iterate-next" -" ht_82" +" ht_81" " i_91)))" "(if or-part_7" " or-part_7" @@ -16407,12 +16445,12 @@ static const char *startup_source = "(values" " bindings_4" " covered-scope-sets_2))))))" -" for-loop_102)" +" for-loop_101)" " bindings_2" " covered-scope-sets_0" "(let-values(((or-part_8)" "(hash-iterate-first" -" ht_82)))" +" ht_81)))" "(if or-part_8" " or-part_8" " bulk-bindings_3)))))))" @@ -16422,7 +16460,7 @@ static const char *startup_source = " bindings_3" " covered-scope-sets_1" "(unsafe-immutable-hash-iterate-next" -" ht_46" +" ht_45" " i_90))" "(values" " bindings_3" @@ -16434,7 +16472,7 @@ static const char *startup_source = " null" "(set)" "(unsafe-immutable-hash-iterate-first" -" ht_46))))))" +" ht_45))))))" " bindings_1))" "(let-values()" " null))))" @@ -16446,32 +16484,32 @@ static const char *startup_source = " bindings_0)))))))))" " fold-var_61))))" "(values fold-var_62)))))" -"(if(not #f)(for-loop_101 fold-var_60 rest_39) fold-var_60)))" +"(if(not #f)(for-loop_100 fold-var_60 rest_39) fold-var_60)))" " fold-var_59)))))" -" for-loop_101)" +" for-loop_100)" " null" -" lst_77))))))" -"(let-values(((ht_75)(car hts_0)))(if(null?(cdr hts_0)) ht_75(hash-set ht_75 'fallbacks(cdr hts_0))))))))" +" lst_78))))))" +"(let-values(((ht_74)(car hts_0)))(if(null?(cdr hts_0)) ht_74(hash-set ht_74 'fallbacks(cdr hts_0))))))))" "(define-values" "(scope-set->context)" "(lambda(scs_16)" "(begin" "(let-values(((temp1_1)" "(reverse$1" -"(let-values(((ht_83) scs_16))" +"(let-values(((ht_82) scs_16))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_83)))" -"((letrec-values(((for-loop_103)" +"(let-values()(check-in-immutable-hash-keys ht_82)))" +"((letrec-values(((for-loop_102)" "(lambda(fold-var_63 i_92)" "(begin" " 'for-loop" "(if i_92" -"(let-values(((sc_28)(unsafe-immutable-hash-iterate-key ht_83 i_92)))" -"(let-values(((fold-var_19)" -"(let-values(((fold-var_20) fold-var_63))" +"(let-values(((sc_28)(unsafe-immutable-hash-iterate-key ht_82 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()" @@ -16485,19 +16523,19 @@ static const char *startup_source = "(vector" "(scope-id sc_28)" "(scope-kind sc_28))))" -" fold-var_20))))" -"(values fold-var_64)))))" +" fold-var_65))))" +"(values fold-var_66)))))" "(if(not #f)" -"(for-loop_103" -" fold-var_19" -"(unsafe-immutable-hash-iterate-next ht_83 i_92))" -" fold-var_19)))" +"(for-loop_102" +" fold-var_64" +"(unsafe-immutable-hash-iterate-next ht_82 i_92))" +" fold-var_64)))" " fold-var_63)))))" -" for-loop_103)" +" for-loop_102)" " null" -"(unsafe-immutable-hash-iterate-first ht_83))))))" +"(unsafe-immutable-hash-iterate-first ht_82))))))" "((<2_0) <)" -"((temp3_2)(lambda(v_130)(vector-ref v_130 0))))" +"((temp3_2)(lambda(v_131)(vector-ref v_131 0))))" "(sort7.1 #f #f temp3_2 #t temp1_1 <2_0)))))" "(define-values" "(raise-ambiguous-error)" @@ -16512,9 +16550,9 @@ static const char *startup_source = "(syntax-debug-info-string id_22 ctx_7)))))" "(define-values" "(syntax-debug-info-string)" -"(lambda(s_182 ctx_8)" +"(lambda(s_180 ctx_8)" "(begin" -"(let-values(((info_3)(syntax-debug-info$1 s_182(expand-context-phase ctx_8) #t)))" +"(let-values(((info_3)(syntax-debug-info$1 s_180(expand-context-phase ctx_8) #t)))" "(if(not" "(let-values(((or-part_26)(pair?(hash-ref info_3 'bindings null))))" "(if or-part_26" @@ -16524,13 +16562,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_6)))" -"((letrec-values(((for-loop_104)" -"(lambda(result_65 lst_85)" +"((letrec-values(((for-loop_103)" +"(lambda(result_65 lst_86)" "(begin" " 'for-loop" -"(if(pair? lst_85)" -"(let-values(((fb-info_0)(unsafe-car lst_85))" -"((rest_40)(unsafe-cdr lst_85)))" +"(if(pair? lst_86)" +"(let-values(((fb-info_0)(unsafe-car lst_86))" +"((rest_40)(unsafe-cdr lst_86)))" "(let-values(((result_1)" "(let-values()" "(let-values(((result_66)" @@ -16542,17 +16580,17 @@ static const char *startup_source = " 'bindings" " null))))))" "(values result_66)))))" -"(if(if(not((lambda x_28 result_1) fb-info_0))(not #f) #f)" -"(for-loop_104 result_1 rest_40)" +"(if(if(not((lambda x_27 result_1) fb-info_0))(not #f) #f)" +"(for-loop_103 result_1 rest_40)" " result_1)))" " result_65)))))" -" for-loop_104)" +" for-loop_103)" " #f" " lst_6))))))" " (let-values () \"\")" "(let-values()" "(let-values(((relevant-scope-sets_0)" -"((letrec-values(((loop_77)" +"((letrec-values(((loop_76)" "(lambda(info_4 layer_0)" "(begin" " 'loop" @@ -16561,22 +16599,22 @@ static const char *startup_source = "(cons" "(hash-ref info_4 'context)" "(reverse$1" -"(let-values(((lst_86)(hash-ref info_4 'bindings null)))" +"(let-values(((lst_87)(hash-ref info_4 'bindings null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_86)))" -"((letrec-values(((for-loop_105)" -"(lambda(fold-var_65 lst_87)" +"(let-values()(check-list lst_87)))" +"((letrec-values(((for-loop_104)" +"(lambda(fold-var_67 lst_88)" "(begin" " 'for-loop" -"(if(pair? lst_87)" -"(let-values(((b_21)(unsafe-car lst_87))" +"(if(pair? lst_88)" +"(let-values(((b_21)(unsafe-car lst_88))" "((rest_41)" -"(unsafe-cdr lst_87)))" -"(let-values(((fold-var_66)" +"(unsafe-cdr lst_88)))" +"(let-values(((fold-var_68)" "(let-values(((fold-var_27)" -" fold-var_65))" +" fold-var_67))" "(let-values(((fold-var_28)" "(let-values()" "(cons" @@ -16588,87 +16626,87 @@ static const char *startup_source = "(values" " fold-var_28)))))" "(if(not #f)" -"(for-loop_105 fold-var_66 rest_41)" -" fold-var_66)))" -" fold-var_65)))))" -" for-loop_105)" +"(for-loop_104 fold-var_68 rest_41)" +" fold-var_68)))" +" fold-var_67)))))" +" for-loop_104)" " null" -" lst_86)))))" +" lst_87)))))" "(let-values(((fallbacks_0)(hash-ref info_4 'fallbacks null)))" "(reverse$1" -"(let-values(((lst_88) fallbacks_0)((start_14)(add1 layer_0)))" +"(let-values(((lst_89) fallbacks_0)((start_14)(add1 layer_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_88)))" +"(let-values()(check-list lst_89)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_14)))" -"((letrec-values(((for-loop_106)" -"(lambda(fold-var_67 lst_89 pos_11)" +"((letrec-values(((for-loop_105)" +"(lambda(fold-var_69 lst_90 pos_11)" "(begin" " 'for-loop" -"(if(if(pair? lst_89) #t #f)" +"(if(if(pair? lst_90) #t #f)" "(let-values(((fallback_0)" -"(unsafe-car lst_89))" +"(unsafe-car lst_90))" "((rest_42)" -"(unsafe-cdr lst_89))" +"(unsafe-cdr lst_90))" "((layer_1) pos_11))" "(let-values(((fold-var_9)" -"(let-values(((fold-var_68)" -" fold-var_67))" -"(let-values(((fold-var_69)" +"(let-values(((fold-var_70)" +" fold-var_69))" +"(let-values(((fold-var_71)" "(let-values()" "(cons" "(let-values()" -"(loop_77" +"(loop_76" " fallback_0" " layer_1))" -" fold-var_68))))" +" fold-var_70))))" "(values" -" fold-var_69)))))" +" fold-var_71)))))" "(if(not #f)" -"(for-loop_106" +"(for-loop_105" " fold-var_9" " rest_42" "(+ pos_11 1))" " fold-var_9)))" -" fold-var_67)))))" -" for-loop_106)" +" fold-var_69)))))" +" for-loop_105)" " null" -" lst_88" +" lst_89" " start_14))))))))))" -" loop_77)" +" loop_76)" " info_3" " 0)))" "(let-values(((common-scopes_0)" "(if(null? relevant-scope-sets_0)" "(set)" -"(let-values(((lst_90) relevant-scope-sets_0))" +"(let-values(((lst_91) relevant-scope-sets_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_90)))" -"((letrec-values(((for-loop_107)" -"(lambda(s_183 lst_91)" +"(let-values()(check-list lst_91)))" +"((letrec-values(((for-loop_106)" +"(lambda(s_175 lst_92)" "(begin" " 'for-loop" -"(if(pair? lst_91)" -"(let-values(((l_48)(unsafe-car lst_91))" -"((rest_43)(unsafe-cdr lst_91)))" -"(let-values(((s_83)" -"(let-values(((s_184) s_183))" -"(let-values(((s_185)" +"(if(pair? lst_92)" +"(let-values(((l_48)(unsafe-car lst_92))" +"((rest_43)(unsafe-cdr lst_92)))" +"(let-values(((s_82)" +"(let-values(((s_43) s_175))" +"(let-values(((s_181)" "(let-values()" "(set-intersect" -" s_184" +" s_43" "(list->set l_48)))))" -"(values s_185)))))" -"(if(not #f)(for-loop_107 s_83 rest_43) s_83)))" -" s_183)))))" -" for-loop_107)" +"(values s_181)))))" +"(if(not #f)(for-loop_106 s_82 rest_43) s_82)))" +" s_175)))))" +" for-loop_106)" "(list->set(car relevant-scope-sets_0))" -" lst_90))))))" +" lst_91))))))" "(string-append" "((letrec-values(((loop_78)" "(lambda(info_5 layer_2)" @@ -16682,7 +16720,7 @@ static const char *startup_source = "(apply" " string-append" "(reverse$1" -"(let-values(((lst_92)" +"(let-values(((lst_93)" "(let-values(((temp1_1)(hash-ref info_5 'bindings null))" "((temp2_2)" "(lambda(a_37 b_62)" @@ -16695,18 +16733,18 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_92)))" -"((letrec-values(((for-loop_103)" -"(lambda(fold-var_63 lst_93)" +"(let-values()(check-list lst_93)))" +"((letrec-values(((for-loop_102)" +"(lambda(fold-var_63 lst_94)" "(begin" " 'for-loop" -"(if(pair? lst_93)" -"(let-values(((b_38)(unsafe-car lst_93))" -"((rest_44)(unsafe-cdr lst_93)))" -"(let-values(((fold-var_20)" -"(let-values(((fold-var_64)" +"(if(pair? lst_94)" +"(let-values(((b_38)(unsafe-car lst_94))" +"((rest_44)(unsafe-cdr lst_94)))" +"(let-values(((fold-var_65)" +"(let-values(((fold-var_66)" " fold-var_63))" -"(let-values(((fold-var_70)" +"(let-values(((fold-var_72)" "(let-values()" "(cons" "(let-values()" @@ -16739,57 +16777,57 @@ static const char *startup_source = " b_38" " 'context)" " common-scopes_0)))" -" fold-var_64))))" -"(values fold-var_70)))))" +" fold-var_66))))" +"(values fold-var_72)))))" "(if(not #f)" -"(for-loop_103 fold-var_20 rest_44)" -" fold-var_20)))" +"(for-loop_102 fold-var_65 rest_44)" +" fold-var_65)))" " fold-var_63)))))" -" for-loop_103)" +" for-loop_102)" " null" -" lst_92)))))" +" lst_93)))))" "(let-values(((fallbacks_1)(hash-ref info_5 'fallbacks null)))" "(apply" " string-append" "(reverse$1" -"(let-values(((lst_94) fallbacks_1)((start_15)(add1 layer_2)))" +"(let-values(((lst_95) fallbacks_1)((start_15)(add1 layer_2)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_94)))" +"(let-values()(check-list lst_95)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_15)))" -"((letrec-values(((for-loop_108)" -"(lambda(fold-var_71 lst_95 pos_12)" +"((letrec-values(((for-loop_107)" +"(lambda(fold-var_73 lst_96 pos_12)" "(begin" " 'for-loop" -"(if(if(pair? lst_95) #t #f)" -"(let-values(((fallback_1)(unsafe-car lst_95))" -"((rest_0)(unsafe-cdr lst_95))" +"(if(if(pair? lst_96) #t #f)" +"(let-values(((fallback_1)(unsafe-car lst_96))" +"((rest_0)(unsafe-cdr lst_96))" "((layer_3) pos_12))" -"(let-values(((fold-var_72)" -"(let-values(((fold-var_73)" -" fold-var_71))" "(let-values(((fold-var_74)" +"(let-values(((fold-var_75)" +" fold-var_73))" +"(let-values(((fold-var_76)" "(let-values()" "(cons" "(let-values()" "(loop_78" " fallback_1" " layer_3))" -" fold-var_73))))" -"(values fold-var_74)))))" +" fold-var_75))))" +"(values fold-var_76)))))" "(if(not #f)" -"(for-loop_108" -" fold-var_72" +"(for-loop_107" +" fold-var_74" " rest_0" "(+ pos_12 1))" -" fold-var_72)))" -" fold-var_71)))))" -" for-loop_108)" +" fold-var_74)))" +" fold-var_73)))))" +" for-loop_107)" " null" -" lst_94" +" lst_95" " start_15)))))))))))" " loop_78)" " info_3" @@ -16806,25 +16844,25 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_9)))" "((letrec-values(((for-loop_1)" -"(lambda(fold-var_75 lst_10)" +"(lambda(fold-var_77 lst_10)" "(begin" " 'for-loop" "(if(pair? lst_10)" -"(let-values(((s_186)(unsafe-car lst_10))" +"(let-values(((s_182)(unsafe-car lst_10))" "((rest_1)(unsafe-cdr lst_10)))" -"(let-values(((fold-var_76)" -"(let-values(((fold-var_77) fold-var_75))" -"(if(set-member? common-scopes_0 s_186)" -"(let-values(((fold-var_5) fold-var_77))" +"(let-values(((fold-var_78)" +"(let-values(((fold-var_79) fold-var_77))" +"(if(set-member? common-scopes_0 s_182)" +"(let-values(((fold-var_5) fold-var_79))" "(let-values(((fold-var_6)" "(let-values()" "(cons" -"(let-values() s_186)" +"(let-values() s_182)" " fold-var_5))))" "(values fold-var_6)))" -" fold-var_77))))" -"(if(not #f)(for-loop_1 fold-var_76 rest_1) fold-var_76)))" -" fold-var_75)))))" +" fold-var_79))))" +"(if(not #f)(for-loop_1 fold-var_78 rest_1) fold-var_78)))" +" fold-var_77)))))" " for-loop_1)" " null" " lst_9))))" @@ -16855,34 +16893,34 @@ static const char *startup_source = " scopes_19" "(append" "(reverse$1" -"(let-values(((lst_96) scopes_19))" +"(let-values(((lst_97) scopes_19))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_96)))" -"((letrec-values(((for-loop_109)" -"(lambda(fold-var_78 lst_97)" +"(let-values()(check-list lst_97)))" +"((letrec-values(((for-loop_108)" +"(lambda(fold-var_80 lst_98)" "(begin" " 'for-loop" -"(if(pair? lst_97)" -"(let-values(((s_187)(unsafe-car lst_97))" -"((rest_45)(unsafe-cdr lst_97)))" -"(let-values(((fold-var_79)" -"(let-values(((fold-var_80) fold-var_78))" -"(if(not(set-member? common-scopes_1 s_187))" -"(let-values(((fold-var_81) fold-var_80))" -"(let-values(((fold-var_82)" +"(if(pair? lst_98)" +"(let-values(((s_183)(unsafe-car lst_98))" +"((rest_45)(unsafe-cdr lst_98)))" +"(let-values(((fold-var_81)" +"(let-values(((fold-var_82) fold-var_80))" +"(if(not(set-member? common-scopes_1 s_183))" +"(let-values(((fold-var_83) fold-var_82))" +"(let-values(((fold-var_84)" "(let-values()" "(cons" -"(let-values() s_187)" -" fold-var_81))))" -"(values fold-var_82)))" -" fold-var_80))))" -"(if(not #f)(for-loop_109 fold-var_79 rest_45) fold-var_79)))" -" fold-var_78)))))" -" for-loop_109)" +"(let-values() s_183)" +" fold-var_83))))" +"(values fold-var_84)))" +" fold-var_82))))" +"(if(not #f)(for-loop_108 fold-var_81 rest_45) fold-var_81)))" +" fold-var_80)))))" +" for-loop_108)" " null" -" lst_96))))" +" lst_97))))" " (list \"[common scopes]\"))))))" "(if(null? strs_0)" " (let-values () \"\\n [empty]\")" @@ -16890,31 +16928,31 @@ static const char *startup_source = "(apply" " string-append" "(reverse$1" -"(let-values(((lst_98) strs_0))" +"(let-values(((lst_99) strs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_98)))" -"((letrec-values(((for-loop_110)" -"(lambda(fold-var_83 lst_99)" +"(let-values()(check-list lst_99)))" +"((letrec-values(((for-loop_109)" +"(lambda(fold-var_85 lst_100)" "(begin" " 'for-loop" -"(if(pair? lst_99)" -"(let-values(((str_4)(unsafe-car lst_99))((rest_46)(unsafe-cdr lst_99)))" -"(let-values(((fold-var_84)" -"(let-values(((fold-var_85) fold-var_83))" +"(if(pair? lst_100)" +"(let-values(((str_4)(unsafe-car lst_100))((rest_46)(unsafe-cdr lst_100)))" +"(let-values(((fold-var_86)" +"(let-values(((fold-var_87) fold-var_85))" "(let-values(((fold-var_14)" "(let-values()" "(cons" "(let-values()" " (string-append \"\\n \" str_4))" -" fold-var_85))))" +" fold-var_87))))" "(values fold-var_14)))))" -"(if(not #f)(for-loop_110 fold-var_84 rest_46) fold-var_84)))" -" fold-var_83)))))" -" for-loop_110)" +"(if(not #f)(for-loop_109 fold-var_86 rest_46) fold-var_86)))" +" fold-var_85)))))" +" for-loop_109)" " null" -" lst_98)))))))))))" +" lst_99)))))))))))" " (define-values (layer->string) (lambda (layer_4) (begin (if (zero? layer_4) \"\" (format \" at layer ~a\" layer_4)))))" "(define-values" "(raise-syntax-implicit-error)" @@ -16966,31 +17004,31 @@ static const char *startup_source = " 'check-no-duplicate-ids8" "(let-values(((ids_2) ids5_0))" "(let-values(((phase_45) phase6_0))" -"(let-values(((s_188) s7_1))" -"(let-values(((ht_78)(if ht4_0 ht3_0(make-check-no-duplicate-table))))" +"(let-values(((s_184) s7_1))" +"(let-values(((ht_77)(if ht4_0 ht3_0(make-check-no-duplicate-table))))" " (let-values (((what_2) (if what2_0 what1_0 \"binding name\")))" "(let-values()" "((letrec-values(((loop_80)" -"(lambda(v_131 ht_84)" +"(lambda(v_132 ht_83)" "(begin" " 'loop" -"(if(identifier? v_131)" +"(if(identifier? v_132)" "(let-values()" -"(let-values(((l_7)(hash-ref ht_84(syntax-e$1 v_131) null)))" +"(let-values(((l_7)(hash-ref ht_83(syntax-e$1 v_132) null)))" "(begin" -"(let-values(((lst_78) l_7))" +"(let-values(((lst_79) l_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_78)))" -"((letrec-values(((for-loop_96)" -"(lambda(lst_100)" +"(let-values()(check-list lst_79)))" +"((letrec-values(((for-loop_95)" +"(lambda(lst_101)" "(begin" " 'for-loop" -"(if(pair? lst_100)" -"(let-values(((id_14)(unsafe-car lst_100))" +"(if(pair? lst_101)" +"(let-values(((id_14)(unsafe-car lst_101))" "((rest_47)" -"(unsafe-cdr lst_100)))" +"(unsafe-cdr lst_101)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -16999,7 +17037,7 @@ static const char *startup_source = "(let-values()" "(if(bound-identifier=?$1" " id_14" -" v_131" +" v_132" " phase_45)" "(let-values()" "(raise-syntax-error$1" @@ -17007,25 +17045,25 @@ static const char *startup_source = "(string-append" " \"duplicate \"" " what_2)" -" s_188" -" v_131))" +" s_184" +" v_132))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_96 rest_47)" +"(for-loop_95 rest_47)" "(values))))" "(values))))))" -" for-loop_96)" -" lst_78)))" +" for-loop_95)" +" lst_79)))" "(void)" -"(hash-set ht_84(syntax-e$1 v_131)(cons v_131 l_7)))))" -"(if(pair? v_131)" -"(let-values()(loop_80(cdr v_131)(loop_80(car v_131) ht_84)))" -"(let-values() ht_84)))))))" +"(hash-set ht_83(syntax-e$1 v_132)(cons v_132 l_7)))))" +"(if(pair? v_132)" +"(let-values()(loop_80(cdr v_132)(loop_80(car v_132) ht_83)))" +"(let-values() ht_83)))))))" " loop_80)" " ids_2" -" ht_78))))))))))" +" ht_77))))))))))" "(define-values" "(remove-use-site-scopes)" "(lambda(s_0 ctx_7)" @@ -17035,31 +17073,31 @@ static const char *startup_source = "(if(syntax?$1 s_0)" "(remove-scopes s_0(unbox use-sites_0))" "(reverse$1" -"(let-values(((lst_101) s_0))" +"(let-values(((lst_102) s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_101)))" -"((letrec-values(((for-loop_111)" -"(lambda(fold-var_86 lst_6)" +"(let-values()(check-list lst_102)))" +"((letrec-values(((for-loop_110)" +"(lambda(fold-var_88 lst_6)" "(begin" " 'for-loop" "(if(pair? lst_6)" "(let-values(((id_10)(unsafe-car lst_6))((rest_48)(unsafe-cdr lst_6)))" -"(let-values(((fold-var_87)" -"(let-values(((fold-var_88) fold-var_86))" +"(let-values(((fold-var_89)" +"(let-values(((fold-var_90) fold-var_88))" "(let-values(((fold-var_60)" "(let-values()" "(cons" "(let-values()" "(remove-scopes id_10(unbox use-sites_0)))" -" fold-var_88))))" +" fold-var_90))))" "(values fold-var_60)))))" -"(if(not #f)(for-loop_111 fold-var_87 rest_48) fold-var_87)))" -" fold-var_86)))))" -" for-loop_111)" +"(if(not #f)(for-loop_110 fold-var_89 rest_48) fold-var_89)))" +" fold-var_88)))))" +" for-loop_110)" " null" -" lst_101)))))" +" lst_102)))))" " s_0)))))" "(define-values" "(struct:compile-context" @@ -17162,26 +17200,26 @@ static const char *startup_source = "(lambda()(begin(mpi-intern-table1.1(make-hash)(make-hasheq)))))" "(define-values" "(intern-module-path-index!)" -"(lambda(t_42 mpi_21)" +"(lambda(t_43 mpi_21)" "(begin" -"(let-values(((or-part_177)(hash-ref(mpi-intern-table-fast t_42) mpi_21 #f)))" -"(if or-part_177" -" or-part_177" +"(let-values(((or-part_74)(hash-ref(mpi-intern-table-fast t_43) mpi_21 #f)))" +"(if or-part_74" +" or-part_74" "(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_42) mpi_21 mpi_21) mpi_21))" +"(let-values()(begin(hash-set!(mpi-intern-table-fast t_43) mpi_21 mpi_21) mpi_21))" "(let-values()" -"(let-values(((interned-base_0)(if base_15(intern-module-path-index! t_42 base_15) #f)))" +"(let-values(((interned-base_0)(if base_15(intern-module-path-index! t_43 base_15) #f)))" "(let-values(((at-name_0)" -"(let-values(((or-part_29)(hash-ref(mpi-intern-table-normal t_42) name_2 #f)))" +"(let-values(((or-part_29)(hash-ref(mpi-intern-table-normal t_43) 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_42) name_2 at-name_1) at-name_1))))))" +"(begin(hash-set!(mpi-intern-table-normal t_43) name_2 at-name_1) at-name_1))))))" "(let-values(((i-mpi_0)" -"(let-values(((or-part_76)(hash-ref at-name_0 interned-base_0 #f)))" -"(if or-part_76" -" or-part_76" +"(let-values(((or-part_81)(hash-ref at-name_0 interned-base_0 #f)))" +"(if or-part_81" +" or-part_81" "(let-values(((mpi_22)" "(if(eq? base_15 interned-base_0)" " mpi_21" @@ -17198,15 +17236,15 @@ static const char *startup_source = " \"module-path-index?\"" " the-struct_45))))))" "(begin(hash-set! at-name_0 interned-base_0 mpi_22) mpi_22))))))" -"(begin(hash-set!(mpi-intern-table-fast t_42) mpi_21 i-mpi_0) i-mpi_0))))))))))))" +"(begin(hash-set!(mpi-intern-table-fast t_43) 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_68)(begin(hash-ref built-in-symbols s_68 #f))))" +"(define-values(built-in-symbol?)(lambda(s_69)(begin(hash-ref built-in-symbols s_69 #f))))" "(define-values" "(make-built-in-symbol!)" -"(lambda(s_182)" +"(lambda(s_180)" "(begin" -" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_182))))" +" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_180))))" "(begin(register-built-in-symbol! built-in-s_0) built-in-s_0)))))" "(void" "(begin" @@ -17309,9 +17347,9 @@ static const char *startup_source = "(let-values()" "(let-values(((mpi_24)(intern-module-path-index!(module-path-index-table-intern mpis_1) mpi_23))" "((positions_0)(module-path-index-table-positions mpis_1)))" -"(let-values(((or-part_74)(hash-ref positions_0 mpi_24 #f)))" -"(if or-part_74" -" or-part_74" +"(let-values(((or-part_79)(hash-ref positions_0 mpi_24 #f)))" +"(if or-part_79" +" or-part_79" "(let-values(((pos_14)(hash-count positions_0)))" "(begin(hash-set! positions_0 mpi_24 pos_14) pos_14))))))" "(void))))))" @@ -17320,72 +17358,74 @@ static const char *startup_source = "(lambda(mpis_2)" "(begin" "(let-values(((unique-list_0)" -"(lambda(v_132)" +"(lambda(v_133)" "(begin" " 'unique-list" -"(if(pair? v_132)" +"(if(pair? v_133)" "(reverse$1" -"(let-values(((lst_102) v_132))" +"(let-values(((lst_103) v_133))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_102)))" -"((letrec-values(((for-loop_26)" -"(lambda(fold-var_10 lst_81)" +"(let-values()(check-list lst_103)))" +"((letrec-values(((for-loop_111)" +"(lambda(fold-var_10 lst_82)" "(begin" " 'for-loop" -"(if(pair? lst_81)" -"(let-values(((i_93)(unsafe-car lst_81))" -"((rest_49)(unsafe-cdr lst_81)))" -"(let-values(((fold-var_89)" -"(let-values(((fold-var_90) fold-var_10))" +"(if(pair? lst_82)" +"(let-values(((i_93)(unsafe-car lst_82))" +"((rest_49)(unsafe-cdr lst_82)))" "(let-values(((fold-var_91)" +"(let-values(((fold-var_92) fold-var_10))" +"(let-values(((fold-var_93)" "(let-values()" "(cons" "(let-values() i_93)" -" fold-var_90))))" -"(values fold-var_91)))))" -"(if(not #f)(for-loop_26 fold-var_89 rest_49) fold-var_89)))" +" fold-var_92))))" +"(values fold-var_93)))))" +"(if(not #f)" +"(for-loop_111 fold-var_91 rest_49)" +" fold-var_91)))" " fold-var_10)))))" -" for-loop_26)" +" for-loop_111)" " null" -" lst_102))))" -" v_132)))))" +" lst_103))))" +" v_133)))))" "(let-values(((positions_1)(module-path-index-table-positions mpis_2)))" "(let-values(((gen-order_0)(make-hasheqv)))" "(let-values(((rev-positions_0)" -"(let-values(((ht_85) positions_1))" +"(let-values(((ht_84) positions_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_85)))" +"(let-values()(check-in-hash ht_84)))" "((letrec-values(((for-loop_83)" -"(lambda(table_116 i_94)" +"(lambda(table_119 i_94)" "(begin" " 'for-loop" "(if i_94" -"(let-values(((k_19 v_62)(hash-iterate-key+value ht_85 i_94)))" -"(let-values(((table_117)" -"(let-values(((table_111) table_116))" -"(let-values(((table_118)" +"(let-values(((k_19 v_64)(hash-iterate-key+value ht_84 i_94)))" +"(let-values(((table_120)" +"(let-values(((table_114) table_119))" +"(let-values(((table_121)" "(let-values()" -"(let-values(((key_46 val_37)" +"(let-values(((key_45 val_37)" "(let-values()" "(values" -" v_62" +" v_64" " k_19))))" "(hash-set" -" table_111" -" key_46" +" table_114" +" key_45" " val_37)))))" -"(values table_118)))))" +"(values table_121)))))" "(if(not #f)" -"(for-loop_83 table_117(hash-iterate-next ht_85 i_94))" -" table_117)))" -" table_116)))))" +"(for-loop_83 table_120(hash-iterate-next ht_84 i_94))" +" table_120)))" +" table_119)))))" " for-loop_83)" " '#hasheqv()" -"(hash-iterate-first ht_85))))))" +"(hash-iterate-first ht_84))))))" "(let-values((()" "(begin" "(let-values(((start_16) 0)((end_10)(hash-count rev-positions_0))((inc_4) 1))" @@ -17445,40 +17485,40 @@ static const char *startup_source = "(values))))" "(let-values()" "(let-values(((rev-gen-order_0)" -"(let-values(((ht_86) gen-order_0))" +"(let-values(((ht_85) gen-order_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_86)))" +"(let-values()(check-in-hash ht_85)))" "((letrec-values(((for-loop_55)" -"(lambda(table_119 i_20)" +"(lambda(table_122 i_20)" "(begin" " 'for-loop" "(if i_20" -"(let-values(((k_20 v_133)" -"(hash-iterate-key+value ht_86 i_20)))" -"(let-values(((table_19)" -"(let-values(((table_120) table_119))" +"(let-values(((k_20 v_134)" +"(hash-iterate-key+value ht_85 i_20)))" +"(let-values(((table_15)" +"(let-values(((table_123) table_122))" "(let-values(((table_9)" "(let-values()" -"(let-values(((key_47" +"(let-values(((key_46" " val_38)" "(let-values()" "(values" -" v_133" +" v_134" " k_20))))" "(hash-set" -" table_120" -" key_47" +" table_123" +" key_46" " val_38)))))" "(values table_9)))))" "(if(not #f)" -"(for-loop_55 table_19(hash-iterate-next ht_86 i_20))" -" table_19)))" -" table_119)))))" +"(for-loop_55 table_15(hash-iterate-next ht_85 i_20))" +" table_15)))" +" table_122)))))" " for-loop_55)" " '#hasheqv()" -"(hash-iterate-first ht_86))))))" +"(hash-iterate-first ht_85))))))" "(let-values(((gens_0)" "(let-values(((len_11)(hash-count gen-order_0)))" "(begin" @@ -17486,7 +17526,7 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_11)))" -"(let-values(((v_134)(make-vector len_11 0)))" +"(let-values(((v_135)(make-vector len_11 0)))" "(begin" "(if(zero? len_11)" "(void)" @@ -17498,7 +17538,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_17 end_11 inc_5)))" -"((letrec-values(((for-loop_29)" +"((letrec-values(((for-loop_28)" "(lambda(i_96 pos_16)" "(begin" " 'for-loop" @@ -17510,7 +17550,7 @@ static const char *startup_source = "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_134" +" v_135" " i_98" "(let-values()" "(let-values(((mpi_27)" @@ -17529,13 +17569,13 @@ static const char *startup_source = " path_6)" "(let-values()" "(box" -"(let-values(((or-part_178)" +"(let-values(((or-part_164)" "(unique-list_0" "(1/resolved-module-path-name" "(module-path-index-resolved" " mpi_27)))))" -"(if or-part_178" -" or-part_178" +"(if or-part_164" +" or-part_164" " 'self))))" "(if(not" " base_17)" @@ -17560,34 +17600,34 @@ static const char *startup_source = " i_89))" "(not #f)" " #f)" -"(for-loop_29 i_97(+ pos_16 inc_5))" +"(for-loop_28 i_97(+ pos_16 inc_5))" " i_97)))" " i_96)))))" -" for-loop_29)" +" for-loop_28)" " 0" " start_17)))))" -" v_134))))))" +" v_135))))))" "(list" " 'deserialize-module-path-indexes" "(list 'quote gens_0)" "(list" " 'quote" -"(let-values(((vec_25 i_100)" +"(let-values(((vec_25 i_43)" "(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_57)" -"(lambda(vec_26 i_101 pos_17)" +"(lambda(vec_26 i_100 pos_17)" "(begin" " 'for-loop" "(if(< pos_17 end_12)" "(let-values(((i_21) pos_17))" -"(let-values(((vec_27 i_102)" +"(let-values(((vec_27 i_101)" "(let-values(((vec_28) vec_26)" -"((i_37) i_101))" -"(let-values(((vec_29 i_103)" +"((i_37) i_100))" +"(let-values(((vec_29 i_60)" "(let-values()" "(let-values(((new-vec_2)" "(if(eq?" @@ -17612,16 +17652,16 @@ static const char *startup_source = "(unsafe-fx+" " i_37" " 1)))))))" -"(values vec_29 i_103)))))" +"(values vec_29 i_60)))))" "(if(not #f)" -"(for-loop_57 vec_27 i_102(+ pos_17 inc_6))" -"(values vec_27 i_102))))" -"(values vec_26 i_101))))))" +"(for-loop_57 vec_27 i_101(+ pos_17 inc_6))" +"(values vec_27 i_101))))" +"(values vec_26 i_100))))))" " for-loop_57)" "(make-vector 16)" " 0" " start_18)))))" -"(shrink-vector vec_25 i_100)))))))))))))))" +"(shrink-vector vec_25 i_43)))))))))))))))" "(define-values" "(deserialize-module-path-indexes)" "(lambda(gen-vec_0 order-vec_0)" @@ -17642,7 +17682,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(if(unsafe-fx< pos_18 len_12) #t #f)" -"(let-values(((d_21)(unsafe-vector-ref vec_30 pos_18))((i_104) pos_19))" +"(let-values(((d_21)(unsafe-vector-ref vec_30 pos_18))((i_102) pos_19))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17651,7 +17691,7 @@ static const char *startup_source = "(let-values()" "(vector-set!" " gen_0" -" i_104" +" i_102" "(if(eq? d_21 'top)" "(let-values()" "(deserialize-module-path-index))" @@ -17680,7 +17720,7 @@ static const char *startup_source = "(if(exact-nonnegative-integer? len_13)" "(void)" " (let-values () (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_13)))" -"(let-values(((v_135)(make-vector len_13 0)))" +"(let-values(((v_136)(make-vector len_13 0)))" "(begin" "(if(zero? len_13)" "(void)" @@ -17691,33 +17731,33 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_114)" -"(lambda(i_105 pos_20)" +"(lambda(i_103 pos_20)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_20 len_14)" -"(let-values(((p_32)(unsafe-vector-ref vec_32 pos_20)))" +"(let-values(((p_31)(unsafe-vector-ref vec_32 pos_20)))" "(let-values(((i_45)" -"(let-values(((i_63) i_105))" -"(let-values(((i_106)" +"(let-values(((i_104) i_103))" +"(let-values(((i_105)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_135" -" i_63" +" v_136" +" i_104" "(let-values()" -"(vector*-ref gen_0 p_32)))" -"(unsafe-fx+ 1 i_63)))))" -"(values i_106)))))" -"(if(if(not((lambda x_41(unsafe-fx= i_45 len_13)) p_32))" +"(vector*-ref gen_0 p_31)))" +"(unsafe-fx+ 1 i_104)))))" +"(values i_105)))))" +"(if(if(not((lambda x_40(unsafe-fx= i_45 len_13)) p_31))" "(not #f)" " #f)" "(for-loop_114 i_45(unsafe-fx+ 1 pos_20))" " i_45)))" -" i_105)))))" +" i_103)))))" " for-loop_114)" " 0" " 0)))))" -" v_135)))))))))" +" v_136)))))))))" "(define-values" "(mpis-as-vector)" "(lambda(mpis_3)" @@ -17725,17 +17765,17 @@ static const char *startup_source = "(let-values(((positions_2)(module-path-index-table-positions mpis_3)))" "(let-values(((vec_34)(make-vector(hash-count positions_2) #f)))" "(begin" -"(let-values(((ht_87) positions_2))" +"(let-values(((ht_86) positions_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_87)))" +"(let-values()(check-in-hash ht_86)))" "((letrec-values(((for-loop_115)" -"(lambda(i_107)" +"(lambda(i_106)" "(begin" " 'for-loop" -"(if i_107" -"(let-values(((mpi_28 pos_21)(hash-iterate-key+value ht_87 i_107)))" +"(if i_106" +"(let-values(((mpi_28 pos_21)(hash-iterate-key+value ht_86 i_106)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17745,10 +17785,10 @@ static const char *startup_source = "(vector-set! vec_34 pos_21 mpi_28))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_115(hash-iterate-next ht_87 i_107))(values))))" +"(if(not #f)(for-loop_115(hash-iterate-next ht_86 i_106))(values))))" "(values))))))" " for-loop_115)" -"(hash-iterate-first ht_87))))" +"(hash-iterate-first ht_86))))" "(void)" " vec_34))))))" "(define-values" @@ -17756,18 +17796,18 @@ static const char *startup_source = "(lambda(mus_0 mpis_4)" "(begin" "(reverse$1" -"(let-values(((lst_103) mus_0))" +"(let-values(((lst_104) mus_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_104)))" "((letrec-values(((for-loop_116)" -"(lambda(fold-var_92 lst_104)" +"(lambda(fold-var_94 lst_105)" "(begin" " 'for-loop" -"(if(pair? lst_104)" -"(let-values(((mu_1)(unsafe-car lst_104))((rest_50)(unsafe-cdr lst_104)))" -"(let-values(((fold-var_93)" -"(let-values(((fold-var_94) fold-var_92))" +"(if(pair? lst_105)" +"(let-values(((mu_1)(unsafe-car lst_105))((rest_50)(unsafe-cdr lst_105)))" "(let-values(((fold-var_95)" +"(let-values(((fold-var_96) fold-var_94))" +"(let-values(((fold-var_97)" "(let-values()" "(cons" "(let-values()" @@ -17777,32 +17817,32 @@ static const char *startup_source = " mpis_4" "(module-use-module mu_1))" "(module-use-phase mu_1)))" -" fold-var_94))))" -"(values fold-var_95)))))" -"(if(not #f)(for-loop_116 fold-var_93 rest_50) fold-var_93)))" -" fold-var_92)))))" +" fold-var_96))))" +"(values fold-var_97)))))" +"(if(not #f)(for-loop_116 fold-var_95 rest_50) fold-var_95)))" +" fold-var_94)))))" " for-loop_116)" " null" -" lst_103)))))))" +" lst_104)))))))" "(define-values" "(interned-literal?)" -"(lambda(v_89)" +"(lambda(v_90)" "(begin" -"(let-values(((or-part_179)(null? v_89)))" -"(if or-part_179" -" or-part_179" -"(let-values(((or-part_180)(boolean? v_89)))" -"(if or-part_180" -" or-part_180" -"(let-values(((or-part_181)" -"(if(fixnum? v_89)(if(< v_89(sub1(expt 2 30)))(> v_89(-(expt 2 30))) #f) #f)))" -"(if or-part_181" -" or-part_181" -"(let-values(((or-part_182)(symbol? v_89)))" -"(if or-part_182" -" or-part_182" -"(let-values(((or-part_183)(char? v_89)))" -"(if or-part_183 or-part_183(keyword? v_89))))))))))))))" +"(let-values(((or-part_165)(null? v_90)))" +"(if or-part_165" +" or-part_165" +"(let-values(((or-part_166)(boolean? v_90)))" +"(if or-part_166" +" or-part_166" +"(let-values(((or-part_167)" +"(if(fixnum? v_90)(if(< v_90(sub1(expt 2 30)))(> v_90(-(expt 2 30))) #f) #f)))" +"(if or-part_167" +" or-part_167" +"(let-values(((or-part_168)(symbol? v_90)))" +"(if or-part_168" +" or-part_168" +"(let-values(((or-part_169)(char? v_90)))" +"(if or-part_169 or-part_169(keyword? v_90))))))))))))))" "(define-values" "(serialize-phase-to-link-module-uses)" "(lambda(phase-to-link-module-uses_0 mpis_5)" @@ -17815,17 +17855,17 @@ static const char *startup_source = "(apply" " append" "(reverse$1" -"(let-values(((lst_105) phases-in-order_0))" +"(let-values(((lst_106) phases-in-order_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_105)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_106)))" "((letrec-values(((for-loop_117)" -"(lambda(fold-var_96 lst_106)" +"(lambda(fold-var_98 lst_107)" "(begin" " 'for-loop" -"(if(pair? lst_106)" -"(let-values(((phase_47)(unsafe-car lst_106))((rest_51)(unsafe-cdr lst_106)))" -"(let-values(((fold-var_97)" -"(let-values(((fold-var_98) fold-var_96))" +"(if(pair? lst_107)" +"(let-values(((phase_47)(unsafe-car lst_107))((rest_51)(unsafe-cdr lst_107)))" +"(let-values(((fold-var_99)" +"(let-values(((fold-var_100) fold-var_98))" "(let-values(((fold-var_35)" "(let-values()" "(cons" @@ -17839,23 +17879,23 @@ static const char *startup_source = " phase-to-link-module-uses_0" " phase_47)" " mpis_5))))" -" fold-var_98))))" +" fold-var_100))))" "(values fold-var_35)))))" -"(if(not #f)(for-loop_117 fold-var_97 rest_51) fold-var_97)))" -" fold-var_96)))))" +"(if(not #f)(for-loop_117 fold-var_99 rest_51) fold-var_99)))" +" fold-var_98)))))" " for-loop_117)" " null" -" lst_105))))))))))" +" lst_106))))))))))" "(define-values" "(generate-deserialize6.1)" "(lambda(syntax-support?2_0 syntax-support?3_0 v4_0 mpis5_0)" "(begin" " 'generate-deserialize6" -"(let-values(((v_136) v4_0))" +"(let-values(((v_137) v4_0))" "(let-values(((mpis_6) mpis5_0))" "(let-values(((syntax-support?_0)(if syntax-support?3_0 syntax-support?2_0 #t)))" "(let-values()" -"(let-values(((reachable-scopes_4)(find-reachable-scopes v_136)))" +"(let-values(((reachable-scopes_4)(find-reachable-scopes v_137)))" "(let-values(((state_24)(make-serialize-state reachable-scopes_4)))" "(let-values(((mutables_0)(make-hasheq)))" "(let-values(((objs_0)(make-hasheq)))" @@ -17864,64 +17904,64 @@ static const char *startup_source = "(let-values(((frontier_0) null))" "(letrec-values(((add-frontier!_0)" "(case-lambda" -"((v_99)(begin 'add-frontier!(set! frontier_0(cons v_99 frontier_0))))" -"((kind_3 v_101)(add-frontier!_0 v_101)))))" +"((v_100)(begin 'add-frontier!(set! frontier_0(cons v_100 frontier_0))))" +"((kind_3 v_102)(add-frontier!_0 v_102)))))" "(let-values((()" "(begin" "((letrec-values(((frontier-loop_0)" -"(lambda(v_103)" +"(lambda(v_104)" "(begin" " 'frontier-loop" "(begin" "((letrec-values(((loop_82)" -"(lambda(v_105)" +"(lambda(v_106)" "(begin" " 'loop" -"(if(let-values(((or-part_184)" +"(if(let-values(((or-part_170)" "(interned-literal?" -" v_105)))" -"(if or-part_184" -" or-part_184" +" v_106)))" +"(if or-part_170" +" or-part_170" "(1/module-path-index?" -" v_105)))" +" v_106)))" "(let-values()(void))" "(if(hash-ref" " objs_0" -" v_105" +" v_106" " #f)" "(let-values()" "(if(hash-ref" " mutables_0" -" v_105" +" v_106" " #f)" "(void)" "(let-values()" "(hash-set!" " shares_0" -" v_105" +" v_106" " #t))))" "(let-values()" "(begin" "(if(serialize-fill!?" -" v_105)" +" v_106)" "(let-values()" "(begin" "(hash-set!" " mutables_0" -" v_105" +" v_106" "(hash-count" " mutables_0))" "((serialize-fill!-ref" -" v_105)" -" v_105" +" v_106)" +" v_106" " add-frontier!_0" " state_24)))" "(if(serialize?" -" v_105)" +" v_106)" "(let-values()" "((serialize-ref" -" v_105)" -" v_105" +" v_106)" +" v_106" "(case-lambda" "((sub-v_0)" "(loop_82" @@ -17932,31 +17972,31 @@ static const char *startup_source = " sub-v_1)))" " state_24))" "(if(pair?" -" v_105)" +" v_106)" "(let-values()" "(begin" "(loop_82" "(car" -" v_105))" +" v_106))" "(loop_82" "(cdr" -" v_105))))" +" v_106))))" "(if(vector?" -" v_105)" +" v_106)" "(let-values()" -"(if(let-values(((or-part_185)" +"(if(let-values(((or-part_171)" "(immutable?" -" v_105)))" -"(if or-part_185" -" or-part_185" +" v_106)))" +"(if or-part_171" +" or-part_171" "(zero?" "(vector-length" -" v_105))))" +" v_106))))" "(begin" "(let-values(((vec_35" " len_15)" "(let-values(((vec_36)" -" v_105))" +" v_106))" "(begin" "(check-vector" " vec_36)" @@ -18001,14 +18041,14 @@ static const char *startup_source = "(begin" "(hash-set!" " mutables_0" -" v_105" +" v_106" "(hash-count" " mutables_0))" "(begin" "(let-values(((vec_37" " len_16)" "(let-values(((vec_38)" -" v_105))" +" v_106))" "(begin" "(check-vector" " vec_38)" @@ -18051,50 +18091,50 @@ static const char *startup_source = " 0)))" "(void)))))" "(if(box?" -" v_105)" +" v_106)" "(let-values()" "(if(immutable?" -" v_105)" +" v_106)" "(loop_82" "(unbox" -" v_105))" +" v_106))" "(begin" "(hash-set!" " mutables_0" -" v_105" +" v_106" "(hash-count" " mutables_0))" "(add-frontier!_0" "(unbox" -" v_105)))))" +" v_106)))))" "(if(hash?" -" v_105)" +" v_106)" "(let-values()" "(if(immutable?" -" v_105)" +" v_106)" "(begin" -"(let-values(((lst_75)" +"(let-values(((lst_76)" "(sorted-hash-keys" -" v_105)))" +" v_106)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_75)))" +" lst_76)))" "((letrec-values(((for-loop_120)" -"(lambda(lst_107)" +"(lambda(lst_108)" "(begin" " 'for-loop" "(if(pair?" -" lst_107)" +" lst_108)" "(let-values(((k_21)" "(unsafe-car" -" lst_107))" +" lst_108))" "((rest_52)" "(unsafe-cdr" -" lst_107)))" +" lst_108)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18106,7 +18146,7 @@ static const char *startup_source = " k_21)" "(loop_82" "(hash-ref" -" v_105" +" v_106" " k_21))))" "(values)))))" "(values)))))" @@ -18117,37 +18157,37 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_120)" -" lst_75)))" +" lst_76)))" "(void))" "(begin" "(hash-set!" " mutables_0" -" v_105" +" v_106" "(hash-count" " mutables_0))" "(begin" -"(let-values(((lst_108)" +"(let-values(((lst_109)" "(sorted-hash-keys" -" v_105)))" +" v_106)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_108)))" +" lst_109)))" "((letrec-values(((for-loop_121)" -"(lambda(lst_109)" +"(lambda(lst_110)" "(begin" " 'for-loop" "(if(pair?" -" lst_109)" +" lst_110)" "(let-values(((k_22)" "(unsafe-car" -" lst_109))" +" lst_110))" "((rest_53)" "(unsafe-cdr" -" lst_109)))" +" lst_110)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18159,7 +18199,7 @@ static const char *startup_source = " k_22)" "(add-frontier!_0" "(hash-ref" -" v_105" +" v_106" " k_22))))" "(values)))))" "(values)))))" @@ -18170,10 +18210,10 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_121)" -" lst_108)))" +" lst_109)))" "(void)))))" "(if(prefab-struct-key" -" v_105)" +" v_106)" "(let-values()" "(begin" "(let-values(((v*_2" @@ -18183,14 +18223,14 @@ static const char *startup_source = "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_33)" +"(lambda(x_32)" "(vector?" -" x_33))" -"(lambda(x_42)" +" x_32))" +"(lambda(x_41)" "(unsafe-vector-length" -" x_42))" +" x_41))" "(struct->vector" -" v_105)" +" v_106)" " 1" " #f" " 1)))" @@ -18229,7 +18269,7 @@ static const char *startup_source = " start*_1)))" "(void)))" "(if(srcloc?" -" v_105)" +" v_106)" "(let-values()" "(begin" "(let-values(((v*_3" @@ -18239,14 +18279,14 @@ static const char *startup_source = "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_43)" +"(lambda(x_42)" "(vector?" -" x_43))" -"(lambda(x_44)" +" x_42))" +"(lambda(x_43)" "(unsafe-vector-length" -" x_44))" +" x_43))" "(struct->vector" -" v_105)" +" v_106)" " 1" " #f" " 1)))" @@ -18288,38 +18328,38 @@ static const char *startup_source = "(void))))))))))" "(hash-set!" " objs_0" -" v_105" +" v_106" " obj-step_0)" "(set! obj-step_0" "(add1" " obj-step_0))))))))))" " loop_82)" -" v_103)" +" v_104)" "(if(null? frontier_0)" "(void)" "(let-values()" "(let-values(((l_49) frontier_0))" "(begin" "(set! frontier_0 null)" -"(let-values(((lst_110) l_49))" +"(let-values(((lst_111) l_49))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_110)))" +"(check-list lst_111)))" "((letrec-values(((for-loop_75)" -"(lambda(lst_111)" +"(lambda(lst_112)" "(begin" " 'for-loop" "(if(pair?" -" lst_111)" -"(let-values(((v_137)" +" lst_112)" +"(let-values(((v_79)" "(unsafe-car" -" lst_111))" +" lst_112))" "((rest_54)" "(unsafe-cdr" -" lst_111)))" +" lst_112)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18327,7 +18367,7 @@ static const char *startup_source = "(begin" "(let-values()" "(frontier-loop_0" -" v_137))" +" v_79))" "(values)))))" "(values)))))" "(if(not" @@ -18337,55 +18377,55 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_75)" -" lst_110)))" +" lst_111)))" "(void))))))))))" " frontier-loop_0)" -" v_136)" +" v_137)" "(values))))" "(let-values(((num-mutables_0)(hash-count mutables_0)))" "(let-values(((share-step-positions_0)" "(let-values(((share-steps_0)" "(reverse$1" -"(let-values(((ht_88) shares_0))" +"(let-values(((ht_87) shares_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_88)))" +"(let-values()(check-in-hash-keys ht_87)))" "((letrec-values(((for-loop_124)" -"(lambda(fold-var_99 i_108)" +"(lambda(fold-var_101 i_107)" "(begin" " 'for-loop" -"(if i_108" +"(if i_107" "(let-values(((obj_0)" "(hash-iterate-key" -" ht_88" -" i_108)))" -"(let-values(((fold-var_100)" -"(let-values(((fold-var_101)" -" fold-var_99))" +" ht_87" +" i_107)))" "(let-values(((fold-var_102)" +"(let-values(((fold-var_103)" +" fold-var_101))" +"(let-values(((fold-var_104)" "(let-values()" "(cons" "(let-values()" "(hash-ref" " objs_0" " obj_0))" -" fold-var_101))))" +" fold-var_103))))" "(values" -" fold-var_102)))))" +" fold-var_104)))))" "(if(not #f)" "(for-loop_124" -" fold-var_100" +" fold-var_102" "(hash-iterate-next" -" ht_88" -" i_108))" -" fold-var_100)))" -" fold-var_99)))))" +" ht_87" +" i_107))" +" fold-var_102)))" +" fold-var_101)))))" " for-loop_124)" " null" -"(hash-iterate-first ht_88)))))))" -"(let-values(((lst_112)" +"(hash-iterate-first ht_87)))))))" +"(let-values(((lst_113)" "(let-values(((share-steps12_0) share-steps_0)" "((<13_0) <))" "(sort7.1 #f #f #f #f share-steps12_0 <13_0)))" @@ -18393,46 +18433,46 @@ 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_113)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_20)))" "((letrec-values(((for-loop_125)" -"(lambda(table_121 lst_113 pos_24)" +"(lambda(table_124 lst_114 pos_24)" "(begin" " 'for-loop" -"(if(if(pair? lst_113) #t #f)" +"(if(if(pair? lst_114) #t #f)" "(let-values(((step_3)" -"(unsafe-car lst_113))" +"(unsafe-car lst_114))" "((rest_55)" -"(unsafe-cdr lst_113))" +"(unsafe-cdr lst_114))" "((pos_25) pos_24))" -"(let-values(((table_122)" -"(let-values(((table_123)" -" table_121))" -"(let-values(((table_124)" +"(let-values(((table_125)" +"(let-values(((table_126)" +" table_124))" +"(let-values(((table_127)" "(let-values()" -"(let-values(((key_48" +"(let-values(((key_47" " val_39)" "(let-values()" "(values" " step_3" " pos_25))))" "(hash-set" -" table_123" -" key_48" +" table_126" +" key_47" " val_39)))))" -"(values table_124)))))" +"(values table_127)))))" "(if(not #f)" "(for-loop_125" -" table_122" +" table_125" " rest_55" "(+ pos_24 1))" -" table_122)))" -" table_121)))))" +" table_125)))" +" table_124)))))" " for-loop_125)" " '#hasheqv()" -" lst_112" +" lst_113" " start_20))))))" "(let-values(((stream_0) null))" "(let-values(((stream-size_0) 0))" @@ -18446,8 +18486,8 @@ static const char *startup_source = "(list-ref" " stream_0" "(- stream-size_0(add1 pos_26)))))" -"(let-values(((or-part_165)(not(keyword? v_138))))" -"(if or-part_165 or-part_165(eq? '#:quote v_138))))))))" +"(let-values(((or-part_157)(not(keyword? v_138))))" +"(if or-part_157 or-part_157(eq? '#:quote v_138))))))))" "(let-values(((ser-reset!_0)" "(lambda(pos_27)" "(begin" @@ -18565,7 +18605,7 @@ static const char *startup_source = "(length v_141))" "(values))))" "(let-values(((all-quoted?_0)" -"(let-values(((lst_114)" +"(let-values(((lst_115)" " v_141))" "(begin" "(if(variable-reference-from-unsafe?" @@ -18573,20 +18613,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_114)))" +" lst_115)))" "((letrec-values(((for-loop_126)" "(lambda(all-quoted?_1" -" lst_115)" +" lst_116)" "(begin" " 'for-loop" "(if(pair?" -" lst_115)" -"(let-values(((i_109)" +" lst_116)" +"(let-values(((i_108)" "(unsafe-car" -" lst_115))" +" lst_116))" "((rest_56)" "(unsafe-cdr" -" lst_115)))" +" lst_116)))" "(let-values(((all-quoted?_2)" "(let-values(((all-quoted?_3)" " all-quoted?_1))" @@ -18596,7 +18636,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_15" -" i_109)" +" i_108)" "(if all-quoted?_3" "(quoted?_0" " i-pos_0)" @@ -18612,7 +18652,7 @@ static const char *startup_source = " all-quoted?_1)))))" " for-loop_126)" " #t" -" lst_114)))))" +" lst_115)))))" "(if all-quoted?_0" "(let-values()" "(begin" @@ -18718,7 +18758,7 @@ static const char *startup_source = "(if(unsafe-fx<" " pos_28" " len_17)" -"(let-values(((i_110)" +"(let-values(((i_109)" "(unsafe-vector-ref" " vec_39" " pos_28)))" @@ -18731,7 +18771,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_15" -" i_110)" +" i_109)" "(if all-quoted?_8" "(quoted?_0" " i-pos_1)" @@ -18765,7 +18805,7 @@ static const char *startup_source = "(let-values(((start-pos_4)" "(next-push-position_0)))" "(let-values(((as-set?_0)" -"(let-values(((ht_89)" +"(let-values(((ht_88)" " v_141))" "(begin" "(if(variable-reference-from-unsafe?" @@ -18773,17 +18813,17 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash-values" -" ht_89)))" +" ht_88)))" "((letrec-values(((for-loop_42)" "(lambda(result_67" -" i_111)" +" i_110)" "(begin" " 'for-loop" -"(if i_111" +"(if i_110" "(let-values(((val_40)" "(hash-iterate-value" -" ht_89" -" i_111)))" +" ht_88" +" i_110)))" "(let-values(((result_68)" "(let-values()" "(let-values(((result_69)" @@ -18795,7 +18835,7 @@ static const char *startup_source = "(values" " result_69)))))" "(if(if(not" -"((lambda x_45" +"((lambda x_44" "(not" " result_68))" " val_40))" @@ -18805,14 +18845,14 @@ static const char *startup_source = "(for-loop_42" " result_68" "(hash-iterate-next" -" ht_89" -" i_111))" +" ht_88" +" i_110))" " result_68)))" " result_67)))))" " for-loop_42)" " #t" "(hash-iterate-first" -" ht_89))))))" +" ht_88))))))" "(let-values((()" "(begin" "(ser-push!_15" @@ -18850,7 +18890,7 @@ static const char *startup_source = "(sorted-hash-keys" " v_141)))" "(let-values(((all-quoted?_10)" -"(let-values(((lst_48)" +"(let-values(((lst_117)" " ks_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -18858,20 +18898,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_48)))" +" lst_117)))" "((letrec-values(((for-loop_128)" "(lambda(all-quoted?_11" -" lst_116)" +" lst_118)" "(begin" " 'for-loop" "(if(pair?" -" lst_116)" +" lst_118)" "(let-values(((k_23)" "(unsafe-car" -" lst_116))" +" lst_118))" "((rest_57)" "(unsafe-cdr" -" lst_116)))" +" lst_118)))" "(let-values(((all-quoted?_12)" "(let-values(((all-quoted?_13)" " all-quoted?_11))" @@ -18897,10 +18937,10 @@ static const char *startup_source = "(if all-quoted?_13" "(if(quoted?_0" " k-pos_0)" -"(let-values(((or-part_186)" +"(let-values(((or-part_172)" " as-set?_0))" -"(if or-part_186" -" or-part_186" +"(if or-part_172" +" or-part_172" "(quoted?_0" " v-pos_1)))" " #f)" @@ -18916,7 +18956,7 @@ static const char *startup_source = " all-quoted?_11)))))" " for-loop_128)" " #t" -" lst_48)))))" +" lst_117)))))" "(if all-quoted?_10" "(let-values()" "(begin" @@ -18965,12 +19005,12 @@ static const char *startup_source = "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_46)" +"(lambda(x_45)" "(vector?" -" x_46))" -"(lambda(x_47)" +" x_45))" +"(lambda(x_46)" "(unsafe-vector-length" -" x_47))" +" x_46))" " vec_41" " 1" " #f" @@ -18985,7 +19025,7 @@ static const char *startup_source = "(if(unsafe-fx<" " idx_3" " stop*_4)" -"(let-values(((i_112)" +"(let-values(((i_111)" "(unsafe-vector-ref" " v*_4" " idx_3)))" @@ -18998,7 +19038,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_15" -" i_112)" +" i_111)" "(if all-quoted?_18" "(quoted?_0" " i-pos_2)" @@ -19086,30 +19126,30 @@ static const char *startup_source = " \"unknown mutable: ~e\"" " v_142))))))))))" "(let-values(((ser-shell-fill!_0)" -"(lambda(v_79)" +"(lambda(v_80)" "(begin" " 'ser-shell-fill!" -"(if(serialize-fill!? v_79)" +"(if(serialize-fill!? v_80)" "(let-values()" -"((serialize-fill!-ref v_79)" -" v_79" +"((serialize-fill!-ref v_80)" +" v_80" " ser-push!_15" " state_24))" -"(if(box? v_79)" +"(if(box? v_80)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:set-box!)" -"(ser-push!_15(unbox v_79))))" -"(if(vector? v_79)" +"(ser-push!_15(unbox v_80))))" +"(if(vector? v_80)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:set-vector!)" "(ser-push!_15" " 'exact" -"(vector-length v_79))" +"(vector-length v_80))" "(let-values(((vec_42 len_18)" "(let-values(((vec_43)" -" v_79))" +" v_80))" "(begin" "(check-vector vec_43)" "(values" @@ -19150,7 +19190,7 @@ static const char *startup_source = " for-loop_130)" " 0)))" "(void)))" -"(if(hash? v_79)" +"(if(hash? v_80)" "(let-values()" "(let-values((()" "(begin" @@ -19162,31 +19202,31 @@ static const char *startup_source = "(begin" "(ser-push!_15" " 'exact" -"(hash-count v_79))" +"(hash-count v_80))" "(values))))" "(let-values(((ks_1)" "(sorted-hash-keys" -" v_79)))" +" v_80)))" "(begin" -"(let-values(((lst_117) ks_1))" +"(let-values(((lst_119) ks_1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_117)))" +"(check-list lst_119)))" "((letrec-values(((for-loop_131)" -"(lambda(lst_118)" +"(lambda(lst_120)" "(begin" " 'for-loop" "(if(pair?" -" lst_118)" +" lst_120)" "(let-values(((k_25)" "(unsafe-car" -" lst_118))" +" lst_120))" "((rest_58)" "(unsafe-cdr" -" lst_118)))" +" lst_120)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -19198,7 +19238,7 @@ static const char *startup_source = " k_25)" "(ser-push!_15" "(hash-ref" -" v_79" +" v_80" " k_25))))" "(values)))))" "(values)))))" @@ -19209,58 +19249,58 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_131)" -" lst_117)))" +" lst_119)))" "(void))))))" "(let-values()" "(error" " 'ser-shell-fill" " \"unknown mutable: ~e\"" -" v_79))))))))))" +" v_80))))))))))" "(let-values(((rev-mutables_0)" -"(let-values(((ht_90) mutables_0))" +"(let-values(((ht_89) mutables_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_90)))" +"(let-values()(check-in-hash ht_89)))" "((letrec-values(((for-loop_132)" -"(lambda(table_125 i_7)" +"(lambda(table_128 i_7)" "(begin" " 'for-loop" "(if i_7" "(let-values(((k_26" " v_144)" "(hash-iterate-key+value" -" ht_90" +" ht_89" " i_7)))" -"(let-values(((table_126)" -"(let-values(((table_127)" -" table_125))" -"(let-values(((table_128)" +"(let-values(((table_129)" +"(let-values(((table_130)" +" table_128))" +"(let-values(((table_131)" "(let-values()" -"(let-values(((key_49" +"(let-values(((key_48" " val_41)" "(let-values()" "(values" " v_144" " k_26))))" "(hash-set" -" table_127" -" key_49" +" table_130" +" key_48" " val_41)))))" "(values" -" table_128)))))" +" table_131)))))" "(if(not #f)" "(for-loop_132" -" table_126" +" table_129" "(hash-iterate-next" -" ht_90" +" ht_89" " i_7))" -" table_126)))" -" table_125)))))" +" table_129)))" +" table_128)))))" " for-loop_132)" " '#hasheqv()" -"(hash-iterate-first ht_90))))))" +"(hash-iterate-first ht_89))))))" "(let-values(((mutable-shell-bindings_0)" "(begin" "(begin" @@ -19281,7 +19321,7 @@ static const char *startup_source = "(if(<" " pos_30" " end_13)" -"(let-values(((i_113)" +"(let-values(((i_112)" " pos_30))" "(let-values((()" "(let-values()" @@ -19292,7 +19332,7 @@ static const char *startup_source = "(ser-shell!_0" "(hash-ref" " rev-mutables_0" -" i_113)))" +" i_112)))" "(values)))))" "(values)))))" "(if(not #f)" @@ -19307,28 +19347,28 @@ static const char *startup_source = "(void))" "(reap-stream!_0))))" "(let-values(((rev-shares_0)" -"(let-values(((ht_91) shares_0))" +"(let-values(((ht_90) shares_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash-keys ht_91)))" +"(check-in-hash-keys ht_90)))" "((letrec-values(((for-loop_134)" -"(lambda(table_129 i_114)" +"(lambda(table_132 i_113)" "(begin" " 'for-loop" -"(if i_114" +"(if i_113" "(let-values(((obj_1)" "(hash-iterate-key" -" ht_91" -" i_114)))" -"(let-values(((table_130)" -"(let-values(((table_131)" -" table_129))" -"(let-values(((table_132)" +" ht_90" +" i_113)))" +"(let-values(((table_133)" +"(let-values(((table_134)" +" table_132))" +"(let-values(((table_135)" "(let-values()" -"(let-values(((key_50" +"(let-values(((key_49" " val_42)" "(let-values()" "(values" @@ -19339,22 +19379,22 @@ static const char *startup_source = " obj_1))" " obj_1))))" "(hash-set" -" table_131" -" key_50" +" table_134" +" key_49" " val_42)))))" "(values" -" table_132)))))" +" table_135)))))" "(if(not #f)" "(for-loop_134" -" table_130" +" table_133" "(hash-iterate-next" -" ht_91" -" i_114))" -" table_130)))" -" table_129)))))" +" ht_90" +" i_113))" +" table_133)))" +" table_132)))))" " for-loop_134)" " '#hasheqv()" -"(hash-iterate-first ht_91))))))" +"(hash-iterate-first ht_90))))))" "(let-values(((shared-bindings_0)" "(begin" "(begin" @@ -19380,7 +19420,7 @@ static const char *startup_source = "(if(<" " pos_31" " end_14)" -"(let-values(((i_115)" +"(let-values(((i_114)" " pos_31))" "(let-values((()" "(let-values()" @@ -19391,7 +19431,7 @@ static const char *startup_source = "(ser-push-encoded!_0" "(hash-ref" " rev-shares_0" -" i_115)))" +" i_114)))" "(values)))))" "(values)))))" "(if(not" @@ -19429,7 +19469,7 @@ static const char *startup_source = "(if(<" " pos_32" " end_15)" -"(let-values(((i_116)" +"(let-values(((i_115)" " pos_32))" "(let-values((()" "(let-values()" @@ -19440,7 +19480,7 @@ static const char *startup_source = "(ser-shell-fill!_0" "(hash-ref" " rev-mutables_0" -" i_116)))" +" i_115)))" "(values)))))" "(values)))))" "(if(not" @@ -19468,13 +19508,13 @@ static const char *startup_source = "(list" " 'quote" "(begin" -"(ser-push!_15 v_136)" +"(ser-push!_15 v_137)" "(reap-stream!_0))))))))))))))))))))))))))))))))))))" "(define-values" "(sorted-hash-keys)" -"(lambda(ht_92)" +"(lambda(ht_91)" "(begin" -"(let-values(((ks_2)(hash-keys ht_92)))" +"(let-values(((ks_2)(hash-keys ht_91)))" "(if(null? ks_2)" "(let-values() ks_2)" "(if(null?(cdr ks_2))" @@ -19517,7 +19557,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(< pos_34 end_16)" -"(let-values(((i_117) pos_34))" +"(let-values(((i_116) pos_34))" "(let-values(((pos_35)" "(let-values(((pos_36) pos_33))" "(let-values(((pos_37)" @@ -19533,7 +19573,7 @@ static const char *startup_source = "(begin" "(vector-set!" " shared_0" -" i_117" +" i_116" " d_22)" " next-pos_0)))))" "(values pos_37)))))" @@ -19557,7 +19597,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(< pos_39 end_17)" -"(let-values(((i_118) pos_39))" +"(let-values(((i_117) pos_39))" "(let-values(((pos_40)" "(let-values(((pos_41) pos_38))" "(let-values(((pos_42)" @@ -19573,7 +19613,7 @@ static const char *startup_source = "(begin" "(vector-set!" " shared_0" -" i_118" +" i_117" " d_23)" " next-pos_1)))))" "(values pos_42)))))" @@ -19636,16 +19676,16 @@ static const char *startup_source = "(decode-shell)" "(lambda(vec_46 pos_49 mpis_8 inspector_6 bulk-binding-registry_6 shared_1)" "(begin" -"(let-values(((tmp_11)(vector*-ref vec_46 pos_49)))" -"(if(equal? tmp_11 '#:box)" +"(let-values(((tmp_19)(vector*-ref vec_46 pos_49)))" +"(if(equal? tmp_19 '#:box)" "(let-values()(values(box #f)(add1 pos_49)))" -"(if(equal? tmp_11 '#:vector)" +"(if(equal? tmp_19 '#:vector)" "(let-values()(values(make-vector(vector*-ref vec_46(add1 pos_49)))(+ pos_49 2)))" -"(if(equal? tmp_11 '#:hash)" +"(if(equal? tmp_19 '#:hash)" "(let-values()(values(make-hasheq)(add1 pos_49)))" -"(if(equal? tmp_11 '#:hasheq)" +"(if(equal? tmp_19 '#:hasheq)" "(let-values()(values(make-hasheq)(add1 pos_49)))" -"(if(equal? tmp_11 '#:hasheqv)" +"(if(equal? tmp_19 '#:hasheqv)" "(let-values()(values(make-hasheqv)(add1 pos_49)))" "(let-values()(decode vec_46 pos_49 mpis_8 inspector_6 bulk-binding-registry_6 shared_1)))))))))))" "(define-values" @@ -19653,9 +19693,9 @@ static const char *startup_source = "(lambda(vec_47 pos_50 mpis_9 inspector_7 bulk-binding-registry_7 shared_2)" "(begin" "(let-values()" -"(let-values(((tmp_19)(vector*-ref vec_47 pos_50)))" +"(let-values(((tmp_20)(vector*-ref vec_47 pos_50)))" "(let-values(((index_0)" -"(if(keyword? tmp_19)" +"(if(keyword? tmp_20)" "(hash-ref" " '#hasheq((#:scope+kind . 17)" "(#:seteqv . 14)" @@ -19689,7 +19729,7 @@ static const char *startup_source = "(#:datum->syntax . 5)" "(#:syntax+props . 6)" "(#:representative-scope . 22))" -" tmp_19" +" tmp_20" "(lambda() 0))" " 0)))" "(if(unsafe-fx< index_0 13)" @@ -19713,9 +19753,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(let-values(((context_2 next-pos_3)" -"(let-values(((i_119)(vector*-ref vec_47 next-pos_2)))" -"(if(exact-integer? i_119)" -"(values(vector*-ref shared_2 i_119)(add1 next-pos_2))" +"(let-values(((i_118)(vector*-ref vec_47 next-pos_2)))" +"(if(exact-integer? i_118)" +"(values(vector*-ref shared_2 i_118)(add1 next-pos_2))" "(decode" " vec_47" " next-pos_2" @@ -19724,9 +19764,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_3 next-pos_4)" -"(let-values(((i_120)(vector*-ref vec_47 next-pos_3)))" -"(if(exact-integer? i_120)" -"(values(vector*-ref shared_2 i_120)(add1 next-pos_3))" +"(let-values(((i_119)(vector*-ref vec_47 next-pos_3)))" +"(if(exact-integer? i_119)" +"(values(vector*-ref shared_2 i_119)(add1 next-pos_3))" "(decode" " vec_47" " next-pos_3" @@ -19747,9 +19787,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(let-values(((context_3 next-pos_6)" -"(let-values(((i_121)(vector*-ref vec_47 next-pos_5)))" -"(if(exact-integer? i_121)" -"(values(vector*-ref shared_2 i_121)(add1 next-pos_5))" +"(let-values(((i_120)(vector*-ref vec_47 next-pos_5)))" +"(if(exact-integer? i_120)" +"(values(vector*-ref shared_2 i_120)(add1 next-pos_5))" "(decode" " vec_47" " next-pos_5" @@ -19758,9 +19798,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_4 next-pos_7)" -"(let-values(((i_122)(vector*-ref vec_47 next-pos_6)))" -"(if(exact-integer? i_122)" -"(values(vector*-ref shared_2 i_122)(add1 next-pos_6))" +"(let-values(((i_121)(vector*-ref vec_47 next-pos_6)))" +"(if(exact-integer? i_121)" +"(values(vector*-ref shared_2 i_121)(add1 next-pos_6))" "(decode" " vec_47" " next-pos_6" @@ -19777,9 +19817,9 @@ static const char *startup_source = "(let-values(((content_10 next-pos_8)" "(decode vec_47(add1 pos_50) mpis_9 inspector_7 bulk-binding-registry_7 shared_2)))" "(let-values(((context_4 next-pos_9)" -"(let-values(((i_123)(vector*-ref vec_47 next-pos_8)))" -"(if(exact-integer? i_123)" -"(values(vector*-ref shared_2 i_123)(add1 next-pos_8))" +"(let-values(((i_122)(vector*-ref vec_47 next-pos_8)))" +"(if(exact-integer? i_122)" +"(values(vector*-ref shared_2 i_122)(add1 next-pos_8))" "(decode" " vec_47" " next-pos_8" @@ -19788,9 +19828,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_5 next-pos_10)" -"(let-values(((i_124)(vector*-ref vec_47 next-pos_9)))" -"(if(exact-integer? i_124)" -"(values(vector*-ref shared_2 i_124)(add1 next-pos_9))" +"(let-values(((i_123)(vector*-ref vec_47 next-pos_9)))" +"(if(exact-integer? i_123)" +"(values(vector*-ref shared_2 i_123)(add1 next-pos_9))" "(decode" " vec_47" " next-pos_9" @@ -19907,7 +19947,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(< pos_52 end_19)" -"(let-values(((i_125) pos_52))" +"(let-values(((i_124) pos_52))" "(let-values(((pos_53)" "(let-values(((pos_54) pos_51))" "(let-values(((pos_55)" @@ -19929,7 +19969,7 @@ static const char *startup_source = "(begin" "(vector-set!" " r_29" -" i_125" +" i_124" " v_147)" " next-pos_22)))))" "(values pos_55)))))" @@ -19949,13 +19989,13 @@ static const char *startup_source = "(if(unsafe-fx< index_0 16)" "(if(unsafe-fx< index_0 14)" "(let-values()" -"(let-values(((ht_93)" -"(let-values(((tmp_20)(vector*-ref vec_47 pos_50)))" -"(if(equal? tmp_20 '#:hash)" +"(let-values(((ht_92)" +"(let-values(((tmp_21)(vector*-ref vec_47 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_21)(vector*-ref vec_47(add1 pos_50))))" @@ -19965,14 +20005,14 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_28 end_20 inc_14)))" "((letrec-values(((for-loop_141)" -"(lambda(ht_94 pos_56 pos_57)" +"(lambda(ht_93 pos_56 pos_57)" "(begin" " 'for-loop" "(if(< pos_57 end_20)" "(let-values()" -"(let-values(((ht_95 pos_58)" -"(let-values(((ht_96) ht_94)((pos_59) pos_56))" -"(let-values(((ht_97 pos_60)" +"(let-values(((ht_94 pos_58)" +"(let-values(((ht_95) ht_93)((pos_59) pos_56))" +"(let-values(((ht_96 pos_60)" "(let-values()" "(let-values(((k_27 next-pos_24)" "(decode" @@ -19992,26 +20032,26 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -"(hash-set ht_96 k_27 v_149)" +"(hash-set ht_95 k_27 v_149)" " next-pos_25))))))" -"(values ht_97 pos_60)))))" +"(values ht_96 pos_60)))))" "(if(not #f)" -"(for-loop_141 ht_95 pos_58(+ pos_57 inc_14))" -"(values ht_95 pos_58))))" -"(values ht_94 pos_56))))))" +"(for-loop_141 ht_94 pos_58(+ pos_57 inc_14))" +"(values ht_94 pos_58))))" +"(values ht_93 pos_56))))))" " for-loop_141)" -" ht_93" +" ht_92" "(+ pos_50 2)" " start_28))))))" "(if(unsafe-fx< index_0 15)" "(let-values()" -"(let-values(((s_189)" -"(let-values(((tmp_21)(vector*-ref vec_47 pos_50)))" -"(if(equal? tmp_21 '#:set)" +"(let-values(((s_185)" +"(let-values(((tmp_22)(vector*-ref vec_47 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_22)(vector*-ref vec_47(add1 pos_50))))" @@ -20021,14 +20061,14 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_29 end_21 inc_15)))" "((letrec-values(((for-loop_142)" -"(lambda(s_190 pos_61 pos_62)" +"(lambda(s_140 pos_61 pos_62)" "(begin" " 'for-loop" "(if(< pos_62 end_21)" "(let-values()" -"(let-values(((s_191 pos_63)" -"(let-values(((s_142) s_190)((pos_64) pos_61))" -"(let-values(((s_192 pos_65)" +"(let-values(((s_141 pos_63)" +"(let-values(((s_186) s_140)((pos_64) pos_61))" +"(let-values(((s_187 pos_65)" "(let-values()" "(let-values(((k_28" " next-pos_26)" @@ -20040,19 +20080,19 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -"(set-add s_142 k_28)" +"(set-add s_186 k_28)" " next-pos_26)))))" -"(values s_192 pos_65)))))" +"(values s_187 pos_65)))))" "(if(not #f)" -"(for-loop_142 s_191 pos_63(+ pos_62 inc_15))" -"(values s_191 pos_63))))" -"(values s_190 pos_61))))))" +"(for-loop_142 s_141 pos_63(+ pos_62 inc_15))" +"(values s_141 pos_63))))" +"(values s_140 pos_61))))))" " for-loop_142)" -" s_189" +" s_185" "(+ pos_50 2)" " start_29))))))" "(let-values()" -"(let-values(((key_51 next-pos_27)" +"(let-values(((key_50 next-pos_27)" "(let-values(((k_29 next-pos_28)" "(decode" " vec_47" @@ -20103,7 +20143,7 @@ static const char *startup_source = " null" "(add1 next-pos_27)" " start_30)))))" -"(values(apply make-prefab-struct key_51(reverse$1 r_30)) done-pos_1)))))))" +"(values(apply make-prefab-struct key_50(reverse$1 r_30)) done-pos_1)))))))" "(if(unsafe-fx< index_0 17)" "(let-values()(values(deserialize-scope)(add1 pos_50)))" "(if(unsafe-fx< index_0 18)" @@ -20333,7 +20373,7 @@ static const char *startup_source = " next-pos_54)))))))" "(if(unsafe-fx< index_0 26)" "(let-values()" -"(let-values(((key_52 next-pos_55)" +"(let-values(((key_51 next-pos_55)" "(decode" " vec_47" "(add1 pos_50)" @@ -20349,7 +20389,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(values(deserialize-full-local-binding key_52 free=id_9) next-pos_56))))" +"(values(deserialize-full-local-binding key_51 free=id_9) next-pos_56))))" "(if(unsafe-fx< index_0 27)" "(let-values()" "(let-values(((prefix_3 next-pos_57)" @@ -20441,15 +20481,15 @@ static const char *startup_source = "(decode-fill!)" "(lambda(v_151 vec_48 pos_71 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)" "(begin" -"(let-values(((tmp_22)(vector*-ref vec_48 pos_71)))" -"(if(equal? tmp_22 #f)" +"(let-values(((tmp_23)(vector*-ref vec_48 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_48(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" "(begin(set-box! v_151 c_21) next-pos_66)))" -"(if(equal? tmp_22 '#:set-vector!)" +"(if(equal? tmp_23 '#:set-vector!)" "(let-values()" "(let-values(((len_24)(vector*-ref vec_48(add1 pos_71))))" "(let-values(((start_31) 0)((end_23) len_24)((inc_17) 1))" @@ -20462,7 +20502,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(< pos_73 end_23)" -"(let-values(((i_126) pos_73))" +"(let-values(((i_125) pos_73))" "(let-values(((pos_74)" "(let-values(((pos_75) pos_72))" "(let-values(((pos_76)" @@ -20476,7 +20516,7 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(vector-set! v_151 i_126 c_22)" +"(vector-set! v_151 i_125 c_22)" " next-pos_67)))))" "(values pos_76)))))" "(if(not #f)(for-loop_144 pos_74(+ pos_73 inc_17)) pos_74)))" @@ -20484,7 +20524,7 @@ static const char *startup_source = " for-loop_144)" "(+ pos_71 2)" " start_31)))))" -"(if(equal? tmp_22 '#:set-hash!)" +"(if(equal? tmp_23 '#:set-hash!)" "(let-values()" "(let-values(((len_25)(vector*-ref vec_48(add1 pos_71))))" "(let-values(((start_32) 0)((end_24) len_25)((inc_18) 1))" @@ -20502,7 +20542,7 @@ static const char *startup_source = "(let-values(((pos_80) pos_77))" "(let-values(((pos_81)" "(let-values()" -"(let-values(((key_53 next-pos_68)" +"(let-values(((key_52 next-pos_68)" "(decode" " vec_48" " pos_80" @@ -20519,7 +20559,7 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(hash-set! v_151 key_53 val_43)" +"(hash-set! v_151 key_52 val_43)" " done-pos_2))))))" "(values pos_81)))))" "(if(not #f)(for-loop_145 pos_79(+ pos_78 inc_18)) pos_79)))" @@ -20527,12 +20567,12 @@ static const char *startup_source = " for-loop_145)" "(+ 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_48(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" "(begin(deserialize-scope-fill! v_151 c_23) next-pos_69)))" -"(if(equal? tmp_22 '#:representative-scope-fill!)" +"(if(equal? tmp_23 '#:representative-scope-fill!)" "(let-values()" "(let-values(((a_39 next-pos_70)" "(decode vec_48(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" @@ -20544,7 +20584,7 @@ static const char *startup_source = "(find-reachable-scopes)" "(lambda(v_152)" "(begin" -"(let-values(((seen_23)(make-hasheq)))" +"(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)))" @@ -20555,30 +20595,30 @@ static const char *startup_source = " 'loop" "(if(interned-literal? v_153)" "(let-values()(void))" -"(if(hash-ref seen_23 v_153 #f)" +"(if(hash-ref seen_22 v_153 #f)" "(let-values()(void))" "(let-values()" "(begin" -"(hash-set! seen_23 v_153 #t)" +"(hash-set! seen_22 v_153 #t)" "(if(scope-with-bindings? v_153)" "(let-values()" "(begin" "(set! reachable-scopes_5(set-add reachable-scopes_5 v_153))" "((reach-scopes-ref v_153) v_153 loop_83)" -"(let-values(((lst_119)(hash-ref scope-triggers_0 v_153 null)))" +"(let-values(((lst_121)(hash-ref scope-triggers_0 v_153 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_119)))" +"(let-values()(check-list lst_121)))" "((letrec-values(((for-loop_146)" -"(lambda(lst_120)" +"(lambda(lst_122)" "(begin" " 'for-loop" -"(if(pair? lst_120)" +"(if(pair? lst_122)" "(let-values(((proc_7)" -"(unsafe-car lst_120))" +"(unsafe-car lst_122))" "((rest_59)" -"(unsafe-cdr lst_120)))" +"(unsafe-cdr lst_122)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -20594,7 +20634,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_146)" -" lst_119)))" +" lst_121)))" "(void)" "(hash-remove! scope-triggers_0 v_153)" "((scope-with-bindings-ref v_153)" @@ -20655,21 +20695,21 @@ static const char *startup_source = "(if(hash? v_153)" "(let-values()" "(begin" -"(let-values(((ht_98) v_153))" +"(let-values(((ht_97) v_153))" "(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_148)" -"(lambda(i_127)" +"(lambda(i_126)" "(begin" " 'for-loop" -"(if i_127" +"(if i_126" "(let-values(((k_30 v_154)" "(hash-iterate-key+value" -" ht_98" -" i_127)))" +" ht_97" +" i_126)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -20686,12 +20726,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_148" "(hash-iterate-next" -" ht_98" -" i_127))" +" ht_97" +" i_126))" "(values))))" "(values))))))" " for-loop_148)" -"(hash-iterate-first ht_98))))" +"(hash-iterate-first ht_97))))" "(void)))" "(if(prefab-struct-key v_153)" "(let-values()" @@ -20700,9 +20740,9 @@ static const char *startup_source = "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_48)(vector? x_48))" -"(lambda(x_49)" -"(unsafe-vector-length x_49))" +"(lambda(x_47)(vector? x_47))" +"(lambda(x_48)" +"(unsafe-vector-length x_48))" "(struct->vector v_153)" " 1" " #f" @@ -20752,12 +20792,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_188) s24_1))" "(let-values(((from-mpi_4) from-mpi25_0))" "(let-values(((to-mpi_3) to-mpi26_0))" "(let-values(((inspector_9)(if inspector23_0 inspector22_0 #f)))" "(let-values()" -"(let-values(((s29_1) s_193)" +"(let-values(((s29_1) s_188)" "((from-mpi30_0) from-mpi_4)" "((to-mpi31_0) to-mpi_3)" "((inspector32_0) inspector_9))" @@ -20770,9 +20810,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_189 from-mpi_5 to-mpi_4)" +"(begin 'syntax-module-path-index-shift(core27_0 s_189 from-mpi_5 to-mpi_4 #f #f)))" +"((s_190 from-mpi_6 to-mpi_5 inspector22_1)(core27_0 s_190 from-mpi_6 to-mpi_5 inspector22_1 #t))))))" " syntax-module-path-index-shift_0))" "(define-values" "(deserialize-instance)" @@ -21375,17 +21415,17 @@ static const char *startup_source = "(lambda(s_0 phase_43)" "(begin" "(let-values(((s-scs_1)(syntax-scope-set s_0 phase_43)))" -"(let-values(((ht_99) s-scs_1))" +"(let-values(((ht_98) s-scs_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_99)))" -"((letrec-values(((for-loop_111)" -"(lambda(syms_14 i_128)" +"(let-values()(check-in-immutable-hash-keys ht_98)))" +"((letrec-values(((for-loop_110)" +"(lambda(syms_14 i_127)" "(begin" " 'for-loop" -"(if i_128" -"(let-values(((sc_29)(unsafe-immutable-hash-iterate-key ht_99 i_128)))" +"(if i_127" +"(let-values(((sc_29)(unsafe-immutable-hash-iterate-key ht_98 i_127)))" "(let-values(((syms_15)" "(let-values(((syms_16) syms_14))" "(let-values(((syms_17)" @@ -21399,12 +21439,12 @@ static const char *startup_source = " null)))))" "(values syms_17)))))" "(if(not #f)" -"(for-loop_111 syms_15(unsafe-immutable-hash-iterate-next ht_99 i_128))" +"(for-loop_110 syms_15(unsafe-immutable-hash-iterate-next ht_98 i_127))" " syms_15)))" " syms_14)))))" -" for-loop_111)" +" for-loop_110)" "(seteq)" -"(unsafe-immutable-hash-iterate-first ht_99))))))))" +"(unsafe-immutable-hash-iterate-first ht_98))))))))" "(define-values" "(struct:requires+provides" " requires+provides1.1" @@ -21455,7 +21495,18 @@ static const char *startup_source = "(let-values(((struct:_11 make-_11 ?_11 -ref_11 -set!_11)" "(let-values()" "(let-values()" -"(make-struct-type 'required #f 4 0 #f null(current-inspector) #f '(0 1 2 3) #f 'required)))))" +"(make-struct-type" +" 'required" +" #f" +" 4" +" 0" +" #f" +"(list(cons prop:authentic #t))" +"(current-inspector)" +" #f" +" '(0 1 2 3)" +" #f" +" 'required)))))" "(values" " struct:_11" " make-_11" @@ -21662,7 +21713,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_191) s53_0))" "(let-values(((self_9) self54_0))" "(let-values(((nominal-module_7) nominal-module55_0))" "(let-values(((phase-shift_7) phase-shift56_0))" @@ -21675,13 +21726,13 @@ static const char *startup_source = "(let-values(((can-be-shadowed?_2) can-be-shadowed?40_0))" "(let-values(((check-and-remove?_0) check-and-remove?41_0))" "(let-values(((accum-update-nominals_0) accum-update-nominals42_0))" -"(let-values(((who_11) who43_0))" +"(let-values(((who_12) who43_0))" "(let-values()" "(let-values(((phase_54)(phase+ provide-phase-level_3 phase-shift_7)))" "(let-values(((shortcut-table_0)" "(if check-and-remove?_0" "(if(>(hash-count provides_4) 64)" -"(syntax-mapped-names s_196 phase_54)" +"(syntax-mapped-names s_191 phase_54)" " #f)" " #f)))" "(let-values(((mpi_32)(intern-mpi r+p_5 nominal-module_7)))" @@ -21700,23 +21751,23 @@ static const char *startup_source = "(bulk-required4.1" " provides_4" " prefix-len_0" -" s_196" +" s_191" " provide-phase-level_3" " can-be-shadowed?_2)))" -"(let-values(((ht_100) provides_4))" +"(let-values(((ht_99) provides_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_100)))" +"(let-values()(check-in-hash ht_99)))" "((letrec-values(((for-loop_150)" -"(lambda(result_71 i_129)" +"(lambda(result_71 i_128)" "(begin" " 'for-loop" -"(if i_129" +"(if i_128" "(let-values(((out-sym_0 binding/p_2)" "(hash-iterate-key+value" -" ht_100" -" i_129)))" +" ht_99" +" i_128)))" "(let-values(((result_72)" "(let-values(((result_73)" " result_71))" @@ -21756,11 +21807,11 @@ static const char *startup_source = " out-sym_0))))))" "(let-values(((already-defined?_0)" "(if(if check-and-remove?_0" -"(let-values(((or-part_187)" +"(let-values(((or-part_173)" "(not" " shortcut-table_0)))" -"(if or-part_187" -" or-part_187" +"(if or-part_173" +" or-part_173" "(hash-ref" " shortcut-table_0" " sym_31" @@ -21775,9 +21826,9 @@ static const char *startup_source = " r+p_5)" "((temp126_0)" "(datum->syntax$1" -" s_196" +" s_191" " sym_31" -" s_196))" +" s_191))" "((phase127_0)" " phase_54)" "((orig-s128_0)" @@ -21808,7 +21859,7 @@ static const char *startup_source = "((accum-update-nominals131_0)" " accum-update-nominals_0)" "((who132_0)" -" who_11))" +" who_12))" "(check-not-defined95.1" " accum-update-nominals131_0" " #t" @@ -21844,19 +21895,19 @@ static const char *startup_source = "(values" " result_74)))))))" "(if(if(not" -"((lambda x_50 result_72)" +"((lambda x_49 result_72)" " out-sym_0" " binding/p_2))" "(not #f)" " #f)" "(for-loop_150" " result_72" -"(hash-iterate-next ht_100 i_129))" +"(hash-iterate-next ht_99 i_128))" " result_72)))" " result_71)))))" " for-loop_150)" " #f" -"(hash-iterate-first ht_100))))))))))))))))))))))))))))))" +"(hash-iterate-first ht_99))))))))))))))))))))))))))))))" "(define-values" "(bulk-required->required)" "(lambda(br_1 nominal-module_8 phase_55 sym_32)" @@ -21888,18 +21939,18 @@ static const char *startup_source = "(let-values()" "(begin" "(set-requires+provides-all-bindings-simple?! r+p_6 #f)" -"(let-values(((ht_101)(requires+provides-requires enclosing-r+p_0)))" +"(let-values(((ht_100)(requires+provides-requires enclosing-r+p_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_101)))" +"(let-values()(check-in-hash ht_100)))" "((letrec-values(((for-loop_151)" -"(lambda(i_130)" +"(lambda(i_129)" "(begin" " 'for-loop" -"(if i_130" +"(if i_129" "(let-values(((mod-name_10 at-mod_2)" -"(hash-iterate-key+value ht_101 i_130)))" +"(hash-iterate-key+value ht_100 i_129)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -21907,25 +21958,25 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((ht_102) at-mod_2))" +"(let-values(((ht_101) at-mod_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_102)))" +"(check-in-hash ht_101)))" "((letrec-values(((for-loop_152)" -"(lambda(i_131)" +"(lambda(i_130)" "(begin" " 'for-loop" -"(if i_131" +"(if i_130" "(let-values(((phase_57" " at-phase_8)" "(hash-iterate-key+value" -" ht_102" -" i_131)))" +" ht_101" +" i_130)))" "(let-values((()" -"(let-values(((ht_103)" +"(let-values(((ht_102)" " at-phase_8))" "(begin" "(if(variable-reference-from-unsafe?" @@ -21933,40 +21984,40 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_103)))" +" ht_102)))" "((letrec-values(((for-loop_153)" -"(lambda(i_132)" +"(lambda(i_65)" "(begin" " 'for-loop" -"(if i_132" +"(if i_65" "(let-values(((sym_34" " reqds_0)" "(hash-iterate-key+value" -" ht_103" -" i_132)))" +" ht_102" +" i_65)))" "(let-values((()" -"(let-values(((lst_121)" +"(let-values(((lst_123)" " reqds_0))" "(begin" "(void)" "((letrec-values(((for-loop_154)" -"(lambda(lst_122)" +"(lambda(lst_124)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_122))" +" lst_124))" "(let-values(((reqd/maybe-bulk_0)" "(if(pair?" -" lst_122)" +" lst_124)" "(car" -" lst_122)" -" lst_122))" +" lst_124)" +" lst_124))" "((rest_60)" "(if(pair?" -" lst_122)" +" lst_124)" "(cdr" -" lst_122)" +" lst_124)" " null)))" "(let-values((()" "(let-values()" @@ -22032,38 +22083,38 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_154)" -" lst_121)))))" +" lst_123)))))" "(if(not" " #f)" "(for-loop_153" "(hash-iterate-next" -" ht_103" -" i_132))" +" ht_102" +" i_65))" "(values))))" "(values))))))" " for-loop_153)" "(hash-iterate-first" -" ht_103))))))" +" ht_102))))))" "(if(not" " #f)" "(for-loop_152" "(hash-iterate-next" -" ht_102" -" i_131))" +" ht_101" +" i_130))" "(values))))" "(values))))))" " for-loop_152)" "(hash-iterate-first" -" ht_102))))" +" ht_101))))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_151(hash-iterate-next ht_101 i_130))" +"(for-loop_151(hash-iterate-next ht_100 i_129))" "(values))))" "(values))))))" " for-loop_151)" -"(hash-iterate-first ht_101))))" +"(hash-iterate-first ht_100))))" "(void))))))))))" "(define-values" "(remove-required-id!75.1)" @@ -22114,17 +22165,17 @@ static const char *startup_source = "(lambda(reqds_1 id_26 phase_59 mpi_34 nominal-phase_5 sym_36)" "(begin" "(reverse$1" -"(let-values(((lst_123) reqds_1))" +"(let-values(((lst_125) reqds_1))" "(begin" "(void)" "((letrec-values(((for-loop_155)" -"(lambda(fold-var_103 lst_124)" +"(lambda(fold-var_105 lst_126)" "(begin" " 'for-loop" -"(if(not(null? lst_124))" -"(let-values(((r_36)(if(pair? lst_124)(car lst_124) lst_124))" -"((rest_61)(if(pair? lst_124)(cdr lst_124) null)))" -"(let-values(((fold-var_104)" +"(if(not(null? lst_126))" +"(let-values(((r_36)(if(pair? lst_126)(car lst_126) lst_126))" +"((rest_61)(if(pair? lst_126)(cdr lst_126) null)))" +"(let-values(((fold-var_106)" "(let-values(((r_37)" "(normalize-required" " r_36" @@ -22134,13 +22185,13 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_156)" -"(lambda(fold-var_105)" +"(lambda(fold-var_107)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_106)" -"(let-values(((fold-var_107)" -" fold-var_105))" +"(let-values(((fold-var_108)" +"(let-values(((fold-var_109)" +" fold-var_107))" "(if(if(eqv?" " phase_59" "(required-phase" @@ -22151,25 +22202,25 @@ static const char *startup_source = " phase_59" " phase_59)" " #f)" -" fold-var_107" -"(let-values(((fold-var_108)" -" fold-var_107))" -"(let-values(((fold-var_109)" +" fold-var_109" +"(let-values(((fold-var_110)" +" fold-var_109))" +"(let-values(((fold-var_111)" "(let-values()" "(cons" "(let-values()" " r_37)" -" fold-var_108))))" +" fold-var_110))))" "(values" -" fold-var_109)))))))" -" fold-var_106))))))" +" fold-var_111)))))))" +" fold-var_108))))))" " for-loop_156)" -" fold-var_103)))))" -"(if(not #f)(for-loop_155 fold-var_104 rest_61) fold-var_104)))" -" fold-var_103)))))" +" fold-var_105)))))" +"(if(not #f)(for-loop_155 fold-var_106 rest_61) fold-var_106)))" +" fold-var_105)))))" " for-loop_155)" " null" -" lst_123)))))))" +" lst_125)))))))" "(define-values" "(check-not-defined95.1)" "(lambda(accum-update-nominals83_0" @@ -22199,7 +22250,7 @@ static const char *startup_source = "(let-values(((remove-shadowed!?_0)(if remove-shadowed!?89_0 remove-shadowed!?82_0 #f)))" "(let-values(((accum-update-nominals_1)" "(if accum-update-nominals90_0 accum-update-nominals83_0 #f)))" -"(let-values(((who_12) who84_0))" +"(let-values(((who_13) who84_0))" "(let-values()" "(let-values(((b_65)" "(let-values(((id152_0) id_27)((phase153_0) phase_60)((temp154_0) #t))" @@ -22254,7 +22305,7 @@ static const char *startup_source = "(begin" " 'raise-already-bound" "(raise-syntax-error$1" -" who_12" +" who_13" "(string-append" " \"identifier already \"" " (if defined?_1 \"defined\" \"required\")" @@ -22367,28 +22418,28 @@ static const char *startup_source = "(syntax-e$1 id_27)" " null)))" "(let-values(((only-can-can-shadow-require?_0)" -"(let-values(((lst_125) reqds_2))" +"(let-values(((lst_127) reqds_2))" "(begin" "(void)" "((letrec-values(((for-loop_157)" "(lambda(only-can-can-shadow-require?_1" -" lst_126)" +" lst_128)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_126))" +" lst_128))" "(let-values(((r_38)" "(if(pair?" -" lst_126)" +" lst_128)" "(car" -" lst_126)" -" lst_126))" +" lst_128)" +" lst_128))" "((rest_62)" "(if(pair?" -" lst_126)" +" lst_128)" "(cdr" -" lst_126)" +" lst_128)" " null)))" "(let-values(((only-can-can-shadow-require?_2)" "(let-values(((only-can-can-shadow-require?_3)" @@ -22424,7 +22475,7 @@ static const char *startup_source = " only-can-can-shadow-require?_1)))))" " for-loop_157)" " #t" -" lst_125)))))" +" lst_127)))))" "(begin" "(if define-shadowing-require?_0" "(let-values()" @@ -22463,18 +22514,18 @@ static const char *startup_source = "(let-values(((phase-to-defined-syms_0)(requires+provides-phase-to-defined-syms r+p_9)))" "(let-values(((defined-syms_2)(hash-ref phase-to-defined-syms_0 phase_61 '#hasheq())))" "(let-values(((new-defined-syms_0)" -"(let-values(((lst_127) syms_18))" +"(let-values(((lst_129) syms_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_127)))" +"(let-values()(check-list lst_129)))" "((letrec-values(((for-loop_143)" -"(lambda(defined-syms_3 lst_128)" +"(lambda(defined-syms_3 lst_130)" "(begin" " 'for-loop" -"(if(pair? lst_128)" -"(let-values(((sym_37)(unsafe-car lst_128))" -"((rest_63)(unsafe-cdr lst_128)))" +"(if(pair? lst_130)" +"(let-values(((sym_37)(unsafe-car lst_130))" +"((rest_63)(unsafe-cdr lst_130)))" "(let-values(((defined-syms_4)" "(let-values(((defined-syms_5) defined-syms_3))" "(let-values(((defined-syms_6)" @@ -22490,7 +22541,7 @@ static const char *startup_source = " defined-syms_3)))))" " for-loop_143)" " defined-syms_2" -" lst_127)))))" +" lst_129)))))" "(hash-set! phase-to-defined-syms_0 phase_61 new-defined-syms_0)))))))" "(define-values" "(extract-module-requires)" @@ -22500,38 +22551,38 @@ static const char *startup_source = "(let-values(((at-mod_5)(hash-ref(requires+provides-requires r+p_10) mpi_36 #f)))" "(if at-mod_5" "(reverse$1" -"(let-values(((ht_104)(hash-ref at-mod_5 phase_62 '#hasheq())))" +"(let-values(((ht_103)(hash-ref at-mod_5 phase_62 '#hasheq())))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_104)))" +"(let-values()(check-in-hash ht_103)))" "((letrec-values(((for-loop_158)" -"(lambda(fold-var_110 i_133)" +"(lambda(fold-var_112 i_131)" "(begin" " 'for-loop" -"(if i_133" -"(let-values(((sym_38 reqds_3)(hash-iterate-key+value ht_104 i_133)))" -"(let-values(((fold-var_111)" -"(let-values(((lst_129) reqds_3))" +"(if i_131" +"(let-values(((sym_38 reqds_3)(hash-iterate-key+value ht_103 i_131)))" +"(let-values(((fold-var_113)" +"(let-values(((lst_131) reqds_3))" "(begin" "(void)" "((letrec-values(((for-loop_159)" -"(lambda(fold-var_112 lst_130)" +"(lambda(fold-var_114 lst_132)" "(begin" " 'for-loop" -"(if(not(null? lst_130))" +"(if(not(null? lst_132))" "(let-values(((reqd_1)" -"(if(pair? lst_130)" -"(car lst_130)" -" lst_130))" +"(if(pair? lst_132)" +"(car lst_132)" +" lst_132))" "((rest_64)" -"(if(pair? lst_130)" -"(cdr lst_130)" +"(if(pair? lst_132)" +"(cdr lst_132)" " null)))" -"(let-values(((fold-var_113)" -"(let-values(((fold-var_114)" -" fold-var_112))" "(let-values(((fold-var_115)" +"(let-values(((fold-var_116)" +" fold-var_114))" +"(let-values(((fold-var_117)" "(let-values()" "(cons" "(let-values()" @@ -22540,32 +22591,32 @@ static const char *startup_source = " mpi_36" " phase_62" " sym_38))" -" fold-var_114))))" +" fold-var_116))))" "(values" -" fold-var_115)))))" +" fold-var_117)))))" "(if(not #f)" "(for-loop_159" -" fold-var_113" +" fold-var_115" " rest_64)" +" fold-var_115)))" +" fold-var_114)))))" +" for-loop_159)" +" fold-var_112" +" lst_131)))))" +"(if(not #f)" +"(for-loop_158 fold-var_113(hash-iterate-next ht_103 i_131))" " fold-var_113)))" " fold-var_112)))))" -" for-loop_159)" -" fold-var_110" -" lst_129)))))" -"(if(not #f)" -"(for-loop_158 fold-var_111(hash-iterate-next ht_104 i_133))" -" fold-var_111)))" -" fold-var_110)))))" " for-loop_158)" " null" -"(hash-iterate-first ht_104)))))" +"(hash-iterate-first ht_103)))))" " #f))))))" "(define-values" "(extract-module-definitions)" "(lambda(r+p_11)" "(begin" -"(let-values(((or-part_188)(extract-module-requires r+p_11(requires+provides-self r+p_11) 0)))" -"(if or-part_188 or-part_188 null)))))" +"(let-values(((or-part_174)(extract-module-requires r+p_11(requires+provides-self r+p_11) 0)))" +"(if or-part_174 or-part_174 null)))))" "(define-values" "(extract-all-module-requires)" "(lambda(r+p_12 mod-name_12 phase_49)" @@ -22575,22 +22626,22 @@ static const char *startup_source = "(call/ec" "(lambda(esc_0)" "(reverse$1" -"(let-values(((lst_131)(if mod-name_12(list(intern-mpi r+p_12 mod-name_12))(hash-keys requires_2))))" +"(let-values(((lst_133)(if mod-name_12(list(intern-mpi r+p_12 mod-name_12))(hash-keys requires_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_131)))" +"(let-values()(check-list lst_133)))" "((letrec-values(((for-loop_160)" -"(lambda(fold-var_116 lst_132)" +"(lambda(fold-var_118 lst_134)" "(begin" " 'for-loop" -"(if(pair? lst_132)" -"(let-values(((mod-name_13)(unsafe-car lst_132))" -"((rest_65)(unsafe-cdr lst_132)))" -"(let-values(((fold-var_117)" -"(let-values(((fold-var_118) fold-var_116))" +"(if(pair? lst_134)" +"(let-values(((mod-name_13)(unsafe-car lst_134))" +"((rest_65)(unsafe-cdr lst_134)))" +"(let-values(((fold-var_119)" +"(let-values(((fold-var_120) fold-var_118))" "(if(eq? mod-name_13 self_10)" -" fold-var_118" +" fold-var_120" "(let-values(((phase-to-requireds_0)" "(hash-ref" " requires_2" @@ -22599,12 +22650,12 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_161)" -"(lambda(fold-var_119)" +"(lambda(fold-var_121)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_120)" -"(let-values(((lst_133)" +"(let-values(((fold-var_122)" +"(let-values(((lst_135)" "(if(eq?" " phase_49" " 'all)" @@ -22618,22 +22669,22 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_133)))" +" lst_135)))" "((letrec-values(((for-loop_162)" -"(lambda(fold-var_121" -" lst_134)" +"(lambda(fold-var_123" +" lst_136)" "(begin" " 'for-loop" "(if(pair?" -" lst_134)" +" lst_136)" "(let-values(((phase_63)" "(unsafe-car" -" lst_134))" +" lst_136))" "((rest_66)" "(unsafe-cdr" -" lst_134)))" -"(let-values(((fold-var_122)" -"(let-values(((ht_105)" +" lst_136)))" +"(let-values(((fold-var_124)" +"(let-values(((ht_104)" "(hash-ref" " phase-to-requireds_0" " phase_63" @@ -22646,47 +22697,47 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_105)))" +" ht_104)))" "((letrec-values(((for-loop_163)" -"(lambda(fold-var_123" -" i_134)" +"(lambda(fold-var_125" +" i_132)" "(begin" " 'for-loop" -"(if i_134" +"(if i_132" "(let-values(((sym_39" " reqds_4)" "(hash-iterate-key+value" -" ht_105" -" i_134)))" -"(let-values(((fold-var_124)" -"(let-values(((lst_135)" +" ht_104" +" i_132)))" +"(let-values(((fold-var_126)" +"(let-values(((lst_137)" " reqds_4))" "(begin" "(void)" "((letrec-values(((for-loop_164)" -"(lambda(fold-var_125" -" lst_136)" +"(lambda(fold-var_127" +" lst_138)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_136))" +" lst_138))" "(let-values(((reqd_2)" "(if(pair?" -" lst_136)" +" lst_138)" "(car" -" lst_136)" -" lst_136))" +" lst_138)" +" lst_138))" "((rest_67)" "(if(pair?" -" lst_136)" +" lst_138)" "(cdr" -" lst_136)" +" lst_138)" " null)))" -"(let-values(((fold-var_126)" -"(let-values(((fold-var_127)" -" fold-var_125))" "(let-values(((fold-var_128)" +"(let-values(((fold-var_129)" +" fold-var_127))" +"(let-values(((fold-var_130)" "(let-values()" "(cons" "(let-values()" @@ -22695,50 +22746,50 @@ static const char *startup_source = " mod-name_13" " phase_63" " sym_39))" -" fold-var_127))))" +" fold-var_129))))" "(values" -" fold-var_128)))))" +" fold-var_130)))))" "(if(not" " #f)" "(for-loop_164" -" fold-var_126" +" fold-var_128" " rest_67)" -" fold-var_126)))" -" fold-var_125)))))" +" fold-var_128)))" +" fold-var_127)))))" " for-loop_164)" -" fold-var_123" -" lst_135)))))" +" fold-var_125" +" lst_137)))))" "(if(not" " #f)" "(for-loop_163" -" fold-var_124" +" fold-var_126" "(hash-iterate-next" -" ht_105" -" i_134))" -" fold-var_124)))" -" fold-var_123)))))" +" ht_104" +" i_132))" +" fold-var_126)))" +" fold-var_125)))))" " for-loop_163)" -" fold-var_121" +" fold-var_123" "(hash-iterate-first" -" ht_105))))))" +" ht_104))))))" "(if(not" " #f)" "(for-loop_162" -" fold-var_122" +" fold-var_124" " rest_66)" -" fold-var_122)))" -" fold-var_121)))))" +" fold-var_124)))" +" fold-var_123)))))" " for-loop_162)" -" fold-var_119" -" lst_133)))))" -" fold-var_120))))))" +" fold-var_121" +" lst_135)))))" +" fold-var_122))))))" " for-loop_161)" -" fold-var_118)))))))" -"(if(not #f)(for-loop_160 fold-var_117 rest_65) fold-var_117)))" -" fold-var_116)))))" +" fold-var_120)))))))" +"(if(not #f)(for-loop_160 fold-var_119 rest_65) fold-var_119)))" +" fold-var_118)))))" " for-loop_160)" " null" -" lst_131)))))))))))" +" lst_133)))))))))))" "(define-values" "(add-provide!109.1)" "(lambda(as-protected?98_0" @@ -22808,8 +22859,8 @@ static const char *startup_source = "(hash-set" " at-phase_9" " sym_40" -"(if(let-values(((or-part_189) as-protected?_0))" -"(if or-part_189 or-part_189 as-transformer?_2))" +"(if(let-values(((or-part_175) as-protected?_0))" +"(if or-part_175 or-part_175 as-transformer?_2))" "(provided1.1 plain-binding_0 as-protected?_0 as-transformer?_2)" " plain-binding_0))))" "(if(same-binding? b_66 binding_13)" @@ -22835,28 +22886,28 @@ static const char *startup_source = "((phasesym-set)" "(lambda(ids_3)" "(begin" -"(let-values(((lst_147) ids_3))" +"(let-values(((lst_149) ids_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_147)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_149)))" "((letrec-values(((for-loop_171)" -"(lambda(table_141 lst_148)" +"(lambda(table_144 lst_150)" "(begin" " 'for-loop" -"(if(pair? lst_148)" -"(let-values(((id_44)(unsafe-car lst_148))((rest_74)(unsafe-cdr lst_148)))" -"(let-values(((table_142)" -"(let-values(((table_143) table_141))" -"(let-values(((table_144)" +"(if(pair? lst_150)" +"(let-values(((id_44)(unsafe-car lst_150))((rest_74)(unsafe-cdr lst_150)))" +"(let-values(((table_145)" +"(let-values(((table_146) table_144))" +"(let-values(((table_147)" "(let-values()" -"(let-values(((key_56 val_46)" +"(let-values(((key_55 val_46)" "(let-values()" "(values" "(let-values()(syntax-e$1 id_44))" " #t))))" -"(hash-set table_143 key_56 val_46)))))" -"(values table_144)))))" -"(if(not #f)(for-loop_171 table_142 rest_74) table_142)))" -" table_141)))))" +"(hash-set table_146 key_55 val_46)))))" +"(values table_147)))))" +"(if(not #f)(for-loop_171 table_145 rest_74) table_145)))" +" table_144)))))" " for-loop_171)" " '#hash()" -" lst_147))))))" +" lst_149))))))" "(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)" @@ -24798,7 +24849,7 @@ static const char *startup_source = "(let-values(((m-ns_9) m-ns40_0))" "(let-values(((requires+provides_2) requires+provides41_0))" "(let-values(((bind?_0) bind?33_0))" -"(let-values(((who_14) who34_0))" +"(let-values(((who_15) who34_0))" "(let-values()" "(let-values(((temp222_0)" "(let-values(((mod-path234_0) mod-path_7)((self235_0) self_12))" @@ -24813,7 +24864,7 @@ static const char *startup_source = "((temp230_0) #t)" "((temp231_1) #t)" "((bind?232_0) bind?_0)" -"((who233_0) who_14))" +"((who233_0) who_15))" "(perform-require!78.1" " #f" " #f" @@ -24904,7 +24955,7 @@ static const char *startup_source = " skip-variable-phase-level56_0" " #f)))" "(let-values(((bind?_1)(if bind?71_0 bind?57_0 #t)))" -"(let-values(((who_15) who58_0))" +"(let-values(((who_16) who58_0))" "(let-values()" "(let-values()" "(let-values(((module-name_0)(1/module-path-index-resolve mpi_39 #t)))" @@ -24978,10 +25029,10 @@ static const char *startup_source = "(let-values((()" "(begin" "(if(not" -"(let-values(((or-part_209)" +"(let-values(((or-part_195)" " visit?_2))" -"(if or-part_209" -" or-part_209" +"(if or-part_195" +" or-part_195" " run?_2)))" "(let-values()" "(let-values(((m-ns260_0) m-ns_10)" @@ -25000,15 +25051,15 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((can-bulk-bind?_0)" -"(if(let-values(((or-part_210)" +"(if(let-values(((or-part_196)" "(not adjust_1)))" -"(if or-part_210" -" or-part_210" -"(let-values(((or-part_211)" +"(if or-part_196" +" or-part_196" +"(let-values(((or-part_197)" "(adjust-prefix?" " adjust_1)))" -"(if or-part_211" -" or-part_211" +"(if or-part_197" +" or-part_197" "(adjust-all-except?" " adjust_1)))))" "(not skip-variable-phase-level_1)" @@ -25119,7 +25170,7 @@ static const char *startup_source = "((update-nominals-box277_0)" " update-nominals-box_0)" "((who278_0)" -" who_15))" +" who_16))" "(add-bulk-required-ids!59.1" " update-nominals-box277_0" " can-be-shadowed?274_0" @@ -25139,11 +25190,11 @@ static const char *startup_source = " #f)" " #f))" "((temp251_0)" -"(if(let-values(((or-part_212)" +"(if(let-values(((or-part_198)" "(not" " can-bulk-bind?_0)))" -"(if or-part_212" -" or-part_212" +"(if or-part_198" +" or-part_198" " copy-variable-phase-level_1))" "(lambda(binding_16" " as-transformer?_3)" @@ -25239,7 +25290,7 @@ static const char *startup_source = " requires+provides_3" " #f)" "(let-values()" -"(let-values(((s_267)" +"(let-values(((s_263)" "(datum->syntax$1" " bind-in-stx_0" " adjusted-sym_0)))" @@ -25259,7 +25310,7 @@ static const char *startup_source = "((requires+provides281_0)" " requires+provides_3)" "((s282_0)" -" s_267)" +" s_263)" "((bind-phase283_0)" " bind-phase_0)" "((binding284_0)" @@ -25269,7 +25320,7 @@ static const char *startup_source = "((temp286_0)" " #t)" "((who287_0)" -" who_15))" +" who_16))" "(check-not-defined95.1" " #f" " #f" @@ -25293,7 +25344,7 @@ static const char *startup_source = "(let-values(((requires+provides288_0)" " requires+provides_3)" "((s289_0)" -" s_267)" +" s_263)" "((bind-phase290_0)" " bind-phase_0)" "((binding291_0)" @@ -25359,7 +25410,7 @@ static const char *startup_source = "(if update-nominals-box_0" "(let-values()" "(begin" -"(let-values(((lst_149)" +"(let-values(((lst_151)" "(unbox" " update-nominals-box_0)))" "(begin" @@ -25368,19 +25419,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_149)))" +" lst_151)))" "((letrec-values(((for-loop_172)" -"(lambda(lst_150)" +"(lambda(lst_152)" "(begin" " 'for-loop" "(if(pair?" -" lst_150)" +" lst_152)" "(let-values(((update!_1)" "(unsafe-car" -" lst_150))" +" lst_152))" "((rest_75)" "(unsafe-cdr" -" lst_150)))" +" lst_152)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25397,7 +25448,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_172)" -" lst_149)))" +" lst_151)))" "(void)))" "(void))" "(values))))" @@ -25427,7 +25478,7 @@ static const char *startup_source = " #f)" "(let-values()" "(begin" -"(let-values(((ht_108)" +"(let-values(((ht_107)" " need-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -25435,16 +25486,16 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-immutable-hash-keys" -" ht_108)))" +" ht_107)))" "((letrec-values(((for-loop_173)" -"(lambda(i_137)" +"(lambda(i_135)" "(begin" " 'for-loop" -"(if i_137" +"(if i_135" "(let-values(((sym_43)" "(unsafe-immutable-hash-iterate-key" -" ht_108" -" i_137)))" +" ht_107" +" i_135)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25458,7 +25509,7 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-syntax-error$1" -" who_15" +" who_16" " \"not in nested spec\"" " orig-s_14" " sym_43))))" @@ -25468,13 +25519,13 @@ static const char *startup_source = " #f)" "(for-loop_173" "(unsafe-immutable-hash-iterate-next" -" ht_108" -" i_137))" +" ht_107" +" i_135))" "(values))))" "(values))))))" " for-loop_173)" "(unsafe-immutable-hash-iterate-first" -" ht_108))))" +" ht_107))))" "(void)))" "(void))))))))))))))))))))))))))))))))))))))))))" "(define-values" @@ -25516,28 +25567,28 @@ static const char *startup_source = "(let-values()" "(let-values(((self_13)(module-self m_14)))" "(begin" -"(let-values(((ht_109)(module-provides m_14)))" +"(let-values(((ht_108)(module-provides m_14)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_109)))" +"(let-values()(check-in-hash ht_108)))" "((letrec-values(((for-loop_174)" -"(lambda(i_138)" +"(lambda(i_136)" "(begin" " 'for-loop" -"(if i_138" +"(if i_136" "(let-values(((provide-phase-level_5 provides_7)" "(hash-iterate-key+value" -" ht_109" -" i_138)))" +" ht_108" +" i_136)))" "(let-values((()" "(let-values()" -"(if(let-values(((or-part_213)" +"(if(let-values(((or-part_199)" "(eq?" " just-meta_2" " 'all)))" -"(if or-part_213" -" or-part_213" +"(if or-part_199" +" or-part_199" "(eqv?" " just-meta_2" " provide-phase-level_5)))" @@ -25562,11 +25613,11 @@ static const char *startup_source = "(if filter_0" "(let-values()" "(begin" -"(let-values(((lst_151)" -"(let-values(((or-part_214)" +"(let-values(((lst_153)" +"(let-values(((or-part_200)" " only-syms_0))" -"(if or-part_214" -" or-part_214" +"(if or-part_200" +" or-part_200" "(hash-keys" " provides_7)))))" "(begin" @@ -25575,19 +25626,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_151)))" +" lst_153)))" "((letrec-values(((for-loop_175)" -"(lambda(lst_152)" +"(lambda(lst_154)" "(begin" " 'for-loop" "(if(pair?" -" lst_152)" +" lst_154)" "(let-values(((sym_44)" "(unsafe-car" -" lst_152))" +" lst_154))" "((rest_76)" "(unsafe-cdr" -" lst_152)))" +" lst_154)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25658,7 +25709,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_175)" -" lst_151)))" +" lst_153)))" "(void)))" "(void))" "(if can-bulk?_0" @@ -25670,7 +25721,7 @@ static const char *startup_source = " in-stx_2)" "((temp304_0)" "(bulk-binding14.1" -"(let-values(((or-part_215)" +"(let-values(((or-part_201)" "(if(not" " bulk-prefix_2)" "(if(zero?" @@ -25679,8 +25730,8 @@ static const char *startup_source = " provides_7" " #f)" " #f)))" -"(if or-part_215" -" or-part_215" +"(if or-part_201" +" or-part_201" "(if(not" "(registered-bulk-provide?" " bulk-binding-registry_10" @@ -25720,11 +25771,11 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_174" -"(hash-iterate-next ht_109 i_138))" +"(hash-iterate-next ht_108 i_136))" "(values))))" "(values))))))" " for-loop_174)" -"(hash-iterate-first ht_109))))" +"(hash-iterate-first ht_108))))" "(void)))))))))))))))))))))))" "(define-values" "(require-spec-shift-for-syntax)" @@ -25743,50 +25794,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_268) req_3))" -"(let-values(((orig-s_16) s_268))" +"(let-values(((s_264) req_3))" +"(let-values(((orig-s_16) s_264))" "(let-values(((for-meta308_1 phase-level309_1 spec310_1)" -"(let-values(((s_269)" -"(if(syntax?$1 s_268)" -"(syntax-e$1 s_268)" -" s_268)))" -"(if(pair? s_269)" +"(let-values(((s_265)" +"(if(syntax?$1 s_264)" +"(syntax-e$1 s_264)" +" s_264)))" +"(if(pair? s_265)" "(let-values(((for-meta311_0)" -"(let-values(((s_270)" -"(car s_269)))" -" s_270))" +"(let-values(((s_266)" +"(car s_265)))" +" s_266))" "((phase-level312_0 spec313_0)" -"(let-values(((s_271)" -"(cdr s_269)))" -"(let-values(((s_272)" +"(let-values(((s_267)" +"(cdr s_265)))" +"(let-values(((s_268)" "(if(syntax?$1" -" s_271)" +" s_267)" "(syntax-e$1" -" s_271)" -" s_271)))" -"(if(pair? s_272)" +" s_267)" +" s_267)))" +"(if(pair? s_268)" "(let-values(((phase-level314_0)" -"(let-values(((s_273)" +"(let-values(((s_269)" "(car" -" s_272)))" -" s_273))" +" s_268)))" +" s_269))" "((spec315_0)" -"(let-values(((s_274)" +"(let-values(((s_270)" "(cdr" -" s_272)))" -"(let-values(((s_275)" +" s_268)))" +"(let-values(((s_271)" "(if(syntax?$1" -" s_274)" +" s_270)" "(syntax-e$1" -" s_274)" -" s_274)))" +" s_270)" +" s_270)))" "(let-values(((flat-s_8)" "(to-syntax-list.1" -" s_275)))" +" s_271)))" "(if(not" " flat-s_8)" "(let-values()" @@ -25812,41 +25863,41 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_16)))))" "(values #t for-meta308_1 phase-level309_1 spec310_1))))))" -"(let-values(((p_35)(syntax-e$1 phase-level309_0)))" +"(let-values(((p_34)(syntax-e$1 phase-level309_0)))" "(begin" -"(if(phase? p_35)" +"(if(phase? p_34)" "(void)" " (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_86 #t) spec310_0)))))))" -"(if(equal? tmp_24 'for-syntax)" +"(list* for-meta308_0(phase+ p_34 1)(map2(loop_86 #t) spec310_0)))))))" +"(if(equal? tmp_25 'for-syntax)" "(let-values()" "(let-values(((ok?_13 for-syntax316_0 spec317_0)" -"(let-values(((s_276) req_3))" -"(let-values(((orig-s_17) s_276))" +"(let-values(((s_272) req_3))" +"(let-values(((orig-s_17) s_272))" "(let-values(((for-syntax316_1 spec317_1)" -"(let-values(((s_277)" -"(if(syntax?$1 s_276)" -"(syntax-e$1 s_276)" -" s_276)))" -"(if(pair? s_277)" +"(let-values(((s_273)" +"(if(syntax?$1 s_272)" +"(syntax-e$1 s_272)" +" s_272)))" +"(if(pair? s_273)" "(let-values(((for-syntax318_0)" -"(let-values(((s_278)" -"(car s_277)))" -" s_278))" +"(let-values(((s_274)" +"(car s_273)))" +" s_274))" "((spec319_0)" -"(let-values(((s_279)" -"(cdr s_277)))" -"(let-values(((s_280)" +"(let-values(((s_275)" +"(cdr s_273)))" +"(let-values(((s_276)" "(if(syntax?$1" -" s_279)" +" s_275)" "(syntax-e$1" -" s_279)" -" s_279)))" +" s_275)" +" s_275)))" "(let-values(((flat-s_9)" "(to-syntax-list.1" -" s_280)))" +" s_276)))" "(if(not flat-s_9)" "(let-values()" "(raise-syntax-error$1" @@ -25862,33 +25913,33 @@ static const char *startup_source = " orig-s_17)))))" "(values #t for-syntax316_1 spec317_1))))))" "(rebuild-req_0 req_3(list* 'for-meta 2(map2(loop_86 #t) spec317_0)))))" -"(if(equal? tmp_24 'for-template)" +"(if(equal? tmp_25 'for-template)" "(let-values()" "(let-values(((ok?_14 for-template320_0 spec321_0)" -"(let-values(((s_281) req_3))" -"(let-values(((orig-s_18) s_281))" +"(let-values(((s_277) req_3))" +"(let-values(((orig-s_18) s_277))" "(let-values(((for-template320_1 spec321_1)" -"(let-values(((s_282)" -"(if(syntax?$1 s_281)" -"(syntax-e$1 s_281)" -" s_281)))" -"(if(pair? s_282)" +"(let-values(((s_278)" +"(if(syntax?$1 s_277)" +"(syntax-e$1 s_277)" +" s_277)))" +"(if(pair? s_278)" "(let-values(((for-template322_0)" -"(let-values(((s_283)" -"(car s_282)))" -" s_283))" +"(let-values(((s_279)" +"(car s_278)))" +" s_279))" "((spec323_0)" -"(let-values(((s_284)" -"(cdr s_282)))" -"(let-values(((s_285)" +"(let-values(((s_280)" +"(cdr s_278)))" +"(let-values(((s_281)" "(if(syntax?$1" -" s_284)" +" s_280)" "(syntax-e$1" -" s_284)" -" s_284)))" +" s_280)" +" s_280)))" "(let-values(((flat-s_10)" "(to-syntax-list.1" -" s_285)))" +" s_281)))" "(if(not flat-s_10)" "(let-values()" "(raise-syntax-error$1" @@ -25904,35 +25955,35 @@ static const char *startup_source = " orig-s_18)))))" "(values #t for-template320_1 spec321_1))))))" "(rebuild-req_0 req_3(list* 'for-meta 0(map2(loop_86 #t) spec321_0)))))" -"(if(equal? tmp_24 'for-label)" +"(if(equal? tmp_25 'for-label)" "(let-values()" "(let-values(((ok?_15 for-label324_0 spec325_0)" -"(let-values(((s_286) req_3))" -"(let-values(((orig-s_19) s_286))" +"(let-values(((s_282) req_3))" +"(let-values(((orig-s_19) s_282))" "(let-values(((for-label324_1 spec325_1)" -"(let-values(((s_287)" -"(if(syntax?$1 s_286)" -"(syntax-e$1 s_286)" -" s_286)))" -"(if(pair? s_287)" +"(let-values(((s_283)" +"(if(syntax?$1 s_282)" +"(syntax-e$1 s_282)" +" s_282)))" +"(if(pair? s_283)" "(let-values(((for-label326_0)" -"(let-values(((s_288)" +"(let-values(((s_284)" "(car" -" s_287)))" -" s_288))" +" s_283)))" +" s_284))" "((spec327_0)" -"(let-values(((s_289)" +"(let-values(((s_285)" "(cdr" -" s_287)))" -"(let-values(((s_290)" +" s_283)))" +"(let-values(((s_286)" "(if(syntax?$1" -" s_289)" +" s_285)" "(syntax-e$1" -" s_289)" -" s_289)))" +" s_285)" +" s_285)))" "(let-values(((flat-s_11)" "(to-syntax-list.1" -" s_290)))" +" s_286)))" "(if(not flat-s_11)" "(let-values()" "(raise-syntax-error$1" @@ -25950,54 +26001,54 @@ static const char *startup_source = "(rebuild-req_0" " req_3" "(list* for-label324_0(map2(loop_86 #t) spec325_0)))))" -"(if(equal? tmp_24 'just-meta)" +"(if(equal? tmp_25 'just-meta)" "(let-values()" "(let-values(((ok?_16 just-meta328_0 phase-level329_0 spec330_0)" -"(let-values(((s_291) req_3))" -"(let-values(((orig-s_20) s_291))" +"(let-values(((s_287) req_3))" +"(let-values(((orig-s_20) s_287))" "(let-values(((just-meta328_1" " phase-level329_1" " spec330_1)" -"(let-values(((s_292)" -"(if(syntax?$1 s_291)" -"(syntax-e$1 s_291)" -" s_291)))" -"(if(pair? s_292)" +"(let-values(((s_288)" +"(if(syntax?$1 s_287)" +"(syntax-e$1 s_287)" +" s_287)))" +"(if(pair? s_288)" "(let-values(((just-meta331_0)" -"(let-values(((s_293)" +"(let-values(((s_289)" "(car" -" s_292)))" -" s_293))" +" s_288)))" +" s_289))" "((phase-level332_0" " spec333_0)" -"(let-values(((s_294)" +"(let-values(((s_290)" "(cdr" -" s_292)))" -"(let-values(((s_295)" +" s_288)))" +"(let-values(((s_291)" "(if(syntax?$1" -" s_294)" +" s_290)" "(syntax-e$1" -" s_294)" -" s_294)))" -"(if(pair? s_295)" +" s_290)" +" s_290)))" +"(if(pair? s_291)" "(let-values(((phase-level334_0)" -"(let-values(((s_296)" +"(let-values(((s_292)" "(car" -" s_295)))" -" s_296))" +" s_291)))" +" s_292))" "((spec335_0)" -"(let-values(((s_297)" +"(let-values(((s_293)" "(cdr" -" s_295)))" -"(let-values(((s_298)" +" s_291)))" +"(let-values(((s_294)" "(if(syntax?$1" -" s_297)" +" s_293)" "(syntax-e$1" -" s_297)" -" s_297)))" +" s_293)" +" s_293)))" "(let-values(((flat-s_12)" "(to-syntax-list.1" -" s_298)))" +" s_294)))" "(if(not" " flat-s_12)" "(let-values()" @@ -26217,7 +26268,7 @@ static const char *startup_source = "(make-struct-field-accessor -ref_0 1 'other))))" "(define-values" "(swap-top-level-scopes)" -"(lambda(s_299 original-scopes-s_0 new-ns_0)" +"(lambda(s_295 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)" @@ -26225,7 +26276,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_299 old-scs-post_0 new-scs-post_0)" +"(syntax-swap-scopes s_295 old-scs-post_0 new-scs-post_0)" " old-scs-other_0" " new-scs-other_0))))))" "(define-values" @@ -26534,8 +26585,8 @@ static const char *startup_source = "(symbol-conflicts?)" "(lambda(sym_48 header_1)" "(begin" -"(let-values(((or-part_179)(built-in-symbol? sym_48)))" -"(if or-part_179 or-part_179(hash-ref(header-define-and-import-syms header_1) sym_48 #f))))))" +"(let-values(((or-part_165)(built-in-symbol? sym_48)))" +"(if or-part_165 or-part_165(hash-ref(header-define-and-import-syms header_1) sym_48 #f))))))" "(define-values" "(register-required-variable-use!19.1)" "(lambda(defined?12_0 defined?13_0 header14_0 mpi15_0 phase16_1 sym17_0 extra-inspector18_0)" @@ -26548,19 +26599,19 @@ static const char *startup_source = "(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_57)(variable-use3.1(module-use1.1 mpi_42 phase_68) sym_49)))" +"(let-values(((key_56)(variable-use3.1(module-use1.1 mpi_42 phase_68) sym_49)))" "(let-values(((variable-uses_0)(header-require-var-to-import-sym header_2)))" -"(let-values(((prev-var-sym_0)(hash-ref variable-uses_0 key_57 #f)))" +"(let-values(((prev-var-sym_0)(hash-ref variable-uses_0 key_56 #f)))" "(let-values(((var-sym_0)" -"(let-values(((or-part_216) prev-var-sym_0))" -"(if or-part_216" -" or-part_216" -"(let-values(((sym_50)(select-fresh(variable-use-sym key_57) header_2)))" +"(let-values(((or-part_202) prev-var-sym_0))" +"(if or-part_202" +" or-part_202" +"(let-values(((sym_50)(select-fresh(variable-use-sym key_56) header_2)))" "(begin" -"(hash-set! variable-uses_0 key_57 sym_50)" +"(hash-set! variable-uses_0 key_56 sym_50)" "(set-header-require-vars-in-order!" " header_2" -"(cons key_57(header-require-vars-in-order header_2)))" +"(cons key_56(header-require-vars-in-order header_2)))" "(hash-set!" "(header-define-and-import-syms header_2)" " sym_50" @@ -26573,7 +26624,7 @@ static const char *startup_source = "(hash-update!" " extra-inspectors_0" " var-sym_0" -"(lambda(s_300)(set-add s_300 extra-inspector_4))" +"(lambda(s_296)(set-add s_296 extra-inspector_4))" " '#hasheq())))" "(void))" " var-sym_0)))))))))))))))" @@ -26589,57 +26640,57 @@ static const char *startup_source = "(lambda(header_5 phase_69 cctx_0 cross-linklet-inlining?_0)" "(begin" "(let-values(((mod-use-ht_0 link-mod-uses_0)" -"(let-values(((lst_153)(header-require-vars-in-order header_5)))" +"(let-values(((lst_155)(header-require-vars-in-order header_5)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_153)))" +"(let-values()(check-list lst_155)))" "((letrec-values(((for-loop_177)" -"(lambda(ht_110 link-mod-uses_1 lst_154)" +"(lambda(ht_109 link-mod-uses_1 lst_156)" "(begin" " 'for-loop" -"(if(pair? lst_154)" -"(let-values(((vu_0)(unsafe-car lst_154))" -"((rest_77)(unsafe-cdr lst_154)))" -"(let-values(((ht_111 link-mod-uses_2)" -"(let-values(((ht_112) ht_110)" +"(if(pair? lst_156)" +"(let-values(((vu_0)(unsafe-car lst_156))" +"((rest_77)(unsafe-cdr lst_156)))" +"(let-values(((ht_110 link-mod-uses_2)" +"(let-values(((ht_111) ht_109)" "((link-mod-uses_3) link-mod-uses_1))" -"(let-values(((ht_113 link-mod-uses_4)" +"(let-values(((ht_112 link-mod-uses_4)" "(let-values()" "(let-values(((mu_2)" "(variable-use-module-use" " vu_0)))" -"(if(let-values(((or-part_164)" +"(if(let-values(((or-part_156)" "(hash-ref" -" ht_112" +" ht_111" " mu_2" " #f)))" -"(if or-part_164" -" or-part_164" -"(let-values(((or-part_217)" +"(if or-part_156" +" or-part_156" +"(let-values(((or-part_203)" "(eq?" "(module-use-module" " mu_2)" "(compile-context-self" " cctx_0))))" -"(if or-part_217" -" or-part_217" +"(if or-part_203" +" or-part_203" "(top-level-module-path-index?" "(module-use-module" " mu_2))))))" -"(values ht_112 link-mod-uses_3)" +"(values ht_111 link-mod-uses_3)" "(values" -"(hash-set ht_112 mu_2 #t)" +"(hash-set ht_111 mu_2 #t)" "(cons mu_2 link-mod-uses_3)))))))" -"(values ht_113 link-mod-uses_4)))))" +"(values ht_112 link-mod-uses_4)))))" "(if(not #f)" -"(for-loop_177 ht_111 link-mod-uses_2 rest_77)" -"(values ht_111 link-mod-uses_2))))" -"(values ht_110 link-mod-uses_1))))))" +"(for-loop_177 ht_110 link-mod-uses_2 rest_77)" +"(values ht_110 link-mod-uses_2))))" +"(values ht_109 link-mod-uses_1))))))" " for-loop_177)" " '#hash()" " null" -" lst_153)))))" +" lst_155)))))" "(values" " link-mod-uses_0" "(reverse$1" @@ -26647,42 +26698,42 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_34)))" "((letrec-values(((for-loop_178)" -"(lambda(fold-var_138 lst_155)" +"(lambda(fold-var_140 lst_157)" "(begin" " 'for-loop" -"(if(pair? lst_155)" -"(let-values(((mu_3)(unsafe-car lst_155))((rest_78)(unsafe-cdr lst_155)))" -"(let-values(((fold-var_139)" -"(let-values(((fold-var_140) fold-var_138))" +"(if(pair? lst_157)" +"(let-values(((mu_3)(unsafe-car lst_157))((rest_78)(unsafe-cdr lst_157)))" "(let-values(((fold-var_141)" +"(let-values(((fold-var_142) fold-var_140))" +"(let-values(((fold-var_143)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_109)" +"(let-values(((lst_110)" "(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_110)))" "((letrec-values(((for-loop_179)" -"(lambda(fold-var_142" -" lst_156)" +"(lambda(fold-var_144" +" lst_158)" "(begin" " 'for-loop" "(if(pair?" -" lst_156)" +" lst_158)" "(let-values(((vu_1)" "(unsafe-car" -" lst_156))" +" lst_158))" "((rest_79)" "(unsafe-cdr" -" lst_156)))" -"(let-values(((fold-var_143)" +" lst_158)))" +"(let-values(((fold-var_145)" "(let-values(((fold-var_40)" -" fold-var_142))" +" fold-var_144))" "(if(equal?" " mu_3" "(variable-use-module-use" @@ -26714,38 +26765,38 @@ static const char *startup_source = " fold-var_40))))" "(if(not #f)" "(for-loop_179" -" fold-var_143" +" fold-var_145" " rest_79)" -" fold-var_143)))" -" fold-var_142)))))" +" fold-var_145)))" +" fold-var_144)))))" " for-loop_179)" " null" -" lst_109)))))" -" fold-var_140))))" -"(values fold-var_141)))))" -"(if(not #f)(for-loop_178 fold-var_139 rest_78) fold-var_139)))" -" fold-var_138)))))" +" lst_110)))))" +" fold-var_142))))" +"(values fold-var_143)))))" +"(if(not #f)(for-loop_178 fold-var_141 rest_78) fold-var_141)))" +" fold-var_140)))))" " for-loop_178)" " null" " lst_34))))" "(reverse$1" -"(let-values(((lst_157) link-mod-uses_0))" +"(let-values(((lst_159) link-mod-uses_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_157)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_159)))" "((letrec-values(((for-loop_180)" -"(lambda(fold-var_144 lst_158)" +"(lambda(fold-var_146 lst_160)" "(begin" " 'for-loop" -"(if(pair? lst_158)" -"(let-values(((mu_4)(unsafe-car lst_158))((rest_80)(unsafe-cdr lst_158)))" -"(let-values(((fold-var_145)" -"(let-values(((fold-var_146) fold-var_144))" +"(if(pair? lst_160)" +"(let-values(((mu_4)(unsafe-car lst_160))((rest_80)(unsafe-cdr lst_160)))" "(let-values(((fold-var_147)" +"(let-values(((fold-var_148) fold-var_146))" +"(let-values(((fold-var_149)" "(let-values()" "(cons" "(let-values()" "(let-values(((extra-inspectorss_0)" -"(let-values(((lst_110)" +"(let-values(((lst_111)" "(header-require-vars-in-order" " header_5)))" "(begin" @@ -26753,9 +26804,9 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_110)))" +"(check-list lst_111)))" "((letrec-values(((for-loop_75)" -"(lambda(table_145" +"(lambda(table_148" " lst_56)" "(begin" " 'for-loop" @@ -26767,9 +26818,9 @@ static const char *startup_source = "((rest_81)" "(unsafe-cdr" " lst_56)))" -"(let-values(((table_29)" +"(let-values(((table_149)" "(let-values(((table_34)" -" table_145))" +" table_148))" "(if(equal?" " mu_4" "(variable-use-module-use" @@ -26782,11 +26833,11 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_181)" -"(lambda(table_30)" +"(lambda(table_32)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_31)" +"(let-values(((table_35)" "(let-values(((extra-inspectors_1)" "(hash-ref" "(header-import-sym-to-extra-inspectors" @@ -26796,84 +26847,84 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_182)" -"(lambda(table_146)" +"(lambda(table_150)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_147)" -"(let-values(((table_148)" -" table_146))" -"(if(let-values(((or-part_218)" +"(let-values(((table_151)" +"(let-values(((table_152)" +" table_150))" +"(if(let-values(((or-part_204)" " extra-inspectors_1))" -"(if or-part_218" -" or-part_218" +"(if or-part_204" +" or-part_204" " cross-linklet-inlining?_0))" -"(let-values(((table_149)" -" table_148))" -"(let-values(((table_121)" +"(let-values(((table_153)" +" table_152))" +"(let-values(((table_124)" "(let-values()" -"(let-values(((key_58" +"(let-values(((key_57" " val_48)" "(let-values()" "(values" " var-sym_3" " extra-inspectors_1))))" "(hash-set" -" table_149" -" key_58" +" table_153" +" key_57" " val_48)))))" "(values" -" table_121)))" -" table_148))))" -" table_147))))))" +" table_124)))" +" table_152))))" +" table_151))))))" " for-loop_182)" -" table_30)))))" -" table_31))))))" +" table_32)))))" +" table_35))))))" " for-loop_181)" " table_34)))" " table_34))))" "(if(not" " #f)" "(for-loop_75" -" table_29" +" table_149" " rest_81)" -" table_29)))" -" table_145)))))" +" table_149)))" +" table_148)))))" " for-loop_75)" " '#hash()" -" lst_110)))))" +" lst_111)))))" "(if(hash-count extra-inspectorss_0)" " extra-inspectorss_0" " #f)))" -" fold-var_146))))" -"(values fold-var_147)))))" -"(if(not #f)(for-loop_180 fold-var_145 rest_80) fold-var_145)))" -" fold-var_144)))))" +" fold-var_148))))" +"(values fold-var_149)))))" +"(if(not #f)(for-loop_180 fold-var_147 rest_80) fold-var_147)))" +" fold-var_146)))))" " for-loop_180)" " null" -" lst_157))))" +" lst_159))))" "(reverse$1" -"(let-values(((lst_159)(header-require-vars-in-order header_5)))" +"(let-values(((lst_161)(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_161)))" "((letrec-values(((for-loop_183)" -"(lambda(fold-var_148 lst_160)" +"(lambda(fold-var_150 lst_162)" "(begin" " 'for-loop" -"(if(pair? lst_160)" -"(let-values(((vu_3)(unsafe-car lst_160))((rest_82)(unsafe-cdr lst_160)))" -"(let-values(((fold-var_149)" -"(let-values(((fold-var_150) fold-var_148))" +"(if(pair? lst_162)" +"(let-values(((vu_3)(unsafe-car lst_162))((rest_82)(unsafe-cdr lst_162)))" +"(let-values(((fold-var_151)" +"(let-values(((fold-var_152) fold-var_150))" "(if(let-values(((mod_2)" "(module-use-module" "(variable-use-module-use vu_3))))" -"(let-values(((or-part_219)" +"(let-values(((or-part_205)" "(eq? mod_2(compile-context-self cctx_0))))" -"(if or-part_219" -" or-part_219" +"(if or-part_205" +" or-part_205" "(top-level-module-path-index? mod_2))))" -"(let-values(((fold-var_151) fold-var_150))" -"(let-values(((fold-var_152)" +"(let-values(((fold-var_153) fold-var_152))" +"(let-values(((fold-var_154)" "(let-values()" "(cons" "(let-values()" @@ -26887,14 +26938,14 @@ static const char *startup_source = "(if(eq? var-sym_4 ex-sym_1)" " var-sym_4" "(list var-sym_4 ex-sym_1)))))" -" fold-var_151))))" -"(values fold-var_152)))" -" fold-var_150))))" -"(if(not #f)(for-loop_183 fold-var_149 rest_82) fold-var_149)))" -" fold-var_148)))))" +" fold-var_153))))" +"(values fold-var_154)))" +" fold-var_152))))" +"(if(not #f)(for-loop_183 fold-var_151 rest_82) fold-var_151)))" +" fold-var_150)))))" " for-loop_183)" " null" -" lst_159)))))))))" +" lst_161)))))))))" "(define-values" "(instance-imports)" "(list ns-id phase-shift-id self-id inspector-id bulk-binding-registry-id set-transformer!-id))" @@ -27039,23 +27090,23 @@ static const char *startup_source = "(correlated-property)" "(case-lambda" "((e_30 k_31)(begin(syntax-property$2 e_30 k_31)))" -"((e_31 k_32 v_127)(syntax-property$2 e_31 k_32 v_127))))" +"((e_31 k_32 v_155)(syntax-property$2 e_31 k_32 v_155))))" "(define-values" "(to-syntax-list.1$1)" -"(lambda(s_301)" +"(lambda(s_297)" "(begin" " 'to-syntax-list" -"(if(list? s_301)" -"(let-values() s_301)" -"(if(pair? s_301)" -"(let-values()(let-values(((r_39)(to-syntax-list.1$1(cdr s_301))))(if r_39(cons(car s_301) r_39) #f)))" -"(if(1/syntax? s_301)(let-values()(to-syntax-list.1$1(syntax-e$2 s_301)))(let-values() #f)))))))" +"(if(list? s_297)" +"(let-values() s_297)" +"(if(pair? s_297)" +"(let-values()(let-values(((r_39)(to-syntax-list.1$1(cdr s_297))))(if r_39(cons(car s_297) r_39) #f)))" +"(if(1/syntax? s_297)(let-values()(to-syntax-list.1$1(syntax-e$2 s_297)))(let-values() #f)))))))" "(define-values" "(srcloc->vector)" -"(lambda(s_6)" +"(lambda(s_77)" "(begin" -"(if s_6" -"(vector(srcloc-source s_6)(srcloc-line s_6)(srcloc-column s_6)(srcloc-position s_6)(srcloc-span s_6))" +"(if s_77" +"(vector(srcloc-source s_77)(srcloc-line s_77)(srcloc-column s_77)(srcloc-position s_77)(srcloc-span s_77))" " #f))))" "(define-values" "(correlate*)" @@ -27073,20 +27124,20 @@ static const char *startup_source = "(lambda(p5_0 cctx6_0 name1_0 result-used?2_0 name3_0 result-used?4_0)" "(begin" " 'compile7" -"(let-values(((p_36) p5_0))" +"(let-values(((p_35) p5_0))" "(let-values(((cctx_1) cctx6_0))" "(let-values(((name_40)(if name3_0 name1_0 #f)))" "(let-values(((result-used?_0)(if result-used?4_0 result-used?2_0 #t)))" "(let-values()" "(let-values(((compile_0)" -"(lambda(p_37 name_41 result-used?_1)" -"(begin 'compile(compile$2 p_37 cctx_1 name_41 result-used?_1)))))" -"(let-values(((s_10)(parsed-s p_36)))" -"(if(parsed-id? p_36)" +"(lambda(p_36 name_41 result-used?_1)" +"(begin 'compile(compile$2 p_36 cctx_1 name_41 result-used?_1)))))" +"(let-values(((s_10)(parsed-s p_35)))" +"(if(parsed-id? p_35)" "(let-values()" -"(let-values(((p27_0) p_36)((cctx28_0) cctx_1))" +"(let-values(((p27_0) p_35)((cctx28_0) cctx_1))" "(compile-identifier24.1 #f #f #f #f p27_0 cctx28_0)))" -"(if(parsed-lambda? p_36)" +"(if(parsed-lambda? p_35)" "(let-values()" "(if result-used?_0" "(let-values()" @@ -27096,13 +27147,13 @@ static const char *startup_source = "(list*" " 'lambda" "(compile-lambda" -"(parsed-lambda-keys p_36)" -"(parsed-lambda-body p_36)" +"(parsed-lambda-keys p_35)" +"(parsed-lambda-body p_35)" " cctx_1)))" " name_40" " s_10))" "(let-values()(correlate~ s_10 ''unused-lambda))))" -"(if(parsed-case-lambda? p_36)" +"(if(parsed-case-lambda? p_35)" "(let-values()" "(if result-used?_0" "(let-values()" @@ -27112,23 +27163,23 @@ static const char *startup_source = "(list*" " 'case-lambda" "(reverse$1" -"(let-values(((lst_161)(parsed-case-lambda-clauses p_36)))" +"(let-values(((lst_163)(parsed-case-lambda-clauses p_35)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_161)))" +"(let-values()(check-list lst_163)))" "((letrec-values(((for-loop_184)" -"(lambda(fold-var_153 lst_162)" +"(lambda(fold-var_155 lst_164)" "(begin" " 'for-loop" -"(if(pair? lst_162)" +"(if(pair? lst_164)" "(let-values(((clause_0)" -"(unsafe-car lst_162))" +"(unsafe-car lst_164))" "((rest_83)" -"(unsafe-cdr lst_162)))" +"(unsafe-cdr lst_164)))" "(let-values(((fold-var_28)" "(let-values(((fold-var_29)" -" fold-var_153))" +" fold-var_155))" "(let-values(((fold-var_30)" "(let-values()" "(cons" @@ -27145,20 +27196,20 @@ static const char *startup_source = "(if(not #f)" "(for-loop_184 fold-var_28 rest_83)" " fold-var_28)))" -" fold-var_153)))))" +" fold-var_155)))))" " for-loop_184)" " null" -" lst_161))))))" +" lst_163))))))" " name_40" " s_10))" "(let-values()(correlate~ s_10 ''unused-case-lambda))))" -"(if(parsed-app? p_36)" +"(if(parsed-app? p_35)" "(let-values()" -"(let-values(((rands_0)(parsed-app-rands p_36)))" +"(let-values(((rands_0)(parsed-app-rands p_35)))" "(correlate/app" " s_10" "(cons" -"(compile_0(parsed-app-rator p_36) #f #t)" +"(compile_0(parsed-app-rator p_35) #f #t)" "(reverse$1" "(let-values(((lst_42) rands_0))" "(begin" @@ -27166,17 +27217,17 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_42)))" "((letrec-values(((for-loop_185)" -"(lambda(fold-var_154 lst_163)" +"(lambda(fold-var_156 lst_165)" "(begin" " 'for-loop" -"(if(pair? lst_163)" -"(let-values(((r_40)(unsafe-car lst_163))" +"(if(pair? lst_165)" +"(let-values(((r_40)(unsafe-car lst_165))" "((rest_42)" -"(unsafe-cdr lst_163)))" -"(let-values(((fold-var_155)" +"(unsafe-cdr lst_165)))" +"(let-values(((fold-var_157)" "(let-values(((fold-var_9)" -" fold-var_154))" -"(let-values(((fold-var_68)" +" fold-var_156))" +"(let-values(((fold-var_70)" "(let-values()" "(cons" "(let-values()" @@ -27186,69 +27237,69 @@ static const char *startup_source = " #t))" " fold-var_9))))" "(values" -" fold-var_68)))))" +" fold-var_70)))))" "(if(not #f)" -"(for-loop_185 fold-var_155 rest_42)" -" fold-var_155)))" -" fold-var_154)))))" +"(for-loop_185 fold-var_157 rest_42)" +" fold-var_157)))" +" fold-var_156)))))" " for-loop_185)" " null" " lst_42))))))))" -"(if(parsed-if? p_36)" +"(if(parsed-if? p_35)" "(let-values()" -"(let-values(((tst-e_0)(compile_0(parsed-if-tst p_36) #f #f)))" +"(let-values(((tst-e_0)(compile_0(parsed-if-tst p_35) #f #f)))" "(if(eq?(correlated-e tst-e_0) #t)" "(let-values()" -"(compile_0(parsed-if-thn p_36) name_40 result-used?_0))" +"(compile_0(parsed-if-thn p_35) name_40 result-used?_0))" "(if(eq?(correlated-e tst-e_0) #f)" "(let-values()" -"(compile_0(parsed-if-els p_36) name_40 result-used?_0))" +"(compile_0(parsed-if-els p_35) name_40 result-used?_0))" "(let-values()" "(correlate~" " s_10" "(list" " 'if" " tst-e_0" -"(compile_0(parsed-if-thn p_36) name_40 result-used?_0)" -"(compile_0(parsed-if-els p_36) name_40 result-used?_0))))))))" -"(if(parsed-with-continuation-mark? p_36)" +"(compile_0(parsed-if-thn p_35) name_40 result-used?_0)" +"(compile_0(parsed-if-els p_35) name_40 result-used?_0))))))))" +"(if(parsed-with-continuation-mark? p_35)" "(let-values()" "(correlate~" " s_10" "(list" " 'with-continuation-mark" -"(compile_0(parsed-with-continuation-mark-key p_36) #f #t)" -"(compile_0(parsed-with-continuation-mark-val p_36) #f #t)" +"(compile_0(parsed-with-continuation-mark-key p_35) #f #t)" +"(compile_0(parsed-with-continuation-mark-val p_35) #f #t)" "(compile_0" -"(parsed-with-continuation-mark-body p_36)" +"(parsed-with-continuation-mark-body p_35)" " name_40" " result-used?_0))))" -"(if(parsed-begin0? p_36)" +"(if(parsed-begin0? p_35)" "(let-values()" "(correlate~" " s_10" "(list*" " 'begin0" -"(compile_0(car(parsed-begin0-body p_36)) name_40 result-used?_0)" +"(compile_0(car(parsed-begin0-body p_35)) name_40 result-used?_0)" "(reverse$1" -"(let-values(((lst_90)(cdr(parsed-begin0-body p_36))))" +"(let-values(((lst_91)(cdr(parsed-begin0-body p_35))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_90)))" -"((letrec-values(((for-loop_107)" -"(lambda(fold-var_11 lst_91)" +"(let-values()(check-list lst_91)))" +"((letrec-values(((for-loop_106)" +"(lambda(fold-var_11 lst_92)" "(begin" " 'for-loop" -"(if(pair? lst_91)" +"(if(pair? lst_92)" "(let-values(((e_32)" -"(unsafe-car lst_91))" +"(unsafe-car lst_92))" "((rest_43)" -"(unsafe-cdr lst_91)))" -"(let-values(((fold-var_90)" -"(let-values(((fold-var_91)" +"(unsafe-cdr lst_92)))" +"(let-values(((fold-var_92)" +"(let-values(((fold-var_93)" " fold-var_11))" -"(let-values(((fold-var_156)" +"(let-values(((fold-var_158)" "(let-values()" "(cons" "(let-values()" @@ -27256,38 +27307,38 @@ static const char *startup_source = " e_32" " #f" " #f))" -" fold-var_91))))" +" fold-var_93))))" "(values" -" fold-var_156)))))" +" fold-var_158)))))" "(if(not #f)" -"(for-loop_107" -" fold-var_90" +"(for-loop_106" +" fold-var_92" " rest_43)" -" fold-var_90)))" +" fold-var_92)))" " fold-var_11)))))" -" for-loop_107)" +" for-loop_106)" " null" -" lst_90)))))))" -"(if(parsed-begin? p_36)" +" lst_91)))))))" +"(if(parsed-begin? p_35)" "(let-values()" "(correlate~" " s_10" "(compile-begin" -"(parsed-begin-body p_36)" +"(parsed-begin-body p_35)" " cctx_1" " name_40" " result-used?_0)))" -"(if(parsed-set!? p_36)" +"(if(parsed-set!? p_35)" "(let-values()" "(correlate~" " s_10" -"(let-values(((temp29_1)(parsed-set!-id p_36))" +"(let-values(((temp29_1)(parsed-set!-id p_35))" "((cctx30_0) cctx_1)" "((temp31_1) #t)" "((temp32_1)" "(compile_0" -"(parsed-set!-rhs p_36)" -"(parsed-s(parsed-set!-id p_36))" +"(parsed-set!-rhs p_35)" +"(parsed-s(parsed-set!-id p_35))" " #t)))" "(compile-identifier24.1" " temp32_1" @@ -27296,9 +27347,9 @@ static const char *startup_source = " #t" " temp29_1" " cctx30_0))))" -"(if(parsed-let-values? p_36)" +"(if(parsed-let-values? p_35)" "(let-values()" -"(let-values(((p33_0) p_36)" +"(let-values(((p33_0) p_35)" "((cctx34_0) cctx_1)" "((name35_0) name_40)" "((temp36_0) #f)" @@ -27309,9 +27360,9 @@ static const char *startup_source = " cctx34_0" " name35_0" " result-used?37_0)))" -"(if(parsed-letrec-values? p_36)" +"(if(parsed-letrec-values? p_35)" "(let-values()" -"(let-values(((p38_0) p_36)" +"(let-values(((p38_0) p_35)" "((cctx39_0) cctx_1)" "((name40_0) name_40)" "((temp41_0) #t)" @@ -27322,24 +27373,24 @@ static const char *startup_source = " cctx39_0" " name40_0" " result-used?42_0)))" -"(if(parsed-quote? p_36)" +"(if(parsed-quote? p_35)" "(let-values()" -"(let-values(((datum_1)(parsed-quote-datum p_36)))" +"(let-values(((datum_1)(parsed-quote-datum p_35)))" "(if(self-quoting-in-linklet? datum_1)" "(let-values()(correlate~ s_10 datum_1))" "(let-values()" "(correlate~ s_10(list 'quote datum_1))))))" -"(if(parsed-quote-syntax? p_36)" +"(if(parsed-quote-syntax? p_35)" "(let-values()" "(if result-used?_0" "(compile-quote-syntax" -"(parsed-quote-syntax-datum p_36)" +"(parsed-quote-syntax-datum p_35)" " cctx_1)" "(correlate~ s_10(list 'quote(syntax->datum$1 s_10)))))" -"(if(parsed-#%variable-reference? p_36)" +"(if(parsed-#%variable-reference? p_35)" "(let-values()" "(let-values(((id_45)" -"(parsed-#%variable-reference-id p_36)))" +"(parsed-#%variable-reference-id p_35)))" "(correlate~" " s_10" "(if id_45" @@ -27357,11 +27408,11 @@ static const char *startup_source = "(let-values()" "(error" " \"unrecognized parsed form:\"" -" p_36)))))))))))))))))))))))))))" +" p_35)))))))))))))))))))))))))))" "(case-lambda" -"((p_38 cctx_2)(begin 'compile(compile7_0 p_38 cctx_2 #f #f #f #f)))" -"((p_39 cctx_3 name_42 result-used?2_1)(compile7_0 p_39 cctx_3 name_42 result-used?2_1 #t #t))" -"((p_40 cctx_4 name1_1)(compile7_0 p_40 cctx_4 name1_1 #f #t #f)))))" +"((p_37 cctx_2)(begin 'compile(compile7_0 p_37 cctx_2 #f #f #f #f)))" +"((p_38 cctx_3 name_42 result-used?2_1)(compile7_0 p_38 cctx_3 name_42 result-used?2_1 #t #t))" +"((p_39 cctx_4 name1_1)(compile7_0 p_39 cctx_4 name1_1 #f #t #f)))))" "(define-values" "(compile-lambda)" "(lambda(formals_0 bodys_0 cctx_5)(begin(list formals_0(compile-sequence bodys_0 cctx_5 #f #t)))))" @@ -27380,73 +27431,72 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_164) es_0)((start_33) 0))" +"(let-values(((lst_166) es_0)((start_33) 0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_164)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_166)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_33)))" "((letrec-values(((for-loop_186)" -"(lambda(fold-var_157 lst_96 pos_90)" +"(lambda(fold-var_159 lst_97 pos_90)" "(begin" " 'for-loop" -"(if(if(pair? lst_96) #t #f)" -"(let-values(((e_33)(unsafe-car lst_96))" -"((rest_84)(unsafe-cdr lst_96))" -"((i_100) pos_90))" -"(let-values(((fold-var_158)" -"(let-values(((fold-var_79) fold-var_157))" -"(let-values(((fold-var_80)" +"(if(if(pair? lst_97) #t #f)" +"(let-values(((e_33)(unsafe-car lst_97))" +"((rest_84)(unsafe-cdr lst_97))" +"((i_43) pos_90))" +"(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_100 used-pos_0)))" +"(let-values(((used?_0)(= i_43 used-pos_0)))" "(compile$2" " e_33" " cctx_7" "(if used?_0 name_44 #f)" "(if used?_0 result-used?_3 #f))))" -" fold-var_79))))" -"(values fold-var_80)))))" -"(if(not #f)(for-loop_186 fold-var_158 rest_84(+ pos_90 1)) fold-var_158)))" -" fold-var_157)))))" +" fold-var_81))))" +"(values fold-var_82)))))" +"(if(not #f)(for-loop_186 fold-var_160 rest_84(+ pos_90 1)) fold-var_160)))" +" fold-var_159)))))" " for-loop_186)" " null" -" lst_164" +" lst_166" " start_33)))))))))" "(define-values" "(add-lambda-properties)" -"(lambda(s_302 inferred-name_0 orig-s_21)" +"(lambda(s_298 inferred-name_0 orig-s_21)" "(begin" "(letrec-values(((simplify-name_0)" -"(lambda(v_155)" +"(lambda(v_156)" "(begin" " 'simplify-name" -"(if(pair? v_155)" +"(if(pair? v_156)" "(let-values()" -"(let-values(((n1_0)(simplify-name_0(car v_155))))" -"(let-values(((n2_0)(simplify-name_0(cdr v_155))))(if(eq? n1_0 n2_0) n1_0 v_155))))" -"(let-values() v_155))))))" +"(let-values(((n1_0)(simplify-name_0(car v_156))))" +"(let-values(((n2_0)(simplify-name_0(cdr v_156))))(if(eq? n1_0 n2_0) n1_0 v_156))))" +"(let-values() v_156))))))" "(let-values(((name_45)" -"(let-values(((or-part_220)" -"(let-values(((v_156)" +"(let-values(((or-part_206)" +"(let-values(((v_157)" "(simplify-name_0(syntax-property$1 orig-s_21 'inferred-name))))" -"(if(let-values(((or-part_135)(symbol? v_156)))" -"(if or-part_135" -" or-part_135" -"(let-values(((or-part_221)(syntax?$1 v_156)))" -"(if or-part_221 or-part_221(void? v_156)))))" -" v_156" +"(if(let-values(((or-part_128)(symbol? v_157)))" +"(if or-part_128" +" or-part_128" +"(let-values(((or-part_207)(syntax?$1 v_157)))" +"(if or-part_207 or-part_207(void? v_157)))))" +" v_157" " #f))))" -"(if or-part_220 or-part_220 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_302)" +"(->correlated s_298)" " 'inferred-name" "(if(syntax?$1 name_45)(syntax-e$1 name_45) name_45))" -" s_302)))" +" s_298)))" "(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)" @@ -27456,38 +27506,38 @@ static const char *startup_source = "(lambda(rec?9_0 p11_0 cctx12_0 name13_0 result-used?14_0)" "(begin" " 'compile-let15" -"(let-values(((p_41) p11_0))" +"(let-values(((p_40) p11_0))" "(let-values(((cctx_8) cctx12_0))" "(let-values(((name_46) name13_0))" "(let-values(((rec?_0) rec?9_0))" "(let-values(((result-used?_4) result-used?14_0))" "(let-values()" -"(let-values(((body_0)(parsed-let_-values-body p_41)))" +"(let-values(((body_0)(parsed-let_-values-body p_40)))" "(correlate~" -"(parsed-s p_41)" +"(parsed-s p_40)" "(list" "(if rec?_0 'letrec-values 'let-values)" "(reverse$1" -"(let-values(((lst_165)(parsed-let_-values-clauses p_41))" -"((lst_166)(parsed-let_-values-idss p_41)))" +"(let-values(((lst_167)(parsed-let_-values-clauses p_40))" +"((lst_168)(parsed-let_-values-idss p_40)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_165)))" +"(let-values()(check-list lst_167)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_166)))" +"(let-values()(check-list lst_168)))" "((letrec-values(((for-loop_187)" -"(lambda(fold-var_159 lst_167 lst_168)" +"(lambda(fold-var_161 lst_169 lst_170)" "(begin" " 'for-loop" -"(if(if(pair? lst_167)(pair? lst_168) #f)" -"(let-values(((clause_1)(unsafe-car lst_167))" -"((rest_85)(unsafe-cdr lst_167))" -"((ids_4)(unsafe-car lst_168))" -"((rest_86)(unsafe-cdr lst_168)))" -"(let-values(((fold-var_160)" -"(let-values(((fold-var_161) fold-var_159))" +"(if(if(pair? lst_169)(pair? lst_170) #f)" +"(let-values(((clause_1)(unsafe-car lst_169))" +"((rest_85)(unsafe-cdr lst_169))" +"((ids_4)(unsafe-car lst_170))" +"((rest_86)(unsafe-cdr lst_170)))" +"(let-values(((fold-var_162)" +"(let-values(((fold-var_163) fold-var_161))" "(let-values(((fold-var_0)" "(let-values()" "(cons" @@ -27495,10 +27545,10 @@ static const char *startup_source = "(list" "(if rec?_0" "(reverse$1" -"(let-values(((lst_169)" +"(let-values(((lst_171)" "(car" " clause_1))" -"((lst_170)" +"((lst_172)" " ids_4))" "(begin" "(if(variable-reference-from-unsafe?" @@ -27506,61 +27556,61 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_169)))" +" lst_171)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_170)))" +" lst_172)))" "((letrec-values(((for-loop_188)" "(lambda(fold-var_2" -" lst_171" -" lst_172)" +" lst_173" +" lst_174)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_171)" +" lst_173)" "(pair?" -" lst_172)" +" lst_174)" " #f)" "(let-values(((sym_51)" "(unsafe-car" -" lst_171))" +" lst_173))" "((rest_87)" "(unsafe-cdr" -" lst_171))" +" lst_173))" "((id_46)" "(unsafe-car" -" lst_172))" +" lst_174))" "((rest_88)" "(unsafe-cdr" -" lst_172)))" -"(let-values(((fold-var_92)" -"(let-values(((fold-var_162)" +" lst_174)))" +"(let-values(((fold-var_94)" +"(let-values(((fold-var_164)" " fold-var_2))" -"(let-values(((fold-var_163)" +"(let-values(((fold-var_165)" "(let-values()" "(cons" "(let-values()" "(add-undefined-error-name-property" " sym_51" " id_46))" -" fold-var_162))))" +" fold-var_164))))" "(values" -" fold-var_163)))))" +" fold-var_165)))))" "(if(not" " #f)" "(for-loop_188" -" fold-var_92" +" fold-var_94" " rest_87" " rest_88)" -" fold-var_92)))" +" fold-var_94)))" " fold-var_2)))))" " for-loop_188)" " null" -" lst_169" -" lst_170))))" +" lst_171" +" lst_172))))" "(car clause_1))" "(compile$2" "(cadr clause_1)" @@ -27568,16 +27618,16 @@ static const char *startup_source = "(if(= 1(length ids_4))" "(car ids_4)" " #f))))" -" fold-var_161))))" +" fold-var_163))))" "(values fold-var_0)))))" "(if(not #f)" -"(for-loop_187 fold-var_160 rest_85 rest_86)" -" fold-var_160)))" -" fold-var_159)))))" +"(for-loop_187 fold-var_162 rest_85 rest_86)" +" fold-var_162)))" +" fold-var_161)))))" " for-loop_187)" " null" -" lst_165" -" lst_166))))" +" lst_167" +" lst_168))))" "(compile-sequence body_0 cctx_8 name_46 result-used?_4)))))))))))))" "(define-values" "(add-undefined-error-name-property)" @@ -27594,19 +27644,19 @@ static const char *startup_source = "(lambda(set-to19_0 set-to21_0 set-to?18_0 set-to?20_0 p22_0 cctx23_0)" "(begin" " 'compile-identifier24" -"(let-values(((p_42) p22_0))" +"(let-values(((p_41) p22_0))" "(let-values(((cctx_9) cctx23_0))" "(let-values(((set-to?_0)(if set-to?20_0 set-to?18_0 #f)))" "(let-values(((rhs_0)(if set-to21_0 set-to19_0 #f)))" "(let-values()" -"(let-values(((normal-b_0)(parsed-id-binding p_42)))" +"(let-values(((normal-b_0)(parsed-id-binding p_41)))" "(let-values(((b_69)" -"(let-values(((or-part_222) normal-b_0))" -"(if or-part_222" -" or-part_222" +"(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))))" +"((temp47_0)(syntax-e$1(parsed-s p_41))))" "(make-module-binding22.1" " #f" " #f" @@ -27635,10 +27685,10 @@ static const char *startup_source = "(if(module-binding? b_69)" "(let-values()" "(let-values(((mpi_43)" -"(if(parsed-top-id? p_42)" +"(if(parsed-top-id? p_41)" "(compile-context-self cctx_9)" "(module-binding-module b_69))))" -"(if(parsed-primitive-id? p_42)" +"(if(parsed-primitive-id? p_41)" "(let-values()" "(begin" "(if(zero?(module-binding-phase b_69))" @@ -27664,16 +27714,16 @@ static const char *startup_source = "((temp50_0)(module-binding-phase b_69))" "((temp51_0)(module-binding-sym b_69))" "((temp52_1)" -"(let-values(((or-part_100)" +"(let-values(((or-part_102)" "(module-binding-extra-inspector b_69)))" -"(if or-part_100" -" or-part_100" -"(let-values(((or-part_223)" -"(parsed-id-inspector p_42)))" -"(if or-part_223" -" or-part_223" -"(if(parsed-s p_42)" -"(syntax-inspector(parsed-s p_42))" +"(if or-part_102" +" or-part_102" +"(let-values(((or-part_209)" +"(parsed-id-inspector p_41)))" +"(if or-part_209" +" or-part_209" +"(if(parsed-s p_41)" +"(syntax-inspector(parsed-s p_41))" " #f)))))))" "(register-required-variable-use!19.1" " #f" @@ -27687,8 +27737,8 @@ static const char *startup_source = "(error" " \"not a reference to a module or local binding:\"" " b_69" -"(parsed-s p_42)))))))" -"(correlate~(parsed-s p_42)(if set-to?_0(list 'set! sym_5 rhs_0) sym_5)))))))))))))" +"(parsed-s p_41)))))))" +"(correlate~(parsed-s p_41)(if set-to?_0(list 'set! sym_5 rhs_0) sym_5)))))))))))))" "(define-values" "(compile-quote-syntax)" "(lambda(q_1 cctx_10)" @@ -27705,17 +27755,17 @@ static const char *startup_source = "(let-values() #f)" "(if(set? extra-inspectors_2)" "(let-values()" -"(let-values(((ht_114) extra-inspectors_2))" +"(let-values(((ht_113) extra-inspectors_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_114)))" -"((letrec-values(((for-loop_95)" -"(lambda(result_78 i_139)" +"(let-values()(check-in-immutable-hash-keys ht_113)))" +"((letrec-values(((for-loop_94)" +"(lambda(result_78 i_137)" "(begin" " 'for-loop" -"(if i_139" -"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_114 i_139)))" +"(if i_137" +"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_113 i_137)))" "(let-values(((result_79)" "(let-values()" "(let-values(((result_80)" @@ -27725,13 +27775,13 @@ static const char *startup_source = " extra-insp_0" " guard-insp_0)))))" "(values result_80)))))" -"(if(if(not((lambda x_52(not result_79)) extra-insp_0))(not #f) #f)" -"(for-loop_95 result_79(unsafe-immutable-hash-iterate-next ht_114 i_139))" +"(if(if(not((lambda x_51(not result_79)) extra-insp_0))(not #f) #f)" +"(for-loop_94 result_79(unsafe-immutable-hash-iterate-next ht_113 i_137))" " result_79)))" " result_78)))))" -" for-loop_95)" +" for-loop_94)" " #t" -"(unsafe-immutable-hash-iterate-first ht_114)))))" +"(unsafe-immutable-hash-iterate-first ht_113)))))" "(if(procedure? extra-inspectors_2)" "(let-values()(extra-inspectors_2 guard-insp_0))" "(let-values()" @@ -27743,8 +27793,8 @@ static const char *startup_source = "(extra-inspectors-merge)" "(lambda(extra-inspectors-1_0 extra-inspectors-2_0)" "(begin" -"(if(let-values(((or-part_224)(not extra-inspectors-1_0)))" -"(if or-part_224 or-part_224(not extra-inspectors-2_0)))" +"(if(let-values(((or-part_210)(not extra-inspectors-1_0)))" +"(if or-part_210 or-part_210(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))" @@ -27791,22 +27841,22 @@ static const char *startup_source = "(if extra-inspectorsss_0" "(let-values()" "(reverse$1" -"(let-values(((lst_102) mus_1)((lst_90) extra-inspectorsss_0))" +"(let-values(((lst_103) mus_1)((lst_91) extra-inspectorsss_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_102)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_90)))" -"((letrec-values(((for-loop_107)" -"(lambda(fold-var_11 lst_91 lst_173)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_103)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_91)))" +"((letrec-values(((for-loop_106)" +"(lambda(fold-var_11 lst_92 lst_175)" "(begin" " 'for-loop" -"(if(if(pair? lst_91)(pair? lst_173) #f)" -"(let-values(((mu_5)(unsafe-car lst_91))" -"((rest_89)(unsafe-cdr lst_91))" -"((extra-inspectorss_1)(unsafe-car lst_173))" -"((rest_37)(unsafe-cdr lst_173)))" -"(let-values(((fold-var_164)" -"(let-values(((fold-var_165) fold-var_11))" +"(if(if(pair? lst_92)(pair? lst_175) #f)" +"(let-values(((mu_5)(unsafe-car lst_92))" +"((rest_89)(unsafe-cdr lst_92))" +"((extra-inspectorss_1)(unsafe-car lst_175))" +"((rest_37)(unsafe-cdr lst_175)))" "(let-values(((fold-var_166)" +"(let-values(((fold-var_167) fold-var_11))" +"(let-values(((fold-var_168)" "(let-values()" "(cons" "(let-values()" @@ -27815,28 +27865,28 @@ static const char *startup_source = "(module-use-phase mu_5)" " extra-inspectorss_1" " #f))" -" fold-var_165))))" -"(values fold-var_166)))))" -"(if(not #f)(for-loop_107 fold-var_164 rest_89 rest_37) fold-var_164)))" +" fold-var_167))))" +"(values fold-var_168)))))" +"(if(not #f)(for-loop_106 fold-var_166 rest_89 rest_37) fold-var_166)))" " fold-var_11)))))" -" for-loop_107)" +" for-loop_106)" " null" -" lst_102" -" lst_90)))))" +" lst_103" +" lst_91)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_92) mus_1))" +"(let-values(((lst_93) mus_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_92)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_93)))" "((letrec-values(((for-loop_189)" -"(lambda(fold-var_167 lst_17)" +"(lambda(fold-var_169 lst_17)" "(begin" " 'for-loop" "(if(pair? lst_17)" "(let-values(((mu_6)(unsafe-car lst_17))((rest_90)(unsafe-cdr lst_17)))" "(let-values(((fold-var_63)" -"(let-values(((fold-var_168) fold-var_167))" -"(let-values(((fold-var_18)" +"(let-values(((fold-var_170) fold-var_169))" +"(let-values(((fold-var_171)" "(let-values()" "(cons" "(let-values()" @@ -27845,43 +27895,43 @@ static const char *startup_source = "(module-use-phase mu_6)" " #f" " #f))" -" fold-var_168))))" -"(values fold-var_18)))))" +" fold-var_170))))" +"(values fold-var_171)))))" "(if(not #f)(for-loop_189 fold-var_63 rest_90) fold-var_63)))" -" fold-var_167)))))" +" fold-var_169)))))" " for-loop_189)" " null" -" lst_92)))))))))" +" lst_93)))))))))" "(define-values" "(module-uses-strip-extra-inspectorsss)" "(lambda(mu*s_0)" "(begin" "(reverse$1" -"(let-values(((lst_174) mu*s_0))" +"(let-values(((lst_176) mu*s_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_174)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_176)))" "((letrec-values(((for-loop_190)" -"(lambda(fold-var_70 lst_175)" +"(lambda(fold-var_72 lst_177)" "(begin" " 'for-loop" -"(if(pair? lst_175)" -"(let-values(((mu*_0)(unsafe-car lst_175))((rest_91)(unsafe-cdr lst_175)))" -"(let-values(((fold-var_169)" -"(let-values(((fold-var_71) fold-var_70))" -"(let-values(((fold-var_170)" +"(if(pair? lst_177)" +"(let-values(((mu*_0)(unsafe-car lst_177))((rest_91)(unsafe-cdr lst_177)))" +"(let-values(((fold-var_17)" +"(let-values(((fold-var_73) fold-var_72))" +"(let-values(((fold-var_172)" "(let-values()" "(cons" "(let-values()" "(module-use1.1" "(module-use-module mu*_0)" "(module-use-phase mu*_0)))" -" fold-var_71))))" -"(values fold-var_170)))))" -"(if(not #f)(for-loop_190 fold-var_169 rest_91) fold-var_169)))" -" fold-var_70)))))" +" fold-var_73))))" +"(values fold-var_172)))))" +"(if(not #f)(for-loop_190 fold-var_17 rest_91) fold-var_17)))" +" fold-var_72)))))" " for-loop_190)" " null" -" lst_174)))))))" +" lst_176)))))))" "(define-values" "(module-uses-extract-extra-inspectorsss)" "(lambda(mu*s_1 linklet_0 check-inlined-reference?_0 skip-n_0)" @@ -27889,72 +27939,72 @@ static const char *startup_source = "(if(not check-inlined-reference?_0)" "(let-values()" "(reverse$1" -"(let-values(((lst_176) mu*s_1))" +"(let-values(((lst_178) mu*s_1))" "(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_178)))" "((letrec-values(((for-loop_191)" -"(lambda(fold-var_74 lst_9)" +"(lambda(fold-var_76 lst_9)" "(begin" " 'for-loop" "(if(pair? lst_9)" "(let-values(((mu*_1)(unsafe-car lst_9))((rest_92)(unsafe-cdr lst_9)))" -"(let-values(((fold-var_171)" -"(let-values(((fold-var_4) fold-var_74))" -"(let-values(((fold-var_172)" +"(let-values(((fold-var_173)" +"(let-values(((fold-var_4) fold-var_76))" +"(let-values(((fold-var_174)" "(let-values()" "(cons" "(let-values()" "(module-use*-extra-inspectorss mu*_1))" " fold-var_4))))" -"(values fold-var_172)))))" -"(if(not #f)(for-loop_191 fold-var_171 rest_92) fold-var_171)))" -" fold-var_74)))))" +"(values fold-var_174)))))" +"(if(not #f)(for-loop_191 fold-var_173 rest_92) fold-var_173)))" +" fold-var_76)))))" " for-loop_191)" " null" -" lst_176)))))" +" lst_178)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_177) mu*s_1)((lst_178)(list-tail(1/linklet-import-variables linklet_0) skip-n_0)))" +"(let-values(((lst_179) mu*s_1)((lst_180)(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_177)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_178)))" -"((letrec-values(((for-loop_29)" -"(lambda(fold-var_6 lst_179 lst_180)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_179)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_180)))" +"((letrec-values(((for-loop_28)" +"(lambda(fold-var_6 lst_181 lst_182)" "(begin" " 'for-loop" -"(if(if(pair? lst_179)(pair? lst_180) #f)" -"(let-values(((mu*_2)(unsafe-car lst_179))" -"((rest_93)(unsafe-cdr lst_179))" -"((imports_0)(unsafe-car lst_180))" -"((rest_94)(unsafe-cdr lst_180)))" -"(let-values(((fold-var_157)" -"(let-values(((fold-var_173) fold-var_6))" -"(let-values(((fold-var_174)" +"(if(if(pair? lst_181)(pair? lst_182) #f)" +"(let-values(((mu*_2)(unsafe-car lst_181))" +"((rest_93)(unsafe-cdr lst_181))" +"((imports_0)(unsafe-car lst_182))" +"((rest_94)(unsafe-cdr lst_182)))" +"(let-values(((fold-var_159)" +"(let-values(((fold-var_175) fold-var_6))" +"(let-values(((fold-var_176)" "(let-values()" "(cons" "(let-values()" "(let-values(((extra-inspectorss_2)" "(module-use*-extra-inspectorss" " mu*_2)))" -"(let-values(((lst_97) imports_0))" +"(let-values(((lst_98) imports_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_97)))" +"(let-values()(check-list lst_98)))" "((letrec-values(((for-loop_19)" "(lambda(extra-inspectorss_3" -" lst_181)" +" lst_183)" "(begin" " 'for-loop" "(if(pair?" -" lst_181)" +" lst_183)" "(let-values(((import_0)" "(unsafe-car" -" lst_181))" +" lst_183))" "((rest_95)" "(unsafe-cdr" -" lst_181)))" +" lst_183)))" "(let-values(((extra-inspectorss_4)" "(let-values(((extra-inspectorss_5)" " extra-inspectorss_3))" @@ -27986,15 +28036,15 @@ static const char *startup_source = " extra-inspectorss_3)))))" " for-loop_19)" " extra-inspectorss_2" -" lst_97)))))" -" fold-var_173))))" -"(values fold-var_174)))))" -"(if(not #f)(for-loop_29 fold-var_157 rest_93 rest_94) fold-var_157)))" +" lst_98)))))" +" fold-var_175))))" +"(values fold-var_176)))))" +"(if(not #f)(for-loop_28 fold-var_159 rest_93 rest_94) fold-var_159)))" " fold-var_6)))))" -" for-loop_29)" +" for-loop_28)" " null" -" lst_177" -" lst_178)))))))))" +" lst_179" +" lst_180)))))))))" "(define-values" "(module-use*-declaration-inspector!)" "(lambda(mu*_3 insp_9)(begin(set-module-use*-self-inspector! mu*_3 insp_9))))" @@ -28007,25 +28057,25 @@ static const char *startup_source = "(let-values(((add-extra-insp?_0)" "(if extra-inspector_5(inspector-superior? extra-inspector_5 now-inspector_0) #f)))" "(let-values(((new-extra-inspectorss_0)" -"(if(let-values(((or-part_225) add-insp?_0))(if or-part_225 or-part_225 add-extra-insp?_0))" +"(if(let-values(((or-part_211) add-insp?_0))(if or-part_211 or-part_211 add-extra-insp?_0))" "(let-values()" -"(let-values(((lst_182) imports_1))" +"(let-values(((lst_184) imports_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_182)))" +"(let-values()(check-list lst_184)))" "((letrec-values(((for-loop_192)" -"(lambda(table_150 lst_183)" +"(lambda(table_154 lst_185)" "(begin" " 'for-loop" -"(if(pair? lst_183)" -"(let-values(((import_1)(unsafe-car lst_183))" -"((rest_96)(unsafe-cdr lst_183)))" -"(let-values(((table_151)" -"(let-values(((table_152) table_150))" -"(let-values(((table_153)" +"(if(pair? lst_185)" +"(let-values(((import_1)(unsafe-car lst_185))" +"((rest_96)(unsafe-cdr lst_185)))" +"(let-values(((table_155)" +"(let-values(((table_156) table_154))" +"(let-values(((table_157)" "(let-values()" -"(let-values(((key_59" +"(let-values(((key_58" " val_50)" "(let-values()" "(values" @@ -28046,40 +28096,40 @@ static const char *startup_source = " #f)))" "(if or-part_54" " or-part_54" -"(let-values(((or-part_147)" +"(let-values(((or-part_139)" "(if add-extra-insp?_0" "(inspector-superior?" " extra-inspector_5" " guard-insp_2)" " #f)))" -"(if or-part_147" -" or-part_147" +"(if or-part_139" +" or-part_139" "(extra-inspectors-allow?" " extra-inspectors_3" " guard-insp_2)))))))))))" "(hash-set" -" table_152" -" key_59" +" table_156" +" key_58" " val_50)))))" -"(values table_153)))))" -"(if(not #f)(for-loop_192 table_151 rest_96) table_151)))" -" table_150)))))" +"(values table_157)))))" +"(if(not #f)(for-loop_192 table_155 rest_96) table_155)))" +" table_154)))))" " for-loop_192)" " '#hash()" -" lst_182))))" +" lst_184))))" "(let-values()" -"(let-values(((lst_184) imports_1))" +"(let-values(((lst_186) imports_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_184)))" +"(let-values()(check-list lst_186)))" "((letrec-values(((for-loop_193)" -"(lambda(extra-inspectorss_8 lst_185)" +"(lambda(extra-inspectorss_8 lst_187)" "(begin" " 'for-loop" -"(if(pair? lst_185)" -"(let-values(((import_2)(unsafe-car lst_185))" -"((rest_97)(unsafe-cdr lst_185)))" +"(if(pair? lst_187)" +"(let-values(((import_2)(unsafe-car lst_187))" +"((rest_97)(unsafe-cdr lst_187)))" "(let-values(((extra-inspectorss_9)" "(let-values(((extra-inspectorss_10)" " extra-inspectorss_8))" @@ -28100,9 +28150,9 @@ static const char *startup_source = " extra-inspectorss_9)))" " extra-inspectorss_8)))))" " for-loop_193)" -"(let-values(((or-part_226) extra-inspectorss_7))" -"(if or-part_226 or-part_226(seteq)))" -" lst_184)))))))" +"(let-values(((or-part_212) extra-inspectorss_7))" +"(if or-part_212 or-part_212(seteq)))" +" lst_186)))))))" "(module-use*1.1 mpi_44 phase_70 new-extra-inspectorss_0 #f))))))))" "(define-values" "(module-use-merge-extra-inspectorss!)" @@ -28111,18 +28161,18 @@ static const char *startup_source = "(let-values(((extra-inspectorss_12)(module-use*-extra-inspectorss mu*_4)))" "(let-values(((existing-extra-inspectorss_0)(module-use*-extra-inspectorss existing-mu*_0)))" "(let-values(((new-extra-inspectorss_1)" -"(let-values(((ht_115) extra-inspectorss_12))" +"(let-values(((ht_114) extra-inspectorss_12))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_115)))" +"(let-values()(check-in-hash ht_114)))" "((letrec-values(((for-loop_194)" -"(lambda(new-extra-inspectorss_2 i_140)" +"(lambda(new-extra-inspectorss_2 i_138)" "(begin" " 'for-loop" -"(if i_140" +"(if i_138" "(let-values(((sym_52 extra-inspectors_4)" -"(hash-iterate-key+value ht_115 i_140)))" +"(hash-iterate-key+value ht_114 i_138)))" "(let-values(((new-extra-inspectorss_3)" "(let-values(((new-extra-inspectorss_4)" " new-extra-inspectorss_2))" @@ -28141,12 +28191,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_194" " new-extra-inspectorss_3" -"(hash-iterate-next ht_115 i_140))" +"(hash-iterate-next ht_114 i_138))" " new-extra-inspectorss_3)))" " new-extra-inspectorss_2)))))" " for-loop_194)" " existing-extra-inspectorss_0" -"(hash-iterate-first ht_115))))))" +"(hash-iterate-first ht_114))))))" "(set-module-use*-extra-inspectorss! existing-mu*_0 new-extra-inspectorss_1)))))))" "(define-values" "(struct:link-info" @@ -28219,7 +28269,7 @@ static const char *startup_source = "(let-values(((get-module-linklet-info_0)" "(if get-module-linklet-info24_0" " get-module-linklet-info11_0" -"(lambda(mod-name_14 p_43)(begin 'get-module-linklet-info #f)))))" +"(lambda(mod-name_14 p_42)(begin 'get-module-linklet-info #f)))))" "(let-values(((to-source?_0)(if to-source?25_0 to-source?12_0 #f)))" "(let-values(((serializable?_0)(if serializable?26_0 serializable?13_0 #t)))" "(let-values(((cross-linklet-inlining?_1)" @@ -28243,13 +28293,13 @@ static const char *startup_source = "(lambda(phase_72)" "(begin" " 'find-or-create-header!" -"(let-values(((or-part_220)" +"(let-values(((or-part_206)" "(hash-ref" " phase-to-header_0" " phase_72" " #f)))" -"(if or-part_220" -" or-part_220" +"(if or-part_206" +" or-part_206" "(let-values(((header_7)" "(make-header" " mpis_15" @@ -28262,23 +28312,23 @@ static const char *startup_source = " header_7))))))))" "(let-values((()" "(begin" -"(let-values(((lst_186) force-phases_0))" +"(let-values(((lst_188) force-phases_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_186)))" +"(let-values()(check-list lst_188)))" "((letrec-values(((for-loop_195)" -"(lambda(lst_187)" +"(lambda(lst_189)" "(begin" " 'for-loop" -"(if(pair? lst_187)" +"(if(pair? lst_189)" "(let-values(((phase_73)" "(unsafe-car" -" lst_187))" +" lst_189))" "((rest_98)" "(unsafe-cdr" -" lst_187)))" +" lst_189)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28299,7 +28349,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_195)" -" lst_186)))" +" lst_188)))" "(values))))" "(let-values()" "(let-values(((saw-define-syntaxes?_0) #f))" @@ -28314,7 +28364,7 @@ static const char *startup_source = "(begin" " 'loop!" "(begin" -"(let-values(((lst_188)" +"(let-values(((lst_190)" " bodys_3))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28322,19 +28372,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_188)))" +" lst_190)))" "((letrec-values(((for-loop_196)" -"(lambda(lst_189)" +"(lambda(lst_191)" "(begin" " 'for-loop" "(if(pair?" -" lst_189)" +" lst_191)" "(let-values(((body_2)" "(unsafe-car" -" lst_189))" +" lst_191))" "((rest_99)" "(unsafe-cdr" -" lst_189)))" +" lst_191)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28345,7 +28395,7 @@ static const char *startup_source = " body_2)" "(let-values()" "(begin" -"(let-values(((lst_190)" +"(let-values(((lst_192)" "(parsed-define-values-syms" " body_2)))" "(begin" @@ -28354,19 +28404,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_190)))" +" lst_192)))" "((letrec-values(((for-loop_197)" -"(lambda(lst_191)" +"(lambda(lst_193)" "(begin" " 'for-loop" "(if(pair?" -" lst_191)" +" lst_193)" "(let-values(((sym_53)" "(unsafe-car" -" lst_191))" +" lst_193))" "((rest_100)" "(unsafe-cdr" -" lst_191)))" +" lst_193)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28401,7 +28451,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_197)" -" lst_190)))" +" lst_192)))" "(void)))" "(if(parsed-begin-for-syntax?" " body_2)" @@ -28424,7 +28474,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_196)" -" lst_188)))" +" lst_190)))" "(void))))))" " loop!_0)" " bodys_2" @@ -28450,7 +28500,7 @@ static const char *startup_source = "(begin" " 'loop!" "(begin" -"(let-values(((lst_192)" +"(let-values(((lst_194)" " bodys_4)" "((start_34)" " 0))" @@ -28460,7 +28510,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_192)))" +" lst_194)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -28468,21 +28518,21 @@ static const char *startup_source = "(check-naturals" " start_34)))" "((letrec-values(((for-loop_115)" -"(lambda(lst_193" +"(lambda(lst_195" " pos_92)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_193)" +" lst_195)" " #t" " #f)" "(let-values(((body_3)" "(unsafe-car" -" lst_193))" +" lst_195))" "((rest_86)" "(unsafe-cdr" -" lst_193))" -"((i_141)" +" lst_195))" +"((i_139)" " pos_92))" "(let-values((()" "(let-values()" @@ -28504,7 +28554,7 @@ static const char *startup_source = " cctx_3)" "(let-values()" "(reverse$1" -"(let-values(((lst_194)" +"(let-values(((lst_196)" " binding-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28512,24 +28562,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_194)))" +" lst_196)))" "((letrec-values(((for-loop_198)" "(lambda(fold-var_3" -" lst_172)" +" lst_174)" "(begin" " 'for-loop" "(if(pair?" -" lst_172)" +" lst_174)" "(let-values(((binding-sym_0)" "(unsafe-car" -" lst_172))" +" lst_174))" "((rest_87)" "(unsafe-cdr" -" lst_172)))" -"(let-values(((fold-var_175)" -"(let-values(((fold-var_176)" +" lst_174)))" +"(let-values(((fold-var_177)" +"(let-values(((fold-var_178)" " fold-var_3))" -"(let-values(((fold-var_92)" +"(let-values(((fold-var_94)" "(let-values()" "(cons" "(let-values()" @@ -28537,22 +28587,22 @@ static const char *startup_source = "(header-binding-sym-to-define-sym" " header_10)" " binding-sym_0))" -" fold-var_176))))" +" fold-var_178))))" "(values" -" fold-var_92)))))" +" fold-var_94)))))" "(if(not" " #f)" "(for-loop_198" -" fold-var_175" +" fold-var_177" " rest_87)" -" fold-var_175)))" +" fold-var_177)))" " fold-var_3)))))" " for-loop_198)" " null" -" lst_194)))))" +" lst_196)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_104)" +"(let-values(((lst_105)" " binding-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28560,24 +28610,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_104)))" +" lst_105)))" "((letrec-values(((for-loop_199)" -"(lambda(fold-var_177" -" lst_195)" +"(lambda(fold-var_179" +" lst_197)" "(begin" " 'for-loop" "(if(pair?" -" lst_195)" +" lst_197)" "(let-values(((binding-sym_1)" "(unsafe-car" -" lst_195))" +" lst_197))" "((rest_101)" "(unsafe-cdr" -" lst_195)))" -"(let-values(((fold-var_178)" -"(let-values(((fold-var_179)" -" fold-var_177))" +" lst_197)))" "(let-values(((fold-var_180)" +"(let-values(((fold-var_181)" +" fold-var_179))" +"(let-values(((fold-var_182)" "(let-values()" "(cons" "(let-values()" @@ -28602,19 +28652,19 @@ static const char *startup_source = " phase37_1" " binding-sym38_0" " temp39_0)))" -" fold-var_179))))" +" fold-var_181))))" "(values" -" fold-var_180)))))" +" fold-var_182)))))" "(if(not" " #f)" "(for-loop_199" -" fold-var_178" +" fold-var_180" " rest_101)" -" fold-var_178)))" -" fold-var_177)))))" +" fold-var_180)))" +" fold-var_179)))))" " for-loop_199)" " null" -" lst_104))))))))" +" lst_105))))))))" "(let-values(((rhs_1)" "(compile$2" "(parsed-define-values-rhs" @@ -28690,7 +28740,7 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_106)" +"(let-values(((lst_107)" " def-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28698,9 +28748,9 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_106)))" +" lst_107)))" "((letrec-values(((for-loop_200)" -"(lambda(fold-var_181" +"(lambda(fold-var_183" " lst_51)" "(begin" " 'for-loop" @@ -28712,10 +28762,10 @@ static const char *startup_source = "((rest_102)" "(unsafe-cdr" " lst_51)))" -"(let-values(((fold-var_182)" -"(let-values(((fold-var_183)" -" fold-var_181))" "(let-values(((fold-var_184)" +"(let-values(((fold-var_185)" +" fold-var_183))" +"(let-values(((fold-var_186)" "(let-values()" "(cons" "(let-values()" @@ -28723,19 +28773,19 @@ static const char *startup_source = " 'set!" " def-sym_2" " '(#f)))" -" fold-var_183))))" +" fold-var_185))))" "(values" -" fold-var_184)))))" +" fold-var_186)))))" "(if(not" " #f)" "(for-loop_200" -" fold-var_182" +" fold-var_184" " rest_102)" -" fold-var_182)))" -" fold-var_181)))))" +" fold-var_184)))" +" fold-var_183)))))" " for-loop_200)" " null" -" lst_106)))))" +" lst_107)))))" " '((void))))" "(add-body!_0" " phase_75" @@ -28783,7 +28833,7 @@ static const char *startup_source = " phase_75))))" "(let-values(((gen-syms_0)" "(reverse$1" -"(let-values(((lst_196)" +"(let-values(((lst_198)" " binding-syms_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28791,24 +28841,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_196)))" +" lst_198)))" "((letrec-values(((for-loop_201)" -"(lambda(fold-var_185" -" lst_197)" +"(lambda(fold-var_187" +" lst_199)" "(begin" " 'for-loop" "(if(pair?" -" lst_197)" +" lst_199)" "(let-values(((binding-sym_2)" "(unsafe-car" -" lst_197))" +" lst_199))" "((rest_103)" "(unsafe-cdr" -" lst_197)))" -"(let-values(((fold-var_186)" -"(let-values(((fold-var_187)" -" fold-var_185))" +" lst_199)))" "(let-values(((fold-var_188)" +"(let-values(((fold-var_189)" +" fold-var_187))" +"(let-values(((fold-var_190)" "(let-values()" "(cons" "(let-values()" @@ -28821,19 +28871,19 @@ static const char *startup_source = " next-header_0" " gen-sym_0)" " gen-sym_0)))" -" fold-var_187))))" +" fold-var_189))))" "(values" -" fold-var_188)))))" +" fold-var_190)))))" "(if(not" " #f)" "(for-loop_201" -" fold-var_186" +" fold-var_188" " rest_103)" -" fold-var_186)))" -" fold-var_185)))))" +" fold-var_188)))" +" fold-var_187)))))" " for-loop_201)" " null" -" lst_196))))))" +" lst_198))))))" "(let-values(((rhs_2)" "(compile$2" "(parsed-define-syntaxes-rhs" @@ -28883,7 +28933,7 @@ static const char *startup_source = "(reverse$1" "(let-values(((lst_29)" " binding-syms_1)" -"((lst_198)" +"((lst_200)" " gen-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28897,34 +28947,34 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_198)))" +" lst_200)))" "((letrec-values(((for-loop_202)" -"(lambda(fold-var_189" -" lst_199" -" lst_200)" +"(lambda(fold-var_191" +" lst_201" +" lst_202)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_199)" +" lst_201)" "(pair?" -" lst_200)" +" lst_202)" " #f)" "(let-values(((binding-sym_3)" "(unsafe-car" -" lst_199))" +" lst_201))" "((rest_104)" "(unsafe-cdr" -" lst_199))" +" lst_201))" "((gen-sym_1)" "(unsafe-car" -" lst_200))" +" lst_202))" "((rest_105)" "(unsafe-cdr" -" lst_200)))" -"(let-values(((fold-var_190)" -"(let-values(((fold-var_191)" -" fold-var_189))" +" lst_202)))" "(let-values(((fold-var_192)" +"(let-values(((fold-var_193)" +" fold-var_191))" +"(let-values(((fold-var_194)" "(let-values()" "(cons" "(let-values()" @@ -28934,21 +28984,21 @@ static const char *startup_source = " 'quote" " binding-sym_3)" " gen-sym_1))" -" fold-var_191))))" +" fold-var_193))))" "(values" -" fold-var_192)))))" +" fold-var_194)))))" "(if(not" " #f)" "(for-loop_202" -" fold-var_190" +" fold-var_192" " rest_104" " rest_105)" -" fold-var_190)))" -" fold-var_189)))))" +" fold-var_192)))" +" fold-var_191)))))" " for-loop_202)" " null" " lst_29" -" lst_198))))))" +" lst_200))))))" "(begin" "(if(compile-context-module-self" " cctx_3)" @@ -29017,16 +29067,16 @@ static const char *startup_source = "(find-or-create-header!_0" "(add1" " phase_75))))" -"(if(let-values(((or-part_227)" +"(if(let-values(((or-part_213)" "(parsed-#%declare?" " body_3)))" -"(if or-part_227" -" or-part_227" -"(let-values(((or-part_228)" +"(if or-part_213" +" or-part_213" +"(let-values(((or-part_214)" "(parsed-module?" " body_3)))" -"(if or-part_228" -" or-part_228" +"(if or-part_214" +" or-part_214" "(parsed-require?" " body_3)))))" "(let-values()" @@ -29102,7 +29152,7 @@ static const char *startup_source = " the-struct_51)))" " #f" "(=" -" i_141" +" i_139" " last-i_0))))" "(begin" "(compiled-expression-callback_0" @@ -29126,7 +29176,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_115)" -" lst_192" +" lst_194" " start_34)))" "(void))))))" " loop!_1)" @@ -29176,33 +29226,33 @@ static const char *startup_source = " phases-in-order_2))" " phase_71)))" "(let-values(((phase-to-link-info_0)" -"(let-values(((lst_201)" +"(let-values(((lst_203)" " phases-in-order_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_201)))" +"(check-list lst_203)))" "((letrec-values(((for-loop_119)" -"(lambda(table_154" -" lst_202)" +"(lambda(table_158" +" lst_204)" "(begin" " 'for-loop" "(if(pair?" -" lst_202)" +" lst_204)" "(let-values(((phase_76)" "(unsafe-car" -" lst_202))" +" lst_204))" "((rest_106)" "(unsafe-cdr" -" lst_202)))" -"(let-values(((table_155)" -"(let-values(((table_156)" -" table_154))" -"(let-values(((table_157)" +" lst_204)))" +"(let-values(((table_159)" +"(let-values(((table_160)" +" table_158))" +"(let-values(((table_161)" "(let-values()" -"(let-values(((key_60" +"(let-values(((key_59" " val_51)" "(let-values()" "(let-values(((header_11)" @@ -29227,23 +29277,23 @@ static const char *startup_source = " extra-inspectorsss_1" " def-decls_0)))))))" "(hash-set" -" table_156" -" key_60" +" table_160" +" key_59" " val_51)))))" "(values" -" table_157)))))" +" table_161)))))" "(if(not" " #f)" "(for-loop_119" -" table_155" +" table_159" " rest_106)" -" table_155)))" -" table_154)))))" +" table_159)))" +" table_158)))))" " for-loop_119)" " '#hash()" -" lst_201)))))" +" lst_203)))))" "(let-values(((body-linklets+module-use*s_0)" -"(let-values(((lst_203)" +"(let-values(((lst_205)" " phases-in-order_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -29251,26 +29301,26 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_203)))" +" lst_205)))" "((letrec-values(((for-loop_203)" -"(lambda(table_158" -" lst_204)" +"(lambda(table_162" +" lst_206)" "(begin" " 'for-loop" "(if(pair?" -" lst_204)" +" lst_206)" "(let-values(((phase_77)" "(unsafe-car" -" lst_204))" +" lst_206))" "((rest_107)" "(unsafe-cdr" -" lst_204)))" -"(let-values(((table_159)" -"(let-values(((table_160)" -" table_158))" -"(let-values(((table_161)" +" lst_206)))" +"(let-values(((table_163)" +"(let-values(((table_164)" +" table_162))" +"(let-values(((table_165)" "(let-values()" -"(let-values(((key_61" +"(let-values(((key_60" " val_52)" "(let-values()" "(let-values(((bodys_5)" @@ -29323,7 +29373,7 @@ static const char *startup_source = "(link-info-def-decls" " li_0)" "(reverse$1" -"(let-values(((lst_205)" +"(let-values(((lst_207)" "(header-binding-syms-in-order" "(hash-ref" " phase-to-header_0" @@ -29334,24 +29384,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_205)))" +" lst_207)))" "((letrec-values(((for-loop_181)" -"(lambda(fold-var_193" -" lst_206)" +"(lambda(fold-var_195" +" lst_208)" "(begin" " 'for-loop" "(if(pair?" -" lst_206)" +" lst_208)" "(let-values(((binding-sym_4)" "(unsafe-car" -" lst_206))" +" lst_208))" "((rest_108)" "(unsafe-cdr" -" lst_206)))" -"(let-values(((fold-var_194)" -"(let-values(((fold-var_195)" -" fold-var_193))" +" lst_208)))" "(let-values(((fold-var_196)" +"(let-values(((fold-var_197)" +" fold-var_195))" +"(let-values(((fold-var_198)" "(let-values()" "(cons" "(let-values()" @@ -29366,19 +29416,19 @@ static const char *startup_source = "(list" " def-sym_3" " binding-sym_4))))" -" fold-var_195))))" +" fold-var_197))))" "(values" -" fold-var_196)))))" +" fold-var_198)))))" "(if(not" " #f)" "(for-loop_181" -" fold-var_194" +" fold-var_196" " rest_108)" -" fold-var_194)))" -" fold-var_193)))))" +" fold-var_196)))" +" fold-var_195)))))" " for-loop_181)" " null" -" lst_205)))))" +" lst_207)))))" "(qq-append" "(reverse$1" " bodys_5)" @@ -29404,22 +29454,74 @@ static const char *startup_source = "(length" " body-imports_0))))))))))))" "(hash-set" -" table_160" -" key_61" +" table_164" +" key_60" " val_52)))))" "(values" -" table_161)))))" +" table_165)))))" "(if(not" " #f)" "(for-loop_203" -" table_159" +" table_163" " rest_107)" -" table_159)))" -" table_158)))))" +" table_163)))" +" table_162)))))" " for-loop_203)" " '#hasheq()" -" lst_203)))))" +" lst_205)))))" "(let-values(((body-linklets_0)" +"(let-values(((ht_115)" +" body-linklets+module-use*s_0))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-in-hash" +" ht_115)))" +"((letrec-values(((for-loop_204)" +"(lambda(table_166" +" i_140)" +"(begin" +" 'for-loop" +"(if i_140" +"(let-values(((phase_53" +" l+mu*s_0)" +"(hash-iterate-key+value" +" ht_115" +" i_140)))" +"(let-values(((table_167)" +"(let-values(((table_125)" +" table_166))" +"(let-values(((table_126)" +"(let-values()" +"(let-values(((key_61" +" val_53)" +"(let-values()" +"(values" +" phase_53" +"(car" +" l+mu*s_0)))))" +"(hash-set" +" table_125" +" key_61" +" val_53)))))" +"(values" +" table_126)))))" +"(if(not" +" #f)" +"(for-loop_204" +" table_167" +"(hash-iterate-next" +" ht_115" +" i_140))" +" table_167)))" +" table_166)))))" +" for-loop_204)" +" '#hasheq()" +"(hash-iterate-first" +" ht_115))))))" +"(let-values(((phase-to-link-module-uses_1)" "(let-values(((ht_116)" " body-linklets+module-use*s_0))" "(begin" @@ -29429,49 +29531,54 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_116)))" -"((letrec-values(((for-loop_204)" -"(lambda(table_162" -" i_142)" +"((letrec-values(((for-loop_205)" +"(lambda(table_168" +" i_141)" "(begin" " 'for-loop" -"(if i_142" -"(let-values(((phase_53" -" l+mu*s_0)" +"(if i_141" +"(let-values(((phase_78" +" l+mu*s_1)" "(hash-iterate-key+value" " ht_116" -" i_142)))" -"(let-values(((table_163)" -"(let-values(((table_122)" -" table_162))" -"(let-values(((table_123)" +" i_141)))" +"(let-values(((table_169)" +"(let-values(((table_42)" +" table_168))" +"(let-values(((table_170)" "(let-values()" "(let-values(((key_62" -" val_53)" +" val_54)" "(let-values()" "(values" -" phase_53" -"(car" -" l+mu*s_0)))))" +" phase_78" +"(module-uses-strip-extra-inspectorsss" +"(cdr" +" l+mu*s_1))))))" "(hash-set" -" table_122" +" table_42" " key_62" -" val_53)))))" +" val_54)))))" "(values" -" table_123)))))" +" table_170)))))" "(if(not" " #f)" -"(for-loop_204" -" table_163" +"(for-loop_205" +" table_169" "(hash-iterate-next" " ht_116" -" i_142))" -" table_163)))" -" table_162)))))" -" for-loop_204)" +" i_141))" +" table_169)))" +" table_168)))))" +" for-loop_205)" " '#hasheq()" "(hash-iterate-first" " ht_116))))))" -"(let-values(((phase-to-link-module-uses_1)" +"(let-values(((phase-to-link-module-uses-expr_0)" +"(serialize-phase-to-link-module-uses" +" phase-to-link-module-uses_1" +" mpis_15)))" +"(let-values(((phase-to-link-extra-inspectorsss_0)" "(let-values(((ht_117)" " body-linklets+module-use*s_0))" "(begin" @@ -29481,75 +29588,18 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_117)))" -"((letrec-values(((for-loop_205)" -"(lambda(table_164" -" i_143)" -"(begin" -" 'for-loop" -"(if i_143" -"(let-values(((phase_78" -" l+mu*s_1)" -"(hash-iterate-key+value" -" ht_117" -" i_143)))" -"(let-values(((table_165)" -"(let-values(((table_40)" -" table_164))" -"(let-values(((table_166)" -"(let-values()" -"(let-values(((key_63" -" val_54)" -"(let-values()" -"(values" -" phase_78" -"(module-uses-strip-extra-inspectorsss" -"(cdr" -" l+mu*s_1))))))" -"(hash-set" -" table_40" -" key_63" -" val_54)))))" -"(values" -" table_166)))))" -"(if(not" -" #f)" -"(for-loop_205" -" table_165" -"(hash-iterate-next" -" ht_117" -" i_143))" -" table_165)))" -" table_164)))))" -" for-loop_205)" -" '#hasheq()" -"(hash-iterate-first" -" ht_117))))))" -"(let-values(((phase-to-link-module-uses-expr_0)" -"(serialize-phase-to-link-module-uses" -" phase-to-link-module-uses_1" -" mpis_15)))" -"(let-values(((phase-to-link-extra-inspectorsss_0)" -"(let-values(((ht_118)" -" body-linklets+module-use*s_0))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-in-hash" -" ht_118)))" "((letrec-values(((for-loop_206)" -"(lambda(table_167" -" i_144)" +"(lambda(table_171" +" i_142)" "(begin" " 'for-loop" -"(if i_144" +"(if i_142" "(let-values(((phase_79" " l+mu*s_2)" "(hash-iterate-key+value" -" ht_118" -" i_144)))" -"(let-values(((table_168)" +" ht_117" +" i_142)))" +"(let-values(((table_172)" "(let-values(((extra-inspectorsss_2)" "(module-uses-extract-extra-inspectorsss" "(cdr" @@ -29562,47 +29612,47 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_126)" -"(lambda(table_169)" +"(lambda(table_173)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_170)" -"(let-values(((table_171)" -" table_169))" +"(let-values(((table_174)" +"(let-values(((table_175)" +" table_173))" "(if extra-inspectorsss_2" -"(let-values(((table_172)" -" table_171))" -"(let-values(((table_44)" +"(let-values(((table_176)" +" table_175))" +"(let-values(((table_46)" "(let-values()" -"(let-values(((key_64" +"(let-values(((key_63" " val_55)" "(let-values()" "(values" " phase_79" " extra-inspectorsss_2))))" "(hash-set" -" table_172" -" key_64" +" table_176" +" key_63" " val_55)))))" "(values" -" table_44)))" -" table_171))))" -" table_170))))))" +" table_46)))" +" table_175))))" +" table_174))))))" " for-loop_126)" -" table_167)))))" +" table_171)))))" "(if(not" " #f)" "(for-loop_206" -" table_168" +" table_172" "(hash-iterate-next" -" ht_118" -" i_144))" -" table_168)))" -" table_167)))))" +" ht_117" +" i_142))" +" table_172)))" +" table_171)))))" " for-loop_206)" " '#hash()" "(hash-iterate-first" -" ht_118))))))" +" ht_117))))))" "(values" " body-linklets_0" " min-phase_0" @@ -29627,66 +29677,66 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_207) ids_7)" -"((lst_208) binding-syms_2)" -"((lst_117)" +"(let-values(((lst_209) ids_7)" +"((lst_210) binding-syms_2)" +"((lst_119)" "(let-values(((or-part_109) trans-exprs_0))" "(if or-part_109" " or-part_109" "(reverse$1" -"(let-values(((lst_118) ids_7))" +"(let-values(((lst_120) ids_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_118)))" +"(let-values()(check-list lst_120)))" "((letrec-values(((for-loop_207)" -"(lambda(fold-var_197 lst_209)" +"(lambda(fold-var_199 lst_211)" "(begin" " 'for-loop" -"(if(pair? lst_209)" -"(let-values(((id_48)(unsafe-car lst_209))" -"((rest_109)(unsafe-cdr lst_209)))" -"(let-values(((fold-var_198)" -"(let-values(((fold-var_199)" -" fold-var_197))" +"(if(pair? lst_211)" +"(let-values(((id_48)(unsafe-car lst_211))" +"((rest_109)(unsafe-cdr lst_211)))" "(let-values(((fold-var_200)" +"(let-values(((fold-var_201)" +" fold-var_199))" +"(let-values(((fold-var_202)" "(let-values()" "(cons" "(let-values()" " ''#f)" -" fold-var_199))))" -"(values fold-var_200)))))" +" fold-var_201))))" +"(values fold-var_202)))))" "(if(not #f)" -"(for-loop_207 fold-var_198 rest_109)" -" fold-var_198)))" -" fold-var_197)))))" +"(for-loop_207 fold-var_200 rest_109)" +" fold-var_200)))" +" fold-var_199)))))" " for-loop_207)" " null" -" lst_118))))))))" +" lst_120))))))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_207)))" +"(let-values()(check-list lst_209)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_208)))" +"(let-values()(check-list lst_210)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_117)))" +"(let-values()(check-list lst_119)))" "((letrec-values(((for-loop_208)" -"(lambda(fold-var_201 lst_210 lst_3 lst_211)" +"(lambda(fold-var_203 lst_212 lst_3 lst_213)" "(begin" " 'for-loop" -"(if(if(pair? lst_210)(if(pair? lst_3)(pair? lst_211) #f) #f)" -"(let-values(((id_49)(unsafe-car lst_210))" -"((rest_110)(unsafe-cdr lst_210))" +"(if(if(pair? lst_212)(if(pair? lst_3)(pair? lst_213) #f) #f)" +"(let-values(((id_49)(unsafe-car lst_212))" +"((rest_110)(unsafe-cdr lst_212))" "((binding-sym_5)(unsafe-car lst_3))" "((rest_111)(unsafe-cdr lst_3))" -"((trans-expr_0)(unsafe-car lst_211))" -"((rest_112)(unsafe-cdr lst_211)))" -"(let-values(((fold-var_202)" -"(let-values(((fold-var_203) fold-var_201))" +"((trans-expr_0)(unsafe-car lst_213))" +"((rest_112)(unsafe-cdr lst_213)))" "(let-values(((fold-var_204)" +"(let-values(((fold-var_205) fold-var_203))" +"(let-values(((fold-var_206)" "(let-values()" "(cons" "(let-values()" @@ -29706,17 +29756,17 @@ static const char *startup_source = "(list 'quote binding-sym_5)" "(if trans-exprs_0 #t #f)" " trans-expr_0)))" -" fold-var_203))))" -"(values fold-var_204)))))" +" fold-var_205))))" +"(values fold-var_206)))))" "(if(not #f)" -"(for-loop_208 fold-var_202 rest_110 rest_111 rest_112)" -" fold-var_202)))" -" fold-var_201)))))" +"(for-loop_208 fold-var_204 rest_110 rest_111 rest_112)" +" fold-var_204)))" +" fold-var_203)))))" " for-loop_208)" " null" -" lst_207" -" lst_208" -" lst_117))))))))))))))" +" lst_209" +" lst_210" +" lst_119))))))))))))))" "(define-values" "(generate-top-level-define-syntaxes)" "(lambda(gen-syms_1 rhs_3 transformer-set!s_1 finish_1)" @@ -29737,36 +29787,36 @@ static const char *startup_source = "(list*" " 'values" "(reverse$1" -"(let-values(((lst_212) gen-syms_1))" +"(let-values(((lst_214) gen-syms_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_212)))" +"(let-values()(check-list lst_214)))" "((letrec-values(((for-loop_209)" -"(lambda(fold-var_205 lst_213)" +"(lambda(fold-var_207 lst_215)" "(begin" " 'for-loop" -"(if(pair? lst_213)" -"(let-values(((s_303)(unsafe-car lst_213))((rest_113)(unsafe-cdr lst_213)))" -"(let-values(((fold-var_206)" -"(let-values(((fold-var_207) fold-var_205))" +"(if(pair? lst_215)" +"(let-values(((s_299)(unsafe-car lst_215))((rest_113)(unsafe-cdr lst_215)))" "(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_207))))" -"(values fold-var_208)))))" -"(if(not #f)(for-loop_209 fold-var_206 rest_113) fold-var_206)))" -" fold-var_205)))))" +"(cons(let-values() ''#f) fold-var_209))))" +"(values fold-var_210)))))" +"(if(not #f)(for-loop_209 fold-var_208 rest_113) fold-var_208)))" +" fold-var_207)))))" " for-loop_209)" " null" -" lst_212)))))))" +" lst_214)))))))" "(list* 'begin finish_1 '((void)))))" "(list 'args(list* 'let-values(list(list* gen-syms_1 '((apply values args)))) '((void)))))))))" "(define-values" "(propagate-inline-property)" "(lambda(e_36 orig-s_22)" "(begin" -"(let-values(((v_157)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" -"(if v_157(correlated-property e_36 'compiler-hint:cross-module-inline v_157) e_36)))))" +"(let-values(((v_158)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" +"(if v_158(correlated-property e_36 'compiler-hint:cross-module-inline v_158) e_36)))))" "(define-values" "(make-module-use-to-linklet)" "(lambda(cross-linklet-inlining?_2 ns_57 get-module-linklet-info_1 init-mu*s_0)" @@ -29787,17 +29837,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_143) init-mu*s_0))" +"(let-values(((lst_145) init-mu*s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_143)))" +"(let-values()(check-list lst_145)))" "((letrec-values(((for-loop_170)" -"(lambda(lst_214)" +"(lambda(lst_216)" "(begin" " 'for-loop" -"(if(pair? lst_214)" -"(let-values(((mu*_6)(unsafe-car lst_214))((rest_114)(unsafe-cdr lst_214)))" +"(if(pair? lst_216)" +"(let-values(((mu*_6)(unsafe-car lst_216))((rest_114)(unsafe-cdr lst_216)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -29809,7 +29859,7 @@ static const char *startup_source = "(if(not #f)(for-loop_170 rest_114)(values))))" "(values))))))" " for-loop_170)" -" lst_143)))" +" lst_145)))" "(void)" "(lambda(mu*-or-instance_0)" "(if(1/instance? mu*-or-instance_0)" @@ -29821,10 +29871,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_229)" +"(let-values(((or-part_215)" "(get-module-linklet-info_1 mod-name_16(module-use-phase mu*_7))))" -"(if or-part_229" -" or-part_229" +"(if or-part_215" +" or-part_215" "(namespace->module-linklet-info" " ns_57" " mod-name_16" @@ -29845,41 +29895,41 @@ 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_217) mus_2)" +"((lst_218)" "(1/linklet-import-variables" "(module-linklet-info-linklet-or-instance mli_0)))" -"((lst_217)" -"(let-values(((or-part_230) extra-inspectorsss_3))" -"(if or-part_230 or-part_230 mus_2))))" +"((lst_219)" +"(let-values(((or-part_216) extra-inspectorsss_3))" +"(if or-part_216 or-part_216 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)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_218)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_219)))" "((letrec-values(((for-loop_210)" -"(lambda(fold-var_209 lst_218 lst_219 lst_220)" +"(lambda(fold-var_211 lst_220 lst_221 lst_222)" "(begin" " 'for-loop" -"(if(if(pair? lst_218)" -"(if(pair? lst_219)(pair? lst_220) #f)" +"(if(if(pair? lst_220)" +"(if(pair? lst_221)(pair? lst_222) #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_220))" +"((rest_115)(unsafe-cdr lst_220))" +"((imports_3)(unsafe-car lst_221))" +"((rest_116)(unsafe-cdr lst_221))" "((extra-inspectorss_13)" -"(unsafe-car lst_220))" -"((rest_117)(unsafe-cdr lst_220)))" -"(let-values(((fold-var_210)" -"(let-values(((fold-var_211)" -" fold-var_209))" +"(unsafe-car lst_222))" +"((rest_117)(unsafe-cdr lst_222)))" "(let-values(((fold-var_212)" +"(let-values(((fold-var_213)" +" fold-var_211))" +"(let-values(((fold-var_214)" "(let-values()" "(cons" "(let-values()" @@ -29902,21 +29952,21 @@ static const char *startup_source = "(if extra-inspectorsss_3" " extra-inspectorss_13" " #f))))" -" fold-var_211))))" -"(values fold-var_212)))))" +" fold-var_213))))" +"(values fold-var_214)))))" "(if(not #f)" "(for-loop_210" -" fold-var_210" +" fold-var_212" " rest_115" " rest_116" " rest_117)" -" fold-var_210)))" -" fold-var_209)))))" +" fold-var_212)))" +" fold-var_211)))))" " for-loop_210)" " null" -" lst_215" -" lst_216" -" lst_217)))))))" +" lst_217" +" lst_218" +" lst_219)))))))" " #f))" "(values #f #f)))))))" "(let-values()(values #f #f))))))))))))" @@ -29929,7 +29979,7 @@ static const char *startup_source = "(map-cim-tree" " cims_0" "(lambda(cim_1)" -"(let-values(((vec_55 i_145)" +"(let-values(((vec_55 i_143)" "(let-values(((vec_56 len_28)" "(let-values(((vec_57)(compiled-in-memory-mpis cim_1)))" "(begin" @@ -29937,17 +29987,17 @@ static const char *startup_source = "(values vec_57(unsafe-vector-length vec_57))))))" "(begin" " #f" -"((letrec-values(((for-loop_96)" -"(lambda(vec_58 i_146 pos_93)" +"((letrec-values(((for-loop_95)" +"(lambda(vec_58 i_144 pos_93)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_93 len_28)" "(let-values(((mpi_45)" "(unsafe-vector-ref vec_56 pos_93)))" -"(let-values(((vec_59 i_147)" +"(let-values(((vec_59 i_145)" "(let-values(((vec_60) vec_58)" -"((i_57) i_146))" -"(let-values(((vec_61 i_148)" +"((i_57) i_144))" +"(let-values(((vec_61 i_146)" "(let-values()" "(let-values(((new-vec_3)" "(if(eq?" @@ -29970,19 +30020,19 @@ static const char *startup_source = "(unsafe-fx+" " i_57" " 1)))))))" -"(values vec_61 i_148)))))" +"(values vec_61 i_146)))))" "(if(not #f)" -"(for-loop_96" +"(for-loop_95" " vec_59" -" i_147" +" i_145" "(unsafe-fx+ 1 pos_93))" -"(values vec_59 i_147))))" -"(values vec_58 i_146))))))" -" for-loop_96)" +"(values vec_59 i_145))))" +"(values vec_58 i_144))))))" +" for-loop_95)" "(make-vector 16)" " 0" " 0)))))" -"(shrink-vector vec_55 i_145))))))" +"(shrink-vector vec_55 i_143))))))" "(let-values(((syntax-literals_2)(make-syntax-literals)))" "(let-values(((syntax-literals-trees_0)" "(map-cim-tree" @@ -30009,22 +30059,22 @@ static const char *startup_source = "(list*" " 'vector" "(reverse$1" -"(let-values(((lst_221)(reverse$1 module-uses-tables_0)))" +"(let-values(((lst_223)(reverse$1 module-uses-tables_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_221)))" -"((letrec-values(((for-loop_106)" -"(lambda(fold-var_67 lst_89)" +"(let-values()(check-list lst_223)))" +"((letrec-values(((for-loop_105)" +"(lambda(fold-var_69 lst_90)" "(begin" " 'for-loop" -"(if(pair? lst_89)" +"(if(pair? lst_90)" "(let-values(((phase-to-link-module-uses_2)" -"(unsafe-car lst_89))" -"((rest_118)(unsafe-cdr lst_89)))" +"(unsafe-car lst_90))" +"((rest_118)(unsafe-cdr lst_90)))" "(let-values(((fold-var_34)" -"(let-values(((fold-var_155)" -" fold-var_67))" +"(let-values(((fold-var_157)" +" fold-var_69))" "(let-values(((fold-var_9)" "(let-values()" "(cons" @@ -30032,15 +30082,15 @@ static const char *startup_source = "(serialize-phase-to-link-module-uses" " phase-to-link-module-uses_2" " mpis_17))" -" fold-var_155))))" +" fold-var_157))))" "(values fold-var_9)))))" "(if(not #f)" -"(for-loop_106 fold-var_34 rest_118)" +"(for-loop_105 fold-var_34 rest_118)" " fold-var_34)))" -" fold-var_67)))))" -" for-loop_106)" +" fold-var_69)))))" +" for-loop_105)" " null" -" lst_221)))))))" +" lst_223)))))))" "(1/compile-linklet" "(list" " 'linklet" @@ -30073,21 +30123,21 @@ static const char *startup_source = "(begin" " 'loop" "(reverse$1" -"(let-values(((lst_81) cims_2))" +"(let-values(((lst_82) cims_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_81)))" -"((letrec-values(((for-loop_97)" -"(lambda(fold-var_213 lst_82)" +"(let-values()(check-list lst_82)))" +"((letrec-values(((for-loop_96)" +"(lambda(fold-var_215 lst_83)" "(begin" " 'for-loop" -"(if(pair? lst_82)" -"(let-values(((cim_4)(unsafe-car lst_82))" -"((rest_119)(unsafe-cdr lst_82)))" -"(let-values(((fold-var_156)" -"(let-values(((fold-var_164) fold-var_213))" -"(let-values(((fold-var_165)" +"(if(pair? lst_83)" +"(let-values(((cim_4)(unsafe-car lst_83))" +"((rest_119)(unsafe-cdr lst_83)))" +"(let-values(((fold-var_158)" +"(let-values(((fold-var_166) fold-var_215))" +"(let-values(((fold-var_167)" "(let-values()" "(cons" "(let-values()" @@ -30099,15 +30149,15 @@ static const char *startup_source = "(loop_38" "(compiled-in-memory-post-compiled-in-memorys" " cim_4))))" -" fold-var_164))))" -"(values fold-var_165)))))" +" fold-var_166))))" +"(values fold-var_167)))))" "(if(not #f)" -"(for-loop_97 fold-var_156 rest_119)" -" fold-var_156)))" -" fold-var_213)))))" -" for-loop_97)" +"(for-loop_96 fold-var_158 rest_119)" +" fold-var_158)))" +" fold-var_215)))))" +" for-loop_96)" " null" -" lst_81))))))))" +" lst_82))))))))" " loop_38)" " cims_1))))" "(define-values" @@ -30131,51 +30181,51 @@ 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_224) 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_224)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_35)))" "((letrec-values(((for-loop_211)" -"(lambda(table_173 lst_100 pos_95)" +"(lambda(table_177 lst_101 pos_95)" "(begin" " 'for-loop" -"(if(if(pair? lst_100) #t #f)" -"(let-values(((cim_5)(unsafe-car lst_100))" -"((rest_36)(unsafe-cdr lst_100))" -"((i_83) pos_95))" -"(let-values(((table_174)" -"(let-values(((table_175) table_173))" -"(let-values(((table_176)" +"(if(if(pair? lst_101) #t #f)" +"(let-values(((cim_5)(unsafe-car lst_101))" +"((rest_36)(unsafe-cdr lst_101))" +"((i_84) pos_95))" +"(let-values(((table_178)" +"(let-values(((table_179) table_177))" +"(let-values(((table_180)" "(let-values()" -"(let-values(((key_65" +"(let-values(((key_64" " val_56)" "(let-values()" "(values" "(string->symbol" "(number->string" -" i_83))" +" i_84))" "((if to-source?_1" " values" " compiled-in-memory-linklet-directory)" " cim_5)))))" "(hash-set" -" table_175" -" key_65" +" table_179" +" key_64" " val_56)))))" -"(values table_176)))))" +"(values table_180)))))" "(if(not #f)" -"(for-loop_211 table_174 rest_36(+ pos_95 1))" -" table_174)))" -" table_173)))))" +"(for-loop_211 table_178 rest_36(+ pos_95 1))" +" table_178)))" +" table_177)))))" " for-loop_211)" " '#hasheq()" -" lst_222" +" lst_224" " start_35)))))" -"(let-values(((ht_119)" +"(let-values(((ht_118)" "(if merge-serialization?_0" "(hash-set" " sequence-ht_0" @@ -30187,10 +30237,10 @@ static const char *startup_source = "(hasheq 0(build-shared-data-linklet cims_3 ns_58))))))" " sequence-ht_0)))" "(if to-source?_1" -"(let-values() ht_119)" +"(let-values() ht_118)" "(let-values()" "(compiled-in-memory1.1" -"(1/hash->linklet-directory ht_119)" +"(1/hash->linklet-directory ht_118)" " #f" " #f" " #f" @@ -30207,52 +30257,52 @@ static const char *startup_source = "(compiled-top->compiled-tops)" "(lambda(ld_0)" "(begin" -"(let-values(((ht_120)(1/linklet-directory->hash ld_0)))" +"(let-values(((ht_119)(1/linklet-directory->hash ld_0)))" "(reverse$1" -"(let-values(((start_36) 0)((end_25)(hash-count ht_120))((inc_19) 1))" +"(let-values(((start_36) 0)((end_25)(hash-count ht_119))((inc_19) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_36 end_25 inc_19)))" "((letrec-values(((for-loop_10)" -"(lambda(fold-var_17 pos_96)" +"(lambda(fold-var_216 pos_96)" "(begin" " 'for-loop" "(if(< pos_96 end_25)" "(let-values(((i_92) pos_96))" -"(let-values(((fold-var_18)" +"(let-values(((fold-var_171)" "(let-values(((top_0)" "(hash-ref" -" ht_120" +" ht_119" "(string->symbol(number->string i_92))" " #f)))" "(begin" " #t" "((letrec-values(((for-loop_112)" -"(lambda(fold-var_64)" +"(lambda(fold-var_66)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_70)" -"(let-values(((fold-var_214)" -" fold-var_64))" +"(let-values(((fold-var_72)" +"(let-values(((fold-var_217)" +" fold-var_66))" "(if top_0" -"(let-values(((fold-var_215)" -" fold-var_214))" -"(let-values(((fold-var_216)" +"(let-values(((fold-var_218)" +" fold-var_217))" +"(let-values(((fold-var_219)" "(let-values()" "(cons" "(let-values()" " top_0)" -" fold-var_215))))" +" fold-var_218))))" "(values" -" fold-var_216)))" -" fold-var_214))))" -" fold-var_70))))))" +" fold-var_219)))" +" fold-var_217))))" +" fold-var_72))))))" " for-loop_112)" -" fold-var_17)))))" -"(if(not #f)(for-loop_10 fold-var_18(+ pos_96 inc_19)) fold-var_18)))" -" fold-var_17)))))" +" fold-var_216)))))" +"(if(not #f)(for-loop_10 fold-var_171(+ pos_96 inc_19)) fold-var_171)))" +" fold-var_216)))))" " for-loop_10)" " null" " start_36))))))))" @@ -30397,12 +30447,12 @@ static const char *startup_source = "(lambda(e_39 locals_2)" "(begin" " 'loop" -"(let-values(((tmp_25)" +"(let-values(((tmp_26)" "(if(pair?(correlated-e e_39))" "(correlated-e(car(correlated-e e_39)))" " #f)))" "(let-values(((index_1)" -"(if(symbol? tmp_25)" +"(if(symbol? tmp_26)" "(hash-ref" " '#hasheq((#%variable-reference . 1)" "(begin . 5)" @@ -30419,7 +30469,7 @@ static const char *startup_source = "(quote . 1)" "(values . 3)" "(void . 4))" -" tmp_25" +" tmp_26" "(lambda() 0))" " 0)))" "(if(unsafe-fx< index_1 5)" @@ -30427,12 +30477,12 @@ static const char *startup_source = "(if(unsafe-fx< index_1 1)" "(let-values()" "(let-values(((v_4)(correlated-e e_39)))" -"(if(let-values(((or-part_73)(string? v_4)))" -"(if or-part_73" -" or-part_73" -"(let-values(((or-part_74)(number? v_4)))" -"(if or-part_74" -" or-part_74" +"(if(let-values(((or-part_78)(string? v_4)))" +"(if or-part_78" +" or-part_78" +"(let-values(((or-part_79)(number? v_4)))" +"(if or-part_79" +" or-part_79" "(let-values(((or-part_29)" "(boolean? v_4)))" "(if or-part_29" @@ -30444,43 +30494,43 @@ static const char *startup_source = "(let-values(((rator_0)" "(correlated-e" "(car v_4))))" -"(let-values(((or-part_68)" +"(let-values(((or-part_82)" "(hash-ref" " locals_2" " rator_0" " #f)))" -"(if or-part_68" -" or-part_68" +"(if or-part_82" +" or-part_82" "(lookup-defn" " defns_1" " rator_0))))" " #f)))" "(if c1_24" -"((lambda(d_30)" +"((lambda(d_19)" "(let-values(((ok?_17 _17_0 e18_0)" -"(let-values(((s_84) e_39))" +"(let-values(((s_83) e_39))" "(let-values(((orig-s_23)" -" s_84))" +" s_83))" "(let-values(((_17_1" " e18_1)" -"(let-values(((s_304)" +"(let-values(((s_300)" "(if(1/syntax?" -" s_84)" +" s_83)" "(syntax-e$2" -" s_84)" -" s_84)))" +" s_83)" +" s_83)))" "(if(pair?" -" s_304)" +" s_300)" "(let-values(((_19_0)" -"(let-values(((s_85)" +"(let-values(((s_84)" "(car" -" s_304)))" -" s_85))" +" s_300)))" +" s_84))" "((e20_0)" "(let-values(((s_160)" "(cdr" -" s_304)))" -"(let-values(((s_305)" +" s_300)))" +"(let-values(((s_301)" "(if(1/syntax?" " s_160)" "(syntax-e$2" @@ -30488,7 +30538,7 @@ static const char *startup_source = " s_160)))" "(let-values(((flat-s_13)" "(to-syntax-list.1$1" -" s_305)))" +" s_301)))" "(if(not" " flat-s_13)" "(let-values()" @@ -30519,29 +30569,29 @@ static const char *startup_source = " e18_1))))))" "(let-values(((n-args_0)" "(length e18_0)))" -"(if(let-values(((or-part_231)" -"(if(let-values(((or-part_232)" +"(if(let-values(((or-part_217)" +"(if(let-values(((or-part_218)" "(if(known-struct-op?" -" d_30)" +" d_19)" "(if(eq?" " 'constructor" "(known-struct-op-type" -" d_30))" +" d_19))" "(=" "(known-struct-op-field-count" -" d_30)" +" d_19)" " n-args_0)" " #f)" " #f)))" -"(if or-part_232" -" or-part_232" +"(if or-part_218" +" or-part_218" "(if(known-function?" -" d_30)" +" d_19)" "(if(known-function-pure?" -" d_30)" +" d_19)" "(arity-includes?" "(known-function-arity" -" d_30)" +" d_19)" " n-args_0)" " #f)" " #f)))" @@ -30556,17 +30606,17 @@ static const char *startup_source = " lst_8)))" "((letrec-values(((for-loop_212)" "(lambda(result_81" -" lst_223)" +" lst_225)" "(begin" " 'for-loop" "(if(pair?" -" lst_223)" +" lst_225)" "(let-values(((e_42)" "(unsafe-car" -" lst_223))" +" lst_225))" "((rest_120)" "(unsafe-cdr" -" lst_223)))" +" lst_225)))" "(let-values(((result_40)" "(let-values()" "(let-values(((result_82)" @@ -30580,7 +30630,7 @@ static const char *startup_source = "(values" " result_82)))))" "(if(if(not" -"((lambda x_53" +"((lambda x_52" "(not" " result_40))" " e_42))" @@ -30596,20 +30646,20 @@ static const char *startup_source = " #t" " lst_8)))" " #f)))" -"(if or-part_231" -" or-part_231" +"(if or-part_217" +" or-part_217" "(if(known-function-of-satisfying?" -" d_30)" +" d_19)" "(if(=" " n-args_0" "(length" "(known-function-of-satisfying-arg-predicate-keys" -" d_30)))" +" d_19)))" "(let-values(((lst_10)" " e18_0)" -"((lst_224)" +"((lst_226)" "(known-function-of-satisfying-arg-predicate-keys" -" d_30)))" +" d_19)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -30622,30 +30672,30 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_224)))" -"((letrec-values(((for-loop_99)" +" lst_226)))" +"((letrec-values(((for-loop_98)" "(lambda(result_83" -" lst_178" -" lst_225)" +" lst_180" +" lst_227)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_178)" +" lst_180)" "(pair?" -" lst_225)" +" lst_227)" " #f)" "(let-values(((e_43)" "(unsafe-car" -" lst_178))" +" lst_180))" "((rest_121)" "(unsafe-cdr" -" lst_178))" -"((key_66)" +" lst_180))" +"((key_65)" "(unsafe-car" -" lst_225))" +" lst_227))" "((rest_122)" "(unsafe-cdr" -" lst_225)))" +" lst_227)))" "(let-values(((result_42)" "(let-values()" "(let-values(((result_43)" @@ -30658,47 +30708,47 @@ static const char *startup_source = " locals_2))" "(satisfies?" " e_43" -" key_66" +" key_65" " defns_1" " locals_2)" " #f)))))" "(values" " result_43)))))" "(if(if(not" -"((lambda x_32" +"((lambda x_31" "(not" " result_42))" " e_43))" "(if(not" -"((lambda x_54" +"((lambda x_53" "(not" " result_42))" -" key_66))" +" key_65))" "(not" " #f)" " #f)" " #f)" -"(for-loop_99" +"(for-loop_98" " result_42" " rest_121" " rest_122)" " result_42)))" " result_83)))))" -" for-loop_99)" +" for-loop_98)" " #t" " lst_10" -" lst_224)))" +" lst_226)))" " #f)" " #f)))" " 1" " #f))))" " c1_24)" "(let-values()" -"(if(let-values(((or-part_178)" +"(if(let-values(((or-part_164)" "(self-quoting-in-linklet?" " v_4)))" -"(if or-part_178" -" or-part_178" +"(if or-part_164" +" or-part_164" "(if(symbol? v_4)" "(let-values(((or-part_35)" "(hash-ref" @@ -30731,30 +30781,30 @@ static const char *startup_source = " ids22_0" " rhs23_0" " body24_0)" -"(let-values(((s_79) e_39))" -"(let-values(((orig-s_24) s_79))" +"(let-values(((s_169) e_39))" +"(let-values(((orig-s_24) s_169))" "(let-values(((_21_1" " ids22_1" " rhs23_1" " body24_1)" -"(let-values(((s_306)" +"(let-values(((s_302)" "(if(1/syntax?" -" s_79)" +" s_169)" "(syntax-e$2" -" s_79)" -" s_79)))" -"(if(pair? s_306)" +" s_169)" +" s_169)))" +"(if(pair? s_302)" "(let-values(((_25_0)" "(let-values(((s_28)" "(car" -" s_306)))" +" s_302)))" " s_28))" "((ids26_0" " rhs27_0" " body28_0)" "(let-values(((s_29)" "(cdr" -" s_306)))" +" s_302)))" "(let-values(((s_30)" "(if(1/syntax?" " s_29)" @@ -30765,15 +30815,15 @@ static const char *startup_source = " s_30)" "(let-values(((ids29_0" " rhs30_0)" -"(let-values(((s_307)" +"(let-values(((s_303)" "(car" " s_30)))" "(let-values(((s_157)" "(if(1/syntax?" -" s_307)" +" s_303)" "(syntax-e$2" -" s_307)" -" s_307)))" +" s_303)" +" s_303)))" "(let-values(((flat-s_14)" "(to-syntax-list.1$1" " s_157)))" @@ -30791,7 +30841,7 @@ static const char *startup_source = "(let-values()" "(let-values(((ids_8" " rhs_4)" -"(let-values(((lst_226)" +"(let-values(((lst_228)" " flat-s_14))" "(begin" "(if(variable-reference-from-unsafe?" @@ -30799,21 +30849,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_226)))" +" lst_228)))" "((letrec-values(((for-loop_213)" "(lambda(ids_9" " rhs_5" -" lst_227)" +" lst_229)" "(begin" " 'for-loop" "(if(pair?" -" lst_227)" -"(let-values(((s_308)" +" lst_229)" +"(let-values(((s_304)" "(unsafe-car" -" lst_227))" +" lst_229))" "((rest_123)" "(unsafe-cdr" -" lst_227)))" +" lst_229)))" "(let-values(((ids_10" " rhs_6)" "(let-values(((ids_11)" @@ -30826,46 +30876,46 @@ static const char *startup_source = "(let-values(((ids36_0" " rhs37_0)" "(let-values()" -"(let-values(((s_309)" +"(let-values(((s_305)" +"(if(1/syntax?" +" s_304)" +"(syntax-e$2" +" s_304)" +" s_304)))" +"(if(pair?" +" s_305)" +"(let-values(((ids32_0)" +"(let-values(((s_51)" +"(car" +" s_305)))" +" s_51))" +"((rhs33_0)" +"(let-values(((s_306)" +"(cdr" +" s_305)))" +"(let-values(((s_307)" +"(if(1/syntax?" +" s_306)" +"(syntax-e$2" +" s_306)" +" s_306)))" +"(if(pair?" +" s_307)" +"(let-values(((rhs34_0)" +"(let-values(((s_53)" +"(car" +" s_307)))" +" s_53))" +"(()" +"(let-values(((s_308)" +"(cdr" +" s_307)))" +"(let-values(((s_156)" "(if(1/syntax?" " s_308)" "(syntax-e$2" " s_308)" " s_308)))" -"(if(pair?" -" s_309)" -"(let-values(((ids32_0)" -"(let-values(((s_50)" -"(car" -" s_309)))" -" s_50))" -"((rhs33_0)" -"(let-values(((s_310)" -"(cdr" -" s_309)))" -"(let-values(((s_311)" -"(if(1/syntax?" -" s_310)" -"(syntax-e$2" -" s_310)" -" s_310)))" -"(if(pair?" -" s_311)" -"(let-values(((rhs34_0)" -"(let-values(((s_52)" -"(car" -" s_311)))" -" s_52))" -"(()" -"(let-values(((s_312)" -"(cdr" -" s_311)))" -"(let-values(((s_156)" -"(if(1/syntax?" -" s_312)" -"(syntax-e$2" -" s_312)" -" s_312)))" "(if(null?" " s_156)" "(values)" @@ -30923,41 +30973,41 @@ static const char *startup_source = " for-loop_213)" " null" " null" -" lst_226)))))" +" lst_228)))))" "(values" "(reverse$1" " ids_8)" "(reverse$1" " rhs_4)))))))))" "((body31_0)" -"(let-values(((s_313)" +"(let-values(((s_55)" "(cdr" " s_30)))" -"(let-values(((s_314)" +"(let-values(((s_309)" "(if(1/syntax?" -" s_313)" +" s_55)" "(syntax-e$2" -" s_313)" -" s_313)))" +" s_55)" +" s_55)))" "(if(pair?" -" s_314)" +" s_309)" "(let-values(((body35_0)" -"(let-values(((s_315)" +"(let-values(((s_310)" "(car" -" s_314)))" -" s_315))" +" s_309)))" +" s_310))" "(()" -"(let-values(((s_316)" +"(let-values(((s_311)" "(cdr" -" s_314)))" -"(let-values(((s_317)" +" s_309)))" +"(let-values(((s_56)" "(if(1/syntax?" -" s_316)" +" s_311)" "(syntax-e$2" -" s_316)" -" s_316)))" +" s_311)" +" s_311)))" "(if(null?" -" s_317)" +" s_56)" "(values)" "((lambda(false_6" " str_10" @@ -31009,40 +31059,40 @@ static const char *startup_source = " rhs23_1" " body24_1))))))" "(if(not" -"(let-values(((lst_228) ids22_0)" -"((lst_229) rhs23_0))" +"(let-values(((lst_230) ids22_0)" +"((lst_231) rhs23_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_228)))" +"(let-values()(check-list lst_230)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_229)))" +"(let-values()(check-list lst_231)))" "((letrec-values(((for-loop_214)" "(lambda(result_84" -" lst_230" -" lst_197)" +" lst_232" +" lst_199)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_230)" +" lst_232)" "(pair?" -" lst_197)" +" lst_199)" " #f)" "(let-values(((ids_13)" "(unsafe-car" -" lst_230))" +" lst_232))" "((rest_103)" "(unsafe-cdr" -" lst_230))" +" lst_232))" "((rhs_9)" "(unsafe-car" -" lst_197))" +" lst_199))" "((rest_124)" "(unsafe-cdr" -" lst_197)))" +" lst_199)))" "(let-values(((result_85)" "(let-values()" "(let-values(((result_14)" @@ -31056,11 +31106,11 @@ static const char *startup_source = "(values" " result_14)))))" "(if(if(not" -"((lambda x_55" +"((lambda x_54" " result_85)" " ids_13))" "(if(not" -"((lambda x_56" +"((lambda x_55" " result_85)" " rhs_9))" "(not" @@ -31075,8 +31125,8 @@ static const char *startup_source = " result_84)))))" " for-loop_214)" " #f" -" lst_228" -" lst_229))))" +" lst_230" +" lst_231))))" "(loop_2" " body24_0" "(add-binding-info locals_2 ids22_0 rhs23_0))" @@ -31084,34 +31134,34 @@ static const char *startup_source = "(if(unsafe-fx< index_1 4)" "(let-values()" "(let-values(((ok?_19 _38_0 e39_0)" -"(let-values(((s_61) e_39))" -"(let-values(((orig-s_25) s_61))" +"(let-values(((s_312) e_39))" +"(let-values(((orig-s_25) s_312))" "(let-values(((_38_1 e39_1)" "(let-values(((s_37)" "(if(1/syntax?" -" s_61)" +" s_312)" "(syntax-e$2" -" s_61)" -" s_61)))" +" s_312)" +" s_312)))" "(if(pair? s_37)" "(let-values(((_40_0)" -"(let-values(((s_318)" +"(let-values(((s_313)" "(car" " s_37)))" -" s_318))" +" s_313))" "((e41_0)" -"(let-values(((s_319)" +"(let-values(((s_64)" "(cdr" " s_37)))" -"(let-values(((s_320)" +"(let-values(((s_314)" "(if(1/syntax?" -" s_319)" +" s_64)" "(syntax-e$2" -" s_319)" -" s_319)))" +" s_64)" +" s_64)))" "(let-values(((flat-s_15)" "(to-syntax-list.1$1" -" s_320)))" +" s_314)))" "(if(not" " flat-s_15)" "(let-values()" @@ -31137,25 +31187,25 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_25)))))" "(values #t _38_1 e39_1))))))" -"(if(let-values(((lst_155) e39_0))" +"(if(let-values(((lst_157) e39_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_155)))" +"(let-values()(check-list lst_157)))" "((letrec-values(((for-loop_215)" "(lambda(result_61" -" lst_231)" +" lst_233)" "(begin" " 'for-loop" "(if(pair?" -" lst_231)" +" lst_233)" "(let-values(((e_54)" "(unsafe-car" -" lst_231))" +" lst_233))" "((rest_125)" "(unsafe-cdr" -" lst_231)))" +" lst_233)))" "(let-values(((result_86)" "(let-values()" "(let-values(((result_87)" @@ -31169,7 +31219,7 @@ static const char *startup_source = "(values" " result_87)))))" "(if(if(not" -"((lambda x_57" +"((lambda x_56" "(not" " result_86))" " e_54))" @@ -31183,40 +31233,40 @@ static const char *startup_source = " result_61)))))" " for-loop_215)" " #t" -" lst_155)))" +" lst_157)))" "(length e39_0)" " #f)))" "(let-values()" "(let-values(((ok?_20 _42_0 e43_0)" -"(let-values(((s_209) e_39))" -"(let-values(((orig-s_26) s_209))" +"(let-values(((s_204) e_39))" +"(let-values(((orig-s_26) s_204))" "(let-values(((_42_1 e43_1)" -"(let-values(((s_321)" +"(let-values(((s_315)" "(if(1/syntax?" -" s_209)" +" s_204)" "(syntax-e$2" -" s_209)" -" s_209)))" +" s_204)" +" s_204)))" "(if(pair?" -" s_321)" +" s_315)" "(let-values(((_44_0)" -"(let-values(((s_150)" +"(let-values(((s_149)" "(car" -" s_321)))" -" s_150))" +" s_315)))" +" s_149))" "((e45_0)" -"(let-values(((s_322)" +"(let-values(((s_316)" "(cdr" -" s_321)))" -"(let-values(((s_323)" +" s_315)))" +"(let-values(((s_317)" "(if(1/syntax?" -" s_322)" +" s_316)" "(syntax-e$2" -" s_322)" -" s_322)))" +" s_316)" +" s_316)))" "(let-values(((flat-s_16)" "(to-syntax-list.1$1" -" s_323)))" +" s_317)))" "(if(not" " flat-s_16)" "(let-values()" @@ -31242,25 +31292,25 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_26)))))" "(values #t _42_1 e43_1))))))" -"(if(let-values(((lst_232) e43_0))" +"(if(let-values(((lst_234) e43_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_232)))" +"(let-values()(check-list lst_234)))" "((letrec-values(((for-loop_216)" "(lambda(result_88" -" lst_233)" +" lst_235)" "(begin" " 'for-loop" "(if(pair?" -" lst_233)" +" lst_235)" "(let-values(((e_57)" "(unsafe-car" -" lst_233))" +" lst_235))" "((rest_126)" "(unsafe-cdr" -" lst_233)))" +" lst_235)))" "(let-values(((result_89)" "(let-values()" "(let-values(((result_90)" @@ -31274,7 +31324,7 @@ static const char *startup_source = "(values" " result_90)))))" "(if(if(not" -"((lambda x_58" +"((lambda x_57" "(not" " result_89))" " e_57))" @@ -31288,41 +31338,41 @@ static const char *startup_source = " result_88)))))" " for-loop_216)" " #t" -" lst_232)))" +" lst_234)))" " 1" " #f))))))" "(if(unsafe-fx< index_1 8)" "(if(unsafe-fx< index_1 6)" "(let-values()" "(let-values(((ok?_21 _46_0 e47_0)" -"(let-values(((s_324) e_39))" -"(let-values(((orig-s_27) s_324))" +"(let-values(((s_318) e_39))" +"(let-values(((orig-s_27) s_318))" "(let-values(((_46_1 e47_1)" "(let-values(((s_103)" "(if(1/syntax?" -" s_324)" +" s_318)" "(syntax-e$2" -" s_324)" -" s_324)))" +" s_318)" +" s_318)))" "(if(pair? s_103)" "(let-values(((_48_0)" -"(let-values(((s_325)" +"(let-values(((s_105)" "(car" " s_103)))" -" s_325))" +" s_105))" "((e49_0)" -"(let-values(((s_106)" +"(let-values(((s_208)" "(cdr" " s_103)))" -"(let-values(((s_326)" +"(let-values(((s_319)" "(if(1/syntax?" -" s_106)" +" s_208)" "(syntax-e$2" -" s_106)" -" s_106)))" +" s_208)" +" s_208)))" "(let-values(((flat-s_17)" "(to-syntax-list.1$1" -" s_326)))" +" s_319)))" "(if(not" " flat-s_17)" "(let-values()" @@ -31372,46 +31422,46 @@ 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_218) e_39))" -"(let-values(((orig-s_9) s_218))" +"(let-values(((s_214) e_39))" +"(let-values(((orig-s_9) s_214))" "(let-values(((_50_1" " e051_1" " e52_1)" -"(let-values(((s_219)" +"(let-values(((s_215)" "(if(1/syntax?" -" s_218)" +" s_214)" "(syntax-e$2" -" s_218)" -" s_218)))" +" s_214)" +" s_214)))" "(if(pair?" -" s_219)" +" s_215)" "(let-values(((_53_0)" -"(let-values(((s_220)" +"(let-values(((s_216)" "(car" -" s_219)))" -" s_220))" +" s_215)))" +" s_216))" "((e054_0" " e55_0)" -"(let-values(((s_221)" +"(let-values(((s_115)" "(cdr" -" s_219)))" -"(let-values(((s_116)" +" s_215)))" +"(let-values(((s_217)" "(if(1/syntax?" -" s_221)" +" s_115)" "(syntax-e$2" -" s_221)" -" s_221)))" +" s_115)" +" s_115)))" "(if(pair?" -" s_116)" +" s_217)" "(let-values(((e056_0)" -"(let-values(((s_222)" +"(let-values(((s_116)" "(car" -" s_116)))" -" s_222))" +" s_217)))" +" s_116))" "((e57_0)" "(let-values(((s_117)" "(cdr" -" s_116)))" +" s_217)))" "(let-values(((s_118)" "(if(1/syntax?" " s_117)" @@ -31470,17 +31520,17 @@ static const char *startup_source = "(let-values()(check-list lst_39)))" "((letrec-values(((for-loop_45)" "(lambda(result_91" -" lst_234)" +" lst_236)" "(begin" " 'for-loop" "(if(pair?" -" lst_234)" +" lst_236)" "(let-values(((e_63)" "(unsafe-car" -" lst_234))" +" lst_236))" "((rest_127)" "(unsafe-cdr" -" lst_234)))" +" lst_236)))" "(let-values(((result_92)" "(let-values()" "(let-values(((result_93)" @@ -31494,7 +31544,7 @@ static const char *startup_source = "(values" " result_93)))))" "(if(if(not" -"((lambda x_59" +"((lambda x_58" "(not" " result_92))" " e_63))" @@ -31548,134 +31598,134 @@ static const char *startup_source = " id:arg60_0" " thn61_0" " els62_0)" -"(let-values(((s_327) e_39))" -"(if(let-values(((s_228)" +"(let-values(((s_320) e_39))" +"(if(let-values(((s_223)" "(if(1/syntax?" -" s_327)" +" s_320)" "(syntax-e$2" -" s_327)" -" s_327)))" -"(if(pair? s_228)" -"(if(let-values(((s_229)" +" s_320)" +" s_320)))" +"(if(pair? s_223)" +"(if(let-values(((s_224)" "(car" -" s_228)))" +" s_223)))" " #t)" +"(let-values(((s_321)" +"(cdr" +" s_223)))" +"(let-values(((s_225)" +"(if(1/syntax?" +" s_321)" +"(syntax-e$2" +" s_321)" +" s_321)))" +"(if(pair? s_225)" +"(if(let-values(((s_226)" +"(car" +" s_225)))" +"(let-values(((s_227)" +"(if(1/syntax?" +" s_226)" +"(syntax-e$2" +" s_226)" +" s_226)))" +"(if(pair?" +" s_227)" +"(if(let-values(((s_322)" +"(car" +" s_227)))" +"(let-values(((or-part_219)" +"(if(1/syntax?" +" s_322)" +"(symbol?" +"(syntax-e$2" +" s_322))" +" #f)))" +"(if or-part_219" +" or-part_219" +"(symbol?" +" s_322))))" +"(let-values(((s_323)" +"(cdr" +" s_227)))" +"(let-values(((s_324)" +"(if(1/syntax?" +" s_323)" +"(syntax-e$2" +" s_323)" +" s_323)))" +"(if(pair?" +" s_324)" +"(if(let-values(((s_325)" +"(car" +" s_324)))" +"(let-values(((or-part_220)" +"(if(1/syntax?" +" s_325)" +"(symbol?" +"(syntax-e$2" +" s_325))" +" #f)))" +"(if or-part_220" +" or-part_220" +"(symbol?" +" s_325))))" +"(let-values(((s_326)" +"(cdr" +" s_324)))" +"(let-values(((s_327)" +"(if(1/syntax?" +" s_326)" +"(syntax-e$2" +" s_326)" +" s_326)))" +"(null?" +" s_327)))" +" #f)" +" #f)))" +" #f)" +" #f)))" "(let-values(((s_328)" "(cdr" -" s_228)))" -"(let-values(((s_230)" +" s_225)))" +"(let-values(((s_329)" "(if(1/syntax?" " s_328)" "(syntax-e$2" " s_328)" " s_328)))" -"(if(pair? s_230)" -"(if(let-values(((s_231)" -"(car" -" s_230)))" -"(let-values(((s_232)" -"(if(1/syntax?" -" s_231)" -"(syntax-e$2" -" s_231)" -" s_231)))" "(if(pair?" -" s_232)" -"(if(let-values(((s_329)" -"(car" -" s_232)))" -"(let-values(((or-part_233)" -"(if(1/syntax?" " s_329)" -"(symbol?" -"(syntax-e$2" -" s_329))" -" #f)))" -"(if or-part_233" -" or-part_233" -"(symbol?" -" s_329))))" -"(let-values(((s_330)" -"(cdr" -" s_232)))" +"(if(let-values(((s_330)" +"(car" +" s_329)))" +" #t)" "(let-values(((s_331)" +"(cdr" +" s_329)))" +"(let-values(((s_332)" "(if(1/syntax?" -" s_330)" -"(syntax-e$2" -" s_330)" -" s_330)))" -"(if(pair?" " s_331)" -"(if(let-values(((s_332)" -"(car" +"(syntax-e$2" +" s_331)" " s_331)))" -"(let-values(((or-part_234)" -"(if(1/syntax?" +"(if(pair?" " s_332)" -"(symbol?" -"(syntax-e$2" -" s_332))" -" #f)))" -"(if or-part_234" -" or-part_234" -"(symbol?" -" s_332))))" -"(let-values(((s_333)" -"(cdr" -" s_331)))" +"(if(let-values(((s_333)" +"(car" +" s_332)))" +" #t)" "(let-values(((s_334)" -"(if(1/syntax?" -" s_333)" -"(syntax-e$2" -" s_333)" -" s_333)))" -"(null?" -" s_334)))" -" #f)" -" #f)))" -" #f)" -" #f)))" +"(cdr" +" s_332)))" "(let-values(((s_335)" -"(cdr" -" s_230)))" -"(let-values(((s_336)" "(if(1/syntax?" -" s_335)" +" s_334)" "(syntax-e$2" -" s_335)" -" s_335)))" -"(if(pair?" -" s_336)" -"(if(let-values(((s_337)" -"(car" -" s_336)))" -" #t)" -"(let-values(((s_338)" -"(cdr" -" s_336)))" -"(let-values(((s_339)" -"(if(1/syntax?" -" s_338)" -"(syntax-e$2" -" s_338)" -" s_338)))" -"(if(pair?" -" s_339)" -"(if(let-values(((s_340)" -"(car" -" s_339)))" -" #t)" -"(let-values(((s_341)" -"(cdr" -" s_339)))" -"(let-values(((s_342)" -"(if(1/syntax?" -" s_341)" -"(syntax-e$2" -" s_341)" -" s_341)))" +" s_334)" +" s_334)))" "(null?" -" s_342)))" +" s_335)))" " #f)" " #f)))" " #f)" @@ -31690,71 +31740,71 @@ static const char *startup_source = " id:arg60_1" " thn61_1" " els62_1)" -"(let-values(((s_234)" +"(let-values(((s_229)" "(if(1/syntax?" -" s_327)" +" s_320)" "(syntax-e$2" -" s_327)" -" s_327)))" +" s_320)" +" s_320)))" "(let-values(((_63_0)" -"(let-values(((s_237)" +"(let-values(((s_232)" "(car" -" s_234)))" -" s_237))" +" s_229)))" +" s_232))" "((id:rator64_0" " id:arg65_0" " thn66_0" " els67_0)" +"(let-values(((s_336)" +"(cdr" +" s_229)))" +"(let-values(((s_337)" +"(if(1/syntax?" +" s_336)" +"(syntax-e$2" +" s_336)" +" s_336)))" +"(let-values(((id:rator68_0" +" id:arg69_0)" +"(let-values(((s_338)" +"(car" +" s_337)))" +"(let-values(((s_339)" +"(if(1/syntax?" +" s_338)" +"(syntax-e$2" +" s_338)" +" s_338)))" +"(let-values(((id:rator72_0)" +"(let-values(((s_340)" +"(car" +" s_339)))" +" s_340))" +"((id:arg73_0)" +"(let-values(((s_236)" +"(cdr" +" s_339)))" +"(let-values(((s_341)" +"(if(1/syntax?" +" s_236)" +"(syntax-e$2" +" s_236)" +" s_236)))" +"(let-values(((id:arg74_0)" +"(let-values(((s_342)" +"(car" +" s_341)))" +" s_342))" +"(()" "(let-values(((s_343)" "(cdr" -" s_234)))" +" s_341)))" "(let-values(((s_344)" "(if(1/syntax?" " s_343)" "(syntax-e$2" " s_343)" " s_343)))" -"(let-values(((id:rator68_0" -" id:arg69_0)" -"(let-values(((s_345)" -"(car" -" s_344)))" -"(let-values(((s_346)" -"(if(1/syntax?" -" s_345)" -"(syntax-e$2" -" s_345)" -" s_345)))" -"(let-values(((id:rator72_0)" -"(let-values(((s_347)" -"(car" -" s_346)))" -" s_347))" -"((id:arg73_0)" -"(let-values(((s_241)" -"(cdr" -" s_346)))" -"(let-values(((s_348)" -"(if(1/syntax?" -" s_241)" -"(syntax-e$2" -" s_241)" -" s_241)))" -"(let-values(((id:arg74_0)" -"(let-values(((s_349)" -"(car" -" s_348)))" -" s_349))" -"(()" -"(let-values(((s_350)" -"(cdr" -" s_348)))" -"(let-values(((s_351)" -"(if(1/syntax?" -" s_350)" -"(syntax-e$2" -" s_350)" -" s_350)))" "(values)))))" "(values" " id:arg74_0))))))" @@ -31763,45 +31813,45 @@ static const char *startup_source = " id:arg73_0)))))" "((thn70_0" " els71_0)" -"(let-values(((s_352)" +"(let-values(((s_345)" "(cdr" -" s_344)))" -"(let-values(((s_353)" +" s_337)))" +"(let-values(((s_346)" "(if(1/syntax?" -" s_352)" +" s_345)" "(syntax-e$2" -" s_352)" -" s_352)))" +" s_345)" +" s_345)))" "(let-values(((thn75_0)" -"(let-values(((s_354)" +"(let-values(((s_347)" "(car" -" s_353)))" -" s_354))" +" s_346)))" +" s_347))" "((els76_0)" -"(let-values(((s_355)" +"(let-values(((s_348)" "(cdr" -" s_353)))" -"(let-values(((s_356)" +" s_346)))" +"(let-values(((s_349)" "(if(1/syntax?" -" s_355)" +" s_348)" "(syntax-e$2" -" s_355)" -" s_355)))" +" s_348)" +" s_348)))" "(let-values(((els77_0)" -"(let-values(((s_357)" +"(let-values(((s_350)" "(car" -" s_356)))" -" s_357))" +" s_349)))" +" s_350))" "(()" -"(let-values(((s_358)" +"(let-values(((s_351)" "(cdr" -" s_356)))" -"(let-values(((s_359)" +" s_349)))" +"(let-values(((s_352)" "(if(1/syntax?" -" s_358)" +" s_351)" "(syntax-e$2" -" s_358)" -" s_358)))" +" s_351)" +" s_351)))" "(values)))))" "(values" " els77_0))))))" @@ -31830,19 +31880,19 @@ static const char *startup_source = "(if ok?_22" "(let-values()" "(let-values(((c2_2)" -"(let-values(((or-part_235)" +"(let-values(((or-part_111)" "(hash-ref" " locals_2" " id:rator59_0" " #f)))" -"(if or-part_235" -" or-part_235" +"(if or-part_111" +" or-part_111" "(lookup-defn" " defns_1" " id:rator59_0)))))" "(if c2_2" -"((lambda(d_31)" -"(if(known-predicate? d_31)" +"((lambda(d_30)" +"(if(known-predicate? d_30)" "(if(not" "(effects?_0" " thn61_0" @@ -31852,7 +31902,7 @@ static const char *startup_source = " id:arg60_0" "(known-satisfies7.1" "(known-predicate-key" -" d_31)))))" +" d_30)))))" "(loop_2 els62_0 locals_2)" " #f)" " #f))" @@ -31864,74 +31914,74 @@ static const char *startup_source = " tst79_0" " thn80_0" " els81_0)" -"(let-values(((s_360) e_39))" -"(if(let-values(((s_361)" +"(let-values(((s_353) e_39))" +"(if(let-values(((s_354)" "(if(1/syntax?" -" s_360)" +" s_353)" "(syntax-e$2" -" s_360)" -" s_360)))" -"(if(pair? s_361)" -"(if(let-values(((s_253)" +" s_353)" +" s_353)))" +"(if(pair? s_354)" +"(if(let-values(((s_248)" "(car" -" s_361)))" +" s_354)))" " #t)" +"(let-values(((s_355)" +"(cdr" +" s_354)))" +"(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)))" +" #t)" +"(let-values(((s_358)" +"(cdr" +" s_356)))" +"(let-values(((s_359)" +"(if(1/syntax?" +" s_358)" +"(syntax-e$2" +" s_358)" +" s_358)))" +"(if(pair?" +" s_359)" +"(if(let-values(((s_360)" +"(car" +" s_359)))" +" #t)" +"(let-values(((s_361)" +"(cdr" +" s_359)))" "(let-values(((s_362)" -"(cdr" +"(if(1/syntax?" +" s_361)" +"(syntax-e$2" +" s_361)" " s_361)))" -"(let-values(((s_363)" -"(if(1/syntax?" -" s_362)" -"(syntax-e$2" +"(if(pair?" " s_362)" +"(if(let-values(((s_363)" +"(car" " s_362)))" -"(if(pair?" -" s_363)" -"(if(let-values(((s_364)" -"(car" -" s_363)))" " #t)" +"(let-values(((s_364)" +"(cdr" +" s_362)))" "(let-values(((s_365)" -"(cdr" -" s_363)))" -"(let-values(((s_366)" "(if(1/syntax?" -" s_365)" +" s_364)" "(syntax-e$2" -" s_365)" -" s_365)))" -"(if(pair?" -" s_366)" -"(if(let-values(((s_367)" -"(car" -" s_366)))" -" #t)" -"(let-values(((s_368)" -"(cdr" -" s_366)))" -"(let-values(((s_369)" -"(if(1/syntax?" -" s_368)" -"(syntax-e$2" -" s_368)" -" s_368)))" -"(if(pair?" -" s_369)" -"(if(let-values(((s_370)" -"(car" -" s_369)))" -" #t)" -"(let-values(((s_371)" -"(cdr" -" s_369)))" -"(let-values(((s_372)" -"(if(1/syntax?" -" s_371)" -"(syntax-e$2" -" s_371)" -" s_371)))" +" s_364)" +" s_364)))" "(null?" -" s_372)))" +" s_365)))" " #f)" " #f)))" " #f)" @@ -31945,75 +31995,75 @@ static const char *startup_source = " tst79_1" " thn80_1" " els81_1)" -"(let-values(((s_373)" +"(let-values(((s_366)" "(if(1/syntax?" -" s_360)" +" s_353)" "(syntax-e$2" -" s_360)" -" s_360)))" +" s_353)" +" s_353)))" "(let-values(((_82_0)" -"(let-values(((s_374)" +"(let-values(((s_367)" "(car" -" s_373)))" -" s_374))" +" s_366)))" +" s_367))" "((tst83_0" " thn84_0" " els85_0)" -"(let-values(((s_375)" +"(let-values(((s_368)" "(cdr" -" s_373)))" -"(let-values(((s_376)" +" s_366)))" +"(let-values(((s_369)" "(if(1/syntax?" -" s_375)" +" s_368)" "(syntax-e$2" -" s_375)" -" s_375)))" +" s_368)" +" s_368)))" "(let-values(((tst86_0)" -"(let-values(((s_377)" +"(let-values(((s_370)" "(car" -" s_376)))" -" s_377))" +" s_369)))" +" s_370))" "((thn87_0" " els88_0)" -"(let-values(((s_378)" +"(let-values(((s_371)" "(cdr" -" s_376)))" -"(let-values(((s_379)" +" s_369)))" +"(let-values(((s_372)" "(if(1/syntax?" -" s_378)" +" s_371)" "(syntax-e$2" -" s_378)" -" s_378)))" +" s_371)" +" s_371)))" "(let-values(((thn89_0)" -"(let-values(((s_255)" +"(let-values(((s_250)" "(car" -" s_379)))" -" s_255))" +" s_372)))" +" s_250))" "((els90_0)" -"(let-values(((s_380)" +"(let-values(((s_373)" "(cdr" -" s_379)))" -"(let-values(((s_381)" +" s_372)))" +"(let-values(((s_374)" "(if(1/syntax?" -" s_380)" +" s_373)" "(syntax-e$2" -" s_380)" -" s_380)))" +" s_373)" +" s_373)))" "(let-values(((els91_0)" -"(let-values(((s_382)" +"(let-values(((s_375)" "(car" -" s_381)))" -" s_382))" +" s_374)))" +" s_375))" "(()" -"(let-values(((s_256)" +"(let-values(((s_251)" "(cdr" -" s_381)))" -"(let-values(((s_257)" +" s_374)))" +"(let-values(((s_252)" "(if(1/syntax?" -" s_256)" +" s_251)" "(syntax-e$2" -" s_256)" -" s_256)))" +" s_251)" +" s_251)))" "(values)))))" "(values" " els91_0))))))" @@ -32058,34 +32108,34 @@ static const char *startup_source = " locals_0)))" "(not" "(if actual-results_0" -"(let-values(((or-part_236)(not expected-results_0)))" -"(if or-part_236 or-part_236(= actual-results_0 expected-results_0)))" +"(let-values(((or-part_115)(not expected-results_0)))" +"(if or-part_115 or-part_115(= actual-results_0 expected-results_0)))" " #f)))))))))))))" "(define-values" "(satisfies?)" -"(lambda(e_64 key_67 defns_2 locals_3)" +"(lambda(e_64 key_66 defns_2 locals_3)" "(begin" -"(let-values(((d_4)" -"(let-values(((or-part_237)(hash-ref locals_3 e_64 #f)))" -"(if or-part_237 or-part_237(lookup-defn defns_2 e_64)))))" -"(if d_4(if(known-satisfies? d_4)(eq? key_67(known-satisfies-predicate-key d_4)) #f) #f)))))" +"(let-values(((d_5)" +"(let-values(((or-part_221)(hash-ref locals_3 e_64 #f)))" +"(if or-part_221 or-part_221(lookup-defn defns_2 e_64)))))" +"(if d_5(if(known-satisfies? d_5)(eq? key_66(known-satisfies-predicate-key d_5)) #f) #f)))))" "(define-values" "(add-binding-info)" "(lambda(locals_4 idss_0 rhss_0)" "(begin" -"(let-values(((lst_235) idss_0)((lst_236) rhss_0))" +"(let-values(((lst_237) idss_0)((lst_238) rhss_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_235)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_236)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_237)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_238)))" "((letrec-values(((for-loop_217)" -"(lambda(locals_5 lst_237 lst_238)" +"(lambda(locals_5 lst_239 lst_240)" "(begin" " 'for-loop" -"(if(if(pair? lst_237)(pair? lst_238) #f)" -"(let-values(((ids_14)(unsafe-car lst_237))" -"((rest_128)(unsafe-cdr lst_237))" -"((rhs_10)(unsafe-car lst_238))" -"((rest_129)(unsafe-cdr lst_238)))" +"(if(if(pair? lst_239)(pair? lst_240) #f)" +"(let-values(((ids_14)(unsafe-car lst_239))" +"((rest_128)(unsafe-cdr lst_239))" +"((rhs_10)(unsafe-car lst_240))" +"((rest_129)(unsafe-cdr lst_240)))" "(let-values(((locals_6)" "(let-values(((locals_7) locals_5))" "(let-values(((locals_8)" @@ -32094,7 +32144,7 @@ static const char *startup_source = "(lambda(rhs_11)" "(begin" " 'loop" -"(let-values(((tmp_26)" +"(let-values(((tmp_27)" "(if(pair?" "(correlated-e" " rhs_11))" @@ -32104,16 +32154,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_239)" +"(let-values(((lst_241)" "(correlated->list" " ids_14))" -"((lst_240)" +"((lst_242)" " '(struct-type" " constructor" " predicate" @@ -32125,36 +32175,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_239)))" +" lst_241)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_240)))" +" lst_242)))" "((letrec-values(((for-loop_218)" "(lambda(locals_9" -" lst_241" -" lst_242)" +" lst_243" +" lst_244)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_241)" +" lst_243)" "(pair?" -" lst_242)" +" lst_244)" " #f)" "(let-values(((id_51)" "(unsafe-car" -" lst_241))" +" lst_243))" "((rest_130)" "(unsafe-cdr" -" lst_241))" +" lst_243))" "((type_0)" "(unsafe-car" -" lst_242))" +" lst_244))" "((rest_131)" "(unsafe-cdr" -" lst_242)))" +" lst_244)))" "(let-values(((locals_10)" "(let-values(((locals_11)" " locals_9))" @@ -32179,10 +32229,10 @@ static const char *startup_source = " locals_9)))))" " for-loop_218)" " locals_7" -" lst_239" -" lst_240)))))" +" lst_241" +" lst_242)))))" "(if(equal?" -" tmp_26" +" tmp_27" " 'let-values)" "(let-values()" "(if(null?" @@ -32195,7 +32245,7 @@ static const char *startup_source = " rhs_11)))" "(loop_90 #f)))" "(let-values()" -"(let-values(((lst_243)" +"(let-values(((lst_245)" "(correlated->list" " ids_14)))" "(begin" @@ -32204,20 +32254,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_243)))" +" lst_245)))" "((letrec-values(((for-loop_219)" "(lambda(locals_13" -" lst_244)" +" lst_246)" "(begin" " 'for-loop" "(if(pair?" -" lst_244)" +" lst_246)" "(let-values(((id_52)" "(unsafe-car" -" lst_244))" +" lst_246))" "((rest_132)" "(unsafe-cdr" -" lst_244)))" +" lst_246)))" "(let-values(((locals_14)" "(let-values(((locals_15)" " locals_13))" @@ -32239,7 +32289,7 @@ static const char *startup_source = " locals_13)))))" " for-loop_219)" " locals_7" -" lst_243)))))))))))" +" lst_245)))))))))))" " loop_90)" " rhs_10))))" "(values locals_8)))))" @@ -32247,75 +32297,75 @@ static const char *startup_source = " locals_5)))))" " for-loop_217)" " locals_4" -" lst_235" -" lst_236))))))" +" lst_237" +" lst_238))))))" "(define-values" "(ok-make-struct-type-property?)" "(lambda(e_65 defns_3)" "(begin" "(let-values(((l_57)(correlated->list e_65)))" "(if(<= 2(length l_57) 5)" -"(let-values(((lst_245)(cdr l_57))" -"((lst_246)" +"(let-values(((lst_247)(cdr l_57))" +"((lst_248)" "(list" -"(lambda(v_158)(quoted? symbol? v_158))" -"(lambda(v_159)(is-lambda? v_159 2 defns_3))" -"(lambda(v_160)(ok-make-struct-type-property-super? v_160 defns_3))" -"(lambda(v_161)" -"(let-values(((v92_0) v_161)((temp93_1) 1)((defns94_0) defns_3))" +"(lambda(v_159)(quoted? symbol? v_159))" +"(lambda(v_160)(is-lambda? v_160 2 defns_3))" +"(lambda(v_161)(ok-make-struct-type-property-super? v_161 defns_3))" +"(lambda(v_162)" +"(let-values(((v92_0) v_162)((temp93_1) 1)((defns94_0) defns_3))" "(any-side-effects?9.1 defns94_0 #t #f #f #f #f v92_0 temp93_1))))))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_245)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_246)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_247)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_248)))" "((letrec-values(((for-loop_171)" -"(lambda(result_94 lst_148 lst_247)" +"(lambda(result_94 lst_150 lst_249)" "(begin" " 'for-loop" -"(if(if(pair? lst_148)(pair? lst_247) #f)" -"(let-values(((arg_0)(unsafe-car lst_148))" -"((rest_133)(unsafe-cdr lst_148))" -"((pred_1)(unsafe-car lst_247))" -"((rest_134)(unsafe-cdr lst_247)))" +"(if(if(pair? lst_150)(pair? lst_249) #f)" +"(let-values(((arg_0)(unsafe-car lst_150))" +"((rest_133)(unsafe-cdr lst_150))" +"((pred_1)(unsafe-car lst_249))" +"((rest_134)(unsafe-cdr lst_249)))" "(let-values(((result_95)" "(let-values()" "(let-values(((result_96)" "(let-values()(let-values()(pred_1 arg_0)))))" "(values result_96)))))" -"(if(if(not((lambda x_60(not result_95)) arg_0))" -"(if(not((lambda x_61(not result_95)) pred_1))(not #f) #f)" +"(if(if(not((lambda x_59(not result_95)) arg_0))" +"(if(not((lambda x_60(not result_95)) pred_1))(not #f) #f)" " #f)" "(for-loop_171 result_95 rest_133 rest_134)" " result_95)))" " result_94)))))" " for-loop_171)" " #t" -" lst_245" -" lst_246)))" +" lst_247" +" lst_248)))" " #f)))))" "(define-values" "(ok-make-struct-type-property-super?)" -"(lambda(v_162 defns_4)" +"(lambda(v_163 defns_4)" "(begin" -"(let-values(((or-part_238)(quoted? null? v_162)))" -"(if or-part_238" -" or-part_238" -"(let-values(((or-part_239)(eq? 'null(correlated-e v_162))))" -"(if or-part_239" -" or-part_239" -"(if(pair?(correlated-e v_162))" -"(if(eq?(correlated-e(car(correlated-e v_162))) 'list)" -"(if(let-values(((lst_248)(cdr(correlated->list v_162))))" +"(let-values(((or-part_222)(quoted? null? v_163)))" +"(if or-part_222" +" or-part_222" +"(let-values(((or-part_223)(eq? 'null(correlated-e v_163))))" +"(if or-part_223" +" or-part_223" +"(if(pair?(correlated-e v_163))" +"(if(eq?(correlated-e(car(correlated-e v_163))) 'list)" +"(if(let-values(((lst_250)(cdr(correlated->list v_163))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_248)))" +"(let-values()(check-list lst_250)))" "((letrec-values(((for-loop_220)" -"(lambda(result_97 lst_249)" +"(lambda(result_97 lst_251)" "(begin" " 'for-loop" -"(if(pair? lst_249)" -"(let-values(((prop+val_0)(unsafe-car lst_249))" -"((rest_135)(unsafe-cdr lst_249)))" +"(if(pair? lst_251)" +"(let-values(((prop+val_0)(unsafe-car lst_251))" +"((rest_135)(unsafe-cdr lst_251)))" "(let-values(((result_98)" "(let-values()" "(let-values(((result_99)" @@ -32332,7 +32382,7 @@ static const char *startup_source = " 'cons" "(correlated-e" "(car prop+val_1)))" -"(if(let-values(((or-part_240)" +"(if(let-values(((or-part_224)" "(memq" "(correlated-e" "(list-ref" @@ -32341,8 +32391,8 @@ static const char *startup_source = " '(prop:procedure" " prop:equal+hash" " prop:custom-write))))" -"(if or-part_240" -" or-part_240" +"(if or-part_224" +" or-part_224" "(known-property?" "(lookup-defn" " defns_4" @@ -32372,7 +32422,7 @@ static const char *startup_source = " #f))" " #f)))))" "(values result_99)))))" -"(if(if(not((lambda x_62(not result_98)) prop+val_0))" +"(if(if(not((lambda x_61(not result_98)) prop+val_0))" "(not #f)" " #f)" "(for-loop_220 result_98 rest_135)" @@ -32380,27 +32430,27 @@ static const char *startup_source = " result_97)))))" " for-loop_220)" " #t" -" lst_248)))" +" lst_250)))" "(=" -"(sub1(correlated-length v_162))" +"(sub1(correlated-length v_163))" "(set-count" -"(let-values(((lst_250)(cdr(correlated->list v_162))))" +"(let-values(((lst_252)(cdr(correlated->list v_163))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_250)))" +"(let-values()(check-list lst_252)))" "((letrec-values(((for-loop_221)" -"(lambda(table_177 lst_251)" +"(lambda(table_181 lst_253)" "(begin" " 'for-loop" -"(if(pair? lst_251)" -"(let-values(((prop+val_2)(unsafe-car lst_251))" -"((rest_136)(unsafe-cdr lst_251)))" -"(let-values(((table_178)" -"(let-values(((table_179) table_177))" -"(let-values(((table_180)" +"(if(pair? lst_253)" +"(let-values(((prop+val_2)(unsafe-car lst_253))" +"((rest_136)(unsafe-cdr lst_253)))" +"(let-values(((table_182)" +"(let-values(((table_183) table_181))" +"(let-values(((table_184)" "(let-values()" -"(let-values(((key_68 val_57)" +"(let-values(((key_67 val_57)" "(let-values()" "(values" "(let-values()" @@ -32411,15 +32461,15 @@ static const char *startup_source = " 1)))" " #t))))" "(hash-set" -" table_179" -" key_68" +" table_183" +" key_67" " val_57)))))" -"(values table_180)))))" -"(if(not #f)(for-loop_221 table_178 rest_136) table_178)))" -" table_177)))))" +"(values table_184)))))" +"(if(not #f)(for-loop_221 table_182 rest_136) table_182)))" +" table_181)))))" " for-loop_221)" " '#hash()" -" lst_250)))))" +" lst_252)))))" " #f)" " #f)" " #f))))))))" @@ -32435,21 +32485,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_241)(if(>(length l_58) 9)(list-ref l_58 9) #f)))" -"(if or-part_241 or-part_241 'null))))" +"(let-values(((or-part_225)(if(>(length l_58) 9)(list-ref l_58 9) #f)))" +"(if or-part_225 or-part_225 'null))))" "(let-values(((super-expr_0)(if(>(length l_58) 2)(list-ref l_58 2) #f)))" "(if(>=(length l_58) 5)" "(if(<=(length l_58) 12)" -"(let-values(((lst_252)(cdr l_58))" -"((lst_253)" +"(let-values(((lst_254)(cdr l_58))" +"((lst_255)" "(list" -"(lambda(v_163)(quoted? symbol? v_163))" -"(lambda(v_164)(super-ok? v_164 defns_5))" -"(lambda(v_165)(field-count-expr-to-field-count v_165))" +"(lambda(v_164)(quoted? symbol? v_164))" +"(lambda(v_165)(super-ok? v_165 defns_5))" "(lambda(v_166)(field-count-expr-to-field-count v_166))" -"(lambda(v_167)" +"(lambda(v_167)(field-count-expr-to-field-count v_167))" +"(lambda(v_168)" "(not" -"(let-values(((v98_0) v_167)" +"(let-values(((v98_0) v_168)" "((temp99_0) 1)" "((ready-variable?100_0) ready-variable?_1)" "((defns101_0) defns_5))" @@ -32462,35 +32512,35 @@ static const char *startup_source = " #t" " v98_0" " temp99_0))))" -"(lambda(v_168)" -"(known-good-struct-properties? v_168 immutables-expr_0 super-expr_0 defns_5))" -"(lambda(v_169)(inspector-or-false? v_169))" -"(lambda(v_170)(procedure-spec? v_170 num-fields_0))" -"(lambda(v_171)(immutables-ok? v_171 init-field-count-expr_0)))))" +"(lambda(v_169)" +"(known-good-struct-properties? v_169 immutables-expr_0 super-expr_0 defns_5))" +"(lambda(v_170)(inspector-or-false? v_170))" +"(lambda(v_171)(procedure-spec? v_171 num-fields_0))" +"(lambda(v_172)(immutables-ok? v_172 init-field-count-expr_0)))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_252)))" +"(let-values()(check-list lst_254)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_253)))" +"(let-values()(check-list lst_255)))" "((letrec-values(((for-loop_222)" -"(lambda(result_100 lst_254 lst_130)" +"(lambda(result_100 lst_256 lst_132)" "(begin" " 'for-loop" -"(if(if(pair? lst_254)(pair? lst_130) #f)" -"(let-values(((arg_1)(unsafe-car lst_254))" -"((rest_64)(unsafe-cdr lst_254))" -"((pred_2)(unsafe-car lst_130))" -"((rest_137)(unsafe-cdr lst_130)))" +"(if(if(pair? lst_256)(pair? lst_132) #f)" +"(let-values(((arg_1)(unsafe-car lst_256))" +"((rest_64)(unsafe-cdr lst_256))" +"((pred_2)(unsafe-car lst_132))" +"((rest_137)(unsafe-cdr lst_132)))" "(let-values(((result_101)" "(let-values()" "(let-values(((result_102)" "(let-values()" "(let-values()(pred_2 arg_1)))))" "(values result_102)))))" -"(if(if(not((lambda x_63(not result_101)) arg_1))" -"(if(not((lambda x_64(not result_101)) pred_2))" +"(if(if(not((lambda x_62(not result_101)) arg_1))" +"(if(not((lambda x_63(not result_101)) pred_2))" "(not #f)" " #f)" " #f)" @@ -32499,17 +32549,17 @@ static const char *startup_source = " result_100)))))" " for-loop_222)" " #t" -" lst_252" -" lst_253)))" +" lst_254" +" lst_255)))" " #f)" " #f))))))))))" "(define-values" "(super-ok?)" "(lambda(e_67 defns_6)" "(begin" -"(let-values(((or-part_242)(quoted? false? e_67)))" -"(if or-part_242" -" or-part_242" +"(let-values(((or-part_226)(quoted? false? e_67)))" +"(if or-part_226" +" or-part_226" "(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" @@ -32520,60 +32570,60 @@ static const char *startup_source = "(+(field-count-expr-to-field-count(list-ref l_59 3))(field-count-expr-to-field-count(list-ref l_59 4)))))))" "(define-values" "(quoted?)" -"(lambda(val?_0 v_172)" +"(lambda(val?_0 v_173)" "(begin" -"(let-values(((or-part_243)" -"(if(pair?(correlated-e v_172))" -"(if(eq?(correlated-e(car(correlated-e v_172))) 'quote)" -"(val?_0(correlated-e(correlated-cadr v_172)))" +"(let-values(((or-part_227)" +"(if(pair?(correlated-e v_173))" +"(if(eq?(correlated-e(car(correlated-e v_173))) 'quote)" +"(val?_0(correlated-e(correlated-cadr v_173)))" " #f)" " #f)))" -"(if or-part_243 or-part_243(val?_0(correlated-e v_172)))))))" +"(if or-part_227 or-part_227(val?_0(correlated-e v_173)))))))" "(define-values" "(quoted-value)" -"(lambda(v_173)" -"(begin(if(pair?(correlated-e v_173))(correlated-e(correlated-cadr v_173))(correlated-e v_173)))))" -"(define-values(false?)(lambda(v_174)(begin(eq?(correlated-e v_174) #f))))" +"(lambda(v_174)" +"(begin(if(pair?(correlated-e v_174))(correlated-e(correlated-cadr v_174))(correlated-e v_174)))))" +"(define-values(false?)(lambda(v_175)(begin(eq?(correlated-e v_175) #f))))" "(define-values" "(field-count-expr-to-field-count)" -"(lambda(v_175)(begin(if(quoted? exact-nonnegative-integer? v_175)(quoted-value v_175) #f))))" +"(lambda(v_176)(begin(if(quoted? exact-nonnegative-integer? v_176)(quoted-value v_176) #f))))" "(define-values" "(inspector-or-false?)" -"(lambda(v_176)" +"(lambda(v_177)" "(begin" -"(let-values(((or-part_244)(quoted? false? v_176)))" -"(if or-part_244" -" or-part_244" -"(let-values(((or-part_245)(if(quoted? symbol? v_176)(eq? 'prefab(quoted-value v_176)) #f)))" -"(if or-part_245" -" or-part_245" -"(if(= 1(correlated-length v_176))" -"(eq? 'current-inspector(correlated-e(car(correlated-e v_176))))" +"(let-values(((or-part_228)(quoted? false? v_177)))" +"(if or-part_228" +" or-part_228" +"(let-values(((or-part_229)(if(quoted? symbol? v_177)(eq? 'prefab(quoted-value v_177)) #f)))" +"(if or-part_229" +" or-part_229" +"(if(= 1(correlated-length v_177))" +"(eq? 'current-inspector(correlated-e(car(correlated-e v_177))))" " #f))))))))" "(define-values" "(known-good-struct-properties?)" -"(lambda(v_177 immutables-expr_1 super-expr_1 defns_7)" +"(lambda(v_178 immutables-expr_1 super-expr_1 defns_7)" "(begin" -"(let-values(((or-part_246)(quoted? null? v_177)))" -"(if or-part_246" -" or-part_246" -"(let-values(((or-part_247)(eq? 'null(correlated-e v_177))))" -"(if or-part_247" -" or-part_247" -"(if(pair?(correlated-e v_177))" -"(if(eq?(correlated-e(car(correlated-e v_177))) 'list)" -"(if(let-values(((lst_255)(cdr(correlated->list v_177))))" +"(let-values(((or-part_230)(quoted? null? v_178)))" +"(if or-part_230" +" or-part_230" +"(let-values(((or-part_231)(eq? 'null(correlated-e v_178))))" +"(if or-part_231" +" or-part_231" +"(if(pair?(correlated-e v_178))" +"(if(eq?(correlated-e(car(correlated-e v_178))) 'list)" +"(if(let-values(((lst_257)(cdr(correlated->list v_178))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_255)))" +"(let-values()(check-list lst_257)))" "((letrec-values(((for-loop_223)" -"(lambda(result_103 lst_256)" +"(lambda(result_103 lst_258)" "(begin" " 'for-loop" -"(if(pair? lst_256)" -"(let-values(((prop+val_3)(unsafe-car lst_256))" -"((rest_138)(unsafe-cdr lst_256)))" +"(if(pair? lst_258)" +"(let-values(((prop+val_3)(unsafe-car lst_258))" +"((rest_138)(unsafe-cdr lst_258)))" "(let-values(((result_104)" "(let-values()" "(let-values(((result_105)" @@ -32599,7 +32649,7 @@ static const char *startup_source = " #f))" " #f)))))" "(values result_105)))))" -"(if(if(not((lambda x_65(not result_104)) prop+val_3))" +"(if(if(not((lambda x_64(not result_104)) prop+val_3))" "(not #f)" " #f)" "(for-loop_223 result_104 rest_138)" @@ -32607,27 +32657,27 @@ static const char *startup_source = " result_103)))))" " for-loop_223)" " #t" -" lst_255)))" +" lst_257)))" "(=" -"(sub1(correlated-length v_177))" +"(sub1(correlated-length v_178))" "(set-count" -"(let-values(((lst_257)(cdr(correlated->list v_177))))" +"(let-values(((lst_259)(cdr(correlated->list v_178))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_257)))" +"(let-values()(check-list lst_259)))" "((letrec-values(((for-loop_224)" -"(lambda(table_181 lst_258)" +"(lambda(table_185 lst_260)" "(begin" " 'for-loop" -"(if(pair? lst_258)" -"(let-values(((prop+val_5)(unsafe-car lst_258))" -"((rest_139)(unsafe-cdr lst_258)))" -"(let-values(((table_182)" -"(let-values(((table_183) table_181))" -"(let-values(((table_184)" +"(if(pair? lst_260)" +"(let-values(((prop+val_5)(unsafe-car lst_260))" +"((rest_139)(unsafe-cdr lst_260)))" +"(let-values(((table_186)" +"(let-values(((table_187) table_185))" +"(let-values(((table_188)" "(let-values()" -"(let-values(((key_69 val_58)" +"(let-values(((key_68 val_58)" "(let-values()" "(values" "(let-values()" @@ -32638,15 +32688,15 @@ static const char *startup_source = " 1)))" " #t))))" "(hash-set" -" table_183" -" key_69" +" table_187" +" key_68" " val_58)))))" -"(values table_184)))))" -"(if(not #f)(for-loop_224 table_182 rest_139) table_182)))" -" table_181)))))" +"(values table_188)))))" +"(if(not #f)(for-loop_224 table_186 rest_139) table_186)))" +" table_185)))))" " for-loop_224)" " '#hash()" -" lst_257)))))" +" lst_259)))))" " #f)" " #f)" " #f))))))))" @@ -32655,18 +32705,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_248)(is-lambda? val-expr_0 1 defns_8)))" -"(if or-part_248 or-part_248(immutable-field? val-expr_0 immutables-expr_2))))" -"(if(equal? tmp_27 'prop:procedure)" +"(let-values(((or-part_232)(is-lambda? val-expr_0 1 defns_8)))" +"(if or-part_232 or-part_232(immutable-field? val-expr_0 immutables-expr_2))))" +"(if(equal? tmp_28 'prop:procedure)" "(let-values()" -"(let-values(((or-part_249)(is-lambda? val-expr_0 1 defns_8)))" -"(if or-part_249 or-part_249(immutable-field? val-expr_0 immutables-expr_2))))" -"(if(equal? tmp_27 'prop:custom-write)" +"(let-values(((or-part_233)(is-lambda? val-expr_0 1 defns_8)))" +"(if or-part_233 or-part_233(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_60)(correlated->list val-expr_0)))" "(if(eq? 'list(car l_60))" @@ -32674,16 +32724,16 @@ static const char *startup_source = "(if(is-lambda?(list-ref l_60 2) 2 defns_8)(is-lambda?(list-ref l_60 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-expr102_0) val-expr_0)((temp103_0) 1)((defns104_0) defns_8))" "(any-side-effects?9.1 defns104_0 #t #f #f #f #f val-expr102_0 temp103_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)))" @@ -32699,26 +32749,26 @@ static const char *startup_source = "(lambda(expr_9 arity_0 defns_9)" "(begin" "(let-values(((lookup_0)(lookup-defn defns_9 expr_9)))" -"(let-values(((or-part_250)" +"(let-values(((or-part_234)" "(if lookup_0" "(if(known-function? lookup_0)" -"(let-values(((or-part_251)(not arity_0)))" -"(if or-part_251 or-part_251(arity-includes?(known-function-arity lookup_0) arity_0)))" +"(let-values(((or-part_235)(not arity_0)))" +"(if or-part_235 or-part_235(arity-includes?(known-function-arity lookup_0) arity_0)))" " #f)" " #f)))" -"(if or-part_250" -" or-part_250" -"(let-values(((or-part_252)" +"(if or-part_234" +" or-part_234" +"(let-values(((or-part_236)" "(if(pair?(correlated-e expr_9))" "(if(eq? 'case-lambda(car(correlated-e expr_9)))(not arity_0) #f)" " #f)))" -"(if or-part_252" -" or-part_252" +"(if or-part_236" +" or-part_236" "(if(pair?(correlated-e expr_9))" "(if(eq? 'lambda(car(correlated-e expr_9)))" -"(let-values(((or-part_253)(not arity_0)))" -"(if or-part_253" -" or-part_253" +"(let-values(((or-part_237)(not arity_0)))" +"(if or-part_237" +" or-part_237" "((letrec-values(((loop_91)" "(lambda(args_4 arity_1)" "(begin" @@ -32739,32 +32789,32 @@ static const char *startup_source = "(arity-includes?)" "(lambda(a_40 n_25)" "(begin" -"(let-values(((or-part_254)(equal? a_40 n_25)))" -"(if or-part_254" -" or-part_254" +"(let-values(((or-part_238)(equal? a_40 n_25)))" +"(if or-part_238" +" or-part_238" "(if(list? a_40)" -"(let-values(((lst_67) a_40))" +"(let-values(((lst_68) a_40))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_67)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_68)))" "((letrec-values(((for-loop_225)" -"(lambda(result_106 lst_259)" +"(lambda(result_106 lst_261)" "(begin" " 'for-loop" -"(if(pair? lst_259)" -"(let-values(((a_41)(unsafe-car lst_259))((rest_140)(unsafe-cdr lst_259)))" +"(if(pair? lst_261)" +"(let-values(((a_41)(unsafe-car lst_261))((rest_140)(unsafe-cdr lst_261)))" "(let-values(((result_107)" "(let-values()" "(let-values(((result_108)" "(let-values()" "(let-values()(equal? a_41 n_25)))))" "(values result_108)))))" -"(if(if(not((lambda x_66 result_107) a_41))(not #f) #f)" +"(if(if(not((lambda x_65 result_107) a_41))(not #f) #f)" "(for-loop_225 result_107 rest_140)" " result_107)))" " result_106)))))" " for-loop_225)" " #f" -" lst_67)))" +" lst_68)))" " #f))))))" "(define-values" "(immutable-field?)" @@ -32777,31 +32827,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_178)(correlated-cadr e_69)))" -"(let-values(((or-part_255)" -"(if(correlated-length v_178)" -"(let-values(((l_61)(map2 correlated-e(correlated->list v_178))))" +"(let-values(((v_179)(correlated-cadr e_69)))" +"(let-values(((or-part_239)" +"(if(correlated-length v_179)" +"(let-values(((l_61)(map2 correlated-e(correlated->list v_179))))" "(if(andmap2 exact-nonnegative-integer? l_61)" "(if(=(length l_61)(set-count(list->set l_61))) l_61 #f)" " #f))" " #f)))" -"(if or-part_255 or-part_255 fail-v_0))))" +"(if or-part_239 or-part_239 fail-v_0))))" "(let-values() fail-v_0))))))" "(define-values" "(procedure-spec?)" "(lambda(e_70 field-count_1)" "(begin" -"(let-values(((or-part_256)(quoted? false? e_70)))" -"(if or-part_256" -" or-part_256" -"(let-values(((or-part_257)" +"(let-values(((or-part_240)(quoted? false? e_70)))" +"(if or-part_240" +" or-part_240" +"(let-values(((or-part_241)" "(if(quoted? exact-nonnegative-integer? e_70)" "(if field-count_1(<(quoted-value e_70) field-count_1) #f)" " #f)))" -"(if or-part_257 or-part_257(is-lambda? e_70 #f '#hasheq()))))))))" +"(if or-part_241 or-part_241(is-lambda? e_70 #f '#hasheq()))))))))" "(define-values" "(immutables-ok?)" "(lambda(e_71 init-field-count-expr_1)" @@ -32809,29 +32859,29 @@ static const char *startup_source = "(let-values(((l_62)(immutables-expr-to-immutables e_71 #f)))" "(let-values(((c_24)(field-count-expr-to-field-count init-field-count-expr_1)))" "(if l_62" -"(let-values(((lst_260) l_62))" +"(let-values(((lst_262) l_62))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_260)))" +"(let-values()(check-list lst_262)))" "((letrec-values(((for-loop_226)" -"(lambda(result_109 lst_120)" +"(lambda(result_109 lst_122)" "(begin" " 'for-loop" -"(if(pair? lst_120)" -"(let-values(((n_26)(unsafe-car lst_120))((rest_59)(unsafe-cdr lst_120)))" -"(let-values(((result_110)" +"(if(pair? lst_122)" +"(let-values(((n_26)(unsafe-car lst_122))((rest_59)(unsafe-cdr lst_122)))" +"(let-values(((result_47)" "(let-values()" -"(let-values(((result_111)" +"(let-values(((result_110)" "(let-values()(let-values()(< n_26 c_24)))))" -"(values result_111)))))" -"(if(if(not((lambda x_67(not result_110)) n_26))(not #f) #f)" -"(for-loop_226 result_110 rest_59)" -" result_110)))" +"(values result_110)))))" +"(if(if(not((lambda x_66(not result_47)) n_26))(not #f) #f)" +"(for-loop_226 result_47 rest_59)" +" result_47)))" " result_109)))))" " for-loop_226)" " #t" -" lst_260)))" +" lst_262)))" " #f))))))" "(define-values" "(ok-make-struct-field-accessor/mutator?)" @@ -32839,25 +32889,25 @@ static const char *startup_source = "(begin" "(let-values(((l_63)(correlated->list e_72)))" "(let-values(((a_42)" -"(if(let-values(((or-part_258)(=(length l_63) 3)))" -"(if or-part_258 or-part_258(=(length l_63) 4)))" -"(let-values(((or-part_259)(hash-ref locals_17(correlated-e(list-ref l_63 1)) #f)))" -"(if or-part_259 or-part_259(lookup-defn defns_10(correlated-e(list-ref l_63 1)))))" +"(if(let-values(((or-part_125)(=(length l_63) 3)))" +"(if or-part_125 or-part_125(=(length l_63) 4)))" +"(let-values(((or-part_242)(hash-ref locals_17(correlated-e(list-ref l_63 1)) #f)))" +"(if or-part_242 or-part_242(lookup-defn defns_10(correlated-e(list-ref l_63 1)))))" " #f)))" "(if(known-struct-op? a_42)" "(if(eq?(known-struct-op-type a_42) type_1)" "(if(<(field-count-expr-to-field-count(list-ref l_63 2))(known-struct-op-field-count a_42))" -"(let-values(((or-part_130)(=(length l_63) 3)))" -"(if or-part_130 or-part_130(quoted? symbol?(list-ref l_63 3))))" +"(let-values(((or-part_243)(=(length l_63) 3)))" +"(if or-part_243 or-part_243(quoted? symbol?(list-ref l_63 3))))" " #f)" " #f)" " #f))))))" -"(define-values(maybe+)(lambda(x_68 y_10)(begin(if x_68(if y_10(+ x_68 y_10) #f) #f))))" +"(define-values(maybe+)(lambda(x_67 y_10)(begin(if x_67(if y_10(+ x_67 y_10) #f) #f))))" "(define-values" "(compile-single)" -"(lambda(p_44 cctx_12)" +"(lambda(p_43 cctx_12)" "(begin" -"(let-values(((p12_0) p_44)((cctx13_0) cctx_12)((temp14_4) #f)((temp15_4) #t))" +"(let-values(((p12_0) p_43)((cctx13_0) cctx_12)((temp14_4) #f)((temp15_4) #t))" "(compile-top9.1 temp14_4 #t temp15_4 #t #f #f p12_0 cctx13_0)))))" "(define-values" "(compile-top9.1)" @@ -32871,7 +32921,7 @@ static const char *startup_source = " cctx8_0)" "(begin" " 'compile-top9" -"(let-values(((p_45) p7_0))" +"(let-values(((p_44) p7_0))" "(let-values(((cctx_13) cctx8_0))" "(let-values(((serializable?_1)(if serializable?4_0 serializable?1_0 #t)))" "(let-values(((single-expression?_0)(if single-expression?5_0 single-expression?2_0 #f)))" @@ -32889,7 +32939,7 @@ static const char *startup_source = " phase-to-link-extra-inspectorss_0" " syntax-literals_3" " no-root-context-pos_0)" -"(let-values(((temp16_4)(list p_45))" +"(let-values(((temp16_4)(list p_44))" "((cctx17_0) cctx_13)" "((mpis18_0) mpis_18)" "((temp19_0)" @@ -32927,10 +32977,10 @@ static const char *startup_source = "(let-values()(set! purely-functional?_0 #f))" "(void))))" "((temp25_3)" -"(lambda(s_383 cctx_14)" +"(lambda(s_376 cctx_14)" "(begin" "(set! purely-functional?_0 #f)" -"(compile-top-level-require s_383 cctx_14))))" +"(compile-top-level-require s_376 cctx_14))))" "((temp26_1)(not single-expression?_0)))" "(compile-forms31.1" " temp20_0" @@ -32961,12 +33011,12 @@ static const char *startup_source = " cctx17_0" " mpis18_0))))" "(let-values(((add-metadata_0)" -"(lambda(ht_120)" +"(lambda(ht_119)" "(begin" " 'add-metadata" -"(let-values(((ht_79)(hash-set ht_120 'original-phase phase_81)))" -"(let-values(((ht_121)(hash-set ht_79 'max-phase max-phase_1)))" -" ht_121))))))" +"(let-values(((ht_78)(hash-set ht_119 'original-phase phase_81)))" +"(let-values(((ht_120)(hash-set ht_78 'max-phase max-phase_1)))" +" ht_120))))))" "(let-values(((bundle_0)" "((if to-source?_2 values 1/hash->linklet-bundle)" "(add-metadata_0" @@ -33040,12 +33090,12 @@ static const char *startup_source = " purely-functional?_0)))))))))))))))))))" "(define-values" "(compile-top-level-require)" -"(lambda(p_46 cctx_15)" +"(lambda(p_45 cctx_15)" "(begin" "(let-values(((phase_34)(compile-context-phase cctx_15)))" -"(if(parsed-require? p_46)" +"(if(parsed-require? p_45)" "(let-values()" -"(let-values(((form-stx_0)(compile-quote-syntax(syntax-disarm$1(parsed-s p_46)) cctx_15)))" +"(let-values(((form-stx_0)(compile-quote-syntax(syntax-disarm$1(parsed-s p_45)) cctx_15)))" "(list top-level-require!-id form-stx_0 ns-id)))" "(let-values() #f))))))" "(define-values" @@ -33078,27 +33128,27 @@ static const char *startup_source = "(let-values(((as-transformer?_4)(if as-transformer?10_0 as-transformer?5_0 #f)))" "(let-values()" "(let-values(((defined-syms-at-phase_0)" -"(let-values(((or-part_260)(hash-ref defined-syms_7 phase_83 #f)))" -"(if or-part_260" -" or-part_260" -"(let-values(((ht_122)(make-hasheq)))" -"(begin(hash-set! defined-syms_7 phase_83 ht_122) ht_122))))))" +"(let-values(((or-part_159)(hash-ref defined-syms_7 phase_83 #f)))" +"(if or-part_159" +" or-part_159" +"(let-values(((ht_121)(make-hasheq)))" +"(begin(hash-set! defined-syms_7 phase_83 ht_121) ht_121))))))" "(reverse$1" -"(let-values(((lst_80) ids_15))" +"(let-values(((lst_81) ids_15))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_80)))" +"(let-values()(check-list lst_81)))" "((letrec-values(((for-loop_227)" -"(lambda(fold-var_12 lst_173)" +"(lambda(fold-var_12 lst_175)" "(begin" " 'for-loop" -"(if(pair? lst_173)" -"(let-values(((id_53)(unsafe-car lst_173))" -"((rest_89)(unsafe-cdr lst_173)))" -"(let-values(((fold-var_91)" -"(let-values(((fold-var_156) fold-var_12))" -"(let-values(((fold-var_164)" +"(if(pair? lst_175)" +"(let-values(((id_53)(unsafe-car lst_175))" +"((rest_89)(unsafe-cdr lst_175)))" +"(let-values(((fold-var_93)" +"(let-values(((fold-var_158) fold-var_12))" +"(let-values(((fold-var_166)" "(let-values()" "(cons" "(let-values()" @@ -33129,7 +33179,7 @@ static const char *startup_source = "(lambda(pos_97)" "(begin" " 'loop" -"(let-values(((s_178)" +"(let-values(((s_177)" "(string->unreadable-symbol" "(format" " \"~a.~a\"" @@ -33138,7 +33188,7 @@ static const char *startup_source = "(if(defined-as-other?" "(hash-ref" " defined-syms-at-phase_0" -" s_178" +" s_177" " #f)" " id_53" " phase_83" @@ -33146,7 +33196,7 @@ static const char *startup_source = "(loop_92" "(add1" " pos_97))" -" s_178))))))" +" s_177))))))" " loop_92)" " 1))))" "(let-values((()" @@ -33244,23 +33294,23 @@ static const char *startup_source = " b35_0)))" "(void))" " defined-sym_0))))))" -" fold-var_156))))" -"(values fold-var_164)))))" +" fold-var_158))))" +"(values fold-var_166)))))" "(if(not #f)" -"(for-loop_227 fold-var_91 rest_89)" -" fold-var_91)))" +"(for-loop_227 fold-var_93 rest_89)" +" fold-var_93)))" " fold-var_12)))))" " for-loop_227)" " null" -" lst_80)))))))))))))))))))" +" lst_81)))))))))))))))))))" "(define-values" "(no-extra-scopes?)" "(lambda(id_54 all-scopes-stx_4 top-level-bind-scope_4 phase_84)" "(begin" "(let-values(((m-id_0)(datum->syntax$1 all-scopes-stx_4(syntax-e$1 id_54))))" -"(let-values(((or-part_135)(bound-identifier=?$1 id_54 m-id_0 phase_84)))" -"(if or-part_135" -" or-part_135" +"(let-values(((or-part_128)(bound-identifier=?$1 id_54 m-id_0 phase_84)))" +"(if or-part_128" +" or-part_128" "(if top-level-bind-scope_4" "(bound-identifier=?$1 id_54(add-scope m-id_0 top-level-bind-scope_4) phase_84)" " #f)))))))" @@ -33270,9 +33320,9 @@ static const char *startup_source = "(begin" "(if prev-id_0" "(if(not(bound-identifier=?$1 prev-id_0 id_55 phase_73))" -"(let-values(((or-part_261)(not top-level-bind-scope_5)))" -"(if or-part_261" -" or-part_261" +"(let-values(((or-part_244)(not top-level-bind-scope_5)))" +"(if or-part_244" +" or-part_244" "(not" "(bound-identifier=?$1" "(remove-scope prev-id_0 top-level-bind-scope_5)" @@ -33311,11 +33361,11 @@ static const char *startup_source = "(lambda(defined-syms_8 phase_85 sym_55 id_56)" "(begin" "(let-values(((defined-syms-at-phase_1)" -"(let-values(((or-part_262)(hash-ref defined-syms_8 phase_85 #f)))" -"(if or-part_262" -" or-part_262" -"(let-values(((ht_123)(make-hasheq)))" -"(begin(hash-set! defined-syms_8 phase_85 ht_123) ht_123))))))" +"(let-values(((or-part_94)(hash-ref defined-syms_8 phase_85 #f)))" +"(if or-part_94" +" or-part_94" +"(let-values(((ht_122)(make-hasheq)))" +"(begin(hash-set! defined-syms_8 phase_85 ht_122) ht_122))))))" "(hash-set! defined-syms-at-phase_1 sym_55 id_56)))))" "(define-values" "(make-create-root-expand-context-from-module)" @@ -33328,11 +33378,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_261) requires_3))" +"(let-values(((lst_263) requires_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_261)))" +"(let-values()(check-list lst_263)))" "((letrec-values(((for-loop_228)" "(lambda(lst_16)" "(begin" @@ -33350,7 +33400,7 @@ static const char *startup_source = "(car" " phase+reqs_0)))" "(begin" -"(let-values(((lst_262)" +"(let-values(((lst_264)" "(cdr" " phase+reqs_0)))" "(begin" @@ -33359,19 +33409,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_262)))" +" lst_264)))" "((letrec-values(((for-loop_229)" -"(lambda(lst_79)" +"(lambda(lst_80)" "(begin" " 'for-loop" "(if(pair?" -" lst_79)" +" lst_80)" "(let-values(((req_4)" "(unsafe-car" -" lst_79))" +" lst_80))" "((rest_36)" "(unsafe-cdr" -" lst_79)))" +" lst_80)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33441,30 +33491,30 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_229)" -" lst_262)))" +" lst_264)))" "(void))))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_228 rest_4)(values))))" "(values))))))" " for-loop_228)" -" lst_261)))" +" lst_263)))" "(values))))" "(let-values()" "(let-values(((defined-syms_9)(root-expand-context-defined-syms root-ctx_4)))" "(begin" -"(let-values(((ht_124) evaled-ld-h_0))" +"(let-values(((ht_123) evaled-ld-h_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_124)))" -"((letrec-values(((for-loop_106)" -"(lambda(i_149)" +"(let-values()(check-in-hash ht_123)))" +"((letrec-values(((for-loop_105)" +"(lambda(i_147)" "(begin" " 'for-loop" -"(if i_149" +"(if i_147" "(let-values(((phase_86 linklet_3)" -"(hash-iterate-key+value ht_124 i_149)))" +"(hash-iterate-key+value ht_123 i_147)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33472,7 +33522,7 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_263)" +"(let-values(((lst_265)" "(1/linklet-export-variables" " linklet_3)))" "(begin" @@ -33480,19 +33530,19 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_263)))" +"(check-list lst_265)))" "((letrec-values(((for-loop_230)" -"(lambda(lst_264)" +"(lambda(lst_266)" "(begin" " 'for-loop" "(if(pair?" -" lst_264)" +" lst_266)" "(let-values(((sym_56)" "(unsafe-car" -" lst_264))" +" lst_266))" "((rest_141)" "(unsafe-cdr" -" lst_264)))" +" lst_266)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33559,16 +33609,16 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_230)" -" lst_263)))" +" lst_265)))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_106(hash-iterate-next ht_124 i_149))" +"(for-loop_105(hash-iterate-next ht_123 i_147))" "(values))))" "(values))))))" -" for-loop_106)" -"(hash-iterate-first ht_124))))" +" for-loop_105)" +"(hash-iterate-first ht_123))))" "(void)" " root-ctx_4))))))))))" "(define-values" @@ -33577,11 +33627,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_179) root-context_0))" -"(let-values(((the-struct_52) v_179))" +"(let-values(((v_180) root-context_0))" +"(let-values(((the-struct_52) v_180))" "(if(root-expand-context/outer? the-struct_52)" "(let-values(((inner16_0)" -"(let-values(((the-struct_53)(root-expand-context/outer-inner v_179)))" +"(let-values(((the-struct_53)(root-expand-context/outer-inner v_180)))" "(if(root-expand-context/inner? the-struct_53)" "(let-values(((self-mpi17_0) inside-mpi_0)" "((all-scopes-stx18_0)" @@ -33633,39 +33683,39 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values(((lst_42)(list-tail(1/linklet-import-variables linklet_4) skip-num-imports_0))" -"((lst_265) import-module-uses_0)" -"((lst_89) import-module-instances_0)" -"((lst_163)" -"(let-values(((or-part_69) extra-inspectorsss_4))" -"(if or-part_69 or-part_69 import-module-uses_0))))" +"((lst_267) import-module-uses_0)" +"((lst_90) import-module-instances_0)" +"((lst_165)" +"(let-values(((or-part_83) extra-inspectorsss_4))" +"(if or-part_83 or-part_83 import-module-uses_0))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_42)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_265)))" +"(let-values()(check-list lst_267)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_89)))" +"(let-values()(check-list lst_90)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_163)))" +"(let-values()(check-list lst_165)))" "((letrec-values(((for-loop_230)" -"(lambda(lst_264 lst_266 lst_24 lst_102)" +"(lambda(lst_266 lst_268 lst_24 lst_103)" "(begin" " 'for-loop" -"(if(if(pair? lst_264)" -"(if(pair? lst_266)(if(pair? lst_24)(pair? lst_102) #f) #f)" +"(if(if(pair? lst_266)" +"(if(pair? lst_268)(if(pair? lst_24)(pair? lst_103) #f) #f)" " #f)" -"(let-values(((import-syms_0)(unsafe-car lst_264))" -"((rest_142)(unsafe-cdr lst_264))" -"((mu_7)(unsafe-car lst_266))" -"((rest_143)(unsafe-cdr lst_266))" +"(let-values(((import-syms_0)(unsafe-car lst_266))" +"((rest_142)(unsafe-cdr lst_266))" +"((mu_7)(unsafe-car lst_268))" +"((rest_143)(unsafe-cdr lst_268))" "((mi_16)(unsafe-car lst_24))" "((rest_43)(unsafe-cdr lst_24))" -"((extra-inspectorss_14)(unsafe-car lst_102))" -"((rest_119)(unsafe-cdr lst_102)))" +"((extra-inspectorss_14)(unsafe-car lst_103))" +"((rest_119)(unsafe-cdr lst_103)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33688,7 +33738,7 @@ static const char *startup_source = "(module-compute-access!" " m_15)))))" "(begin" -"(let-values(((lst_59)" +"(let-values(((lst_60)" " import-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -33696,7 +33746,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_59)))" +" lst_60)))" "((letrec-values(((for-loop_231)" "(lambda(lst_26)" "(begin" @@ -33724,12 +33774,12 @@ static const char *startup_source = " '#hasheq())" " import-sym_0" " 'unexported)))" -"(if(let-values(((or-part_171)" +"(if(let-values(((or-part_161)" "(eq?" " a_43" " 'unexported)))" -"(if or-part_171" -" or-part_171" +"(if or-part_161" +" or-part_161" "(eq?" " a_43" " 'protected)))" @@ -33738,20 +33788,20 @@ static const char *startup_source = "(namespace-inspector" "(module-instance-namespace" " mi_16))))" -"(if(let-values(((or-part_173)" +"(if(let-values(((or-part_245)" "(inspector-superior?" " insp_10" " guard-insp_3)))" -"(if or-part_173" -" or-part_173" -"(let-values(((or-part_174)" +"(if or-part_245" +" or-part_245" +"(let-values(((or-part_246)" "(if extra-inspector_0" "(inspector-superior?" " extra-inspector_0" " guard-insp_3)" " #f)))" -"(if or-part_174" -" or-part_174" +"(if or-part_246" +" or-part_246" "(if extra-inspectorsss_4" "(if extra-inspectorss_14" "(extra-inspectors-allow?" @@ -33786,7 +33836,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_231)" -" lst_59)))" +" lst_60)))" "(void)))))))" "(values)))))" "(values)))))" @@ -33796,9 +33846,9 @@ static const char *startup_source = "(values))))))" " for-loop_230)" " lst_42" -" lst_265" -" lst_89" -" lst_163)))" +" lst_267" +" lst_90" +" lst_165)))" "(void)))))))))))))" "(define-values" "(check-single-require-access)" @@ -33809,15 +33859,15 @@ static const char *startup_source = "(let-values() #t)" "(let-values()" "(let-values(((access_3)" -"(let-values(((or-part_263)(module-access m_16)))" -"(if or-part_263 or-part_263(module-compute-access! m_16)))))" +"(let-values(((or-part_247)(module-access m_16)))" +"(if or-part_247 or-part_247(module-compute-access! m_16)))))" "(let-values(((a_44)(hash-ref(hash-ref access_3 phase_87 '#hasheq()) sym_57 'unexported)))" -"(if(let-values(((or-part_264)(eq? a_44 'unexported)))" -"(if or-part_264 or-part_264(eq? a_44 'protected)))" +"(if(let-values(((or-part_248)(eq? a_44 'unexported)))" +"(if or-part_248 or-part_248(eq? a_44 'protected)))" "(let-values()" "(let-values(((guard-insp_4)(namespace-inspector(module-instance-namespace mi_17))))" -"(let-values(((or-part_265)(if insp_11(inspector-superior? insp_11 guard-insp_4) #f)))" -"(if or-part_265 or-part_265(inspector-superior?(current-code-inspector) guard-insp_4)))))" +"(let-values(((or-part_249)(if insp_11(inspector-superior? insp_11 guard-insp_4) #f)))" +"(if or-part_249 or-part_249(inspector-superior?(current-code-inspector) guard-insp_4)))))" "(let-values() #t))))))))))" "(define-values(module-cache)(make-weak-hasheq))" "(define-values" @@ -33829,8 +33879,8 @@ static const char *startup_source = "(lambda(key_11 proc_9)(begin(hash-set! module-cache key_11(make-ephemeron key_11 proc_9)))))" "(define-values" "(module-cache-ref)" -"(lambda(key_70)" -"(begin(let-values(((e_74)(hash-ref module-cache key_70 #f)))(if e_74(ephemeron-value e_74) #f)))))" +"(lambda(key_69)" +"(begin(let-values(((e_74)(hash-ref module-cache key_69 #f)))(if e_74(ephemeron-value e_74) #f)))))" "(define-values(current-module-declare-as-predefined)(make-parameter #f))" "(define-values" "(eval-module8.1)" @@ -33864,8 +33914,8 @@ static const char *startup_source = "(let-values() empty-syntax-literals-instance/empty-namespace)" "(let-values() empty-syntax-literals-data-instance)))))))" "(let-values(((decl_0)" -"(lambda(key_71)" -"(begin 'decl(1/instance-variable-value declaration-instance_0 key_71)))))" +"(lambda(key_70)" +"(begin 'decl(1/instance-variable-value declaration-instance_0 key_70)))))" "(let-values(((pre-submodule-names_0)(hash-ref h_1 'pre null)))" "(let-values(((post-submodule-names_0)(hash-ref h_1 'post null)))" "(let-values(((default-name_1)(hash-ref h_1 'name 'module)))" @@ -33887,56 +33937,56 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_37 end_26 inc_20)))" "((letrec-values(((for-loop_232)" -"(lambda(table_185 pos_98)" +"(lambda(table_189 pos_98)" "(begin" " 'for-loop" "(if(< pos_98 end_26)" "(let-values(((phase-level_17)" " pos_98))" -"(let-values(((table_186)" -"(let-values(((v_180)" +"(let-values(((table_190)" +"(let-values(((v_181)" "(hash-ref" " h_1" " phase-level_17" " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_233)" -"(lambda(table_187)" +"((letrec-values(((for-loop_50)" +"(lambda(table_191)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_188)" -"(let-values(((table_189)" -" table_187))" -"(if v_180" -"(let-values(((table_190)" -" table_189))" -"(let-values(((table_191)" +"(let-values(((table_192)" +"(let-values(((table_193)" +" table_191))" +"(if v_181" +"(let-values(((table_194)" +" table_193))" +"(let-values(((table_195)" "(let-values()" -"(let-values(((key_72" +"(let-values(((key_71" " val_59)" "(let-values()" "(values" " phase-level_17" "(1/eval-linklet" -" v_180)))))" +" v_181)))))" "(hash-set" -" table_190" -" key_72" +" table_194" +" key_71" " val_59)))))" "(values" -" table_191)))" -" table_189))))" -" table_188))))))" -" for-loop_233)" -" table_185)))))" +" table_195)))" +" table_193))))" +" table_192))))))" +" for-loop_50)" +" table_189)))))" "(if(not #f)" "(for-loop_232" -" table_186" +" table_190" "(+ pos_98 inc_20))" -" table_186)))" -" table_185)))))" +" table_190)))" +" table_189)))))" " for-loop_232)" " '#hash()" " start_37)))))" @@ -33979,18 +34029,18 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_20)))" -"((letrec-values(((for-loop_234)" -"(lambda(lst_93)" +"((letrec-values(((for-loop_233)" +"(lambda(lst_94)" "(begin" " 'for-loop" "(if(pair?" -" lst_93)" +" lst_94)" "(let-values(((c_25)" "(unsafe-car" -" lst_93))" +" lst_94))" "((rest_44)" "(unsafe-cdr" -" lst_93)))" +" lst_94)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -34015,22 +34065,22 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_234" +"(for-loop_233" " rest_44)" "(values))))" "(values))))))" -" for-loop_234)" +" for-loop_233)" " lst_20)))" "(void))" "(begin" -"(let-values(((lst_94) names_0))" +"(let-values(((lst_95) names_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_94)))" -"((letrec-values(((for-loop_235)" +"(check-list lst_95)))" +"((letrec-values(((for-loop_26)" "(lambda(lst_7)" "(begin" " 'for-loop" @@ -34078,12 +34128,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_235" +"(for-loop_26" " rest_144)" "(values))))" "(values))))))" -" for-loop_235)" -" lst_94)))" +" for-loop_26)" +" lst_95)))" "(void)))))" " void)))" "(let-values(((declare-this-module_0)" @@ -34196,7 +34246,7 @@ static const char *startup_source = " import-instances_0)" "(let-values(((mis_1" " is_0)" -"(let-values(((lst_267)" +"(let-values(((lst_269)" " module-uses_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -34204,21 +34254,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_267)))" -"((letrec-values(((for-loop_236)" +" lst_269)))" +"((letrec-values(((for-loop_234)" "(lambda(mis_2" " is_1" -" lst_268)" +" lst_270)" "(begin" " 'for-loop" "(if(pair?" -" lst_268)" +" lst_270)" "(let-values(((mu_8)" "(unsafe-car" -" lst_268))" +" lst_270))" "((rest_145)" "(unsafe-cdr" -" lst_268)))" +" lst_270)))" "(let-values(((mis_3" " is_2)" "(let-values(((mis_4)" @@ -34266,7 +34316,7 @@ static const char *startup_source = " is_4)))))" "(if(not" " #f)" -"(for-loop_236" +"(for-loop_234" " mis_3" " is_2" " rest_145)" @@ -34276,10 +34326,10 @@ static const char *startup_source = "(values" " mis_2" " is_1))))))" -" for-loop_236)" +" for-loop_234)" " null" " null" -" lst_267)))))" +" lst_269)))))" "(values" "(reverse$1" " mis_1)" @@ -34661,34 +34711,34 @@ static const char *startup_source = "(get-all-variables)" "(lambda(phases-h_1)" "(begin" -"(let-values(((ht_125) phases-h_1))" +"(let-values(((ht_124) phases-h_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_125)))" -"((letrec-values(((for-loop_237)" -"(lambda(table_192 i_150)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_124)))" +"((letrec-values(((for-loop_235)" +"(lambda(table_196 i_148)" "(begin" " 'for-loop" -"(if i_150" -"(let-values(((phase_88 linklet_5)(hash-iterate-key+value ht_125 i_150)))" -"(let-values(((table_193)" -"(let-values(((table_194) table_192))" -"(let-values(((table_145)" +"(if i_148" +"(let-values(((phase_88 linklet_5)(hash-iterate-key+value ht_124 i_148)))" +"(let-values(((table_197)" +"(let-values(((table_198) table_196))" +"(let-values(((table_148)" "(let-values()" -"(let-values(((key_73 val_62)" +"(let-values(((key_72 val_62)" "(let-values()" "(values" " phase_88" "(1/linklet-export-variables" " linklet_5)))))" -"(hash-set table_194 key_73 val_62)))))" -"(values table_145)))))" +"(hash-set table_198 key_72 val_62)))))" +"(values table_148)))))" "(if(not #f)" -"(for-loop_237 table_193(hash-iterate-next ht_125 i_150))" -" table_193)))" -" table_192)))))" -" for-loop_237)" +"(for-loop_235 table_197(hash-iterate-next ht_124 i_148))" +" table_197)))" +" table_196)))))" +" for-loop_235)" " '#hash()" -"(hash-iterate-first ht_125)))))))" +"(hash-iterate-first ht_124)))))))" "(define-values" "(provides->api-provides)" "(lambda(provides_9 self_24)" @@ -34699,22 +34749,22 @@ static const char *startup_source = " 'extract" "(let-values(((result-l_0)" "(reverse$1" -"(let-values(((ht_126) provides_9))" +"(let-values(((ht_125) provides_9))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_126)))" -"((letrec-values(((for-loop_101)" -"(lambda(fold-var_59 i_151)" +"(let-values()(check-in-hash ht_125)))" +"((letrec-values(((for-loop_100)" +"(lambda(fold-var_59 i_149)" "(begin" " 'for-loop" -"(if i_151" +"(if i_149" "(let-values(((phase_89 at-phase_11)" -"(hash-iterate-key+value ht_126 i_151)))" +"(hash-iterate-key+value ht_125 i_149)))" "(let-values(((fold-var_60)" "(let-values(((l_64)" "(reverse$1" -"(let-values(((ht_119)" +"(let-values(((ht_118)" " at-phase_11))" "(begin" "(if(variable-reference-from-unsafe?" @@ -34722,26 +34772,26 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_119)))" -"((letrec-values(((for-loop_238)" -"(lambda(fold-var_217" -" i_152)" +" ht_118)))" +"((letrec-values(((for-loop_236)" +"(lambda(fold-var_220" +" i_150)" "(begin" " 'for-loop" -"(if i_152" +"(if i_150" "(let-values(((sym_58" " b/p_1)" "(hash-iterate-key+value" -" ht_119" -" i_152)))" -"(let-values(((fold-var_218)" -"(let-values(((fold-var_219)" -" fold-var_217))" +" ht_118" +" i_150)))" +"(let-values(((fold-var_221)" +"(let-values(((fold-var_222)" +" fold-var_220))" "(if(ok?_24" " b/p_1)" -"(let-values(((fold-var_220)" -" fold-var_219))" -"(let-values(((fold-var_221)" +"(let-values(((fold-var_223)" +" fold-var_222))" +"(let-values(((fold-var_224)" "(let-values()" "(cons" "(let-values()" @@ -34758,7 +34808,7 @@ static const char *startup_source = " null)" "(let-values()" "(reverse$1" -"(let-values(((lst_87)" +"(let-values(((lst_88)" "(cons" " b_71" "(module-binding-extra-nominal-bindings" @@ -34769,23 +34819,23 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_87)))" -"((letrec-values(((for-loop_239)" -"(lambda(fold-var_222" -" lst_269)" +" lst_88)))" +"((letrec-values(((for-loop_237)" +"(lambda(fold-var_225" +" lst_271)" "(begin" " 'for-loop" "(if(pair?" -" lst_269)" +" lst_271)" "(let-values(((b_72)" "(unsafe-car" -" lst_269))" +" lst_271))" "((rest_146)" "(unsafe-cdr" -" lst_269)))" +" lst_271)))" "(let-values(((fold-var_29)" "(let-values(((fold-var_30)" -" fold-var_222))" +" fold-var_225))" "(let-values(((fold-var_31)" "(let-values()" "(cons" @@ -34817,41 +34867,41 @@ static const char *startup_source = " fold-var_31)))))" "(if(not" " #f)" -"(for-loop_239" +"(for-loop_237" " fold-var_29" " rest_146)" " fold-var_29)))" -" fold-var_222)))))" -" for-loop_239)" +" fold-var_225)))))" +" for-loop_237)" " null" -" lst_87)))))))))" -" fold-var_220))))" +" lst_88)))))))))" +" fold-var_223))))" "(values" -" fold-var_221)))" -" fold-var_219))))" +" fold-var_224)))" +" fold-var_222))))" "(if(not" " #f)" -"(for-loop_238" -" fold-var_218" +"(for-loop_236" +" fold-var_221" "(hash-iterate-next" -" ht_119" -" i_152))" -" fold-var_218)))" -" fold-var_217)))))" -" for-loop_238)" +" ht_118" +" i_150))" +" fold-var_221)))" +" fold-var_220)))))" +" for-loop_236)" " null" "(hash-iterate-first" -" ht_119)))))))" +" ht_118)))))))" "(begin" " #t" -"((letrec-values(((for-loop_106)" -"(lambda(fold-var_67)" +"((letrec-values(((for-loop_105)" +"(lambda(fold-var_69)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_154)" +"(let-values(((fold-var_156)" "(let-values(((fold-var_32)" -" fold-var_67))" +" fold-var_69))" "(if(null?" " l_64)" " fold-var_32" @@ -34879,18 +34929,18 @@ static const char *startup_source = " fold-var_33))))" "(values" " fold-var_34)))))))" -" fold-var_154))))))" -" for-loop_106)" +" fold-var_156))))))" +" for-loop_105)" " fold-var_59)))))" "(if(not #f)" -"(for-loop_101" +"(for-loop_100" " fold-var_60" -"(hash-iterate-next ht_126 i_151))" +"(hash-iterate-next ht_125 i_149))" " fold-var_60)))" " fold-var_59)))))" -" for-loop_101)" +" for-loop_100)" " null" -"(hash-iterate-first ht_126)))))))" +"(hash-iterate-first ht_125)))))))" "(let-values(((result-l1_0) result-l_0)((phaselinklet-directory" -"(let-values(((ht_127)(1/linklet-directory->hash c_34)))" +"(let-values(((ht_126)(1/linklet-directory->hash c_34)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_127)))" -"((letrec-values(((for-loop_241)" -"(lambda(table_195 i_153)" +"(let-values()(check-in-hash ht_126)))" +"((letrec-values(((for-loop_239)" +"(lambda(table_199 i_151)" "(begin" " 'for-loop" -"(if i_153" -"(let-values(((key_74 val_63)(hash-iterate-key+value ht_127 i_153)))" -"(let-values(((table_196)" -"(let-values(((table_115) table_195))" -"(let-values(((table_197)" +"(if i_151" +"(let-values(((key_73 val_63)(hash-iterate-key+value ht_126 i_151)))" +"(let-values(((table_200)" +"(let-values(((table_118) table_199))" +"(let-values(((table_201)" "(let-values()" -"(let-values(((key_75 val_64)" +"(let-values(((key_74 val_64)" "(let-values()" "(values" -" key_74" -"(if(not key_74)" +" key_73" +"(if(not key_73)" "(update-one-name" " val_63" " full-name_0)" "(recur_0" " val_63" -" key_74))))))" +" key_73))))))" "(hash-set" -" table_115" -" key_75" +" table_118" +" key_74" " val_64)))))" -"(values table_197)))))" +"(values table_201)))))" "(if(not #f)" -"(for-loop_241 table_196(hash-iterate-next ht_127 i_153))" -" table_196)))" -" table_195)))))" -" for-loop_241)" +"(for-loop_239 table_200(hash-iterate-next ht_126 i_151))" +" table_200)))" +" table_199)))))" +" for-loop_239)" " '#hasheq()" -"(hash-iterate-first ht_127))))))" +"(hash-iterate-first ht_126))))))" "(let-values()(update-one-name c_34 full-name_0))))))))))" "(define-values" "(update-one-name)" @@ -35145,26 +35195,26 @@ static const char *startup_source = " main_0" "(1/hash->linklet-directory" "(hash-set" -"(let-values(((lst_173) submods_0))" +"(let-values(((lst_175) submods_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_173)))" -"((letrec-values(((for-loop_50)" -"(lambda(ht_128 lst_271)" +"(let-values()(check-list lst_175)))" +"((letrec-values(((for-loop_240)" +"(lambda(ht_127 lst_273)" "(begin" " 'for-loop" -"(if(pair? lst_271)" -"(let-values(((submod_1)(unsafe-car lst_271))" -"((rest_148)(unsafe-cdr lst_271)))" -"(let-values(((ht_129)" -"(let-values(((ht_130) ht_128))" -"(let-values(((ht_120)" +"(if(pair? lst_273)" +"(let-values(((submod_1)(unsafe-car lst_273))" +"((rest_148)(unsafe-cdr lst_273)))" +"(let-values(((ht_128)" +"(let-values(((ht_129) ht_127))" +"(let-values(((ht_119)" "(let-values()" "(let-values(((name_53)" "(module-compiled-immediate-name" " submod_1)))" -"(if(hash-ref ht_130 name_53 #f)" +"(if(hash-ref ht_129 name_53 #f)" "(let-values()" "(raise-arguments-error" " 'module-compiled-submodules" @@ -35173,16 +35223,16 @@ static const char *startup_source = " name_53))" "(let-values()" "(hash-set" -" ht_130" +" ht_129" " name_53" "(compiled->linklet-directory-or-bundle" " submod_1))))))))" -"(values ht_120)))))" -"(if(not #f)(for-loop_50 ht_129 rest_148) ht_129)))" -" ht_128)))))" -" for-loop_50)" +"(values ht_119)))))" +"(if(not #f)(for-loop_240 ht_128 rest_148) ht_128)))" +" ht_127)))))" +" for-loop_240)" " '#hasheq()" -" lst_173)))" +" lst_175)))" " #f" " main_0))))))))))" "(define-values" @@ -35234,9 +35284,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_224)(symbol? name_54)))" -"(if or-part_224" -" or-part_224" +"(if(let-values(((or-part_210)(symbol? name_54)))" +"(if or-part_210" +" or-part_210" "(if(pair? name_54)(if(list? name_54)(andmap2 symbol? name_54) #f) #f)))" "(void)" "(let-values()" @@ -35270,38 +35320,38 @@ static const char *startup_source = "(let-values()" "(if(1/linklet-directory? c_13)" "(let-values()" -"(let-values(((ht_131)(1/linklet-directory->hash c_13)))" -"(let-values(((bh_0)(1/linklet-bundle->hash(hash-ref ht_131 #f))))" +"(let-values(((ht_130)(1/linklet-directory->hash c_13)))" +"(let-values(((bh_0)(1/linklet-bundle->hash(hash-ref ht_130 #f))))" "(let-values(((names_1)(hash-ref bh_0(if non-star?_0 'pre 'post) null)))" "(reverse$1" -"(let-values(((lst_86) names_1))" +"(let-values(((lst_87) names_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_86)))" -"((letrec-values(((for-loop_105)" -"(lambda(fold-var_65 lst_87)" +"(let-values()(check-list lst_87)))" +"((letrec-values(((for-loop_104)" +"(lambda(fold-var_67 lst_88)" "(begin" " 'for-loop" -"(if(pair? lst_87)" -"(let-values(((name_55)(unsafe-car lst_87))" -"((rest_41)(unsafe-cdr lst_87)))" -"(let-values(((fold-var_66)" -"(let-values(((fold-var_27) fold-var_65))" +"(if(pair? lst_88)" +"(let-values(((name_55)(unsafe-car lst_88))" +"((rest_41)(unsafe-cdr lst_88)))" +"(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_131 name_55))" +"(hash-ref ht_130 name_55))" " fold-var_27))))" "(values fold-var_28)))))" "(if(not #f)" -"(for-loop_105 fold-var_66 rest_41)" -" fold-var_66)))" -" fold-var_65)))))" -" for-loop_105)" +"(for-loop_104 fold-var_68 rest_41)" +" fold-var_68)))" +" fold-var_67)))))" +" for-loop_104)" " null" -" lst_86))))))))" +" lst_87))))))))" "(let-values() null)))))))" "((c_38 non-star?_1 submods_1)" "(begin" @@ -35458,16 +35508,16 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_38 end_27 inc_21)))" "((letrec-values(((for-loop_190)" -"(lambda(table_198 pos_100)" +"(lambda(table_64 pos_100)" "(begin" " 'for-loop" "(if(< pos_100 end_27)" "(let-values(((phase-level_20) pos_100))" -"(let-values(((table_63)" -"(let-values(((table_64) table_198))" -"(let-values(((table_16)" +"(let-values(((table_67)" +"(let-values(((table_202) table_64))" +"(let-values(((table_203)" "(let-values()" -"(let-values(((key_76 val_65)" +"(let-values(((key_75 val_65)" "(let-values()" "(let-values(((linklet_0)" "(hash-ref" @@ -35480,10 +35530,13 @@ static const char *startup_source = "(1/linklet-export-variables" " linklet_0)" " null))))))" -"(hash-set table_64 key_76 val_65)))))" -"(values table_16)))))" -"(if(not #f)(for-loop_190 table_63(+ pos_100 inc_21)) table_63)))" -" table_198)))))" +"(hash-set" +" table_202" +" key_75" +" val_65)))))" +"(values table_203)))))" +"(if(not #f)(for-loop_190 table_67(+ pos_100 inc_21)) table_67)))" +" table_64)))))" " for-loop_190)" " '#hash()" " start_38)))))))))))))" @@ -35561,7 +35614,7 @@ static const char *startup_source = " cctx12_1)" "(begin" " 'compile-module13" -"(let-values(((p_37) p11_1))" +"(let-values(((p_36) p11_1))" "(let-values(((cctx_16) cctx12_1))" "(let-values(((force-linklet-directory?_0)(if force-linklet-directory?6_0 force-linklet-directory?1_0 #f)))" "(let-values(((serializable?_2)(if serializable?7_0 serializable?2_0 #f)))" @@ -35573,41 +35626,41 @@ 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_56)(syntax-e$1(parsed-module-name-id p_36))))" "(if parent-full-name_0" "(append" "(if(list? parent-full-name_0) parent-full-name_0(list parent-full-name_0))" "(list name_56))" " name_56))))" -"(let-values(((compiled-submodules_0)(parsed-module-compiled-submodules p_37)))" +"(let-values(((compiled-submodules_0)(parsed-module-compiled-submodules p_36)))" "(let-values(((get-submodules_0)" "(lambda(star?_0)" "(begin" " 'get-submodules" "(reverse$1" -"(let-values(((ht_124) compiled-submodules_0))" +"(let-values(((ht_123) compiled-submodules_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_124)))" -"((letrec-values(((for-loop_106)" -"(lambda(fold-var_67 i_154)" +"(let-values()(check-in-hash ht_123)))" +"((letrec-values(((for-loop_105)" +"(lambda(fold-var_69 i_152)" "(begin" " 'for-loop" -"(if i_154" +"(if i_152" "(let-values(((name_57 star?+compiled_0)" "(hash-iterate-key+value" -" ht_124" -" i_154)))" +" ht_123" +" i_152)))" "(let-values(((fold-var_34)" -"(let-values(((fold-var_155)" -" fold-var_67))" +"(let-values(((fold-var_157)" +" fold-var_69))" "(if(eq?" " star?_0" "(car star?+compiled_0))" "(let-values(((fold-var_9)" -" fold-var_155))" -"(let-values(((fold-var_68)" +" fold-var_157))" +"(let-values(((fold-var_70)" "(let-values()" "(cons" "(let-values()" @@ -35616,7 +35669,7 @@ static const char *startup_source = "(if(if need-compiled-submodule-rename?_0" "(not" "(parsed-module-compiled-module" -" p_37))" +" p_36))" " #f)" "(update-submodule-names" "(cdr" @@ -35626,20 +35679,20 @@ static const char *startup_source = "(cdr" " star?+compiled_0))))" " fold-var_9))))" -"(values fold-var_68)))" -" fold-var_155))))" +"(values fold-var_70)))" +" fold-var_157))))" "(if(not #f)" -"(for-loop_106" +"(for-loop_105" " fold-var_34" -"(hash-iterate-next ht_124 i_154))" +"(hash-iterate-next ht_123 i_152))" " fold-var_34)))" -" fold-var_67)))))" -" for-loop_106)" +" fold-var_69)))))" +" for-loop_105)" " null" -"(hash-iterate-first ht_124)))))))))" +"(hash-iterate-first ht_123)))))))))" "(let-values(((pre-submodules_0)(get-submodules_0 #f)))" "(let-values(((post-submodules_0)(get-submodules_0 #t)))" -"(let-values(((c1_25)(parsed-module-compiled-module p_37)))" +"(let-values(((c1_25)(parsed-module-compiled-module p_36)))" "(if c1_25" "((lambda(c_45)" "(let-values(((name_58 prefix_6)" @@ -35654,7 +35707,7 @@ static const char *startup_source = "(map2 cdr post-submodules_0)))))" " c1_25)" "(let-values()" -"(let-values(((p37_1) p_37)" +"(let-values(((p37_1) p_36)" "((cctx38_0) cctx_16)" "((full-module-name39_0) full-module-name_1)" "((force-linklet-directory?40_0) force-linklet-directory?_0)" @@ -35690,7 +35743,7 @@ static const char *startup_source = " cctx33_0)" "(begin" " 'compile-module-from-parsed34" -"(let-values(((p_47) p32_0))" +"(let-values(((p_46) p32_0))" "(let-values(((cctx_17) cctx33_0))" "(let-values(((full-module-name_2) full-module-name16_0))" "(let-values(((force-linklet-directory?_1) force-linklet-directory?17_0))" @@ -35703,16 +35756,16 @@ static const char *startup_source = "(let-values()" "(let-values()" "(let-values(((enclosing-self_0)(compile-context-module-self cctx_17)))" -"(let-values(((self_25)(parsed-module-self p_47)))" -"(let-values(((requires_5)(parsed-module-requires p_47)))" -"(let-values(((provides_11)(parsed-module-provides p_47)))" +"(let-values(((self_25)(parsed-module-self p_46)))" +"(let-values(((requires_5)(parsed-module-requires p_46)))" +"(let-values(((provides_11)(parsed-module-provides p_46)))" "(let-values(((encoded-root-expand-ctx-box_1)" -"(box(parsed-module-encoded-root-ctx p_47))))" -"(let-values(((body-context-simple?_0)(parsed-module-root-ctx-simple? p_47)))" +"(box(parsed-module-encoded-root-ctx p_46))))" +"(let-values(((body-context-simple?_0)(parsed-module-root-ctx-simple? p_46)))" "(let-values(((language-info_2)" "(filter-language-info" -"(syntax-property$1(parsed-s p_47) 'module-language))))" -"(let-values(((bodys_6)(parsed-module-body p_47)))" +"(syntax-property$1(parsed-s p_46) 'module-language))))" +"(let-values(((bodys_6)(parsed-module-body p_46)))" "(let-values(((empty-result-for-module->namespace?_0) #f))" "(let-values(((mpis_19)(make-module-path-index-table)))" "(let-values(((body-cctx_0)" @@ -35820,39 +35873,39 @@ static const char *startup_source = "(let-values(((ok?_25" " _69_0" " kw70_0)" -"(let-values(((s_384)" +"(let-values(((s_57)" "(parsed-s" " body_4)))" "(let-values(((orig-s_29)" -" s_384))" +" s_57))" "(let-values(((_69_1" " kw70_1)" -"(let-values(((s_385)" +"(let-values(((s_377)" "(if(syntax?$1" -" s_384)" +" s_57)" "(syntax-e$1" -" s_384)" -" s_384)))" +" s_57)" +" s_57)))" "(if(pair?" -" s_385)" +" s_377)" "(let-values(((_71_0)" -"(let-values(((s_56)" +"(let-values(((s_378)" "(car" -" s_385)))" -" s_56))" +" s_377)))" +" s_378))" "((kw72_0)" -"(let-values(((s_386)" +"(let-values(((s_379)" "(cdr" -" s_385)))" -"(let-values(((s_387)" +" s_377)))" +"(let-values(((s_380)" "(if(syntax?$1" -" s_386)" +" s_379)" "(syntax-e$1" -" s_386)" -" s_386)))" +" s_379)" +" s_379)))" "(let-values(((flat-s_18)" "(to-syntax-list.1" -" s_387)))" +" s_380)))" "(if(not" " flat-s_18)" "(let-values()" @@ -35874,7 +35927,7 @@ static const char *startup_source = " _69_1" " kw70_1))))))" "(begin" -"(let-values(((lst_272)" +"(let-values(((lst_274)" " kw70_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -35882,19 +35935,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_272)))" +" lst_274)))" "((letrec-values(((for-loop_13)" -"(lambda(lst_273)" +"(lambda(lst_275)" "(begin" " 'for-loop" "(if(pair?" -" lst_273)" +" lst_275)" "(let-values(((kw_0)" "(unsafe-car" -" lst_273))" +" lst_275))" "((rest_149)" "(unsafe-cdr" -" lst_273)))" +" lst_275)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -35931,22 +35984,22 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_13)" -" lst_272)))" +" lst_274)))" "(void)" " #f)))" "(let-values() #f))))" "((temp66_1)" "(lambda(mod-name_17 phase_91)" -"(let-values(((ht_132)" +"(let-values(((ht_131)" "(if modules-being-compiled_1" "(hash-ref" " modules-being-compiled_1" " mod-name_17" " #f)" " #f)))" -"(if ht_132" +"(if ht_131" "(hash-ref" -" ht_132" +" ht_131" " phase_91" " #f)" " #f))))" @@ -35988,31 +36041,31 @@ static const char *startup_source = "(hash-set!" " modules-being-compiled_1" "(1/module-path-index-resolve self_25)" -"(let-values(((ht_133)" +"(let-values(((ht_132)" " body-linklets_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_133)))" +"(check-in-hash ht_132)))" "((letrec-values(((for-loop_23)" -"(lambda(table_199" -" i_155)" +"(lambda(table_204" +" i_153)" "(begin" " 'for-loop" -"(if i_155" +"(if i_153" "(let-values(((phase_92" " linklet_6)" "(hash-iterate-key+value" -" ht_133" -" i_155)))" -"(let-values(((table_200)" -"(let-values(((table_201)" -" table_199))" -"(let-values(((table_202)" +" ht_132" +" i_153)))" +"(let-values(((table_205)" +"(let-values(((table_206)" +" table_204))" +"(let-values(((table_207)" "(let-values()" -"(let-values(((key_77" +"(let-values(((key_76" " val_66)" "(let-values()" "(values" @@ -36033,34 +36086,32 @@ static const char *startup_source = " #f)" " #f))))))" "(hash-set" -" table_201" -" key_77" +" table_206" +" key_76" " val_66)))))" "(values" -" table_202)))))" +" table_207)))))" "(if(not" " #f)" "(for-loop_23" -" table_200" +" table_205" "(hash-iterate-next" -" ht_133" -" i_155))" -" table_200)))" -" table_199)))))" +" ht_132" +" i_153))" +" table_205)))" +" table_204)))))" " for-loop_23)" " '#hasheq()" -"(hash-iterate-first ht_133))))))" +"(hash-iterate-first ht_132))))))" "(void))" "(values))))" "(let-values(((declaration-linklet_0)" "(if serializable?_3" "((if to-source?_4" " values" -"(lambda(s_388)" +"(lambda(s_62)" "(let-values()" -"(1/compile-linklet" -" s_388" -" 'decl))))" +"(1/compile-linklet s_62 'decl))))" "(list" " 'linklet" "(list" @@ -36111,12 +36162,12 @@ static const char *startup_source = " syntax-literals_4))" "((if to-source?_4" " values" -"(lambda(s_318)" +"(lambda(s_313)" "(let-values()" "(let-values(((linklet_7" " new-keys_1)" "(1/compile-linklet" -" s_318" +" s_313" " 'syntax-literals" "(vector" " deserialize-instance" @@ -36179,10 +36230,10 @@ static const char *startup_source = " syntax-literals_4))" "((if to-source?_4" " values" -"(lambda(s_389)" +"(lambda(s_381)" "(let-values()" "(1/compile-linklet" -" s_389" +" s_381" " 'syntax-literals-data))))" "(list*" " 'linklet" @@ -36211,10 +36262,10 @@ static const char *startup_source = "(if serializable?_3" "((if to-source?_4" " values" -"(lambda(s_204)" +"(lambda(s_199)" "(let-values()" "(1/compile-linklet" -" s_204" +" s_199" " 'data))))" "(list" " 'linklet" @@ -36240,10 +36291,10 @@ static const char *startup_source = "(hash-set" " bundle_2" " 'decl" -"(let-values(((or-part_266)" +"(let-values(((or-part_250)" " declaration-linklet_0))" -"(if or-part_266" -" or-part_266" +"(if or-part_250" +" or-part_250" " 'in-memory)))))" "(let-values(((bundle_4)" "(if data-linklet_0" @@ -36357,7 +36408,7 @@ static const char *startup_source = "((if to-source?_4" " values" " 1/hash->linklet-directory)" -"(let-values(((lst_204)" +"(let-values(((lst_206)" "(append" " pre-submodules_1" " post-submodules_1)))" @@ -36367,27 +36418,27 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_204)))" +" lst_206)))" "((letrec-values(((for-loop_122)" -"(lambda(ht_134" -" lst_274)" +"(lambda(ht_133" +" lst_276)" "(begin" " 'for-loop" "(if(pair?" -" lst_274)" +" lst_276)" "(let-values(((sm_0)" "(unsafe-car" -" lst_274))" +" lst_276))" "((rest_150)" "(unsafe-cdr" -" lst_274)))" +" lst_276)))" +"(let-values(((ht_134)" "(let-values(((ht_135)" -"(let-values(((ht_136)" -" ht_134))" -"(let-values(((ht_125)" +" ht_133))" +"(let-values(((ht_124)" "(let-values()" "(hash-set" -" ht_136" +" ht_135" "(car" " sm_0)" "((if to-source?_4" @@ -36396,17 +36447,17 @@ static const char *startup_source = "(cdr" " sm_0))))))" "(values" -" ht_125)))))" +" ht_124)))))" "(if(not" " #f)" "(for-loop_122" -" ht_135" +" ht_134" " rest_150)" -" ht_135)))" -" ht_134)))))" +" ht_134)))" +" ht_133)))))" " for-loop_122)" "(hasheq #f bundle_1)" -" lst_204))))))))" +" lst_206))))))))" "(if to-source?_4" "(let-values() ld_4)" "(let-values()" @@ -36438,23 +36489,23 @@ static const char *startup_source = "(lambda(modules-being-compiled_2 pre-submodules_2 self_26)" "(begin" "(begin" -"(let-values(((lst_275) pre-submodules_2))" +"(let-values(((lst_277) pre-submodules_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_275)))" -"((letrec-values(((for-loop_242)" -"(lambda(lst_276)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_277)))" +"((letrec-values(((for-loop_241)" +"(lambda(lst_278)" "(begin" " 'for-loop" -"(if(pair? lst_276)" -"(let-values(((s_105)(unsafe-car lst_276))((rest_151)(unsafe-cdr lst_276)))" +"(if(pair? lst_278)" +"(let-values(((s_152)(unsafe-car lst_278))((rest_151)(unsafe-cdr lst_278)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((name_60)(car s_105)))" -"(let-values(((cim_10)(cdr s_105)))" +"(let-values(((name_60)(car s_152)))" +"(let-values(((cim_10)(cdr s_152)))" "(let-values(((phase-to-link-module-uses_5)" "(compiled-in-memory-phase-to-link-module-uses" " cim_10)))" @@ -36475,7 +36526,7 @@ static const char *startup_source = " modules-being-compiled_2" "(1/module-path-index-resolve" " sm-self_0)" -"(let-values(((ht_137)" +"(let-values(((ht_136)" "(1/linklet-bundle->hash" "(if(1/linklet-directory?" " ld_5)" @@ -36489,9 +36540,9 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_137)))" -"((letrec-values(((for-loop_243)" -"(lambda(table_203" +"(check-in-hash ht_136)))" +"((letrec-values(((for-loop_242)" +"(lambda(table_208" " i_5)" "(begin" " 'for-loop" @@ -36499,18 +36550,18 @@ static const char *startup_source = "(let-values(((phase_2" " linklet_8)" "(hash-iterate-key+value" -" ht_137" +" ht_136" " i_5)))" -"(let-values(((table_204)" -"(let-values(((table_205)" -" table_203))" +"(let-values(((table_209)" +"(let-values(((table_210)" +" table_208))" "(if(number?" " phase_2)" -"(let-values(((table_206)" -" table_205))" -"(let-values(((table_46)" +"(let-values(((table_211)" +" table_210))" +"(let-values(((table_48)" "(let-values()" -"(let-values(((key_78" +"(let-values(((key_77" " val_67)" "(let-values()" "(values" @@ -36533,31 +36584,31 @@ static const char *startup_source = " #f)" " #f))))))" "(hash-set" -" table_206" -" key_78" +" table_211" +" key_77" " val_67)))))" "(values" -" table_46)))" -" table_205))))" +" table_48)))" +" table_210))))" "(if(not" " #f)" -"(for-loop_243" -" table_204" +"(for-loop_242" +" table_209" "(hash-iterate-next" -" ht_137" +" ht_136" " i_5))" -" table_204)))" -" table_203)))))" -" for-loop_243)" +" table_209)))" +" table_208)))))" +" for-loop_242)" " '#hasheq()" "(hash-iterate-first" -" ht_137))))))))))))" +" ht_136))))))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_242 rest_151)(values))))" +"(if(not #f)(for-loop_241 rest_151)(values))))" "(values))))))" -" for-loop_242)" -" lst_275)))" +" for-loop_241)" +" lst_277)))" "(void)))))" "(define-values" "(filter-language-info)" @@ -36580,59 +36631,59 @@ static const char *startup_source = "(if(1/linklet-bundle? c_31)" "(let-values()" "(1/hash->linklet-bundle" -"(let-values(((ht_138)(1/linklet-bundle->hash c_31)))" +"(let-values(((ht_137)(1/linklet-bundle->hash c_31)))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-in-hash ht_137)))" +"((letrec-values(((for-loop_243)" +"(lambda(table_212 i_154)" +"(begin" +" 'for-loop" +"(if i_154" +"(let-values(((k_33 v_68)(hash-iterate-key+value ht_137 i_154)))" +"(let-values(((table_213)" +"(let-values(((table_214) table_212))" +"(let-values(((table_215)" +"(let-values()" +"(let-values(((key_78 val_68)" +"(let-values()" +"(if(1/linklet? v_68)" +"(let-values()" +"(values" +" k_33" +"(1/recompile-linklet" +" v_68)))" +"(let-values()" +"(values k_33 v_68))))))" +"(hash-set table_214 key_78 val_68)))))" +"(values table_215)))))" +"(if(not #f)" +"(for-loop_243 table_213(hash-iterate-next ht_137 i_154))" +" table_213)))" +" table_212)))))" +" for-loop_243)" +" '#hasheq()" +"(hash-iterate-first ht_137))))))" +"(if(1/linklet-directory? c_31)" +"(let-values()" +"(1/hash->linklet-directory" +"(let-values(((ht_138)(1/linklet-directory->hash c_31)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_138)))" "((letrec-values(((for-loop_244)" -"(lambda(table_207 i_156)" +"(lambda(table_216 i_155)" "(begin" " 'for-loop" -"(if i_156" -"(let-values(((k_33 v_66)(hash-iterate-key+value ht_138 i_156)))" -"(let-values(((table_208)" -"(let-values(((table_209) table_207))" -"(let-values(((table_210)" +"(if i_155" +"(let-values(((k_34 v_1)(hash-iterate-key+value ht_138 i_155)))" +"(let-values(((table_217)" +"(let-values(((table_218) table_216))" +"(let-values(((table_219)" "(let-values()" -"(let-values(((key_79 val_68)" -"(let-values()" -"(if(1/linklet? v_66)" -"(let-values()" -"(values" -" k_33" -"(1/recompile-linklet" -" v_66)))" -"(let-values()" -"(values k_33 v_66))))))" -"(hash-set table_209 key_79 val_68)))))" -"(values table_210)))))" -"(if(not #f)" -"(for-loop_244 table_208(hash-iterate-next ht_138 i_156))" -" table_208)))" -" table_207)))))" -" for-loop_244)" -" '#hasheq()" -"(hash-iterate-first ht_138))))))" -"(if(1/linklet-directory? c_31)" -"(let-values()" -"(1/hash->linklet-directory" -"(let-values(((ht_139)(1/linklet-directory->hash c_31)))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-in-hash ht_139)))" -"((letrec-values(((for-loop_245)" -"(lambda(table_211 i_157)" -"(begin" -" 'for-loop" -"(if i_157" -"(let-values(((k_34 v_1)(hash-iterate-key+value ht_139 i_157)))" -"(let-values(((table_212)" -"(let-values(((table_213) table_211))" -"(let-values(((table_214)" -"(let-values()" -"(let-values(((key_80 val_69)" +"(let-values(((key_79 val_69)" "(let-values()" "(if(1/compiled-expression?" " v_1)" @@ -36643,15 +36694,15 @@ static const char *startup_source = " v_1)))" "(let-values()" "(values k_34 v_1))))))" -"(hash-set table_213 key_80 val_69)))))" -"(values table_214)))))" +"(hash-set table_218 key_79 val_69)))))" +"(values table_219)))))" "(if(not #f)" -"(for-loop_245 table_212(hash-iterate-next ht_139 i_157))" -" table_212)))" -" table_211)))))" -" for-loop_245)" +"(for-loop_244 table_217(hash-iterate-next ht_138 i_155))" +" table_217)))" +" table_216)))))" +" for-loop_244)" " '#hasheq()" -"(hash-iterate-first ht_139))))))" +"(hash-iterate-first ht_138))))))" "(let-values() c_31)))))))" "(define-values" "(create-compiled-in-memorys-using-shared-data)" @@ -36668,7 +36719,7 @@ static const char *startup_source = "((temp4_1)(namespace-bulk-binding-registry ns_59))" "((temp5_3)(current-code-inspector)))" "(make-eager-instance-instance11.1 temp4_1 temp2_3 temp5_3 ns1_1 temp3_3))))))" -"(let-values(((data_0)(lambda(key_81)(begin 'data(1/instance-variable-value data-instance_5 key_81)))))" +"(let-values(((data_0)(lambda(key_80)(begin 'data(1/instance-variable-value data-instance_5 key_80)))))" "(let-values(((mpi-vector_0)(data_0 mpi-vector-id)))" "(let-values(((mpi-vector-trees_0)(data_0 'mpi-vector-trees)))" "(let-values(((phase-to-link-modules-vector_0)(data_0 'phase-to-link-modules-vector)))" @@ -36684,9 +36735,9 @@ static const char *startup_source = "(begin" " 'construct-compiled-in-memory" "(let-values(((is-module?_0)" -"(let-values(((or-part_72)(1/linklet-bundle? ld_6)))" -"(if or-part_72" -" or-part_72" +"(let-values(((or-part_77)(1/linklet-bundle? ld_6)))" +"(if or-part_77" +" or-part_77" "(let-values(((b_75)" "(hash-ref" "(1/linklet-directory->hash ld_6)" @@ -36711,16 +36762,16 @@ static const char *startup_source = "(begin" " 'map-construct-compiled-in-memory" "(reverse$1" -"(let-values(((lst_265) l_10)" -"((lst_89)" +"(let-values(((lst_267) l_10)" +"((lst_90)" "(vector-ref" " mpi-vector-tree_0" " vec-pos_0))" -"((lst_163)" +"((lst_165)" "(vector-ref" " phase-to-link-modules-tree_0" " vec-pos_0))" -"((lst_263)" +"((lst_265)" "(vector-ref" " syntax-literals-tree_0" " vec-pos_0)))" @@ -36728,44 +36779,44 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" +"(let-values()(check-list lst_267)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_90)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_165)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" "(let-values()(check-list lst_265)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_89)))" -"(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_263)))" "((letrec-values(((for-loop_230)" -"(lambda(fold-var_155" -" lst_266" +"(lambda(fold-var_157" +" lst_268" " lst_24" -" lst_102" -" lst_90)" +" lst_103" +" lst_91)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_266)" +" lst_268)" "(if(pair?" " lst_24)" "(if(pair?" -" lst_102)" +" lst_103)" "(pair?" -" lst_90)" +" lst_91)" " #f)" " #f)" " #f)" "(let-values(((sub-ld_0)" "(unsafe-car" -" lst_266))" +" lst_268))" "((rest_152)" "(unsafe-cdr" -" lst_266))" +" lst_268))" "((mpi-vector-tree_1)" "(unsafe-car" " lst_24))" @@ -36774,20 +36825,20 @@ static const char *startup_source = " lst_24))" "((phase-to-link-modules-tree_1)" "(unsafe-car" -" lst_102))" +" lst_103))" "((rest_89)" "(unsafe-cdr" -" lst_102))" +" lst_103))" "((syntax-literals-tree_1)" "(unsafe-car" -" lst_90))" +" lst_91))" "((rest_37)" "(unsafe-cdr" -" lst_90)))" -"(let-values(((fold-var_164)" -"(let-values(((fold-var_165)" -" fold-var_155))" +" lst_91)))" "(let-values(((fold-var_166)" +"(let-values(((fold-var_167)" +" fold-var_157))" +"(let-values(((fold-var_168)" "(let-values()" "(cons" "(let-values()" @@ -36796,24 +36847,24 @@ static const char *startup_source = " mpi-vector-tree_1" " phase-to-link-modules-tree_1" " syntax-literals-tree_1))" -" fold-var_165))))" +" fold-var_167))))" "(values" -" fold-var_166)))))" +" fold-var_168)))))" "(if(not #f)" "(for-loop_230" -" fold-var_164" +" fold-var_166" " rest_152" " rest_49" " rest_89" " rest_37)" -" fold-var_164)))" -" fold-var_155)))))" +" fold-var_166)))" +" fold-var_157)))))" " for-loop_230)" " null" -" lst_265" -" lst_89" -" lst_163" -" lst_263))))))))" +" lst_267" +" lst_90" +" lst_165" +" lst_265))))))))" "(compiled-in-memory1.1" " ld_6" " #f" @@ -36833,7 +36884,7 @@ static const char *startup_source = " 'for/vector" " \"exact-nonnegative-integer?\"" " len_29)))" -"(let-values(((v_62)(make-vector len_29 0)))" +"(let-values(((v_64)(make-vector len_29 0)))" "(begin" "(if(zero? len_29)" "(void)" @@ -36849,8 +36900,8 @@ static const char *startup_source = " vec_63))))))" "(begin" " #f" -"((letrec-values(((for-loop_103)" -"(lambda(i_158 pos_101)" +"((letrec-values(((for-loop_102)" +"(lambda(i_156 pos_101)" "(begin" " 'for-loop" "(if(unsafe-fx<" @@ -36860,43 +36911,43 @@ static const char *startup_source = "(unsafe-vector-ref" " vec_62" " pos_101)))" -"(let-values(((i_159)" -"(let-values(((i_160)" -" i_158))" +"(let-values(((i_157)" "(let-values(((i_59)" +" i_156))" +"(let-values(((i_158)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_62" -" i_160" +" v_64" +" i_59" "(let-values()" "(vector-ref" " mpi-vector_0" " pos_102)))" "(unsafe-fx+" " 1" -" i_160)))))" -"(values" " i_59)))))" +"(values" +" i_158)))))" "(if(if(not" "((lambda x_19" "(unsafe-fx=" -" i_159" +" i_157" " len_29))" " pos_102))" "(not #f)" " #f)" -"(for-loop_103" -" i_159" +"(for-loop_102" +" i_157" "(unsafe-fx+" " 1" " pos_101))" -" i_159)))" -" i_158)))))" -" for-loop_103)" +" i_157)))" +" i_156)))))" +" for-loop_102)" " 0" " 0)))))" -" v_62))))" +" v_64))))" "(let-values(((len_31)(cdr syntax-literals-spec_0)))" "(begin" "(if(exact-nonnegative-integer? len_31)" @@ -36921,17 +36972,17 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_15 end_28 inc_22)))" -"((letrec-values(((for-loop_246)" -"(lambda(i_161 pos_103)" +"((letrec-values(((for-loop_245)" +"(lambda(i_159 pos_103)" "(begin" " 'for-loop" "(if(< pos_103 end_28)" "(let-values(((i_20)" " pos_103))" -"(let-values(((i_162)" +"(let-values(((i_160)" "(let-values(((i_34)" -" i_161))" -"(let-values(((i_163)" +" i_159))" +"(let-values(((i_161)" "(let-values()" "(begin" "(unsafe-vector*-set!" @@ -36950,23 +37001,23 @@ static const char *startup_source = " 1" " i_34)))))" "(values" -" i_163)))))" +" i_161)))))" "(if(if(not" -"((lambda x_69" +"((lambda x_68" "(unsafe-fx=" -" i_162" +" i_160" " len_31))" " i_20))" "(not #f)" " #f)" -"(for-loop_246" -" i_162" +"(for-loop_245" +" i_160" "(+" " pos_103" " inc_22))" -" i_162)))" -" i_161)))))" -" for-loop_246)" +" i_160)))" +" i_159)))))" +" for-loop_245)" " 0" " start_15)))))" " v_34))))" @@ -36993,18 +37044,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_177) names_2))" +"(let-values(((lst_179) names_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_177)))" -"((letrec-values(((for-loop_247)" -"(lambda(fold-var_5 lst_277)" +"(let-values()(check-list lst_179)))" +"((letrec-values(((for-loop_246)" +"(lambda(fold-var_5 lst_279)" "(begin" " 'for-loop" -"(if(pair? lst_277)" -"(let-values(((name_44)(unsafe-car lst_277))" -"((rest_153)(unsafe-cdr lst_277)))" +"(if(pair? lst_279)" +"(let-values(((name_44)(unsafe-car lst_279))" +"((rest_153)(unsafe-cdr lst_279)))" "(let-values(((fold-var_227)" "(let-values(((fold-var_228) fold-var_5))" "(let-values(((fold-var_229)" @@ -37020,11 +37071,11 @@ static const char *startup_source = " name_44))))" " fold-var_228))))" "(values fold-var_229)))))" -"(if(not #f)(for-loop_247 fold-var_227 rest_153) fold-var_227)))" +"(if(not #f)(for-loop_246 fold-var_227 rest_153) fold-var_227)))" " fold-var_5)))))" -" for-loop_247)" +" for-loop_246)" " null" -" lst_177))))))))))))))" +" lst_179))))))))))))))" "(define-values" "(eval-single-top)" "(lambda(c_31 ns_42)" @@ -37147,7 +37198,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_39 end_29 inc_23)))" -"((letrec-values(((for-loop_235)" +"((letrec-values(((for-loop_26)" "(lambda(prev-thunk_0 pos_104)" "(begin" " 'for-loop" @@ -37172,7 +37223,7 @@ static const char *startup_source = " import-instances_1)" "(let-values(((mis_6" " is_5)" -"(let-values(((lst_224)" +"(let-values(((lst_226)" " module-uses_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -37180,21 +37231,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_224)))" -"((letrec-values(((for-loop_99)" +" lst_226)))" +"((letrec-values(((for-loop_98)" "(lambda(mis_7" " is_6" -" lst_225)" +" lst_227)" "(begin" " 'for-loop" "(if(pair?" -" lst_225)" +" lst_227)" "(let-values(((mu_9)" "(unsafe-car" -" lst_225))" +" lst_227))" "((rest_121)" "(unsafe-cdr" -" lst_225)))" +" lst_227)))" "(let-values(((mis_8" " is_7)" "(let-values(((mis_9)" @@ -37238,7 +37289,7 @@ static const char *startup_source = " is_9)))))" "(if(not" " #f)" -"(for-loop_99" +"(for-loop_98" " mis_8" " is_7" " rest_121)" @@ -37248,10 +37299,10 @@ static const char *startup_source = "(values" " mis_7" " is_6))))))" -" for-loop_99)" +" for-loop_98)" " null" " null" -" lst_224)))))" +" lst_226)))))" "(values" "(reverse$1" " mis_6)" @@ -37409,12 +37460,12 @@ static const char *startup_source = "(values" " prev-thunk_3)))))" "(if(not #f)" -"(for-loop_235" +"(for-loop_26" " prev-thunk_1" "(+ pos_104 inc_23))" " prev-thunk_1)))" " prev-thunk_0)))))" -" for-loop_235)" +" for-loop_26)" " void" " start_39)))))" "(thunk_3 as-tail?_2))))))))))))))))))))" @@ -37437,7 +37488,7 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_32)))" -"(let-values(((v_181)(make-vector len_32 0)))" +"(let-values(((v_182)(make-vector len_32 0)))" "(begin" "(if(zero? len_32)" "(void)" @@ -37449,44 +37500,44 @@ static const char *startup_source = "(values vec_65(unsafe-vector-length vec_65))))))" "(begin" " #f" -"((letrec-values(((for-loop_248)" -"(lambda(i_164 pos_105)" +"((letrec-values(((for-loop_247)" +"(lambda(i_162 pos_105)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_105 len_33)" -"(let-values(((s_390)" +"(let-values(((s_382)" "(unsafe-vector-ref vec_64 pos_105)))" +"(let-values(((i_163)" +"(let-values(((i_164) i_162))" "(let-values(((i_165)" -"(let-values(((i_166) i_164))" -"(let-values(((i_167)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_181" -" i_166" +" v_182" +" i_164" "(let-values()" "(swap-top-level-scopes" -" s_390" +" s_382" "(compiled-in-memory-namespace-scopes" " cim_11)" " to-ns_0)))" "(unsafe-fx+" " 1" -" i_166)))))" -"(values i_167)))))" +" i_164)))))" +"(values i_165)))))" "(if(if(not" -"((lambda x_70" -"(unsafe-fx= i_165 len_32))" -" s_390))" +"((lambda x_69" +"(unsafe-fx= i_163 len_32))" +" s_382))" "(not #f)" " #f)" -"(for-loop_248 i_165(unsafe-fx+ 1 pos_105))" -" i_165)))" -" i_164)))))" -" for-loop_248)" +"(for-loop_247 i_163(unsafe-fx+ 1 pos_105))" +" i_163)))" +" i_162)))))" +" for-loop_247)" " 0" " 0)))))" -" v_181)))))))))" +" v_182)))))))))" "(1/make-instance" " 'link" " #f" @@ -37499,79 +37550,79 @@ static const char *startup_source = "(define-values(get-not-available)(lambda()(begin not-available)))" "(define-values" "(can-direct-eval?)" -"(lambda(p_44 ns_42 self-mpi_3)" +"(lambda(p_43 ns_42 self-mpi_3)" "(begin" -"(if(parsed-app? p_44)" +"(if(parsed-app? p_43)" "(let-values()" -"(if(can-direct-eval?(parsed-app-rator p_44) ns_42 self-mpi_3)" -"(let-values(((lst_101)(parsed-app-rands p_44)))" +"(if(can-direct-eval?(parsed-app-rator p_43) ns_42 self-mpi_3)" +"(let-values(((lst_102)(parsed-app-rands p_43)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_101)))" -"((letrec-values(((for-loop_111)" -"(lambda(result_112 lst_6)" +"(let-values()(check-list lst_102)))" +"((letrec-values(((for-loop_110)" +"(lambda(result_111 lst_6)" "(begin" " 'for-loop" "(if(pair? lst_6)" "(let-values(((r_42)(unsafe-car lst_6))((rest_48)(unsafe-cdr lst_6)))" "(let-values(((result_80)" "(let-values()" -"(let-values(((result_113)" +"(let-values(((result_112)" "(let-values()" "(let-values()" "(can-direct-eval? r_42 ns_42 self-mpi_3)))))" -"(values result_113)))))" -"(if(if(not((lambda x_71(not result_80)) r_42))(not #f) #f)" -"(for-loop_111 result_80 rest_48)" +"(values result_112)))))" +"(if(if(not((lambda x_70(not result_80)) r_42))(not #f) #f)" +"(for-loop_110 result_80 rest_48)" " result_80)))" -" result_112)))))" -" for-loop_111)" +" result_111)))))" +" for-loop_110)" " #t" -" lst_101)))" +" lst_102)))" " #f))" -"(if(parsed-id? p_44)" -"(let-values()(not(eq?(get-id-value p_44 ns_42 self-mpi_3) not-available)))" -"(if(parsed-quote? p_44)" +"(if(parsed-id? p_43)" +"(let-values()(not(eq?(get-id-value p_43 ns_42 self-mpi_3) not-available)))" +"(if(parsed-quote? p_43)" "(let-values() #t)" -"(if(parsed-quote-syntax? p_44)(let-values() #t)(let-values() #f))))))))" +"(if(parsed-quote-syntax? p_43)(let-values() #t)(let-values() #f))))))))" "(define-values" "(direct-eval)" -"(lambda(p_48 ns_71 self-mpi_4)" +"(lambda(p_47 ns_71 self-mpi_4)" "(begin" -"(if(parsed-app? p_48)" +"(if(parsed-app? p_47)" "(let-values()" "(apply" -"(direct-eval(parsed-app-rator p_48) ns_71 self-mpi_4)" +"(direct-eval(parsed-app-rator p_47) ns_71 self-mpi_4)" "(reverse$1" -"(let-values(((lst_78)(parsed-app-rands p_48)))" +"(let-values(((lst_79)(parsed-app-rands p_47)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_78)))" -"((letrec-values(((for-loop_96)" -"(lambda(fold-var_230 lst_79)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_79)))" +"((letrec-values(((for-loop_95)" +"(lambda(fold-var_230 lst_80)" "(begin" " 'for-loop" -"(if(pair? lst_79)" -"(let-values(((r_8)(unsafe-car lst_79))((rest_36)(unsafe-cdr lst_79)))" -"(let-values(((fold-var_221)" -"(let-values(((fold-var_65) fold-var_230))" +"(if(pair? lst_80)" +"(let-values(((r_8)(unsafe-car lst_80))((rest_36)(unsafe-cdr lst_80)))" +"(let-values(((fold-var_224)" +"(let-values(((fold-var_67) fold-var_230))" "(let-values(((fold-var_26)" "(let-values()" "(cons" "(let-values()" "(direct-eval r_8 ns_71 self-mpi_4))" -" fold-var_65))))" +" fold-var_67))))" "(values fold-var_26)))))" -"(if(not #f)(for-loop_96 fold-var_221 rest_36) fold-var_221)))" +"(if(not #f)(for-loop_95 fold-var_224 rest_36) fold-var_224)))" " fold-var_230)))))" -" for-loop_96)" +" for-loop_95)" " null" -" lst_78))))))" -"(if(parsed-id? p_48)" -"(let-values()(get-id-value p_48 ns_71 self-mpi_4))" -"(if(parsed-quote? p_48)" -"(let-values()(parsed-quote-datum p_48))" -"(if(parsed-quote-syntax? p_48)(let-values()(parsed-quote-syntax-datum p_48))(let-values() #f))))))))" +" lst_79))))))" +"(if(parsed-id? p_47)" +"(let-values()(get-id-value p_47 ns_71 self-mpi_4))" +"(if(parsed-quote? p_47)" +"(let-values()(parsed-quote-datum p_47))" +"(if(parsed-quote-syntax? p_47)(let-values()(parsed-quote-syntax-datum p_47))(let-values() #f))))))))" "(define-values" "(get-id-value)" "(lambda(p_1 ns_72 self-mpi_5)" @@ -37579,11 +37630,11 @@ static const char *startup_source = "(let-values(((b_72)(parsed-id-binding p_1)))" "(if(parsed-primitive-id? p_1)" "(let-values()(hash-ref(1/primitive-table '#%kernel)(module-binding-sym b_72) get-not-available))" -"(if(let-values(((or-part_71)(parsed-top-id? p_1)))" -"(if or-part_71" -" or-part_71" -"(let-values(((or-part_72)(not b_72)))" -"(if or-part_72 or-part_72(eq? self-mpi_5(module-binding-module b_72))))))" +"(if(let-values(((or-part_76)(parsed-top-id? p_1)))" +"(if or-part_76" +" or-part_76" +"(let-values(((or-part_77)(not b_72)))" +"(if or-part_77 or-part_77(eq? self-mpi_5(module-binding-module b_72))))))" "(let-values()" "(namespace-get-variable" " ns_72" @@ -37657,14 +37708,25 @@ static const char *startup_source = "(define-values" "(runtime-instances)" " '(#%kernel #%paramz #%foreign #%unsafe #%flfxnum #%extfl #%network #%place #%futures))" -"(define-values(box-cons!)(lambda(b_16 v_66)(begin(set-box! b_16(cons v_66(unbox b_16))))))" +"(define-values(box-cons!)(lambda(b_16 v_68)(begin(set-box! b_16(cons v_68(unbox b_16))))))" "(define-values(box-clear!)(lambda(b_17)(begin(begin0(reverse$1(unbox b_17))(set-box! b_17 null)))))" "(define-values" "(struct:lift-context lift-context1.1 lift-context? lift-context-convert lift-context-lifts lift-context-module*-ok?)" "(let-values(((struct:_68 make-_68 ?_68 -ref_68 -set!_68)" "(let-values()" "(let-values()" -"(make-struct-type 'lift-context #f 3 0 #f null(current-inspector) #f '(0 1 2) #f 'lift-context)))))" +"(make-struct-type" +" 'lift-context" +" #f" +" 3" +" 0" +" #f" +"(list(cons prop:authentic #t))" +"(current-inspector)" +" #f" +" '(0 1 2)" +" #f" +" 'lift-context)))))" "(values" " struct:_68" " make-_68" @@ -37677,7 +37739,18 @@ static const char *startup_source = "(let-values(((struct:_69 make-_69 ?_69 -ref_69 -set!_69)" "(let-values()" "(let-values()" -"(make-struct-type 'lifted-bind #f 3 0 #f null(current-inspector) #f '(0 1 2) #f 'lifted-bind)))))" +"(make-struct-type" +" 'lifted-bind" +" #f" +" 3" +" 0" +" #f" +"(list(cons prop:authentic #t))" +"(current-inspector)" +" #f" +" '(0 1 2)" +" #f" +" 'lifted-bind)))))" "(values" " struct:_69" " make-_69" @@ -37707,25 +37780,25 @@ static const char *startup_source = "(lambda(ids_17 rhs_13 phase_95)" "(let-values(((keys_2)" "(reverse$1" -"(let-values(((lst_278) ids_17))" +"(let-values(((lst_280) ids_17))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_278)))" -"((letrec-values(((for-loop_249)" -"(lambda(fold-var_231 lst_279)" +"(let-values()(check-list lst_280)))" +"((letrec-values(((for-loop_248)" +"(lambda(fold-var_231 lst_281)" "(begin" " 'for-loop" -"(if(pair? lst_279)" -"(let-values(((id_58)(unsafe-car lst_279))" -"((rest_154)(unsafe-cdr lst_279)))" -"(let-values(((fold-var_81)" -"(let-values(((fold-var_82) fold-var_231))" +"(if(pair? lst_281)" +"(let-values(((id_58)(unsafe-car lst_281))" +"((rest_154)(unsafe-cdr lst_281)))" +"(let-values(((fold-var_83)" +"(let-values(((fold-var_84) fold-var_231))" "(let-values(((fold-var_232)" "(let-values()" "(cons" "(let-values()" -"(let-values(((key_82)" +"(let-values(((key_81)" "(let-values(((id32_0)" " id_58)" "((phase33_0)" @@ -37745,16 +37818,16 @@ static const char *startup_source = " lift-env_1" "(hash-set" "(unbox lift-env_1)" -" key_82" +" key_81" " variable))" -" key_82)))" -" fold-var_82))))" +" key_81)))" +" fold-var_84))))" "(values fold-var_232)))))" -"(if(not #f)(for-loop_249 fold-var_81 rest_154) fold-var_81)))" +"(if(not #f)(for-loop_248 fold-var_83 rest_154) fold-var_83)))" " fold-var_231)))))" -" for-loop_249)" +" for-loop_248)" " null" -" lst_278))))))" +" lst_280))))))" "(values ids_17(lifted-bind2.1 ids_17 keys_2 rhs_13)))))))" "(define-values" "(make-top-level-lift)" @@ -37766,18 +37839,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_280) ids_18))" +"(let-values(((lst_282) ids_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_280)))" -"((letrec-values(((for-loop_250)" -"(lambda(fold-var_233 lst_182)" +"(let-values()(check-list lst_282)))" +"((letrec-values(((for-loop_249)" +"(lambda(fold-var_233 lst_184)" "(begin" " 'for-loop" -"(if(pair? lst_182)" -"(let-values(((id_59)(unsafe-car lst_182))" -"((rest_155)(unsafe-cdr lst_182)))" +"(if(pair? lst_184)" +"(let-values(((id_59)(unsafe-car lst_184))" +"((rest_155)(unsafe-cdr lst_184)))" "(let-values(((fold-var_234)" "(let-values(((fold-var_235) fold-var_233))" "(let-values(((fold-var_236)" @@ -37790,12 +37863,12 @@ static const char *startup_source = " fold-var_235))))" "(values fold-var_236)))))" "(if(not #f)" -"(for-loop_250 fold-var_234 rest_155)" +"(for-loop_249 fold-var_234 rest_155)" " fold-var_234)))" " fold-var_233)))))" -" for-loop_250)" +" for-loop_249)" " null" -" lst_280))))))" +" lst_282))))))" "(let-values(((syms_20)(select-defined-syms-and-bind!/ctx tl-ids_1 ctx_11)))" "(values tl-ids_1(lifted-bind2.1 tl-ids_1 syms_20 rhs_14)))))))))" "(define-values" @@ -37804,15 +37877,15 @@ static const char *startup_source = "(begin" "(datum->syntax$1" " #f" -"(let-values(((lst_281)(reverse$1 lifts_3)))" +"(let-values(((lst_283)(reverse$1 lifts_3)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_281)))" -"((letrec-values(((for-loop_251)" -"(lambda(body_6 lst_191)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_283)))" +"((letrec-values(((for-loop_250)" +"(lambda(body_6 lst_193)" "(begin" " 'for-loop" -"(if(pair? lst_191)" -"(let-values(((lift_0)(unsafe-car lst_191))((rest_100)(unsafe-cdr lst_191)))" +"(if(pair? lst_193)" +"(let-values(((lift_0)(unsafe-car lst_193))((rest_100)(unsafe-cdr lst_193)))" "(let-values(((body_7)" "(let-values(((body_8) body_6))" "(let-values(((body_9)" @@ -37832,11 +37905,11 @@ static const char *startup_source = "(lifted-bind-rhs lift_0)))" " body_8)))))" "(values body_9)))))" -"(if(not #f)(for-loop_251 body_7 rest_100) body_7)))" +"(if(not #f)(for-loop_250 body_7 rest_100) body_7)))" " body_6)))))" -" for-loop_251)" +" for-loop_250)" " body_5" -" lst_281)))))))" +" lst_283)))))))" "(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)" @@ -37854,18 +37927,18 @@ static const char *startup_source = "(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_97) 'begin)" "(append" "(reverse$1" -"(let-values(((lst_282) lifts_4))" +"(let-values(((lst_284) lifts_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_282)))" +"(let-values()(check-list lst_284)))" "((letrec-values(((for-loop_194)" -"(lambda(fold-var_237 lst_170)" +"(lambda(fold-var_237 lst_172)" "(begin" " 'for-loop" -"(if(pair? lst_170)" -"(let-values(((lift_1)(unsafe-car lst_170))" -"((rest_156)(unsafe-cdr lst_170)))" +"(if(pair? lst_172)" +"(let-values(((lift_1)(unsafe-car lst_172))" +"((rest_156)(unsafe-cdr lst_172)))" "(let-values(((fold-var_3)" "(let-values(((fold-var_238) fold-var_237))" "(let-values(((fold-var_239)" @@ -37893,7 +37966,7 @@ static const char *startup_source = " fold-var_237)))))" " for-loop_194)" " null" -" lst_282))))" +" lst_284))))" "(list(adjust-body_0 body_10))))))))))))))" "(define-values" "(get-lifts-as-lists)" @@ -37942,7 +38015,7 @@ static const char *startup_source = " 3" " 0" " #f" -" null" +"(list(cons prop:authentic #t))" "(current-inspector)" " #f" " '(0 1 2)" @@ -37963,34 +38036,34 @@ static const char *startup_source = "(lambda(module-lifts_1)(begin(box-clear!(module-lift-context-lifts module-lifts_1)))))" "(define-values" "(add-lifted-module!)" -"(lambda(module-lifts_2 s_391 phase_99)" +"(lambda(module-lifts_2 s_63 phase_99)" "(begin" "(begin" -"(if(let-values(((or-part_228)" +"(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_228" -" or-part_228" +"(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_391 phase_99)))" -"(if(equal? tmp_29 'module)" +"(let-values(((tmp_30)(core-form-sym s_63 phase_99)))" +"(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" " \"cannot lift `module*' to a top-level context\"" " \"syntax\"" -" s_391))" +" s_63))" "(let-values()" -" (raise-arguments-error 'syntax-local-lift-module \"not a `module' declaration\" \"syntax\" s_391)))))))" +" (raise-arguments-error 'syntax-local-lift-module \"not a `module' declaration\" \"syntax\" s_63)))))))" "(if(module-lift-context? module-lifts_2)" -"(let-values()(box-cons!(module-lift-context-lifts module-lifts_2) s_391))" +"(let-values()(box-cons!(module-lift-context-lifts module-lifts_2) s_63))" "(if(lift-context? module-lifts_2)" -"(let-values()(box-cons!(lift-context-lifts module-lifts_2) s_391))" +"(let-values()(box-cons!(lift-context-lifts module-lifts_2) s_63))" " (let-values () (error \"internal error: unrecognized lift-context type for module lift\"))))))))" "(define-values" "(struct:require-lift-context" @@ -38008,7 +38081,7 @@ static const char *startup_source = " 3" " 0" " #f" -" null" +"(list(cons prop:authentic #t))" "(current-inspector)" " #f" " '(0 1 2)" @@ -38029,11 +38102,11 @@ static const char *startup_source = "(lambda(require-lifts_1)(begin(box-clear!(require-lift-context-requires require-lifts_1)))))" "(define-values" "(add-lifted-require!)" -"(lambda(require-lifts_2 s_392 phase_100)" +"(lambda(require-lifts_2 s_383 phase_100)" "(begin" "(begin" -"((require-lift-context-do-require require-lifts_2) s_392 phase_100)" -"(box-cons!(require-lift-context-requires require-lifts_2) s_392)))))" +"((require-lift-context-do-require require-lifts_2) s_383 phase_100)" +"(box-cons!(require-lift-context-requires require-lifts_2) s_383)))))" "(define-values" "(struct:to-module-lift-context" " to-module-lift-context21.1" @@ -38051,7 +38124,7 @@ static const char *startup_source = " 4" " 0" " #f" -" null" +"(list(cons prop:authentic #t))" "(current-inspector)" " #f" " '(0 1 2 3)" @@ -38083,12 +38156,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_217 phase_102)" -"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_217))))" +"(lambda(to-module-lifts_3 s_106 phase_102)" +"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_106))))" "(define-values" "(add-lifted-to-module-end!)" -"(lambda(to-module-lifts_4 s_393 phase_103)" -"(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_393))))" +"(lambda(to-module-lifts_4 s_384 phase_103)" +"(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_384))))" "(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)" @@ -38140,20 +38213,20 @@ static const char *startup_source = "(lambda(v_26 info_1)" "(begin" "(if(if(list? v_26)" -"(let-values(((lst_76) v_26))" +"(let-values(((lst_77) v_26))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_76)))" -"((letrec-values(((for-loop_95)" -"(lambda(result_78 lst_77)" +"(let-values()(check-list lst_77)))" +"((letrec-values(((for-loop_94)" +"(lambda(result_78 lst_78)" "(begin" " 'for-loop" -"(if(pair? lst_77)" -"(let-values(((s_2)(unsafe-car lst_77))((rest_35)(unsafe-cdr lst_77)))" +"(if(pair? lst_78)" +"(let-values(((s_2)(unsafe-car lst_78))((rest_35)(unsafe-cdr lst_78)))" "(let-values(((result_65)" "(let-values()" -"(let-values(((result_114)" +"(let-values(((result_113)" "(let-values()" "(let-values()" "(memq" @@ -38163,14 +38236,14 @@ static const char *startup_source = " module" " module-begin" " definition-context))))))" -"(values result_114)))))" -"(if(if(not((lambda x_72(not result_65)) s_2))(not #f) #f)" -"(for-loop_95 result_65 rest_35)" +"(values result_113)))))" +"(if(if(not((lambda x_71(not result_65)) s_2))(not #f) #f)" +"(for-loop_94 result_65 rest_35)" " result_65)))" " result_78)))))" -" for-loop_95)" +" for-loop_94)" " #t" -" lst_76)))" +" lst_77)))" " #f)" "(void)" "(let-values()" @@ -38181,15 +38254,15 @@ static const char *startup_source = " v_26))))" "(define-values" "(not-in-this-expand-context?)" -"(lambda(t_43 ctx_12)" +"(lambda(t_44 ctx_12)" "(begin" -"(if(expansion-contexts? t_43)" -"(not(memq(context->symbol(expand-context-context ctx_12))(expansion-contexts-ref t_43)))" +"(if(expansion-contexts? t_44)" +"(not(memq(context->symbol(expand-context-context ctx_12))(expansion-contexts-ref t_44)))" " #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_170 t_44 ctx_13)" +"(lambda(s_171 t_45 ctx_13)" "(begin" "(let-values(((wrap_1)" "(lambda(sym_60)" @@ -38199,7 +38272,7 @@ static const char *startup_source = " #f" "(list" "(syntax-shift-phase-level$1(datum->syntax$1 core-stx sym_60)(expand-context-phase ctx_13))" -" s_170))))))" +" s_171))))))" "(let-values(((fail_0)" "(lambda()" "(begin" @@ -38209,12 +38282,12 @@ static const char *startup_source = "(format" " \"not allowed in context\\n expansion context: ~a\"" "(context->symbol(expand-context-context ctx_13)))" -" s_170)))))" -"(let-values(((tmp_30)(context->symbol(expand-context-context ctx_13))))" -"(if(equal? tmp_30 'module-begin)" +" s_171)))))" +"(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_44))(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_45))(wrap_1 '#%expression)(fail_0)))" "(let-values()(fail_0))))))))))" "(define-values" "(struct:reference-record" @@ -38228,7 +38301,19 @@ static const char *startup_source = " set-reference-record-all-referenced?!)" "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" "(let-values()" -"(let-values()(make-struct-type 'reference-record #f 3 0 #f null #f #f '() #f 'reference-record)))))" +"(let-values()" +"(make-struct-type" +" 'reference-record" +" #f" +" 3" +" 0" +" #f" +"(list(cons prop:authentic #t))" +" #f" +" #f" +" '()" +" #f" +" 'reference-record)))))" "(values" " struct:_0" " make-_0" @@ -38242,14 +38327,14 @@ static const char *startup_source = "(define-values(make-reference-record)(lambda()(begin(reference-record1.1(seteq)(seteq) #f))))" "(define-values" "(reference-record-used!)" -"(lambda(rr_0 key_74)" +"(lambda(rr_0 key_73)" "(begin" -"(if(set-member?(reference-record-already-bound rr_0) key_74)" +"(if(set-member?(reference-record-already-bound rr_0) key_73)" "(void)" "(let-values()" "(set-reference-record-reference-before-bound!" " rr_0" -"(set-add(reference-record-reference-before-bound rr_0) key_74)))))))" +"(set-add(reference-record-reference-before-bound rr_0) key_73)))))))" "(define-values" "(reference-records-all-used!)" "(lambda(rrs_0)" @@ -38259,11 +38344,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_42)))" "((letrec-values(((for-loop_185)" -"(lambda(lst_89)" +"(lambda(lst_90)" "(begin" " 'for-loop" -"(if(pair? lst_89)" -"(let-values(((rr_1)(unsafe-car lst_89))((rest_118)(unsafe-cdr lst_89)))" +"(if(pair? lst_90)" +"(let-values(((rr_1)(unsafe-car lst_90))((rest_118)(unsafe-cdr lst_90)))" "(let-values(((post-guard-var_0)(lambda()(begin 'post-guard-var #t))))" "(let-values()" "(if(reference-record-all-referenced? rr_1)" @@ -38290,47 +38375,47 @@ static const char *startup_source = "(let-values(((lst_24) keys_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_252)" -"(lambda(ab_3 lst_80)" +"((letrec-values(((for-loop_251)" +"(lambda(ab_3 lst_81)" "(begin" " 'for-loop" -"(if(pair? lst_80)" -"(let-values(((key_83)(unsafe-car lst_80))((rest_143)(unsafe-cdr lst_80)))" +"(if(pair? lst_81)" +"(let-values(((key_82)(unsafe-car lst_81))((rest_143)(unsafe-cdr lst_81)))" "(let-values(((ab_4)" "(let-values(((ab_5) ab_3))" -"(let-values(((ab_6)(let-values()(set-add ab_5 key_83))))" +"(let-values(((ab_6)(let-values()(set-add ab_5 key_82))))" "(values ab_6)))))" -"(if(not #f)(for-loop_252 ab_4 rest_143) ab_4)))" +"(if(not #f)(for-loop_251 ab_4 rest_143) ab_4)))" " ab_3)))))" -" for-loop_252)" +" for-loop_251)" "(reference-record-already-bound rr_2)" " lst_24))))" "(set-reference-record-reference-before-bound!" " rr_2" -"(let-values(((lst_271) keys_3))" +"(let-values(((lst_273) keys_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_271)))" -"((letrec-values(((for-loop_253)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_273)))" +"((letrec-values(((for-loop_252)" "(lambda(rbb_0 lst_25)" "(begin" " 'for-loop" "(if(pair? lst_25)" -"(let-values(((key_84)(unsafe-car lst_25))((rest_157)(unsafe-cdr lst_25)))" +"(let-values(((key_83)(unsafe-car lst_25))((rest_157)(unsafe-cdr lst_25)))" "(let-values(((rbb_1)" "(let-values(((rbb_2) rbb_0))" -"(let-values(((rbb_3)(let-values()(set-remove rbb_2 key_84))))" +"(let-values(((rbb_3)(let-values()(set-remove rbb_2 key_83))))" "(values rbb_3)))))" -"(if(not #f)(for-loop_253 rbb_1 rest_157) rbb_1)))" +"(if(not #f)(for-loop_252 rbb_1 rest_157) rbb_1)))" " rbb_0)))))" -" for-loop_253)" +" for-loop_252)" "(reference-record-reference-before-bound rr_2)" -" lst_271))))))))" +" lst_273))))))))" "(define-values" "(reference-record-forward-references?)" "(lambda(rr_3)" "(begin" -"(let-values(((or-part_171)(reference-record-all-referenced? rr_3)))" -"(if or-part_171 or-part_171(positive?(set-count(reference-record-reference-before-bound rr_3))))))))" +"(let-values(((or-part_161)(reference-record-all-referenced? rr_3)))" +"(if or-part_161 or-part_161(positive?(set-count(reference-record-reference-before-bound rr_3))))))))" "(define-values" "(reference-record-clear!)" "(lambda(rr_4)" @@ -38338,19 +38423,19 @@ static const char *startup_source = "(begin(set-reference-record-already-bound! rr_4 #f)(set-reference-record-reference-before-bound! rr_4 #f)))))" "(define-values" "(call-expand-observe)" -"(lambda(obs_0 key_85 . args_5)" +"(lambda(obs_0 key_84 . args_5)" "(begin" "(begin" -"(let-values(((c1_27)(hash-ref key->arity key_85 #f)))" +"(let-values(((c1_27)(hash-ref key->arity key_84 #f)))" "(if c1_27" "((lambda(arity_2)" "(if(let-values(((or-part_64)(eq? arity_2 'any)))" "(if or-part_64 or-part_64(eqv?(length args_5) arity_2)))" "(void)" -" (let-values () (error 'call-expand-observe \"wrong arity for ~s: ~e\" key_85 args_5))))" +" (let-values () (error 'call-expand-observe \"wrong arity for ~s: ~e\" key_84 args_5))))" " c1_27)" -" (let-values () (error 'call-expand-observe \"bad key: ~s\" key_85))))" -"(obs_0 key_85(if(null? args_5)(let-values() #f)(let-values()(apply list* args_5))))))))" +" (let-values () (error 'call-expand-observe \"bad key: ~s\" key_84))))" +"(obs_0 key_84(if(null? args_5)(let-values() #f)(let-values()(apply list* args_5))))))))" "(define-values" "(key->arity)" " '#hash((block->letrec . 1)" @@ -38526,32 +38611,32 @@ static const char *startup_source = " ?_10" "(make-struct-field-accessor -ref_10 0 's)" "(make-struct-field-accessor -ref_10 1 'body))))" -"(define-values(extract-syntax)(lambda(s_186)(begin(if(expanded+parsed? s_186)(expanded+parsed-s s_186) s_186))))" +"(define-values(extract-syntax)(lambda(s_182)(begin(if(expanded+parsed? s_182)(expanded+parsed-s s_182) s_182))))" "(define-values" "(parsed-only)" "(lambda(l_66)" "(begin" "(reverse$1" -"(let-values(((lst_177) l_66))" +"(let-values(((lst_179) l_66))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_177)))" -"((letrec-values(((for-loop_247)" -"(lambda(fold-var_5 lst_277)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_179)))" +"((letrec-values(((for-loop_246)" +"(lambda(fold-var_5 lst_279)" "(begin" " 'for-loop" -"(if(pair? lst_277)" -"(let-values(((i_26)(unsafe-car lst_277))((rest_153)(unsafe-cdr lst_277)))" +"(if(pair? lst_279)" +"(let-values(((i_26)(unsafe-car lst_279))((rest_153)(unsafe-cdr lst_279)))" "(let-values(((fold-var_227)" "(let-values(((fold-var_228) fold-var_5))" -"(if(let-values(((or-part_267)(parsed? i_26)))" -"(if or-part_267" -" or-part_267" +"(if(let-values(((or-part_251)(parsed? i_26)))" +"(if or-part_251" +" or-part_251" "(let-values(((or-part_33)(expanded+parsed? i_26)))" "(if or-part_33" " or-part_33" "(semi-parsed-begin-for-syntax? i_26)))))" -"(let-values(((fold-var_157) fold-var_228))" -"(let-values(((fold-var_173)" +"(let-values(((fold-var_159) fold-var_228))" +"(let-values(((fold-var_175)" "(let-values()" "(cons" "(let-values()" @@ -38566,38 +38651,38 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax-body" " i_26))))" "(let-values() i_26))))" -" fold-var_157))))" -"(values fold-var_173)))" +" fold-var_159))))" +"(values fold-var_175)))" " fold-var_228))))" -"(if(not #f)(for-loop_247 fold-var_227 rest_153) fold-var_227)))" +"(if(not #f)(for-loop_246 fold-var_227 rest_153) fold-var_227)))" " fold-var_5)))))" -" for-loop_247)" +" for-loop_246)" " null" -" lst_177)))))))" +" lst_179)))))))" "(define-values" "(syntax-only)" "(lambda(l_67)" "(begin" "(reverse$1" -"(let-values(((lst_278) l_67))" +"(let-values(((lst_280) l_67))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_278)))" -"((letrec-values(((for-loop_249)" -"(lambda(fold-var_231 lst_279)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_280)))" +"((letrec-values(((for-loop_248)" +"(lambda(fold-var_231 lst_281)" "(begin" " 'for-loop" -"(if(pair? lst_279)" -"(let-values(((i_35)(unsafe-car lst_279))((rest_154)(unsafe-cdr lst_279)))" -"(let-values(((fold-var_81)" -"(let-values(((fold-var_82) fold-var_231))" -"(if(let-values(((or-part_133)(syntax?$1 i_35)))" -"(if or-part_133" -" or-part_133" -"(let-values(((or-part_268)(expanded+parsed? i_35)))" -"(if or-part_268" -" or-part_268" +"(if(pair? lst_281)" +"(let-values(((i_35)(unsafe-car lst_281))((rest_154)(unsafe-cdr lst_281)))" +"(let-values(((fold-var_83)" +"(let-values(((fold-var_84) fold-var_231))" +"(if(let-values(((or-part_126)(syntax?$1 i_35)))" +"(if or-part_126" +" or-part_126" +"(let-values(((or-part_252)(expanded+parsed? i_35)))" +"(if or-part_252" +" or-part_252" "(semi-parsed-begin-for-syntax? i_35)))))" -"(let-values(((fold-var_83) fold-var_82))" +"(let-values(((fold-var_85) fold-var_84))" "(let-values(((fold-var_240)" "(let-values()" "(cons" @@ -38618,18 +38703,18 @@ static const char *startup_source = "(let-values(((ok?_26" " begin-for-syntax7_0" " _8_0)" -"(let-values(((s_306)" +"(let-values(((s_302)" " disarmed-s_0))" "(let-values(((orig-s_31)" -" s_306))" +" s_302))" "(let-values(((begin-for-syntax7_1" " _8_1)" "(let-values(((s_27)" "(if(syntax?$1" -" s_306)" +" s_302)" "(syntax-e$1" -" s_306)" -" s_306)))" +" s_302)" +" s_302)))" "(if(pair?" " s_27)" "(let-values(((begin-for-syntax9_0)" @@ -38641,7 +38726,7 @@ static const char *startup_source = "(let-values(((s_161)" "(cdr" " s_27)))" -"(let-values(((s_394)" +"(let-values(((s_385)" "(if(syntax?$1" " s_161)" "(syntax-e$1" @@ -38649,7 +38734,7 @@ static const char *startup_source = " s_161)))" "(let-values(((flat-s_19)" "(to-syntax-list.1" -" s_394)))" +" s_385)))" "(if(not" " flat-s_19)" "(let-values()" @@ -38682,20 +38767,20 @@ static const char *startup_source = " s11_0" " temp12_2)))))))" "(let-values() i_35))))" -" fold-var_83))))" +" fold-var_85))))" "(values fold-var_240)))" -" fold-var_82))))" -"(if(not #f)(for-loop_249 fold-var_81 rest_154) fold-var_81)))" +" fold-var_84))))" +"(if(not #f)(for-loop_248 fold-var_83 rest_154) fold-var_83)))" " fold-var_231)))))" -" for-loop_249)" +" for-loop_248)" " null" -" lst_278)))))))" +" lst_280)))))))" "(define-values" "(expand7.1)" "(lambda(alternate-id1_0 alternate-id3_0 skip-log?2_0 skip-log?4_0 s5_1 ctx6_0)" "(begin" " 'expand7" -"(let-values(((s_395) s5_1))" +"(let-values(((s_386) s5_1))" "(let-values(((ctx_14) ctx6_0))" "(let-values(((alternate-id_0)(if alternate-id3_0 alternate-id1_0 #f)))" "(let-values(((skip-log?_0)(if skip-log?4_0 skip-log?2_0 #f)))" @@ -38709,24 +38794,24 @@ static const char *startup_source = "(call-expand-observe" " obs_1" "(if(expand-context-only-immediate? ctx_14) 'enter-check 'visit)" -" s_395))" +" s_386))" "(void)))" "(void)))" -"(if(identifier? s_395)" -"(let-values()(expand-identifier s_395 ctx_14 alternate-id_0))" -"(if(if(pair?(syntax-content s_395))(identifier?(car(syntax-content s_395))) #f)" -"(let-values()(expand-id-application-form s_395 ctx_14 alternate-id_0))" -"(if(let-values(((or-part_73)(pair?(syntax-content s_395))))" -"(if or-part_73 or-part_73(null?(syntax-content s_395))))" -"(let-values()(expand-implicit '#%app s_395 ctx_14 #f))" -"(if(already-expanded?(syntax-content s_395))" -"(let-values()(expand-already-expanded s_395 ctx_14))" -"(let-values()(expand-implicit '#%datum s_395 ctx_14 #f)))))))))))))))" +"(if(identifier? s_386)" +"(let-values()(expand-identifier s_386 ctx_14 alternate-id_0))" +"(if(if(pair?(syntax-content s_386))(identifier?(car(syntax-content s_386))) #f)" +"(let-values()(expand-id-application-form s_386 ctx_14 alternate-id_0))" +"(if(let-values(((or-part_78)(pair?(syntax-content s_386))))" +"(if or-part_78 or-part_78(null?(syntax-content s_386))))" +"(let-values()(expand-implicit '#%app s_386 ctx_14 #f))" +"(if(already-expanded?(syntax-content s_386))" +"(let-values()(expand-already-expanded s_386 ctx_14))" +"(let-values()(expand-implicit '#%datum s_386 ctx_14 #f)))))))))))))))" "(define-values" "(expand-identifier)" -"(lambda(s_43 ctx_15 alternate-id_1)" +"(lambda(s_44 ctx_15 alternate-id_1)" "(begin" -"(let-values(((id_60)(let-values(((or-part_170) alternate-id_1))(if or-part_170 or-part_170 s_43))))" +"(let-values(((id_60)(let-values(((or-part_160) alternate-id_1))(if or-part_160 or-part_160 s_44))))" "(if(free-id-set-member?(expand-context-stops ctx_15)(expand-context-phase ctx_15) id_60)" "(let-values()" "(begin" @@ -38737,13 +38822,13 @@ static const char *startup_source = "(let-values()" "(begin" "(call-expand-observe obs_2 'resolve id_60)" -"(call-expand-observe obs_2 'enter-prim s_43)" +"(call-expand-observe obs_2 'enter-prim s_44)" "(call-expand-observe obs_2 'prim-stop)" -"(call-expand-observe obs_2 'exit-prim s_43)" -"(call-expand-observe obs_2 'return s_43)))" +"(call-expand-observe obs_2 'exit-prim s_44)" +"(call-expand-observe obs_2 'return s_44)))" "(void)))" "(void)))" -" s_43))" +" s_44))" "(let-values()" "(let-values(((binding_18)" "(let-values(((id88_0) id_60)" @@ -38762,23 +38847,23 @@ static const char *startup_source = "(if(eq? binding_18 'ambiguous)" "(let-values()(raise-ambiguous-error id_60 ctx_15))" "(if(not binding_18)" -"(let-values()(expand-implicit '#%top(substitute-alternate-id s_43 alternate-id_1) ctx_15 s_43))" +"(let-values()(expand-implicit '#%top(substitute-alternate-id s_44 alternate-id_1) ctx_15 s_44))" "(let-values()" -"(let-values(((t_45 primitive?_2 insp-of-t_0 protected?_3)" +"(let-values(((t_46 primitive?_2 insp-of-t_0 protected?_3)" "(let-values(((binding92_0) binding_18)" "((ctx93_0) ctx_15)" "((id94_0) id_60)" -"((temp95_1)(if alternate-id_1 s_43 #f))" +"((temp95_1)(if alternate-id_1 s_44 #f))" "((temp96_2)(expand-context-in-local-expand? ctx_15)))" "(lookup28.1 temp95_1 #t temp96_2 #t binding92_0 ctx93_0 id94_0))))" -"(dispatch t_45 insp-of-t_0 s_43 id_60 ctx_15 binding_18 primitive?_2 protected?_3)))))))))))))" +"(dispatch t_46 insp-of-t_0 s_44 id_60 ctx_15 binding_18 primitive?_2 protected?_3)))))))))))))" "(define-values" "(expand-id-application-form)" "(lambda(s_13 ctx_16 alternate-id_2)" "(begin" "(let-values(((id_61)" -"(let-values(((or-part_269) alternate-id_2))" -"(if or-part_269 or-part_269(car(syntax-e/no-taint s_13))))))" +"(let-values(((or-part_253) alternate-id_2))" +"(if or-part_253 or-part_253(car(syntax-e/no-taint s_13))))))" "(if(free-id-set-member?(expand-context-stops ctx_16)(expand-context-phase ctx_16) id_61)" "(let-values()" "(begin" @@ -38816,19 +38901,19 @@ static const char *startup_source = "(if(not binding_19)" "(let-values()(expand-implicit '#%app(substitute-alternate-id s_13 alternate-id_2) ctx_16 id_61))" "(let-values()" -"(let-values(((t_46 primitive?_3 insp-of-t_1 protected?_4)" +"(let-values(((t_47 primitive?_3 insp-of-t_1 protected?_4)" "(let-values(((binding101_0) binding_19)" "((ctx102_0) ctx_16)" "((id103_0) id_61)" "((temp104_0)(if alternate-id_2(car(syntax-e/no-taint s_13)) #f))" "((temp105_0)(expand-context-in-local-expand? ctx_16)))" "(lookup28.1 temp104_0 #t temp105_0 #t binding101_0 ctx102_0 id103_0))))" -"(if(variable? t_46)" +"(if(variable? t_47)" "(let-values()" "(expand-implicit '#%app(substitute-alternate-id s_13 alternate-id_2) ctx_16 id_61))" "(let-values()" "(dispatch" -" t_46" +" t_47" " insp-of-t_1" " s_13" " id_61" @@ -38838,16 +38923,16 @@ static const char *startup_source = " protected?_4)))))))))))))))" "(define-values" "(expand-implicit)" -"(lambda(sym_61 s_187 ctx_17 trigger-id_1)" +"(lambda(sym_61 s_183 ctx_17 trigger-id_1)" "(begin" "(if(expand-context-only-immediate? ctx_17)" "(let-values()" "(begin" "(let-values(((obs_5)(expand-context-observer ctx_17)))" -"(if obs_5(let-values()(let-values()(call-expand-observe obs_5 'exit-check s_187)))(void)))" -" s_187))" +"(if obs_5(let-values()(let-values()(call-expand-observe obs_5 'exit-check s_183)))(void)))" +" s_183))" "(let-values()" -"(let-values(((disarmed-s_1)(syntax-disarm$1 s_187)))" +"(let-values(((disarmed-s_1)(syntax-disarm$1 s_183)))" "(let-values(((id_62)(datum->syntax$1 disarmed-s_1 sym_61)))" "(if(free-id-set-member?(expand-context-stops ctx_17)(expand-context-phase ctx_17) id_62)" "(let-values()" @@ -38859,13 +38944,13 @@ static const char *startup_source = "(let-values()" "(begin" "(call-expand-observe obs_6 'resolve id_62)" -"(call-expand-observe obs_6 'enter-prim s_187)" +"(call-expand-observe obs_6 'enter-prim s_183)" "(call-expand-observe obs_6 'prim-stop)" -"(call-expand-observe obs_6 'exit-prim s_187)" -"(call-expand-observe obs_6 'return s_187)))" +"(call-expand-observe obs_6 'exit-prim s_183)" +"(call-expand-observe obs_6 'return s_183)))" "(void)))" "(void)))" -" s_187))" +" s_183))" "(let-values()" "(let-values((()" "(begin" @@ -38883,38 +38968,38 @@ static const char *startup_source = "(if(eq? b_76 'ambiguous)" "(let-values()(raise-ambiguous-error id_62 ctx_17))" "(let-values()" -"(let-values(((t_27 primitive?_4 insp-of-t_2 protected?_5)" +"(let-values(((t_48 primitive?_4 insp-of-t_2 protected?_5)" "(if b_76" "(let-values(((b110_0) b_76)((ctx111_0) ctx_17)((id112_0) id_62))" "(lookup28.1 #f #f #f #f b110_0 ctx111_0 id112_0))" "(values #f #f #f #f))))" -"(if(transformer? t_27)" +"(if(transformer? t_48)" "(let-values()" "(dispatch-transformer" -" t_27" +" t_48" " insp-of-t_2" -"(make-explicit ctx_17 sym_61 s_187 disarmed-s_1)" +"(make-explicit ctx_17 sym_61 s_183 disarmed-s_1)" " id_62" " ctx_17" " b_76))" -"(if(core-form? t_27)" +"(if(core-form? t_48)" "(let-values()" "(if(if(eq? sym_61 '#%top)" -"(if(eq?(core-form-name t_27) '#%top)" +"(if(eq?(core-form-name t_48) '#%top)" "(expand-context-in-local-expand? ctx_17)" " #f)" " #f)" -"(let-values()(dispatch-implicit-#%top-core-form t_27 s_187 ctx_17))" +"(let-values()(dispatch-implicit-#%top-core-form t_48 s_183 ctx_17))" "(let-values()" "(dispatch-core-form" -" t_27" -"(make-explicit ctx_17 sym_61 s_187 disarmed-s_1)" +" t_48" +"(make-explicit ctx_17 sym_61 s_183 disarmed-s_1)" " ctx_17))))" "(let-values()" "(let-values(((tl-id_0)" "(if(eq? sym_61 '#%top)" "(if(root-expand-context-top-level-bind-scope ctx_17)" -"(add-scope s_187(root-expand-context-top-level-bind-scope ctx_17))" +"(add-scope s_183(root-expand-context-top-level-bind-scope ctx_17))" " #f)" " #f)))" "(let-values(((tl-b_0)" @@ -38932,25 +39017,25 @@ static const char *startup_source = " tl-id_0))" "(let-values()" "(raise-syntax-implicit-error" -" s_187" +" s_183" " sym_61" " trigger-id_1" " ctx_17))))))))))))))))))))))" "(define-values" "(expand-already-expanded)" -"(lambda(s_45 ctx_18)" +"(lambda(s_46 ctx_18)" "(begin" -"(let-values(((ae_0)(syntax-e$1 s_45)))" +"(let-values(((ae_0)(syntax-e$1 s_46)))" "(let-values(((exp-s_0)(already-expanded-s ae_0)))" "(begin" -"(if(let-values(((or-part_143)(syntax-any-macro-scopes? s_45)))" -"(if or-part_143" -" or-part_143" -"(let-values(((or-part_144)" +"(if(let-values(((or-part_135)(syntax-any-macro-scopes? s_46)))" +"(if or-part_135" +" or-part_135" +"(let-values(((or-part_136)" "(not" "(eq?(expand-context-binding-layer ctx_18)(already-expanded-binding-layer ae_0)))))" -"(if or-part_144" -" or-part_144" +"(if or-part_136" +" or-part_136" "(if(parsed? exp-s_0)" "(not" "(if(expand-context-to-parsed? ctx_18)" @@ -38966,11 +39051,11 @@ static const char *startup_source = "(if(not(parsed? exp-s_0)) exp-s_0 #f)))" "(void))" "(if(expand-context-only-immediate? ctx_18)" -"(let-values() s_45)" +"(let-values() s_46)" "(if(parsed? exp-s_0)" "(let-values() exp-s_0)" "(let-values()" -"(let-values(((result-s_1)(syntax-track-origin$1 exp-s_0 s_45)))" +"(let-values(((result-s_1)(syntax-track-origin$1 exp-s_0 s_46)))" "(begin" "(let-values(((obs_8)(expand-context-observer ctx_18)))" "(if obs_8" @@ -38982,45 +39067,45 @@ static const char *startup_source = " result-s_1))))))))))))" "(define-values" "(make-explicit)" -"(lambda(ctx_19 sym_62 s_307 disarmed-s_2)" +"(lambda(ctx_19 sym_62 s_303 disarmed-s_2)" "(begin" "(let-values(((new-s_0)" -"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_62 disarmed-s_2) s_307 s_307) s_307)))" +"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_62 disarmed-s_2) s_303 s_303) s_303)))" "(begin" "(let-values(((obs_9)(expand-context-observer ctx_19)))" "(if obs_9(let-values()(let-values()(call-expand-observe obs_9 'tag new-s_0)))(void)))" " new-s_0)))))" "(define-values" "(dispatch)" -"(lambda(t_47 insp-of-t_3 s_396 id_63 ctx_20 binding_20 primitive?_5 protected?_6)" +"(lambda(t_49 insp-of-t_3 s_387 id_63 ctx_20 binding_20 primitive?_5 protected?_6)" "(begin" -"(if(core-form? t_47)" -"(let-values()(dispatch-core-form t_47 s_396 ctx_20))" -"(if(transformer? t_47)" -"(let-values()(dispatch-transformer t_47 insp-of-t_3 s_396 id_63 ctx_20 binding_20))" -"(if(variable? t_47)" -"(let-values()(dispatch-variable t_47 s_396 id_63 ctx_20 binding_20 primitive?_5 protected?_6))" -" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_396))))))))" +"(if(core-form? t_49)" +"(let-values()(dispatch-core-form t_49 s_387 ctx_20))" +"(if(transformer? t_49)" +"(let-values()(dispatch-transformer t_49 insp-of-t_3 s_387 id_63 ctx_20 binding_20))" +"(if(variable? t_49)" +"(let-values()(dispatch-variable t_49 s_387 id_63 ctx_20 binding_20 primitive?_5 protected?_6))" +" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_387))))))))" "(define-values" "(dispatch-core-form)" -"(lambda(t_48 s_46 ctx_21)" +"(lambda(t_50 s_47 ctx_21)" "(begin" "(if(expand-context-only-immediate? ctx_21)" "(let-values()" "(begin" "(let-values(((obs_10)(expand-context-observer ctx_21)))" -"(if obs_10(let-values()(let-values()(call-expand-observe obs_10 'exit-check s_46)))(void)))" -" s_46))" +"(if obs_10(let-values()(let-values()(call-expand-observe obs_10 'exit-check s_47)))(void)))" +" s_47))" "(if(expand-context-observer ctx_21)" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_11)(expand-context-observer ctx_21)))" "(if obs_11" -"(let-values()(let-values()(call-expand-observe obs_11 'enter-prim s_46)))" +"(let-values()(let-values()(call-expand-observe obs_11 'enter-prim s_47)))" "(void)))" "(values))))" -"(let-values(((result-s_2)((core-form-expander t_48) s_46 ctx_21)))" +"(let-values(((result-s_2)((core-form-expander t_50) s_47 ctx_21)))" "(begin" "(let-values(((obs_12)(expand-context-observer ctx_21)))" "(if obs_12" @@ -39031,19 +39116,19 @@ static const char *startup_source = "(call-expand-observe obs_12 'return(extract-syntax result-s_2)))))" "(void)))" " result-s_2))))" -"(let-values()((core-form-expander t_48) s_46 ctx_21)))))))" +"(let-values()((core-form-expander t_50) s_47 ctx_21)))))))" "(define-values" "(dispatch-implicit-#%top-core-form)" -"(lambda(t_49 s_48 ctx_22)" +"(lambda(t_51 s_49 ctx_22)" "(begin" "(let-values((()" "(begin" "(let-values(((obs_13)(expand-context-observer ctx_22)))" "(if obs_13" -"(let-values()(let-values()(call-expand-observe obs_13 'enter-prim s_48)))" +"(let-values()(let-values()(call-expand-observe obs_13 'enter-prim s_49)))" "(void)))" "(values))))" -"(let-values(((result-s_3)((core-form-expander t_49) s_48 ctx_22 #t)))" +"(let-values(((result-s_3)((core-form-expander t_51) s_49 ctx_22 #t)))" "(begin" "(let-values(((obs_14)(expand-context-observer ctx_22)))" "(if obs_14" @@ -39056,46 +39141,46 @@ static const char *startup_source = " result-s_3))))))" "(define-values" "(dispatch-transformer)" -"(lambda(t_50 insp-of-t_4 s_390 id_64 ctx_23 binding_21)" +"(lambda(t_52 insp-of-t_4 s_382 id_64 ctx_23 binding_21)" "(begin" -"(if(not-in-this-expand-context? t_50 ctx_23)" +"(if(not-in-this-expand-context? t_52 ctx_23)" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_15)(expand-context-observer ctx_23)))" "(if obs_15" -"(let-values()(let-values()(call-expand-observe obs_15 'enter-macro s_390)))" +"(let-values()(let-values()(call-expand-observe obs_15 'enter-macro s_382)))" "(void)))" "(values))))" -"(let-values(((adj-s_0)(avoid-current-expand-context(substitute-alternate-id s_390 id_64) t_50 ctx_23)))" +"(let-values(((adj-s_0)(avoid-current-expand-context(substitute-alternate-id s_382 id_64) t_52 ctx_23)))" "(begin" "(let-values(((obs_16)(expand-context-observer ctx_23)))" -"(if obs_16(let-values()(let-values()(call-expand-observe obs_16 'exit-macro s_390)))(void)))" +"(if obs_16(let-values()(let-values()(call-expand-observe obs_16 'exit-macro s_382)))(void)))" "(let-values(((adj-s117_0) adj-s_0)((ctx118_0) ctx_23))" "(expand7.1 #f #f #f #f adj-s117_0 ctx118_0))))))" "(if(expand-context-should-not-encounter-macros? ctx_23)" "(let-values()" -" (raise-syntax-error$1 #f \"encountered a macro binding in form that should be fully expanded\" s_390))" +" (raise-syntax-error$1 #f \"encountered a macro binding in form that should be fully expanded\" s_382))" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_17)(expand-context-observer ctx_23)))" "(if obs_17" "(let-values()" -"(if(if(expand-context-only-immediate? ctx_23)(not(1/rename-transformer? t_50)) #f)" +"(if(if(expand-context-only-immediate? ctx_23)(not(1/rename-transformer? t_52)) #f)" "(let-values()" "(begin" -"(call-expand-observe obs_17 'visit s_390)" +"(call-expand-observe obs_17 'visit s_382)" "(call-expand-observe obs_17 'resolve id_64)))" "(void)))" "(void)))" "(values))))" "(let-values(((exp-s_1 re-ctx_0)" -"(if(1/rename-transformer? t_50)" -"(values s_390 ctx_23)" -"(let-values(((t119_0) t_50)" +"(if(1/rename-transformer? t_52)" +"(values s_382 ctx_23)" +"(let-values(((t119_0) t_52)" "((insp-of-t120_0) insp-of-t_4)" -"((s121_0) s_390)" +"((s121_0) s_382)" "((id122_0) id_64)" "((ctx123_0) ctx_23)" "((binding124_0) binding_21))" @@ -39112,7 +39197,7 @@ static const char *startup_source = "(let-values(((obs_18)(expand-context-observer ctx_23)))" "(if obs_18" "(let-values()" -"(if(if(expand-context-only-immediate? ctx_23)(not(1/rename-transformer? t_50)) #f)" +"(if(if(expand-context-only-immediate? ctx_23)(not(1/rename-transformer? t_52)) #f)" "(let-values()(call-expand-observe obs_18 'return exp-s_1))" "(void)))" "(void)))" @@ -39122,38 +39207,38 @@ static const char *startup_source = "(let-values(((exp-s125_0) exp-s_1)" "((re-ctx126_0) re-ctx_0)" "((temp127_0)" -"(if(1/rename-transformer? t_50)" +"(if(1/rename-transformer? t_52)" "(syntax-track-origin$1" -"(transfer-srcloc(rename-transformer-target-in-context t_50 ctx_23) id_64)" +"(transfer-srcloc(rename-transformer-target-in-context t_52 ctx_23) id_64)" " id_64" " id_64)" " #f))" "((temp128_0)" -"(let-values(((or-part_270)(expand-context-only-immediate? ctx_23)))" -"(if or-part_270 or-part_270(1/rename-transformer? t_50)))))" +"(let-values(((or-part_254)(expand-context-only-immediate? ctx_23)))" +"(if or-part_254 or-part_254(1/rename-transformer? t_52)))))" "(expand7.1 temp127_0 #t temp128_0 #t exp-s125_0 re-ctx126_0)))))))))))))" "(define-values" "(dispatch-variable)" -"(lambda(t_51 s_397 id_65 ctx_24 binding_22 primitive?_6 protected?_7)" +"(lambda(t_53 s_388 id_65 ctx_24 binding_22 primitive?_6 protected?_7)" "(begin" "(if(expand-context-only-immediate? ctx_24)" "(let-values()" "(begin" "(let-values(((obs_19)(expand-context-observer ctx_24)))" -"(if obs_19(let-values()(let-values()(call-expand-observe obs_19 'exit-check s_397)))(void)))" +"(if obs_19(let-values()(let-values()(call-expand-observe obs_19 'exit-check s_388)))(void)))" " id_65))" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_20)(expand-context-observer ctx_24)))" "(if obs_20" -"(let-values()(let-values()(call-expand-observe obs_20 'variable s_397 id_65)))" +"(let-values()(let-values()(call-expand-observe obs_20 'variable s_388 id_65)))" "(void)))" "(values))))" "(let-values((()(begin(register-variable-referenced-if-local! binding_22)(values))))" "(let-values(((result-s_4)" "(let-values(((id129_0) id_65)" -"((t130_0) t_51)" +"((t130_0) t_53)" "((temp131_0)" "(free-id-set-empty-or-just-module*?(expand-context-stops ctx_24))))" "(substitute-variable6.1 temp131_0 id129_0 t130_0))))" @@ -39178,9 +39263,9 @@ static const char *startup_source = "(lambda(origin-id10_0 origin-id11_0 t12_0 insp-of-t13_0 s14_0 id15_0 ctx16_0 binding17_1)" "(begin" " 'apply-transformer18" -"(let-values(((t_52) t12_0))" +"(let-values(((t_54) t12_0))" "(let-values(((insp-of-t_5) insp-of-t13_0))" -"(let-values(((s_59) s14_0))" +"(let-values(((s_60) s14_0))" "(let-values(((id_66) id15_0))" "(let-values(((ctx_25) ctx16_0))" "(let-values(((binding_23) binding17_1))" @@ -39192,10 +39277,10 @@ static const char *startup_source = "(let-values(((obs_22)(expand-context-observer ctx_25)))" "(if obs_22" "(let-values()" -"(let-values()(call-expand-observe obs_22 'enter-macro s_59)))" +"(let-values()(call-expand-observe obs_22 'enter-macro s_60)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_3)(syntax-disarm$1 s_59)))" +"(let-values(((disarmed-s_3)(syntax-disarm$1 s_60)))" "(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)" @@ -39204,7 +39289,7 @@ static const char *startup_source = "(let-values(((def-ctx-scopes_1)(box null)))" "(let-values(((transformed-s_0)" "(apply-transformer-in-context" -" t_52" +" t_54" " cleaned-s_0" " ctx_25" " insp-of-t_5" @@ -39218,14 +39303,14 @@ static const char *startup_source = "(syntax-track-origin$1" " post-s_0" " cleaned-s_0" -"(let-values(((or-part_271) origin-id_0))" -"(if or-part_271" -" or-part_271" -"(if(identifier? s_59) s_59(car(syntax-e$1 s_59))))))))" +"(let-values(((or-part_255) origin-id_0))" +"(if or-part_255" +" or-part_255" +"(if(identifier? s_60) s_60(car(syntax-e$1 s_60))))))))" "(let-values(((rearmed-s_0)" "(taint-dispatch" " tracked-s_0" -"(lambda(t-s_0)(syntax-rearm$1 t-s_0 s_59))" +"(lambda(t-s_0)(syntax-rearm$1 t-s_0 s_60))" "(expand-context-phase ctx_25))))" "(begin" "(let-values(((obs_23)(expand-context-observer ctx_25)))" @@ -39241,7 +39326,7 @@ static const char *startup_source = " def-ctx-scopes_1)))))))))))))))))))))))))))" "(define-values" "(apply-transformer-in-context)" -"(lambda(t_53 cleaned-s_1 ctx_26 insp-of-t_6 intro-scope_1 use-scopes_1 def-ctx-scopes_2 id_67)" +"(lambda(t_55 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" @@ -39252,9 +39337,9 @@ static const char *startup_source = "(values))))" "(let-values(((confine-def-ctx-scopes?_0)" "(not" -"(let-values(((or-part_272)(expand-context-only-immediate? ctx_26)))" -"(if or-part_272" -" or-part_272" +"(let-values(((or-part_256)(expand-context-only-immediate? ctx_26)))" +"(if or-part_256" +" or-part_256" "(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" @@ -39265,15 +39350,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_182) accum-ctx_0))" -"(let-values(((the-struct_56) v_182))" +"(let-values(((v_183) accum-ctx_0))" +"(let-values(((the-struct_56) v_183))" "(if(expand-context/outer? the-struct_56)" "(let-values(((current-introduction-scopes132_0)(cons intro-scope_1 use-scopes_1))" "((def-ctx-scopes133_0)" "(if confine-def-ctx-scopes?_0" " def-ctx-scopes_2" "(expand-context-def-ctx-scopes ctx_26)))" -"((inner134_0)(root-expand-context/outer-inner v_182)))" +"((inner134_0)(root-expand-context/outer-inner v_183)))" "(expand-context/outer1.1" " inner134_0" "(root-expand-context/outer-post-expansion-scope the-struct_56)" @@ -39303,11 +39388,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_103) insp-of-t_6))" -"(if or-part_103 or-part_103(current-module-code-inspector))))" +"(let-values(((or-part_257) insp-of-t_6))" +"(if or-part_257 or-part_257(current-module-code-inspector))))" "(let-values()" "(call-with-continuation-barrier" -"(lambda()((transformer->procedure t_53) cleaned-s_1)))))))" +"(lambda()((transformer->procedure t_55) cleaned-s_1)))))))" "(begin" "(let-values(((obs_25)(expand-context-observer ctx_26)))" "(if obs_25" @@ -39325,7 +39410,7 @@ static const char *startup_source = " transformed-s_1)))))))))" "(define-values" "(maybe-add-use-site-scope)" -"(lambda(s_211 ctx_27 binding_24)" +"(lambda(s_206 ctx_27 binding_24)" "(begin" "(if(if(root-expand-context-use-site-scopes ctx_27)" "(matching-frame?(root-expand-context-frame-id ctx_27)(binding-frame-id binding_24))" @@ -39333,52 +39418,52 @@ static const char *startup_source = "(let-values()" "(let-values(((sc_30)(new-scope 'use-site)))" "(let-values(((b_77)(root-expand-context-use-site-scopes ctx_27)))" -"(begin(set-box! b_77(cons sc_30(unbox b_77)))(values(add-scope s_211 sc_30)(list sc_30))))))" -"(let-values()(values s_211 null))))))" +"(begin(set-box! b_77(cons sc_30(unbox b_77)))(values(add-scope s_206 sc_30)(list sc_30))))))" +"(let-values()(values s_206 null))))))" "(define-values" "(matching-frame?)" "(lambda(current-frame-id_0 bind-frame-id_0)" "(begin" "(if current-frame-id_0" -"(let-values(((or-part_273)(eq? current-frame-id_0 bind-frame-id_0)))" -"(if or-part_273 or-part_273(eq? current-frame-id_0 'all)))" +"(let-values(((or-part_258)(eq? current-frame-id_0 bind-frame-id_0)))" +"(if or-part_258 or-part_258(eq? current-frame-id_0 'all)))" " #f))))" "(define-values" "(maybe-add-post-expansion-scope)" -"(lambda(s_98 ctx_28)" +"(lambda(s_207 ctx_28)" "(begin" "(if(root-expand-context-post-expansion-scope ctx_28)" "(let-values()" -"((expand-context-post-expansion-scope-action ctx_28) s_98(root-expand-context-post-expansion-scope ctx_28)))" -"(let-values() s_98)))))" +"((expand-context-post-expansion-scope-action ctx_28) s_207(root-expand-context-post-expansion-scope ctx_28)))" +"(let-values() s_207)))))" "(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_183) ctx_29))" -"(let-values(((the-struct_57) v_183))" -"(if(expand-context/outer? the-struct_57)" +"(let-values(((v_184) ctx_29))" +"(let-values(((the-struct_16) v_184))" +"(if(expand-context/outer? the-struct_16)" "(let-values(((scopes135_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_29)))" -"((inner136_0)(root-expand-context/outer-inner v_183)))" +"((inner136_0)(root-expand-context/outer-inner v_184)))" "(expand-context/outer1.1" " inner136_0" -"(root-expand-context/outer-post-expansion-scope the-struct_57)" -"(root-expand-context/outer-use-site-scopes the-struct_57)" -"(root-expand-context/outer-frame-id the-struct_57)" -"(expand-context/outer-context the-struct_57)" -"(expand-context/outer-env the-struct_57)" -"(expand-context/outer-post-expansion-scope-action the-struct_57)" +"(root-expand-context/outer-post-expansion-scope the-struct_16)" +"(root-expand-context/outer-use-site-scopes the-struct_16)" +"(root-expand-context/outer-frame-id the-struct_16)" +"(expand-context/outer-context the-struct_16)" +"(expand-context/outer-env the-struct_16)" +"(expand-context/outer-post-expansion-scope-action the-struct_16)" " scopes135_0" -"(expand-context/outer-def-ctx-scopes the-struct_57)" -"(expand-context/outer-binding-layer the-struct_57)" -"(expand-context/outer-reference-records the-struct_57)" -"(expand-context/outer-only-immediate? the-struct_57)" -"(expand-context/outer-need-eventually-defined the-struct_57)" -"(expand-context/outer-current-introduction-scopes the-struct_57)" -"(expand-context/outer-name the-struct_57)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_57))))))))" +"(expand-context/outer-def-ctx-scopes the-struct_16)" +"(expand-context/outer-binding-layer the-struct_16)" +"(expand-context/outer-reference-records the-struct_16)" +"(expand-context/outer-only-immediate? the-struct_16)" +"(expand-context/outer-need-eventually-defined the-struct_16)" +"(expand-context/outer-current-introduction-scopes the-struct_16)" +"(expand-context/outer-name the-struct_16)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_16))))))))" "(define-values" "(lookup28.1)" "(lambda(in21_0 in23_0 out-of-context-as-variable?22_0 out-of-context-as-variable?24_0 b25_0 ctx26_0 id27_0)" @@ -39412,19 +39497,19 @@ static const char *startup_source = " id142_0)))))))))))" "(define-values" "(substitute-alternate-id)" -"(lambda(s_398 alternate-id_3)" +"(lambda(s_389 alternate-id_3)" "(begin" "(if(not alternate-id_3)" -"(let-values() s_398)" -"(if(identifier? s_398)" -"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_398) s_398))" +"(let-values() s_389)" +"(if(identifier? s_389)" +"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_389) s_389))" "(let-values()" -"(let-values(((disarmed-s_4)(syntax-disarm$1 s_398)))" +"(let-values(((disarmed-s_4)(syntax-disarm$1 s_389)))" "(syntax-rearm$1" "(syntax-track-origin$1" -"(datum->syntax$1 disarmed-s_4(cons alternate-id_3(cdr(syntax-e$1 disarmed-s_4))) s_398)" -" s_398)" -" s_398))))))))" +"(datum->syntax$1 disarmed-s_4(cons alternate-id_3(cdr(syntax-e$1 disarmed-s_4))) s_389)" +" s_389)" +" s_389))))))))" "(define-values" "(register-variable-referenced-if-local!)" "(lambda(binding_25)" @@ -39446,7 +39531,7 @@ static const char *startup_source = " ctx40_0)" "(begin" " 'expand/capture-lifts41" -"(let-values(((s_399) s39_0))" +"(let-values(((s_390) s39_0))" "(let-values(((ctx_31) ctx40_0))" "(let-values(((expand-lifts?_0)(if expand-lifts?35_0 expand-lifts?31_0 #f)))" "(let-values(((begin-form?_0)(if begin-form?36_0 begin-form?32_0 #f)))" @@ -39457,7 +39542,7 @@ static const char *startup_source = "(let-values(((phase_104)(expand-context-phase ctx_31)))" "(let-values(((local?_0)(not begin-form?_0)))" "((letrec-values(((loop_93)" -"(lambda(s_223 always-wrap?_1 ctx_32)" +"(lambda(s_218 always-wrap?_1 ctx_32)" "(begin" " 'loop" "(let-values(((lift-env_2)(if local?_0(box empty-env) #f)))" @@ -39474,15 +39559,15 @@ static const char *startup_source = " #f)))" "(make-lift-context6.1 temp146_1 #t temp145_1))))" "(let-values(((capture-ctx_0)" -"(let-values(((v_74) ctx_32))" -"(let-values(((the-struct_58) v_74))" -"(if(expand-context/outer? the-struct_58)" +"(let-values(((v_76) ctx_32))" +"(let-values(((the-struct_57) v_76))" +"(if(expand-context/outer? the-struct_57)" "(let-values(((inner147_0)" -"(let-values(((the-struct_59)" +"(let-values(((the-struct_58)" "(root-expand-context/outer-inner" -" v_74)))" +" v_76)))" "(if(expand-context/inner?" -" the-struct_59)" +" the-struct_58)" "(let-values(((lift-key148_0)" " lift-key_2)" "((lifts149_0)" @@ -39496,10 +39581,10 @@ static const char *startup_source = "(expand-context-lift-envs" " ctx_32)))" "((module-lifts151_0)" -"(if(let-values(((or-part_274)" +"(if(let-values(((or-part_259)" " local?_0))" -"(if or-part_274" -" or-part_274" +"(if or-part_259" +" or-part_259" "(not" "(memq" " context_6" @@ -39510,88 +39595,88 @@ static const char *startup_source = " lift-ctx_0)))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_59)" +" the-struct_58)" "(root-expand-context/inner-module-scopes" -" the-struct_59)" +" the-struct_58)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_59)" +" the-struct_58)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_59)" +" the-struct_58)" "(root-expand-context/inner-defined-syms" -" the-struct_59)" +" the-struct_58)" "(root-expand-context/inner-counter" -" the-struct_59)" +" the-struct_58)" " lift-key148_0" "(expand-context/inner-to-parsed?" -" the-struct_59)" +" the-struct_58)" "(expand-context/inner-phase" -" the-struct_59)" +" the-struct_58)" "(expand-context/inner-namespace" -" the-struct_59)" +" the-struct_58)" "(expand-context/inner-just-once?" -" the-struct_59)" +" the-struct_58)" "(expand-context/inner-module-begin-k" -" the-struct_59)" +" the-struct_58)" "(expand-context/inner-allow-unbound?" -" the-struct_59)" +" the-struct_58)" "(expand-context/inner-in-local-expand?" -" the-struct_59)" +" the-struct_58)" "(expand-context/inner-stops" -" the-struct_59)" +" the-struct_58)" "(expand-context/inner-declared-submodule-names" -" the-struct_59)" +" the-struct_58)" " lifts149_0" " lift-envs150_0" " module-lifts151_0" "(expand-context/inner-require-lifts" -" the-struct_59)" +" the-struct_58)" "(expand-context/inner-to-module-lifts" -" the-struct_59)" +" the-struct_58)" "(expand-context/inner-requires+provides" -" the-struct_59)" +" the-struct_58)" "(expand-context/inner-observer" -" the-struct_59)" +" the-struct_58)" "(expand-context/inner-for-serializable?" -" the-struct_59)" +" the-struct_58)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_59)))" +" the-struct_58)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_59)))))" +" the-struct_58)))))" "(expand-context/outer1.1" " inner147_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_58)" +" the-struct_57)" "(root-expand-context/outer-use-site-scopes" -" the-struct_58)" +" the-struct_57)" "(root-expand-context/outer-frame-id" -" the-struct_58)" -"(expand-context/outer-context the-struct_58)" -"(expand-context/outer-env the-struct_58)" +" the-struct_57)" +"(expand-context/outer-context the-struct_57)" +"(expand-context/outer-env the-struct_57)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_58)" -"(expand-context/outer-scopes the-struct_58)" +" the-struct_57)" +"(expand-context/outer-scopes the-struct_57)" "(expand-context/outer-def-ctx-scopes" -" the-struct_58)" +" the-struct_57)" "(expand-context/outer-binding-layer" -" the-struct_58)" +" the-struct_57)" "(expand-context/outer-reference-records" -" the-struct_58)" +" the-struct_57)" "(expand-context/outer-only-immediate?" -" the-struct_58)" +" the-struct_57)" "(expand-context/outer-need-eventually-defined" -" the-struct_58)" +" the-struct_57)" "(expand-context/outer-current-introduction-scopes" -" the-struct_58)" -"(expand-context/outer-name the-struct_58)))" +" the-struct_57)" +"(expand-context/outer-name the-struct_57)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_58))))))" -"(let-values(((rebuild-s_0)(keep-properties-only s_223)))" +" the-struct_57))))))" +"(let-values(((rebuild-s_0)(keep-properties-only s_218)))" "(let-values(((exp-s_2)" -"(let-values(((s152_0) s_223)" +"(let-values(((s152_0) s_218)" "((capture-ctx153_0) capture-ctx_0))" "(expand7.1" " #f" @@ -39604,10 +39689,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_275)" +"(if(let-values(((or-part_260)" "(pair? lifts_6)))" -"(if or-part_275" -" or-part_275" +"(if or-part_260" +" or-part_260" " always-wrap?_1))" "(let-values()" "(if(expand-context-to-parsed? ctx_32)" @@ -39666,7 +39751,7 @@ static const char *startup_source = "(void)))" "(loop_93 with-lifts-s_0 #f ctx_32)))))))))))))))" " loop_93)" -" s_399" +" s_390" " always-wrap?_0" " ctx_31))))))))))))))" "(define-values" @@ -39687,7 +39772,7 @@ static const char *startup_source = " ctx57_0)" "(begin" " 'expand-transformer58" -"(let-values(((s_346) s56_0))" +"(let-values(((s_339) s56_0))" "(let-values(((ctx_33) ctx57_0))" "(let-values(((context_7)(if context50_0 context44_0 'expression)))" "(let-values(((begin-form?_1)(if begin-form?51_0 begin-form?45_0 #f)))" @@ -39707,7 +39792,7 @@ static const char *startup_source = " ctx163_0" " context164_0" " #t))))" -"(let-values(((s157_0) s_346)" +"(let-values(((s157_0) s_339)" "((trans-ctx158_0) trans-ctx_0)" "((expand-lifts?159_0) expand-lifts?_1)" "((begin-form?160_0) begin-form?_1)" @@ -39737,9 +39822,9 @@ static const char *startup_source = "(let-values(((ns_73)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_105)))" "(begin" "(namespace-visit-available-modules! ns_73 phase_105)" -"(let-values(((v_184) ctx_34))" -"(let-values(((the-struct_60) v_184))" -"(if(expand-context/outer? the-struct_60)" +"(let-values(((v_185) ctx_34))" +"(let-values(((the-struct_59) v_185))" +"(if(expand-context/outer? the-struct_59)" "(let-values(((context166_0) context_8)" "((scopes167_0) null)" "((env168_0) empty-env)" @@ -39748,8 +39833,8 @@ static const char *startup_source = "((def-ctx-scopes170_0) #f)" "((post-expansion-scope171_0) #f)" "((inner172_0)" -"(let-values(((the-struct_61)(root-expand-context/outer-inner v_184)))" -"(if(expand-context/inner? the-struct_61)" +"(let-values(((the-struct_60)(root-expand-context/outer-inner v_185)))" +"(if(expand-context/inner? the-struct_60)" "(let-values(((phase173_0) phase_105)" "((namespace174_0) ns_73)" "((stops175_0)" @@ -39757,52 +39842,52 @@ static const char *startup_source = "(expand-context-stops ctx_34)" " empty-free-id-set)))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_61)" -"(root-expand-context/inner-module-scopes the-struct_61)" -"(root-expand-context/inner-top-level-bind-scope the-struct_61)" -"(root-expand-context/inner-all-scopes-stx the-struct_61)" -"(root-expand-context/inner-defined-syms the-struct_61)" -"(root-expand-context/inner-counter the-struct_61)" -"(root-expand-context/inner-lift-key the-struct_61)" -"(expand-context/inner-to-parsed? the-struct_61)" +"(root-expand-context/inner-self-mpi the-struct_60)" +"(root-expand-context/inner-module-scopes the-struct_60)" +"(root-expand-context/inner-top-level-bind-scope the-struct_60)" +"(root-expand-context/inner-all-scopes-stx the-struct_60)" +"(root-expand-context/inner-defined-syms the-struct_60)" +"(root-expand-context/inner-counter the-struct_60)" +"(root-expand-context/inner-lift-key the-struct_60)" +"(expand-context/inner-to-parsed? the-struct_60)" " phase173_0" " namespace174_0" -"(expand-context/inner-just-once? the-struct_61)" -"(expand-context/inner-module-begin-k the-struct_61)" -"(expand-context/inner-allow-unbound? the-struct_61)" -"(expand-context/inner-in-local-expand? the-struct_61)" +"(expand-context/inner-just-once? the-struct_60)" +"(expand-context/inner-module-begin-k the-struct_60)" +"(expand-context/inner-allow-unbound? the-struct_60)" +"(expand-context/inner-in-local-expand? the-struct_60)" " stops175_0" -"(expand-context/inner-declared-submodule-names the-struct_61)" -"(expand-context/inner-lifts the-struct_61)" -"(expand-context/inner-lift-envs the-struct_61)" -"(expand-context/inner-module-lifts the-struct_61)" -"(expand-context/inner-require-lifts the-struct_61)" -"(expand-context/inner-to-module-lifts the-struct_61)" -"(expand-context/inner-requires+provides the-struct_61)" -"(expand-context/inner-observer the-struct_61)" -"(expand-context/inner-for-serializable? the-struct_61)" -"(expand-context/inner-should-not-encounter-macros? the-struct_61)))" +"(expand-context/inner-declared-submodule-names the-struct_60)" +"(expand-context/inner-lifts the-struct_60)" +"(expand-context/inner-lift-envs the-struct_60)" +"(expand-context/inner-module-lifts the-struct_60)" +"(expand-context/inner-require-lifts the-struct_60)" +"(expand-context/inner-to-module-lifts the-struct_60)" +"(expand-context/inner-requires+provides the-struct_60)" +"(expand-context/inner-observer the-struct_60)" +"(expand-context/inner-for-serializable? the-struct_60)" +"(expand-context/inner-should-not-encounter-macros? the-struct_60)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_61)))))" +" the-struct_60)))))" "(expand-context/outer1.1" " inner172_0" " post-expansion-scope171_0" -"(root-expand-context/outer-use-site-scopes the-struct_60)" -"(root-expand-context/outer-frame-id the-struct_60)" +"(root-expand-context/outer-use-site-scopes the-struct_59)" +"(root-expand-context/outer-frame-id the-struct_59)" " context166_0" " env168_0" -"(expand-context/outer-post-expansion-scope-action the-struct_60)" +"(expand-context/outer-post-expansion-scope-action the-struct_59)" " scopes167_0" " def-ctx-scopes170_0" -"(expand-context/outer-binding-layer the-struct_60)" -"(expand-context/outer-reference-records the-struct_60)" +"(expand-context/outer-binding-layer the-struct_59)" +"(expand-context/outer-reference-records the-struct_59)" " only-immediate?169_0" -"(expand-context/outer-need-eventually-defined the-struct_60)" -"(expand-context/outer-current-introduction-scopes the-struct_60)" -"(expand-context/outer-name the-struct_60)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_60))))))))))))))" +"(expand-context/outer-need-eventually-defined the-struct_59)" +"(expand-context/outer-current-introduction-scopes the-struct_59)" +"(expand-context/outer-name the-struct_59)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_59))))))))))))))" "(define-values" "(expand+eval-for-syntaxes-binding74.1)" "(lambda(log-next?69_0 log-next?70_0 rhs71_0 ids72_0 ctx73_0)" @@ -39850,13 +39935,13 @@ static const char *startup_source = " vals_3))))" "(define-values" "(eval-for-bindings)" -"(lambda(ids_21 p_49 phase_107 ns_74 ctx_37)" +"(lambda(ids_21 p_48 phase_107 ns_74 ctx_37)" "(begin" "(let-values(((compiled_0)" -"(if(can-direct-eval? p_49 ns_74(root-expand-context-self-mpi ctx_37))" +"(if(can-direct-eval? p_48 ns_74(root-expand-context-self-mpi ctx_37))" " #f" "(compile-single" -" p_49" +" p_48" "(let-values(((ns184_0) ns_74)((phase185_0) phase_107))" "(make-compile-context14.1 #f #f #f #f #f #f ns184_0 #t phase185_0 #t #f #f))))))" "(let-values(((vals_4)" @@ -39875,15 +39960,15 @@ static const char *startup_source = "(let-values()" "(if compiled_0" "(eval-single-top compiled_0 ns_74)" -"(direct-eval p_49 ns_74(root-expand-context-self-mpi ctx_37))))))" +"(direct-eval p_48 ns_74(root-expand-context-self-mpi ctx_37))))))" " list)))" "(begin" "(if(=(length vals_4)(length ids_21))" "(void)" -" (let-values () (error \"wrong number of results (\" (length vals_4) \"vs.\" (length ids_21) \")\" \"from\" p_49)))" +" (let-values () (error \"wrong number of results (\" (length vals_4) \"vs.\" (length ids_21) \")\" \"from\" p_48)))" " vals_4))))))" -"(define-values(keep-properties-only)(lambda(s_400)(begin(datum->syntax$1 #f 'props s_400 s_400))))" -"(define-values(keep-properties-only~)(lambda(s_401)(begin #f)))" +"(define-values(keep-properties-only)(lambda(s_391)(begin(datum->syntax$1 #f 'props s_391 s_391))))" +"(define-values(keep-properties-only~)(lambda(s_392)(begin #f)))" "(define-values" "(keep-as-needed85.1)" "(lambda(for-track?77_0" @@ -39897,42 +39982,42 @@ static const char *startup_source = "(begin" " 'keep-as-needed85" "(let-values(((ctx_38) ctx83_0))" -"(let-values(((s_402) s84_0))" +"(let-values(((s_393) s84_0))" "(let-values()" "(let-values(((keep-for-parsed?_0)(if keep-for-parsed?81_0 keep-for-parsed?78_0 #f)))" "(let-values(((keep-for-error?_0)(if keep-for-error?82_0 keep-for-error?79_0 #f)))" "(let-values()" -"(let-values(((d_32)(syntax-e$1 s_402)))" +"(let-values(((d_31)(syntax-e$1 s_393)))" "(let-values(((keep-e_0)" -"(if(symbol? d_32)" -"(let-values() d_32)" -"(if(if(pair? d_32)(identifier?(car d_32)) #f)" -"(let-values()(syntax-e$1(car d_32)))" +"(if(symbol? d_31)" +"(let-values() d_31)" +"(if(if(pair? d_31)(identifier?(car d_31)) #f)" +"(let-values()(syntax-e$1(car d_31)))" "(let-values() #f)))))" "(if(expand-context-to-parsed? ctx_38)" "(let-values()" -"(if(let-values(((or-part_276) keep-for-parsed?_0))" -"(if or-part_276 or-part_276 keep-for-error?_0))" -"(datum->syntax$1 #f keep-e_0 s_402 s_402)" +"(if(let-values(((or-part_261) keep-for-parsed?_0))" +"(if or-part_261 or-part_261 keep-for-error?_0))" +"(datum->syntax$1 #f keep-e_0 s_393 s_393)" " #f))" "(let-values()" "(syntax-rearm$1" -"(datum->syntax$1(syntax-disarm$1 s_402) keep-e_0 s_402 s_402)" -" s_402))))))))))))))" +"(datum->syntax$1(syntax-disarm$1 s_393) keep-e_0 s_393 s_393)" +" s_393))))))))))))))" "(define-values" "(attach-disappeared-transformer-bindings)" -"(lambda(s_403 trans-idss_0)" +"(lambda(s_394 trans-idss_0)" "(begin" "(if(null? trans-idss_0)" -"(let-values() s_403)" +"(let-values() s_394)" "(let-values()" "(syntax-property$1" -" s_403" +" s_394" " 'disappeared-binding" "(append" "(apply append trans-idss_0)" -"(let-values(((or-part_277)(syntax-property$1 s_403 'disappeared-binding)))" -"(if or-part_277 or-part_277 null)))))))))" +"(let-values(((or-part_262)(syntax-property$1 s_394 'disappeared-binding)))" +"(if or-part_262 or-part_262 null)))))))))" "(define-values" "(increment-binding-layer)" "(lambda(ids_22 ctx_39 layer-val_0)" @@ -39941,12 +40026,12 @@ static const char *startup_source = "(lambda(ids_23)" "(begin" " 'loop" -"(let-values(((or-part_278)(identifier? ids_23)))" -"(if or-part_278" -" or-part_278" +"(let-values(((or-part_263)(identifier? ids_23)))" +"(if or-part_263" +" or-part_263" "(if(pair? ids_23)" -"(let-values(((or-part_279)(loop_94(car ids_23))))" -"(if or-part_279 or-part_279(loop_94(cdr ids_23))))" +"(let-values(((or-part_264)(loop_94(car ids_23))))" +"(if or-part_264 or-part_264(loop_94(cdr ids_23))))" " #f)))))))" " loop_94)" " ids_22)" @@ -39975,39 +40060,39 @@ static const char *startup_source = "(list" "(lets-loop_0" "(cdr idss+keyss+rhss_1)" -"(let-values(((v_185) rhs-ctx_1))" -"(let-values(((the-struct_62) v_185))" -"(if(expand-context/outer? the-struct_62)" +"(let-values(((v_186) rhs-ctx_1))" +"(let-values(((the-struct_61) v_186))" +"(if(expand-context/outer? the-struct_61)" "(let-values(((env186_0)" -"(let-values(((lst_283) ids_24)((lst_284) keys_4))" +"(let-values(((lst_285) ids_24)((lst_286) keys_4))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_283)))" +"(let-values()(check-list lst_285)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_284)))" -"((letrec-values(((for-loop_254)" -"(lambda(env_3 lst_285 lst_286)" +"(let-values()(check-list lst_286)))" +"((letrec-values(((for-loop_253)" +"(lambda(env_3 lst_287 lst_288)" "(begin" " 'for-loop" -"(if(if(pair? lst_285)" -"(pair? lst_286)" +"(if(if(pair? lst_287)" +"(pair? lst_288)" " #f)" "(let-values(((id_69)" "(unsafe-car" -" lst_285))" +" lst_287))" "((rest_158)" "(unsafe-cdr" -" lst_285))" -"((key_86)" +" lst_287))" +"((key_85)" "(unsafe-car" -" lst_286))" +" lst_288))" "((rest_159)" "(unsafe-cdr" -" lst_286)))" +" lst_288)))" "(let-values(((env_4)" "(let-values(((env_5)" " env_3))" @@ -40015,54 +40100,54 @@ static const char *startup_source = "(let-values()" "(env-extend" " env_5" -" key_86" +" key_85" "(local-variable1.1" " id_69)))))" "(values" " env_6)))))" "(if(not #f)" -"(for-loop_254" +"(for-loop_253" " env_4" " rest_158" " rest_159)" " env_4)))" " env_3)))))" -" for-loop_254)" +" for-loop_253)" "(expand-context-env rhs-ctx_1)" -" lst_283" -" lst_284))))" -"((inner187_0)(root-expand-context/outer-inner v_185)))" +" lst_285" +" lst_286))))" +"((inner187_0)(root-expand-context/outer-inner v_186)))" "(expand-context/outer1.1" " inner187_0" -"(root-expand-context/outer-post-expansion-scope the-struct_62)" -"(root-expand-context/outer-use-site-scopes the-struct_62)" -"(root-expand-context/outer-frame-id the-struct_62)" -"(expand-context/outer-context the-struct_62)" +"(root-expand-context/outer-post-expansion-scope the-struct_61)" +"(root-expand-context/outer-use-site-scopes the-struct_61)" +"(root-expand-context/outer-frame-id the-struct_61)" +"(expand-context/outer-context the-struct_61)" " env186_0" -"(expand-context/outer-post-expansion-scope-action the-struct_62)" -"(expand-context/outer-scopes the-struct_62)" -"(expand-context/outer-def-ctx-scopes the-struct_62)" -"(expand-context/outer-binding-layer the-struct_62)" -"(expand-context/outer-reference-records the-struct_62)" -"(expand-context/outer-only-immediate? the-struct_62)" -"(expand-context/outer-need-eventually-defined the-struct_62)" -"(expand-context/outer-current-introduction-scopes the-struct_62)" -"(expand-context/outer-name the-struct_62)))" +"(expand-context/outer-post-expansion-scope-action the-struct_61)" +"(expand-context/outer-scopes the-struct_61)" +"(expand-context/outer-def-ctx-scopes the-struct_61)" +"(expand-context/outer-binding-layer the-struct_61)" +"(expand-context/outer-reference-records the-struct_61)" +"(expand-context/outer-only-immediate? the-struct_61)" +"(expand-context/outer-need-eventually-defined the-struct_61)" +"(expand-context/outer-current-introduction-scopes the-struct_61)" +"(expand-context/outer-name the-struct_61)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_62)))))))))))))))))" +" the-struct_61)))))))))))))))))" " lets-loop_0)" " idss+keyss+rhss_0" " ctx_40)))))" "(define-values" "(rename-transformer-target-in-context)" -"(lambda(t_54 ctx_41)" +"(lambda(t_56 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_54))))))" +"(let-values()(1/rename-transformer-target t_56))))))" "(define-values" "(maybe-install-free=id-in-context!)" "(lambda(val_71 id_70 phase_108 ctx_42)" @@ -40080,19 +40165,19 @@ static const char *startup_source = "(begin" "(let-values(((srcloc_7)(syntax-srcloc old-s_0)))" "(if srcloc_7" -"(let-values(((the-struct_63) new-s_1))" -"(if(syntax?$1 the-struct_63)" +"(let-values(((the-struct_62) new-s_1))" +"(if(syntax?$1 the-struct_62)" "(let-values(((srcloc188_0) srcloc_7))" "(syntax1.1" -"(syntax-content the-struct_63)" -"(syntax-scopes the-struct_63)" -"(syntax-shifted-multi-scopes the-struct_63)" -"(syntax-scope-propagations+tamper the-struct_63)" -"(syntax-mpi-shifts the-struct_63)" +"(syntax-content the-struct_62)" +"(syntax-scopes the-struct_62)" +"(syntax-shifted-multi-scopes the-struct_62)" +"(syntax-scope-propagations+tamper the-struct_62)" +"(syntax-mpi-shifts the-struct_62)" " srcloc188_0" -"(syntax-props the-struct_63)" -"(syntax-inspector the-struct_63)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_63)))" +"(syntax-props the-struct_62)" +"(syntax-inspector the-struct_62)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_62)))" " new-s_1)))))" "(define-values" "(stop-ids->all-stop-ids)" @@ -40110,19 +40195,19 @@ static const char *startup_source = "(append" " stop-ids_0" "(reverse$1" -"(let-values(((lst_101) auto-stop-syms))" +"(let-values(((lst_102) auto-stop-syms))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_101)))" -"((letrec-values(((for-loop_111)" -"(lambda(fold-var_86 lst_6)" +"(let-values()(check-list lst_102)))" +"((letrec-values(((for-loop_110)" +"(lambda(fold-var_88 lst_6)" "(begin" " 'for-loop" "(if(pair? lst_6)" "(let-values(((sym_63)(unsafe-car lst_6))((rest_48)(unsafe-cdr lst_6)))" -"(let-values(((fold-var_87)" -"(let-values(((fold-var_88) fold-var_86))" +"(let-values(((fold-var_89)" +"(let-values(((fold-var_90) fold-var_88))" "(let-values(((fold-var_60)" "(let-values()" "(cons" @@ -40130,13 +40215,13 @@ static const char *startup_source = "(datum->syntax$1" " p-core-stx_0" " sym_63))" -" fold-var_88))))" +" fold-var_90))))" "(values fold-var_60)))))" -"(if(not #f)(for-loop_111 fold-var_87 rest_48) fold-var_87)))" -" fold-var_86)))))" -" for-loop_111)" +"(if(not #f)(for-loop_110 fold-var_89 rest_48) fold-var_89)))" +" fold-var_88)))))" +" for-loop_110)" " null" -" lst_101)))))))))))))" +" lst_102)))))))))))))" "(define-values" "(auto-stop-syms)" " '(begin" @@ -40160,29 +40245,29 @@ static const char *startup_source = "(begin" "(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_109)))" "(reverse$1" -"(let-values(((lst_222) module-stop-syms))" +"(let-values(((lst_224) module-stop-syms))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_222)))" -"((letrec-values(((for-loop_255)" -"(lambda(fold-var_241 lst_262)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_224)))" +"((letrec-values(((for-loop_254)" +"(lambda(fold-var_241 lst_264)" "(begin" " 'for-loop" -"(if(pair? lst_262)" -"(let-values(((sym_16)(unsafe-car lst_262))((rest_160)(unsafe-cdr lst_262)))" -"(let-values(((fold-var_219)" -"(let-values(((fold-var_220) fold-var_241))" -"(let-values(((fold-var_221)" +"(if(pair? lst_264)" +"(let-values(((sym_16)(unsafe-car lst_264))((rest_160)(unsafe-cdr lst_264)))" +"(let-values(((fold-var_222)" +"(let-values(((fold-var_223) fold-var_241))" +"(let-values(((fold-var_224)" "(let-values()" "(cons" "(let-values()" "(datum->syntax$1 p-core-stx_1 sym_16))" -" fold-var_220))))" -"(values fold-var_221)))))" -"(if(not #f)(for-loop_255 fold-var_219 rest_160) fold-var_219)))" +" fold-var_223))))" +"(values fold-var_224)))))" +"(if(not #f)(for-loop_254 fold-var_222 rest_160) fold-var_222)))" " fold-var_241)))))" -" for-loop_255)" +" for-loop_254)" " null" -" lst_222))))))))" +" lst_224))))))))" "(define-values" "(module-stop-syms)" "(append" @@ -40262,11 +40347,11 @@ static const char *startup_source = "(let-values(((or-part_66)(root-expand-context-frame-id ctx_43)))" "(if or-part_66" " or-part_66" -"(let-values(((or-part_178)" +"(let-values(((or-part_164)" "(if parent-ctx_0" "(internal-definition-context-frame-id parent-ctx_0)" " #f)))" -"(if or-part_178 or-part_178(gensym)))))))" +"(if or-part_164 or-part_164(gensym)))))))" "(let-values(((sc_31)(new-scope 'intdef)))" "(let-values(((def-ctx-scopes_4)(expand-context-def-ctx-scopes ctx_43)))" "(begin" @@ -40286,7 +40371,7 @@ static const char *startup_source = "((parent-ctx3_1)(syntax-local-make-definition-context7_0 parent-ctx3_1 #f #t #f)))))" "(define-values" "(1/syntax-local-bind-syntaxes)" -"(lambda(ids_25 s_404 intdef_0)" +"(lambda(ids_25 s_395 intdef_0)" "(begin" " 'syntax-local-bind-syntaxes" "(let-values((()" @@ -40298,9 +40383,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_167)(not s_404)))(if or-part_167 or-part_167(syntax?$1 s_404)))" +"(if(let-values(((or-part_72)(not s_395)))(if or-part_72 or-part_72(syntax?$1 s_395)))" "(void)" -" (let-values () (raise-argument-error 'syntax-local-bind-syntaxes \"(or/c syntax? #f)\" s_404)))" +" (let-values () (raise-argument-error 'syntax-local-bind-syntaxes \"(or/c syntax? #f)\" s_395)))" "(values))))" "(let-values((()" "(begin" @@ -40325,18 +40410,18 @@ static const char *startup_source = "(let-values(((intdef-env_0)(add-intdef-bindings(expand-context-env ctx_44) intdef_0)))" "(let-values(((intdef-ids_0)" "(reverse$1" -"(let-values(((lst_287) ids_25))" +"(let-values(((lst_289) ids_25))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_287)))" +"(let-values()(check-list lst_289)))" "((letrec-values(((for-loop_176)" -"(lambda(fold-var_16 lst_186)" +"(lambda(fold-var_16 lst_188)" "(begin" " 'for-loop" -"(if(pair? lst_186)" -"(let-values(((id_71)(unsafe-car lst_186))" -"((rest_161)(unsafe-cdr lst_186)))" +"(if(pair? lst_188)" +"(let-values(((id_71)(unsafe-car lst_188))" +"((rest_161)(unsafe-cdr lst_188)))" "(let-values(((fold-var_233)" "(let-values(((fold-var_242)" " fold-var_16))" @@ -40371,7 +40456,7 @@ static const char *startup_source = " fold-var_16)))))" " for-loop_176)" " null" -" lst_287))))))" +" lst_289))))))" "(let-values((()" "(begin" "(let-values(((obs_29)(expand-context-observer ctx_44)))" @@ -40382,18 +40467,18 @@ static const char *startup_source = "(values))))" "(let-values(((syms_21)" "(reverse$1" -"(let-values(((lst_288) intdef-ids_0))" +"(let-values(((lst_290) intdef-ids_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_288)))" -"((letrec-values(((for-loop_256)" -"(lambda(fold-var_244 lst_289)" +"(let-values()(check-list lst_290)))" +"((letrec-values(((for-loop_255)" +"(lambda(fold-var_244 lst_291)" "(begin" " 'for-loop" -"(if(pair? lst_289)" -"(let-values(((intdef-id_0)(unsafe-car lst_289))" -"((rest_162)(unsafe-cdr lst_289)))" +"(if(pair? lst_291)" +"(let-values(((intdef-id_0)(unsafe-car lst_291))" +"((rest_162)(unsafe-cdr lst_291)))" "(let-values(((fold-var_245)" "(let-values(((fold-var_246)" " fold-var_244))" @@ -40422,40 +40507,40 @@ static const char *startup_source = " fold-var_246))))" "(values fold-var_247)))))" "(if(not #f)" -"(for-loop_256 fold-var_245 rest_162)" +"(for-loop_255 fold-var_245 rest_162)" " fold-var_245)))" " fold-var_244)))))" -" for-loop_256)" +" for-loop_255)" " null" -" lst_288))))))" +" lst_290))))))" "(let-values(((vals_5)" -"(if s_404" +"(if s_395" "(let-values()" "(let-values(((input-s_0)" "(flip-introduction-scopes" -"(let-values(((s51_0) s_404)" +"(let-values(((s51_0) s_395)" "((intdef52_0) intdef_0)" "((temp53_1) #t))" "(add-intdef-scopes21.1 #f #f temp53_1 #t s51_0 intdef52_0))" " ctx_44)))" "(let-values(((tmp-env_0)" -"(let-values(((lst_290) syms_21))" +"(let-values(((lst_292) syms_21))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_290)))" +"(let-values()(check-list lst_292)))" "((letrec-values(((for-loop_6)" -"(lambda(env_7 lst_169)" +"(lambda(env_7 lst_171)" "(begin" " 'for-loop" -"(if(pair? lst_169)" +"(if(pair? lst_171)" "(let-values(((sym_64)" "(unsafe-car" -" lst_169))" +" lst_171))" "((rest_163)" "(unsafe-cdr" -" lst_169)))" +" lst_171)))" "(let-values(((env_8)" "(let-values(((env_9)" " env_7))" @@ -40475,7 +40560,7 @@ static const char *startup_source = " env_7)))))" " for-loop_6)" " intdef-env_0" -" lst_290)))))" +" lst_292)))))" "(let-values((()" "(begin" "(let-values(((obs_30)" @@ -40491,47 +40576,47 @@ static const char *startup_source = " input-s_0" " ids_25" "(let-values(((temp54_0)" -"(let-values(((v_186) ctx_44))" -"(let-values(((the-struct_64) v_186))" +"(let-values(((v_187) ctx_44))" +"(let-values(((the-struct_63) v_187))" "(if(expand-context/outer?" -" the-struct_64)" +" the-struct_63)" "(let-values(((env57_0) tmp-env_0)" "((inner58_0)" "(root-expand-context/outer-inner" -" v_186)))" +" v_187)))" "(expand-context/outer1.1" " inner58_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_64)" +" the-struct_63)" "(root-expand-context/outer-use-site-scopes" -" the-struct_64)" +" the-struct_63)" "(root-expand-context/outer-frame-id" -" the-struct_64)" +" the-struct_63)" "(expand-context/outer-context" -" the-struct_64)" +" the-struct_63)" " env57_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_64)" +" the-struct_63)" "(expand-context/outer-scopes" -" the-struct_64)" +" the-struct_63)" "(expand-context/outer-def-ctx-scopes" -" the-struct_64)" +" the-struct_63)" "(expand-context/outer-binding-layer" -" the-struct_64)" +" the-struct_63)" "(expand-context/outer-reference-records" -" the-struct_64)" +" the-struct_63)" "(expand-context/outer-only-immediate?" -" the-struct_64)" +" the-struct_63)" "(expand-context/outer-need-eventually-defined" -" the-struct_64)" +" the-struct_63)" "(expand-context/outer-current-introduction-scopes" -" the-struct_64)" +" the-struct_63)" "(expand-context/outer-name" -" the-struct_64)))" +" the-struct_63)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_64)))))" +" the-struct_63)))))" "((temp55_2) 'expression)" "((intdef56_0) intdef_0))" "(make-local-expand-context37.1" @@ -40555,21 +40640,21 @@ static const char *startup_source = " vals_6))))))" "(let-values()" "(reverse$1" -"(let-values(((lst_291) ids_25))" +"(let-values(((lst_293) ids_25))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_291)))" -"((letrec-values(((for-loop_257)" -"(lambda(fold-var_179 lst_292)" +"(let-values()(check-list lst_293)))" +"((letrec-values(((for-loop_256)" +"(lambda(fold-var_181 lst_294)" "(begin" " 'for-loop" -"(if(pair? lst_292)" -"(let-values(((id_72)(unsafe-car lst_292))" -"((rest_164)(unsafe-cdr lst_292)))" +"(if(pair? lst_294)" +"(let-values(((id_72)(unsafe-car lst_294))" +"((rest_164)(unsafe-cdr lst_294)))" "(let-values(((fold-var_248)" "(let-values(((fold-var_249)" -" fold-var_179))" +" fold-var_181))" "(let-values(((fold-var_250)" "(let-values()" "(cons" @@ -40578,43 +40663,43 @@ static const char *startup_source = " fold-var_249))))" "(values fold-var_250)))))" "(if(not #f)" -"(for-loop_257 fold-var_248 rest_164)" +"(for-loop_256 fold-var_248 rest_164)" " fold-var_248)))" -" fold-var_179)))))" -" for-loop_257)" +" fold-var_181)))))" +" for-loop_256)" " null" -" lst_291))))))))" +" lst_293))))))))" "(let-values(((env-mixins_0)(internal-definition-context-env-mixins intdef_0)))" "(begin" "(set-box!" " env-mixins_0" "(append" "(reverse$1" -"(let-values(((lst_293) intdef-ids_0)((lst_294) syms_21)((lst_295) vals_5))" +"(let-values(((lst_295) intdef-ids_0)((lst_296) syms_21)((lst_297) vals_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_293)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_294)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_295)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_296)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_297)))" "((letrec-values(((for-loop_79)" -"(lambda(fold-var_251 lst_296 lst_106 lst_297)" +"(lambda(fold-var_251 lst_298 lst_107 lst_299)" "(begin" " 'for-loop" -"(if(if(pair? lst_296)" -"(if(pair? lst_106)(pair? lst_297) #f)" +"(if(if(pair? lst_298)" +"(if(pair? lst_107)(pair? lst_299) #f)" " #f)" -"(let-values(((intdef-id_1)(unsafe-car lst_296))" -"((rest_165)(unsafe-cdr lst_296))" -"((sym_65)(unsafe-car lst_106))" -"((rest_102)(unsafe-cdr lst_106))" -"((val_27)(unsafe-car lst_297))" -"((rest_166)(unsafe-cdr lst_297)))" -"(let-values(((fold-var_184)" +"(let-values(((intdef-id_1)(unsafe-car lst_298))" +"((rest_165)(unsafe-cdr lst_298))" +"((sym_65)(unsafe-car lst_107))" +"((rest_102)(unsafe-cdr lst_107))" +"((val_27)(unsafe-car lst_299))" +"((rest_166)(unsafe-cdr lst_299)))" +"(let-values(((fold-var_186)" "(let-values(((fold-var_36)" " fold-var_251))" "(let-values(((fold-var_37)" @@ -40636,17 +40721,17 @@ static const char *startup_source = "(values fold-var_37)))))" "(if(not #f)" "(for-loop_79" -" fold-var_184" +" fold-var_186" " rest_165" " rest_102" " rest_166)" -" fold-var_184)))" +" fold-var_186)))" " fold-var_251)))))" " for-loop_79)" " null" -" lst_293" -" lst_294" -" lst_295))))" +" lst_295" +" lst_296" +" lst_297))))" "(unbox env-mixins_0)))" "(let-values(((obs_32)(expand-context-observer ctx_44)))" "(if obs_32" @@ -40666,29 +40751,29 @@ static const char *startup_source = " \"internal-definition-context?\"" " intdef_1)))" "(reverse$1" -"(let-values(((lst_298)(unbox(internal-definition-context-env-mixins intdef_1))))" +"(let-values(((lst_300)(unbox(internal-definition-context-env-mixins intdef_1))))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_298)))" -"((letrec-values(((for-loop_258)" -"(lambda(fold-var_252 lst_228)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_300)))" +"((letrec-values(((for-loop_257)" +"(lambda(fold-var_252 lst_230)" "(begin" " 'for-loop" -"(if(pair? lst_228)" -"(let-values(((env-mixin_0)(unsafe-car lst_228))" -"((rest_167)(unsafe-cdr lst_228)))" +"(if(pair? lst_230)" +"(let-values(((env-mixin_0)(unsafe-car lst_230))" +"((rest_167)(unsafe-cdr lst_230)))" "(let-values(((fold-var_253)" -"(let-values(((fold-var_185) fold-var_252))" +"(let-values(((fold-var_187) fold-var_252))" "(let-values(((fold-var_254)" "(let-values()" "(cons" "(let-values()(env-mixin-id env-mixin_0))" -" fold-var_185))))" +" fold-var_187))))" "(values fold-var_254)))))" -"(if(not #f)(for-loop_258 fold-var_253 rest_167) fold-var_253)))" +"(if(not #f)(for-loop_257 fold-var_253 rest_167) fold-var_253)))" " fold-var_252)))))" -" for-loop_258)" +" for-loop_257)" " null" -" lst_298))))))))" +" lst_300))))))))" "(define-values" "(1/internal-definition-context-introduce)" "(let-values(((internal-definition-context-introduce13_0)" @@ -40696,7 +40781,7 @@ static const char *startup_source = "(begin" " 'internal-definition-context-introduce13" "(let-values(((intdef_2) intdef11_0))" -"(let-values(((s_405) s12_1))" +"(let-values(((s_396) s12_1))" "(let-values(((mode_12)(if mode10_0 mode9_0 'flip)))" "(let-values()" "(begin" @@ -40707,19 +40792,19 @@ static const char *startup_source = " 'internal-definition-context-introduce" " \"internal-definition-context?\"" " intdef_2)))" -"(if(syntax?$1 s_405)" +"(if(syntax?$1 s_396)" "(void)" "(let-values()" -" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_405)))" -"(let-values(((s59_0) s_405)" +" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_396)))" +"(let-values(((s59_0) s_396)" "((intdef60_0) intdef_2)" "((temp61_1)" -"(let-values(((tmp_31) mode_12))" -"(if(equal? tmp_31 'add)" +"(let-values(((tmp_32) mode_12))" +"(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" @@ -40728,9 +40813,9 @@ static const char *startup_source = " mode_12))))))))" "(add-intdef-scopes21.1 temp61_1 #t #f #f s59_0 intdef60_0)))))))))))" "(case-lambda" -"((intdef_3 s_201)" -"(begin 'internal-definition-context-introduce(internal-definition-context-introduce13_0 intdef_3 s_201 #f #f)))" -"((intdef_4 s_202 mode9_1)(internal-definition-context-introduce13_0 intdef_4 s_202 mode9_1 #t)))))" +"((intdef_3 s_196)" +"(begin 'internal-definition-context-introduce(internal-definition-context-introduce13_0 intdef_3 s_196 #f #f)))" +"((intdef_4 s_197 mode9_1)(internal-definition-context-introduce13_0 intdef_4 s_197 mode9_1 #t)))))" "(define-values" "(1/internal-definition-context-seal)" "(lambda(intdef_5)" @@ -40751,15 +40836,15 @@ static const char *startup_source = "(if(identifier? id_73)" "(void)" " (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_73)))" -"(if(let-values(((or-part_280)(1/internal-definition-context? intdef_6)))" -"(if or-part_280 or-part_280(if(list? intdef_6)(andmap2 1/internal-definition-context? intdef_6) #f)))" +"(if(let-values(((or-part_265)(1/internal-definition-context? intdef_6)))" +"(if or-part_265 or-part_265(if(list? intdef_6)(andmap2 1/internal-definition-context? intdef_6) #f)))" "(void)" "(let-values()" "(raise-argument-error" " 'identifier-remove-from-definition-context" " \"(or/c internal-definition-context? (listof internal-definition-context?))\"" " intdef_6)))" -"(let-values(((x_73)" +"(let-values(((x_72)" "(let-values(((a_45) intdef_6))" "(if(list? a_45)" "(let-values()(reverse$1 a_45))" @@ -40785,19 +40870,19 @@ static const char *startup_source = " id_19)))))" " for-loop_177)" " id_73" -" x_73)))))))" +" x_72)))))))" "(define-values" "(add-intdef-bindings)" "(lambda(env_11 intdefs_0)" "(begin" -"(let-values(((x_74)" +"(let-values(((x_73)" "(let-values(((a_47) intdefs_0))" "(if(list? a_47)" "(let-values()(reverse$1 a_47))" "(if(not a_47)(let-values() null)(let-values()(list a_47)))))))" "(begin" " #t" -"((letrec-values(((for-loop_259)" +"((letrec-values(((for-loop_258)" "(lambda(env_12 a_48)" "(begin" " 'for-loop" @@ -40821,14 +40906,14 @@ static const char *startup_source = "(let-values(((env-mixin_1)" "(car" " env-mixins_2)))" -"(let-values(((or-part_281)" +"(let-values(((or-part_266)" "(hash-ref" "(env-mixin-cache" " env-mixin_1)" " env_16" " #f)))" -"(if or-part_281" -" or-part_281" +"(if or-part_266" +" or-part_266" "(let-values(((new-env_0)" "(env-extend" "(loop_95" @@ -40850,22 +40935,22 @@ static const char *startup_source = " env_14" " env-mixins_1)))))" "(values env_15)))))" -"(if(not #f)(for-loop_259 env_13(cdr a_48)) env_13)))" +"(if(not #f)(for-loop_258 env_13(cdr a_48)) env_13)))" " env_12)))))" -" for-loop_259)" +" for-loop_258)" " env_11" -" x_74))))))" +" x_73))))))" "(define-values" "(add-intdef-scopes21.1)" "(lambda(action16_0 action18_0 always?15_0 always?17_0 s19_0 intdefs20_0)" "(begin" " 'add-intdef-scopes21" -"(let-values(((s_406) s19_0))" +"(let-values(((s_397) s19_0))" "(let-values(((intdefs_1) intdefs20_0))" "(let-values(((always?_0)(if always?17_0 always?15_0 #f)))" "(let-values(((action_0)(if action18_0 action16_0 add-scope)))" "(let-values()" -"(let-values(((x_75)" +"(let-values(((x_74)" "(let-values(((a_49) intdefs_1))" "(if(list? a_49)" "(let-values()(reverse$1 a_49))" @@ -40873,32 +40958,32 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_180)" -"(lambda(s_392 a_50)" +"(lambda(s_383 a_50)" "(begin" " 'for-loop" "(if(pair? a_50)" "(let-values(((intdef_9)(car a_50)))" -"(let-values(((s_209)" -"(let-values(((s_210) s_392))" -"(if(let-values(((or-part_282) always?_0))" -"(if or-part_282" -" or-part_282" +"(let-values(((s_204)" +"(let-values(((s_205) s_383))" +"(if(let-values(((or-part_267) always?_0))" +"(if or-part_267" +" or-part_267" "(internal-definition-context-add-scope?" " intdef_9)))" -"(let-values(((s_93) s_210))" -"(let-values(((s_321)" +"(let-values(((s_92) s_205))" +"(let-values(((s_315)" "(let-values()" "(action_0" -" s_93" +" s_92" "(internal-definition-context-scope" " intdef_9)))))" -"(values s_321)))" -" s_210))))" -"(if(not #f)(for-loop_180 s_209(cdr a_50)) s_209)))" -" s_392)))))" +"(values s_315)))" +" s_205))))" +"(if(not #f)(for-loop_180 s_204(cdr a_50)) s_204)))" +" s_383)))))" " for-loop_180)" -" s_406" -" x_75)))))))))))" +" s_397" +" x_74)))))))))))" "(define-values" "(make-local-expand-context37.1)" "(lambda(context24_0" @@ -40923,9 +41008,9 @@ static const char *startup_source = "(let-values(((track-to-be-defined?_0)(if track-to-be-defined?35_0 track-to-be-defined?29_0 #f)))" "(let-values()" "(let-values(((same-kind?_0)" -"(let-values(((or-part_283)(eq? context_9(expand-context-context ctx_45))))" -"(if or-part_283" -" or-part_283" +"(let-values(((or-part_268)(eq? context_9(expand-context-context ctx_45))))" +"(if or-part_268" +" or-part_268" "(if(list? context_9)(list?(expand-context-context ctx_45)) #f)))))" "(let-values(((all-stop-ids_0)" "(if stop-ids_1(stop-ids->all-stop-ids stop-ids_1 phase_111) #f)))" @@ -40933,23 +41018,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_187) ctx_45))" -"(let-values(((the-struct_18) v_187))" -"(if(expand-context/outer? the-struct_18)" +"(let-values(((v_188) ctx_45))" +"(let-values(((the-struct_64) v_188))" +"(if(expand-context/outer? the-struct_64)" "(let-values(((context62_0) context_9)" "((env63_0)(add-intdef-bindings(expand-context-env ctx_45) intdefs_2))" "((use-site-scopes64_0)" -"(if(let-values(((or-part_284)(eq? context_9 'module)))" -"(if or-part_284" -" or-part_284" -"(let-values(((or-part_285)(eq? context_9 'module-begin)))" -"(if or-part_285 or-part_285(list? context_9)))))" -"(let-values(((or-part_286)" +"(if(let-values(((or-part_269)(eq? context_9 'module)))" +"(if or-part_269" +" or-part_269" +"(let-values(((or-part_270)(eq? context_9 'module-begin)))" +"(if or-part_270 or-part_270(list? context_9)))))" +"(let-values(((or-part_271)" "(root-expand-context-use-site-scopes ctx_45)))" -"(if or-part_286 or-part_286(box null)))" +"(if or-part_271 or-part_271(box null)))" " #f))" "((frame-id65_0)" -"(let-values(((x_76)" +"(let-values(((x_75)" "(let-values(((a_51) intdefs_2))" "(if(list? a_51)" "(let-values()(reverse$1 a_51))" @@ -40983,10 +41068,10 @@ static const char *startup_source = "(let-values()" " 'all)" "(let-values()" -"(let-values(((or-part_287)" +"(let-values(((or-part_272)" " frame-id_11))" -"(if or-part_287" -" or-part_287" +"(if or-part_272" +" or-part_272" " i-frame-id_0))))))))" "(values frame-id_12)))))" "(if(not #f)" @@ -40995,7 +41080,7 @@ static const char *startup_source = " frame-id_9)))))" " for-loop_127)" "(root-expand-context-frame-id ctx_45)" -" x_76))))" +" x_75))))" "((post-expansion-scope66_0)" "(if intdefs_2" "(new-scope 'macro)" @@ -41006,22 +41091,22 @@ static const char *startup_source = " #f)))" "((post-expansion-scope-action67_0)" "(if intdefs_2" -"(lambda(s_218 placeholder-sc_0)" +"(lambda(s_214 placeholder-sc_0)" "(begin" " 'post-expansion-scope-action67" -"(let-values(((s73_1) s_218)((intdefs74_0) intdefs_2))" +"(let-values(((s73_1) s_214)((intdefs74_0) intdefs_2))" "(add-intdef-scopes21.1 #f #f #f #f s73_1 intdefs74_0))))" "(expand-context-post-expansion-scope-action ctx_45)))" "((scopes68_0)(append def-ctx-scopes_5(expand-context-scopes ctx_45)))" "((only-immediate?69_0)(not stop-ids_1))" "((current-introduction-scopes70_0) null)" "((need-eventually-defined71_0)" -"(let-values(((ht_140)(expand-context-need-eventually-defined ctx_45)))" +"(let-values(((ht_139)(expand-context-need-eventually-defined ctx_45)))" "(if track-to-be-defined?_0" -"(let-values() ht_140)" -"(if ht_140(let-values()(make-hasheqv))(let-values() #f)))))" +"(let-values() ht_139)" +"(if ht_139(let-values()(make-hasheqv))(let-values() #f)))))" "((inner72_0)" -"(let-values(((the-struct_65)(root-expand-context/outer-inner v_187)))" +"(let-values(((the-struct_65)(root-expand-context/outer-inner v_188)))" "(if(expand-context/inner? the-struct_65)" "(let-values(((to-parsed?75_0)" "(if to-parsed-ok?_0" @@ -41032,8 +41117,8 @@ static const char *startup_source = "((stops78_0)" "(free-id-set" " phase_111" -"(let-values(((or-part_288) all-stop-ids_0))" -"(if or-part_288 or-part_288 null)))))" +"(let-values(((or-part_273) all-stop-ids_0))" +"(if or-part_273 or-part_273 null)))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi the-struct_65)" "(root-expand-context/inner-module-scopes the-struct_65)" @@ -41074,17 +41159,17 @@ static const char *startup_source = " env63_0" " post-expansion-scope-action67_0" " scopes68_0" -"(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-def-ctx-scopes the-struct_64)" +"(expand-context/outer-binding-layer the-struct_64)" +"(expand-context/outer-reference-records the-struct_64)" " only-immediate?69_0" " need-eventually-defined71_0" " current-introduction-scopes70_0" -"(expand-context/outer-name the-struct_18)))" +"(expand-context/outer-name the-struct_64)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_18))))))))))))))))))" +" the-struct_64))))))))))))))))))" "(define-values" "(flip-introduction-scopes)" "(lambda(s_123 ctx_46)(begin(flip-scopes s_123(expand-context-current-introduction-scopes ctx_46)))))" @@ -41126,21 +41211,21 @@ static const char *startup_source = "(expand-context-context ctx_50)))))" "(define-values" "(1/syntax-local-introduce)" -"(lambda(s_172)" +"(lambda(s_398)" "(begin" " 'syntax-local-introduce" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_172)" +"(if(syntax?$1 s_398)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_172)))" +" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_398)))" "(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_172 ctx_51))))))))" +"(flip-introduction-scopes s_398 ctx_51))))))))" "(define-values" "(1/syntax-local-identifier-as-binding)" "(lambda(id_77)" @@ -41191,29 +41276,29 @@ static const char *startup_source = "(lambda(s76_0 mode74_0 mode75_0)" "(begin" " 'core77" -"(let-values(((s_82) s76_0))" +"(let-values(((s_81) s76_0))" "(let-values(((mode_13)(if mode75_0 mode74_0 'flip)))" "(let-values()" "(begin" -"(if(syntax?$1 s_82)" +"(if(syntax?$1 s_81)" "(void)" "(let-values()" -" (raise-argument-error 'syntax-introducer \"syntax?\" s_82)))" -"(let-values(((tmp_32) mode_13))" -"(if(equal? tmp_32 'add)" -"(let-values()(add-scope s_82 sc_32))" -"(if(equal? tmp_32 'remove)" -"(let-values()(remove-scope s_82 sc_32))" -"(if(equal? tmp_32 'flip)" -"(let-values()(flip-scope s_82 sc_32))" +" (raise-argument-error 'syntax-introducer \"syntax?\" s_81)))" +"(let-values(((tmp_33) mode_13))" +"(if(equal? tmp_33 'add)" +"(let-values()(add-scope s_81 sc_32))" +"(if(equal? tmp_33 'remove)" +"(let-values()(remove-scope s_81 sc_32))" +"(if(equal? tmp_33 'flip)" +"(let-values()(flip-scope s_81 sc_32))" "(let-values()" "(raise-argument-error" " 'syntax-introducer" " \"(or/c 'add 'remove 'flip)\"" " mode_13))))))))))))))" "(case-lambda" -"((s_184)(core77_0 s_184 #f #f))" -"((s_185 mode74_1)(core77_0 s_185 mode74_1 #t)))))))))))" +"((s_43)(core77_0 s_43 #f #f))" +"((s_181 mode74_1)(core77_0 s_181 mode74_1 #t)))))))))))" "(case-lambda" "(()(begin 'make-syntax-introducer(make-syntax-introducer3_0 #f #f)))" "((as-use-site?1_1)(make-syntax-introducer3_0 as-use-site?1_1 #t)))))" @@ -41242,8 +41327,8 @@ static const char *startup_source = "(let-values((()" "(begin" "(if((lambda(x_14)" -"(let-values(((or-part_175)(not x_14)))" -"(if or-part_175 or-part_175(syntax?$1 x_14))))" +"(let-values(((or-part_274)(not x_14)))" +"(if or-part_274 or-part_274(syntax?$1 x_14))))" " base-s_0)" "(void)" "(let-values()" @@ -41265,8 +41350,8 @@ static const char *startup_source = "(let-values(((ext-scs_0)(syntax-scope-set ext-s_0 phase_112)))" "(let-values(((base-scs_0)" "(syntax-scope-set" -"(let-values(((or-part_94) base-s_0))" -"(if or-part_94 or-part_94 empty-syntax))" +"(let-values(((or-part_96) base-s_0))" +"(if or-part_96 or-part_96 empty-syntax))" " phase_112)))" "(let-values(((use-base-scs_0)" "(if(subset? base-scs_0 ext-scs_0)" @@ -41297,21 +41382,21 @@ static const char *startup_source = "(lambda(s85_0 mode83_0 mode84_0)" "(begin" " 'core86" -"(let-values(((s_407) s85_0))" +"(let-values(((s_399) s85_0))" "(let-values(((mode_14)" "(if mode84_0 mode83_0 'add)))" "(let-values()" "(maybe-taint_0" -"(let-values(((tmp_33) mode_14))" -"(if(equal? tmp_33 'add)" +"(let-values(((tmp_34) mode_14))" +"(if(equal? tmp_34 'add)" "(let-values()" -"(add-scopes s_407 delta-scs_0))" -"(if(equal? tmp_33 'remove)" +"(add-scopes s_399 delta-scs_0))" +"(if(equal? tmp_34 'remove)" "(let-values()" -"(remove-scopes s_407 delta-scs_0))" -"(if(equal? tmp_33 'flip)" +"(remove-scopes s_399 delta-scs_0))" +"(if(equal? tmp_34 'flip)" "(let-values()" -"(flip-scopes s_407 delta-scs_0))" +"(flip-scopes s_399 delta-scs_0))" "(let-values()" "(raise-argument-error" " 'syntax-introducer" @@ -41319,7 +41404,7 @@ static const char *startup_source = " mode_14))))))))))))))" "(case-lambda" "((s_15)(core86_0 s_15 #f #f))" -"((s_408 mode83_1)(core86_0 s_408 mode83_1 #t))))))))))))))))))))))" +"((s_400 mode83_1)(core86_0 s_400 mode83_1 #t))))))))))))))))))))))" "(case-lambda" "((ext-s_1 base-s_1)(begin 'make-syntax-delta-introducer(make-syntax-delta-introducer9_0 ext-s_1 base-s_1 #f #f)))" "((ext-s_2 base-s_2 phase5_2)(make-syntax-delta-introducer9_0 ext-s_2 base-s_2 phase5_2 #t)))))" @@ -41343,7 +41428,7 @@ static const char *startup_source = "(lambda(immediate?11_0 who13_0 id14_1 intdef15_0 failure-thunk16_0)" "(begin" " 'do-syntax-local-value17" -"(let-values(((who_16) who13_0))" +"(let-values(((who_17) who13_0))" "(let-values(((id_79) id14_1))" "(let-values(((intdef_11) intdef15_0))" "(let-values(((failure-thunk_0) failure-thunk16_0))" @@ -41353,71 +41438,71 @@ static const char *startup_source = "(begin" "(if(identifier? id_79)" "(void)" -" (let-values () (raise-argument-error who_16 \"identifier?\" id_79)))" +" (let-values () (raise-argument-error who_17 \"identifier?\" id_79)))" "(values))))" "(let-values((()" "(begin" -"(if((lambda(x_77)" -"(let-values(((or-part_220)(not x_77)))" -"(if or-part_220" -" or-part_220" -"((lambda(p_50)" -"(if(procedure? p_50)(procedure-arity-includes? p_50 0) #f))" -" x_77))))" +"(if((lambda(x_76)" +"(let-values(((or-part_206)(not x_76)))" +"(if or-part_206" +" or-part_206" +"((lambda(p_49)" +"(if(procedure? p_49)(procedure-arity-includes? p_49 0) #f))" +" x_76))))" " failure-thunk_0)" "(void)" "(let-values()" "(raise-argument-error" -" who_16" +" who_17" " \"(or/c #f (procedure-arity-includes/c 0))\"" " failure-thunk_0)))" "(values))))" "(let-values((()" "(begin" "(if((lambda(x_21)" -"(let-values(((or-part_221)(not x_21)))" -"(if or-part_221 or-part_221(1/internal-definition-context? x_21))))" +"(let-values(((or-part_207)(not x_21)))" +"(if or-part_207 or-part_207(1/internal-definition-context? x_21))))" " intdef_11)" "(void)" "(let-values()" "(raise-argument-error" -" who_16" +" who_17" " \"(or/c #f internal-definition-context?)\"" " intdef_11)))" "(values))))" "(let-values(((current-ctx_0)" -"(let-values(((who89_0) who_16))" +"(let-values(((who89_0) who_17))" "(get-current-expand-context17.1 #f #f who89_0 #t))))" "(let-values(((ctx_55)" "(if intdef_11" -"(let-values(((v_188) current-ctx_0))" -"(let-values(((the-struct_66) v_188))" -"(if(expand-context/outer? the-struct_66)" +"(let-values(((v_189) current-ctx_0))" +"(let-values(((the-struct_13) v_189))" +"(if(expand-context/outer? the-struct_13)" "(let-values(((env90_0)" "(add-intdef-bindings" "(expand-context-env current-ctx_0)" " intdef_11))" -"((inner91_0)(root-expand-context/outer-inner v_188)))" +"((inner91_0)(root-expand-context/outer-inner v_189)))" "(expand-context/outer1.1" " inner91_0" -"(root-expand-context/outer-post-expansion-scope the-struct_66)" -"(root-expand-context/outer-use-site-scopes the-struct_66)" -"(root-expand-context/outer-frame-id the-struct_66)" -"(expand-context/outer-context the-struct_66)" +"(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)" " env90_0" -"(expand-context/outer-post-expansion-scope-action the-struct_66)" -"(expand-context/outer-scopes the-struct_66)" -"(expand-context/outer-def-ctx-scopes the-struct_66)" -"(expand-context/outer-binding-layer the-struct_66)" -"(expand-context/outer-reference-records the-struct_66)" -"(expand-context/outer-only-immediate? the-struct_66)" -"(expand-context/outer-need-eventually-defined the-struct_66)" -"(expand-context/outer-current-introduction-scopes the-struct_66)" -"(expand-context/outer-name the-struct_66)))" +"(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_66))))" +" the-struct_13))))" " current-ctx_0)))" "(let-values((()" "(begin" @@ -41476,7 +41561,7 @@ static const char *startup_source = "(void)))" "(if failure-thunk_0" "(failure-thunk_0)" -" (error who_16 \"unbound identifier: ~v\" id_80))))" +" (error who_17 \"unbound identifier: ~v\" id_80))))" "(let-values()" "(let-values(((v_37 primitive?_7 insp_17 protected?_8)" "(let-values(((b95_0) b_79)" @@ -41491,8 +41576,8 @@ static const char *startup_source = " b95_0" " ctx96_0" " id97_1))))" -"(if(let-values(((or-part_289)(variable? v_37)))" -"(if or-part_289 or-part_289(core-form? v_37)))" +"(if(let-values(((or-part_275)(variable? v_37)))" +"(if or-part_275 or-part_275(core-form? v_37)))" "(let-values()" "(begin" "(let-values(((obs_35)" @@ -41508,7 +41593,7 @@ static const char *startup_source = "(if failure-thunk_0" "(failure-thunk_0)" "(error" -" who_16" +" who_17" " \"identifier is not bound to syntax: ~v\"" " id_80))))" "(let-values()" @@ -41593,23 +41678,23 @@ static const char *startup_source = "((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_17 n_28 s_197)" +"(lambda(who_18 n_28 s_192)" "(begin" "(let-values((()" "(begin" -" (if (syntax?$1 s_197) (void) (let-values () (raise-argument-error who_17 \"syntax?\" s_197)))" +" (if (syntax?$1 s_192) (void) (let-values () (raise-argument-error who_18 \"syntax?\" s_192)))" "(values))))" "(let-values((()" "(begin" "(if(exact-nonnegative-integer? n_28)" "(void)" -" (let-values () (raise-argument-error who_17 \"exact-nonnegative-integer?\" n_28)))" +" (let-values () (raise-argument-error who_18 \"exact-nonnegative-integer?\" n_28)))" "(values))))" -"(let-values(((ctx_56)(let-values(((who109_0) who_17))(get-current-expand-context17.1 #f #f who109_0 #t))))" +"(let-values(((ctx_56)(let-values(((who109_0) who_18))(get-current-expand-context17.1 #f #f who109_0 #t))))" "(let-values(((lifts_0)(expand-context-lifts ctx_56)))" "(let-values((()" "(begin" -" (if lifts_0 (void) (let-values () (raise-arguments-error who_17 \"no lift target\")))" +" (if lifts_0 (void) (let-values () (raise-arguments-error who_18 \"no lift target\")))" "(values))))" "(let-values(((counter_4)(root-expand-context-counter ctx_56)))" "(let-values(((ids_26)" @@ -41619,7 +41704,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_40 end_30 inc_24)))" -"((letrec-values(((for-loop_260)" +"((letrec-values(((for-loop_259)" "(lambda(fold-var_255 pos_106)" "(begin" " 'for-loop" @@ -41654,36 +41739,36 @@ static const char *startup_source = " fold-var_257))))" "(values fold-var_258)))))" "(if(not #f)" -"(for-loop_260 fold-var_256(+ pos_106 inc_24))" +"(for-loop_259 fold-var_256(+ pos_106 inc_24))" " fold-var_256)))" " fold-var_255)))))" -" for-loop_260)" +" for-loop_259)" " null" " start_40))))))" "(begin" "(let-values(((obs_37)(expand-context-observer ctx_56)))" "(if obs_37" -"(let-values()(let-values()(call-expand-observe obs_37 'lift-expr ids_26 s_197)))" +"(let-values()(let-values()(call-expand-observe obs_37 'lift-expr ids_26 s_192)))" "(void)))" "(map2" "(lambda(id_89)(flip-introduction-scopes id_89 ctx_56))" "(add-lifted!" " lifts_0" " ids_26" -"(flip-introduction-scopes s_197 ctx_56)" +"(flip-introduction-scopes s_192 ctx_56)" "(expand-context-phase ctx_56))))))))))))))" "(define-values" "(1/syntax-local-lift-expression)" -"(lambda(s_409)" +"(lambda(s_401)" "(begin" " 'syntax-local-lift-expression" -"(let-values()(let-values()(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_409)))))))" +"(let-values()(let-values()(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_401)))))))" "(define-values" "(1/syntax-local-lift-values-expression)" -"(lambda(n_29 s_61)" +"(lambda(n_29 s_312)" "(begin" " 'syntax-local-lift-values-expression" -"(let-values()(let-values()(do-lift-values-expression 'syntax-local-lift-values-expression n_29 s_61))))))" +"(let-values()(let-values()(do-lift-values-expression 'syntax-local-lift-values-expression n_29 s_312))))))" "(define-values" "(1/syntax-local-lift-context)" "(lambda()" @@ -41697,24 +41782,24 @@ static const char *startup_source = "(root-expand-context-lift-key ctx_57)))))))" "(define-values" "(1/syntax-local-lift-module)" -"(lambda(s_410)" +"(lambda(s_402)" "(begin" " 'syntax-local-lift-module" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_410)" +"(if(syntax?$1 s_402)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-lift-module \"syntax?\" s_410)))" +" (let-values () (raise-argument-error 'syntax-local-lift-module \"syntax?\" s_402)))" "(values))))" "(let-values(((ctx_58)" "(let-values(((who115_0) 'syntax-local-lift-module))" "(get-current-expand-context17.1 #f #f who115_0 #t))))" "(let-values(((phase_114)(expand-context-phase ctx_58)))" "(begin" -"(let-values(((tmp_34)(core-form-sym s_410 phase_114)))" -"(if(if(equal? tmp_34 'module) #t(equal? tmp_34 'module*))" +"(let-values(((tmp_35)(core-form-sym s_402 phase_114)))" +"(if(if(equal? tmp_35 'module) #t(equal? tmp_35 'module*))" "(let-values()" "(let-values(((lifts_8)(expand-context-module-lifts ctx_58)))" "(begin" @@ -41725,13 +41810,13 @@ static const char *startup_source = " 'syntax-local-lift-module" " \"not currently transforming within a module declaration or top level\"" " \"form to lift\"" -" s_410)))" -"(add-lifted-module! lifts_8(flip-introduction-scopes s_410 ctx_58) phase_114))))" +" s_402)))" +"(add-lifted-module! lifts_8(flip-introduction-scopes s_402 ctx_58) phase_114))))" "(let-values()" -" (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_410))))" +" (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_402))))" "(let-values(((obs_38)(expand-context-observer ctx_58)))" "(if obs_38" -"(let-values()(let-values()(call-expand-observe obs_38 'lift-statement s_410)))" +"(let-values()(let-values()(call-expand-observe obs_38 'lift-statement s_402)))" "(void))))))))))))" "(define-values" "(do-local-lift-to-module54.1)" @@ -41753,8 +41838,8 @@ static const char *startup_source = " s53_1)" "(begin" " 'do-local-lift-to-module54" -"(let-values(((who_18) who52_0))" -"(let-values(((s_411) s53_1))" +"(let-values(((who_19) who52_0))" +"(let-values(((s_403) 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)))" @@ -41764,25 +41849,25 @@ static const char *startup_source = "(let-values(((pre-wrap_0)" "(if pre-wrap49_0" " pre-wrap40_0" -"(lambda(s_210 phase_115 lift-ctx_1)(begin 'pre-wrap s_210)))))" +"(lambda(s_205 phase_115 lift-ctx_1)(begin 'pre-wrap s_205)))))" "(let-values(((shift-wrap_0)" "(if shift-wrap50_0" " shift-wrap41_0" -"(lambda(s_412 phase_116 lift-ctx_2)(begin 'shift-wrap s_412)))))" +"(lambda(s_404 phase_116 lift-ctx_2)(begin 'shift-wrap s_404)))))" "(let-values(((post-wrap_0)" "(if post-wrap51_0" " post-wrap42_0" -"(lambda(s_323 phase_117 lift-ctx_3)(begin 'post-wrap s_323)))))" +"(lambda(s_317 phase_117 lift-ctx_3)(begin 'post-wrap s_317)))))" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_411)" +"(if(syntax?$1 s_403)" "(void)" -" (let-values () (raise-argument-error who_18 \"syntax?\" s_411)))" +" (let-values () (raise-argument-error who_19 \"syntax?\" s_403)))" "(values))))" "(let-values((()(begin(more-checks_0)(values))))" "(let-values(((ctx_59)" -"(let-values(((who116_0) who_18))" +"(let-values(((who116_0) who_19))" "(get-current-expand-context17.1 #f #f who116_0 #t))))" "(let-values(((lift-ctx_4)(get-lift-ctx_0 ctx_59)))" "(let-values((()" @@ -41791,15 +41876,15 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-arguments-error" -" who_18" +" who_19" " no-target-msg_0" " \"form to lift\"" -" s_411)))" +" s_403)))" "(values))))" "(let-values(((phase_118)(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_411 ctx_59) s_411)))" +"(if intro?_0(flip-introduction-scopes s_403 ctx_59) s_403)))" "(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_118 lift-ctx_4)))" "(let-values(((shift-s_0)" "(let-values(((start_41) phase_118)" @@ -41812,30 +41897,30 @@ static const char *startup_source = "(let-values()" "(check-range start_41 end_31 inc_25)))" "((letrec-values(((for-loop_204)" -"(lambda(s_98 pos_24)" +"(lambda(s_207 pos_24)" "(begin" " 'for-loop" "(if(> pos_24 end_31)" "(let-values(((phase_53)" " pos_24))" -"(let-values(((s_413)" -"(let-values(((s_414)" -" s_98))" -"(let-values(((s_415)" +"(let-values(((s_405)" +"(let-values(((s_406)" +" s_207))" +"(let-values(((s_407)" "(let-values()" "(shift-wrap_0" -" s_414" +" s_406" "(sub1" " phase_53)" " lift-ctx_4))))" "(values" -" s_415)))))" +" s_407)))))" "(if(not #f)" "(for-loop_204" -" s_413" +" s_405" "(+ pos_24 inc_25))" -" s_413)))" -" s_98)))))" +" s_405)))" +" s_207)))))" " for-loop_204)" " pre-s_0" " start_41)))))" @@ -41867,11 +41952,11 @@ static const char *startup_source = "((require-lift-context-wrt-phase124_0) require-lift-context-wrt-phase)" "((add-lifted-require!125_0) add-lifted-require!)" "((temp126_1)" -"(lambda(s_416 phase_119 require-lift-ctx_0)" -"(require-spec-shift-for-syntax s_416)))" +"(lambda(s_408 phase_119 require-lift-ctx_0)" +"(require-spec-shift-for-syntax s_408)))" "((temp127_1)" -"(lambda(s_116 phase_120 require-lift-ctx_1)" -"(wrap-form '#%require(add-scope s_116 sc_33) phase_120))))" +"(lambda(s_217 phase_120 require-lift-ctx_1)" +"(wrap-form '#%require(add-scope s_217 sc_33) phase_120))))" "(do-local-lift-to-module54.1" " add-lifted-require!125_0" " expand-context-require-lifts123_0" @@ -41918,10 +42003,10 @@ static const char *startup_source = "((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_417 phase_121 to-module-lift-ctx_0)(wrap-form 'for-syntax s_417 #f)))" +"(lambda(s_409 phase_121 to-module-lift-ctx_0)(wrap-form 'for-syntax s_409 #f)))" "((temp136_0)" -"(lambda(s_418 phase_122 to-module-lift-ctx_1)" -"(wrap-form '#%provide s_418 phase_122))))" +"(lambda(s_410 phase_122 to-module-lift-ctx_1)" +"(wrap-form '#%provide s_410 phase_122))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-provide!134_0" " expand-context-to-module-lifts132_0" @@ -41945,14 +42030,14 @@ static const char *startup_source = "(void)))))))))" "(define-values" "(1/syntax-local-lift-module-end-declaration)" -"(lambda(s_419)" +"(lambda(s_411)" "(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_419)" +"((s139_0) s_411)" "((temp140_2)" " \"not currently transforming an expression within a module declaration\")" "((expand-context-to-module-lifts141_0) expand-context-to-module-lifts)" @@ -41964,8 +42049,8 @@ static const char *startup_source = "(wrap-form '#%expression orig-s_32 phase_123)" " orig-s_32)))" "((temp145_2)" -"(lambda(s_224 phase_124 to-module-lift-ctx_3)" -"(wrap-form 'begin-for-syntax s_224 phase_124))))" +"(lambda(s_219 phase_124 to-module-lift-ctx_3)" +"(wrap-form 'begin-for-syntax s_219 phase_124))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-end!143_0" " expand-context-to-module-lifts141_0" @@ -41985,15 +42070,15 @@ static const char *startup_source = " s139_0))))" "(let-values(((obs_26)(expand-context-observer ctx_61)))" "(if obs_26" -"(let-values()(let-values()(call-expand-observe obs_26 'lift-statement s_419)))" +"(let-values()(let-values()(call-expand-observe obs_26 'lift-statement s_411)))" "(void)))))))))" "(define-values" "(wrap-form)" -"(lambda(sym_66 s_226 phase_125)" +"(lambda(sym_66 s_220 phase_125)" "(begin" "(datum->syntax$1" " #f" -"(list(datum->syntax$1(if phase_125(syntax-shift-phase-level$1 core-stx phase_125) #f) sym_66) s_226)))))" +"(list(datum->syntax$1(if phase_125(syntax-shift-phase-level$1 core-stx phase_125) #f) sym_66) s_220)))))" "(define-values" "(1/syntax-local-module-defined-identifiers)" "(lambda()" @@ -42023,8 +42108,8 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_197)(not mod-path_8)))" -"(if or-part_197 or-part_197(1/module-path? mod-path_8)))" +"(if(let-values(((or-part_183)(not mod-path_8)))" +"(if or-part_183 or-part_183(1/module-path? mod-path_8)))" "(void)" "(let-values()" "(raise-argument-error" @@ -42034,8 +42119,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_233)(eq? phase-level_21 #t)))" -"(if or-part_233 or-part_233(phase? phase-level_21)))" +"(if(let-values(((or-part_219)(eq? phase-level_21 #t)))" +"(if or-part_219 or-part_219(phase? phase-level_21)))" "(void)" "(let-values()" "(raise-argument-error" @@ -42064,20 +42149,20 @@ static const char *startup_source = "(if(eq? phase-level_21 #t) 'all phase-level_21))))" "(if requireds_0" "(reverse$1" -"(let-values(((ht_141)(requireds->phase-ht requireds_0)))" +"(let-values(((ht_140)(requireds->phase-ht requireds_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_141)))" -"((letrec-values(((for-loop_261)" -"(lambda(fold-var_202 i_168)" +"(let-values()(check-in-hash ht_140)))" +"((letrec-values(((for-loop_260)" +"(lambda(fold-var_204 i_166)" "(begin" " 'for-loop" -"(if i_168" +"(if i_166" "(let-values(((phase_126 ids_27)" -"(hash-iterate-key+value ht_141 i_168)))" +"(hash-iterate-key+value ht_140 i_166)))" "(let-values(((fold-var_259)" -"(let-values(((fold-var_260) fold-var_202))" +"(let-values(((fold-var_260) fold-var_204))" "(let-values(((fold-var_261)" "(let-values()" "(cons" @@ -42086,43 +42171,43 @@ static const char *startup_source = " fold-var_260))))" "(values fold-var_261)))))" "(if(not #f)" -"(for-loop_261" +"(for-loop_260" " fold-var_259" -"(hash-iterate-next ht_141 i_168))" +"(hash-iterate-next ht_140 i_166))" " fold-var_259)))" -" fold-var_202)))))" -" for-loop_261)" +" fold-var_204)))))" +" for-loop_260)" " null" -"(hash-iterate-first ht_141)))))" +"(hash-iterate-first ht_140)))))" " #f)))))))))))))" "(define-values" "(requireds->phase-ht)" "(lambda(requireds_1)" "(begin" -"(let-values(((lst_299) requireds_1))" +"(let-values(((lst_301) requireds_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_299)))" -"((letrec-values(((for-loop_262)" -"(lambda(ht_142 lst_300)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_301)))" +"((letrec-values(((for-loop_261)" +"(lambda(ht_141 lst_302)" "(begin" " 'for-loop" -"(if(pair? lst_300)" -"(let-values(((r_43)(unsafe-car lst_300))((rest_168)(unsafe-cdr lst_300)))" -"(let-values(((ht_143)" -"(let-values(((ht_144) ht_142))" -"(let-values(((ht_145)" +"(if(pair? lst_302)" +"(let-values(((r_43)(unsafe-car lst_302))((rest_168)(unsafe-cdr lst_302)))" +"(let-values(((ht_142)" +"(let-values(((ht_143) ht_141))" +"(let-values(((ht_144)" "(let-values()" "(hash-update" -" ht_144" +" ht_143" "(required-phase r_43)" "(lambda(l_68)(cons(required-id r_43) l_68))" " null))))" -"(values ht_145)))))" -"(if(not #f)(for-loop_262 ht_143 rest_168) ht_143)))" -" ht_142)))))" -" for-loop_262)" +"(values ht_144)))))" +"(if(not #f)(for-loop_261 ht_142 rest_168) ht_142)))" +" ht_141)))))" +" for-loop_261)" "(hasheqv)" -" lst_299))))))" +" lst_301))))))" "(define-values" "(1/syntax-local-module-exports)" "(lambda(mod-path_9)" @@ -42132,9 +42217,9 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_290)(1/module-path? mod-path_9)))" -"(if or-part_290" -" or-part_290" +"(if(let-values(((or-part_276)(1/module-path? mod-path_9)))" +"(if or-part_276" +" or-part_276" "(if(syntax?$1 mod-path_9)(1/module-path?(syntax->datum$1 mod-path_9)) #f)))" "(void)" "(let-values()" @@ -42163,18 +42248,18 @@ static const char *startup_source = "(void)" "(let-values()(raise-unknown-module-error 'syntax-local-module-exports mod-name_18)))" "(reverse$1" -"(let-values(((ht_146)(module-provides m_19)))" +"(let-values(((ht_145)(module-provides m_19)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_146)))" -"((letrec-values(((for-loop_263)" +"(let-values()(check-in-hash ht_145)))" +"((letrec-values(((for-loop_262)" "(lambda(fold-var_262 i_12)" "(begin" " 'for-loop" "(if i_12" "(let-values(((phase_127 syms_22)" -"(hash-iterate-key+value ht_146 i_12)))" +"(hash-iterate-key+value ht_145 i_12)))" "(let-values(((fold-var_263)" "(let-values(((fold-var_264) fold-var_262))" "(let-values(((fold-var_265)" @@ -42184,7 +42269,7 @@ static const char *startup_source = "(cons" " phase_127" "(reverse$1" -"(let-values(((ht_147)" +"(let-values(((ht_146)" " syms_22))" "(begin" "(if(variable-reference-from-unsafe?" @@ -42192,17 +42277,17 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash-keys" -" ht_147)))" -"((letrec-values(((for-loop_264)" +" ht_146)))" +"((letrec-values(((for-loop_263)" "(lambda(fold-var_266" -" i_169)" +" i_167)" "(begin" " 'for-loop" -"(if i_169" +"(if i_167" "(let-values(((sym_67)" "(hash-iterate-key" -" ht_147" -" i_169)))" +" ht_146" +" i_167)))" "(let-values(((fold-var_267)" "(let-values(((fold-var_268)" " fold-var_266))" @@ -42216,26 +42301,26 @@ static const char *startup_source = " fold-var_269)))))" "(if(not" " #f)" -"(for-loop_264" +"(for-loop_263" " fold-var_267" "(hash-iterate-next" -" ht_147" -" i_169))" +" ht_146" +" i_167))" " fold-var_267)))" " fold-var_266)))))" -" for-loop_264)" +" for-loop_263)" " null" "(hash-iterate-first" -" ht_147)))))))" +" ht_146)))))))" " fold-var_264))))" "(values fold-var_265)))))" "(if(not #f)" -"(for-loop_263 fold-var_263(hash-iterate-next ht_146 i_12))" +"(for-loop_262 fold-var_263(hash-iterate-next ht_145 i_12))" " fold-var_263)))" " fold-var_262)))))" -" for-loop_263)" +" for-loop_262)" " null" -"(hash-iterate-first ht_146))))))))))))))))" +"(hash-iterate-first ht_145))))))))))))))))" "(define-values" "(1/syntax-local-submodules)" "(lambda()" @@ -42248,17 +42333,17 @@ static const char *startup_source = "(get-current-expand-context17.1 #f #f who153_0 #t))))" "(let-values(((submods_3)(expand-context-declared-submodule-names ctx_65)))" "(reverse$1" -"(let-values(((ht_148) submods_3))" +"(let-values(((ht_147) submods_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_148)))" -"((letrec-values(((for-loop_265)" -"(lambda(fold-var_270 i_170)" +"(let-values()(check-in-hash ht_147)))" +"((letrec-values(((for-loop_264)" +"(lambda(fold-var_270 i_168)" "(begin" " 'for-loop" -"(if i_170" -"(let-values(((name_61 kind_7)(hash-iterate-key+value ht_148 i_170)))" +"(if i_168" +"(let-values(((name_61 kind_7)(hash-iterate-key+value ht_147 i_168)))" "(let-values(((fold-var_271)" "(let-values(((fold-var_272) fold-var_270))" "(if(eq? kind_7 'module)" @@ -42271,12 +42356,12 @@ static const char *startup_source = "(values fold-var_274)))" " fold-var_272))))" "(if(not #f)" -"(for-loop_265 fold-var_271(hash-iterate-next ht_148 i_170))" +"(for-loop_264 fold-var_271(hash-iterate-next ht_147 i_168))" " fold-var_271)))" " fold-var_270)))))" -" for-loop_265)" +" for-loop_264)" " null" -"(hash-iterate-first ht_148))))))))))))" +"(hash-iterate-first ht_147))))))))))))" "(define-values" "(1/syntax-local-get-shadower)" "(let-values(((syntax-local-get-shadower60_0)" @@ -42310,12 +42395,12 @@ static const char *startup_source = "(syntax-source-accessor)" "(lambda(who_0 srcloc-accessor_0)" "(begin" -"(lambda(s_182)" +"(lambda(s_180)" "(let-values((()" "(begin" -" (if (syntax?$1 s_182) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_182)))" +" (if (syntax?$1 s_180) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_180)))" "(values))))" -"(let-values(((srcloc_8)(syntax-srcloc s_182)))(if srcloc_8(srcloc-accessor_0 srcloc_8) #f)))))))" +"(let-values(((srcloc_8)(syntax-srcloc s_180)))(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))" @@ -42323,68 +42408,68 @@ static const char *startup_source = "(define-values(1/syntax-span)(syntax-source-accessor 'syntax-span srcloc-span))" "(define-values" "(encoded-srcloc?)" -"(lambda(v_64)" -"(begin" -"(let-values(((or-part_26)(if(list? v_64)(if(=(length v_64) 5)(srcloc-vector?(list->vector v_64)) #f) #f)))" -"(if or-part_26 or-part_26(if(vector? v_64)(if(=(vector-length v_64) 5)(srcloc-vector? v_64) #f) #f))))))" -"(define-values" -"(srcloc-vector?)" "(lambda(v_66)" "(begin" -"(if(let-values(((or-part_291)(not(vector-ref v_66 1))))" -"(if or-part_291 or-part_291(exact-positive-integer?(vector-ref v_66 1))))" -"(if(let-values(((or-part_27)(not(vector-ref v_66 2))))" -"(if or-part_27 or-part_27(exact-nonnegative-integer?(vector-ref v_66 2))))" -"(if(let-values(((or-part_10)(not(vector-ref v_66 3))))" -"(if or-part_10 or-part_10(exact-positive-integer?(vector-ref v_66 3))))" -"(let-values(((or-part_162)(not(vector-ref v_66 4))))" -"(if or-part_162 or-part_162(exact-nonnegative-integer?(vector-ref v_66 4))))" +"(let-values(((or-part_26)(if(list? v_66)(if(=(length v_66) 5)(srcloc-vector?(list->vector v_66)) #f) #f)))" +"(if or-part_26 or-part_26(if(vector? v_66)(if(=(vector-length v_66) 5)(srcloc-vector? v_66) #f) #f))))))" +"(define-values" +"(srcloc-vector?)" +"(lambda(v_68)" +"(begin" +"(if(let-values(((or-part_277)(not(vector-ref v_68 1))))" +"(if or-part_277 or-part_277(exact-positive-integer?(vector-ref v_68 1))))" +"(if(let-values(((or-part_27)(not(vector-ref v_68 2))))" +"(if or-part_27 or-part_27(exact-nonnegative-integer?(vector-ref v_68 2))))" +"(if(let-values(((or-part_10)(not(vector-ref v_68 3))))" +"(if or-part_10 or-part_10(exact-positive-integer?(vector-ref v_68 3))))" +"(let-values(((or-part_154)(not(vector-ref v_68 4))))" +"(if or-part_154 or-part_154(exact-nonnegative-integer?(vector-ref v_68 4))))" " #f)" " #f)" " #f))))" "(define-values" "(to-srcloc-stx)" -"(lambda(v_189)" +"(lambda(v_190)" "(begin" -"(if(srcloc? v_189)" +"(if(srcloc? v_190)" +"(let-values()" +"(let-values(((the-struct_66) empty-syntax))" +"(if(syntax?$1 the-struct_66)" +"(let-values(((srcloc1_2) v_190))" +"(syntax1.1" +"(syntax-content the-struct_66)" +"(syntax-scopes the-struct_66)" +"(syntax-shifted-multi-scopes the-struct_66)" +"(syntax-scope-propagations+tamper the-struct_66)" +"(syntax-mpi-shifts the-struct_66)" +" srcloc1_2" +"(syntax-props the-struct_66)" +"(syntax-inspector the-struct_66)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_66))))" +"(if(pair? v_190)" +"(let-values()(to-srcloc-stx(list->vector v_190)))" +"(if(vector? v_190)" "(let-values()" "(let-values(((the-struct_67) empty-syntax))" "(if(syntax?$1 the-struct_67)" -"(let-values(((srcloc1_2) v_189))" +"(let-values(((srcloc2_1)" +"(srcloc" +"(vector-ref v_190 0)" +"(vector-ref v_190 1)" +"(vector-ref v_190 2)" +"(vector-ref v_190 3)" +"(vector-ref v_190 4))))" "(syntax1.1" "(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" +" srcloc2_1" "(syntax-props the-struct_67)" "(syntax-inspector the-struct_67)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_67))))" -"(if(pair? v_189)" -"(let-values()(to-srcloc-stx(list->vector v_189)))" -"(if(vector? v_189)" -"(let-values()" -"(let-values(((the-struct_68) empty-syntax))" -"(if(syntax?$1 the-struct_68)" -"(let-values(((srcloc2_1)" -"(srcloc" -"(vector-ref v_189 0)" -"(vector-ref v_189 1)" -"(vector-ref v_189 2)" -"(vector-ref v_189 3)" -"(vector-ref v_189 4))))" -"(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)" -" srcloc2_1" -"(syntax-props the-struct_68)" -"(syntax-inspector the-struct_68)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_68))))" -"(let-values() v_189)))))))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_67))))" +"(let-values() v_190)))))))" "(define-values" "(1/syntax-e)" "(lambda(s_0)" @@ -42397,15 +42482,15 @@ static const char *startup_source = "(syntax-e$1 s_0)))))))" "(define-values" "(1/syntax->datum)" -"(lambda(s_182)" +"(lambda(s_180)" "(begin" " 'syntax->datum" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_182) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_182)))" -"(syntax->datum$1 s_182)))))))" -"(define-values(maybe-syntax->datum)(lambda(s_69)(begin(if(syntax?$1 s_69)(syntax->datum$1 s_69) s_69))))" +" (if (syntax?$1 s_180) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_180)))" +"(syntax->datum$1 s_180)))))))" +"(define-values(maybe-syntax->datum)(lambda(s_70)(begin(if(syntax?$1 s_70)(syntax->datum$1 s_70) s_70))))" "(define-values" "(1/datum->syntax)" "(let-values(((datum->syntax9_0)" @@ -42413,7 +42498,7 @@ static const char *startup_source = "(begin" " 'datum->syntax9" "(let-values(((stx-c_4) stx-c7_0))" -"(let-values(((s_170) s8_0))" +"(let-values(((s_171) s8_0))" "(let-values(((stx-l_2)(if stx-l4_1 stx-l1_0 #f)))" "(let-values(((stx-p_1)(if stx-p5_1 stx-p2_0 #f)))" "(let-values()" @@ -42421,15 +42506,15 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(let-values(((or-part_292)(not stx-c_4)))" -"(if or-part_292 or-part_292(syntax?$1 stx-c_4)))" +"(if(let-values(((or-part_278)(not stx-c_4)))" +"(if or-part_278 or-part_278(syntax?$1 stx-c_4)))" "(void)" " (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-c_4)))" -"(if(let-values(((or-part_293)(not stx-l_2)))" -"(if or-part_293" -" or-part_293" -"(let-values(((or-part_294)(syntax?$1 stx-l_2)))" -"(if or-part_294 or-part_294(encoded-srcloc? stx-l_2)))))" +"(if(let-values(((or-part_279)(not stx-l_2)))" +"(if or-part_279" +" or-part_279" +"(let-values(((or-part_280)(syntax?$1 stx-l_2)))" +"(if or-part_280 or-part_280(encoded-srcloc? stx-l_2)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -42447,16 +42532,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_295)(not stx-p_1)))" -"(if or-part_295 or-part_295(syntax?$1 stx-p_1)))" +"(if(let-values(((or-part_281)(not stx-p_1)))" +"(if or-part_281 or-part_281(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_170(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))" +"(datum->syntax$1 stx-c_4 s_171(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))" "(case-lambda" -"((stx-c_5 s_299)(begin 'datum->syntax(datum->syntax9_0 stx-c_5 s_299 #f #f #f #f #f #f)))" -"((stx-c_6 s_173 stx-l_3 stx-p_2 ignored3_1)(datum->syntax9_0 stx-c_6 s_173 stx-l_3 stx-p_2 ignored3_1 #t #t #t))" -"((stx-c_7 s_72 stx-l_4 stx-p2_1)(datum->syntax9_0 stx-c_7 s_72 stx-l_4 stx-p2_1 #f #t #t #f))" -"((stx-c_8 s_420 stx-l1_1)(datum->syntax9_0 stx-c_8 s_420 stx-l1_1 #f #f #t #f #f)))))" +"((stx-c_5 s_295)(begin 'datum->syntax(datum->syntax9_0 stx-c_5 s_295 #f #f #f #f #f #f)))" +"((stx-c_6 s_412 stx-l_3 stx-p_2 ignored3_1)(datum->syntax9_0 stx-c_6 s_412 stx-l_3 stx-p_2 ignored3_1 #t #t #t))" +"((stx-c_7 s_73 stx-l_4 stx-p2_1)(datum->syntax9_0 stx-c_7 s_73 stx-l_4 stx-p2_1 #f #t #t #f))" +"((stx-c_8 s_413 stx-l1_1)(datum->syntax9_0 stx-c_8 s_413 stx-l1_1 #f #f #t #f #f)))))" "(define-values" "(1/syntax->list)" "(lambda(s_5)" @@ -42469,14 +42554,14 @@ static const char *startup_source = "(syntax->list$1 s_5)))))))" "(define-values" "(1/syntax-original?)" -"(lambda(s_75)" +"(lambda(s_41)" "(begin" " 'syntax-original?" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_75) (void) (let-values () (raise-argument-error 'syntax-original? \"syntax?\" s_75)))" -"(if(syntax-property$1 s_75 original-property-sym)(not(syntax-any-macro-scopes? s_75)) #f)))))))" +" (if (syntax?$1 s_41) (void) (let-values () (raise-argument-error 'syntax-original? \"syntax?\" s_41)))" +"(if(syntax-property$1 s_41 original-property-sym)(not(syntax-any-macro-scopes? s_41)) #f)))))))" "(define-values" "(1/bound-identifier=?)" "(let-values(((bound-identifier=?15_0)" @@ -42716,37 +42801,37 @@ static const char *startup_source = "(lambda(s51_1 phase47_2 all-bindings?48_0 phase49_1 all-bindings?50_0)" "(begin" " 'syntax-debug-info52" -"(let-values(((s_421) s51_1))" +"(let-values(((s_414) s51_1))" "(let-values(((phase_134)(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_421)" +"(if(syntax?$1 s_414)" "(void)" -" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_421)))" +" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_414)))" "(if(phase? phase_134)" "(void)" "(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_134)))" -"(syntax-debug-info$1 s_421 phase_134 all-bindings?_1))))))))))))" +"(syntax-debug-info$1 s_414 phase_134 all-bindings?_1))))))))))))" "(case-lambda" -"((s_422)(begin 'syntax-debug-info(syntax-debug-info52_0 s_422 #f #f #f #f)))" -"((s_87 phase_97 all-bindings?48_1)(syntax-debug-info52_0 s_87 phase_97 all-bindings?48_1 #t #t))" -"((s_46 phase47_3)(syntax-debug-info52_0 s_46 phase47_3 #f #t #f)))))" +"((s_415)(begin 'syntax-debug-info(syntax-debug-info52_0 s_415 #f #f #f #f)))" +"((s_86 phase_97 all-bindings?48_1)(syntax-debug-info52_0 s_86 phase_97 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_88 phase_21)" +"(lambda(s_87 phase_21)" "(begin" " 'syntax-shift-phase-level" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_88) (void) (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_88)))" +" (if (syntax?$1 s_87) (void) (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_87)))" "(if(phase? phase_21)" "(void)" "(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_21)))" -"(syntax-shift-phase-level$1 s_88 phase_21)))))))" +"(syntax-shift-phase-level$1 s_87 phase_21)))))))" "(define-values" "(1/syntax-track-origin)" "(lambda(new-stx_8 old-stx_4 id_107)" @@ -42847,7 +42932,7 @@ static const char *startup_source = "(lambda(attach-instances?13_0 attach-instances?14_0 who15_1 src-namespace16_0 mod-path17_0 dest-namespace18_0)" "(begin" " 'do-attach-module19" -"(let-values(((who_19) who15_1))" +"(let-values(((who_20) who15_1))" "(let-values(((src-namespace_6) src-namespace16_0))" "(let-values(((mod-path_15) mod-path17_0))" "(let-values(((dest-namespace_2) dest-namespace18_0))" @@ -42857,7 +42942,7 @@ static const char *startup_source = "(begin" "(if(1/namespace? src-namespace_6)" "(void)" -" (let-values () (raise-argument-error who_19 \"namespace?\" src-namespace_6)))" +" (let-values () (raise-argument-error who_20 \"namespace?\" src-namespace_6)))" "(values))))" "(let-values((()" "(begin" @@ -42866,7 +42951,7 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-argument-error" -" who_19" +" who_20" " \"(or/c module-path? resolved-module-path?)\"" " mod-path_15)))" "(values))))" @@ -42874,7 +42959,7 @@ static const char *startup_source = "(begin" "(if(1/namespace? dest-namespace_2)" "(void)" -" (let-values () (raise-argument-error who_19 \"namespace?\" dest-namespace_2)))" +" (let-values () (raise-argument-error who_20 \"namespace?\" dest-namespace_2)))" "(values))))" "(let-values(((phase_128)(namespace-phase src-namespace_6)))" "(let-values((()" @@ -42883,7 +42968,7 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-arguments-error" -" who_19" +" who_20" " \"source and destination namespace phases do not match\"" " \"source phase\"" " phase_128" @@ -42925,10 +43010,10 @@ static const char *startup_source = " '#hasheqv())" " phase_135" " missing_0)))" -"(if(let-values(((or-part_173)" +"(if(let-values(((or-part_245)" "(eq? missing_0 m-ns_12)))" -"(if or-part_173" -" or-part_173" +"(if or-part_245" +" or-part_245" "(if attach-this-instance?_0" "(not m-ns_12)" " #f)))" @@ -42942,7 +43027,7 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-arguments-error" -" who_19" +" who_20" " \"module not declared (in the source namespace)\"" " \"module name\"" " mod-name_19)))" @@ -42975,7 +43060,7 @@ static const char *startup_source = " #f)" "(let-values()" "(raise-arguments-error" -" who_19" +" who_20" " \"a different declaration is already in the destination namespace\"" " \"module name\"" " mod-name_19))" @@ -42983,10 +43068,10 @@ static const char *startup_source = "(values))))" "(let-values(((m-ns_13" " already?_0)" -"(if(let-values(((or-part_296)" +"(if(let-values(((or-part_163)" " attach-this-instance?_0))" -"(if or-part_296" -" or-part_296" +"(if or-part_163" +" or-part_163" "(module-cross-phase-persistent?" " m_20)))" "(let-values()" @@ -43013,7 +43098,7 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-arguments-error" -" who_19" +" who_20" " \"module not instantiated (in the source namespace)\"" " \"module name\"" " mod-name_19)))" @@ -43051,7 +43136,7 @@ static const char *startup_source = " #f)" "(let-values()" "(raise-arguments-error" -" who_19" +" who_20" " \"a different instance is already in the destination namespace\"" " \"module name\"" " mod-name_19))" @@ -43121,9 +43206,9 @@ static const char *startup_source = "(hash-update!" " todo_0" " mod-name_19" -"(lambda(ht_149)" +"(lambda(ht_148)" "(hash-set" -" ht_149" +" ht_148" " phase_135" " m-ns_13))" " '#hasheqv())" @@ -43142,19 +43227,19 @@ static const char *startup_source = "(check-list" " lst_21)))" "((letrec-values(((for-loop_17)" -"(lambda(lst_224)" +"(lambda(lst_226)" "(begin" " 'for-loop" "(if(pair?" -" lst_224)" +" lst_226)" "(let-values(((phase+reqs_1)" "(unsafe-car" -" lst_224))" +" lst_226))" "((rest_169)" "(unsafe-cdr" -" lst_224)))" +" lst_226)))" "(let-values((()" -"(let-values(((lst_178)" +"(let-values(((lst_180)" "(cdr" " phase+reqs_1)))" "(begin" @@ -43163,19 +43248,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_178)))" -"((letrec-values(((for-loop_29)" -"(lambda(lst_277)" +" lst_180)))" +"((letrec-values(((for-loop_28)" +"(lambda(lst_279)" "(begin" " 'for-loop" "(if(pair?" -" lst_277)" +" lst_279)" "(let-values(((req_5)" "(unsafe-car" -" lst_277))" +" lst_279))" "((rest_153)" "(unsafe-cdr" -" lst_277)))" +" lst_279)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43198,12 +43283,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_29" +"(for-loop_28" " rest_153)" "(values))))" "(values))))))" -" for-loop_29)" -" lst_178)))))" +" for-loop_28)" +" lst_180)))))" "(if(not" " #f)" "(for-loop_17" @@ -43213,7 +43298,7 @@ static const char *startup_source = " for-loop_17)" " lst_21)))" "(void)" -"(let-values(((lst_301)" +"(let-values(((lst_303)" "(module-submodule-names" " m_20)))" "(begin" @@ -43222,19 +43307,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_301)))" -"((letrec-values(((for-loop_266)" -"(lambda(lst_302)" +" lst_303)))" +"((letrec-values(((for-loop_265)" +"(lambda(lst_304)" "(begin" " 'for-loop" "(if(pair?" -" lst_302)" +" lst_304)" "(let-values(((submod-name_0)" "(unsafe-car" -" lst_302))" +" lst_304))" "((rest_170)" "(unsafe-cdr" -" lst_302)))" +" lst_304)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43255,12 +43340,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_266" +"(for-loop_265" " rest_170)" "(values))))" "(values))))))" -" for-loop_266)" -" lst_301)))" +" for-loop_265)" +" lst_303)))" "(void)" "(if(module-supermodule-name" " m_20)" @@ -43287,22 +43372,22 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((ht_150) todo_0))" +"(let-values(((ht_149) todo_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_150)))" -"((letrec-values(((for-loop_109)" -"(lambda(i_171)" +"(let-values()(check-in-hash ht_149)))" +"((letrec-values(((for-loop_108)" +"(lambda(i_169)" "(begin" " 'for-loop" -"(if i_171" +"(if i_169" "(let-values(((mod-name_20 phases_0)" "(hash-iterate-key+value" -" ht_150" -" i_171)))" +" ht_149" +" i_169)))" "(let-values((()" -"(let-values(((ht_151)" +"(let-values(((ht_150)" " phases_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -43310,17 +43395,17 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_151)))" -"((letrec-values(((for-loop_267)" -"(lambda(i_172)" +" ht_150)))" +"((letrec-values(((for-loop_266)" +"(lambda(i_170)" "(begin" " 'for-loop" -"(if i_172" +"(if i_170" "(let-values(((phase_136" " m-ns_15)" "(hash-iterate-key+value" -" ht_151" -" i_172)))" +" ht_150" +" i_170)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43363,7 +43448,7 @@ static const char *startup_source = " src-namespace_6" " mod-name_20" " phase_136)" -"(let-values(((or-part_297)" +"(let-values(((or-part_71)" "(let-values(((dest-namespace47_0)" " dest-namespace_2)" "((mod-name48_0)" @@ -43380,8 +43465,8 @@ static const char *startup_source = " dest-namespace47_0" " mod-name48_0" " phase49_2))))" -"(if or-part_297" -" or-part_297" +"(if or-part_71" +" or-part_71" "(namespace-install-module-namespace!" " dest-namespace_2" " mod-name_20" @@ -43393,22 +43478,22 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_267" +"(for-loop_266" "(hash-iterate-next" -" ht_151" -" i_172))" +" ht_150" +" i_170))" "(values))))" "(values))))))" -" for-loop_267)" +" for-loop_266)" "(hash-iterate-first" -" ht_151))))))" +" ht_150))))))" "(if(not #f)" -"(for-loop_109" -"(hash-iterate-next ht_150 i_171))" +"(for-loop_108" +"(hash-iterate-next ht_149 i_169))" "(values))))" "(values))))))" -" for-loop_109)" -"(hash-iterate-first ht_150))))" +" for-loop_108)" +"(hash-iterate-first ht_149))))" "(values))))" "(let-values()" "(let-values(((mnr_0)(1/current-module-name-resolver)))" @@ -43420,18 +43505,18 @@ static const char *startup_source = " dest-namespace_2)" "(let-values()" "(begin" -"(let-values(((ht_52) todo_0))" +"(let-values(((ht_51) todo_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_52)))" +"(let-values()(check-in-hash-keys ht_51)))" "((letrec-values(((for-loop_176)" -"(lambda(i_173)" +"(lambda(i_171)" "(begin" " 'for-loop" -"(if i_173" +"(if i_171" "(let-values(((mod-name_21)" -"(hash-iterate-key ht_52 i_173)))" +"(hash-iterate-key ht_51 i_171)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43445,11 +43530,11 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_176" -"(hash-iterate-next ht_52 i_173))" +"(hash-iterate-next ht_51 i_171))" "(values))))" "(values))))))" " for-loop_176)" -"(hash-iterate-first ht_52))))" +"(hash-iterate-first ht_51))))" "(void))))))))))))))))))))))))" "(define-values" "(1/make-empty-namespace)" @@ -43495,51 +43580,51 @@ 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_152)" +"(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_152)))" +"(let-values()(check-in-immutable-hash-keys ht_151)))" "((letrec-values(((for-loop_211)" -"(lambda(fold-var_275 i_174)" +"(lambda(fold-var_275 i_172)" "(begin" " 'for-loop" -"(if i_174" +"(if i_172" "(let-values(((sc_34)" "(unsafe-immutable-hash-iterate-key" -" ht_152" -" i_174)))" -"(let-values(((fold-var_219)" -"(let-values(((fold-var_220)" +" ht_151" +" i_172)))" +"(let-values(((fold-var_222)" +"(let-values(((fold-var_223)" " fold-var_275))" "(if(equal?" " sc_34" " post-scope_1)" -" fold-var_220" -"(let-values(((fold-var_221)" -" fold-var_220))" -"(let-values(((fold-var_65)" +" fold-var_223" +"(let-values(((fold-var_224)" +" fold-var_223))" +"(let-values(((fold-var_67)" "(let-values()" "(cons" "(let-values()" " sc_34)" -" fold-var_221))))" +" fold-var_224))))" "(values" -" fold-var_65)))))))" +" fold-var_67)))))))" "(if(not #f)" "(for-loop_211" -" fold-var_219" +" fold-var_222" "(unsafe-immutable-hash-iterate-next" -" ht_152" -" i_174))" -" fold-var_219)))" +" ht_151" +" i_172))" +" fold-var_222)))" " fold-var_275)))))" " for-loop_211)" " null" -"(unsafe-immutable-hash-iterate-first ht_152)))))))" +"(unsafe-immutable-hash-iterate-first ht_151)))))))" "(let-values(((add-ns-scopes_0)" "(lambda(s_4)" "(begin" @@ -43551,11 +43636,11 @@ static const char *startup_source = "((temp80_1)" "(root-expand-context-all-scopes-stx root-ctx_5))" "((temp81_0)" -"(let-values(((or-part_72)" +"(let-values(((or-part_77)" "(namespace-declaration-inspector" " ns_60)))" -"(if or-part_72" -" or-part_72" +"(if or-part_77" +" or-part_77" "(current-code-inspector))))" "((temp82_2) #t))" "(syntax-transfer-shifts39.1" @@ -43585,11 +43670,11 @@ static const char *startup_source = " s_3))" "(let-values()(add-ns-scopes_0 s_3)))))))))))))))))))" "(case-lambda" -"((s_423)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_423 #f #f)))" -"((s_72 ns1_4)(namespace-syntax-introduce4_0 s_72 ns1_4 #t)))))" +"((s_416)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_416 #f #f)))" +"((s_73 ns1_4)(namespace-syntax-introduce4_0 s_73 ns1_4 #t)))))" "(define-values" "(namespace-datum-introduce)" -"(lambda(s_174)(begin(1/namespace-syntax-introduce(1/datum->syntax #f s_174)))))" +"(lambda(s_76)(begin(1/namespace-syntax-introduce(1/datum->syntax #f s_76)))))" "(define-values" "(1/namespace-module-identifier)" "(let-values(((namespace-module-identifier8_0)" @@ -43601,8 +43686,8 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(let-values(((or-part_79)(1/namespace? where_0)))" -"(if or-part_79 or-part_79(phase? where_0)))" +"(if(let-values(((or-part_282)(1/namespace? where_0)))" +"(if or-part_282 or-part_282(phase? where_0)))" "(void)" "(let-values()" "(raise-argument-error" @@ -43648,7 +43733,7 @@ static const char *startup_source = " 'do-namespace-require23" "(let-values(((run?_3)(if run?15_0 run?10_0 #t)))" "(let-values(((visit?_3)(if visit?16_0 visit?11_0 #f)))" -"(let-values(((who_20) who20_0))" +"(let-values(((who_21) who20_0))" "(let-values(((req_6) req21_0))" "(let-values(((ns_76) ns22_1))" "(let-values(((copy-variable-phase-level_2)" @@ -43662,7 +43747,7 @@ static const char *startup_source = "(begin" "(if(1/namespace? ns_76)" "(void)" -" (let-values () (raise-argument-error who_20 \"namespace?\" ns_76)))" +" (let-values () (raise-argument-error who_21 \"namespace?\" ns_76)))" "(values))))" "(let-values(((ctx-stx_0)" "(add-scopes" @@ -43686,7 +43771,7 @@ static const char *startup_source = "((copy-variable-phase-level94_0) copy-variable-phase-level_2)" "((copy-variable-as-constant?95_0) copy-variable-as-constant?_2)" "((skip-variable-phase-level96_0) skip-variable-phase-level_2)" -"((who97_0) who_20))" +"((who97_0) who_21))" "(perform-require!78.1" " #f" " #f" @@ -43729,7 +43814,7 @@ static const char *startup_source = "(let-values(((temp107_1) #f))" "(make-requires+provides8.1 #f #f temp107_1)))" "((skip-variable-phase-level105_0) skip-variable-phase-level_2)" -"((who106_0) who_20))" +"((who106_0) who_21))" "(parse-and-perform-requires!30.1" " #f" " #f" @@ -43900,9 +43985,9 @@ static const char *startup_source = "(if(symbol? sym_69)" "(void)" " (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_69)))" -"(if(let-values(((or-part_298)(not failure-thunk_5)))" -"(if or-part_298" -" or-part_298" +"(if(let-values(((or-part_283)(not failure-thunk_5)))" +"(if or-part_283" +" or-part_283" "(if(procedure? failure-thunk_5)" "(procedure-arity-includes? failure-thunk_5 0)" " #f)))" @@ -43935,7 +44020,7 @@ static const char *startup_source = " ns_81))" "(void))" "(values))))" -"(let-values(((v_190" +"(let-values(((v_191" " primitive?_8" " extra-inspector_8" " protected?_9)" @@ -43961,13 +44046,13 @@ static const char *startup_source = " id136_0))" "(values variable #f #f #f))))" "(begin" -"(if(variable? v_190)" +"(if(variable? v_191)" "(void)" "(let-values()" "(escape_0" -"(let-values(((or-part_88) failure-thunk_5))" -"(if or-part_88" -" or-part_88" +"(let-values(((or-part_284) failure-thunk_5))" +"(if or-part_284" +" or-part_284" "(lambda()" "(raise" "(make-exn:fail:syntax$1" @@ -44003,9 +44088,9 @@ static const char *startup_source = " var-sym_6" "(lambda()" "(escape_0" -"(let-values(((or-part_280) failure-thunk_5))" -"(if or-part_280" -" or-part_280" +"(let-values(((or-part_265) failure-thunk_5))" +"(if or-part_265" +" or-part_265" "(raise" "(exn:fail:contract:variable" "(format" @@ -44169,33 +44254,33 @@ static const char *startup_source = "(lambda(s5_2 ns1_5 compile2_0 ns3_0 compile4_0)" "(begin" " 'eval6" -"(let-values(((s_171) s5_2))" +"(let-values(((s_172) s5_2))" "(let-values(((ns_43)(if ns3_0 ns1_5(1/current-namespace))))" "(let-values(((compile_1)" "(if compile4_0" " compile2_0" -"(lambda(s_424 ns_87)(begin 'compile(1/compile s_424 ns_87 #f))))))" +"(lambda(s_417 ns_87)(begin 'compile(1/compile s_417 ns_87 #f))))))" "(let-values()" -"(if(let-values(((or-part_293)(compiled-in-memory? s_171)))" -"(if or-part_293" -" or-part_293" -"(let-values(((or-part_294)(1/linklet-directory? s_171)))" -"(if or-part_294 or-part_294(1/linklet-bundle? s_171)))))" -"(let-values()(eval-compiled s_171 ns_43))" -"(if(if(syntax?$1 s_171)" -"(let-values(((or-part_295)(compiled-in-memory?(1/syntax-e s_171))))" -"(if or-part_295" -" or-part_295" -"(let-values(((or-part_299)(1/linklet-directory?(1/syntax-e s_171))))" -"(if or-part_299 or-part_299(1/linklet-bundle?(1/syntax-e s_171))))))" +"(if(let-values(((or-part_279)(compiled-in-memory? s_172)))" +"(if or-part_279" +" or-part_279" +"(let-values(((or-part_280)(1/linklet-directory? s_172)))" +"(if or-part_280 or-part_280(1/linklet-bundle? s_172)))))" +"(let-values()(eval-compiled s_172 ns_43))" +"(if(if(syntax?$1 s_172)" +"(let-values(((or-part_281)(compiled-in-memory?(1/syntax-e s_172))))" +"(if or-part_281" +" or-part_281" +"(let-values(((or-part_285)(1/linklet-directory?(1/syntax-e s_172))))" +"(if or-part_285 or-part_285(1/linklet-bundle?(1/syntax-e s_172))))))" " #f)" -"(let-values()(eval-compiled(1/syntax->datum s_171) ns_43))" +"(let-values()(eval-compiled(1/syntax->datum s_172) ns_43))" "(let-values()" -"(let-values(((s80_0) s_171)" +"(let-values(((s80_0) s_172)" "((ns81_0) ns_43)" "((temp82_3)" -"(lambda(s_425 ns_88 tail?_1)" -"(eval-compiled(compile_1 s_425 ns_88) ns_88 tail?_1)))" +"(lambda(s_75 ns_88 tail?_44)" +"(eval-compiled(compile_1 s_75 ns_88) ns_88 tail?_44)))" "((temp83_1) #f))" "(per-top-level68.1" " #f" @@ -44213,8 +44298,8 @@ static const char *startup_source = " s80_0" " ns81_0)))))))))))))" "(case-lambda" -"((s_41)(begin 'eval(eval6_0 s_41 #f #f #f #f)))" -"((s_174 ns_53 compile2_1)(eval6_0 s_174 ns_53 compile2_1 #t #t))" +"((s_174)(begin 'eval(eval6_0 s_174 #f #f #f #f)))" +"((s_76 ns_53 compile2_1)(eval6_0 s_76 ns_53 compile2_1 #t #t))" "((s_159 ns1_6)(eval6_0 s_159 ns1_6 #f #t #f)))))" "(define-values" "(eval-compiled)" @@ -44248,21 +44333,21 @@ static const char *startup_source = " to-source?21_1)" "(begin" " 'compile23" -"(let-values(((s_179) s22_0))" +"(let-values(((s_418) 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_179)" -"(let-values()(list s_179))" -"(if(if(syntax?$1 s_179)" -"(1/compiled-expression?(1/syntax-e s_179))" +"(if(1/compiled-expression? s_418)" +"(let-values()(list s_418))" +"(if(if(syntax?$1 s_418)" +"(1/compiled-expression?(1/syntax-e s_418))" " #f)" -"(let-values()(list(1/syntax-e s_179)))" +"(let-values()(list(1/syntax-e s_418)))" "(let-values()" -"(let-values(((s86_0) s_179)" +"(let-values(((s86_0) s_418)" "((ns87_0) ns_92)" "((temp88_2)" "(lambda(s_12 ns_49 as-tail?_4)" @@ -44305,24 +44390,24 @@ static const char *startup_source = " #t" " cs91_0))))))))))))))" "(case-lambda" -"((s_186)(begin 'compile(compile23_0 s_186 #f #f #f #f #f #f #f #f)))" -"((s_426 ns_93 serializable?_5 expand_1 to-source?17_1)" -"(compile23_0 s_426 ns_93 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" +"((s_182)(begin 'compile(compile23_0 s_182 #f #f #f #f #f #f #f #f)))" +"((s_419 ns_93 serializable?_5 expand_1 to-source?17_1)" +"(compile23_0 s_419 ns_93 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" "((s_20 ns_94 serializable?_6 expand16_1)(compile23_0 s_20 ns_94 serializable?_6 expand16_1 #f #t #t #t #f))" "((s_23 ns_95 serializable?15_1)(compile23_0 s_23 ns_95 serializable?15_1 #f #f #t #t #f #f))" -"((s_149 ns14_3)(compile23_0 s_149 ns14_3 #f #f #f #t #f #f #f)))))" +"((s_148 ns14_3)(compile23_0 s_148 ns14_3 #f #f #f #t #f #f #f)))))" "(define-values" "(compile-to-linklets)" "(let-values(((compile-to-linklets28_0)" "(lambda(s27_0 ns25_0 ns26_2)" "(begin" " 'compile-to-linklets28" -"(let-values(((s_404) s27_0))" +"(let-values(((s_395) s27_0))" "(let-values(((ns_96)(if ns26_2 ns25_0(1/current-namespace))))" -"(let-values()(1/compile s_404 ns_96 #t expand$1 #t))))))))" +"(let-values()(1/compile s_395 ns_96 #t expand$1 #t))))))))" "(case-lambda" -"((s_427)(begin(compile-to-linklets28_0 s_427 #f #f)))" -"((s_302 ns25_1)(compile-to-linklets28_0 s_302 ns25_1 #t)))))" +"((s_420)(begin(compile-to-linklets28_0 s_420 #f #f)))" +"((s_298 ns25_1)(compile-to-linklets28_0 s_298 ns25_1 #t)))))" "(define-values" "(struct:lifted-parsed-begin" " lifted-parsed-begin30.1" @@ -44385,23 +44470,23 @@ static const char *startup_source = "(let-values()" "(let-values(((temp101_1)" "(reverse$1" -"(let-values(((lst_290)" +"(let-values(((lst_292)" "(append" "(lifted-parsed-begin-seq exp-s_5)" "(list(lifted-parsed-begin-last exp-s_5)))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_290)))" +"(let-values()(check-list lst_292)))" "((letrec-values(((for-loop_6)" -"(lambda(fold-var_0 lst_169)" +"(lambda(fold-var_0 lst_171)" "(begin" " 'for-loop" -"(if(pair? lst_169)" +"(if(pair? lst_171)" "(let-values(((e_76)" -"(unsafe-car lst_169))" +"(unsafe-car lst_171))" "((rest_163)" -"(unsafe-cdr lst_169)))" +"(unsafe-cdr lst_171)))" "(let-values(((fold-var_2)" "(let-values(((fold-var_3)" " fold-var_0))" @@ -44420,7 +44505,7 @@ static const char *startup_source = " fold-var_0)))))" " for-loop_6)" " null" -" lst_290)))))" +" lst_292)))))" "((to-source?102_0) to-source?_6))" "(compiled-tops->compiled-top8.1 #f #f #f #f to-source?102_0 #t temp101_1)))" "(let-values()" @@ -44467,7 +44552,7 @@ static const char *startup_source = " serializable?38_0)" "(begin" " 'expand40" -"(let-values(((s_428) s39_1))" +"(let-values(((s_421) 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)))" @@ -44483,12 +44568,12 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s108_0) s_428)" +"(let-values(((s108_0) s_421)" "((ns109_1) ns_98)" "((temp110_0)" -"(lambda(s_429 ns_99 as-tail?_5)" +"(lambda(s_422 ns_99 as-tail?_5)" "(expand-single" -" s_429" +" s_422" " ns_99" " observer_2" " to-parsed?_2" @@ -44512,24 +44597,24 @@ static const char *startup_source = " s108_0" " ns109_1))))))))))))))))" "(case-lambda" -"((s_300)(begin 'expand(expand40_0 s_300 #f #f #f #f #f #f #f #f)))" -"((s_430 ns_100 observable?_1 to-parsed?_3 serializable?34_1)" -"(expand40_0 s_430 ns_100 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" -"((s_431 ns_101 observable?_2 to-parsed?33_1)(expand40_0 s_431 ns_101 observable?_2 to-parsed?33_1 #f #t #t #t #f))" +"((s_296)(begin 'expand(expand40_0 s_296 #f #f #f #f #f #f #f #f)))" +"((s_423 ns_100 observable?_1 to-parsed?_3 serializable?34_1)" +"(expand40_0 s_423 ns_100 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" +"((s_424 ns_101 observable?_2 to-parsed?33_1)(expand40_0 s_424 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_387 ns31_4)(expand40_0 s_387 ns31_4 #f #f #f #t #f #f #f)))))" +"((s_380 ns31_4)(expand40_0 s_380 ns31_4 #f #f #f #t #f #f #f)))))" "(define-values" "(expand-single)" -"(lambda(s_432 ns_103 observer_3 to-parsed?_4 serializable?_9)" +"(lambda(s_425 ns_103 observer_3 to-parsed?_4 serializable?_9)" "(begin" -"(let-values(((rebuild-s_2)(keep-properties-only s_432)))" +"(let-values(((rebuild-s_2)(keep-properties-only s_425)))" "(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_9 exp-s_6)(expand-capturing-lifts s_432 ctx_68)))" +"(let-values(((require-lifts_3 lifts_9 exp-s_6)(expand-capturing-lifts s_425 ctx_68)))" "(if(if(null? require-lifts_3)(null? lifts_9) #f)" "(let-values() exp-s_6)" "(if to-parsed?_4" @@ -44602,13 +44687,13 @@ static const char *startup_source = "(lambda(s44_1 ns42_1 ns43_0)" "(begin" " 'expand-once45" -"(let-values(((s_389) s44_1))" +"(let-values(((s_381) s44_1))" "(let-values(((ns_104)(if ns43_0 ns42_1(1/current-namespace))))" "(let-values()" -"(let-values(((s128_0) s_389)" +"(let-values(((s128_0) s_381)" "((ns129_0) ns_104)" "((temp130_1)" -"(lambda(s_433 ns_105 as-tail?_6)(expand-single-once s_433 ns_105)))" +"(lambda(s_426 ns_105 as-tail?_6)(expand-single-once s_426 ns_105)))" "((cons131_0) cons)" "((re-pair132_0) re-pair)" "((temp133_0) #t)" @@ -44629,71 +44714,71 @@ static const char *startup_source = " s128_0" " ns129_0)))))))))" "(case-lambda" -"((s_434)(begin 'expand-once(expand-once45_0 s_434 #f #f)))" -"((s_435 ns42_2)(expand-once45_0 s_435 ns42_2 #t)))))" +"((s_427)(begin 'expand-once(expand-once45_0 s_427 #f #f)))" +"((s_428 ns42_2)(expand-once45_0 s_428 ns42_2 #t)))))" "(define-values" "(expand-single-once)" -"(lambda(s_436 ns_106)" +"(lambda(s_429 ns_106)" "(begin" "(let-values(((require-lifts_4 lifts_10 exp-s_7)" "(expand-capturing-lifts" -" s_436" -"(let-values(((v_191)" +" s_429" +"(let-values(((v_192)" "(let-values(((ns135_1) ns_106))" "(make-expand-context10.1 #f #f #f #f #f #f ns135_1))))" -"(let-values(((the-struct_69) v_191))" -"(if(expand-context/outer? the-struct_69)" +"(let-values(((the-struct_68) v_192))" +"(if(expand-context/outer? the-struct_68)" "(let-values(((inner136_1)" -"(let-values(((the-struct_70)(root-expand-context/outer-inner v_191)))" -"(if(expand-context/inner? the-struct_70)" +"(let-values(((the-struct_69)(root-expand-context/outer-inner v_192)))" +"(if(expand-context/inner? the-struct_69)" "(let-values(((just-once?137_0) #t))" "(expand-context/inner2.1" -"(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)" +"(root-expand-context/inner-self-mpi the-struct_69)" +"(root-expand-context/inner-module-scopes the-struct_69)" +"(root-expand-context/inner-top-level-bind-scope the-struct_69)" +"(root-expand-context/inner-all-scopes-stx the-struct_69)" +"(root-expand-context/inner-defined-syms the-struct_69)" +"(root-expand-context/inner-counter the-struct_69)" +"(root-expand-context/inner-lift-key the-struct_69)" +"(expand-context/inner-to-parsed? the-struct_69)" +"(expand-context/inner-phase the-struct_69)" +"(expand-context/inner-namespace the-struct_69)" " just-once?137_0" -"(expand-context/inner-module-begin-k the-struct_70)" -"(expand-context/inner-allow-unbound? the-struct_70)" -"(expand-context/inner-in-local-expand? the-struct_70)" -"(expand-context/inner-stops the-struct_70)" -"(expand-context/inner-declared-submodule-names the-struct_70)" -"(expand-context/inner-lifts the-struct_70)" -"(expand-context/inner-lift-envs the-struct_70)" -"(expand-context/inner-module-lifts the-struct_70)" -"(expand-context/inner-require-lifts the-struct_70)" -"(expand-context/inner-to-module-lifts the-struct_70)" -"(expand-context/inner-requires+provides the-struct_70)" -"(expand-context/inner-observer the-struct_70)" -"(expand-context/inner-for-serializable? the-struct_70)" -"(expand-context/inner-should-not-encounter-macros? the-struct_70)))" +"(expand-context/inner-module-begin-k the-struct_69)" +"(expand-context/inner-allow-unbound? the-struct_69)" +"(expand-context/inner-in-local-expand? the-struct_69)" +"(expand-context/inner-stops the-struct_69)" +"(expand-context/inner-declared-submodule-names the-struct_69)" +"(expand-context/inner-lifts the-struct_69)" +"(expand-context/inner-lift-envs the-struct_69)" +"(expand-context/inner-module-lifts the-struct_69)" +"(expand-context/inner-require-lifts the-struct_69)" +"(expand-context/inner-to-module-lifts the-struct_69)" +"(expand-context/inner-requires+provides the-struct_69)" +"(expand-context/inner-observer the-struct_69)" +"(expand-context/inner-for-serializable? the-struct_69)" +"(expand-context/inner-should-not-encounter-macros? the-struct_69)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_70)))))" +" the-struct_69)))))" "(expand-context/outer1.1" " inner136_1" -"(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)))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_68)" +"(root-expand-context/outer-use-site-scopes the-struct_68)" +"(root-expand-context/outer-frame-id the-struct_68)" +"(expand-context/outer-context the-struct_68)" +"(expand-context/outer-env the-struct_68)" +"(expand-context/outer-post-expansion-scope-action the-struct_68)" +"(expand-context/outer-scopes the-struct_68)" +"(expand-context/outer-def-ctx-scopes the-struct_68)" +"(expand-context/outer-binding-layer the-struct_68)" +"(expand-context/outer-reference-records the-struct_68)" +"(expand-context/outer-only-immediate? the-struct_68)" +"(expand-context/outer-need-eventually-defined the-struct_68)" +"(expand-context/outer-current-introduction-scopes the-struct_68)" +"(expand-context/outer-name the-struct_68)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_68)))))))" "(if(if(null? require-lifts_4)(null? lifts_10) #f)" "(let-values() exp-s_7)" "(let-values()" @@ -44707,7 +44792,7 @@ static const char *startup_source = "(lambda(s49_0 ns47_2 ns48_2)" "(begin" " 'expand-to-top-form50" -"(let-values(((s_150) s49_0))" +"(let-values(((s_149) s49_0))" "(let-values(((ns_84)(if ns48_2 ns47_2(1/current-namespace))))" "(let-values()" "(let-values(((observer_4)(current-expand-observe)))" @@ -44720,7 +44805,7 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s141_0) s_150)" +"(let-values(((s141_0) s_149)" "((ns142_0) ns_84)" "((temp143_0) #f)" "((temp144_2) #f)" @@ -44741,8 +44826,8 @@ static const char *startup_source = " s141_0" " ns142_0)))))))))))))" "(case-lambda" -"((s_437)(begin 'expand-to-top-form(expand-to-top-form50_0 s_437 #f #f)))" -"((s_211 ns47_3)(expand-to-top-form50_0 s_211 ns47_3 #t)))))" +"((s_430)(begin 'expand-to-top-form(expand-to-top-form50_0 s_430 #f #f)))" +"((s_206 ns47_3)(expand-to-top-form50_0 s_206 ns47_3 #t)))))" "(define-values" "(per-top-level68.1)" "(lambda(combine53_0" @@ -44777,19 +44862,19 @@ static const char *startup_source = "(make-expand-context10.1 #f #f observer147_0 #t #f #f ns146_0))))" "(let-values(((phase_137)(namespace-phase ns_107)))" "((letrec-values(((loop_98)" -"(lambda(s_213 phase_138 ns_108 as-tail?_7)" +"(lambda(s_209 phase_138 ns_108 as-tail?_7)" "(begin" " 'loop" "(let-values(((tl-ctx_0)" -"(let-values(((v_126) ctx_69))" -"(let-values(((the-struct_41) v_126))" +"(let-values(((v_127) ctx_69))" +"(let-values(((the-struct_41) v_127))" "(if(expand-context/outer? the-struct_41)" "(let-values(((inner148_0)" -"(let-values(((the-struct_71)" +"(let-values(((the-struct_70)" "(root-expand-context/outer-inner" -" v_126)))" +" v_127)))" "(if(expand-context/inner?" -" the-struct_71)" +" the-struct_70)" "(let-values(((phase149_0)" " phase_138)" "((namespace150_0)" @@ -44800,55 +44885,55 @@ static const char *startup_source = " serializable?_10))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_71)" +" the-struct_70)" "(root-expand-context/inner-module-scopes" -" the-struct_71)" +" the-struct_70)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_71)" +" the-struct_70)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_71)" +" the-struct_70)" "(root-expand-context/inner-defined-syms" -" the-struct_71)" +" the-struct_70)" "(root-expand-context/inner-counter" -" the-struct_71)" +" the-struct_70)" "(root-expand-context/inner-lift-key" -" the-struct_71)" +" the-struct_70)" "(expand-context/inner-to-parsed?" -" the-struct_71)" +" the-struct_70)" " phase149_0" " namespace150_0" " just-once?151_0" "(expand-context/inner-module-begin-k" -" the-struct_71)" +" the-struct_70)" "(expand-context/inner-allow-unbound?" -" the-struct_71)" +" the-struct_70)" "(expand-context/inner-in-local-expand?" -" the-struct_71)" +" the-struct_70)" "(expand-context/inner-stops" -" the-struct_71)" +" the-struct_70)" "(expand-context/inner-declared-submodule-names" -" the-struct_71)" +" the-struct_70)" "(expand-context/inner-lifts" -" the-struct_71)" +" the-struct_70)" "(expand-context/inner-lift-envs" -" the-struct_71)" +" the-struct_70)" "(expand-context/inner-module-lifts" -" the-struct_71)" +" the-struct_70)" "(expand-context/inner-require-lifts" -" the-struct_71)" +" the-struct_70)" "(expand-context/inner-to-module-lifts" -" the-struct_71)" +" the-struct_70)" "(expand-context/inner-requires+provides" -" the-struct_71)" +" the-struct_70)" "(expand-context/inner-observer" -" the-struct_71)" +" the-struct_70)" " for-serializable?152_0" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_71)))" +" the-struct_70)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_71)))))" +" the-struct_70)))))" "(expand-context/outer1.1" " inner148_0" "(root-expand-context/outer-post-expansion-scope" @@ -44880,7 +44965,7 @@ static const char *startup_source = " 'struct-copy" " \"expand-context/outer?\"" " the-struct_41))))))" -"(let-values(((wb-s_0)(if just-once?_1 s_213 #f)))" +"(let-values(((wb-s_0)(if just-once?_1 s_209 #f)))" "(let-values((()" "(begin" "(let-values(((obs_43)" @@ -44892,119 +44977,119 @@ static const char *startup_source = "(call-expand-observe" " obs_43" " 'visit" -" s_213)))" +" s_209)))" "(void)))" "(values))))" "(let-values(((require-lifts_5 lifts_11 exp-s_8)" "(expand-capturing-lifts" -" s_213" -"(let-values(((v_192) tl-ctx_0))" -"(let-values(((the-struct_72) v_192))" -"(if(expand-context/outer? the-struct_72)" +" s_209" +"(let-values(((v_193) tl-ctx_0))" +"(let-values(((the-struct_71) v_193))" +"(if(expand-context/outer? the-struct_71)" "(let-values(((only-immediate?153_0)" " #t)" "((def-ctx-scopes154_0)" "(box null))" "((inner155_0)" -"(let-values(((the-struct_73)" +"(let-values(((the-struct_72)" "(root-expand-context/outer-inner" -" v_192)))" +" v_193)))" "(if(expand-context/inner?" -" the-struct_73)" +" the-struct_72)" "(let-values(((phase156_1)" " phase_138)" "((namespace157_0)" " ns_108))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_73)" +" the-struct_72)" "(root-expand-context/inner-module-scopes" -" the-struct_73)" +" the-struct_72)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_73)" +" the-struct_72)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_73)" +" the-struct_72)" "(root-expand-context/inner-defined-syms" -" the-struct_73)" +" the-struct_72)" "(root-expand-context/inner-counter" -" the-struct_73)" +" the-struct_72)" "(root-expand-context/inner-lift-key" -" the-struct_73)" +" the-struct_72)" "(expand-context/inner-to-parsed?" -" the-struct_73)" +" the-struct_72)" " phase156_1" " namespace157_0" "(expand-context/inner-just-once?" -" the-struct_73)" +" the-struct_72)" "(expand-context/inner-module-begin-k" -" the-struct_73)" +" the-struct_72)" "(expand-context/inner-allow-unbound?" -" the-struct_73)" +" the-struct_72)" "(expand-context/inner-in-local-expand?" -" the-struct_73)" +" the-struct_72)" "(expand-context/inner-stops" -" the-struct_73)" +" the-struct_72)" "(expand-context/inner-declared-submodule-names" -" the-struct_73)" +" the-struct_72)" "(expand-context/inner-lifts" -" the-struct_73)" +" the-struct_72)" "(expand-context/inner-lift-envs" -" the-struct_73)" +" the-struct_72)" "(expand-context/inner-module-lifts" -" the-struct_73)" +" the-struct_72)" "(expand-context/inner-require-lifts" -" the-struct_73)" +" the-struct_72)" "(expand-context/inner-to-module-lifts" -" the-struct_73)" +" the-struct_72)" "(expand-context/inner-requires+provides" -" the-struct_73)" +" the-struct_72)" "(expand-context/inner-observer" -" the-struct_73)" +" the-struct_72)" "(expand-context/inner-for-serializable?" -" the-struct_73)" +" the-struct_72)" "(expand-context/inner-should-not-encounter-macros?" -" 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/inner?\"" +" the-struct_72)))))" +"(expand-context/outer1.1" +" inner155_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_71)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_71)" +"(root-expand-context/outer-frame-id" +" the-struct_71)" +"(expand-context/outer-context" +" the-struct_71)" +"(expand-context/outer-env" +" the-struct_71)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_71)" +"(expand-context/outer-scopes" +" the-struct_71)" +" def-ctx-scopes154_0" +"(expand-context/outer-binding-layer" +" the-struct_71)" +"(expand-context/outer-reference-records" +" the-struct_71)" +" only-immediate?153_0" +"(expand-context/outer-need-eventually-defined" +" the-struct_71)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_71)" +"(expand-context/outer-name" +" the-struct_71)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_72)))))))" +" the-struct_71)))))))" "(let-values(((disarmed-exp-s_0)" "(syntax-disarm$1 exp-s_8)))" -"(if(let-values(((or-part_300)" +"(if(let-values(((or-part_286)" "(pair? require-lifts_5)))" -"(if or-part_300 or-part_300(pair? lifts_11)))" +"(if or-part_286 or-part_286(pair? lifts_11)))" "(let-values()" "(let-values(((new-s_3)" "(let-values(((temp158_0)" @@ -45058,11 +45143,11 @@ static const char *startup_source = "(if(if just-once?_1(not(eq? exp-s_8 wb-s_0)) #f)" "(let-values() exp-s_8)" "(let-values()" -"(let-values(((tmp_35)" +"(let-values(((tmp_36)" "(core-form-sym" " disarmed-exp-s_0" " phase_138)))" -"(if(equal? tmp_35 'begin)" +"(if(equal? tmp_36 'begin)" "(let-values()" "(let-values((()" "(begin" @@ -45078,38 +45163,38 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_27 begin161_0 e162_0)" -"(let-values(((s_438)" +"(let-values(((s_431)" " disarmed-exp-s_0))" "(let-values(((orig-s_33)" -" s_438))" +" s_431))" "(let-values(((begin161_1" " e162_1)" -"(let-values(((s_417)" +"(let-values(((s_409)" "(if(syntax?$1" -" s_438)" +" s_431)" "(syntax-e$1" -" s_438)" -" s_438)))" +" s_431)" +" s_431)))" "(if(pair?" -" s_417)" +" s_409)" "(let-values(((begin163_0)" -"(let-values(((s_418)" +"(let-values(((s_410)" "(car" -" s_417)))" -" s_418))" +" s_409)))" +" s_410))" "((e164_0)" -"(let-values(((s_439)" +"(let-values(((s_121)" "(cdr" -" s_417)))" -"(let-values(((s_122)" +" s_409)))" +"(let-values(((s_432)" "(if(syntax?$1" -" s_439)" +" s_121)" "(syntax-e$1" -" s_439)" -" s_439)))" +" s_121)" +" s_121)))" "(let-values(((flat-s_20)" "(to-syntax-list.1" -" s_122)))" +" s_432)))" "(if(not" " flat-s_20)" "(let-values()" @@ -45213,7 +45298,7 @@ static const char *startup_source = " new-s_4)))" "(let-values()" "(begin-loop_0 e162_0)))))))" -"(if(equal? tmp_35 'begin-for-syntax)" +"(if(equal? tmp_36 'begin-for-syntax)" "(let-values()" "(let-values((()" "(begin" @@ -45231,38 +45316,38 @@ static const char *startup_source = "(let-values(((ok?_22" " begin-for-syntax165_0" " e166_0)" -"(let-values(((s_226)" +"(let-values(((s_220)" " disarmed-exp-s_0))" "(let-values(((orig-s_34)" -" s_226))" +" s_220))" "(let-values(((begin-for-syntax165_1" " e166_1)" -"(let-values(((s_227)" +"(let-values(((s_222)" "(if(syntax?$1" -" s_226)" +" s_220)" "(syntax-e$1" -" s_226)" -" s_226)))" +" s_220)" +" s_220)))" "(if(pair?" -" s_227)" +" s_222)" "(let-values(((begin-for-syntax167_0)" -"(let-values(((s_229)" +"(let-values(((s_224)" "(car" -" s_227)))" -" s_229))" +" s_222)))" +" s_224))" "((e168_0)" -"(let-values(((s_328)" +"(let-values(((s_321)" "(cdr" -" s_227)))" -"(let-values(((s_230)" +" s_222)))" +"(let-values(((s_225)" "(if(syntax?$1" -" s_328)" +" s_321)" "(syntax-e$1" -" s_328)" -" s_328)))" +" s_321)" +" s_321)))" "(let-values(((flat-s_21)" "(to-syntax-list.1" -" s_230)))" +" s_225)))" "(if(not" " flat-s_21)" "(let-values()" @@ -45317,7 +45402,7 @@ static const char *startup_source = "(values))))" "(let-values(((l_69)" "(reverse$1" -"(let-values(((lst_303)" +"(let-values(((lst_305)" " e166_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -45325,22 +45410,22 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_303)))" -"((letrec-values(((for-loop_268)" +" lst_305)))" +"((letrec-values(((for-loop_267)" "(lambda(fold-var_276" -" lst_304)" +" lst_306)" "(begin" " 'for-loop" "(if(pair?" -" lst_304)" -"(let-values(((s_332)" +" lst_306)" +"(let-values(((s_325)" "(unsafe-car" -" lst_304))" +" lst_306))" "((rest_171)" "(unsafe-cdr" -" lst_304)))" -"(let-values(((fold-var_203)" -"(let-values(((fold-var_204)" +" lst_306)))" +"(let-values(((fold-var_205)" +"(let-values(((fold-var_206)" " fold-var_276))" "(let-values(((fold-var_277)" "(let-values()" @@ -45358,23 +45443,23 @@ static const char *startup_source = " 'next)))" "(void)))" "(loop_98" -" s_332" +" s_325" " next-phase_0" " next-ns_0" " #f)))" -" fold-var_204))))" +" fold-var_206))))" "(values" " fold-var_277)))))" "(if(not" " #f)" -"(for-loop_268" -" fold-var_203" +"(for-loop_267" +" fold-var_205" " rest_171)" -" fold-var_203)))" +" fold-var_205)))" " fold-var_276)))))" -" for-loop_268)" +" for-loop_267)" " null" -" lst_303))))))" +" lst_305))))))" "(if wrap_2" "(let-values()" "(let-values(((new-s_5)" @@ -45414,15 +45499,15 @@ static const char *startup_source = " #t)))))))))))))))))" "(define-values" "(maybe-intro)" -"(lambda(s_440 ns_109)" -"(begin(if(syntax?$1 s_440) s_440(1/namespace-syntax-introduce(1/datum->syntax #f s_440) ns_109)))))" +"(lambda(s_433 ns_109)" +"(begin(if(syntax?$1 s_433) s_433(1/namespace-syntax-introduce(1/datum->syntax #f s_433) ns_109)))))" "(define-values" "(re-pair)" -"(lambda(form-id_0 s_441 r_44)" -"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_441)(cons form-id_0 r_44) s_441 s_441) s_441))))" +"(lambda(form-id_0 s_434 r_44)" +"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_434)(cons form-id_0 r_44) s_434 s_434) s_434))))" "(define-values" "(expand-capturing-lifts)" -"(lambda(s_442 ctx_70)" +"(lambda(s_435 ctx_70)" "(begin" "(let-values()" "(let-values(((ns_110)(expand-context-namespace ctx_70)))" @@ -45435,83 +45520,83 @@ static const char *startup_source = "(namespace-phase ns_110)" "(make-parse-top-lifted-require ns_110))))" "(let-values(((exp-s_9)" -"(let-values(((s170_0) s_442)" +"(let-values(((s170_0) s_435)" "((temp171_0)" -"(let-values(((v_193) ctx_70))" -"(let-values(((the-struct_74) v_193))" -"(if(expand-context/outer? the-struct_74)" +"(let-values(((v_194) ctx_70))" +"(let-values(((the-struct_73) v_194))" +"(if(expand-context/outer? the-struct_73)" "(let-values(((inner172_1)" -"(let-values(((the-struct_75)" -"(root-expand-context/outer-inner v_193)))" -"(if(expand-context/inner? the-struct_75)" +"(let-values(((the-struct_74)" +"(root-expand-context/outer-inner v_194)))" +"(if(expand-context/inner? the-struct_74)" "(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_75)" +" the-struct_74)" "(root-expand-context/inner-module-scopes" -" the-struct_75)" +" the-struct_74)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_75)" +" the-struct_74)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_75)" +" the-struct_74)" "(root-expand-context/inner-defined-syms" -" the-struct_75)" -"(root-expand-context/inner-counter the-struct_75)" +" the-struct_74)" +"(root-expand-context/inner-counter the-struct_74)" "(root-expand-context/inner-lift-key" -" the-struct_75)" -"(expand-context/inner-to-parsed? the-struct_75)" -"(expand-context/inner-phase the-struct_75)" -"(expand-context/inner-namespace the-struct_75)" -"(expand-context/inner-just-once? the-struct_75)" +" the-struct_74)" +"(expand-context/inner-to-parsed? the-struct_74)" +"(expand-context/inner-phase the-struct_74)" +"(expand-context/inner-namespace the-struct_74)" +"(expand-context/inner-just-once? the-struct_74)" "(expand-context/inner-module-begin-k" -" the-struct_75)" +" the-struct_74)" "(expand-context/inner-allow-unbound?" -" the-struct_75)" +" the-struct_74)" "(expand-context/inner-in-local-expand?" -" the-struct_75)" -"(expand-context/inner-stops the-struct_75)" +" the-struct_74)" +"(expand-context/inner-stops the-struct_74)" "(expand-context/inner-declared-submodule-names" -" the-struct_75)" +" the-struct_74)" " lifts173_0" -"(expand-context/inner-lift-envs the-struct_75)" +"(expand-context/inner-lift-envs the-struct_74)" " module-lifts174_0" " require-lifts175_0" "(expand-context/inner-to-module-lifts" -" the-struct_75)" +" the-struct_74)" "(expand-context/inner-requires+provides" -" the-struct_75)" -"(expand-context/inner-observer the-struct_75)" +" the-struct_74)" +"(expand-context/inner-observer the-struct_74)" "(expand-context/inner-for-serializable?" -" the-struct_75)" +" the-struct_74)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_75)))" +" the-struct_74)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_75)))))" +" the-struct_74)))))" "(expand-context/outer1.1" " inner172_1" -"(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)))" +"(root-expand-context/outer-post-expansion-scope the-struct_73)" +"(root-expand-context/outer-use-site-scopes the-struct_73)" +"(root-expand-context/outer-frame-id the-struct_73)" +"(expand-context/outer-context the-struct_73)" +"(expand-context/outer-env the-struct_73)" +"(expand-context/outer-post-expansion-scope-action the-struct_73)" +"(expand-context/outer-scopes the-struct_73)" +"(expand-context/outer-def-ctx-scopes the-struct_73)" +"(expand-context/outer-binding-layer the-struct_73)" +"(expand-context/outer-reference-records the-struct_73)" +"(expand-context/outer-only-immediate? the-struct_73)" +"(expand-context/outer-need-eventually-defined the-struct_73)" +"(expand-context/outer-current-introduction-scopes the-struct_73)" +"(expand-context/outer-name the-struct_73)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_74))))))" +" the-struct_73))))))" "(expand7.1 #f #f #f #f s170_0 temp171_0))))" "(values" "(get-and-clear-require-lifts! require-lift-ctx_2)" @@ -45521,31 +45606,31 @@ static const char *startup_source = "(make-parse-top-lifted-require)" "(lambda(ns_111)" "(begin" -"(lambda(s_443 phase_139)" +"(lambda(s_436 phase_139)" "(let-values(((ok?_28 #%require176_0 req177_0)" -"(let-values(((s_444)(syntax-disarm$1 s_443)))" -"(let-values(((orig-s_35) s_444))" +"(let-values(((s_437)(syntax-disarm$1 s_436)))" +"(let-values(((orig-s_35) s_437))" "(let-values(((#%require176_1 req177_1)" -"(let-values(((s_249)(if(syntax?$1 s_444)(syntax-e$1 s_444) s_444)))" -"(if(pair? s_249)" -"(let-values(((#%require178_0)(let-values(((s_250)(car s_249))) s_250))" +"(let-values(((s_244)(if(syntax?$1 s_437)(syntax-e$1 s_437) s_437)))" +"(if(pair? s_244)" +"(let-values(((#%require178_0)(let-values(((s_245)(car s_244))) s_245))" "((req179_0)" -"(let-values(((s_251)(cdr s_249)))" -"(let-values(((s_252)" -"(if(syntax?$1 s_251)" -"(syntax-e$1 s_251)" -" s_251)))" -"(if(pair? s_252)" +"(let-values(((s_246)(cdr s_244)))" +"(let-values(((s_247)" +"(if(syntax?$1 s_246)" +"(syntax-e$1 s_246)" +" s_246)))" +"(if(pair? s_247)" "(let-values(((req180_0)" -"(let-values(((s_445)(car s_252)))" -" s_445))" +"(let-values(((s_438)(car s_247)))" +" s_438))" "(()" -"(let-values(((s_446)(cdr s_252)))" -"(let-values(((s_447)" -"(if(syntax?$1 s_446)" -"(syntax-e$1 s_446)" -" s_446)))" -"(if(null? s_447)" +"(let-values(((s_439)(cdr s_247)))" +"(let-values(((s_440)" +"(if(syntax?$1 s_439)" +"(syntax-e$1 s_439)" +" s_439)))" +"(if(null? s_440)" "(values)" "(raise-syntax-error$1" " #f" @@ -45557,7 +45642,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_35)))))" "(values #t #%require176_1 req177_1))))))" "(let-values(((temp181_0)(list req177_0))" -"((s182_0) s_443)" +"((s182_0) s_436)" "((ns183_0) ns_111)" "((phase184_1) phase_139)" "((phase185_1) phase_139)" @@ -45602,18 +45687,18 @@ static const char *startup_source = "(lifted-parsed-begin30.1" "(append" "(reverse$1" -"(let-values(((lst_305) require-lifts_6))" +"(let-values(((lst_307) require-lifts_6))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_305)))" -"((letrec-values(((for-loop_269)" -"(lambda(fold-var_278 lst_306)" +"(let-values()(check-list lst_307)))" +"((letrec-values(((for-loop_268)" +"(lambda(fold-var_278 lst_308)" "(begin" " 'for-loop" -"(if(pair? lst_306)" -"(let-values(((req_19)(unsafe-car lst_306))" -"((rest_172)(unsafe-cdr lst_306)))" +"(if(pair? lst_308)" +"(let-values(((req_19)(unsafe-car lst_308))" +"((rest_172)(unsafe-cdr lst_308)))" "(let-values(((fold-var_279)" "(let-values(((fold-var_280) fold-var_278))" "(let-values(((fold-var_281)" @@ -45623,24 +45708,24 @@ static const char *startup_source = "(parsed-require23.1 req_19))" " fold-var_280))))" "(values fold-var_281)))))" -"(if(not #f)(for-loop_269 fold-var_279 rest_172) fold-var_279)))" +"(if(not #f)(for-loop_268 fold-var_279 rest_172) fold-var_279)))" " fold-var_278)))))" -" for-loop_269)" +" for-loop_268)" " null" -" lst_305))))" +" lst_307))))" "(reverse$1" -"(let-values(((lst_307)(get-lifts-as-lists lifts_12)))" +"(let-values(((lst_309)(get-lifts-as-lists lifts_12)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_307)))" -"((letrec-values(((for-loop_270)" -"(lambda(fold-var_282 lst_308)" +"(let-values()(check-list lst_309)))" +"((letrec-values(((for-loop_269)" +"(lambda(fold-var_282 lst_310)" "(begin" " 'for-loop" -"(if(pair? lst_308)" -"(let-values(((ids+syms+rhs_0)(unsafe-car lst_308))" -"((rest_173)(unsafe-cdr lst_308)))" +"(if(pair? lst_310)" +"(let-values(((ids+syms+rhs_0)(unsafe-car lst_310))" +"((rest_173)(unsafe-cdr lst_310)))" "(let-values(((fold-var_283)" "(let-values(((fold-var_284) fold-var_282))" "(let-values(((fold-var_285)" @@ -45667,28 +45752,28 @@ static const char *startup_source = " just-rhs_0)))" "(if(lifted-parsed-begin?" " exp-rhs_3)" -"(let-values(((the-struct_76)" +"(let-values(((the-struct_75)" " exp-rhs_3))" "(if(lifted-parsed-begin?" -" the-struct_76)" +" the-struct_75)" "(let-values(((last189_0)" " dv_0))" "(lifted-parsed-begin30.1" "(lifted-parsed-begin-seq" -" the-struct_76)" +" the-struct_75)" " last189_0))" "(raise-argument-error" " 'struct-copy" " \"lifted-parsed-begin?\"" -" the-struct_76)))" +" the-struct_75)))" " dv_0)))))" " fold-var_284))))" "(values fold-var_285)))))" -"(if(not #f)(for-loop_270 fold-var_283 rest_173) fold-var_283)))" +"(if(not #f)(for-loop_269 fold-var_283 rest_173) fold-var_283)))" " fold-var_282)))))" -" for-loop_270)" +" for-loop_269)" " null" -" lst_307)))))" +" lst_309)))))" " exp-s_10))))))))))" "(define-values" "(log-top-lift-begin-before)" @@ -45712,19 +45797,19 @@ static const char *startup_source = "(if obs_54" "(let-values()" "(let-values(((ok?_29 begin193_0 e194_0)" -"(let-values(((s_448) new-s_7))" -"(let-values(((orig-s_36) s_448))" +"(let-values(((s_131) new-s_7))" +"(let-values(((orig-s_36) s_131))" "(let-values(((begin193_1 e194_1)" -"(let-values(((s_449)(if(syntax?$1 s_448)(syntax-e$1 s_448) s_448)))" -"(if(pair? s_449)" -"(let-values(((begin195_0)(let-values(((s_450)(car s_449))) s_450))" +"(let-values(((s_441)(if(syntax?$1 s_131)(syntax-e$1 s_131) s_131)))" +"(if(pair? s_441)" +"(let-values(((begin195_0)(let-values(((s_442)(car s_441))) s_442))" "((e196_0)" -"(let-values(((s_451)(cdr s_449)))" -"(let-values(((s_133)" -"(if(syntax?$1 s_451)" -"(syntax-e$1 s_451)" -" s_451)))" -"(let-values(((flat-s_22)(to-syntax-list.1 s_133)))" +"(let-values(((s_132)(cdr s_441)))" +"(let-values(((s_443)" +"(if(syntax?$1 s_132)" +"(syntax-e$1 s_132)" +" s_132)))" +"(let-values(((flat-s_22)(to-syntax-list.1 s_443)))" "(if(not flat-s_22)" "(let-values()" "(raise-syntax-error$1" @@ -45750,19 +45835,19 @@ static const char *startup_source = "(if obs_55" "(let-values()" "(let-values(((ok?_30 begin197_0 e198_0)" -"(let-values(((s_452) new-s_8))" -"(let-values(((orig-s_37) s_452))" +"(let-values(((s_444) new-s_8))" +"(let-values(((orig-s_37) s_444))" "(let-values(((begin197_1 e198_1)" -"(let-values(((s_453)(if(syntax?$1 s_452)(syntax-e$1 s_452) s_452)))" -"(if(pair? s_453)" -"(let-values(((begin199_0)(let-values(((s_454)(car s_453))) s_454))" +"(let-values(((s_445)(if(syntax?$1 s_444)(syntax-e$1 s_444) s_444)))" +"(if(pair? s_445)" +"(let-values(((begin199_0)(let-values(((s_446)(car s_445))) s_446))" "((e200_0)" -"(let-values(((s_455)(cdr s_453)))" -"(let-values(((s_456)" -"(if(syntax?$1 s_455)" -"(syntax-e$1 s_455)" -" s_455)))" -"(let-values(((flat-s_23)(to-syntax-list.1 s_456)))" +"(let-values(((s_447)(cdr s_445)))" +"(let-values(((s_448)" +"(if(syntax?$1 s_447)" +"(syntax-e$1 s_447)" +" s_447)))" +"(let-values(((flat-s_23)(to-syntax-list.1 s_448)))" "(if(not flat-s_23)" "(let-values()" "(raise-syntax-error$1" @@ -45789,7 +45874,7 @@ static const char *startup_source = "(lambda(who3_0 mod-path4_0 sym5_0 fail-k1_0 fail-k2_0)" "(begin" " 'do-dynamic-require6" -"(let-values(((who_21) who3_0))" +"(let-values(((who_22) who3_0))" "(let-values(((mod-path_5) mod-path4_0))" "(let-values(((sym_82) sym5_0))" "(let-values(((fail-k_2)(if fail-k2_0 fail-k1_0 default-dynamic-require-fail-thunk)))" @@ -45804,7 +45889,7 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-argument-error" -" who_21" +" who_22" " \"(or/c module-path? module-path-index? resolved-module-path?)\"" " mod-path_5)))" "(values))))" @@ -45816,11 +45901,11 @@ static const char *startup_source = "(let-values(((or-part_6)(not sym_82)))" "(if or-part_6" " or-part_6" -"(let-values(((or-part_301)(equal? sym_82 0)))" -"(if or-part_301 or-part_301(void? sym_82)))))))" +"(let-values(((or-part_287)(equal? sym_82 0)))" +"(if or-part_287 or-part_287(void? sym_82)))))))" "(void)" "(let-values()" -" (raise-argument-error who_21 \"(or/c symbol? #f 0 void?)\" sym_82)))" +" (raise-argument-error who_22 \"(or/c symbol? #f 0 void?)\" sym_82)))" "(values))))" "(let-values((()" "(begin" @@ -45828,7 +45913,7 @@ static const char *startup_source = "(procedure-arity-includes? fail-k_2 0)" " #f)" "(void)" -" (let-values () (raise-argument-error who_21 \"(-> any)\" fail-k_2)))" +" (let-values () (raise-argument-error who_22 \"(-> any)\" fail-k_2)))" "(values))))" "(let-values(((ns_58)(1/current-namespace)))" "(let-values(((mpi_49)" @@ -46064,13 +46149,13 @@ static const char *startup_source = " mpi42_1" " phase43_2))" "(values))))" -"(let-values(((t_55)" +"(let-values(((t_57)" "(namespace-get-transformer" " m-ns_16" " ex-phase_0" " ex-sym_2" " missing_1)))" -"(if(eq? t_55 missing_1)" +"(if(eq? t_57 missing_1)" "(let-values()(fail_1))" "(let-values()" "(let-values(((tmp-ns_0)" @@ -46103,8 +46188,8 @@ static const char *startup_source = " sym_82" " tmp-ns_0))))))))))))))))))))))))))))))))))))))))))))))))" "(case-lambda" -"((who_22 mod-path_17 sym_83)(begin(do-dynamic-require6_0 who_22 mod-path_17 sym_83 #f #f)))" -"((who_23 mod-path_18 sym_84 fail-k1_1)(do-dynamic-require6_0 who_23 mod-path_18 sym_84 fail-k1_1 #t)))))" +"((who_23 mod-path_17 sym_83)(begin(do-dynamic-require6_0 who_23 mod-path_17 sym_83 #f #f)))" +"((who_24 mod-path_18 sym_84 fail-k1_1)(do-dynamic-require6_0 who_24 mod-path_18 sym_84 fail-k1_1 #t)))))" " (define-values (default-dynamic-require-fail-thunk) (lambda () (begin (error \"failed\"))))" "(define-values" "(1/dynamic-require)" @@ -46157,48 +46242,48 @@ static const char *startup_source = "(let-values()" "(make-parameter" "(replace-me 'current-eval)" -"(lambda(p_51)" +"(lambda(p_50)" "(begin" -"(if((lambda(p_52)(if(procedure? p_52)(procedure-arity-includes? p_52 1) #f)) p_51)" +"(if((lambda(p_51)(if(procedure? p_51)(procedure-arity-includes? p_51 1) #f)) p_50)" "(void)" -" (let-values () (raise-argument-error 'current-eval \"(procedure-arity-includes/c 1)\" p_51)))" -" p_51))))))" +" (let-values () (raise-argument-error 'current-eval \"(procedure-arity-includes/c 1)\" p_50)))" +" p_50))))))" "(define-values" "(1/current-compile)" "(let-values()" "(let-values()" "(make-parameter" "(replace-me 'current-compile)" -"(lambda(p_31)" +"(lambda(p_30)" "(begin" -"(if((lambda(p_53)(if(procedure? p_53)(procedure-arity-includes? p_53 2) #f)) p_31)" +"(if((lambda(p_52)(if(procedure? p_52)(procedure-arity-includes? p_52 2) #f)) p_30)" "(void)" -" (let-values () (raise-argument-error 'current-compile \"(procedure-arity-includes/c 2)\" p_31)))" -" p_31))))))" +" (let-values () (raise-argument-error 'current-compile \"(procedure-arity-includes/c 2)\" p_30)))" +" p_30))))))" "(define-values" "(1/current-load)" "(let-values()" "(let-values()" "(make-parameter" "(replace-me 'current-load)" -"(lambda(p_54)" +"(lambda(p_53)" "(begin" -"(if((lambda(p_55)(if(procedure? p_55)(procedure-arity-includes? p_55 2) #f)) p_54)" +"(if((lambda(p_54)(if(procedure? p_54)(procedure-arity-includes? p_54 2) #f)) p_53)" "(void)" -" (let-values () (raise-argument-error 'current-load \"(procedure-arity-includes/c 2)\" p_54)))" -" p_54))))))" +" (let-values () (raise-argument-error 'current-load \"(procedure-arity-includes/c 2)\" p_53)))" +" p_53))))))" "(define-values" "(1/current-load/use-compiled)" "(let-values()" "(let-values()" "(make-parameter" "(replace-me 'current-load/use-compiled)" -"(lambda(p_36)" +"(lambda(p_35)" "(begin" -"(if((lambda(p_48)(if(procedure? p_48)(procedure-arity-includes? p_48 2) #f)) p_36)" +"(if((lambda(p_47)(if(procedure? p_47)(procedure-arity-includes? p_47 2) #f)) p_35)" "(void)" -" (let-values () (raise-argument-error 'current-load/use-compiled \"(procedure-arity-includes/c 2)\" p_36)))" -" p_36))))))" +" (let-values () (raise-argument-error 'current-load/use-compiled \"(procedure-arity-includes/c 2)\" p_35)))" +" p_35))))))" "(define-values" "(1/current-library-collection-paths)" "(let-values()" @@ -46226,36 +46311,36 @@ static const char *startup_source = "(if((lambda(l_8)" "(if(list? l_8)" "(andmap2" -"(lambda(p_56)" -"(let-values(((or-part_293)(not p_56)))" -"(if or-part_293" -" or-part_293" -"(let-values(((or-part_294)(complete-path-string? p_56)))" -"(if or-part_294" -" or-part_294" -"(if(hash? p_56)" -"(let-values(((ht_153) p_56))" +"(lambda(p_55)" +"(let-values(((or-part_279)(not p_55)))" +"(if or-part_279" +" or-part_279" +"(let-values(((or-part_280)(complete-path-string? p_55)))" +"(if or-part_280" +" or-part_280" +"(if(hash? p_55)" +"(let-values(((ht_152) p_55))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_153)))" +"(let-values()(check-in-hash ht_152)))" "((letrec-values(((for-loop_184)" -"(lambda(result_115 i_90)" +"(lambda(result_114 i_90)" "(begin" " 'for-loop" "(if i_90" "(let-values(((k_35 v_3)" -"(hash-iterate-key+value ht_153 i_90)))" +"(hash-iterate-key+value ht_152 i_90)))" +"(let-values(((result_115)" +"(let-values()" "(let-values(((result_116)" "(let-values()" -"(let-values(((result_117)" "(let-values()" -"(let-values()" -"(if(let-values(((or-part_74)" +"(if(let-values(((or-part_79)" "(not" " k_35)))" -"(if or-part_74" -" or-part_74" +"(if or-part_79" +" or-part_79" "(if(symbol?" " k_35)" "(1/module-path?" @@ -46267,18 +46352,18 @@ static const char *startup_source = " v_3)" " #f)" " #f)))))" -"(values result_117)))))" -"(if(if(not((lambda x_78(not result_116)) k_35 v_3))" +"(values result_116)))))" +"(if(if(not((lambda x_77(not result_115)) k_35 v_3))" "(not #f)" " #f)" "(for-loop_184" -" result_116" -"(hash-iterate-next ht_153 i_90))" -" result_116)))" -" result_115)))))" +" result_115" +"(hash-iterate-next ht_152 i_90))" +" result_115)))" +" result_114)))))" " for-loop_184)" " #t" -"(hash-iterate-first ht_153))))" +"(hash-iterate-first ht_152))))" " #f))))))" " l_8)" " #f))" @@ -46302,38 +46387,38 @@ static const char *startup_source = "(if(string? p_3)" "(let-values()(string->path p_3))" "(let-values()" -"(let-values(((ht_154) p_3))" +"(let-values(((ht_153) p_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_154)))" -"((letrec-values(((for-loop_271)" -"(lambda(table_215 i_91)" +"(let-values()(check-in-hash ht_153)))" +"((letrec-values(((for-loop_270)" +"(lambda(table_220 i_91)" "(begin" " 'for-loop" "(if i_91" -"(let-values(((k_36 v_194)(hash-iterate-key+value ht_154 i_91)))" -"(let-values(((table_216)" -"(let-values(((table_185) table_215))" -"(let-values(((table_217)" +"(let-values(((k_36 v_195)(hash-iterate-key+value ht_153 i_91)))" +"(let-values(((table_221)" +"(let-values(((table_189) table_220))" +"(let-values(((table_222)" "(let-values()" -"(let-values(((key_87 val_78)" +"(let-values(((key_86 val_78)" "(let-values()" "(values" " k_36" -"(to-path v_194)))))" +"(to-path v_195)))))" "(hash-set" -" table_185" -" key_87" +" table_189" +" key_86" " val_78)))))" -"(values table_217)))))" +"(values table_222)))))" "(if(not #f)" -"(for-loop_271 table_216(hash-iterate-next ht_154 i_91))" -" table_216)))" -" table_215)))))" -" for-loop_271)" +"(for-loop_270 table_221(hash-iterate-next ht_153 i_91))" +" table_221)))" +" table_220)))))" +" for-loop_270)" " '#hash()" -"(hash-iterate-first ht_154)))))))))" +"(hash-iterate-first ht_153)))))))))" " l_71)))))))" "(define-values" "(1/use-compiled-file-paths)" @@ -46359,8 +46444,8 @@ static const char *startup_source = "(if((lambda(l_74)" "(if(list? l_74)" "(andmap2" -"(lambda(p_57)" -"(let-values(((or-part_8)(path-string? p_57)))(if or-part_8 or-part_8(eq? p_57 'same))))" +"(lambda(p_56)" +"(let-values(((or-part_8)(path-string? p_56)))(if or-part_8 or-part_8(eq? p_56 'same))))" " l_74)" " #f))" " l_73)" @@ -46374,18 +46459,18 @@ static const char *startup_source = "(let-values()" "(make-parameter" " 'modify-seconds" -"(lambda(v_195)" +"(lambda(v_196)" "(begin" -"(if((lambda(v_62)" -"(let-values(((or-part_21)(eq? v_62 'modify-seconds)))" -"(if or-part_21 or-part_21(eq? v_62 'exists))))" -" v_195)" +"(if((lambda(v_64)" +"(let-values(((or-part_21)(eq? v_64 'modify-seconds)))" +"(if or-part_21 or-part_21(eq? v_64 'exists))))" +" v_196)" "(void)" -" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_195)))" -" v_195))))))" -"(define-values(1/use-collection-link-paths)(make-parameter #t(lambda(v_76)(if v_76 #t #f))))" -"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_196)(if v_196 #t #f))))" -"(define-values(complete-path-string?)(lambda(p_20)(begin(if(path-string? p_20)(complete-path? p_20) #f))))" +" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_196)))" +" v_196))))))" +"(define-values(1/use-collection-link-paths)(make-parameter #t(lambda(v_77)(if v_77 #t #f))))" +"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_197)(if v_197 #t #f))))" +"(define-values(complete-path-string?)(lambda(p_57)(begin(if(path-string? p_57)(complete-path? p_57) #f))))" "(define-values" "(relative-path-string?$1)" "(lambda(p_58)(begin 'relative-path-string?(if(path-string? p_58)(relative-path? p_58) #f))))" @@ -46420,9 +46505,9 @@ 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_30 thunk_4)" "(begin" -"(let-values(((base_18 name_62 dir?_2)(split-path p_31)))" +"(let-values(((base_18 name_62 dir?_2)(split-path p_30)))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -46432,18 +46517,18 @@ static const char *startup_source = "(let-values()(thunk_4)))))))" "(define-values" "(1/load/use-compiled)" -"(lambda(f_25)" +"(lambda(f_24)" "(begin" " 'load/use-compiled" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(path-string? f_25)" +"(if(path-string? f_24)" "(void)" -" (let-values () (raise-argument-error 'load/use-compiled \"path-string?\" f_25)))" +" (let-values () (raise-argument-error 'load/use-compiled \"path-string?\" f_24)))" "(values))))" -"(let-values(((p_48)(->path f_25)))((1/current-load/use-compiled) p_48 #f))))))))" +"(let-values(((p_47)(->path f_24)))((1/current-load/use-compiled) p_47 #f))))))))" "(define-values" "(embedded-load)" "(lambda(start_42 end_32 str_23 as-predefined?_0)" @@ -46454,11 +46539,11 @@ static const char *startup_source = "(let-values(((sp_0)(find-system-path 'exec-file)))" "(let-values(((exe_0)(find-executable-path sp_0 #f)))" "(let-values(((start_43)" -"(let-values(((or-part_294)(1/string->number start_42)))" -"(if or-part_294 or-part_294 0))))" +"(let-values(((or-part_280)(1/string->number start_42)))" +"(if or-part_280 or-part_280 0))))" "(let-values(((end_33)" -"(let-values(((or-part_299)(1/string->number end_32)))" -"(if or-part_299 or-part_299 0))))" +"(let-values(((or-part_285)(1/string->number end_32)))" +"(if or-part_285 or-part_285 0))))" "(let-values(((exe4_0) exe_0)" "((temp5_5)" "(lambda()" @@ -46469,7 +46554,7 @@ static const char *startup_source = "(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_163)))" -"((letrec-values(((loop_74)" +"((letrec-values(((loop_66)" "(lambda()" "(begin" " 'loop" @@ -46498,9 +46583,9 @@ static const char *startup_source = " current-module-declare-as-predefined" " as-predefined?_0)" "(let-values()((1/current-eval) e_77)))" -"(loop_74)))))))))" -" loop_74)))))))" -"(define-values(->path)(lambda(s_425)(begin(if(string? s_425)(string->path s_425) s_425))))" +"(loop_66)))))))))" +" loop_66)))))))" +"(define-values(->path)(lambda(s_75)(begin(if(string? s_75)(string->path s_75) s_75))))" "(define-values" "(find-main-collects)" "(lambda()" @@ -46529,22 +46614,22 @@ 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_24 s_182 l_4)" +"(lambda(who_25 s_180 l_4)" "(begin" "(begin" -"(if(relative-path-string? s_182)" +"(if(relative-path-string? s_180)" "(void)" -" (let-values () (raise-argument-error who_24 \"(and/c path-string? relative-path?)\" s_182)))" +" (let-values () (raise-argument-error who_25 \"(and/c path-string? relative-path?)\" s_180)))" "(if((lambda(l_2)(if(list? l_2)(andmap2 relative-path-string? l_2) #f)) l_4)" "(void)" -" (let-values () (raise-argument-error who_24 \"(listof (and/c path-string? relative-path?))\" l_4)))))))" +" (let-values () (raise-argument-error who_25 \"(listof (and/c path-string? relative-path?))\" l_4)))))))" "(define-values" "(check-fail)" -"(lambda(who_25 fail_2)" +"(lambda(who_26 fail_2)" "(begin" -"(if((lambda(p_53)(if(procedure? p_53)(procedure-arity-includes? p_53 1) #f)) fail_2)" +"(if((lambda(p_52)(if(procedure? p_52)(procedure-arity-includes? p_52 1) #f)) fail_2)" "(void)" -" (let-values () (raise-argument-error who_25 \"(procedure-arity-includes/c 1)\" fail_2))))))" +" (let-values () (raise-argument-error who_26 \"(procedure-arity-includes/c 1)\" fail_2))))))" "(define-values" "(1/collection-path)" "(lambda(fail_3 collection_0 collection-path_0)" @@ -46573,10 +46658,10 @@ static const char *startup_source = "(find-col-file fail_4 collection_1 collection-path_1 file-name_0 check-compiled?_0)))))))" "(define-values" "(get-config-table)" -"(lambda(d_33)" +"(lambda(d_32)" "(begin" -" (let-values (((p_63) (if d_33 (build-path d_33 \"config.rktd\") #f)))" -"(let-values(((or-part_292)" +" (let-values (((p_63) (if d_32 (build-path d_32 \"config.rktd\") #f)))" +"(let-values(((or-part_278)" "(if p_63" "(if(file-exists? p_63)" "(let-values(((p9_0) p_63)" @@ -46589,7 +46674,7 @@ static const char *startup_source = "(with-input-from-file45.1 #f #f p9_0 temp10_4))" " #f)" " #f)))" -"(if or-part_292 or-part_292 '#hash()))))))" +"(if or-part_278 or-part_278 '#hash()))))))" "(define-values" "(get-installation-name)" "(lambda(config-table_0)(begin(hash-ref config-table_0 'installation-name(version)))))" @@ -46611,12 +46696,12 @@ static const char *startup_source = "(let-values()" "(path->complete-path" " p_64" -"(let-values(((or-part_177)(find-main-collects)))(if or-part_177 or-part_177(current-directory)))))))))" +"(let-values(((or-part_74)(find-main-collects)))(if or-part_74 or-part_74(current-directory)))))))))" "(define-values" "(add-config-search)" -"(lambda(ht_155 key_88 orig-l_9)" +"(lambda(ht_154 key_87 orig-l_9)" "(begin" -"(let-values(((l_75)(hash-ref ht_155 key_88 #f)))" +"(let-values(((l_75)(hash-ref ht_154 key_87 #f)))" "(if l_75" "((letrec-values(((loop_99)" "(lambda(l_76)" @@ -46635,22 +46720,22 @@ static const char *startup_source = "(lambda()" "(begin" " 'find-library-collection-links" -"(let-values(((ht_156)(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_68)(hash-ref ht_156 'links-file #f)))" -"(if or-part_68" -" or-part_68" +"(let-values(((or-part_82)(hash-ref ht_155 'links-file #f)))" +"(if or-part_82" +" or-part_82" "(build-path" -"(let-values(((or-part_69)(hash-ref ht_156 'share-dir #f)))" -" (if or-part_69 or-part_69 (build-path 'up \"share\")))" +"(let-values(((or-part_83)(hash-ref ht_155 'share-dir #f)))" +" (if or-part_83 or-part_83 (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_156) \"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_156 '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" @@ -46670,7 +46755,7 @@ static const char *startup_source = "(lambda()" "(let-values(((dir-evt_0)" "(if(vector-ref(system-type 'fs-change) 2)" -"((letrec-values(((loop_61)" +"((letrec-values(((loop_60)" "(lambda(path_8)" "(begin" " 'loop" @@ -46678,9 +46763,9 @@ static const char *startup_source = "(if(path? base_20)" "(if(directory-exists? base_20)" "(filesystem-change-evt base_20(lambda() #f))" -"(loop_61 base_20))" +"(loop_60 base_20))" " #f))))))" -" loop_61)" +" loop_60)" " path_7)" " #f)))" "(if(not(file-exists? path_7))" @@ -46765,7 +46850,7 @@ static const char *startup_source = "(lambda()" "(call-with-default-reading-parameterization" "(lambda()" -"(let-values(((v_197)" +"(let-values(((v_198)" "(if(no-file-stamp? ts_1)" " null" "(let-values(((links-path13_0) links-path_0)" @@ -46782,41 +46867,41 @@ static const char *startup_source = "(call-with-input-file*61.1 #f #f links-path13_0 temp14_5)))))" "(let-values((()" "(begin" -"(if(if(list? v_197)" +"(if(if(list? v_198)" "(andmap2" "(lambda(p_67)" "(if(list? p_67)" -"(if(let-values(((or-part_232)(= 2(length p_67))))" -"(if or-part_232 or-part_232(= 3(length p_67))))" -"(if(let-values(((or-part_302)(string?(car p_67))))" -"(if or-part_302" -" or-part_302" -"(let-values(((or-part_303)" +"(if(let-values(((or-part_218)(= 2(length p_67))))" +"(if or-part_218 or-part_218(= 3(length p_67))))" +"(if(let-values(((or-part_288)(string?(car p_67))))" +"(if or-part_288" +" or-part_288" +"(let-values(((or-part_289)" "(eq? 'root(car p_67))))" -"(if or-part_303" -" or-part_303" +"(if or-part_289" +" or-part_289" "(eq? 'static-root(car p_67))))))" "(if(path-string?(cadr p_67))" -"(let-values(((or-part_304)(null?(cddr p_67))))" -"(if or-part_304 or-part_304(regexp?(caddr p_67))))" +"(let-values(((or-part_290)(null?(cddr p_67))))" +"(if or-part_290 or-part_290(regexp?(caddr p_67))))" " #f)" " #f)" " #f)" " #f))" -" v_197)" +" v_198)" " #f)" "(void)" " (let-values () (error \"ill-formed content\")))" "(values))))" -"(let-values(((ht_157)(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)))" " base_21)))" "(begin" "(for-each2" "(lambda(p_68)" -"(if(let-values(((or-part_305)(null?(cddr p_68))))" -"(if or-part_305 or-part_305(regexp-match?(caddr p_68)(version))))" +"(if(let-values(((or-part_291)(null?(cddr p_68))))" +"(if or-part_291 or-part_291(regexp-match?(caddr p_68)(version))))" "(let-values()" "(let-values(((dir_1)" "(simplify-path(path->complete-path(cadr p_68) dir_0))))" @@ -46828,34 +46913,34 @@ static const char *startup_source = "(let-values()" "(let-values(((k_37)(string->symbol(path->string sub_1))))" "(hash-set!" -" ht_157" +" ht_156" " k_37" -"(cons dir_1(hash-ref ht_157 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_157 #f #f)" +"(if(hash-ref ht_156 #f #f)" "(void)" -"(let-values()(hash-set! ht_157 #f null)))" +"(let-values()(hash-set! ht_156 #f null)))" "(hash-for-each" -" ht_157" -"(lambda(k_38 v_198)" -"(hash-set! ht_157 k_38(cons dir_1 v_198))))))" +" ht_156" +"(lambda(k_38 v_199)" +"(hash-set! ht_156 k_38(cons dir_1 v_199))))))" "(let-values()" "(let-values(((s_16)(string->symbol(car p_68))))" "(hash-set!" -" ht_157" +" ht_156" " s_16" -"(cons(box dir_1)(hash-ref ht_157 s_16 null)))))))))" +"(cons(box dir_1)(hash-ref ht_156 s_16 null)))))))))" "(void)))" -" v_197)" +" v_198)" "(hash-for-each" -" ht_157" -"(lambda(k_39 v_199)(hash-set! ht_157 k_39(reverse$1 v_199))))" -"(hash-set! links-cache links-path_0(cons ts_1 ht_157))" -" ht_157))))))))))))))))))))))" +" ht_156" +"(lambda(k_39 v_200)(hash-set! ht_156 k_39(reverse$1 v_200))))" +"(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)" @@ -46902,22 +46987,22 @@ static const char *startup_source = "(hash-ref(car l_78) #f null)" "(loop_101(cdr l_78))))" "(let-values()" -"(let-values(((ht_158)(get-linked-collections(car l_78))))" +"(let-values(((ht_157)(get-linked-collections(car l_78))))" "(append" -"(hash-ref ht_158 sym_90 null)" -"(hash-ref ht_158 #f null)" +"(hash-ref ht_157 sym_90 null)" +"(hash-ref ht_157 #f null)" "(loop_101(cdr l_78))))))))))))" " loop_101)" "(1/current-library-collection-links)))))" "(let-values(((done_1)(lambda(p_11)(begin 'done(if file-name_1(build-path p_11 file-name_1) p_11)))))" "(let-values(((*build-path-rep_0)" -"(lambda(p_25 c_55)" -"(begin '*build-path-rep(if(path? p_25)(build-path p_25 c_55)(unbox p_25))))))" +"(lambda(p_69 c_55)" +"(begin '*build-path-rep(if(path? p_69)(build-path p_69 c_55)(unbox p_69))))))" "(let-values(((*directory-exists?_0)" -"(lambda(orig_0 p_47)" -"(begin '*directory-exists?(if(path? orig_0)(directory-exists? p_47) #t)))))" +"(lambda(orig_0 p_46)" +"(begin '*directory-exists?(if(path? orig_0)(directory-exists? p_46) #t)))))" "(let-values(((to-string_0)" -"(lambda(p_69)(begin 'to-string(if(path? p_69)(path->string p_69) p_69)))))" +"(lambda(p_70)(begin 'to-string(if(path? p_70)(path->string p_70) p_70)))))" "((letrec-values(((cloop_0)" "(lambda(paths_1 found-col_0)" "(begin" @@ -46943,14 +47028,14 @@ static const char *startup_source = " loop_48)" " collection-path_3)))))" "(letrec-values(((filter_1)" -"(lambda(f_37 l_28)" +"(lambda(f_39 l_28)" "(begin" " 'filter" "(if(null? l_28)" " null" -"(if(f_37(car l_28))" -"(cons(car l_28)(filter_1 f_37(cdr l_28)))" -"(filter_1 f_37(cdr l_28))))))))" +"(if(f_39(car l_28))" +"(cons(car l_28)(filter_1 f_39(cdr l_28)))" +"(filter_1 f_39(cdr l_28))))))))" "(fail_5" "(format" " \"collection not found\\n collection: ~s\\n in collection directories:~a~a\"" @@ -46960,7 +47045,7 @@ static const char *startup_source = "(apply" " string-append" "(map2" -" (lambda (p_26) (format \"\\n ~a ~a\" \" \" p_26))" +" (lambda (p_71) (format \"\\n ~a ~a\" \" \" p_71))" "(let-values(((len_34)(length all-paths_0))" "((clen_0)" "(length(1/current-library-collection-paths))))" @@ -46979,7 +47064,7 @@ static const char *startup_source = "(apply" " string-append" "(map2" -" (lambda (p_70) (format \"\\n ~a\" (unbox p_70)))" +" (lambda (p_72) (format \"\\n ~a\" (unbox p_72)))" "(filter_1 box? all-paths_0))))" " \"\"))))))" "(let-values(((dir_2)(*build-path-rep_0(car paths_1) collection_3)))" @@ -46987,13 +47072,13 @@ static const char *startup_source = "(let-values(((cpath_0)(apply build-path dir_2 collection-path_3)))" "(if(if(null? collection-path_3) #t(directory-exists? cpath_0))" "(if file-name_1" -"(if(let-values(((or-part_145)" +"(if(let-values(((or-part_137)" "(file-exists?/maybe-compiled" " cpath_0" " file-name_1" " check-compiled?_1)))" -"(if or-part_145" -" or-part_145" +"(if or-part_137" +" or-part_137" "(let-values(((alt-file-name_0)" "(let-values(((file-name_2)" "(if(path? file-name_1)" @@ -47024,8 +47109,8 @@ static const char *startup_source = "(done_1 cpath_0)" "(cloop_0" "(cdr paths_1)" -"(let-values(((or-part_147) found-col_0))" -"(if or-part_147 or-part_147 cpath_0))))" +"(let-values(((or-part_139) found-col_0))" +"(if or-part_139 or-part_139 cpath_0))))" "(done_1 cpath_0))" "(cloop_0(cdr paths_1) found-col_0)))" "(cloop_0(cdr paths_1) found-col_0))))))))" @@ -47036,24 +47121,24 @@ static const char *startup_source = "(file-exists?/maybe-compiled)" "(lambda(dir_3 path_10 check-compiled?_2)" "(begin" -"(let-values(((or-part_92)(file-exists?(build-path dir_3 path_10))))" -"(if or-part_92" -" or-part_92" +"(let-values(((or-part_292)(file-exists?(build-path dir_3 path_10))))" +"(if or-part_292" +" or-part_292" "(if check-compiled?_2" " (let-values (((try-path_0) (path-add-extension path_10 #\".zo\"))" "((modes_0)(1/use-compiled-file-paths))" "((roots_0)(1/current-compiled-file-roots)))" "(ormap2" -"(lambda(d_34)" +"(lambda(d_33)" "(ormap2" "(lambda(mode_15)" "(file-exists?" -"(let-values(((p_71)(build-path dir_3 mode_15 try-path_0)))" -"(if(eq? d_34 'same)" -"(let-values() p_71)" -"(if(relative-path? d_34)" -"(let-values()(build-path p_71 d_34))" -"(let-values()(reroot-path p_71 d_34)))))))" +"(let-values(((p_73)(build-path dir_3 mode_15 try-path_0)))" +"(if(eq? d_33 'same)" +"(let-values() p_73)" +"(if(relative-path? d_33)" +"(let-values()(build-path p_73 d_33))" +"(let-values()(reroot-path p_73 d_33)))))))" " modes_0))" " roots_0))" " #f))))))" @@ -47068,7 +47153,7 @@ static const char *startup_source = "(let-values()" "(let-values(((user-too?_0)(1/use-user-specific-search-paths))" "((cons-if_0)" -"(lambda(f_38 r_45)(begin 'cons-if(if f_38(cons f_38 r_45) r_45))))" +"(lambda(f_40 r_45)(begin 'cons-if(if f_40(cons f_40 r_45) r_45))))" "((config-table_1)(get-config-table(find-main-config))))" "(path-list-string->path-list" "(if user-too?_0" @@ -47095,13 +47180,13 @@ static const char *startup_source = "(if(null? l_79)" " null" "(let-values(((collects-path_1)(car l_79)))" -"(let-values(((v_200)" +"(let-values(((v_201)" "(exe-relative-path->complete-path" " collects-path_1)))" -"(if v_200" +"(if v_201" "(cons" "(simplify-path" -"(path->complete-path v_200(current-directory)))" +"(path->complete-path v_201(current-directory)))" "(loop_85(cdr l_79)))" "(loop_85(cdr l_79))))))))))" " loop_85)" @@ -47121,14 +47206,14 @@ static const char *startup_source = "(let-values()" "(make-parameter" " #f" -"(lambda(v_201)" +"(lambda(v_202)" "(begin" -"(if((lambda(x_79)" -"(let-values(((or-part_11)(not x_79)))(if or-part_11 or-part_11(prop:readtable? x_79))))" -" v_201)" +"(if((lambda(x_78)" +"(let-values(((or-part_11)(not x_78)))(if or-part_11 or-part_11(prop:readtable? x_78))))" +" v_202)" "(void)" -" (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_201)))" -" v_201))))))" +" (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_202)))" +" v_202))))))" "(define-values" "(struct:read-config/outer" " read-config/outer1.1" @@ -47254,42 +47339,42 @@ static const char *startup_source = " pos_107" " indentations_0" " keep-comment?_0))))" -"(define-values(read-config-wrap)(lambda(v_202)(begin(read-config/outer-wrap v_202))))" -"(define-values(read-config-line)(lambda(v_203)(begin(read-config/outer-line v_203))))" -"(define-values(read-config-col)(lambda(v_204)(begin(read-config/outer-col v_204))))" -"(define-values(read-config-pos)(lambda(v_205)(begin(read-config/outer-pos v_205))))" -"(define-values(read-config-indentations)(lambda(v_206)(begin(read-config/outer-indentations v_206))))" -"(define-values(read-config-keep-comment?)(lambda(v_207)(begin(read-config/outer-keep-comment? v_207))))" +"(define-values(read-config-wrap)(lambda(v_203)(begin(read-config/outer-wrap v_203))))" +"(define-values(read-config-line)(lambda(v_204)(begin(read-config/outer-line v_204))))" +"(define-values(read-config-col)(lambda(v_205)(begin(read-config/outer-col v_205))))" +"(define-values(read-config-pos)(lambda(v_206)(begin(read-config/outer-pos v_206))))" +"(define-values(read-config-indentations)(lambda(v_207)(begin(read-config/outer-indentations v_207))))" +"(define-values(read-config-keep-comment?)(lambda(v_208)(begin(read-config/outer-keep-comment? v_208))))" "(define-values" "(read-config-readtable)" -"(lambda(v_208)(begin(read-config/inner-readtable(read-config/outer-inner v_208)))))" +"(lambda(v_209)(begin(read-config/inner-readtable(read-config/outer-inner v_209)))))" "(define-values" "(read-config-next-readtable)" -"(lambda(v_209)(begin(read-config/inner-next-readtable(read-config/outer-inner v_209)))))" +"(lambda(v_210)(begin(read-config/inner-next-readtable(read-config/outer-inner v_210)))))" "(define-values" "(read-config-for-syntax?)" -"(lambda(v_210)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_210)))))" -"(define-values(read-config-source)(lambda(v_69)(begin(read-config/inner-source(read-config/outer-inner v_69)))))" +"(lambda(v_211)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_211)))))" +"(define-values(read-config-source)(lambda(v_71)(begin(read-config/inner-source(read-config/outer-inner v_71)))))" "(define-values" "(read-config-read-compiled)" -"(lambda(v_181)(begin(read-config/inner-read-compiled(read-config/outer-inner v_181)))))" +"(lambda(v_182)(begin(read-config/inner-read-compiled(read-config/outer-inner v_182)))))" "(define-values" "(read-config-dynamic-require)" -"(lambda(v_211)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_211)))))" +"(lambda(v_212)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_212)))))" "(define-values" "(read-config-module-declared?)" -"(lambda(v_212)(begin(read-config/inner-module-declared?(read-config/outer-inner v_212)))))" -"(define-values(read-config-coerce)(lambda(v_77)(begin(read-config/inner-coerce(read-config/outer-inner v_77)))))" +"(lambda(v_213)(begin(read-config/inner-module-declared?(read-config/outer-inner v_213)))))" +"(define-values(read-config-coerce)(lambda(v_78)(begin(read-config/inner-coerce(read-config/outer-inner v_78)))))" "(define-values" "(read-config-coerce-key)" -"(lambda(v_213)(begin(read-config/inner-coerce-key(read-config/outer-inner v_213)))))" +"(lambda(v_214)(begin(read-config/inner-coerce-key(read-config/outer-inner v_214)))))" "(define-values" "(read-config-parameter-override)" -"(lambda(v_200)(begin(read-config/inner-parameter-override(read-config/outer-inner v_200)))))" +"(lambda(v_201)(begin(read-config/inner-parameter-override(read-config/outer-inner v_201)))))" "(define-values" "(read-config-parameter-cache)" -"(lambda(v_214)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_214)))))" -"(define-values(read-config-st)(lambda(v_186)(begin(read-config/inner-st(read-config/outer-inner v_186)))))" +"(lambda(v_215)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_215)))))" +"(define-values(read-config-st)(lambda(v_187)(begin(read-config/inner-st(read-config/outer-inner v_187)))))" "(define-values" "(struct:read-config-state" " read-config-state3.1" @@ -47366,21 +47451,21 @@ static const char *startup_source = " for-syntax?_1" " source_2" " wrap_4" -"(let-values(((or-part_85) read-compiled_1))" -" (if or-part_85 or-part_85 (lambda (in_0) (error 'read \"no `read-compiled` provided\"))))" -"(let-values(((or-part_87) dynamic-require_1))" -"(if or-part_87" -" or-part_87" +"(let-values(((or-part_89) read-compiled_1))" +" (if or-part_89 or-part_89 (lambda (in_0) (error 'read \"no `read-compiled` provided\"))))" +"(let-values(((or-part_293) dynamic-require_1))" +"(if or-part_293" +" or-part_293" "(lambda(mod-path_25 sym_91 failure-k_0)" " (error 'read \"no `dynamic-require` provided\"))))" -"(let-values(((or-part_306) module-declared?_1))" -"(if or-part_306" -" or-part_306" +"(let-values(((or-part_294) module-declared?_1))" +"(if or-part_294" +" or-part_294" " (lambda (mod-path_26) (error 'read \"no `module-declare?` provided\"))))" -"(let-values(((or-part_227) coerce_1))" -"(if or-part_227 or-part_227(lambda(for-syntax?_2 v_109 srcloc_9) v_109)))" -"(let-values(((or-part_271) coerce-key_1))" -"(if or-part_271 or-part_271(lambda(for-syntax?_3 v_113) v_113)))" +"(let-values(((or-part_213) coerce_1))" +"(if or-part_213 or-part_213(lambda(for-syntax?_2 v_110 srcloc_9) v_110)))" +"(let-values(((or-part_255) coerce-key_1))" +"(if or-part_255 or-part_255(lambda(for-syntax?_3 v_114) v_114)))" " #f" " #f" " #f" @@ -47410,14 +47495,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_215) config_0))" -"(let-values(((the-struct_77) v_215))" -"(if(read-config/outer? the-struct_77)" +"(let-values(((v_216) config_0))" +"(let-values(((the-struct_19) v_216))" +"(if(read-config/outer? the-struct_19)" "(let-values(((wrap55_0) wrap_5)" "((keep-comment?56_0) keep-comment?_2)" "((inner57_0)" -"(let-values(((the-struct_78)(read-config/outer-inner v_215)))" -"(if(read-config/inner? the-struct_78)" +"(let-values(((the-struct_76)(read-config/outer-inner v_216)))" +"(if(read-config/inner? the-struct_76)" "(let-values(((for-syntax?58_0) for-syntax?_4)" "((readtable59_0) readtable_2)" "((next-readtable60_0) next-readtable_2)" @@ -47429,25 +47514,25 @@ static const char *startup_source = " readtable59_0" " next-readtable60_0" " for-syntax?58_0" -"(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)" +"(read-config/inner-source the-struct_76)" +"(read-config/inner-read-compiled the-struct_76)" +"(read-config/inner-dynamic-require the-struct_76)" +"(read-config/inner-module-declared? the-struct_76)" +"(read-config/inner-coerce the-struct_76)" +"(read-config/inner-coerce-key the-struct_76)" +"(read-config/inner-parameter-override the-struct_76)" +"(read-config/inner-parameter-cache the-struct_76)" " st61_0))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_78)))))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_76)))))" "(read-config/outer1.1" " inner57_0" " wrap55_0" -"(read-config/outer-line the-struct_77)" -"(read-config/outer-col the-struct_77)" -"(read-config/outer-pos the-struct_77)" -"(read-config/outer-indentations the-struct_77)" +"(read-config/outer-line the-struct_19)" +"(read-config/outer-col the-struct_19)" +"(read-config/outer-pos the-struct_19)" +"(read-config/outer-indentations the-struct_19)" " keep-comment?56_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_77)))))))))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_19)))))))))))))))" "(define-values" "(port+config->srcloc49.1)" "(lambda(end-pos45_0 end-pos46_0 in47_0 config48_0)" @@ -47458,16 +47543,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_307) given-end-pos_0))" -"(if or-part_307" -" or-part_307" +"(let-values(((or-part_295) given-end-pos_0))" +"(if or-part_295" +" or-part_295" "(let-values(((end-line_0 end-col_0 end-pos_1)(port-next-location in_1)))" " end-pos_1)))))" "(srcloc" -"(let-values(((or-part_186)(read-config-source config_1)))" -"(if or-part_186" -" or-part_186" -" (let-values (((or-part_308) (object-name in_1))) (if or-part_308 or-part_308 \"UNKNOWN\"))))" +"(let-values(((or-part_172)(read-config-source config_1)))" +"(if or-part_172" +" or-part_172" +" (let-values (((or-part_296) (object-name in_1))) (if or-part_296 or-part_296 \"UNKNOWN\"))))" "(read-config-line config_1)" "(read-config-col config_1)" "(read-config-pos config_1)" @@ -47478,56 +47563,56 @@ static const char *startup_source = "(reading-at)" "(lambda(config_2 line_2 col_1 pos_108)" "(begin" -"(let-values(((v_216) config_2))" -"(let-values(((the-struct_79) v_216))" -"(if(read-config/outer? the-struct_79)" +"(let-values(((v_217) config_2))" +"(let-values(((the-struct_77) v_217))" +"(if(read-config/outer? the-struct_77)" "(let-values(((line62_0) line_2)" "((col63_0) col_1)" "((pos64_0) pos_108)" -"((inner65_0)(read-config/outer-inner v_216)))" +"((inner65_0)(read-config/outer-inner v_217)))" "(read-config/outer1.1" " inner65_0" -"(read-config/outer-wrap the-struct_79)" +"(read-config/outer-wrap the-struct_77)" " line62_0" " col63_0" " pos64_0" -"(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)))))))" +"(read-config/outer-indentations the-struct_77)" +"(read-config/outer-keep-comment? the-struct_77)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_77)))))))" "(define-values" "(disable-wrapping)" "(lambda(config_3)" "(begin" -"(let-values(((v_217) config_3))" -"(let-values(((the-struct_80) v_217))" -"(if(read-config/outer? the-struct_80)" -"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_217)))" +"(let-values(((v_218) config_3))" +"(let-values(((the-struct_78) v_218))" +"(if(read-config/outer? the-struct_78)" +"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_218)))" "(read-config/outer1.1" " inner67_0" " wrap66_0" -"(read-config/outer-line the-struct_80)" -"(read-config/outer-col the-struct_80)" -"(read-config/outer-pos the-struct_80)" -"(read-config/outer-indentations the-struct_80)" -"(read-config/outer-keep-comment? the-struct_80)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_80)))))))" +"(read-config/outer-line the-struct_78)" +"(read-config/outer-col the-struct_78)" +"(read-config/outer-pos the-struct_78)" +"(read-config/outer-indentations the-struct_78)" +"(read-config/outer-keep-comment? the-struct_78)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_78)))))))" "(define-values" "(keep-comment)" "(lambda(config_4)" "(begin" -"(let-values(((v_218) config_4))" -"(let-values(((the-struct_81) v_218))" -"(if(read-config/outer? the-struct_81)" -"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_218)))" +"(let-values(((v_219) config_4))" +"(let-values(((the-struct_79) v_219))" +"(if(read-config/outer? the-struct_79)" +"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_219)))" "(read-config/outer1.1" " inner69_0" -"(read-config/outer-wrap the-struct_81)" -"(read-config/outer-line the-struct_81)" -"(read-config/outer-col the-struct_81)" -"(read-config/outer-pos the-struct_81)" -"(read-config/outer-indentations the-struct_81)" +"(read-config/outer-wrap the-struct_79)" +"(read-config/outer-line the-struct_79)" +"(read-config/outer-col the-struct_79)" +"(read-config/outer-pos the-struct_79)" +"(read-config/outer-indentations the-struct_79)" " keep-comment?68_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_81)))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_79)))))))" "(define-values" "(discard-comment)" "(lambda(config_5)" @@ -47535,19 +47620,19 @@ static const char *startup_source = "(if(not(read-config-keep-comment? config_5))" "(let-values() config_5)" "(let-values()" -"(let-values(((v_219) config_5))" -"(let-values(((the-struct_82) v_219))" -"(if(read-config/outer? the-struct_82)" -"(let-values(((keep-comment?70_0) #f)((inner71_0)(read-config/outer-inner v_219)))" +"(let-values(((v_220) config_5))" +"(let-values(((the-struct_80) v_220))" +"(if(read-config/outer? the-struct_80)" +"(let-values(((keep-comment?70_0) #f)((inner71_0)(read-config/outer-inner v_220)))" "(read-config/outer1.1" " inner71_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_80)" +"(read-config/outer-line the-struct_80)" +"(read-config/outer-col the-struct_80)" +"(read-config/outer-pos the-struct_80)" +"(read-config/outer-indentations the-struct_80)" " keep-comment?70_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_82)))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_80)))))))))" "(define-values" "(next-readtable)" "(lambda(config_6)" @@ -47555,36 +47640,36 @@ static const char *startup_source = "(if(eq?(read-config-readtable config_6)(read-config-next-readtable config_6))" "(let-values() config_6)" "(let-values()" -"(let-values(((v_220) config_6))" -"(let-values(((the-struct_83) v_220))" -"(if(read-config/outer? the-struct_83)" +"(let-values(((v_221) config_6))" +"(let-values(((the-struct_81) v_221))" +"(if(read-config/outer? the-struct_81)" "(let-values(((inner72_1)" -"(let-values(((the-struct_84)(read-config/outer-inner v_220)))" -"(if(read-config/inner? the-struct_84)" +"(let-values(((the-struct_82)(read-config/outer-inner v_221)))" +"(if(read-config/inner? the-struct_82)" "(let-values(((readtable73_0)(read-config-next-readtable config_6)))" "(read-config/inner2.1" " readtable73_0" -"(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/inner-next-readtable the-struct_82)" +"(read-config/inner-for-syntax? the-struct_82)" +"(read-config/inner-source the-struct_82)" +"(read-config/inner-read-compiled the-struct_82)" +"(read-config/inner-dynamic-require the-struct_82)" +"(read-config/inner-module-declared? the-struct_82)" +"(read-config/inner-coerce the-struct_82)" +"(read-config/inner-coerce-key the-struct_82)" +"(read-config/inner-parameter-override the-struct_82)" +"(read-config/inner-parameter-cache the-struct_82)" +"(read-config/inner-st the-struct_82)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_82)))))" "(read-config/outer1.1" " inner72_1" -"(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)))))))))" +"(read-config/outer-wrap the-struct_81)" +"(read-config/outer-line the-struct_81)" +"(read-config/outer-col the-struct_81)" +"(read-config/outer-pos the-struct_81)" +"(read-config/outer-indentations the-struct_81)" +"(read-config/outer-keep-comment? the-struct_81)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_81)))))))))" "(define-values" "(coerce)" "(lambda(val_79 in_2 config_7)" @@ -47596,27 +47681,27 @@ static const char *startup_source = "(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_221)(begin 'default-reader-guard v_221)))" +"(define-values(default-reader-guard$1)(lambda(v_222)(begin 'default-reader-guard v_222)))" "(define-values" "(1/current-reader-guard)" "(make-parameter" " default-reader-guard$1" -"(lambda(v_222)" +"(lambda(v_223)" "(begin" -"(if(if(procedure? v_222)(procedure-arity-includes? v_222 1) #f)" +"(if(if(procedure? v_223)(procedure-arity-includes? v_223 1) #f)" "(void)" -" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_222)))" -" v_222))))" +" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_223)))" +" v_223))))" "(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_223)(if v_223 #t #f))))" -"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_224)(if v_224 #t #f))))" -"(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_60)(if v_60 #t #f))))" +"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_224)(if v_224 #t #f))))" +"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_225)(if v_225 #t #f))))" +"(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_61)(if v_61 #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_61)(if v_61 #t #f))))" +"(define-values(1/read-accept-graph)(make-parameter #t(lambda(v_62)(if v_62 #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_92)(if v_92 #t #f))))" -"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_225)(if v_225 #t #f))))" -"(define-values(1/read-accept-dot)(make-parameter #t(lambda(v_75)(if v_75 #t #f))))" +"(define-values(1/read-accept-box)(make-parameter #t(lambda(v_93)(if v_93 #t #f))))" +"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_226)(if v_226 #t #f))))" +"(define-values(1/read-accept-dot)(make-parameter #t(lambda(v_63)(if v_63 #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))))" "(define-values(1/read-accept-reader)(make-parameter #f(lambda(v_31)(if v_31 #t #f))))" @@ -47627,46 +47712,46 @@ static const char *startup_source = "(lambda(param_0 config_8)" "(begin" "(let-values(((cache_4)(read-config-parameter-cache config_8)))" -"(let-values(((v_63)" +"(let-values(((v_65)" "(hash-ref(read-config-parameter-override config_8) param_0(hash-ref cache_4 param_0 unknown))))" -"(if(eq? v_63 unknown)" -"(let-values()(let-values(((v_64)(param_0)))(begin(hash-set! cache_4 param_0 v_64) v_64)))" -"(let-values() v_63)))))))" +"(if(eq? v_65 unknown)" +"(let-values()(let-values(((v_66)(param_0)))(begin(hash-set! cache_4 param_0 v_66) v_66)))" +"(let-values() v_65)))))))" "(define-values" "(override-parameter)" "(lambda(param_1 config_9 v_28)" "(begin" -"(let-values(((v_91) config_9))" -"(let-values(((the-struct_85) v_91))" -"(if(read-config/outer? the-struct_85)" +"(let-values(((v_92) config_9))" +"(let-values(((the-struct_83) v_92))" +"(if(read-config/outer? the-struct_83)" "(let-values(((inner1_0)" -"(let-values(((the-struct_86)(read-config/outer-inner v_91)))" -"(if(read-config/inner? the-struct_86)" +"(let-values(((the-struct_84)(read-config/outer-inner v_92)))" +"(if(read-config/inner? the-struct_84)" "(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_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)" +"(read-config/inner-readtable the-struct_84)" +"(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)" " parameter-override2_0" -"(read-config/inner-parameter-cache the-struct_86)" -"(read-config/inner-st the-struct_86)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_86)))))" +"(read-config/inner-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" " inner1_0" -"(read-config/outer-wrap the-struct_85)" -"(read-config/outer-line the-struct_85)" -"(read-config/outer-col the-struct_85)" -"(read-config/outer-pos the-struct_85)" -"(read-config/outer-indentations the-struct_85)" -"(read-config/outer-keep-comment? the-struct_85)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_85)))))))" +"(read-config/outer-wrap the-struct_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" "(force-parameters!)" "(lambda(config_10)" @@ -47758,23 +47843,23 @@ static const char *startup_source = "(if(null? args_8)" "(let-values()(readtable1.1 symbol-parser_0 char-ht_0 dispatch-ht_0 delimiter-ht_0))" "(let-values()" -"(let-values(((key_89)(car args_8)))" +"(let-values(((key_88)(car args_8)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_172)(not key_89)))" -"(if or-part_172 or-part_172(char? key_89)))" +"(if(let-values(((or-part_162)(not key_88)))" +"(if or-part_162 or-part_162(char? key_88)))" "(void)" "(let-values()" "(raise-argument-error" " 'make-readtable" " \"(or/c char? #f)\"" -" key_89)))" +" key_88)))" "(values))))" "(let-values((()" "(begin" "(if(null? args_8)" "(let-values()" -"(if key_89" +"(if key_88" "(let-values()" "(raise-arguments-error" " 'make-readtable" @@ -47782,7 +47867,7 @@ static const char *startup_source = " \"expected 'terminating-macro, 'non-terminating-macro, 'dispatch-macro,\"" " \" or character argument after character argument\")" " \"character\"" -" key_89))" +" key_88))" "(let-values()" "(raise-arguments-error" " 'make-readtable" @@ -47792,22 +47877,22 @@ static const char *startup_source = "(let-values(((mode_16)(cadr args_8)))" "(let-values((()" "(begin" -"(if key_89" +"(if key_88" "(let-values()" -"(if(let-values(((or-part_173)" +"(if(let-values(((or-part_245)" "(eq? mode_16 'terminating-macro)))" -"(if or-part_173" -" or-part_173" -"(let-values(((or-part_174)" +"(if or-part_245" +" or-part_245" +"(let-values(((or-part_246)" "(eq?" " mode_16" " 'non-terminating-macro)))" -"(if or-part_174" -" or-part_174" -"(let-values(((or-part_309)" +"(if or-part_246" +" or-part_246" +"(let-values(((or-part_297)" "(eq? mode_16 'dispatch-macro)))" -"(if or-part_309" -" or-part_309" +"(if or-part_297" +" or-part_297" "(char? mode_16)))))))" "(void)" "(let-values()" @@ -47829,7 +47914,7 @@ static const char *startup_source = "(let-values()" "(raise-arguments-error" " 'make-readtable" -"(if key_89" +"(if key_88" " \"expected readtable or #f argument after character argument\"" " \"expected procedure argument after symbol argument\")" " \"given\"" @@ -47838,7 +47923,7 @@ static const char *startup_source = "(values))))" "(let-values(((target_0)(caddr args_8)))" "(let-values(((rest-args_0)(cdddr args_8)))" -"(if(not key_89)" +"(if(not key_88)" "(let-values()" "(begin" "(if(if(procedure? target_0)" @@ -47872,16 +47957,16 @@ static const char *startup_source = " rest-args_0" " symbol-parser_0" " char-ht_0" -"(hash-set dispatch-ht_0 key_89 target_0)" +"(hash-set dispatch-ht_0 key_88 target_0)" " delimiter-ht_0)))" "(if(char? mode_16)" "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_93)" +"(if(let-values(((or-part_95)" "(not target_0)))" -"(if or-part_93" -" or-part_93" +"(if or-part_95" +" or-part_95" "(1/readtable? target_0)))" "(void)" "(let-values()" @@ -47891,25 +47976,25 @@ static const char *startup_source = " target_0)))" "(values))))" "(let-values(((actual-target_0)" -"(let-values(((or-part_175)" +"(let-values(((or-part_274)" "(if target_0" "(hash-ref" "(readtable-char-ht target_0)" " mode_16" " #f)" " #f)))" -"(if or-part_175 or-part_175 mode_16))))" +"(if or-part_274 or-part_274 mode_16))))" "(let-values(((new-char-ht_0)" "(if actual-target_0" "(hash-set" " char-ht_0" -" key_89" +" key_88" " actual-target_0)" -"(hash-remove char-ht_0 key_89))))" +"(hash-remove char-ht_0 key_88))))" "(let-values(((new-delimiter-ht_0)" "(hash-set" " delimiter-ht_0" -" key_89" +" key_88" "(if target_0" "(hash-ref" "(readtable-delimiter-ht target_0)" @@ -47936,11 +48021,11 @@ static const char *startup_source = " target_0)))" "(values))))" "(let-values(((new-char-ht_1)" -"(hash-set char-ht_0 key_89 target_0)))" +"(hash-set char-ht_0 key_88 target_0)))" "(let-values(((new-delimiter-ht_1)" "(hash-set" " delimiter-ht_0" -" key_89" +" key_88" "(if(eq? mode_16 'terminating-macro)" " 'delimit" " 'no-delimit))))" @@ -47991,7 +48076,7 @@ static const char *startup_source = "(lambda(handler_0 c_62 in_3 config_14 line_3 col_2 pos_109)" "(begin" "(let-values(((for-syntax?_6)(read-config-for-syntax? config_14)))" -"(let-values(((v_226)" +"(let-values(((v_227)" "(if(not for-syntax?_6)" "(let-values()" "(with-continuation-mark" @@ -48013,7 +48098,7 @@ static const char *startup_source = " config_14)" "(let-values()" "(handler_0 c_62 in_3(read-config-source config_14) line_3 col_2 pos_109)))))))" -"(if(1/special-comment? v_226) v_226(coerce v_226 in_3 config_14)))))))" +"(if(1/special-comment? v_227) v_227(coerce v_227 in_3 config_14)))))))" "(define-values" "(1/readtable-mapping)" "(lambda(rt_5 c_63)" @@ -48031,7 +48116,7 @@ static const char *startup_source = "(values))))" "(let-values(((handler_1)(hash-ref(readtable-char-ht rt_5) c_63 #f)))" "(values" -"(let-values(((or-part_178)" +"(let-values(((or-part_164)" "(if handler_1" "(if(char? handler_1)" "(let-values() handler_1)" @@ -48039,44 +48124,44 @@ static const char *startup_source = "(let-values() 'terminating-macro)" "(let-values() 'non-terminating-macro)))" " #f)))" -"(if or-part_178 or-part_178 c_63))" +"(if or-part_164 or-part_164 c_63))" "(if(char? handler_1) #f handler_1)" "(hash-ref(readtable-dispatch-ht rt_5) c_63 #f))))))))" "(define-values" "(readtable-equivalent-chars)" "(lambda(rt_6 c_64)" "(begin" -"(let-values(((ht_159)(readtable-char-ht rt_6)))" +"(let-values(((ht_158)(readtable-char-ht rt_6)))" "(append" -"(if(hash-ref ht_159 c_64 #f) null(list c_64))" +"(if(hash-ref ht_158 c_64 #f) null(list c_64))" "(reverse$1" -"(let-values(((ht_151) ht_159))" +"(let-values(((ht_150) ht_158))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_151)))" -"((letrec-values(((for-loop_267)" -"(lambda(fold-var_80 i_175)" +"(let-values()(check-in-hash ht_150)))" +"((letrec-values(((for-loop_266)" +"(lambda(fold-var_82 i_173)" "(begin" " 'for-loop" -"(if i_175" -"(let-values(((k_40 v_87)(hash-iterate-key+value ht_151 i_175)))" +"(if i_173" +"(let-values(((k_40 v_88)(hash-iterate-key+value ht_150 i_173)))" "(let-values(((fold-var_286)" -"(let-values(((fold-var_83) fold-var_80))" -"(if(eqv? v_87 c_64)" -"(let-values(((fold-var_240) fold-var_83))" +"(let-values(((fold-var_85) fold-var_82))" +"(if(eqv? v_88 c_64)" +"(let-values(((fold-var_240) fold-var_85))" "(let-values(((fold-var_13)" "(let-values()" "(cons(let-values() k_40) fold-var_240))))" "(values fold-var_13)))" -" fold-var_83))))" +" fold-var_85))))" "(if(not #f)" -"(for-loop_267 fold-var_286(hash-iterate-next ht_151 i_175))" +"(for-loop_266 fold-var_286(hash-iterate-next ht_150 i_173))" " fold-var_286)))" -" fold-var_80)))))" -" for-loop_267)" +" fold-var_82)))))" +" for-loop_266)" " null" -"(hash-iterate-first ht_151))))))))))" +"(hash-iterate-first ht_150))))))))))" "(define-values" "(struct:special special1.1 special? special-value)" "(let-values(((struct:_76 make-_76 ?_76 -ref_76 -set!_76)" @@ -48120,11 +48205,11 @@ static const char *startup_source = "(let-values(((continuation-marks_0)" "(if continuation-marks5_0 continuation-marks1_0(current-continuation-marks))))" "(let-values(((due-to_0)(if due-to6_0 due-to2_0 '#\\x)))" -"(let-values(((who_26)(if who7_0 who3_1(if(read-config-for-syntax? config_16) 'read-syntax 'read))))" +"(let-values(((who_27)(if who7_0 who3_1(if(read-config-for-syntax? config_16) 'read-syntax 'read))))" "(let-values(((end-pos_2)(if end-pos8_0 end-pos4_0 #f)))" "(let-values(((str_24) str11_0))" "(let-values(((args_9) new-rest_0))" -" (let-values (((msg_0) (format \"~a: ~a\" who_26 (apply format str_24 args_9))))" +" (let-values (((msg_0) (format \"~a: ~a\" who_27 (apply format str_24 args_9))))" "(let-values(((srcloc_10)" "(if in_6" "(let-values(((in23_1) in_6)((config24_0) config_16)((end-pos25_0) end-pos_2))" @@ -48213,9 +48298,9 @@ static const char *startup_source = "(begin" " 'skip-loop" "(let-values(((c_36)" -"(let-values(((or-part_162) init-c_2))" -"(if or-part_162" -" or-part_162" +"(let-values(((or-part_154) init-c_2))" +"(if or-part_154" +" or-part_154" "(let-values(((in_9) in_5)((source_4) source_3))" "(read-char-or-special in_9 special1.1 source_4))))))" "(let-values(((ec_0)" @@ -48239,7 +48324,7 @@ static const char *startup_source = "(if(char=? '#\\; ec_0)" "(let-values()" "(begin" -"((letrec-values(((loop_77)" +"((letrec-values(((loop_76)" "(lambda()" "(begin" " 'loop" @@ -48250,16 +48335,16 @@ static const char *startup_source = " in_10" " special1.1" " source_5))))" -"(if(let-values(((or-part_295)" +"(if(let-values(((or-part_281)" "(eof-object? c_65)))" -"(if or-part_295" -" or-part_295" +"(if or-part_281" +" or-part_281" "(eqv?" " '#\\newline" "(effective-char c_65 config_15))))" "(void)" -"(let-values()(loop_77))))))))" -" loop_77))" +"(let-values()(loop_76))))))))" +" loop_76))" "(if(read-config-keep-comment? config_15)" "(result-special-comment)" "(skip-loop_0 #f))))" @@ -48307,8 +48392,8 @@ static const char *startup_source = "(if(eq? c_67 'special)" "(special1.1 'special)" " c_67)))))" -"(let-values(((or-part_79)(eqv? '#\\space c3_1)))" -"(if or-part_79 or-part_79(eqv? '#\\/ c3_1))))" +"(let-values(((or-part_282)(eqv? '#\\space c3_1)))" +"(if or-part_282 or-part_282(eqv? '#\\/ c3_1))))" " #f)" " #f)" "(let-values()" @@ -48333,13 +48418,13 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values((()(begin(consume-char in_5 '#\\;)(values))))" -"(let-values(((v_180)(read-one_0 #f in_5 config_15)))" +"(let-values(((v_181)(read-one_0 #f in_5 config_15)))" "(begin" -"(if(eof-object? v_180)" +"(if(eof-object? v_181)" "(let-values()" "(let-values(((in1_2) in_5)" "((config2_2) config_15)" -"((v3_0) v_180)" +"((v3_0) v_181)" "((temp4_2)" " \"expected a commented-out element for `~a;`, but found end-of-file\")" "((ec5_0) ec_0))" @@ -48436,30 +48521,30 @@ static const char *startup_source = "(let-values(((or-part_26)(char-whitespace? dc_0)))" "(if or-part_26" " or-part_26" -"(let-values(((or-part_310)(char=? dc_0 '#\\()))" -"(if or-part_310" -" or-part_310" -"(let-values(((or-part_291)(char=? dc_0 '#\\))))" -"(if or-part_291" -" or-part_291" +"(let-values(((or-part_298)(char=? dc_0 '#\\()))" +"(if or-part_298" +" or-part_298" +"(let-values(((or-part_277)(char=? dc_0 '#\\))))" +"(if or-part_277" +" or-part_277" "(let-values(((or-part_27)(char=? dc_0 '#\\[)))" "(if or-part_27" " or-part_27" "(let-values(((or-part_10)(char=? dc_0 '#\\])))" "(if or-part_10" " or-part_10" -"(let-values(((or-part_162)(char=? dc_0 '#\\{)))" -"(if or-part_162" -" or-part_162" +"(let-values(((or-part_154)(char=? dc_0 '#\\{)))" +"(if or-part_154" +" or-part_154" "(let-values(((or-part_12)(char=? dc_0 '#\\})))" "(if or-part_12" " or-part_12" "(let-values(((or-part_13)(char=? dc_0 '#\\')))" "(if or-part_13" " or-part_13" -"(let-values(((or-part_224)(char=? dc_0 '#\\`)))" -"(if or-part_224" -" or-part_224" +"(let-values(((or-part_210)(char=? dc_0 '#\\`)))" +"(if or-part_210" +" or-part_210" "(let-values(((or-part_3)(char=? dc_0 '#\\,)))" "(if or-part_3" " or-part_3" @@ -48519,12 +48604,12 @@ static const char *startup_source = "(closer->opener)" "(lambda(c_46)" "(begin" -"(let-values(((tmp_36) c_46))" -"(if(equal? tmp_36 '#\\))" +"(let-values(((tmp_37) c_46))" +"(if(equal? tmp_37 '#\\))" "(let-values() '#\\()" -"(if(equal? tmp_36 '#\\])" +"(if(equal? tmp_37 '#\\])" "(let-values() '#\\[)" -"(if(equal? tmp_36 '#\\})(let-values() '#\\{)(let-values() c_46))))))))" +"(if(equal? tmp_37 '#\\})(let-values() '#\\{)(let-values() c_46))))))))" " (define-values (dot-name) (lambda (config_25) (begin \"`.`\")))" "(define-values" "(all-openers-str)" @@ -48537,9 +48622,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_294) s_10))(if or-part_294 or-part_294 c_69))" +"(if(let-values(((or-part_280) s_10))(if or-part_280 or-part_280 c_69))" "(let-values()" -" (format \"~a or ~a\" p_63 (let-values (((or-part_295) s_10)) (if or-part_295 or-part_295 c_69))))" +" (format \"~a or ~a\" p_63 (let-values (((or-part_281) s_10)) (if or-part_281 or-part_281 c_69))))" "(let-values() p_63)))))))))" "(define-values" "(struct:accum-string" @@ -48590,15 +48675,15 @@ static const char *startup_source = "(lambda(a_68 convert_1 start-pos_6)" "(begin" "(let-values(((str_27)(accum-string-str a_68)))" -"(let-values(((s_76)(convert_1(substring str_27 start-pos_6(accum-string-pos a_68)))))" -"(let-values(((len_36)(string-length s_76)))" +"(let-values(((s_77)(convert_1(substring str_27 start-pos_6(accum-string-pos a_68)))))" +"(let-values(((len_36)(string-length s_77)))" "(begin" "(if(<(+ len_36 start-pos_6)(string-length str_27))" "(void)" "(let-values()" "(let-values(((str2_2)(make-string(+ start-pos_6 len_36))))" "(begin(string-copy! str2_2 0 str_27 0 start-pos_6)(set-accum-string-str! a_68 str2_2)))))" -"(string-copy!(accum-string-str a_68) start-pos_6 s_76)" +"(string-copy!(accum-string-str a_68) start-pos_6 s_77)" "(set-accum-string-pos! a_68(+ start-pos_6 len_36)))))))))" "(define-values" "(accum-string-get!6.1)" @@ -48609,8 +48694,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_185)(substring(accum-string-str a_69) start-pos_7(accum-string-pos a_69))))" -"(begin(accum-string-abandon! a_69 config_27) s_185)))))))))" +"(let-values(((s_181)(substring(accum-string-str a_69) start-pos_7(accum-string-pos a_69))))" +"(begin(accum-string-abandon! a_69 config_27) s_181)))))))))" "(define-values" "(accum-string-get-bytes!13.1)" "(lambda(start-pos9_0 start-pos10_0 a11_0 config12_0)" @@ -48721,23 +48806,23 @@ static const char *startup_source = " (let-values () (format \"unexpected `~a`\" c_71))" "(let-values()" "(let-values(((missing_2)" -"(let-values(((or-part_303)" -"(let-values(((lst_309)(cdr indts_1)))" +"(let-values(((or-part_289)" +"(let-values(((lst_311)(cdr indts_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_309)))" -"((letrec-values(((for-loop_272)" -"(lambda(result_39 lst_310)" +"(let-values()(check-list lst_311)))" +"((letrec-values(((for-loop_271)" +"(lambda(result_39 lst_312)" "(begin" " 'for-loop" -"(if(pair? lst_310)" -"(let-values(((indt_3)(unsafe-car lst_310))" +"(if(pair? lst_312)" +"(let-values(((indt_3)(unsafe-car lst_312))" "((rest_174)" -"(unsafe-cdr lst_310)))" +"(unsafe-cdr lst_312)))" "(let-values(((result_82)" "(let-values()" -"(let-values(((result_118)" +"(let-values(((result_117)" "(let-values()" "(let-values()" "(if(char=?" @@ -48746,19 +48831,19 @@ static const char *startup_source = " indt_3))" " \"missing\"" " #f)))))" -"(values result_118)))))" +"(values result_117)))))" "(if(if(not" -"((lambda x_80 result_82)" +"((lambda x_79 result_82)" " indt_3))" "(not #f)" " #f)" -"(for-loop_272 result_82 rest_174)" +"(for-loop_271 result_82 rest_174)" " result_82)))" " result_39)))))" -" for-loop_272)" +" for-loop_271)" " #f" -" lst_309)))))" -" (if or-part_303 or-part_303 \"expected\"))))" +" lst_311)))))" +" (if or-part_289 or-part_289 \"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`\"" @@ -48805,26 +48890,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_227) elem-config_0))" -"(let-values(((the-struct_87) v_227))" -"(if(read-config/outer? the-struct_87)" +"(let-values(((v_228) elem-config_0))" +"(let-values(((the-struct_85) v_228))" +"(if(read-config/outer? the-struct_85)" "(let-values(((indentations20_0)" "(cons" " indentation_0" "(read-config-indentations seq-config_0)))" -"((inner21_0)(read-config/outer-inner v_227)))" +"((inner21_0)(read-config/outer-inner v_228)))" "(read-config/outer1.1" " inner21_0" -"(read-config/outer-wrap the-struct_87)" -"(read-config/outer-line the-struct_87)" -"(read-config/outer-col the-struct_87)" -"(read-config/outer-pos the-struct_87)" +"(read-config/outer-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)" " indentations20_0" -"(read-config/outer-keep-comment? the-struct_87)))" +"(read-config/outer-keep-comment? the-struct_85)))" "(raise-argument-error" " 'struct-copy" " \"read-config/outer?\"" -" the-struct_87))))))" +" the-struct_85))))))" "(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)))" @@ -48899,18 +48984,18 @@ static const char *startup_source = "((source_13)" "(read-config-source" " config_34)))" -"(let-values(((c_20)" +"(let-values(((c_73)" "(peek-char-or-special" " in_20" " skip-count_4" " 'special" " source_13)))" "(if(eq?" -" c_20" +" c_73" " 'special)" "(special1.1" " 'special)" -" c_20)))" +" c_73)))" " seq-config_0)" " #f)" " #f)" @@ -49004,18 +49089,18 @@ static const char *startup_source = "((source_12)" "(read-config-source" " config_34)))" -"(let-values(((c_73)" +"(let-values(((c_74)" "(peek-char-or-special" " in_21" " skip-count_5" " 'special" " source_12)))" "(if(eq?" -" c_73" +" c_74" " 'special)" "(special1.1" " 'special)" -" c_73)))" +" c_74)))" " seq-config_0)" " #f)" " #f)" @@ -49050,11 +49135,11 @@ static const char *startup_source = " post-c_0" " seq-config_0)))" "(begin" -"(if(let-values(((or-part_96)" +"(if(let-values(((or-part_98)" "(eof-object?" " post-ec_0)))" -"(if or-part_96" -" or-part_96" +"(if or-part_98" +" or-part_98" "(eqv?" " post-ec_0" " closer_1)))" @@ -49118,12 +49203,12 @@ static const char *startup_source = " temp40_3" "(list)))))))))))))" "(let-values()" -"(let-values(((v_228)" +"(let-values(((v_229)" "(read-one/not-eof_0" " c_72" " first-read-one_1" " config/keep-comment_0)))" -"(if(1/special-comment? v_228)" +"(if(1/special-comment? v_229)" "(let-values()" "(loop_39" " depth_11" @@ -49135,13 +49220,13 @@ static const char *startup_source = "(let-values()" "(loop_39" " depth_11" -"(cons v_228 accum_0)" +"(cons v_229 accum_0)" " #f" " #f" " read-one_1))" "(let-values()" "(cons" -" v_228" +" v_229" "(loop_39" "(add1 depth_11)" " null" @@ -49163,17 +49248,14 @@ static const char *startup_source = "(lambda(opener_1 in_22 config_36 seq_1)" "(begin" "(let-values(((tag_0)" -"(let-values(((tmp_37) opener_1))" -"(if(equal? tmp_37 '#\\[)" +"(let-values(((tmp_38) opener_1))" +"(if(equal? tmp_38 '#\\[)" "(let-values()(if(check-parameter 1/read-square-bracket-with-tag config_36) '#%brackets #f))" -"(if(equal? tmp_37 '#\\{)" +"(if(equal? tmp_38 '#\\{)" "(let-values()(if(check-parameter 1/read-curly-brace-with-tag config_36) '#%braces #f))" "(let-values() #f))))))" "(if tag_0(cons(wrap tag_0 in_22 config_36 #f) seq_1) seq_1)))))" -" (define-values (not-an-fX.1) (lambda (who_27 v_229) (begin 'not-an-fX (raise-argument-error who_27 \"fixnum?\" v_229))))" -"(define-values" -"(not-an-fX.1$1)" -" (lambda (who_27 v_229) (begin 'not-an-fX (raise-argument-error who_27 \"flonum?\" v_229))))" +" (define-values (not-an-fX.1$1) (lambda (who_8 v_57) (begin 'not-an-fX (raise-argument-error who_8 \"flonum?\" v_57))))" "(define-values" "(read-digits13.1)" "(lambda(base1_0" @@ -49196,19 +49278,19 @@ static const char *startup_source = "(let-values(((init-v_0)(if init7_0 init3_0 0)))" "(let-values(((zero-digits-result_0)(if zero-digits-result8_0 zero-digits-result4_0 #f)))" "(let-values()" -"(let-values(((c_74)" +"(let-values(((c_75)" "(let-values(((in_23) in_12)" "((skip-count_6) 0)" "((source_14)(read-config-source config_37)))" -"(let-values(((c_75)" +"(let-values(((c_76)" "(peek-char-or-special in_23 skip-count_6 'special source_14)))" -"(if(eq? c_75 'special)(special1.1 'special) c_75)))))" -"(if(digit?$1 c_74 base_23)" +"(if(eq? c_76 'special)(special1.1 'special) c_76)))))" +"(if(digit?$1 c_75 base_23)" "(let-values()" "(begin" -"(consume-char in_12 c_74)" -"(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_74))(void))" -"((letrec-values(((loop_61)" +"(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_230 max-count_1)" "(begin" " 'loop" @@ -49236,46 +49318,46 @@ static const char *startup_source = "(if accum-str_0" "(let-values()(accum-string-add! accum-str_0 c_68))" "(void))" -"(loop_61" +"(loop_60" "(+(digit->number c_68)(* v_230 base_23))" "(sub1 max-count_1))))" "(let-values() v_230)))))))))" -" loop_61)" -"(+(digit->number c_74)(* init-v_0 base_23))" +" loop_60)" +"(+(digit->number c_75)(* init-v_0 base_23))" "(sub1 max-count_0))))" "(if zero-digits-result_0" "(let-values() zero-digits-result_0)" -"(let-values() c_74)))))))))))))))" +"(let-values() c_75)))))))))))))))" "(define-values" "(digit?$1)" -"(lambda(c_73 base_24)" +"(lambda(c_74 base_24)" "(begin" " 'digit?" -"(if(not(char? c_73))" +"(if(not(char? c_74))" "(let-values() #f)" "(if(= base_24 8)" -"(let-values()(octal-digit? c_73))" -"(if(= base_24 16)(let-values()(hex-digit? c_73))(let-values()(decimal-digit? c_73))))))))" +"(let-values()(octal-digit? c_74))" +"(if(= base_24 16)(let-values()(hex-digit? c_74))(let-values()(decimal-digit? c_74))))))))" "(define-values(decimal-digit?)(lambda(c_44)(begin(if(char>=? c_44 '#\\0)(char<=? c_44 '#\\9) #f))))" -"(define-values(octal-digit?)(lambda(c_76)(begin(if(char>=? c_76 '#\\0)(char<=? c_76 '#\\7) #f))))" +"(define-values(octal-digit?)(lambda(c_77)(begin(if(char>=? c_77 '#\\0)(char<=? c_77 '#\\7) #f))))" "(define-values" "(hex-digit?)" -"(lambda(c_77)" -"(begin" -"(let-values(((or-part_311)(if(char>=? c_77 '#\\0)(char<=? c_77 '#\\9) #f)))" -"(if or-part_311" -" or-part_311" -"(let-values(((or-part_96)(if(char>=? c_77 '#\\A)(char<=? c_77 '#\\F) #f)))" -"(if or-part_96 or-part_96(if(char>=? c_77 '#\\a)(char<=? c_77 '#\\f) #f))))))))" -"(define-values" -"(digit->number)" "(lambda(c_78)" "(begin" -"(if(if(char>=? c_78 '#\\0)(char<=? c_78 '#\\9) #f)" -"(let-values()(-(char->integer c_78)(char->integer '#\\0)))" -"(if(if(char>=? c_78 '#\\A)(char<=? c_78 '#\\F) #f)" -"(let-values()(-(char->integer c_78)(-(char->integer '#\\A) 10)))" -"(let-values()(-(char->integer c_78)(-(char->integer '#\\a) 10))))))))" +"(let-values(((or-part_299)(if(char>=? c_78 '#\\0)(char<=? c_78 '#\\9) #f)))" +"(if or-part_299" +" or-part_299" +"(let-values(((or-part_98)(if(char>=? c_78 '#\\A)(char<=? c_78 '#\\F) #f)))" +"(if or-part_98 or-part_98(if(char>=? c_78 '#\\a)(char<=? c_78 '#\\f) #f))))))))" +"(define-values" +"(digit->number)" +"(lambda(c_79)" +"(begin" +"(if(if(char>=? c_79 '#\\0)(char<=? c_79 '#\\9) #f)" +"(let-values()(-(char->integer c_79)(char->integer '#\\0)))" +"(if(if(char>=? c_79 '#\\A)(char<=? c_79 '#\\F) #f)" +"(let-values()(-(char->integer c_79)(-(char->integer '#\\A) 10)))" +"(let-values()(-(char->integer c_79)(-(char->integer '#\\a) 10))))))))" "(define-values(string->number$1) string->number)" "(define-values" "(1/string->number)" @@ -49283,7 +49365,7 @@ static const char *startup_source = "(lambda(s7_2 radix1_0 convert-mode2_0 decimal-mode3_0 radix4_0 convert-mode5_0 decimal-mode6_0)" "(begin" " 'string->number8" -"(let-values(((s_183) s7_2))" +"(let-values(((s_175) s7_2))" "(let-values(((radix_0)(if radix4_0 radix1_0 10)))" "(let-values(((convert-mode_0)(if convert-mode5_0 convert-mode2_0 'number-or-false)))" "(let-values(((decimal-mode_0)" @@ -49294,10 +49376,10 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(string? s_183)" +"(if(string? s_175)" "(void)" -" (let-values () (raise-argument-error 'string->number \"string?\" s_183)))" -"(if((lambda(p_72)(if(exact-integer? radix_0)(<= 2 radix_0 16) #f)) radix_0)" +" (let-values () (raise-argument-error 'string->number \"string?\" s_175)))" +"(if((lambda(p_74)(if(exact-integer? radix_0)(<= 2 radix_0 16) #f)) radix_0)" "(void)" "(let-values()" " (raise-argument-error 'string->number \"(integer-in 2 16)\" radix_0)))" @@ -49311,9 +49393,9 @@ static const char *startup_source = " 'string->number" " \"(or/c 'number-or-false 'read)\"" " convert-mode_0)))" -"(if((lambda(p_73)" -"(let-values(((or-part_9)(eq? p_73 'decimal-as-inexact)))" -"(if or-part_9 or-part_9(eq? p_73 'decimal-as-exact))))" +"(if((lambda(p_75)" +"(let-values(((or-part_9)(eq? p_75 'decimal-as-inexact)))" +"(if or-part_9 or-part_9(eq? p_75 'decimal-as-exact))))" " decimal-mode_0)" "(void)" "(let-values()" @@ -49321,9 +49403,9 @@ static const char *startup_source = " 'string->number" " \"(or/c 'decimal-as-inexact decimal-as-exact)\"" " decimal-mode_0)))" -"(let-values(((s69_0) s_183)" +"(let-values(((s69_0) s_175)" "((temp70_1) 0)" -"((temp71_1)(string-length s_183))" +"((temp71_1)(string-length s_175))" "((radix72_0) radix_0)" "((temp73_1) #f)" "((decimal-mode74_0) decimal-mode_0)" @@ -49339,11 +49421,11 @@ static const char *startup_source = " decimal-mode74_0" " convert-mode75_0))))))))))))))" "(case-lambda" -"((s_457)(begin 'string->number(string->number8_0 s_457 #f #f #f #f #f #f)))" -"((s_458 radix_1 convert-mode_1 decimal-mode3_1)" -"(string->number8_0 s_458 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" -"((s_180 radix_2 convert-mode2_1)(string->number8_0 s_180 radix_2 convert-mode2_1 #f #t #t #f))" -"((s_459 radix1_1)(string->number8_0 s_459 radix1_1 #f #f #t #f #f)))))" +"((s_178)(begin 'string->number(string->number8_0 s_178 #f #f #f #f #f #f)))" +"((s_449 radix_1 convert-mode_1 decimal-mode3_1)" +"(string->number8_0 s_449 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" +"((s_179 radix_2 convert-mode2_1)(string->number8_0 s_179 radix_2 convert-mode2_1 #f #t #t #f))" +"((s_450 radix1_1)(string->number8_0 s_450 radix1_1 #f #f #t #f #f)))))" "(define-values" "(do-string->number20.1)" "(lambda(in-complex11_0" @@ -49357,7 +49439,7 @@ static const char *startup_source = " convert-mode19_0)" "(begin" " 'do-string->number20" -"(let-values(((s_460) s14_1))" +"(let-values(((s_451) s14_1))" "(let-values(((start_44) start15_0))" "(let-values(((end_34) end16_0))" "(let-values(((radix_3) radix17_0))" @@ -49372,21 +49454,21 @@ static const char *startup_source = " (let-values () (format \"no digits\"))" "(let-values() #f)))" "(let-values()" -"(let-values(((c_79)(string-ref s_460 start_44)))" -"(if(char=? '#\\# c_79)" +"(let-values(((c_80)(string-ref s_451 start_44)))" +"(if(char=? '#\\# c_80)" "(let-values()" "(let-values(((next_4)(add1 start_44)))" "(if(= next_4 end_34)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no character after `#` indicator in `~.a`\" s_460))" +" (let-values () (format \"no character after `#` indicator in `~.a`\" s_451))" "(let-values() #f)))" "(let-values()" -"(let-values(((i_175)(string-ref s_460 next_4)))" -"(let-values(((tmp_38) i_175))" +"(let-values(((i_173)(string-ref s_451 next_4)))" +"(let-values(((tmp_39) i_173))" "(let-values(((index_2)" -"(if(char? tmp_38)" -"(let-values(((codepoint_0)(char->integer tmp_38)))" +"(if(char? tmp_39)" +"(let-values(((codepoint_0)(char->integer tmp_39)))" "(if(if(unsafe-fx>= codepoint_0 66)" "(unsafe-fx< codepoint_0 121)" " #f)" @@ -49457,32 +49539,32 @@ static const char *startup_source = "(let-values()" "(format" " \"bad `#` indicator `~a` at `~.a`\"" -" i_175" -"(substring s_460 start_44 end_34)))" +" i_173" +"(substring s_451 start_44 end_34)))" "(let-values() #f)))" "(if(unsafe-fx< index_2 2)" "(let-values()" -"(if(let-values(((or-part_312)(exactness-set? exactness_0)))" -"(if or-part_312 or-part_312 in-complex_0))" +"(if(let-values(((or-part_70)(exactness-set? exactness_0)))" +"(if or-part_70 or-part_70 in-complex_0))" "(let-values()" "(if(eq? convert-mode_2 'must-read)" "(let-values()" "(format" " \"misplaced exactness specification at `~.a`\"" -"(substring s_460 start_44 end_34)))" +"(substring s_451 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(let-values(((s76_1) s_460)" +"(let-values(((s76_1) s_451)" "((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_221)" -"(char=? i_175 '#\\e)))" -"(if or-part_221" -" or-part_221" -"(char=? i_175 '#\\E)))" +"(if(let-values(((or-part_207)" +"(char=? i_173 '#\\e)))" +"(if or-part_207" +" or-part_207" +"(char=? i_173 '#\\E)))" " 'exact" " 'inexact))" "((temp82_4)" @@ -49500,32 +49582,32 @@ static const char *startup_source = " temp81_1" " temp82_4)))))" "(let-values()" -"(if(let-values(((or-part_313) radix-set?_0))" -"(if or-part_313 or-part_313 in-complex_0))" +"(if(let-values(((or-part_300) radix-set?_0))" +"(if or-part_300 or-part_300 in-complex_0))" "(let-values()" "(if(eq? convert-mode_2 'must-read)" "(let-values()" "(format" " \"misplaced radix specification at `~.a`\"" -"(substring s_460 start_44 end_34)))" +"(substring s_451 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(let-values(((radix_4)" -"(let-values(((tmp_39) i_175))" -"(if(if(equal? tmp_39 '#\\b)" +"(let-values(((tmp_40) i_173))" +"(if(if(equal? tmp_40 '#\\b)" " #t" -"(equal? tmp_39 '#\\B))" +"(equal? tmp_40 '#\\B))" "(let-values() 2)" -"(if(if(equal? tmp_39 '#\\o)" +"(if(if(equal? tmp_40 '#\\o)" " #t" -"(equal? tmp_39 '#\\O))" +"(equal? tmp_40 '#\\O))" "(let-values() 8)" -"(if(if(equal? tmp_39 '#\\d)" +"(if(if(equal? tmp_40 '#\\d)" " #t" -"(equal? tmp_39 '#\\D))" +"(equal? tmp_40 '#\\D))" "(let-values() 10)" "(let-values() 16)))))))" -"(let-values(((s83_0) s_460)" +"(let-values(((s83_0) s_451)" "((temp84_0)(add1 next_4))" "((end85_0) end_34)" "((radix86_0) radix_4)" @@ -49546,8 +49628,8 @@ static const char *startup_source = " exactness88_0" " temp89_2)))))))))))))))" "(let-values(((c1_28)" -"(if(char-sign? c_79)" -"(read-special-number s_460 start_44 end_34 convert-mode_2)" +"(if(char-sign? c_80)" +"(read-special-number s_451 start_44 end_34 convert-mode_2)" " #f)))" "(if c1_28" "((lambda(v_231)" @@ -49559,13 +49641,13 @@ static const char *startup_source = "(let-values() v_231)))" " c1_28)" "(let-values(((c2_3)" -"(if(char-sign? c_79)" +"(if(char-sign? c_80)" "(if(not in-complex_0)" "(if(>(- end_34 start_44) 7)" -"(if(char=? '#\\i(string-ref s_460(sub1 end_34)))" -"(if(char-sign?(string-ref s_460 6))" +"(if(char=? '#\\i(string-ref s_451(sub1 end_34)))" +"(if(char-sign?(string-ref s_451 6))" "(read-special-number" -" s_460" +" s_451" " start_44" "(+ start_44 6)" " convert-mode_2)" @@ -49576,7 +49658,7 @@ static const char *startup_source = " #f)))" "(if c2_3" "((lambda(v_232)" -"(let-values(((s90_1) s_460)" +"(let-values(((s90_1) s_451)" "((temp91_1)(+ start_44 6))" "((temp92_2)(sub1 end_34))" "((radix93_0) radix_3)" @@ -49603,10 +49685,10 @@ static const char *startup_source = "(let-values(((c3_2)" "(if(not in-complex_0)" "(if(>=(- end_34 start_44) 7)" -"(if(char=? '#\\i(string-ref s_460(sub1 end_34)))" -"(if(char-sign?(string-ref s_460(- end_34 7)))" +"(if(char=? '#\\i(string-ref s_451(sub1 end_34)))" +"(if(char-sign?(string-ref s_451(- end_34 7)))" "(read-special-number" -" s_460" +" s_451" "(- end_34 7)" "(sub1 end_34)" " convert-mode_2)" @@ -49619,7 +49701,7 @@ static const char *startup_source = "(if(if(= start_44(- end_34 7))(not(extflonum? v2_1)) #f)" "(let-values()(make-rectangular 0 v2_1))" "(let-values()" -"(let-values(((s99_0) s_460)" +"(let-values(((s99_0) s_451)" "((start100_0) start_44)" "((temp101_2)(- end_34 7))" "((radix102_0) radix_3)" @@ -49629,8 +49711,8 @@ static const char *startup_source = "((temp106_1) #t)" "((v2107_0) v2_1)" "((temp108_1)" -"(lambda(v2_2 v_77)" -"(begin 'temp108(make-rectangular v_77 v2_2)))))" +"(lambda(v2_2 v_78)" +"(begin 'temp108(make-rectangular v_78 v2_2)))))" "(read-for-special-compound65.1" " temp105_2" " temp106_1" @@ -49645,12 +49727,12 @@ static const char *startup_source = " temp108_1)))))" " c3_2)" "(let-values(((c4_0)" -"(if(char-sign? c_79)" +"(if(char-sign? c_80)" "(if(not in-complex_0)" "(if(>(- end_34 start_44) 7)" -"(if(char=? '#\\@(string-ref s_460(+ start_44 6)))" +"(if(char=? '#\\@(string-ref s_451(+ start_44 6)))" "(read-special-number" -" s_460" +" s_451" " start_44" "(+ start_44 6)" " convert-mode_2)" @@ -49659,15 +49741,15 @@ static const char *startup_source = " #f)" " #f)))" "(if c4_0" -"((lambda(v_200)" -"(let-values(((s109_0) s_460)" +"((lambda(v_201)" +"(let-values(((s109_0) s_451)" "((temp110_1)(+ start_44 7))" "((end111_0) end_34)" "((radix112_0) radix_3)" "((exactness113_0) exactness_0)" "((convert-mode114_0) convert-mode_2)" "((temp115_0) '@)" -"((v116_0) v_200)" +"((v116_0) v_201)" "((temp117_0)" "(lambda(v_233 v2_3)" "(begin 'temp117(make-polar v_233 v2_3)))))" @@ -49687,9 +49769,9 @@ static const char *startup_source = "(let-values(((c5_1)" "(if(not in-complex_0)" "(if(>(- end_34 start_44) 7)" -"(if(char=? '#\\@(string-ref s_460(- end_34 7)))" +"(if(char=? '#\\@(string-ref s_451(- end_34 7)))" "(read-special-number" -" s_460" +" s_451" "(- end_34 6)" " end_34" " convert-mode_2)" @@ -49698,7 +49780,7 @@ static const char *startup_source = " #f)))" "(if c5_1" "((lambda(v2_4)" -"(let-values(((s118_0) s_460)" +"(let-values(((s118_0) s_451)" "((start119_0) start_44)" "((temp120_2)(- end_34 7))" "((radix121_0) radix_3)" @@ -49724,7 +49806,7 @@ static const char *startup_source = " temp127_3)))" " c5_1)" "(let-values()" -"(let-values(((s128_1) s_460)" +"(let-values(((s128_1) s_451)" "((start129_0) start_44)" "((end130_0) end_34)" "((radix131_0) radix_3)" @@ -49755,7 +49837,7 @@ static const char *startup_source = " convert-mode32_0)" "(begin" " 'do-string->non-special-number33" -"(let-values(((s_204) s27_1))" +"(let-values(((s_199) s27_1))" "(let-values(((start_45) start28_0))" "(let-values(((end_35) end29_0))" "(let-values(((radix_5) radix30_0))" @@ -49765,7 +49847,7 @@ static const char *startup_source = "(let-values(((convert-mode_3) convert-mode32_0))" "(let-values()" "((letrec-values(((loop_106)" -"(lambda(i_176" +"(lambda(i_174" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -49777,7 +49859,7 @@ static const char *startup_source = " must-i?_0)" "(begin" " 'loop" -"(if(= i_176 end_35)" +"(if(= i_174 end_35)" "(let-values()" "(if(if(not any-digits?_0)(not i-pos_3) #f)" "(let-values()" @@ -49785,7 +49867,7 @@ static const char *startup_source = "(let-values()" "(format" " \"no digits in `~.a`\"" -"(substring s_204 start_45 end_35)))" +"(substring s_199 start_45 end_35)))" "(let-values() #f)))" "(if(if must-i?_0(not i-pos_3) #f)" "(let-values()" @@ -49793,13 +49875,13 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_204 start_45 end_35)))" +"(substring s_199 start_45 end_35)))" "(let-values() #f)))" "(if(if sign-pos_0" -"(let-values(((or-part_314)" +"(let-values(((or-part_301)" "(if dot-pos_1(< dot-pos_1 sign-pos_0) #f)))" -"(if or-part_314" -" or-part_314" +"(if or-part_301" +" or-part_301" "(if slash-pos_0(< slash-pos_0 sign-pos_0) #f)))" " #f)" "(let-values()" @@ -49807,11 +49889,11 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced sign in `~.a`\"" -"(substring s_204 start_45 end_35)))" +"(substring s_199 start_45 end_35)))" "(let-values() #f)))" "(if i-pos_3" "(let-values()" -"(let-values(((s136_0) s_204)" +"(let-values(((s136_0) s_199)" "((start137_0) start_45)" "((sign-pos138_0) sign-pos_0)" "((sign-pos139_0) sign-pos_0)" @@ -49838,7 +49920,7 @@ static const char *startup_source = " convert-mode147_0)))" "(if @-pos_0" "(let-values()" -"(let-values(((s148_0) s_204)" +"(let-values(((s148_0) s_199)" "((start149_0) start_45)" "((@-pos150_0) @-pos_0)" "((temp151_2)(add1 @-pos_0))" @@ -49865,7 +49947,7 @@ static const char *startup_source = " convert-mode159_0)))" "(let-values()" "(string->real-number" -" s_204" +" s_199" " start_45" " end_35" " dot-pos_1" @@ -49876,11 +49958,11 @@ static const char *startup_source = " exactness_1" " convert-mode_3))))))))" "(let-values()" -"(let-values(((c_80)(string-ref s_204 i_176)))" -"(if(digit? c_80 radix_5)" +"(let-values(((c_81)(string-ref s_199 i_174)))" +"(if(digit? c_81 radix_5)" "(let-values()" "(loop_106" -"(add1 i_176)" +"(add1 i_174)" " #t" " any-hashes?_0" " i-pos_3" @@ -49890,10 +49972,10 @@ static const char *startup_source = " slash-pos_0" " exp-pos_0" " must-i?_0))" -"(if(char=? c_80 '#\\#)" +"(if(char=? c_81 '#\\#)" "(let-values()" "(loop_106" -"(add1 i_176)" +"(add1 i_174)" " #t" " #t" " i-pos_3" @@ -49903,7 +49985,7 @@ static const char *startup_source = " slash-pos_0" " exp-pos_0" " must-i?_0))" -"(if(char-sign? c_80)" +"(if(char-sign? c_81)" "(let-values()" "(if(if sign-pos_0 must-i?_0 #f)" "(let-values()" @@ -49911,41 +49993,41 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_204 start_45 end_35)))" +"(substring s_199 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(loop_106" -"(add1 i_176)" +"(add1 i_174)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" -" i_176" +" i_174" " dot-pos_1" " slash-pos_0" " #f" -"(if(> i_176 start_45)" -"(let-values(((or-part_315)(not @-pos_0)))" -"(if or-part_315" -" or-part_315" -"(> i_176(add1 @-pos_0))))" +"(if(> i_174 start_45)" +"(let-values(((or-part_302)(not @-pos_0)))" +"(if or-part_302" +" or-part_302" +"(> i_174(add1 @-pos_0))))" " #f)))))" -"(if(char=? c_80 '#\\.)" +"(if(char=? c_81 '#\\.)" "(let-values()" -"(if(let-values(((or-part_218)" +"(if(let-values(((or-part_204)" "(if exp-pos_0" -"(let-values(((or-part_316)" +"(let-values(((or-part_303)" "(not sign-pos_0)))" -"(if or-part_316" -" or-part_316" +"(if or-part_303" +" or-part_303" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_218" -" or-part_218" +"(if or-part_204" +" or-part_204" "(if dot-pos_1" -"(let-values(((or-part_273)(not sign-pos_0)))" -"(if or-part_273" -" or-part_273" +"(let-values(((or-part_258)(not sign-pos_0)))" +"(if or-part_258" +" or-part_258" "(> dot-pos_1 sign-pos_0)))" " #f)))" "(let-values()" @@ -49953,12 +50035,12 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `.` in `~.a`\"" -"(substring s_204 start_45 end_35)))" +"(substring s_199 start_45 end_35)))" "(let-values() #f)))" "(if(if slash-pos_0" -"(let-values(((or-part_317)(not sign-pos_0)))" -"(if or-part_317" -" or-part_317" +"(let-values(((or-part_304)(not sign-pos_0)))" +"(if or-part_304" +" or-part_304" "(> slash-pos_0 sign-pos_0)))" " #f)" "(let-values()" @@ -49966,26 +50048,26 @@ static const char *startup_source = "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_204 start_45 end_35)))" +"(substring s_199 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(loop_106" -"(add1 i_176)" +"(add1 i_174)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" " sign-pos_0" -" i_176" +" i_174" " #f" " #f" " must-i?_0)))))" -"(if(char=? c_80 '#\\/)" +"(if(char=? c_81 '#\\/)" "(let-values()" "(if(if dot-pos_1" -"(let-values(((or-part_318)(not sign-pos_0)))" -"(if or-part_318" -" or-part_318" +"(let-values(((or-part_305)(not sign-pos_0)))" +"(if or-part_305" +" or-part_305" "(> dot-pos_1 sign-pos_0)))" " #f)" "(let-values()" @@ -49993,23 +50075,23 @@ static const char *startup_source = "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_204 start_45 end_35)))" +"(substring s_199 start_45 end_35)))" "(let-values() #f)))" -"(if(let-values(((or-part_319)" +"(if(let-values(((or-part_306)" "(if exp-pos_0" -"(let-values(((or-part_192)" +"(let-values(((or-part_178)" "(not sign-pos_0)))" -"(if or-part_192" -" or-part_192" +"(if or-part_178" +" or-part_178" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_319" -" or-part_319" +"(if or-part_306" +" or-part_306" "(if slash-pos_0" -"(let-values(((or-part_320)" +"(let-values(((or-part_307)" "(not sign-pos_0)))" -"(if or-part_320" -" or-part_320" +"(if or-part_307" +" or-part_307" "(> slash-pos_0 sign-pos_0)))" " #f)))" "(let-values()" @@ -50017,74 +50099,74 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `/` in `~.a`\"" -"(substring s_204 start_45 end_35)))" +"(substring s_199 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(loop_106" -"(add1 i_176)" +"(add1 i_174)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" " sign-pos_0" " #f" -" i_176" +" i_174" " #f" " must-i?_0)))))" -"(if(let-values(((or-part_321)(char=? c_80 '#\\e)))" -"(if or-part_321" -" or-part_321" -"(let-values(((or-part_322)(char=? c_80 '#\\E)))" -"(if or-part_322" -" or-part_322" -"(let-values(((or-part_323)" -"(char=? c_80 '#\\f)))" -"(if or-part_323" -" or-part_323" -"(let-values(((or-part_324)" -"(char=? c_80 '#\\F)))" -"(if or-part_324" -" or-part_324" -"(let-values(((or-part_325)" -"(char=? c_80 '#\\d)))" -"(if or-part_325" -" or-part_325" -"(let-values(((or-part_326)" -"(char=? c_80 '#\\D)))" -"(if or-part_326" -" or-part_326" -"(let-values(((or-part_219)" +"(if(let-values(((or-part_308)(char=? c_81 '#\\e)))" +"(if or-part_308" +" or-part_308" +"(let-values(((or-part_309)(char=? c_81 '#\\E)))" +"(if or-part_309" +" or-part_309" +"(let-values(((or-part_310)" +"(char=? c_81 '#\\f)))" +"(if or-part_310" +" or-part_310" +"(let-values(((or-part_311)" +"(char=? c_81 '#\\F)))" +"(if or-part_311" +" or-part_311" +"(let-values(((or-part_312)" +"(char=? c_81 '#\\d)))" +"(if or-part_312" +" or-part_312" +"(let-values(((or-part_313)" +"(char=? c_81 '#\\D)))" +"(if or-part_313" +" or-part_313" +"(let-values(((or-part_205)" "(char=?" -" c_80" +" c_81" " '#\\s)))" -"(if or-part_219" -" or-part_219" -"(let-values(((or-part_165)" +"(if or-part_205" +" or-part_205" +"(let-values(((or-part_157)" "(char=?" -" c_80" +" c_81" " '#\\S)))" -"(if or-part_165" -" or-part_165" -"(let-values(((or-part_327)" +"(if or-part_157" +" or-part_157" +"(let-values(((or-part_314)" "(char=?" -" c_80" +" c_81" " '#\\l)))" -"(if or-part_327" -" or-part_327" -"(let-values(((or-part_328)" +"(if or-part_314" +" or-part_314" +"(let-values(((or-part_315)" "(char=?" -" c_80" +" c_81" " '#\\L)))" -"(if or-part_328" -" or-part_328" -"(let-values(((or-part_329)" +"(if or-part_315" +" or-part_315" +"(let-values(((or-part_316)" "(char=?" -" c_80" +" c_81" " '#\\t)))" -"(if or-part_329" -" or-part_329" +"(if or-part_316" +" or-part_316" "(char=?" -" c_80" +" c_81" " '#\\T)))))))))))))))))))))))" "(let-values()" "(if exp-pos_0" @@ -50093,15 +50175,15 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `~a` in `~.a`\"" -" c_80" -"(substring s_204 start_45 end_35)))" +" c_81" +"(substring s_199 start_45 end_35)))" "(let-values() #f)))" -"(if(if(<(add1 i_176) end_35)" -"(char-sign?(string-ref s_204(add1 i_176)))" +"(if(if(<(add1 i_174) end_35)" +"(char-sign?(string-ref s_199(add1 i_174)))" " #f)" "(let-values()" "(loop_106" -"(+ i_176 2)" +"(+ i_174 2)" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -50109,12 +50191,12 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_330) exp-pos_0))" -"(if or-part_330 or-part_330 i_176))" +"(let-values(((or-part_317) exp-pos_0))" +"(if or-part_317 or-part_317 i_174))" " must-i?_0))" "(let-values()" "(loop_106" -"(+ i_176 1)" +"(+ i_174 1)" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -50122,10 +50204,10 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_331) exp-pos_0))" -"(if or-part_331 or-part_331 i_176))" +"(let-values(((or-part_318) exp-pos_0))" +"(if or-part_318 or-part_318 i_174))" " must-i?_0)))))" -"(if(char=? c_80 '#\\@)" +"(if(char=? c_81 '#\\@)" "(let-values()" "(if(eq? in-complex_1 'i)" "(let-values()" @@ -50133,26 +50215,26 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_204 start_45 end_35)))" +"(substring s_199 start_45 end_35)))" "(let-values() #f)))" -"(if(let-values(((or-part_332) @-pos_0))" -"(if or-part_332" -" or-part_332" +"(if(let-values(((or-part_319) @-pos_0))" +"(if or-part_319" +" or-part_319" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" " \"too many `@`s in `~.a`\"" -"(substring s_204 start_45 end_35)))" +"(substring s_199 start_45 end_35)))" "(let-values() #f)))" -"(if(= i_176 start_45)" +"(if(= i_174 start_45)" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" " \"`@` cannot be at start in `~.a`\"" -"(substring s_204 start_45 end_35)))" +"(substring s_199 start_45 end_35)))" "(let-values() #f)))" "(if must-i?_0" "(let-values()" @@ -50160,57 +50242,57 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_204 start_45 end_35)))" +"(substring s_199 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(loop_106" -"(add1 i_176)" +"(add1 i_174)" " any-digits?_0" " any-hashes?_0" " i-pos_3" -" i_176" +" i_174" " #f" " #f" " #f" " #f" " must-i?_0)))))))" -"(if(if(let-values(((or-part_333)" -"(char=? c_80 '#\\i)))" -"(if or-part_333" -" or-part_333" -"(char=? c_80 '#\\I)))" +"(if(if(let-values(((or-part_320)" +"(char=? c_81 '#\\i)))" +"(if or-part_320" +" or-part_320" +"(char=? c_81 '#\\I)))" " sign-pos_0" " #f)" "(let-values()" -"(if(let-values(((or-part_334) @-pos_0))" -"(if or-part_334" -" or-part_334" +"(if(let-values(((or-part_321) @-pos_0))" +"(if or-part_321" +" or-part_321" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_204 start_45 end_35)))" +"(substring s_199 start_45 end_35)))" "(let-values() #f)))" -"(if(let-values(((or-part_335)" -"(<(add1 i_176) end_35)))" -"(if or-part_335" -" or-part_335" +"(if(let-values(((or-part_322)" +"(<(add1 i_174) end_35)))" +"(if or-part_322" +" or-part_322" "(eq? in-complex_1 'i)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" " \"`i` must be at the end in `~.a`\"" -"(substring s_204 start_45 end_35)))" +"(substring s_199 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(loop_106" -"(add1 i_176)" +"(add1 i_174)" " any-digits?_0" " any-hashes?_0" -" i_176" +" i_174" " @-pos_0" " sign-pos_0" " #f" @@ -50218,16 +50300,16 @@ static const char *startup_source = " #f" " #f)))))" "(let-values()" -"(if(char=? c_80 '#\\nul)" +"(if(char=? c_81 '#\\nul)" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" -" (format \"nul character in `~.a`\" s_204))" +" (format \"nul character in `~.a`\" s_199))" "(let-values() #f)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" -" (format \"bad digit `~a`\" c_80))" +" (format \"bad digit `~a`\" c_81))" "(let-values() #f))))))))))))))))))))" " loop_106)" " start_45" @@ -50256,7 +50338,7 @@ static const char *startup_source = " convert-mode49_0)" "(begin" " 'string->complex-number50" -"(let-values(((s_223) s40_0))" +"(let-values(((s_218) s40_0))" "(let-values(((start1_0) start141_0))" "(let-values(((end1_0) end142_0))" "(let-values(((start2_0) start243_0))" @@ -50273,7 +50355,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_223)" +"(let-values(((s160_0) s_218)" "((start1161_0) start1_0)" "((end1162_0) end1_0)" "((radix163_0) radix_6)" @@ -50294,12 +50376,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_223 start2_0) '#\\-)))" +"(let-values(((neg?_0)(char=?(string-ref s_218 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_223)" +"(let-values(((s168_0) s_218)" "((start2169_0) start2_0)" "((end2170_0) end2_0)" "((radix171_0) radix_6)" @@ -50317,11 +50399,11 @@ static const char *startup_source = " radix171_0" " exactness173_0" " convert-mode175_0))))))" -"(if(let-values(((or-part_112)(not v1_0)))" -"(if or-part_112 or-part_112(not v2_6)))" +"(if(let-values(((or-part_323)(not v1_0)))" +"(if or-part_323 or-part_323(not v2_6)))" "(let-values() #f)" -"(if(if(let-values(((or-part_336)(extflonum? v1_0)))" -"(if or-part_336 or-part_336(extflonum? v2_6)))" +"(if(if(let-values(((or-part_324)(extflonum? v1_0)))" +"(if or-part_324 or-part_324(extflonum? v2_6)))" "(not(eq? convert-mode_4 'must-read))" " #f)" "(let-values()(fail-extflonum convert-mode_4 v1_0))" @@ -50336,39 +50418,39 @@ static const char *startup_source = "(if(eq? in-complex_2 'i)" "(let-values()(make-rectangular v1_0 v2_6))" "(let-values()" -"(let-values(((p_74)(make-polar v1_0 v2_6)))" +"(let-values(((p_76)(make-polar v1_0 v2_6)))" "(if(eq? exactness_2 'exact)" -"(inexact->exact p_74)" -" p_74))))))))))))))))))))))))))))" +"(inexact->exact p_76)" +" p_76))))))))))))))))))))))))))))" "(define-values" "(string->real-number)" -"(lambda(s_234 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_229 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_234 exp-pos_1)) '#\\t)))))" +"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_229 exp-pos_1)) '#\\t)))))" "(let-values(((simple?_0)" "(if(not slash-pos_1)" -"(if(let-values(((or-part_337)(eq? exactness_3 'inexact)))" -"(if or-part_337" -" or-part_337" -"(let-values(((or-part_338)(eq? exactness_3 'decimal-as-inexact)))" -"(if or-part_338 or-part_338(if(not dot-pos_2)(not exp-pos_1) #f)))))" -"(if(let-values(((or-part_339)(not exp-pos_1)))" -"(if or-part_339" -" or-part_339" -"(let-values(((or-part_340)(not(eq? convert-mode_5 'number-or-false))))" -"(if or-part_340 or-part_340(not(extfl-mark?_0))))))" -"(not(if any-hashes?_1(hashes? s_234 start_46 end_36) #f))" +"(if(let-values(((or-part_325)(eq? exactness_3 'inexact)))" +"(if or-part_325" +" or-part_325" +"(let-values(((or-part_326)(eq? exactness_3 'decimal-as-inexact)))" +"(if or-part_326 or-part_326(if(not dot-pos_2)(not exp-pos_1) #f)))))" +"(if(let-values(((or-part_327)(not exp-pos_1)))" +"(if or-part_327" +" or-part_327" +"(let-values(((or-part_328)(not(eq? convert-mode_5 'number-or-false))))" +"(if or-part_328 or-part_328(not(extfl-mark?_0))))))" +"(not(if any-hashes?_1(hashes? s_229 start_46 end_36) #f))" " #f)" " #f)" " #f)))" -"(let-values(((has-sign?_0)(if(> end_36 start_46)(char-sign?(string-ref s_234 start_46)) #f)))" +"(let-values(((has-sign?_0)(if(> end_36 start_46)(char-sign?(string-ref s_229 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_234 start_46 end_36)))" +" (let-values () (format \"missing digits in `~.a`\" (substring s_229 start_46 end_36)))" "(let-values() #f))))" "(if simple?_0" "(let-values()" @@ -50380,37 +50462,37 @@ static const char *startup_source = "(let-values()" "(if(eq? convert-mode_5 'must-read)" "(let-values()" -" (format \"missing digits before exponent marker in `~.a`\" (substring s_234 start_46 end_36)))" +" (format \"missing digits before exponent marker in `~.a`\" (substring s_229 start_46 end_36)))" "(let-values() #f)))" "(if(if exp-pos_1" -"(let-values(((or-part_341)(= exp-pos_1(sub1 end_36))))" -"(if or-part_341" -" or-part_341" -"(if(= exp-pos_1(- end_36 2))(char-sign?(string-ref s_234(sub1 end_36))) #f)))" +"(let-values(((or-part_329)(= exp-pos_1(sub1 end_36))))" +"(if or-part_329" +" or-part_329" +"(if(= exp-pos_1(- end_36 2))(char-sign?(string-ref s_229(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_234 start_46 end_36)))" +" (format \"missing digits after exponent marker in `~.a`\" (substring s_229 start_46 end_36)))" "(let-values() #f)))" "(let-values()" "(let-values(((n_30)" "(string->number$1" -"(maybe-substring s_234 start_46 end_36)" +"(maybe-substring s_229 start_46 end_36)" " radix_7" -"(if(let-values(((or-part_342)(eq? convert-mode_5 'number-or-false)))" -"(if or-part_342" -" or-part_342" -"(let-values(((or-part_343)(not exp-pos_1)))" -"(if or-part_343 or-part_343(not(extfl-mark?_0))))))" +"(if(let-values(((or-part_330)(eq? convert-mode_5 'number-or-false)))" +"(if or-part_330" +" or-part_330" +"(let-values(((or-part_331)(not exp-pos_1)))" +"(if or-part_331 or-part_331(not(extfl-mark?_0))))))" " 'number-or-false" " 'read))))" -"(if(let-values(((or-part_344)(not n_30)))(if or-part_344 or-part_344(string? n_30)))" +"(if(let-values(((or-part_332)(not n_30)))(if or-part_332 or-part_332(string? n_30)))" "(let-values()" "(error" " 'string->number" " \"host `string->number` failed on ~s\"" -"(substring s_234 start_46 end_36)))" +"(substring s_229 start_46 end_36)))" "(if(eq? exactness_3 'inexact)" "(let-values()" "(if(extflonum? n_30)" @@ -50419,9 +50501,9 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to inexact\"" -"(substring s_234 start_46 end_36)))" +"(substring s_229 start_46 end_36)))" "(let-values() #f)))" -"(if(if(eqv? n_30 0)(char=?(string-ref s_234 start_46) '#\\-) #f)" +"(if(if(eqv? n_30 0)(char=?(string-ref s_229 start_46) '#\\-) #f)" "(let-values() -0.0)" "(let-values()(exact->inexact n_30)))))" "(let-values() n_30))))))))" @@ -50429,7 +50511,7 @@ static const char *startup_source = "(let-values()" "(let-values(((m-v_0)" "(string->real-number" -" s_234" +" s_229" " start_46" " exp-pos_1" " dot-pos_2" @@ -50440,29 +50522,29 @@ static const char *startup_source = " 'exact" " convert-mode_5)))" "(let-values(((e-v_0)" -"(string->exact-integer-number s_234(+ exp-pos_1 1) end_36 radix_7 convert-mode_5)))" +"(string->exact-integer-number s_229(+ exp-pos_1 1) end_36 radix_7 convert-mode_5)))" "(let-values(((real->precision-inexact_0)" "(lambda(r_46)" "(begin" " 'real->precision-inexact" -"(let-values(((tmp_40)(string-ref s_234 exp-pos_1)))" -"(if(if(equal? tmp_40 '#\\s)" +"(let-values(((tmp_41)(string-ref s_229 exp-pos_1)))" +"(if(if(equal? tmp_41 '#\\s)" " #t" -"(if(equal? tmp_40 '#\\S)" +"(if(equal? tmp_41 '#\\S)" " #t" -"(if(equal? tmp_40 '#\\f) #t(equal? tmp_40 '#\\F))))" +"(if(equal? tmp_41 '#\\f) #t(equal? tmp_41 '#\\F))))" "(let-values()(real->single-flonum r_46))" -"(if(if(equal? tmp_40 '#\\t) #t(equal? tmp_40 '#\\T))" +"(if(if(equal? tmp_41 '#\\t) #t(equal? tmp_41 '#\\T))" "(let-values()" "(if(extflonum-available?)" "(real->extfl r_46)" "(string->number$1" -"(replace-hashes s_234 start_46 end_36)" +"(replace-hashes s_229 start_46 end_36)" " radix_7" " 'read)))" "(let-values()(real->double-flonum r_46)))))))))" "(let-values(((get-extfl?_0)(extfl-mark?_0)))" -"(if(let-values(((or-part_345)(not m-v_0)))(if or-part_345 or-part_345(not e-v_0)))" +"(if(let-values(((or-part_333)(not m-v_0)))(if or-part_333 or-part_333(not e-v_0)))" "(let-values() #f)" "(if(string? m-v_0)" "(let-values() m-v_0)" @@ -50470,14 +50552,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_230)(eq? exactness_3 'inexact)))" -"(if or-part_230 or-part_230(eq? exactness_3 'decimal-as-inexact)))" +"(if(if(let-values(((or-part_216)(eq? exactness_3 'inexact)))" +"(if or-part_216 or-part_216(eq? exactness_3 'decimal-as-inexact)))" "(>(abs e-v_0)(if get-extfl?_0 6000 400))" " #f)" "(let-values()" "(real->precision-inexact_0" "(if(eqv? m-v_0 0)" -"(let-values()(if(char=?(string-ref s_234 start_46) '#\\-) -0.0 0.0))" +"(let-values()(if(char=?(string-ref s_229 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))))))" @@ -50487,24 +50569,24 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to ~a\"" -"(substring s_234 start_46 end_36)" +"(substring s_229 start_46 end_36)" " exactness_3))" "(let-values() #f)))" "(let-values()" "(let-values(((n_31)(* m-v_0(expt radix_7 e-v_0))))" "(if(if(not get-extfl?_0)" -"(let-values(((or-part_346)(eq? exactness_3 'exact)))" -"(if or-part_346 or-part_346(eq? exactness_3 'decimal-as-exact)))" +"(let-values(((or-part_334)(eq? exactness_3 'exact)))" +"(if or-part_334 or-part_334(eq? exactness_3 'decimal-as-exact)))" " #f)" "(let-values() n_31)" -"(if(if(eqv? n_31 0)(char=?(string-ref s_234 start_46) '#\\-) #f)" +"(if(if(eqv? n_31 0)(char=?(string-ref s_229 start_46) '#\\-) #f)" "(let-values()(real->precision-inexact_0 -0.0))" "(let-values()(real->precision-inexact_0 n_31)))))))))))))))))" "(if slash-pos_1" "(let-values()" "(let-values(((n-v_0)" "(string->real-number" -" s_234" +" s_229" " start_46" " slash-pos_1" " #f" @@ -50516,7 +50598,7 @@ static const char *startup_source = " convert-mode_5)))" "(let-values(((d-v_0)" "(string->real-number" -" s_234" +" s_229" "(add1 slash-pos_1)" " end_36" " #f" @@ -50530,13 +50612,13 @@ static const char *startup_source = "(lambda(from-pos_0)" "(begin" " 'get-inexact?" -"(let-values(((or-part_152)(eq? exactness_3 'inexact)))" -"(if or-part_152" -" or-part_152" +"(let-values(((or-part_144)(eq? exactness_3 'inexact)))" +"(if or-part_144" +" or-part_144" "(if(not(eq? exactness_3 'exact))" -"(hashes? s_234 from-pos_0 end_36)" +"(hashes? s_229 from-pos_0 end_36)" " #f)))))))" -"(if(let-values(((or-part_347)(not n-v_0)))(if or-part_347 or-part_347(not d-v_0)))" +"(if(let-values(((or-part_335)(not n-v_0)))(if or-part_335 or-part_335(not d-v_0)))" "(let-values() #f)" "(if(string? n-v_0)" "(let-values() n-v_0)" @@ -50549,14 +50631,14 @@ static const char *startup_source = "(let-values()" "(if(eq?(read-complains convert-mode_5) 'must-read)" "(let-values()" -" (format \"division by zero in `~.a`\" (substring s_234 start_46 end_36)))" +" (format \"division by zero in `~.a`\" (substring s_229 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()" "(string->decimal-number" -" s_234" +" s_229" " start_46" " end_36" " dot-pos_2" @@ -50565,149 +50647,149 @@ static const char *startup_source = " convert-mode_5))))))))))))" "(define-values" "(string->decimal-number)" -"(lambda(s_358 start_47 end_37 dot-pos_3 radix_8 exactness_4 convert-mode_6)" +"(lambda(s_351 start_47 end_37 dot-pos_3 radix_8 exactness_4 convert-mode_6)" "(begin" "(let-values(((get-exact?_0)" -"(let-values(((or-part_348)(eq? exactness_4 'exact)))" -"(if or-part_348 or-part_348(eq? exactness_4 'decimal-as-exact)))))" +"(let-values(((or-part_336)(eq? exactness_4 'exact)))" +"(if or-part_336 or-part_336(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_107)" -"(lambda(i_117 j_3 hashes-pos_0)" +"(lambda(i_116 j_3 hashes-pos_0)" "(begin" " 'loop" -"(if(< i_117 start_47)" +"(if(< i_116 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_358 start_47 end_37)))" +" (format \"misplaced `#` in `~.a`\" (substring s_351 start_47 end_37)))" "(let-values() #f)))" "(let-values()" "(let-values(((n_33)(string->number$1 new-str_0 radix_8)))" "(if(not n_33)" -"(let-values()(fail-bad-number convert-mode_6 s_358 start_47 end_37))" +"(let-values()(fail-bad-number convert-mode_6 s_351 start_47 end_37))" "(if(not get-exact?_0)" "(let-values()" -"(if(if(eqv? n_33 0)(char=?(string-ref s_358 start_47) '#\\-) #f)" +"(if(if(eqv? n_33 0)(char=?(string-ref s_351 start_47) '#\\-) #f)" " -0.0" "(exact->inexact n_33)))" "(if(if dot-pos_3 get-exact?_0 #f)" "(let-values()(/ n_33(expt 10(- end_37 dot-pos_3 1))))" "(let-values() n_33))))))))" "(let-values()" -"(let-values(((c_81)(string-ref s_358 i_117)))" -"(if(char=? c_81 '#\\.)" +"(let-values(((c_82)(string-ref s_351 i_116)))" +"(if(char=? c_82 '#\\.)" "(let-values()" "(if get-exact?_0" "(let-values()" "(loop_107" -"(sub1 i_117)" +"(sub1 i_116)" " j_3" -"(if(= hashes-pos_0(add1 i_117)) i_117 hashes-pos_0)))" +"(if(= hashes-pos_0(add1 i_116)) i_116 hashes-pos_0)))" "(let-values()" "(begin" -"(string-set! new-str_0 j_3 c_81)" +"(string-set! new-str_0 j_3 c_82)" "(loop_107" -"(sub1 i_117)" +"(sub1 i_116)" "(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_117)) i_117 hashes-pos_0))))))" -"(if(let-values(((or-part_349)(char=? c_81 '#\\-)))" -"(if or-part_349 or-part_349(char=? c_81 '#\\+)))" +"(if(= hashes-pos_0(add1 i_116)) i_116 hashes-pos_0))))))" +"(if(let-values(((or-part_112)(char=? c_82 '#\\-)))" +"(if or-part_112 or-part_112(char=? c_82 '#\\+)))" "(let-values()" "(begin" -"(string-set! new-str_0 j_3 c_81)" +"(string-set! new-str_0 j_3 c_82)" "(loop_107" -"(sub1 i_117)" +"(sub1 i_116)" "(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_117)) i_117 hashes-pos_0))))" -"(if(char=? c_81 '#\\#)" +"(if(= hashes-pos_0(add1 i_116)) i_116 hashes-pos_0))))" +"(if(char=? c_82 '#\\#)" "(let-values()" -"(if(= hashes-pos_0(add1 i_117))" +"(if(= hashes-pos_0(add1 i_116))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 '#\\0)" -"(loop_107(sub1 i_117)(sub1 j_3) i_117)))" +"(loop_107(sub1 i_116)(sub1 j_3) i_116)))" "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" "(format" " \"misplaced `#` in `~.a`\"" -"(substring s_358 start_47 end_37)))" +"(substring s_351 start_47 end_37)))" "(let-values() #f)))))" "(let-values()" "(begin" -"(string-set! new-str_0 j_3 c_81)" -"(loop_107(sub1 i_117)(sub1 j_3) hashes-pos_0)))))))))))))" +"(string-set! new-str_0 j_3 c_82)" +"(loop_107(sub1 i_116)(sub1 j_3) hashes-pos_0)))))))))))))" " loop_107)" "(sub1 end_37)" "(sub1(string-length new-str_0))" " end_37))))))" "(define-values" "(string->exact-integer-number)" -"(lambda(s_244 start_48 end_38 radix_9 convert-mode_7)" +"(lambda(s_239 start_48 end_38 radix_9 convert-mode_7)" "(begin" -"(if(hashes? s_244 start_48 end_38)" +"(if(hashes? s_239 start_48 end_38)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_244 start_48 end_38)))" +" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_239 start_48 end_38)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_34)(string->number$1(maybe-substring s_244 start_48 end_38) radix_9)))" +"(let-values(((n_34)(string->number$1(maybe-substring s_239 start_48 end_38) radix_9)))" "(if(not n_34)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"bad exponent `~.a`\" (substring s_244 start_48 end_38)))" +" (let-values () (format \"bad exponent `~.a`\" (substring s_239 start_48 end_38)))" "(let-values() #f)))" "(let-values() n_34))))))))" "(define-values" "(read-special-number)" -"(lambda(s_247 start_49 end_39 convert-mode_8)" +"(lambda(s_242 start_49 end_39 convert-mode_8)" "(begin" "(if(=(- end_39 start_49) 6)" -"(if(let-values(((or-part_350)(char=?(string-ref s_247 start_49) '#\\+)))" -"(if or-part_350 or-part_350(char=?(string-ref s_247 start_49) '#\\-)))" -"(let-values(((or-part_351)" -"(if(char=?(char-downcase(string-ref s_247(+ start_49 1))) '#\\i)" -"(if(char=?(char-downcase(string-ref s_247(+ start_49 2))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_247(+ start_49 3))) '#\\f)" -"(if(char=?(char-downcase(string-ref s_247(+ start_49 4))) '#\\.)" -"(let-values(((or-part_352)" -"(if(char=?(char-downcase(string-ref s_247(+ start_49 5))) '#\\0)" -"(if(char=?(string-ref s_247 start_49) '#\\+) +inf.0 -inf.0)" +"(if(let-values(((or-part_337)(char=?(string-ref s_242 start_49) '#\\+)))" +"(if or-part_337 or-part_337(char=?(string-ref s_242 start_49) '#\\-)))" +"(let-values(((or-part_338)" +"(if(char=?(char-downcase(string-ref s_242(+ start_49 1))) '#\\i)" +"(if(char=?(char-downcase(string-ref s_242(+ start_49 2))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_242(+ start_49 3))) '#\\f)" +"(if(char=?(char-downcase(string-ref s_242(+ start_49 4))) '#\\.)" +"(let-values(((or-part_339)" +"(if(char=?(char-downcase(string-ref s_242(+ start_49 5))) '#\\0)" +"(if(char=?(string-ref s_242 start_49) '#\\+) +inf.0 -inf.0)" " #f)))" -"(if or-part_352" -" or-part_352" -"(let-values(((or-part_353)" -"(if(char=?(char-downcase(string-ref s_247(+ start_49 5))) '#\\f)" -"(if(char=?(string-ref s_247 start_49) '#\\+) +inf.f -inf.f)" +"(if or-part_339" +" or-part_339" +"(let-values(((or-part_340)" +"(if(char=?(char-downcase(string-ref s_242(+ start_49 5))) '#\\f)" +"(if(char=?(string-ref s_242 start_49) '#\\+) +inf.f -inf.f)" " #f)))" -"(if or-part_353" -" or-part_353" -"(if(char=?(char-downcase(string-ref s_247(+ start_49 5))) '#\\t)" +"(if or-part_340" +" or-part_340" +"(if(char=?(char-downcase(string-ref s_242(+ start_49 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false))" -"(if(char=?(string-ref s_247 start_49) '#\\+) '+inf.t '-inf.t)" +"(if(char=?(string-ref s_242 start_49) '#\\+) '+inf.t '-inf.t)" " #f)" " #f)))))" " #f)" " #f)" " #f)" " #f)))" -"(if or-part_351" -" or-part_351" -"(if(char=?(char-downcase(string-ref s_247(+ start_49 1))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_247(+ start_49 2))) '#\\a)" -"(if(char=?(char-downcase(string-ref s_247(+ start_49 3))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_247(+ start_49 4))) '#\\.)" -"(let-values(((or-part_354)" -"(if(char=?(char-downcase(string-ref s_247(+ start_49 5))) '#\\0) +nan.0 #f)))" -"(if or-part_354" -" or-part_354" -"(let-values(((or-part_355)" -"(if(char=?(char-downcase(string-ref s_247(+ start_49 5))) '#\\f) +nan.f #f)))" -"(if or-part_355" -" or-part_355" -"(if(char=?(char-downcase(string-ref s_247(+ start_49 5))) '#\\t)" +"(if or-part_338" +" or-part_338" +"(if(char=?(char-downcase(string-ref s_242(+ start_49 1))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_242(+ start_49 2))) '#\\a)" +"(if(char=?(char-downcase(string-ref s_242(+ start_49 3))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_242(+ start_49 4))) '#\\.)" +"(let-values(((or-part_341)" +"(if(char=?(char-downcase(string-ref s_242(+ start_49 5))) '#\\0) +nan.0 #f)))" +"(if or-part_341" +" or-part_341" +"(let-values(((or-part_342)" +"(if(char=?(char-downcase(string-ref s_242(+ start_49 5))) '#\\f) +nan.f #f)))" +"(if or-part_342" +" or-part_342" +"(if(char=?(char-downcase(string-ref s_242(+ start_49 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)" " #f)))))" " #f)" @@ -50738,7 +50820,7 @@ static const char *startup_source = " combine64_0)" "(begin" " 'read-for-special-compound65" -"(let-values(((s_461) s57_0))" +"(let-values(((s_452) s57_0))" "(let-values(((start_50) start58_0))" "(let-values(((end_40) end59_0))" "(let-values(((radix_10) radix60_0))" @@ -50755,13 +50837,13 @@ static const char *startup_source = " (let-values () (format \"no exact representation for `~a`\" v_236))" "(let-values() #f)))" "(if(if(extflonum? v_236)" -"(let-values(((or-part_356)(not reading-first?_0)))" -"(if or-part_356 or-part_356(not(eq? convert-mode_10 'must-read))))" +"(let-values(((or-part_343)(not reading-first?_0)))" +"(if or-part_343 or-part_343(not(eq? convert-mode_10 'must-read))))" " #f)" "(let-values()(fail-extflonum convert-mode_10 v_236))" "(let-values()" "(let-values(((v2_7)" -"(let-values(((s176_0) s_461)" +"(let-values(((s176_0) s_452)" "((start177_0) start_50)" "((end178_0) end_40)" "((radix179_0) radix_10)" @@ -50788,41 +50870,41 @@ static const char *startup_source = "(let-values()(combine_1 v_236 v2_7)))))))))))))))))))))))" "(define-values" "(hashes?)" -"(lambda(s_462 start_51 end_41)" +"(lambda(s_453 start_51 end_41)" "(begin" "(let-values(((v*_6 start*_5 stop*_6 step*_5)" "(normalise-inputs" " 'in-string" " \"string\"" -"(lambda(x_81)(string? x_81))" -"(lambda(x_82)(unsafe-string-length x_82))" -" s_462" +"(lambda(x_80)(string? x_80))" +"(lambda(x_81)(unsafe-string-length x_81))" +" s_453" " start_51" " end_41" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_273)" -"(lambda(result_119 idx_5)" +"((letrec-values(((for-loop_272)" +"(lambda(result_118 idx_5)" "(begin" " 'for-loop" "(if(unsafe-fx< idx_5 stop*_6)" -"(let-values(((c_82)(string-ref v*_6 idx_5)))" -"(let-values(((result_120)" +"(let-values(((c_83)(string-ref v*_6 idx_5)))" +"(let-values(((result_119)" "(let-values()" -"(let-values(((result_121)" -"(let-values()(let-values()(char=? c_82 '#\\#)))))" -"(values result_121)))))" -"(if(if(not((lambda x_83 result_120) c_82))(not #f) #f)" -"(for-loop_273 result_120(unsafe-fx+ idx_5 1))" -" result_120)))" -" result_119)))))" -" for-loop_273)" +"(let-values(((result_120)" +"(let-values()(let-values()(char=? c_83 '#\\#)))))" +"(values result_120)))))" +"(if(if(not((lambda x_82 result_119) c_83))(not #f) #f)" +"(for-loop_272 result_119(unsafe-fx+ idx_5 1))" +" result_119)))" +" result_118)))))" +" for-loop_272)" " #f" " start*_5))))))" "(define-values" "(replace-hashes)" -"(lambda(s_463 start_52 end_42)" +"(lambda(s_130 start_52 end_42)" "(begin" "(let-values(((new-s_9)(make-string(- end_42 start_52))))" "(begin" @@ -50830,9 +50912,9 @@ static const char *startup_source = "(normalise-inputs" " 'in-string" " \"string\"" -"(lambda(x_84)(string? x_84))" -"(lambda(x_85)(unsafe-string-length x_85))" -" s_463" +"(lambda(x_83)(string? x_83))" +"(lambda(x_84)(unsafe-string-length x_84))" +" s_130" " start_52" " end_42" " 1))" @@ -50842,65 +50924,65 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_53)))" -"((letrec-values(((for-loop_274)" +"((letrec-values(((for-loop_273)" "(lambda(idx_6 pos_114)" "(begin" " 'for-loop" "(if(if(unsafe-fx< idx_6 stop*_7) #t #f)" -"(let-values(((c_83)(string-ref v*_7 idx_6))((i_177) pos_114))" +"(let-values(((c_84)(string-ref v*_7 idx_6))((i_175) pos_114))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(if(char=? c_83 '#\\#)" -"(string-set! new-s_9 i_177 '#\\0)" -"(string-set! new-s_9 i_177 c_83)))" +"(if(char=? c_84 '#\\#)" +"(string-set! new-s_9 i_175 '#\\0)" +"(string-set! new-s_9 i_175 c_84)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_274(unsafe-fx+ idx_6 1)(+ pos_114 1))(values))))" +"(if(not #f)(for-loop_273(unsafe-fx+ idx_6 1)(+ pos_114 1))(values))))" "(values))))))" -" for-loop_274)" +" for-loop_273)" " start*_6" " start_53)))" "(void)" " new-s_9)))))" "(define-values" "(maybe-substring)" -"(lambda(s_401 start_54 end_43)" -"(begin(if(if(= 0 start_54)(= end_43(string-length s_401)) #f) s_401(substring s_401 start_54 end_43)))))" +"(lambda(s_392 start_54 end_43)" +"(begin(if(if(= 0 start_54)(= end_43(string-length s_392)) #f) s_392(substring s_392 start_54 end_43)))))" "(define-values" "(exactness-set?)" "(lambda(exactness_6)" "(begin" -"(let-values(((or-part_357)(eq? exactness_6 'exact)))(if or-part_357 or-part_357(eq? exactness_6 'inexact))))))" +"(let-values(((or-part_344)(eq? exactness_6 'exact)))(if or-part_344 or-part_344(eq? exactness_6 'inexact))))))" "(define-values" "(char-sign?)" -"(lambda(c_84)" -"(begin(let-values(((or-part_358)(char=? c_84 '#\\-)))(if or-part_358 or-part_358(char=? c_84 '#\\+))))))" +"(lambda(c_85)" +"(begin(let-values(((or-part_345)(char=? c_85 '#\\-)))(if or-part_345 or-part_345(char=? c_85 '#\\+))))))" "(define-values" "(digit?)" -"(lambda(c_85 radix_11)" +"(lambda(c_86 radix_11)" "(begin" -"(let-values(((v_237)(char->integer c_85)))" -"(let-values(((or-part_359)" +"(let-values(((v_237)(char->integer c_86)))" +"(let-values(((or-part_346)" "(if(>= v_237(char->integer '#\\0))(<(- v_237(char->integer '#\\0)) radix_11) #f)))" -"(if or-part_359" -" or-part_359" +"(if or-part_346" +" or-part_346" "(if(> radix_11 10)" -"(let-values(((or-part_360)" +"(let-values(((or-part_347)" "(if(>= v_237(char->integer '#\\a))(<(- v_237(-(char->integer '#\\a) 10)) radix_11) #f)))" -"(if or-part_360" -" or-part_360" +"(if or-part_347" +" or-part_347" "(if(>= v_237(char->integer '#\\A))(<(- v_237(-(char->integer '#\\A) 10)) radix_11) #f)))" " #f)))))))" "(define-values" "(fail-bad-number)" -"(lambda(convert-mode_11 s_464 start_55 end_44)" +"(lambda(convert-mode_11 s_454 start_55 end_44)" "(begin" "(if(eq? convert-mode_11 'must-read)" -" (let-values () (format \"bad number `~.a`\" (substring s_464 start_55 end_44)))" +" (let-values () (format \"bad number `~.a`\" (substring s_454 start_55 end_44)))" "(let-values() #f)))))" "(define-values" "(read-complains)" @@ -50947,15 +51029,15 @@ static const char *startup_source = "(values))))" "(let-values(((source_16)(read-config-source config_24)))" "(let-values(((unexpected-quoted_0)" -"(lambda(c_86 after-c_0)" +"(lambda(c_87 after-c_0)" "(begin" " 'unexpected-quoted" "(let-values(((in11_1) in_25)" "((config12_2) config_24)" -"((c13_1) c_86)" +"((c13_1) c_87)" " ((temp14_6) \"~a following `~a` in ~a\")" "((temp15_5)" -"(if(eof-object? c_86)" +"(if(eof-object? c_87)" " \"end-of-file\"" " \"non-character\"))" "((after-c16_0) after-c_0)" @@ -50986,11 +51068,11 @@ static const char *startup_source = " foldcase-from_0)" "(begin" " 'loop" -"(let-values(((c_87)" -"(let-values(((or-part_78)" +"(let-values(((c_88)" +"(let-values(((or-part_85)" " init-c_6))" -"(if or-part_78" -" or-part_78" +"(if or-part_85" +" or-part_85" "(let-values(((in_26)" " in_25)" "((skip-count_8)" @@ -51011,19 +51093,19 @@ static const char *startup_source = " c_52)))))))" "(let-values(((ec_4)" "(let-values(((rt_12) rt_11)" -"((c_88) c_87))" -"(if(let-values(((or-part_176)" +"((c_89) c_88))" +"(if(let-values(((or-part_68)" "(not" " rt_12)))" -"(if or-part_176" -" or-part_176" +"(if or-part_68" +" or-part_68" "(not" -"(char? c_88))))" -"(let-values() c_88)" +"(char? c_89))))" +"(let-values() c_89)" "(let-values()" "(*readtable-effective-char" " rt_12" -" c_88))))))" +" c_89))))))" "(if(if pipe-quote-c_0" "(not(char? ec_4))" " #f)" @@ -51035,14 +51117,14 @@ static const char *startup_source = "(consume-char/special" " in_25" " config_24" -" c_87)))" +" c_88)))" "(unexpected-quoted_0" -" c_87" +" c_88" " pipe-quote-c_0)))" "(if(if(not pipe-quote-c_0)" "(readtable-char-delimiter?" " rt_11" -" c_87" +" c_88" " config_24)" " #f)" "(let-values()" @@ -51054,7 +51136,7 @@ static const char *startup_source = " string-foldcase" " foldcase-from_0))))" "(if(if pipe-quote-c_0" -"(char=? c_87 pipe-quote-c_0)" +"(char=? c_88 pipe-quote-c_0)" " #f)" "(let-values()" "(begin" @@ -51063,7 +51145,7 @@ static const char *startup_source = "(let-values()" "(consume-char" " in_25" -" c_87)))" +" c_88)))" "(loop_108" " #f" " #f" @@ -51081,7 +51163,7 @@ static const char *startup_source = "(let-values()" "(consume-char" " in_25" -" c_87)))" +" c_88)))" "(set! quoted-ever?_0 #t)" "(if case-sens?_0" "(void)" @@ -51092,7 +51174,7 @@ static const char *startup_source = " foldcase-from_0)))" "(loop_108" " #f" -" c_87" +" c_88" "(accum-string-count" " accum-str_1))))" "(if(if(char=? ec_4 '#\\\\)" @@ -51106,7 +51188,7 @@ static const char *startup_source = "(let-values()" "(consume-char" " in_25" -" c_87)))" +" c_88)))" "(values))))" "(let-values(((next-c_0)" "(let-values(((in_27)" @@ -51123,7 +51205,7 @@ static const char *startup_source = "(let-values()" "(unexpected-quoted_0" " next-c_0" -" c_87)))" +" c_88)))" "(if(let-values(((or-part_7)" " pipe-quote-c_0))" "(if or-part_7" @@ -51152,10 +51234,10 @@ static const char *startup_source = "(let-values()" "(consume-char" " in_25" -" c_87)))" +" c_88)))" "(accum-string-add!" " accum-str_1" -" c_87)" +" c_88)" "(loop_108" " #f" " pipe-quote-c_0" @@ -51198,9 +51280,9 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((num_0)" -"(if(let-values(((or-part_163)" +"(if(let-values(((or-part_155)" "(eq? mode_17 'symbol-or-number)))" -"(if or-part_163 or-part_163(string? mode_17)))" +"(if or-part_155 or-part_155(string? mode_17)))" "(if(not quoted-ever?_0)" "(1/string->number" "(if(string? mode_17)" @@ -51255,14 +51337,14 @@ static const char *startup_source = "(list temp30_2))))" "(void))" "(wrap" -"(let-values(((or-part_296) num_0))" -"(if or-part_296" -" or-part_296" -"(let-values(((or-part_93)" +"(let-values(((or-part_163) num_0))" +"(if or-part_163" +" or-part_163" +"(let-values(((or-part_95)" "(if(eq? mode_17 'keyword)" "(string->keyword str_28)" " #f)))" -"(if or-part_93 or-part_93(string->symbol str_28)))))" +"(if or-part_95 or-part_95(string->symbol str_28)))))" " in_25" " config_24" " str_28)))))))))))))))))))))))))" @@ -51272,16 +51354,16 @@ static const char *startup_source = "(begin" "(let-values(((c_33)(read-char/skip-whitespace-and-comments init-c_0 read-one_3 in_5 config_15)))" "(let-values(((line_8 col_7 pos_115)(port-next-location* in_5 c_33)))" -" (let-values (((v_91) (read-number-literal c_33 in_5 config_15 \"#e\")))" -"(if(fixnum? v_91)" -"(let-values() v_91)" -"(if(eof-object? v_91)" -"(let-values() v_91)" +" (let-values (((v_92) (read-number-literal c_33 in_5 config_15 \"#e\")))" +"(if(fixnum? v_92)" +"(let-values() v_92)" +"(if(eof-object? v_92)" +"(let-values() v_92)" "(let-values()" "(let-values(((in1_3) in_5)" "((temp2_5)(reading-at config_15 line_8 col_7 pos_115))" " ((temp3_6) \"expected a fixnum, found ~a\")" -"((v4_1) v_91))" +"((v4_1) v_92))" "(reader-error12.1 #f #f #f #f #f #f #f #f in1_3 temp2_5 temp3_6(list v4_1))))))))))))" "(define-values" "(read-flonum)" @@ -51302,12 +51384,12 @@ static const char *startup_source = "(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_89 in_29 config_39 mode_18)" +"(lambda(c_90 in_29 config_39 mode_18)" "(begin" -"(if(not(char? c_89))" -"(let-values() c_89)" +"(if(not(char? c_90))" +"(let-values() c_90)" "(let-values()" -"(let-values(((c9_0) c_89)((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_18))" "(read-symbol-or-number8.1 #f #f mode12_0 #t c9_0 in10_1 config11_0)))))))" "(define-values" "(read-vector11.1)" @@ -51324,16 +51406,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" @@ -51369,24 +51451,24 @@ static const char *startup_source = "(let-values(((vec_66)" "(if(not expected-len_0)" "(let-values()" -"(let-values(((tmp_41) vector-mode_0))" -"(if(equal? tmp_41 'any)" +"(let-values(((tmp_42) vector-mode_0))" +"(if(equal? tmp_42 'any)" "(let-values()(list->vector seq_2))" -"(if(equal? tmp_41 'fixnum)" +"(if(equal? tmp_42 'fixnum)" "(let-values()" -"(let-values(((len_7)(length seq_2)))" +"(let-values(((len_37)(length seq_2)))" "(begin" -"(if(exact-nonnegative-integer? len_7)" +"(if(exact-nonnegative-integer? len_37)" "(void)" "(let-values()" "(raise-argument-error" " 'for/fxvector" " \"exact-nonnegative-integer?\"" -" len_7)))" +" len_37)))" "(let-values(((fill_0) 0))" -"(let-values(((v_194)(make-fxvector len_7 fill_0)))" +"(let-values(((v_195)(make-fxvector len_37 fill_0)))" "(begin" -"(if(zero? len_7)" +"(if(zero? len_37)" "(void)" "(let-values()" "(let-values(((lst_24) seq_2))" @@ -51395,21 +51477,21 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_252)" -"(lambda(i_178 lst_80)" +"((letrec-values(((for-loop_251)" +"(lambda(i_176 lst_81)" "(begin" " 'for-loop" -"(if(pair? lst_80)" +"(if(pair? lst_81)" "(let-values(((e_73)" "(unsafe-car" -" lst_80))" +" lst_81))" "((rest_143)" "(unsafe-cdr" -" lst_80)))" -"(let-values(((i_39)" -"(let-values(((i_40)" -" i_178))" -"(let-values(((i_41)" +" lst_81)))" +"(let-values(((i_177)" +"(let-values(((i_178)" +" i_176))" +"(let-values(((i_58)" "(let-values()" "(begin" "(let-values(((elem_0)" @@ -51418,57 +51500,57 @@ static const char *startup_source = "(if(fixnum?" " elem_0)" "(unsafe-fxvector-set!" -" v_194" -" i_40" +" v_195" +" i_178" " elem_0)" "(not-an-fX.1" " 'for*/vector" " elem_0)))" "(unsafe-fx+" " 1" -" i_40)))))" +" i_178)))))" "(values" -" i_41)))))" +" i_58)))))" "(if(if(not" -"((lambda x_86" +"((lambda x_85" "(unsafe-fx=" -" i_39" -" len_7))" +" i_177" +" len_37))" " e_73))" "(not #f)" " #f)" -"(for-loop_252" -" i_39" +"(for-loop_251" +" i_177" " rest_143)" -" i_39)))" -" i_178)))))" -" for-loop_252)" +" i_177)))" +" i_176)))))" +" for-loop_251)" " 0" " lst_24)))))" -" v_194))))))" -"(if(equal? tmp_41 'flonum)" +" v_195))))))" +"(if(equal? tmp_42 'flonum)" "(let-values()" -"(let-values(((len_37)(length seq_2)))" +"(let-values(((len_8)(length seq_2)))" "(begin" -"(if(exact-nonnegative-integer? len_37)" +"(if(exact-nonnegative-integer? len_8)" "(void)" "(let-values()" "(raise-argument-error" " 'for/flvector" " \"exact-nonnegative-integer?\"" -" len_37)))" +" len_8)))" "(let-values(((fill_1) 0.0))" -"(let-values(((v_238)(make-flvector len_37 fill_1)))" +"(let-values(((v_238)(make-flvector len_8 fill_1)))" "(begin" -"(if(zero? len_37)" +"(if(zero? len_8)" "(void)" "(let-values()" -"(let-values(((lst_92) seq_2))" +"(let-values(((lst_93) seq_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_92)))" +"(let-values()(check-list lst_93)))" "((letrec-values(((for-loop_189)" "(lambda(i_179 lst_17)" "(begin" @@ -51480,7 +51562,7 @@ static const char *startup_source = "((rest_90)" "(unsafe-cdr" " lst_17)))" -"(let-values(((i_158)" +"(let-values(((i_156)" "(let-values(((i_92)" " i_179))" "(let-values(((i_180)" @@ -51504,21 +51586,21 @@ static const char *startup_source = "(values" " i_180)))))" "(if(if(not" -"((lambda x_87" +"((lambda x_86" "(unsafe-fx=" -" i_158" -" len_37))" +" i_156" +" len_8))" " e_80))" "(not #f)" " #f)" "(for-loop_189" -" i_158" +" i_156" " rest_90)" -" i_158)))" +" i_156)))" " i_179)))))" " for-loop_189)" " 0" -" lst_92)))))" +" lst_93)))))" " v_238))))))" "(let-values()(void)))))))" "(let-values()" @@ -51532,12 +51614,12 @@ static const char *startup_source = "((temp24_5)" " \"~avector length ~a is too small, ~a values provided\")" "((temp25_6)" -"(let-values(((tmp_42) vector-mode_0))" -"(if(equal? tmp_42 'any)" +"(let-values(((tmp_43) vector-mode_0))" +"(if(equal? tmp_43 'any)" " (let-values () \"\")" -"(if(equal? tmp_42 'fixnum)" +"(if(equal? tmp_43 'fixnum)" " (let-values () \"fx\")" -"(if(equal? tmp_42 'flonum)" +"(if(equal? tmp_43 'flonum)" " (let-values () \"fl\")" "(let-values()(void)))))))" "((expected-len26_0) expected-len_0)" @@ -51583,26 +51665,26 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((vec_67)" -"(let-values(((tmp_43) vector-mode_0))" -"(if(equal? tmp_43 'any)" +"(let-values(((tmp_44) vector-mode_0))" +"(if(equal? tmp_44 'any)" "(let-values()" "(make-vector" " expected-len_0" "(last-or_0 0)))" -"(if(equal? tmp_43 'fixnum)" +"(if(equal? tmp_44 'fixnum)" "(let-values()" "(make-fxvector" " expected-len_0" "(last-or_0 0)))" -"(if(equal? tmp_43 'flonum)" +"(if(equal? tmp_44 'flonum)" "(let-values()" "(make-flvector" " expected-len_0" "(last-or_0 0.0)))" "(let-values()(void))))))))" "(begin" -"(let-values(((tmp_44) vector-mode_0))" -"(if(equal? tmp_44 'any)" +"(let-values(((tmp_45) vector-mode_0))" +"(if(equal? tmp_45 'any)" "(let-values()" "(begin" "(let-values(((lst_9) seq_2)((start_56) 0))" @@ -51615,7 +51697,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-naturals start_56)))" -"((letrec-values(((for-loop_275)" +"((letrec-values(((for-loop_274)" "(lambda(lst_10 pos_116)" "(begin" " 'for-loop" @@ -51643,42 +51725,42 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_275" +"(for-loop_274" " rest_169" "(+ pos_116 1))" "(values))))" "(values))))))" -" for-loop_275)" +" for-loop_274)" " lst_9" " start_56)))" "(void)))" -"(if(equal? tmp_44 'fixnum)" +"(if(equal? tmp_45 'fixnum)" "(let-values()" "(begin" -"(let-values(((lst_225) seq_2)((start_57) 0))" +"(let-values(((lst_227) seq_2)((start_57) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_225)))" +"(let-values()(check-list lst_227)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-naturals start_57)))" -"((letrec-values(((for-loop_100)" -"(lambda(lst_180 pos_109)" +"((letrec-values(((for-loop_99)" +"(lambda(lst_182 pos_109)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_180)" +" lst_182)" " #t" " #f)" "(let-values(((e_82)" "(unsafe-car" -" lst_180))" +" lst_182))" "((rest_175)" "(unsafe-cdr" -" lst_180))" +" lst_182))" "((i_182)" " pos_109))" "(let-values((()" @@ -51694,46 +51776,46 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_100" +"(for-loop_99" " rest_175" "(+" " pos_109" " 1))" "(values))))" "(values))))))" -" for-loop_100)" -" lst_225" +" for-loop_99)" +" lst_227" " start_57)))" "(void)))" -"(if(equal? tmp_44 'flonum)" +"(if(equal? tmp_45 'flonum)" "(let-values()" "(begin" -"(let-values(((lst_311) seq_2)((start_58) 0))" +"(let-values(((lst_313) seq_2)((start_58) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_311)))" +"(let-values()(check-list lst_313)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals start_58)))" -"((letrec-values(((for-loop_109)" -"(lambda(lst_278" +"((letrec-values(((for-loop_108)" +"(lambda(lst_280" " pos_117)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_278)" +" lst_280)" " #t" " #f)" "(let-values(((e_83)" "(unsafe-car" -" lst_278))" +" lst_280))" "((rest_45)" "(unsafe-cdr" -" lst_278))" +" lst_280))" "((i_35)" " pos_117))" "(let-values((()" @@ -51749,15 +51831,15 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_109" +"(for-loop_108" " rest_45" "(+" " pos_117" " 1))" "(values))))" "(values))))))" -" for-loop_109)" -" lst_311" +" for-loop_108)" +" lst_313" " start_58)))" "(void)))" "(let-values()(void))))))" @@ -51765,7 +51847,7 @@ static const char *startup_source = "(wrap vec_66 in_30 config_40 opener_2))))))))))))))))" "(define-values" "(read-fixnum-or-flonum-vector)" -"(lambda(read-one_6 dispatch-c_0 c_90 c2_4 in_33 config_43)" +"(lambda(read-one_6 dispatch-c_0 c_91 c2_4 in_33 config_43)" "(begin" "(let-values(((vector-mode_1)(if(char=? c2_4 '#\\x) 'fixnum 'flonum)))" "(let-values((()(begin(consume-char in_33 c2_4)(values))))" @@ -51787,8 +51869,8 @@ static const char *startup_source = "(if(decimal-digit? c3_3)" "(let-values()(read-simple-number in_33 config_43 c3_3))" " (let-values () (values #f \"\" c3_3)))))" -"(let-values(((tmp_45) c4_1))" -"(if(equal? tmp_45 '#\\()" +"(let-values(((tmp_46) c4_1))" +"(if(equal? tmp_46 '#\\()" "(let-values()" "(let-values(((read-one32_0) read-one_6)" "((temp33_2) '#\\()" @@ -51809,7 +51891,7 @@ static const char *startup_source = " temp35_2" " in36_0" " config37_0)))" -"(if(equal? tmp_45 '#\\[)" +"(if(equal? tmp_46 '#\\[)" "(let-values()" "(if(check-parameter 1/read-square-bracket-as-paren config_43)" "(let-values()" @@ -51835,9 +51917,9 @@ static const char *startup_source = "(let-values()" "(let-values(((in48_0) in_33)" "((config49_0) config_43)" -" ((temp50_2) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_90 c2_4))))" +" ((temp50_2) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_91 c2_4))))" "(bad-syntax-error20.1 #f #f in48_0 config49_0 temp50_2)))))" -"(if(equal? tmp_45 '#\\{)" +"(if(equal? tmp_46 '#\\{)" "(let-values()" "(if(check-parameter 1/read-curly-brace-as-paren config_43)" "(let-values()" @@ -51863,14 +51945,14 @@ static const char *startup_source = "(let-values()" "(let-values(((in59_0) in_33)" "((config60_0) config_43)" -" ((temp61_2) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_90 c2_4))))" +" ((temp61_2) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_91 c2_4))))" "(bad-syntax-error20.1 #f #f in59_0 config60_0 temp61_2)))))" "(let-values()" "(let-values(((in62_0) in_33)" "((config63_0) config_43)" "((c464_0) c4_1)" " ((temp65_2) \"expected `(`, `[`, or `{` after `#~a~a~a`\")" -"((c66_0) c_90)" +"((c66_0) c_91)" "((c267_0) c2_4)" "((len-str68_0) len-str_0))" "(reader-error12.1" @@ -51893,7 +51975,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_97)" +"(let-values(((v_98)" "(let-values(((in69_0) in_35)" "((config70_0) config_44)" "((accum-str71_0) accum-str_2)" @@ -51913,7 +51995,7 @@ static const char *startup_source = " accum-str71_0" " #t))))" "(values" -" v_97" +" v_98" "(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)))" @@ -51927,10 +52009,10 @@ static const char *startup_source = "(read-char-or-special in_31 special1.1 source_21))))" "(let-values(((ec_5)(effective-char c_33 config_15)))" "(let-values(((seq_4)" -"(let-values(((tmp_46) ec_5))" -"(if(equal? tmp_46 '#\\()" +"(let-values(((tmp_47) ec_5))" +"(if(equal? tmp_47 '#\\()" "(let-values()(read-struct-sequence read-one_3 c_33 '#\\( '#\\) in_5 config_15))" -"(if(equal? tmp_46 '#\\[)" +"(if(equal? tmp_47 '#\\[)" "(let-values()" "(if(check-parameter 1/read-square-bracket-as-paren config_15)" "(let-values()(read-struct-sequence read-one_3 c_33 '#\\[ '#\\] in_5 config_15))" @@ -51939,7 +52021,7 @@ static const char *startup_source = "((config2_3) config_15)" " ((temp3_7) (format \"~as~a\" dispatch-c_1 c_33)))" "(bad-syntax-error20.1 #f #f in1_4 config2_3 temp3_7)))))" -"(if(equal? tmp_46 '#\\{)" +"(if(equal? tmp_47 '#\\{)" "(let-values()" "(if(check-parameter 1/read-curly-brace-as-paren config_15)" "(let-values()(read-struct-sequence read-one_3 c_33 '#\\{ '#\\} in_5 config_15))" @@ -52119,7 +52201,7 @@ static const char *startup_source = " #t))))" "(let-values(((post-line_0 post-col_0 post-pos_0)(port-next-location in_39)))" "(let-values(((get-accum_0)" -"(lambda(c_91)" +"(lambda(c_92)" "(begin" " 'get-accum" "(format" @@ -52127,13 +52209,13 @@ static const char *startup_source = " dispatch-c_1" "(let-values(((accum-str8_0) accum-str_3)((config9_0) config_47))" "(accum-string-get!6.1 #f #f accum-str8_0 config9_0))" -" c_91)))))" +" c_92)))))" "(let-values(((c_38)" "(let-values(((in_40) in_39)((source_22)(read-config-source config_47)))" "(read-char-or-special in_40 special1.1 source_22))))" "(let-values(((ec_6)(effective-char c_38 config_47)))" -"(let-values(((tmp_47) ec_6))" -"(if(equal? tmp_47 '#\\()" +"(let-values(((tmp_48) ec_6))" +"(if(equal? tmp_48 '#\\()" "(let-values()" "(begin" "(accum-string-abandon! accum-str_3 config_47)" @@ -52155,7 +52237,7 @@ static const char *startup_source = " temp13_2" " in14_0" " config15_0))))" -"(if(equal? tmp_47 '#\\[)" +"(if(equal? tmp_48 '#\\[)" "(let-values()" "(begin" "(accum-string-abandon! accum-str_3 config_47)" @@ -52184,7 +52266,7 @@ static const char *startup_source = "((config25_0) config_47)" "((temp26_5)(get-accum_0(get-accum_0 c_38))))" "(bad-syntax-error20.1 #f #f in24_0 config25_0 temp26_5))))))" -"(if(equal? tmp_47 '#\\{)" +"(if(equal? tmp_48 '#\\{)" "(let-values()" "(begin" "(accum-string-abandon! accum-str_3 config_47)" @@ -52214,13 +52296,13 @@ static const char *startup_source = "((temp36_7)(get-accum_0(get-accum_0 c_38))))" "(bad-syntax-error20.1 #f #f in34_1 config35_1 temp36_7))))))" "(let-values()" -"(let-values(((tmp_48) c_38))" -"(if(if(equal? tmp_48 '#\\=) #t(equal? tmp_48 '#\\#))" +"(let-values(((tmp_49) c_38))" +"(if(if(equal? tmp_49 '#\\=) #t(equal? tmp_49 '#\\#))" "(let-values()" "(begin" -"(if(let-values(((or-part_361)(read-config-for-syntax? config_47)))" -"(if or-part_361" -" or-part_361" +"(if(let-values(((or-part_348)(read-config-for-syntax? config_47)))" +"(if or-part_348" +" or-part_348" "(not(check-parameter 1/read-accept-graph config_47))))" "(let-values()" "(let-values(((in37_1) in_39)" @@ -52270,14 +52352,14 @@ static const char *startup_source = " config43_0" " temp44_2" "(list dispatch-c45_0 temp46_3 c47_0)))))" -"(let-values(((tmp_49) c_38))" -"(if(equal? tmp_49 '#\\=)" +"(let-values(((tmp_50) c_38))" +"(if(equal? tmp_50 '#\\=)" "(let-values()" "(let-values(((ph_1)(make-placeholder 'placeholder)))" -"(let-values(((ht_160)(get-graph-hash config_47)))" +"(let-values(((ht_159)(get-graph-hash config_47)))" "(let-values((()" "(begin" -"(if(hash-ref ht_160 v_28 #f)" +"(if(hash-ref ht_159 v_28 #f)" "(let-values()" "(let-values(((in50_0) in_39)" "((config51_0) config_47)" @@ -52309,7 +52391,7 @@ static const char *startup_source = "(list dispatch-c53_0 temp54_2 c55_0))))" "(void))" "(values))))" -"(let-values((()(begin(hash-set! ht_160 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_39(next-readtable config_47))))" "(begin" @@ -52347,13 +52429,13 @@ static const char *startup_source = "(accum-string-abandon! accum-str_3 config_47)" "(placeholder-set! ph_1 result-v_0)" " ph_1)))))))" -"(if(equal? tmp_49 '#\\#)" +"(if(equal? tmp_50 '#\\#)" "(let-values()" "(begin0" "(hash-ref" -"(let-values(((or-part_362)" +"(let-values(((or-part_73)" "(read-config-state-graph(read-config-st config_47))))" -"(if or-part_362 or-part_362 '#hash()))" +"(if or-part_73 or-part_73 '#hash()))" " v_28" "(lambda()" "(let-values(((in67_0) in_39)" @@ -52410,16 +52492,16 @@ static const char *startup_source = "(lambda(config_48)" "(begin" "(let-values(((st_3)(read-config-st config_48)))" -"(let-values(((or-part_145)(read-config-state-graph st_3)))" -"(if or-part_145" -" or-part_145" -"(let-values(((ht_161)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_161) ht_161))))))))" +"(let-values(((or-part_137)(read-config-state-graph st_3)))" +"(if or-part_137" +" or-part_137" +"(let-values(((ht_160)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_160) ht_160))))))))" "(define-values" "(coerce-key)" -"(lambda(key_90 config_8)" +"(lambda(key_89 config_8)" "(begin" "(let-values(((for-syntax?_7)(read-config-for-syntax? config_8)))" -"((read-config-coerce-key config_8) for-syntax?_7 key_90)))))" +"((read-config-coerce-key config_8) for-syntax?_7 key_89)))))" "(define-values" "(read-hash)" "(lambda(read-one_3 dispatch-c_1 init-c_12 in_39 config_47)" @@ -52431,17 +52513,17 @@ static const char *startup_source = "(lambda(expect-c_0 expect-alt-c_0)" "(begin" " 'get-next!" -"(let-values(((c_92)" +"(let-values(((c_93)" "(let-values(((in_30) in_39)((source_23)(read-config-source config_47)))" "(read-char-or-special in_30 special1.1 source_23))))" "(begin" -"(if(let-values(((or-part_6)(eqv? c_92 expect-c_0)))" -"(if or-part_6 or-part_6(eqv? c_92 expect-alt-c_0)))" +"(if(let-values(((or-part_6)(eqv? c_93 expect-c_0)))" +"(if or-part_6 or-part_6(eqv? c_93 expect-alt-c_0)))" "(void)" "(let-values()" "(let-values(((in1_6) in_39)" "((config2_5) config_47)" -"((c3_4) c_92)" +"((c3_4) c_93)" " ((temp4_4) \"expected `~a` after `~a`\")" "((expect-c5_0) expect-c_0)" "((temp6_3)" @@ -52460,12 +52542,12 @@ static const char *startup_source = " config2_5" " temp4_4" "(list expect-c5_0 temp6_3)))))" -"(accum-string-add! accum-str_3 c_92)))))))" +"(accum-string-add! accum-str_3 c_93)))))))" "(let-values((()(begin(get-next!_0 '#\\a '#\\A)(values))))" "(let-values((()(begin(get-next!_0 '#\\s '#\\S)(values))))" "(let-values((()(begin(get-next!_0 '#\\h '#\\H)(values))))" "(let-values(((content_11 opener_4 mode_19)" -"((letrec-values(((loop_66)" +"((letrec-values(((loop_110)" "(lambda(mode_20)" "(begin" " 'loop" @@ -52478,8 +52560,8 @@ static const char *startup_source = " special1.1" " source_24))))" "(let-values(((ec_7)(effective-char c_70 config_47)))" -"(let-values(((tmp_50) ec_7))" -"(if(equal? tmp_50 '#\\()" +"(let-values(((tmp_51) ec_7))" +"(if(equal? tmp_51 '#\\()" "(let-values()" "(let-values(((open-end-line_1" " open-end-col_1" @@ -52520,7 +52602,7 @@ static const char *startup_source = " config14_0))" " ec_7" " mode_20))))" -"(if(equal? tmp_50 '#\\[)" +"(if(equal? tmp_51 '#\\[)" "(let-values()" "(if(check-parameter" " 1/read-square-bracket-as-paren" @@ -52583,7 +52665,7 @@ static const char *startup_source = " config26_0" " temp27_7" "(list c28_1))))))" -"(if(equal? tmp_50 '#\\{)" +"(if(equal? tmp_51 '#\\{)" "(let-values()" "(if(check-parameter" " 1/read-curly-brace-as-paren" @@ -52647,22 +52729,22 @@ static const char *startup_source = " config38_1" " temp39_6" "(list c40_1))))))" -"(if(if(equal? tmp_50 '#\\e)" +"(if(if(equal? tmp_51 '#\\e)" " #t" -"(equal? tmp_50 '#\\E))" +"(equal? tmp_51 '#\\E))" "(let-values()" "(begin" "(accum-string-add! accum-str_3 c_70)" "(get-next!_0 '#\\q '#\\Q)" -"(loop_66 'eq)))" -"(if(if(equal? tmp_50 '#\\v)" +"(loop_110 'eq)))" +"(if(if(equal? tmp_51 '#\\v)" " #t" -"(equal? tmp_50 '#\\V))" +"(equal? tmp_51 '#\\V))" "(let-values()" "(begin" "(accum-string-add! accum-str_3 c_70)" "(if(eq? mode_20 'eq)" -"(loop_66 'eqv)" +"(loop_110 'eqv)" "(let-values(((in41_0) in_39)" "((config42_0) config_47)" "((temp43_3)" @@ -52723,18 +52805,18 @@ static const char *startup_source = " config48_1" " temp50_3" "(list temp51_2)))))))))))))))))" -" loop_66)" +" loop_110)" " 'equal)))" "(let-values(((graph?_0)(if(read-config-state-graph(read-config-st config_47)) #t #f)))" "(wrap" -"(let-values(((tmp_51) mode_19))" -"(if(equal? tmp_51 'equal)" +"(let-values(((tmp_52) mode_19))" +"(if(equal? tmp_52 'equal)" "(let-values()" "(if graph?_0(make-hash-placeholder content_11)(make-immutable-hash content_11)))" -"(if(equal? tmp_51 'eq)" +"(if(equal? tmp_52 'eq)" "(let-values()" "(if graph?_0(make-hasheq-placeholder content_11)(make-immutable-hasheq content_11)))" -"(if(equal? tmp_51 'eqv)" +"(if(equal? tmp_52 'eqv)" "(let-values()" "(if graph?_0" "(make-hasheqv-placeholder content_11)" @@ -52748,28 +52830,28 @@ static const char *startup_source = "(lambda(read-one_8 overall-opener-c_0 overall-closer-ec_0 prefix-end-pos_0)" "(begin" "(lambda(init-c_13 in_42 config_49)" -"(let-values(((c_79)(read-char/skip-whitespace-and-comments init-c_13 read-one_8 in_42 config_49)))" -"(let-values(((open-line_0 open-col_0 open-pos_0)(port-next-location* in_42 c_79)))" -"(let-values(((ec_8)(effective-char c_79 config_49)))" +"(let-values(((c_80)(read-char/skip-whitespace-and-comments init-c_13 read-one_8 in_42 config_49)))" +"(let-values(((open-line_0 open-col_0 open-pos_0)(port-next-location* in_42 c_80)))" +"(let-values(((ec_8)(effective-char c_80 config_49)))" "(let-values(((elem-config_1)(next-readtable config_49)))" "(let-values(((closer_4)" -"(let-values(((tmp_52) ec_8))" -"(if(equal? tmp_52 '#\\()" +"(let-values(((tmp_53) ec_8))" +"(if(equal? tmp_53 '#\\()" "(let-values() '#\\))" -"(if(equal? tmp_52 '#\\[)" +"(if(equal? tmp_53 '#\\[)" "(let-values()" "(if(check-parameter 1/read-square-bracket-as-paren config_49) '#\\] #f))" -"(if(equal? tmp_52 '#\\{)" +"(if(equal? tmp_53 '#\\{)" "(let-values()" "(if(check-parameter 1/read-curly-brace-as-paren config_49) '#\\} #f))" "(let-values() #f)))))))" "(if(not closer_4)" "(let-values()" -"(if(eof-object? c_79)" +"(if(eof-object? c_80)" "(let-values()" "(let-values(((in54_0) in_42)" "((config55_0) config_49)" -"((c56_0) c_79)" +"((c56_0) c_80)" "((prefix-end-pos57_0) prefix-end-pos_0)" " ((temp58_2) \"expected ~a to close `~a`\")" "((temp59_3)(closer-name overall-closer-ec_0 config_49))" @@ -52792,10 +52874,10 @@ static const char *startup_source = "(let-values(((in61_0) in_42)" "((temp62_2)(reading-at config_49 open-line_0 open-col_0 open-pos_0))" " ((temp63_4) \"~a\")" -"((temp64_3)(indentation-unexpected-closer-message ec_8 c_79 config_49)))" +"((temp64_3)(indentation-unexpected-closer-message ec_8 c_80 config_49)))" "(reader-error12.1 #f #f #f #f #f #f #f #f in61_0 temp62_2 temp63_4(list temp64_3))))" "(let-values()" -"(let-values(((v_240)(read-one_8 c_79 in_42(keep-comment elem-config_1))))" +"(let-values(((v_240)(read-one_8 c_80 in_42(keep-comment elem-config_1))))" "(if(1/special-comment? v_240)" "(let-values()" "((make-read-one-key+value" @@ -52836,13 +52918,13 @@ static const char *startup_source = "(let-values(((in_43) in_42)" "((skip-count_9) 0)" "((source_25)(read-config-source config_49)))" -"(let-values(((c_93)" +"(let-values(((c_94)" "(peek-char-or-special" " in_43" " skip-count_9" " 'special" " source_25)))" -"(if(eq? c_93 'special)(special1.1 'special) c_93)))" +"(if(eq? c_94 'special)(special1.1 'special) c_94)))" " config_49)" " #f)" "(void)" @@ -52914,14 +52996,14 @@ static const char *startup_source = "(let-values(((open-end-line_4 open-end-col_4 open-end-pos_4)(port-next-location in_44)))" "(let-values(((accum-str_4)(accum-string-init! config_22)))" "(let-values(((bad-end_0)" -"(lambda(c_94)" +"(lambda(c_95)" "(begin" " 'bad-end" -"(if(eof-object? c_94)" +"(if(eof-object? c_95)" "(let-values()" "(let-values(((in8_0) in_44)" "((config9_1) config_22)" -"((c10_2) c_94)" +"((c10_2) c_95)" "((open-end-pos11_0) open-end-pos_4)" " ((temp12_5) \"expected a closing `\\\"`\"))" "(reader-error12.1" @@ -52940,7 +53022,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in13_1) in_44)" "((config14_1) config_22)" -"((c15_0) c_94)" +"((c15_0) c_95)" " ((temp16_6) \"found non-character while reading a ~a\")" "((mode17_0) mode_0))" "(reader-error12.1" @@ -52958,7 +53040,7 @@ static const char *startup_source = "(list mode17_0)))))))))" "(let-values((()" "(begin" -"((letrec-values(((loop_66)" +"((letrec-values(((loop_110)" "(lambda()" "(begin" " 'loop" @@ -53022,12 +53104,12 @@ static const char *startup_source = " escaped-c22_0" " mode23_0)))))))" "(begin" -"(let-values(((tmp_53) escaped-c_0))" +"(let-values(((tmp_54) escaped-c_0))" "(let-values(((index_3)" -"(if(char? tmp_53)" +"(if(char? tmp_54)" "(let-values(((codepoint_1)" "(char->integer" -" tmp_53)))" +" tmp_54)))" "(if(if(unsafe-fx>=" " codepoint_1" " 10)" @@ -53214,18 +53296,18 @@ static const char *startup_source = " 0)" "((source_29)" " source_26))" -"(let-values(((c_95)" +"(let-values(((c_96)" "(peek-char-or-special" " in_27" " skip-count_10" " 'special" " source_29)))" "(if(eq?" -" c_95" +" c_96" " 'special)" "(special1.1" " 'special)" -" c_95)))))" +" c_96)))))" "(begin" "(if(eqv?" " maybe-newline-c_0" @@ -53249,7 +53331,7 @@ static const char *startup_source = "(let-values(((init-v_3)" "(digit->number" " escaped-c_0)))" -"(let-values(((v_62)" +"(let-values(((v_64)" "(let-values(((in24_1)" " in_44)" "((config25_1)" @@ -53276,7 +53358,7 @@ static const char *startup_source = " accum-str26_0" " #t))))" "(begin" -"(if(<= v_62 255)" +"(if(<= v_64 255)" "(void)" "(let-values()" "(let-values(((in31_2)" @@ -53323,7 +53405,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_62)))))))))" +" v_64)))))))))" "(if(unsafe-fx< index_3 14)" "(let-values()" "(let-values(((pos_103)" @@ -53415,12 +53497,12 @@ static const char *startup_source = " v_241" " escaping-c_0" " escaped-c_0)))" -"(if(let-values(((or-part_263)" +"(if(let-values(((or-part_247)" "(<" " v_241" " 55296)))" -"(if or-part_263" -" or-part_263" +"(if or-part_247" +" or-part_247" "(>" " v_241" " 57343)))" @@ -53713,7 +53795,7 @@ static const char *startup_source = "(list" " escaping-c80_0" " temp81_3)))))))))))))))))" -"(loop_66)))))))" +"(loop_110)))))))" " (if (char=? '#\\\" c_49)" "(let-values() null)" "(let-values()" @@ -53743,8 +53825,8 @@ static const char *startup_source = "(list c88_0))))))" "(void))" "(accum-string-add! accum-str_4 c_49)" -"(loop_66)))))))))))" -" loop_66))" +"(loop_110)))))))))))" +" loop_110))" "(values))))" "(let-values(((str_29)" "(if(eq? mode_0 '|byte string|)" @@ -53763,18 +53845,18 @@ static const char *startup_source = "(let-values(((full-terminator_0)" "(cons" " '#\\newline" -"((letrec-values(((loop_110)" +"((letrec-values(((loop_111)" "(lambda()" "(begin" " 'loop" -"(let-values(((c_96)" +"(let-values(((c_97)" "(let-values(((in_47) in_46)((source_32) source_31))" "(read-char-or-special in_47 special1.1 source_32))))" -"(if(eof-object? c_96)" +"(if(eof-object? c_97)" "(let-values()" "(let-values(((in93_0) in_46)" "((config94_0) config_50)" -"((c95_0) c_96)" +"((c95_0) c_97)" "((temp96_4)" " \"found end-of-file after `#<<` and before a newline\"))" "(reader-error12.1" @@ -53790,11 +53872,11 @@ static const char *startup_source = " config94_0" " temp96_4" "(list))))" -"(if(not(char? c_96))" +"(if(not(char? c_97))" "(let-values()" "(let-values(((in97_0) in_46)" "((config98_0) config_50)" -"((c99_0) c_96)" +"((c99_0) c_97)" "((temp100_3)" " \"found non-character while reading `#<<`\"))" "(reader-error12.1" @@ -53810,27 +53892,27 @@ static const char *startup_source = " config98_0" " temp100_3" "(list))))" -"(if(char=? c_96 '#\\newline)" +"(if(char=? c_97 '#\\newline)" "(let-values() null)" -"(let-values()(cons c_96(loop_110)))))))))))" -" loop_110)))))" +"(let-values()(cons c_97(loop_111)))))))))))" +" loop_111)))))" "(let-values((()" "(begin" -"((letrec-values(((loop_111)" +"((letrec-values(((loop_112)" "(lambda(terminator_0 terminator-accum_0)" "(begin" " 'loop" -"(let-values(((c_97)" +"(let-values(((c_98)" "(let-values(((in_48) in_46)((source_33) source_31))" "(read-char-or-special in_48 special1.1 source_33))))" -"(if(eof-object? c_97)" +"(if(eof-object? c_98)" "(let-values()" "(if(null? terminator_0)" "(void)" "(let-values()" "(let-values(((in101_0) in_46)" "((config102_0) config_50)" -"((c103_0) c_97)" +"((c103_0) c_98)" "((open-end-pos104_0) open-end-pos_5)" "((temp105_3)" " \"found end-of-file before terminating `~a`\")" @@ -53849,11 +53931,11 @@ static const char *startup_source = " config102_0" " temp105_3" "(list temp106_2))))))" -"(if(not(char? c_97))" +"(if(not(char? c_98))" "(let-values()" "(let-values(((in107_0) in_46)" "((config108_0) config_50)" -"((c109_0) c_97)" +"((c109_0) c_98)" "((temp110_2)" " \"found non-character while reading `#<<`\"))" "(reader-error12.1" @@ -53870,13 +53952,13 @@ static const char *startup_source = " temp110_2" "(list))))" "(if(if(pair? terminator_0)" -"(char=? c_97(car terminator_0))" +"(char=? c_98(car terminator_0))" " #f)" "(let-values()" -"(loop_111" +"(loop_112" "(cdr terminator_0)" "(cons(car terminator_0) terminator-accum_0)))" -"(if(if(null? terminator_0)(char=? c_97 '#\\newline) #f)" +"(if(if(null? terminator_0)(char=? c_98 '#\\newline) #f)" "(let-values()(void))" "(let-values()" "(begin" @@ -53884,24 +53966,24 @@ static const char *startup_source = "(void)" "(let-values()" "(begin" -"(let-values(((lst_312)" +"(let-values(((lst_314)" "(reverse$1 terminator-accum_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_312)))" -"((letrec-values(((for-loop_276)" -"(lambda(lst_313)" +"(let-values()(check-list lst_314)))" +"((letrec-values(((for-loop_275)" +"(lambda(lst_315)" "(begin" " 'for-loop" -"(if(pair? lst_313)" +"(if(pair? lst_315)" "(let-values(((c_12)" "(unsafe-car" -" lst_313))" +" lst_315))" "((rest_176)" "(unsafe-cdr" -" lst_313)))" +" lst_315)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -53914,23 +53996,23 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_276" +"(for-loop_275" " rest_176)" "(values))))" "(values))))))" -" for-loop_276)" -" lst_312)))" +" for-loop_275)" +" lst_314)))" "(void))))" -"(if(char=? c_97 '#\\newline)" +"(if(char=? c_98 '#\\newline)" "(let-values()" -"(loop_111" +"(loop_112" "(cdr full-terminator_0)" "(list '#\\newline)))" "(let-values()" "(begin" -"(accum-string-add! accum-str_5 c_97)" -"(loop_111 full-terminator_0 null)))))))))))))))" -" loop_111)" +"(accum-string-add! accum-str_5 c_98)" +"(loop_112 full-terminator_0 null)))))))))))))))" +" loop_112)" "(cdr full-terminator_0)" " null)" "(values))))" @@ -53940,11 +54022,11 @@ static const char *startup_source = "(wrap str_8 in_46 config_50 str_8))))))))))" "(define-values" "(no-hex-digits)" -"(lambda(in_49 config_51 c_98 escaping-c_1 escaped-c_1)" +"(lambda(in_49 config_51 c_99 escaping-c_1 escaped-c_1)" "(begin" "(let-values(((in113_0) in_49)" "((config114_0) config_51)" -"((c115_0) c_98)" +"((c115_0) c_99)" " ((temp116_0) \"no hex digit following `~a~a`\")" "((escaping-c117_0) escaping-c_1)" "((escaped-c118_0) escaped-c_1))" @@ -53965,25 +54047,25 @@ static const char *startup_source = "(read-character)" "(lambda(in_4 config_8)" "(begin" -"(let-values(((c_99)" +"(let-values(((c_100)" "(let-values(((in_44) in_4)((source_34)(read-config-source config_8)))" "(read-char-or-special in_44 special1.1 source_34))))" "(let-values(((char_0)" -"(if(eof-object? c_99)" +"(if(eof-object? c_100)" "(let-values()" "(let-values(((in1_7) in_4)" "((config2_6) config_8)" -"((c3_5) c_99)" +"((c3_5) c_100)" " ((temp4_5) \"expected a character after `#\\\\`\"))" "(reader-error12.1 #f #f c3_5 #t #f #f #f #f in1_7 config2_6 temp4_5(list))))" -"(if(not(char? c_99))" +"(if(not(char? c_100))" "(let-values()" "(let-values(((in5_1) in_4)" "((config6_0) config_8)" -"((c7_1) c_99)" +"((c7_1) c_100)" " ((temp8_3) \"found non-character after `#\\\\`\"))" "(reader-error12.1 #f #f c7_1 #t #f #f #f #f in5_1 config6_0 temp8_3(list))))" -"(if(octal-digit? c_99)" +"(if(octal-digit? c_100)" "(let-values()" "(let-values(((c2_5)" "(let-values(((in_50) in_4)" @@ -54003,23 +54085,23 @@ static const char *startup_source = "(let-values(((in_51) in_4)" "((source_6)(read-config-source config_8)))" "(read-char-or-special in_51 special1.1 source_6))))" -"(let-values(((v_92)" +"(let-values(((v_93)" "(if(if(char? c3_6)(octal-digit? c3_6) #f)" "(let-values()" "(+" -"(arithmetic-shift(digit->number c_99) 6)" +"(arithmetic-shift(digit->number c_100) 6)" "(arithmetic-shift(digit->number c2_5) 3)" "(digit->number c3_6)))" "(let-values() #f))))" "(begin" -"(if(if v_92(<= v_92 255) #f)" +"(if(if v_93(<= v_93 255) #f)" "(void)" "(let-values()" "(let-values(((in9_3) in_4)" "((config10_2) config_8)" "((c311_0) c3_6)" " ((temp12_6) \"bad character constant `#\\\\~a~a~a`\")" -"((c13_2) c_99)" +"((c13_2) c_100)" "((c214_0) c2_5)" " ((temp15_6) (if (char? c3_6) c3_6 \"\")))" "(reader-error12.1" @@ -54035,10 +54117,10 @@ static const char *startup_source = " config10_2" " temp12_6" "(list c13_2 c214_0 temp15_6)))))" -"(integer->char v_92))))))" -"(let-values() c_99))))" -"(if(let-values(((or-part_68)(char=? c_99 '#\\u)))" -"(if or-part_68 or-part_68(char=? c_99 '#\\U)))" +"(integer->char v_93))))))" +"(let-values() c_100))))" +"(if(let-values(((or-part_82)(char=? c_100 '#\\u)))" +"(if or-part_82 or-part_82(char=? c_100 '#\\U)))" "(let-values()" "(let-values(((accum-str_6)(accum-string-init! config_8)))" "(let-values(((v_33)" @@ -54046,7 +54128,7 @@ static const char *startup_source = "((config17_1) config_8)" "((accum-str18_1) accum-str_6)" "((temp19_3) 16)" -"((temp20_5)(if(char=? c_99 '#\\u) 4 8)))" +"((temp20_5)(if(char=? c_100 '#\\u) 4 8)))" "(read-digits13.1" " temp19_3" " #f" @@ -54060,8 +54142,8 @@ static const char *startup_source = " #t))))" "(if(integer? v_33)" "(let-values()" -"(if(if(let-values(((or-part_363)(< v_33 55296)))" -"(if or-part_363 or-part_363(> v_33 57343)))" +"(if(if(let-values(((or-part_93)(< v_33 55296)))" +"(if or-part_93 or-part_93(> v_33 57343)))" "(<= v_33 1114111)" " #f)" "(let-values()" @@ -54087,8 +54169,8 @@ static const char *startup_source = " config22_2" " temp23_4" "(list temp24_8))))))" -"(let-values()(begin(accum-string-abandon! accum-str_6 config_8) c_99))))))" -"(if(char-alphabetic? c_99)" +"(let-values()(begin(accum-string-abandon! accum-str_6 config_8) c_100))))))" +"(if(char-alphabetic? c_100)" "(let-values()" "(let-values(((next-c_4)" "(let-values(((in_52) in_4)" @@ -54104,7 +54186,7 @@ static const char *startup_source = "(if(if(char? next-c_4)(char-alphabetic? next-c_4) #f)" "(let-values()" "(let-values(((accum-str_7)(accum-string-init! config_8)))" -"(let-values((()(begin(accum-string-add! accum-str_7 c_99)(values))))" +"(let-values((()(begin(accum-string-add! accum-str_7 c_100)(values))))" "(let-values((()(begin(accum-string-add! accum-str_7 next-c_4)(values))))" "(let-values((()(begin(consume-char in_4 next-c_4)(values))))" "(let-values((()" @@ -54121,18 +54203,18 @@ static const char *startup_source = "((source_13)" "(read-config-source" " config_8)))" -"(let-values(((c_20)" +"(let-values(((c_73)" "(peek-char-or-special" " in_20" " skip-count_4" " 'special" " source_13)))" "(if(eq?" -" c_20" +" c_73" " 'special)" "(special1.1" " 'special)" -" c_20)))))" +" c_73)))))" "(if(if(char? next-c_5)" "(char-alphabetic?" " next-c_5)" @@ -54158,26 +54240,26 @@ static const char *startup_source = " #f" " accum-str27_0" " config28_1)))))" -"(let-values(((tmp_54) name_67))" -" (if (if (equal? tmp_54 \"nul\") #t (equal? tmp_54 \"null\"))" +"(let-values(((tmp_55) name_67))" +" (if (if (equal? tmp_55 \"nul\") #t (equal? tmp_55 \"null\"))" "(let-values() '#\\nul)" -" (if (equal? tmp_54 \"backspace\")" +" (if (equal? tmp_55 \"backspace\")" "(let-values() '#\\backspace)" -" (if (equal? tmp_54 \"tab\")" +" (if (equal? tmp_55 \"tab\")" "(let-values() '#\\tab)" -" (if (if (equal? tmp_54 \"newline\")" +" (if (if (equal? tmp_55 \"newline\")" " #t" -" (equal? tmp_54 \"linefeed\"))" +" (equal? tmp_55 \"linefeed\"))" "(let-values() '#\\newline)" -" (if (equal? tmp_54 \"vtab\")" +" (if (equal? tmp_55 \"vtab\")" "(let-values() '#\\vtab)" -" (if (equal? tmp_54 \"page\")" +" (if (equal? tmp_55 \"page\")" "(let-values() '#\\page)" -" (if (equal? tmp_54 \"return\")" +" (if (equal? tmp_55 \"return\")" "(let-values() '#\\return)" -" (if (equal? tmp_54 \"space\")" +" (if (equal? tmp_55 \"space\")" "(let-values() '#\\space)" -" (if (equal? tmp_54 \"rubout\")" +" (if (equal? tmp_55 \"rubout\")" "(let-values() '#\\rubout)" "(let-values()" "(let-values(((in29_0) in_4)" @@ -54198,8 +54280,8 @@ static const char *startup_source = " config30_0" " temp31_5" "(list name32_0)))))))))))))))))))))" -"(let-values() c_99))))" -"(let-values() c_99))))))))" +"(let-values() c_100))))" +"(let-values() c_100))))))))" "(wrap char_0 in_4 config_8 char_0))))))" "(define-values" "(read-quote)" @@ -54227,7 +54309,7 @@ static const char *startup_source = "(let-values(((accum-str_8)(accum-string-init! config_22)))" "(begin" "(accum-string-add! accum-str_8 init-c_1)" -"((letrec-values(((loop_112)" +"((letrec-values(((loop_113)" "(lambda(chars_1)" "(begin" " 'loop" @@ -54235,13 +54317,13 @@ static const char *startup_source = "(let-values(((in_53) in_44)" "((skip-count_13) 0)" "((source_4)(read-config-source config_22)))" -"(let-values(((c_94)" +"(let-values(((c_95)" "(peek-char-or-special" " in_53" " skip-count_13" " 'special" " source_4)))" -"(if(eq? c_94 'special)(special1.1 'special) c_94)))))" +"(if(eq? c_95 'special)(special1.1 'special) c_95)))))" "(if(char-delimiter? c_37 config_22)" "(let-values()" "(if(null? chars_1)" @@ -54297,7 +54379,7 @@ static const char *startup_source = "(begin" "(consume-char in_44 c_37)" "(accum-string-add! accum-str_8 c_37)" -"(loop_112(cdr chars_1))))" +"(loop_113(cdr chars_1))))" "(let-values()" "(begin" "(consume-char/special in_44 config_22 c_37)" @@ -54322,7 +54404,7 @@ static const char *startup_source = " config15_2" " temp16_7" "(list temp17_3)))))))))))))" -" loop_112)" +" loop_113)" " chars_0)" "(wrap" " val_80" @@ -54380,8 +54462,8 @@ static const char *startup_source = "(read-char-or-special in_54 special1.1 source_36))))" "(let-values(((no-wrap-config_0)(disable-wrapping config_15)))" "(let-values(((rx_0)" -"(let-values(((tmp_55) c3_8))" -" (if (equal? tmp_55 '#\\\")" +"(let-values(((tmp_56) c3_8))" +" (if (equal? tmp_56 '#\\\")" "(let-values()" "(let-values((()(begin(accum-string-abandon! accum-str_9 config_15)(values))))" "(let-values(((str_30)" @@ -54391,15 +54473,15 @@ static const char *startup_source = " in_5" " config_15" "(lambda()((if(char=? mode-c_0 '#\\r) regexp pregexp) str_30))))))" -"(if(equal? tmp_55 '#\\#)" +"(if(equal? tmp_56 '#\\#)" "(let-values()" "(let-values((()(begin(accum-string-add! accum-str_9 c3_8)(values))))" "(let-values(((c4_2)" "(let-values(((in_28) in_5)" "((source_37)(read-config-source config_15)))" "(read-char-or-special in_28 special1.1 source_37))))" -"(let-values(((tmp_56) c4_2))" -" (if (equal? tmp_56 '#\\\")" +"(let-values(((tmp_57) c4_2))" +" (if (equal? tmp_57 '#\\\")" "(let-values()" "(let-values((()" "(begin(accum-string-abandon! accum-str_9 config_15)(values))))" @@ -54540,11 +54622,11 @@ static const char *startup_source = "(let-values()" "(let-values(((extend-str_1)" "(read-extension-prefix(cons dispatch-c_3 '(#\\l)) '(#\\a #\\n #\\g) in_55 config_52)))" -"(let-values(((c_91)" +"(let-values(((c_92)" "(let-values(((in_14) in_55)((source_17)(read-config-source config_52)))" "(read-char-or-special in_14 special1.1 source_17))))" "(begin" -"(if(char=? c_91 '#\\space)" +"(if(char=? c_92 '#\\space)" "(void)" "(let-values()" "(let-values(((in67_1) in_55)" @@ -54591,23 +54673,23 @@ static const char *startup_source = "(let-values(((config_53) config15_3))" "(let-values(((get-info?_1)(if get-info?11_0 get-info?10_0 #f)))" "(let-values()" -"(let-values(((c_100)" +"(let-values(((c_101)" "(let-values(((in_57) in_56)((source_38)(read-config-source config_53)))" "(read-char-or-special in_57 special1.1 source_38))))" "(begin" -"(if(char-lang-nonsep? c_100)" +"(if(char-lang-nonsep? c_101)" "(void)" "(let-values()" "(let-values(((in78_0) in_56)" "((config79_0) config_53)" "((temp80_3)" -"(if(char? c_100)(string dispatch-c_4 '#\\! c_100)(string dispatch-c_4 '#\\!))))" +"(if(char? c_101)(string dispatch-c_4 '#\\! c_101)(string dispatch-c_4 '#\\!))))" "(bad-syntax-error20.1 #f #f in78_0 config79_0 temp80_3))))" "(let-values(((temp71_2)(string dispatch-c_4 '#\\!))" "((read-recur72_0) read-recur_2)" "((in73_0) in_56)" "((config74_0) config_53)" -"((c75_0) c_100)" +"((c75_0) c_101)" "((temp76_1) '|#!|)" "((get-info?77_0) get-info?_1))" "(read-lang29.1" @@ -54668,7 +54750,7 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"((letrec-values(((loop_113)" +"((letrec-values(((loop_114)" "(lambda()" "(begin" " 'loop" @@ -54678,15 +54760,15 @@ static const char *startup_source = "((source_39)" "(read-config-source" " config_54)))" -"(let-values(((c_101)" +"(let-values(((c_102)" "(peek-char-or-special" " in_59" " skip-count_14" " 'special" " source_39)))" -"(if(eq? c_101 'special)" +"(if(eq? c_102 'special)" "(special1.1 'special)" -" c_101)))))" +" c_102)))))" "(if(eof-object? c_9)" "(let-values()(void))" "(if(not(char? c_9))" @@ -54715,16 +54797,16 @@ static const char *startup_source = "(list extend-str96_0)))))" "(if(char-whitespace? c_9)" "(let-values()(void))" -"(if(let-values(((or-part_183)" +"(if(let-values(((or-part_169)" "(char-lang-nonsep? c_9)))" -"(if or-part_183" -" or-part_183" +"(if or-part_169" +" or-part_169" "(char=? '#\\/ c_9)))" "(let-values()" "(begin" "(consume-char in_58 c_9)" "(accum-string-add! accum-str_10 c_9)" -"(loop_113)))" +"(loop_114)))" "(let-values()" "(begin" "(consume-char in_58 c_9)" @@ -54752,7 +54834,7 @@ static const char *startup_source = "(list" " extend-str100_0" " c101_0))))))))))))))" -" loop_113))" +" loop_114))" "(values))))" "(let-values(((lang-str_0)" "(let-values(((accum-str102_0) accum-str_10)((config103_0) config_54))" @@ -54857,20 +54939,20 @@ static const char *startup_source = " temp85_1))))))))))))))))))))))))" "(define-values" "(char-lang-nonsep?)" -"(lambda(c_102)" +"(lambda(c_103)" "(begin" -"(if(<(char->integer c_102) 128)" -"(let-values(((or-part_280)(char-alphabetic? c_102)))" -"(if or-part_280" -" or-part_280" -"(let-values(((or-part_364)(char-numeric? c_102)))" -"(if or-part_364" -" or-part_364" -"(let-values(((or-part_306)(char=? '#\\- c_102)))" -"(if or-part_306" -" or-part_306" -"(let-values(((or-part_184)(char=? '#\\+ c_102)))" -"(if or-part_184 or-part_184(char=? '#\\_ c_102)))))))))" +"(if(<(char->integer c_103) 128)" +"(let-values(((or-part_265)(char-alphabetic? c_103)))" +"(if or-part_265" +" or-part_265" +"(let-values(((or-part_349)(char-numeric? c_103)))" +"(if or-part_349" +" or-part_349" +"(let-values(((or-part_294)(char=? '#\\- c_103)))" +"(if or-part_294" +" or-part_294" +"(let-values(((or-part_170)(char=? '#\\+ c_103)))" +"(if or-part_170 or-part_170(char=? '#\\_ c_103)))))))))" " #f))))" "(define-values" "(read-extension-prefix)" @@ -54878,28 +54960,28 @@ static const char *startup_source = "(begin" "(let-values(((accum-str_11)(accum-string-init! config_55)))" "(begin" -"(let-values(((lst_314) already_0))" +"(let-values(((lst_316) already_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_314)))" -"((letrec-values(((for-loop_277)" -"(lambda(lst_315)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_316)))" +"((letrec-values(((for-loop_276)" +"(lambda(lst_317)" "(begin" " 'for-loop" -"(if(pair? lst_315)" -"(let-values(((c_103)(unsafe-car lst_315))((rest_177)(unsafe-cdr lst_315)))" +"(if(pair? lst_317)" +"(let-values(((c_104)(unsafe-car lst_317))((rest_177)(unsafe-cdr lst_317)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(accum-string-add! accum-str_11 c_103))" +"(accum-string-add! accum-str_11 c_104))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_277 rest_177)(values))))" +"(if(not #f)(for-loop_276 rest_177)(values))))" "(values))))))" -" for-loop_277)" -" lst_314)))" +" for-loop_276)" +" lst_316)))" "(void)" "((letrec-values(((loop_12)" "(lambda(wanted_1)" @@ -55118,10 +55200,10 @@ static const char *startup_source = "(lambda(in_51 config_57 prefix_7 c_49)" "(begin" "(let-values(((add-prefix_0)" -"(lambda(s_425)" +"(lambda(s_75)" "(begin" " 'add-prefix" -" (if (string=? prefix_7 \"\") (format \"`~a` followed by ~a\" prefix_7 s_425) s_425)))))" +" (if (string=? prefix_7 \"\") (format \"`~a` followed by ~a\" prefix_7 s_75) s_75)))))" "(let-values(((in11_2) in_51)" "((config12_4) config_57)" "((c13_3) c_49)" @@ -55244,8 +55326,8 @@ static const char *startup_source = " wrap63_0" " #t)))))))" "(let-values(((v_243)(read-one init-c_15 in_12 config_58)))" -"(if(if(let-values(((or-part_93)(not recursive?_0)))" -"(if or-part_93 or-part_93 local-graph?_1))" +"(if(if(let-values(((or-part_95)(not recursive?_0)))" +"(if or-part_95 or-part_95 local-graph?_1))" "(read-config-state-graph(read-config-st config_58))" " #f)" "(let-values()" @@ -55341,31 +55423,31 @@ static const char *startup_source = "(if(1/special-comment? v_244)" "(let-values() v_244)" "(let-values()" -"((letrec-values(((loop_114)" +"((letrec-values(((loop_115)" "(lambda(v_245)" "(begin" " 'loop" -"(let-values(((c_104)" +"(let-values(((c_105)" "(let-values(((in_65) in_64)" "((skip-count_15) 0)" "((source_43)(read-config-source config_61)))" -"(let-values(((c_105)" +"(let-values(((c_106)" "(peek-char-or-special" " in_65" " skip-count_15" " 'special" " source_43)))" -"(if(eq? c_105 'special)(special1.1 'special) c_105)))))" -"(let-values(((ec_9)(effective-char c_104 config_61)))" +"(if(eq? c_106 'special)(special1.1 'special) c_106)))))" +"(let-values(((ec_9)(effective-char c_105 config_61)))" "(if(not(char? ec_9))" "(let-values() v_245)" "(if(char-whitespace? ec_9)" -"(let-values()(begin(consume-char in_64 c_104)(loop_114 v_245)))" +"(let-values()(begin(consume-char in_64 c_105)(loop_115 v_245)))" "(if(char=? ec_9 '#\\.)" "(let-values()" "(let-values(((dot-line_2 dot-col_2 dot-pos_5)" "(port-next-location in_64)))" -"(let-values((()(begin(consume-char in_64 c_104)(values))))" +"(let-values((()(begin(consume-char in_64 c_105)(values))))" "(let-values(((cdot_0)" "(wrap" " '#%dot" @@ -55378,38 +55460,38 @@ static const char *startup_source = " '#\\.)))" "(let-values(((post-v_0)" "(read-undotted #f in_64 config_61)))" -"(loop_114" +"(loop_115" "(wrap" "(list cdot_0 v_245 post-v_0)" " in_64" "(reading-at config_61 line_11 col_10 pos_122)" " '#\\.)))))))" "(let-values() v_245))))))))))" -" loop_114)" +" loop_115)" " v_244))))))" "(void))))))" "(define-values" "(read-undotted)" "(lambda(init-c_17 in_62 config_56)" "(begin" -"(let-values(((c_106)(read-char/skip-whitespace-and-comments init-c_17 read-one in_62 config_56)))" -"(let-values(((line_12 col_11 pos_123)(port-next-location* in_62 c_106)))" -"(if(eof-object? c_106)" +"(let-values(((c_107)(read-char/skip-whitespace-and-comments init-c_17 read-one in_62 config_56)))" +"(let-values(((line_12 col_11 pos_123)(port-next-location* in_62 c_107)))" +"(if(eof-object? c_107)" "(let-values() eof)" -"(if(not(char? c_106))" +"(if(not(char? c_107))" "(let-values()" -"(let-values(((v_246)(special-value c_106)))" +"(let-values(((v_246)(special-value c_107)))" "(if(1/special-comment? v_246)" "(let-values()(if(read-config-keep-comment? config_56) v_246(read-undotted #f in_62 config_56)))" "(let-values()(coerce v_246 in_62(reading-at config_56 line_12 col_11 pos_123))))))" -"(let-values(((c2_8)(readtable-handler config_56 c_106)))" +"(let-values(((c2_8)(readtable-handler config_56 c_107)))" "(if c2_8" "((lambda(handler_3)" -"(let-values(((v_43)(readtable-apply handler_3 c_106 in_62 config_56 line_12 col_11 pos_123)))" +"(let-values(((v_43)(readtable-apply handler_3 c_107 in_62 config_56 line_12 col_11 pos_123)))" "(retry-special-comment v_43 in_62 config_56)))" " c2_8)" "(let-values()" -"(let-values(((ec_10)(effective-char c_106 config_56)))" +"(let-values(((ec_10)(effective-char c_107 config_56)))" "(let-values((()" "(begin" "(if(not(char-closer? ec_10 config_56))" @@ -55417,10 +55499,10 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((r-config_0)(reading-at(discard-comment config_56) line_12 col_11 pos_123)))" -"(let-values(((tmp_57) ec_10))" +"(let-values(((tmp_58) ec_10))" "(let-values(((index_4)" -"(if(char? tmp_57)" -"(let-values(((codepoint_2)(char->integer tmp_57)))" +"(if(char? tmp_58)" +"(let-values(((codepoint_2)(char->integer tmp_58)))" "(if(if(unsafe-fx>= codepoint_2 34)(unsafe-fx< codepoint_2 126) #f)" "(if(unsafe-fx< codepoint_2 91)" "(if(unsafe-fx< codepoint_2 40)" @@ -55476,13 +55558,13 @@ static const char *startup_source = "(if(unsafe-fx< index_4 1)" "(let-values()" "(let-values(((v_247)" -"(let-values(((c79_1) c_106)" +"(let-values(((c79_1) c_107)" "((in80_1) in_62)" "((r-config81_0) r-config_0)" "((temp82_5)" -"(if(let-values(((or-part_328)(eq? c_106 ec_10)))" -"(if or-part_328" -" or-part_328" +"(if(let-values(((or-part_315)(eq? c_107 ec_10)))" +"(if or-part_315" +" or-part_315" "(if(<(char->integer ec_10) 128)" "(char-numeric? ec_10)" " #f)))" @@ -55497,9 +55579,9 @@ static const char *startup_source = " in80_1" " r-config81_0))))" "(retry-special-comment v_247 in_62 config_56)))" -"(let-values()(read-dispatch c_106 in_62 r-config_0 config_56)))" +"(let-values()(read-dispatch c_107 in_62 r-config_0 config_56)))" "(if(unsafe-fx< index_4 3)" -" (let-values () (read-quote read-one 'quote \"quoting \\\"'\\\"\" c_106 in_62 r-config_0))" +" (let-values () (read-quote read-one 'quote \"quoting \\\"'\\\"\" c_107 in_62 r-config_0))" "(if(unsafe-fx< index_4 4)" "(let-values()" "(if(check-parameter 1/read-accept-quasiquote config_56)" @@ -55508,14 +55590,14 @@ static const char *startup_source = " read-one" " 'quasiquote" " \"quasiquoting \\\"`\\\"\"" -" c_106" +" c_107" " in_62" " r-config_0))" "(let-values()" "(let-values(((in83_0) in_62)" "((r-config84_0) r-config_0)" " ((temp85_2) \"illegal use of `~a`\")" -"((c86_0) c_106))" +"((c86_0) c_107))" "(reader-error12.1" " #f" " #f" @@ -55537,15 +55619,15 @@ static const char *startup_source = "(let-values(((in_66) in_62)" "((skip-count_16) 0)" "((source_44)(read-config-source config_56)))" -"(let-values(((c_107)" +"(let-values(((c_108)" "(peek-char-or-special" " in_66" " skip-count_16" " 'special" " source_44)))" -"(if(eq? c_107 'special)" +"(if(eq? c_108 'special)" "(special1.1 'special)" -" c_107)))))" +" c_108)))))" "(if(eqv? c2_9 '#\\@)" "(begin" "(consume-char in_62 c2_9)" @@ -55553,21 +55635,21 @@ static const char *startup_source = " read-one" " 'unquote-splicing" " \"unquoting `,@`\"" -" c_106" +" c_107" " in_62" " r-config_0))" "(read-quote" " read-one" " 'unquote" " \"unquoting `,`\"" -" c_106" +" c_107" " in_62" " r-config_0))))" "(let-values()" "(let-values(((in87_0) in_62)" "((r-config88_0) r-config_0)" " ((temp89_3) \"illegal use of `~a`\")" -"((c90_0) c_106))" +"((c90_0) c_107))" "(reader-error12.1" " #f" " #f" @@ -55617,7 +55699,7 @@ static const char *startup_source = "((r-config99_0) r-config_0)" " ((temp100_4) \"~a\")" "((temp101_3)" -"(indentation-unexpected-closer-message ec_10 c_106 r-config_0)))" +"(indentation-unexpected-closer-message ec_10 c_107 r-config_0)))" "(reader-error12.1" " #f" " #f" @@ -55633,10 +55715,10 @@ static const char *startup_source = "(list temp101_3))))" "(if(unsafe-fx< index_4 8)" "(let-values()" -"(if(let-values(((or-part_365)" +"(if(let-values(((or-part_350)" "(check-parameter 1/read-square-bracket-as-paren config_56)))" -"(if or-part_365" -" or-part_365" +"(if or-part_350" +" or-part_350" "(check-parameter 1/read-square-bracket-with-tag config_56)))" "(let-values()" "(wrap" @@ -55671,7 +55753,7 @@ static const char *startup_source = "(let-values(((in109_0) in_62)" "((r-config110_0) r-config_0)" " ((temp111_0) \"illegal use of `~a`\")" -"((c112_0) c_106))" +"((c112_0) c_107))" "(reader-error12.1" " #f" " #f" @@ -55686,10 +55768,10 @@ static const char *startup_source = " temp111_0" "(list c112_0))))))" "(let-values()" -"(if(let-values(((or-part_366)" +"(if(let-values(((or-part_351)" "(check-parameter 1/read-square-bracket-as-paren config_56)))" -"(if or-part_366" -" or-part_366" +"(if or-part_351" +" or-part_351" "(check-parameter 1/read-square-bracket-with-tag config_56)))" "(let-values()" "(let-values(((in113_1) in_62)" @@ -55698,7 +55780,7 @@ static const char *startup_source = "((temp116_1)" "(indentation-unexpected-closer-message" " ec_10" -" c_106" +" c_107" " r-config_0)))" "(reader-error12.1" " #f" @@ -55717,7 +55799,7 @@ static const char *startup_source = "(let-values(((in117_0) in_62)" "((r-config118_0) r-config_0)" " ((temp119_2) \"illegal use of `~a`\")" -"((c120_0) c_106))" +"((c120_0) c_107))" "(reader-error12.1" " #f" " #f" @@ -55733,10 +55815,10 @@ static const char *startup_source = "(list c120_0))))))))" "(if(unsafe-fx< index_4 10)" "(let-values()" -"(if(let-values(((or-part_367)" +"(if(let-values(((or-part_352)" "(check-parameter 1/read-curly-brace-as-paren config_56)))" -"(if or-part_367" -" or-part_367" +"(if or-part_352" +" or-part_352" "(check-parameter 1/read-curly-brace-with-tag config_56)))" "(let-values()" "(wrap" @@ -55771,7 +55853,7 @@ static const char *startup_source = "(let-values(((in128_0) in_62)" "((r-config129_0) r-config_0)" " ((temp130_2) \"illegal use of `~a`\")" -"((c131_0) c_106))" +"((c131_0) c_107))" "(reader-error12.1" " #f" " #f" @@ -55787,10 +55869,10 @@ static const char *startup_source = "(list c131_0))))))" "(if(unsafe-fx< index_4 11)" "(let-values()" -"(if(let-values(((or-part_368)" +"(if(let-values(((or-part_353)" "(check-parameter 1/read-curly-brace-as-paren config_56)))" -"(if or-part_368" -" or-part_368" +"(if or-part_353" +" or-part_353" "(check-parameter 1/read-curly-brace-with-tag config_56)))" "(let-values()" "(let-values(((in132_0) in_62)" @@ -55799,7 +55881,7 @@ static const char *startup_source = "((temp135_2)" "(indentation-unexpected-closer-message" " ec_10" -" c_106" +" c_107" " r-config_0)))" "(reader-error12.1" " #f" @@ -55818,7 +55900,7 @@ static const char *startup_source = "(let-values(((in136_0) in_62)" "((r-config137_0) r-config_0)" " ((temp138_3) \"illegal use of `~a`\")" -"((c139_0) c_106))" +"((c139_0) c_107))" "(reader-error12.1" " #f" " #f" @@ -55837,7 +55919,7 @@ static const char *startup_source = "(let-values(((in140_0) in_62)((r-config141_0) r-config_0))" "(read-string5.1 #f #f in140_0 r-config141_0)))" "(let-values()" -"(let-values(((c142_0) c_106)" +"(let-values(((c142_0) c_107)" "((in143_0) in_62)" "((r-config144_0) r-config_0)" "((temp145_3) 'symbol))" @@ -55853,41 +55935,41 @@ static const char *startup_source = "(read-dispatch)" "(lambda(dispatch-c_5 in_67 config_62 orig-config_0)" "(begin" -"(let-values(((c_108)" +"(let-values(((c_109)" "(let-values(((in_68) in_67)((source_45)(read-config-source config_62)))" "(read-char-or-special in_68 special1.1 source_45))))" -"(if(eof-object? c_108)" +"(if(eof-object? c_109)" "(let-values()" "(let-values(((in146_0) in_67)" "((config147_0) config_62)" -"((c148_0) c_108)" +"((c148_0) c_109)" " ((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_1(list dispatch-c150_0))))" -"(if(not(char? c_108))" +"(if(not(char? c_109))" "(let-values()" "(let-values(((in151_0) in_67)" "((config152_0) config_62)" -"((c153_0) c_108)" +"((c153_0) c_109)" " ((temp154_1) \"bad syntax `~a`\")" "((dispatch-c155_0) dispatch-c_5))" "(reader-error12.1 #f #f c153_0 #t #f #f #f #f in151_0 config152_0 temp154_1(list dispatch-c155_0))))" -"(let-values(((c3_9)(readtable-dispatch-handler orig-config_0 c_108)))" +"(let-values(((c3_9)(readtable-dispatch-handler orig-config_0 c_109)))" "(if c3_9" "((lambda(handler_4)" "(let-values(((line_13)(read-config-line config_62)))" "(let-values(((col_12)(read-config-col config_62)))" "(let-values(((pos_124)(read-config-pos config_62)))" "(let-values(((v_248)" -"(readtable-apply handler_4 c_108 in_67 config_62 line_13 col_12 pos_124)))" +"(readtable-apply handler_4 c_109 in_67 config_62 line_13 col_12 pos_124)))" "(retry-special-comment v_248 in_67 orig-config_0))))))" " c3_9)" "(let-values()" "(let-values()" -"(let-values(((tmp_58) c_108))" +"(let-values(((tmp_59) c_109))" "(let-values(((index_5)" -"(if(char? tmp_58)" -"(let-values(((codepoint_3)(char->integer tmp_58)))" +"(if(char? tmp_59)" +"(let-values(((codepoint_3)(char->integer tmp_59)))" "(if(if(unsafe-fx>= codepoint_3 33)(unsafe-fx< codepoint_3 127) #f)" "(let-values(((tbl_5)" " '#(34" @@ -55996,7 +56078,7 @@ static const char *startup_source = "((config157_0) config_62)" " ((temp158_2) \"bad syntax `~a~a`\")" "((dispatch-c159_0) dispatch-c_5)" -"((c160_0) c_108))" +"((c160_0) c_109))" "(reader-error12.1" " #f" " #f" @@ -56011,7 +56093,7 @@ static const char *startup_source = " temp158_2" "(list dispatch-c159_0 c160_0))))" "(if(unsafe-fx< index_5 2)" -"(let-values()(read-vector-or-graph read-one dispatch-c_5 c_108 in_67 config_62))" +"(let-values()(read-vector-or-graph read-one dispatch-c_5 c_109 in_67 config_62))" "(let-values()" "(let-values(((read-one161_0) read-one)" "((temp162_2) '#\\()" @@ -56055,7 +56137,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in173_0) in_67)" "((config174_0) config_62)" -" ((temp175_0) (format \"~a~a\" dispatch-c_5 c_108)))" +" ((temp175_0) (format \"~a~a\" dispatch-c_5 c_109)))" "(bad-syntax-error20.1 #f #f in173_0 config174_0 temp175_0)))))" "(let-values()" "(if(check-parameter 1/read-curly-brace-as-paren config_62)" @@ -56080,30 +56162,30 @@ static const char *startup_source = "(let-values()" "(let-values(((in182_0) in_67)" "((config183_0) config_62)" -" ((temp184_0) (format \"~a~a\" dispatch-c_5 c_108)))" +" ((temp184_0) (format \"~a~a\" dispatch-c_5 c_109)))" "(bad-syntax-error20.1 #f #f in182_0 config183_0 temp184_0))))))" "(if(unsafe-fx< index_5 6)" "(let-values()(read-struct read-one dispatch-c_5 in_67 config_62))" "(if(unsafe-fx< index_5 7)" "(let-values()(read-box read-one dispatch-c_5 in_67 config_62))" -" (let-values () (read-quote read-one 'syntax \"quoting #'\" c_108 in_67 config_62))))))" +" (let-values () (read-quote read-one 'syntax \"quoting #'\" c_109 in_67 config_62))))))" "(if(unsafe-fx< index_5 12)" "(if(unsafe-fx< index_5 9)" "(let-values()" -" (read-quote read-one 'quasisyntax \"quasiquoting #`\" c_108 in_67 config_62))" +" (read-quote read-one 'quasisyntax \"quasiquoting #`\" c_109 in_67 config_62))" "(if(unsafe-fx< index_5 10)" "(let-values()" "(let-values(((c2_10)" "(let-values(((in_69) in_67)" "((skip-count_17) 0)" "((source_46)(read-config-source config_62)))" -"(let-values(((c_109)" +"(let-values(((c_110)" "(peek-char-or-special" " in_69" " skip-count_17" " 'special" " source_46)))" -"(if(eq? c_109 'special)(special1.1 'special) c_109)))))" +"(if(eq? c_110 'special)(special1.1 'special) c_110)))))" "(if(eqv? c2_10 '#\\@)" "(begin" "(consume-char in_67 c2_10)" @@ -56111,10 +56193,10 @@ static const char *startup_source = " read-one" " 'unsyntax-splicing" " \"unquoting #,@\"" -" c_108" +" c_109" " in_67" " config_62))" -" (read-quote read-one 'unsyntax \"unquoting #,\" c_108 in_67 config_62))))" +" (read-quote read-one 'unsyntax \"unquoting #,\" c_109 in_67 config_62))))" "(if(unsafe-fx< index_5 11)" "(let-values()(read-character in_67 config_62))" "(let-values()" @@ -56129,13 +56211,13 @@ static const char *startup_source = "(let-values(((in_70) in_67)" "((skip-count_18) 0)" "((source_47)(read-config-source config_62)))" -"(let-values(((c_110)" +"(let-values(((c_111)" "(peek-char-or-special" " in_70" " skip-count_18" " 'special" " source_47)))" -"(if(eq? c_110 'special)(special1.1 'special) c_110)))))" +"(if(eq? c_111 'special)(special1.1 'special) c_111)))))" "(if(eqv? '#\\< c2_11)" "(let-values()" "(begin(consume-char in_67 '#\\<)(read-here-string in_67 config_62)))" @@ -56159,7 +56241,7 @@ static const char *startup_source = " temp191_0" "(list dispatch-c192_0)))))))" "(let-values()" -"(let-values(((c193_0) c_108)" +"(let-values(((c193_0) c_109)" "((in194_0) in_67)" "((config195_0) config_62)" "((dispatch-c196_0) dispatch-c_5)" @@ -56185,19 +56267,19 @@ static const char *startup_source = "(let-values(((in_71) in_67)" "((skip-count_19) 0)" "((source_48)(read-config-source config_62)))" -"(let-values(((c_111)" +"(let-values(((c_112)" "(peek-char-or-special" " in_71" " skip-count_19" " 'special" " source_48)))" -"(if(eq? c_111 'special)(special1.1 'special) c_111)))))" +"(if(eq? c_112 'special)(special1.1 'special) c_112)))))" "(if(char-delimiter? c2_12 config_62)" -"(let-values()(wrap #t in_67 config_62 c_108))" +"(let-values()(wrap #t in_67 config_62 c_109))" "(let-values()" "(read-delimited-constant" -" c_108" -"(char=? c_108 '#\\t)" +" c_109" +"(char=? c_109 '#\\t)" " '(#\\r #\\u #\\e)" " #t" " in_67" @@ -56207,29 +56289,29 @@ static const char *startup_source = "(let-values(((in_72) in_67)" "((skip-count_20) 0)" "((source_49)(read-config-source config_62)))" -"(let-values(((c_112)" +"(let-values(((c_113)" "(peek-char-or-special" " in_72" " skip-count_20" " 'special" " source_49)))" -"(if(eq? c_112 'special)(special1.1 'special) c_112)))))" +"(if(eq? c_113 'special)(special1.1 'special) c_113)))))" "(if(char-delimiter? c2_13 config_62)" -"(let-values()(wrap #f in_67 config_62 c_108))" -"(if(let-values(((or-part_351)(char=? c2_13 '#\\x)))" -"(if or-part_351 or-part_351(char=? c2_13 '#\\l)))" +"(let-values()(wrap #f in_67 config_62 c_109))" +"(if(let-values(((or-part_338)(char=? c2_13 '#\\x)))" +"(if or-part_338 or-part_338(char=? c2_13 '#\\l)))" "(let-values()" "(read-fixnum-or-flonum-vector" " read-one" " dispatch-c_5" -" c_108" +" c_109" " c2_13" " in_67" " config_62))" "(let-values()" "(read-delimited-constant" -" c_108" -"(char=? c_108 '#\\f)" +" c_109" +"(char=? c_109 '#\\f)" " '(#\\a #\\l #\\s #\\e)" " #f" " in_67" @@ -56331,11 +56413,11 @@ static const char *startup_source = "(let-values(((in_73) in_67)" "((source_50)(read-config-source config_62)))" "(read-char-or-special in_73 special1.1 source_50))))" -"(let-values(((tmp_59) c2_14))" -"(if(if(equal? tmp_59 '#\\s) #t(equal? tmp_59 '#\\S))" +"(let-values(((tmp_60) c2_14))" +"(if(if(equal? tmp_60 '#\\s) #t(equal? tmp_60 '#\\S))" "(let-values()" "(read-one #f in_67(override-parameter read-case-sensitive config_62 #t)))" -"(if(if(equal? tmp_59 '#\\i) #t(equal? tmp_59 '#\\I))" +"(if(if(equal? tmp_60 '#\\i) #t(equal? tmp_60 '#\\I))" "(let-values()" "(read-one" " #f" @@ -56347,7 +56429,7 @@ static const char *startup_source = "((c2252_0) c2_14)" " ((temp253_0) \"expected `s', `S`, `i`, or `I` after `~a~a`\")" "((dispatch-c254_0) dispatch-c_5)" -"((c255_0) c_108))" +"((c255_0) c_109))" "(reader-error12.1" " #f" " #f" @@ -56363,11 +56445,11 @@ static const char *startup_source = "(list dispatch-c254_0 c255_0))))))))))))" "(if(unsafe-fx< index_5 32)" "(if(unsafe-fx< index_5 31)" -"(let-values()(read-hash read-one dispatch-c_5 c_108 in_67 config_62))" +"(let-values()(read-hash read-one dispatch-c_5 c_109 in_67 config_62))" "(let-values()" "(let-values(((accum-str_12)(accum-string-init! config_62)))" "(let-values((()(begin(accum-string-add! accum-str_12 dispatch-c_5)(values))))" -"(let-values((()(begin(accum-string-add! accum-str_12 c_108)(values))))" +"(let-values((()(begin(accum-string-add! accum-str_12 c_109)(values))))" "(let-values(((c2_15)" "(let-values(((in_74) in_67)" "((source_51)(read-config-source config_62)))" @@ -56376,10 +56458,10 @@ static const char *startup_source = "(if(char? c2_15)" "(let-values()(accum-string-add! accum-str_12 c2_15))" "(void))" -"(let-values(((tmp_60) c2_15))" -"(if(equal? tmp_60 '#\\x)" -"(let-values()(read-regexp c_108 accum-str_12 in_67 config_62))" -"(if(equal? tmp_60 '#\\e)" +"(let-values(((tmp_61) c2_15))" +"(if(equal? tmp_61 '#\\x)" +"(let-values()(read-regexp c_109 accum-str_12 in_67 config_62))" +"(if(equal? tmp_61 '#\\e)" "(let-values()" "(read-extension-reader" " read-one" @@ -56409,7 +56491,7 @@ static const char *startup_source = "(let-values()" "(let-values(((accum-str_13)(accum-string-init! config_62)))" "(let-values((()(begin(accum-string-add! accum-str_13 dispatch-c_5)(values))))" -"(let-values((()(begin(accum-string-add! accum-str_13 c_108)(values))))" +"(let-values((()(begin(accum-string-add! accum-str_13 c_109)(values))))" "(let-values(((c2_16)" "(let-values(((in_75) in_67)" "((source_52)(read-config-source config_62)))" @@ -56418,9 +56500,9 @@ static const char *startup_source = "(if(char? c2_16)" "(let-values()(accum-string-add! accum-str_13 c2_16))" "(void))" -"(let-values(((tmp_61) c2_16))" -"(if(equal? tmp_61 '#\\x)" -"(let-values()(read-regexp c_108 accum-str_13 in_67 config_62))" +"(let-values(((tmp_62) c2_16))" +"(if(equal? tmp_62 '#\\x)" +"(let-values()(read-regexp c_109 accum-str_13 in_67 config_62))" "(let-values()" "(let-values(((in262_0) in_67)" "((config263_0) config_62)" @@ -56468,7 +56550,7 @@ static const char *startup_source = "(let-values()" "(if(check-parameter 1/read-accept-compiled config_62)" "(let-values()" -"(wrap((read-config-read-compiled config_62) in_67) in_67 config_62 c_108))" +"(wrap((read-config-read-compiled config_62) in_67) in_67 config_62 c_109))" "(let-values()" "(let-values(((in276_0) in_67)" "((config277_0) config_62)" @@ -56781,19 +56863,19 @@ static const char *startup_source = "(namespace->module/complain)" "(lambda(who_33 ns_116 name_71)" "(begin" -"(let-values(((or-part_225)(namespace->module ns_116 name_71)))" -"(if or-part_225" -" or-part_225" +"(let-values(((or-part_211)(namespace->module ns_116 name_71)))" +"(if or-part_211" +" or-part_211" " (raise-arguments-error who_33 \"unknown module in the current namespace\" \"name\" name_71))))))" "(define-values" "(module-reference?)" "(lambda(mod_24)" "(begin" -"(let-values(((or-part_261)(1/module-path? mod_24)))" -"(if or-part_261" -" or-part_261" -"(let-values(((or-part_369)(1/module-path-index? mod_24)))" -"(if or-part_369 or-part_369(1/resolved-module-path? mod_24))))))))" +"(let-values(((or-part_244)(1/module-path? mod_24)))" +"(if or-part_244" +" or-part_244" +"(let-values(((or-part_354)(1/module-path-index? mod_24)))" +"(if or-part_354 or-part_354(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)" @@ -56959,27 +57041,27 @@ static const char *startup_source = "(read-to-syntax)" "(lambda(s-exp_4 srcloc_11 rep_1)" "(begin" -"(let-values(((the-struct_88) empty-syntax))" -"(if(syntax?$1 the-struct_88)" +"(let-values(((the-struct_86) empty-syntax))" +"(if(syntax?$1 the-struct_86)" "(let-values(((content63_0)(datum-intern-literal s-exp_4))" "((srcloc64_0) srcloc_11)" "((props65_0)" -"(let-values(((tmp_62) rep_1))" -"(if(equal? tmp_62 '#\\[)" +"(let-values(((tmp_63) rep_1))" +"(if(equal? tmp_63 '#\\[)" "(let-values() original-square-props)" -"(if(equal? tmp_62 '#\\{)" +"(if(equal? tmp_63 '#\\{)" "(let-values() original-curly-props)" "(let-values() original-props))))))" "(syntax1.1" " content63_0" -"(syntax-scopes the-struct_88)" -"(syntax-shifted-multi-scopes the-struct_88)" -"(syntax-scope-propagations+tamper the-struct_88)" -"(syntax-mpi-shifts the-struct_88)" +"(syntax-scopes the-struct_86)" +"(syntax-shifted-multi-scopes the-struct_86)" +"(syntax-scope-propagations+tamper the-struct_86)" +"(syntax-mpi-shifts the-struct_86)" " srcloc64_0" " props65_0" -"(syntax-inspector the-struct_88)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_88))))))" +"(syntax-inspector the-struct_86)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_86))))))" "(define-values(original-props)(syntax-props(syntax-property$1 empty-syntax original-property-sym #t)))" "(define-values" "(original-square-props)" @@ -57000,18 +57082,18 @@ static const char *startup_source = "(let-values()" "(read-to-syntax" "(reverse$1" -"(let-values(((lst_268) v_250))" +"(let-values(((lst_270) v_250))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_268)))" -"((letrec-values(((for-loop_278)" -"(lambda(fold-var_287 lst_281)" +"(let-values()(check-list lst_270)))" +"((letrec-values(((for-loop_53)" +"(lambda(fold-var_287 lst_283)" "(begin" " 'for-loop" -"(if(pair? lst_281)" -"(let-values(((e_87)(unsafe-car lst_281))" -"((rest_178)(unsafe-cdr lst_281)))" +"(if(pair? lst_283)" +"(let-values(((e_87)(unsafe-car lst_283))" +"((rest_178)(unsafe-cdr lst_283)))" "(let-values(((fold-var_288)" "(let-values(((fold-var_289) fold-var_287))" "(let-values(((fold-var_245)" @@ -57021,11 +57103,11 @@ static const char *startup_source = "(read-coerce #t e_87 srcloc_12))" " fold-var_289))))" "(values fold-var_245)))))" -"(if(not #f)(for-loop_278 fold-var_288 rest_178) fold-var_288)))" +"(if(not #f)(for-loop_53 fold-var_288 rest_178) fold-var_288)))" " fold-var_287)))))" -" for-loop_278)" +" for-loop_53)" " null" -" lst_268))))" +" lst_270))))" " srcloc_12" " #f))" "(if(pair? v_250)" @@ -57129,16 +57211,16 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'read-syntax/recursive \"input-port?\" in_31)))" -"(if((lambda(x_88)" -"(let-values(((or-part_71)(not x_88)))" -"(if or-part_71 or-part_71(char? x_88))))" +"(if((lambda(x_87)" +"(let-values(((or-part_76)(not x_87)))" +"(if or-part_76 or-part_76(char? x_87))))" " start_61)" "(void)" "(let-values()" " (raise-argument-error 'read-syntax/recursive \"(or/c char? #f)\" start_61)))" -"(if((lambda(x_89)" -"(let-values(((or-part_73)(not x_89)))" -"(if or-part_73 or-part_73(1/readtable? x_89))))" +"(if((lambda(x_88)" +"(let-values(((or-part_78)(not x_88)))" +"(if or-part_78 or-part_78(1/readtable? x_88))))" " readtable_7)" "(void)" "(let-values()" @@ -57190,14 +57272,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_93)(not x_19)))" -"(if or-part_93 or-part_93(char? x_19))))" +"(let-values(((or-part_95)(not x_19)))" +"(if or-part_95 or-part_95(char? x_19))))" " start_38)" "(void)" " (let-values () (raise-argument-error 'read/recursive \"(or/c char? #f)\" start_38)))" -"(if((lambda(x_90)" -"(let-values(((or-part_94)(not x_90)))" -"(if or-part_94 or-part_94(1/readtable? x_90))))" +"(if((lambda(x_23)" +"(let-values(((or-part_96)(not x_23)))" +"(if or-part_96 or-part_96(1/readtable? x_23))))" " readtable_9)" "(void)" "(let-values()" @@ -57224,7 +57306,7 @@ static const char *startup_source = "(if(input-port? in_56)" "(void)" " (let-values () (raise-argument-error 'read-language \"input-port?\" in_56)))" -"(if((lambda(p_43)(if(procedure? p_43)(procedure-arity-includes? p_43 0) #f))" +"(if((lambda(p_42)(if(procedure? p_42)(procedure-arity-includes? p_42 0) #f))" " fail-thunk_2)" "(void)" "(let-values()" @@ -57254,21 +57336,21 @@ static const char *startup_source = "((temp8_4)" "(hasheqv" " 0" -"(let-values(((lst_78)(1/instance-variable-names inst_7)))" +"(let-values(((lst_79)(1/instance-variable-names inst_7)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_78)))" -"((letrec-values(((for-loop_96)" -"(lambda(table_212 lst_79)" +"(let-values()(check-list lst_79)))" +"((letrec-values(((for-loop_95)" +"(lambda(table_217 lst_80)" "(begin" " 'for-loop" -"(if(pair? lst_79)" -"(let-values(((sym_60)(unsafe-car lst_79))" -"((rest_36)(unsafe-cdr lst_79)))" -"(let-values(((table_218)" -"(let-values(((table_174) table_212))" -"(let-values(((table_175)" +"(if(pair? lst_80)" +"(let-values(((sym_60)(unsafe-car lst_80))" +"((rest_36)(unsafe-cdr lst_80)))" +"(let-values(((table_223)" +"(let-values(((table_178) table_217))" +"(let-values(((table_179)" "(let-values()" "(let-values(((key_34" " val_81)" @@ -57314,17 +57396,17 @@ static const char *startup_source = " #f)" " binding_27))))))" "(hash-set" -" table_174" +" table_178" " key_34" " val_81)))))" -"(values table_175)))))" +"(values table_179)))))" "(if(not #f)" -"(for-loop_96 table_218 rest_36)" -" table_218)))" -" table_212)))))" -" for-loop_96)" +"(for-loop_95 table_223 rest_36)" +" table_223)))" +" table_217)))))" +" for-loop_95)" " '#hash()" -" lst_78)))))" +" lst_79)))))" "((temp9_8)" "(lambda(data-box_5" " ns_46" @@ -57342,12 +57424,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_23)))" "((letrec-values(((for-loop_20)" -"(lambda(lst_266)" +"(lambda(lst_268)" "(begin" " 'for-loop" -"(if(pair? lst_266)" -"(let-values(((sym_95)(unsafe-car lst_266))" -"((rest_179)(unsafe-cdr lst_266)))" +"(if(pair? lst_268)" +"(let-values(((sym_95)(unsafe-car lst_268))" +"((rest_179)(unsafe-cdr lst_268)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -57468,13 +57550,13 @@ static const char *startup_source = "(1/current-module-path-for-load)" "(make-parameter" " #f" -"(lambda(v_180)" +"(lambda(v_181)" "(begin" -"(if(let-values(((or-part_176)(not v_180)))" -"(if or-part_176" -" or-part_176" -"(let-values(((or-part_142)(1/module-path? v_180)))" -"(if or-part_142 or-part_142(if(syntax?$1 v_180)(1/module-path?(syntax->datum$1 v_180)) #f)))))" +"(if(let-values(((or-part_68)(not v_181)))" +"(if or-part_68" +" or-part_68" +"(let-values(((or-part_69)(1/module-path? v_181)))" +"(if or-part_69 or-part_69(if(syntax?$1 v_181)(1/module-path?(syntax->datum$1 v_181)) #f)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -57483,8 +57565,8 @@ static const char *startup_source = " \"(or/c module-path?\"" " \" (and/c syntax? (lambda (stx) (module-path? (syntax->datum stx))))\"" " \" #f)\")" -" v_180)))" -" v_180))))" +" v_181)))" +" v_181))))" "(define-values" "(maybe-raise-missing-module)" "(lambda(name_73 filename_0 pre_0 rel_0 post_0 errstr_0)" @@ -57568,7 +57650,7 @@ static const char *startup_source = " intdefs63_0" " #t)))))))))))" "(case-lambda" -"((s_170 context_1 stop-ids_3)(begin 'local-expand(local-expand6_0 s_170 context_1 stop-ids_3 #f #f)))" +"((s_171 context_1 stop-ids_3)(begin 'local-expand(local-expand6_0 s_171 context_1 stop-ids_3 #f #f)))" "((s_163 context_11 stop-ids_4 intdefs1_1)(local-expand6_0 s_163 context_11 stop-ids_4 intdefs1_1 #t)))))" "(define-values" "(1/local-expand/capture-lifts)" @@ -57576,14 +57658,14 @@ static const char *startup_source = "(lambda(s12_2 context13_0 stop-ids14_0 intdefs8_0 lift-key9_0 intdefs10_0 lift-key11_0)" "(begin" " 'local-expand/capture-lifts15" -"(let-values(((s_425) s12_2))" +"(let-values(((s_75) s12_2))" "(let-values(((context_12) context13_0))" "(let-values(((stop-ids_5) stop-ids14_0))" "(let-values(((intdefs_4)(if intdefs10_0 intdefs8_0 #f)))" "(let-values(((lift-key_4)(if lift-key11_0 lift-key9_0(generate-lift-key))))" "(let-values()" "(let-values(((temp64_4) 'local-expand)" -"((s65_0) s_425)" +"((s65_0) s_75)" "((context66_0) context_12)" "((stop-ids67_0) stop-ids_5)" "((intdefs68_0) intdefs_4)" @@ -57609,25 +57691,25 @@ static const char *startup_source = " intdefs68_0" " #t))))))))))))" "(case-lambda" -"((s_77 context_13 stop-ids_6)" -"(begin 'local-expand/capture-lifts(local-expand/capture-lifts15_0 s_77 context_13 stop-ids_6 #f #f #f #f)))" -"((s_176 context_14 stop-ids_7 intdefs_5 lift-key9_1)" -"(local-expand/capture-lifts15_0 s_176 context_14 stop-ids_7 intdefs_5 lift-key9_1 #t #t))" -"((s_185 context_15 stop-ids_8 intdefs8_1)" -"(local-expand/capture-lifts15_0 s_185 context_15 stop-ids_8 intdefs8_1 #f #t #f)))))" +"((s_80 context_13 stop-ids_6)" +"(begin 'local-expand/capture-lifts(local-expand/capture-lifts15_0 s_80 context_13 stop-ids_6 #f #f #f #f)))" +"((s_42 context_14 stop-ids_7 intdefs_5 lift-key9_1)" +"(local-expand/capture-lifts15_0 s_42 context_14 stop-ids_7 intdefs_5 lift-key9_1 #t #t))" +"((s_181 context_15 stop-ids_8 intdefs8_1)" +"(local-expand/capture-lifts15_0 s_181 context_15 stop-ids_8 intdefs8_1 #f #t #f)))))" "(define-values" "(1/local-transformer-expand)" "(let-values(((local-transformer-expand22_0)" "(lambda(s19_1 context20_0 stop-ids21_0 intdefs17_0 intdefs18_0)" "(begin" " 'local-transformer-expand22" -"(let-values(((s_305) s19_1))" +"(let-values(((s_301) s19_1))" "(let-values(((context_16) context20_0))" "(let-values(((stop-ids_9) stop-ids21_0))" "(let-values(((intdefs_6)(if intdefs18_0 intdefs17_0 #f)))" "(let-values()" "(let-values(((temp71_4) 'local-expand)" -"((s72_0) s_305)" +"((s72_0) s_301)" "((context73_0) context_16)" "((stop-ids74_0) stop-ids_9)" "((intdefs75_0) intdefs_6)" @@ -57652,10 +57734,10 @@ static const char *startup_source = " intdefs75_0" " #t)))))))))))" "(case-lambda" -"((s_465 context_17 stop-ids_10)" -"(begin 'local-transformer-expand(local-transformer-expand22_0 s_465 context_17 stop-ids_10 #f #f)))" -"((s_466 context_18 stop-ids_11 intdefs17_1)" -"(local-transformer-expand22_0 s_466 context_18 stop-ids_11 intdefs17_1 #t)))))" +"((s_455 context_17 stop-ids_10)" +"(begin 'local-transformer-expand(local-transformer-expand22_0 s_455 context_17 stop-ids_10 #f #f)))" +"((s_456 context_18 stop-ids_11 intdefs17_1)" +"(local-transformer-expand22_0 s_456 context_18 stop-ids_11 intdefs17_1 #t)))))" "(define-values" "(1/local-transformer-expand/capture-lifts)" "(let-values(((local-transformer-expand/capture-lifts31_0)" @@ -57696,26 +57778,26 @@ static const char *startup_source = " intdefs81_0" " #t))))))))))))" "(case-lambda" -"((s_467 context_20 stop-ids_13)" +"((s_457 context_20 stop-ids_13)" "(begin" " 'local-transformer-expand/capture-lifts" -"(local-transformer-expand/capture-lifts31_0 s_467 context_20 stop-ids_13 #f #f #f #f)))" -"((s_404 context_21 stop-ids_14 intdefs_8 lift-key25_1)" -"(local-transformer-expand/capture-lifts31_0 s_404 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" -"((s_86 context_22 stop-ids_15 intdefs24_1)" -"(local-transformer-expand/capture-lifts31_0 s_86 context_22 stop-ids_15 intdefs24_1 #f #t #f)))))" +"(local-transformer-expand/capture-lifts31_0 s_457 context_20 stop-ids_13 #f #f #f #f)))" +"((s_395 context_21 stop-ids_14 intdefs_8 lift-key25_1)" +"(local-transformer-expand/capture-lifts31_0 s_395 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" +"((s_85 context_22 stop-ids_15 intdefs24_1)" +"(local-transformer-expand/capture-lifts31_0 s_85 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_468) s35_1))" +"(let-values(((s_458) s35_1))" "(let-values(((opaque-only?_0)(if opaque-only?34_0 opaque-only?33_0 #f)))" "(let-values()" "(let-values(((exp-s_12)" "(let-values(((temp85_3) 'syntax-local-expand-expression)" -"((s86_1) s_468)" +"((s86_1) s_458)" "((temp87_4) 'expression)" "((null88_0) null)" "((temp89_4) #f)" @@ -57798,8 +57880,8 @@ static const char *startup_source = "(let-values(((lift-key_6)" "(if lift-key47_1" " lift-key41_0" -"(if(let-values(((or-part_370) capture-lifts?_0))" -"(if or-part_370 or-part_370 as-transformer?_5))" +"(if(let-values(((or-part_355) capture-lifts?_0))" +"(if or-part_355 or-part_355 as-transformer?_5))" "(generate-lift-key)" " #f))))" "(let-values(((track-to-be-defined?_1)" @@ -57807,12 +57889,12 @@ static const char *startup_source = "(let-values(((skip-log-exit?_0)(if skip-log-exit?49_0 skip-log-exit?43_0 #f)))" "(let-values()" "(let-values()" -"(let-values(((s_390)(datum->syntax$1 #f s-or-s-exp_0)))" +"(let-values(((s_382)(datum->syntax$1 #f s-or-s-exp_0)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_179)(list? context_23)))" -"(if or-part_179" -" or-part_179" +"(if(let-values(((or-part_165)(list? context_23)))" +"(if or-part_165" +" or-part_165" "(memq" " context_23" "(if as-transformer?_5" @@ -57829,9 +57911,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_180)(not stop-ids_16)))" -"(if or-part_180" -" or-part_180" +"(if(let-values(((or-part_166)(not stop-ids_16)))" +"(if or-part_166" +" or-part_166" "(if(list? stop-ids_16)" "(andmap2 identifier? stop-ids_16)" " #f)))" @@ -57844,13 +57926,13 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_181)(not intdefs_9)))" -"(if or-part_181" -" or-part_181" -"(let-values(((or-part_182)" +"(if(let-values(((or-part_167)(not intdefs_9)))" +"(if or-part_167" +" or-part_167" +"(let-values(((or-part_168)" "(1/internal-definition-context? intdefs_9)))" -"(if or-part_182" -" or-part_182" +"(if or-part_168" +" or-part_168" "(if(list? intdefs_9)" "(andmap2 1/internal-definition-context? intdefs_9)" " #f)))))" @@ -57905,12 +57987,12 @@ static const char *startup_source = "(call-expand-observe" " obs_59" " 'enter-local" -" s_390)))" +" s_382)))" "(void)))" "(values))))" "(let-values(((input-s_1)" "(let-values(((temp101_4)" -"(flip-introduction-scopes s_390 ctx_75))" +"(flip-introduction-scopes s_382 ctx_75))" "((intdefs102_0) intdefs_9))" "(add-intdef-scopes21.1" " #f" @@ -58098,7 +58180,7 @@ static const char *startup_source = "(lambda(s5_3 maybe-insp1_0 use-mode?2_0 maybe-insp3_0 use-mode?4_0)" "(begin" " 'syntax-arm6" -"(let-values(((s_169) s5_3))" +"(let-values(((s_170) s5_3))" "(let-values(((maybe-insp_0)(if maybe-insp3_0 maybe-insp1_0 #f)))" "(let-values(((use-mode?_0)(if use-mode?4_0 use-mode?2_0 #f)))" "(let-values()" @@ -58106,14 +58188,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_169)" +"(if(syntax?$1 s_170)" "(void)" -" (let-values () (raise-argument-error 'syntax-arm \"syntax?\" s_169)))" +" (let-values () (raise-argument-error 'syntax-arm \"syntax?\" s_170)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_224)(not maybe-insp_0)))" -"(if or-part_224 or-part_224(inspector? maybe-insp_0)))" +"(if(let-values(((or-part_210)(not maybe-insp_0)))" +"(if or-part_210 or-part_210(inspector? maybe-insp_0)))" "(void)" "(let-values()" "(raise-argument-error" @@ -58125,83 +58207,83 @@ static const char *startup_source = "(if use-mode?_0" "(let-values()" "(taint-dispatch" -" s_169" -"(lambda(s_469)(syntax-arm$1 s_469 insp_21))" +" s_170" +"(lambda(s_459)(syntax-arm$1 s_459 insp_21))" "(1/syntax-local-phase-level)))" -"(let-values()(syntax-arm$1 s_169 insp_21))))))))))))))))" +"(let-values()(syntax-arm$1 s_170 insp_21))))))))))))))))" "(case-lambda" -"((s_170)(begin 'syntax-arm(syntax-arm6_0 s_170 #f #f #f #f)))" -"((s_171 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_171 maybe-insp_1 use-mode?2_1 #t #t))" -"((s_424 maybe-insp1_1)(syntax-arm6_0 s_424 maybe-insp1_1 #f #t #f)))))" +"((s_171)(begin 'syntax-arm(syntax-arm6_0 s_171 #f #f #f #f)))" +"((s_172 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_172 maybe-insp_1 use-mode?2_1 #t #t))" +"((s_417 maybe-insp1_1)(syntax-arm6_0 s_417 maybe-insp1_1 #f #t #f)))))" "(define-values" "(1/syntax-disarm)" -"(lambda(s_470 maybe-insp_2)" +"(lambda(s_460 maybe-insp_2)" "(begin" " 'syntax-disarm" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_470)" +"(if(syntax?$1 s_460)" "(void)" -" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_470)))" +" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_460)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_371)(not maybe-insp_2)))" -"(if or-part_371 or-part_371(inspector? maybe-insp_2)))" +"(if(let-values(((or-part_356)(not maybe-insp_2)))" +"(if or-part_356 or-part_356(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_470 insp_22)))))))))" +"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_460 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_423) s10_0))" +"(let-values(((s_416) 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_423)" +"(if(syntax?$1 s_416)" "(void)" -" (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" s_423)))" +" (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" s_416)))" "(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_423" -"(lambda(s_471)(syntax-rearm$1 s_471 from-s_2))" +" s_416" +"(lambda(s_461)(syntax-rearm$1 s_461 from-s_2))" "(1/syntax-local-phase-level)))" -"(let-values()(syntax-rearm$1 s_423 from-s_2))))))))))))))" +"(let-values()(syntax-rearm$1 s_416 from-s_2))))))))))))))" "(case-lambda" -"((s_420 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_420 from-s_3 #f #f)))" +"((s_413 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_413 from-s_3 #f #f)))" "((s_5 from-s_4 use-mode?8_1)(syntax-rearm12_0 s_5 from-s_4 use-mode?8_1 #t)))))" "(define-values" "(1/syntax-taint)" -"(lambda(s_76)" +"(lambda(s_77)" "(begin" " 'syntax-taint" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_76) (void) (let-values () (raise-argument-error 'syntax-taint \"syntax?\" s_76)))" -"(syntax-taint$1 s_76)))))))" +" (if (syntax?$1 s_77) (void) (let-values () (raise-argument-error 'syntax-taint \"syntax?\" s_77)))" +"(syntax-taint$1 s_77)))))))" "(define-values" "(inspector-for-taint)" "(lambda(maybe-insp_3)" "(begin" -"(let-values(((or-part_372) maybe-insp_3))" -"(if or-part_372" -" or-part_372" -"(let-values(((or-part_363)(current-module-code-inspector)))" -"(if or-part_363 or-part_363(current-code-inspector))))))))" +"(let-values(((or-part_357) maybe-insp_3))" +"(if or-part_357" +" or-part_357" +"(let-values(((or-part_93)(current-module-code-inspector)))" +"(if or-part_93 or-part_93(current-code-inspector))))))))" "(define-values" "(1/variable-reference->empty-namespace)" "(lambda(vr_0)" @@ -58343,9 +58425,9 @@ static const char *startup_source = " \"variable reference\"" " vr_8))" "(void))" -"(let-values(((or-part_177)(namespace-declaration-inspector(variable-reference->namespace* vr_8))))" -"(if or-part_177" -" or-part_177" +"(let-values(((or-part_74)(namespace-declaration-inspector(variable-reference->namespace* vr_8))))" +"(if or-part_74" +" or-part_74" "(raise-arguments-error" " 'variable-reference->module-declaration-inspector" " \"given variable reference is not from a module\")))))))))" @@ -58515,7 +58597,7 @@ static const char *startup_source = "(add-core-primitive! 'syntax-span 1/syntax-span)" "(add-core-primitive! 'syntax->list 1/syntax->list)" "(add-core-primitive! 'syntax-property syntax-property$1)" -"(add-core-primitive! 'syntax-property-remove syntax-property-remove)" +"(add-core-primitive! 'syntax-property-remove 1/syntax-property-remove)" "(add-core-primitive! 'syntax-property-preserved? 1/syntax-property-preserved?)" "(add-core-primitive! 'syntax-property-symbol-keys 1/syntax-property-symbol-keys)" "(add-core-primitive! 'syntax-original? 1/syntax-original?)" @@ -58712,33 +58794,33 @@ static const char *startup_source = "(hash-iterate-first ht_25))))" "(values))))" "(let-values()" -"(let-values(((ht_162)" -"(let-values(((ht_163) 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_163)))" -"((letrec-values(((for-loop_266)" +"(let-values()(check-in-hash ht_162)))" +"((letrec-values(((for-loop_265)" "(lambda(table_11 i_182)" "(begin" " 'for-loop" "(if i_182" -"(let-values(((sym_97 val_6)" +"(let-values(((sym_97 val_5)" "(hash-iterate-key+value" -" ht_163" +" ht_162" " i_182)))" -"(let-values(((table_219)" -"(let-values(((table_220)" +"(let-values(((table_224)" +"(let-values(((table_225)" " table_11))" "(if(set-member?" " skip-syms_0" " sym_97)" -" table_220" -"(let-values(((table_221)" -" table_220))" -"(let-values(((table_222)" +" table_225" +"(let-values(((table_20)" +" table_225))" +"(let-values(((table_226)" "(let-values()" -"(let-values(((key_91" +"(let-values(((key_90" " val_82)" "(let-values()" "(values" @@ -58750,55 +58832,54 @@ static const char *startup_source = " #f)))" "(if or-part_24" " or-part_24" -" val_6))))))" +" val_5))))))" "(hash-set" -" table_221" -" key_91" +" table_20" +" key_90" " val_82)))))" -"(values table_222)))))))" +"(values table_226)))))))" "(if(not #f)" -"(for-loop_266" -" table_219" -"(hash-iterate-next ht_163 i_182))" -" table_219)))" +"(for-loop_265" +" table_224" +"(hash-iterate-next ht_162 i_182))" +" table_224)))" " table_11)))))" -" for-loop_266)" +" for-loop_265)" " '#hasheq()" -"(hash-iterate-first ht_163))))))" +"(hash-iterate-first ht_162))))))" "(let-values(((ht+extras_0)" -"(let-values(((ht_164) extras_0))" +"(let-values(((ht_163) extras_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_164)))" -"((letrec-values(((for-loop_279)" -"(lambda(ht_165 i_183)" +"(let-values()(check-in-hash ht_163)))" +"((letrec-values(((for-loop_277)" +"(lambda(ht_164 i_183)" "(begin" " 'for-loop" "(if i_183" "(let-values(((k_43 v_50)" "(hash-iterate-key+value" -" ht_164" +" ht_163" " i_183)))" +"(let-values(((ht_165)" +"(let-values(((ht_48) ht_164))" "(let-values(((ht_166)" -"(let-values(((ht_167)" -" ht_165))" -"(let-values(((ht_49)" "(let-values()" "(hash-set" -" ht_167" +" ht_48" " k_43" " v_50))))" -"(values ht_49)))))" +"(values ht_166)))))" "(if(not #f)" -"(for-loop_279" -" ht_166" -"(hash-iterate-next ht_164 i_183))" -" ht_166)))" -" ht_165)))))" -" for-loop_279)" -" ht_162" -"(hash-iterate-first ht_164))))))" +"(for-loop_277" +" ht_165" +"(hash-iterate-next ht_163 i_183))" +" ht_165)))" +" ht_164)))))" +" for-loop_277)" +" ht_161" +"(hash-iterate-first ht_163))))))" "(let-values(((to-name61_0) to-name_0)" "((ht+extras62_0) ht+extras_0)" "((ns63_0) ns_119)" @@ -58832,7 +58913,7 @@ static const char *startup_source = "(begin" " 'declare-hash-based-module!41" "(let-values(((name_74) name39_0))" -"(let-values(((ht_168) ht40_0))" +"(let-values(((ht_167) 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)))" @@ -58850,26 +58931,26 @@ static const char *startup_source = "((temp74_0)" "(hasheqv" " 0" -"(let-values(((ht_169) ht_168))" +"(let-values(((ht_168) ht_167))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_169)))" -"((letrec-values(((for-loop_280)" -"(lambda(table_223 i_184)" +"(let-values()(check-in-hash-keys ht_168)))" +"((letrec-values(((for-loop_278)" +"(lambda(table_227 i_184)" "(begin" " 'for-loop" "(if i_184" "(let-values(((sym_98)" "(hash-iterate-key" -" ht_169" +" ht_168" " i_184)))" -"(let-values(((table_224)" -"(let-values(((table_225)" -" table_223))" -"(let-values(((table_226)" +"(let-values(((table_228)" +"(let-values(((table_229)" +" table_227))" +"(let-values(((table_230)" "(let-values()" -"(let-values(((key_92" +"(let-values(((key_91" " val_83)" "(let-values()" "(let-values((()" @@ -58911,10 +58992,10 @@ static const char *startup_source = " sym78_0))))" "(values" " sym_98" -"(if(let-values(((or-part_373)" +"(if(let-values(((or-part_358)" " protected?_11))" -"(if or-part_373" -" or-part_373" +"(if or-part_358" +" or-part_358" "(member" " sym_98" " protected-syms_0)))" @@ -58924,22 +59005,22 @@ static const char *startup_source = " #f)" " binding_28)))))))" "(hash-set" -" table_225" -" key_92" +" table_229" +" key_91" " val_83)))))" "(values" -" table_226)))))" +" table_230)))))" "(if(not #f)" -"(for-loop_280" -" table_224" +"(for-loop_278" +" table_228" "(hash-iterate-next" -" ht_169" +" ht_168" " i_184))" -" table_224)))" -" table_223)))))" -" for-loop_280)" +" table_228)))" +" table_227)))))" +" for-loop_278)" " '#hash()" -"(hash-iterate-first ht_169))))))" +"(hash-iterate-first ht_168))))))" "((temp75_3)" "(lambda(data-box_6" " ns_121" @@ -58951,20 +59032,20 @@ static const char *startup_source = "(if(= 0 phase-level_23)" "(let-values()" "(begin" -"(let-values(((ht_170) ht_168))" +"(let-values(((ht_169) ht_167))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_170)))" -"((letrec-values(((for-loop_281)" +"(let-values()(check-in-hash ht_169)))" +"((letrec-values(((for-loop_279)" "(lambda(i_47)" "(begin" " 'for-loop" "(if i_47" "(let-values(((sym_6 val_31)" "(hash-iterate-key+value" -" ht_170" +" ht_169" " i_47)))" "(let-values((()" "(let-values()" @@ -58980,14 +59061,14 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_281" +"(for-loop_279" "(hash-iterate-next" -" ht_170" +" ht_169" " i_47))" "(values))))" "(values))))))" -" for-loop_281)" -"(hash-iterate-first ht_170))))" +" for-loop_279)" +"(hash-iterate-first ht_169))))" "(void)))" "(void)))))" "(make-module39.1" @@ -59039,18 +59120,18 @@ static const char *startup_source = "(let-values(((mpi_56)(1/module-path-index-join(list 'quote name_75) #f)))" "(let-values(((require-mpis_0)" "(reverse$1" -"(let-values(((lst_203) require-names_0))" +"(let-values(((lst_205) require-names_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_203)))" +"(let-values()(check-list lst_205)))" "((letrec-values(((for-loop_203)" -"(lambda(fold-var_40 lst_204)" +"(lambda(fold-var_40 lst_206)" "(begin" " 'for-loop" -"(if(pair? lst_204)" -"(let-values(((require-name_0)(unsafe-car lst_204))" -"((rest_107)(unsafe-cdr lst_204)))" +"(if(pair? lst_206)" +"(let-values(((require-name_0)(unsafe-car lst_206))" +"((rest_107)(unsafe-cdr lst_206)))" "(let-values(((fold-var_290)" "(let-values(((fold-var_291) fold-var_40))" "(let-values(((fold-var_292)" @@ -59070,7 +59151,7 @@ static const char *startup_source = " fold-var_40)))))" " for-loop_203)" " null" -" lst_203))))))" +" lst_205))))))" "(let-values(((ns79_1) ns_122)" "((temp80_4)" "(let-values(((temp82_7) #t)" @@ -59081,21 +59162,21 @@ static const char *startup_source = "(if reexport?_0" "(hasheqv" " 0" -"(let-values(((lst_111) require-mpis_0))" +"(let-values(((lst_112) require-mpis_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_111)))" -"((letrec-values(((for-loop_282)" -"(lambda(table_227 lst_316)" +"(let-values()(check-list lst_112)))" +"((letrec-values(((for-loop_32)" +"(lambda(table_29 lst_318)" "(begin" " 'for-loop" -"(if(pair? lst_316)" +"(if(pair? lst_318)" "(let-values(((require-mpi_0)" -"(unsafe-car lst_316))" +"(unsafe-car lst_318))" "((rest_180)" -"(unsafe-cdr lst_316)))" -"(let-values(((table_228)" +"(unsafe-cdr lst_318)))" +"(let-values(((table_30)" "(let-values(((m_29)" "(namespace->module" " ns_122" @@ -59103,13 +59184,13 @@ static const char *startup_source = " require-mpi_0))))" "(begin" " #t" -"((letrec-values(((for-loop_283)" -"(lambda(table_31)" +"((letrec-values(((for-loop_280)" +"(lambda(table_35)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_32)" -"(let-values(((ht_37)" +"(let-values(((table_36)" +"(let-values(((ht_36)" "(hash-ref" "(shift-provides-module-path-index" "(module-provides" @@ -59124,9 +59205,9 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_37)))" +" ht_36)))" "((letrec-values(((for-loop_36)" -"(lambda(table_147" +"(lambda(table_151" " i_49)" "(begin" " 'for-loop" @@ -59134,48 +59215,48 @@ static const char *startup_source = "(let-values(((sym_99" " binding_29)" "(hash-iterate-key+value" -" ht_37" +" ht_36" " i_49)))" -"(let-values(((table_121)" -"(let-values(((table_162)" -" table_147))" -"(let-values(((table_229)" +"(let-values(((table_124)" +"(let-values(((table_166)" +" table_151))" +"(let-values(((table_231)" "(let-values()" -"(let-values(((key_93" +"(let-values(((key_92" " val_84)" "(let-values()" "(values" " sym_99" " binding_29))))" "(hash-set" -" table_162" -" key_93" +" table_166" +" key_92" " val_84)))))" "(values" -" table_229)))))" +" table_231)))))" "(if(not" " #f)" "(for-loop_36" -" table_121" +" table_124" "(hash-iterate-next" -" ht_37" +" ht_36" " i_49))" -" table_121)))" -" table_147)))))" +" table_124)))" +" table_151)))))" " for-loop_36)" -" table_31" +" table_35" "(hash-iterate-first" -" ht_37))))))" -" table_32))))))" -" for-loop_283)" -" table_227)))))" +" ht_36))))))" +" table_36))))))" +" for-loop_280)" +" table_29)))))" "(if(not #f)" -"(for-loop_282 table_228 rest_180)" -" table_228)))" -" table_227)))))" -" for-loop_282)" +"(for-loop_32 table_30 rest_180)" +" table_30)))" +" table_29)))))" +" for-loop_32)" " '#hash()" -" lst_111))))" +" lst_112))))" " '#hasheqv()))" "((void87_0) void))" "(make-module39.1" @@ -59274,14 +59355,14 @@ static const char *startup_source = "(let-values()" "(let-values()" "(case-lambda" -"((s_68)(begin 'eval((1/current-eval)(intro s_68))))" -"((s_182 ns_123)" +"((s_69)(begin 'eval((1/current-eval)(intro s_69))))" +"((s_180 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_182 ns_123))))))))))" +"(let-values()((1/current-eval)(intro s_180 ns_123))))))))))" "(define-values" "(1/eval-syntax)" "(let-values()" @@ -59301,40 +59382,40 @@ 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_169)(begin 'compile((1/current-compile)(intro s_169) #f))))" +"(define-values(compile$1)(lambda(s_170)(begin 'compile((1/current-compile)(intro s_170) #f))))" "(define-values" "(1/compile-syntax)" -"(lambda(s_188)" +"(lambda(s_184)" "(begin" " 'compile-syntax" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_188) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_188)))" -"((1/current-compile) s_188 #f)))))))" +" (if (syntax?$1 s_184) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_184)))" +"((1/current-compile) s_184 #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_472)" +"(lambda(s_462)" "(begin" " 'expand-syntax" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_472) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_472)))" -"(expand$1 s_472(1/current-namespace) #t)))))))" -"(define-values(1/expand-once)(lambda(s_469)(begin 'expand-once(expand-once$1(intro s_469)))))" +" (if (syntax?$1 s_462) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_462)))" +"(expand$1 s_462(1/current-namespace) #t)))))))" +"(define-values(1/expand-once)(lambda(s_459)(begin 'expand-once(expand-once$1(intro s_459)))))" "(define-values" "(1/expand-syntax-once)" -"(lambda(s_170)" +"(lambda(s_171)" "(begin" " 'expand-syntax-once" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_170) (void) (let-values () (raise-argument-error 'expand-syntax-once \"syntax?\" s_170)))" -"(expand-once$1 s_170)))))))" -"(define-values(1/expand-to-top-form)(lambda(s_71)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_71)))))" +" (if (syntax?$1 s_171) (void) (let-values () (raise-argument-error 'expand-syntax-once \"syntax?\" s_171)))" +"(expand-once$1 s_171)))))))" +"(define-values(1/expand-to-top-form)(lambda(s_72)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_72)))))" "(define-values" "(1/expand-syntax-to-top-form)" "(lambda(s_163)" @@ -59356,8 +59437,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_395)(if(syntax?$1 given-s_1) given-s_1(1/datum->syntax #f given-s_1))))" -"(1/namespace-syntax-introduce s_395 ns_68)))))))))" +"(let-values(((s_386)(if(syntax?$1 given-s_1) given-s_1(1/datum->syntax #f given-s_1))))" +"(1/namespace-syntax-introduce s_386 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)" @@ -59526,10 +59607,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_91)(TH-place-channel-ref x_91 0))))))" +"(make-struct-type 'TH-place-channel #f 2 0 #f(list(cons prop:evt(lambda(x_89)(TH-place-channel-ref x_89 0))))))" "(define-values" "(TH-place-channel-in TH-place-channel-out)" -"(values(lambda(x_92)(TH-place-channel-ref x_92 0))(lambda(x_79)(TH-place-channel-ref x_79 1))))" +"(values(lambda(x_90)(TH-place-channel-ref x_90 0))(lambda(x_78)(TH-place-channel-ref x_78 1))))" "(define-values" "(place-struct-primitives)" "(hasheq" @@ -59653,8 +59734,8 @@ static const char *startup_source = "(check-module-form)" "(lambda(exp_0 filename_1)" "(begin" -"(if(let-values(((or-part_310)(eof-object? exp_0)))" -"(if or-part_310 or-part_310(eof-object?(1/syntax-e exp_0))))" +"(if(let-values(((or-part_298)(eof-object? exp_0)))" +"(if or-part_298 or-part_298(eof-object?(1/syntax-e exp_0))))" "(let-values()" "(if filename_1" "(error" @@ -59716,12 +59797,12 @@ static const char *startup_source = " expected-mod_0)))" "(values))))" "(let-values(((maybe-count-lines!_0)" -"(lambda(i_128)" +"(lambda(i_127)" "(begin" " 'maybe-count-lines!" " (if (regexp-match? '#rx\"[.]zo$\" path_12)" "(void)" -"(let-values()(port-count-lines! i_128)))))))" +"(let-values()(port-count-lines! i_127)))))))" "(if expected-mod_0" "(let-values()" "((call-with-input-module-file" @@ -59769,10 +59850,10 @@ static const char *startup_source = "(if c2_17" "((lambda(thunk_6) thunk_6) c2_17)" "(let-values()" -"(let-values(((s_170)(1/read-syntax(object-name i_185) i_185)))" +"(let-values(((s_171)(1/read-syntax(object-name i_185) i_185)))" "(let-values((()" "(begin" -"(if(eof-object? s_170)" +"(if(eof-object? s_171)" "(let-values()" "(error" " 'default-load-handler" @@ -59783,7 +59864,7 @@ static const char *startup_source = "(object-name i_185)))" "(void))" "(values))))" -"(let-values(((m-s_0)(check-module-form s_170 path_12)))" +"(let-values(((m-s_0)(check-module-form s_171 path_12)))" "(let-values(((s2_7)(1/read-syntax(object-name i_185) i_185)))" "(begin" "(if(eof-object? s2_7)" @@ -59801,23 +59882,23 @@ static const char *startup_source = "(lambda()((1/current-eval) m-s_0))))))))))))))))))))" "(let-values()" "(let-values(((add-top-interaction_0)" -"(lambda(s_424)" +"(lambda(s_417)" "(begin" " 'add-top-interaction" "(1/namespace-syntax-introduce" -"(1/datum->syntax #f(cons '#%top-interaction s_424) s_424))))))" +"(1/datum->syntax #f(cons '#%top-interaction s_417) s_417))))))" "(let-values(((path1_0) path_12)" "((temp2_8)" -"(lambda(i_83)" +"(lambda(i_84)" "(begin" " 'temp2" "(begin" -"(maybe-count-lines!_0 i_83)" -"((letrec-values(((loop_115)" +"(maybe-count-lines!_0 i_84)" +"((letrec-values(((loop_116)" "(lambda(vals_7)" "(begin" " 'loop" -"(let-values(((s_299)" +"(let-values(((s_295)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -59842,19 +59923,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_299)" +"(object-name i_84)" +" i_84))))))" +"(if(eof-object? s_295)" "(apply values vals_7)" -"(loop_115" +"(loop_116" "(call-with-continuation-prompt" "(lambda()" "(call-with-values" "(lambda()" -"((1/current-eval)(add-top-interaction_0 s_299)))" +"((1/current-eval)(add-top-interaction_0 s_295)))" " list))" "(default-continuation-prompt-tag)" "(lambda args_10" @@ -59862,33 +59943,33 @@ static const char *startup_source = " abort-current-continuation" "(default-continuation-prompt-tag)" " args_10))))))))))" -" loop_115)" +" loop_116)" "(list(void))))))))" "(call-with-input-file*61.1 #f #f path1_0 temp2_8)))))))))))" "(define-values" "(linklet-bundle-or-directory-start)" -"(lambda(i_148 tag_1)" +"(lambda(i_146 tag_1)" "(begin" "(let-values(((version-length_0)(string-length(version))))" -"(if(equal?(peek-byte i_148)(char->integer '#\\#))" -"(if(equal?(peek-byte i_148 1)(char->integer '#\\~))" -"(if(equal?(peek-byte i_148 2) version-length_0)" -"(if(equal?(peek-bytes version-length_0 3 i_148)(string->bytes/utf-8(version)))" -"(if(equal?(peek-byte i_148(+ 3 version-length_0))(char->integer tag_1))(+ version-length_0 4) #f)" +"(if(equal?(peek-byte i_146)(char->integer '#\\#))" +"(if(equal?(peek-byte i_146 1)(char->integer '#\\~))" +"(if(equal?(peek-byte i_146 2) version-length_0)" +"(if(equal?(peek-bytes version-length_0 3 i_146)(string->bytes/utf-8(version)))" +"(if(equal?(peek-byte i_146(+ 3 version-length_0))(char->integer tag_1))(+ version-length_0 4) #f)" " #f)" " #f)" " #f)" " #f)))))" "(define-values" "(linklet-directory-start)" -"(lambda(i_153)" -"(begin(let-values(((pos_94)(linklet-bundle-or-directory-start i_153 '#\\D)))(if pos_94(+ pos_94 4) #f)))))" +"(lambda(i_151)" +"(begin(let-values(((pos_94)(linklet-bundle-or-directory-start i_151 '#\\D)))(if pos_94(+ pos_94 4) #f)))))" "(define-values" "(linklet-bundle-hash-code)" -"(lambda(i_84)" +"(lambda(i_85)" "(begin" -"(let-values(((pos_14)(linklet-bundle-or-directory-start i_84 '#\\B)))" -"(let-values(((hash-code_5)(if pos_14(peek-bytes 20 pos_14 i_84) #f)))" +"(let-values(((pos_14)(linklet-bundle-or-directory-start i_85 '#\\B)))" +"(let-values(((hash-code_5)(if pos_14(peek-bytes 20 pos_14 i_85) #f)))" "(if(bytes? hash-code_5)" "(if(= 20(bytes-length hash-code_5))" "(if(let-values(((vec_68 len_39)" @@ -59897,21 +59978,21 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_230)" -"(lambda(result_122 pos_126)" +"(lambda(result_121 pos_126)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_126 len_39)" -"(let-values(((c_75)(unsafe-bytes-ref vec_68 pos_126)))" +"(let-values(((c_76)(unsafe-bytes-ref vec_68 pos_126)))" +"(let-values(((result_122)" +"(let-values()" "(let-values(((result_123)" "(let-values()" -"(let-values(((result_124)" -"(let-values()" -"(let-values()(not(eq? c_75 0))))))" -"(values result_124)))))" -"(if(if(not((lambda x_93 result_123) c_75))(not #f) #f)" -"(for-loop_230 result_123(unsafe-fx+ 1 pos_126))" -" result_123)))" -" result_122)))))" +"(let-values()(not(eq? c_76 0))))))" +"(values result_123)))))" +"(if(if(not((lambda x_91 result_122) c_76))(not #f) #f)" +"(for-loop_230 result_122(unsafe-fx+ 1 pos_126))" +" result_122)))" +" result_121)))))" " for-loop_230)" " #f" " 0)))" @@ -59929,18 +60010,18 @@ static const char *startup_source = "(let-values() #f))))))" "(define-values" "(read-number)" -"(lambda(i_41)" +"(lambda(i_58)" "(begin" "(let-values(((read-byte/not-eof_0)" "(lambda(i_186)" "(begin" " 'read-byte/not-eof" -"(let-values(((v_179)(read-byte i_186)))(if(eof-object? v_179) 0 v_179))))))" +"(let-values(((v_180)(read-byte i_186)))(if(eof-object? v_180) 0 v_180))))))" "(bitwise-ior" -"(read-byte/not-eof_0 i_41)" -"(arithmetic-shift(read-byte/not-eof_0 i_41) 8)" -"(arithmetic-shift(read-byte/not-eof_0 i_41) 16)" -"(arithmetic-shift(read-byte/not-eof_0 i_41) 24))))))" +"(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))))))" "(define-values" "(search-directory)" "(lambda(i_187 pos_118 bstr_5)" @@ -59991,26 +60072,26 @@ static const char *startup_source = "(apply" " bytes-append" "(reverse$1" -"(let-values(((lst_317)(cdr expected-mod_1)))" +"(let-values(((lst_319)(cdr expected-mod_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_317)))" -"((letrec-values(((for-loop_103)" -"(lambda(fold-var_63 lst_93)" +"(let-values()(check-list lst_319)))" +"((letrec-values(((for-loop_102)" +"(lambda(fold-var_63 lst_94)" "(begin" " 'for-loop" -"(if(pair? lst_93)" -"(let-values(((s_457)(unsafe-car lst_93))((rest_44)(unsafe-cdr lst_93)))" -"(let-values(((fold-var_20)" -"(let-values(((fold-var_64) fold-var_63))" -"(let-values(((fold-var_70)" +"(if(pair? lst_94)" +"(let-values(((s_178)(unsafe-car lst_94))((rest_44)(unsafe-cdr lst_94)))" +"(let-values(((fold-var_65)" +"(let-values(((fold-var_66) fold-var_63))" +"(let-values(((fold-var_72)" "(let-values()" "(cons" "(let-values()" "(let-values(((bstr_6)" "(string->bytes/utf-8" -"(symbol->string s_457))))" +"(symbol->string s_178))))" "(let-values(((len_40)" "(bytes-length bstr_6)))" "(if(< len_40 255)" @@ -60027,13 +60108,13 @@ static const char *startup_source = " #f" " #f)" " bstr_6))))))" -" fold-var_64))))" -"(values fold-var_70)))))" -"(if(not #f)(for-loop_103 fold-var_20 rest_44) fold-var_20)))" +" fold-var_66))))" +"(values fold-var_72)))))" +"(if(not #f)(for-loop_102 fold-var_65 rest_44) fold-var_65)))" " fold-var_63)))))" -" for-loop_103)" +" for-loop_102)" " null" -" lst_317))))))))))" +" lst_319))))))))))" "(define-values" "(with-module-reading-parameterization+delay-source)" "(lambda(path_13 thunk_7)" @@ -60051,29 +60132,29 @@ static const char *startup_source = "(call-with-input-module-file)" "(lambda(path_14 proc_10)" "(begin" -"(let-values(((i_161) #f))" +"(let-values(((i_159) #f))" "(dynamic-wind" "(lambda()" -"(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)))))))" +"(set! i_159(let-values(((path3_0) path_14)((temp4_7) #t))(open-input-file6.1 temp4_7 #t #f #f path3_0))))" +"(lambda()(proc_10 i_159))" +"(lambda()(close-input-port i_159)))))))" "(define-values(dll-suffix)(system-type 'so-suffix))" "(define-values" "(default-load/use-compiled)" "(let-values(((resolve_0)" -"(lambda(s_68)" +"(lambda(s_69)" "(begin" " 'resolve" -"(if(complete-path? s_68)" -" s_68" -"(let-values(((d_35)(current-load-relative-directory)))" -"(if d_35(path->complete-path s_68 d_35) s_68)))))))" +"(if(complete-path? s_69)" +" s_69" +"(let-values(((d_34)(current-load-relative-directory)))" +"(if d_34(path->complete-path s_69 d_34) s_69)))))))" "(let-values(((date-of-1_0)" "(lambda(a_28)" "(begin" " 'date-of-1" -"(let-values(((v_65)(file-or-directory-modify-seconds a_28 #f(lambda() #f))))" -"(if v_65(cons a_28 v_65) #f))))))" +"(let-values(((v_67)(file-or-directory-modify-seconds a_28 #f(lambda() #f))))" +"(if v_67(cons a_28 v_67) #f))))))" "(let-values(((date-of_0)" "(lambda(a_35 modes_1 roots_1)" "(begin" @@ -60097,7 +60178,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_56)" +"(lambda(base_25 t_58)" "(begin" " 'with-dir*" "(with-continuation-mark" @@ -60106,7 +60187,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_56)))))))" +"(let-values()(t_58)))))))" "(lambda(path_15 expect-module_0)" "(begin" "(let-values((()" @@ -60117,16 +60198,16 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_168)(not expect-module_0)))" -"(if or-part_168" -" or-part_168" -"(let-values(((or-part_71)(symbol? expect-module_0)))" -"(if or-part_71" -" or-part_71" +"(if(let-values(((or-part_75)(not expect-module_0)))" +"(if or-part_75" +" or-part_75" +"(let-values(((or-part_76)(symbol? expect-module_0)))" +"(if or-part_76" +" or-part_76" "(if(list? expect-module_0)" "(if(>(length expect-module_0) 1)" -"(if(let-values(((or-part_72)(symbol?(car expect-module_0))))" -"(if or-part_72 or-part_72(not(car expect-module_0))))" +"(if(let-values(((or-part_77)(symbol?(car expect-module_0))))" +"(if or-part_77 or-part_77(not(car expect-module_0))))" "(andmap2 symbol?(cdr expect-module_0))" " #f)" " #f)" @@ -60160,15 +60241,15 @@ static const char *startup_source = "(let-values(((file_1 alt-file_0)" "(if expect-module_0" "(let-values(((b_90)(path->bytes orig-file_0)))" -"(let-values(((len_7)(bytes-length b_90)))" -"(if(if(>= len_7 4)" -" (bytes=? #\".rkt\" (subbytes b_90 (- len_7 4)))" +"(let-values(((len_37)(bytes-length b_90)))" +"(if(if(>= len_37 4)" +" (bytes=? #\".rkt\" (subbytes b_90 (- len_37 4)))" " #f)" "(let-values()" "(values" " orig-file_0" "(bytes->path" -" (bytes-append (subbytes b_90 0 (- len_7 4)) #\".ss\"))))" +" (bytes-append (subbytes b_90 0 (- len_37 4)) #\".ss\"))))" "(let-values()(values orig-file_0 #f)))))" "(values orig-file_0 #f))))" "(let-values(((path_16)" @@ -60183,14 +60264,14 @@ static const char *startup_source = "(let-values(((modes_3)(1/use-compiled-file-paths)))" "(let-values(((roots_3)(1/current-compiled-file-roots)))" "(let-values(((reroot_0)" -"(lambda(p_75 d_36)" +"(lambda(p_77 d_35)" "(begin" " 'reroot" -"(if(eq? d_36 'same)" -"(let-values() p_75)" -"(if(relative-path? d_36)" -"(let-values()(build-path p_75 d_36))" -"(let-values()(reroot-path p_75 d_36))))))))" +"(if(eq? d_35 'same)" +"(let-values() p_77)" +"(if(relative-path? d_35)" +"(let-values()(build-path p_77 d_35))" +"(let-values()(reroot-path p_77 d_35))))))))" "(let-values(((main-path-d_0)(date-of-1_0 path_16)))" "(let-values(((alt-path-d_0)" "(if alt-path_0" @@ -60231,23 +60312,23 @@ 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_374) main-path-d_0))" -"(if or-part_374" -" or-part_374" +"(let-values(((or-part_359) main-path-d_0))" +"(if or-part_359" +" or-part_359" "(not alt-path-d_0)))))" "(let-values(((try-alt?_0)" "(if alt-file_0" -"(let-values(((or-part_296)" +"(let-values(((or-part_163)" " alt-path-d_0))" -"(if or-part_296" -" or-part_296" +"(if or-part_163" +" or-part_163" "(not main-path-d_0)))" " #f)))" "(let-values(((with-dir_0)" -"(lambda(t_57)" +"(lambda(t_59)" "(begin" " 'with-dir" -"(with-dir*_0 base_26 t_57)))))" +"(with-dir*_0 base_26 t_59)))))" "(let-values(((c1_32)" "(if try-main?_0" "(date>=?_0" @@ -60362,22 +60443,22 @@ static const char *startup_source = "(car zo-d_1)" " expect-module_0)))))))" " c4_3)" -"(if(let-values(((or-part_361)" +"(if(let-values(((or-part_348)" "(not" "(pair?" " expect-module_0))))" -"(if or-part_361" -" or-part_361" +"(if or-part_348" +" or-part_348" "(car expect-module_0)))" "(let-values()" -"(let-values(((p_40)" +"(let-values(((p_39)" "(if try-main?_0" " path_16" " alt-path_0)))" "(if(if(pair?" " expect-module_0)" "(not" -"(file-exists? p_40))" +"(file-exists? p_39))" " #f)" "(void)" "(let-values()" @@ -60390,14 +60471,14 @@ static const char *startup_source = " 1/current-module-declare-source" "(if expect-module_0" "(if(not try-main?_0)" -" p_40" +" p_39" " #f)" " #f))" "(let-values()" "(with-dir_0" "(lambda()" "((1/current-load)" -" p_40" +" p_39" " expect-module_0)))))))))" "(void))))))))))))))))))))))))))))))))))))))))))))" "(define-values" @@ -60412,59 +60493,59 @@ static const char *startup_source = "(begin(let-values(((e_89)(hash-ref -module-hash-table-table reg_0 #f)))(if e_89(ephemeron-value e_89) #f)))))" "(define-values" "(registry-table-set!)" -"(lambda(reg_1 v_199)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_199)))))" +"(lambda(reg_1 v_200)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_200)))))" "(define-values(CACHE-N) 512)" "(define-values(-path-cache)(make-vector CACHE-N #f))" "(define-values" "(path-cache-get)" -"(lambda(p_76)" +"(lambda(p_22)" "(begin" -"(let-values(((i_26)(modulo(abs(equal-hash-code p_76)) CACHE-N)))" +"(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(((l_80)(if w_1(weak-box-value w_1) #f)))" -"(if l_80(let-values(((a_71)(1/assoc p_76 l_80)))(if a_71(cdr a_71) #f)) #f)))))))" +"(if l_80(let-values(((a_71)(1/assoc p_22 l_80)))(if a_71(cdr a_71) #f)) #f)))))))" "(define-values" "(path-cache-set!)" -"(lambda(p_77 v_252)" +"(lambda(p_78 v_252)" "(begin" -"(let-values(((i_188)(modulo(abs(equal-hash-code p_77)) CACHE-N)))" +"(let-values(((i_188)(modulo(abs(equal-hash-code p_78)) CACHE-N)))" "(let-values(((w_2)(vector-ref -path-cache i_188)))" "(let-values(((l_67)(if w_2(weak-box-value w_2) #f)))" "(vector-set!" " -path-cache" " i_188" "(make-weak-box" -"(cons(cons p_77 v_252)(let-values(((or-part_35) l_67))(if or-part_35 or-part_35 null)))))))))))" +"(cons(cons p_78 v_252)(let-values(((or-part_35) l_67))(if or-part_35 or-part_35 null)))))))))))" "(define-values(-loading-filename)(gensym))" "(define-values(-loading-prompt-tag)(make-continuation-prompt-tag 'module-loading))" "(define-values(-prev-relto) #f)" "(define-values(-prev-relto-dir) #f)" "(define-values" "(split-relative-string)" -"(lambda(s_467 coll-mode?_0)" +"(lambda(s_457 coll-mode?_0)" "(begin" "(let-values(((l_19)" -"((letrec-values(((loop_116)" -"(lambda(s_473)" +"((letrec-values(((loop_117)" +"(lambda(s_463)" "(begin" " 'loop" -"(let-values(((len_41)(string-length s_473)))" +"(let-values(((len_41)(string-length s_463)))" "((letrec-values(((iloop_2)" -"(lambda(i_101)" +"(lambda(i_100)" "(begin" " 'iloop" -"(if(= i_101 len_41)" -"(let-values()(list s_473))" -"(if(char=? '#\\/(string-ref s_473 i_101))" +"(if(= i_100 len_41)" +"(let-values()(list s_463))" +"(if(char=? '#\\/(string-ref s_463 i_100))" "(let-values()" "(cons" -"(substring s_473 0 i_101)" -"(loop_116(substring s_473(add1 i_101)))))" -"(let-values()(iloop_2(add1 i_101)))))))))" +"(substring s_463 0 i_100)" +"(loop_117(substring s_463(add1 i_100)))))" +"(let-values()(iloop_2(add1 i_100)))))))))" " iloop_2)" " 0))))))" -" loop_116)" -" s_467)))" +" loop_117)" +" s_457)))" "(if coll-mode?_0" " l_19" "((letrec-values(((loop_101)" @@ -60473,8 +60554,8 @@ static const char *startup_source = " 'loop" "(if(null?(cdr l_78))" "(values null(car l_78))" -"(let-values(((c_113 f_39)(loop_101(cdr l_78))))" -"(values(cons(car l_78) c_113) f_39)))))))" +"(let-values(((c_114 f_41)(loop_101(cdr l_78))))" +"(values(cons(car l_78) c_114) f_41)))))))" " loop_101)" " l_19))))))" "(define-values" @@ -60507,29 +60588,29 @@ static const char *startup_source = " (1/dynamic-require '(lib \"planet/resolver.rkt\") 'planet-module-name-resolver)))))))))" "(letrec-values(((standard-module-name-resolver_0)" "(case-lambda" -"((s_468 from-namespace_1)" +"((s_458 from-namespace_1)" "(begin" " 'standard-module-name-resolver" "(begin" -"(if(1/resolved-module-path? s_468)" +"(if(1/resolved-module-path? s_458)" "(void)" "(let-values()" -" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_468)))" -"(if(let-values(((or-part_135)(not from-namespace_1)))" -"(if or-part_135 or-part_135(1/namespace? from-namespace_1)))" +" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_458)))" +"(if(let-values(((or-part_128)(not from-namespace_1)))" +"(if or-part_128 or-part_128(1/namespace? from-namespace_1)))" "(void)" "(let-values()" "(raise-argument-error" " 'standard-module-name-resolver" " \"(or/c #f namespace?)\"" " from-namespace_1)))" -"(if planet-resolver_0(let-values()(planet-resolver_0 s_468))(void))" +"(if planet-resolver_0(let-values()(planet-resolver_0 s_458))(void))" "(let-values(((hts_1)" -"(let-values(((or-part_313)" +"(let-values(((or-part_300)" "(registry-table-ref" "(namespace-module-registry$1(1/current-namespace)))))" -"(if or-part_313" -" or-part_313" +"(if or-part_300" +" or-part_300" "(let-values(((hts_2)(cons(make-hasheq)(make-hasheq))))" "(begin" "(registry-table-set!" @@ -60537,14 +60618,14 @@ static const char *startup_source = " hts_2)" " hts_2))))))" "(begin" -"(hash-set!(car hts_1) s_468 'declared)" +"(hash-set!(car hts_1) s_458 'declared)" "(if from-namespace_1" "(let-values()" "(let-values(((root-name_2)" -"(if(pair?(1/resolved-module-path-name s_468))" +"(if(pair?(1/resolved-module-path-name s_458))" "(1/make-resolved-module-path" -"(car(1/resolved-module-path-name s_468)))" -" s_468))" +"(car(1/resolved-module-path-name s_458)))" +" s_458))" "((from-hts_0)" "(registry-table-ref" "(namespace-module-registry$1 from-namespace_1))))" @@ -60556,14 +60637,14 @@ static const char *startup_source = "(void))))" "(void))))" "(void)))))))" -"((s_474 relto_0 stx_18)" +"((s_464 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_474 relto_0 stx_18 #t)))" +"(standard-module-name-resolver_0 s_464 relto_0 stx_18 #t)))" "((s_26 relto_1 stx_19 load?_7)" "(let-values((()" "(begin" @@ -60579,8 +60660,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_138)(not relto_1)))" -"(if or-part_138 or-part_138(1/resolved-module-path? relto_1)))" +"(if(let-values(((or-part_131)(not relto_1)))" +"(if or-part_131 or-part_131(1/resolved-module-path? relto_1)))" "(void)" "(let-values()" "(raise-argument-error" @@ -60590,8 +60671,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_146)(not stx_19)))" -"(if or-part_146 or-part_146(syntax?$1 stx_19)))" +"(if(let-values(((or-part_138)(not stx_19)))" +"(if or-part_138 or-part_138(syntax?$1 stx_19)))" "(void)" "(let-values()" "(raise-argument-error" @@ -60603,7 +60684,7 @@ static const char *startup_source = "(lambda(base_28 orig-l_10)" "(begin" " 'flatten-sub-path" -"((letrec-values(((loop_117)" +"((letrec-values(((loop_118)" "(lambda(a_73 l_33)" "(begin" " 'loop" @@ -60630,12 +60711,12 @@ static const char *startup_source = " 'file)" " base_28)))" " orig-l_10))" -"(loop_117(cdr a_73)(cdr l_33))))" +"(loop_118(cdr a_73)(cdr l_33))))" "(let-values()" -"(loop_117" +"(loop_118" "(cons(car l_33) a_73)" "(cdr l_33)))))))))" -" loop_117)" +" loop_118)" " null" " orig-l_10)))))" "(if(if(pair? s_26)(eq?(car s_26) 'quote) #f)" @@ -60649,14 +60730,14 @@ static const char *startup_source = "(1/make-resolved-module-path(flatten-sub-path_0(cadadr s_26)(cddr s_26))))" "(if(if(pair? s_26)" "(if(eq?(car s_26) 'submod)" -" (if (let-values (((or-part_92) (equal? (cadr s_26) \".\")))" -" (if or-part_92 or-part_92 (equal? (cadr s_26) \"..\")))" +" (if (let-values (((or-part_292) (equal? (cadr s_26) \".\")))" +" (if or-part_292 or-part_292 (equal? (cadr s_26) \"..\")))" "(if relto_1" -"(let-values(((p_78)(1/resolved-module-path-name relto_1)))" -"(let-values(((or-part_375)(symbol? p_78)))" -"(if or-part_375" -" or-part_375" -"(if(pair? p_78)(symbol?(car p_78)) #f))))" +"(let-values(((p_79)(1/resolved-module-path-name relto_1)))" +"(let-values(((or-part_360)(symbol? p_79)))" +"(if or-part_360" +" or-part_360" +"(if(pair? p_79)(symbol?(car p_79)) #f))))" " #f)" " #f)" " #f)" @@ -60694,23 +60775,23 @@ static const char *startup_source = "(lambda()" "(begin" " 'get-dir" -"(let-values(((or-part_376)" +"(let-values(((or-part_361)" "(if relto_1" "(if(eq? relto_1 -prev-relto)" " -prev-relto-dir" -"(let-values(((p_79)" +"(let-values(((p_80)" "(1/resolved-module-path-name" " relto_1)))" -"(let-values(((p_80)" -"(if(pair? p_79)" -"(car p_79)" -" p_79)))" -"(if(path? p_80)" +"(let-values(((p_81)" +"(if(pair? p_80)" +"(car p_80)" +" p_80)))" +"(if(path? p_81)" "(let-values(((base_29" " n_35" " d?_0)" "(split-path" -" p_80)))" +" p_81)))" "(begin" "(set! -prev-relto relto_1)" "(set! -prev-relto-dir" @@ -60718,8 +60799,8 @@ static const char *startup_source = " base_29))" " #f))))" " #f)))" -"(if or-part_376" -" or-part_376" +"(if or-part_361" +" or-part_361" "(let-values(((or-part_42)" "(current-load-relative-directory)))" "(if or-part_42" @@ -60736,15 +60817,15 @@ static const char *startup_source = " 'show-collection-err" "(let-values(((msg_2)" "(string-append" -"(let-values(((or-part_377)" +"(let-values(((or-part_362)" "(if stx_19" "(if(error-print-source-location)" "(format-source-location" " stx_19)" " #f)" " #f)))" -"(if or-part_377" -" or-part_377" +"(if or-part_362" +" or-part_362" " \"standard-module-name-resolver\"))" " \": \"" "(regexp-replace" @@ -60765,46 +60846,46 @@ static const char *startup_source = "(current-continuation-marks)" " s_26)))))))" "((ss->rkt_0)" -"(lambda(s_89)" +"(lambda(s_88)" "(begin" " 'ss->rkt" -"(let-values(((len_42)(string-length s_89)))" +"(let-values(((len_42)(string-length s_88)))" "(if(if(>= len_42 3)" "(if(equal?" " '#\\." -"(string-ref s_89(- len_42 3)))" +"(string-ref s_88(- len_42 3)))" "(if(equal?" " '#\\s" -"(string-ref s_89(- len_42 2)))" +"(string-ref s_88(- len_42 2)))" "(equal?" " '#\\s" -"(string-ref s_89(- len_42 1)))" +"(string-ref s_88(- len_42 1)))" " #f)" " #f)" " #f)" "(string-append" -"(substring s_89 0(- len_42 3))" +"(substring s_88 0(- len_42 3))" " \".rkt\")" -" s_89)))))" +" s_88)))))" "((path-ss->rkt_0)" -"(lambda(p_81)" +"(lambda(p_82)" "(begin" " 'path-ss->rkt" "(let-values(((base_11 name_77 dir?_8)" -"(split-path p_81)))" +"(split-path p_82)))" " (if (regexp-match '#rx\"[.]ss$\" (path->bytes name_77))" -" (path-replace-extension p_81 #\".rkt\")" -" p_81)))))" +" (path-replace-extension p_82 #\".rkt\")" +" p_82)))))" "((s_31)" "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)" "(let-values(((v_38)(cadr s_26)))" -" (if (let-values (((or-part_378) (equal? v_38 \".\")))" -" (if or-part_378 or-part_378 (equal? v_38 \"..\")))" +" (if (let-values (((or-part_363) (equal? v_38 \".\")))" +" (if or-part_363 or-part_363 (equal? v_38 \"..\")))" "(if relto_1" -"(let-values(((p_82)" +"(let-values(((p_83)" "(1/resolved-module-path-name" " relto_1)))" -"(if(pair? p_82)(car p_82) p_82))" +"(if(pair? p_83)(car p_83) p_83))" "(error" " 'standard-module-name-resolver" " \"no base path for relative submodule path: ~.s\"" @@ -60813,17 +60894,17 @@ static const char *startup_source = " s_26))" "((subm-path_0)" "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)" -"(let-values(((p_83)" -"(if(if(let-values(((or-part_179)" +"(let-values(((p_84)" +"(if(if(let-values(((or-part_165)" "(equal?" "(cadr s_26)" " \".\")))" -"(if or-part_179" -" or-part_179" +"(if or-part_165" +" or-part_165" " (equal? (cadr s_26) \"..\")))" " relto_1" " #f)" -"(let-values(((p_84)" +"(let-values(((p_85)" "(1/resolved-module-path-name" " relto_1))" "((r_27)" @@ -60832,26 +60913,26 @@ static const char *startup_source = " \"..\")" "(cdr s_26)" "(cddr s_26))))" -"(if(pair? p_84)" +"(if(pair? p_85)" "(flatten-sub-path_0" -"(car p_84)" -"(append(cdr p_84) r_27))" -"(flatten-sub-path_0 p_84 r_27)))" +"(car p_85)" +"(append(cdr p_85) r_27))" +"(flatten-sub-path_0 p_85 r_27)))" "(flatten-sub-path_0" " \".\"" " (if (equal? (cadr s_26) \"..\")" "(cdr s_26)" "(cddr s_26))))))" -"(if(pair? p_83)(cdr p_83) #f))" +"(if(pair? p_84)(cdr p_84) #f))" " #f)))" "(let-values(((s-parsed_0)" "(if(symbol? s_31)" "(let-values()" -"(let-values(((or-part_183)" +"(let-values(((or-part_169)" "(path-cache-get" "(cons s_31(get-reg_0)))))" -"(if or-part_183" -" or-part_183" +"(if or-part_169" +" or-part_169" "(let-values(((cols_0 file_3)" "(split-relative-string" "(symbol->string s_31)" @@ -60871,11 +60952,11 @@ static const char *startup_source = "(if(string? s_31)" "(let-values()" "(let-values(((dir_4)(get-dir_0)))" -"(let-values(((or-part_379)" +"(let-values(((or-part_364)" "(path-cache-get" "(cons s_31 dir_4))))" -"(if or-part_379" -" or-part_379" +"(if or-part_364" +" or-part_364" "(let-values(((cols_1 file_4)" "(split-relative-string" " s_31" @@ -60887,12 +60968,12 @@ static const char *startup_source = " dir_4" "(append" "(map2" -"(lambda(s_314)" -" (if (string=? s_314 \".\")" +"(lambda(s_309)" +" (if (string=? s_309 \".\")" "(let-values() 'same)" -" (if (string=? s_314 \"..\")" +" (if (string=? s_309 \"..\")" "(let-values() 'up)" -"(let-values() s_314))))" +"(let-values() s_309))))" " cols_1)" "(list(ss->rkt_0 file_4))))))))))" "(if(path? s_31)" @@ -60904,11 +60985,11 @@ static const char *startup_source = "(path->complete-path s_31(get-dir_0))))))" "(if(eq?(car s_31) 'lib)" "(let-values()" -"(let-values(((or-part_83)" +"(let-values(((or-part_87)" "(path-cache-get" "(cons s_31(get-reg_0)))))" -"(if or-part_83" -" or-part_83" +"(if or-part_87" +" or-part_87" "(let-values(((cols_2 file_5)" "(split-relative-string" "(cadr s_31)" @@ -60942,9 +61023,9 @@ static const char *startup_source = "(apply" " append" "(map2" -"(lambda(p_85)" +"(lambda(p_86)" "(split-relative-string" -" p_85" +" p_86" " #t))" "(cddr s_31))))" " cols_2)" @@ -60966,8 +61047,8 @@ static const char *startup_source = "(get-dir_0)))))" "(void))))))))" "(begin" -"(if(let-values(((or-part_380)(path? s-parsed_0)))" -"(if or-part_380 or-part_380(vector? s-parsed_0)))" +"(if(let-values(((or-part_365)(path? s-parsed_0)))" +"(if or-part_365 or-part_365(vector? s-parsed_0)))" "(void)" "(let-values()" "(if stx_19" @@ -61005,11 +61086,11 @@ static const char *startup_source = "(vector-ref s-parsed_0 4)" "(1/make-resolved-module-path filename_2))))" "(let-values(((hts_3)" -"(let-values(((or-part_381)" +"(let-values(((or-part_366)" "(registry-table-ref" "(get-reg_0))))" -"(if or-part_381" -" or-part_381" +"(if or-part_366" +" or-part_366" "(let-values(((hts_4)" "(cons" "(make-hasheq)" @@ -61052,11 +61133,11 @@ static const char *startup_source = "((nsr_0)(get-reg_0)))" "(begin" "(for-each2" -"(lambda(s_432)" +"(lambda(s_425)" "(if(if(equal?" -"(cdr s_432)" +"(cdr s_425)" " normal-filename_0)" -"(eq?(car s_432) nsr_0)" +"(eq?(car s_425) nsr_0)" " #f)" "(let-values()" "(error" @@ -61065,7 +61146,7 @@ static const char *startup_source = " filename_2" "(apply" " string-append" -"((letrec-values(((loop_118)" +"((letrec-values(((loop_119)" "(lambda(l_81)" "(begin" " 'loop" @@ -61077,19 +61158,19 @@ static const char *startup_source = "(path->string" "(cdar" " l_81))" -"(loop_118" +"(loop_119" "(cdr" " l_81))))))))" -" loop_118)" +" loop_119)" "(reverse$1 loading_0)))))" "(void)))" " loading_0)" "((if(continuation-prompt-available?" " -loading-prompt-tag)" -"(lambda(f_40)(f_40))" -"(lambda(f_24)" +"(lambda(f_23)(f_23))" +"(lambda(f_42)" "(call-with-continuation-prompt" -" f_24" +" f_42" " -loading-prompt-tag)))" "(lambda()" "(with-continuation-mark" @@ -61107,10 +61188,10 @@ static const char *startup_source = " root-modname_0" " 1/current-module-path-for-load" "((if stx_19" -"(lambda(p_86)" +"(lambda(p_87)" "(1/datum->syntax" " #f" -" p_86" +" p_87" " stx_19))" " values)" "(if(symbol? s_31)" @@ -61151,10 +61232,10 @@ static const char *startup_source = "(void))" "(if(if(not(vector? s-parsed_0))" "(if load?_7" -"(let-values(((or-part_382)" +"(let-values(((or-part_367)" "(string? s_31)))" -"(if or-part_382" -" or-part_382" +"(if or-part_367" +" or-part_367" "(let-values(((or-part_51)" "(symbol? s_31)))" "(if or-part_51" @@ -61180,22 +61261,22 @@ static const char *startup_source = " standard-module-name-resolver_0)))))" "(define-values" "(default-eval-handler)" -"(lambda(s_59)" +"(lambda(s_60)" "(begin" "(1/eval" -" s_59" +" s_60" "(1/current-namespace)" -"(let-values(((c_114)(1/current-compile)))" +"(let-values(((c_115)(1/current-compile)))" "(lambda(e_90 ns_16)" "(if(eq? ns_16(1/current-namespace))" -"(c_114 e_90 #t)" +"(c_115 e_90 #t)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_16)" -"(let-values()(c_114 e_90 #t))))))))))" +"(let-values()(c_115 e_90 #t))))))))))" "(define-values" "(default-compile-handler)" -"(lambda(s_60 immediate-eval?_0)(begin(1/compile s_60(1/current-namespace)(not immediate-eval?_0)))))" +"(lambda(s_61 immediate-eval?_0)(begin(1/compile s_61(1/current-namespace)(not immediate-eval?_0)))))" "(define-values" "(default-read-interaction)" "(lambda(src_9 in_0)" @@ -61247,7 +61328,7 @@ static const char *startup_source = " 'expand-body7" "(let-values(((bodys_7) bodys5_0))" "(let-values(((ctx_14) ctx6_0))" -"(let-values(((s_40) source1_0))" +"(let-values(((s_173) source1_0))" "(let-values(((stratified?_0)(if stratified?4_0 stratified?2_0 #f)))" "(let-values()" "(let-values((()" @@ -61262,21 +61343,21 @@ static const char *startup_source = "(let-values(((inside-sc_0)(new-scope 'intdef)))" "(let-values(((init-bodys_0)" "(reverse$1" -"(let-values(((lst_264) bodys_7))" +"(let-values(((lst_266) bodys_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_264)))" -"((letrec-values(((for-loop_284)" -"(lambda(fold-var_68 lst_102)" +"(let-values()(check-list lst_266)))" +"((letrec-values(((for-loop_281)" +"(lambda(fold-var_70 lst_103)" "(begin" " 'for-loop" -"(if(pair? lst_102)" -"(let-values(((body_11)(unsafe-car lst_102))" -"((rest_142)(unsafe-cdr lst_102)))" +"(if(pair? lst_103)" +"(let-values(((body_11)(unsafe-car lst_103))" +"((rest_142)(unsafe-cdr lst_103)))" "(let-values(((fold-var_11)" -"(let-values(((fold-var_12) fold-var_68))" -"(let-values(((fold-var_213)" +"(let-values(((fold-var_12) fold-var_70))" +"(let-values(((fold-var_215)" "(let-values()" "(cons" "(let-values()" @@ -61284,14 +61365,14 @@ static const char *startup_source = " body_11" " inside-sc_0))" " fold-var_12))))" -"(values fold-var_213)))))" +"(values fold-var_215)))))" "(if(not #f)" -"(for-loop_284 fold-var_11 rest_142)" +"(for-loop_281 fold-var_11 rest_142)" " fold-var_11)))" -" fold-var_68)))))" -" for-loop_284)" +" fold-var_70)))))" +" for-loop_281)" " null" -" lst_264))))))" +" lst_266))))))" "(let-values((()" "(begin" "(let-values(((obs_66)(expand-context-observer ctx_14)))" @@ -61310,8 +61391,8 @@ static const char *startup_source = "(let-values(((def-ctx-scopes_6)(box null)))" "(let-values(((body-ctx_0)" "(let-values(((v_253) ctx_14))" -"(let-values(((the-struct_89) v_253))" -"(if(expand-context/outer? the-struct_89)" +"(let-values(((the-struct_87) v_253))" +"(if(expand-context/outer? the-struct_87)" "(let-values(((context51_0)(list(make-liberal-define-context)))" "((name52_1) #f)" "((only-immediate?53_0) #t)" @@ -61333,20 +61414,20 @@ static const char *startup_source = " use-site-scopes58_0" " frame-id59_0" " context51_0" -"(expand-context/outer-env the-struct_89)" +"(expand-context/outer-env the-struct_87)" " post-expansion-scope-action56_0" " scopes57_0" " def-ctx-scopes54_0" -"(expand-context/outer-binding-layer the-struct_89)" +"(expand-context/outer-binding-layer the-struct_87)" " reference-records60_0" " only-immediate?53_0" -"(expand-context/outer-need-eventually-defined the-struct_89)" -"(expand-context/outer-current-introduction-scopes the-struct_89)" +"(expand-context/outer-need-eventually-defined the-struct_87)" +"(expand-context/outer-current-introduction-scopes the-struct_87)" " name52_1))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_89))))))" +" the-struct_87))))))" "(let-values(((maybe-increment-binding-layer_0)" "(lambda(ids_28 body-ctx_1)" "(begin" @@ -61357,7 +61438,7 @@ static const char *startup_source = "(increment-binding-layer ids_28 body-ctx_1 inside-sc_0)" "(expand-context-binding-layer body-ctx_1))))))" "(let-values(((name_78)(expand-context-name ctx_14)))" -"((letrec-values(((loop_119)" +"((letrec-values(((loop_120)" "(lambda(body-ctx_2" " bodys_8" " done-bodys_0" @@ -61381,7 +61462,7 @@ static const char *startup_source = "((temp68_4)(reverse$1 track-stxs_0))" "((temp69_4)(reverse$1 stx-clauses_0))" "((temp70_4)(reverse$1 done-bodys_0))" -"((s71_0) s_40)" +"((s71_0) s_173)" "((stratified?72_0) stratified?_0)" "((name73_0) name_78)" "((temp74_1)(reverse$1 trans-idss_1)))" @@ -61421,50 +61502,50 @@ static const char *startup_source = "(null?" "(cdr bodys_8))" " #f)" -"(let-values(((v_226)" +"(let-values(((v_227)" " body-ctx_2))" -"(let-values(((the-struct_90)" -" v_226))" +"(let-values(((the-struct_88)" +" v_227))" "(if(expand-context/outer?" -" the-struct_90)" +" the-struct_88)" "(let-values(((name77_0)" " name_78)" "((inner78_0)" "(root-expand-context/outer-inner" -" v_226)))" +" v_227)))" "(expand-context/outer1.1" " inner78_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_90)" +" the-struct_88)" "(root-expand-context/outer-use-site-scopes" -" the-struct_90)" +" the-struct_88)" "(root-expand-context/outer-frame-id" -" the-struct_90)" +" the-struct_88)" "(expand-context/outer-context" -" the-struct_90)" +" the-struct_88)" "(expand-context/outer-env" -" the-struct_90)" +" the-struct_88)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_90)" +" the-struct_88)" "(expand-context/outer-scopes" -" the-struct_90)" +" the-struct_88)" "(expand-context/outer-def-ctx-scopes" -" the-struct_90)" +" the-struct_88)" "(expand-context/outer-binding-layer" -" the-struct_90)" +" the-struct_88)" "(expand-context/outer-reference-records" -" the-struct_90)" +" the-struct_88)" "(expand-context/outer-only-immediate?" -" the-struct_90)" +" the-struct_88)" "(expand-context/outer-need-eventually-defined" -" the-struct_90)" +" the-struct_88)" "(expand-context/outer-current-introduction-scopes" -" the-struct_90)" +" the-struct_88)" " name77_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_90))))" +" the-struct_88))))" " body-ctx_2)))" "(expand7.1" " #f" @@ -61475,11 +61556,11 @@ static const char *startup_source = " temp76_3))))" "(let-values(((disarmed-exp-body_0)" "(syntax-disarm$1 exp-body_0)))" -"(let-values(((tmp_63)" +"(let-values(((tmp_64)" "(core-form-sym" " disarmed-exp-body_0" " phase_142)))" -"(if(equal? tmp_63 'begin)" +"(if(equal? tmp_64 'begin)" "(let-values()" "(let-values((()" "(begin" @@ -61495,38 +61576,38 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_31 begin79_0 e80_0)" -"(let-values(((s_475)" +"(let-values(((s_465)" " disarmed-exp-body_0))" "(let-values(((orig-s_38)" -" s_475))" +" s_465))" "(let-values(((begin79_1" " e80_1)" -"(let-values(((s_476)" +"(let-values(((s_466)" "(if(syntax?$1" -" s_475)" +" s_465)" "(syntax-e$1" -" s_475)" -" s_475)))" +" s_465)" +" s_465)))" "(if(pair?" -" s_476)" +" s_466)" "(let-values(((begin81_0)" -"(let-values(((s_477)" +"(let-values(((s_467)" "(car" -" s_476)))" -" s_477))" +" s_466)))" +" s_467))" "((e82_0)" -"(let-values(((s_478)" +"(let-values(((s_468)" "(cdr" -" s_476)))" -"(let-values(((s_479)" +" s_466)))" +"(let-values(((s_469)" "(if(syntax?$1" -" s_478)" +" s_468)" "(syntax-e$1" -" s_478)" -" s_478)))" +" s_468)" +" s_468)))" "(let-values(((flat-s_24)" "(to-syntax-list.1" -" s_479)))" +" s_469)))" "(if(not" " flat-s_24)" "(let-values()" @@ -61570,7 +61651,7 @@ static const char *startup_source = " 'splice" " splice-bodys_0)))" "(void)))" -"(loop_119" +"(loop_120" " body-ctx_2" " splice-bodys_0" " done-bodys_0" @@ -61581,7 +61662,7 @@ static const char *startup_source = " trans-idss_1" " stx-clauses_0" " dups_0)))))))" -"(if(equal? tmp_63 'define-values)" +"(if(equal? tmp_64 'define-values)" "(let-values()" "(let-values((()" "(begin" @@ -61607,45 +61688,45 @@ static const char *startup_source = "(let-values(((define-values83_1" " id84_1" " rhs85_1)" -"(let-values(((s_480)" +"(let-values(((s_470)" "(if(syntax?$1" " s_31)" "(syntax-e$1" " s_31)" " s_31)))" "(if(pair?" -" s_480)" +" s_470)" "(let-values(((define-values86_0)" -"(let-values(((s_49)" +"(let-values(((s_50)" "(car" -" s_480)))" -" s_49))" +" s_470)))" +" s_50))" "((id87_0" " rhs88_0)" "(let-values(((s_32)" "(cdr" -" s_480)))" -"(let-values(((s_481)" +" s_470)))" +"(let-values(((s_471)" "(if(syntax?$1" " s_32)" "(syntax-e$1" " s_32)" " s_32)))" "(if(pair?" -" s_481)" +" s_471)" "(let-values(((id89_0)" -"(let-values(((s_309)" +"(let-values(((s_305)" "(car" -" s_481)))" -"(let-values(((s_390)" +" s_471)))" +"(let-values(((s_382)" "(if(syntax?$1" -" s_309)" +" s_305)" "(syntax-e$1" -" s_309)" -" s_309)))" +" s_305)" +" s_305)))" "(let-values(((flat-s_25)" "(to-syntax-list.1" -" s_390)))" +" s_382)))" "(if(not" " flat-s_25)" "(let-values()" @@ -61655,7 +61736,7 @@ static const char *startup_source = " orig-s_39))" "(let-values()" "(let-values(((id_109)" -"(let-values(((lst_195)" +"(let-values(((lst_197)" " flat-s_25))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61663,20 +61744,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_195)))" -"((letrec-values(((for-loop_285)" +" lst_197)))" +"((letrec-values(((for-loop_282)" "(lambda(id_110" -" lst_318)" +" lst_320)" "(begin" " 'for-loop" "(if(pair?" -" lst_318)" -"(let-values(((s_312)" +" lst_320)" +"(let-values(((s_308)" "(unsafe-car" -" lst_318))" +" lst_320))" "((rest_181)" "(unsafe-cdr" -" lst_318)))" +" lst_320)))" "(let-values(((id_72)" "(let-values(((id_111)" " id_110))" @@ -61684,23 +61765,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id92_1)" "(let-values()" -"(if(let-values(((or-part_141)" +"(if(let-values(((or-part_134)" "(if(syntax?$1" -" s_312)" +" s_308)" "(symbol?" "(syntax-e$1" -" s_312))" +" s_308))" " #f)))" -"(if or-part_141" -" or-part_141" +"(if or-part_134" +" or-part_134" "(symbol?" -" s_312)))" -" s_312" +" s_308)))" +" s_308" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_39" -" s_312)))))" +" s_308)))))" "(cons" " id92_1" " id_111)))))" @@ -61708,45 +61789,45 @@ static const char *startup_source = " id_112)))))" "(if(not" " #f)" -"(for-loop_285" +"(for-loop_282" " id_72" " rest_181)" " id_72)))" " id_110)))))" -" for-loop_285)" +" for-loop_282)" " null" -" lst_195)))))" +" lst_197)))))" "(reverse$1" " id_109))))))))" "((rhs90_0)" -"(let-values(((s_482)" -"(cdr" -" s_481)))" -"(let-values(((s_483)" -"(if(syntax?$1" -" s_482)" -"(syntax-e$1" -" s_482)" -" s_482)))" -"(if(pair?" -" s_483)" -"(let-values(((rhs91_0)" "(let-values(((s_54)" -"(car" -" s_483)))" -" s_54))" -"(()" -"(let-values(((s_313)" "(cdr" -" s_483)))" -"(let-values(((s_314)" +" s_471)))" +"(let-values(((s_472)" "(if(syntax?$1" -" s_313)" +" s_54)" "(syntax-e$1" -" s_313)" -" s_313)))" +" s_54)" +" s_54)))" +"(if(pair?" +" s_472)" +"(let-values(((rhs91_0)" +"(let-values(((s_473)" +"(car" +" s_472)))" +" s_473))" +"(()" +"(let-values(((s_55)" +"(cdr" +" s_472)))" +"(let-values(((s_309)" +"(if(syntax?$1" +" s_55)" +"(syntax-e$1" +" s_55)" +" s_55)))" "(if(null?" -" s_314)" +" s_309)" "(values)" "(raise-syntax-error$1" " #f" @@ -61822,7 +61903,7 @@ static const char *startup_source = " ctx_14)))" "(let-values(((keys_5)" "(reverse$1" -"(let-values(((lst_319)" +"(let-values(((lst_321)" " ids_29))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61830,23 +61911,23 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_319)))" -"((letrec-values(((for-loop_286)" -"(lambda(fold-var_183" -" lst_320)" +" lst_321)))" +"((letrec-values(((for-loop_283)" +"(lambda(fold-var_185" +" lst_322)" "(begin" " 'for-loop" "(if(pair?" -" lst_320)" +" lst_322)" "(let-values(((id_113)" "(unsafe-car" -" lst_320))" +" lst_322))" "((rest_182)" "(unsafe-cdr" -" lst_320)))" +" lst_322)))" "(let-values(((fold-var_38)" "(let-values(((fold-var_293)" -" fold-var_183))" +" fold-var_185))" "(let-values(((fold-var_294)" "(let-values()" "(cons" @@ -61874,18 +61955,18 @@ static const char *startup_source = " fold-var_294)))))" "(if(not" " #f)" -"(for-loop_286" +"(for-loop_283" " fold-var_38" " rest_182)" " fold-var_38)))" -" fold-var_183)))))" -" for-loop_286)" +" fold-var_185)))))" +" for-loop_283)" " null" -" lst_319))))))" +" lst_321))))))" "(let-values(((extended-env_0)" -"(let-values(((lst_230)" +"(let-values(((lst_232)" " keys_5)" -"((lst_197)" +"((lst_199)" " ids_29))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61893,36 +61974,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_230)))" +" lst_232)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_197)))" -"((letrec-values(((for-loop_287)" +" lst_199)))" +"((letrec-values(((for-loop_284)" "(lambda(env_17" -" lst_321" -" lst_273)" +" lst_323" +" lst_275)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_321)" +" lst_323)" "(pair?" -" lst_273)" +" lst_275)" " #f)" -"(let-values(((key_94)" +"(let-values(((key_93)" "(unsafe-car" -" lst_321))" +" lst_323))" "((rest_149)" "(unsafe-cdr" -" lst_321))" +" lst_323))" "((id_9)" "(unsafe-car" -" lst_273))" +" lst_275))" "((rest_183)" "(unsafe-cdr" -" lst_273)))" +" lst_275)))" "(let-values(((env_18)" "(let-values(((env_19)" " env_17))" @@ -61930,31 +62011,31 @@ static const char *startup_source = "(let-values()" "(env-extend" " env_19" -" key_94" +" key_93" "(local-variable1.1" " id_9)))))" "(values" " env_20)))))" "(if(not" " #f)" -"(for-loop_287" +"(for-loop_284" " env_18" " rest_149" " rest_183)" " env_18)))" " env_17)))))" -" for-loop_287)" +" for-loop_284)" "(expand-context-env" " body-ctx_2)" -" lst_230" -" lst_197)))))" -"(loop_119" +" lst_232" +" lst_199)))))" +"(loop_120" "(let-values(((v_254)" " body-ctx_2))" -"(let-values(((the-struct_91)" +"(let-values(((the-struct_89)" " v_254))" "(if(expand-context/outer?" -" the-struct_91)" +" the-struct_89)" "(let-values(((env102_0)" " extended-env_0)" "((binding-layer103_0)" @@ -61967,42 +62048,42 @@ static const char *startup_source = "(expand-context/outer1.1" " inner104_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_91)" +" the-struct_89)" "(root-expand-context/outer-use-site-scopes" -" the-struct_91)" +" the-struct_89)" "(root-expand-context/outer-frame-id" -" the-struct_91)" +" the-struct_89)" "(expand-context/outer-context" -" the-struct_91)" +" the-struct_89)" " env102_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_91)" +" the-struct_89)" "(expand-context/outer-scopes" -" the-struct_91)" +" the-struct_89)" "(expand-context/outer-def-ctx-scopes" -" the-struct_91)" +" the-struct_89)" " binding-layer103_0" "(expand-context/outer-reference-records" -" the-struct_91)" +" the-struct_89)" "(expand-context/outer-only-immediate?" -" the-struct_91)" +" the-struct_89)" "(expand-context/outer-need-eventually-defined" -" the-struct_91)" +" the-struct_89)" "(expand-context/outer-current-introduction-scopes" -" the-struct_91)" +" the-struct_89)" "(expand-context/outer-name" -" the-struct_91)))" +" the-struct_89)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_91))))" +" the-struct_89))))" " rest-bodys_0" " null" "(cons" " ids_29" "(append" "(reverse$1" -"(let-values(((lst_322)" +"(let-values(((lst_324)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62010,20 +62091,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_322)))" -"((letrec-values(((for-loop_288)" +" lst_324)))" +"((letrec-values(((for-loop_285)" "(lambda(fold-var_295" -" lst_323)" +" lst_325)" "(begin" " 'for-loop" "(if(pair?" -" lst_323)" +" lst_325)" "(let-values(((done-body_0)" "(unsafe-car" -" lst_323))" +" lst_325))" "((rest_184)" "(unsafe-cdr" -" lst_323)))" +" lst_325)))" "(let-values(((fold-var_296)" "(let-values(((fold-var_297)" " fold-var_295))" @@ -62037,14 +62118,14 @@ static const char *startup_source = " fold-var_298)))))" "(if(not" " #f)" -"(for-loop_288" +"(for-loop_285" " fold-var_296" " rest_184)" " fold-var_296)))" " fold-var_295)))))" -" for-loop_288)" +" for-loop_285)" " null" -" lst_322))))" +" lst_324))))" " val-idss_0))" "(cons" " keys_5" @@ -62059,19 +62140,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_32)))" -"((letrec-values(((for-loop_289)" +"((letrec-values(((for-loop_286)" "(lambda(fold-var_299" -" lst_324)" +" lst_326)" "(begin" " 'for-loop" "(if(pair?" -" lst_324)" +" lst_326)" "(let-values(((done-body_1)" "(unsafe-car" -" lst_324))" +" lst_326))" "((rest_185)" "(unsafe-cdr" -" lst_324)))" +" lst_326)))" "(let-values(((fold-var_300)" "(let-values(((fold-var_301)" " fold-var_299))" @@ -62085,12 +62166,12 @@ static const char *startup_source = " fold-var_302)))))" "(if(not" " #f)" -"(for-loop_289" +"(for-loop_286" " fold-var_300" " rest_185)" " fold-var_300)))" " fold-var_299)))))" -" for-loop_289)" +" for-loop_286)" " null" " lst_32))))" " val-keyss_0))" @@ -62098,7 +62179,7 @@ static const char *startup_source = " rhs85_0" "(append" "(reverse$1" -"(let-values(((lst_325)" +"(let-values(((lst_327)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62106,22 +62187,22 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_325)))" -"((letrec-values(((for-loop_259)" +" lst_327)))" +"((letrec-values(((for-loop_258)" "(lambda(fold-var_303" -" lst_201)" +" lst_203)" "(begin" " 'for-loop" "(if(pair?" -" lst_201)" +" lst_203)" "(let-values(((done-body_2)" "(unsafe-car" -" lst_201))" +" lst_203))" "((rest_186)" "(unsafe-cdr" -" lst_201)))" +" lst_203)))" "(let-values(((fold-var_304)" -"(let-values(((fold-var_138)" +"(let-values(((fold-var_140)" " fold-var_303))" "(let-values(((fold-var_305)" "(let-values()" @@ -62129,27 +62210,27 @@ static const char *startup_source = "(let-values()" "(no-binds" " done-body_2" -" s_40" +" s_173" " phase_142))" -" fold-var_138))))" +" fold-var_140))))" "(values" " fold-var_305)))))" "(if(not" " #f)" -"(for-loop_259" +"(for-loop_258" " fold-var_304" " rest_186)" " fold-var_304)))" " fold-var_303)))))" -" for-loop_259)" +" for-loop_258)" " null" -" lst_325))))" +" lst_327))))" " val-rhss_0))" "(cons" " exp-body_0" "(append" "(reverse$1" -"(let-values(((lst_107)" +"(let-values(((lst_108)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62157,46 +62238,46 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_107)))" -"((letrec-values(((for-loop_290)" -"(lambda(fold-var_139" -" lst_108)" +" lst_108)))" +"((letrec-values(((for-loop_287)" +"(lambda(fold-var_141" +" lst_109)" "(begin" " 'for-loop" "(if(pair?" -" lst_108)" +" lst_109)" "(let-values(((done-body_3)" "(unsafe-car" -" lst_108))" +" lst_109))" "((rest_187)" "(unsafe-cdr" -" lst_108)))" +" lst_109)))" "(let-values(((fold-var_306)" -"(let-values(((fold-var_142)" -" fold-var_139))" +"(let-values(((fold-var_144)" +" fold-var_141))" "(let-values(((fold-var_39)" "(let-values()" "(cons" "(let-values()" " #f)" -" fold-var_142))))" +" fold-var_144))))" "(values" " fold-var_39)))))" "(if(not" " #f)" -"(for-loop_290" +"(for-loop_287" " fold-var_306" " rest_187)" " fold-var_306)))" -" fold-var_139)))))" -" for-loop_290)" +" fold-var_141)))))" +" for-loop_287)" " null" -" lst_107))))" +" lst_108))))" " track-stxs_0))" " trans-idss_1" " stx-clauses_0" " new-dups_0))))))))))" -"(if(equal? tmp_63 'define-syntaxes)" +"(if(equal? tmp_64 'define-syntaxes)" "(let-values()" "(let-values((()" "(begin" @@ -62215,52 +62296,52 @@ static const char *startup_source = " define-syntaxes105_0" " id106_2" " rhs107_0)" -"(let-values(((s_94)" +"(let-values(((s_474)" " disarmed-exp-body_0))" "(let-values(((orig-s_40)" -" s_94))" +" s_474))" "(let-values(((define-syntaxes105_1" " id106_3" " rhs107_1)" -"(let-values(((s_152)" +"(let-values(((s_94)" "(if(syntax?$1" -" s_94)" +" s_474)" "(syntax-e$1" -" s_94)" -" s_94)))" +" s_474)" +" s_474)))" "(if(pair?" -" s_152)" +" s_94)" "(let-values(((define-syntaxes108_0)" -"(let-values(((s_484)" +"(let-values(((s_475)" "(car" -" s_152)))" -" s_484))" +" s_94)))" +" s_475))" "((id109_0" " rhs110_0)" -"(let-values(((s_485)" +"(let-values(((s_95)" "(cdr" -" s_152)))" +" s_94)))" "(let-values(((s_96)" "(if(syntax?$1" -" s_485)" +" s_95)" "(syntax-e$1" -" s_485)" -" s_485)))" +" s_95)" +" s_95)))" "(if(pair?" " s_96)" "(let-values(((id111_0)" -"(let-values(((s_65)" +"(let-values(((s_97)" "(car" " s_96)))" -"(let-values(((s_98)" +"(let-values(((s_207)" "(if(syntax?$1" -" s_65)" +" s_97)" "(syntax-e$1" -" s_65)" -" s_65)))" +" s_97)" +" s_97)))" "(let-values(((flat-s_26)" "(to-syntax-list.1" -" s_98)))" +" s_207)))" "(if(not" " flat-s_26)" "(let-values()" @@ -62270,7 +62351,7 @@ static const char *startup_source = " orig-s_40))" "(let-values()" "(let-values(((id_114)" -"(let-values(((lst_326)" +"(let-values(((lst_328)" " flat-s_26))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62278,15 +62359,15 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_326)))" -"((letrec-values(((for-loop_291)" +" lst_328)))" +"((letrec-values(((for-loop_288)" "(lambda(id_115" " lst_35)" "(begin" " 'for-loop" "(if(pair?" " lst_35)" -"(let-values(((s_486)" +"(let-values(((s_476)" "(unsafe-car" " lst_35))" "((rest_188)" @@ -62299,23 +62380,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id114_0)" "(let-values()" -"(if(let-values(((or-part_327)" +"(if(let-values(((or-part_314)" "(if(syntax?$1" -" s_486)" +" s_476)" "(symbol?" "(syntax-e$1" -" s_486))" +" s_476))" " #f)))" -"(if or-part_327" -" or-part_327" +"(if or-part_314" +" or-part_314" "(symbol?" -" s_486)))" -" s_486" +" s_476)))" +" s_476" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_40" -" s_486)))))" +" s_476)))))" "(cons" " id114_0" " id_117)))))" @@ -62323,45 +62404,45 @@ static const char *startup_source = " id_118)))))" "(if(not" " #f)" -"(for-loop_291" +"(for-loop_288" " id_116" " rest_188)" " id_116)))" " id_115)))))" -" for-loop_291)" +" for-loop_288)" " null" -" lst_326)))))" +" lst_328)))))" "(reverse$1" " id_114))))))))" "((rhs112_0)" -"(let-values(((s_487)" +"(let-values(((s_477)" "(cdr" " s_96)))" -"(let-values(((s_488)" +"(let-values(((s_478)" "(if(syntax?$1" -" s_487)" +" s_477)" "(syntax-e$1" -" s_487)" -" s_487)))" +" s_477)" +" s_477)))" "(if(pair?" -" s_488)" +" s_478)" "(let-values(((rhs113_0)" -"(let-values(((s_101)" +"(let-values(((s_479)" "(car" -" s_488)))" -" s_101))" +" s_478)))" +" s_479))" "(()" -"(let-values(((s_324)" +"(let-values(((s_318)" "(cdr" -" s_488)))" -"(let-values(((s_489)" +" s_478)))" +"(let-values(((s_480)" "(if(syntax?$1" -" s_324)" +" s_318)" "(syntax-e$1" -" s_324)" -" s_324)))" +" s_318)" +" s_318)))" "(if(null?" -" s_489)" +" s_480)" "(values)" "(raise-syntax-error$1" " #f" @@ -62437,7 +62518,7 @@ static const char *startup_source = " ctx_14)))" "(let-values(((keys_6)" "(reverse$1" -"(let-values(((lst_327)" +"(let-values(((lst_329)" " ids_30))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62445,20 +62526,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_327)))" -"((letrec-values(((for-loop_292)" +" lst_329)))" +"((letrec-values(((for-loop_289)" "(lambda(fold-var_307" -" lst_328)" +" lst_330)" "(begin" " 'for-loop" "(if(pair?" -" lst_328)" +" lst_330)" "(let-values(((id_119)" "(unsafe-car" -" lst_328))" +" lst_330))" "((rest_189)" "(unsafe-cdr" -" lst_328)))" +" lst_330)))" "(let-values(((fold-var_308)" "(let-values(((fold-var_309)" " fold-var_307))" @@ -62489,14 +62570,14 @@ static const char *startup_source = " fold-var_310)))))" "(if(not" " #f)" -"(for-loop_292" +"(for-loop_289" " fold-var_308" " rest_189)" " fold-var_308)))" " fold-var_307)))))" -" for-loop_292)" +" for-loop_289)" " null" -" lst_327))))))" +" lst_329))))))" "(let-values((()" "(begin" "(let-values(((obs_72)" @@ -62534,11 +62615,11 @@ static const char *startup_source = " ids_30" " body-ctx_2)))" "(let-values(((extended-env_1)" -"(let-values(((lst_46)" +"(let-values(((lst_331)" " keys_6)" -"((lst_329)" +"((lst_332)" " vals_8)" -"((lst_330)" +"((lst_333)" " ids_30))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62546,52 +62627,52 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_46)))" +" lst_331)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_329)))" +" lst_332)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_330)))" -"((letrec-values(((for-loop_293)" +" lst_333)))" +"((letrec-values(((for-loop_290)" "(lambda(env_21" -" lst_331" -" lst_332" -" lst_333)" +" lst_334" +" lst_335" +" lst_336)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_331)" +" lst_334)" "(if(pair?" -" lst_332)" +" lst_335)" "(pair?" -" lst_333)" +" lst_336)" " #f)" " #f)" -"(let-values(((key_95)" +"(let-values(((key_94)" "(unsafe-car" -" lst_331))" +" lst_334))" "((rest_190)" "(unsafe-cdr" -" lst_331))" +" lst_334))" "((val_85)" "(unsafe-car" -" lst_332))" +" lst_335))" "((rest_191)" "(unsafe-cdr" -" lst_332))" +" lst_335))" "((id_7)" "(unsafe-car" -" lst_333))" +" lst_336))" "((rest_192)" "(unsafe-cdr" -" lst_333)))" +" lst_336)))" "(let-values(((env_22)" "(let-values(((env_23)" " env_21))" @@ -62605,25 +62686,25 @@ static const char *startup_source = " body-ctx_2)" "(env-extend" " env_23" -" key_95" +" key_94" " val_85)))))" "(values" " env_24)))))" "(if(not" " #f)" -"(for-loop_293" +"(for-loop_290" " env_22" " rest_190" " rest_191" " rest_192)" " env_22)))" " env_21)))))" -" for-loop_293)" +" for-loop_290)" "(expand-context-env" " body-ctx_2)" -" lst_46" -" lst_329" -" lst_330)))))" +" lst_331" +" lst_332" +" lst_333)))))" "(begin" "(let-values(((obs_74)" "(expand-context-observer" @@ -62635,7 +62716,7 @@ static const char *startup_source = " obs_74" " 'exit-bind)))" "(void)))" -"(loop_119" +"(loop_120" "(let-values(((v_255)" " body-ctx_2))" "(let-values(((the-struct_65)" @@ -62710,7 +62791,7 @@ static const char *startup_source = "(let-values()" "(error" " \"internal error: accumulated expressions not empty\")))" -"(loop_119" +"(loop_120" " body-ctx_2" " null" "(if(if(null? val-idss_0)" @@ -62738,7 +62819,7 @@ static const char *startup_source = " stx-clauses_0" " dups_0)))" "(let-values()" -"(loop_119" +"(loop_120" " body-ctx_2" " rest-bodys_0" "(cons exp-body_0 done-bodys_0)" @@ -62749,7 +62830,7 @@ static const char *startup_source = " trans-idss_1" " stx-clauses_0" " dups_0))))))))))))))))))" -" loop_119)" +" loop_120)" " body-ctx_0" " init-bodys_0" " null" @@ -62786,7 +62867,7 @@ static const char *startup_source = "(let-values(((track-stxs_1) track-stxs24_0))" "(let-values(((stx-clauses_1) stx-clauses25_0))" "(let-values(((done-bodys_1) done-bodys26_0))" -"(let-values(((s_230) source10_0))" +"(let-values(((s_225) source10_0))" "(let-values(((stratified?_1) stratified?11_0))" "(let-values(((name_79) name12_0))" "(let-values(((disappeared-transformer-bindings_0) disappeared-transformer-bindings13_0))" @@ -62798,7 +62879,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"no expression after a sequence of internal definitions\"" -" s_230))" +" s_225))" "(void))" "(values))))" "(let-values(((finish-ctx_0)" @@ -62806,8 +62887,8 @@ static const char *startup_source = "(accumulate-def-ctx-scopes" " body-ctx_3" " def-ctx-scopes_7)))" -"(let-values(((the-struct_92) v_256))" -"(if(expand-context/outer? the-struct_92)" +"(let-values(((the-struct_90) v_256))" +"(if(expand-context/outer? the-struct_90)" "(let-values(((context127_0) 'expression)" "((use-site-scopes128_0)(box null))" "((scopes129_0)" @@ -62825,24 +62906,24 @@ static const char *startup_source = " inner133_0" " post-expansion-scope132_0" " use-site-scopes128_0" -"(root-expand-context/outer-frame-id the-struct_92)" +"(root-expand-context/outer-frame-id the-struct_90)" " context127_0" -"(expand-context/outer-env the-struct_92)" +"(expand-context/outer-env the-struct_90)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_92)" +" the-struct_90)" " scopes129_0" " def-ctx-scopes131_0" -"(expand-context/outer-binding-layer the-struct_92)" -"(expand-context/outer-reference-records the-struct_92)" +"(expand-context/outer-binding-layer the-struct_90)" +"(expand-context/outer-reference-records the-struct_90)" " only-immediate?130_0" -"(expand-context/outer-need-eventually-defined the-struct_92)" +"(expand-context/outer-need-eventually-defined the-struct_90)" "(expand-context/outer-current-introduction-scopes" -" the-struct_92)" -"(expand-context/outer-name the-struct_92)))" +" the-struct_90)" +"(expand-context/outer-name the-struct_90)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_92))))))" +" the-struct_90))))))" "(let-values(((finish-bodys_0)" "(lambda()" "(begin" @@ -62883,35 +62964,35 @@ static const char *startup_source = "(values))))" "(let-values(((exp-bodys_0)" "(reverse$1" -"(let-values(((lst_334) done-bodys_1)" +"(let-values(((lst_337) done-bodys_1)" "((start_66) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_334)))" +"(check-list lst_337)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals start_66)))" -"((letrec-values(((for-loop_294)" +"((letrec-values(((for-loop_291)" "(lambda(fold-var_311" -" lst_335" +" lst_338" " pos_127)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_335)" +" lst_338)" " #t" " #f)" "(let-values(((done-body_4)" "(unsafe-car" -" lst_335))" +" lst_338))" "((rest_193)" "(unsafe-cdr" -" lst_335))" +" lst_338))" "((i_189)" " pos_127))" "(let-values(((fold-var_312)" @@ -62942,10 +63023,10 @@ static const char *startup_source = " #f)" "(let-values(((v_257)" " finish-ctx_0))" -"(let-values(((the-struct_93)" +"(let-values(((the-struct_91)" " v_257))" "(if(expand-context/outer?" -" the-struct_93)" +" the-struct_91)" "(let-values(((name136_0)" " name_79)" "((inner137_0)" @@ -62954,36 +63035,36 @@ static const char *startup_source = "(expand-context/outer1.1" " inner137_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_93)" +" the-struct_91)" "(root-expand-context/outer-use-site-scopes" -" the-struct_93)" +" the-struct_91)" "(root-expand-context/outer-frame-id" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-context" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-env" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-scopes" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-def-ctx-scopes" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-binding-layer" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-reference-records" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-only-immediate?" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-need-eventually-defined" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-current-introduction-scopes" -" the-struct_93)" +" the-struct_91)" " name136_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_93))))" +" the-struct_91))))" " finish-ctx_0)))" "(expand7.1" " #f" @@ -62997,7 +63078,7 @@ static const char *startup_source = " fold-var_314)))))" "(if(not" " #f)" -"(for-loop_294" +"(for-loop_291" " fold-var_312" " rest_193" "(+" @@ -63005,9 +63086,9 @@ static const char *startup_source = " 1))" " fold-var_312)))" " fold-var_311)))))" -" for-loop_294)" +" for-loop_291)" " null" -" lst_334" +" lst_337" " start_66))))))" "(begin" "(let-values(((obs_78)" @@ -63032,7 +63113,7 @@ static const char *startup_source = "(call-expand-observe" " obs_79" " 'block->list" -"(datum->syntax$1 s_230 done-bodys_1))))" +"(datum->syntax$1 s_225 done-bodys_1))))" "(void)))" "(finish-bodys_0)))" "(let-values()" @@ -63045,7 +63126,7 @@ static const char *startup_source = "(log-letrec-values$1" " obs_80" " finish-ctx_0" -" s_230" +" s_225" " val-idss_1" " val-rhss_1" " track-stxs_1" @@ -63061,7 +63142,7 @@ static const char *startup_source = "((temp142_2)(not stratified?_1))" "((frame-id143_0) frame-id_13)" "((finish-ctx144_0) finish-ctx_0)" -"((s145_0) s_230)" +"((s145_0) s_225)" "((temp146_3)(pair? stx-clauses_1))" "((finish-bodys147_0) finish-bodys_0)" "((temp148_0) #f))" @@ -63114,13 +63195,13 @@ static const char *startup_source = "(let-values(((split?_0) split?30_0))" "(let-values(((frame-id_14) frame-id31_0))" "(let-values(((ctx_77) ctx32_0))" -"(let-values(((s_490) source33_0))" +"(let-values(((s_481) 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_143)(expand-context-phase ctx_77)))" -"((letrec-values(((loop_120)" +"((letrec-values(((loop_121)" "(lambda(idss_2" " keyss_1" " rhss_2" @@ -63144,12 +63225,12 @@ static const char *startup_source = "(if(expand-context-to-parsed? ctx_77)" "(if(null? accum-idss_0)" "(parsed-let-values17.1" -"(keep-properties-only s_490)" +"(keep-properties-only s_481)" " null" " null" " exp-body_1)" "(parsed-letrec-values18.1" -"(keep-properties-only s_490)" +"(keep-properties-only s_481)" "(reverse$1 accum-idss_0)" "(reverse$1" "(map2" @@ -63158,7 +63239,7 @@ static const char *startup_source = " accum-rhss_0))" " exp-body_1))" "(let-values(((track?149_0) track?_2)" -"((s150_0) s_490)" +"((s150_0) s_481)" "((temp151_3)" "(list*" "(if(null? accum-idss_0)" @@ -63246,7 +63327,7 @@ static const char *startup_source = " \"internal error: accumulated ids not empty\")))" "(values))))" "(let-values(((exp-rest_0)" -"(loop_120" +"(loop_121" "(cdr idss_2)" "(cdr keyss_1)" "(cdr rhss_2)" @@ -63263,7 +63344,7 @@ static const char *startup_source = " ctx_77)" "(parsed-let-values17.1" "(keep-properties-only" -" s_490)" +" s_481)" "(list ids_31)" "(list" "(list" @@ -63273,7 +63354,7 @@ static const char *startup_source = "(let-values(((track?154_0)" " track?_2)" "((s155_0)" -" s_490)" +" s_481)" "((temp156_0)" "(list*" "(core-id" @@ -63312,14 +63393,14 @@ static const char *startup_source = "(list result-s_10)" " result-s_10))))))" "(if(if(not forward-references?_0)" -"(let-values(((or-part_383) split?_0))" -"(if or-part_383" -" or-part_383" +"(let-values(((or-part_368) split?_0))" +"(if or-part_368" +" or-part_368" "(null?(cdr idss_2))))" " #f)" "(let-values()" "(let-values(((exp-rest_1)" -"(loop_120" +"(loop_121" "(cdr idss_2)" "(cdr keyss_1)" "(cdr rhss_2)" @@ -63336,7 +63417,7 @@ static const char *startup_source = " ctx_77)" "(parsed-letrec-values18.1" "(keep-properties-only" -" s_490)" +" s_481)" "(reverse$1" "(cons" " ids_31" @@ -63354,7 +63435,7 @@ static const char *startup_source = "(let-values(((track?157_0)" " track?_2)" "((s158_0)" -" s_490)" +" s_481)" "((temp159_0)" "(list*" "(core-id" @@ -63398,7 +63479,7 @@ static const char *startup_source = "(list result-s_11)" " result-s_11)))))" "(let-values()" -"(loop_120" +"(loop_121" "(cdr idss_2)" "(cdr keyss_1)" "(cdr rhss_2)" @@ -63410,7 +63491,7 @@ static const char *startup_source = " track?_2" " get-list?_0" " can-log?_0)))))))))))))))))" -" loop_120)" +" loop_121)" " idss_1" " keyss_0" " rhss_1" @@ -63434,46 +63515,46 @@ static const char *startup_source = "(if track-stx_1(syntax-track-origin$1 clause_2 track-stx_1) clause_2)))))" "(define-values" "(no-binds)" -"(lambda(expr_10 s_491 phase_144)" +"(lambda(expr_10 s_482 phase_144)" "(begin" "(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_144)))" "(datum->syntax$1" "(core-id '#%app phase_144)" "(list(core-id 'begin phase_144) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" -" s_491)))))" +" s_482)))))" "(define-values" "(log-tag?)" "(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_85 ctx_79 s_492 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" +"(lambda(obs_85 ctx_79 s_483 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" "(begin" " 'log-letrec-values" "(let-values(((phase_145)(expand-context-phase ctx_79)))" "(let-values(((clauses_0)" "(reverse$1" -"(let-values(((lst_245) val-idss_2)((lst_246) val-rhss_2)((lst_336) track-stxs_4))" +"(let-values(((lst_247) val-idss_2)((lst_248) val-rhss_2)((lst_339) track-stxs_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_245)))" +"(let-values()(check-list lst_247)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_246)))" +"(let-values()(check-list lst_248)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_336)))" -"((letrec-values(((for-loop_295)" -"(lambda(fold-var_315 lst_337 lst_338 lst_339)" +"(let-values()(check-list lst_339)))" +"((letrec-values(((for-loop_292)" +"(lambda(fold-var_315 lst_340 lst_341 lst_342)" "(begin" " 'for-loop" -"(if(if(pair? lst_337)(if(pair? lst_338)(pair? lst_339) #f) #f)" -"(let-values(((val-ids_0)(unsafe-car lst_337))" -"((rest_194)(unsafe-cdr lst_337))" -"((val-rhs_0)(unsafe-car lst_338))" -"((rest_195)(unsafe-cdr lst_338))" -"((track-stx_2)(unsafe-car lst_339))" -"((rest_62)(unsafe-cdr lst_339)))" +"(if(if(pair? lst_340)(if(pair? lst_341)(pair? lst_342) #f) #f)" +"(let-values(((val-ids_0)(unsafe-car lst_340))" +"((rest_194)(unsafe-cdr lst_340))" +"((val-rhs_0)(unsafe-car lst_341))" +"((rest_195)(unsafe-cdr lst_341))" +"((track-stx_2)(unsafe-car lst_342))" +"((rest_62)(unsafe-cdr lst_342)))" "(let-values(((fold-var_316)" "(let-values(((fold-var_317) fold-var_315))" "(let-values(((fold-var_318)" @@ -63487,14 +63568,14 @@ static const char *startup_source = " fold-var_317))))" "(values fold-var_318)))))" "(if(not #f)" -"(for-loop_295 fold-var_316 rest_194 rest_195 rest_62)" +"(for-loop_292 fold-var_316 rest_194 rest_195 rest_62)" " fold-var_316)))" " fold-var_315)))))" -" for-loop_295)" +" for-loop_292)" " null" -" lst_245" -" lst_246" -" lst_336))))))" +" lst_247" +" lst_248" +" lst_339))))))" "(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_145)))" "(let-values(((lv-s_0)" @@ -63503,7 +63584,7 @@ static const char *startup_source = "(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_492)))" +" s_483)))" "(begin" "(call-expand-observe obs_85 'block->letrec(list lv-s_0))" "(call-expand-observe obs_85 'visit lv-s_0)" @@ -63518,7 +63599,7 @@ static const char *startup_source = " 'letrec-syntaxes-renames" " stx-clauses_2" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_492))" +"(datum->syntax$1 #f done-bodys_2 s_483))" "(call-expand-observe obs_85 'prepare-env)" "(call-expand-observe obs_85 'next-group)" "(if(null? val-idss_2)" @@ -63530,7 +63611,7 @@ static const char *startup_source = " obs_85" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_492)))))))" +"(datum->syntax$1 #f done-bodys_2 s_483)))))))" "(let-values()" "(begin" "(call-expand-observe obs_85 'prim-letrec-values)" @@ -63538,10 +63619,10 @@ static const char *startup_source = " obs_85" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_492))))))))))))))" +"(datum->syntax$1 #f done-bodys_2 s_483))))))))))))))" "(define-values" "(lambda-clause-expander)" -"(lambda(s_70 disarmed-s_5 formals_1 bodys_9 ctx_80 log-renames-tag_0)" +"(lambda(s_71 disarmed-s_5 formals_1 bodys_9 ctx_80 log-renames-tag_0)" "(begin" "(let-values(((sc_35)(new-scope 'local)))" "(let-values(((phase_146)(expand-context-phase ctx_80)))" @@ -63550,28 +63631,28 @@ static const char *startup_source = "(begin" "(let-values(((ids34_0) ids_33)" "((phase35_2) phase_146)" -"((s36_0) s_70)" +"((s36_0) s_71)" " ((temp37_4) \"argument name\"))" "(check-no-duplicate-ids8.1 temp37_4 #t ids34_0 phase35_2 s36_0 #f #f))" "(values))))" "(let-values(((counter_7)(root-expand-context-counter ctx_80)))" "(let-values(((keys_7)" "(reverse$1" -"(let-values(((lst_88) ids_33))" +"(let-values(((lst_89) ids_33))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_88)))" -"((letrec-values(((for-loop_296)" -"(lambda(fold-var_319 lst_265)" +"(let-values()(check-list lst_89)))" +"((letrec-values(((for-loop_293)" +"(lambda(fold-var_319 lst_267)" "(begin" " 'for-loop" -"(if(pair? lst_265)" -"(let-values(((id_120)(unsafe-car lst_265))" -"((rest_196)(unsafe-cdr lst_265)))" +"(if(pair? lst_267)" +"(let-values(((id_120)(unsafe-car lst_267))" +"((rest_196)(unsafe-cdr lst_267)))" "(let-values(((fold-var_33)" "(let-values(((fold-var_34) fold-var_319))" -"(let-values(((fold-var_155)" +"(let-values(((fold-var_157)" "(let-values()" "(cons" "(let-values()" @@ -63582,7 +63663,7 @@ static const char *startup_source = "((counter40_0)" " counter_7)" "((s41_0)" -" s_70))" +" s_71))" "(add-local-binding!37.1" " #f" " #f" @@ -63592,50 +63673,50 @@ static const char *startup_source = " phase39_1" " counter40_0)))" " fold-var_34))))" -"(values fold-var_155)))))" +"(values fold-var_157)))))" "(if(not #f)" -"(for-loop_296 fold-var_33 rest_196)" +"(for-loop_293 fold-var_33 rest_196)" " fold-var_33)))" " fold-var_319)))))" -" for-loop_296)" +" for-loop_293)" " null" -" lst_88))))))" +" lst_89))))))" "(let-values(((body-env_0)" -"(let-values(((lst_81) keys_7)((lst_91) ids_33))" +"(let-values(((lst_82) keys_7)((lst_92) ids_33))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_81)))" +"(let-values()(check-list lst_82)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_91)))" -"((letrec-values(((for-loop_233)" -"(lambda(env_25 lst_83 lst_271)" +"(let-values()(check-list lst_92)))" +"((letrec-values(((for-loop_50)" +"(lambda(env_25 lst_84 lst_273)" "(begin" " 'for-loop" -"(if(if(pair? lst_83)(pair? lst_271) #f)" -"(let-values(((key_96)(unsafe-car lst_83))" -"((rest_148)(unsafe-cdr lst_83))" -"((id_121)(unsafe-car lst_271))" -"((rest_197)(unsafe-cdr lst_271)))" +"(if(if(pair? lst_84)(pair? lst_273) #f)" +"(let-values(((key_95)(unsafe-car lst_84))" +"((rest_148)(unsafe-cdr lst_84))" +"((id_121)(unsafe-car lst_273))" +"((rest_197)(unsafe-cdr lst_273)))" "(let-values(((env_26)" "(let-values(((env_27) env_25))" "(let-values(((env_28)" "(let-values()" "(env-extend" " env_27" -" key_96" +" key_95" "(local-variable1.1" " id_121)))))" "(values env_28)))))" "(if(not #f)" -"(for-loop_233 env_26 rest_148 rest_197)" +"(for-loop_50 env_26 rest_148 rest_197)" " env_26)))" " env_25)))))" -" for-loop_233)" +" for-loop_50)" "(expand-context-env ctx_80)" -" lst_81" -" lst_91)))))" +" lst_82" +" lst_92)))))" "(let-values(((sc-formals_0)(add-scope formals_1 sc_35)))" "(let-values(((sc-bodys_0)" "(reverse$1" @@ -63645,28 +63726,28 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_17)))" "((letrec-values(((for-loop_10)" -"(lambda(fold-var_17 lst_18)" +"(lambda(fold-var_216 lst_18)" "(begin" " 'for-loop" "(if(pair? lst_18)" "(let-values(((body_12)(unsafe-car lst_18))" "((rest_5)(unsafe-cdr lst_18)))" -"(let-values(((fold-var_19)" -"(let-values(((fold-var_20)" -" fold-var_17))" "(let-values(((fold-var_64)" +"(let-values(((fold-var_65)" +" fold-var_216))" +"(let-values(((fold-var_66)" "(let-values()" "(cons" "(let-values()" "(add-scope" " body_12" " sc_35))" -" fold-var_20))))" -"(values fold-var_64)))))" +" fold-var_65))))" +"(values fold-var_66)))))" "(if(not #f)" -"(for-loop_10 fold-var_19 rest_5)" -" fold-var_19)))" -" fold-var_17)))))" +"(for-loop_10 fold-var_64 rest_5)" +" fold-var_64)))" +" fold-var_216)))))" " for-loop_10)" " null" " lst_17))))))" @@ -63685,8 +63766,8 @@ static const char *startup_source = "(values))))" "(let-values(((body-ctx_4)" "(let-values(((v_258) ctx_80))" -"(let-values(((the-struct_94) v_258))" -"(if(expand-context/outer? the-struct_94)" +"(let-values(((the-struct_92) v_258))" +"(if(expand-context/outer? the-struct_92)" "(let-values(((env42_0) body-env_0)" "((scopes43_1)(cons sc_35(expand-context-scopes ctx_80)))" "((binding-layer44_0)" @@ -63695,29 +63776,29 @@ static const char *startup_source = "((inner46_0)(root-expand-context/outer-inner v_258)))" "(expand-context/outer1.1" " inner46_0" -"(root-expand-context/outer-post-expansion-scope the-struct_94)" -"(root-expand-context/outer-use-site-scopes the-struct_94)" +"(root-expand-context/outer-post-expansion-scope the-struct_92)" +"(root-expand-context/outer-use-site-scopes the-struct_92)" " frame-id45_0" -"(expand-context/outer-context the-struct_94)" +"(expand-context/outer-context the-struct_92)" " env42_0" -"(expand-context/outer-post-expansion-scope-action the-struct_94)" +"(expand-context/outer-post-expansion-scope-action the-struct_92)" " scopes43_1" -"(expand-context/outer-def-ctx-scopes the-struct_94)" +"(expand-context/outer-def-ctx-scopes the-struct_92)" " binding-layer44_0" -"(expand-context/outer-reference-records the-struct_94)" -"(expand-context/outer-only-immediate? the-struct_94)" -"(expand-context/outer-need-eventually-defined the-struct_94)" -"(expand-context/outer-current-introduction-scopes the-struct_94)" -"(expand-context/outer-name the-struct_94)))" +"(expand-context/outer-reference-records the-struct_92)" +"(expand-context/outer-only-immediate? the-struct_92)" +"(expand-context/outer-need-eventually-defined the-struct_92)" +"(expand-context/outer-current-introduction-scopes the-struct_92)" +"(expand-context/outer-name the-struct_92)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_94))))))" +" the-struct_92))))))" "(let-values(((exp-body_2)" "(let-values(((sc-bodys47_0) sc-bodys_0)" "((body-ctx48_0) body-ctx_4)" "((temp49_3)" -"(let-values(((ctx50_0) ctx_80)((s51_2) s_70)((temp52_5) #t))" +"(let-values(((ctx50_0) ctx_80)((s51_2) s_71)((temp52_5) #t))" "(keep-as-needed85.1 #f #f temp52_5 #t #f #f ctx50_0 s51_2))))" "(expand-body7.1 temp49_3 #f #f sc-bodys47_0 body-ctx48_0))))" "(values" @@ -63736,31 +63817,31 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_6)(syntax-disarm$1 s_15)))" "(let-values(((ok?_33 lambda53_0 formals54_0 body55_0)" -"(let-values(((s_427) disarmed-s_6))" -"(let-values(((orig-s_41) s_427))" +"(let-values(((s_420) disarmed-s_6))" +"(let-values(((orig-s_41) s_420))" "(let-values(((lambda53_1 formals54_1 body55_1)" -"(let-values(((s_165)(if(syntax?$1 s_427)(syntax-e$1 s_427) s_427)))" +"(let-values(((s_165)(if(syntax?$1 s_420)(syntax-e$1 s_420) s_420)))" "(if(pair? s_165)" -"(let-values(((lambda56_0)(let-values(((s_493)(car s_165))) s_493))" +"(let-values(((lambda56_0)(let-values(((s_484)(car s_165))) s_484))" "((formals57_0 body58_0)" -"(let-values(((s_475)(cdr s_165)))" -"(let-values(((s_468)" -"(if(syntax?$1 s_475)" -"(syntax-e$1 s_475)" -" s_475)))" -"(if(pair? s_468)" +"(let-values(((s_465)(cdr s_165)))" +"(let-values(((s_458)" +"(if(syntax?$1 s_465)" +"(syntax-e$1 s_465)" +" s_465)))" +"(if(pair? s_458)" "(let-values(((formals59_0)" -"(let-values(((s_476)(car s_468)))" -" s_476))" +"(let-values(((s_466)(car s_458)))" +" s_466))" "((body60_0)" -"(let-values(((s_66)(cdr s_468)))" -"(let-values(((s_79)" -"(if(syntax?$1 s_66)" -"(syntax-e$1 s_66)" -" s_66)))" +"(let-values(((s_67)(cdr s_458)))" +"(let-values(((s_169)" +"(if(syntax?$1 s_67)" +"(syntax-e$1 s_67)" +" s_67)))" "(let-values(((flat-s_27)" "(to-syntax-list.1" -" s_79)))" +" s_169)))" "(if(not flat-s_27)" "(let-values()" "(raise-syntax-error$1" @@ -63792,29 +63873,29 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'λ" -"(lambda(s_494)" +"(lambda(s_485)" "(let-values(((ok?_34 lam-id66_0 formals67_0 _68_0)" -"(let-values(((s_495) s_494))" -"(let-values(((orig-s_42) s_495))" +"(let-values(((s_486) s_485))" +"(let-values(((orig-s_42) s_486))" "(let-values(((lam-id66_1 formals67_1 _68_1)" -"(let-values(((s_308)(if(syntax?$1 s_495)(syntax-e$1 s_495) s_495)))" -"(if(pair? s_308)" -"(let-values(((lam-id69_0)(let-values(((s_48)(car s_308))) s_48))" +"(let-values(((s_304)(if(syntax?$1 s_486)(syntax-e$1 s_486) s_486)))" +"(if(pair? s_304)" +"(let-values(((lam-id69_0)(let-values(((s_49)(car s_304))) s_49))" "((formals70_0 _71_1)" -"(let-values(((s_49)(cdr s_308)))" +"(let-values(((s_50)(cdr s_304)))" "(let-values(((s_32)" -"(if(syntax?$1 s_49)(syntax-e$1 s_49) s_49)))" +"(if(syntax?$1 s_50)(syntax-e$1 s_50) s_50)))" "(if(pair? s_32)" "(let-values(((formals72_0)" -"(let-values(((s_496)(car s_32))) s_496))" +"(let-values(((s_487)(car s_32))) s_487))" "((_73_0)" -"(let-values(((s_309)(cdr s_32)))" -"(let-values(((s_390)" -"(if(syntax?$1 s_309)" -"(syntax-e$1 s_309)" -" s_309)))" +"(let-values(((s_305)(cdr s_32)))" +"(let-values(((s_382)" +"(if(syntax?$1 s_305)" +"(syntax-e$1 s_305)" +" s_305)))" "(let-values(((flat-s_25)" -"(to-syntax-list.1 s_390)))" +"(to-syntax-list.1 s_382)))" "(if(not flat-s_25)" "(let-values()" "(raise-syntax-error$1" @@ -63833,23 +63914,23 @@ static const char *startup_source = "(values lam-id69_0 formals70_0 _71_1))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_42)))))" "(values #t lam-id66_1 formals67_1 _68_1))))))" -"(let-values(((ids_34)(parse-and-flatten-formals formals67_0 #f s_494)))" +"(let-values(((ids_34)(parse-and-flatten-formals formals67_0 #f s_485)))" "(let-values(((ctx_82)(let-values(((temp78_3) #t))(get-current-expand-context17.1 temp78_3 #t #f #f))))" "(let-values(((phase_147)(if ctx_82(expand-context-phase ctx_82) 0)))" "(begin" -" (let-values (((ids74_0) ids_34) ((phase75_0) phase_147) ((s76_2) s_494) ((temp77_4) \"argument name\"))" +" (let-values (((ids74_0) ids_34) ((phase75_0) phase_147) ((s76_2) s_485) ((temp77_4) \"argument name\"))" "(check-no-duplicate-ids8.1 temp77_4 #t ids74_0 phase75_0 s76_2 #f #f))" "(datum->syntax$1" -" s_494" +" s_485" "(cons" "(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_147) 'lambda lam-id66_0 lam-id66_0)" -"(cdr(syntax-e$1 s_494)))" -" s_494" -" s_494)))))))))" +"(cdr(syntax-e$1 s_485)))" +" s_485" +" s_485)))))))))" "(void" "(add-core-form!*" " 'case-lambda" -"(lambda(s_497 ctx_83)" +"(lambda(s_488 ctx_83)" "(let-values((()" "(begin" "(let-values(((obs_86)(expand-context-observer ctx_83)))" @@ -63857,47 +63938,47 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_86 'prim-case-lambda)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_7)(syntax-disarm$1 s_497)))" +"(let-values(((disarmed-s_7)(syntax-disarm$1 s_488)))" "(let-values(((ok?_35 case-lambda79_0 formals80_0 body81_0)" -"(let-values(((s_498) disarmed-s_7))" -"(let-values(((orig-s_43) s_498))" +"(let-values(((s_58) disarmed-s_7))" +"(let-values(((orig-s_43) s_58))" "(let-values(((case-lambda79_1 formals80_1 body81_1)" -"(let-values(((s_499)(if(syntax?$1 s_498)(syntax-e$1 s_498) s_498)))" -"(if(pair? s_499)" -"(let-values(((case-lambda82_0)(let-values(((s_59)(car s_499))) s_59))" +"(let-values(((s_489)(if(syntax?$1 s_58)(syntax-e$1 s_58) s_58)))" +"(if(pair? s_489)" +"(let-values(((case-lambda82_0)(let-values(((s_60)(car s_489))) s_60))" "((formals83_0 body84_0)" -"(let-values(((s_500)(cdr s_499)))" +"(let-values(((s_490)(cdr s_489)))" "(let-values(((s_36)" -"(if(syntax?$1 s_500)" -"(syntax-e$1 s_500)" -" s_500)))" +"(if(syntax?$1 s_490)" +"(syntax-e$1 s_490)" +" s_490)))" "(let-values(((flat-s_28)(to-syntax-list.1 s_36)))" "(if(not flat-s_28)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43))" "(let-values()" "(let-values(((formals_3 body_14)" -"(let-values(((lst_340) flat-s_28))" +"(let-values(((lst_343) flat-s_28))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_340)))" -"((letrec-values(((for-loop_297)" +"(check-list lst_343)))" +"((letrec-values(((for-loop_294)" "(lambda(formals_4" " body_15" -" lst_341)" +" lst_344)" "(begin" " 'for-loop" "(if(pair?" -" lst_341)" -"(let-values(((s_61)" +" lst_344)" +"(let-values(((s_312)" "(unsafe-car" -" lst_341))" +" lst_344))" "((rest_198)" "(unsafe-cdr" -" lst_341)))" +" lst_344)))" "(let-values(((formals_5" " body_16)" "(let-values(((formals_6)" @@ -63910,32 +63991,32 @@ static const char *startup_source = "(let-values(((formals91_0" " body92_0)" "(let-values()" -"(let-values(((s_63)" +"(let-values(((s_65)" "(if(syntax?$1" -" s_61)" +" s_312)" "(syntax-e$1" -" s_61)" -" s_61)))" +" s_312)" +" s_312)))" "(if(pair?" -" s_63)" +" s_65)" "(let-values(((formals85_0)" -"(let-values(((s_90)" +"(let-values(((s_89)" "(car" -" s_63)))" -" s_90))" +" s_65)))" +" s_89))" "((body86_0)" -"(let-values(((s_203)" +"(let-values(((s_198)" "(cdr" -" s_63)))" -"(let-values(((s_501)" +" s_65)))" +"(let-values(((s_491)" "(if(syntax?$1" -" s_203)" +" s_198)" "(syntax-e$1" -" s_203)" -" s_203)))" +" s_198)" +" s_198)))" "(let-values(((flat-s_29)" "(to-syntax-list.1" -" s_501)))" +" s_491)))" "(if(not" " flat-s_29)" "(let-values()" @@ -63971,7 +64052,7 @@ static const char *startup_source = " body_18)))))" "(if(not" " #f)" -"(for-loop_297" +"(for-loop_294" " formals_5" " body_16" " rest_198)" @@ -63981,10 +64062,10 @@ static const char *startup_source = "(values" " formals_4" " body_15))))))" -" for-loop_297)" +" for-loop_294)" " null" " null" -" lst_340)))))" +" lst_343)))))" "(values" "(reverse$1 formals_3)" "(reverse$1 body_14))))))))))" @@ -63992,19 +64073,19 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))" "(values #t case-lambda79_1 formals80_1 body81_1))))))" "(let-values(((ok?_36 case-lambda87_0 clause88_0)" -"(let-values(((s_204) disarmed-s_7))" -"(let-values(((orig-s_44) s_204))" +"(let-values(((s_199) disarmed-s_7))" +"(let-values(((orig-s_44) s_199))" "(let-values(((case-lambda87_1 clause88_1)" -"(let-values(((s_502)(if(syntax?$1 s_204)(syntax-e$1 s_204) s_204)))" -"(if(pair? s_502)" -"(let-values(((case-lambda89_0)(let-values(((s_91)(car s_502))) s_91))" +"(let-values(((s_492)(if(syntax?$1 s_199)(syntax-e$1 s_199) s_199)))" +"(if(pair? s_492)" +"(let-values(((case-lambda89_0)(let-values(((s_90)(car s_492))) s_90))" "((clause90_0)" -"(let-values(((s_503)(cdr s_502)))" -"(let-values(((s_433)" -"(if(syntax?$1 s_503)" -"(syntax-e$1 s_503)" -" s_503)))" -"(let-values(((flat-s_30)(to-syntax-list.1 s_433)))" +"(let-values(((s_493)(cdr s_492)))" +"(let-values(((s_426)" +"(if(syntax?$1 s_493)" +"(syntax-e$1 s_493)" +" s_493)))" +"(let-values(((flat-s_30)(to-syntax-list.1 s_426)))" "(if(not flat-s_30)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_44))" @@ -64013,35 +64094,35 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_44)))))" "(values #t case-lambda87_1 clause88_1))))))" "(let-values(((rebuild-s_5)" -"(let-values(((ctx93_1) ctx_83)((s94_0) s_497)((temp95_3) #t))" +"(let-values(((ctx93_1) ctx_83)((s94_0) s_488)((temp95_3) #t))" "(keep-as-needed85.1 #f #f #f #f temp95_3 #t ctx93_1 s94_0))))" "(let-values(((clauses_1)" "(reverse$1" -"(let-values(((lst_342) formals80_0)((lst_343) body81_0)((lst_204) clause88_0))" +"(let-values(((lst_345) formals80_0)((lst_346) body81_0)((lst_206) clause88_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_342)))" +"(let-values()(check-list lst_345)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_343)))" +"(let-values()(check-list lst_346)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_204)))" +"(let-values()(check-list lst_206)))" "((letrec-values(((for-loop_122)" -"(lambda(fold-var_320 lst_274 lst_157 lst_344)" +"(lambda(fold-var_320 lst_276 lst_159 lst_347)" "(begin" " 'for-loop" -"(if(if(pair? lst_274)" -"(if(pair? lst_157)(pair? lst_344) #f)" +"(if(if(pair? lst_276)" +"(if(pair? lst_159)(pair? lst_347) #f)" " #f)" -"(let-values(((formals_8)(unsafe-car lst_274))" -"((rest_199)(unsafe-cdr lst_274))" -"((body_19)(unsafe-car lst_157))" -"((rest_80)(unsafe-cdr lst_157))" -"((clause_3)(unsafe-car lst_344))" -"((rest_200)(unsafe-cdr lst_344)))" -"(let-values(((fold-var_147)" +"(let-values(((formals_8)(unsafe-car lst_276))" +"((rest_199)(unsafe-cdr lst_276))" +"((body_19)(unsafe-car lst_159))" +"((rest_80)(unsafe-cdr lst_159))" +"((clause_3)(unsafe-car lst_347))" +"((rest_200)(unsafe-cdr lst_347)))" +"(let-values(((fold-var_149)" "(let-values(((fold-var_321) fold-var_320))" "(let-values(((fold-var_322)" "(let-values()" @@ -64077,7 +64158,7 @@ static const char *startup_source = "(let-values(((exp-formals_0" " exp-body_3)" "(lambda-clause-expander" -" s_497" +" s_488" " disarmed-s_7" " formals_8" " body_19" @@ -64102,23 +64183,23 @@ static const char *startup_source = " fold-var_321))))" "(values fold-var_322)))))" "(if(not #f)" -"(for-loop_122 fold-var_147 rest_199 rest_80 rest_200)" -" fold-var_147)))" +"(for-loop_122 fold-var_149 rest_199 rest_80 rest_200)" +" fold-var_149)))" " fold-var_320)))))" " for-loop_122)" " null" -" lst_342" -" lst_343" -" lst_204))))))" +" lst_345" +" lst_346" +" lst_206))))))" "(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_5)(list* case-lambda79_0 clauses_1)))" "(rebuild5.1 #f #f rebuild-s100_0 temp101_5))))))))))))" "(define-values" "(parse-and-flatten-formals)" -"(lambda(all-formals_0 sc_36 s_504)" +"(lambda(all-formals_0 sc_36 s_494)" "(begin" -"((letrec-values(((loop_121)" +"((letrec-values(((loop_122)" "(lambda(formals_9)" "(begin" " 'loop" @@ -64126,44 +64207,44 @@ static const char *startup_source = "(let-values()(list(add-scope formals_9 sc_36)))" "(if(syntax?$1 formals_9)" "(let-values()" -"(let-values(((p_87)(syntax-e$1 formals_9)))" -"(if(pair? p_87)" -"(let-values()(loop_121 p_87))" -"(if(null? p_87)" +"(let-values(((p_88)(syntax-e$1 formals_9)))" +"(if(pair? p_88)" +"(let-values()(loop_122 p_88))" +"(if(null? p_88)" "(let-values() null)" -" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_504 p_87))))))" +" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_494 p_88))))))" "(if(pair? formals_9)" "(let-values()" "(begin" "(if(identifier?(car formals_9))" "(void)" "(let-values()" -" (raise-syntax-error$1 #f \"not an identifier\" s_504 (car formals_9))))" +" (raise-syntax-error$1 #f \"not an identifier\" s_494 (car formals_9))))" "(cons" "(if sc_36(add-scope(car formals_9) sc_36)(car formals_9))" -"(loop_121(cdr formals_9)))))" +"(loop_122(cdr formals_9)))))" "(if(null? formals_9)" "(let-values() null)" "(let-values()" -" (raise-syntax-error$1 \"bad argument sequence\" s_504 all-formals_0))))))))))" -" loop_121)" +" (raise-syntax-error$1 \"bad argument sequence\" s_494 all-formals_0))))))))))" +" loop_122)" " all-formals_0))))" "(define-values" "(unflatten-like-formals)" "(lambda(keys_8 formals_10)" "(begin" -"((letrec-values(((loop_122)" +"((letrec-values(((loop_123)" "(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_122(cdr keys_9)(cdr formals_11))))" +"(let-values()(cons(car keys_9)(loop_123(cdr keys_9)(cdr formals_11))))" "(if(syntax?$1 formals_11)" -"(let-values()(loop_122 keys_9(syntax-e$1 formals_11)))" +"(let-values()(loop_123 keys_9(syntax-e$1 formals_11)))" "(let-values()(car keys_9)))))))))" -" loop_122)" +" loop_123)" " keys_8" " formals_10))))" "(define-values" @@ -64185,7 +64266,7 @@ static const char *startup_source = "(let-values(((split-by-reference?_0)(if split-by-reference?9_0 split-by-reference?4_0 #f)))" "(let-values(((renames-log-tag_0)(if renames-log-tag10_0 renames-log-tag5_0 'let-renames)))" "(let-values()" -"(lambda(s_324 ctx_84)" +"(lambda(s_318 ctx_84)" "(let-values((()" "(begin" "(let-values(((obs_87)(expand-context-observer ctx_84)))" @@ -64193,7 +64274,7 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_87 log-tag_0)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_8)(syntax-disarm$1 s_324)))" +"(let-values(((disarmed-s_8)(syntax-disarm$1 s_318)))" "(let-values(((ok?_37" " letrec-syntaxes+values102_0" " id:trans103_0" @@ -64201,47 +64282,47 @@ static const char *startup_source = " id:val105_0" " val-rhs106_0" " body107_0)" -"(let-values(((s_439) disarmed-s_8))" +"(let-values(((s_121) disarmed-s_8))" "(if(if syntaxes?_0 #t #f)" -"(let-values(((orig-s_45) s_439))" +"(let-values(((orig-s_45) s_121))" "(let-values(((letrec-syntaxes+values102_1" " id:trans103_1" " trans-rhs104_1" " id:val105_1" " val-rhs106_1" " body107_1)" -"(let-values(((s_124)" -"(if(syntax?$1 s_439)" -"(syntax-e$1 s_439)" -" s_439)))" -"(if(pair? s_124)" +"(let-values(((s_495)" +"(if(syntax?$1 s_121)" +"(syntax-e$1 s_121)" +" s_121)))" +"(if(pair? s_495)" "(let-values(((letrec-syntaxes+values108_0)" -"(let-values(((s_125)(car s_124))) s_125))" +"(let-values(((s_124)(car s_495))) s_124))" "((id:trans109_0" " trans-rhs110_0" " id:val111_0" " val-rhs112_0" " body113_0)" -"(let-values(((s_505)(cdr s_124)))" -"(let-values(((s_506)" -"(if(syntax?$1 s_505)" -"(syntax-e$1 s_505)" -" s_505)))" -"(if(pair? s_506)" +"(let-values(((s_496)(cdr s_495)))" +"(let-values(((s_497)" +"(if(syntax?$1 s_496)" +"(syntax-e$1 s_496)" +" s_496)))" +"(if(pair? s_497)" "(let-values(((id:trans114_0" " trans-rhs115_0)" -"(let-values(((s_507)" +"(let-values(((s_498)" "(car" -" s_506)))" -"(let-values(((s_225)" +" s_497)))" +"(let-values(((s_126)" "(if(syntax?$1" -" s_507)" +" s_498)" "(syntax-e$1" -" s_507)" -" s_507)))" +" s_498)" +" s_498)))" "(let-values(((flat-s_31)" "(to-syntax-list.1" -" s_225)))" +" s_126)))" "(if(not" " flat-s_31)" "(let-values()" @@ -64252,7 +64333,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans_0" " trans-rhs_0)" -"(let-values(((lst_345)" +"(let-values(((lst_348)" " flat-s_31))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64260,21 +64341,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_345)))" +" lst_348)))" "((letrec-values(((for-loop_48)" "(lambda(id:trans_1" " trans-rhs_1" -" lst_346)" +" lst_349)" "(begin" " 'for-loop" "(if(pair?" -" lst_346)" -"(let-values(((s_328)" +" lst_349)" +"(let-values(((s_321)" "(unsafe-car" -" lst_346))" +" lst_349))" "((rest_201)" "(unsafe-cdr" -" lst_346)))" +" lst_349)))" "(let-values(((id:trans_2" " trans-rhs_2)" "(let-values(((id:trans_3)" @@ -64287,27 +64368,27 @@ static const char *startup_source = "(let-values(((id:trans145_0" " trans-rhs146_0)" "(let-values()" -"(let-values(((s_333)" +"(let-values(((s_326)" "(if(syntax?$1" -" s_328)" +" s_321)" "(syntax-e$1" -" s_328)" -" s_328)))" +" s_321)" +" s_321)))" "(if(pair?" -" s_333)" +" s_326)" "(let-values(((id:trans119_0)" -"(let-values(((s_336)" +"(let-values(((s_329)" "(car" -" s_333)))" -"(let-values(((s_337)" +" s_326)))" +"(let-values(((s_330)" "(if(syntax?$1" -" s_336)" +" s_329)" "(syntax-e$1" -" s_336)" -" s_336)))" +" s_329)" +" s_329)))" "(let-values(((flat-s_32)" "(to-syntax-list.1" -" s_337)))" +" s_330)))" "(if(not" " flat-s_32)" "(let-values()" @@ -64317,7 +64398,7 @@ static const char *startup_source = " orig-s_45))" "(let-values()" "(let-values(((id:trans_5)" -"(let-values(((lst_299)" +"(let-values(((lst_301)" " flat-s_32))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64325,20 +64406,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_299)))" -"((letrec-values(((for-loop_262)" +" lst_301)))" +"((letrec-values(((for-loop_261)" "(lambda(id:trans_6" -" lst_300)" +" lst_302)" "(begin" " 'for-loop" "(if(pair?" -" lst_300)" -"(let-values(((s_233)" +" lst_302)" +"(let-values(((s_228)" "(unsafe-car" -" lst_300))" +" lst_302))" "((rest_168)" "(unsafe-cdr" -" lst_300)))" +" lst_302)))" "(let-values(((id:trans_7)" "(let-values(((id:trans_8)" " id:trans_6))" @@ -64346,23 +64427,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans147_0)" "(let-values()" -"(if(let-values(((or-part_384)" +"(if(let-values(((or-part_369)" "(if(syntax?$1" -" s_233)" +" s_228)" "(symbol?" "(syntax-e$1" -" s_233))" +" s_228))" " #f)))" -"(if or-part_384" -" or-part_384" +"(if or-part_369" +" or-part_369" "(symbol?" -" s_233)))" -" s_233" +" s_228)))" +" s_228" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_45" -" s_233)))))" +" s_228)))))" "(cons" " id:trans147_0" " id:trans_8)))))" @@ -64370,45 +64451,45 @@ static const char *startup_source = " id:trans_9)))))" "(if(not" " #f)" -"(for-loop_262" +"(for-loop_261" " id:trans_7" " rest_168)" " id:trans_7)))" " id:trans_6)))))" -" for-loop_262)" +" for-loop_261)" " null" -" lst_299)))))" +" lst_301)))))" "(reverse$1" " id:trans_5))))))))" "((trans-rhs120_0)" -"(let-values(((s_508)" +"(let-values(((s_499)" "(cdr" -" s_333)))" -"(let-values(((s_509)" +" s_326)))" +"(let-values(((s_500)" "(if(syntax?$1" -" s_508)" +" s_499)" "(syntax-e$1" -" s_508)" -" s_508)))" +" s_499)" +" s_499)))" "(if(pair?" -" s_509)" +" s_500)" "(let-values(((trans-rhs121_0)" -"(let-values(((s_236)" +"(let-values(((s_231)" "(car" -" s_509)))" -" s_236))" +" s_500)))" +" s_231))" "(()" -"(let-values(((s_237)" +"(let-values(((s_232)" "(cdr" -" s_509)))" -"(let-values(((s_343)" +" s_500)))" +"(let-values(((s_336)" "(if(syntax?$1" -" s_237)" +" s_232)" "(syntax-e$1" -" s_237)" -" s_237)))" +" s_232)" +" s_232)))" "(if(null?" -" s_343)" +" s_336)" "(values)" "(raise-syntax-error$1" " #f" @@ -64452,7 +64533,7 @@ static const char *startup_source = " for-loop_48)" " null" " null" -" lst_345)))))" +" lst_348)))))" "(values" "(reverse$1" " id:trans_0)" @@ -64461,30 +64542,30 @@ static const char *startup_source = "((id:val116_0" " val-rhs117_0" " body118_0)" -"(let-values(((s_344)" +"(let-values(((s_337)" "(cdr" -" s_506)))" -"(let-values(((s_238)" +" s_497)))" +"(let-values(((s_233)" "(if(syntax?$1" -" s_344)" +" s_337)" "(syntax-e$1" -" s_344)" -" s_344)))" -"(if(pair? s_238)" +" s_337)" +" s_337)))" +"(if(pair? s_233)" "(let-values(((id:val122_0" " val-rhs123_0)" -"(let-values(((s_345)" +"(let-values(((s_338)" "(car" -" s_238)))" -"(let-values(((s_346)" +" s_233)))" +"(let-values(((s_339)" "(if(syntax?$1" -" s_345)" +" s_338)" "(syntax-e$1" -" s_345)" -" s_345)))" +" s_338)" +" s_338)))" "(let-values(((flat-s_33)" "(to-syntax-list.1" -" s_346)))" +" s_339)))" "(if(not" " flat-s_33)" "(let-values()" @@ -64495,7 +64576,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_0" " val-rhs_1)" -"(let-values(((lst_347)" +"(let-values(((lst_350)" " flat-s_33))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64503,21 +64584,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_347)))" -"((letrec-values(((for-loop_264)" +" lst_350)))" +"((letrec-values(((for-loop_263)" "(lambda(id:val_1" " val-rhs_2" -" lst_348)" +" lst_351)" "(begin" " 'for-loop" "(if(pair?" -" lst_348)" -"(let-values(((s_351)" +" lst_351)" +"(let-values(((s_344)" "(unsafe-car" -" lst_348))" +" lst_351))" "((rest_202)" "(unsafe-cdr" -" lst_348)))" +" lst_351)))" "(let-values(((id:val_2" " val-rhs_3)" "(let-values(((id:val_3)" @@ -64530,27 +64611,27 @@ static const char *startup_source = "(let-values(((id:val148_0" " val-rhs149_0)" "(let-values()" -"(let-values(((s_510)" +"(let-values(((s_501)" "(if(syntax?$1" -" s_351)" +" s_344)" "(syntax-e$1" -" s_351)" -" s_351)))" +" s_344)" +" s_344)))" "(if(pair?" -" s_510)" +" s_501)" "(let-values(((id:val125_0)" -"(let-values(((s_356)" +"(let-values(((s_349)" "(car" -" s_510)))" -"(let-values(((s_511)" +" s_501)))" +"(let-values(((s_502)" "(if(syntax?$1" -" s_356)" +" s_349)" "(syntax-e$1" -" s_356)" -" s_356)))" +" s_349)" +" s_349)))" "(let-values(((flat-s_34)" "(to-syntax-list.1" -" s_511)))" +" s_502)))" "(if(not" " flat-s_34)" "(let-values()" @@ -64560,7 +64641,7 @@ static const char *startup_source = " orig-s_45))" "(let-values()" "(let-values(((id:val_5)" -"(let-values(((lst_349)" +"(let-values(((lst_352)" " flat-s_34))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64568,20 +64649,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_349)))" -"((letrec-values(((for-loop_298)" +" lst_352)))" +"((letrec-values(((for-loop_295)" "(lambda(id:val_6" -" lst_350)" +" lst_353)" "(begin" " 'for-loop" "(if(pair?" -" lst_350)" -"(let-values(((s_512)" +" lst_353)" +"(let-values(((s_503)" "(unsafe-car" -" lst_350))" +" lst_353))" "((rest_203)" "(unsafe-cdr" -" lst_350)))" +" lst_353)))" "(let-values(((id:val_7)" "(let-values(((id:val_8)" " id:val_6))" @@ -64589,23 +64670,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val150_0)" "(let-values()" -"(if(let-values(((or-part_385)" +"(if(let-values(((or-part_370)" "(if(syntax?$1" -" s_512)" +" s_503)" "(symbol?" "(syntax-e$1" -" s_512))" +" s_503))" " #f)))" -"(if or-part_385" -" or-part_385" +"(if or-part_370" +" or-part_370" "(symbol?" -" s_512)))" -" s_512" +" s_503)))" +" s_503" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_45" -" s_512)))))" +" s_503)))))" "(cons" " id:val150_0" " id:val_8)))))" @@ -64613,45 +64694,45 @@ static const char *startup_source = " id:val_9)))))" "(if(not" " #f)" -"(for-loop_298" +"(for-loop_295" " id:val_7" " rest_203)" " id:val_7)))" " id:val_6)))))" -" for-loop_298)" +" for-loop_295)" " null" -" lst_349)))))" +" lst_352)))))" "(reverse$1" " id:val_5))))))))" "((val-rhs126_0)" -"(let-values(((s_243)" +"(let-values(((s_238)" "(cdr" -" s_510)))" -"(let-values(((s_513)" +" s_501)))" +"(let-values(((s_504)" "(if(syntax?$1" -" s_243)" +" s_238)" "(syntax-e$1" -" s_243)" -" s_243)))" +" s_238)" +" s_238)))" "(if(pair?" -" s_513)" +" s_504)" "(let-values(((val-rhs127_0)" -"(let-values(((s_514)" +"(let-values(((s_505)" "(car" -" s_513)))" -" s_514))" +" s_504)))" +" s_505))" "(()" -"(let-values(((s_515)" +"(let-values(((s_506)" "(cdr" -" s_513)))" -"(let-values(((s_244)" +" s_504)))" +"(let-values(((s_239)" "(if(syntax?$1" -" s_515)" +" s_506)" "(syntax-e$1" -" s_515)" -" s_515)))" +" s_506)" +" s_506)))" "(if(null?" -" s_244)" +" s_239)" "(values)" "(raise-syntax-error$1" " #f" @@ -64682,7 +64763,7 @@ static const char *startup_source = " val-rhs_5)))))" "(if(not" " #f)" -"(for-loop_264" +"(for-loop_263" " id:val_2" " val-rhs_3" " rest_202)" @@ -64692,28 +64773,28 @@ static const char *startup_source = "(values" " id:val_1" " val-rhs_2))))))" -" for-loop_264)" +" for-loop_263)" " null" " null" -" lst_347)))))" +" lst_350)))))" "(values" "(reverse$1" " id:val_0)" "(reverse$1" " val-rhs_1)))))))))" "((body124_0)" -"(let-values(((s_245)" +"(let-values(((s_240)" "(cdr" -" s_238)))" -"(let-values(((s_246)" +" s_233)))" +"(let-values(((s_241)" "(if(syntax?$1" -" s_245)" +" s_240)" "(syntax-e$1" -" s_245)" -" s_245)))" +" s_240)" +" s_240)))" "(let-values(((flat-s_35)" "(to-syntax-list.1" -" s_246)))" +" s_241)))" "(if(not" " flat-s_35)" "(let-values()" @@ -64766,39 +64847,39 @@ static const char *startup_source = " body107_1)))" "(values #f #f #f #f #f #f #f)))))" "(let-values(((ok?_38 let-values128_0 id:val129_0 val-rhs130_0 body131_0)" -"(let-values(((s_516) disarmed-s_8))" +"(let-values(((s_507) disarmed-s_8))" "(if(if(not syntaxes?_0) #t #f)" -"(let-values(((orig-s_46) s_516))" +"(let-values(((orig-s_46) s_507))" "(let-values(((let-values128_1 id:val129_1 val-rhs130_1 body131_1)" -"(let-values(((s_517)" -"(if(syntax?$1 s_516)" -"(syntax-e$1 s_516)" -" s_516)))" -"(if(pair? s_517)" +"(let-values(((s_508)" +"(if(syntax?$1 s_507)" +"(syntax-e$1 s_507)" +" s_507)))" +"(if(pair? s_508)" "(let-values(((let-values132_0)" -"(let-values(((s_518)(car s_517)))" -" s_518))" +"(let-values(((s_509)(car s_508)))" +" s_509))" "((id:val133_0 val-rhs134_0 body135_0)" -"(let-values(((s_445)(cdr s_517)))" -"(let-values(((s_446)" -"(if(syntax?$1 s_445)" -"(syntax-e$1 s_445)" -" s_445)))" -"(if(pair? s_446)" +"(let-values(((s_438)(cdr s_508)))" +"(let-values(((s_439)" +"(if(syntax?$1 s_438)" +"(syntax-e$1 s_438)" +" s_438)))" +"(if(pair? s_439)" "(let-values(((id:val136_0" " val-rhs137_0)" -"(let-values(((s_253)" +"(let-values(((s_248)" "(car" -" s_446)))" -"(let-values(((s_362)" +" s_439)))" +"(let-values(((s_355)" "(if(syntax?$1" -" s_253)" +" s_248)" "(syntax-e$1" -" s_253)" -" s_253)))" +" s_248)" +" s_248)))" "(let-values(((flat-s_36)" "(to-syntax-list.1" -" s_362)))" +" s_355)))" "(if(not" " flat-s_36)" "(let-values()" @@ -64809,7 +64890,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_10" " val-rhs_6)" -"(let-values(((lst_351)" +"(let-values(((lst_354)" " flat-s_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64817,21 +64898,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_351)))" -"((letrec-values(((for-loop_299)" +" lst_354)))" +"((letrec-values(((for-loop_296)" "(lambda(id:val_11" " val-rhs_7" -" lst_352)" +" lst_355)" "(begin" " 'for-loop" "(if(pair?" -" lst_352)" -"(let-values(((s_371)" +" lst_355)" +"(let-values(((s_364)" "(unsafe-car" -" lst_352))" +" lst_355))" "((rest_204)" "(unsafe-cdr" -" lst_352)))" +" lst_355)))" "(let-values(((id:val_12" " val-rhs_8)" "(let-values(((id:val_13)" @@ -64844,27 +64925,27 @@ static const char *startup_source = "(let-values(((id:val151_0" " val-rhs152_0)" "(let-values()" -"(let-values(((s_490)" +"(let-values(((s_481)" "(if(syntax?$1" -" s_371)" +" s_364)" "(syntax-e$1" -" s_371)" -" s_371)))" +" s_364)" +" s_364)))" "(if(pair?" -" s_490)" +" s_481)" "(let-values(((id:val139_0)" -"(let-values(((s_375)" +"(let-values(((s_368)" "(car" -" s_490)))" -"(let-values(((s_376)" +" s_481)))" +"(let-values(((s_369)" "(if(syntax?$1" -" s_375)" +" s_368)" "(syntax-e$1" -" s_375)" -" s_375)))" +" s_368)" +" s_368)))" "(let-values(((flat-s_37)" "(to-syntax-list.1" -" s_376)))" +" s_369)))" "(if(not" " flat-s_37)" "(let-values()" @@ -64874,7 +64955,7 @@ static const char *startup_source = " orig-s_46))" "(let-values()" "(let-values(((id:val_15)" -"(let-values(((lst_305)" +"(let-values(((lst_307)" " flat-s_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64882,20 +64963,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_305)))" -"((letrec-values(((for-loop_269)" +" lst_307)))" +"((letrec-values(((for-loop_268)" "(lambda(id:val_16" -" lst_306)" +" lst_308)" "(begin" " 'for-loop" "(if(pair?" -" lst_306)" -"(let-values(((s_519)" +" lst_308)" +"(let-values(((s_510)" "(unsafe-car" -" lst_306))" +" lst_308))" "((rest_172)" "(unsafe-cdr" -" lst_306)))" +" lst_308)))" "(let-values(((id:val_17)" "(let-values(((id:val_18)" " id:val_16))" @@ -64903,23 +64984,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val153_0)" "(let-values()" -"(if(let-values(((or-part_386)" +"(if(let-values(((or-part_371)" "(if(syntax?$1" -" s_519)" +" s_510)" "(symbol?" "(syntax-e$1" -" s_519))" +" s_510))" " #f)))" -"(if or-part_386" -" or-part_386" +"(if or-part_371" +" or-part_371" "(symbol?" -" s_519)))" -" s_519" +" s_510)))" +" s_510" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_46" -" s_519)))))" +" s_510)))))" "(cons" " id:val153_0" " id:val_18)))))" @@ -64927,45 +65008,45 @@ static const char *startup_source = " id:val_19)))))" "(if(not" " #f)" -"(for-loop_269" +"(for-loop_268" " id:val_17" " rest_172)" " id:val_17)))" " id:val_16)))))" -" for-loop_269)" +" for-loop_268)" " null" -" lst_305)))))" +" lst_307)))))" "(reverse$1" " id:val_15))))))))" "((val-rhs140_0)" -"(let-values(((s_256)" +"(let-values(((s_251)" "(cdr" -" s_490)))" -"(let-values(((s_257)" +" s_481)))" +"(let-values(((s_252)" "(if(syntax?$1" -" s_256)" +" s_251)" "(syntax-e$1" -" s_256)" -" s_256)))" +" s_251)" +" s_251)))" "(if(pair?" -" s_257)" +" s_252)" "(let-values(((val-rhs141_0)" -"(let-values(((s_520)" +"(let-values(((s_511)" "(car" -" s_257)))" -" s_520))" +" s_252)))" +" s_511))" "(()" -"(let-values(((s_521)" +"(let-values(((s_512)" "(cdr" -" s_257)))" -"(let-values(((s_522)" +" s_252)))" +"(let-values(((s_513)" "(if(syntax?$1" -" s_521)" +" s_512)" "(syntax-e$1" -" s_521)" -" s_521)))" +" s_512)" +" s_512)))" "(if(null?" -" s_522)" +" s_513)" "(values)" "(raise-syntax-error$1" " #f" @@ -64996,7 +65077,7 @@ static const char *startup_source = " val-rhs_10)))))" "(if(not" " #f)" -"(for-loop_299" +"(for-loop_296" " id:val_12" " val-rhs_8" " rest_204)" @@ -65006,28 +65087,28 @@ static const char *startup_source = "(values" " id:val_11" " val-rhs_7))))))" -" for-loop_299)" +" for-loop_296)" " null" " null" -" lst_351)))))" +" lst_354)))))" "(values" "(reverse$1" " id:val_10)" "(reverse$1" " val-rhs_6)))))))))" "((body138_0)" -"(let-values(((s_259)" +"(let-values(((s_254)" "(cdr" -" s_446)))" -"(let-values(((s_260)" +" s_439)))" +"(let-values(((s_255)" "(if(syntax?$1" -" s_259)" +" s_254)" "(syntax-e$1" -" s_259)" -" s_259)))" +" s_254)" +" s_254)))" "(let-values(((flat-s_38)" "(to-syntax-list.1" -" s_260)))" +" s_255)))" "(if(not" " flat-s_38)" "(let-values()" @@ -65065,20 +65146,20 @@ static const char *startup_source = "(let-values(((frame-id_15)(if syntaxes?_0(make-reference-record) #f)))" "(let-values(((trans-idss_2)" "(reverse$1" -"(let-values(((lst_353)(if syntaxes?_0 id:trans103_0 null)))" +"(let-values(((lst_356)(if syntaxes?_0 id:trans103_0 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_353)))" -"((letrec-values(((for-loop_300)" -"(lambda(fold-var_323 lst_354)" +"(let-values()(check-list lst_356)))" +"((letrec-values(((for-loop_297)" +"(lambda(fold-var_323 lst_357)" "(begin" " 'for-loop" -"(if(pair? lst_354)" +"(if(pair? lst_357)" "(let-values(((ids_35)" -"(unsafe-car lst_354))" +"(unsafe-car lst_357))" "((rest_205)" -"(unsafe-cdr lst_354)))" +"(unsafe-cdr lst_357)))" "(let-values(((fold-var_324)" "(let-values(((fold-var_325)" " fold-var_323))" @@ -65087,7 +65168,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_355)" +"(let-values(((lst_358)" " ids_35))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65095,20 +65176,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_355)))" -"((letrec-values(((for-loop_301)" +" lst_358)))" +"((letrec-values(((for-loop_298)" "(lambda(fold-var_327" -" lst_356)" +" lst_359)" "(begin" " 'for-loop" "(if(pair?" -" lst_356)" +" lst_359)" "(let-values(((id_122)" "(unsafe-car" -" lst_356))" +" lst_359))" "((rest_206)" "(unsafe-cdr" -" lst_356)))" +" lst_359)))" "(let-values(((fold-var_328)" "(let-values(((fold-var_329)" " fold-var_327))" @@ -65124,49 +65205,49 @@ static const char *startup_source = " fold-var_330)))))" "(if(not" " #f)" -"(for-loop_301" +"(for-loop_298" " fold-var_328" " rest_206)" " fold-var_328)))" " fold-var_327)))))" -" for-loop_301)" +" for-loop_298)" " null" -" lst_355)))))" +" lst_358)))))" " fold-var_325))))" "(values" " fold-var_326)))))" "(if(not #f)" -"(for-loop_300 fold-var_324 rest_205)" +"(for-loop_297 fold-var_324 rest_205)" " fold-var_324)))" " fold-var_323)))))" -" for-loop_300)" +" for-loop_297)" " null" -" lst_353))))))" +" lst_356))))))" "(let-values(((val-idss_3)" "(reverse$1" -"(let-values(((lst_357)(if syntaxes?_0 id:val105_0 id:val129_0)))" +"(let-values(((lst_360)(if syntaxes?_0 id:val105_0 id:val129_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_357)))" -"((letrec-values(((for-loop_63)" -"(lambda(fold-var_331 lst_358)" +"(let-values()(check-list lst_360)))" +"((letrec-values(((for-loop_299)" +"(lambda(fold-var_331 lst_361)" "(begin" " 'for-loop" -"(if(pair? lst_358)" +"(if(pair? lst_361)" "(let-values(((ids_36)" -"(unsafe-car lst_358))" +"(unsafe-car lst_361))" "((rest_207)" -"(unsafe-cdr lst_358)))" +"(unsafe-cdr lst_361)))" "(let-values(((fold-var_332)" "(let-values(((fold-var_333)" " fold-var_331))" -"(let-values(((fold-var_104)" +"(let-values(((fold-var_106)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_359)" +"(let-values(((lst_362)" " ids_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65174,23 +65255,23 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_359)))" +" lst_362)))" "((letrec-values(((for-loop_156)" -"(lambda(fold-var_105" -" lst_360)" +"(lambda(fold-var_107" +" lst_363)" "(begin" " 'for-loop" "(if(pair?" -" lst_360)" +" lst_363)" "(let-values(((id_123)" "(unsafe-car" -" lst_360))" +" lst_363))" "((rest_208)" "(unsafe-cdr" -" lst_360)))" -"(let-values(((fold-var_109)" +" lst_363)))" +"(let-values(((fold-var_111)" "(let-values(((fold-var_334)" -" fold-var_105))" +" fold-var_107))" "(let-values(((fold-var_335)" "(let-values()" "(cons" @@ -65204,41 +65285,43 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_156" -" fold-var_109" +" fold-var_111" " rest_208)" -" fold-var_109)))" -" fold-var_105)))))" +" fold-var_111)))" +" fold-var_107)))))" " for-loop_156)" " null" -" lst_359)))))" +" lst_362)))))" " fold-var_333))))" "(values" -" fold-var_104)))))" +" fold-var_106)))))" "(if(not #f)" -"(for-loop_63 fold-var_332 rest_207)" +"(for-loop_299" +" fold-var_332" +" rest_207)" " fold-var_332)))" " fold-var_331)))))" -" for-loop_63)" +" for-loop_299)" " null" -" lst_357))))))" +" lst_360))))))" "(let-values(((val-rhss_3)" "(if rec?_1" "(reverse$1" -"(let-values(((lst_361)" +"(let-values(((lst_364)" "(if syntaxes?_0 val-rhs106_0 val-rhs130_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_361)))" -"((letrec-values(((for-loop_302)" -"(lambda(fold-var_336 lst_362)" +"(let-values()(check-list lst_364)))" +"((letrec-values(((for-loop_300)" +"(lambda(fold-var_336 lst_365)" "(begin" " 'for-loop" -"(if(pair? lst_362)" +"(if(pair? lst_365)" "(let-values(((rhs_17)" -"(unsafe-car lst_362))" +"(unsafe-car lst_365))" "((rest_209)" -"(unsafe-cdr lst_362)))" +"(unsafe-cdr lst_365)))" "(let-values(((fold-var_337)" "(let-values(((fold-var_338)" " fold-var_336))" @@ -65253,82 +65336,82 @@ static const char *startup_source = "(values" " fold-var_339)))))" "(if(not #f)" -"(for-loop_302" +"(for-loop_300" " fold-var_337" " rest_209)" " fold-var_337)))" " fold-var_336)))))" -" for-loop_302)" +" for-loop_300)" " null" -" lst_361))))" +" lst_364))))" "(if syntaxes?_0 val-rhs106_0 val-rhs130_0))))" "(let-values(((val-clauses_0)" "(if syntaxes?_0" "(let-values()" "(let-values(((ok?_39 _154_0 _155_0 clause156_0 _157_0)" -"(let-values(((s_523) disarmed-s_8))" -"(let-values(((orig-s_47) s_523))" +"(let-values(((s_514) disarmed-s_8))" +"(let-values(((orig-s_47) s_514))" "(let-values(((_154_1" " _155_1" " clause156_1" " _157_1)" -"(let-values(((s_402)" +"(let-values(((s_393)" "(if(syntax?$1" -" s_523)" +" s_514)" "(syntax-e$1" -" s_523)" -" s_523)))" -"(if(pair? s_402)" +" s_514)" +" s_514)))" +"(if(pair? s_393)" "(let-values(((_158_0)" -"(let-values(((s_492)" +"(let-values(((s_483)" "(car" -" s_402)))" -" s_492))" +" s_393)))" +" s_483))" "((_159_0" " clause160_0" " _161_0)" -"(let-values(((s_453)" +"(let-values(((s_445)" "(cdr" -" s_402)))" -"(let-values(((s_524)" +" s_393)))" +"(let-values(((s_515)" "(if(syntax?$1" -" s_453)" +" s_445)" "(syntax-e$1" -" s_453)" -" s_453)))" +" s_445)" +" s_445)))" "(if(pair?" -" s_524)" +" s_515)" "(let-values(((_162_0)" -"(let-values(((s_456)" +"(let-values(((s_448)" "(car" -" s_524)))" -" s_456))" +" s_515)))" +" s_448))" "((clause163_0" " _164_0)" -"(let-values(((s_525)" +"(let-values(((s_516)" "(cdr" -" s_524)))" -"(let-values(((s_526)" +" s_515)))" +"(let-values(((s_517)" "(if(syntax?$1" -" s_525)" +" s_516)" "(syntax-e$1" -" s_525)" -" s_525)))" +" s_516)" +" s_516)))" "(if(pair?" -" s_526)" +" s_517)" "(let-values(((clause165_0)" -"(let-values(((s_527)" +"(let-values(((s_518)" "(car" -" s_526)))" -"(let-values(((s_528)" +" s_517)))" +"(let-values(((s_519)" "(if(syntax?$1" -" s_527)" +" s_518)" "(syntax-e$1" -" s_527)" -" s_527)))" +" s_518)" +" s_518)))" "(let-values(((flat-s_39)" "(to-syntax-list.1" -" s_528)))" +" s_519)))" "(if(not" " flat-s_39)" "(let-values()" @@ -65339,10 +65422,10 @@ static const char *startup_source = "(let-values()" " flat-s_39))))))" "((_166_0)" -"(let-values(((s_529)" +"(let-values(((s_520)" "(cdr" -" s_526)))" -" s_529)))" +" s_517)))" +" s_520)))" "(values" " clause165_0" " _166_0))" @@ -65376,47 +65459,47 @@ static const char *startup_source = " clause156_0))" "(let-values()" "(let-values(((ok?_40 _167_0 clause168_0 _169_0)" -"(let-values(((s_403) disarmed-s_8))" -"(let-values(((orig-s_48) s_403))" +"(let-values(((s_394) disarmed-s_8))" +"(let-values(((orig-s_48) s_394))" "(let-values(((_167_1 clause168_1 _169_1)" -"(let-values(((s_138)" +"(let-values(((s_521)" "(if(syntax?$1" -" s_403)" +" s_394)" "(syntax-e$1" -" s_403)" -" s_403)))" -"(if(pair? s_138)" +" s_394)" +" s_394)))" +"(if(pair? s_521)" "(let-values(((_170_0)" -"(let-values(((s_530)" +"(let-values(((s_138)" "(car" -" s_138)))" -" s_530))" +" s_521)))" +" s_138))" "((clause171_0" " _172_0)" -"(let-values(((s_531)" +"(let-values(((s_139)" "(cdr" -" s_138)))" -"(let-values(((s_189)" +" s_521)))" +"(let-values(((s_185)" "(if(syntax?$1" -" s_531)" +" s_139)" "(syntax-e$1" -" s_531)" -" s_531)))" +" s_139)" +" s_139)))" "(if(pair?" -" s_189)" +" s_185)" "(let-values(((clause173_0)" -"(let-values(((s_532)" +"(let-values(((s_522)" "(car" -" s_189)))" -"(let-values(((s_533)" +" s_185)))" +"(let-values(((s_523)" "(if(syntax?$1" -" s_532)" +" s_522)" "(syntax-e$1" -" s_532)" -" s_532)))" +" s_522)" +" s_522)))" "(let-values(((flat-s_40)" "(to-syntax-list.1" -" s_533)))" +" s_523)))" "(if(not" " flat-s_40)" "(let-values()" @@ -65427,10 +65510,10 @@ static const char *startup_source = "(let-values()" " flat-s_40))))))" "((_174_0)" -"(let-values(((s_534)" +"(let-values(((s_524)" "(cdr" -" s_189)))" -" s_534)))" +" s_185)))" +" s_524)))" "(values" " clause173_0" " _174_0))" @@ -65452,7 +65535,7 @@ static const char *startup_source = "(begin" "(let-values(((temp142_3)(list trans-idss_2 val-idss_3))" "((phase143_0) phase_148)" -"((s144_0) s_324))" +"((s144_0) s_318))" "(check-no-duplicate-ids8.1" " #f" " #f" @@ -65465,23 +65548,23 @@ static const char *startup_source = "(let-values(((counter_8)(root-expand-context-counter ctx_84)))" "(let-values(((trans-keyss_0)" "(reverse$1" -"(let-values(((lst_363) trans-idss_2))" +"(let-values(((lst_366) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_363)))" -"((letrec-values(((for-loop_303)" -"(lambda(fold-var_340 lst_364)" +"(let-values()(check-list lst_366)))" +"((letrec-values(((for-loop_301)" +"(lambda(fold-var_340 lst_367)" "(begin" " 'for-loop" -"(if(pair? lst_364)" +"(if(pair? lst_367)" "(let-values(((ids_37)" "(unsafe-car" -" lst_364))" +" lst_367))" "((rest_210)" "(unsafe-cdr" -" lst_364)))" +" lst_367)))" "(let-values(((fold-var_341)" "(let-values(((fold-var_342)" " fold-var_340))" @@ -65490,7 +65573,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_365)" +"(let-values(((lst_368)" " ids_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65498,20 +65581,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_365)))" -"((letrec-values(((for-loop_304)" +" lst_368)))" +"((letrec-values(((for-loop_302)" "(lambda(fold-var_344" -" lst_366)" +" lst_369)" "(begin" " 'for-loop" "(if(pair?" -" lst_366)" +" lst_369)" "(let-values(((id_124)" "(unsafe-car" -" lst_366))" +" lst_369))" "((rest_211)" "(unsafe-cdr" -" lst_366)))" +" lst_369)))" "(let-values(((fold-var_345)" "(let-values(((fold-var_346)" " fold-var_344))" @@ -65528,7 +65611,7 @@ static const char *startup_source = "((frame-id178_0)" " frame-id_15)" "((s179_0)" -" s_324))" +" s_318))" "(add-local-binding!37.1" " frame-id178_0" " #t" @@ -65542,45 +65625,45 @@ static const char *startup_source = " fold-var_347)))))" "(if(not" " #f)" -"(for-loop_304" +"(for-loop_302" " fold-var_345" " rest_211)" " fold-var_345)))" " fold-var_344)))))" -" for-loop_304)" +" for-loop_302)" " null" -" lst_365)))))" +" lst_368)))))" " fold-var_342))))" "(values" " fold-var_343)))))" "(if(not #f)" -"(for-loop_303" +"(for-loop_301" " fold-var_341" " rest_210)" " fold-var_341)))" " fold-var_340)))))" -" for-loop_303)" +" for-loop_301)" " null" -" lst_363))))))" +" lst_366))))))" "(let-values(((val-keyss_2)" "(reverse$1" -"(let-values(((lst_253) val-idss_3))" +"(let-values(((lst_255) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_253)))" -"((letrec-values(((for-loop_305)" -"(lambda(fold-var_348 lst_367)" +"(let-values()(check-list lst_255)))" +"((letrec-values(((for-loop_68)" +"(lambda(fold-var_348 lst_370)" "(begin" " 'for-loop" -"(if(pair? lst_367)" +"(if(pair? lst_370)" "(let-values(((ids_38)" "(unsafe-car" -" lst_367))" +" lst_370))" "((rest_212)" "(unsafe-cdr" -" lst_367)))" +" lst_370)))" "(let-values(((fold-var_349)" "(let-values(((fold-var_350)" " fold-var_348))" @@ -65589,7 +65672,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_368)" +"(let-values(((lst_371)" " ids_38))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65597,24 +65680,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_368)))" -"((letrec-values(((for-loop_306)" +" lst_371)))" +"((letrec-values(((for-loop_303)" "(lambda(fold-var_352" -" lst_369)" +" lst_372)" "(begin" " 'for-loop" "(if(pair?" -" lst_369)" +" lst_372)" "(let-values(((id_125)" "(unsafe-car" -" lst_369))" +" lst_372))" "((rest_213)" "(unsafe-cdr" -" lst_369)))" +" lst_372)))" "(let-values(((fold-var_353)" "(let-values(((fold-var_354)" " fold-var_352))" -"(let-values(((fold-var_112)" +"(let-values(((fold-var_114)" "(let-values()" "(cons" "(let-values()" @@ -65627,7 +65710,7 @@ static const char *startup_source = "((frame-id183_0)" " frame-id_15)" "((s184_0)" -" s_324))" +" s_318))" "(add-local-binding!37.1" " frame-id183_0" " #t" @@ -65638,49 +65721,49 @@ static const char *startup_source = " counter182_0)))" " fold-var_354))))" "(values" -" fold-var_112)))))" +" fold-var_114)))))" "(if(not" " #f)" -"(for-loop_306" +"(for-loop_303" " fold-var_353" " rest_213)" " fold-var_353)))" " fold-var_352)))))" -" for-loop_306)" +" for-loop_303)" " null" -" lst_368)))))" +" lst_371)))))" " fold-var_350))))" "(values" " fold-var_351)))))" "(if(not #f)" -"(for-loop_305" +"(for-loop_68" " fold-var_349" " rest_212)" " fold-var_349)))" " fold-var_348)))))" -" for-loop_305)" +" for-loop_68)" " null" -" lst_253))))))" +" lst_255))))))" "(let-values(((bodys_10)" "(reverse$1" -"(let-values(((lst_370)" +"(let-values(((lst_373)" "(if syntaxes?_0 body107_0 body131_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_370)))" -"((letrec-values(((for-loop_307)" -"(lambda(fold-var_355 lst_371)" +"(let-values()(check-list lst_373)))" +"((letrec-values(((for-loop_304)" +"(lambda(fold-var_355 lst_374)" "(begin" " 'for-loop" -"(if(pair? lst_371)" +"(if(pair? lst_374)" "(let-values(((body_20)" "(unsafe-car" -" lst_371))" +" lst_374))" "((rest_214)" "(unsafe-cdr" -" lst_371)))" +" lst_374)))" "(let-values(((fold-var_356)" "(let-values(((fold-var_357)" " fold-var_355))" @@ -65695,14 +65778,14 @@ static const char *startup_source = "(values" " fold-var_358)))))" "(if(not #f)" -"(for-loop_307" +"(for-loop_304" " fold-var_356" " rest_214)" " fold-var_356)))" " fold-var_355)))))" -" for-loop_307)" +" for-loop_304)" " null" -" lst_370))))))" +" lst_373))))))" "(let-values((()" "(begin" "(let-values(((obs_88)" @@ -65740,44 +65823,44 @@ static const char *startup_source = "(values))))" "(let-values(((trans-valss_0)" "(reverse$1" -"(let-values(((lst_132)" +"(let-values(((lst_134)" "(if syntaxes?_0" " trans-rhs104_0" " '()))" -"((lst_372) trans-idss_2))" +"((lst_375) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_132)))" +"(let-values()(check-list lst_134)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_372)))" -"((letrec-values(((for-loop_308)" -"(lambda(fold-var_117" -" lst_373" -" lst_374)" +"(let-values()(check-list lst_375)))" +"((letrec-values(((for-loop_305)" +"(lambda(fold-var_119" +" lst_376" +" lst_377)" "(begin" " 'for-loop" -"(if(if(pair? lst_373)" -"(pair? lst_374)" +"(if(if(pair? lst_376)" +"(pair? lst_377)" " #f)" "(let-values(((rhs_20)" "(unsafe-car" -" lst_373))" +" lst_376))" "((rest_215)" "(unsafe-cdr" -" lst_373))" +" lst_376))" "((ids_39)" "(unsafe-car" -" lst_374))" +" lst_377))" "((rest_216)" "(unsafe-cdr" -" lst_374)))" +" lst_377)))" "(let-values(((fold-var_359)" -"(let-values(((fold-var_121)" -" fold-var_117))" +"(let-values(((fold-var_123)" +" fold-var_119))" "(let-values(((fold-var_360)" "(let-values()" "(cons" @@ -65818,60 +65901,60 @@ static const char *startup_source = " 'exit-bind)))" "(void)))" " trans-val_1))))" -" fold-var_121))))" +" fold-var_123))))" "(values" " fold-var_360)))))" "(if(not #f)" -"(for-loop_308" +"(for-loop_305" " fold-var_359" " rest_215" " rest_216)" " fold-var_359)))" -" fold-var_117)))))" -" for-loop_308)" +" fold-var_119)))))" +" for-loop_305)" " null" -" lst_132" -" lst_372))))))" +" lst_134" +" lst_375))))))" "(let-values(((rec-val-env_0)" -"(let-values(((lst_375) val-keyss_2)" -"((lst_256) val-idss_3))" +"(let-values(((lst_378) val-keyss_2)" +"((lst_258) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_375)))" +"(let-values()(check-list lst_378)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_256)))" -"((letrec-values(((for-loop_309)" +"(let-values()(check-list lst_258)))" +"((letrec-values(((for-loop_306)" "(lambda(env_29" -" lst_376" -" lst_377)" +" lst_379" +" lst_380)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_376)" -"(pair? lst_377)" +" lst_379)" +"(pair? lst_380)" " #f)" "(let-values(((keys_10)" "(unsafe-car" -" lst_376))" +" lst_379))" "((rest_217)" "(unsafe-cdr" -" lst_376))" +" lst_379))" "((ids_40)" "(unsafe-car" -" lst_377))" +" lst_380))" "((rest_218)" "(unsafe-cdr" -" lst_377)))" +" lst_380)))" "(let-values(((env_30)" "(let-values(((env_31)" " env_29))" -"(let-values(((lst_258)" +"(let-values(((lst_260)" " keys_10)" -"((lst_378)" +"((lst_381)" " ids_40))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65879,36 +65962,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_258)))" +" lst_260)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_378)))" -"((letrec-values(((for-loop_310)" +" lst_381)))" +"((letrec-values(((for-loop_307)" "(lambda(env_32" -" lst_379" -" lst_380)" +" lst_382" +" lst_383)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_379)" +" lst_382)" "(pair?" -" lst_380)" +" lst_383)" " #f)" -"(let-values(((key_69)" +"(let-values(((key_68)" "(unsafe-car" -" lst_379))" +" lst_382))" "((rest_219)" "(unsafe-cdr" -" lst_379))" +" lst_382))" "((id_126)" "(unsafe-car" -" lst_380))" +" lst_383))" "((rest_220)" "(unsafe-cdr" -" lst_380)))" +" lst_383)))" "(let-values(((env_33)" "(let-values(((env_34)" " env_32))" @@ -65916,94 +65999,94 @@ static const char *startup_source = "(let-values()" "(env-extend" " env_34" -" key_69" +" key_68" "(local-variable1.1" " id_126)))))" "(values" " env_35)))))" "(if(not" " #f)" -"(for-loop_310" +"(for-loop_307" " env_33" " rest_219" " rest_220)" " env_33)))" " env_32)))))" -" for-loop_310)" +" for-loop_307)" " env_31" -" lst_258" -" lst_378))))))" +" lst_260" +" lst_381))))))" "(if(not #f)" -"(for-loop_309" +"(for-loop_306" " env_30" " rest_217" " rest_218)" " env_30)))" " env_29)))))" -" for-loop_309)" +" for-loop_306)" "(expand-context-env ctx_84)" -" lst_375" -" lst_256)))))" +" lst_378" +" lst_258)))))" "(let-values(((rec-env_0)" -"(let-values(((lst_381) trans-keyss_0)" -"((lst_382) trans-valss_0)" -"((lst_60) trans-idss_2))" +"(let-values(((lst_384) trans-keyss_0)" +"((lst_385) trans-valss_0)" +"((lst_61) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_381)))" +"(let-values()(check-list lst_384)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_382)))" +"(let-values()(check-list lst_385)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_60)))" +"(let-values()(check-list lst_61)))" "((letrec-values(((for-loop_84)" "(lambda(env_36" -" lst_61" -" lst_383" -" lst_384)" +" lst_62" +" lst_386" +" lst_387)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_61)" +" lst_62)" "(if(pair?" -" lst_383)" +" lst_386)" "(pair?" -" lst_384)" +" lst_387)" " #f)" " #f)" "(let-values(((keys_11)" "(unsafe-car" -" lst_61))" +" lst_62))" "((rest_221)" "(unsafe-cdr" -" lst_61))" +" lst_62))" "((vals_9)" "(unsafe-car" -" lst_383))" +" lst_386))" "((rest_222)" "(unsafe-cdr" -" lst_383))" +" lst_386))" "((ids_41)" "(unsafe-car" -" lst_384))" +" lst_387))" "((rest_223)" "(unsafe-cdr" -" lst_384)))" +" lst_387)))" "(let-values(((env_37)" "(let-values(((env_38)" " env_36))" "(let-values(((env_39)" "(let-values()" -"(let-values(((lst_385)" +"(let-values(((lst_388)" " keys_11)" -"((lst_386)" +"((lst_389)" " vals_9)" -"((lst_387)" +"((lst_390)" " ids_41))" "(begin" "(if(variable-reference-from-unsafe?" @@ -66011,52 +66094,52 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_385)))" +" lst_388)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_386)))" +" lst_389)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_387)))" -"((letrec-values(((for-loop_311)" +" lst_390)))" +"((letrec-values(((for-loop_308)" "(lambda(env_40" -" lst_65" -" lst_388" -" lst_389)" +" lst_66" +" lst_391" +" lst_392)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_65)" +" lst_66)" "(if(pair?" -" lst_388)" +" lst_391)" "(pair?" -" lst_389)" +" lst_392)" " #f)" " #f)" -"(let-values(((key_97)" +"(let-values(((key_96)" "(unsafe-car" -" lst_65))" +" lst_66))" "((rest_224)" "(unsafe-cdr" -" lst_65))" +" lst_66))" "((val_86)" "(unsafe-car" -" lst_388))" +" lst_391))" "((rest_225)" "(unsafe-cdr" -" lst_388))" +" lst_391))" "((id_127)" "(unsafe-car" -" lst_389))" +" lst_392))" "((rest_30)" "(unsafe-cdr" -" lst_389)))" +" lst_392)))" "(let-values(((env_41)" "(let-values(((env_42)" " env_40))" @@ -66070,24 +66153,24 @@ static const char *startup_source = " ctx_84)" "(env-extend" " env_42" -" key_97" +" key_96" " val_86)))))" "(values" " env_43)))))" "(if(not" " #f)" -"(for-loop_311" +"(for-loop_308" " env_41" " rest_224" " rest_225" " rest_30)" " env_41)))" " env_40)))))" -" for-loop_311)" +" for-loop_308)" " env_38" -" lst_385" -" lst_386" -" lst_387))))))" +" lst_388" +" lst_389" +" lst_390))))))" "(values" " env_39)))))" "(if(not #f)" @@ -66100,9 +66183,9 @@ static const char *startup_source = " env_36)))))" " for-loop_84)" " rec-val-env_0" -" lst_381" -" lst_382" -" lst_60)))))" +" lst_384" +" lst_385" +" lst_61)))))" "(let-values(((expr-ctx_0)" "(as-expression-context ctx_84)))" "(let-values(((orig-rrs_0)" @@ -66110,9 +66193,9 @@ static const char *startup_source = " expr-ctx_0)))" "(let-values(((rec-ctx_0)" "(let-values(((v_259) expr-ctx_0))" -"(let-values(((the-struct_95) v_259))" +"(let-values(((the-struct_93) v_259))" "(if(expand-context/outer?" -" the-struct_95)" +" the-struct_93)" "(let-values(((env185_0)" " rec-env_0)" "((scopes186_0)" @@ -66139,33 +66222,33 @@ static const char *startup_source = "(expand-context/outer1.1" " inner189_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_95)" +" the-struct_93)" "(root-expand-context/outer-use-site-scopes" -" the-struct_95)" +" the-struct_93)" "(root-expand-context/outer-frame-id" -" the-struct_95)" +" the-struct_93)" "(expand-context/outer-context" -" the-struct_95)" +" the-struct_93)" " env185_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_95)" +" the-struct_93)" " scopes186_0" "(expand-context/outer-def-ctx-scopes" -" the-struct_95)" +" the-struct_93)" " binding-layer188_0" " reference-records187_0" "(expand-context/outer-only-immediate?" -" the-struct_95)" +" the-struct_93)" "(expand-context/outer-need-eventually-defined" -" the-struct_95)" +" the-struct_93)" "(expand-context/outer-current-introduction-scopes" -" the-struct_95)" +" the-struct_93)" "(expand-context/outer-name" -" the-struct_95)))" +" the-struct_93)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_95))))))" +" the-struct_93))))))" "(let-values(((letrec-values-id_0)" "(if(not" "(expand-context-to-parsed?" @@ -66176,7 +66259,7 @@ static const char *startup_source = " #f)))" "(let-values(((rebuild-s_6)" "(let-values(((ctx190_0) ctx_84)" -"((s191_0) s_324)" +"((s191_0) s_318)" "((temp192_1) #t))" "(keep-as-needed85.1" " #f" @@ -66191,27 +66274,27 @@ static const char *startup_source = "(if(expand-context-to-parsed?" " ctx_84)" "(reverse$1" -"(let-values(((lst_390)" +"(let-values(((lst_393)" " val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_390)))" -"((letrec-values(((for-loop_71)" +"(check-list lst_393)))" +"((letrec-values(((for-loop_309)" "(lambda(fold-var_361" -" lst_391)" +" lst_394)" "(begin" " 'for-loop" "(if(pair?" -" lst_391)" +" lst_394)" "(let-values(((val-ids_1)" "(unsafe-car" -" lst_391))" +" lst_394))" "((rest_226)" "(unsafe-cdr" -" lst_391)))" +" lst_394)))" "(let-values(((fold-var_362)" "(let-values(((fold-var_363)" " fold-var_361))" @@ -66220,7 +66303,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_260)" +"(let-values(((lst_262)" " val-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -66228,20 +66311,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_260)))" +" lst_262)))" "((letrec-values(((for-loop_226)" "(lambda(fold-var_365" -" lst_120)" +" lst_122)" "(begin" " 'for-loop" "(if(pair?" -" lst_120)" +" lst_122)" "(let-values(((val-id_0)" "(unsafe-car" -" lst_120))" +" lst_122))" "((rest_59)" "(unsafe-cdr" -" lst_120)))" +" lst_122)))" "(let-values(((fold-var_366)" "(let-values(((fold-var_367)" " fold-var_365))" @@ -66267,20 +66350,20 @@ static const char *startup_source = " fold-var_365)))))" " for-loop_226)" " null" -" lst_260)))))" +" lst_262)))))" " fold-var_363))))" "(values" " fold-var_364)))))" "(if(not" " #f)" -"(for-loop_71" +"(for-loop_309" " fold-var_362" " rest_226)" " fold-var_362)))" " fold-var_361)))))" -" for-loop_71)" +" for-loop_309)" " null" -" lst_390))))" +" lst_393))))" " val-idss_3)))" "(let-values((()" "(begin" @@ -66325,10 +66408,10 @@ static const char *startup_source = "(let-values(((body-ctx_5)" "(let-values(((v_260)" " rec-ctx_0))" -"(let-values(((the-struct_96)" +"(let-values(((the-struct_94)" " v_260))" "(if(expand-context/outer?" -" the-struct_96)" +" the-struct_94)" "(let-values(((reference-records196_0)" " orig-rrs_0)" "((inner197_0)" @@ -66337,36 +66420,36 @@ static const char *startup_source = "(expand-context/outer1.1" " inner197_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_96)" +" the-struct_94)" "(root-expand-context/outer-use-site-scopes" -" the-struct_96)" +" the-struct_94)" "(root-expand-context/outer-frame-id" -" the-struct_96)" +" the-struct_94)" "(expand-context/outer-context" -" the-struct_96)" +" the-struct_94)" "(expand-context/outer-env" -" the-struct_96)" +" the-struct_94)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_96)" +" the-struct_94)" "(expand-context/outer-scopes" -" the-struct_96)" +" the-struct_94)" "(expand-context/outer-def-ctx-scopes" -" the-struct_96)" +" the-struct_94)" "(expand-context/outer-binding-layer" -" the-struct_96)" +" the-struct_94)" " reference-records196_0" "(expand-context/outer-only-immediate?" -" the-struct_96)" +" the-struct_94)" "(expand-context/outer-need-eventually-defined" -" the-struct_96)" +" the-struct_94)" "(expand-context/outer-current-introduction-scopes" -" the-struct_96)" +" the-struct_94)" "(expand-context/outer-name" -" the-struct_96)))" +" the-struct_94)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_96))))))" +" the-struct_94))))))" "(let-values(((bodys193_0)" " bodys_10)" "((temp194_0)" @@ -66391,13 +66474,13 @@ static const char *startup_source = "(let-values()" "(let-values(((clauses_2)" "(reverse$1" -"(let-values(((lst_392)" +"(let-values(((lst_395)" " val-name-idss_0)" -"((lst_140)" +"((lst_142)" " val-keyss_2)" -"((lst_393)" +"((lst_396)" " val-rhss_3)" -"((lst_394)" +"((lst_397)" " val-clauses_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -66405,71 +66488,71 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_392)))" +" lst_395)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_140)))" +" lst_142)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_393)))" +" lst_396)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_394)))" -"((letrec-values(((for-loop_312)" -"(lambda(fold-var_135" -" lst_395" -" lst_396" -" lst_397" -" lst_398)" +" lst_397)))" +"((letrec-values(((for-loop_310)" +"(lambda(fold-var_137" +" lst_398" +" lst_399" +" lst_400" +" lst_401)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_395)" -"(if(pair?" -" lst_396)" -"(if(pair?" -" lst_397)" -"(pair?" " lst_398)" +"(if(pair?" +" lst_399)" +"(if(pair?" +" lst_400)" +"(pair?" +" lst_401)" " #f)" " #f)" " #f)" "(let-values(((ids_42)" "(unsafe-car" -" lst_395))" +" lst_398))" "((rest_227)" "(unsafe-cdr" -" lst_395))" +" lst_398))" "((keys_12)" "(unsafe-car" -" lst_396))" +" lst_399))" "((rest_228)" "(unsafe-cdr" -" lst_396))" +" lst_399))" "((rhs_21)" "(unsafe-car" -" lst_397))" +" lst_400))" "((rest_31)" "(unsafe-cdr" -" lst_397))" +" lst_400))" "((clause_4)" "(unsafe-car" -" lst_398))" +" lst_401))" "((rest_229)" "(unsafe-cdr" -" lst_398)))" +" lst_401)))" "(let-values(((fold-var_369)" "(let-values(((fold-var_370)" -" fold-var_135))" +" fold-var_137))" "(let-values(((fold-var_371)" "(let-values()" "(cons" @@ -66522,20 +66605,20 @@ static const char *startup_source = " fold-var_371)))))" "(if(not" " #f)" -"(for-loop_312" +"(for-loop_310" " fold-var_369" " rest_227" " rest_228" " rest_31" " rest_229)" " fold-var_369)))" -" fold-var_135)))))" -" for-loop_312)" +" fold-var_137)))))" +" for-loop_310)" " null" -" lst_392" -" lst_140" -" lst_393" -" lst_394))))))" +" lst_395" +" lst_142" +" lst_396" +" lst_397))))))" "(let-values(((exp-body_4)" "(get-body_1)))" "(begin" @@ -66616,23 +66699,23 @@ static const char *startup_source = "(let-values(((vals+body_0)" "(cons" "(reverse$1" -"(let-values(((lst_399) val-idss_4)((lst_400) val-rhss_4))" +"(let-values(((lst_402) val-idss_4)((lst_403) val-rhss_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_399)))" +"(let-values()(check-list lst_402)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_400)))" -"((letrec-values(((for-loop_313)" -"(lambda(fold-var_372 lst_401 lst_402)" +"(let-values()(check-list lst_403)))" +"((letrec-values(((for-loop_311)" +"(lambda(fold-var_372 lst_404 lst_405)" "(begin" " 'for-loop" -"(if(if(pair? lst_401)(pair? lst_402) #f)" -"(let-values(((val-ids_2)(unsafe-car lst_401))" -"((rest_230)(unsafe-cdr lst_401))" -"((val-rhs_11)(unsafe-car lst_402))" -"((rest_231)(unsafe-cdr lst_402)))" +"(if(if(pair? lst_404)(pair? lst_405) #f)" +"(let-values(((val-ids_2)(unsafe-car lst_404))" +"((rest_230)(unsafe-cdr lst_404))" +"((val-rhs_11)(unsafe-car lst_405))" +"((rest_231)(unsafe-cdr lst_405)))" "(let-values(((fold-var_373)" "(let-values(((fold-var_374) fold-var_372))" "(let-values(((fold-var_51)" @@ -66645,13 +66728,13 @@ static const char *startup_source = " fold-var_374))))" "(values fold-var_51)))))" "(if(not #f)" -"(for-loop_313 fold-var_373 rest_230 rest_231)" +"(for-loop_311 fold-var_373 rest_230 rest_231)" " fold-var_373)))" " fold-var_372)))))" -" for-loop_313)" +" for-loop_311)" " null" -" lst_399" -" lst_400))))" +" lst_402" +" lst_403))))" "(datum->syntax$1 #f bodys_11))))" "(call-expand-observe" " obs_95" @@ -66660,23 +66743,23 @@ static const char *startup_source = " vals+body_0" "(cons" "(reverse$1" -"(let-values(((lst_71) trans-idss_3)((lst_403) trans-rhss_0))" +"(let-values(((lst_72) trans-idss_3)((lst_406) trans-rhss_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_71)))" +"(let-values()(check-list lst_72)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_403)))" -"((letrec-values(((for-loop_314)" -"(lambda(fold-var_52 lst_404 lst_405)" +"(let-values()(check-list lst_406)))" +"((letrec-values(((for-loop_312)" +"(lambda(fold-var_52 lst_407 lst_408)" "(begin" " 'for-loop" -"(if(if(pair? lst_404)(pair? lst_405) #f)" -"(let-values(((trans-ids_0)(unsafe-car lst_404))" -"((rest_232)(unsafe-cdr lst_404))" -"((trans-rhs_5)(unsafe-car lst_405))" -"((rest_233)(unsafe-cdr lst_405)))" +"(if(if(pair? lst_407)(pair? lst_408) #f)" +"(let-values(((trans-ids_0)(unsafe-car lst_407))" +"((rest_232)(unsafe-cdr lst_407))" +"((trans-rhs_5)(unsafe-car lst_408))" +"((rest_233)(unsafe-cdr lst_408)))" "(let-values(((fold-var_375)" "(let-values(((fold-var_376) fold-var_52))" "(let-values(((fold-var_56)" @@ -66690,12 +66773,12 @@ static const char *startup_source = "(add-scope trans-rhs_5 sc_38))))" " fold-var_376))))" "(values fold-var_56)))))" -"(if(not #f)(for-loop_314 fold-var_375 rest_232 rest_233) fold-var_375)))" +"(if(not #f)(for-loop_312 fold-var_375 rest_232 rest_233) fold-var_375)))" " fold-var_52)))))" -" for-loop_314)" +" for-loop_312)" " null" -" lst_71" -" lst_403))))" +" lst_72" +" lst_406))))" " vals+body_0)))))))" "(define-values" "(log-letrec-values)" @@ -66730,7 +66813,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%stratified-body" -"(lambda(s_535 ctx_85)" +"(lambda(s_525 ctx_85)" "(let-values((()" "(begin" "(let-values(((obs_97)(expand-context-observer ctx_85)))" @@ -66738,22 +66821,22 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_97 'prim-#%stratified)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_9)(syntax-disarm$1 s_535)))" +"(let-values(((disarmed-s_9)(syntax-disarm$1 s_525)))" "(let-values(((ok?_41 #%stratified-body223_0 body224_0)" -"(let-values(((s_536) disarmed-s_9))" -"(let-values(((orig-s_49) s_536))" +"(let-values(((s_526) disarmed-s_9))" +"(let-values(((orig-s_49) s_526))" "(let-values(((#%stratified-body223_1 body224_1)" -"(let-values(((s_537)(if(syntax?$1 s_536)(syntax-e$1 s_536) s_536)))" -"(if(pair? s_537)" +"(let-values(((s_527)(if(syntax?$1 s_526)(syntax-e$1 s_526) s_526)))" +"(if(pair? s_527)" "(let-values(((#%stratified-body225_0)" -"(let-values(((s_538)(car s_537))) s_538))" +"(let-values(((s_528)(car s_527))) s_528))" "((body226_0)" -"(let-values(((s_539)(cdr s_537)))" -"(let-values(((s_540)" -"(if(syntax?$1 s_539)" -"(syntax-e$1 s_539)" -" s_539)))" -"(let-values(((flat-s_41)(to-syntax-list.1 s_540)))" +"(let-values(((s_529)(cdr s_527)))" +"(let-values(((s_530)" +"(if(syntax?$1 s_529)" +"(syntax-e$1 s_529)" +" s_529)))" +"(let-values(((flat-s_41)(to-syntax-list.1 s_530)))" "(if(not flat-s_41)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_49))" @@ -66765,7 +66848,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_49)))))" "(values #t #%stratified-body223_1 body224_1))))))" "(let-values(((rebuild-s_7)" -"(let-values(((ctx227_0) ctx_85)((s228_0) s_535)((temp229_1) #t))" +"(let-values(((ctx227_0) ctx_85)((s228_0) s_525)((temp229_1) #t))" "(keep-as-needed85.1 #f #f temp229_1 #t #f #f ctx227_0 s228_0))))" "(let-values(((exp-body_5)" "(let-values(((temp230_2) body224_0)" @@ -66784,21 +66867,21 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%datum" -"(lambda(s_541 ctx_86)" +"(lambda(s_531 ctx_86)" "(let-values((()" "(begin" "(let-values(((obs_98)(expand-context-observer ctx_86)))" "(if obs_98(let-values()(let-values()(call-expand-observe obs_98 'prim-#%datum)))(void)))" "(values))))" -"(let-values(((disarmed-s_10)(syntax-disarm$1 s_541)))" +"(let-values(((disarmed-s_10)(syntax-disarm$1 s_531)))" "(let-values(((ok?_42 #%datum236_0 datum237_0)" -"(let-values(((s_542) disarmed-s_10))" -"(let-values(((orig-s_50) s_542))" +"(let-values(((s_532) disarmed-s_10))" +"(let-values(((orig-s_50) s_532))" "(let-values(((#%datum236_1 datum237_1)" -"(let-values(((s_543)(if(syntax?$1 s_542)(syntax-e$1 s_542) s_542)))" -"(if(pair? s_543)" -"(let-values(((#%datum238_0)(let-values(((s_544)(car s_543))) s_544))" -"((datum239_0)(let-values(((s_545)(cdr s_543))) s_545)))" +"(let-values(((s_533)(if(syntax?$1 s_532)(syntax-e$1 s_532) s_532)))" +"(if(pair? s_533)" +"(let-values(((#%datum238_0)(let-values(((s_534)(car s_533))) s_534))" +"((datum239_0)(let-values(((s_535)(cdr s_533))) s_535)))" "(values #%datum238_0 datum239_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_50)))))" "(values #t #%datum236_1 datum237_1))))))" @@ -66812,33 +66895,33 @@ static const char *startup_source = "(values))))" "(let-values(((phase_149)(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_541)(syntax->datum$1 datum_2))" -"(let-values(((s240_0) s_541)((temp241_1)(list(core-id 'quote phase_149) datum_2)))" +"(parsed-quote14.1(keep-properties-only~ s_531)(syntax->datum$1 datum_2))" +"(let-values(((s240_0) s_531)((temp241_1)(list(core-id 'quote phase_149) datum_2)))" "(rebuild5.1 #f #f s240_0 temp241_1))))))))))))" "(void" "(add-core-form!*" " '#%app" -"(lambda(s_546 ctx_87)" +"(lambda(s_536 ctx_87)" "(let-values((()" "(begin" "(let-values(((obs_99)(expand-context-observer ctx_87)))" "(if obs_99(let-values()(let-values()(call-expand-observe obs_99 'prim-#%app)))(void)))" "(values))))" -"(let-values(((disarmed-s_11)(syntax-disarm$1 s_546)))" +"(let-values(((disarmed-s_11)(syntax-disarm$1 s_536)))" "(let-values(((ok?_43 #%app242_0 e243_0)" -"(let-values(((s_547) disarmed-s_11))" -"(let-values(((orig-s_51) s_547))" +"(let-values(((s_537) disarmed-s_11))" +"(let-values(((orig-s_51) s_537))" "(let-values(((#%app242_1 e243_1)" -"(let-values(((s_548)(if(syntax?$1 s_547)(syntax-e$1 s_547) s_547)))" -"(if(pair? s_548)" -"(let-values(((#%app244_0)(let-values(((s_549)(car s_548))) s_549))" +"(let-values(((s_538)(if(syntax?$1 s_537)(syntax-e$1 s_537) s_537)))" +"(if(pair? s_538)" +"(let-values(((#%app244_0)(let-values(((s_539)(car s_538))) s_539))" "((e245_0)" -"(let-values(((s_550)(cdr s_548)))" -"(let-values(((s_551)" -"(if(syntax?$1 s_550)" -"(syntax-e$1 s_550)" -" s_550)))" -"(let-values(((flat-s_42)(to-syntax-list.1 s_551)))" +"(let-values(((s_540)(cdr s_538)))" +"(let-values(((s_541)" +"(if(syntax?$1 s_540)" +"(syntax-e$1 s_540)" +" s_540)))" +"(let-values(((flat-s_42)(to-syntax-list.1 s_541)))" "(if(not flat-s_42)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_51))" @@ -66851,14 +66934,14 @@ static const char *startup_source = "(let-values()" "(let-values(((phase_150)(expand-context-phase ctx_87)))" "(if(expand-context-to-parsed? ctx_87)" -"(parsed-quote14.1(keep-properties-only~ s_546) null)" -"(let-values(((s246_0) s_546)((temp247_0)(list(core-id 'quote phase_150) null)))" +"(parsed-quote14.1(keep-properties-only~ s_536) null)" +"(let-values(((s246_0) s_536)((temp247_0)(list(core-id 'quote phase_150) 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_87)" -"((s249_0) s_546)" +"((s249_0) s_536)" "((keep-for-parsed?250_0) keep-for-parsed?_1))" "(keep-as-needed85.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))))" @@ -66888,7 +66971,7 @@ static const char *startup_source = "(call-expand-observe" " obs_100" " 'enter-list" -"(datum->syntax$1 #f es_3 s_546))" +"(datum->syntax$1 #f es_3 s_536))" "(call-expand-observe obs_100 'next))))" "(void)))" "(values))))" @@ -66898,19 +66981,19 @@ static const char *startup_source = "(expand7.1 #f #f #f #f temp254_0 expr-ctx255_0))))" "(let-values(((exp-es_0)" "(reverse$1" -"(let-values(((lst_406) rest-es_0))" +"(let-values(((lst_409) rest-es_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_406)))" -"((letrec-values(((for-loop_315)" -"(lambda(fold-var_377 lst_407)" +"(let-values()(check-list lst_409)))" +"((letrec-values(((for-loop_313)" +"(lambda(fold-var_377 lst_410)" "(begin" " 'for-loop" -"(if(pair? lst_407)" -"(let-values(((e_92)(unsafe-car lst_407))" +"(if(pair? lst_410)" +"(let-values(((e_92)(unsafe-car lst_410))" "((rest_234)" -"(unsafe-cdr lst_407)))" +"(unsafe-cdr lst_410)))" "(let-values(((fold-var_378)" "(let-values(((fold-var_379)" " fold-var_377))" @@ -66944,17 +67027,17 @@ static const char *startup_source = "(values" " fold-var_380)))))" "(if(not #f)" -"(for-loop_315 fold-var_378 rest_234)" +"(for-loop_313 fold-var_378 rest_234)" " fold-var_378)))" " fold-var_377)))))" -" for-loop_315)" +" for-loop_313)" " null" -" lst_406))))))" +" lst_409))))))" "(if(expand-context-to-parsed? ctx_87)" "(let-values()" "(parsed-app7.1" -"(let-values(((or-part_387) rebuild-prefixless_0))" -"(if or-part_387 or-part_387 rebuild-s_8))" +"(let-values(((or-part_372) rebuild-prefixless_0))" +"(if or-part_372 or-part_372 rebuild-s_8))" " exp-rator_0" " exp-es_0))" "(let-values()" @@ -66981,35 +67064,35 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'quote" -"(lambda(s_268 ctx_88)" +"(lambda(s_264 ctx_88)" "(let-values((()" "(begin" "(let-values(((obs_103)(expand-context-observer ctx_88)))" "(if obs_103(let-values()(let-values()(call-expand-observe obs_103 'prim-quote)))(void)))" "(values))))" "(let-values(((ok?_44 quote262_0 datum263_0)" -"(let-values(((s_275)(syntax-disarm$1 s_268)))" -"(let-values(((orig-s_52) s_275))" +"(let-values(((s_271)(syntax-disarm$1 s_264)))" +"(let-values(((orig-s_52) s_271))" "(let-values(((quote262_1 datum263_1)" -"(let-values(((s_552)(if(syntax?$1 s_275)(syntax-e$1 s_275) s_275)))" -"(if(pair? s_552)" -"(let-values(((quote264_0)(let-values(((s_553)(car s_552))) s_553))" +"(let-values(((s_542)(if(syntax?$1 s_271)(syntax-e$1 s_271) s_271)))" +"(if(pair? s_542)" +"(let-values(((quote264_0)(let-values(((s_543)(car s_542))) s_543))" "((datum265_0)" -"(let-values(((s_554)(cdr s_552)))" -"(let-values(((s_555)" -"(if(syntax?$1 s_554)" -"(syntax-e$1 s_554)" -" s_554)))" -"(if(pair? s_555)" +"(let-values(((s_544)(cdr s_542)))" +"(let-values(((s_545)" +"(if(syntax?$1 s_544)" +"(syntax-e$1 s_544)" +" s_544)))" +"(if(pair? s_545)" "(let-values(((datum266_0)" -"(let-values(((s_556)(car s_555))) s_556))" +"(let-values(((s_546)(car s_545))) s_546))" "(()" -"(let-values(((s_557)(cdr s_555)))" -"(let-values(((s_558)" -"(if(syntax?$1 s_557)" -"(syntax-e$1 s_557)" -" s_557)))" -"(if(null? s_558)" +"(let-values(((s_547)(cdr s_545)))" +"(let-values(((s_548)" +"(if(syntax?$1 s_547)" +"(syntax-e$1 s_547)" +" s_547)))" +"(if(null? s_548)" "(values)" "(raise-syntax-error$1" " #f" @@ -67021,12 +67104,12 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_52)))))" "(values #t quote262_1 datum263_1))))))" "(if(expand-context-to-parsed? ctx_88)" -"(parsed-quote14.1(keep-properties-only~ s_268)(syntax->datum$1 datum263_0))" -" s_268))))))" +"(parsed-quote14.1(keep-properties-only~ s_264)(syntax->datum$1 datum263_0))" +" s_264))))))" "(void" "(add-core-form!*" " 'quote-syntax" -"(lambda(s_559 ctx_89)" +"(lambda(s_549 ctx_89)" "(let-values((()" "(begin" "(let-values(((obs_104)(expand-context-observer ctx_89)))" @@ -67034,27 +67117,27 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_104 'prim-quote-syntax)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_12)(syntax-disarm$1 s_559)))" +"(let-values(((disarmed-s_12)(syntax-disarm$1 s_549)))" "(let-values(((ok?_45 quote-syntax267_0 datum268_0)" -"(let-values(((s_560) disarmed-s_12))" -"(if(let-values(((s_561)(if(syntax?$1 s_560)(syntax-e$1 s_560) s_560)))" -"(if(pair? s_561)" -"(if(let-values(((s_283)(car s_561))) #t)" -"(let-values(((s_284)(cdr s_561)))" -"(let-values(((s_285)(if(syntax?$1 s_284)(syntax-e$1 s_284) s_284)))" -"(if(pair? s_285)" -"(if(let-values(((s_562)(car s_285))) #t)" -"(let-values(((s_563)(cdr s_285)))" -"(let-values(((s_564)(if(syntax?$1 s_563)(syntax-e$1 s_563) s_563)))" -"(if(pair? s_564)" -"(if(let-values(((s_565)(car s_564)))" -"(let-values(((s_566)" -"(if(syntax?$1 s_565)(syntax-e$1 s_565) s_565)))" -"(eq? '#:local s_566)))" -"(let-values(((s_567)(cdr s_564)))" -"(let-values(((s_568)" -"(if(syntax?$1 s_567)(syntax-e$1 s_567) s_567)))" -"(null? s_568)))" +"(let-values(((s_550) disarmed-s_12))" +"(if(let-values(((s_551)(if(syntax?$1 s_550)(syntax-e$1 s_550) s_550)))" +"(if(pair? s_551)" +"(if(let-values(((s_279)(car s_551))) #t)" +"(let-values(((s_280)(cdr s_551)))" +"(let-values(((s_281)(if(syntax?$1 s_280)(syntax-e$1 s_280) s_280)))" +"(if(pair? s_281)" +"(if(let-values(((s_552)(car s_281))) #t)" +"(let-values(((s_553)(cdr s_281)))" +"(let-values(((s_554)(if(syntax?$1 s_553)(syntax-e$1 s_553) s_553)))" +"(if(pair? s_554)" +"(if(let-values(((s_555)(car s_554)))" +"(let-values(((s_556)" +"(if(syntax?$1 s_555)(syntax-e$1 s_555) s_555)))" +"(eq? '#:local s_556)))" +"(let-values(((s_557)(cdr s_554)))" +"(let-values(((s_558)" +"(if(syntax?$1 s_557)(syntax-e$1 s_557) s_557)))" +"(null? s_558)))" " #f)" " #f)))" " #f)" @@ -67063,44 +67146,44 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((quote-syntax267_1 datum268_1)" -"(let-values(((s_569)(if(syntax?$1 s_560)(syntax-e$1 s_560) s_560)))" +"(let-values(((s_559)(if(syntax?$1 s_550)(syntax-e$1 s_550) s_550)))" "(let-values(((quote-syntax269_0)" -"(let-values(((s_570)(car s_569))) s_570))" +"(let-values(((s_560)(car s_559))) s_560))" "((datum270_0)" -"(let-values(((s_286)(cdr s_569)))" -"(let-values(((s_571)" -"(if(syntax?$1 s_286)" -"(syntax-e$1 s_286)" -" s_286)))" +"(let-values(((s_282)(cdr s_559)))" +"(let-values(((s_561)" +"(if(syntax?$1 s_282)" +"(syntax-e$1 s_282)" +" s_282)))" "(let-values(((datum271_0)" -"(let-values(((s_572)(car s_571))) s_572))" +"(let-values(((s_562)(car s_561))) s_562))" "(()" -"(let-values(((s_287)(cdr s_571)))" -"(let-values(((s_573)" -"(if(syntax?$1 s_287)" -"(syntax-e$1 s_287)" -" s_287)))" +"(let-values(((s_283)(cdr s_561)))" +"(let-values(((s_563)" +"(if(syntax?$1 s_283)" +"(syntax-e$1 s_283)" +" s_283)))" "(let-values((()" -"(let-values(((s_574)" +"(let-values(((s_564)" "(car" -" s_573)))" -"(let-values(((s_288)" +" s_563)))" +"(let-values(((s_284)" "(if(syntax?$1" -" s_574)" +" s_564)" "(syntax-e$1" -" s_574)" -" s_574)))" +" s_564)" +" s_564)))" "(values))))" "(()" -"(let-values(((s_289)" +"(let-values(((s_285)" "(cdr" -" s_573)))" -"(let-values(((s_290)" +" s_563)))" +"(let-values(((s_286)" "(if(syntax?$1" -" s_289)" +" s_285)" "(syntax-e$1" -" s_289)" -" s_289)))" +" s_285)" +" s_285)))" "(values)))))" "(values))))))" "(values datum271_0))))))" @@ -67108,31 +67191,31 @@ static const char *startup_source = "(values #t quote-syntax267_1 datum268_1)))" "(values #f #f #f)))))" "(let-values(((ok?_46 quote-syntax272_0 datum273_0)" -"(let-values(((s_575) disarmed-s_12))" +"(let-values(((s_565) disarmed-s_12))" "(if(if(not ok?_45) #t #f)" -"(let-values(((orig-s_53) s_575))" +"(let-values(((orig-s_53) s_565))" "(let-values(((quote-syntax272_1 datum273_1)" -"(let-values(((s_576)(if(syntax?$1 s_575)(syntax-e$1 s_575) s_575)))" -"(if(pair? s_576)" +"(let-values(((s_566)(if(syntax?$1 s_565)(syntax-e$1 s_565) s_565)))" +"(if(pair? s_566)" "(let-values(((quote-syntax274_0)" -"(let-values(((s_577)(car s_576))) s_577))" +"(let-values(((s_567)(car s_566))) s_567))" "((datum275_0)" -"(let-values(((s_578)(cdr s_576)))" -"(let-values(((s_579)" -"(if(syntax?$1 s_578)" -"(syntax-e$1 s_578)" -" s_578)))" -"(if(pair? s_579)" +"(let-values(((s_568)(cdr s_566)))" +"(let-values(((s_569)" +"(if(syntax?$1 s_568)" +"(syntax-e$1 s_568)" +" s_568)))" +"(if(pair? s_569)" "(let-values(((datum276_0)" -"(let-values(((s_580)(car s_579)))" -" s_580))" +"(let-values(((s_570)(car s_569)))" +" s_570))" "(()" -"(let-values(((s_581)(cdr s_579)))" -"(let-values(((s_582)" -"(if(syntax?$1 s_581)" -"(syntax-e$1 s_581)" -" s_581)))" -"(if(null? s_582)" +"(let-values(((s_571)(cdr s_569)))" +"(let-values(((s_572)" +"(if(syntax?$1 s_571)" +"(syntax-e$1 s_571)" +" s_571)))" +"(if(null? s_572)" "(values)" "(raise-syntax-error$1" " #f" @@ -67154,52 +67237,52 @@ static const char *startup_source = "(reference-records-all-used!(expand-context-reference-records ctx_89))" "(values))))" "(let-values(((ok?_47 _277_0 _278_0 kw279_0)" -"(let-values(((s_583) disarmed-s_12))" -"(let-values(((orig-s_54) s_583))" +"(let-values(((s_573) disarmed-s_12))" +"(let-values(((orig-s_54) s_573))" "(let-values(((_277_1 _278_1 kw279_1)" -"(let-values(((s_584)" -"(if(syntax?$1 s_583)(syntax-e$1 s_583) s_583)))" -"(if(pair? s_584)" +"(let-values(((s_574)" +"(if(syntax?$1 s_573)(syntax-e$1 s_573) s_573)))" +"(if(pair? s_574)" "(let-values(((_280_0)" -"(let-values(((s_585)(car s_584))) s_585))" +"(let-values(((s_575)(car s_574))) s_575))" "((_281_0 kw282_0)" -"(let-values(((s_586)(cdr s_584)))" -"(let-values(((s_587)" -"(if(syntax?$1 s_586)" -"(syntax-e$1 s_586)" -" s_586)))" -"(if(pair? s_587)" +"(let-values(((s_576)(cdr s_574)))" +"(let-values(((s_577)" +"(if(syntax?$1 s_576)" +"(syntax-e$1 s_576)" +" s_576)))" +"(if(pair? s_577)" "(let-values(((_283_0)" -"(let-values(((s_588)" -"(car s_587)))" -" s_588))" +"(let-values(((s_578)" +"(car s_577)))" +" s_578))" "((kw284_0)" -"(let-values(((s_589)" -"(cdr s_587)))" -"(let-values(((s_590)" +"(let-values(((s_579)" +"(cdr s_577)))" +"(let-values(((s_580)" "(if(syntax?$1" -" s_589)" +" s_579)" "(syntax-e$1" -" s_589)" -" s_589)))" -"(if(pair? s_590)" +" s_579)" +" s_579)))" +"(if(pair? s_580)" "(let-values(((kw285_0)" -"(let-values(((s_591)" +"(let-values(((s_581)" "(car" -" s_590)))" -" s_591))" +" s_580)))" +" s_581))" "(()" -"(let-values(((s_592)" +"(let-values(((s_582)" "(cdr" -" s_590)))" -"(let-values(((s_593)" +" s_580)))" +"(let-values(((s_583)" "(if(syntax?$1" -" s_592)" +" s_582)" "(syntax-e$1" -" s_592)" -" s_592)))" +" s_582)" +" s_582)))" "(if(null?" -" s_593)" +" s_583)" "(values)" "(raise-syntax-error$1" " #f" @@ -67219,42 +67302,42 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_54)))))" "(values #t _277_1 _278_1 kw279_1))))))" "(if(expand-context-to-parsed? ctx_89)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_559) datum268_0)" -"(let-values(((s286_0) s_559)((temp287_0)(list quote-syntax267_0 datum268_0 kw279_0)))" +"(parsed-quote-syntax15.1(keep-properties-only~ s_549) datum268_0)" +"(let-values(((s286_0) s_549)((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_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_559) datum-s_0)" -"(let-values(((s288_0) s_559)((temp289_0)(list quote-syntax272_0 datum-s_0)))" +"(parsed-quote-syntax15.1(keep-properties-only~ s_549) datum-s_0)" +"(let-values(((s288_0) s_549)((temp289_0)(list quote-syntax272_0 datum-s_0)))" "(rebuild5.1 #f #f s288_0 temp289_0)))))))))))))" "(void" "(add-core-form!*" " 'if" -"(lambda(s_594 ctx_90)" +"(lambda(s_584 ctx_90)" "(let-values((()" "(begin" "(let-values(((obs_105)(expand-context-observer ctx_90)))" "(if obs_105(let-values()(let-values()(call-expand-observe obs_105 'prim-if)))(void)))" "(values))))" -"(let-values(((disarmed-s_13)(syntax-disarm$1 s_594)))" +"(let-values(((disarmed-s_13)(syntax-disarm$1 s_584)))" "(let-values(((ok?_48 _290_0 _291_0 _292_0)" -"(let-values(((s_595) disarmed-s_13))" -"(if(let-values(((s_596)(if(syntax?$1 s_595)(syntax-e$1 s_595) s_595)))" -"(if(pair? s_596)" -"(if(let-values(((s_597)(car s_596))) #t)" -"(let-values(((s_598)(cdr s_596)))" -"(let-values(((s_599)(if(syntax?$1 s_598)(syntax-e$1 s_598) s_598)))" -"(if(pair? s_599)" -"(if(let-values(((s_600)(car s_599))) #t)" -"(let-values(((s_601)(cdr s_599)))" -"(let-values(((s_602)(if(syntax?$1 s_601)(syntax-e$1 s_601) s_601)))" -"(if(pair? s_602)" -"(if(let-values(((s_603)(car s_602))) #t)" -"(let-values(((s_604)(cdr s_602)))" -"(let-values(((s_605)" -"(if(syntax?$1 s_604)(syntax-e$1 s_604) s_604)))" -"(null? s_605)))" +"(let-values(((s_585) disarmed-s_13))" +"(if(let-values(((s_586)(if(syntax?$1 s_585)(syntax-e$1 s_585) s_585)))" +"(if(pair? s_586)" +"(if(let-values(((s_587)(car s_586))) #t)" +"(let-values(((s_588)(cdr s_586)))" +"(let-values(((s_589)(if(syntax?$1 s_588)(syntax-e$1 s_588) s_588)))" +"(if(pair? s_589)" +"(if(let-values(((s_590)(car s_589))) #t)" +"(let-values(((s_591)(cdr s_589)))" +"(let-values(((s_592)(if(syntax?$1 s_591)(syntax-e$1 s_591) s_591)))" +"(if(pair? s_592)" +"(if(let-values(((s_593)(car s_592))) #t)" +"(let-values(((s_594)(cdr s_592)))" +"(let-values(((s_595)" +"(if(syntax?$1 s_594)(syntax-e$1 s_594) s_594)))" +"(null? s_595)))" " #f)" " #f)))" " #f)" @@ -67263,37 +67346,37 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((_290_1 _291_1 _292_1)" -"(let-values(((s_606)(if(syntax?$1 s_595)(syntax-e$1 s_595) s_595)))" -"(let-values(((_293_0)(let-values(((s_607)(car s_606))) s_607))" +"(let-values(((s_596)(if(syntax?$1 s_585)(syntax-e$1 s_585) s_585)))" +"(let-values(((_293_0)(let-values(((s_597)(car s_596))) s_597))" "((_294_0 _295_0)" -"(let-values(((s_608)(cdr s_606)))" -"(let-values(((s_609)" -"(if(syntax?$1 s_608)" -"(syntax-e$1 s_608)" -" s_608)))" +"(let-values(((s_598)(cdr s_596)))" +"(let-values(((s_599)" +"(if(syntax?$1 s_598)" +"(syntax-e$1 s_598)" +" s_598)))" "(let-values(((_296_0)" -"(let-values(((s_610)(car s_609))) s_610))" +"(let-values(((s_600)(car s_599))) s_600))" "((_297_0)" -"(let-values(((s_611)(cdr s_609)))" -"(let-values(((s_612)" -"(if(syntax?$1 s_611)" -"(syntax-e$1 s_611)" -" s_611)))" +"(let-values(((s_601)(cdr s_599)))" +"(let-values(((s_602)" +"(if(syntax?$1 s_601)" +"(syntax-e$1 s_601)" +" s_601)))" "(let-values(((_298_0)" -"(let-values(((s_613)" +"(let-values(((s_603)" "(car" -" s_612)))" -" s_613))" +" s_602)))" +" s_603))" "(()" -"(let-values(((s_614)" +"(let-values(((s_604)" "(cdr" -" s_612)))" -"(let-values(((s_615)" +" s_602)))" +"(let-values(((s_605)" "(if(syntax?$1" -" s_614)" +" s_604)" "(syntax-e$1" -" s_614)" -" s_614)))" +" s_604)" +" s_604)))" "(values)))))" "(values _298_0))))))" "(values _296_0 _297_0))))))" @@ -67303,67 +67386,67 @@ static const char *startup_source = "(let-values((()" "(begin" "(if ok?_48" -" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_594))" +" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_584))" "(void))" "(values))))" "(let-values(((ok?_49 if299_0 tst300_0 thn301_0 els302_0)" -"(let-values(((s_616) disarmed-s_13))" -"(let-values(((orig-s_55) s_616))" +"(let-values(((s_606) disarmed-s_13))" +"(let-values(((orig-s_55) s_606))" "(let-values(((if299_1 tst300_1 thn301_1 els302_1)" -"(let-values(((s_617)(if(syntax?$1 s_616)(syntax-e$1 s_616) s_616)))" -"(if(pair? s_617)" -"(let-values(((if303_0)(let-values(((s_618)(car s_617))) s_618))" +"(let-values(((s_607)(if(syntax?$1 s_606)(syntax-e$1 s_606) s_606)))" +"(if(pair? s_607)" +"(let-values(((if303_0)(let-values(((s_608)(car s_607))) s_608))" "((tst304_0 thn305_0 els306_0)" -"(let-values(((s_619)(cdr s_617)))" -"(let-values(((s_620)" -"(if(syntax?$1 s_619)" -"(syntax-e$1 s_619)" -" s_619)))" -"(if(pair? s_620)" +"(let-values(((s_609)(cdr s_607)))" +"(let-values(((s_610)" +"(if(syntax?$1 s_609)" +"(syntax-e$1 s_609)" +" s_609)))" +"(if(pair? s_610)" "(let-values(((tst307_0)" -"(let-values(((s_621)(car s_620)))" -" s_621))" +"(let-values(((s_611)(car s_610)))" +" s_611))" "((thn308_0 els309_0)" -"(let-values(((s_622)(cdr s_620)))" -"(let-values(((s_623)" -"(if(syntax?$1 s_622)" -"(syntax-e$1 s_622)" -" s_622)))" -"(if(pair? s_623)" +"(let-values(((s_612)(cdr s_610)))" +"(let-values(((s_613)" +"(if(syntax?$1 s_612)" +"(syntax-e$1 s_612)" +" s_612)))" +"(if(pair? s_613)" "(let-values(((thn310_0)" -"(let-values(((s_624)" +"(let-values(((s_614)" "(car" -" s_623)))" -" s_624))" +" s_613)))" +" s_614))" "((els311_0)" -"(let-values(((s_625)" +"(let-values(((s_615)" "(cdr" -" s_623)))" -"(let-values(((s_626)" +" s_613)))" +"(let-values(((s_616)" "(if(syntax?$1" -" s_625)" +" s_615)" "(syntax-e$1" -" s_625)" -" s_625)))" +" s_615)" +" s_615)))" "(if(pair?" -" s_626)" +" s_616)" "(let-values(((els312_0)" -"(let-values(((s_627)" +"(let-values(((s_617)" "(car" -" s_626)))" -" s_627))" +" s_616)))" +" s_617))" "(()" -"(let-values(((s_628)" +"(let-values(((s_618)" "(cdr" -" s_626)))" -"(let-values(((s_629)" +" s_616)))" +"(let-values(((s_619)" "(if(syntax?$1" -" s_628)" +" s_618)" "(syntax-e$1" -" s_628)" -" s_628)))" +" s_618)" +" s_618)))" "(if(null?" -" s_629)" +" s_619)" "(values)" "(raise-syntax-error$1" " #f" @@ -67393,7 +67476,7 @@ static const char *startup_source = "(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_90)((s316_0) s_594))" +"(let-values(((ctx315_0) ctx_90)((s316_0) s_584))" "(keep-as-needed85.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))" @@ -67426,7 +67509,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'with-continuation-mark" -"(lambda(s_630 ctx_91)" +"(lambda(s_620 ctx_91)" "(let-values((()" "(begin" "(let-values(((obs_108)(expand-context-observer ctx_91)))" @@ -67434,65 +67517,65 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_108 'prim-with-continuation-mark)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_14)(syntax-disarm$1 s_630)))" +"(let-values(((disarmed-s_14)(syntax-disarm$1 s_620)))" "(let-values(((ok?_50 with-continuation-mark325_0 key326_0 val327_0 body328_0)" -"(let-values(((s_631) disarmed-s_14))" -"(let-values(((orig-s_56) s_631))" +"(let-values(((s_621) disarmed-s_14))" +"(let-values(((orig-s_56) s_621))" "(let-values(((with-continuation-mark325_1 key326_1 val327_1 body328_1)" -"(let-values(((s_632)(if(syntax?$1 s_631)(syntax-e$1 s_631) s_631)))" -"(if(pair? s_632)" +"(let-values(((s_622)(if(syntax?$1 s_621)(syntax-e$1 s_621) s_621)))" +"(if(pair? s_622)" "(let-values(((with-continuation-mark329_0)" -"(let-values(((s_633)(car s_632))) s_633))" +"(let-values(((s_623)(car s_622))) s_623))" "((key330_0 val331_0 body332_0)" -"(let-values(((s_634)(cdr s_632)))" -"(let-values(((s_635)" -"(if(syntax?$1 s_634)" -"(syntax-e$1 s_634)" -" s_634)))" -"(if(pair? s_635)" +"(let-values(((s_624)(cdr s_622)))" +"(let-values(((s_625)" +"(if(syntax?$1 s_624)" +"(syntax-e$1 s_624)" +" s_624)))" +"(if(pair? s_625)" "(let-values(((key333_0)" -"(let-values(((s_636)(car s_635)))" -" s_636))" +"(let-values(((s_626)(car s_625)))" +" s_626))" "((val334_0 body335_0)" -"(let-values(((s_637)(cdr s_635)))" -"(let-values(((s_638)" -"(if(syntax?$1 s_637)" -"(syntax-e$1 s_637)" -" s_637)))" -"(if(pair? s_638)" +"(let-values(((s_627)(cdr s_625)))" +"(let-values(((s_628)" +"(if(syntax?$1 s_627)" +"(syntax-e$1 s_627)" +" s_627)))" +"(if(pair? s_628)" "(let-values(((val336_0)" -"(let-values(((s_639)" +"(let-values(((s_629)" "(car" -" s_638)))" -" s_639))" +" s_628)))" +" s_629))" "((body337_0)" -"(let-values(((s_640)" +"(let-values(((s_630)" "(cdr" -" s_638)))" -"(let-values(((s_641)" +" s_628)))" +"(let-values(((s_631)" "(if(syntax?$1" -" s_640)" +" s_630)" "(syntax-e$1" -" s_640)" -" s_640)))" -"(if(pair? s_641)" +" s_630)" +" s_630)))" +"(if(pair? s_631)" "(let-values(((body338_0)" -"(let-values(((s_642)" +"(let-values(((s_632)" "(car" -" s_641)))" -" s_642))" +" s_631)))" +" s_632))" "(()" -"(let-values(((s_643)" +"(let-values(((s_633)" "(cdr" -" s_641)))" -"(let-values(((s_644)" +" s_631)))" +"(let-values(((s_634)" "(if(syntax?$1" -" s_643)" +" s_633)" "(syntax-e$1" -" s_643)" -" s_643)))" +" s_633)" +" s_633)))" "(if(null?" -" s_644)" +" s_634)" "(values)" "(raise-syntax-error$1" " #f" @@ -67516,7 +67599,7 @@ static const char *startup_source = "(values #t with-continuation-mark325_1 key326_1 val327_1 body328_1))))))" "(let-values(((expr-ctx_3)(as-expression-context ctx_91)))" "(let-values(((rebuild-s_10)" -"(let-values(((ctx339_0) ctx_91)((s340_0) s_630))" +"(let-values(((ctx339_0) ctx_91)((s340_0) s_620))" "(keep-as-needed85.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))" @@ -67559,7 +67642,7 @@ static const char *startup_source = "(let-values(((list-start-index_0) list-start-index14_0))" "(let-values(((last-is-tail?_0) last-is-tail?15_0))" "(let-values()" -"(lambda(s_645 ctx_92)" +"(lambda(s_635 ctx_92)" "(let-values((()" "(begin" "(let-values(((obs_111)(expand-context-observer ctx_92)))" @@ -67567,24 +67650,24 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_111 log-tag_1)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_15)(syntax-disarm$1 s_645)))" +"(let-values(((disarmed-s_15)(syntax-disarm$1 s_635)))" "(let-values(((ok?_51 begin351_0 e352_0)" -"(let-values(((s_646) disarmed-s_15))" -"(let-values(((orig-s_57) s_646))" +"(let-values(((s_636) disarmed-s_15))" +"(let-values(((orig-s_57) s_636))" "(let-values(((begin351_1 e352_1)" -"(let-values(((s_647)" -"(if(syntax?$1 s_646)(syntax-e$1 s_646) s_646)))" -"(if(pair? s_647)" +"(let-values(((s_637)" +"(if(syntax?$1 s_636)(syntax-e$1 s_636) s_636)))" +"(if(pair? s_637)" "(let-values(((begin353_0)" -"(let-values(((s_648)(car s_647))) s_648))" +"(let-values(((s_638)(car s_637))) s_638))" "((e354_0)" -"(let-values(((s_649)(cdr s_647)))" -"(let-values(((s_650)" -"(if(syntax?$1 s_649)" -"(syntax-e$1 s_649)" -" s_649)))" +"(let-values(((s_639)(cdr s_637)))" +"(let-values(((s_640)" +"(if(syntax?$1 s_639)" +"(syntax-e$1 s_639)" +" s_639)))" "(let-values(((flat-s_43)" -"(to-syntax-list.1 s_650)))" +"(to-syntax-list.1 s_640)))" "(if(not flat-s_43)" "(let-values()" "(raise-syntax-error$1" @@ -67606,10 +67689,10 @@ static const char *startup_source = "(as-begin-expression-context ctx_92)" "(as-expression-context ctx_92))))" "(let-values(((rebuild-s_11)" -"(let-values(((ctx355_0) ctx_92)((s356_0) s_645))" +"(let-values(((ctx355_0) ctx_92)((s356_0) s_635))" "(keep-as-needed85.1 #f #f #f #f #f #f ctx355_0 s356_0))))" "(let-values(((exp-es_2)" -"((letrec-values(((loop_123)" +"((letrec-values(((loop_124)" "(lambda(es_5 index_6)" "(begin" " 'loop" @@ -67665,8 +67748,8 @@ static const char *startup_source = " #f" " temp357_0" " temp358_0))" -"(loop_123 rest-es_1(sub1 index_6))))))))))))" -" loop_123)" +"(loop_124 rest-es_1(sub1 index_6))))))))))))" +" loop_124)" " e352_0" " list-start-index_0)))" "(begin" @@ -67692,39 +67775,39 @@ 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_651 ctx_93)" +"(lambda(s_641 ctx_93)" "(let-values(((context_24)(expand-context-context ctx_93)))" -"(if(let-values(((or-part_388)(eq? context_24 'top-level)))" -"(if or-part_388 or-part_388(eq? context_24 'module)))" +"(if(let-values(((or-part_373)(eq? context_24 'top-level)))" +"(if or-part_373 or-part_373(eq? context_24 'module)))" "(let-values()" -"(let-values(((disarmed-s_16)(syntax-disarm$1 s_651)))" +"(let-values(((disarmed-s_16)(syntax-disarm$1 s_641)))" "(let-values(((ok?_52 begin367_0)" -"(let-values(((s_652) disarmed-s_16))" -"(if(let-values(((s_653)(if(syntax?$1 s_652)(syntax-e$1 s_652) s_652)))" -"(if(pair? s_653)" -"(if(let-values(((s_654)(car s_653))) #t)" -"(let-values(((s_655)(cdr s_653)))" -"(let-values(((s_656)(if(syntax?$1 s_655)(syntax-e$1 s_655) s_655)))" -"(null? s_656)))" +"(let-values(((s_642) disarmed-s_16))" +"(if(let-values(((s_643)(if(syntax?$1 s_642)(syntax-e$1 s_642) s_642)))" +"(if(pair? s_643)" +"(if(let-values(((s_644)(car s_643))) #t)" +"(let-values(((s_645)(cdr s_643)))" +"(let-values(((s_646)(if(syntax?$1 s_645)(syntax-e$1 s_645) s_645)))" +"(null? s_646)))" " #f)" " #f))" "(let-values()" "(let-values(((begin367_1)" -"(let-values(((s_657)(if(syntax?$1 s_652)(syntax-e$1 s_652) s_652)))" +"(let-values(((s_647)(if(syntax?$1 s_642)(syntax-e$1 s_642) s_642)))" "(let-values(((begin368_0)" -"(let-values(((s_658)(car s_657))) s_658))" +"(let-values(((s_648)(car s_647))) s_648))" "(()" -"(let-values(((s_659)(cdr s_657)))" -"(let-values(((s_660)" -"(if(syntax?$1 s_659)" -"(syntax-e$1 s_659)" -" s_659)))" +"(let-values(((s_649)(cdr s_647)))" +"(let-values(((s_650)" +"(if(syntax?$1 s_649)" +"(syntax-e$1 s_649)" +" s_649)))" "(values)))))" "(values begin368_0)))))" "(values #t begin367_1)))" "(values #f #f)))))" -"(if ok?_52 s_651(nonempty-begin_0 s_651 ctx_93)))))" -"(let-values()(nonempty-begin_0 s_651 ctx_93))))))))" +"(if ok?_52 s_641(nonempty-begin_0 s_641 ctx_93)))))" +"(let-values()(nonempty-begin_0 s_641 ctx_93))))))))" "(void" "(add-core-form!*" " 'begin0" @@ -67751,7 +67834,7 @@ static const char *startup_source = "(lambda(s375_0 ctx376_0 implicit-omitted?373_0 implicit-omitted?374_0)" "(begin" " 'core377" -"(let-values(((s_661) s375_0))" +"(let-values(((s_651) s375_0))" "(let-values(((ctx_95) ctx376_0))" "(let-values(((implicit-omitted?_0)(if implicit-omitted?374_0 implicit-omitted?373_0 #f)))" "(let-values()" @@ -67763,46 +67846,46 @@ static const char *startup_source = "(let-values()(call-expand-observe obs_115 'prim-#%top)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_17)(syntax-disarm$1 s_661)))" +"(let-values(((disarmed-s_17)(syntax-disarm$1 s_651)))" "(let-values(((id_129)" "(if implicit-omitted?_0" -"(let-values() s_661)" +"(let-values() s_651)" "(let-values()" "(let-values(((ok?_53 #%top379_0 id380_0)" -"(let-values(((s_662) disarmed-s_17))" -"(let-values(((orig-s_58) s_662))" +"(let-values(((s_652) disarmed-s_17))" +"(let-values(((orig-s_58) s_652))" "(let-values(((#%top379_1 id380_1)" -"(let-values(((s_663)" -"(if(syntax?$1 s_662)" -"(syntax-e$1 s_662)" -" s_662)))" -"(if(pair? s_663)" +"(let-values(((s_653)" +"(if(syntax?$1 s_652)" +"(syntax-e$1 s_652)" +" s_652)))" +"(if(pair? s_653)" "(let-values(((#%top381_0)" -"(let-values(((s_664)" +"(let-values(((s_654)" "(car" -" s_663)))" -" s_664))" +" s_653)))" +" s_654))" "((id382_0)" -"(let-values(((s_665)" +"(let-values(((s_655)" "(cdr" -" s_663)))" -"(if(let-values(((or-part_389)" +" s_653)))" +"(if(let-values(((or-part_374)" "(if(syntax?$1" -" s_665)" +" s_655)" "(symbol?" "(syntax-e$1" -" s_665))" +" s_655))" " #f)))" -"(if or-part_389" -" or-part_389" +"(if or-part_374" +" or-part_374" "(symbol?" -" s_665)))" -" s_665" +" s_655)))" +" s_655" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_58" -" s_665)))))" +" s_655)))))" "(values #%top381_0 id382_0))" "(raise-syntax-error$1" " #f" @@ -67838,7 +67921,7 @@ static const char *startup_source = "(if(expand-context-to-parsed? ctx_95)" "(parsed-id2.1 id_129 b_91 #f)" "(if(top-level-module-path-index?(module-binding-module b_91))" -"(let-values() s_661)" +"(let-values() s_651)" "(let-values() id_129))))" "(if(register-eventual-variable!? id_129 ctx_95)" "(let-values()" @@ -67883,42 +67966,42 @@ static const char *startup_source = "(let-values() id_129)" "(let-values()" "(let-values(((ok?_54 #%top388_0 id389_0)" -"(let-values(((s_666) disarmed-s_17))" -"(let-values(((orig-s_59) s_666))" +"(let-values(((s_656) disarmed-s_17))" +"(let-values(((orig-s_59) s_656))" "(let-values(((#%top388_1 id389_1)" -"(let-values(((s_667)" +"(let-values(((s_657)" "(if(syntax?$1" -" s_666)" +" s_656)" "(syntax-e$1" -" s_666)" -" s_666)))" -"(if(pair? s_667)" +" s_656)" +" s_656)))" +"(if(pair? s_657)" "(let-values(((#%top390_0)" -"(let-values(((s_668)" +"(let-values(((s_658)" "(car" -" s_667)))" -" s_668))" +" s_657)))" +" s_658))" "((id391_0)" -"(let-values(((s_669)" +"(let-values(((s_659)" "(cdr" -" s_667)))" -"(if(let-values(((or-part_390)" +" s_657)))" +"(if(let-values(((or-part_375)" "(if(syntax?$1" -" s_669)" +" s_659)" "(symbol?" "(syntax-e$1" -" s_669))" +" s_659))" " #f)))" -"(if or-part_390" -" or-part_390" +"(if or-part_375" +" or-part_375" "(symbol?" -" s_669)))" -" s_669" +" s_659)))" +" s_659" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_59" -" s_669)))))" +" s_659)))))" "(values" " #%top390_0" " id391_0))" @@ -67927,80 +68010,80 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_59)))))" "(values #t #%top388_1 id389_1))))))" -"(let-values(((s392_0) s_661)" +"(let-values(((s392_0) s_651)" "((temp393_0)(cons #%top388_0 id_129)))" "(rebuild5.1 #f #f s392_0 temp393_0)))))))" "(let-values()" "(if(expand-context-to-parsed? ctx_95)" "(parsed-top-id4.1 id_129 b_91 #f)" -" s_661)))))))))))))))))))))))" +" s_651)))))))))))))))))))))))" "(case-lambda" -"((s_670 ctx_96)(core377_0 s_670 ctx_96 #f #f))" -"((s_671 ctx_97 implicit-omitted?373_1)(core377_0 s_671 ctx_97 implicit-omitted?373_1 #t))))))" +"((s_660 ctx_96)(core377_0 s_660 ctx_96 #f #f))" +"((s_661 ctx_97 implicit-omitted?373_1)(core377_0 s_661 ctx_97 implicit-omitted?373_1 #t))))))" "(void" "(add-core-form!*" " 'set!" -"(lambda(s_672 ctx_98)" +"(lambda(s_662 ctx_98)" "(let-values((()" "(begin" "(let-values(((obs_116)(expand-context-observer ctx_98)))" "(if obs_116(let-values()(let-values()(call-expand-observe obs_116 'prim-set!)))(void)))" "(values))))" -"(let-values(((disarmed-s_18)(syntax-disarm$1 s_672)))" +"(let-values(((disarmed-s_18)(syntax-disarm$1 s_662)))" "(let-values(((ok?_55 set!394_0 id395_0 rhs396_0)" -"(let-values(((s_673) disarmed-s_18))" -"(let-values(((orig-s_60) s_673))" +"(let-values(((s_663) disarmed-s_18))" +"(let-values(((orig-s_60) s_663))" "(let-values(((set!394_1 id395_1 rhs396_1)" -"(let-values(((s_674)(if(syntax?$1 s_673)(syntax-e$1 s_673) s_673)))" -"(if(pair? s_674)" -"(let-values(((set!397_0)(let-values(((s_675)(car s_674))) s_675))" +"(let-values(((s_664)(if(syntax?$1 s_663)(syntax-e$1 s_663) s_663)))" +"(if(pair? s_664)" +"(let-values(((set!397_0)(let-values(((s_665)(car s_664))) s_665))" "((id398_0 rhs399_0)" -"(let-values(((s_676)(cdr s_674)))" -"(let-values(((s_677)" -"(if(syntax?$1 s_676)" -"(syntax-e$1 s_676)" -" s_676)))" -"(if(pair? s_677)" +"(let-values(((s_666)(cdr s_664)))" +"(let-values(((s_667)" +"(if(syntax?$1 s_666)" +"(syntax-e$1 s_666)" +" s_666)))" +"(if(pair? s_667)" "(let-values(((id400_0)" -"(let-values(((s_678)(car s_677)))" -"(if(let-values(((or-part_391)" -"(if(syntax?$1 s_678)" +"(let-values(((s_668)(car s_667)))" +"(if(let-values(((or-part_376)" +"(if(syntax?$1 s_668)" "(symbol?" "(syntax-e$1" -" s_678))" +" s_668))" " #f)))" -"(if or-part_391" -" or-part_391" -"(symbol? s_678)))" -" s_678" +"(if or-part_376" +" or-part_376" +"(symbol? s_668)))" +" s_668" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_60" -" s_678))))" +" s_668))))" "((rhs401_0)" -"(let-values(((s_679)(cdr s_677)))" -"(let-values(((s_680)" -"(if(syntax?$1 s_679)" -"(syntax-e$1 s_679)" -" s_679)))" -"(if(pair? s_680)" +"(let-values(((s_669)(cdr s_667)))" +"(let-values(((s_670)" +"(if(syntax?$1 s_669)" +"(syntax-e$1 s_669)" +" s_669)))" +"(if(pair? s_670)" "(let-values(((rhs402_0)" -"(let-values(((s_681)" +"(let-values(((s_671)" "(car" -" s_680)))" -" s_681))" +" s_670)))" +" s_671))" "(()" -"(let-values(((s_682)" +"(let-values(((s_672)" "(cdr" -" s_680)))" -"(let-values(((s_683)" +" s_670)))" +"(let-values(((s_673)" "(if(syntax?$1" -" s_682)" +" s_672)" "(syntax-e$1" -" s_682)" -" s_682)))" -"(if(null? s_683)" +" s_672)" +" s_672)))" +"(if(null? s_673)" "(values)" "(raise-syntax-error$1" " #f" @@ -68045,11 +68128,11 @@ static const char *startup_source = "(let-values()(raise-ambiguous-error id_130 ctx_98))" "(void))" "(values))))" -"(let-values(((t_58 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_98)" -"((s409_0) s_672))" +"((s409_0) s_662))" "(lookup28.1 #f #f #f #f binding407_0 ctx408_0 s409_0))" "(values #f #f #f #f))))" "(begin" @@ -68058,14 +68141,14 @@ static const char *startup_source = "(let-values()" "(let-values()(call-expand-observe obs_117 'resolve id_130)))" "(void)))" -"(if(let-values(((or-part_392)(variable? t_58)))" -"(if or-part_392" -" or-part_392" +"(if(let-values(((or-part_377)(variable? t_60)))" +"(if or-part_377" +" or-part_377" "(if(not binding_30)" -"(let-values(((or-part_393)" +"(let-values(((or-part_378)" "(register-eventual-variable!? id_130 ctx_98)))" -"(if or-part_393" -" or-part_393" +"(if or-part_378" +" or-part_378" "(expand-context-allow-unbound? ctx_98)))" " #f)))" "(let-values()" @@ -68081,7 +68164,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"cannot mutate module-required identifier\"" -" s_672" +" s_662" " id_130))" "(void))" "(values))))" @@ -68100,7 +68183,7 @@ static const char *startup_source = "(register-variable-referenced-if-local! binding_30)" "(values))))" "(let-values(((rebuild-s_12)" -"(let-values(((ctx410_0) ctx_98)((s411_0) s_672))" +"(let-values(((ctx410_0) ctx_98)((s411_0) s_662))" "(keep-as-needed85.1" " #f" " #f" @@ -68125,7 +68208,7 @@ static const char *startup_source = "(list" " set!394_0" "(let-values(((id416_0) id_130)" -"((t417_0) t_58)" +"((t417_0) t_60)" "((temp418_0)" "(free-id-set-empty-or-just-module*?" "(expand-context-stops" @@ -68141,33 +68224,33 @@ static const char *startup_source = "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_672" +" s_662" " id_130" " null" "(syntax-debug-info-string id_130 ctx_98)))" -"(if(1/set!-transformer? t_58)" +"(if(1/set!-transformer? t_60)" "(let-values()" -"(if(not-in-this-expand-context? t_58 ctx_98)" +"(if(not-in-this-expand-context? t_60 ctx_98)" "(let-values()" "(let-values(((temp419_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_672" +" s_662" " disarmed-s_18" " set!394_0" " rhs396_0" " id_130" " from-rename?_0" " ctx_98)" -" t_58" +" t_60" " ctx_98))" "((ctx420_0) ctx_98))" "(expand7.1 #f #f #f #f temp419_0 ctx420_0)))" "(let-values()" "(let-values(((exp-s_14 re-ctx_1)" -"(let-values(((t421_0) t_58)" +"(let-values(((t421_0) t_60)" "((insp422_0) insp_24)" -"((s423_0) s_672)" +"((s423_0) s_662)" "((orig-id424_0) orig-id_1)" "((ctx425_0) ctx_98)" "((binding426_0) binding_30)" @@ -68187,29 +68270,29 @@ static const char *startup_source = "(let-values(((exp-s428_0) exp-s_14)" "((re-ctx429_0) re-ctx_1))" "(expand7.1 #f #f #f #f exp-s428_0 re-ctx429_0))))))))" -"(if(1/rename-transformer? t_58)" +"(if(1/rename-transformer? t_60)" "(let-values()" -"(if(not-in-this-expand-context? t_58 ctx_98)" +"(if(not-in-this-expand-context? t_60 ctx_98)" "(let-values()" "(let-values(((temp430_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_672" +" s_662" " disarmed-s_18" " set!394_0" " rhs396_0" " id_130" " from-rename?_0" " ctx_98" -" t_58)" -" t_58" +" t_60)" +" t_60" " ctx_98))" "((ctx431_0) ctx_98))" "(expand7.1 #f #f #f #f temp430_0 ctx431_0)))" "(let-values()" "(rename-loop_0" "(syntax-track-origin$1" -"(rename-transformer-target-in-context t_58 ctx_98)" +"(rename-transformer-target-in-context t_60 ctx_98)" " id_130" " id_130)" " #t))))" @@ -68217,7 +68300,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"cannot mutate syntax identifier\"" -" s_672" +" s_662" " id_130))))))))))))))" " rename-loop_0)" " orig-id_1" @@ -68228,21 +68311,21 @@ static const char *startup_source = "(lambda(s25_0 disarmed-s26_0 set!-id27_0 id28_0 rhs-s29_0 from-rename?30_0 ctx31_0 t23_0 t24_0)" "(begin" " 'substitute-set!-rename32" -"(let-values(((s_684) s25_0))" +"(let-values(((s_674) s25_0))" "(let-values(((disarmed-s_19) disarmed-s26_0))" "(let-values(((set!-id_0) set!-id27_0))" "(let-values(((id_131) id28_0))" "(let-values(((rhs-s_0) rhs-s29_0))" "(let-values(((from-rename?_1) from-rename?30_0))" "(let-values(((ctx_99) ctx31_0))" -"(let-values(((t_59)(if t24_0 t23_0 #f)))" +"(let-values(((t_61)(if t24_0 t23_0 #f)))" "(let-values()" -"(if(let-values(((or-part_394) t_59))" -"(if or-part_394 or-part_394 from-rename?_1))" +"(if(let-values(((or-part_379) t_61))" +"(if or-part_379 or-part_379 from-rename?_1))" "(let-values()" "(let-values(((new-id_1)" -"(if t_59" -"(rename-transformer-target-in-context t_59 ctx_99)" +"(if t_61" +"(rename-transformer-target-in-context t_61 ctx_99)" " id_131)))" "(syntax-rearm$1" "(datum->syntax$1" @@ -68250,17 +68333,17 @@ static const char *startup_source = "(list set!-id_0 new-id_1 rhs-s_0)" " disarmed-s_19" " disarmed-s_19)" -" s_684)))" -"(let-values() s_684)))))))))))))))" +" s_674)))" +"(let-values() s_674)))))))))))))))" "(case-lambda" -"((s_685 disarmed-s_20 set!-id_1 id_132 rhs-s_1 from-rename?_2 ctx_100)" -"(begin(substitute-set!-rename32_0 s_685 disarmed-s_20 set!-id_1 id_132 rhs-s_1 from-rename?_2 ctx_100 #f #f)))" -"((s_686 disarmed-s_21 set!-id_2 id_133 rhs-s_2 from-rename?_3 ctx_101 t23_1)" -"(substitute-set!-rename32_0 s_686 disarmed-s_21 set!-id_2 id_133 rhs-s_2 from-rename?_3 ctx_101 t23_1 #t)))))" +"((s_675 disarmed-s_20 set!-id_1 id_132 rhs-s_1 from-rename?_2 ctx_100)" +"(begin(substitute-set!-rename32_0 s_675 disarmed-s_20 set!-id_1 id_132 rhs-s_1 from-rename?_2 ctx_100 #f #f)))" +"((s_676 disarmed-s_21 set!-id_2 id_133 rhs-s_2 from-rename?_3 ctx_101 t23_1)" +"(substitute-set!-rename32_0 s_676 disarmed-s_21 set!-id_2 id_133 rhs-s_2 from-rename?_3 ctx_101 t23_1 #t)))))" "(void" "(add-core-form!*" " '#%variable-reference" -"(lambda(s_687 ctx_102)" +"(lambda(s_677 ctx_102)" "(let-values((()" "(begin" "(let-values(((obs_119)(expand-context-observer ctx_102)))" @@ -68268,75 +68351,75 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_119 'prim-#%variable-reference)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_22)(syntax-disarm$1 s_687)))" +"(let-values(((disarmed-s_22)(syntax-disarm$1 s_677)))" "(let-values(((ok?_56 #%variable-reference432_0 id433_0)" -"(let-values(((s_688) disarmed-s_22))" -"(if(let-values(((s_689)(if(syntax?$1 s_688)(syntax-e$1 s_688) s_688)))" -"(if(pair? s_689)" -"(if(let-values(((s_690)(car s_689))) #t)" -"(let-values(((s_691)(cdr s_689)))" -"(let-values(((s_692)(if(syntax?$1 s_691)(syntax-e$1 s_691) s_691)))" -"(if(pair? s_692)" -"(if(let-values(((s_693)(car s_692)))" -"(let-values(((or-part_395)" -"(if(syntax?$1 s_693)(symbol?(syntax-e$1 s_693)) #f)))" -"(if or-part_395 or-part_395(symbol? s_693))))" -"(let-values(((s_694)(cdr s_692)))" -"(let-values(((s_695)(if(syntax?$1 s_694)(syntax-e$1 s_694) s_694)))" -"(null? s_695)))" +"(let-values(((s_678) disarmed-s_22))" +"(if(let-values(((s_679)(if(syntax?$1 s_678)(syntax-e$1 s_678) s_678)))" +"(if(pair? s_679)" +"(if(let-values(((s_680)(car s_679))) #t)" +"(let-values(((s_681)(cdr s_679)))" +"(let-values(((s_682)(if(syntax?$1 s_681)(syntax-e$1 s_681) s_681)))" +"(if(pair? s_682)" +"(if(let-values(((s_683)(car s_682)))" +"(let-values(((or-part_380)" +"(if(syntax?$1 s_683)(symbol?(syntax-e$1 s_683)) #f)))" +"(if or-part_380 or-part_380(symbol? s_683))))" +"(let-values(((s_684)(cdr s_682)))" +"(let-values(((s_685)(if(syntax?$1 s_684)(syntax-e$1 s_684) s_684)))" +"(null? s_685)))" " #f)" " #f)))" " #f)" " #f))" "(let-values()" "(let-values(((#%variable-reference432_1 id433_1)" -"(let-values(((s_696)(if(syntax?$1 s_688)(syntax-e$1 s_688) s_688)))" +"(let-values(((s_686)(if(syntax?$1 s_678)(syntax-e$1 s_678) s_678)))" "(let-values(((#%variable-reference434_0)" -"(let-values(((s_697)(car s_696))) s_697))" +"(let-values(((s_687)(car s_686))) s_687))" "((id435_0)" -"(let-values(((s_698)(cdr s_696)))" -"(let-values(((s_699)" -"(if(syntax?$1 s_698)" -"(syntax-e$1 s_698)" -" s_698)))" +"(let-values(((s_688)(cdr s_686)))" +"(let-values(((s_689)" +"(if(syntax?$1 s_688)" +"(syntax-e$1 s_688)" +" s_688)))" "(let-values(((id436_0)" -"(let-values(((s_700)(car s_699))) s_700))" +"(let-values(((s_690)(car s_689))) s_690))" "(()" -"(let-values(((s_701)(cdr s_699)))" -"(let-values(((s_702)" -"(if(syntax?$1 s_701)" -"(syntax-e$1 s_701)" -" s_701)))" +"(let-values(((s_691)(cdr s_689)))" +"(let-values(((s_692)" +"(if(syntax?$1 s_691)" +"(syntax-e$1 s_691)" +" s_691)))" "(values)))))" "(values id436_0))))))" "(values #%variable-reference434_0 id435_0)))))" "(values #t #%variable-reference432_1 id433_1)))" "(values #f #f #f)))))" "(let-values(((ok?_57 #%variable-reference437_0 #%top438_0 id439_0)" -"(let-values(((s_703) disarmed-s_22))" +"(let-values(((s_693) disarmed-s_22))" "(if(if(not ok?_56)" -"(let-values(((s_704)(if(syntax?$1 s_703)(syntax-e$1 s_703) s_703)))" -"(if(pair? s_704)" -"(if(let-values(((s_705)(car s_704))) #t)" -"(let-values(((s_706)(cdr s_704)))" -"(let-values(((s_707)(if(syntax?$1 s_706)(syntax-e$1 s_706) s_706)))" -"(if(pair? s_707)" -"(if(let-values(((s_708)(car s_707)))" -"(let-values(((s_709)" -"(if(syntax?$1 s_708)(syntax-e$1 s_708) s_708)))" -"(if(pair? s_709)" -"(if(let-values(((s_710)(car s_709))) #t)" -"(let-values(((s_711)(cdr s_709)))" -"(let-values(((or-part_396)" -"(if(syntax?$1 s_711)" -"(symbol?(syntax-e$1 s_711))" +"(let-values(((s_694)(if(syntax?$1 s_693)(syntax-e$1 s_693) s_693)))" +"(if(pair? s_694)" +"(if(let-values(((s_695)(car s_694))) #t)" +"(let-values(((s_696)(cdr s_694)))" +"(let-values(((s_697)(if(syntax?$1 s_696)(syntax-e$1 s_696) s_696)))" +"(if(pair? s_697)" +"(if(let-values(((s_698)(car s_697)))" +"(let-values(((s_699)" +"(if(syntax?$1 s_698)(syntax-e$1 s_698) s_698)))" +"(if(pair? s_699)" +"(if(let-values(((s_700)(car s_699))) #t)" +"(let-values(((s_701)(cdr s_699)))" +"(let-values(((or-part_381)" +"(if(syntax?$1 s_701)" +"(symbol?(syntax-e$1 s_701))" " #f)))" -"(if or-part_396 or-part_396(symbol? s_711))))" +"(if or-part_381 or-part_381(symbol? s_701))))" " #f)" " #f)))" -"(let-values(((s_712)(cdr s_707)))" -"(let-values(((s_713)(if(syntax?$1 s_712)(syntax-e$1 s_712) s_712)))" -"(null? s_713)))" +"(let-values(((s_702)(cdr s_697)))" +"(let-values(((s_703)(if(syntax?$1 s_702)(syntax-e$1 s_702) s_702)))" +"(null? s_703)))" " #f)" " #f)))" " #f)" @@ -68344,61 +68427,61 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values(((#%variable-reference437_1 #%top438_1 id439_1)" -"(let-values(((s_714)(if(syntax?$1 s_703)(syntax-e$1 s_703) s_703)))" +"(let-values(((s_704)(if(syntax?$1 s_693)(syntax-e$1 s_693) s_693)))" "(let-values(((#%variable-reference440_0)" -"(let-values(((s_715)(car s_714))) s_715))" +"(let-values(((s_705)(car s_704))) s_705))" "((#%top441_0 id442_0)" -"(let-values(((s_716)(cdr s_714)))" -"(let-values(((s_717)" -"(if(syntax?$1 s_716)" -"(syntax-e$1 s_716)" -" s_716)))" +"(let-values(((s_706)(cdr s_704)))" +"(let-values(((s_707)" +"(if(syntax?$1 s_706)" +"(syntax-e$1 s_706)" +" s_706)))" "(let-values(((#%top443_0 id444_0)" -"(let-values(((s_718)(car s_717)))" -"(let-values(((s_719)" -"(if(syntax?$1 s_718)" -"(syntax-e$1 s_718)" -" s_718)))" +"(let-values(((s_708)(car s_707)))" +"(let-values(((s_709)" +"(if(syntax?$1 s_708)" +"(syntax-e$1 s_708)" +" s_708)))" "(let-values(((#%top445_0)" -"(let-values(((s_720)" +"(let-values(((s_710)" "(car" -" s_719)))" -" s_720))" +" s_709)))" +" s_710))" "((id446_0)" -"(let-values(((s_721)" +"(let-values(((s_711)" "(cdr" -" s_719)))" -" s_721)))" +" s_709)))" +" s_711)))" "(values #%top445_0 id446_0)))))" "(()" -"(let-values(((s_722)(cdr s_717)))" -"(let-values(((s_723)" -"(if(syntax?$1 s_722)" -"(syntax-e$1 s_722)" -" s_722)))" +"(let-values(((s_712)(cdr s_707)))" +"(let-values(((s_713)" +"(if(syntax?$1 s_712)" +"(syntax-e$1 s_712)" +" s_712)))" "(values)))))" "(values #%top443_0 id444_0))))))" "(values #%variable-reference440_0 #%top441_0 id442_0)))))" "(values #t #%variable-reference437_1 #%top438_1 id439_1)))" "(values #f #f #f #f)))))" "(let-values(((ok?_58 #%variable-reference447_0)" -"(let-values(((s_724) disarmed-s_22))" -"(if(if(not(let-values(((or-part_397) ok?_56))(if or-part_397 or-part_397 ok?_57)))" +"(let-values(((s_714) disarmed-s_22))" +"(if(if(not(let-values(((or-part_382) ok?_56))(if or-part_382 or-part_382 ok?_57)))" " #t" " #f)" -"(let-values(((orig-s_61) s_724))" +"(let-values(((orig-s_61) s_714))" "(let-values(((#%variable-reference447_1)" -"(let-values(((s_725)(if(syntax?$1 s_724)(syntax-e$1 s_724) s_724)))" -"(if(pair? s_725)" +"(let-values(((s_715)(if(syntax?$1 s_714)(syntax-e$1 s_714) s_714)))" +"(if(pair? s_715)" "(let-values(((#%variable-reference448_0)" -"(let-values(((s_726)(car s_725))) s_726))" +"(let-values(((s_716)(car s_715))) s_716))" "(()" -"(let-values(((s_727)(cdr s_725)))" -"(let-values(((s_728)" -"(if(syntax?$1 s_727)" -"(syntax-e$1 s_727)" -" s_727)))" -"(if(null? s_728)" +"(let-values(((s_717)(cdr s_715)))" +"(let-values(((s_718)" +"(if(syntax?$1 s_717)" +"(syntax-e$1 s_717)" +" s_717)))" +"(if(null? s_718)" "(values)" "(raise-syntax-error$1" " #f" @@ -68408,7 +68491,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_61)))))" "(values #t #%variable-reference447_1)))" "(values #f #f)))))" -"(if(let-values(((or-part_398) ok?_56))(if or-part_398 or-part_398 ok?_57))" +"(if(let-values(((or-part_383) ok?_56))(if or-part_383 or-part_383 ok?_57))" "(let-values()" "(let-values(((var-id_0)(if ok?_56 id433_0 id439_0)))" "(let-values(((binding_31)" @@ -68424,47 +68507,47 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_399) binding_31))" -"(if or-part_399 or-part_399(expand-context-allow-unbound? ctx_102)))" +"(if(let-values(((or-part_384) binding_31))" +"(if or-part_384 or-part_384(expand-context-allow-unbound? ctx_102)))" "(void)" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_687" +" s_677" " var-id_0" " null" "(syntax-debug-info-string var-id_0 ctx_102))))" "(values))))" -"(let-values(((t_60 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_102)" "((var-id454_0) var-id_0)" -"((s455_0) s_687)" +"((s455_0) s_677)" "((temp456_0)(expand-context-in-local-expand? ctx_102)))" "(lookup28.1 s455_0 #t temp456_0 #t binding452_0 ctx453_0 var-id454_0))" "(values #f #f #f #f))))" "(begin" -"(if(if t_60(not(variable? t_60)) #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_687))" +" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_677))" "(void))" "(if(expand-context-to-parsed? ctx_102)" "(parsed-#%variable-reference11.1" -"(keep-properties-only~ s_687)" +"(keep-properties-only~ s_677)" "(if ok?_57" "(let-values()(parsed-top-id4.1 var-id_0 binding_31 #f))" "(let-values()(parsed-id2.1 var-id_0 binding_31 #f))))" -" s_687))))))))" +" s_677))))))))" "(let-values()" "(if(expand-context-to-parsed? ctx_102)" -"(parsed-#%variable-reference11.1(keep-properties-only~ s_687) #f)" -" s_687)))))))))))" +"(parsed-#%variable-reference11.1(keep-properties-only~ s_677) #f)" +" s_677)))))))))))" "(void" "(add-core-form!*" " '#%expression" -"(lambda(s_729 ctx_103)" +"(lambda(s_719 ctx_103)" "(let-values((()" "(begin" "(let-values(((obs_120)(expand-context-observer ctx_103)))" @@ -68472,32 +68555,32 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_120 'prim-#%expression)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_23)(syntax-disarm$1 s_729)))" +"(let-values(((disarmed-s_23)(syntax-disarm$1 s_719)))" "(let-values(((ok?_59 #%expression457_0 e458_0)" -"(let-values(((s_730) disarmed-s_23))" -"(let-values(((orig-s_62) s_730))" +"(let-values(((s_720) disarmed-s_23))" +"(let-values(((orig-s_62) s_720))" "(let-values(((#%expression457_1 e458_1)" -"(let-values(((s_731)(if(syntax?$1 s_730)(syntax-e$1 s_730) s_730)))" -"(if(pair? s_731)" +"(let-values(((s_721)(if(syntax?$1 s_720)(syntax-e$1 s_720) s_720)))" +"(if(pair? s_721)" "(let-values(((#%expression459_0)" -"(let-values(((s_732)(car s_731))) s_732))" +"(let-values(((s_722)(car s_721))) s_722))" "((e460_0)" -"(let-values(((s_733)(cdr s_731)))" -"(let-values(((s_734)" -"(if(syntax?$1 s_733)" -"(syntax-e$1 s_733)" -" s_733)))" -"(if(pair? s_734)" +"(let-values(((s_723)(cdr s_721)))" +"(let-values(((s_724)" +"(if(syntax?$1 s_723)" +"(syntax-e$1 s_723)" +" s_723)))" +"(if(pair? s_724)" "(let-values(((e461_0)" -"(let-values(((s_735)(car s_734)))" -" s_735))" +"(let-values(((s_725)(car s_724)))" +" s_725))" "(()" -"(let-values(((s_736)(cdr s_734)))" -"(let-values(((s_737)" -"(if(syntax?$1 s_736)" -"(syntax-e$1 s_736)" -" s_736)))" -"(if(null? s_737)" +"(let-values(((s_726)(cdr s_724)))" +"(let-values(((s_727)" +"(if(syntax?$1 s_726)" +"(syntax-e$1 s_726)" +" s_726)))" +"(if(null? s_727)" "(values)" "(raise-syntax-error$1" " #f" @@ -68509,7 +68592,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_62)))))" "(values #t #%expression457_1 e458_1))))))" "(let-values(((rebuild-s_13)" -"(let-values(((ctx462_0) ctx_103)((s463_0) s_729)((temp464_0) #t))" +"(let-values(((ctx462_0) ctx_103)((s463_0) s_719)((temp464_0) #t))" "(keep-as-needed85.1 temp464_0 #t #f #f #f #f ctx462_0 s463_0))))" "(let-values(((exp-e_0)" "(let-values(((temp465_0) e458_0)" @@ -68520,11 +68603,11 @@ static const char *startup_source = "(expand7.1 #f #f #f #f temp465_0 temp466_0))))" "(if(expand-context-to-parsed? ctx_103)" " exp-e_0" -"(let-values(((tmp_64)" +"(let-values(((tmp_65)" "(if(not(expand-context-in-local-expand? ctx_103))" "(expand-context-context ctx_103)" " #f)))" -"(if(equal? tmp_64 'expression)" +"(if(equal? tmp_65 'expression)" "(let-values()" "(let-values(((result-s_13)(syntax-track-origin$1 exp-e_0 rebuild-s_13)))" "(begin" @@ -68536,8 +68619,8 @@ static const char *startup_source = "(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))))))))))))))" -" (void (add-core-form!* 'unquote (lambda (s_738 ctx_104) (raise-syntax-error$1 #f \"not in quasiquote\" s_738))))" -" (void (add-core-form!* 'unquote-splicing (lambda (s_739 ctx_105) (raise-syntax-error$1 #f \"not in quasiquote\" s_739))))" +" (void (add-core-form!* 'unquote (lambda (s_728 ctx_104) (raise-syntax-error$1 #f \"not in quasiquote\" s_728))))" +" (void (add-core-form!* 'unquote-splicing (lambda (s_729 ctx_105) (raise-syntax-error$1 #f \"not in quasiquote\" s_729))))" "(define-values" "(binding-for-transformer?)" "(lambda(b_41 id_134 at-phase_12 ns_123)" @@ -68569,31 +68652,31 @@ static const char *startup_source = "(lambda(specs_0 orig-s_63 rp_1 self_30 phase_44 ctx_106)" "(begin" "(let-values(((ns_125)(expand-context-namespace ctx_106)))" -"((letrec-values(((loop_112)" +"((letrec-values(((loop_113)" "(lambda(specs_1 at-phase_13 protected?_15 layer_6)" "(begin" " 'loop" "(let-values(((track-stxess_0 exp-specss_0)" "(let-values(((track-stxes_0 exp-specs_0)" -"(let-values(((lst_78) specs_1))" +"(let-values(((lst_79) specs_1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_78)))" -"((letrec-values(((for-loop_96)" +"(let-values()(check-list lst_79)))" +"((letrec-values(((for-loop_95)" "(lambda(track-stxes_1" " exp-specs_1" -" lst_408)" +" lst_411)" "(begin" " 'for-loop" -"(if(pair? lst_408)" +"(if(pair? lst_411)" "(let-values(((spec_0)" "(unsafe-car" -" lst_408))" +" lst_411))" "((rest_235)" "(unsafe-cdr" -" lst_408)))" +" lst_411)))" "(let-values(((track-stxes_2" " exp-specs_2)" "(let-values(((track-stxes_3)" @@ -68641,11 +68724,11 @@ static const char *startup_source = " fm_2)" " orig-s_63" " spec_0)))))))" -"(let-values(((tmp_65)" +"(let-values(((tmp_66)" " fm_2))" "(let-values(((index_7)" "(if(symbol?" -" tmp_65)" +" tmp_66)" "(hash-ref" " '#hasheq((all-defined" " ." @@ -68685,7 +68768,7 @@ static const char *startup_source = "(struct" " ." " 6))" -" tmp_65" +" tmp_66" "(lambda()" " 0))" " 0)))" @@ -68732,57 +68815,57 @@ static const char *startup_source = " for-meta3_0" " phase-level4_0" " spec5_0)" -"(let-values(((s_304)" +"(let-values(((s_300)" " disarmed-spec_0))" "(let-values(((orig-s_64)" -" s_304))" +" s_300))" "(let-values(((for-meta3_1" " phase-level4_1" " spec5_1)" -"(let-values(((s_305)" +"(let-values(((s_301)" "(if(syntax?$1" -" s_304)" +" s_300)" "(syntax-e$1" -" s_304)" -" s_304)))" +" s_300)" +" s_300)))" "(if(pair?" -" s_305)" +" s_301)" "(let-values(((for-meta6_0)" -"(let-values(((s_179)" +"(let-values(((s_418)" "(car" -" s_305)))" -" s_179))" +" s_301)))" +" s_418))" "((phase-level7_0" " spec8_0)" -"(let-values(((s_80)" +"(let-values(((s_78)" "(cdr" -" s_305)))" -"(let-values(((s_740)" +" s_301)))" +"(let-values(((s_730)" "(if(syntax?$1" -" s_80)" +" s_78)" "(syntax-e$1" -" s_80)" -" s_80)))" +" s_78)" +" s_78)))" "(if(pair?" -" s_740)" +" s_730)" "(let-values(((phase-level9_0)" -"(let-values(((s_181)" +"(let-values(((s_731)" "(car" -" s_740)))" -" s_181))" +" s_730)))" +" s_731))" "((spec10_0)" -"(let-values(((s_459)" +"(let-values(((s_450)" "(cdr" -" s_740)))" -"(let-values(((s_465)" +" s_730)))" +"(let-values(((s_455)" "(if(syntax?$1" -" s_459)" +" s_450)" "(syntax-e$1" -" s_459)" -" s_459)))" +" s_450)" +" s_450)))" "(let-values(((flat-s_44)" "(to-syntax-list.1" -" s_465)))" +" s_455)))" "(if(not" " flat-s_44)" "(let-values()" @@ -68812,13 +68895,13 @@ static const char *startup_source = " for-meta3_1" " phase-level4_1" " spec5_1))))))" -"(let-values(((p_73)" +"(let-values(((p_75)" "(syntax-e$1" " phase-level4_0)))" "(let-values((()" "(begin" "(if(phase?" -" p_73)" +" p_75)" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -68829,10 +68912,10 @@ static const char *startup_source = "(values))))" "(let-values(((track-stxes_5" " exp-specs_5)" -"(loop_112" +"(loop_113" " spec5_0" "(phase+" -" p_73" +" p_75" " at-phase_13)" " protected?_15" " 'phaseless)))" @@ -68880,15 +68963,15 @@ static const char *startup_source = "(if(pair?" " s_23)" "(let-values(((for-syntax15_0)" -"(let-values(((s_149)" +"(let-values(((s_148)" "(car" " s_23)))" -" s_149))" +" s_148))" "((spec16_0)" "(let-values(((s_25)" "(cdr" " s_23)))" -"(let-values(((s_741)" +"(let-values(((s_732)" "(if(syntax?$1" " s_25)" "(syntax-e$1" @@ -68896,7 +68979,7 @@ static const char *startup_source = " s_25)))" "(let-values(((flat-s_45)" "(to-syntax-list.1" -" s_741)))" +" s_732)))" "(if(not" " flat-s_45)" "(let-values()" @@ -68919,7 +69002,7 @@ static const char *startup_source = " spec14_1))))))" "(let-values(((track-stxes_6" " exp-specs_6)" -"(loop_112" +"(loop_113" " spec14_0" "(phase+" " 1" @@ -68954,38 +69037,38 @@ static const char *startup_source = "(let-values(((ok?_62" " for-label19_0" " spec20_0)" -"(let-values(((s_44)" +"(let-values(((s_45)" " disarmed-spec_0))" "(let-values(((orig-s_66)" -" s_44))" +" s_45))" "(let-values(((for-label19_1" " spec20_1)" -"(let-values(((s_477)" -"(if(syntax?$1" -" s_44)" -"(syntax-e$1" -" s_44)" -" s_44)))" -"(if(pair?" -" s_477)" -"(let-values(((for-label21_0)" -"(let-values(((s_474)" -"(car" -" s_477)))" -" s_474))" -"((spec22_0)" -"(let-values(((s_45)" -"(cdr" -" s_477)))" -"(let-values(((s_306)" +"(let-values(((s_467)" "(if(syntax?$1" " s_45)" "(syntax-e$1" " s_45)" " s_45)))" +"(if(pair?" +" s_467)" +"(let-values(((for-label21_0)" +"(let-values(((s_464)" +"(car" +" s_467)))" +" s_464))" +"((spec22_0)" +"(let-values(((s_46)" +"(cdr" +" s_467)))" +"(let-values(((s_302)" +"(if(syntax?$1" +" s_46)" +"(syntax-e$1" +" s_46)" +" s_46)))" "(let-values(((flat-s_46)" "(to-syntax-list.1" -" s_306)))" +" s_302)))" "(if(not" " flat-s_46)" "(let-values()" @@ -69008,7 +69091,7 @@ static const char *startup_source = " spec20_1))))))" "(let-values(((track-stxes_7" " exp-specs_7)" -"(loop_112" +"(loop_113" " spec20_0" " #f" " protected?_15" @@ -69052,38 +69135,38 @@ static const char *startup_source = "(let-values(((ok?_63" " protect25_0" " p-spec26_0)" -"(let-values(((s_742)" +"(let-values(((s_733)" " disarmed-spec_0))" "(let-values(((orig-s_67)" -" s_742))" +" s_733))" "(let-values(((protect25_1" " p-spec26_1)" "(let-values(((s_31)" "(if(syntax?$1" -" s_742)" +" s_733)" "(syntax-e$1" -" s_742)" -" s_742)))" +" s_733)" +" s_733)))" "(if(pair?" " s_31)" "(let-values(((protect27_0)" -"(let-values(((s_88)" +"(let-values(((s_87)" "(car" " s_31)))" -" s_88))" +" s_87))" "((p-spec28_0)" -"(let-values(((s_308)" +"(let-values(((s_304)" "(cdr" " s_31)))" -"(let-values(((s_480)" +"(let-values(((s_470)" "(if(syntax?$1" -" s_308)" +" s_304)" "(syntax-e$1" -" s_308)" -" s_308)))" +" s_304)" +" s_304)))" "(let-values(((flat-s_47)" "(to-syntax-list.1" -" s_480)))" +" s_470)))" "(if(not" " flat-s_47)" "(let-values()" @@ -69106,7 +69189,7 @@ static const char *startup_source = " p-spec26_1))))))" "(let-values(((track-stxes_8" " exp-specs_8)" -"(loop_112" +"(loop_113" " p-spec26_0" " at-phase_13" " #t" @@ -69137,52 +69220,52 @@ static const char *startup_source = " rename31_0" " id:from32_0" " id:to33_0)" -"(let-values(((s_743)" +"(let-values(((s_734)" " disarmed-spec_0))" "(let-values(((orig-s_68)" -" s_743))" +" s_734))" "(let-values(((rename31_1" " id:from32_1" " id:to33_1)" -"(let-values(((s_483)" +"(let-values(((s_472)" "(if(syntax?$1" -" s_743)" +" s_734)" "(syntax-e$1" -" s_743)" -" s_743)))" +" s_734)" +" s_734)))" "(if(pair?" -" s_483)" +" s_472)" "(let-values(((rename34_0)" -"(let-values(((s_314)" +"(let-values(((s_309)" "(car" -" s_483)))" -" s_314))" +" s_472)))" +" s_309))" "((id:from35_0" " id:to36_0)" -"(let-values(((s_744)" +"(let-values(((s_735)" "(cdr" -" s_483)))" -"(let-values(((s_315)" +" s_472)))" +"(let-values(((s_310)" "(if(syntax?$1" -" s_744)" +" s_735)" "(syntax-e$1" -" s_744)" -" s_744)))" +" s_735)" +" s_735)))" "(if(pair?" -" s_315)" +" s_310)" "(let-values(((id:from37_0)" "(let-values(((s_33)" "(car" -" s_315)))" -"(if(let-values(((or-part_216)" +" s_310)))" +"(if(let-values(((or-part_202)" "(if(syntax?$1" " s_33)" "(symbol?" "(syntax-e$1" " s_33))" " #f)))" -"(if or-part_216" -" or-part_216" +"(if or-part_202" +" or-part_202" "(symbol?" " s_33)))" " s_33" @@ -69192,50 +69275,50 @@ static const char *startup_source = " orig-s_68" " s_33))))" "((id:to38_0)" -"(let-values(((s_397)" +"(let-values(((s_388)" "(cdr" -" s_315)))" -"(let-values(((s_745)" +" s_310)))" +"(let-values(((s_736)" "(if(syntax?$1" -" s_397)" +" s_388)" "(syntax-e$1" -" s_397)" -" s_397)))" +" s_388)" +" s_388)))" "(if(pair?" -" s_745)" +" s_736)" "(let-values(((id:to39_0)" -"(let-values(((s_430)" +"(let-values(((s_423)" "(car" -" s_745)))" +" s_736)))" "(if(let-values(((or-part_57)" "(if(syntax?$1" -" s_430)" +" s_423)" "(symbol?" "(syntax-e$1" -" s_430))" +" s_423))" " #f)))" "(if or-part_57" " or-part_57" "(symbol?" -" s_430)))" -" s_430" +" s_423)))" +" s_423" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_68" -" s_430))))" +" s_423))))" "(()" -"(let-values(((s_746)" +"(let-values(((s_737)" "(cdr" -" s_745)))" -"(let-values(((s_384)" +" s_736)))" +"(let-values(((s_57)" "(if(syntax?$1" -" s_746)" +" s_737)" "(syntax-e$1" -" s_746)" -" s_746)))" +" s_737)" +" s_737)))" "(if(null?" -" s_384)" +" s_57)" "(values)" "(raise-syntax-error$1" " #f" @@ -69297,77 +69380,77 @@ static const char *startup_source = " struct40_0" " id:struct41_0" " id:field42_0)" -"(let-values(((s_499)" +"(let-values(((s_489)" " disarmed-spec_0))" "(let-values(((orig-s_69)" -" s_499))" +" s_489))" "(let-values(((struct40_1" " id:struct41_1" " id:field42_1)" -"(let-values(((s_500)" +"(let-values(((s_490)" "(if(syntax?$1" -" s_499)" +" s_489)" "(syntax-e$1" -" s_499)" -" s_499)))" +" s_489)" +" s_489)))" "(if(pair?" -" s_500)" +" s_490)" "(let-values(((struct43_0)" -"(let-values(((s_202)" +"(let-values(((s_197)" "(car" -" s_500)))" -" s_202))" +" s_490)))" +" s_197))" "((id:struct44_0" " id:field45_0)" -"(let-values(((s_747)" +"(let-values(((s_738)" "(cdr" -" s_500)))" -"(let-values(((s_748)" +" s_490)))" +"(let-values(((s_739)" "(if(syntax?$1" -" s_747)" +" s_738)" "(syntax-e$1" -" s_747)" -" s_747)))" +" s_738)" +" s_738)))" "(if(pair?" -" s_748)" +" s_739)" "(let-values(((id:struct46_0)" -"(let-values(((s_749)" +"(let-values(((s_740)" "(car" -" s_748)))" -"(if(let-values(((or-part_364)" +" s_739)))" +"(if(let-values(((or-part_349)" "(if(syntax?$1" -" s_749)" +" s_740)" "(symbol?" "(syntax-e$1" -" s_749))" +" s_740))" " #f)))" -"(if or-part_364" -" or-part_364" +"(if or-part_349" +" or-part_349" "(symbol?" -" s_749)))" -" s_749" +" s_740)))" +" s_740" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_69" -" s_749))))" +" s_740))))" "((id:field47_0)" -"(let-values(((s_750)" +"(let-values(((s_741)" "(cdr" -" s_748)))" -"(let-values(((s_391)" +" s_739)))" +"(let-values(((s_63)" "(if(syntax?$1" -" s_750)" +" s_741)" "(syntax-e$1" -" s_750)" -" s_750)))" +" s_741)" +" s_741)))" "(if(pair?" -" s_391)" +" s_63)" "(let-values(((id:field48_0)" "(let-values(((s_37)" "(car" -" s_391)))" -"(let-values(((s_410)" +" s_63)))" +"(let-values(((s_402)" "(if(syntax?$1" " s_37)" "(syntax-e$1" @@ -69375,7 +69458,7 @@ static const char *startup_source = " s_37)))" "(let-values(((flat-s_48)" "(to-syntax-list.1" -" s_410)))" +" s_402)))" "(if(not" " flat-s_48)" "(let-values()" @@ -69385,7 +69468,7 @@ static const char *startup_source = " orig-s_69))" "(let-values()" "(let-values(((id:field_0)" -"(let-values(((lst_314)" +"(let-values(((lst_316)" " flat-s_48))" "(begin" "(if(variable-reference-from-unsafe?" @@ -69393,20 +69476,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_314)))" -"((letrec-values(((for-loop_277)" +" lst_316)))" +"((letrec-values(((for-loop_276)" "(lambda(id:field_1" -" lst_409)" +" lst_412)" "(begin" " 'for-loop" "(if(pair?" -" lst_409)" -"(let-values(((s_64)" +" lst_412)" +"(let-values(((s_742)" "(unsafe-car" -" lst_409))" +" lst_412))" "((rest_236)" "(unsafe-cdr" -" lst_409)))" +" lst_412)))" "(let-values(((id:field_2)" "(let-values(((id:field_3)" " id:field_1))" @@ -69414,23 +69497,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:field49_0)" "(let-values()" -"(if(let-values(((or-part_400)" +"(if(let-values(((or-part_385)" "(if(syntax?$1" -" s_64)" +" s_742)" "(symbol?" "(syntax-e$1" -" s_64))" +" s_742))" " #f)))" -"(if or-part_400" -" or-part_400" +"(if or-part_385" +" or-part_385" "(symbol?" -" s_64)))" -" s_64" +" s_742)))" +" s_742" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_69" -" s_64)))))" +" s_742)))))" "(cons" " id:field49_0" " id:field_3)))))" @@ -69438,28 +69521,28 @@ static const char *startup_source = " id:field_4)))))" "(if(not" " #f)" -"(for-loop_277" +"(for-loop_276" " id:field_2" " rest_236)" " id:field_2)))" " id:field_1)))))" -" for-loop_277)" +" for-loop_276)" " null" -" lst_314)))))" +" lst_316)))))" "(reverse$1" " id:field_0))))))))" "(()" -"(let-values(((s_205)" +"(let-values(((s_200)" "(cdr" -" s_391)))" -"(let-values(((s_751)" +" s_63)))" +"(let-values(((s_743)" "(if(syntax?$1" -" s_205)" +" s_200)" "(syntax-e$1" -" s_205)" -" s_205)))" +" s_200)" +" s_200)))" "(if(null?" -" s_751)" +" s_743)" "(values)" "(raise-syntax-error$1" " #f" @@ -69516,54 +69599,54 @@ static const char *startup_source = "(let-values(((ok?_66" " all-from50_0" " mod-path51_0)" -"(let-values(((s_752)" +"(let-values(((s_744)" " disarmed-spec_0))" "(let-values(((orig-s_70)" -" s_752))" +" s_744))" "(let-values(((all-from50_1" " mod-path51_1)" -"(let-values(((s_753)" +"(let-values(((s_745)" "(if(syntax?$1" -" s_752)" +" s_744)" "(syntax-e$1" -" s_752)" -" s_752)))" +" s_744)" +" s_744)))" "(if(pair?" -" s_753)" +" s_745)" "(let-values(((all-from52_0)" -"(let-values(((s_754)" +"(let-values(((s_746)" "(car" -" s_753)))" -" s_754))" +" s_745)))" +" s_746))" "((mod-path53_0)" -"(let-values(((s_208)" +"(let-values(((s_203)" "(cdr" -" s_753)))" -"(let-values(((s_209)" +" s_745)))" +"(let-values(((s_204)" "(if(syntax?$1" -" s_208)" +" s_203)" "(syntax-e$1" -" s_208)" -" s_208)))" +" s_203)" +" s_203)))" "(if(pair?" -" s_209)" +" s_204)" "(let-values(((mod-path54_0)" -"(let-values(((s_755)" +"(let-values(((s_747)" "(car" -" s_209)))" -" s_755))" +" s_204)))" +" s_747))" "(()" -"(let-values(((s_93)" +"(let-values(((s_92)" "(cdr" -" s_209)))" -"(let-values(((s_321)" +" s_204)))" +"(let-values(((s_315)" "(if(syntax?$1" -" s_93)" +" s_92)" "(syntax-e$1" -" s_93)" -" s_93)))" +" s_92)" +" s_92)))" "(if(null?" -" s_321)" +" s_315)" "(values)" "(raise-syntax-error$1" " #f" @@ -69618,50 +69701,50 @@ static const char *startup_source = "(let-values(((all-from-except55_1" " mod-path56_1" " id57_1)" -"(let-values(((s_212)" +"(let-values(((s_98)" "(if(syntax?$1" " s_96)" "(syntax-e$1" " s_96)" " s_96)))" "(if(pair?" -" s_212)" +" s_98)" "(let-values(((all-from-except58_0)" -"(let-values(((s_415)" +"(let-values(((s_407)" "(car" -" s_212)))" -" s_415))" +" s_98)))" +" s_407))" "((mod-path59_0" " id60_0)" "(let-values(((s_162)" "(cdr" -" s_212)))" -"(let-values(((s_486)" +" s_98)))" +"(let-values(((s_476)" "(if(syntax?$1" " s_162)" "(syntax-e$1" " s_162)" " s_162)))" "(if(pair?" -" s_486)" +" s_476)" "(let-values(((mod-path61_0)" -"(let-values(((s_756)" +"(let-values(((s_748)" "(car" -" s_486)))" -" s_756))" +" s_476)))" +" s_748))" "((id62_0)" -"(let-values(((s_757)" +"(let-values(((s_749)" "(cdr" -" s_486)))" -"(let-values(((s_758)" +" s_476)))" +"(let-values(((s_99)" "(if(syntax?$1" -" s_757)" +" s_749)" "(syntax-e$1" -" s_757)" -" s_757)))" +" s_749)" +" s_749)))" "(let-values(((flat-s_49)" "(to-syntax-list.1" -" s_758)))" +" s_99)))" "(if(not" " flat-s_49)" "(let-values()" @@ -69671,7 +69754,7 @@ static const char *startup_source = " orig-s_71))" "(let-values()" "(let-values(((id_135)" -"(let-values(((lst_43)" +"(let-values(((lst_413)" " flat-s_49))" "(begin" "(if(variable-reference-from-unsafe?" @@ -69679,20 +69762,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_43)))" -"((letrec-values(((for-loop_58)" +" lst_413)))" +"((letrec-values(((for-loop_314)" "(lambda(id_68" -" lst_44)" +" lst_414)" "(begin" " 'for-loop" "(if(pair?" -" lst_44)" -"(let-values(((s_489)" +" lst_414)" +"(let-values(((s_480)" "(unsafe-car" -" lst_44))" -"((rest_18)" +" lst_414))" +"((rest_237)" "(unsafe-cdr" -" lst_44)))" +" lst_414)))" "(let-values(((id_136)" "(let-values(((id_137)" " id_68))" @@ -69700,23 +69783,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id63_0)" "(let-values()" -"(if(let-values(((or-part_401)" +"(if(let-values(((or-part_386)" "(if(syntax?$1" -" s_489)" +" s_480)" "(symbol?" "(syntax-e$1" -" s_489))" +" s_480))" " #f)))" -"(if or-part_401" -" or-part_401" +"(if or-part_386" +" or-part_386" "(symbol?" -" s_489)))" -" s_489" +" s_480)))" +" s_480" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_71" -" s_489)))))" +" s_480)))))" "(cons" " id63_0" " id_137)))))" @@ -69724,14 +69807,14 @@ static const char *startup_source = " id_138)))))" "(if(not" " #f)" -"(for-loop_58" +"(for-loop_314" " id_136" -" rest_18)" +" rest_237)" " id_136)))" " id_68)))))" -" for-loop_58)" +" for-loop_314)" " null" -" lst_43)))))" +" lst_413)))))" "(reverse$1" " id_135)))))))))" "(values" @@ -69783,36 +69866,36 @@ static const char *startup_source = "(values))))" "(let-values(((ok?_68" " all-defined64_0)" -"(let-values(((s_217)" +"(let-values(((s_106)" " disarmed-spec_0))" "(let-values(((orig-s_72)" -" s_217))" +" s_106))" "(let-values(((all-defined64_1)" -"(let-values(((s_393)" +"(let-values(((s_384)" "(if(syntax?$1" -" s_217)" +" s_106)" "(syntax-e$1" -" s_217)" -" s_217)))" +" s_106)" +" s_106)))" "(if(pair?" -" s_393)" +" s_384)" "(let-values(((all-defined65_0)" -"(let-values(((s_108)" +"(let-values(((s_750)" "(car" -" s_393)))" -" s_108))" +" s_384)))" +" s_750))" "(()" -"(let-values(((s_759)" +"(let-values(((s_751)" "(cdr" -" s_393)))" -"(let-values(((s_760)" +" s_384)))" +"(let-values(((s_752)" "(if(syntax?$1" -" s_759)" +" s_751)" "(syntax-e$1" -" s_759)" -" s_759)))" +" s_751)" +" s_751)))" "(if(null?" -" s_760)" +" s_752)" "(values)" "(raise-syntax-error$1" " #f" @@ -69851,38 +69934,38 @@ static const char *startup_source = "(let-values(((ok?_69" " all-defined-except66_0" " id67_0)" -"(let-values(((s_761)" +"(let-values(((s_753)" " disarmed-spec_0))" "(let-values(((orig-s_73)" -" s_761))" +" s_753))" "(let-values(((all-defined-except66_1" " id67_1)" -"(let-values(((s_219)" +"(let-values(((s_215)" "(if(syntax?$1" -" s_761)" +" s_753)" "(syntax-e$1" -" s_761)" -" s_761)))" +" s_753)" +" s_753)))" "(if(pair?" -" s_219)" +" s_215)" "(let-values(((all-defined-except68_0)" -"(let-values(((s_416)" +"(let-values(((s_408)" "(car" -" s_219)))" -" s_416))" +" s_215)))" +" s_408))" "((id69_0)" -"(let-values(((s_220)" +"(let-values(((s_216)" "(cdr" -" s_219)))" -"(let-values(((s_221)" +" s_215)))" +"(let-values(((s_115)" "(if(syntax?$1" -" s_220)" +" s_216)" "(syntax-e$1" -" s_220)" -" s_220)))" +" s_216)" +" s_216)))" "(let-values(((flat-s_50)" "(to-syntax-list.1" -" s_221)))" +" s_115)))" "(if(not" " flat-s_50)" "(let-values()" @@ -69892,7 +69975,7 @@ static const char *startup_source = " orig-s_73))" "(let-values()" "(let-values(((id_139)" -"(let-values(((lst_410)" +"(let-values(((lst_415)" " flat-s_50))" "(begin" "(if(variable-reference-from-unsafe?" @@ -69900,20 +69983,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_410)))" -"((letrec-values(((for-loop_316)" +" lst_415)))" +"((letrec-values(((for-loop_315)" "(lambda(id_140" -" lst_411)" +" lst_416)" "(begin" " 'for-loop" "(if(pair?" -" lst_411)" +" lst_416)" "(let-values(((s_119)" "(unsafe-car" -" lst_411))" -"((rest_237)" +" lst_416))" +"((rest_238)" "(unsafe-cdr" -" lst_411)))" +" lst_416)))" "(let-values(((id_141)" "(let-values(((id_142)" " id_140))" @@ -69921,15 +70004,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id70_0)" "(let-values()" -"(if(let-values(((or-part_186)" +"(if(let-values(((or-part_172)" "(if(syntax?$1" " s_119)" "(symbol?" "(syntax-e$1" " s_119))" " #f)))" -"(if or-part_186" -" or-part_186" +"(if or-part_172" +" or-part_172" "(symbol?" " s_119)))" " s_119" @@ -69945,14 +70028,14 @@ static const char *startup_source = " id_30)))))" "(if(not" " #f)" -"(for-loop_316" +"(for-loop_315" " id_141" -" rest_237)" +" rest_238)" " id_141)))" " id_140)))))" -" for-loop_316)" +" for-loop_315)" " null" -" lst_410)))))" +" lst_415)))))" "(reverse$1" " id_139)))))))))" "(values" @@ -69993,70 +70076,70 @@ static const char *startup_source = "(let-values(((ok?_70" " prefix-all-defined71_0" " id:prefix72_0)" -"(let-values(((s_762)" +"(let-values(((s_754)" " disarmed-spec_0))" "(let-values(((orig-s_74)" -" s_762))" +" s_754))" "(let-values(((prefix-all-defined71_1" " id:prefix72_1)" -"(let-values(((s_763)" +"(let-values(((s_755)" "(if(syntax?$1" -" s_762)" +" s_754)" "(syntax-e$1" -" s_762)" -" s_762)))" +" s_754)" +" s_754)))" "(if(pair?" -" s_763)" +" s_755)" "(let-values(((prefix-all-defined73_0)" -"(let-values(((s_764)" +"(let-values(((s_756)" "(car" -" s_763)))" -" s_764))" +" s_755)))" +" s_756))" "((id:prefix74_0)" -"(let-values(((s_765)" +"(let-values(((s_757)" "(cdr" -" s_763)))" -"(let-values(((s_766)" +" s_755)))" +"(let-values(((s_758)" "(if(syntax?$1" -" s_765)" +" s_757)" "(syntax-e$1" -" s_765)" -" s_765)))" +" s_757)" +" s_757)))" "(if(pair?" -" s_766)" +" s_758)" "(let-values(((id:prefix75_0)" -"(let-values(((s_505)" +"(let-values(((s_496)" "(car" -" s_766)))" -"(if(let-values(((or-part_402)" +" s_758)))" +"(if(let-values(((or-part_387)" "(if(syntax?$1" -" s_505)" +" s_496)" "(symbol?" "(syntax-e$1" -" s_505))" +" s_496))" " #f)))" -"(if or-part_402" -" or-part_402" +"(if or-part_387" +" or-part_387" "(symbol?" -" s_505)))" -" s_505" +" s_496)))" +" s_496" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_74" -" s_505))))" +" s_496))))" "(()" -"(let-values(((s_767)" +"(let-values(((s_759)" "(cdr" -" s_766)))" -"(let-values(((s_126)" +" s_758)))" +"(let-values(((s_125)" "(if(syntax?$1" -" s_767)" +" s_759)" "(syntax-e$1" -" s_767)" -" s_767)))" +" s_759)" +" s_759)))" "(if(null?" -" s_126)" +" s_125)" "(values)" "(raise-syntax-error$1" " #f" @@ -70108,73 +70191,73 @@ static const char *startup_source = " prefix-all-defined-except76_0" " id:prefix77_0" " id78_0)" -"(let-values(((s_232)" +"(let-values(((s_227)" " disarmed-spec_0))" "(let-values(((orig-s_75)" -" s_232))" +" s_227))" "(let-values(((prefix-all-defined-except76_1" " id:prefix77_1" " id78_1)" -"(let-values(((s_332)" +"(let-values(((s_325)" "(if(syntax?$1" -" s_232)" +" s_227)" "(syntax-e$1" -" s_232)" -" s_232)))" +" s_227)" +" s_227)))" "(if(pair?" -" s_332)" +" s_325)" "(let-values(((prefix-all-defined-except79_0)" -"(let-values(((s_335)" +"(let-values(((s_328)" "(car" -" s_332)))" -" s_335))" +" s_325)))" +" s_328))" "((id:prefix80_0" " id81_0)" -"(let-values(((s_336)" +"(let-values(((s_329)" "(cdr" -" s_332)))" -"(let-values(((s_337)" +" s_325)))" +"(let-values(((s_330)" "(if(syntax?$1" -" s_336)" +" s_329)" "(syntax-e$1" -" s_336)" -" s_336)))" +" s_329)" +" s_329)))" "(if(pair?" -" s_337)" +" s_330)" "(let-values(((id:prefix82_0)" -"(let-values(((s_340)" +"(let-values(((s_333)" "(car" -" s_337)))" -"(if(let-values(((or-part_403)" +" s_330)))" +"(if(let-values(((or-part_388)" "(if(syntax?$1" -" s_340)" +" s_333)" "(symbol?" "(syntax-e$1" -" s_340))" +" s_333))" " #f)))" -"(if or-part_403" -" or-part_403" +"(if or-part_388" +" or-part_388" "(symbol?" -" s_340)))" -" s_340" +" s_333)))" +" s_333" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_75" -" s_340))))" +" s_333))))" "((id83_0)" -"(let-values(((s_342)" +"(let-values(((s_335)" "(cdr" -" s_337)))" -"(let-values(((s_768)" +" s_330)))" +"(let-values(((s_760)" "(if(syntax?$1" -" s_342)" +" s_335)" "(syntax-e$1" -" s_342)" -" s_342)))" +" s_335)" +" s_335)))" "(let-values(((flat-s_51)" "(to-syntax-list.1" -" s_768)))" +" s_760)))" "(if(not" " flat-s_51)" "(let-values()" @@ -70193,19 +70276,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_4)))" -"((letrec-values(((for-loop_317)" +"((letrec-values(((for-loop_316)" "(lambda(id_144" -" lst_412)" +" lst_417)" "(begin" " 'for-loop" "(if(pair?" -" lst_412)" -"(let-values(((s_769)" +" lst_417)" +"(let-values(((s_761)" "(unsafe-car" -" lst_412))" +" lst_417))" "((rest_193)" "(unsafe-cdr" -" lst_412)))" +" lst_417)))" "(let-values(((id_145)" "(let-values(((id_146)" " id_144))" @@ -70213,23 +70296,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id84_2)" "(let-values()" -"(if(let-values(((or-part_290)" +"(if(let-values(((or-part_276)" "(if(syntax?$1" -" s_769)" +" s_761)" "(symbol?" "(syntax-e$1" -" s_769))" +" s_761))" " #f)))" -"(if or-part_290" -" or-part_290" +"(if or-part_276" +" or-part_276" "(symbol?" -" s_769)))" -" s_769" +" s_761)))" +" s_761" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_75" -" s_769)))))" +" s_761)))))" "(cons" " id84_2" " id_146)))))" @@ -70237,12 +70320,12 @@ static const char *startup_source = " id_147)))))" "(if(not" " #f)" -"(for-loop_317" +"(for-loop_316" " id_145" " rest_193)" " id_145)))" " id_144)))))" -" for-loop_317)" +" for-loop_316)" " null" " lst_4)))))" "(reverse$1" @@ -70288,78 +70371,78 @@ static const char *startup_source = " expand85_0" " id86_0" " datum87_0)" -"(let-values(((s_770)" +"(let-values(((s_762)" " disarmed-spec_0))" "(let-values(((orig-s_76)" -" s_770))" +" s_762))" "(let-values(((expand85_1" " id86_1" " datum87_1)" -"(let-values(((s_246)" +"(let-values(((s_241)" "(if(syntax?$1" -" s_770)" +" s_762)" "(syntax-e$1" -" s_770)" -" s_770)))" +" s_762)" +" s_762)))" "(if(pair?" -" s_246)" +" s_241)" "(let-values(((expand88_0)" -"(let-values(((s_247)" +"(let-values(((s_242)" "(car" -" s_246)))" -" s_247))" +" s_241)))" +" s_242))" "((id89_1" " datum90_0)" -"(let-values(((s_771)" +"(let-values(((s_763)" "(cdr" -" s_246)))" -"(let-values(((s_248)" +" s_241)))" +"(let-values(((s_243)" "(if(syntax?$1" -" s_771)" +" s_763)" "(syntax-e$1" -" s_771)" -" s_771)))" +" s_763)" +" s_763)))" "(if(pair?" -" s_248)" +" s_243)" "(let-values(((id91_0" " datum92_0)" -"(let-values(((s_772)" +"(let-values(((s_764)" "(car" -" s_248)))" -"(let-values(((s_250)" +" s_243)))" +"(let-values(((s_245)" "(if(syntax?$1" -" s_772)" +" s_764)" "(syntax-e$1" -" s_772)" -" s_772)))" +" s_764)" +" s_764)))" "(if(pair?" -" s_250)" +" s_245)" "(let-values(((id93_1)" -"(let-values(((s_518)" +"(let-values(((s_509)" "(car" -" s_250)))" -"(if(let-values(((or-part_404)" +" s_245)))" +"(if(let-values(((or-part_389)" "(if(syntax?$1" -" s_518)" +" s_509)" "(symbol?" "(syntax-e$1" -" s_518))" +" s_509))" " #f)))" -"(if or-part_404" -" or-part_404" +"(if or-part_389" +" or-part_389" "(symbol?" -" s_518)))" -" s_518" +" s_509)))" +" s_509" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_76" -" s_518))))" +" s_509))))" "((datum94_0)" -"(let-values(((s_446)" +"(let-values(((s_439)" "(cdr" -" s_250)))" -" s_446)))" +" s_245)))" +" s_439)))" "(values" " id93_1" " datum94_0))" @@ -70368,17 +70451,17 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_76)))))" "(()" -"(let-values(((s_447)" +"(let-values(((s_440)" "(cdr" -" s_248)))" -"(let-values(((s_360)" +" s_243)))" +"(let-values(((s_353)" "(if(syntax?$1" -" s_447)" +" s_440)" "(syntax-e$1" -" s_447)" -" s_447)))" +" s_440)" +" s_440)))" "(if(null?" -" s_360)" +" s_353)" "(values)" "(raise-syntax-error$1" " #f" @@ -70407,54 +70490,54 @@ static const char *startup_source = "(let-values(((ok?_73" " expand95_0" " form96_0)" -"(let-values(((s_361)" +"(let-values(((s_354)" " disarmed-spec_0))" "(let-values(((orig-s_77)" -" s_361))" +" s_354))" "(let-values(((expand95_1" " form96_1)" -"(let-values(((s_364)" +"(let-values(((s_357)" +"(if(syntax?$1" +" s_354)" +"(syntax-e$1" +" s_354)" +" s_354)))" +"(if(pair?" +" s_357)" +"(let-values(((expand97_0)" +"(let-values(((s_360)" +"(car" +" s_357)))" +" s_360))" +"((form98_0)" +"(let-values(((s_361)" +"(cdr" +" s_357)))" +"(let-values(((s_362)" "(if(syntax?$1" " s_361)" "(syntax-e$1" " s_361)" " s_361)))" "(if(pair?" -" s_364)" -"(let-values(((expand97_0)" -"(let-values(((s_367)" -"(car" -" s_364)))" -" s_367))" -"((form98_0)" -"(let-values(((s_368)" -"(cdr" -" s_364)))" -"(let-values(((s_369)" -"(if(syntax?$1" -" s_368)" -"(syntax-e$1" -" s_368)" -" s_368)))" -"(if(pair?" -" s_369)" +" s_362)" "(let-values(((form99_0)" -"(let-values(((s_371)" +"(let-values(((s_364)" "(car" -" s_369)))" -" s_371))" +" s_362)))" +" s_364))" "(()" -"(let-values(((s_372)" +"(let-values(((s_365)" "(cdr" -" s_369)))" -"(let-values(((s_773)" +" s_362)))" +"(let-values(((s_765)" "(if(syntax?$1" -" s_372)" +" s_365)" "(syntax-e$1" -" s_372)" -" s_372)))" +" s_365)" +" s_365)))" "(if(null?" -" s_773)" +" s_765)" "(values)" "(raise-syntax-error$1" " #f" @@ -70483,19 +70566,19 @@ static const char *startup_source = "((temp105_5)" "(let-values(((v_261)" " ctx_106))" -"(let-values(((the-struct_97)" +"(let-values(((the-struct_95)" " v_261))" "(if(expand-context/outer?" -" the-struct_97)" +" the-struct_95)" "(let-values(((def-ctx-scopes106_0)" "(box" " null))" "((inner107_0)" -"(let-values(((the-struct_98)" +"(let-values(((the-struct_96)" "(root-expand-context/outer-inner" " v_261)))" "(if(expand-context/inner?" -" the-struct_98)" +" the-struct_96)" "(let-values(((stops108_0)" "(free-id-set" " at-phase_13" @@ -70505,91 +70588,91 @@ static const char *startup_source = " at-phase_13)))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_98)" +" the-struct_96)" "(root-expand-context/inner-module-scopes" -" the-struct_98)" +" the-struct_96)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_98)" +" the-struct_96)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_98)" +" the-struct_96)" "(root-expand-context/inner-defined-syms" -" the-struct_98)" +" the-struct_96)" "(root-expand-context/inner-counter" -" the-struct_98)" +" the-struct_96)" "(root-expand-context/inner-lift-key" -" the-struct_98)" +" the-struct_96)" "(expand-context/inner-to-parsed?" -" the-struct_98)" +" the-struct_96)" "(expand-context/inner-phase" -" the-struct_98)" +" the-struct_96)" "(expand-context/inner-namespace" -" the-struct_98)" +" the-struct_96)" "(expand-context/inner-just-once?" -" the-struct_98)" +" the-struct_96)" "(expand-context/inner-module-begin-k" -" the-struct_98)" +" the-struct_96)" "(expand-context/inner-allow-unbound?" -" the-struct_98)" +" the-struct_96)" "(expand-context/inner-in-local-expand?" -" the-struct_98)" +" the-struct_96)" " stops108_0" "(expand-context/inner-declared-submodule-names" -" the-struct_98)" +" the-struct_96)" "(expand-context/inner-lifts" -" the-struct_98)" +" the-struct_96)" "(expand-context/inner-lift-envs" -" the-struct_98)" +" the-struct_96)" "(expand-context/inner-module-lifts" -" the-struct_98)" +" the-struct_96)" "(expand-context/inner-require-lifts" -" the-struct_98)" +" the-struct_96)" "(expand-context/inner-to-module-lifts" -" the-struct_98)" +" the-struct_96)" "(expand-context/inner-requires+provides" -" the-struct_98)" +" the-struct_96)" "(expand-context/inner-observer" -" the-struct_98)" +" the-struct_96)" "(expand-context/inner-for-serializable?" -" the-struct_98)" +" the-struct_96)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_98)))" +" the-struct_96)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_98)))))" +" the-struct_96)))))" "(expand-context/outer1.1" " inner107_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_97)" +" the-struct_95)" "(root-expand-context/outer-use-site-scopes" -" the-struct_97)" +" the-struct_95)" "(root-expand-context/outer-frame-id" -" the-struct_97)" +" the-struct_95)" "(expand-context/outer-context" -" the-struct_97)" +" the-struct_95)" "(expand-context/outer-env" -" the-struct_97)" +" the-struct_95)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_97)" +" the-struct_95)" "(expand-context/outer-scopes" -" the-struct_97)" +" the-struct_95)" " def-ctx-scopes106_0" "(expand-context/outer-binding-layer" -" the-struct_97)" +" the-struct_95)" "(expand-context/outer-reference-records" -" the-struct_97)" +" the-struct_95)" "(expand-context/outer-only-immediate?" -" the-struct_97)" +" the-struct_95)" "(expand-context/outer-need-eventually-defined" -" the-struct_97)" +" the-struct_95)" "(expand-context/outer-current-introduction-scopes" -" the-struct_97)" +" the-struct_95)" "(expand-context/outer-name" -" the-struct_97)))" +" the-struct_95)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_97))))))" +" the-struct_95))))))" "(expand7.1" " #f" " #f" @@ -70624,38 +70707,38 @@ static const char *startup_source = "(let-values(((ok?_74" " begin100_0" " spec101_0)" -"(let-values(((s_774)" +"(let-values(((s_766)" " exp-spec_0))" "(let-values(((orig-s_78)" -" s_774))" +" s_766))" "(let-values(((begin100_1" " spec101_1)" -"(let-values(((s_775)" +"(let-values(((s_767)" "(if(syntax?$1" -" s_774)" +" s_766)" "(syntax-e$1" -" s_774)" -" s_774)))" +" s_766)" +" s_766)))" "(if(pair?" -" s_775)" +" s_767)" "(let-values(((begin102_0)" -"(let-values(((s_377)" +"(let-values(((s_370)" "(car" -" s_775)))" -" s_377))" +" s_767)))" +" s_370))" "((spec103_0)" -"(let-values(((s_378)" +"(let-values(((s_371)" "(cdr" -" s_775)))" -"(let-values(((s_379)" +" s_767)))" +"(let-values(((s_372)" "(if(syntax?$1" -" s_378)" +" s_371)" "(syntax-e$1" -" s_378)" -" s_378)))" +" s_371)" +" s_371)))" "(let-values(((flat-s_52)" "(to-syntax-list.1" -" s_379)))" +" s_372)))" "(if(not" " flat-s_52)" "(let-values()" @@ -70678,7 +70761,7 @@ static const char *startup_source = " spec101_1))))))" "(let-values(((track-stxes_9" " exp-specs_9)" -"(loop_112" +"(loop_113" " spec101_0" " at-phase_13" " protected?_15" @@ -70700,7 +70783,7 @@ static const char *startup_source = " track-stxes_4" " exp-specs_4)))))" "(if(not #f)" -"(for-loop_96" +"(for-loop_95" " track-stxes_2" " exp-specs_2" " rest_235)" @@ -70710,13 +70793,13 @@ static const char *startup_source = "(values" " track-stxes_1" " exp-specs_1))))))" -" for-loop_96)" +" for-loop_95)" " null" " null" -" lst_78)))))" +" lst_79)))))" "(values(reverse$1 track-stxes_0)(reverse$1 exp-specs_0)))))" "(values(apply append track-stxess_0)(apply append exp-specss_0)))))))" -" loop_112)" +" loop_113)" " specs_0" " phase_44" " #f" @@ -70779,17 +70862,17 @@ static const char *startup_source = "(format fmt_2(syntax-e$1 id:struct_0)(syntax-e$1 field-id_0)))))" "(datum->syntax$1 id:struct_0 sym_102 id:struct_0))))))" "(begin" -" (let-values (((lst_124) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" +" (let-values (((lst_126) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_124)))" -"((letrec-values(((for-loop_318)" -"(lambda(lst_413)" +"(let-values()(check-list lst_126)))" +"((letrec-values(((for-loop_317)" +"(lambda(lst_418)" "(begin" " 'for-loop" -"(if(pair? lst_413)" -"(let-values(((fmt_3)(unsafe-car lst_413))((rest_238)(unsafe-cdr lst_413)))" +"(if(pair? lst_418)" +"(let-values(((fmt_3)(unsafe-car lst_418))((rest_239)(unsafe-cdr lst_418)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70807,22 +70890,22 @@ static const char *startup_source = " protected?_17)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_318 rest_238)(values))))" +"(if(not #f)(for-loop_317 rest_239)(values))))" "(values))))))" -" for-loop_318)" -" lst_124)))" +" for-loop_317)" +" lst_126)))" "(void)" -"(let-values(((lst_414) fields_0))" +"(let-values(((lst_419) fields_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_414)))" -"((letrec-values(((for-loop_319)" -"(lambda(lst_415)" +"(let-values()(check-list lst_419)))" +"((letrec-values(((for-loop_318)" +"(lambda(lst_420)" "(begin" " 'for-loop" -"(if(pair? lst_415)" -"(let-values(((field_0)(unsafe-car lst_415))((rest_239)(unsafe-cdr lst_415)))" +"(if(pair? lst_420)" +"(let-values(((field_0)(unsafe-car lst_420))((rest_240)(unsafe-cdr lst_420)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70854,10 +70937,10 @@ static const char *startup_source = " protected?_17)))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_319 rest_239)(values))))" +"(if(not #f)(for-loop_318 rest_240)(values))))" "(values))))))" -" for-loop_319)" -" lst_414)))" +" for-loop_318)" +" lst_419)))" "(void)))))))" "(define-values" "(parse-all-from)" @@ -70905,18 +70988,18 @@ static const char *startup_source = " (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_103)) sym_103)))))" "(let-values(((found_0)(make-hasheq)))" "(begin" -"(let-values(((lst_239) requireds_2))" +"(let-values(((lst_241) requireds_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_239)))" -"((letrec-values(((for-loop_320)" -"(lambda(lst_416)" +"(let-values()(check-list lst_241)))" +"((letrec-values(((for-loop_319)" +"(lambda(lst_421)" "(begin" " 'for-loop" -"(if(pair? lst_416)" -"(let-values(((i_190)(unsafe-car lst_416))" -"((rest_240)(unsafe-cdr lst_416)))" +"(if(pair? lst_421)" +"(let-values(((i_190)(unsafe-car lst_421))" +"((rest_241)(unsafe-cdr lst_421)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70928,7 +71011,7 @@ static const char *startup_source = "(let-values(((phase_151)" "(required-phase" " i_190)))" -"(if(let-values(((or-part_405)" +"(if(let-values(((or-part_390)" "(if matching-stx_0" "(not" "(if(eqv?" @@ -70944,9 +71027,9 @@ static const char *startup_source = " phase_151)" " #f))" " #f)))" -"(if or-part_405" -" or-part_405" -"(let-values(((lst_417)" +"(if or-part_390" +" or-part_390" +"(let-values(((lst_422)" " except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -70954,23 +71037,23 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_417)))" -"((letrec-values(((for-loop_321)" -"(lambda(result_125" -" lst_418)" +" lst_422)))" +"((letrec-values(((for-loop_320)" +"(lambda(result_124" +" lst_423)" "(begin" " 'for-loop" "(if(pair?" -" lst_418)" +" lst_423)" "(let-values(((except-id_0)" "(unsafe-car" -" lst_418))" -"((rest_241)" +" lst_423))" +"((rest_242)" "(unsafe-cdr" -" lst_418)))" -"(let-values(((result_126)" +" lst_423)))" +"(let-values(((result_125)" "(let-values()" -"(let-values(((result_127)" +"(let-values(((result_126)" "(let-values()" "(let-values()" "(if(free-identifier=?$1" @@ -70984,22 +71067,22 @@ static const char *startup_source = " #t)" " #f)))))" "(values" -" result_127)))))" +" result_126)))))" "(if(if(not" -"((lambda x_94" -" result_126)" +"((lambda x_92" +" result_125)" " except-id_0))" "(not" " #f)" " #f)" -"(for-loop_321" -" result_126" -" rest_241)" -" result_126)))" -" result_125)))))" -" for-loop_321)" +"(for-loop_320" +" result_125" +" rest_242)" +" result_125)))" +" result_124)))))" +" for-loop_320)" " #f" -" lst_417)))))" +" lst_422)))))" "(void)" "(let-values()" "(let-values(((b_93)" @@ -71060,41 +71143,41 @@ static const char *startup_source = " orig-s127_0)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_320 rest_240)(values))))" +"(if(not #f)(for-loop_319 rest_241)(values))))" "(values))))))" -" for-loop_320)" -" lst_239)))" +" for-loop_319)" +" lst_241)))" "(void)" "(if(=(hash-count found_0)(length except-ids_1))" "(void)" "(let-values()" "(begin" -"(let-values(((lst_147) except-ids_1))" +"(let-values(((lst_149) except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_147)))" +"(let-values()(check-list lst_149)))" "((letrec-values(((for-loop_171)" -"(lambda(lst_126)" +"(lambda(lst_128)" "(begin" " 'for-loop" -"(if(pair? lst_126)" -"(let-values(((except-id_1)(unsafe-car lst_126))" -"((rest_62)(unsafe-cdr lst_126)))" +"(if(pair? lst_128)" +"(let-values(((except-id_1)(unsafe-car lst_128))" +"((rest_62)(unsafe-cdr lst_128)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(if(let-values(((or-part_406)" +"(if(let-values(((or-part_391)" "(hash-ref" " found_0" " except-id_1" " #f)))" -"(if or-part_406" -" or-part_406" -"(let-values(((lst_419)" +"(if or-part_391" +" or-part_391" +"(let-values(((lst_424)" " requireds_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -71102,23 +71185,23 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_419)))" +" lst_424)))" "((letrec-values(((for-loop_141)" -"(lambda(result_128" -" lst_420)" +"(lambda(result_127" +" lst_425)" "(begin" " 'for-loop" "(if(pair?" -" lst_420)" +" lst_425)" "(let-values(((i_191)" "(unsafe-car" -" lst_420))" -"((rest_242)" +" lst_425))" +"((rest_243)" "(unsafe-cdr" -" lst_420)))" -"(let-values(((result_129)" +" lst_425)))" +"(let-values(((result_128)" "(let-values()" -"(let-values(((result_130)" +"(let-values(((result_129)" "(let-values()" "(let-values()" "(let-values(((id_150)" @@ -71133,22 +71216,22 @@ static const char *startup_source = " phase_152" " phase_152)))))))" "(values" -" result_130)))))" +" result_129)))))" "(if(if(not" -"((lambda x_95" -" result_129)" +"((lambda x_93" +" result_128)" " i_191))" "(not" " #f)" " #f)" "(for-loop_141" -" result_129" -" rest_242)" -" result_129)))" -" result_128)))))" +" result_128" +" rest_243)" +" result_128)))" +" result_127)))))" " for-loop_141)" " #f" -" lst_419)))))" +" lst_424)))))" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -71165,7 +71248,7 @@ static const char *startup_source = "(if(not #f)(for-loop_171 rest_62)(values))))" "(values))))))" " for-loop_171)" -" lst_147)))" +" lst_149)))" "(void)))))))))))))" "(define-values" "(check-cross-phase-persistent-form)" @@ -71176,63 +71259,63 @@ static const char *startup_source = "(begin" " 'check-body" "(begin" -"(let-values(((lst_421) bodys_14))" +"(let-values(((lst_426) bodys_14))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_421)))" -"((letrec-values(((for-loop_322)" -"(lambda(lst_85)" +"(let-values()(check-list lst_426)))" +"((letrec-values(((for-loop_321)" +"(lambda(lst_86)" "(begin" " 'for-loop" -"(if(pair? lst_85)" -"(let-values(((body_21)(unsafe-car lst_85))" -"((rest_40)(unsafe-cdr lst_85)))" +"(if(pair? lst_86)" +"(let-values(((body_21)(unsafe-car lst_86))" +"((rest_40)(unsafe-cdr lst_86)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((p_36)" +"(let-values(((p_35)" "(if(expanded+parsed?" " body_21)" "(expanded+parsed-parsed" " body_21)" " body_21)))" "(if(parsed-define-values?" -" p_36)" +" p_35)" "(let-values()" "(check-expr_0" "(parsed-define-values-rhs" -" p_36)" +" p_35)" "(length" "(parsed-define-values-syms" -" p_36))" -" p_36))" -"(if(let-values(((or-part_224)" +" p_35))" +" p_35))" +"(if(let-values(((or-part_210)" "(parsed-#%declare?" -" p_36)))" -"(if or-part_224" -" or-part_224" +" p_35)))" +"(if or-part_210" +" or-part_210" "(let-values(((or-part_3)" "(parsed-module?" -" p_36)))" +" p_35)))" "(if or-part_3" " or-part_3" "(syntax?$1" -" p_36)))))" +" p_35)))))" "(let-values()" "(void))" "(let-values()" "(disallow" -" p_36))))))" +" p_35))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_322 rest_40)(values))))" +"(if(not #f)(for-loop_321 rest_40)(values))))" "(values))))))" -" for-loop_322)" -" lst_421)))" +" for-loop_321)" +" lst_426)))" "(void)))))" "((check-expr_0)" "(lambda(e_93 num-results_0 enclosing_15)" @@ -71253,18 +71336,18 @@ static const char *startup_source = "(let-values()" "(let-values(((rands_1)(parsed-app-rands e_93)))" "(begin" -"(let-values(((lst_79) rands_1))" +"(let-values(((lst_80) rands_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_79)))" +"(let-values()(check-list lst_80)))" "((letrec-values(((for-loop_81)" -"(lambda(lst_86)" +"(lambda(lst_87)" "(begin" " 'for-loop" -"(if(pair? lst_86)" -"(let-values(((rand_0)(unsafe-car lst_86))" -"((rest_243)(unsafe-cdr lst_86)))" +"(if(pair? lst_87)" +"(let-values(((rand_0)(unsafe-car lst_87))" +"((rest_244)(unsafe-cdr lst_87)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71277,29 +71360,29 @@ static const char *startup_source = " e_93))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_81 rest_243)(values))))" +"(if(not #f)(for-loop_81 rest_244)(values))))" "(values))))))" " for-loop_81)" -" lst_79)))" +" lst_80)))" "(void)" -"(let-values(((tmp_66)(cross-phase-primitive-name(parsed-app-rator e_93))))" -"(if(if(equal? tmp_66 'cons) #t(equal? tmp_66 'list))" +"(let-values(((tmp_67)(cross-phase-primitive-name(parsed-app-rator e_93))))" +"(if(if(equal? tmp_67 'cons) #t(equal? tmp_67 'list))" "(let-values()(check-count 1 num-results_0 enclosing_15))" -"(if(equal? tmp_66 'make-struct-type)" +"(if(equal? tmp_67 'make-struct-type)" "(let-values()(check-count 5 num-results_0 enclosing_15))" -"(if(equal? tmp_66 'make-struct-type-property)" +"(if(equal? tmp_67 'make-struct-type-property)" "(let-values()(check-count 3 num-results_0 enclosing_15))" -"(if(equal? tmp_66 'gensym)" +"(if(equal? tmp_67 'gensym)" "(let-values()" -"(if(let-values(((or-part_371)(= 0(length rands_1))))" -"(if or-part_371" -" or-part_371" +"(if(let-values(((or-part_356)(= 0(length rands_1))))" +"(if or-part_356" +" or-part_356" "(if(= 1(length rands_1))" "(quoted-string?(car rands_1))" " #f)))" "(void)" "(let-values()(disallow e_93))))" -"(if(equal? tmp_66 'string->uninterned-symbol)" +"(if(equal? tmp_67 'string->uninterned-symbol)" "(let-values()" "(if(if(= 1(length rands_1))(quoted-string?(car rands_1)) #f)" "(void)" @@ -71315,18 +71398,18 @@ static const char *startup_source = "(if(parsed-case-lambda? e_39)" "(let-values()" "(begin" -"(let-values(((lst_269)(parsed-case-lambda-clauses e_39)))" +"(let-values(((lst_271)(parsed-case-lambda-clauses e_39)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_269)))" -"((letrec-values(((for-loop_241)" -"(lambda(lst_422)" +"(let-values()(check-list lst_271)))" +"((letrec-values(((for-loop_239)" +"(lambda(lst_427)" "(begin" " 'for-loop" -"(if(pair? lst_422)" -"(let-values(((clause_5)(unsafe-car lst_422))" -"((rest_244)(unsafe-cdr lst_422)))" +"(if(pair? lst_427)" +"(let-values(((clause_5)(unsafe-car lst_427))" +"((rest_245)(unsafe-cdr lst_427)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71337,27 +71420,27 @@ static const char *startup_source = "(cadr clause_5)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_241 rest_244)(values))))" +"(if(not #f)(for-loop_239 rest_245)(values))))" "(values))))))" -" for-loop_241)" -" lst_269)))" +" for-loop_239)" +" lst_271)))" "(void)))" "(if(parsed-app? e_39)" "(let-values()" "(begin" "(check-no-disallowed-expr_0(parsed-app-rator e_39))" -"(let-values(((lst_221)(parsed-app-rands e_39)))" +"(let-values(((lst_223)(parsed-app-rands e_39)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_221)))" -"((letrec-values(((for-loop_106)" -"(lambda(lst_265)" +"(let-values()(check-list lst_223)))" +"((letrec-values(((for-loop_105)" +"(lambda(lst_267)" "(begin" " 'for-loop" -"(if(pair? lst_265)" -"(let-values(((e_94)(unsafe-car lst_265))" -"((rest_196)(unsafe-cdr lst_265)))" +"(if(pair? lst_267)" +"(let-values(((e_94)(unsafe-car lst_267))" +"((rest_196)(unsafe-cdr lst_267)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71368,10 +71451,10 @@ static const char *startup_source = " e_94))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_106 rest_196)(values))))" +"(if(not #f)(for-loop_105 rest_196)(values))))" "(values))))))" -" for-loop_106)" -" lst_221)))" +" for-loop_105)" +" lst_223)))" "(void)))" "(if(parsed-if? e_39)" "(let-values()" @@ -71384,12 +71467,12 @@ static const char *startup_source = "(let-values(((id_151)(parsed-set!-id e_39)))" "(let-values(((normal-b_1)(parsed-id-binding id_151)))" "(begin" -"(if(let-values(((or-part_78)(not normal-b_1)))" -"(if or-part_78" -" or-part_78" -"(let-values(((or-part_79)(parsed-top-id? id_151)))" -"(if or-part_79" -" or-part_79" +"(if(let-values(((or-part_85)(not normal-b_1)))" +"(if or-part_85" +" or-part_85" +"(let-values(((or-part_282)(parsed-top-id? id_151)))" +"(if or-part_282" +" or-part_282" "(if(not(symbol? normal-b_1))" "(eq?(module-binding-module normal-b_1) self-mpi_6)" " #f)))))" @@ -71414,15 +71497,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_252)" -"(lambda(lst_90)" +"((letrec-values(((for-loop_251)" +"(lambda(lst_91)" "(begin" " 'for-loop" -"(if(pair? lst_90)" +"(if(pair? lst_91)" "(let-values(((clause_6)" -"(unsafe-car lst_90))" +"(unsafe-car lst_91))" "((rest_152)" -"(unsafe-cdr lst_90)))" +"(unsafe-cdr lst_91)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71435,15 +71518,15 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_252 rest_152)" +"(for-loop_251 rest_152)" "(values))))" "(values))))))" -" for-loop_252)" +" for-loop_251)" " lst_24)))" "(void)" "(check-body-no-disallowed-expr_0(parsed-let_-values-body e_39))))" -"(if(let-values(((or-part_91)(parsed-quote-syntax? e_39)))" -"(if or-part_91 or-part_91(parsed-#%variable-reference? e_39)))" +"(if(let-values(((or-part_392)(parsed-quote-syntax? e_39)))" +"(if or-part_392 or-part_392(parsed-#%variable-reference? e_39)))" "(let-values()(disallow e_39))" "(let-values()(void)))))))))))))))" "((check-body-no-disallowed-expr_0)" @@ -71451,18 +71534,18 @@ static const char *startup_source = "(begin" " 'check-body-no-disallowed-expr" "(begin" -"(let-values(((lst_82) l_48))" +"(let-values(((lst_83) l_48))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_82)))" -"((letrec-values(((for-loop_323)" -"(lambda(lst_271)" +"(let-values()(check-list lst_83)))" +"((letrec-values(((for-loop_322)" +"(lambda(lst_273)" "(begin" " 'for-loop" -"(if(pair? lst_271)" -"(let-values(((e_95)(unsafe-car lst_271))" -"((rest_148)(unsafe-cdr lst_271)))" +"(if(pair? lst_273)" +"(let-values(((e_95)(unsafe-car lst_273))" +"((rest_148)(unsafe-cdr lst_273)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71473,10 +71556,10 @@ static const char *startup_source = " e_95))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_323 rest_148)(values))))" +"(if(not #f)(for-loop_322 rest_148)(values))))" "(values))))))" -" for-loop_323)" -" lst_82)))" +" for-loop_322)" +" lst_83)))" "(void))))))" "(check-body_0 bodys_13)))))" "(define-values" @@ -71485,26 +71568,26 @@ static const char *startup_source = "(begin(if(= is-num_0 expected-num_0)(void)(let-values()(disallow enclosing_16))))))" "(define-values" "(check-datum)" -"(lambda(d_37 e_96)" +"(lambda(d_36 e_13)" "(begin" -"(if(let-values(((or-part_163)(number? d_37)))" -"(if or-part_163" -" or-part_163" -"(let-values(((or-part_170)(boolean? d_37)))" -"(if or-part_170" -" or-part_170" -"(let-values(((or-part_171)(symbol? d_37)))" -"(if or-part_171" -" or-part_171" -"(let-values(((or-part_172)(string? d_37)))" -"(if or-part_172" -" or-part_172" -"(let-values(((or-part_173)(bytes? d_37)))(if or-part_173 or-part_173(null? d_37)))))))))))" +"(if(let-values(((or-part_155)(number? d_36)))" +"(if or-part_155" +" or-part_155" +"(let-values(((or-part_160)(boolean? d_36)))" +"(if or-part_160" +" or-part_160" +"(let-values(((or-part_161)(symbol? d_36)))" +"(if or-part_161" +" or-part_161" +"(let-values(((or-part_162)(string? d_36)))" +"(if or-part_162" +" or-part_162" +"(let-values(((or-part_245)(bytes? d_36)))(if or-part_245 or-part_245(null? d_36)))))))))))" "(let-values()(void))" -"(let-values()(disallow e_96))))))" +"(let-values()(disallow e_13))))))" "(define-values" "(quoted-string?)" -"(lambda(e_97)(begin(if(parsed-quote? e_97)(string?(parsed-quote-datum e_97)) #f))))" +"(lambda(e_96)(begin(if(parsed-quote? e_96)(string?(parsed-quote-datum e_96)) #f))))" "(define-values" "(cross-phase-primitive-name)" "(lambda(id_152)" @@ -71529,7 +71612,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'module" -"(lambda(s_184 ctx_108)" +"(lambda(s_43 ctx_108)" "(begin" "(if(eq?(expand-context-context ctx_108) 'top-level)" "(void)" @@ -71537,92 +71620,92 @@ static const char *startup_source = "(begin" "(let-values(((obs_122)(expand-context-observer ctx_108)))" "(if obs_122(let-values()(let-values()(call-expand-observe obs_122 'prim-module)))(void)))" -" (raise-syntax-error$1 #f \"allowed only at the top level\" s_184))))" +" (raise-syntax-error$1 #f \"allowed only at the top level\" s_43))))" "(let-values()" -"(let-values(((s223_0) s_184)((ctx224_0) ctx_108)((temp225_1) #f))" +"(let-values(((s223_0) 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_0 ctx224_0 temp225_1)))))))" "(void" "(add-core-form!*" " 'module*" -"(lambda(s_304 ctx_109)" +"(lambda(s_300 ctx_109)" "(begin" "(let-values(((obs_123)(expand-context-observer ctx_109)))" "(if obs_123(let-values()(let-values()(call-expand-observe obs_123 'prim-module)))(void)))" -" (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_304)))))" +" (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_300)))))" "(void" "(add-core-form!*" " '#%module-begin" -"(lambda(s_85 ctx_110)" +"(lambda(s_84 ctx_110)" "(begin" "(let-values(((obs_124)(expand-context-observer ctx_110)))" "(if obs_124(let-values()(let-values()(call-expand-observe obs_124 'prim-module-begin)))(void)))" "(if(eq?(expand-context-context ctx_110) 'module-begin)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a module-definition context\" s_85)))" +" (let-values () (raise-syntax-error$1 #f \"not in a module-definition context\" s_84)))" "(if(expand-context-module-begin-k ctx_110)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_85)))" +" (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_84)))" "((expand-context-module-begin-k ctx_110)" -" s_85" +" s_84" "(let-values(((v_262) ctx_110))" -"(let-values(((the-struct_99) v_262))" -"(if(expand-context/outer? the-struct_99)" +"(let-values(((the-struct_97) v_262))" +"(if(expand-context/outer? the-struct_97)" "(let-values(((inner226_0)" -"(let-values(((the-struct_100)(root-expand-context/outer-inner v_262)))" -"(if(expand-context/inner? the-struct_100)" +"(let-values(((the-struct_98)(root-expand-context/outer-inner v_262)))" +"(if(expand-context/inner? the-struct_98)" "(let-values(((module-begin-k227_0) #f))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_100)" -"(root-expand-context/inner-module-scopes the-struct_100)" -"(root-expand-context/inner-top-level-bind-scope the-struct_100)" -"(root-expand-context/inner-all-scopes-stx the-struct_100)" -"(root-expand-context/inner-defined-syms the-struct_100)" -"(root-expand-context/inner-counter the-struct_100)" -"(root-expand-context/inner-lift-key the-struct_100)" -"(expand-context/inner-to-parsed? the-struct_100)" -"(expand-context/inner-phase the-struct_100)" -"(expand-context/inner-namespace the-struct_100)" -"(expand-context/inner-just-once? the-struct_100)" +"(root-expand-context/inner-self-mpi the-struct_98)" +"(root-expand-context/inner-module-scopes the-struct_98)" +"(root-expand-context/inner-top-level-bind-scope the-struct_98)" +"(root-expand-context/inner-all-scopes-stx the-struct_98)" +"(root-expand-context/inner-defined-syms the-struct_98)" +"(root-expand-context/inner-counter the-struct_98)" +"(root-expand-context/inner-lift-key the-struct_98)" +"(expand-context/inner-to-parsed? the-struct_98)" +"(expand-context/inner-phase the-struct_98)" +"(expand-context/inner-namespace the-struct_98)" +"(expand-context/inner-just-once? the-struct_98)" " module-begin-k227_0" -"(expand-context/inner-allow-unbound? the-struct_100)" -"(expand-context/inner-in-local-expand? the-struct_100)" -"(expand-context/inner-stops the-struct_100)" -"(expand-context/inner-declared-submodule-names the-struct_100)" -"(expand-context/inner-lifts the-struct_100)" -"(expand-context/inner-lift-envs the-struct_100)" -"(expand-context/inner-module-lifts the-struct_100)" -"(expand-context/inner-require-lifts the-struct_100)" -"(expand-context/inner-to-module-lifts the-struct_100)" -"(expand-context/inner-requires+provides the-struct_100)" -"(expand-context/inner-observer the-struct_100)" -"(expand-context/inner-for-serializable? the-struct_100)" -"(expand-context/inner-should-not-encounter-macros? the-struct_100)))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_100)))))" +"(expand-context/inner-allow-unbound? the-struct_98)" +"(expand-context/inner-in-local-expand? the-struct_98)" +"(expand-context/inner-stops the-struct_98)" +"(expand-context/inner-declared-submodule-names the-struct_98)" +"(expand-context/inner-lifts the-struct_98)" +"(expand-context/inner-lift-envs the-struct_98)" +"(expand-context/inner-module-lifts the-struct_98)" +"(expand-context/inner-require-lifts the-struct_98)" +"(expand-context/inner-to-module-lifts the-struct_98)" +"(expand-context/inner-requires+provides the-struct_98)" +"(expand-context/inner-observer the-struct_98)" +"(expand-context/inner-for-serializable? the-struct_98)" +"(expand-context/inner-should-not-encounter-macros? the-struct_98)))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_98)))))" "(expand-context/outer1.1" " inner226_0" -"(root-expand-context/outer-post-expansion-scope the-struct_99)" -"(root-expand-context/outer-use-site-scopes the-struct_99)" -"(root-expand-context/outer-frame-id the-struct_99)" -"(expand-context/outer-context the-struct_99)" -"(expand-context/outer-env the-struct_99)" -"(expand-context/outer-post-expansion-scope-action the-struct_99)" -"(expand-context/outer-scopes the-struct_99)" -"(expand-context/outer-def-ctx-scopes the-struct_99)" -"(expand-context/outer-binding-layer the-struct_99)" -"(expand-context/outer-reference-records the-struct_99)" -"(expand-context/outer-only-immediate? the-struct_99)" -"(expand-context/outer-need-eventually-defined the-struct_99)" -"(expand-context/outer-current-introduction-scopes the-struct_99)" -"(expand-context/outer-name the-struct_99)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_99)))))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_97)" +"(root-expand-context/outer-use-site-scopes the-struct_97)" +"(root-expand-context/outer-frame-id the-struct_97)" +"(expand-context/outer-context the-struct_97)" +"(expand-context/outer-env the-struct_97)" +"(expand-context/outer-post-expansion-scope-action the-struct_97)" +"(expand-context/outer-scopes the-struct_97)" +"(expand-context/outer-def-ctx-scopes the-struct_97)" +"(expand-context/outer-binding-layer the-struct_97)" +"(expand-context/outer-reference-records the-struct_97)" +"(expand-context/outer-only-immediate? the-struct_97)" +"(expand-context/outer-need-eventually-defined the-struct_97)" +"(expand-context/outer-current-introduction-scopes the-struct_97)" +"(expand-context/outer-name the-struct_97)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_97)))))))))" "(void" "(add-core-form!*" " '#%declare" -"(lambda(s_740 ctx_111)" +"(lambda(s_730 ctx_111)" "(begin" "(let-values(((obs_125)(expand-context-observer ctx_111)))" "(if obs_125(let-values()(let-values()(call-expand-observe obs_125 'prim-declare)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_740)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_730)))))" "(define-values" "(expand-module18.1)" "(lambda(always-produce-compiled?1_0" @@ -71673,81 +71756,81 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_24)(syntax-disarm$1 s_16)))" "(let-values(((ok?_75 module228_0 id:module-name229_0 initial-require230_0 body231_0)" -"(let-values(((s_496) disarmed-s_24))" -"(let-values(((orig-s_83) s_496))" +"(let-values(((s_487) disarmed-s_24))" +"(let-values(((orig-s_83) s_487))" "(let-values(((module228_1" " id:module-name229_1" " initial-require230_1" " body231_1)" -"(let-values(((s_311)" -"(if(syntax?$1 s_496)" -"(syntax-e$1 s_496)" -" s_496)))" -"(if(pair? s_311)" +"(let-values(((s_307)" +"(if(syntax?$1 s_487)" +"(syntax-e$1 s_487)" +" s_487)))" +"(if(pair? s_307)" "(let-values(((module232_0)" -"(let-values(((s_497)(car s_311)))" -" s_497))" +"(let-values(((s_488)(car s_307)))" +" s_488))" "((id:module-name233_0" " initial-require234_0" " body235_0)" -"(let-values(((s_743)(cdr s_311)))" -"(let-values(((s_776)" -"(if(syntax?$1 s_743)" -"(syntax-e$1 s_743)" -" s_743)))" -"(if(pair? s_776)" +"(let-values(((s_734)(cdr s_307)))" +"(let-values(((s_768)" +"(if(syntax?$1 s_734)" +"(syntax-e$1 s_734)" +" s_734)))" +"(if(pair? s_768)" "(let-values(((id:module-name236_0)" -"(let-values(((s_483)" +"(let-values(((s_472)" "(car" -" s_776)))" -"(if(let-values(((or-part_379)" +" s_768)))" +"(if(let-values(((or-part_364)" "(if(syntax?$1" -" s_483)" +" s_472)" "(symbol?" "(syntax-e$1" -" s_483))" +" s_472))" " #f)))" -"(if or-part_379" -" or-part_379" +"(if or-part_364" +" or-part_364" "(symbol?" -" s_483)))" -" s_483" +" s_472)))" +" s_472" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_83" -" s_483))))" +" s_472))))" "((initial-require237_0" " body238_0)" -"(let-values(((s_54)" +"(let-values(((s_473)" "(cdr" -" s_776)))" -"(let-values(((s_313)" +" s_768)))" +"(let-values(((s_55)" "(if(syntax?$1" -" s_54)" +" s_473)" "(syntax-e$1" -" s_54)" -" s_54)))" +" s_473)" +" s_473)))" "(if(pair?" -" s_313)" +" s_55)" "(let-values(((initial-require239_0)" -"(let-values(((s_315)" +"(let-values(((s_310)" "(car" -" s_313)))" -" s_315))" +" s_55)))" +" s_310))" "((body240_0)" -"(let-values(((s_316)" +"(let-values(((s_311)" "(cdr" -" s_313)))" -"(let-values(((s_317)" +" s_55)))" +"(let-values(((s_56)" "(if(syntax?$1" -" s_316)" +" s_311)" "(syntax-e$1" -" s_316)" -" s_316)))" +" s_311)" +" s_311)))" "(let-values(((flat-s_53)" "(to-syntax-list.1" -" s_317)))" +" s_56)))" "(if(not" " flat-s_53)" "(let-values()" @@ -71926,22 +72009,22 @@ static const char *startup_source = " #f" " temp266_1))))" "(let-values(((ctx_112)" -"(let-values(((v_102)" +"(let-values(((v_103)" "(copy-root-expand-context" " init-ctx_0" " root-ctx_6)))" -"(let-values(((the-struct_101)" -" v_102))" +"(let-values(((the-struct_0)" +" v_103))" "(if(expand-context/outer?" -" the-struct_101)" +" the-struct_0)" "(let-values(((post-expansion-scope-action267_0)" " add-scope)" "((inner268_0)" -"(let-values(((the-struct_102)" +"(let-values(((the-struct_99)" "(root-expand-context/outer-inner" -" v_102)))" +" v_103)))" "(if(expand-context/inner?" -" the-struct_102)" +" the-struct_99)" "(let-values(((allow-unbound?269_0)" " #f)" "((namespace270_0)" @@ -71952,88 +72035,88 @@ static const char *startup_source = " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_102)" +" the-struct_99)" "(root-expand-context/inner-module-scopes" -" the-struct_102)" +" the-struct_99)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_102)" +" the-struct_99)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_102)" +" the-struct_99)" "(root-expand-context/inner-defined-syms" -" the-struct_102)" +" the-struct_99)" "(root-expand-context/inner-counter" -" the-struct_102)" +" the-struct_99)" "(root-expand-context/inner-lift-key" -" the-struct_102)" +" the-struct_99)" "(expand-context/inner-to-parsed?" -" the-struct_102)" +" the-struct_99)" " phase271_0" " namespace270_0" " just-once?272_0" "(expand-context/inner-module-begin-k" -" the-struct_102)" +" the-struct_99)" " allow-unbound?269_0" "(expand-context/inner-in-local-expand?" -" the-struct_102)" +" the-struct_99)" "(expand-context/inner-stops" -" the-struct_102)" +" the-struct_99)" "(expand-context/inner-declared-submodule-names" -" the-struct_102)" +" the-struct_99)" "(expand-context/inner-lifts" -" the-struct_102)" +" the-struct_99)" "(expand-context/inner-lift-envs" -" the-struct_102)" +" the-struct_99)" "(expand-context/inner-module-lifts" -" the-struct_102)" +" the-struct_99)" "(expand-context/inner-require-lifts" -" the-struct_102)" +" the-struct_99)" "(expand-context/inner-to-module-lifts" -" the-struct_102)" +" the-struct_99)" "(expand-context/inner-requires+provides" -" the-struct_102)" +" the-struct_99)" "(expand-context/inner-observer" -" the-struct_102)" +" the-struct_99)" "(expand-context/inner-for-serializable?" -" the-struct_102)" +" the-struct_99)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_102)))" +" the-struct_99)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_102)))))" +" the-struct_99)))))" "(expand-context/outer1.1" " inner268_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_101)" +" the-struct_0)" "(root-expand-context/outer-use-site-scopes" -" the-struct_101)" +" the-struct_0)" "(root-expand-context/outer-frame-id" -" the-struct_101)" +" the-struct_0)" "(expand-context/outer-context" -" the-struct_101)" +" the-struct_0)" "(expand-context/outer-env" -" the-struct_101)" +" the-struct_0)" " post-expansion-scope-action267_0" "(expand-context/outer-scopes" -" the-struct_101)" +" the-struct_0)" "(expand-context/outer-def-ctx-scopes" -" the-struct_101)" +" the-struct_0)" "(expand-context/outer-binding-layer" -" the-struct_101)" +" the-struct_0)" "(expand-context/outer-reference-records" -" the-struct_101)" +" the-struct_0)" "(expand-context/outer-only-immediate?" -" the-struct_101)" +" the-struct_0)" "(expand-context/outer-need-eventually-defined" -" the-struct_101)" +" the-struct_0)" "(expand-context/outer-current-introduction-scopes" -" the-struct_101)" +" the-struct_0)" "(expand-context/outer-name" -" the-struct_101)))" +" the-struct_0)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_101))))))" +" the-struct_0))))))" "(let-values(((bodys_15)" "(let-values(((scoped-s_0)" "(apply-module-scopes_0" @@ -72043,77 +72126,77 @@ static const char *startup_source = " _274_0" " _275_0" " body276_0)" -"(let-values(((s_777)" +"(let-values(((s_769)" " scoped-s_0))" "(let-values(((orig-s_84)" -" s_777))" +" s_769))" "(let-values(((_273_1" " _274_1" " _275_1" " body276_1)" -"(let-values(((s_406)" +"(let-values(((s_397)" "(if(syntax?$1" -" s_777)" +" s_769)" "(syntax-e$1" -" s_777)" -" s_777)))" +" s_769)" +" s_769)))" "(if(pair?" -" s_406)" +" s_397)" "(let-values(((_277_2)" -"(let-values(((s_753)" +"(let-values(((s_745)" "(car" -" s_406)))" -" s_753))" +" s_397)))" +" s_745))" "((_278_2" " _279_0" " body280_0)" -"(let-values(((s_207)" +"(let-values(((s_202)" "(cdr" -" s_406)))" -"(let-values(((s_392)" +" s_397)))" +"(let-values(((s_383)" "(if(syntax?$1" -" s_207)" +" s_202)" "(syntax-e$1" -" s_207)" -" s_207)))" +" s_202)" +" s_202)))" "(if(pair?" -" s_392)" +" s_383)" "(let-values(((_281_1)" -"(let-values(((s_210)" +"(let-values(((s_205)" "(car" -" s_392)))" -" s_210))" +" s_383)))" +" s_205))" "((_282_0" " body283_0)" -"(let-values(((s_755)" +"(let-values(((s_747)" "(cdr" -" s_392)))" -"(let-values(((s_93)" +" s_383)))" +"(let-values(((s_92)" "(if(syntax?$1" -" s_755)" +" s_747)" "(syntax-e$1" -" s_755)" -" s_755)))" +" s_747)" +" s_747)))" "(if(pair?" -" s_93)" +" s_92)" "(let-values(((_284_0)" -"(let-values(((s_67)" +"(let-values(((s_68)" "(car" -" s_93)))" -" s_67))" +" s_92)))" +" s_68))" "((body285_0)" -"(let-values(((s_150)" +"(let-values(((s_149)" "(cdr" -" s_93)))" -"(let-values(((s_322)" +" s_92)))" +"(let-values(((s_316)" "(if(syntax?$1" -" s_150)" +" s_149)" "(syntax-e$1" -" s_150)" -" s_150)))" +" s_149)" +" s_149)))" "(let-values(((flat-s_54)" "(to-syntax-list.1" -" s_322)))" +" s_316)))" "(if(not" " flat-s_54)" "(let-values()" @@ -72289,18 +72372,18 @@ static const char *startup_source = "(let-values(((ctx_113)" "(let-values(((v_263)" " mb-init-ctx_0))" -"(let-values(((the-struct_103)" +"(let-values(((the-struct_100)" " v_263))" "(if(expand-context/outer?" -" the-struct_103)" +" the-struct_100)" "(let-values(((inner306_0)" -"(let-values(((the-struct_104)" +"(let-values(((the-struct_101)" "(root-expand-context/outer-inner" " v_263)))" "(if(expand-context/inner?" -" the-struct_104)" +" the-struct_101)" "(let-values(((module-begin-k307_0)" -"(lambda(s_301" +"(lambda(s_770" " ctx_114)" "(begin" " 'module-begin-k307" @@ -72337,7 +72420,7 @@ static const char *startup_source = " compiled-module-box313_0)))" "(lambda()" "(module-begin-k_1" -" s_301" +" s_770" " ctx_114))" "(lambda()" "(begin" @@ -72349,92 +72432,92 @@ static const char *startup_source = " compiled-module-box310_0))))))))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_104)" +" the-struct_101)" "(root-expand-context/inner-module-scopes" -" the-struct_104)" +" the-struct_101)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_104)" +" the-struct_101)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_104)" +" the-struct_101)" "(root-expand-context/inner-defined-syms" -" the-struct_104)" +" the-struct_101)" "(root-expand-context/inner-counter" -" the-struct_104)" +" the-struct_101)" "(root-expand-context/inner-lift-key" -" the-struct_104)" +" the-struct_101)" "(expand-context/inner-to-parsed?" -" the-struct_104)" +" the-struct_101)" "(expand-context/inner-phase" -" the-struct_104)" +" the-struct_101)" "(expand-context/inner-namespace" -" the-struct_104)" +" the-struct_101)" "(expand-context/inner-just-once?" -" the-struct_104)" +" the-struct_101)" " module-begin-k307_0" "(expand-context/inner-allow-unbound?" -" the-struct_104)" +" the-struct_101)" "(expand-context/inner-in-local-expand?" -" the-struct_104)" +" the-struct_101)" "(expand-context/inner-stops" -" the-struct_104)" +" the-struct_101)" "(expand-context/inner-declared-submodule-names" -" the-struct_104)" +" the-struct_101)" "(expand-context/inner-lifts" -" the-struct_104)" +" the-struct_101)" "(expand-context/inner-lift-envs" -" the-struct_104)" +" the-struct_101)" "(expand-context/inner-module-lifts" -" the-struct_104)" +" the-struct_101)" "(expand-context/inner-require-lifts" -" the-struct_104)" +" the-struct_101)" "(expand-context/inner-to-module-lifts" -" the-struct_104)" +" the-struct_101)" "(expand-context/inner-requires+provides" -" the-struct_104)" +" the-struct_101)" "(expand-context/inner-observer" -" the-struct_104)" +" the-struct_101)" "(expand-context/inner-for-serializable?" -" the-struct_104)" +" the-struct_101)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_104)))" +" the-struct_101)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_104)))))" +" the-struct_101)))))" "(expand-context/outer1.1" " inner306_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_103)" +" the-struct_100)" "(root-expand-context/outer-use-site-scopes" -" the-struct_103)" +" the-struct_100)" "(root-expand-context/outer-frame-id" -" the-struct_103)" +" the-struct_100)" "(expand-context/outer-context" -" the-struct_103)" +" the-struct_100)" "(expand-context/outer-env" -" the-struct_103)" +" the-struct_100)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_103)" +" the-struct_100)" "(expand-context/outer-scopes" -" the-struct_103)" +" the-struct_100)" "(expand-context/outer-def-ctx-scopes" -" the-struct_103)" +" the-struct_100)" "(expand-context/outer-binding-layer" -" the-struct_103)" +" the-struct_100)" "(expand-context/outer-reference-records" -" the-struct_103)" +" the-struct_100)" "(expand-context/outer-only-immediate?" -" the-struct_103)" +" the-struct_100)" "(expand-context/outer-need-eventually-defined" -" the-struct_103)" +" the-struct_100)" "(expand-context/outer-current-introduction-scopes" -" the-struct_103)" +" the-struct_100)" "(expand-context/outer-name" -" the-struct_103)))" +" the-struct_100)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_103))))))" +" the-struct_100))))))" "(let-values(((added-s_2)" "(add-scope" " mb-s_0" @@ -72459,38 +72542,38 @@ static const char *startup_source = "(let-values(((ok?_77" " #%module-begin301_0" " body302_0)" -"(let-values(((s_221)" +"(let-values(((s_115)" " disarmed-mb-s_0))" "(let-values(((orig-s_85)" -" s_221))" +" s_115))" "(let-values(((#%module-begin301_1" " body302_1)" -"(let-values(((s_222)" +"(let-values(((s_116)" "(if(syntax?$1" -" s_221)" +" s_115)" "(syntax-e$1" -" s_221)" -" s_221)))" +" s_115)" +" s_115)))" "(if(pair?" -" s_222)" +" s_116)" "(let-values(((#%module-begin303_0)" "(let-values(((s_119)" "(car" -" s_222)))" +" s_116)))" " s_119))" "((body304_0)" -"(let-values(((s_120)" +"(let-values(((s_771)" "(cdr" -" s_222)))" -"(let-values(((s_778)" +" s_116)))" +"(let-values(((s_772)" "(if(syntax?$1" -" s_120)" +" s_771)" "(syntax-e$1" -" s_120)" -" s_120)))" +" s_771)" +" s_771)))" "(let-values(((flat-s_55)" "(to-syntax-list.1" -" s_778)))" +" s_772)))" "(if(not" " flat-s_55)" "(let-values()" @@ -72550,10 +72633,10 @@ static const char *startup_source = "(let-values(((partial-body-ctx_0)" "(let-values(((v_264)" " ctx_113))" -"(let-values(((the-struct_105)" +"(let-values(((the-struct_102)" " v_264))" "(if(expand-context/outer?" -" the-struct_105)" +" the-struct_102)" "(let-values(((context326_0)" " 'module)" "((def-ctx-scopes327_0)" @@ -72561,11 +72644,11 @@ static const char *startup_source = "((need-eventually-defined328_0)" " need-eventually-defined_1)" "((inner329_0)" -"(let-values(((the-struct_58)" +"(let-values(((the-struct_57)" "(root-expand-context/outer-inner" " v_264)))" "(if(expand-context/inner?" -" the-struct_58)" +" the-struct_57)" "(let-values(((phase330_0)" " phase_154)" "((namespace331_0)" @@ -72627,81 +72710,81 @@ static const char *startup_source = " phase344_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_58)" +" the-struct_57)" "(root-expand-context/inner-module-scopes" -" the-struct_58)" +" the-struct_57)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_58)" +" the-struct_57)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_58)" +" the-struct_57)" "(root-expand-context/inner-defined-syms" -" the-struct_58)" +" the-struct_57)" "(root-expand-context/inner-counter" -" the-struct_58)" +" the-struct_57)" " lift-key334_0" "(expand-context/inner-to-parsed?" -" the-struct_58)" +" the-struct_57)" " phase330_0" " namespace331_0" "(expand-context/inner-just-once?" -" the-struct_58)" +" the-struct_57)" "(expand-context/inner-module-begin-k" -" the-struct_58)" +" the-struct_57)" "(expand-context/inner-allow-unbound?" -" the-struct_58)" +" the-struct_57)" "(expand-context/inner-in-local-expand?" -" the-struct_58)" +" the-struct_57)" " stops332_0" " declared-submodule-names333_0" " lifts335_0" "(expand-context/inner-lift-envs" -" the-struct_58)" +" the-struct_57)" " module-lifts336_0" " require-lifts337_0" " to-module-lifts338_0" "(expand-context/inner-requires+provides" -" the-struct_58)" +" the-struct_57)" "(expand-context/inner-observer" -" the-struct_58)" +" the-struct_57)" "(expand-context/inner-for-serializable?" -" the-struct_58)" +" the-struct_57)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_58)))" +" the-struct_57)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_58)))))" +" the-struct_57)))))" "(expand-context/outer1.1" " inner329_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_105)" +" the-struct_102)" "(root-expand-context/outer-use-site-scopes" -" the-struct_105)" +" the-struct_102)" "(root-expand-context/outer-frame-id" -" the-struct_105)" +" the-struct_102)" " context326_0" "(expand-context/outer-env" -" the-struct_105)" +" the-struct_102)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_105)" +" the-struct_102)" "(expand-context/outer-scopes" -" the-struct_105)" +" the-struct_102)" " def-ctx-scopes327_0" "(expand-context/outer-binding-layer" -" the-struct_105)" +" the-struct_102)" "(expand-context/outer-reference-records" -" the-struct_105)" +" the-struct_102)" "(expand-context/outer-only-immediate?" -" the-struct_105)" +" the-struct_102)" " need-eventually-defined328_0" "(expand-context/outer-current-introduction-scopes" -" the-struct_105)" +" the-struct_102)" "(expand-context/outer-name" -" the-struct_105)))" +" the-struct_102)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_105))))))" +" the-struct_102))))))" "(let-values(((partially-expanded-bodys_0)" "(let-values(((bodys347_0)" " bodys_17)" @@ -72770,20 +72853,20 @@ static const char *startup_source = "(accumulate-def-ctx-scopes" " partial-body-ctx_0" " def-ctx-scopes_8)))" -"(let-values(((the-struct_106)" +"(let-values(((the-struct_103)" " v_265))" "(if(expand-context/outer?" -" the-struct_106)" +" the-struct_103)" "(let-values(((def-ctx-scopes363_0)" " #f)" "((post-expansion-scope364_0)" " #f)" "((inner365_0)" -"(let-values(((the-struct_107)" +"(let-values(((the-struct_104)" "(root-expand-context/outer-inner" " v_265)))" "(if(expand-context/inner?" -" the-struct_107)" +" the-struct_104)" "(let-values(((stops366_0)" " empty-free-id-set)" "((to-module-lifts367_0)" @@ -72799,89 +72882,89 @@ static const char *startup_source = " phase368_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_107)" +" the-struct_104)" "(root-expand-context/inner-module-scopes" -" the-struct_107)" +" the-struct_104)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_107)" +" the-struct_104)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_107)" +" the-struct_104)" "(root-expand-context/inner-defined-syms" -" the-struct_107)" +" the-struct_104)" "(root-expand-context/inner-counter" -" the-struct_107)" +" the-struct_104)" "(root-expand-context/inner-lift-key" -" the-struct_107)" +" the-struct_104)" "(expand-context/inner-to-parsed?" -" the-struct_107)" +" the-struct_104)" "(expand-context/inner-phase" -" the-struct_107)" +" the-struct_104)" "(expand-context/inner-namespace" -" the-struct_107)" +" the-struct_104)" "(expand-context/inner-just-once?" -" the-struct_107)" +" the-struct_104)" "(expand-context/inner-module-begin-k" -" the-struct_107)" +" the-struct_104)" "(expand-context/inner-allow-unbound?" -" the-struct_107)" +" the-struct_104)" "(expand-context/inner-in-local-expand?" -" the-struct_107)" +" the-struct_104)" " stops366_0" "(expand-context/inner-declared-submodule-names" -" the-struct_107)" +" the-struct_104)" "(expand-context/inner-lifts" -" the-struct_107)" +" the-struct_104)" "(expand-context/inner-lift-envs" -" the-struct_107)" +" the-struct_104)" "(expand-context/inner-module-lifts" -" the-struct_107)" +" the-struct_104)" "(expand-context/inner-require-lifts" -" the-struct_107)" +" the-struct_104)" " to-module-lifts367_0" "(expand-context/inner-requires+provides" -" the-struct_107)" +" the-struct_104)" "(expand-context/inner-observer" -" the-struct_107)" +" the-struct_104)" "(expand-context/inner-for-serializable?" -" the-struct_107)" +" the-struct_104)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_107)))" +" the-struct_104)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_107)))))" +" the-struct_104)))))" "(expand-context/outer1.1" " inner365_0" " post-expansion-scope364_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_106)" +" the-struct_103)" "(root-expand-context/outer-frame-id" -" the-struct_106)" +" the-struct_103)" "(expand-context/outer-context" -" the-struct_106)" +" the-struct_103)" "(expand-context/outer-env" -" the-struct_106)" +" the-struct_103)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_106)" +" the-struct_103)" "(expand-context/outer-scopes" -" the-struct_106)" +" the-struct_103)" " def-ctx-scopes363_0" "(expand-context/outer-binding-layer" -" the-struct_106)" +" the-struct_103)" "(expand-context/outer-reference-records" -" the-struct_106)" +" the-struct_103)" "(expand-context/outer-only-immediate?" -" the-struct_106)" +" the-struct_103)" "(expand-context/outer-need-eventually-defined" -" the-struct_106)" +" the-struct_103)" "(expand-context/outer-current-introduction-scopes" -" the-struct_106)" +" the-struct_103)" "(expand-context/outer-name" -" the-struct_106)))" +" the-struct_103)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_106))))))" +" the-struct_103))))))" "(let-values(((partially-expanded-bodys318_0)" " partially-expanded-bodys_0)" "((phase319_0)" @@ -73004,108 +73087,108 @@ static const char *startup_source = "(let-values(((submod-ctx_0)" "(let-values(((v_266)" " ctx_113))" -"(let-values(((the-struct_108)" +"(let-values(((the-struct_105)" " v_266))" "(if(expand-context/outer?" -" the-struct_108)" +" the-struct_105)" "(let-values(((frame-id380_0)" " #f)" "((post-expansion-scope381_0)" " #f)" "((inner382_0)" -"(let-values(((the-struct_109)" +"(let-values(((the-struct_106)" "(root-expand-context/outer-inner" " v_266)))" "(if(expand-context/inner?" -" the-struct_109)" +" the-struct_106)" "(let-values(((namespace383_0)" " submod-m-ns_0))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_109)" +" the-struct_106)" "(root-expand-context/inner-module-scopes" -" the-struct_109)" +" the-struct_106)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_109)" +" the-struct_106)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_109)" +" the-struct_106)" "(root-expand-context/inner-defined-syms" -" the-struct_109)" +" the-struct_106)" "(root-expand-context/inner-counter" -" the-struct_109)" +" the-struct_106)" "(root-expand-context/inner-lift-key" -" the-struct_109)" +" the-struct_106)" "(expand-context/inner-to-parsed?" -" the-struct_109)" +" the-struct_106)" "(expand-context/inner-phase" -" the-struct_109)" +" the-struct_106)" " namespace383_0" "(expand-context/inner-just-once?" -" the-struct_109)" +" the-struct_106)" "(expand-context/inner-module-begin-k" -" the-struct_109)" +" the-struct_106)" "(expand-context/inner-allow-unbound?" -" the-struct_109)" +" the-struct_106)" "(expand-context/inner-in-local-expand?" -" the-struct_109)" +" the-struct_106)" "(expand-context/inner-stops" -" the-struct_109)" +" the-struct_106)" "(expand-context/inner-declared-submodule-names" -" the-struct_109)" +" the-struct_106)" "(expand-context/inner-lifts" -" the-struct_109)" +" the-struct_106)" "(expand-context/inner-lift-envs" -" the-struct_109)" +" the-struct_106)" "(expand-context/inner-module-lifts" -" the-struct_109)" +" the-struct_106)" "(expand-context/inner-require-lifts" -" the-struct_109)" +" the-struct_106)" "(expand-context/inner-to-module-lifts" -" the-struct_109)" +" the-struct_106)" "(expand-context/inner-requires+provides" -" the-struct_109)" +" the-struct_106)" "(expand-context/inner-observer" -" the-struct_109)" +" the-struct_106)" "(expand-context/inner-for-serializable?" -" the-struct_109)" +" the-struct_106)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_109)))" +" the-struct_106)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_109)))))" +" the-struct_106)))))" "(expand-context/outer1.1" " inner382_0" " post-expansion-scope381_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_108)" +" the-struct_105)" " frame-id380_0" "(expand-context/outer-context" -" the-struct_108)" +" the-struct_105)" "(expand-context/outer-env" -" the-struct_108)" +" the-struct_105)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_108)" +" the-struct_105)" "(expand-context/outer-scopes" -" the-struct_108)" +" the-struct_105)" "(expand-context/outer-def-ctx-scopes" -" the-struct_108)" +" the-struct_105)" "(expand-context/outer-binding-layer" -" the-struct_108)" +" the-struct_105)" "(expand-context/outer-reference-records" -" the-struct_108)" +" the-struct_105)" "(expand-context/outer-only-immediate?" -" the-struct_108)" +" the-struct_105)" "(expand-context/outer-need-eventually-defined" -" the-struct_108)" +" the-struct_105)" "(expand-context/outer-current-introduction-scopes" -" the-struct_108)" +" the-struct_105)" "(expand-context/outer-name" -" the-struct_108)))" +" the-struct_105)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_108))))))" +" the-struct_105))))))" "(let-values(((declare-enclosing-module_0)" "(delay" "(lambda()" @@ -73224,108 +73307,108 @@ static const char *startup_source = "(let-values(((mb-ctx_0)" "(let-values(((v_267)" " ctx_112))" -"(let-values(((the-struct_110)" +"(let-values(((the-struct_107)" " v_267))" "(if(expand-context/outer?" -" the-struct_110)" +" the-struct_107)" "(let-values(((context409_0)" " 'module-begin)" "((inner410_0)" -"(let-values(((the-struct_111)" +"(let-values(((the-struct_108)" "(root-expand-context/outer-inner" " v_267)))" "(if(expand-context/inner?" -" the-struct_111)" +" the-struct_108)" "(let-values(((module-begin-k411_0)" " module-begin-k_1)" "((in-local-expand?412_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_111)" +" the-struct_108)" "(root-expand-context/inner-module-scopes" -" the-struct_111)" +" the-struct_108)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_111)" +" the-struct_108)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_111)" +" the-struct_108)" "(root-expand-context/inner-defined-syms" -" the-struct_111)" +" the-struct_108)" "(root-expand-context/inner-counter" -" the-struct_111)" +" the-struct_108)" "(root-expand-context/inner-lift-key" -" the-struct_111)" +" the-struct_108)" "(expand-context/inner-to-parsed?" -" the-struct_111)" +" the-struct_108)" "(expand-context/inner-phase" -" the-struct_111)" +" the-struct_108)" "(expand-context/inner-namespace" -" the-struct_111)" +" the-struct_108)" "(expand-context/inner-just-once?" -" the-struct_111)" +" the-struct_108)" " module-begin-k411_0" "(expand-context/inner-allow-unbound?" -" the-struct_111)" +" the-struct_108)" " in-local-expand?412_0" "(expand-context/inner-stops" -" the-struct_111)" +" the-struct_108)" "(expand-context/inner-declared-submodule-names" -" the-struct_111)" +" the-struct_108)" "(expand-context/inner-lifts" -" the-struct_111)" +" the-struct_108)" "(expand-context/inner-lift-envs" -" the-struct_111)" +" the-struct_108)" "(expand-context/inner-module-lifts" -" the-struct_111)" +" the-struct_108)" "(expand-context/inner-require-lifts" -" the-struct_111)" +" the-struct_108)" "(expand-context/inner-to-module-lifts" -" the-struct_111)" +" the-struct_108)" "(expand-context/inner-requires+provides" -" the-struct_111)" +" the-struct_108)" "(expand-context/inner-observer" -" the-struct_111)" +" the-struct_108)" "(expand-context/inner-for-serializable?" -" the-struct_111)" +" the-struct_108)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_111)))" +" the-struct_108)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_111)))))" +" the-struct_108)))))" "(expand-context/outer1.1" " inner410_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_110)" +" the-struct_107)" "(root-expand-context/outer-use-site-scopes" -" the-struct_110)" +" the-struct_107)" "(root-expand-context/outer-frame-id" -" the-struct_110)" +" the-struct_107)" " context409_0" "(expand-context/outer-env" -" the-struct_110)" +" the-struct_107)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_110)" +" the-struct_107)" "(expand-context/outer-scopes" -" the-struct_110)" +" the-struct_107)" "(expand-context/outer-def-ctx-scopes" -" the-struct_110)" +" the-struct_107)" "(expand-context/outer-binding-layer" -" the-struct_110)" +" the-struct_107)" "(expand-context/outer-reference-records" -" the-struct_110)" +" the-struct_107)" "(expand-context/outer-only-immediate?" -" the-struct_110)" +" the-struct_107)" "(expand-context/outer-need-eventually-defined" -" the-struct_110)" +" the-struct_107)" "(expand-context/outer-current-introduction-scopes" -" the-struct_110)" +" the-struct_107)" "(expand-context/outer-name" -" the-struct_110)))" +" the-struct_107)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_110))))))" +" the-struct_107))))))" "(let-values(((mb-scopes-s_0)" "(if keep-enclosing-scope-at-phase_0" "(apply-module-scopes_0" @@ -73382,11 +73465,11 @@ static const char *startup_source = " self_32" " self_32)))" "(let-values(((result-form_0)" -"(if(let-values(((or-part_355)" +"(if(let-values(((or-part_342)" "(expand-context-to-parsed?" " init-ctx_0)))" -"(if or-part_355" -" or-part_355" +"(if or-part_342" +" or-part_342" " always-produce-compiled?_0))" "(parsed-module25.1" " rebuild-s_14" @@ -73422,7 +73505,7 @@ static const char *startup_source = "(begin" "(imitate-generic-module-path-index!" " self_32)" -"(let-values(((lst_145)" +"(let-values(((lst_147)" "(unbox" " mpis-to-reset_0)))" "(begin" @@ -73431,19 +73514,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_145)))" +" lst_147)))" "((letrec-values(((for-loop_139)" -"(lambda(lst_423)" +"(lambda(lst_428)" "(begin" " 'for-loop" "(if(pair?" -" lst_423)" +" lst_428)" "(let-values(((mpi_59)" "(unsafe-car" -" lst_423))" -"((rest_245)" +" lst_428))" +"((rest_246)" "(unsafe-cdr" -" lst_423)))" +" lst_428)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -73457,11 +73540,11 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_139" -" rest_245)" +" rest_246)" "(values))))" "(values))))))" " for-loop_139)" -" lst_145)))" +" lst_147)))" "(void)" "(let-values(((result-s_15)" "(let-values(((rebuild-s423_0)" @@ -73544,39 +73627,39 @@ static const char *startup_source = "(let-values(((ctx_115) ctx24_0))" "(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))" "(let-values(((phase_155) phase26_3))" -"(let-values(((s_779) s27_2))" +"(let-values(((s_773) s27_2))" "(let-values()" "(let-values(((make-mb-ctx_0)" "(lambda()" "(begin" " 'make-mb-ctx" "(let-values(((v_268) ctx_115))" -"(let-values(((the-struct_112) v_268))" -"(if(expand-context/outer? the-struct_112)" +"(let-values(((the-struct_109) v_268))" +"(if(expand-context/outer? the-struct_109)" "(let-values(((context428_0) 'module-begin)" "((only-immediate?429_0) #t)" "((def-ctx-scopes430_0) def-ctx-scopes_9)" "((inner431_0)(root-expand-context/outer-inner v_268)))" "(expand-context/outer1.1" " inner431_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)" +"(root-expand-context/outer-post-expansion-scope the-struct_109)" +"(root-expand-context/outer-use-site-scopes the-struct_109)" +"(root-expand-context/outer-frame-id the-struct_109)" " context428_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-env the-struct_109)" +"(expand-context/outer-post-expansion-scope-action the-struct_109)" +"(expand-context/outer-scopes the-struct_109)" " def-ctx-scopes430_0" -"(expand-context/outer-binding-layer the-struct_112)" -"(expand-context/outer-reference-records the-struct_112)" +"(expand-context/outer-binding-layer the-struct_109)" +"(expand-context/outer-reference-records the-struct_109)" " only-immediate?429_0" -"(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)))" +"(expand-context/outer-need-eventually-defined the-struct_109)" +"(expand-context/outer-current-introduction-scopes the-struct_109)" +"(expand-context/outer-name the-struct_109)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_112))))))))" +" the-struct_109))))))))" "(let-values(((mb_1)" "(if(= 1(length bodys_18))" "(let-values()" @@ -73608,7 +73691,7 @@ static const char *startup_source = "(let-values() partly-expanded-body_0)" "(let-values()" "(let-values(((temp434_0)(list partly-expanded-body_0))" -"((s435_0) s_779)" +"((s435_0) s_773)" "((scopes-s436_0) scopes-s_0)" "((phase437_0) phase_155)" "((module-name-sym438_0) module-name-sym_1)" @@ -73625,7 +73708,7 @@ static const char *startup_source = " temp439_0)))))))))" "(let-values()" "(let-values(((bodys441_0) bodys_18)" -"((s442_0) s_779)" +"((s442_0) s_773)" "((scopes-s443_0) scopes-s_0)" "((phase444_0) phase_155)" "((module-name-sym445_0) module-name-sym_1)" @@ -73653,7 +73736,7 @@ static const char *startup_source = "(begin" " 'add-module-begin47" "(let-values(((bodys_19) bodys41_0))" -"(let-values(((s_138) s42_0))" +"(let-values(((s_521) s42_0))" "(let-values(((scopes-s_1) scopes-s43_0))" "(let-values(((phase_156) phase44_1))" "(let-values(((module-name-sym_2) module-name-sym45_0))" @@ -73671,10 +73754,10 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"no #%module-begin binding in the module's language\"" -" s_138)))" +" s_521)))" "(values))))" "(let-values(((mb_2)" -"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_138 s_138)))" +"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_521 s_521)))" "(let-values((()" "(begin" "(let-values(((obs_132)(expand-context-observer mb-ctx_1)))" @@ -73710,7 +73793,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"expansion of #%module-begin is not a #%plain-module-begin form\"" -" s_138" +" s_521" " partly-expanded-mb_0)))" " partly-expanded-mb_0)))))))))))))))))))" "(define-values" @@ -73726,13 +73809,13 @@ static const char *startup_source = " enclosing-self_2" " enclosing-mod_2)" "(begin" -"(lambda(s_780)" +"(lambda(s_774)" "(let-values()" "(let-values(((s-without-enclosing_0)" "(if keep-enclosing-scope-at-phase_1" -" s_780" +" s_774" "(remove-use-site-scopes" -"(remove-scopes s_780(root-expand-context-module-scopes init-ctx_1))" +"(remove-scopes s_774(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)))" @@ -73802,7 +73885,7 @@ static const char *startup_source = "(let-values()" "(begin" "(namespace-visit-available-modules! m-ns_19 phase_157)" -"((letrec-values(((loop_124)" +"((letrec-values(((loop_125)" "(lambda(tail?_52 bodys_21)" "(begin" " 'loop" @@ -73848,7 +73931,7 @@ static const char *startup_source = "(if(null? bodys_22)" "(let-values() null)" "(let-values()" -"(loop_124" +"(loop_125" " #t" "(add-post-expansion-scope" " bodys_22" @@ -73912,49 +73995,49 @@ static const char *startup_source = "(lambda()" "(begin" " 'finish" -"(let-values(((tmp_67)" +"(let-values(((tmp_68)" "(core-form-sym" " disarmed-exp-body_1" " phase_157)))" "(if(equal?" -" tmp_67" +" tmp_68" " 'begin)" "(let-values()" "(let-values(((ok?_78" " begin460_0" " e461_1)" -"(let-values(((s_781)" +"(let-values(((s_775)" " disarmed-exp-body_1))" "(let-values(((orig-s_86)" -" s_781))" +" s_775))" "(let-values(((begin460_1" " e461_2)" -"(let-values(((s_782)" +"(let-values(((s_776)" "(if(syntax?$1" -" s_781)" +" s_775)" "(syntax-e$1" -" s_781)" -" s_781)))" +" s_775)" +" s_775)))" "(if(pair?" -" s_782)" +" s_776)" "(let-values(((begin462_0)" -"(let-values(((s_783)" +"(let-values(((s_777)" "(car" -" s_782)))" -" s_783))" +" s_776)))" +" s_777))" "((e463_0)" -"(let-values(((s_784)" +"(let-values(((s_778)" "(cdr" -" s_782)))" -"(let-values(((s_785)" +" s_776)))" +"(let-values(((s_779)" "(if(syntax?$1" -" s_784)" +" s_778)" "(syntax-e$1" -" s_784)" -" s_784)))" +" s_778)" +" s_778)))" "(let-values(((flat-s_56)" "(to-syntax-list.1" -" s_785)))" +" s_779)))" "(if(not" " flat-s_56)" "(let-values()" @@ -73976,11 +74059,11 @@ static const char *startup_source = " begin460_1" " e461_2))))))" "(let-values(((track_1)" -"(lambda(e_98)" +"(lambda(e_97)" "(begin" " 'track" "(syntax-track-origin$1" -" e_98" +" e_97" " exp-body_7)))))" "(let-values(((spliced-bodys_0)" "(append" @@ -74000,11 +74083,11 @@ static const char *startup_source = " 'splice" " spliced-bodys_0)))" "(void)))" -"(loop_124" +"(loop_125" " tail?_52" " spliced-bodys_0))))))" "(if(equal?" -" tmp_67" +" tmp_68" " 'begin-for-syntax)" "(let-values()" "(let-values((()" @@ -74054,38 +74137,38 @@ static const char *startup_source = "(let-values(((ok?_79" " begin-for-syntax464_0" " e465_0)" -"(let-values(((s_786)" +"(let-values(((s_780)" " disarmed-exp-body_1))" "(let-values(((orig-s_87)" -" s_786))" +" s_780))" "(let-values(((begin-for-syntax464_1" " e465_1)" -"(let-values(((s_787)" +"(let-values(((s_781)" "(if(syntax?$1" -" s_786)" +" s_780)" "(syntax-e$1" -" s_786)" -" s_786)))" +" s_780)" +" s_780)))" "(if(pair?" -" s_787)" +" s_781)" "(let-values(((begin-for-syntax466_0)" -"(let-values(((s_788)" +"(let-values(((s_782)" "(car" -" s_787)))" -" s_788))" +" s_781)))" +" s_782))" "((e467_0)" -"(let-values(((s_789)" +"(let-values(((s_783)" "(cdr" -" s_787)))" -"(let-values(((s_790)" +" s_781)))" +"(let-values(((s_784)" "(if(syntax?$1" -" s_789)" +" s_783)" "(syntax-e$1" -" s_789)" -" s_789)))" +" s_783)" +" s_783)))" "(let-values(((flat-s_57)" "(to-syntax-list.1" -" s_790)))" +" s_784)))" "(if(not" " flat-s_57)" "(let-values()" @@ -74147,7 +74230,7 @@ static const char *startup_source = " 'exit-prim" "(let-values(((s-nested-bodys_0)" "(reverse$1" -"(let-values(((lst_424)" +"(let-values(((lst_429)" " nested-bodys_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74155,20 +74238,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_424)))" -"((letrec-values(((for-loop_324)" +" lst_429)))" +"((letrec-values(((for-loop_323)" "(lambda(fold-var_368" -" lst_425)" +" lst_430)" "(begin" " 'for-loop" "(if(pair?" -" lst_425)" +" lst_430)" "(let-values(((nested-body_0)" "(unsafe-car" -" lst_425))" -"((rest_246)" +" lst_430))" +"((rest_247)" "(unsafe-cdr" -" lst_425)))" +" lst_430)))" "(let-values(((fold-var_381)" "(let-values(((fold-var_382)" " fold-var_368))" @@ -74183,14 +74266,14 @@ static const char *startup_source = " fold-var_383)))))" "(if(not" " #f)" -"(for-loop_324" +"(for-loop_323" " fold-var_381" -" rest_246)" +" rest_247)" " fold-var_381)))" " fold-var_368)))))" -" for-loop_324)" +" for-loop_323)" " null" -" lst_424))))))" +" lst_429))))))" "(datum->syntax$1" " #f" "(cons" @@ -74202,11 +74285,11 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax3.1" " exp-body_7" " nested-bodys_1)" -"(loop_124" +"(loop_125" " tail?_52" " rest-bodys_1))))))))))" "(if(equal?" -" tmp_67" +" tmp_68" " 'define-values)" "(let-values()" "(let-values((()" @@ -74231,52 +74314,52 @@ static const char *startup_source = " define-values468_0" " id469_0" " rhs470_0)" -"(let-values(((s_791)" +"(let-values(((s_785)" " disarmed-exp-body_1))" "(let-values(((orig-s_88)" -" s_791))" +" s_785))" "(let-values(((define-values468_1" " id469_1" " rhs470_1)" -"(let-values(((s_792)" +"(let-values(((s_786)" "(if(syntax?$1" -" s_791)" +" s_785)" "(syntax-e$1" -" s_791)" -" s_791)))" +" s_785)" +" s_785)))" "(if(pair?" -" s_792)" +" s_786)" "(let-values(((define-values471_0)" -"(let-values(((s_793)" +"(let-values(((s_787)" "(car" -" s_792)))" -" s_793))" +" s_786)))" +" s_787))" "((id472_0" " rhs473_0)" -"(let-values(((s_194)" +"(let-values(((s_189)" "(cdr" -" s_792)))" -"(let-values(((s_794)" +" s_786)))" +"(let-values(((s_788)" "(if(syntax?$1" -" s_194)" +" s_189)" "(syntax-e$1" -" s_194)" -" s_194)))" +" s_189)" +" s_189)))" "(if(pair?" -" s_794)" +" s_788)" "(let-values(((id474_0)" -"(let-values(((s_795)" +"(let-values(((s_789)" "(car" -" s_794)))" -"(let-values(((s_796)" +" s_788)))" +"(let-values(((s_790)" "(if(syntax?$1" -" s_795)" +" s_789)" "(syntax-e$1" -" s_795)" -" s_795)))" +" s_789)" +" s_789)))" "(let-values(((flat-s_58)" "(to-syntax-list.1" -" s_796)))" +" s_790)))" "(if(not" " flat-s_58)" "(let-values()" @@ -74286,7 +74369,7 @@ static const char *startup_source = " orig-s_88))" "(let-values()" "(let-values(((id_153)" -"(let-values(((lst_426)" +"(let-values(((lst_431)" " flat-s_58))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74294,20 +74377,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_426)))" -"((letrec-values(((for-loop_325)" +" lst_431)))" +"((letrec-values(((for-loop_324)" "(lambda(id_154" -" lst_427)" +" lst_432)" "(begin" " 'for-loop" "(if(pair?" -" lst_427)" -"(let-values(((s_797)" +" lst_432)" +"(let-values(((s_791)" "(unsafe-car" -" lst_427))" -"((rest_247)" +" lst_432))" +"((rest_248)" "(unsafe-cdr" -" lst_427)))" +" lst_432)))" "(let-values(((id_155)" "(let-values(((id_156)" " id_154))" @@ -74315,23 +74398,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id484_0)" "(let-values()" -"(if(let-values(((or-part_407)" +"(if(let-values(((or-part_393)" "(if(syntax?$1" -" s_797)" +" s_791)" "(symbol?" "(syntax-e$1" -" s_797))" +" s_791))" " #f)))" -"(if or-part_407" -" or-part_407" +"(if or-part_393" +" or-part_393" "(symbol?" -" s_797)))" -" s_797" +" s_791)))" +" s_791" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_88" -" s_797)))))" +" s_791)))))" "(cons" " id484_0" " id_156)))))" @@ -74339,45 +74422,45 @@ static const char *startup_source = " id_157)))))" "(if(not" " #f)" -"(for-loop_325" +"(for-loop_324" " id_155" -" rest_247)" +" rest_248)" " id_155)))" " id_154)))))" -" for-loop_325)" +" for-loop_324)" " null" -" lst_426)))))" +" lst_431)))))" "(reverse$1" " id_153))))))))" "((rhs475_0)" -"(let-values(((s_798)" +"(let-values(((s_792)" "(cdr" -" s_794)))" -"(let-values(((s_799)" +" s_788)))" +"(let-values(((s_793)" "(if(syntax?$1" -" s_798)" +" s_792)" "(syntax-e$1" -" s_798)" -" s_798)))" +" s_792)" +" s_792)))" "(if(pair?" -" s_799)" +" s_793)" "(let-values(((rhs476_0)" -"(let-values(((s_800)" +"(let-values(((s_794)" "(car" -" s_799)))" -" s_800))" +" s_793)))" +" s_794))" "(()" -"(let-values(((s_801)" +"(let-values(((s_795)" "(cdr" -" s_799)))" -"(let-values(((s_802)" +" s_793)))" +"(let-values(((s_796)" "(if(syntax?$1" -" s_801)" +" s_795)" "(syntax-e$1" -" s_801)" -" s_801)))" +" s_795)" +" s_795)))" "(if(null?" -" s_802)" +" s_796)" "(values)" "(raise-syntax-error$1" " #f" @@ -74506,11 +74589,11 @@ static const char *startup_source = " syms_24" " ids_43" " rhs470_0)" -"(loop_124" +"(loop_125" " tail?_52" " rest-bodys_1))))))))))" "(if(equal?" -" tmp_67" +" tmp_68" " 'define-syntaxes)" "(let-values()" "(let-values((()" @@ -74556,52 +74639,52 @@ static const char *startup_source = " define-syntaxes493_0" " id494_0" " rhs495_0)" -"(let-values(((s_803)" +"(let-values(((s_797)" " disarmed-exp-body_1))" "(let-values(((orig-s_89)" -" s_803))" +" s_797))" "(let-values(((define-syntaxes493_1" " id494_1" " rhs495_1)" -"(let-values(((s_804)" +"(let-values(((s_798)" "(if(syntax?$1" -" s_803)" +" s_797)" "(syntax-e$1" -" s_803)" -" s_803)))" +" s_797)" +" s_797)))" "(if(pair?" -" s_804)" +" s_798)" "(let-values(((define-syntaxes496_0)" -"(let-values(((s_805)" +"(let-values(((s_799)" "(car" -" s_804)))" -" s_805))" +" s_798)))" +" s_799))" "((id497_0" " rhs498_0)" -"(let-values(((s_806)" +"(let-values(((s_800)" "(cdr" -" s_804)))" -"(let-values(((s_807)" +" s_798)))" +"(let-values(((s_801)" "(if(syntax?$1" -" s_806)" +" s_800)" "(syntax-e$1" -" s_806)" -" s_806)))" +" s_800)" +" s_800)))" "(if(pair?" -" s_807)" +" s_801)" "(let-values(((id499_0)" -"(let-values(((s_808)" +"(let-values(((s_802)" "(car" -" s_807)))" -"(let-values(((s_809)" +" s_801)))" +"(let-values(((s_803)" "(if(syntax?$1" -" s_808)" +" s_802)" "(syntax-e$1" -" s_808)" -" s_808)))" +" s_802)" +" s_802)))" "(let-values(((flat-s_59)" "(to-syntax-list.1" -" s_809)))" +" s_803)))" "(if(not" " flat-s_59)" "(let-values()" @@ -74611,7 +74694,7 @@ static const char *startup_source = " orig-s_89))" "(let-values()" "(let-values(((id_158)" -"(let-values(((lst_428)" +"(let-values(((lst_433)" " flat-s_59))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74619,20 +74702,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_428)))" -"((letrec-values(((for-loop_326)" +" lst_433)))" +"((letrec-values(((for-loop_325)" "(lambda(id_159" -" lst_429)" +" lst_434)" "(begin" " 'for-loop" "(if(pair?" -" lst_429)" -"(let-values(((s_810)" +" lst_434)" +"(let-values(((s_804)" "(unsafe-car" -" lst_429))" -"((rest_248)" +" lst_434))" +"((rest_249)" "(unsafe-cdr" -" lst_429)))" +" lst_434)))" "(let-values(((id_160)" "(let-values(((id_161)" " id_159))" @@ -74640,23 +74723,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id509_0)" "(let-values()" -"(if(let-values(((or-part_408)" +"(if(let-values(((or-part_394)" "(if(syntax?$1" -" s_810)" +" s_804)" "(symbol?" "(syntax-e$1" -" s_810))" +" s_804))" " #f)))" -"(if or-part_408" -" or-part_408" +"(if or-part_394" +" or-part_394" "(symbol?" -" s_810)))" -" s_810" +" s_804)))" +" s_804" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_89" -" s_810)))))" +" s_804)))))" "(cons" " id509_0" " id_161)))))" @@ -74664,45 +74747,45 @@ static const char *startup_source = " id_162)))))" "(if(not" " #f)" -"(for-loop_326" +"(for-loop_325" " id_160" -" rest_248)" +" rest_249)" " id_160)))" " id_159)))))" -" for-loop_326)" +" for-loop_325)" " null" -" lst_428)))))" +" lst_433)))))" "(reverse$1" " id_158))))))))" "((rhs500_0)" -"(let-values(((s_811)" +"(let-values(((s_805)" "(cdr" -" s_807)))" -"(let-values(((s_812)" +" s_801)))" +"(let-values(((s_806)" "(if(syntax?$1" -" s_811)" +" s_805)" "(syntax-e$1" -" s_811)" -" s_811)))" +" s_805)" +" s_805)))" "(if(pair?" -" s_812)" +" s_806)" "(let-values(((rhs501_0)" -"(let-values(((s_813)" +"(let-values(((s_807)" "(car" -" s_812)))" -" s_813))" +" s_806)))" +" s_807))" "(()" -"(let-values(((s_814)" +"(let-values(((s_808)" "(cdr" -" s_812)))" -"(let-values(((s_815)" +" s_806)))" +"(let-values(((s_809)" "(if(syntax?$1" -" s_814)" +" s_808)" "(syntax-e$1" -" s_814)" -" s_814)))" +" s_808)" +" s_808)))" "(if(null?" -" s_815)" +" s_809)" "(values)" "(raise-syntax-error$1" " #f" @@ -74822,18 +74905,18 @@ static const char *startup_source = "((temp521_0)" "(let-values(((v_269)" " partial-body-ctx_1))" -"(let-values(((the-struct_113)" +"(let-values(((the-struct_110)" " v_269))" "(if(expand-context/outer?" -" the-struct_113)" +" the-struct_110)" "(let-values(((need-eventually-defined523_0)" " need-eventually-defined_2)" "((inner524_0)" -"(let-values(((the-struct_114)" +"(let-values(((the-struct_111)" "(root-expand-context/outer-inner" " v_269)))" "(if(expand-context/inner?" -" the-struct_114)" +" the-struct_111)" "(let-values(((lifts525_0)" " #f)" "((module-lifts526_0)" @@ -74842,89 +74925,89 @@ static const char *startup_source = " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_114)" +" the-struct_111)" "(root-expand-context/inner-module-scopes" -" the-struct_114)" +" the-struct_111)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_114)" +" the-struct_111)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_114)" +" the-struct_111)" "(root-expand-context/inner-defined-syms" -" the-struct_114)" +" the-struct_111)" "(root-expand-context/inner-counter" -" the-struct_114)" +" the-struct_111)" "(root-expand-context/inner-lift-key" -" the-struct_114)" +" the-struct_111)" "(expand-context/inner-to-parsed?" -" the-struct_114)" +" the-struct_111)" "(expand-context/inner-phase" -" the-struct_114)" +" the-struct_111)" "(expand-context/inner-namespace" -" the-struct_114)" +" the-struct_111)" "(expand-context/inner-just-once?" -" the-struct_114)" +" the-struct_111)" "(expand-context/inner-module-begin-k" -" the-struct_114)" +" the-struct_111)" "(expand-context/inner-allow-unbound?" -" the-struct_114)" +" the-struct_111)" "(expand-context/inner-in-local-expand?" -" the-struct_114)" +" the-struct_111)" "(expand-context/inner-stops" -" the-struct_114)" +" the-struct_111)" "(expand-context/inner-declared-submodule-names" -" the-struct_114)" +" the-struct_111)" " lifts525_0" "(expand-context/inner-lift-envs" -" the-struct_114)" +" the-struct_111)" " module-lifts526_0" "(expand-context/inner-require-lifts" -" the-struct_114)" +" the-struct_111)" " to-module-lifts527_0" "(expand-context/inner-requires+provides" -" the-struct_114)" +" the-struct_111)" "(expand-context/inner-observer" -" the-struct_114)" +" the-struct_111)" "(expand-context/inner-for-serializable?" -" the-struct_114)" +" the-struct_111)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_114)))" +" the-struct_111)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_114)))))" +" the-struct_111)))))" "(expand-context/outer1.1" " inner524_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_113)" +" the-struct_110)" "(root-expand-context/outer-use-site-scopes" -" the-struct_113)" +" the-struct_110)" "(root-expand-context/outer-frame-id" -" the-struct_113)" +" the-struct_110)" "(expand-context/outer-context" -" the-struct_113)" +" the-struct_110)" "(expand-context/outer-env" -" the-struct_113)" +" the-struct_110)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_113)" +" the-struct_110)" "(expand-context/outer-scopes" -" the-struct_113)" +" the-struct_110)" "(expand-context/outer-def-ctx-scopes" -" the-struct_113)" +" the-struct_110)" "(expand-context/outer-binding-layer" -" the-struct_113)" +" the-struct_110)" "(expand-context/outer-reference-records" -" the-struct_113)" +" the-struct_110)" "(expand-context/outer-only-immediate?" -" the-struct_113)" +" the-struct_110)" " need-eventually-defined523_0" "(expand-context/outer-current-introduction-scopes" -" the-struct_113)" +" the-struct_110)" "(expand-context/outer-name" -" the-struct_113)))" +" the-struct_110)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_113)))))" +" the-struct_110)))))" "((temp522_0)" " #f))" "(expand+eval-for-syntaxes-binding74.1" @@ -74935,11 +75018,11 @@ static const char *startup_source = " temp521_0))))" "(let-values((()" "(begin" -"(let-values(((lst_430)" +"(let-values(((lst_435)" " syms_25)" -"((lst_431)" +"((lst_436)" " vals_10)" -"((lst_432)" +"((lst_437)" " ids_44))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74947,51 +75030,51 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_430)))" +" lst_435)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_431)))" +" lst_436)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_432)))" -"((letrec-values(((for-loop_327)" -"(lambda(lst_433" -" lst_434" -" lst_435)" +" lst_437)))" +"((letrec-values(((for-loop_326)" +"(lambda(lst_438" +" lst_439" +" lst_440)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_433)" +" lst_438)" "(if(pair?" -" lst_434)" +" lst_439)" "(pair?" -" lst_435)" +" lst_440)" " #f)" " #f)" "(let-values(((sym_104)" "(unsafe-car" -" lst_433))" -"((rest_249)" -"(unsafe-cdr" -" lst_433))" -"((val_87)" -"(unsafe-car" -" lst_434))" +" lst_438))" "((rest_250)" "(unsafe-cdr" -" lst_434))" -"((id_163)" +" lst_438))" +"((val_87)" "(unsafe-car" -" lst_435))" +" lst_439))" "((rest_251)" "(unsafe-cdr" -" lst_435)))" +" lst_439))" +"((id_163)" +"(unsafe-car" +" lst_440))" +"((rest_252)" +"(unsafe-cdr" +" lst_440)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75013,16 +75096,16 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_327" -" rest_249" +"(for-loop_326" " rest_250" -" rest_251)" +" rest_251" +" rest_252)" "(values))))" "(values))))))" -" for-loop_327)" -" lst_430" -" lst_431" -" lst_432)))" +" for-loop_326)" +" lst_435" +" lst_436" +" lst_437)))" "(values))))" "(let-values()" "(let-values((()" @@ -75069,11 +75152,11 @@ static const char *startup_source = " exp-body528_0" " temp529_0))" " parsed-body_0))" -"(loop_124" +"(loop_125" " tail?_52" " rest-bodys_1)))))))))))))))))" "(if(equal?" -" tmp_67" +" tmp_68" " '#%require)" "(let-values()" "(let-values((()" @@ -75101,38 +75184,38 @@ static const char *startup_source = "(let-values(((ok?_82" " #%require530_0" " req531_0)" -"(let-values(((s_546)" +"(let-values(((s_536)" " ready-body_0))" "(let-values(((orig-s_90)" -" s_546))" +" s_536))" "(let-values(((#%require530_1" " req531_1)" -"(let-values(((s_816)" +"(let-values(((s_810)" "(if(syntax?$1" -" s_546)" +" s_536)" "(syntax-e$1" -" s_546)" -" s_546)))" +" s_536)" +" s_536)))" "(if(pair?" -" s_816)" +" s_810)" "(let-values(((#%require532_0)" -"(let-values(((s_817)" +"(let-values(((s_811)" "(car" -" s_816)))" -" s_817))" +" s_810)))" +" s_811))" "((req533_0)" -"(let-values(((s_818)" +"(let-values(((s_812)" "(cdr" -" s_816)))" -"(let-values(((s_819)" +" s_810)))" +"(let-values(((s_813)" "(if(syntax?$1" -" s_818)" +" s_812)" "(syntax-e$1" -" s_818)" -" s_818)))" +" s_812)" +" s_812)))" "(let-values(((flat-s_60)" "(to-syntax-list.1" -" s_819)))" +" s_813)))" "(if(not" " flat-s_60)" "(let-values()" @@ -75210,20 +75293,20 @@ static const char *startup_source = "(void)))" "(cons" " exp-body_7" -"(loop_124" +"(loop_125" " tail?_52" " rest-bodys_1)))))))" "(if(equal?" -" tmp_67" +" tmp_68" " '#%provide)" "(let-values()" "(cons" " exp-body_7" -"(loop_124" +"(loop_125" " tail?_52" " rest-bodys_1)))" "(if(equal?" -" tmp_67" +" tmp_68" " 'module)" "(let-values()" "(let-values(((ready-body_1)" @@ -75266,11 +75349,11 @@ static const char *startup_source = " partial-body-ctx545_0))))" "(cons" " submod_2" -"(loop_124" +"(loop_125" " tail?_52" " rest-bodys_1)))))" "(if(equal?" -" tmp_67" +" tmp_68" " 'module*)" "(let-values()" "(begin" @@ -75295,48 +75378,48 @@ static const char *startup_source = "(void)))" "(cons" " exp-body_7" -"(loop_124" +"(loop_125" " tail?_52" " rest-bodys_1))))" "(if(equal?" -" tmp_67" +" tmp_68" " '#%declare)" "(let-values()" "(let-values(((ok?_83" " #%declare551_0" " kw552_0)" -"(let-values(((s_820)" +"(let-values(((s_814)" " disarmed-exp-body_1))" "(let-values(((orig-s_91)" -" s_820))" +" s_814))" "(let-values(((#%declare551_1" " kw552_1)" -"(let-values(((s_821)" +"(let-values(((s_815)" "(if(syntax?$1" -" s_820)" +" s_814)" "(syntax-e$1" -" s_820)" -" s_820)))" +" s_814)" +" s_814)))" "(if(pair?" -" s_821)" +" s_815)" "(let-values(((#%declare553_0)" -"(let-values(((s_822)" +"(let-values(((s_816)" "(car" -" s_821)))" -" s_822))" +" s_815)))" +" s_816))" "((kw554_0)" -"(let-values(((s_823)" +"(let-values(((s_817)" "(cdr" -" s_821)))" -"(let-values(((s_824)" +" s_815)))" +"(let-values(((s_818)" "(if(syntax?$1" -" s_823)" +" s_817)" "(syntax-e$1" -" s_823)" -" s_823)))" +" s_817)" +" s_817)))" "(let-values(((flat-s_61)" "(to-syntax-list.1" -" s_824)))" +" s_818)))" "(if(not" " flat-s_61)" "(let-values()" @@ -75359,7 +75442,7 @@ static const char *startup_source = " kw552_1))))))" "(let-values((()" "(begin" -"(let-values(((lst_436)" +"(let-values(((lst_441)" " kw552_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -75367,19 +75450,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_436)))" -"((letrec-values(((for-loop_328)" -"(lambda(lst_437)" +" lst_441)))" +"((letrec-values(((for-loop_327)" +"(lambda(lst_442)" "(begin" " 'for-loop" "(if(pair?" -" lst_437)" +" lst_442)" "(let-values(((kw_1)" "(unsafe-car" -" lst_437))" -"((rest_252)" +" lst_442))" +"((rest_253)" "(unsafe-cdr" -" lst_437)))" +" lst_442)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75430,12 +75513,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_328" -" rest_252)" +"(for-loop_327" +" rest_253)" "(values))))" "(values))))))" -" for-loop_328)" -" lst_436)))" +" for-loop_327)" +" lst_441)))" "(values))))" "(let-values()" "(let-values(((parsed-body_1)" @@ -75448,13 +75531,13 @@ static const char *startup_source = "(expanded+parsed1.1" " exp-body_7" " parsed-body_1))" -"(loop_124" +"(loop_125" " tail?_52" " rest-bodys_1)))))))" "(let-values()" "(cons" " exp-body_7" -"(loop_124" +"(loop_125" " tail?_52" " rest-bodys_1)))))))))))))))))" "(let-values(((l_83)" @@ -75463,7 +75546,7 @@ static const char *startup_source = "(expand-context-require-lifts" " partial-body-ctx_1))" " lifted-defns_0" -"(loop_124" +"(loop_125" " #f" "(add-post-expansion-scope" "(get-and-clear-module-lifts!" @@ -75475,7 +75558,7 @@ static const char *startup_source = "(append" " l_83" "(finish_2)))))))))))))))))" -" loop_124)" +" loop_125)" " #t" " bodys_20))))))))))))))))))))))" "(define-values" @@ -75485,18 +75568,18 @@ static const char *startup_source = "(lambda(ids_45 rhs_22 phase_158)" "(let-values(((scoped-ids_0)" "(reverse$1" -"(let-values(((lst_438) ids_45))" +"(let-values(((lst_443) ids_45))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_438)))" -"((letrec-values(((for-loop_329)" -"(lambda(fold-var_384 lst_439)" +"(let-values()(check-list lst_443)))" +"((letrec-values(((for-loop_328)" +"(lambda(fold-var_384 lst_444)" "(begin" " 'for-loop" -"(if(pair? lst_439)" -"(let-values(((id_164)(unsafe-car lst_439))" -"((rest_253)(unsafe-cdr lst_439)))" +"(if(pair? lst_444)" +"(let-values(((id_164)(unsafe-car lst_444))" +"((rest_254)(unsafe-cdr lst_444)))" "(let-values(((fold-var_385)" "(let-values(((fold-var_386) fold-var_384))" "(let-values(((fold-var_387)" @@ -75508,11 +75591,11 @@ static const char *startup_source = " inside-scope_2))" " fold-var_386))))" "(values fold-var_387)))))" -"(if(not #f)(for-loop_329 fold-var_385 rest_253) fold-var_385)))" +"(if(not #f)(for-loop_328 fold-var_385 rest_254) fold-var_385)))" " fold-var_384)))))" -" for-loop_329)" +" for-loop_328)" " null" -" lst_438))))))" +" lst_443))))))" "(let-values(((syms_26)" "(let-values(((scoped-ids555_0) scoped-ids_0)" "((defined-syms556_0) defined-syms_12)" @@ -75536,7 +75619,7 @@ static const char *startup_source = " self557_0" " phase558_0" " all-scopes-stx559_0))))" -"(let-values(((s_568)" +"(let-values(((s_558)" "(add-scope" "(datum->syntax$1" " #f" @@ -75545,7 +75628,7 @@ static const char *startup_source = " scoped-ids_0" " rhs_22))" " inside-scope_2)))" -"(values scoped-ids_0(semi-parsed-define-values2.1 s_568 syms_26 scoped-ids_0 rhs_22)))))))))" +"(values scoped-ids_0(semi-parsed-define-values2.1 s_558 syms_26 scoped-ids_0 rhs_22)))))))))" "(define-values" "(add-post-expansion-scope)" "(lambda(bodys_23 ctx_116)" @@ -75553,15 +75636,15 @@ static const char *startup_source = "(let-values(((sc_39)(root-expand-context-post-expansion-scope ctx_116)))" "(if sc_39" "(reverse$1" -"(let-values(((lst_440) bodys_23))" +"(let-values(((lst_445) bodys_23))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_440)))" -"((letrec-values(((for-loop_330)" -"(lambda(fold-var_388 lst_441)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_445)))" +"((letrec-values(((for-loop_329)" +"(lambda(fold-var_388 lst_446)" "(begin" " 'for-loop" -"(if(pair? lst_441)" -"(let-values(((body_23)(unsafe-car lst_441))((rest_254)(unsafe-cdr lst_441)))" +"(if(pair? lst_446)" +"(let-values(((body_23)(unsafe-car lst_446))((rest_255)(unsafe-cdr lst_446)))" "(let-values(((fold-var_389)" "(let-values(((fold-var_390) fold-var_388))" "(let-values(((fold-var_391)" @@ -75570,11 +75653,11 @@ static const char *startup_source = "(let-values()(add-scope body_23 sc_39))" " fold-var_390))))" "(values fold-var_391)))))" -"(if(not #f)(for-loop_330 fold-var_389 rest_254) fold-var_389)))" +"(if(not #f)(for-loop_329 fold-var_389 rest_255) fold-var_389)))" " fold-var_388)))))" -" for-loop_330)" +" for-loop_329)" " null" -" lst_440))))" +" lst_445))))" " bodys_23)))))" "(define-values" "(finish-expanding-body-expressons99.1)" @@ -75597,7 +75680,7 @@ 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_125)" +"((letrec-values(((loop_126)" "(lambda(tail?_53 bodys_24)" "(begin" " 'loop" @@ -75639,7 +75722,7 @@ static const char *startup_source = "(void)))" " null))" "(let-values()" -"(loop_125" +"(loop_126" " #t" "(add-post-expansion-scope bodys_25 body-ctx_7))))))" "(let-values() null))))" @@ -75657,14 +75740,14 @@ static const char *startup_source = "(let-values(((body_24)(car bodys_24)))" "(let-values(((rest-bodys_2)(cdr bodys_24)))" "(let-values(((exp-body_8)" -"(if(let-values(((or-part_409)" +"(if(let-values(((or-part_395)" "(parsed? body_24)))" -"(if or-part_409" -" or-part_409" -"(let-values(((or-part_410)" +"(if or-part_395" +" or-part_395" +"(let-values(((or-part_396)" "(expanded+parsed? body_24)))" -"(if or-part_410" -" or-part_410" +"(if or-part_396" +" or-part_396" "(semi-parsed-begin-for-syntax?" " body_24)))))" "(let-values() body_24)" @@ -75681,26 +75764,61 @@ static const char *startup_source = "(let-values(((syms_27)" "(semi-parsed-define-values-syms" " body_24)))" -"(let-values(((s_825)" +"(let-values(((s_819)" "(semi-parsed-define-values-s" " body_24)))" "(let-values(((ok?_84" " define-values562_0" " _563_0" " _564_0)" -"(let-values(((s_826)" +"(let-values(((s_820)" "(syntax-disarm$1" -" s_825)))" +" s_819)))" "(if(if(not" "(expand-context-to-parsed?" " rhs-ctx_2))" " #t" " #f)" "(let-values(((orig-s_92)" -" s_826))" +" s_820))" "(let-values(((define-values562_1" " _563_1" " _564_1)" +"(let-values(((s_821)" +"(if(syntax?$1" +" s_820)" +"(syntax-e$1" +" s_820)" +" s_820)))" +"(if(pair?" +" s_821)" +"(let-values(((define-values565_0)" +"(let-values(((s_822)" +"(car" +" s_821)))" +" s_822))" +"((_566_0" +" _567_0)" +"(let-values(((s_823)" +"(cdr" +" s_821)))" +"(let-values(((s_824)" +"(if(syntax?$1" +" s_823)" +"(syntax-e$1" +" s_823)" +" s_823)))" +"(if(pair?" +" s_824)" +"(let-values(((_568_0)" +"(let-values(((s_825)" +"(car" +" s_824)))" +" s_825))" +"((_569_0)" +"(let-values(((s_826)" +"(cdr" +" s_824)))" "(let-values(((s_827)" "(if(syntax?$1" " s_826)" @@ -75709,13 +75827,12 @@ static const char *startup_source = " s_826)))" "(if(pair?" " s_827)" -"(let-values(((define-values565_0)" +"(let-values(((_570_0)" "(let-values(((s_828)" "(car" " s_827)))" " s_828))" -"((_566_0" -" _567_0)" +"(()" "(let-values(((s_829)" "(cdr" " s_827)))" @@ -75725,42 +75842,8 @@ static const char *startup_source = "(syntax-e$1" " s_829)" " s_829)))" -"(if(pair?" -" s_830)" -"(let-values(((_568_0)" -"(let-values(((s_831)" -"(car" -" s_830)))" -" s_831))" -"((_569_0)" -"(let-values(((s_832)" -"(cdr" -" s_830)))" -"(let-values(((s_833)" -"(if(syntax?$1" -" s_832)" -"(syntax-e$1" -" s_832)" -" s_832)))" -"(if(pair?" -" s_833)" -"(let-values(((_570_0)" -"(let-values(((s_834)" -"(car" -" s_833)))" -" s_834))" -"(()" -"(let-values(((s_835)" -"(cdr" -" s_833)))" -"(let-values(((s_836)" -"(if(syntax?$1" -" s_835)" -"(syntax-e$1" -" s_835)" -" s_835)))" "(if(null?" -" s_836)" +" s_830)" "(values)" "(raise-syntax-error$1" " #f" @@ -75801,7 +75884,7 @@ static const char *startup_source = "(let-values(((rhs-ctx571_0)" " rhs-ctx_2)" "((s572_0)" -" s_825)" +" s_819)" "((temp573_0)" " #t))" "(keep-as-needed85.1" @@ -75880,15 +75963,15 @@ static const char *startup_source = "(let-values()" "(let-values(((disarmed-body_0)" "(syntax-disarm$1 body_24)))" -"(let-values(((tmp_68)" +"(let-values(((tmp_69)" "(core-form-sym" " disarmed-body_0" " phase_159)))" -"(if(if(equal? tmp_68 '#%require)" +"(if(if(equal? tmp_69 '#%require)" " #t" -"(if(equal? tmp_68 '#%provide)" +"(if(equal? tmp_69 '#%provide)" " #t" -"(equal? tmp_68 'module*)))" +"(equal? tmp_69 'module*)))" "(let-values() body_24)" "(let-values()" "(let-values()" @@ -75985,7 +76068,7 @@ static const char *startup_source = " self586_0" " body-ctx587_0))))" "(let-values(((exp-lifted-defns_0)" -"(loop_125 #f lifted-defns_1)))" +"(loop_126 #f lifted-defns_1)))" "(begin" "(if no-lifts?_0" "(void)" @@ -76006,10 +76089,10 @@ static const char *startup_source = " exp-lifted-modules_0" "(cons" " exp-body_8" -"(loop_125" +"(loop_126" " tail?_53" " rest-bodys_2)))))))))))))))))))))" -" loop_125)" +" loop_126)" " #t" " partially-expanded-bodys_1)))))))))))))" "(define-values" @@ -76017,15 +76100,15 @@ static const char *startup_source = "(lambda(need-eventually-defined_3 self_37 ctx_117)" "(begin" "(begin" -"(let-values(((ht_171) 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_171)))" -"((letrec-values(((for-loop_331)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_170)))" +"((letrec-values(((for-loop_330)" "(lambda(i_192)" "(begin" " 'for-loop" "(if i_192" -"(let-values(((phase_160 l_84)(hash-iterate-key+value ht_171 i_192)))" +"(let-values(((phase_160 l_84)(hash-iterate-key+value ht_170 i_192)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76033,24 +76116,24 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_442) l_84))" +"(let-values(((lst_447) l_84))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_442)))" -"((letrec-values(((for-loop_332)" -"(lambda(lst_443)" +"(let-values()(check-list lst_447)))" +"((letrec-values(((for-loop_331)" +"(lambda(lst_448)" "(begin" " 'for-loop" "(if(pair?" -" lst_443)" +" lst_448)" "(let-values(((id_165)" "(unsafe-car" -" lst_443))" -"((rest_255)" +" lst_448))" +"((rest_256)" "(unsafe-cdr" -" lst_443)))" +" lst_448)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76104,19 +76187,19 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_332" -" rest_255)" +"(for-loop_331" +" rest_256)" "(values))))" "(values))))))" -" for-loop_332)" -" lst_442)))" +" for-loop_331)" +" lst_447)))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_331(hash-iterate-next ht_171 i_192))(values))))" +"(if(not #f)(for-loop_330(hash-iterate-next ht_170 i_192))(values))))" "(values))))))" -" for-loop_331)" -"(hash-iterate-first ht_171))))" +" for-loop_330)" +"(hash-iterate-first ht_170))))" "(void)))))" "(define-values" "(resolve-provides115.1)" @@ -76138,39 +76221,39 @@ static const char *startup_source = "(let-values(((ctx_118) ctx107_0))" "(let-values()" "(let-values()" -"((letrec-values(((loop_126)" +"((letrec-values(((loop_127)" "(lambda(bodys_26 phase_162)" "(begin" " 'loop" "(if(null? bodys_26)" "(let-values() null)" -"(if(let-values(((or-part_411)(parsed?(car bodys_26))))" -"(if or-part_411 or-part_411(expanded+parsed?(car bodys_26))))" +"(if(let-values(((or-part_397)(parsed?(car bodys_26))))" +"(if or-part_397 or-part_397(expanded+parsed?(car bodys_26))))" "(let-values()" -"(cons(car bodys_26)(loop_126(cdr bodys_26) phase_162)))" +"(cons(car bodys_26)(loop_127(cdr bodys_26) phase_162)))" "(if(semi-parsed-begin-for-syntax?(car bodys_26))" "(let-values()" "(let-values(((nested-bodys_2)" -"(loop_126" +"(loop_127" "(semi-parsed-begin-for-syntax-body(car bodys_26))" "(add1 phase_162))))" "(cons" -"(let-values(((the-struct_115)(car bodys_26)))" -"(if(semi-parsed-begin-for-syntax? the-struct_115)" +"(let-values(((the-struct_112)(car bodys_26)))" +"(if(semi-parsed-begin-for-syntax? the-struct_112)" "(let-values(((body594_0) nested-bodys_2))" "(semi-parsed-begin-for-syntax3.1" -"(semi-parsed-begin-for-syntax-s the-struct_115)" +"(semi-parsed-begin-for-syntax-s the-struct_112)" " body594_0))" "(raise-argument-error" " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" -" the-struct_115)))" -"(loop_126(cdr bodys_26) phase_162))))" +" the-struct_112)))" +"(loop_127(cdr bodys_26) phase_162))))" "(let-values()" "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))" -"(let-values(((tmp_69)" +"(let-values(((tmp_70)" "(core-form-sym disarmed-body_1 phase_162)))" -"(if(equal? tmp_69 '#%provide)" +"(if(equal? tmp_70 '#%provide)" "(let-values()" "(let-values((()" "(begin" @@ -76191,35 +76274,35 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_85 #%provide595_0 spec596_0)" -"(let-values(((s_633) disarmed-body_1))" -"(let-values(((orig-s_93) s_633))" +"(let-values(((s_623) disarmed-body_1))" +"(let-values(((orig-s_93) s_623))" "(let-values(((#%provide595_1" " spec596_1)" -"(let-values(((s_837)" +"(let-values(((s_831)" "(if(syntax?$1" -" s_633)" +" s_623)" "(syntax-e$1" -" s_633)" -" s_633)))" -"(if(pair? s_837)" +" s_623)" +" s_623)))" +"(if(pair? s_831)" "(let-values(((#%provide597_0)" -"(let-values(((s_637)" +"(let-values(((s_627)" "(car" -" s_837)))" -" s_637))" +" s_831)))" +" s_627))" "((spec598_0)" -"(let-values(((s_638)" +"(let-values(((s_628)" "(cdr" -" s_837)))" -"(let-values(((s_838)" +" s_831)))" +"(let-values(((s_832)" "(if(syntax?$1" -" s_638)" +" s_628)" "(syntax-e$1" -" s_638)" -" s_638)))" +" s_628)" +" s_628)))" "(let-values(((flat-s_62)" "(to-syntax-list.1" -" s_838)))" +" s_832)))" "(if(not" " flat-s_62)" "(let-values()" @@ -76248,18 +76331,18 @@ static const char *startup_source = " self_38" " phase_162" "(let-values(((v_270) ctx_118))" -"(let-values(((the-struct_116)" +"(let-values(((the-struct_113)" " v_270))" "(if(expand-context/outer?" -" the-struct_116)" +" the-struct_113)" "(let-values(((context599_0)" " 'top-level)" "((inner600_0)" -"(let-values(((the-struct_117)" +"(let-values(((the-struct_114)" "(root-expand-context/outer-inner" " v_270)))" "(if(expand-context/inner?" -" the-struct_117)" +" the-struct_114)" "(let-values(((phase601_0)" " phase_162)" "((namespace602_0)" @@ -76272,91 +76355,91 @@ static const char *startup_source = " declared-submodule-names_6))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_117)" +" the-struct_114)" "(root-expand-context/inner-module-scopes" -" the-struct_117)" +" the-struct_114)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_117)" +" the-struct_114)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_117)" +" the-struct_114)" "(root-expand-context/inner-defined-syms" -" the-struct_117)" +" the-struct_114)" "(root-expand-context/inner-counter" -" the-struct_117)" +" the-struct_114)" "(root-expand-context/inner-lift-key" -" the-struct_117)" +" the-struct_114)" "(expand-context/inner-to-parsed?" -" the-struct_117)" +" the-struct_114)" " phase601_0" " namespace602_0" "(expand-context/inner-just-once?" -" the-struct_117)" +" the-struct_114)" "(expand-context/inner-module-begin-k" -" the-struct_117)" +" the-struct_114)" "(expand-context/inner-allow-unbound?" -" the-struct_117)" +" the-struct_114)" "(expand-context/inner-in-local-expand?" -" the-struct_117)" +" the-struct_114)" "(expand-context/inner-stops" -" the-struct_117)" +" the-struct_114)" " declared-submodule-names604_0" "(expand-context/inner-lifts" -" the-struct_117)" +" the-struct_114)" "(expand-context/inner-lift-envs" -" the-struct_117)" +" the-struct_114)" "(expand-context/inner-module-lifts" -" the-struct_117)" +" the-struct_114)" "(expand-context/inner-require-lifts" -" the-struct_117)" +" the-struct_114)" "(expand-context/inner-to-module-lifts" -" the-struct_117)" +" the-struct_114)" " requires+provides603_0" "(expand-context/inner-observer" -" the-struct_117)" +" the-struct_114)" "(expand-context/inner-for-serializable?" -" the-struct_117)" +" the-struct_114)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_117)))" +" the-struct_114)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_117)))))" +" the-struct_114)))))" "(expand-context/outer1.1" " inner600_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_116)" +" the-struct_113)" "(root-expand-context/outer-use-site-scopes" -" the-struct_116)" +" the-struct_113)" "(root-expand-context/outer-frame-id" -" the-struct_116)" +" the-struct_113)" " context599_0" "(expand-context/outer-env" -" the-struct_116)" +" the-struct_113)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_116)" +" the-struct_113)" "(expand-context/outer-scopes" -" the-struct_116)" +" the-struct_113)" "(expand-context/outer-def-ctx-scopes" -" the-struct_116)" +" the-struct_113)" "(expand-context/outer-binding-layer" -" the-struct_116)" +" the-struct_113)" "(expand-context/outer-reference-records" -" the-struct_116)" +" the-struct_113)" "(expand-context/outer-only-immediate?" -" the-struct_116)" +" the-struct_113)" "(expand-context/outer-need-eventually-defined" -" the-struct_116)" +" the-struct_113)" "(expand-context/outer-current-introduction-scopes" -" the-struct_116)" +" the-struct_113)" "(expand-context/outer-name" -" the-struct_116)))" +" the-struct_113)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_116)))))))" +" the-struct_113)))))))" "(if(expand-context-to-parsed? ctx_118)" "(let-values()" -"(loop_126(cdr bodys_26) phase_162))" +"(loop_127(cdr bodys_26) phase_162))" "(let-values()" "(let-values(((new-s_10)" "(syntax-track-origin*" @@ -76386,14 +76469,14 @@ static const char *startup_source = "(void)))" "(cons" " new-s_10" -"(loop_126" +"(loop_127" "(cdr bodys_26)" " phase_162))))))))))" "(let-values()" "(cons" "(car bodys_26)" -"(loop_126(cdr bodys_26) phase_162))))))))))))))" -" loop_126)" +"(loop_127(cdr bodys_26) phase_162))))))))))))))" +" loop_127)" " expression-expanded-bodys_1" " phase_161)))))))))))))" "(define-values" @@ -76440,8 +76523,8 @@ static const char *startup_source = "(hasheq))))" "(let-values(((module-name_2)" "(1/module-path-index-resolve" -"(let-values(((or-part_412) enclosing-self_3))" -"(if or-part_412 or-part_412 self_39)))))" +"(let-values(((or-part_398) enclosing-self_3))" +"(if or-part_398 or-part_398 self_39)))))" "(let-values(((compiled-module_0)" "(let-values(((parsed-mod607_0) parsed-mod_0)" "((temp608_0)" @@ -76507,16 +76590,16 @@ static const char *startup_source = " compiled-module615_0)))))))))))))))))))))))))" "(define-values" "(attach-root-expand-context-properties)" -"(lambda(s_839 root-ctx_8 orig-self_1 new-self_2)" +"(lambda(s_833 root-ctx_8 orig-self_1 new-self_2)" "(begin" -"(let-values(((s_840)" -"(syntax-property$1 s_839 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" -"(let-values(((s_841)" +"(let-values(((s_834)" +"(syntax-property$1 s_833 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" +"(let-values(((s_835)" "(syntax-property$1" -" s_840" +" s_834" " 'module-body-inside-context" "(add-scope empty-syntax(root-expand-context-post-expansion-scope root-ctx_8)))))" -" s_841)))))" +" s_835)))))" "(define-values" "(expand-post-submodules165.1)" "(lambda(all-scopes-s147_0" @@ -76546,7 +76629,7 @@ 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_127)" +"((letrec-values(((loop_128)" "(lambda(bodys_27 phase_164)" "(begin" " 'loop" @@ -76561,37 +76644,37 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax-s" " body_25)))" "(let-values(((ok?_86 begin-for-syntax617_0 _618_0)" -"(let-values(((s_842)" +"(let-values(((s_836)" "(syntax-disarm$1" " body-s_0)))" -"(let-values(((orig-s_94) s_842))" +"(let-values(((orig-s_94) s_836))" "(let-values(((begin-for-syntax617_1" " _618_1)" -"(let-values(((s_843)" +"(let-values(((s_837)" "(if(syntax?$1" -" s_842)" +" s_836)" "(syntax-e$1" -" s_842)" -" s_842)))" -"(if(pair? s_843)" +" s_836)" +" s_836)))" +"(if(pair? s_837)" "(let-values(((begin-for-syntax619_0)" -"(let-values(((s_844)" +"(let-values(((s_838)" "(car" -" s_843)))" -" s_844))" +" s_837)))" +" s_838))" "((_620_0)" -"(let-values(((s_845)" +"(let-values(((s_839)" "(cdr" -" s_843)))" -"(let-values(((s_667)" +" s_837)))" +"(let-values(((s_657)" "(if(syntax?$1" -" s_845)" +" s_839)" "(syntax-e$1" -" s_845)" -" s_845)))" +" s_839)" +" s_839)))" "(let-values(((flat-s_63)" "(to-syntax-list.1" -" s_667)))" +" s_657)))" "(if(not" " flat-s_63)" "(let-values()" @@ -76627,7 +76710,7 @@ static const char *startup_source = " submod-ctx621_0" " body-s622_0))))" "(let-values(((nested-bodys_3)" -"(loop_127" +"(loop_128" "(semi-parsed-begin-for-syntax-body" " body_25)" "(add1 phase_164))))" @@ -76653,21 +76736,21 @@ static const char *startup_source = " rebuild-body-s623_0" " temp624_0))" " parsed-bfs_0))" -"(loop_127 rest-bodys_3 phase_164))))))))" -"(if(let-values(((or-part_413)(parsed? body_25)))" -"(if or-part_413" -" or-part_413" +"(loop_128 rest-bodys_3 phase_164))))))))" +"(if(let-values(((or-part_399)(parsed? body_25)))" +"(if or-part_399" +" or-part_399" "(expanded+parsed? body_25)))" "(let-values()" -"(cons body_25(loop_127 rest-bodys_3 phase_164)))" +"(cons body_25(loop_128 rest-bodys_3 phase_164)))" "(let-values()" "(let-values(((disarmed-body_2)" "(syntax-disarm$1 body_25)))" -"(let-values(((tmp_70)" +"(let-values(((tmp_71)" "(core-form-sym" " disarmed-body_2" " phase_164)))" -"(if(equal? tmp_70 'module*)" +"(if(equal? tmp_71 'module*)" "(let-values()" "(let-values((()" "(begin" @@ -76682,60 +76765,60 @@ static const char *startup_source = " module*625_0" " name626_0" " _627_0)" -"(let-values(((s_846)" +"(let-values(((s_840)" " disarmed-body_2))" -"(if(let-values(((s_847)" +"(if(let-values(((s_841)" +"(if(syntax?$1" +" s_840)" +"(syntax-e$1" +" s_840)" +" s_840)))" +"(if(pair? s_841)" +"(if(let-values(((s_842)" +"(car" +" s_841)))" +" #t)" +"(let-values(((s_843)" +"(cdr" +" s_841)))" +"(let-values(((s_844)" +"(if(syntax?$1" +" s_843)" +"(syntax-e$1" +" s_843)" +" s_843)))" +"(if(pair?" +" s_844)" +"(if(let-values(((s_845)" +"(car" +" s_844)))" +" #t)" +"(let-values(((s_846)" +"(cdr" +" s_844)))" +"(let-values(((s_663)" "(if(syntax?$1" " s_846)" "(syntax-e$1" " s_846)" " s_846)))" -"(if(pair? s_847)" -"(if(let-values(((s_848)" -"(car" -" s_847)))" -" #t)" -"(let-values(((s_849)" -"(cdr" -" s_847)))" -"(let-values(((s_850)" -"(if(syntax?$1" -" s_849)" -"(syntax-e$1" -" s_849)" -" s_849)))" "(if(pair?" -" s_850)" -"(if(let-values(((s_851)" +" s_663)" +"(if(let-values(((s_847)" "(car" -" s_850)))" -" #t)" -"(let-values(((s_852)" -"(cdr" -" s_850)))" -"(let-values(((s_673)" +" s_663)))" +"(let-values(((s_848)" "(if(syntax?$1" -" s_852)" +" s_847)" "(syntax-e$1" -" s_852)" -" s_852)))" -"(if(pair?" -" s_673)" -"(if(let-values(((s_853)" -"(car" -" s_673)))" -"(let-values(((s_854)" -"(if(syntax?$1" -" s_853)" -"(syntax-e$1" -" s_853)" -" s_853)))" +" s_847)" +" s_847)))" "(eq?" " #f" -" s_854)))" -"(let-values(((s_855)" +" s_848)))" +"(let-values(((s_849)" "(cdr" -" s_673)))" +" s_663)))" " #t)" " #f)" " #f)))" @@ -76747,59 +76830,59 @@ static const char *startup_source = "(let-values(((module*625_1" " name626_1" " _627_1)" -"(let-values(((s_856)" +"(let-values(((s_850)" "(if(syntax?$1" -" s_846)" +" s_840)" "(syntax-e$1" -" s_846)" -" s_846)))" +" s_840)" +" s_840)))" "(let-values(((module*628_0)" -"(let-values(((s_857)" +"(let-values(((s_851)" "(car" -" s_856)))" -" s_857))" +" s_850)))" +" s_851))" "((name629_0" " _630_0)" -"(let-values(((s_858)" +"(let-values(((s_852)" "(cdr" -" s_856)))" -"(let-values(((s_678)" +" s_850)))" +"(let-values(((s_668)" "(if(syntax?$1" -" s_858)" +" s_852)" "(syntax-e$1" -" s_858)" -" s_858)))" +" s_852)" +" s_852)))" "(let-values(((name631_0)" -"(let-values(((s_680)" +"(let-values(((s_670)" "(car" -" s_678)))" -" s_680))" +" s_668)))" +" s_670))" "((_632_0)" -"(let-values(((s_859)" +"(let-values(((s_853)" "(cdr" -" s_678)))" -"(let-values(((s_681)" +" s_668)))" +"(let-values(((s_671)" "(if(syntax?$1" -" s_859)" +" s_853)" "(syntax-e$1" -" s_859)" -" s_859)))" +" s_853)" +" s_853)))" "(let-values((()" -"(let-values(((s_683)" +"(let-values(((s_673)" "(car" -" s_681)))" -"(let-values(((s_860)" +" s_671)))" +"(let-values(((s_854)" "(if(syntax?$1" -" s_683)" +" s_673)" "(syntax-e$1" -" s_683)" -" s_683)))" +" s_673)" +" s_673)))" "(values))))" "((_633_0)" -"(let-values(((s_861)" +"(let-values(((s_855)" "(cdr" -" s_681)))" -" s_861)))" +" s_671)))" +" s_855)))" "(values" " _633_0))))))" "(values" @@ -76879,10 +76962,10 @@ static const char *startup_source = "(if(expanded+parsed?" " submod_4)" "(let-values()" -"(let-values(((the-struct_118)" +"(let-values(((the-struct_115)" " submod_4))" "(if(expanded+parsed?" -" the-struct_118)" +" the-struct_115)" "(let-values(((s646_0)" "(syntax-shift-phase-level$1" "(expanded+parsed-s" @@ -76891,11 +76974,11 @@ static const char *startup_source = "(expanded+parsed1.1" " s646_0" "(expanded+parsed-parsed" -" the-struct_118)))" +" the-struct_115)))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_118))))" +" the-struct_115))))" "(let-values()" "(syntax-shift-phase-level$1" " submod_4" @@ -76936,16 +77019,16 @@ static const char *startup_source = " submod-ctx649_0))))))" "(cons" " submod_3" -"(loop_127" +"(loop_128" " rest-bodys_3" " phase_164)))))))" "(let-values()" "(cons" " body_25" -"(loop_127" +"(loop_128" " rest-bodys_3" " phase_164)))))))))))))))))" -" loop_127)" +" loop_128)" " fully-expanded-bodys-except-post-submodules_2" " phase_163)))))))))))))))))" "(define-values" @@ -76964,21 +77047,21 @@ static const char *startup_source = "(let-values(((ids_47) ids170_0))" "(let-values(((phase_165) phase171_1))" "(let-values(((requires+provides_12) requires+provides172_0))" -"(let-values(((s_862) in168_0))" +"(let-values(((s_856) in168_0))" "(let-values()" "(begin" -"(let-values(((lst_444) ids_47))" +"(let-values(((lst_449) ids_47))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_444)))" -"((letrec-values(((for-loop_333)" -"(lambda(lst_445)" +"(let-values()(check-list lst_449)))" +"((letrec-values(((for-loop_332)" +"(lambda(lst_450)" "(begin" " 'for-loop" -"(if(pair? lst_445)" -"(let-values(((id_166)(unsafe-car lst_445))" -"((rest_256)(unsafe-cdr lst_445)))" +"(if(pair? lst_450)" +"(let-values(((id_166)(unsafe-car lst_450))" +"((rest_257)(unsafe-cdr lst_450)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76990,7 +77073,7 @@ static const char *startup_source = "((id656_0) id_166)" "((phase657_0)" " phase_165)" -"((s658_0) s_862)" +"((s658_0) s_856)" "((temp659_0) 'module))" "(check-not-defined95.1" " #f" @@ -77010,103 +77093,103 @@ static const char *startup_source = " phase657_0)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_333 rest_256)(values))))" +"(if(not #f)(for-loop_332 rest_257)(values))))" "(values))))))" -" for-loop_333)" -" lst_444)))" +" for-loop_332)" +" lst_449)))" "(void))))))))))" "(define-values" "(eval-nested-bodys)" "(lambda(bodys_28 phase_166 m-ns_22 self_41 ctx_121)" "(begin" "(begin" -"(let-values(((lst_446) bodys_28))" +"(let-values(((lst_451) bodys_28))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_446)))" -"((letrec-values(((for-loop_334)" -"(lambda(lst_447)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_451)))" +"((letrec-values(((for-loop_333)" +"(lambda(lst_452)" "(begin" " 'for-loop" -"(if(pair? lst_447)" -"(let-values(((body_26)(unsafe-car lst_447))((rest_257)(unsafe-cdr lst_447)))" +"(if(pair? lst_452)" +"(let-values(((body_26)(unsafe-car lst_452))((rest_258)(unsafe-cdr lst_452)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((p_88)" +"(let-values(((p_89)" "(if(expanded+parsed? body_26)" "(expanded+parsed-parsed" " body_26)" " body_26)))" -"(if(parsed-define-values? p_88)" +"(if(parsed-define-values? p_89)" "(let-values()" "(let-values(((ids_48)" "(parsed-define-values-ids" -" p_88)))" +" p_89)))" "(let-values(((vals_11)" "(eval-for-bindings" " ids_48" "(parsed-define-values-rhs" -" p_88)" +" p_89)" " phase_166" " m-ns_22" " ctx_121)))" "(begin" -"(let-values(((lst_448) ids_48)" -"((lst_449)" +"(let-values(((lst_453) ids_48)" +"((lst_454)" "(parsed-define-values-syms" -" p_88))" -"((lst_450) vals_11))" +" p_89))" +"((lst_455) vals_11))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_448)))" +"(check-list lst_453)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_449)))" +"(check-list lst_454)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_450)))" -"((letrec-values(((for-loop_335)" -"(lambda(lst_451" -" lst_452" -" lst_453)" +"(check-list lst_455)))" +"((letrec-values(((for-loop_334)" +"(lambda(lst_456" +" lst_457" +" lst_458)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_451)" +" lst_456)" "(if(pair?" -" lst_452)" +" lst_457)" "(pair?" -" lst_453)" +" lst_458)" " #f)" " #f)" "(let-values(((id_167)" "(unsafe-car" -" lst_451))" -"((rest_258)" -"(unsafe-cdr" -" lst_451))" -"((sym_105)" -"(unsafe-car" -" lst_452))" +" lst_456))" "((rest_259)" "(unsafe-cdr" -" lst_452))" -"((val_88)" +" lst_456))" +"((sym_105)" "(unsafe-car" -" lst_453))" +" lst_457))" "((rest_260)" "(unsafe-cdr" -" lst_453)))" +" lst_457))" +"((val_88)" +"(unsafe-car" +" lst_458))" +"((rest_261)" +"(unsafe-cdr" +" lst_458)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77122,31 +77205,31 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_335" -" rest_258" +"(for-loop_334" " rest_259" -" rest_260)" +" rest_260" +" rest_261)" "(values))))" "(values))))))" -" for-loop_335)" -" lst_448" -" lst_449" -" lst_450)))" +" for-loop_334)" +" lst_453" +" lst_454" +" lst_455)))" "(void)))))" -"(if(let-values(((or-part_414)" +"(if(let-values(((or-part_400)" "(parsed-define-syntaxes?" -" p_88)))" -"(if or-part_414" -" or-part_414" +" p_89)))" +"(if or-part_400" +" or-part_400" "(semi-parsed-begin-for-syntax?" -" p_88)))" +" p_89)))" "(let-values()(void))" -"(if(let-values(((or-part_415)" +"(if(let-values(((or-part_401)" "(parsed-#%declare?" -" p_88)))" -"(if or-part_415" -" or-part_415" -"(syntax?$1 p_88)))" +" p_89)))" +"(if or-part_401" +" or-part_401" +"(syntax?$1 p_89)))" "(let-values()(void))" "(let-values()" "(with-continuation-mark" @@ -77162,7 +77245,7 @@ static const char *startup_source = "(let-values()" "(eval-single-top" "(compile-single" -" p_88" +" p_89" "(let-values(((m-ns660_0)" " m-ns_22)" "((phase661_0)" @@ -77183,10 +77266,10 @@ static const char *startup_source = " m-ns_22)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_334 rest_257)(values))))" +"(if(not #f)(for-loop_333 rest_258)(values))))" "(values))))))" -" for-loop_334)" -" lst_446)))" +" for-loop_333)" +" lst_451)))" "(void)))))" "(define-values" "(expand-submodule197.1)" @@ -77208,7 +77291,7 @@ static const char *startup_source = " ctx196_0)" "(begin" " 'expand-submodule197" -"(let-values(((s_863) s194_0))" +"(let-values(((s_857) s194_0))" "(let-values(((self_42) self195_0))" "(let-values(((ctx_122) ctx196_0))" "(let-values(((is-star?_0) is-star?176_0))" @@ -77237,42 +77320,42 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_158 'enter-prim s_863)" +"(call-expand-observe obs_158 'enter-prim s_857)" "(call-expand-observe" " obs_158" "(if is-star?_0 'prim-submodule* 'prim-submodule)))))" "(void)))))" "(values))))" "(let-values(((ok?_88 module662_0 name663_0 _664_0)" -"(let-values(((s_864) s_863))" -"(let-values(((orig-s_95) s_864))" +"(let-values(((s_858) s_857))" +"(let-values(((orig-s_95) s_858))" "(let-values(((module662_1 name663_1 _664_1)" -"(let-values(((s_865)" -"(if(syntax?$1 s_864)" -"(syntax-e$1 s_864)" -" s_864)))" -"(if(pair? s_865)" +"(let-values(((s_859)" +"(if(syntax?$1 s_858)" +"(syntax-e$1 s_858)" +" s_858)))" +"(if(pair? s_859)" "(let-values(((module665_0)" -"(let-values(((s_866)(car s_865)))" -" s_866))" +"(let-values(((s_860)(car s_859)))" +" s_860))" "((name666_0 _667_0)" -"(let-values(((s_867)(cdr s_865)))" -"(let-values(((s_868)" +"(let-values(((s_861)(cdr s_859)))" +"(let-values(((s_862)" "(if(syntax?$1" -" s_867)" -"(syntax-e$1 s_867)" -" s_867)))" -"(if(pair? s_868)" +" s_861)" +"(syntax-e$1 s_861)" +" s_861)))" +"(if(pair? s_862)" "(let-values(((name668_0)" -"(let-values(((s_869)" +"(let-values(((s_863)" "(car" -" s_868)))" -" s_869))" +" s_862)))" +" s_863))" "((_669_0)" -"(let-values(((s_870)" +"(let-values(((s_864)" "(cdr" -" s_868)))" -" s_870)))" +" s_862)))" +" s_864)))" "(values name668_0 _669_0))" "(raise-syntax-error$1" " #f" @@ -77292,7 +77375,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"submodule already declared with the same name\"" -" s_863" +" s_857" " name_80))" "(void))" "(values))))" @@ -77309,112 +77392,112 @@ static const char *startup_source = "(if obs_159" "(let-values()" "(let-values()" -"(call-expand-observe obs_159 'enter-prim s_863)))" +"(call-expand-observe obs_159 'enter-prim s_857)))" "(void)))" "(values))))" "(let-values(((submod_5)" -"(let-values(((s670_0) s_863)" +"(let-values(((s670_0) s_857)" "((temp671_0)" "(let-values(((v_271) ctx_122))" -"(let-values(((the-struct_119) v_271))" -"(if(expand-context/outer? the-struct_119)" +"(let-values(((the-struct_116) v_271))" +"(if(expand-context/outer? the-struct_116)" "(let-values(((context680_0) 'module)" "((post-expansion-scope681_0)" " #f)" "((inner682_0)" -"(let-values(((the-struct_120)" +"(let-values(((the-struct_117)" "(root-expand-context/outer-inner" " v_271)))" "(if(expand-context/inner?" -" the-struct_120)" +" the-struct_117)" "(let-values(((stops683_0)" " empty-free-id-set))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_120)" +" the-struct_117)" "(root-expand-context/inner-module-scopes" -" the-struct_120)" +" the-struct_117)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_120)" +" the-struct_117)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_120)" +" the-struct_117)" "(root-expand-context/inner-defined-syms" -" the-struct_120)" +" the-struct_117)" "(root-expand-context/inner-counter" -" the-struct_120)" +" the-struct_117)" "(root-expand-context/inner-lift-key" -" the-struct_120)" +" the-struct_117)" "(expand-context/inner-to-parsed?" -" the-struct_120)" +" the-struct_117)" "(expand-context/inner-phase" -" the-struct_120)" +" the-struct_117)" "(expand-context/inner-namespace" -" the-struct_120)" +" the-struct_117)" "(expand-context/inner-just-once?" -" the-struct_120)" +" the-struct_117)" "(expand-context/inner-module-begin-k" -" the-struct_120)" +" the-struct_117)" "(expand-context/inner-allow-unbound?" -" the-struct_120)" +" the-struct_117)" "(expand-context/inner-in-local-expand?" -" the-struct_120)" +" the-struct_117)" " stops683_0" "(expand-context/inner-declared-submodule-names" -" the-struct_120)" +" the-struct_117)" "(expand-context/inner-lifts" -" the-struct_120)" +" the-struct_117)" "(expand-context/inner-lift-envs" -" the-struct_120)" +" the-struct_117)" "(expand-context/inner-module-lifts" -" the-struct_120)" +" the-struct_117)" "(expand-context/inner-require-lifts" -" the-struct_120)" +" the-struct_117)" "(expand-context/inner-to-module-lifts" -" the-struct_120)" +" the-struct_117)" "(expand-context/inner-requires+provides" -" the-struct_120)" +" the-struct_117)" "(expand-context/inner-observer" -" the-struct_120)" +" the-struct_117)" "(expand-context/inner-for-serializable?" -" the-struct_120)" +" the-struct_117)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_120)))" +" the-struct_117)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_120)))))" +" the-struct_117)))))" "(expand-context/outer1.1" " inner682_0" " post-expansion-scope681_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_119)" +" the-struct_116)" "(root-expand-context/outer-frame-id" -" the-struct_119)" +" the-struct_116)" " context680_0" "(expand-context/outer-env" -" the-struct_119)" +" the-struct_116)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_119)" +" the-struct_116)" "(expand-context/outer-scopes" -" the-struct_119)" +" the-struct_116)" "(expand-context/outer-def-ctx-scopes" -" the-struct_119)" +" the-struct_116)" "(expand-context/outer-binding-layer" -" the-struct_119)" +" the-struct_116)" "(expand-context/outer-reference-records" -" the-struct_119)" +" the-struct_116)" "(expand-context/outer-only-immediate?" -" the-struct_119)" +" the-struct_116)" "(expand-context/outer-need-eventually-defined" -" the-struct_119)" +" the-struct_116)" "(expand-context/outer-current-introduction-scopes" -" the-struct_119)" +" the-struct_116)" "(expand-context/outer-name" -" the-struct_119)))" +" the-struct_116)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_119)))))" +" the-struct_116)))))" "((self672_0) self_42)" "((temp673_0) #t)" "((keep-enclosing-scope-at-phase674_0)" @@ -77548,67 +77631,67 @@ static const char *startup_source = "(let-values() submod_5)" "(if(expanded+parsed? submod_5)" "(let-values()" -"(let-values(((the-struct_121) submod_5))" -"(if(expanded+parsed? the-struct_121)" +"(let-values(((the-struct_118) submod_5))" +"(if(expanded+parsed? the-struct_118)" "(let-values(((parsed695_0)" -"(let-values(((the-struct_122)" +"(let-values(((the-struct_119)" "(expanded+parsed-parsed" " submod_5)))" -"(if(parsed-module? the-struct_122)" +"(if(parsed-module? the-struct_119)" "(let-values(((star?696_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_122)" +"(parsed-s the-struct_119)" " star?696_0" "(parsed-module-name-id" -" the-struct_122)" +" the-struct_119)" "(parsed-module-self" -" the-struct_122)" +" the-struct_119)" "(parsed-module-requires" -" the-struct_122)" +" the-struct_119)" "(parsed-module-provides" -" the-struct_122)" +" the-struct_119)" "(parsed-module-root-ctx-simple?" -" the-struct_122)" +" the-struct_119)" "(parsed-module-encoded-root-ctx" -" the-struct_122)" +" the-struct_119)" "(parsed-module-body" -" the-struct_122)" +" the-struct_119)" "(parsed-module-compiled-module" -" the-struct_122)" +" the-struct_119)" "(parsed-module-compiled-submodules" -" the-struct_122)))" +" the-struct_119)))" "(raise-argument-error" " 'struct-copy" " \"parsed-module?\"" -" the-struct_122)))))" +" the-struct_119)))))" "(expanded+parsed1.1" -"(expanded+parsed-s the-struct_121)" +"(expanded+parsed-s the-struct_118)" " parsed695_0))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_121))))" +" the-struct_118))))" "(let-values()" -"(let-values(((the-struct_123) submod_5))" -"(if(parsed-module? the-struct_123)" +"(let-values(((the-struct_120) submod_5))" +"(if(parsed-module? the-struct_120)" "(let-values(((star?697_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_123)" +"(parsed-s the-struct_120)" " star?697_0" -"(parsed-module-name-id the-struct_123)" -"(parsed-module-self the-struct_123)" -"(parsed-module-requires the-struct_123)" -"(parsed-module-provides the-struct_123)" -"(parsed-module-root-ctx-simple? the-struct_123)" -"(parsed-module-encoded-root-ctx the-struct_123)" -"(parsed-module-body the-struct_123)" -"(parsed-module-compiled-module the-struct_123)" +"(parsed-module-name-id the-struct_120)" +"(parsed-module-self the-struct_120)" +"(parsed-module-requires the-struct_120)" +"(parsed-module-provides the-struct_120)" +"(parsed-module-root-ctx-simple? the-struct_120)" +"(parsed-module-encoded-root-ctx the-struct_120)" +"(parsed-module-body the-struct_120)" +"(parsed-module-compiled-module the-struct_120)" "(parsed-module-compiled-submodules" -" the-struct_123)))" +" the-struct_120)))" "(raise-argument-error" " 'struct-copy" " \"parsed-module?\"" -" the-struct_123)))))))))))))))))))))))))))))))))))" +" the-struct_120)))))))))))))))))))))))))))))))))))" "(define-values" "(expand-non-module*-submodules212.1)" "(lambda(compiled-submodules202_0" @@ -77631,30 +77714,30 @@ static const char *startup_source = "(let-values(((modules-being-compiled_9) modules-being-compiled203_0))" "(let-values()" "(reverse$1" -"(let-values(((lst_454) bodys_29))" +"(let-values(((lst_459) bodys_29))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_454)))" -"((letrec-values(((for-loop_336)" -"(lambda(fold-var_392 lst_455)" +"(let-values()(check-list lst_459)))" +"((letrec-values(((for-loop_335)" +"(lambda(fold-var_392 lst_460)" "(begin" " 'for-loop" -"(if(pair? lst_455)" -"(let-values(((body_27)(unsafe-car lst_455))" -"((rest_261)(unsafe-cdr lst_455)))" +"(if(pair? lst_460)" +"(let-values(((body_27)(unsafe-car lst_460))" +"((rest_262)(unsafe-cdr lst_460)))" "(let-values(((fold-var_393)" "(let-values(((fold-var_394) fold-var_392))" "(let-values(((fold-var_395)" "(let-values()" "(cons" "(let-values()" -"(let-values(((tmp_71)" +"(let-values(((tmp_72)" "(core-form-sym" "(syntax-disarm$1" " body_27)" " phase_167)))" -"(if(equal? tmp_71 'module)" +"(if(equal? tmp_72 'module)" "(let-values()" "(let-values(((body698_0)" " body_27)" @@ -77693,12 +77776,12 @@ static const char *startup_source = " fold-var_394))))" "(values fold-var_395)))))" "(if(not #f)" -"(for-loop_336 fold-var_393 rest_261)" +"(for-loop_335 fold-var_393 rest_262)" " fold-var_393)))" " fold-var_392)))))" -" for-loop_336)" +" for-loop_335)" " null" -" lst_454))))))))))))))))" +" lst_459))))))))))))))))" "(define-values" "(make-parse-lifted-require220.1)" "(lambda(declared-submodule-names215_0 m-ns217_0 self218_0 requires+provides219_0)" @@ -77709,37 +77792,37 @@ static const char *startup_source = "(let-values(((requires+provides_13) requires+provides219_0))" "(let-values(((declared-submodule-names_10) declared-submodule-names215_0))" "(let-values()" -"(lambda(s_871 phase_168)" +"(lambda(s_865 phase_168)" "(let-values(((ok?_89 #%require706_0 req707_0)" -"(let-values(((s_872)(syntax-disarm$1 s_871)))" -"(let-values(((orig-s_96) s_872))" +"(let-values(((s_866)(syntax-disarm$1 s_865)))" +"(let-values(((orig-s_96) s_866))" "(let-values(((#%require706_1 req707_1)" -"(let-values(((s_873)" -"(if(syntax?$1 s_872)(syntax-e$1 s_872) s_872)))" -"(if(pair? s_873)" +"(let-values(((s_867)" +"(if(syntax?$1 s_866)(syntax-e$1 s_866) s_866)))" +"(if(pair? s_867)" "(let-values(((#%require708_0)" -"(let-values(((s_874)(car s_873))) s_874))" +"(let-values(((s_868)(car s_867))) s_868))" "((req709_0)" -"(let-values(((s_875)(cdr s_873)))" -"(let-values(((s_876)" -"(if(syntax?$1 s_875)" -"(syntax-e$1 s_875)" -" s_875)))" -"(if(pair? s_876)" +"(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(((req710_0)" -"(let-values(((s_877)" -"(car s_876)))" -" s_877))" +"(let-values(((s_871)" +"(car s_870)))" +" s_871))" "(()" -"(let-values(((s_878)" -"(cdr s_876)))" -"(let-values(((s_879)" +"(let-values(((s_872)" +"(cdr s_870)))" +"(let-values(((s_873)" "(if(syntax?$1" -" s_878)" +" s_872)" "(syntax-e$1" -" s_878)" -" s_878)))" -"(if(null? s_879)" +" s_872)" +" s_872)))" +"(if(null? s_873)" "(values)" "(raise-syntax-error$1" " #f" @@ -77754,7 +77837,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_96)))))" "(values #t #%require706_1 req707_1))))))" "(let-values(((temp711_0)(list req707_0))" -"((s712_0) s_871)" +"((s712_0) s_865)" "((self713_0) self_44)" "((m-ns714_0) m-ns_23)" "((phase715_0) phase_168)" @@ -77800,16 +77883,16 @@ static const char *startup_source = "(lambda(lifted-defns_2)" "(begin" "(reverse$1" -"(let-values(((lst_456) lifted-defns_2))" +"(let-values(((lst_461) lifted-defns_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_456)))" -"((letrec-values(((for-loop_337)" -"(lambda(fold-var_396 lst_457)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_461)))" +"((letrec-values(((for-loop_336)" +"(lambda(fold-var_396 lst_462)" "(begin" " 'for-loop" -"(if(pair? lst_457)" -"(let-values(((lifted-defn_0)(unsafe-car lst_457))" -"((rest_262)(unsafe-cdr lst_457)))" +"(if(pair? lst_462)" +"(let-values(((lifted-defn_0)(unsafe-car lst_462))" +"((rest_263)(unsafe-cdr lst_462)))" "(let-values(((fold-var_397)" "(let-values(((fold-var_398) fold-var_396))" "(let-values(((fold-var_399)" @@ -77819,11 +77902,11 @@ static const char *startup_source = "(defn-extract-syntax lifted-defn_0))" " fold-var_398))))" "(values fold-var_399)))))" -"(if(not #f)(for-loop_337 fold-var_397 rest_262) fold-var_397)))" +"(if(not #f)(for-loop_336 fold-var_397 rest_263) fold-var_397)))" " fold-var_396)))))" -" for-loop_337)" +" for-loop_336)" " null" -" lst_456)))))))" +" lst_461)))))))" "(define-values" "(log-lifted-defns)" "(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)" @@ -77839,18 +77922,18 @@ static const char *startup_source = "(let-values((()(begin(call-expand-observe obs_162 'module-lift-loop s-lifted-defns_0)(values))))" "(let-values((()" "(begin" -"(let-values(((lst_458) s-lifted-defns_0))" +"(let-values(((lst_463) s-lifted-defns_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_458)))" -"((letrec-values(((for-loop_338)" -"(lambda(lst_459)" +"(let-values()(check-list lst_463)))" +"((letrec-values(((for-loop_337)" +"(lambda(lst_464)" "(begin" " 'for-loop" -"(if(pair? lst_459)" -"(let-values(((s-lifted-defn_0)(unsafe-car lst_459))" -"((rest_263)(unsafe-cdr lst_459)))" +"(if(pair? lst_464)" +"(let-values(((s-lifted-defn_0)(unsafe-car lst_464))" +"((rest_264)(unsafe-cdr lst_464)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77860,38 +77943,38 @@ static const char *startup_source = "(let-values(((ok?_90" " define-values724_0" " _725_0)" -"(let-values(((s_880)" +"(let-values(((s_874)" " s-lifted-defn_0))" "(let-values(((orig-s_97)" -" s_880))" +" s_874))" "(let-values(((define-values724_1" " _725_1)" -"(let-values(((s_881)" +"(let-values(((s_875)" "(if(syntax?$1" -" s_880)" +" s_874)" "(syntax-e$1" -" s_880)" -" s_880)))" +" s_874)" +" s_874)))" "(if(pair?" -" s_881)" +" s_875)" "(let-values(((define-values726_0)" -"(let-values(((s_882)" +"(let-values(((s_876)" "(car" -" s_881)))" -" s_882))" +" s_875)))" +" s_876))" "((_727_0)" -"(let-values(((s_883)" +"(let-values(((s_877)" "(cdr" -" s_881)))" -"(let-values(((s_884)" +" s_875)))" +"(let-values(((s_878)" "(if(syntax?$1" -" s_883)" +" s_877)" "(syntax-e$1" -" s_883)" -" s_883)))" +" s_877)" +" s_877)))" "(let-values(((flat-s_64)" "(to-syntax-list.1" -" s_884)))" +" s_878)))" "(if(not" " flat-s_64)" "(let-values()" @@ -77956,23 +78039,23 @@ static const char *startup_source = " s-lifted-defn_0))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_338 rest_263)(values))))" +"(if(not #f)(for-loop_337 rest_264)(values))))" "(values))))))" -" for-loop_338)" -" lst_458)))" +" for-loop_337)" +" lst_463)))" "(values))))" "(let-values()" "(let-values(((ok?_91 form-id720_0 _721_0)" -"(let-values(((s_885) exp-body_10))" -"(let-values(((orig-s_98) s_885))" +"(let-values(((s_879) exp-body_10))" +"(let-values(((orig-s_98) s_879))" "(let-values(((form-id720_1 _721_1)" -"(let-values(((s_886)" -"(if(syntax?$1 s_885)(syntax-e$1 s_885) s_885)))" -"(if(pair? s_886)" +"(let-values(((s_880)" +"(if(syntax?$1 s_879)(syntax-e$1 s_879) s_879)))" +"(if(pair? s_880)" "(let-values(((form-id722_0)" -"(let-values(((s_887)(car s_886))) s_887))" +"(let-values(((s_881)(car s_880))) s_881))" "((_723_0)" -"(let-values(((s_888)(cdr s_886))) s_888)))" +"(let-values(((s_882)(cdr s_880))) s_882)))" "(values form-id722_0 _723_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_98)))))" "(values #t form-id720_1 _721_1))))))" @@ -77994,20 +78077,20 @@ static const char *startup_source = "(let-values()" "(let-values(((s-defn_0)(defn-extract-syntax defn_1)))" "(let-values(((ok?_92 define-values728_0 _729_0)" -"(let-values(((s_889) s-defn_0))" -"(let-values(((orig-s_99) s_889))" +"(let-values(((s_883) s-defn_0))" +"(let-values(((orig-s_99) s_883))" "(let-values(((define-values728_1 _729_1)" -"(let-values(((s_890)(if(syntax?$1 s_889)(syntax-e$1 s_889) s_889)))" -"(if(pair? s_890)" +"(let-values(((s_884)(if(syntax?$1 s_883)(syntax-e$1 s_883) s_883)))" +"(if(pair? s_884)" "(let-values(((define-values730_0)" -"(let-values(((s_891)(car s_890))) s_891))" +"(let-values(((s_885)(car s_884))) s_885))" "((_731_0)" -"(let-values(((s_892)(cdr s_890)))" -"(let-values(((s_893)" -"(if(syntax?$1 s_892)" -"(syntax-e$1 s_892)" -" s_892)))" -"(let-values(((flat-s_65)(to-syntax-list.1 s_893)))" +"(let-values(((s_886)(cdr s_884)))" +"(let-values(((s_887)" +"(if(syntax?$1 s_886)" +"(syntax-e$1 s_886)" +" s_886)))" +"(let-values(((flat-s_65)(to-syntax-list.1 s_887)))" "(if(not flat-s_65)" "(let-values()" "(raise-syntax-error$1" @@ -78040,7 +78123,7 @@ static const char *startup_source = "(void))))))" "(define-values" "(as-expand-time-top-level-bindings)" -"(lambda(ids_49 s_68 ctx_126)" +"(lambda(ids_49 s_69 ctx_126)" "(begin" "(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_126)))" "(let-values(((tl-ids_2)" @@ -78050,13 +78133,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_6)))" -"((letrec-values(((for-loop_104)" -"(lambda(fold-var_400 lst_85)" +"((letrec-values(((for-loop_103)" +"(lambda(fold-var_400 lst_86)" "(begin" " 'for-loop" -"(if(pair? lst_85)" -"(let-values(((id_168)(unsafe-car lst_85))" -"((rest_40)(unsafe-cdr lst_85)))" +"(if(pair? lst_86)" +"(let-values(((id_168)(unsafe-car lst_86))" +"((rest_40)(unsafe-cdr lst_86)))" "(let-values(((fold-var_61)" "(let-values(((fold-var_62) fold-var_400))" "(let-values(((fold-var_401)" @@ -78068,48 +78151,48 @@ static const char *startup_source = " ctx_126))" " fold-var_62))))" "(values fold-var_401)))))" -"(if(not #f)(for-loop_104 fold-var_61 rest_40) fold-var_61)))" +"(if(not #f)(for-loop_103 fold-var_61 rest_40) fold-var_61)))" " fold-var_400)))))" -" for-loop_104)" +" for-loop_103)" " null" " lst_6))))))" "(let-values((()" "(begin" -"(let-values(((tl-ids1_0) tl-ids_2)((temp2_9)(expand-context-phase ctx_126))((s3_4) s_68))" +"(let-values(((tl-ids1_0) tl-ids_2)((temp2_9)(expand-context-phase ctx_126))((s3_4) s_69))" "(check-no-duplicate-ids8.1 #f #f tl-ids1_0 temp2_9 s3_4 #f #f))" "(values))))" "(let-values(((tmp-bind-ids_0)" "(reverse$1" -"(let-values(((lst_100) tl-ids_2))" +"(let-values(((lst_101) tl-ids_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_100)))" -"((letrec-values(((for-loop_339)" -"(lambda(fold-var_219 lst_86)" +"(let-values()(check-list lst_101)))" +"((letrec-values(((for-loop_338)" +"(lambda(fold-var_222 lst_87)" "(begin" " 'for-loop" -"(if(pair? lst_86)" -"(let-values(((id_169)(unsafe-car lst_86))" -"((rest_243)(unsafe-cdr lst_86)))" +"(if(pair? lst_87)" +"(let-values(((id_169)(unsafe-car lst_87))" +"((rest_244)(unsafe-cdr lst_87)))" "(let-values(((fold-var_26)" -"(let-values(((fold-var_153) fold-var_219))" -"(let-values(((fold-var_222)" +"(let-values(((fold-var_155) fold-var_222))" +"(let-values(((fold-var_225)" "(let-values()" "(cons" "(let-values()" "(add-scope" " id_169" " top-level-bind-scope_6))" -" fold-var_153))))" -"(values fold-var_222)))))" +" fold-var_155))))" +"(values fold-var_225)))))" "(if(not #f)" -"(for-loop_339 fold-var_26 rest_243)" +"(for-loop_338 fold-var_26 rest_244)" " fold-var_26)))" -" fold-var_219)))))" -" for-loop_339)" +" fold-var_222)))))" +" for-loop_338)" " null" -" lst_100))))))" +" lst_101))))))" "(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_126)))))))))" "(void" "(add-core-form!*" @@ -78130,21 +78213,22 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_25)(syntax-disarm$1 s_0)))" "(let-values(((ok?_24 define-values1_0 id2_1 rhs3_0)" -"(let-values(((s_172) s_0))" -"(let-values(((orig-s_100) s_172))" +"(let-values(((s_398) s_0))" +"(let-values(((orig-s_100) s_398))" "(let-values(((define-values1_1 id2_2 rhs3_1)" -"(let-values(((s_40)(if(syntax?$1 s_172)(syntax-e$1 s_172) s_172)))" -"(if(pair? s_40)" -"(let-values(((define-values4_0)(let-values(((s_72)(car s_40))) s_72))" +"(let-values(((s_173)(if(syntax?$1 s_398)(syntax-e$1 s_398) s_398)))" +"(if(pair? s_173)" +"(let-values(((define-values4_0)" +"(let-values(((s_73)(car s_173))) s_73))" "((id5_0 rhs6_0)" -"(let-values(((s_41)(cdr s_40)))" -"(let-values(((s_174)" -"(if(syntax?$1 s_41)" -"(syntax-e$1 s_41)" -" s_41)))" -"(if(pair? s_174)" +"(let-values(((s_174)(cdr s_173)))" +"(let-values(((s_76)" +"(if(syntax?$1 s_174)" +"(syntax-e$1 s_174)" +" s_174)))" +"(if(pair? s_76)" "(let-values(((id7_0)" -"(let-values(((s_159)(car s_174)))" +"(let-values(((s_159)(car s_76)))" "(let-values(((s_5)" "(if(syntax?$1 s_159)" "(syntax-e$1 s_159)" @@ -78169,19 +78253,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_24)))" -"((letrec-values(((for-loop_252)" +"((letrec-values(((for-loop_251)" "(lambda(id_170" -" lst_80)" +" lst_81)" "(begin" " 'for-loop" "(if(pair?" -" lst_80)" -"(let-values(((s_183)" +" lst_81)" +"(let-values(((s_175)" "(unsafe-car" -" lst_80))" +" lst_81))" "((rest_143)" "(unsafe-cdr" -" lst_80)))" +" lst_81)))" "(let-values(((id_171)" "(let-values(((id_53)" " id_170))" @@ -78191,21 +78275,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_53)" "(if(syntax?$1" -" s_183)" +" s_175)" "(symbol?" "(syntax-e$1" -" s_183))" +" s_175))" " #f)))" "(if or-part_53" " or-part_53" "(symbol?" -" s_183)))" -" s_183" +" s_175)))" +" s_175" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_100" -" s_183)))))" +" s_175)))))" "(cons" " id10_1" " id_53)))))" @@ -78213,37 +78297,37 @@ static const char *startup_source = " id_172)))))" "(if(not" " #f)" -"(for-loop_252" +"(for-loop_251" " id_171" " rest_143)" " id_171)))" " id_170)))))" -" for-loop_252)" +" for-loop_251)" " null" " lst_24)))))" "(reverse$1 id_5))))))))" "((rhs8_0)" -"(let-values(((s_84)(cdr s_174)))" -"(let-values(((s_383)" -"(if(syntax?$1 s_84)" -"(syntax-e$1 s_84)" -" s_84)))" -"(if(pair? s_383)" +"(let-values(((s_83)(cdr s_76)))" +"(let-values(((s_376)" +"(if(syntax?$1 s_83)" +"(syntax-e$1 s_83)" +" s_83)))" +"(if(pair? s_376)" "(let-values(((rhs9_0)" -"(let-values(((s_43)" +"(let-values(((s_44)" "(car" -" s_383)))" -" s_43))" +" s_376)))" +" s_44))" "(()" -"(let-values(((s_304)" +"(let-values(((s_300)" "(cdr" -" s_383)))" +" s_376)))" "(let-values(((s_35)" "(if(syntax?$1" -" s_304)" +" s_300)" "(syntax-e$1" -" s_304)" -" s_304)))" +" s_300)" +" s_300)))" "(if(null?" " s_35)" "(values)" @@ -78276,7 +78360,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'define-syntaxes" -"(lambda(s_894 ctx_127)" +"(lambda(s_888 ctx_127)" "(let-values((()" "(begin" "(let-values(((obs_166)(expand-context-observer ctx_127)))" @@ -78293,33 +78377,33 @@ static const char *startup_source = "(begin" "(if(eq?(expand-context-context ctx_127) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_894)))" +" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_888)))" "(values))))" -"(let-values(((disarmed-s_26)(syntax-disarm$1 s_894)))" +"(let-values(((disarmed-s_26)(syntax-disarm$1 s_888)))" "(let-values(((ok?_93 define-syntaxes15_0 id16_1 rhs17_0)" -"(let-values(((s_426) disarmed-s_26))" -"(let-values(((orig-s_101) s_426))" +"(let-values(((s_419) disarmed-s_26))" +"(let-values(((orig-s_101) s_419))" "(let-values(((define-syntaxes15_1 id16_2 rhs17_1)" -"(let-values(((s_20)(if(syntax?$1 s_426)(syntax-e$1 s_426) s_426)))" +"(let-values(((s_20)(if(syntax?$1 s_419)(syntax-e$1 s_419) s_419)))" "(if(pair? s_20)" "(let-values(((define-syntaxes18_0)" "(let-values(((s_23)(car s_20))) s_23))" "((id19_1 rhs20_0)" -"(let-values(((s_460)(cdr s_20)))" +"(let-values(((s_451)(cdr s_20)))" "(let-values(((s_24)" -"(if(syntax?$1 s_460)" -"(syntax-e$1 s_460)" -" s_460)))" +"(if(syntax?$1 s_451)" +"(syntax-e$1 s_451)" +" s_451)))" "(if(pair? s_24)" "(let-values(((id21_0)" -"(let-values(((s_741)(car s_24)))" -"(let-values(((s_467)" -"(if(syntax?$1 s_741)" -"(syntax-e$1 s_741)" -" s_741)))" +"(let-values(((s_732)(car s_24)))" +"(let-values(((s_457)" +"(if(syntax?$1 s_732)" +"(syntax-e$1 s_732)" +" s_732)))" "(let-values(((flat-s_67)" "(to-syntax-list.1" -" s_467)))" +" s_457)))" "(if(not flat-s_67)" "(let-values()" "(raise-syntax-error$1" @@ -78328,7 +78412,7 @@ static const char *startup_source = " orig-s_101))" "(let-values()" "(let-values(((id_173)" -"(let-values(((lst_181)" +"(let-values(((lst_183)" " flat-s_67))" "(begin" "(if(variable-reference-from-unsafe?" @@ -78336,20 +78420,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_181)))" -"((letrec-values(((for-loop_340)" +" lst_183)))" +"((letrec-values(((for-loop_339)" "(lambda(id_174" -" lst_460)" +" lst_465)" "(begin" " 'for-loop" "(if(pair?" -" lst_460)" -"(let-values(((s_895)" +" lst_465)" +"(let-values(((s_889)" "(unsafe-car" -" lst_460))" -"((rest_264)" +" lst_465))" +"((rest_265)" "(unsafe-cdr" -" lst_460)))" +" lst_465)))" "(let-values(((id_175)" "(let-values(((id_98)" " id_174))" @@ -78357,23 +78441,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id24_1)" "(let-values()" -"(if(let-values(((or-part_362)" +"(if(let-values(((or-part_73)" "(if(syntax?$1" -" s_895)" +" s_889)" "(symbol?" "(syntax-e$1" -" s_895))" +" s_889))" " #f)))" -"(if or-part_362" -" or-part_362" +"(if or-part_73" +" or-part_73" "(symbol?" -" s_895)))" -" s_895" +" s_889)))" +" s_889" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_101" -" s_895)))))" +" s_889)))))" "(cons" " id24_1" " id_98)))))" @@ -78381,39 +78465,39 @@ static const char *startup_source = " id_99)))))" "(if(not" " #f)" -"(for-loop_340" +"(for-loop_339" " id_175" -" rest_264)" +" rest_265)" " id_175)))" " id_174)))))" -" for-loop_340)" +" for-loop_339)" " null" -" lst_181)))))" +" lst_183)))))" "(reverse$1 id_173))))))))" "((rhs22_0)" -"(let-values(((s_493)(cdr s_24)))" -"(let-values(((s_475)" -"(if(syntax?$1 s_493)" -"(syntax-e$1 s_493)" -" s_493)))" -"(if(pair? s_475)" +"(let-values(((s_484)(cdr s_24)))" +"(let-values(((s_465)" +"(if(syntax?$1 s_484)" +"(syntax-e$1 s_484)" +" s_484)))" +"(if(pair? s_465)" "(let-values(((rhs23_2)" "(let-values(((s_168)" "(car" -" s_475)))" +" s_465)))" " s_168))" "(()" -"(let-values(((s_44)" +"(let-values(((s_45)" "(cdr" -" s_475)))" -"(let-values(((s_476)" +" s_465)))" +"(let-values(((s_466)" "(if(syntax?$1" -" s_44)" +" s_45)" "(syntax-e$1" -" s_44)" -" s_44)))" +" s_45)" +" s_45)))" "(if(null?" -" s_476)" +" s_466)" "(values)" "(raise-syntax-error$1" " #f" @@ -78432,37 +78516,37 @@ static const char *startup_source = "(values define-syntaxes18_0 id19_1 rhs20_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_101)))))" "(values #t define-syntaxes15_1 id16_2 rhs17_1))))))" -"(let-values(((ids_51 syms_29)(as-expand-time-top-level-bindings id16_1 s_894 ctx_127)))" +"(let-values(((ids_51 syms_29)(as-expand-time-top-level-bindings id16_1 s_888 ctx_127)))" "(let-values(((exp-rhs_10)" "(let-values(((temp25_7) rhs17_0)((temp26_6)(as-named-context ctx_127 ids_51)))" "(expand-transformer58.1 #f #f #f #f #f #f #f #f #f #f #f #f temp25_7 temp26_6))))" "(if(expand-context-to-parsed? ctx_127)" -"(parsed-define-syntaxes20.1 s_894 ids_51 syms_29 exp-rhs_10)" -"(let-values(((s27_3) s_894)((temp28_7)(list define-syntaxes15_0 ids_51 exp-rhs_10)))" +"(parsed-define-syntaxes20.1 s_888 ids_51 syms_29 exp-rhs_10)" +"(let-values(((s27_3) s_888)((temp28_7)(list define-syntaxes15_0 ids_51 exp-rhs_10)))" "(rebuild5.1 #f #f s27_3 temp28_7)))))))))))))" "(void" "(add-core-form!*" " 'begin-for-syntax" -"(lambda(s_479 ctx_10)" +"(lambda(s_469 ctx_10)" "(let-values((()" "(begin" "(if(eq?(expand-context-context ctx_10) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_479)))" +" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_469)))" "(values))))" "(let-values(((ok?_94 begin-for-syntax29_0 form30_0)" -"(let-values(((s_421) s_479))" -"(let-values(((orig-s_102) s_421))" +"(let-values(((s_414) s_469))" +"(let-values(((orig-s_102) s_414))" "(let-values(((begin-for-syntax29_1 form30_1)" -"(let-values(((s_422)(if(syntax?$1 s_421)(syntax-e$1 s_421) s_421)))" -"(if(pair? s_422)" +"(let-values(((s_415)(if(syntax?$1 s_414)(syntax-e$1 s_414) s_414)))" +"(if(pair? s_415)" "(let-values(((begin-for-syntax31_0)" -"(let-values(((s_31)(car s_422))) s_31))" +"(let-values(((s_31)(car s_415))) s_31))" "((form32_0)" -"(let-values(((s_46)(cdr s_422)))" -"(let-values(((s_896)" -"(if(syntax?$1 s_46)(syntax-e$1 s_46) s_46)))" -"(let-values(((flat-s_68)(to-syntax-list.1 s_896)))" +"(let-values(((s_47)(cdr s_415)))" +"(let-values(((s_890)" +"(if(syntax?$1 s_47)(syntax-e$1 s_47) s_47)))" +"(let-values(((flat-s_68)(to-syntax-list.1 s_890)))" "(if(not flat-s_68)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_102))" @@ -78491,64 +78575,64 @@ static const char *startup_source = "(let-values(((temp36_10)(make-top-level-lift trans-ctx_1)))" "(make-lift-context6.1 #f #f temp36_10))))" "(let-values(((capture-ctx_1)" -"(let-values(((v_77) trans-ctx_1))" -"(let-values(((the-struct_124) v_77))" -"(if(expand-context/outer? the-struct_124)" +"(let-values(((v_78) trans-ctx_1))" +"(let-values(((the-struct_121) v_78))" +"(if(expand-context/outer? the-struct_121)" "(let-values(((inner37_0)" -"(let-values(((the-struct_125)" -"(root-expand-context/outer-inner v_77)))" -"(if(expand-context/inner? the-struct_125)" +"(let-values(((the-struct_122)" +"(root-expand-context/outer-inner v_78)))" +"(if(expand-context/inner? the-struct_122)" "(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_125)" -"(root-expand-context/inner-module-scopes the-struct_125)" +"(root-expand-context/inner-self-mpi the-struct_122)" +"(root-expand-context/inner-module-scopes the-struct_122)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_125)" -"(root-expand-context/inner-all-scopes-stx the-struct_125)" -"(root-expand-context/inner-defined-syms the-struct_125)" -"(root-expand-context/inner-counter the-struct_125)" +" the-struct_122)" +"(root-expand-context/inner-all-scopes-stx the-struct_122)" +"(root-expand-context/inner-defined-syms the-struct_122)" +"(root-expand-context/inner-counter the-struct_122)" " lift-key38_0" -"(expand-context/inner-to-parsed? the-struct_125)" -"(expand-context/inner-phase the-struct_125)" -"(expand-context/inner-namespace the-struct_125)" -"(expand-context/inner-just-once? the-struct_125)" -"(expand-context/inner-module-begin-k the-struct_125)" -"(expand-context/inner-allow-unbound? the-struct_125)" -"(expand-context/inner-in-local-expand? the-struct_125)" -"(expand-context/inner-stops the-struct_125)" -"(expand-context/inner-declared-submodule-names the-struct_125)" +"(expand-context/inner-to-parsed? the-struct_122)" +"(expand-context/inner-phase the-struct_122)" +"(expand-context/inner-namespace the-struct_122)" +"(expand-context/inner-just-once? the-struct_122)" +"(expand-context/inner-module-begin-k the-struct_122)" +"(expand-context/inner-allow-unbound? the-struct_122)" +"(expand-context/inner-in-local-expand? the-struct_122)" +"(expand-context/inner-stops the-struct_122)" +"(expand-context/inner-declared-submodule-names the-struct_122)" " lifts39_0" -"(expand-context/inner-lift-envs the-struct_125)" -"(expand-context/inner-module-lifts the-struct_125)" -"(expand-context/inner-require-lifts the-struct_125)" -"(expand-context/inner-to-module-lifts the-struct_125)" -"(expand-context/inner-requires+provides the-struct_125)" -"(expand-context/inner-observer the-struct_125)" -"(expand-context/inner-for-serializable? the-struct_125)" +"(expand-context/inner-lift-envs the-struct_122)" +"(expand-context/inner-module-lifts the-struct_122)" +"(expand-context/inner-require-lifts the-struct_122)" +"(expand-context/inner-to-module-lifts the-struct_122)" +"(expand-context/inner-requires+provides the-struct_122)" +"(expand-context/inner-observer the-struct_122)" +"(expand-context/inner-for-serializable? the-struct_122)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_125)))" +" the-struct_122)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_125)))))" +" the-struct_122)))))" "(expand-context/outer1.1" " inner37_0" -"(root-expand-context/outer-post-expansion-scope the-struct_124)" -"(root-expand-context/outer-use-site-scopes the-struct_124)" -"(root-expand-context/outer-frame-id the-struct_124)" -"(expand-context/outer-context the-struct_124)" -"(expand-context/outer-env the-struct_124)" -"(expand-context/outer-post-expansion-scope-action the-struct_124)" -"(expand-context/outer-scopes the-struct_124)" -"(expand-context/outer-def-ctx-scopes the-struct_124)" -"(expand-context/outer-binding-layer the-struct_124)" -"(expand-context/outer-reference-records the-struct_124)" -"(expand-context/outer-only-immediate? the-struct_124)" -"(expand-context/outer-need-eventually-defined the-struct_124)" -"(expand-context/outer-current-introduction-scopes the-struct_124)" -"(expand-context/outer-name the-struct_124)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_124))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_121)" +"(root-expand-context/outer-use-site-scopes the-struct_121)" +"(root-expand-context/outer-frame-id the-struct_121)" +"(expand-context/outer-context the-struct_121)" +"(expand-context/outer-env the-struct_121)" +"(expand-context/outer-post-expansion-scope-action the-struct_121)" +"(expand-context/outer-scopes the-struct_121)" +"(expand-context/outer-def-ctx-scopes the-struct_121)" +"(expand-context/outer-binding-layer the-struct_121)" +"(expand-context/outer-reference-records the-struct_121)" +"(expand-context/outer-only-immediate? the-struct_121)" +"(expand-context/outer-need-eventually-defined the-struct_121)" +"(expand-context/outer-current-introduction-scopes the-struct_121)" +"(expand-context/outer-name the-struct_121)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_121))))))" "(let-values(((all-exp-forms_0)" "((letrec-values(((loop_87)" "(lambda(forms_0)" @@ -78564,11 +78648,11 @@ static const char *startup_source = "(call-expand-observe" " obs_16" " 'enter-list" -"(datum->syntax$1 #f form30_0 s_479))))" +"(datum->syntax$1 #f form30_0 s_469))))" "(void)))" "(values))))" "(let-values(((exp-forms_0)" -"((letrec-values(((loop_128)" +"((letrec-values(((loop_129)" "(lambda(forms_1 accum_1)" "(begin" " 'loop" @@ -78590,7 +78674,7 @@ static const char *startup_source = "(datum->syntax$1" " #f" " forms_2" -" s_479))))" +" s_469))))" "(void)))" " forms_2)))" "(let-values()" @@ -78620,12 +78704,12 @@ static const char *startup_source = " #f" " temp40_6" " capture-ctx41_0))))" -"(loop_128" +"(loop_129" "(cdr forms_1)" "(cons" " exp-form_0" " accum_1))))))))))" -" loop_128)" +" loop_129)" " forms_0" " null)))" "(let-values(((lifts_14)(get-and-clear-lifts! lift-ctx_7)))" @@ -78671,8 +78755,8 @@ static const char *startup_source = " loop_87)" " form30_0)))" "(if(expand-context-to-parsed? ctx_10)" -"(parsed-begin-for-syntax21.1 s_479 all-exp-forms_0)" -"(let-values(((s45_0) s_479)((temp46_4)(cons begin-for-syntax29_0 all-exp-forms_0)))" +"(parsed-begin-for-syntax21.1 s_469 all-exp-forms_0)" +"(let-values(((s45_0) s_469)((temp46_4)(cons begin-for-syntax29_0 all-exp-forms_0)))" "(rebuild5.1 #f #f s45_0 temp46_4))))))))))))))" "(void" "(add-core-form!*" @@ -78691,19 +78775,19 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_27)(syntax-disarm$1 s_33)))" "(let-values(((ok?_95 #%require47_0 req48_0)" -"(let-values(((s_197) disarmed-s_27))" -"(let-values(((orig-s_4) s_197))" +"(let-values(((s_192) disarmed-s_27))" +"(let-values(((orig-s_4) s_192))" "(let-values(((#%require47_1 req48_1)" -"(let-values(((s_58)(if(syntax?$1 s_197)(syntax-e$1 s_197) s_197)))" -"(if(pair? s_58)" -"(let-values(((#%require49_0)(let-values(((s_499)(car s_58))) s_499))" +"(let-values(((s_891)(if(syntax?$1 s_192)(syntax-e$1 s_192) s_192)))" +"(if(pair? s_891)" +"(let-values(((#%require49_0)(let-values(((s_489)(car s_891))) s_489))" "((req50_0)" -"(let-values(((s_897)(cdr s_58)))" -"(let-values(((s_199)" -"(if(syntax?$1 s_897)" -"(syntax-e$1 s_897)" -" s_897)))" -"(let-values(((flat-s_69)(to-syntax-list.1 s_199)))" +"(let-values(((s_892)(cdr s_891)))" +"(let-values(((s_194)" +"(if(syntax?$1 s_892)" +"(syntax-e$1 s_892)" +" s_892)))" +"(let-values(((flat-s_69)(to-syntax-list.1 s_194)))" "(if(not flat-s_69)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_4))" @@ -78715,18 +78799,18 @@ static const char *startup_source = "(begin" "(let-values(((temp51_3)" "(reverse$1" -"(let-values(((lst_461) req48_0))" +"(let-values(((lst_466) req48_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_461)))" -"((letrec-values(((for-loop_341)" -"(lambda(fold-var_296 lst_153)" +"(let-values()(check-list lst_466)))" +"((letrec-values(((for-loop_340)" +"(lambda(fold-var_296 lst_155)" "(begin" " 'for-loop" -"(if(pair? lst_153)" -"(let-values(((req_20)(unsafe-car lst_153))" -"((rest_265)(unsafe-cdr lst_153)))" +"(if(pair? lst_155)" +"(let-values(((req_20)(unsafe-car lst_155))" +"((rest_266)(unsafe-cdr lst_155)))" "(let-values(((fold-var_402)" "(let-values(((fold-var_299) fold-var_296))" "(let-values(((fold-var_403)" @@ -78739,12 +78823,12 @@ static const char *startup_source = " fold-var_299))))" "(values fold-var_403)))))" "(if(not #f)" -"(for-loop_341 fold-var_402 rest_265)" +"(for-loop_340 fold-var_402 rest_266)" " fold-var_402)))" " fold-var_296)))))" -" for-loop_341)" +" for-loop_340)" " null" -" lst_461)))))" +" lst_466)))))" "((s52_0) s_33)" "((temp53_5) #f)" "((temp54_7)(expand-context-namespace ctx_128))" @@ -78781,11 +78865,11 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%provide" -"(lambda(s_319 ctx_129)" +"(lambda(s_64 ctx_129)" "(begin" "(let-values(((obs_171)(expand-context-observer ctx_129)))" "(if obs_171(let-values()(let-values()(call-expand-observe obs_171 'prim-provide)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_319)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_64)))))" "(define-values(ns)(make-namespace))" "(void" "(begin" @@ -78816,65 +78900,65 @@ static const char *startup_source = "(let-values(((ns26_3) ns)" "((eval27_0) 1/eval)" "((temp28_8)" -"(let-values(((ht_172) main-primitives))" +"(let-values(((ht_171) main-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_172)))" +"(let-values()(check-in-hash-keys ht_171)))" "((letrec-values(((for-loop_20)" -"(lambda(table_230 i_3)" +"(lambda(table_232 i_3)" "(begin" " 'for-loop" "(if i_3" -"(let-values(((name_81)(hash-iterate-key ht_172 i_3)))" -"(let-values(((table_217)" -"(let-values(((table_231) table_230))" -"(let-values(((table_186)" +"(let-values(((name_81)(hash-iterate-key ht_171 i_3)))" +"(let-values(((table_222)" +"(let-values(((table_233) table_232))" +"(let-values(((table_190)" "(let-values()" -"(let-values(((key_98 val_89)" +"(let-values(((key_97 val_89)" "(let-values()" "(values" "(let-values() name_81)" " #t))))" -"(hash-set table_231 key_98 val_89)))))" -"(values table_186)))))" +"(hash-set table_233 key_97 val_89)))))" +"(values table_190)))))" "(if(not #f)" -"(for-loop_20 table_217(hash-iterate-next ht_172 i_3))" -" table_217)))" -" table_230)))))" +"(for-loop_20 table_222(hash-iterate-next ht_171 i_3))" +" table_222)))" +" table_232)))))" " for-loop_20)" " '#hash()" -"(hash-iterate-first ht_172)))))" +"(hash-iterate-first ht_171)))))" "((temp29_5)" -"(let-values(((ht_173) read-primitives))" +"(let-values(((ht_172) read-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_173)))" -"((letrec-values(((for-loop_323)" -"(lambda(table_189 i_186)" +"(let-values()(check-in-hash-keys ht_172)))" +"((letrec-values(((for-loop_322)" +"(lambda(table_193 i_186)" "(begin" " 'for-loop" "(if i_186" -"(let-values(((name_82)(hash-iterate-key ht_173 i_186)))" -"(let-values(((table_116)" -"(let-values(((table_109) table_189))" -"(let-values(((table_110)" +"(let-values(((name_82)(hash-iterate-key ht_172 i_186)))" +"(let-values(((table_119)" +"(let-values(((table_112) table_193))" +"(let-values(((table_113)" "(let-values()" -"(let-values(((key_99 val_90)" +"(let-values(((key_98 val_90)" "(let-values()" "(values" "(let-values() name_82)" " #t))))" -"(hash-set table_109 key_99 val_90)))))" -"(values table_110)))))" +"(hash-set table_112 key_98 val_90)))))" +"(values table_113)))))" "(if(not #f)" -"(for-loop_323 table_116(hash-iterate-next ht_173 i_186))" -" table_116)))" -" table_189)))))" -" for-loop_323)" +"(for-loop_322 table_119(hash-iterate-next ht_172 i_186))" +" table_119)))" +" table_193)))))" +" for-loop_322)" " '#hash()" -"(hash-iterate-first ht_173))))))" +"(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))" @@ -78898,18 +78982,18 @@ static const char *startup_source = "(let-values(((name30_0) name_83)" "((ns31_5) ns)" "((temp32_5)" -"(let-values(((or-part_296)" +"(let-values(((or-part_163)" "(eq?" " name_83" " '#%foreign)))" -"(if or-part_296" -" or-part_296" -"(let-values(((or-part_93)" +"(if or-part_163" +" or-part_163" +"(let-values(((or-part_95)" "(eq?" " name_83" " '#%futures)))" -"(if or-part_93" -" or-part_93" +"(if or-part_95" +" or-part_95" "(eq?" " name_83" " '#%unsafe)))))))" @@ -78942,5 +79026,5 @@ static const char *startup_source = "(declare-reexporting-module!50.1 ns35_1 temp36_11 #t temp33_4 temp34_6))" "(1/current-namespace ns)" "(1/dynamic-require ''#%kernel 0)))" -"(define-values(datum->kernel-syntax)(lambda(s_898)(begin(1/datum->syntax core-stx s_898)))))" +"(define-values(datum->kernel-syntax)(lambda(s_893)(begin(1/datum->syntax core-stx s_893)))))" ; diff --git a/racket/src/racket/src/struct.c b/racket/src/racket/src/struct.c index a6a3da61c6..f39203fabe 100644 --- a/racket/src/racket/src/struct.c +++ b/racket/src/racket/src/struct.c @@ -3437,7 +3437,9 @@ intptr_t scheme_get_or_check_structure_shape(Scheme_Object *e, Scheme_Object *ex else want_v = ((st->num_slots << STRUCT_PROC_SHAPE_SHIFT) | STRUCT_PROC_SHAPE_STRUCT - | (st->authentic ? STRUCT_PROC_SHAPE_AUTHENTIC : 0)); + | ((st->authentic && (!expected || (v & STRUCT_PROC_SHAPE_AUTHENTIC))) + ? STRUCT_PROC_SHAPE_AUTHENTIC + : 0)); } else if (!SCHEME_PRIMP(e)) { want_v = -1; } else { @@ -3450,7 +3452,9 @@ intptr_t scheme_get_or_check_structure_shape(Scheme_Object *e, Scheme_Object *ex } else if (i == SCHEME_PRIM_STRUCT_TYPE_PRED) { st = (Scheme_Struct_Type *)SCHEME_PRIM_CLOSURE_ELS(e)[0]; want_v = (STRUCT_PROC_SHAPE_PRED - | (st->authentic ? STRUCT_PROC_SHAPE_AUTHENTIC : 0)); + | ((st->authentic && (!expected || (v & STRUCT_PROC_SHAPE_AUTHENTIC))) + ? STRUCT_PROC_SHAPE_AUTHENTIC + : 0)); } else if (i == SCHEME_PRIM_STRUCT_TYPE_INDEXED_SETTER) { int pos = SCHEME_INT_VAL(SCHEME_PRIM_CLOSURE_ELS(e)[1]); int parent_slots; @@ -3464,13 +3468,17 @@ intptr_t scheme_get_or_check_structure_shape(Scheme_Object *e, Scheme_Object *ex pos = 0; /* => unknown, since simple struct info can't track it */ want_v = ((pos << STRUCT_PROC_SHAPE_SHIFT) | STRUCT_PROC_SHAPE_SETTER - | (st->authentic ? STRUCT_PROC_SHAPE_AUTHENTIC : 0)); + | ((st->authentic && (!expected || (v & STRUCT_PROC_SHAPE_AUTHENTIC))) + ? STRUCT_PROC_SHAPE_AUTHENTIC + : 0)); } else if (i == SCHEME_PRIM_STRUCT_TYPE_INDEXED_GETTER) { int pos = SCHEME_INT_VAL(SCHEME_PRIM_CLOSURE_ELS(e)[1]); st = (Scheme_Struct_Type *)SCHEME_PRIM_CLOSURE_ELS(e)[0]; want_v = ((pos << STRUCT_PROC_SHAPE_SHIFT) | STRUCT_PROC_SHAPE_GETTER - | (st->authentic ? STRUCT_PROC_SHAPE_AUTHENTIC : 0)); + | ((st->authentic && (!expected || (v & STRUCT_PROC_SHAPE_AUTHENTIC))) + ? STRUCT_PROC_SHAPE_AUTHENTIC + : 0)); } else if ((i == SCHEME_PRIM_STRUCT_TYPE_INDEXLESS_SETTER) || (i == SCHEME_PRIM_STRUCT_TYPE_BROKEN_INDEXED_SETTER) || (i == SCHEME_PRIM_STRUCT_TYPE_INDEXLESS_GETTER)) {