From ec2387fa16b23286e0956ce8aa0662dbdc11ff97 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 26 May 2018 10:31:36 -0600 Subject: [PATCH] syntax-debug-info: restore all-bindings support Relevant to #2099 --- pkgs/racket-test-core/tests/racket/stx.rktl | 6 + racket/src/expander/syntax/binding-table.rkt | 54 +- racket/src/expander/syntax/debug.rkt | 70 +- racket/src/racket/src/startup.inc | 15472 +++++++++-------- 4 files changed, 7927 insertions(+), 7675 deletions(-) diff --git a/pkgs/racket-test-core/tests/racket/stx.rktl b/pkgs/racket-test-core/tests/racket/stx.rktl index 6a2596effd..5daaf368ba 100644 --- a/pkgs/racket-test-core/tests/racket/stx.rktl +++ b/pkgs/racket-test-core/tests/racket/stx.rktl @@ -2006,6 +2006,12 @@ (eval '(require (prefix-in foo: racket/base))) (check (lambda (stx) (syntax-debug-info (namespace-syntax-introduce stx)))))) +(test #t + 'syntax-debug-info-all-binding + (let ([y 10]) + (for/or ([e (in-list (hash-ref (syntax-debug-info (quote-syntax x #:local) 0 #t) 'bindings null))]) + (eq? 'y (hash-ref e 'name #f))))) + ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Check that attacks are thwarted via `syntax-local-get-shadower' ;; or `make-syntax-delta-introducer': diff --git a/racket/src/expander/syntax/binding-table.rkt b/racket/src/expander/syntax/binding-table.rkt index 85d01894d2..dd8e45e939 100644 --- a/racket/src/expander/syntax/binding-table.rkt +++ b/racket/src/expander/syntax/binding-table.rkt @@ -25,6 +25,7 @@ binding-table-empty? in-binding-table + in-full-non-bulk-binding-table binding-table-symbols @@ -191,7 +192,7 @@ ;; the syntax object and extra shifts expressions may be used for ;; loading bulk bindings. (define-sequence-syntax in-binding-table - (lambda () #'do-not-use-in-binding-as-an-expression) + (lambda () #'do-not-use-in-binding-table-as-an-expression) (lambda (stx) (syntax-case stx () [[(scopes-id binding-id) (_ sym table-expr s-expr extra-shifts-expr)] @@ -239,6 +240,57 @@ ;; ---------------------------------------- +;; Iterate through all non-bulk symbol+scope+binding combinations. +;; This iterator allocates; its intended for use in situations +;; that don't need a tight loop, which should generally be the +;; case for somethign that's inspecting all bindings. +(define-sequence-syntax in-full-non-bulk-binding-table + (lambda () #'do-not-use-in-full-non-bulk-binding-table-as-an-expression) + (lambda (stx) + (syntax-case stx () + [[(sym-id scopes-id binding-id) (_ table-expr)] + #'[(scopes-id binding-id) + (:do-in + ([(sym-ht) + (let ([table table-expr]) + (if (hash? table) + table + (table-with-bulk-bindings-syms table)))]) + #t + ([state (let loop ([sym-i (hash-iterate-first sym-ht)]) + (if sym-i + (next-state-in-full-binding-table sym-ht sym-i) + '(#f . #f)))]) + (car state) + ;; At each step, extract the current scope set and binding; + ;; either can be #f, in which case the consumer of the + ;; sequence should move on the the next result + ([(sym-id) (vector-ref (car state) 1)] + [(scopes-id) (hash-iterate-key (vector-ref (car state) 2) (cdr state))] + [(binding-id) (hash-iterate-value (vector-ref (car state) 2) (cdr state))]) + #t + #t + [(let* ([ht (vector-ref (car state) 2)] + [i (hash-iterate-next ht (cdr state))]) + (if i + (cons (car state) i) + (next-state-in-full-binding-table sym-ht + (hash-iterate-next sym-ht (vector-ref (car state) 0)))))])]]))) + +(define (next-state-in-full-binding-table sym-ht sym-i) + (if sym-i + (let* ([ht (hash-iterate-value sym-ht sym-i)] + [i (hash-iterate-first ht)]) + (if i + (cons (vector sym-i + (hash-iterate-key sym-ht sym-i) ; symbol + ht) + i) + (next-state-in-full-binding-table (hash-iterate-next sym-ht sym-i)))) + '(#f . #f))) + +;; ---------------------------------------- + ;; Return a set of symbols that have bindings for a given scope set (define (binding-table-symbols table scs s extra-shifts) (define-values (ht bulk-bindings) diff --git a/racket/src/expander/syntax/debug.rkt b/racket/src/expander/syntax/debug.rkt index a791f1addd..45b2e3867a 100644 --- a/racket/src/expander/syntax/debug.rkt +++ b/racket/src/expander/syntax/debug.rkt @@ -20,35 +20,51 @@ (define context (scope-set->context s-scs)) (define context-ht (hash-set init-ht 'context context)) (define sym (syntax-e s)) + (define (classify-binding b) + (if (local-binding? b) + 'local + 'module)) + (define (extract-binding b) + (if (local-binding? b) + (local-binding-key b) + (vector (module-binding-sym b) + (module-binding-module b) + (module-binding-phase b)))) (define bindings - (cond - [(identifier? s) - (define-values (bindings covered-scopess) - (for*/fold ([bindings null] [covered-scope-sets (set)]) - ([sc (in-set s-scs)] - [(scs b) (in-binding-table sym (scope-binding-table sc) s null)] - #:when (and scs b - (or all-bindings? - (subset? scs s-scs)) - ;; Skip overidden: - (not (set-member? covered-scope-sets scs)))) - (values - (cons - (hash 'name (syntax-e s) + (append + ;; Bindings based on the identifier `s` + (cond + [(identifier? s) + (define-values (bindings covered-scopess) + (for*/fold ([bindings null] [covered-scope-sets (set)]) + ([sc (in-set s-scs)] + [(scs b) (in-binding-table sym (scope-binding-table sc) s null)] + #:when (and scs b + (or all-bindings? + (subset? scs s-scs)) + ;; Skip overidden: + (not (set-member? covered-scope-sets scs)))) + (values + (cons + (hasheq 'name (syntax-e s) + 'context (scope-set->context scs) + 'match? (subset? scs s-scs) + (classify-binding b) (extract-binding b)) + bindings) + (set-add covered-scope-sets scs)))) + bindings] + [else null]) + ;; All other bindings (but not other bulk bindings, currently) + (cond + [all-bindings? + (for*/list ([sc (in-set s-scs)] + [(o-sym scs b) (in-full-non-bulk-binding-table (scope-binding-table sc))] + #:unless (eq? o-sym sym)) + (hasheq 'name o-sym 'context (scope-set->context scs) - 'match? (subset? scs s-scs) - (if (local-binding? b) - 'local - 'module) - (if (local-binding? b) - (local-binding-key b) - (vector (module-binding-sym b) - (module-binding-module b) - (module-binding-phase b)))) - bindings) - (set-add covered-scope-sets scs)))) - bindings] - [else null])) + 'match? #f + (classify-binding b) (extract-binding b)))] + [else null]))) (if (null? bindings) context-ht (hash-set context-ht 'bindings bindings)))) diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 4dbdaa3fea..b193125387 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -6988,12 +6988,12 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash ht_30)))" "((letrec-values(((for-loop_32)" -"(lambda(syms_3 i_50)" +"(lambda(syms_3 i_34)" "(begin" " 'for-loop" -"(if i_50" +"(if i_34" "(let-values(((sym_5 sym-bindings_0)" -"(unsafe-immutable-hash-iterate-key+value ht_30 i_50)))" +"(unsafe-immutable-hash-iterate-key+value ht_30 i_34)))" "(let-values(((syms_4)" "(let-values(((syms_5) syms_3))" "(let-values(((syms_6)" @@ -7021,7 +7021,7 @@ static const char *startup_source = "(if(not #f)" "(for-loop_32" " syms_4" -"(unsafe-immutable-hash-iterate-next ht_30 i_50))" +"(unsafe-immutable-hash-iterate-next ht_30 i_34))" " syms_4)))" " syms_3)))))" " for-loop_32)" @@ -7034,11 +7034,11 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash-keys ht_31)))" "((letrec-values(((for-loop_33)" -"(lambda(syms_7 i_51)" +"(lambda(syms_7 i_50)" "(begin" " 'for-loop" -"(if i_51" -"(let-values(((sym_6)(unsafe-immutable-hash-iterate-key ht_31 i_51)))" +"(if i_50" +"(let-values(((sym_6)(unsafe-immutable-hash-iterate-key ht_31 i_50)))" "(let-values(((syms_8)" "(let-values(((syms_9) syms_7))" "(let-values(((syms_10)" @@ -7068,7 +7068,7 @@ static const char *startup_source = "(if(not #f)" "(for-loop_33" " syms_8" -"(unsafe-immutable-hash-iterate-next ht_31 i_51))" +"(unsafe-immutable-hash-iterate-next ht_31 i_50))" " syms_8)))" " syms_7)))))" " for-loop_33)" @@ -7092,33 +7092,44 @@ static const char *startup_source = "(let-values() syms_11)" "(let-values()(hash-set syms_11 sym_7(hash-remove sym-bindings_2 scopes_4)))))))))))))" "(define-values" +"(next-state-in-full-binding-table)" +"(lambda(sym-ht_0 sym-i_0)" +"(begin" +"(if sym-i_0" +"(let-values(((ht_32)(hash-iterate-value sym-ht_0 sym-i_0)))" +"(let-values(((i_51)(hash-iterate-first ht_32)))" +"(if i_51" +"(cons(vector sym-i_0(hash-iterate-key sym-ht_0 sym-i_0) ht_32) i_51)" +"(next-state-in-full-binding-table(hash-iterate-next sym-ht_0 sym-i_0)))))" +" '(#f . #f)))))" +"(define-values" "(binding-table-symbols)" "(lambda(table_33 scs_2 s_71 extra-shifts_1)" "(begin" -"(let-values(((ht_29 bulk-bindings_1)" +"(let-values(((ht_33 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_32) ht_29))" +"(let-values(((ht_34) ht_33))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_32)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_34)))" "((letrec-values(((for-loop_34)" "(lambda(table_34 i_52)" "(begin" " 'for-loop" "(if i_52" -"(let-values(((sym_8 at-sym_0)(hash-iterate-key+value ht_32 i_52)))" -"(let-values(((table_32)" -"(let-values(((table_35) table_34))" -"(if(let-values(((ht_33) at-sym_0))" +"(let-values(((sym_8 at-sym_0)(hash-iterate-key+value ht_34 i_52)))" +"(let-values(((table_35)" +"(let-values(((table_36) table_34))" +"(if(let-values(((ht_35) at-sym_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_33)))" +"(let-values()(check-in-hash-keys ht_35)))" "((letrec-values(((for-loop_35)" "(lambda(result_28 i_53)" "(begin" @@ -7126,7 +7137,7 @@ static const char *startup_source = "(if i_53" "(let-values(((an-scs_0)" "(hash-iterate-key" -" ht_33" +" ht_35" " i_53)))" "(let-values(((result_29)" "(let-values()" @@ -7147,42 +7158,42 @@ static const char *startup_source = "(for-loop_35" " result_29" "(hash-iterate-next" -" ht_33" +" ht_35" " i_53))" " result_29)))" " result_28)))))" " for-loop_35)" " #f" -"(hash-iterate-first ht_33))))" -"(let-values(((table_36) table_35))" -"(let-values(((table_37)" +"(hash-iterate-first ht_35))))" +"(let-values(((table_37) table_36))" +"(let-values(((table_38)" "(let-values()" "(let-values(((key_18 val_9)" "(let-values()" "(values" "(let-values() sym_8)" " #t))))" -"(hash-set table_36 key_18 val_9)))))" -"(values table_37)))" -" table_35))))" -"(if(not #f)(for-loop_34 table_32(hash-iterate-next ht_32 i_52)) table_32)))" +"(hash-set table_37 key_18 val_9)))))" +"(values table_38)))" +" table_36))))" +"(if(not #f)(for-loop_34 table_35(hash-iterate-next ht_34 i_52)) table_35)))" " table_34)))))" " for-loop_34)" " '#hasheq()" -"(hash-iterate-first ht_32))))" +"(hash-iterate-first ht_34))))" "(let-values(((lst_34) bulk-bindings_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_34)))" "((letrec-values(((for-loop_36)" -"(lambda(table_38 lst_35)" +"(lambda(table_39 lst_35)" "(begin" " 'for-loop" "(if(pair? lst_35)" "(let-values(((bba_1)(unsafe-car lst_35))((rest_14)(unsafe-cdr lst_35)))" -"(let-values(((table_39)" -"(let-values(((table_40) table_38))" +"(let-values(((table_40)" +"(let-values(((table_41) table_39))" "(if(subset?(bulk-binding-at-scopes bba_1) scs_2)" -"(let-values(((ht_34)" +"(let-values(((ht_36)" "(bulk-binding-symbols" "(bulk-binding-at-bulk bba_1)" " s_71" @@ -7191,20 +7202,20 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_34)))" +"(let-values()(check-in-hash-keys ht_36)))" "((letrec-values(((for-loop_37)" -"(lambda(table_41 i_54)" +"(lambda(table_42 i_5)" "(begin" " 'for-loop" -"(if i_54" +"(if i_5" "(let-values(((sym_9)" "(hash-iterate-key" -" ht_34" -" i_54)))" -"(let-values(((table_42)" +" ht_36" +" i_5)))" "(let-values(((table_43)" -" table_41))" "(let-values(((table_44)" +" table_42))" +"(let-values(((table_45)" "(let-values()" "(let-values(((key_19" " val_10)" @@ -7214,25 +7225,25 @@ static const char *startup_source = " sym_9)" " #t))))" "(hash-set" -" table_43" +" table_44" " key_19" " val_10)))))" "(values" -" table_44)))))" +" table_45)))))" "(if(not #f)" "(for-loop_37" -" table_42" +" table_43" "(hash-iterate-next" -" ht_34" -" i_54))" -" table_42)))" -" table_41)))))" +" ht_36" +" i_5))" +" table_43)))" +" table_42)))))" " for-loop_37)" -" table_40" -"(hash-iterate-first ht_34))))" -" table_40))))" -"(if(not #f)(for-loop_36 table_39 rest_14) table_39)))" -" table_38)))))" +" table_41" +"(hash-iterate-first ht_36))))" +" table_41))))" +"(if(not #f)(for-loop_36 table_40 rest_14) table_40)))" +" table_39)))))" " for-loop_36)" " '#hasheq()" " lst_34))))))))" @@ -7245,23 +7256,23 @@ static const char *startup_source = " or-part_94" "(let-values(((reachable-scopes_1)(serialize-state-reachable-scopes state_15)))" "(let-values(((new-syms_2)" -"(let-values(((ht_35)(if(hash? bt_3) bt_3(table-with-bulk-bindings-syms/serialize bt_3))))" +"(let-values(((ht_37)(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_35)))" +"(let-values()(check-in-immutable-hash ht_37)))" "((letrec-values(((for-loop_38)" -"(lambda(table_45 i_55)" +"(lambda(table_46 i_54)" "(begin" " 'for-loop" -"(if i_55" +"(if i_54" "(let-values(((sym_10 bindings-for-sym_0)" "(unsafe-immutable-hash-iterate-key+value" -" ht_35" -" i_55)))" -"(let-values(((table_46)" +" ht_37" +" i_54)))" +"(let-values(((table_47)" "(let-values(((new-bindings-for-sym_0)" -"(let-values(((ht_36)" +"(let-values(((ht_38)" " bindings-for-sym_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -7269,27 +7280,27 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-immutable-hash" -" ht_36)))" +" ht_38)))" "((letrec-values(((for-loop_39)" -"(lambda(table_47" -" i_56)" +"(lambda(table_48" +" i_55)" "(begin" " 'for-loop" -"(if i_56" +"(if i_55" "(let-values(((scopes_5" " binding_1)" "(unsafe-immutable-hash-iterate-key+value" -" ht_36" -" i_56)))" -"(let-values(((table_48)" +" ht_38" +" i_55)))" "(let-values(((table_49)" -" table_47))" +"(let-values(((table_50)" +" table_48))" "(if(subset?" " scopes_5" " reachable-scopes_1)" -"(let-values(((table_50)" -" table_49))" "(let-values(((table_51)" +" table_50))" +"(let-values(((table_52)" "(let-values()" "(let-values(((key_20" " val_11)" @@ -7300,41 +7311,41 @@ static const char *startup_source = " state_15)" " binding_1))))" "(hash-set" -" table_50" +" table_51" " key_20" " val_11)))))" "(values" -" table_51)))" -" table_49))))" +" table_52)))" +" table_50))))" "(if(not" " #f)" "(for-loop_39" -" table_48" +" table_49" "(unsafe-immutable-hash-iterate-next" -" ht_36" -" i_56))" -" table_48)))" -" table_47)))))" +" ht_38" +" i_55))" +" table_49)))" +" table_48)))))" " for-loop_39)" " '#hash()" "(unsafe-immutable-hash-iterate-first" -" ht_36))))))" +" ht_38))))))" "(begin" " #t" "((letrec-values(((for-loop_40)" -"(lambda(table_52)" +"(lambda(table_53)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_53)" "(let-values(((table_54)" -" table_52))" +"(let-values(((table_55)" +" table_53))" "(if(positive?" "(hash-count" " new-bindings-for-sym_0))" -"(let-values(((table_55)" -" table_54))" "(let-values(((table_56)" +" table_55))" +"(let-values(((table_57)" "(let-values()" "(let-values(((key_21" " val_12)" @@ -7343,24 +7354,24 @@ static const char *startup_source = " sym_10" " new-bindings-for-sym_0))))" "(hash-set" -" table_55" +" table_56" " key_21" " val_12)))))" "(values" -" table_56)))" -" table_54))))" -" table_53))))))" +" table_57)))" +" table_55))))" +" table_54))))))" " for-loop_40)" -" table_45)))))" +" table_46)))))" "(if(not #f)" "(for-loop_38" -" table_46" -"(unsafe-immutable-hash-iterate-next ht_35 i_55))" -" table_46)))" -" table_45)))))" +" table_47" +"(unsafe-immutable-hash-iterate-next ht_37 i_54))" +" table_47)))" +" table_46)))))" " for-loop_38)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_35))))))" +"(unsafe-immutable-hash-iterate-first ht_37))))))" "(let-values(((new-bulk-bindings_0)" "(if(hash? bt_3)" " null" @@ -7424,33 +7435,33 @@ static const char *startup_source = "(lambda(bt_4 get-reachable-scopes_0 reach_2 register-trigger_0)" "(begin" "(begin" -"(let-values(((ht_37)(if(hash? bt_4) bt_4(table-with-bulk-bindings-syms/serialize bt_4))))" +"(let-values(((ht_39)(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_37)))" +"(let-values()(check-in-immutable-hash ht_39)))" "((letrec-values(((for-loop_42)" +"(lambda(i_56)" +"(begin" +" 'for-loop" +"(if i_56" +"(let-values(((sym_11 bindings-for-sym_1)" +"(unsafe-immutable-hash-iterate-key+value ht_39 i_56)))" +"(let-values((()" +"(let-values(((ht_40) bindings-for-sym_1))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-in-immutable-hash ht_40)))" +"((letrec-values(((for-loop_43)" "(lambda(i_57)" "(begin" " 'for-loop" "(if i_57" -"(let-values(((sym_11 bindings-for-sym_1)" -"(unsafe-immutable-hash-iterate-key+value ht_37 i_57)))" -"(let-values((()" -"(let-values(((ht_38) bindings-for-sym_1))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-in-immutable-hash ht_38)))" -"((letrec-values(((for-loop_43)" -"(lambda(i_58)" -"(begin" -" 'for-loop" -"(if i_58" "(let-values(((scopes_6 binding_2)" "(unsafe-immutable-hash-iterate-key+value" -" ht_38" -" i_58)))" +" ht_40" +" i_57)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -7475,18 +7486,18 @@ static const char *startup_source = "(if(not #f)" "(for-loop_43" "(unsafe-immutable-hash-iterate-next" -" ht_38" -" i_58))" +" ht_40" +" i_57))" "(values))))" "(values))))))" " for-loop_43)" -"(unsafe-immutable-hash-iterate-first ht_38))))))" +"(unsafe-immutable-hash-iterate-first ht_40))))))" "(if(not #f)" -"(for-loop_42(unsafe-immutable-hash-iterate-next ht_37 i_57))" +"(for-loop_42(unsafe-immutable-hash-iterate-next ht_39 i_56))" "(values))))" "(values))))))" " for-loop_42)" -"(unsafe-immutable-hash-iterate-first ht_37))))" +"(unsafe-immutable-hash-iterate-first ht_39))))" "(void)" "(if(table-with-bulk-bindings? bt_4)" "(let-values()" @@ -7531,20 +7542,20 @@ static const char *startup_source = "(let-values()(reach_3 v_81))" "(let-values()" "(let-values(((pending-scopes_0)" -"(let-values(((ht_39) scopes_7))" +"(let-values(((ht_41) scopes_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_39)))" +"(let-values()(check-in-immutable-hash-keys ht_41)))" "((letrec-values(((for-loop_45)" -"(lambda(table_57 i_59)" +"(lambda(table_58 i_58)" "(begin" " 'for-loop" -"(if i_59" +"(if i_58" "(let-values(((sc_0)" -"(unsafe-immutable-hash-iterate-key ht_39 i_59)))" -"(let-values(((table_58)" -"(let-values(((table_59) table_57))" +"(unsafe-immutable-hash-iterate-key ht_41 i_58)))" +"(let-values(((table_59)" +"(let-values(((table_60) table_58))" "(if(let-values(((or-part_95)" "(set-member?" " reachable-scopes_2" @@ -7552,9 +7563,9 @@ static const char *startup_source = "(if or-part_95" " or-part_95" "(implicitly-reachable? sc_0)))" -" table_59" -"(let-values(((table_60) table_59))" -"(let-values(((table_61)" +" table_60" +"(let-values(((table_61) table_60))" +"(let-values(((table_62)" "(let-values()" "(let-values(((key_22" " val_13)" @@ -7564,19 +7575,19 @@ static const char *startup_source = " sc_0)" " #t))))" "(hash-set" -" table_60" +" table_61" " key_22" " val_13)))))" -"(values table_61)))))))" +"(values table_62)))))))" "(if(not #f)" "(for-loop_45" -" table_58" -"(unsafe-immutable-hash-iterate-next ht_39 i_59))" -" table_58)))" -" table_57)))))" +" table_59" +"(unsafe-immutable-hash-iterate-next ht_41 i_58))" +" table_59)))" +" table_58)))))" " for-loop_45)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_39))))))" +"(unsafe-immutable-hash-iterate-first ht_41))))))" "(let-values(((check-trigger_0)" "(lambda(reach_4)" "(begin" @@ -7585,20 +7596,20 @@ static const char *startup_source = "(let-values()" "(begin" "(reach_4 v_81)" -"(let-values(((ht_40) 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_40)))" +"(let-values()(check-in-immutable-hash-keys ht_42)))" "((letrec-values(((for-loop_46)" -"(lambda(i_7)" +"(lambda(i_59)" "(begin" " 'for-loop" -"(if i_7" +"(if i_59" "(let-values(((sc_1)" "(unsafe-immutable-hash-iterate-key" -" ht_40" -" i_7)))" +" ht_42" +" i_59)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -7615,25 +7626,27 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_46" -"(unsafe-immutable-hash-iterate-next ht_40 i_7))" +"(unsafe-immutable-hash-iterate-next" +" ht_42" +" i_59))" "(values))))" "(values))))))" " for-loop_46)" -"(unsafe-immutable-hash-iterate-first ht_40))))" +"(unsafe-immutable-hash-iterate-first ht_42))))" "(void)))" "(void))))))" "(begin" -"(let-values(((ht_41) pending-scopes_0))" +"(let-values(((ht_43) pending-scopes_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_41)))" +"(let-values()(check-in-immutable-hash-keys ht_43)))" "((letrec-values(((for-loop_47)" "(lambda(i_60)" "(begin" " 'for-loop" "(if i_60" -"(let-values(((sc_2)(unsafe-immutable-hash-iterate-key ht_41 i_60)))" +"(let-values(((sc_2)(unsafe-immutable-hash-iterate-key ht_43 i_60)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -7652,11 +7665,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_47(unsafe-immutable-hash-iterate-next ht_41 i_60))" +"(for-loop_47(unsafe-immutable-hash-iterate-next ht_43 i_60))" "(values))))" "(values))))))" " for-loop_47)" -"(unsafe-immutable-hash-iterate-first ht_41))))" +"(unsafe-immutable-hash-iterate-first ht_43))))" "(void)" "(check-trigger_0 reach_3))))))))))" "(define-values" @@ -7760,18 +7773,18 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'syntax-property-symbol-keys \"syntax\" s_10)))" "(reverse$1" -"(let-values(((ht_42)(syntax-props s_10)))" +"(let-values(((ht_44)(syntax-props s_10)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_42)))" +"(let-values()(check-in-immutable-hash ht_44)))" "((letrec-values(((for-loop_48)" "(lambda(fold-var_26 i_61)" "(begin" " 'for-loop" "(if i_61" "(let-values(((k_16 v_32)" -"(unsafe-immutable-hash-iterate-key+value ht_42 i_61)))" +"(unsafe-immutable-hash-iterate-key+value ht_44 i_61)))" "(let-values(((fold-var_27)" "(let-values(((fold-var_28) fold-var_26))" "(if(if(symbol? k_16)(symbol-interned? k_16) #f)" @@ -7784,12 +7797,12 @@ static const char *startup_source = "(values fold-var_30)))" " fold-var_28))))" "(if(not #f)" -"(for-loop_48 fold-var_27(unsafe-immutable-hash-iterate-next ht_42 i_61))" +"(for-loop_48 fold-var_27(unsafe-immutable-hash-iterate-next ht_44 i_61))" " fold-var_27)))" " fold-var_26)))))" " for-loop_48)" " null" -"(unsafe-immutable-hash-iterate-first ht_42)))))))))))" +"(unsafe-immutable-hash-iterate-first ht_44)))))))))))" "(define-values" "(1/syntax-property-remove)" "(lambda(s_76 key_27)" @@ -7914,18 +7927,18 @@ static const char *startup_source = "(let-values(((or-part_96)(set-member? t_19 insp_0)))" "(if or-part_96" " or-part_96" -"(let-values(((ht_43) t_19))" +"(let-values(((ht_45) t_19))" "(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_45)))" "((letrec-values(((for-loop_49)" "(lambda(result_31 i_62)" "(begin" " 'for-loop" "(if i_62" "(let-values(((already-insp_0)" -"(unsafe-immutable-hash-iterate-key ht_43 i_62)))" +"(unsafe-immutable-hash-iterate-key ht_45 i_62)))" "(let-values(((result_32)" "(let-values()" "(let-values(((result_33)" @@ -7938,12 +7951,12 @@ static const char *startup_source = "(if(if(not((lambda x_29 result_32) already-insp_0))(not #f) #f)" "(for-loop_49" " result_32" -"(unsafe-immutable-hash-iterate-next ht_43 i_62))" +"(unsafe-immutable-hash-iterate-next ht_45 i_62))" " result_32)))" " result_31)))))" " for-loop_49)" " #f" -"(unsafe-immutable-hash-iterate-first ht_43))))))" +"(unsafe-immutable-hash-iterate-first ht_45))))))" " #f)" "(let-values() s_6)" "(let-values()" @@ -7968,38 +7981,38 @@ static const char *startup_source = "(remove-inferior)" "(lambda(t_21 insp_1)" "(begin" -"(let-values(((ht_44) t_21))" +"(let-values(((ht_46) t_21))" "(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_46)))" "((letrec-values(((for-loop_50)" -"(lambda(table_62 i_63)" +"(lambda(table_63 i_63)" "(begin" " 'for-loop" "(if i_63" -"(let-values(((already-insp_1)(unsafe-immutable-hash-iterate-key ht_44 i_63)))" -"(let-values(((table_63)" -"(let-values(((table_64) table_62))" +"(let-values(((already-insp_1)(unsafe-immutable-hash-iterate-key ht_46 i_63)))" +"(let-values(((table_64)" +"(let-values(((table_65) table_63))" "(if(inspector-superior-or-same? insp_1 already-insp_1)" -" table_64" -"(let-values(((table_65) table_64))" -"(let-values(((table_66)" +" table_65" +"(let-values(((table_66) table_65))" +"(let-values(((table_67)" "(let-values()" "(let-values(((key_28 val_16)" "(let-values()" "(values" "(let-values() already-insp_1)" " #t))))" -"(hash-set table_65 key_28 val_16)))))" -"(values table_66)))))))" +"(hash-set table_66 key_28 val_16)))))" +"(values table_67)))))))" "(if(not #f)" -"(for-loop_50 table_63(unsafe-immutable-hash-iterate-next ht_44 i_63))" -" table_63)))" -" table_62)))))" +"(for-loop_50 table_64(unsafe-immutable-hash-iterate-next ht_46 i_63))" +" table_64)))" +" table_63)))))" " for-loop_50)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_44)))))))" +"(unsafe-immutable-hash-iterate-first ht_46)))))))" "(define-values" "(syntax-disarm$1)" "(let-values(((syntax-disarm3_0)" @@ -8175,16 +8188,16 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_12)))))))))))))))" "(define-values" "(syntax-taint$1)" -"(lambda(s_70)" +"(lambda(s_84)" "(begin" " 'syntax-taint" -"(if(tamper-tainted?(syntax-tamper s_70))" -" s_70" -"(let-values(((stx_7) s_70))" +"(if(tamper-tainted?(syntax-tamper s_84))" +" s_84" +"(let-values(((stx_7) s_84))" "(let-values(((the-struct_13) stx_7))" "(if(syntax?$1 the-struct_13)" "(let-values(((scope-propagations+tamper12_0)" -"(let-values(((t_33)(tamper-tainted-for-content(syntax-content s_70)))" +"(let-values(((t_33)(tamper-tainted-for-content(syntax-content s_84)))" "((p_26)(syntax-scope-propagations+tamper stx_7)))" "(if(tamper? p_26) t_33((propagation-set-tamper-ref p_26) p_26 t_33)))))" "(syntax1.1" @@ -8201,17 +8214,17 @@ static const char *startup_source = "(any-superior?)" "(lambda(t_5 from-i_1)" "(begin" -"(let-values(((ht_45) t_5))" +"(let-values(((ht_47) t_5))" "(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_47)))" "((letrec-values(((for-loop_51)" "(lambda(result_34 i_64)" "(begin" " 'for-loop" "(if i_64" -"(let-values(((i_65)(unsafe-immutable-hash-iterate-key ht_45 i_64)))" +"(let-values(((i_65)(unsafe-immutable-hash-iterate-key ht_47 i_64)))" "(let-values(((result_35)" "(let-values()" "(let-values(((result_36)" @@ -8220,12 +8233,12 @@ static const char *startup_source = "(inspector-superior-or-same? i_65 from-i_1)))))" "(values result_36)))))" "(if(if(not((lambda x_30 result_35) i_65))(not #f) #f)" -"(for-loop_51 result_35(unsafe-immutable-hash-iterate-next ht_45 i_64))" +"(for-loop_51 result_35(unsafe-immutable-hash-iterate-next ht_47 i_64))" " result_35)))" " result_34)))))" " for-loop_51)" " #f" -"(unsafe-immutable-hash-iterate-first ht_45)))))))" +"(unsafe-immutable-hash-iterate-first ht_47)))))))" "(define-values" "(inspector-superior-or-same?)" "(lambda(sup-i_0 i_66)" @@ -8434,12 +8447,12 @@ static const char *startup_source = " 0)))))))" "(define-values" "(resolve+shift-cache-set!)" -"(lambda(s_84 phase_7 b_19)" +"(lambda(s_85 phase_7 b_19)" "(begin" "(let-values(((vec_20)(shifted-cache-vector)))" "(let-values(((p_27) shifted-cache-pos))" "(begin" -"(vector*-set! vec_20 p_27(shifted-entry2.1 s_84 phase_7 b_19))" +"(vector*-set! vec_20 p_27(shifted-entry2.1 s_85 phase_7 b_19))" "(set! shifted-cache-pos(fxand(fx+ 1 p_27)(fx- SHIFTED-CACHE-SIZE 1)))))))))" "(define-values(NUM-CACHE-SLOTS) 8)" "(define-values(cached-sets)(make-weak-box(make-vector NUM-CACHE-SLOTS #f)))" @@ -8492,7 +8505,7 @@ static const char *startup_source = " s_45)))))))" "(define-values" "(cache-or-reuse-hash)" -"(lambda(s_85)" +"(lambda(s_86)" "(begin" "(let-values(((vec_25)" "(let-values(((or-part_100)(weak-box-value cached-hashes)))" @@ -8518,7 +8531,7 @@ static const char *startup_source = "(let-values()" "(let-values()" "(if s2_7" -"(if(equal? s_85 s2_7) s2_7 #f)" +"(if(equal? s_86 s2_7) s2_7 #f)" " #f)))))" "(values result_42)))))" "(if(if(not((lambda x_16 result_41) s2_7))(not #f) #f)" @@ -8531,9 +8544,9 @@ static const char *startup_source = "(if or-part_97" " or-part_97" "(begin" -"(vector*-set! vec_25 cached-hashes-pos s_85)" +"(vector*-set! vec_25 cached-hashes-pos s_86)" "(set! cached-hashes-pos(fxand(fx+ 1 cached-hashes-pos)(fx- NUM-CACHE-SLOTS 1)))" -" s_85)))))))" +" s_86)))))))" "(define-values" "(struct:scope scope1.1 scope? scope-id scope-kind scope-binding-table set-scope-binding-table!)" "(let-values(((struct:_23 make-_23 ?_23 -ref_23 -set!_23)" @@ -8549,33 +8562,33 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:scope-with-bindings" -"(lambda(s_86 get-reachable-scopes_2 reach_6 register-trigger_2)" +"(lambda(s_87 get-reachable-scopes_2 reach_6 register-trigger_2)" "(binding-table-register-reachable" -"(scope-binding-table s_86)" +"(scope-binding-table s_87)" " get-reachable-scopes_2" " reach_6" " register-trigger_2)))" -"(cons prop:reach-scopes(lambda(s_87 reach_7)(void)))" +"(cons prop:reach-scopes(lambda(s_88 reach_7)(void)))" "(cons" " prop:serialize-fill!" -"(lambda(s_88 ser-push!_6 state_16)" -"(if(binding-table-empty?(scope-binding-table s_88))" +"(lambda(s_89 ser-push!_6 state_16)" +"(if(binding-table-empty?(scope-binding-table s_89))" "(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_88) state_16)))))))" +"(ser-push!_6(binding-table-prune-to-reachable(scope-binding-table s_89) state_16)))))))" "(cons" " prop:serialize" -"(lambda(s_89 ser-push!_7 state_17)" +"(lambda(s_90 ser-push!_7 state_17)" "(begin" -"(if(set-member?(serialize-state-reachable-scopes state_17) s_89)" +"(if(set-member?(serialize-state-reachable-scopes state_17) s_90)" "(void)" " (let-values () (error \"internal error: found supposedly unreachable scope\")))" -"(if(eq? s_89 top-level-common-scope)" +"(if(eq? s_90 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_89))))))))" +"(begin(ser-push!_7 'tag '#:scope+kind)(ser-push!_7(scope-kind s_90))))))))" "(cons" " prop:custom-write" "(lambda(sc_3 port_6 mode_6)" @@ -8603,7 +8616,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_90 bt_5)(begin(set-scope-binding-table! s_90 bt_5))))" +"(define-values(deserialize-scope-fill!)(lambda(s_91 bt_5)(begin(set-scope-binding-table! s_91 bt_5))))" "(define-values" "(struct:interned-scope interned-scope2.1 interned-scope? interned-scope-key)" "(let-values(((struct:_24 make-_24 ?_24 -ref_24 -set!_24)" @@ -8619,13 +8632,13 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:serialize" -"(lambda(s_91 ser-push!_8 state_18)" +"(lambda(s_92 ser-push!_8 state_18)" "(begin" -"(if(set-member?(serialize-state-reachable-scopes state_18) s_91)" +"(if(set-member?(serialize-state-reachable-scopes state_18) s_92)" "(void)" " (let-values () (error \"internal error: found supposedly unreachable scope\")))" "(ser-push!_8 'tag '#:interned-scope)" -"(ser-push!_8(interned-scope-key s_91)))))" +"(ser-push!_8(interned-scope-key s_92)))))" "(cons" " prop:custom-write" "(lambda(sc_4 port_7 mode_7)" @@ -8667,17 +8680,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_46)(multi-scope-scopes ms_0)))" +"(let-values(((ht_48)(multi-scope-scopes ms_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-values ht_46)))" +"(let-values()(check-in-hash-values ht_48)))" "((letrec-values(((for-loop_56)" "(lambda(i_67)" "(begin" " 'for-loop" "(if i_67" -"(let-values(((sc_5)(hash-iterate-value ht_46 i_67)))" +"(let-values(((sc_5)(hash-iterate-value ht_48 i_67)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -8693,13 +8706,13 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_56(hash-iterate-next ht_46 i_67))" +"(for-loop_56(hash-iterate-next ht_48 i_67))" "(values))))" "(values))))))" " for-loop_56)" -"(hash-iterate-first ht_46))))" +"(hash-iterate-first ht_48))))" "(void))))" -"(cons prop:reach-scopes(lambda(s_85 reach_9)(void)))" +"(cons prop:reach-scopes(lambda(s_86 reach_9)(void)))" "(cons" " prop:serialize" "(lambda(ms_1 ser-push!_9 state_19)" @@ -8711,20 +8724,20 @@ static const char *startup_source = "(hash-ref multi-scope-tables_0(multi-scope-scopes ms_1) #f)))" "(if or-part_101" " or-part_101" -"(let-values(((ht_47)(make-hasheqv)))" +"(let-values(((ht_49)(make-hasheqv)))" "(begin" -"(let-values(((ht_48)(multi-scope-scopes ms_1)))" +"(let-values(((ht_50)(multi-scope-scopes ms_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_48)))" +"(let-values()(check-in-hash ht_50)))" "((letrec-values(((for-loop_57)" "(lambda(i_68)" "(begin" " 'for-loop" "(if i_68" "(let-values(((phase_8 sc_6)" -"(hash-iterate-key+value ht_48 i_68)))" +"(hash-iterate-key+value ht_50 i_68)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -8737,21 +8750,21 @@ static const char *startup_source = " sc_6)" "(let-values()" "(hash-set!" -" ht_47" +" ht_49" " phase_8" " sc_6))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_57(hash-iterate-next ht_48 i_68))" +"(for-loop_57(hash-iterate-next ht_50 i_68))" "(values))))" "(values))))))" " for-loop_57)" -"(hash-iterate-first ht_48))))" +"(hash-iterate-first ht_50))))" "(void)" -"(hash-set! multi-scope-tables_0(multi-scope-scopes ms_1) ht_47)" -" ht_47)))))))))))" +"(hash-set! multi-scope-tables_0(multi-scope-scopes ms_1) ht_49)" +" ht_49)))))))))))" "(current-inspector)" " #f" " '(0 1 2 3 4)" @@ -8790,21 +8803,21 @@ static const char *startup_source = "(list" "(cons prop:authentic #t)" "(cons prop:implicitly-reachable #t)" -"(cons prop:reach-scopes(lambda(s_92 reach_10)(reach_10(representative-scope-owner s_92))))" +"(cons prop:reach-scopes(lambda(s_93 reach_10)(reach_10(representative-scope-owner s_93))))" "(cons" " prop:serialize-fill!" -"(lambda(s_93 ser-push!_10 state_20)" +"(lambda(s_94 ser-push!_10 state_20)" "(begin" "(ser-push!_10 'tag '#:representative-scope-fill!)" -"(ser-push!_10(binding-table-prune-to-reachable(scope-binding-table s_93) state_20))" -"(ser-push!_10(representative-scope-owner s_93)))))" +"(ser-push!_10(binding-table-prune-to-reachable(scope-binding-table s_94) state_20))" +"(ser-push!_10(representative-scope-owner s_94)))))" "(cons" " prop:serialize" -"(lambda(s_94 ser-push!_11 state_21)" +"(lambda(s_95 ser-push!_11 state_21)" "(begin" "(ser-push!_11 'tag '#:representative-scope)" -"(ser-push!_11(scope-kind s_94))" -"(ser-push!_11(representative-scope-phase s_94)))))" +"(ser-push!_11(scope-kind s_95))" +"(ser-push!_11(representative-scope-phase s_95)))))" "(cons" " prop:custom-write" "(lambda(sc_7 port_8 mode_8)" @@ -8839,8 +8852,8 @@ static const char *startup_source = "(begin(let-values(((v_83)(representative-scope4.1(new-deserialize-scope-id!) kind_1 #f #f phase_9))) v_83))))" "(define-values" "(deserialize-representative-scope-fill!)" -"(lambda(s_95 bt_6 owner_0)" -"(begin(begin(deserialize-scope-fill! s_95 bt_6)(set-representative-scope-owner! s_95 owner_0)))))" +"(lambda(s_96 bt_6 owner_0)" +"(begin(begin(deserialize-scope-fill! s_96 bt_6)(set-representative-scope-owner! s_96 owner_0)))))" "(define-values" "(struct:shifted-multi-scope" " shifted-multi-scope5.1" @@ -8987,14 +9000,14 @@ static const char *startup_source = "(let-values(((or-part_106)(hash-ref(multi-scope-scopes ms_2) phase_12 #f)))" "(if or-part_106" " or-part_106" -"(let-values(((s_96)" +"(let-values(((s_97)" "(representative-scope4.1" "(if(deserialized-scope-id?(multi-scope-id ms_2))(new-deserialize-scope-id!)(new-scope-id!))" " 'module" " empty-binding-table" " ms_2" " phase_12)))" -"(begin(hash-set!(multi-scope-scopes ms_2) phase_12 s_96) s_96)))))))" +"(begin(hash-set!(multi-scope-scopes ms_2) phase_12 s_97) s_97)))))))" "(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)" @@ -9030,17 +9043,17 @@ static const char *startup_source = "(let-values(((the-struct_14) sub-s_1))" "(if(syntax?$1 the-struct_14)" "(let-values(((scopes49_0)" -"(propagation-apply prop_3(syntax-scopes sub-s_1) s_97))" +"(propagation-apply prop_3(syntax-scopes sub-s_1) s_98))" "((shifted-multi-scopes50_0)" "(propagation-apply-shifted" " prop_3" "(syntax-shifted-multi-scopes sub-s_1)" -" s_97))" +" s_98))" "((mpi-shifts51_0)" "(propagation-apply-mpi-shifts" " prop_3" "(syntax-mpi-shifts sub-s_1)" -" s_97))" +" s_98))" "((inspector52_0)" "(propagation-apply-inspector" " prop_3" @@ -9086,7 +9099,7 @@ 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_99) s_98)" +"(let-values(((s_100) s_99)" "((f_31) f_30)" "((gf_4)" "(lambda(tail?_21 v_84)" @@ -9097,7 +9110,7 @@ static const char *startup_source = "(let-values()(f_30 tail?_21 v_84))))))" "((seen_10) seen_9))" "((letrec-values(((loop_71)" -"(lambda(tail?_22 s_100 prev-depth_4)" +"(lambda(tail?_22 s_101 prev-depth_4)" "(begin" " 'loop" "(let-values(((depth_4)(fx+ 1 prev-depth_4)))" @@ -9105,64 +9118,64 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_22" -" s_100" -"(lambda(tail?_23 s_101)(gf_4 tail?_23 s_101))" +" s_101" +"(lambda(tail?_23 s_102)(gf_4 tail?_23 s_102))" " seen_10))" -"(if(null? s_100)" -"(let-values()(f_31 tail?_22 s_100))" -"(if(pair? s_100)" +"(if(null? s_101)" +"(let-values()(f_31 tail?_22 s_101))" +"(if(pair? s_101)" "(let-values()" "(f_31" " tail?_22" "(cons" -"(loop_71 #f(car s_100) depth_4)" -"(loop_71 #t(cdr s_100) depth_4))))" -"(if(symbol? s_100)" -"(let-values()(f_31 #f s_100))" -"(if(boolean? s_100)" -"(let-values()(f_31 #f s_100))" -"(if(number? s_100)" -"(let-values()(f_31 #f s_100))" -"(if(let-values(((or-part_108)(vector? s_100)))" +"(loop_71 #f(car s_101) depth_4)" +"(loop_71 #t(cdr s_101) depth_4))))" +"(if(symbol? s_101)" +"(let-values()(f_31 #f s_101))" +"(if(boolean? s_101)" +"(let-values()(f_31 #f s_101))" +"(if(number? s_101)" +"(let-values()(f_31 #f s_101))" +"(if(let-values(((or-part_108)(vector? s_101)))" "(if or-part_108" " or-part_108" -"(let-values(((or-part_109)(box? s_100)))" +"(let-values(((or-part_109)(box? s_101)))" "(if or-part_109" " or-part_109" "(let-values(((or-part_110)" -"(prefab-struct-key s_100)))" +"(prefab-struct-key s_101)))" "(if or-part_110" " or-part_110" -"(hash? s_100)))))))" +"(hash? s_101)))))))" "(let-values()" "(datum-map-slow" " tail?_22" -" s_100" -"(lambda(tail?_24 s_102)(gf_4 tail?_24 s_102))" +" s_101" +"(lambda(tail?_24 s_103)(gf_4 tail?_24 s_103))" " seen_10))" -"(let-values()(gf_4 #f s_100))))))))))))))" +"(let-values()(gf_4 #f s_101))))))))))))))" " loop_71)" " #f" -" s_99" +" s_100" " 0)))))" "(begin" -"(set-syntax-content! s_97 new-content_0)" +"(set-syntax-content! s_98 new-content_0)" "(set-syntax-scope-propagations+tamper!" -" s_97" +" s_98" "(tamper-propagated(if(propagation? prop_3)(propagation-tamper prop_3) prop_3)))" " new-content_0))" -"(syntax-content s_97))))))" +"(syntax-content s_98))))))" "(define-values" "(syntax-e$1)" -"(lambda(s_103)" +"(lambda(s_104)" "(begin" " 'syntax-e" -"(let-values(((e_15)(syntax-content s_103)))" +"(let-values(((e_15)(syntax-content s_104)))" "(if(symbol? e_15)" "(let-values() e_15)" "(let-values()" -"(let-values(((content_6)(syntax-e/no-taint s_103)))" -"(if(not(tamper-armed?(syntax-scope-propagations+tamper s_103)))" +"(let-values(((content_6)(syntax-e/no-taint s_104)))" +"(if(not(tamper-armed?(syntax-scope-propagations+tamper s_104)))" "(let-values() content_6)" "(if(datum-has-elements? content_6)" "(let-values()(taint-content content_6))" @@ -9176,25 +9189,25 @@ static const char *startup_source = " sc_8))))" "(define-values" "(add-scope)" -"(lambda(s_104 sc_9)" +"(lambda(s_105 sc_9)" "(begin" -"(let-values(((s_105) s_104)((sc_10)(generalize-scope sc_9))((op_0) set-add)((prop-op_0) propagation-add))" +"(let-values(((s_106) s_105)((sc_10)(generalize-scope sc_9))((op_0) set-add)((prop-op_0) propagation-add))" "(if(shifted-multi-scope? sc_10)" -"(let-values(((the-struct_16) s_105))" +"(let-values(((the-struct_16) s_106))" "(if(syntax?$1 the-struct_16)" "(let-values(((shifted-multi-scopes55_0)" "(fallback-update-first" -"(syntax-shifted-multi-scopes s_105)" +"(syntax-shifted-multi-scopes s_106)" "(lambda(smss_9)(op_0(fallback-first smss_9) sc_10))))" "((scope-propagations+tamper56_0)" -"(if(datum-has-elements?(syntax-content s_105))" +"(if(datum-has-elements?(syntax-content s_106))" "(prop-op_0" -"(syntax-scope-propagations+tamper s_105)" +"(syntax-scope-propagations+tamper s_106)" " sc_10" -"(syntax-scopes s_105)" -"(syntax-shifted-multi-scopes s_105)" -"(syntax-mpi-shifts s_105))" -"(syntax-scope-propagations+tamper s_105))))" +"(syntax-scopes s_106)" +"(syntax-shifted-multi-scopes s_106)" +"(syntax-mpi-shifts s_106))" +"(syntax-scope-propagations+tamper s_106))))" "(syntax1.1" "(syntax-content the-struct_16)" "(syntax-scopes the-struct_16)" @@ -9205,18 +9218,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_105))" +"(let-values(((the-struct_17) s_106))" "(if(syntax?$1 the-struct_17)" -"(let-values(((scopes57_0)(op_0(syntax-scopes s_105) sc_10))" +"(let-values(((scopes57_0)(op_0(syntax-scopes s_106) sc_10))" "((scope-propagations+tamper58_0)" -"(if(datum-has-elements?(syntax-content s_105))" +"(if(datum-has-elements?(syntax-content s_106))" "(prop-op_0" -"(syntax-scope-propagations+tamper s_105)" +"(syntax-scope-propagations+tamper s_106)" " sc_10" -"(syntax-scopes s_105)" -"(syntax-shifted-multi-scopes s_105)" -"(syntax-mpi-shifts s_105))" -"(syntax-scope-propagations+tamper s_105))))" +"(syntax-scopes s_106)" +"(syntax-shifted-multi-scopes s_106)" +"(syntax-mpi-shifts s_106))" +"(syntax-scope-propagations+tamper s_106))))" "(syntax1.1" "(syntax-content the-struct_17)" " scopes57_0" @@ -9229,50 +9242,50 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_17))))))))" "(define-values" "(add-scopes)" -"(lambda(s_106 scs_5)" +"(lambda(s_107 scs_5)" "(begin" "(let-values(((lst_42) scs_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_42)))" "((letrec-values(((for-loop_58)" -"(lambda(s_107 lst_43)" +"(lambda(s_108 lst_43)" "(begin" " 'for-loop" "(if(pair? lst_43)" "(let-values(((sc_11)(unsafe-car lst_43))((rest_18)(unsafe-cdr lst_43)))" -"(let-values(((s_108)" -"(let-values(((s_109) s_107))" -"(let-values(((s_110)(let-values()(add-scope s_109 sc_11))))" -"(values s_110)))))" -"(if(not #f)(for-loop_58 s_108 rest_18) s_108)))" -" s_107)))))" +"(let-values(((s_109)" +"(let-values(((s_110) s_108))" +"(let-values(((s_111)(let-values()(add-scope s_110 sc_11))))" +"(values s_111)))))" +"(if(not #f)(for-loop_58 s_109 rest_18) s_109)))" +" s_108)))))" " for-loop_58)" -" s_106" +" s_107" " lst_42))))))" "(define-values" "(remove-scope)" -"(lambda(s_111 sc_12)" +"(lambda(s_112 sc_12)" "(begin" -"(let-values(((s_112) s_111)" +"(let-values(((s_113) s_112)" "((sc_13)(generalize-scope sc_12))" "((op_1) set-remove)" "((prop-op_1) propagation-remove))" "(if(shifted-multi-scope? sc_13)" -"(let-values(((the-struct_18) s_112))" +"(let-values(((the-struct_18) s_113))" "(if(syntax?$1 the-struct_18)" "(let-values(((shifted-multi-scopes59_0)" "(fallback-update-first" -"(syntax-shifted-multi-scopes s_112)" +"(syntax-shifted-multi-scopes s_113)" "(lambda(smss_10)(op_1(fallback-first smss_10) sc_13))))" "((scope-propagations+tamper60_0)" -"(if(datum-has-elements?(syntax-content s_112))" +"(if(datum-has-elements?(syntax-content s_113))" "(prop-op_1" -"(syntax-scope-propagations+tamper s_112)" +"(syntax-scope-propagations+tamper s_113)" " sc_13" -"(syntax-scopes s_112)" -"(syntax-shifted-multi-scopes s_112)" -"(syntax-mpi-shifts s_112))" -"(syntax-scope-propagations+tamper s_112))))" +"(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_18)" "(syntax-scopes the-struct_18)" @@ -9283,18 +9296,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_112))" +"(let-values(((the-struct_19) s_113))" "(if(syntax?$1 the-struct_19)" -"(let-values(((scopes61_0)(op_1(syntax-scopes s_112) sc_13))" +"(let-values(((scopes61_0)(op_1(syntax-scopes s_113) sc_13))" "((scope-propagations+tamper62_0)" -"(if(datum-has-elements?(syntax-content s_112))" +"(if(datum-has-elements?(syntax-content s_113))" "(prop-op_1" -"(syntax-scope-propagations+tamper s_112)" +"(syntax-scope-propagations+tamper s_113)" " sc_13" -"(syntax-scopes s_112)" -"(syntax-shifted-multi-scopes s_112)" -"(syntax-mpi-shifts s_112))" -"(syntax-scope-propagations+tamper s_112))))" +"(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_19)" " scopes61_0" @@ -9307,50 +9320,50 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_19))))))))" "(define-values" "(remove-scopes)" -"(lambda(s_113 scs_6)" +"(lambda(s_114 scs_6)" "(begin" "(let-values(((lst_44) scs_6))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_44)))" "((letrec-values(((for-loop_59)" -"(lambda(s_114 lst_45)" +"(lambda(s_115 lst_45)" "(begin" " 'for-loop" "(if(pair? lst_45)" "(let-values(((sc_14)(unsafe-car lst_45))((rest_19)(unsafe-cdr lst_45)))" -"(let-values(((s_115)" -"(let-values(((s_116) s_114))" -"(let-values(((s_117)(let-values()(remove-scope s_116 sc_14))))" -"(values s_117)))))" -"(if(not #f)(for-loop_59 s_115 rest_19) s_115)))" -" s_114)))))" +"(let-values(((s_116)" +"(let-values(((s_117) s_115))" +"(let-values(((s_118)(let-values()(remove-scope s_117 sc_14))))" +"(values s_118)))))" +"(if(not #f)(for-loop_59 s_116 rest_19) s_116)))" +" s_115)))))" " for-loop_59)" -" s_113" +" s_114" " lst_44))))))" "(define-values" "(set-flip)" -"(lambda(s_118 e_16)(begin(if(set-member? s_118 e_16)(set-remove s_118 e_16)(set-add s_118 e_16)))))" +"(lambda(s_119 e_16)(begin(if(set-member? s_119 e_16)(set-remove s_119 e_16)(set-add s_119 e_16)))))" "(define-values" "(flip-scope)" -"(lambda(s_119 sc_15)" +"(lambda(s_120 sc_15)" "(begin" -"(let-values(((s_120) s_119)((sc_16)(generalize-scope sc_15))((op_2) set-flip)((prop-op_2) propagation-flip))" +"(let-values(((s_121) s_120)((sc_16)(generalize-scope sc_15))((op_2) set-flip)((prop-op_2) propagation-flip))" "(if(shifted-multi-scope? sc_16)" -"(let-values(((the-struct_20) s_120))" +"(let-values(((the-struct_20) s_121))" "(if(syntax?$1 the-struct_20)" "(let-values(((shifted-multi-scopes63_0)" "(fallback-update-first" -"(syntax-shifted-multi-scopes s_120)" +"(syntax-shifted-multi-scopes s_121)" "(lambda(smss_11)(op_2(fallback-first smss_11) sc_16))))" "((scope-propagations+tamper64_0)" -"(if(datum-has-elements?(syntax-content s_120))" +"(if(datum-has-elements?(syntax-content s_121))" "(prop-op_2" -"(syntax-scope-propagations+tamper s_120)" +"(syntax-scope-propagations+tamper s_121)" " sc_16" -"(syntax-scopes s_120)" -"(syntax-shifted-multi-scopes s_120)" -"(syntax-mpi-shifts s_120))" -"(syntax-scope-propagations+tamper s_120))))" +"(syntax-scopes s_121)" +"(syntax-shifted-multi-scopes s_121)" +"(syntax-mpi-shifts s_121))" +"(syntax-scope-propagations+tamper s_121))))" "(syntax1.1" "(syntax-content the-struct_20)" "(syntax-scopes the-struct_20)" @@ -9361,18 +9374,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_120))" +"(let-values(((the-struct_21) s_121))" "(if(syntax?$1 the-struct_21)" -"(let-values(((scopes65_0)(op_2(syntax-scopes s_120) sc_16))" +"(let-values(((scopes65_0)(op_2(syntax-scopes s_121) sc_16))" "((scope-propagations+tamper66_0)" -"(if(datum-has-elements?(syntax-content s_120))" +"(if(datum-has-elements?(syntax-content s_121))" "(prop-op_2" -"(syntax-scope-propagations+tamper s_120)" +"(syntax-scope-propagations+tamper s_121)" " sc_16" -"(syntax-scopes s_120)" -"(syntax-shifted-multi-scopes s_120)" -"(syntax-mpi-shifts s_120))" -"(syntax-scope-propagations+tamper s_120))))" +"(syntax-scopes s_121)" +"(syntax-shifted-multi-scopes s_121)" +"(syntax-mpi-shifts s_121))" +"(syntax-scope-propagations+tamper s_121))))" "(syntax1.1" "(syntax-content the-struct_21)" " scopes65_0" @@ -9385,29 +9398,29 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_21))))))))" "(define-values" "(flip-scopes)" -"(lambda(s_121 scs_7)" +"(lambda(s_122 scs_7)" "(begin" "(let-values(((lst_46) scs_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_46)))" -"((letrec-values(((for-loop_60)" -"(lambda(s_122 lst_47)" +"((letrec-values(((for-loop_43)" +"(lambda(s_123 lst_47)" "(begin" " 'for-loop" "(if(pair? lst_47)" "(let-values(((sc_17)(unsafe-car lst_47))((rest_20)(unsafe-cdr lst_47)))" -"(let-values(((s_123)" -"(let-values(((s_124) s_122))" -"(let-values(((s_125)(let-values()(flip-scope s_124 sc_17))))" -"(values s_125)))))" -"(if(not #f)(for-loop_60 s_123 rest_20) s_123)))" -" s_122)))))" -" for-loop_60)" -" s_121" +"(let-values(((s_124)" +"(let-values(((s_125) s_123))" +"(let-values(((s_126)(let-values()(flip-scope s_125 sc_17))))" +"(values s_126)))))" +"(if(not #f)(for-loop_43 s_124 rest_20) s_124)))" +" s_123)))))" +" for-loop_43)" +" s_122" " lst_46))))))" "(define-values" "(push-scope)" -"(lambda(s_126 sms_6)" +"(lambda(s_127 sms_6)" "(begin" "(let-values(((smss/maybe-fallbacks67_0) #f))" "(let-values(((prev-result_0) #f))" @@ -9433,17 +9446,17 @@ static const char *startup_source = "(set! smss/maybe-fallbacks67_0 smss/maybe-fallbacks_0)" "(set! prev-result_0 r_23)" " r_23))))))))" -"(let-values(((s_127) s_126)" +"(let-values(((s_128) s_127)" "((f_32)(lambda(tail?_25 x_34)(begin 'f x_34)))" "((d->s_1)" -"(lambda(s_128 d_3)" +"(lambda(s_129 d_3)" "(begin" " 'd->s" -"(let-values(((the-struct_22) s_128))" +"(let-values(((the-struct_22) s_129))" "(if(syntax?$1 the-struct_22)" "(let-values(((content68_0) d_3)" "((shifted-multi-scopes69_0)" -"(push_0(syntax-shifted-multi-scopes s_128))))" +"(push_0(syntax-shifted-multi-scopes s_129))))" "(syntax1.1" " content68_0" "(syntax-scopes the-struct_22)" @@ -9457,10 +9470,10 @@ static const char *startup_source = "((s-e_1) syntax-e/no-taint)" "((seen_11) #f))" "((letrec-values(((loop_72)" -"(lambda(s_129)" +"(lambda(s_130)" "(begin" " 'loop" -"(let-values(((s_130) s_129)" +"(let-values(((s_131) s_130)" "((f_33) f_32)" "((gf_5)" "(lambda(tail?_26 v_85)" @@ -9471,7 +9484,7 @@ static const char *startup_source = "(let-values()(f_32 tail?_26 v_85))))))" "((seen_12) seen_11))" "((letrec-values(((loop_73)" -"(lambda(tail?_27 s_131 prev-depth_5)" +"(lambda(tail?_27 s_132 prev-depth_5)" "(begin" " 'loop" "(let-values(((depth_5)(fx+ 1 prev-depth_5)))" @@ -9479,52 +9492,52 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_27" -" s_131" -"(lambda(tail?_28 s_132)(gf_5 tail?_28 s_132))" +" s_132" +"(lambda(tail?_28 s_133)(gf_5 tail?_28 s_133))" " seen_12))" -"(if(null? s_131)" -"(let-values()(f_33 tail?_27 s_131))" -"(if(pair? s_131)" +"(if(null? s_132)" +"(let-values()(f_33 tail?_27 s_132))" +"(if(pair? s_132)" "(let-values()" "(f_33" " tail?_27" "(cons" -"(loop_73 #f(car s_131) depth_5)" -"(loop_73 #t(cdr s_131) depth_5))))" -"(if(symbol? s_131)" -"(let-values()(f_33 #f s_131))" -"(if(boolean? s_131)" -"(let-values()(f_33 #f s_131))" -"(if(number? s_131)" -"(let-values()(f_33 #f s_131))" +"(loop_73 #f(car s_132) depth_5)" +"(loop_73 #t(cdr s_132) depth_5))))" +"(if(symbol? s_132)" +"(let-values()(f_33 #f s_132))" +"(if(boolean? s_132)" +"(let-values()(f_33 #f s_132))" +"(if(number? s_132)" +"(let-values()(f_33 #f s_132))" "(if(let-values(((or-part_111)" -"(vector? s_131)))" +"(vector? s_132)))" "(if or-part_111" " or-part_111" "(let-values(((or-part_112)" -"(box? s_131)))" +"(box? s_132)))" "(if or-part_112" " or-part_112" "(let-values(((or-part_113)" "(prefab-struct-key" -" s_131)))" +" s_132)))" "(if or-part_113" " or-part_113" -"(hash? s_131)))))))" +"(hash? s_132)))))))" "(let-values()" "(datum-map-slow" " tail?_27" -" s_131" -"(lambda(tail?_29 s_133)" -"(gf_5 tail?_29 s_133))" +" s_132" +"(lambda(tail?_29 s_134)" +"(gf_5 tail?_29 s_134))" " seen_12))" -"(let-values()(gf_5 #f s_131))))))))))))))" +"(let-values()(gf_5 #f s_132))))))))))))))" " loop_73)" " #f" -" s_130" +" s_131" " 0))))))" " loop_72)" -" s_127))))))))" +" s_128))))))))" "(define-values" "(struct:propagation" " propagation14.1" @@ -9671,18 +9684,18 @@ static const char *startup_source = "(let-values()(syntax-scopes parent-s_0))" "(let-values()" "(let-values(((new-scs_0)" -"(let-values(((ht_49)(propagation-scope-ops prop_8)))" +"(let-values(((ht_51)(propagation-scope-ops prop_8)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_49)))" -"((letrec-values(((for-loop_61)" +"(let-values()(check-in-immutable-hash ht_51)))" +"((letrec-values(((for-loop_60)" "(lambda(scs_9 i_69)" "(begin" " 'for-loop" "(if i_69" "(let-values(((sc_21 op_3)" -"(unsafe-immutable-hash-iterate-key+value ht_49 i_69)))" +"(unsafe-immutable-hash-iterate-key+value ht_51 i_69)))" "(let-values(((scs_10)" "(let-values(((scs_11) scs_9))" "(if(not(shifted-multi-scope? sc_21))" @@ -9707,14 +9720,14 @@ static const char *startup_source = "(values scs_13)))" " scs_11))))" "(if(not #f)" -"(for-loop_61" +"(for-loop_60" " scs_10" -"(unsafe-immutable-hash-iterate-next ht_49 i_69))" +"(unsafe-immutable-hash-iterate-next ht_51 i_69))" " scs_10)))" " scs_9)))))" -" for-loop_61)" +" for-loop_60)" " scs_8" -"(unsafe-immutable-hash-iterate-first ht_49))))))" +"(unsafe-immutable-hash-iterate-first ht_51))))))" "(if(set=? new-scs_0(syntax-scopes parent-s_0))" "(syntax-scopes parent-s_0)" "(cache-or-reuse-set new-scs_0))))))))" @@ -9726,18 +9739,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_50)(propagation-scope-ops prop_9)))" +"(let-values(((ht_52)(propagation-scope-ops prop_9)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_50)))" -"((letrec-values(((for-loop_62)" +"(let-values()(check-in-immutable-hash ht_52)))" +"((letrec-values(((for-loop_61)" "(lambda(smss_14 i_70)" "(begin" " 'for-loop" "(if i_70" "(let-values(((sms_7 op_4)" -"(unsafe-immutable-hash-iterate-key+value ht_50 i_70)))" +"(unsafe-immutable-hash-iterate-key+value ht_52 i_70)))" "(let-values(((smss_15)" "(let-values(((smss_16) smss_14))" "(if(shifted-multi-scope? sms_7)" @@ -9768,14 +9781,14 @@ static const char *startup_source = "(values smss_18)))" " smss_16))))" "(if(not #f)" -"(for-loop_62" +"(for-loop_61" " smss_15" -"(unsafe-immutable-hash-iterate-next ht_50 i_70))" +"(unsafe-immutable-hash-iterate-next ht_52 i_70))" " smss_15)))" " smss_14)))))" -" for-loop_62)" +" for-loop_61)" " smss_13" -"(unsafe-immutable-hash-iterate-first ht_50))))))" +"(unsafe-immutable-hash-iterate-first ht_52))))))" "(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" @@ -9836,19 +9849,19 @@ static const char *startup_source = "(if(tamper-tainted?(propagation-tamper prop_13)) 'tainted/need-propagate base-prop_0)))))" "(let-values()" "(let-values(((new-ops_0)" -"(let-values(((ht_51)(propagation-scope-ops prop_13)))" +"(let-values(((ht_53)(propagation-scope-ops prop_13)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_51)))" -"((letrec-values(((for-loop_63)" +"(let-values()(check-in-immutable-hash ht_53)))" +"((letrec-values(((for-loop_62)" "(lambda(ops_1 i_72)" "(begin" " 'for-loop" "(if i_72" "(let-values(((sc_22 op_5)" "(unsafe-immutable-hash-iterate-key+value" -" ht_51" +" ht_53" " i_72)))" "(let-values(((ops_2)" "(let-values(((ops_3) ops_1))" @@ -9905,14 +9918,14 @@ static const char *startup_source = " 'flip))))))))))))))" "(values ops_4)))))" "(if(not #f)" -"(for-loop_63" +"(for-loop_62" " ops_2" -"(unsafe-immutable-hash-iterate-next ht_51 i_72))" +"(unsafe-immutable-hash-iterate-next ht_53 i_72))" " ops_2)))" " ops_1)))))" -" for-loop_63)" +" for-loop_62)" "(propagation-scope-ops base-prop_0)" -"(unsafe-immutable-hash-iterate-first ht_51))))))" +"(unsafe-immutable-hash-iterate-first ht_53))))))" "(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)" @@ -9970,11 +9983,11 @@ static const char *startup_source = "(shifted-multi-scope-multi-scope sms_8)))))))))" "(define-values" "(syntax-shift-phase-level$1)" -"(lambda(s_134 phase_13)" +"(lambda(s_135 phase_13)" "(begin" " 'syntax-shift-phase-level" "(if(eqv? phase_13 0)" -" s_134" +" s_135" "(let-values()" "(let-values(((smss81_0) #f))" "(let-values(((prev-result_1) #f))" @@ -9990,39 +10003,39 @@ static const char *startup_source = "(fallback-map" " smss_20" "(lambda(smss_21)" -"(let-values(((ht_52) smss_21))" +"(let-values(((ht_54) smss_21))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_52)))" -"((letrec-values(((for-loop_64)" -"(lambda(table_67 i_73)" +"(let-values()(check-in-immutable-hash-keys ht_54)))" +"((letrec-values(((for-loop_63)" +"(lambda(table_68 i_73)" "(begin" " 'for-loop" "(if i_73" "(let-values(((sms_9)" "(unsafe-immutable-hash-iterate-key" -" ht_52" +" ht_54" " i_73)))" -"(let-values(((table_68)" +"(let-values(((table_69)" "(let-values(((new-sms_0)" "(shift-multi-scope" " sms_9" " phase_13)))" "(begin" " #t" -"((letrec-values(((for-loop_65)" -"(lambda(table_69)" +"((letrec-values(((for-loop_64)" +"(lambda(table_70)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_70)" "(let-values(((table_71)" -" table_69))" -"(if new-sms_0" "(let-values(((table_72)" -" table_71))" +" table_70))" +"(if new-sms_0" "(let-values(((table_73)" +" table_72))" +"(let-values(((table_74)" "(let-values()" "(let-values(((key_30" " val_18)" @@ -10032,38 +10045,38 @@ static const char *startup_source = " new-sms_0)" " #t))))" "(hash-set" -" table_72" +" table_73" " key_30" " val_18)))))" "(values" -" table_73)))" -" table_71))))" -" table_70))))))" -" for-loop_65)" -" table_67)))))" -"(if(not #f)" -"(for-loop_64" -" table_68" -"(unsafe-immutable-hash-iterate-next" -" ht_52" -" i_73))" -" table_68)))" -" table_67)))))" +" table_74)))" +" table_72))))" +" table_71))))))" " for-loop_64)" +" table_68)))))" +"(if(not #f)" +"(for-loop_63" +" table_69" +"(unsafe-immutable-hash-iterate-next" +" ht_54" +" i_73))" +" table_69)))" +" table_68)))))" +" for-loop_63)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_52)))))))))" +"(unsafe-immutable-hash-iterate-first ht_54)))))))))" "(begin(set! smss81_0 smss_20)(set! prev-result_1 r_24) r_24))))))))" -"(let-values(((s_135) s_134)" +"(let-values(((s_136) s_135)" "((f_34)(lambda(tail?_30 d_4)(begin 'f d_4)))" "((d->s_2)" -"(lambda(s_136 d_5)" +"(lambda(s_137 d_5)" "(begin" " 'd->s" -"(let-values(((the-struct_29) s_136))" +"(let-values(((the-struct_29) s_137))" "(if(syntax?$1 the-struct_29)" "(let-values(((content82_0) d_5)" "((shifted-multi-scopes83_0)" -"(shift-all_0(syntax-shifted-multi-scopes s_136))))" +"(shift-all_0(syntax-shifted-multi-scopes s_137))))" "(syntax1.1" " content82_0" "(syntax-scopes the-struct_29)" @@ -10077,10 +10090,10 @@ static const char *startup_source = "((s-e_2) syntax-e/no-taint)" "((seen_13) #f))" "((letrec-values(((loop_74)" -"(lambda(s_137)" +"(lambda(s_138)" "(begin" " 'loop" -"(let-values(((s_138) s_137)" +"(let-values(((s_139) s_138)" "((f_35) f_34)" "((gf_6)" "(lambda(tail?_31 v_87)" @@ -10091,7 +10104,7 @@ static const char *startup_source = "(let-values()(f_34 tail?_31 v_87))))))" "((seen_14) seen_13))" "((letrec-values(((loop_75)" -"(lambda(tail?_32 s_139 prev-depth_6)" +"(lambda(tail?_32 s_140 prev-depth_6)" "(begin" " 'loop" "(let-values(((depth_6)(fx+ 1 prev-depth_6)))" @@ -10099,76 +10112,76 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_32" -" s_139" -"(lambda(tail?_33 s_140)(gf_6 tail?_33 s_140))" +" s_140" +"(lambda(tail?_33 s_141)(gf_6 tail?_33 s_141))" " seen_14))" -"(if(null? s_139)" -"(let-values()(f_35 tail?_32 s_139))" -"(if(pair? s_139)" +"(if(null? s_140)" +"(let-values()(f_35 tail?_32 s_140))" +"(if(pair? s_140)" "(let-values()" "(f_35" " tail?_32" "(cons" -"(loop_75 #f(car s_139) depth_6)" -"(loop_75 #t(cdr s_139) depth_6))))" -"(if(symbol? s_139)" -"(let-values()(f_35 #f s_139))" -"(if(boolean? s_139)" -"(let-values()(f_35 #f s_139))" -"(if(number? s_139)" -"(let-values()(f_35 #f s_139))" +"(loop_75 #f(car s_140) depth_6)" +"(loop_75 #t(cdr s_140) depth_6))))" +"(if(symbol? s_140)" +"(let-values()(f_35 #f s_140))" +"(if(boolean? s_140)" +"(let-values()(f_35 #f s_140))" +"(if(number? s_140)" +"(let-values()(f_35 #f s_140))" "(if(let-values(((or-part_120)" -"(vector? s_139)))" +"(vector? s_140)))" "(if or-part_120" " or-part_120" "(let-values(((or-part_121)" -"(box? s_139)))" +"(box? s_140)))" "(if or-part_121" " or-part_121" "(let-values(((or-part_122)" "(prefab-struct-key" -" s_139)))" +" s_140)))" "(if or-part_122" " or-part_122" -"(hash? s_139)))))))" +"(hash? s_140)))))))" "(let-values()" "(datum-map-slow" " tail?_32" -" s_139" -"(lambda(tail?_34 s_141)" -"(gf_6 tail?_34 s_141))" +" s_140" +"(lambda(tail?_34 s_142)" +"(gf_6 tail?_34 s_142))" " seen_14))" "(let-values()" -"(gf_6 #f s_139))))))))))))))" +"(gf_6 #f s_140))))))))))))))" " loop_75)" " #f" -" s_138" +" s_139" " 0))))))" " loop_74)" -" s_135))))))))))" +" s_136))))))))))" "(define-values" "(syntax-swap-scopes)" -"(lambda(s_142 src-scopes_0 dest-scopes_0)" +"(lambda(s_143 src-scopes_0 dest-scopes_0)" "(begin" "(if(equal? src-scopes_0 dest-scopes_0)" -" s_142" +" s_143" "(let-values(((src-smss_0 src-scs_0)" "(set-partition" -"(let-values(((ht_53) src-scopes_0))" +"(let-values(((ht_55) src-scopes_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_53)))" -"((letrec-values(((for-loop_66)" -"(lambda(table_74 i_74)" +"(let-values()(check-in-immutable-hash-keys ht_55)))" +"((letrec-values(((for-loop_65)" +"(lambda(table_75 i_74)" "(begin" " 'for-loop" "(if i_74" "(let-values(((sc_23)" -"(unsafe-immutable-hash-iterate-key ht_53 i_74)))" -"(let-values(((table_75)" -"(let-values(((table_76) table_74))" -"(let-values(((table_77)" +"(unsafe-immutable-hash-iterate-key ht_55 i_74)))" +"(let-values(((table_76)" +"(let-values(((table_77) table_75))" +"(let-values(((table_78)" "(let-values()" "(let-values(((key_31 val_19)" "(let-values()" @@ -10178,39 +10191,39 @@ static const char *startup_source = " sc_23))" " #t))))" "(hash-set" -" table_76" +" table_77" " key_31" " val_19)))))" -"(values table_77)))))" +"(values table_78)))))" "(if(not #f)" -"(for-loop_66" -" table_75" -"(unsafe-immutable-hash-iterate-next ht_53 i_74))" -" table_75)))" -" table_74)))))" -" for-loop_66)" +"(for-loop_65" +" table_76" +"(unsafe-immutable-hash-iterate-next ht_55 i_74))" +" table_76)))" +" table_75)))))" +" for-loop_65)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_53))))" +"(unsafe-immutable-hash-iterate-first ht_55))))" " shifted-multi-scope?" "(seteq)" "(seteq)))" "((dest-smss_0 dest-scs_0)" "(set-partition" -"(let-values(((ht_54) dest-scopes_0))" +"(let-values(((ht_56) dest-scopes_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_54)))" -"((letrec-values(((for-loop_67)" -"(lambda(table_78 i_75)" +"(let-values()(check-in-immutable-hash-keys ht_56)))" +"((letrec-values(((for-loop_66)" +"(lambda(table_79 i_75)" "(begin" " 'for-loop" "(if i_75" "(let-values(((sc_24)" -"(unsafe-immutable-hash-iterate-key ht_54 i_75)))" -"(let-values(((table_79)" -"(let-values(((table_80) table_78))" -"(let-values(((table_81)" +"(unsafe-immutable-hash-iterate-key ht_56 i_75)))" +"(let-values(((table_80)" +"(let-values(((table_81) table_79))" +"(let-values(((table_82)" "(let-values()" "(let-values(((key_32 val_20)" "(let-values()" @@ -10220,19 +10233,19 @@ static const char *startup_source = " sc_24))" " #t))))" "(hash-set" -" table_80" +" table_81" " key_32" " val_20)))))" -"(values table_81)))))" +"(values table_82)))))" "(if(not #f)" -"(for-loop_67" -" table_79" -"(unsafe-immutable-hash-iterate-next ht_54 i_75))" -" table_79)))" -" table_78)))))" -" for-loop_67)" +"(for-loop_66" +" table_80" +"(unsafe-immutable-hash-iterate-next ht_56 i_75))" +" table_80)))" +" table_79)))))" +" for-loop_66)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_54))))" +"(unsafe-immutable-hash-iterate-first ht_56))))" " shifted-multi-scope?" "(seteq)" "(seteq))))" @@ -10269,18 +10282,18 @@ static const char *startup_source = "(set-union(set-subtract smss_23 src-smss_0) dest-smss_0)" " smss_23))))))" "(begin(set! smss85_0 smss_22)(set! prev-result_3 r_26) r_26))))))))" -"(let-values(((s_143) s_142)" +"(let-values(((s_144) s_143)" "((f_36)(lambda(tail?_35 d_6)(begin 'f d_6)))" "((d->s_3)" -"(lambda(s_144 d_7)" +"(lambda(s_145 d_7)" "(begin" " 'd->s" -"(let-values(((the-struct_30) s_144))" +"(let-values(((the-struct_30) s_145))" "(if(syntax?$1 the-struct_30)" "(let-values(((content86_0) d_7)" -"((scopes87_0)(swap-scs_0(syntax-scopes s_144)))" +"((scopes87_0)(swap-scs_0(syntax-scopes s_145)))" "((shifted-multi-scopes88_0)" -"(swap-smss_0(syntax-shifted-multi-scopes s_144))))" +"(swap-smss_0(syntax-shifted-multi-scopes s_145))))" "(syntax1.1" " content86_0" " scopes87_0" @@ -10294,10 +10307,10 @@ static const char *startup_source = "((s-e_3) syntax-e/no-taint)" "((seen_15) #f))" "((letrec-values(((loop_76)" -"(lambda(s_145)" +"(lambda(s_146)" "(begin" " 'loop" -"(let-values(((s_146) s_145)" +"(let-values(((s_147) s_146)" "((f_37) f_36)" "((gf_7)" "(lambda(tail?_36 v_88)" @@ -10308,7 +10321,7 @@ static const char *startup_source = "(let-values()(f_36 tail?_36 v_88))))))" "((seen_16) seen_15))" "((letrec-values(((loop_77)" -"(lambda(tail?_37 s_147 prev-depth_7)" +"(lambda(tail?_37 s_148 prev-depth_7)" "(begin" " 'loop" "(let-values(((depth_7)(fx+ 1 prev-depth_7)))" @@ -10316,73 +10329,73 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_37" -" s_147" -"(lambda(tail?_38 s_148)" -"(gf_7 tail?_38 s_148))" +" s_148" +"(lambda(tail?_38 s_149)" +"(gf_7 tail?_38 s_149))" " seen_16))" -"(if(null? s_147)" -"(let-values()(f_37 tail?_37 s_147))" -"(if(pair? s_147)" +"(if(null? s_148)" +"(let-values()(f_37 tail?_37 s_148))" +"(if(pair? s_148)" "(let-values()" "(f_37" " tail?_37" "(cons" -"(loop_77 #f(car s_147) depth_7)" -"(loop_77 #t(cdr s_147) depth_7))))" -"(if(symbol? s_147)" -"(let-values()(f_37 #f s_147))" -"(if(boolean? s_147)" -"(let-values()(f_37 #f s_147))" -"(if(number? s_147)" -"(let-values()(f_37 #f s_147))" +"(loop_77 #f(car s_148) depth_7)" +"(loop_77 #t(cdr s_148) depth_7))))" +"(if(symbol? s_148)" +"(let-values()(f_37 #f s_148))" +"(if(boolean? s_148)" +"(let-values()(f_37 #f s_148))" +"(if(number? s_148)" +"(let-values()(f_37 #f s_148))" "(if(let-values(((or-part_123)" -"(vector? s_147)))" +"(vector? s_148)))" "(if or-part_123" " or-part_123" "(let-values(((or-part_124)" -"(box? s_147)))" +"(box? s_148)))" "(if or-part_124" " or-part_124" "(let-values(((or-part_125)" "(prefab-struct-key" -" s_147)))" +" s_148)))" "(if or-part_125" " or-part_125" -"(hash? s_147)))))))" +"(hash? s_148)))))))" "(let-values()" "(datum-map-slow" " tail?_37" -" s_147" -"(lambda(tail?_39 s_149)" -"(gf_7 tail?_39 s_149))" +" s_148" +"(lambda(tail?_39 s_150)" +"(gf_7 tail?_39 s_150))" " seen_16))" "(let-values()" -"(gf_7 #f s_147))))))))))))))" +"(gf_7 #f s_148))))))))))))))" " loop_77)" " #f" -" s_146" +" s_147" " 0))))))" " loop_76)" -" s_143)))))))))))))" +" s_144)))))))))))))" "(define-values" "(syntax-scope-set)" -"(lambda(s_150 phase_14)" -"(begin(scope-set-at-fallback s_150(fallback-first(syntax-shifted-multi-scopes s_150)) phase_14))))" +"(lambda(s_151 phase_14)" +"(begin(scope-set-at-fallback s_151(fallback-first(syntax-shifted-multi-scopes s_151)) phase_14))))" "(define-values" "(scope-set-at-fallback)" -"(lambda(s_151 smss_24 phase_15)" +"(lambda(s_152 smss_24 phase_15)" "(begin" -"(let-values(((ht_55) smss_24))" +"(let-values(((ht_57) smss_24))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_55)))" -"((letrec-values(((for-loop_68)" +"(let-values()(check-in-immutable-hash-keys ht_57)))" +"((letrec-values(((for-loop_67)" "(lambda(scopes_9 i_76)" "(begin" " 'for-loop" "(if i_76" -"(let-values(((sms_10)(unsafe-immutable-hash-iterate-key ht_55 i_76)))" +"(let-values(((sms_10)(unsafe-immutable-hash-iterate-key ht_57 i_76)))" "(let-values(((scopes_10)" "(let-values(((scopes_11) scopes_9))" "(if(let-values(((or-part_126)(label-phase? phase_15)))" @@ -10407,29 +10420,29 @@ static const char *startup_source = "(values scopes_13)))" " scopes_11))))" "(if(not #f)" -"(for-loop_68 scopes_10(unsafe-immutable-hash-iterate-next ht_55 i_76))" +"(for-loop_67 scopes_10(unsafe-immutable-hash-iterate-next ht_57 i_76))" " scopes_10)))" " scopes_9)))))" -" for-loop_68)" -"(syntax-scopes s_151)" -"(unsafe-immutable-hash-iterate-first ht_55)))))))" +" for-loop_67)" +"(syntax-scopes s_152)" +"(unsafe-immutable-hash-iterate-first ht_57)))))))" "(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_56) scopes_14))" +"(let-values(((ht_58) scopes_14))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_56)))" -"((letrec-values(((for-loop_69)" +"(let-values()(check-in-immutable-hash-keys ht_58)))" +"((letrec-values(((for-loop_68)" "(lambda(max-sc_0 i_77)" "(begin" " 'for-loop" "(if i_77" -"(let-values(((sc_25)(unsafe-immutable-hash-iterate-key ht_56 i_77)))" +"(let-values(((sc_25)(unsafe-immutable-hash-iterate-key ht_58 i_77)))" "(let-values(((max-sc_1)" "(let-values(((max-sc_2) max-sc_0))" "(let-values(((max-sc_3)" @@ -10437,12 +10450,12 @@ static const char *startup_source = "(if(scope>? sc_25 max-sc_2) sc_25 max-sc_2))))" "(values max-sc_3)))))" "(if(not #f)" -"(for-loop_69 max-sc_1(unsafe-immutable-hash-iterate-next ht_56 i_77))" +"(for-loop_68 max-sc_1(unsafe-immutable-hash-iterate-next ht_58 i_77))" " max-sc_1)))" " max-sc_0)))))" -" for-loop_69)" +" for-loop_68)" "(set-first scopes_14)" -"(unsafe-immutable-hash-iterate-first ht_56))))))))" +"(unsafe-immutable-hash-iterate-first ht_58))))))))" "(define-values" "(add-binding-in-scopes!20.1)" "(lambda(just-for-nominal?15_0 scopes17_0 sym18_0 binding19_0)" @@ -10481,19 +10494,19 @@ static const char *startup_source = "(begin(set-scope-binding-table! max-sc_5 bt_8)(clear-resolve-cache!)))))))))))" "(define-values" "(syntax-any-macro-scopes?)" -"(lambda(s_152)" +"(lambda(s_153)" "(begin" -"(let-values(((ht_57)(syntax-scopes s_152)))" +"(let-values(((ht_59)(syntax-scopes s_153)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_57)))" -"((letrec-values(((for-loop_70)" +"(let-values()(check-in-immutable-hash-keys ht_59)))" +"((letrec-values(((for-loop_69)" "(lambda(result_43 i_78)" "(begin" " 'for-loop" "(if i_78" -"(let-values(((sc_26)(unsafe-immutable-hash-iterate-key ht_57 i_78)))" +"(let-values(((sc_26)(unsafe-immutable-hash-iterate-key ht_59 i_78)))" "(let-values(((result_44)" "(let-values()" "(let-values(((result_45)" @@ -10501,25 +10514,25 @@ static const char *startup_source = "(let-values()(eq?(scope-kind sc_26) 'macro)))))" "(values result_45)))))" "(if(if(not((lambda x_35 result_44) sc_26))(not #f) #f)" -"(for-loop_70 result_44(unsafe-immutable-hash-iterate-next ht_57 i_78))" +"(for-loop_69 result_44(unsafe-immutable-hash-iterate-next ht_59 i_78))" " result_44)))" " result_43)))))" -" for-loop_70)" +" for-loop_69)" " #f" -"(unsafe-immutable-hash-iterate-first ht_57)))))))" +"(unsafe-immutable-hash-iterate-first ht_59)))))))" "(define-values" "(resolve40.1)" "(lambda(ambiguous-value30_0 exactly?31_0 extra-shifts33_0 get-scopes?32_0 s38_0 phase39_0)" "(begin" " 'resolve40" -"(let-values(((s_153) s38_0))" +"(let-values(((s_154) s38_0))" "(let-values(((phase_16) phase39_0))" "(let-values(((ambiguous-value_0) ambiguous-value30_0))" "(let-values(((exactly?_0) exactly?31_0))" "(let-values(((get-scopes?_0) get-scopes?32_0))" "(let-values(((extra-shifts_2) extra-shifts33_0))" "(let-values()" -"(let-values(((sym_17)(syntax-content s_153)))" +"(let-values(((sym_17)(syntax-content s_154)))" "((letrec-values(((fallback-loop_0)" "(lambda(smss_25)" "(begin" @@ -10530,7 +10543,7 @@ static const char *startup_source = "(resolve-cache-get" " sym_17" " phase_16" -"(syntax-scopes s_153)" +"(syntax-scopes s_154)" "(fallback-first smss_25))" " #f)" " #f)))" @@ -10546,18 +10559,18 @@ static const char *startup_source = "(let-values()" "(let-values(((scopes_17)" "(scope-set-at-fallback" -" s_153" +" s_154" "(fallback-first smss_25)" " phase_16)))" "(let-values(((best-scopes_0 best-binding_0)" -"(let-values(((ht_58) scopes_17))" +"(let-values(((ht_60) scopes_17))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-immutable-hash-keys ht_58)))" -"((letrec-values(((for-loop_71)" +"(check-in-immutable-hash-keys ht_60)))" +"((letrec-values(((for-loop_70)" "(lambda(best-scopes_1" " best-binding_1" " i_79)" @@ -10566,38 +10579,38 @@ static const char *startup_source = "(if i_79" "(let-values(((sc_27)" "(unsafe-immutable-hash-iterate-key" -" ht_58" +" ht_60" " i_79)))" "(let-values(((best-scopes_2" " best-binding_2)" -"(let-values(((ht_59" +"(let-values(((ht_61" " bulk-bindings_2)" -"(let-values(((table_82)" +"(let-values(((table_83)" "(scope-binding-table" " sc_27)))" "(if(hash?" -" table_82)" +" table_83)" "(values" "(hash-ref" -" table_82" +" table_83" " sym_17" " '#hash())" " null)" "(values" "(hash-ref" "(table-with-bulk-bindings-syms" -" table_82)" +" table_83)" " sym_17" " '#hash())" "(table-with-bulk-bindings-bulk-bindings" -" table_82)))))" -"((s_154)" -" s_153)" +" table_83)))))" +"((s_155)" +" s_154)" "((extra-shifts_3)" " extra-shifts_2))" "(begin" " #t" -"((letrec-values(((for-loop_72)" +"((letrec-values(((for-loop_71)" "(lambda(best-scopes_3" " best-binding_3" " i_80)" @@ -10615,7 +10628,7 @@ static const char *startup_source = " i_80)))" "(let-values()" "(hash-iterate-key" -" ht_59" +" ht_61" " i_80))))" "((binding_4)" "(if(pair?" @@ -10631,7 +10644,7 @@ static const char *startup_source = "(hash-ref" "(bulk-binding-symbols" " bulk_3" -" s_154" +" s_155" " extra-shifts_3)" " sym_17" " #f)" @@ -10645,7 +10658,7 @@ static const char *startup_source = " #f))))" "(let-values()" "(hash-iterate-value" -" ht_59" +" ht_61" " i_80)))))" "(let-values(((best-scopes_4" " best-binding_4)" @@ -10679,7 +10692,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_48)))" -"((letrec-values(((for-loop_73)" +"((letrec-values(((for-loop_72)" "(lambda(result_46" " lst_49)" "(begin" @@ -10710,12 +10723,12 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_73" +"(for-loop_72" " result_47" " rest_21)" " result_47)))" " result_46)))))" -" for-loop_73)" +" for-loop_72)" " #t" " lst_48)))" "(let-values()" @@ -10762,7 +10775,7 @@ static const char *startup_source = " best-binding_5)))))" "(if(not" " #f)" -"(for-loop_72" +"(for-loop_71" " best-scopes_4" " best-binding_4" "(if(pair?" @@ -10773,7 +10786,7 @@ static const char *startup_source = "(let-values()" "(let-values(((or-part_127)" "(hash-iterate-next" -" ht_59" +" ht_61" " i_80)))" "(if or-part_127" " or-part_127" @@ -10784,21 +10797,21 @@ static const char *startup_source = "(values" " best-scopes_3" " best-binding_3))))))" -" for-loop_72)" +" for-loop_71)" " best-scopes_1" " best-binding_1" "(let-values(((or-part_128)" "(hash-iterate-first" -" ht_59)))" +" ht_61)))" "(if or-part_128" " or-part_128" " bulk-bindings_2)))))))" "(if(not #f)" -"(for-loop_71" +"(for-loop_70" " best-scopes_2" " best-binding_2" "(unsafe-immutable-hash-iterate-next" -" ht_58" +" ht_60" " i_79))" "(values" " best-scopes_2" @@ -10806,10 +10819,10 @@ static const char *startup_source = "(values" " best-scopes_1" " best-binding_1))))))" -" for-loop_71)" +" for-loop_70)" " #f" " #f" -"(unsafe-immutable-hash-iterate-first ht_58))))))" +"(unsafe-immutable-hash-iterate-first ht_60))))))" "(if(pair? best-scopes_0)" "(let-values()" "(if(fallback? smss_25)" @@ -10821,7 +10834,7 @@ static const char *startup_source = "(resolve-cache-set!" " sym_17" " phase_16" -"(syntax-scopes s_153)" +"(syntax-scopes s_154)" "(fallback-first smss_25)" " best-binding_0)" "(if(let-values(((or-part_129)(not exactly?_0)))" @@ -10837,14 +10850,14 @@ static const char *startup_source = "(resolve-cache-set!" " sym_17" " phase_16" -"(syntax-scopes s_153)" +"(syntax-scopes s_154)" "(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_153)))))))))))))" +"(syntax-shifted-multi-scopes s_154)))))))))))))" "(define-values" "(bound-identifier=?$1)" "(lambda(a_33 b_41 phase_17)" @@ -11162,7 +11175,7 @@ static const char *startup_source = "(make-struct-field-accessor -ref_32 0 'from)" "(make-struct-field-accessor -ref_32 1 'to))))" "(define-values(shift-from)(lambda(s_15)(begin(if(pair? s_15)(car s_15)(non-source-shift-from s_15)))))" -"(define-values(shift-to)(lambda(s_155)(begin(if(pair? s_155)(cdr s_155)(non-source-shift-to s_155)))))" +"(define-values(shift-to)(lambda(s_156)(begin(if(pair? s_156)(cdr s_156)(non-source-shift-to s_156)))))" "(define-values" "(syntax-module-path-index-shift13.1)" "(lambda(non-source?7_0 s10_0 from-mpi11_0 to-mpi12_0 inspector9_0)" @@ -11191,7 +11204,7 @@ static const char *startup_source = "(if(datum-has-elements?(syntax-content s_19))" "(propagation-mpi-shift" "(syntax-scope-propagations+tamper s_19)" -"(lambda(s_156)(cons shift_0 s_156))" +"(lambda(s_157)(cons shift_0 s_157))" " inspector_3" "(syntax-scopes s_19)" "(syntax-shifted-multi-scopes s_19)" @@ -11212,7 +11225,7 @@ static const char *startup_source = "(lambda(ambiguous-value16_0 exactly?17_0 extra-shifts20_0 immediate?18_0 unbound-sym?19_0 s26_0 phase27_0)" "(begin" " 'resolve+shift28" -"(let-values(((s_157) s26_0))" +"(let-values(((s_158) s26_0))" "(let-values(((phase_8) phase27_0))" "(let-values(((ambiguous-value_1) ambiguous-value16_0))" "(let-values(((exactly?_1) exactly?17_0))" @@ -11222,13 +11235,13 @@ static const char *startup_source = "(let-values()" "(let-values(((can-cache?_0)" "(if(not exactly?_1)(if(not immediate?_0)(null? extra-shifts_4) #f) #f)))" -"(let-values(((c1_23)(if can-cache?_0(resolve+shift-cache-get s_157 phase_8) #f)))" +"(let-values(((c1_23)(if can-cache?_0(resolve+shift-cache-get s_158 phase_8) #f)))" "(if c1_23" -"((lambda(b_51)(if(eq? b_51 '#:none)(if unbound-sym?_0(syntax-content s_157) #f) b_51))" +"((lambda(b_51)(if(eq? b_51 '#:none)(if unbound-sym?_0(syntax-content s_158) #f) b_51))" " c1_23)" "(let-values()" "(let-values(((immediate-b_0)" -"(let-values(((s69_0) s_157)" +"(let-values(((s69_0) s_158)" "((phase70_0) phase_8)" "((ambiguous-value71_0) ambiguous-value_1)" "((exactly?72_0) exactly?_1)" @@ -11247,7 +11260,7 @@ static const char *startup_source = "(let-values(((temp74_0)(binding-free=id immediate-b_0))" "((phase75_0) phase_8)" "((temp76_0)" -"(append extra-shifts_4(syntax-mpi-shifts s_157)))" +"(append extra-shifts_4(syntax-mpi-shifts s_158)))" "((ambiguous-value77_0) ambiguous-value_1)" "((exactly?78_0) exactly?_1)" "((unbound-sym?79_0) unbound-sym?_0))" @@ -11262,7 +11275,7 @@ static const char *startup_source = " immediate-b_0)))" "(if(module-binding? b_52)" "(let-values()" -"(let-values(((mpi-shifts_2)(syntax-mpi-shifts s_157)))" +"(let-values(((mpi-shifts_2)(syntax-mpi-shifts s_158)))" "(if(null? mpi-shifts_2)" "(let-values() b_52)" "(let-values()" @@ -11293,7 +11306,7 @@ static const char *startup_source = "(let-values(((temp85_0)" "(binding-free=id" " b_52))" -"((s86_0) s_157))" +"((s86_0) s_158))" "(syntax-transfer-shifts36.1" " #f" " temp85_0" @@ -11311,7 +11324,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_50)))" -"((letrec-values(((for-loop_74)" +"((letrec-values(((for-loop_73)" "(lambda(fold-var_35" " lst_51)" "(begin" @@ -11339,12 +11352,12 @@ static const char *startup_source = " fold-var_38)))))" "(if(not" " #f)" -"(for-loop_74" +"(for-loop_73" " fold-var_36" " rest_22)" " fold-var_36)))" " fold-var_35)))))" -" for-loop_74)" +" for-loop_73)" " null" " lst_50))))))" "(module-binding-update48.1" @@ -11363,7 +11376,7 @@ static const char *startup_source = "(begin" "(if can-cache?_0" "(let-values()" -"(resolve+shift-cache-set! s_157 phase_8 result-b_0))" +"(resolve+shift-cache-set! s_158 phase_8 result-b_0))" "(void))" " result-b_0))))))))))" "(let-values()" @@ -11371,14 +11384,14 @@ static const char *startup_source = "(if can-cache?_0" "(let-values()" "(resolve+shift-cache-set!" -" s_157" +" s_158" " phase_8" "(let-values(((or-part_131) b_52))(if or-part_131 or-part_131 '#:none))))" "(void))" "(let-values(((or-part_56) b_52))" "(if or-part_56" " or-part_56" -"(if unbound-sym?_0(syntax-content s_157) #f)))))))))))))))))))))))" +"(if unbound-sym?_0(syntax-content s_158) #f)))))))))))))))))))))))" "(define-values" "(apply-syntax-shifts)" "(lambda(mpi_12 shifts_0)" @@ -11415,12 +11428,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_52)))" -"((letrec-values(((for-loop_75)" +"((letrec-values(((for-loop_74)" "(lambda(fold-var_39 lst_53)" "(begin" " 'for-loop" "(if(pair? lst_53)" -"(let-values(((b_38)(unsafe-car lst_53))" +"(let-values(((b_56)(unsafe-car lst_53))" "((rest_23)(unsafe-cdr lst_53)))" "(let-values(((fold-var_40)" "(let-values(((fold-var_41) fold-var_39))" @@ -11429,14 +11442,14 @@ static const char *startup_source = "(cons" "(let-values()" "(binding-module-path-index-shift" -" b_38" +" b_56" " from-mpi_2" " to-mpi_2))" " fold-var_41))))" "(values fold-var_42)))))" -"(if(not #f)(for-loop_75 fold-var_40 rest_23) fold-var_40)))" +"(if(not #f)(for-loop_74 fold-var_40 rest_23) fold-var_40)))" " fold-var_39)))))" -" for-loop_75)" +" for-loop_74)" " null" " lst_52))))))" "(module-binding-update48.1" @@ -11475,17 +11488,17 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_12)))" -"((letrec-values(((for-loop_76)" -"(lambda(s_158 lst_55 pos_10)" +"((letrec-values(((for-loop_75)" +"(lambda(s_159 lst_55 pos_10)" "(begin" " 'for-loop" "(if(if(pair? lst_55) #t #f)" "(let-values(((shift_3)(unsafe-car lst_55))" "((rest_24)(unsafe-cdr lst_55))" "((i_81) pos_10))" -"(let-values(((s_159)" -"(let-values(((s_39) s_158))" -"(let-values(((s_97)" +"(let-values(((s_160)" +"(let-values(((s_39) s_159))" +"(let-values(((s_98)" "(let-values()" "(let-values(((s91_0) s_39)" "((temp92_0)" @@ -11504,31 +11517,31 @@ static const char *startup_source = " temp92_0" " temp93_0" " temp94_0)))))" -"(values s_97)))))" -"(if(not #f)(for-loop_76 s_159 rest_24(+ pos_10 1)) s_159)))" -" s_158)))))" -" for-loop_76)" +"(values s_98)))))" +"(if(not #f)(for-loop_75 s_160 rest_24(+ pos_10 1)) s_160)))" +" s_159)))))" +" for-loop_75)" " to-s_0" " lst_54" " start_12))))))))))))))" "(define-values" "(syntax-set-inspector)" -"(lambda(s_160 insp_3)" +"(lambda(s_161 insp_3)" "(begin" -"(let-values(((the-struct_32) s_160))" +"(let-values(((the-struct_32) s_161))" "(if(syntax?$1 the-struct_32)" "(let-values(((inspector96_0)" -"(let-values(((or-part_132)(syntax-inspector s_160)))(if or-part_132 or-part_132 insp_3)))" +"(let-values(((or-part_132)(syntax-inspector s_161)))(if or-part_132 or-part_132 insp_3)))" "((scope-propagations+tamper97_0)" -"(if(datum-has-elements?(syntax-content s_160))" +"(if(datum-has-elements?(syntax-content s_161))" "(propagation-mpi-shift" -"(syntax-scope-propagations+tamper s_160)" +"(syntax-scope-propagations+tamper s_161)" " #f" " insp_3" -"(syntax-scopes s_160)" -"(syntax-shifted-multi-scopes s_160)" -"(syntax-mpi-shifts s_160))" -"(syntax-scope-propagations+tamper s_160))))" +"(syntax-scopes s_161)" +"(syntax-shifted-multi-scopes s_161)" +"(syntax-mpi-shifts s_161))" +"(syntax-scope-propagations+tamper s_161))))" "(syntax1.1" "(syntax-content the-struct_32)" "(syntax-scopes the-struct_32)" @@ -11545,19 +11558,19 @@ static const char *startup_source = "(lambda(s40_0 source?39_0)" "(begin" " 'syntax-source-module41" -"(let-values(((s_161) s40_0))" +"(let-values(((s_162) s40_0))" "(let-values(((source?_0) source?39_0))" "(let-values()" "(begin" -"(if(syntax?$1 s_161)" +"(if(syntax?$1 s_162)" "(void)" -" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_161)))" -"(let-values(((lst_56)(reverse$1(syntax-mpi-shifts s_161))))" +" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_162)))" +"(let-values(((lst_56)(reverse$1(syntax-mpi-shifts s_162))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_56)))" -"((letrec-values(((for-loop_38)" +"((letrec-values(((for-loop_76)" "(lambda(result_49 lst_57)" "(begin" " 'for-loop" @@ -11586,7 +11599,7 @@ static const char *startup_source = "(apply-syntax-shifts" " from-mpi_3" "(syntax-mpi-shifts" -" s_161))))" +" s_162))))" "(if source?_0" "(1/resolved-module-path-name" "(1/module-path-index-resolve" @@ -11597,15 +11610,15 @@ static const char *startup_source = " #f)))))))" "(values result_52)))))))" "(if(if(not((lambda x_37 result_50) shift_4))(not #f) #f)" -"(for-loop_38 result_50 rest_25)" +"(for-loop_76 result_50 rest_25)" " result_50)))" " result_49)))))" -" for-loop_38)" +" for-loop_76)" " #f" " lst_56)))))))))))" "(case-lambda" -"((s_162)(begin 'syntax-source-module(syntax-source-module41_0 s_162 #f)))" -"((s_163 source?39_1)(syntax-source-module41_0 s_163 source?39_1)))))" +"((s_163)(begin 'syntax-source-module(syntax-source-module41_0 s_163 #f)))" +"((s_164 source?39_1)(syntax-source-module41_0 s_164 source?39_1)))))" "(define-values" "(1/identifier-prune-to-source-module)" "(lambda(id_7)" @@ -11744,26 +11757,26 @@ static const char *startup_source = "(cons" " prop:bulk-binding" "(bulk-binding-class3.1" -"(lambda(b_56 mpi-shifts_3)" -"(let-values(((or-part_133)(bulk-binding-provides b_56)))" +"(lambda(b_57 mpi-shifts_3)" +"(let-values(((or-part_133)(bulk-binding-provides b_57)))" "(if or-part_133" " or-part_133" "(let-values(((mod-name_1)" "(1/module-path-index-resolve" -"(apply-syntax-shifts(bulk-binding-mpi b_56) mpi-shifts_3))))" +"(apply-syntax-shifts(bulk-binding-mpi b_57) mpi-shifts_3))))" "(let-values((()" "(begin" -"(if(bulk-binding-bulk-binding-registry b_56)" +"(if(bulk-binding-bulk-binding-registry b_57)" "(void)" "(let-values()" "(error" " \"namespace mismatch: no bulk-binding registry available:\"" " mod-name_1)))" "(values))))" -"(let-values(((table_83)" +"(let-values(((table_84)" "(bulk-binding-registry-table" -"(bulk-binding-bulk-binding-registry b_56))))" -"(let-values(((bulk-provide_0)(hash-ref table_83 mod-name_1 #f)))" +"(bulk-binding-bulk-binding-registry b_57))))" +"(let-values(((bulk-provide_0)(hash-ref table_84 mod-name_1 #f)))" "(let-values((()" "(begin" "(if bulk-provide_0" @@ -11775,14 +11788,14 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(set-bulk-binding-self! b_56(bulk-provide-self bulk-provide_0))" +"(set-bulk-binding-self! b_57(bulk-provide-self bulk-provide_0))" "(values))))" "(let-values(((provides_0)" "(hash-ref" "(bulk-provide-provides bulk-provide_0)" -"(bulk-binding-provide-phase-level b_56))))" -"(let-values(((excepts_0)(bulk-binding-excepts b_56)))" -"(let-values(((prefix_0)(bulk-binding-prefix b_56)))" +"(bulk-binding-provide-phase-level b_57))))" +"(let-values(((excepts_0)(bulk-binding-excepts b_57)))" +"(let-values(((prefix_0)(bulk-binding-prefix b_57)))" "(let-values(((adjusted-provides_0)" "(if(let-values(((or-part_134) prefix_0))" "(if or-part_134" @@ -11795,21 +11808,21 @@ static const char *startup_source = " excepts_0))" "(let-values() provides_0))))" "(begin" -"(set-bulk-binding-provides! b_56 adjusted-provides_0)" +"(set-bulk-binding-provides! b_57 adjusted-provides_0)" " adjusted-provides_0))))))))))))))" -"(lambda(b_57 binding_7 sym_19)" +"(lambda(b_58 binding_7 sym_19)" "(let-values(((binding27_0) binding_7)" "((temp28_1)" -"(if(bulk-binding-prefix b_57)" +"(if(bulk-binding-prefix b_58)" "(string->symbol" "(substring" "(symbol->string sym_19)" -"(string-length(symbol->string(bulk-binding-prefix b_57)))))" +"(string-length(symbol->string(bulk-binding-prefix b_58)))))" " sym_19))" -"((temp29_0)(bulk-binding-self b_57))" -"((temp30_0)(bulk-binding-mpi b_57))" -"((temp31_0)(bulk-binding-provide-phase-level b_57))" -"((temp32_0)(bulk-binding-phase-shift b_57)))" +"((temp29_0)(bulk-binding-self b_58))" +"((temp30_0)(bulk-binding-mpi b_58))" +"((temp31_0)(bulk-binding-provide-phase-level b_58))" +"((temp32_0)(bulk-binding-phase-shift b_58)))" "(provide-binding-to-require-binding11.1" " temp30_0" " temp32_0" @@ -11845,23 +11858,23 @@ static const char *startup_source = "(bulk-provides-add-prefix-remove-exceptions)" "(lambda(provides_1 prefix_2 excepts_2)" "(begin" -"(let-values(((ht_60) provides_1))" +"(let-values(((ht_62) provides_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_60)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_62)))" "((letrec-values(((for-loop_77)" -"(lambda(table_84 i_82)" +"(lambda(table_85 i_82)" "(begin" " 'for-loop" "(if i_82" -"(let-values(((sym_20 val_23)(hash-iterate-key+value ht_60 i_82)))" -"(let-values(((table_85)" -"(let-values(((table_86) table_84))" +"(let-values(((sym_20 val_23)(hash-iterate-key+value ht_62 i_82)))" +"(let-values(((table_86)" +"(let-values(((table_87) table_85))" "(if(hash-ref excepts_2 sym_20 #f)" -" table_86" -"(let-values(((table_87) table_86))" -"(if(symbol-interned? sym_20)" +" table_87" "(let-values(((table_88) table_87))" -"(let-values(((table_89)" +"(if(symbol-interned? sym_20)" +"(let-values(((table_89) table_88))" +"(let-values(((table_90)" "(let-values()" "(let-values(((key_36 val_24)" "(let-values()" @@ -11874,14 +11887,14 @@ static const char *startup_source = " sym_20))" " sym_20)" " val_23))))" -"(hash-set table_88 key_36 val_24)))))" -"(values table_89)))" -" table_87))))))" -"(if(not #f)(for-loop_77 table_85(hash-iterate-next ht_60 i_82)) table_85)))" -" table_84)))))" +"(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_62 i_82)) table_86)))" +" table_85)))))" " for-loop_77)" " '#hash()" -"(hash-iterate-first ht_60)))))))" +"(hash-iterate-first ht_62)))))))" "(define-values" "(struct:bulk-provide bulk-provide15.1 bulk-provide? bulk-provide-self bulk-provide-provides)" "(let-values(((struct:_34 make-_34 ?_34 -ref_34 -set!_34)" @@ -12089,29 +12102,29 @@ static const char *startup_source = "((new-self20_0) new-self_0))" "(syntax-module-path-index-shift13.1 #f temp18_2 orig-self19_0 new-self20_0 #f))" "(add-scopes empty-syntax(unbox(root-expand-context-use-site-scopes ctx_0)))" -"(let-values(((ht_61)(root-expand-context-defined-syms ctx_0)))" +"(let-values(((ht_63)(root-expand-context-defined-syms ctx_0)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_61)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_63)))" "((letrec-values(((for-loop_78)" -"(lambda(table_88 i_83)" +"(lambda(table_89 i_83)" "(begin" " 'for-loop" "(if i_83" -"(let-values(((phase_23 ht_62)(hash-iterate-key+value ht_61 i_83)))" -"(let-values(((table_90)" -"(let-values(((table_91) table_88))" -"(let-values(((table_92)" +"(let-values(((phase_23 ht_64)(hash-iterate-key+value ht_63 i_83)))" +"(let-values(((table_91)" +"(let-values(((table_92) table_89))" +"(let-values(((table_93)" "(let-values()" "(let-values(((key_37 val_25)" "(let-values()" -"(values phase_23 ht_62))))" -"(hash-set table_91 key_37 val_25)))))" -"(values table_92)))))" -"(if(not #f)(for-loop_78 table_90(hash-iterate-next ht_61 i_83)) table_90)))" -" table_88)))))" +"(values phase_23 ht_64))))" +"(hash-set table_92 key_37 val_25)))))" +"(values table_93)))))" +"(if(not #f)(for-loop_78 table_91(hash-iterate-next ht_63 i_83)) table_91)))" +" table_89)))))" " for-loop_78)" " '#hasheqv()" -"(hash-iterate-first ht_61))))" +"(hash-iterate-first ht_63))))" "(root-expand-context-frame-id ctx_0)" "(unbox(root-expand-context-counter ctx_0)))))))" "(define-values" @@ -12154,15 +12167,15 @@ static const char *startup_source = "(defined-syms-hash?)" "(lambda(v_96)" "(begin" -"(let-values(((ht_63) v_96))" +"(let-values(((ht_65) v_96))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_63)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_65)))" "((letrec-values(((for-loop_79)" "(lambda(result_53 i_84)" "(begin" " 'for-loop" "(if i_84" -"(let-values(((phase_24 ht-s_0)(hash-iterate-key+value ht_63 i_84)))" +"(let-values(((phase_24 ht-s_0)(hash-iterate-key+value ht_65 i_84)))" "(let-values(((result_54)" "(let-values()" "(let-values(((result_55)" @@ -12170,12 +12183,12 @@ static const char *startup_source = "(let-values()" "(if(phase? phase_24)" "(if(hash?(syntax-e$1 ht-s_0))" -"(let-values(((ht_64)(syntax-e$1 ht-s_0)))" +"(let-values(((ht_66)(syntax-e$1 ht-s_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_64)))" +"(let-values()(check-in-hash ht_66)))" "((letrec-values(((for-loop_8)" "(lambda(result_56 i_85)" "(begin" @@ -12184,7 +12197,7 @@ static const char *startup_source = "(let-values(((sym_21" " id_8)" "(hash-iterate-key+value" -" ht_64" +" ht_66" " i_85)))" "(let-values(((result_57)" "(let-values()" @@ -12209,23 +12222,23 @@ static const char *startup_source = "(for-loop_8" " result_57" "(hash-iterate-next" -" ht_64" +" ht_66" " i_85))" " result_57)))" " result_56)))))" " for-loop_8)" " #t" -"(hash-iterate-first ht_64))))" +"(hash-iterate-first ht_66))))" " #f)" " #f)))))" "(values result_55)))))" "(if(if(not((lambda x_39(not result_54)) phase_24 ht-s_0))(not #f) #f)" -"(for-loop_79 result_54(hash-iterate-next ht_63 i_84))" +"(for-loop_79 result_54(hash-iterate-next ht_65 i_84))" " result_54)))" " result_53)))))" " for-loop_79)" " #t" -"(hash-iterate-first ht_63)))))))" +"(hash-iterate-first ht_65)))))))" "(define-values" "(extract-scope-list)" "(lambda(stx_9)(begin(map2 generalize-scope(set->list(syntax-scope-set stx_9 0))))))" @@ -12234,31 +12247,31 @@ static const char *startup_source = "(lambda(stx_10)(begin(if(syntax?$1 stx_10)(= 1(set-count(syntax-scope-set stx_10 0))) #f))))" "(define-values" "(extract-scope)" -"(lambda(stx_11)(begin(let-values(((s_164)(syntax-scope-set stx_11 0)))(generalize-scope(set-first s_164))))))" +"(lambda(stx_11)(begin(let-values(((s_165)(syntax-scope-set stx_11 0)))(generalize-scope(set-first s_165))))))" "(define-values" "(unpack-defined-syms)" "(lambda(v_97)" "(begin" "(hash-copy" -"(let-values(((ht_30)(syntax-e$1 v_97)))" +"(let-values(((ht_67)(syntax-e$1 v_97)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_30)))" -"((letrec-values(((for-loop_32)" -"(lambda(table_93 i_50)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_67)))" +"((letrec-values(((for-loop_80)" +"(lambda(table_94 i_86)" "(begin" " 'for-loop" -"(if i_50" -"(let-values(((phase_25 ht-s_1)(hash-iterate-key+value ht_30 i_50)))" -"(let-values(((table_94)" -"(let-values(((table_95) table_93))" -"(let-values(((table_96)" +"(if i_86" +"(let-values(((phase_25 ht-s_1)(hash-iterate-key+value ht_67 i_86)))" +"(let-values(((table_95)" +"(let-values(((table_96) table_94))" +"(let-values(((table_97)" "(let-values()" "(let-values(((key_38 val_26)" "(let-values()" "(values" " phase_25" "(hash-copy" -"(let-values(((ht_65)" +"(let-values(((ht_68)" "(syntax-e$1" " ht-s_1)))" "(begin" @@ -12266,22 +12279,22 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_65)))" +"(check-in-hash ht_68)))" "((letrec-values(((for-loop_13)" -"(lambda(table_97" -" i_86)" +"(lambda(table_98" +" i_87)" "(begin" " 'for-loop" -"(if i_86" +"(if i_87" "(let-values(((sym_22" " id_9)" "(hash-iterate-key+value" -" ht_65" -" i_86)))" -"(let-values(((table_98)" +" ht_68" +" i_87)))" "(let-values(((table_99)" -" table_97))" "(let-values(((table_100)" +" table_98))" +"(let-values(((table_101)" "(let-values()" "(let-values(((key_39" " val_27)" @@ -12290,31 +12303,31 @@ static const char *startup_source = " sym_22" " id_9))))" "(hash-set" -" table_99" +" table_100" " key_39" " val_27)))))" "(values" -" table_100)))))" +" table_101)))))" "(if(not" " #f)" "(for-loop_13" -" table_98" +" table_99" "(hash-iterate-next" -" ht_65" -" i_86))" -" table_98)))" -" table_97)))))" +" ht_68" +" i_87))" +" table_99)))" +" table_98)))))" " for-loop_13)" " '#hash()" "(hash-iterate-first" -" ht_65)))))))))" -"(hash-set table_95 key_38 val_26)))))" -"(values table_96)))))" -"(if(not #f)(for-loop_32 table_94(hash-iterate-next ht_30 i_50)) table_94)))" -" table_93)))))" -" for-loop_32)" +" ht_68)))))))))" +"(hash-set table_96 key_38 val_26)))))" +"(values table_97)))))" +"(if(not #f)(for-loop_80 table_95(hash-iterate-next ht_67 i_86)) table_95)))" +" table_94)))))" +" for-loop_80)" " '#hasheqv()" -"(hash-iterate-first ht_30))))))))" +"(hash-iterate-first ht_67))))))))" "(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)" @@ -12608,14 +12621,14 @@ static const char *startup_source = "(lambda(ns_7)" "(begin" "(let-values(((n_21)(namespace-source-name ns_7)))" -"(let-values(((s_165)" +"(let-values(((s_166)" "(if(not n_21)" "(let-values() 'top-level)" "(if(symbol? n_21)" " (let-values () (format \"'~s\" n_21))" " (let-values () (string-append \"\\\"\" (path->string n_21) \"\\\"\"))))))" "(let-values(((r_27)(1/resolved-module-path-name(1/module-path-index-resolve(namespace-mpi ns_7)))))" -" (if (pair? r_27) (string-append \"(submod \" s_165 \" \" (substring (format \"~s\" (cdr r_27)) 1)) s_165)))))))" +" (if (pair? r_27) (string-append \"(submod \" s_166 \" \" (substring (format \"~s\" (cdr r_27)) 1)) s_166)))))))" "(define-values" "(namespace->definitions)" "(lambda(ns_8 phase-level_1)" @@ -12795,21 +12808,21 @@ static const char *startup_source = "(hash-count old-props-with-origin_0)" "(hash-count new-props_0))" "(let-values()" -"(let-values(((ht_66) old-props-with-origin_0))" +"(let-values(((ht_69) old-props-with-origin_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_66)))" -"((letrec-values(((for-loop_80)" -"(lambda(new-props_1 i_87)" +"(let-values()(check-in-immutable-hash ht_69)))" +"((letrec-values(((for-loop_81)" +"(lambda(new-props_1 i_88)" "(begin" " 'for-loop" -"(if i_87" +"(if i_88" "(let-values(((k_17 v_2)" "(unsafe-immutable-hash-iterate-key+value" -" ht_66" -" i_87)))" +" ht_69" +" i_88)))" "(let-values(((new-props_2)" "(let-values(((new-props_3)" " new-props_1))" @@ -12833,31 +12846,31 @@ static const char *startup_source = "(values" " new-props_4)))))" "(if(not #f)" -"(for-loop_80" +"(for-loop_81" " new-props_2" "(unsafe-immutable-hash-iterate-next" -" ht_66" -" i_87))" +" ht_69" +" i_88))" " new-props_2)))" " new-props_1)))))" -" for-loop_80)" +" for-loop_81)" " new-props_0" -"(unsafe-immutable-hash-iterate-first ht_66)))))" +"(unsafe-immutable-hash-iterate-first ht_69)))))" "(let-values()" -"(let-values(((ht_67) new-props_0))" +"(let-values(((ht_70) new-props_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_67)))" -"((letrec-values(((for-loop_81)" +"(let-values()(check-in-immutable-hash ht_70)))" +"((letrec-values(((for-loop_82)" "(lambda(old-props_1 i_0)" "(begin" " 'for-loop" "(if i_0" "(let-values(((k_18 v_89)" "(unsafe-immutable-hash-iterate-key+value" -" ht_67" +" ht_70" " i_0)))" "(let-values(((old-props_2)" "(let-values(((old-props_3)" @@ -12882,16 +12895,16 @@ static const char *startup_source = "(values" " old-props_4)))))" "(if(not #f)" -"(for-loop_81" +"(for-loop_82" " old-props_2" "(unsafe-immutable-hash-iterate-next" -" ht_67" +" ht_70" " i_0))" " old-props_2)))" " old-props_1)))))" -" for-loop_81)" +" for-loop_82)" " old-props-with-origin_0" -"(unsafe-immutable-hash-iterate-first ht_67))))))))" +"(unsafe-immutable-hash-iterate-first ht_70))))))))" "(let-values(((the-struct_37) new-stx_0))" "(if(syntax?$1 the-struct_37)" "(let-values(((props8_0) updated-props_0))" @@ -12926,7 +12939,7 @@ static const char *startup_source = "(let-values(((lst_58) old-stxes_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_58)))" -"((letrec-values(((for-loop_82)" +"((letrec-values(((for-loop_83)" "(lambda(new-stx_4 lst_24)" "(begin" " 'for-loop" @@ -12938,9 +12951,9 @@ static const char *startup_source = "(let-values()" "(syntax-track-origin$1 new-stx_6 old-stx_3))))" "(values new-stx_7)))))" -"(if(not #f)(for-loop_82 new-stx_5 rest_26) new-stx_5)))" +"(if(not #f)(for-loop_83 new-stx_5 rest_26) new-stx_5)))" " new-stx_4)))))" -" for-loop_82)" +" for-loop_83)" " new-stx_3" " lst_58))))))" "(define-values" @@ -12971,7 +12984,7 @@ static const char *startup_source = "(values struct:_30 make-_30 ?_30(make-struct-field-accessor -ref_30 0 'exprs))))" "(define-values" "(1/struct:exn:fail:syntax:unbound make-exn:fail:syntax:unbound$1 1/exn:fail:syntax:unbound?)" -"(let-values(((struct:_18 make-_18 ?_18 -ref_18 -set!_18)" +"(let-values(((struct:_38 make-_38 ?_38 -ref_38 -set!_38)" "(let-values()" "(let-values()" "(make-struct-type" @@ -12986,7 +12999,7 @@ static const char *startup_source = " '()" " #f" " 'exn:fail:syntax:unbound)))))" -"(values struct:_18 make-_18 ?_18)))" +"(values struct:_38 make-_38 ?_38)))" "(define-values" "(raise-syntax-error$1)" "(let-values(((raise-syntax-error7_0)" @@ -13130,11 +13143,11 @@ static const char *startup_source = " extra-sources_4)))))))))))))))" "(define-values" "(extract-form-name)" -"(lambda(s_166)" +"(lambda(s_70)" "(begin" -"(if(syntax?$1 s_166)" +"(if(syntax?$1 s_70)" "(let-values()" -"(let-values(((e_18)(syntax-e$1 s_166)))" +"(let-values(((e_18)(syntax-e$1 s_70)))" "(if(symbol? e_18)" "(let-values() e_18)" "(if(if(pair? e_18)(identifier?(car e_18)) #f)" @@ -13236,7 +13249,7 @@ static const char *startup_source = " module-linklet-info-inspector" " module-linklet-info-extra-inspector" " module-linklet-info-extra-inspectorsss)" -"(let-values(((struct:_38 make-_38 ?_38 -ref_38 -set!_38)" +"(let-values(((struct:_39 make-_39 ?_39 -ref_39 -set!_39)" "(let-values()" "(let-values()" "(make-struct-type" @@ -13252,15 +13265,15 @@ static const char *startup_source = " #f" " 'module-linklet-info)))))" "(values" -" struct:_38" -" make-_38" -" ?_38" -"(make-struct-field-accessor -ref_38 0 'linklet-or-instance)" -"(make-struct-field-accessor -ref_38 1 'module-uses)" -"(make-struct-field-accessor -ref_38 2 'self)" -"(make-struct-field-accessor -ref_38 3 'inspector)" -"(make-struct-field-accessor -ref_38 4 'extra-inspector)" -"(make-struct-field-accessor -ref_38 5 'extra-inspectorsss))))" +" struct:_39" +" make-_39" +" ?_39" +"(make-struct-field-accessor -ref_39 0 'linklet-or-instance)" +"(make-struct-field-accessor -ref_39 1 'module-uses)" +"(make-struct-field-accessor -ref_39 2 'self)" +"(make-struct-field-accessor -ref_39 3 'inspector)" +"(make-struct-field-accessor -ref_39 4 'extra-inspector)" +"(make-struct-field-accessor -ref_39 5 'extra-inspectorsss))))" "(define-values" "(make-module39.1)" "(lambda(cross-phase-persistent?16_0" @@ -13353,7 +13366,7 @@ static const char *startup_source = " set-module-instance-shifted-requires!" " set-module-instance-made-available?!" " set-module-instance-attached?!)" -"(let-values(((struct:_39 make-_39 ?_39 -ref_39 -set!_39)" +"(let-values(((struct:_40 make-_40 ?_40 -ref_40 -set!_40)" "(let-values()" "(let-values()" "(make-struct-type" @@ -13369,19 +13382,19 @@ static const char *startup_source = " #f" " 'module-instance)))))" "(values" -" struct:_39" -" make-_39" -" ?_39" -"(make-struct-field-accessor -ref_39 0 'namespace)" -"(make-struct-field-accessor -ref_39 1 'module)" -"(make-struct-field-accessor -ref_39 2 'shifted-requires)" -"(make-struct-field-accessor -ref_39 3 'phase-level-to-state)" -"(make-struct-field-accessor -ref_39 4 'made-available?)" -"(make-struct-field-accessor -ref_39 5 'attached?)" -"(make-struct-field-accessor -ref_39 6 'data-box)" -"(make-struct-field-mutator -set!_39 2 'shifted-requires)" -"(make-struct-field-mutator -set!_39 4 'made-available?)" -"(make-struct-field-mutator -set!_39 5 'attached?))))" +" struct:_40" +" make-_40" +" ?_40" +"(make-struct-field-accessor -ref_40 0 'namespace)" +"(make-struct-field-accessor -ref_40 1 'module)" +"(make-struct-field-accessor -ref_40 2 'shifted-requires)" +"(make-struct-field-accessor -ref_40 3 'phase-level-to-state)" +"(make-struct-field-accessor -ref_40 4 'made-available?)" +"(make-struct-field-accessor -ref_40 5 'attached?)" +"(make-struct-field-accessor -ref_40 6 'data-box)" +"(make-struct-field-mutator -set!_40 2 'shifted-requires)" +"(make-struct-field-mutator -set!_40 4 'made-available?)" +"(make-struct-field-mutator -set!_40 5 'attached?))))" "(define-values" "(make-module-instance)" "(lambda(m-ns_0 m_1)(begin(module-instance42.1 m-ns_0 m_1 #f(make-small-hasheqv) #f #f(box #f)))))" @@ -13969,7 +13982,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_59)))" -"((letrec-values(((for-loop_83)" +"((letrec-values(((for-loop_84)" "(lambda(fold-var_43 lst_60)" "(begin" " 'for-loop" @@ -13999,7 +14012,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_61)))" -"((letrec-values(((for-loop_84)" +"((letrec-values(((for-loop_85)" "(lambda(fold-var_47" " lst_62)" "(begin" @@ -14029,22 +14042,22 @@ static const char *startup_source = " fold-var_50)))))" "(if(not" " #f)" -"(for-loop_84" +"(for-loop_85" " fold-var_48" " rest_28)" " fold-var_48)))" " fold-var_47)))))" -" for-loop_84)" +" for-loop_85)" " null" " lst_61))))))" " fold-var_45))))" "(values" " fold-var_46)))))" "(if(not #f)" -"(for-loop_83 fold-var_44 rest_27)" +"(for-loop_84 fold-var_44 rest_27)" " fold-var_44)))" " fold-var_43)))))" -" for-loop_83)" +" for-loop_84)" " null" " lst_59)))))))" "(let-values(((lst_63)(module-instance-shifted-requires mi_7)))" @@ -14052,7 +14065,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_63)))" -"((letrec-values(((for-loop_85)" +"((letrec-values(((for-loop_86)" "(lambda(lst_64)" "(begin" " 'for-loop" @@ -14080,7 +14093,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_65)))" -"((letrec-values(((for-loop_86)" +"((letrec-values(((for-loop_87)" "(lambda(lst_66)" "(begin" " 'for-loop" @@ -14129,20 +14142,20 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_86" +"(for-loop_87" " rest_30)" "(values))))" "(values))))))" -" for-loop_86)" +" for-loop_87)" " lst_65)))" "(void))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_85 rest_29)" +"(for-loop_86 rest_29)" "(values))))" "(values))))))" -" for-loop_85)" +" for-loop_86)" " lst_63)))" "(void)" "(if(label-phase? instance-phase_4)" @@ -14156,7 +14169,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_87)" +"((letrec-values(((for-loop_88)" "(lambda(pos_11)" "(begin" " 'for-loop" @@ -14267,10 +14280,10 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_87(+ pos_11 inc_3))" +"(for-loop_88(+ pos_11 inc_3))" "(values))))" "(values))))))" -" for-loop_87)" +" for-loop_88)" " start_13)))" "(void))))" "(if otherwise-available?_1" @@ -14335,7 +14348,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_67)))" -"((letrec-values(((for-loop_88)" +"((letrec-values(((for-loop_89)" "(lambda(lst_68)" "(begin" " 'for-loop" @@ -14372,10 +14385,10 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_88 rest_31)" +"(for-loop_89 rest_31)" "(values))))" "(values))))))" -" for-loop_88)" +" for-loop_89)" " lst_67)))" "(void)" "(loop_79)))))))))" @@ -14444,7 +14457,7 @@ static const char *startup_source = "(let-values(((lst_69) requires_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_69)))" -"((letrec-values(((for-loop_89)" +"((letrec-values(((for-loop_90)" "(lambda(fold-var_51 lst_70)" "(begin" " 'for-loop" @@ -14465,7 +14478,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_71)))" -"((letrec-values(((for-loop_90)" +"((letrec-values(((for-loop_91)" "(lambda(fold-var_55" " lst_72)" "(begin" @@ -14490,19 +14503,19 @@ static const char *startup_source = "(values" " fold-var_58)))))" "(if(not #f)" -"(for-loop_90" +"(for-loop_91" " fold-var_56" " rest_33)" " fold-var_56)))" " fold-var_55)))))" -" for-loop_90)" +" for-loop_91)" " null" " lst_71))))))" " fold-var_53))))" "(values fold-var_54)))))" -"(if(not #f)(for-loop_89 fold-var_52 rest_32) fold-var_52)))" +"(if(not #f)(for-loop_90 fold-var_52 rest_32) fold-var_52)))" " fold-var_51)))))" -" for-loop_89)" +" for-loop_90)" " null" " lst_69)))))))" "(define-values" @@ -14510,27 +14523,27 @@ static const char *startup_source = "(lambda(m_10)" "(begin" "(let-values(((access_0)" -"(let-values(((ht_68)(module-provides m_10)))" +"(let-values(((ht_71)(module-provides m_10)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_68)))" -"((letrec-values(((for-loop_91)" -"(lambda(table_101 i_88)" +"(let-values()(check-in-hash ht_71)))" +"((letrec-values(((for-loop_92)" +"(lambda(table_102 i_89)" "(begin" " 'for-loop" -"(if i_88" +"(if i_89" "(let-values(((phase_32 at-phase_6)" -"(hash-iterate-key+value ht_68 i_88)))" -"(let-values(((table_102)" -"(let-values(((table_103) table_101))" -"(let-values(((table_104)" +"(hash-iterate-key+value ht_71 i_89)))" +"(let-values(((table_103)" +"(let-values(((table_104) table_102))" +"(let-values(((table_105)" "(let-values()" "(let-values(((key_40 val_33)" "(let-values()" "(values" " phase_32" -"(let-values(((ht_69)" +"(let-values(((ht_72)" " at-phase_6))" "(begin" "(if(variable-reference-from-unsafe?" @@ -14538,22 +14551,22 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_69)))" -"((letrec-values(((for-loop_92)" -"(lambda(table_105" -" i_89)" +" ht_72)))" +"((letrec-values(((for-loop_93)" +"(lambda(table_106" +" i_90)" "(begin" " 'for-loop" -"(if i_89" +"(if i_90" "(let-values(((sym_23" " binding/p_1)" "(hash-iterate-key+value" -" ht_69" -" i_89)))" -"(let-values(((table_106)" +" ht_72" +" i_90)))" "(let-values(((table_107)" -" table_105))" "(let-values(((table_108)" +" table_106))" +"(let-values(((table_109)" "(let-values()" "(let-values(((key_41" " val_34)" @@ -14567,36 +14580,36 @@ static const char *startup_source = " 'protected" " 'provided)))))" "(hash-set" -" table_107" +" table_108" " key_41" " val_34)))))" "(values" -" table_108)))))" +" table_109)))))" "(if(not" " #f)" -"(for-loop_92" -" table_106" +"(for-loop_93" +" table_107" "(hash-iterate-next" -" ht_69" -" i_89))" -" table_106)))" -" table_105)))))" -" for-loop_92)" +" ht_72" +" i_90))" +" table_107)))" +" table_106)))))" +" for-loop_93)" " '#hash()" "(hash-iterate-first" -" ht_69))))))))" +" ht_72))))))))" "(hash-set" -" table_103" +" table_104" " key_40" " val_33)))))" -"(values table_104)))))" +"(values table_105)))))" "(if(not #f)" -"(for-loop_91 table_102(hash-iterate-next ht_68 i_88))" -" table_102)))" -" table_101)))))" -" for-loop_91)" +"(for-loop_92 table_103(hash-iterate-next ht_71 i_89))" +" table_103)))" +" table_102)))))" +" for-loop_92)" " '#hasheqv()" -"(hash-iterate-first ht_68))))))" +"(hash-iterate-first ht_71))))))" "(begin(set-module-access! m_10 access_0) access_0)))))" "(define-values" "(binding->module-instance)" @@ -14708,26 +14721,26 @@ static const char *startup_source = "(lambda(id_14 in-s_1)" "(begin" " 'loop" -"(let-values(((b_58)" +"(let-values(((b_59)" "(let-values(((id1_2) id_14)((phase2_0) phase_34)((temp3_0) #t))" "(resolve+shift28.1 #f #f null temp3_0 #f id1_2 phase2_0))))" -"(let-values(((c1_24)(binding-free=id b_58)))" +"(let-values(((c1_24)(binding-free=id b_59)))" "(if c1_24" "((lambda(next-id_0)" "(let-values((()" "(begin" -"(if(if(module-binding? b_58)" +"(if(if(module-binding? b_59)" "(not" -"(top-level-module-path-index?(module-binding-module b_58)))" +"(top-level-module-path-index?(module-binding-module b_59)))" " #f)" "(let-values()" "(let-values(((mi_14)" "(binding->module-instance" -" b_58" +" b_59" " ns_43" " phase_34" " id_14)))" -" (check-access b_58 mi_14 id_14 in-s_1 \"provided binding\")))" +" (check-access b_59 mi_14 id_14 in-s_1 \"provided binding\")))" "(void))" "(values))))" "(let-values(((next-b_0)" @@ -14736,7 +14749,7 @@ static const char *startup_source = "(let-values(((or-part_75) in-s_1))" "(if or-part_75 or-part_75 id_14)))))" "(if(not next-b_0)" -"(let-values() b_58)" +"(let-values() b_59)" "(if(if(module-binding? next-b_0)" "(if(not(module-binding-extra-inspector next-b_0))" "(syntax-inspector id_14)" @@ -14759,7 +14772,7 @@ static const char *startup_source = " next-b4_0)))" "(let-values() next-b_0))))))" " c1_24)" -"(let-values() b_58))))))))" +"(let-values() b_59))))))))" " loop_80)" " id_13" " #f))))" @@ -14824,7 +14837,7 @@ static const char *startup_source = "(1/make-set!-transformer)" "(let-values()" "(let-values(((struct:set!-transformer_0 set!-transformer1_0 set!-transformer?_0 set!-transformer-proc_0)" -"(let-values(((struct:_40 make-_40 ?_40 -ref_40 -set!_40)" +"(let-values(((struct:_41 make-_41 ?_41 -ref_41 -set!_41)" "(let-values()" "(let-values()" "(make-struct-type" @@ -14839,7 +14852,7 @@ static const char *startup_source = " '(0)" " #f" " 'set!-transformer)))))" -"(values struct:_40 make-_40 ?_40(make-struct-field-accessor -ref_40 0 'proc)))))" +"(values struct:_41 make-_41 ?_41(make-struct-field-accessor -ref_41 0 'proc)))))" "(lambda(proc_3)" "(begin" " 'make-set!-transformer" @@ -14956,17 +14969,17 @@ static const char *startup_source = "(lambda(in20_0 shadow-except21_0 s24_0 binding25_0 phase26_1)" "(begin" " 'add-bulk-binding!27" -"(let-values(((s_166) s24_0))" +"(let-values(((s_70) s24_0))" "(let-values(((binding_9) binding25_0))" "(let-values(((phase_36) phase26_1))" "(let-values(((in-s_3) in20_0))" "(let-values(((shadow-except_2) shadow-except21_0))" "(let-values()" "(begin" -"(if(syntax-tainted?$1 s_166)" -" (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_166))" +"(if(syntax-tainted?$1 s_70)" +" (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_70))" "(void))" -"(let-values(((temp59_1)(syntax-scope-set s_166 phase_36))" +"(let-values(((temp59_1)(syntax-scope-set s_70 phase_36))" "((binding60_0) binding_9)" "((shadow-except61_0) shadow-except_2))" "(add-bulk-binding-in-scopes!27.1 shadow-except61_0 temp59_1 binding60_0))))))))))))" @@ -15005,7 +15018,7 @@ static const char *startup_source = "(lambda(in40_0 out-of-context-as-variable?41_0 b44_0 env45_0 lift-envs46_0 ns47_0 phase48_0 id49_1)" "(begin" " 'binding-lookup50" -"(let-values(((b_59) b44_0))" +"(let-values(((b_60) b44_0))" "(let-values(((env_1) env45_0))" "(let-values(((lift-envs_0) lift-envs46_0))" "(let-values(((ns_44) ns47_0))" @@ -15014,12 +15027,12 @@ static const char *startup_source = "(let-values(((in-s_6) in40_0))" "(let-values(((out-of-context-as-variable?_0) out-of-context-as-variable?41_0))" "(let-values()" -"(if(module-binding? b_59)" +"(if(module-binding? b_60)" "(let-values()" -"(let-values(((top-level?_0)(top-level-module-path-index?(module-binding-module b_59))))" +"(let-values(((top-level?_0)(top-level-module-path-index?(module-binding-module b_60))))" "(let-values(((mi_15)" "(if(not top-level?_0)" -"(binding->module-instance b_59 ns_44 phase_37 id_17)" +"(binding->module-instance b_60 ns_44 phase_37 id_17)" " #f)))" "(let-values(((m_12)(if mi_15(module-instance-module mi_15) #f)))" "(let-values(((primitive?_1)(if m_12(module-primitive? m_12) #f)))" @@ -15031,13 +15044,13 @@ static const char *startup_source = "(let-values(((t_43)" "(namespace-get-transformer" " m-ns_7" -"(module-binding-phase b_59)" -"(module-binding-sym b_59)" +"(module-binding-phase b_60)" +"(module-binding-sym b_60)" " variable)))" "(let-values(((protected?_1)" "(if mi_15" "(check-access" -" b_59" +" b_60" " mi_15" " id_17" " in-s_6" @@ -15050,9 +15063,9 @@ static const char *startup_source = " #f)" " #f)))" "(values t_43 primitive?_1 insp_6 protected?_1)))))))))))" -"(if(local-binding? b_59)" +"(if(local-binding? b_60)" "(let-values()" -"(let-values(((t_44)(hash-ref env_1(local-binding-key b_59) missing)))" +"(let-values(((t_44)(hash-ref env_1(local-binding-key b_60) missing)))" "(if(eq? t_44 missing)" "(let-values()" "(values" @@ -15062,7 +15075,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_73)))" -"((letrec-values(((for-loop_93)" +"((letrec-values(((for-loop_94)" "(lambda(result_59 lst_74)" "(begin" " 'for-loop" @@ -15080,7 +15093,7 @@ static const char *startup_source = "(unbox" " lift-env_0)" "(local-binding-key" -" b_59)" +" b_60)" " #f)))))" "(values" " result_61)))))" @@ -15089,10 +15102,10 @@ static const char *startup_source = " lift-env_0))" "(not #f)" " #f)" -"(for-loop_93 result_60 rest_34)" +"(for-loop_94 result_60 rest_34)" " result_60)))" " result_59)))))" -" for-loop_93)" +" for-loop_94)" " #f" " lst_73)))))" "(if or-part_103" @@ -15104,7 +15117,7 @@ static const char *startup_source = " #f" " #f))" "(let-values()(begin(check-taint id_17)(values t_44 #f #f #f))))))" -" (let-values () (error \"internal error: unknown binding for lookup:\" b_59))))))))))))))))" +" (let-values () (error \"internal error: unknown binding for lookup:\" b_60))))))))))))))))" "(define-values" "(check-taint)" "(lambda(id_18)" @@ -15112,7 +15125,7 @@ static const char *startup_source = "(if(syntax-tainted?$1 id_18)" " (let-values () (raise-syntax-error$1 #f \"cannot use identifier tainted by macro transformation\" id_18))" "(void)))))" -"(define-values(cons-ish)(lambda(a_37 b_60)(begin(if(null? b_60) a_37(cons a_37 b_60)))))" +"(define-values(cons-ish)(lambda(a_37 b_61)(begin(if(null? b_61) a_37(cons a_37 b_61)))))" "(define-values" "(free-id-set)" "(lambda(phase_38 ids_0)" @@ -15120,30 +15133,30 @@ static const char *startup_source = "(let-values(((lst_75) ids_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_75)))" -"((letrec-values(((for-loop_94)" -"(lambda(ht_70 lst_76)" +"((letrec-values(((for-loop_95)" +"(lambda(ht_73 lst_76)" "(begin" " 'for-loop" "(if(pair? lst_76)" "(let-values(((id_10)(unsafe-car lst_76))((rest_35)(unsafe-cdr lst_76)))" -"(let-values(((ht_71)" -"(let-values(((ht_72) ht_70))" -"(let-values(((ht_73)" +"(let-values(((ht_74)" +"(let-values(((ht_75) ht_73))" +"(let-values(((ht_76)" "(let-values()" "(let-values(((sym_24)" "(identifier-binding-symbol$1" " id_10" " phase_38)))" "(hash-set" -" ht_72" +" ht_75" " sym_24" "(cons-ish" " id_10" -"(hash-ref ht_72 sym_24 null)))))))" -"(values ht_73)))))" -"(if(not #f)(for-loop_94 ht_71 rest_35) ht_71)))" -" ht_70)))))" -" for-loop_94)" +"(hash-ref ht_75 sym_24 null)))))))" +"(values ht_76)))))" +"(if(not #f)(for-loop_95 ht_74 rest_35) ht_74)))" +" ht_73)))))" +" for-loop_95)" " '#hasheq()" " lst_75))))))" "(define-values(empty-free-id-set)(free-id-set 0 null))" @@ -15157,7 +15170,7 @@ static const char *startup_source = "(let-values(((lst_77)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_39) null)))" "(begin" "(void)" -"((letrec-values(((for-loop_95)" +"((letrec-values(((for-loop_96)" "(lambda(result_3 lst_78)" "(begin" " 'for-loop" @@ -15176,10 +15189,10 @@ static const char *startup_source = " phase_39)))))" "(values result_63)))))" "(if(if(not((lambda x_42 result_62) id_2))(not #f) #f)" -"(for-loop_95 result_62 rest_36)" +"(for-loop_96 result_62 rest_36)" " result_62)))" " result_3)))))" -" for-loop_95)" +" for-loop_96)" " #f" " lst_77)))))))" "(define-values" @@ -15253,7 +15266,7 @@ static const char *startup_source = " expand-context/inner-observer" " expand-context/inner-for-serializable?" " expand-context/inner-should-not-encounter-macros?)" -"(let-values(((struct:_41 make-_41 ?_41 -ref_41 -set!_41)" +"(let-values(((struct:_42 make-_42 ?_42 -ref_42 -set!_42)" "(let-values()" "(let-values()" "(make-struct-type" @@ -15269,28 +15282,28 @@ static const char *startup_source = " #f" " 'expand-context/inner)))))" "(values" -" struct:_41" -" make-_41" -" ?_41" -"(make-struct-field-accessor -ref_41 0 'to-parsed?)" -"(make-struct-field-accessor -ref_41 1 'phase)" -"(make-struct-field-accessor -ref_41 2 'namespace)" -"(make-struct-field-accessor -ref_41 3 'just-once?)" -"(make-struct-field-accessor -ref_41 4 'module-begin-k)" -"(make-struct-field-accessor -ref_41 5 'allow-unbound?)" -"(make-struct-field-accessor -ref_41 6 'in-local-expand?)" -"(make-struct-field-accessor -ref_41 7 'keep-#%expression?)" -"(make-struct-field-accessor -ref_41 8 'stops)" -"(make-struct-field-accessor -ref_41 9 'declared-submodule-names)" -"(make-struct-field-accessor -ref_41 10 'lifts)" -"(make-struct-field-accessor -ref_41 11 'lift-envs)" -"(make-struct-field-accessor -ref_41 12 'module-lifts)" -"(make-struct-field-accessor -ref_41 13 'require-lifts)" -"(make-struct-field-accessor -ref_41 14 'to-module-lifts)" -"(make-struct-field-accessor -ref_41 15 'requires+provides)" -"(make-struct-field-accessor -ref_41 16 'observer)" -"(make-struct-field-accessor -ref_41 17 'for-serializable?)" -"(make-struct-field-accessor -ref_41 18 'should-not-encounter-macros?))))" +" struct:_42" +" make-_42" +" ?_42" +"(make-struct-field-accessor -ref_42 0 'to-parsed?)" +"(make-struct-field-accessor -ref_42 1 'phase)" +"(make-struct-field-accessor -ref_42 2 'namespace)" +"(make-struct-field-accessor -ref_42 3 'just-once?)" +"(make-struct-field-accessor -ref_42 4 'module-begin-k)" +"(make-struct-field-accessor -ref_42 5 'allow-unbound?)" +"(make-struct-field-accessor -ref_42 6 'in-local-expand?)" +"(make-struct-field-accessor -ref_42 7 'keep-#%expression?)" +"(make-struct-field-accessor -ref_42 8 'stops)" +"(make-struct-field-accessor -ref_42 9 'declared-submodule-names)" +"(make-struct-field-accessor -ref_42 10 'lifts)" +"(make-struct-field-accessor -ref_42 11 'lift-envs)" +"(make-struct-field-accessor -ref_42 12 'module-lifts)" +"(make-struct-field-accessor -ref_42 13 'require-lifts)" +"(make-struct-field-accessor -ref_42 14 'to-module-lifts)" +"(make-struct-field-accessor -ref_42 15 'requires+provides)" +"(make-struct-field-accessor -ref_42 16 'observer)" +"(make-struct-field-accessor -ref_42 17 'for-serializable?)" +"(make-struct-field-accessor -ref_42 18 'should-not-encounter-macros?))))" "(define-values" "(expand-context/make)" "(lambda(self-mpi_2" @@ -15309,7 +15322,7 @@ static const char *startup_source = " namespace_0" " env_2" " post-expansion-scope-action_0" -" scopes_18" +" scopes_3" " def-ctx-scopes_0" " binding-layer_0" " reference-records_0" @@ -15368,7 +15381,7 @@ static const char *startup_source = " context_0" " env_2" " post-expansion-scope-action_0" -" scopes_18" +" scopes_3" " def-ctx-scopes_0" " binding-layer_0" " reference-records_0" @@ -15862,8 +15875,8 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_80)))" -"((letrec-values(((for-loop_96)" -"(lambda(table_109 lst_81 lst_82)" +"((letrec-values(((for-loop_97)" +"(lambda(table_110 lst_81 lst_82)" "(begin" " 'for-loop" "(if(if(pair? lst_81)(pair? lst_82) #f)" @@ -15871,34 +15884,34 @@ static const char *startup_source = "((rest_37)(unsafe-cdr lst_81))" "((syntax?_2)(unsafe-car lst_82))" "((rest_38)(unsafe-cdr lst_82)))" -"(let-values(((table_110)" -"(let-values(((table_111) table_109))" -"(let-values(((ht_74) syms_12))" +"(let-values(((table_111)" +"(let-values(((table_112) table_110))" +"(let-values(((ht_77) syms_12))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash-keys ht_74)))" -"((letrec-values(((for-loop_97)" -"(lambda(table_112" +"(check-in-hash-keys ht_77)))" +"((letrec-values(((for-loop_98)" +"(lambda(table_113" " i_42)" "(begin" " 'for-loop" "(if i_42" "(let-values(((sym_28)" "(hash-iterate-key" -" ht_74" +" ht_77" " i_42)))" -"(let-values(((table_113)" "(let-values(((table_114)" -" table_112))" "(let-values(((table_115)" +" table_113))" +"(let-values(((table_116)" "(let-values()" "(let-values(((key_44" " val_36)" "(let-values()" -"(let-values(((b_61)" +"(let-values(((b_62)" "(let-values(((core-mpi17_0)" " core-mpi)" "((temp18_3)" @@ -15922,33 +15935,33 @@ static const char *startup_source = " sym_28" "(if syntax?_2" "(provided1.1" -" b_61" +" b_62" " #f" " #t)" -" b_61))))))" +" b_62))))))" "(hash-set" -" table_114" +" table_115" " key_44" " val_36)))))" "(values" -" table_115)))))" +" table_116)))))" "(if(not" " #f)" -"(for-loop_97" -" table_113" +"(for-loop_98" +" table_114" "(hash-iterate-next" -" ht_74" +" ht_77" " i_42))" -" table_113)))" -" table_112)))))" -" for-loop_97)" -" table_111" -"(hash-iterate-first ht_74)))))))" +" table_114)))" +" table_113)))))" +" for-loop_98)" +" table_112" +"(hash-iterate-first ht_77)))))))" "(if(not #f)" -"(for-loop_96 table_110 rest_37 rest_38)" -" table_110)))" -" table_109)))))" -" for-loop_96)" +"(for-loop_97 table_111 rest_37 rest_38)" +" table_111)))" +" table_110)))))" +" for-loop_97)" " '#hasheq()" " lst_79" " lst_80)))))" @@ -15982,19 +15995,19 @@ static const char *startup_source = "(if(equal? tmp_14 0)" "(let-values()" "(begin" -"(let-values(((ht_75) core-primitives))" +"(let-values(((ht_78) core-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_75)))" -"((letrec-values(((for-loop_98)" +"(let-values()(check-in-hash ht_78)))" +"((letrec-values(((for-loop_99)" "(lambda(i_28)" "(begin" " 'for-loop" "(if i_28" "(let-values(((sym_29 val_37)" "(hash-iterate-key+value" -" ht_75" +" ht_78" " i_28)))" "(let-values((()" "(let-values()" @@ -16010,27 +16023,27 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_98" -"(hash-iterate-next ht_75 i_28))" +"(for-loop_99" +"(hash-iterate-next ht_78 i_28))" "(values))))" "(values))))))" -" for-loop_98)" -"(hash-iterate-first ht_75))))" +" for-loop_99)" +"(hash-iterate-first ht_78))))" "(void)" -"(let-values(((ht_76) core-forms))" +"(let-values(((ht_79) core-forms))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_76)))" -"((letrec-values(((for-loop_99)" -"(lambda(i_90)" +"(let-values()(check-in-hash ht_79)))" +"((letrec-values(((for-loop_100)" +"(lambda(i_91)" "(begin" " 'for-loop" -"(if i_90" +"(if i_91" "(let-values(((sym_30 proc_5)" "(hash-iterate-key+value" -" ht_76" -" i_90)))" +" ht_79" +" i_91)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -16051,12 +16064,12 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_99" -"(hash-iterate-next ht_76 i_90))" +"(for-loop_100" +"(hash-iterate-next ht_79 i_91))" "(values))))" "(values))))))" -" for-loop_99)" -"(hash-iterate-first ht_76))))" +" for-loop_100)" +"(hash-iterate-first ht_79))))" "(void)))" "(let-values()(void)))))))" "(make-module39.1" @@ -16086,12 +16099,12 @@ static const char *startup_source = "(begin" "(let-values(((ok?_0 id23_0 _24_0)" "(let-values(((s_171) s_19))" -"(if(let-values(((s_84)(if(syntax?$1 s_171)(syntax-e$1 s_171) s_171)))" -"(if(pair? s_84)" -"(if(let-values(((s_172)(car s_84)))" +"(if(let-values(((s_85)(if(syntax?$1 s_171)(syntax-e$1 s_171) s_171)))" +"(if(pair? s_85)" +"(if(let-values(((s_172)(car s_85)))" "(let-values(((or-part_161)(if(syntax?$1 s_172)(symbol?(syntax-e$1 s_172)) #f)))" "(if or-part_161 or-part_161(symbol? s_172))))" -"(let-values(((s_173)(cdr s_84))) #t)" +"(let-values(((s_173)(cdr s_85))) #t)" " #f)" " #f))" "(let-values()" @@ -16103,12 +16116,12 @@ static const char *startup_source = "(values #t id23_1 _24_1)))" "(values #f #f #f)))))" "(if ok?_0" -"(let-values(((b_62)" +"(let-values(((b_63)" "(let-values(((temp27_1) id23_0)((phase28_0) phase_41))" "(resolve+shift28.1 #f #f null unsafe-undefined #f temp27_1 phase28_0))))" -"(if(module-binding? b_62)" -"(if(eq? core-module-name(1/module-path-index-resolve(module-binding-module b_62)))" -"(module-binding-sym b_62)" +"(if(module-binding? b_63)" +"(if(eq? core-module-name(1/module-path-index-resolve(module-binding-module b_63)))" +"(module-binding-sym b_63)" " #f)" " #f))" " #f)))))" @@ -16386,7 +16399,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_76)))" -"((letrec-values(((for-loop_100)" +"((letrec-values(((for-loop_101)" "(lambda(fold-var_59 lst_83)" "(begin" " 'for-loop" @@ -16422,13 +16435,37 @@ static const char *startup_source = "(let-values(((sym_18)" "(syntax-e$1" " s_0)))" +"(let-values(((classify-binding_0)" +"(lambda(b_43)" +"(begin" +" 'classify-binding" +"(if(local-binding?" +" b_43)" +" 'local" +" 'module)))))" +"(let-values(((extract-binding_0)" +"(lambda(b_64)" +"(begin" +" 'extract-binding" +"(if(local-binding?" +" b_64)" +"(local-binding-key" +" b_64)" +"(vector" +"(module-binding-sym" +" b_64)" +"(module-binding-module" +" b_64)" +"(module-binding-phase" +" b_64)))))))" "(let-values(((bindings_0)" +"(append" "(if(identifier?" " s_0)" "(let-values()" "(let-values(((bindings_1" " covered-scopess_0)" -"(let-values(((ht_42)" +"(let-values(((ht_80)" " s-scs_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -16436,82 +16473,82 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-immutable-hash-keys" -" ht_42)))" -"((letrec-values(((for-loop_48)" +" ht_80)))" +"((letrec-values(((for-loop_102)" "(lambda(bindings_2" " covered-scope-sets_0" -" i_91)" +" i_92)" "(begin" " 'for-loop" -"(if i_91" +"(if i_92" "(let-values(((sc_28)" "(unsafe-immutable-hash-iterate-key" -" ht_42" -" i_91)))" +" ht_80" +" i_92)))" "(let-values(((bindings_3" " covered-scope-sets_1)" -"(let-values(((ht_77" +"(let-values(((ht_81" " bulk-bindings_3)" -"(let-values(((table_116)" +"(let-values(((table_117)" "(scope-binding-table" " sc_28)))" "(if(hash?" -" table_116)" +" table_117)" "(values" "(hash-ref" -" table_116" +" table_117" " sym_18" " '#hash())" " null)" "(values" "(hash-ref" "(table-with-bulk-bindings-syms" -" table_116)" +" table_117)" " sym_18" " '#hash())" "(table-with-bulk-bindings-bulk-bindings" -" table_116)))))" -"((s_76)" +" table_117)))))" +"((s_188)" " s_0)" "((extra-shifts_5)" " null))" "(begin" " #t" -"((letrec-values(((for-loop_101)" +"((letrec-values(((for-loop_20)" "(lambda(bindings_4" " covered-scope-sets_2" -" i_92)" +" i_38)" "(begin" " 'for-loop" "(if(not" "(null?" -" i_92))" +" i_38))" "(let-values(((scs_15)" "(if(pair?" -" i_92)" +" i_38)" "(let-values()" "(bulk-binding-at-scopes" "(car" -" i_92)))" +" i_38)))" "(let-values()" "(hash-iterate-key" -" ht_77" -" i_92))))" -"((b_63)" +" ht_81" +" i_38))))" +"((b_65)" "(if(pair?" -" i_92)" +" i_38)" "(let-values()" "(let-values(((bulk_4)" "(bulk-binding-at-bulk" "(car" -" i_92))))" +" i_38))))" "(let-values(((b-info_1)" "(if(symbol-interned?" " sym_18)" "(hash-ref" "(bulk-binding-symbols" " bulk_4" -" s_76" +" s_188" " extra-shifts_5)" " sym_18" " #f)" @@ -16525,8 +16562,8 @@ static const char *startup_source = " #f))))" "(let-values()" "(hash-iterate-value" -" ht_77" -" i_92)))))" +" ht_81" +" i_38)))))" "(let-values(((bindings_5" " covered-scope-sets_3)" "(let-values(((bindings_6)" @@ -16534,11 +16571,11 @@ static const char *startup_source = "((covered-scope-sets_4)" " covered-scope-sets_2))" "(if(if scs_15" -"(if b_63" -"(if(let-values(((or-part_67)" +"(if b_65" +"(if(let-values(((or-part_54)" " all-bindings?_0))" -"(if or-part_67" -" or-part_67" +"(if or-part_54" +" or-part_54" "(subset?" " scs_15" " s-scs_0)))" @@ -16558,7 +16595,7 @@ static const char *startup_source = "(let-values()" "(values" "(cons" -"(hash" +"(hasheq" " 'name" "(syntax-e$1" " s_0)" @@ -16569,21 +16606,10 @@ static const char *startup_source = "(subset?" " scs_15" " s-scs_0)" -"(if(local-binding?" -" b_63)" -" 'local" -" 'module)" -"(if(local-binding?" -" b_63)" -"(local-binding-key" -" b_63)" -"(vector" -"(module-binding-sym" -" b_63)" -"(module-binding-module" -" b_63)" -"(module-binding-phase" -" b_63))))" +"(classify-binding_0" +" b_65)" +"(extract-binding_0" +" b_65))" " bindings_7)" "(set-add" " covered-scope-sets_5" @@ -16596,21 +16622,21 @@ static const char *startup_source = " covered-scope-sets_4)))))" "(if(not" " #f)" -"(for-loop_101" +"(for-loop_20" " bindings_5" " covered-scope-sets_3" "(if(pair?" -" i_92)" +" i_38)" "(let-values()" "(cdr" -" i_92))" +" i_38))" "(let-values()" -"(let-values(((or-part_7)" +"(let-values(((or-part_31)" "(hash-iterate-next" -" ht_77" -" i_92)))" -"(if or-part_7" -" or-part_7" +" ht_81" +" i_38)))" +"(if or-part_31" +" or-part_31" " bulk-bindings_3)))))" "(values" " bindings_5" @@ -16618,106 +16644,257 @@ static const char *startup_source = "(values" " bindings_4" " covered-scope-sets_2))))))" -" for-loop_101)" +" for-loop_20)" " bindings_2" " covered-scope-sets_0" -"(let-values(((or-part_8)" +"(let-values(((or-part_32)" "(hash-iterate-first" -" ht_77)))" -"(if or-part_8" -" or-part_8" +" ht_81)))" +"(if or-part_32" +" or-part_32" " bulk-bindings_3)))))))" "(if(not" " #f)" -"(for-loop_48" +"(for-loop_102" " bindings_3" " covered-scope-sets_1" "(unsafe-immutable-hash-iterate-next" -" ht_42" -" i_91))" +" ht_80" +" i_92))" "(values" " bindings_3" " covered-scope-sets_1))))" "(values" " bindings_2" " covered-scope-sets_0))))))" -" for-loop_48)" +" for-loop_102)" " null" "(set)" "(unsafe-immutable-hash-iterate-first" -" ht_42))))))" +" ht_80))))))" " bindings_1))" "(let-values()" -" null))))" -"(if(null? bindings_0)" +" null))" +"(if all-bindings?_0" +"(let-values()" +"(reverse$1" +"(let-values(((ht_82)" +" s-scs_0))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-in-immutable-hash-keys" +" ht_82)))" +"((letrec-values(((for-loop_10)" +"(lambda(fold-var_63" +" i_93)" +"(begin" +" 'for-loop" +"(if i_93" +"(let-values(((sc_29)" +"(unsafe-immutable-hash-iterate-key" +" ht_82" +" i_93)))" +"(let-values(((fold-var_64)" +"(let-values(((sym-ht_1)" +"(let-values(((table_118)" +"(scope-binding-table" +" sc_29)))" +"(if(hash?" +" table_118)" +" table_118" +"(table-with-bulk-bindings-syms" +" table_118)))))" +"(begin" +" #t" +"((letrec-values(((for-loop_103)" +"(lambda(fold-var_65" +" state_25)" +"(begin" +" 'for-loop" +"(if(car" +" state_25)" +"(let-values(((o-sym_0)" +"(vector-ref" +"(car" +" state_25)" +" 1))" +"((scs_16)" +"(hash-iterate-key" +"(vector-ref" +"(car" +" state_25)" +" 2)" +"(cdr" +" state_25)))" +"((b_66)" +"(hash-iterate-value" +"(vector-ref" +"(car" +" state_25)" +" 2)" +"(cdr" +" state_25))))" +"(let-values(((fold-var_66)" +"(let-values(((fold-var_67)" +" fold-var_65))" +"(if(eq?" +" o-sym_0" +" sym_18)" +" fold-var_67" +"(let-values(((fold-var_18)" +" fold-var_67))" +"(let-values(((fold-var_19)" +"(let-values()" +"(cons" +"(let-values()" +"(hasheq" +" 'name" +" o-sym_0" +" 'context" +"(scope-set->context" +" scs_16)" +" 'match?" +" #f" +"(classify-binding_0" +" b_66)" +"(extract-binding_0" +" b_66)))" +" fold-var_18))))" +"(values" +" fold-var_19)))))))" +"(if(not" +" #f)" +"(for-loop_103" +" fold-var_66" +"(let-values(((ht_83)" +"(vector-ref" +"(car" +" state_25)" +" 2)))" +"(let-values(((i_94)" +"(hash-iterate-next" +" ht_83" +"(cdr" +" state_25))))" +"(if i_94" +"(cons" +"(car" +" state_25)" +" i_94)" +"(next-state-in-full-binding-table" +" sym-ht_1" +"(hash-iterate-next" +" sym-ht_1" +"(vector-ref" +"(car" +" state_25)" +" 0)))))))" +" fold-var_66)))" +" fold-var_65)))))" +" for-loop_103)" +" fold-var_63" +"((letrec-values(((loop_84)" +"(lambda(sym-i_1)" +"(begin" +" 'loop" +"(if sym-i_1" +"(next-state-in-full-binding-table" +" sym-ht_1" +" sym-i_1)" +" '(#f" +" ." +" #f))))))" +" loop_84)" +"(hash-iterate-first" +" sym-ht_1)))))))" +"(if(not" +" #f)" +"(for-loop_10" +" fold-var_64" +"(unsafe-immutable-hash-iterate-next" +" ht_82" +" i_93))" +" fold-var_64)))" +" fold-var_63)))))" +" for-loop_10)" +" null" +"(unsafe-immutable-hash-iterate-first" +" ht_82))))))" +"(let-values()" +" null)))))" +"(if(null?" +" bindings_0)" " context-ht_0" "(hash-set" " context-ht_0" " 'bindings" -" bindings_0)))))))))" +" bindings_0)))))))))))" " fold-var_61))))" "(values fold-var_62)))))" -"(if(not #f)(for-loop_100 fold-var_60 rest_39) fold-var_60)))" +"(if(not #f)(for-loop_101 fold-var_60 rest_39) fold-var_60)))" " fold-var_59)))))" -" for-loop_100)" +" for-loop_101)" " null" " lst_76))))))" -"(let-values(((ht_70)(car hts_0)))(if(null?(cdr hts_0)) ht_70(hash-set ht_70 'fallbacks(cdr hts_0))))))))" +"(let-values(((ht_73)(car hts_0)))(if(null?(cdr hts_0)) ht_73(hash-set ht_73 'fallbacks(cdr hts_0))))))))" "(define-values" "(scope-set->context)" -"(lambda(scs_16)" +"(lambda(scs_17)" "(begin" "(let-values(((temp1_1)" "(reverse$1" -"(let-values(((ht_78) scs_16))" +"(let-values(((ht_78) scs_17))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_78)))" -"((letrec-values(((for-loop_102)" -"(lambda(fold-var_63 i_93)" +"((letrec-values(((for-loop_99)" +"(lambda(fold-var_68 i_95)" "(begin" " 'for-loop" -"(if i_93" -"(let-values(((sc_29)(unsafe-immutable-hash-iterate-key ht_78 i_93)))" -"(let-values(((fold-var_64)" -"(let-values(((fold-var_65) fold-var_63))" -"(let-values(((fold-var_66)" +"(if i_95" +"(let-values(((sc_30)(unsafe-immutable-hash-iterate-key ht_78 i_95)))" +"(let-values(((fold-var_6)" +"(let-values(((fold-var_7) fold-var_68))" +"(let-values(((fold-var_8)" "(let-values()" "(cons" "(let-values()" -"(if(interned-scope? sc_29)" +"(if(interned-scope? sc_30)" "(let-values()" "(vector" -"(scope-id sc_29)" -"(scope-kind sc_29)" -"(interned-scope-key sc_29)))" +"(scope-id sc_30)" +"(scope-kind sc_30)" +"(interned-scope-key sc_30)))" "(if(representative-scope?" -" sc_29)" +" sc_30)" "(let-values()" "(vector" -"(scope-id sc_29)" -"(scope-kind sc_29)" +"(scope-id sc_30)" +"(scope-kind sc_30)" "(multi-scope-name" "(representative-scope-owner" -" sc_29))))" +" sc_30))))" "(let-values()" "(vector" -"(scope-id sc_29)" -"(scope-kind sc_29))))))" -" fold-var_65))))" -"(values fold-var_66)))))" +"(scope-id sc_30)" +"(scope-kind sc_30))))))" +" fold-var_7))))" +"(values fold-var_8)))))" "(if(not #f)" -"(for-loop_102" -" fold-var_64" -"(unsafe-immutable-hash-iterate-next ht_78 i_93))" -" fold-var_64)))" -" fold-var_63)))))" -" for-loop_102)" +"(for-loop_99" +" fold-var_6" +"(unsafe-immutable-hash-iterate-next ht_78 i_95))" +" fold-var_6)))" +" fold-var_68)))))" +" for-loop_99)" " null" "(unsafe-immutable-hash-iterate-first ht_78))))))" "((<2_0) <)" -"((temp3_2)(lambda(v_137)(vector-ref v_137 0))))" +"((temp3_2)(lambda(v_64)(vector-ref v_64 0))))" "(sort7.1 #f temp3_2 temp1_1 <2_0)))))" "(define-values" "(raise-ambiguous-error)" @@ -16732,9 +16909,9 @@ static const char *startup_source = "(syntax-debug-info-string id_19 ctx_7)))))" "(define-values" "(syntax-debug-info-string)" -"(lambda(s_188 ctx_8)" +"(lambda(s_189 ctx_8)" "(begin" -"(let-values(((info_3)(syntax-debug-info$1 s_188(expand-context-phase ctx_8) #t)))" +"(let-values(((info_3)(syntax-debug-info$1 s_189(expand-context-phase ctx_8) #t)))" "(if(not" "(let-values(((or-part_26)(pair?(hash-ref info_3 'bindings null))))" "(if or-part_26" @@ -16744,7 +16921,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_84)))" -"((letrec-values(((for-loop_103)" +"((letrec-values(((for-loop_104)" "(lambda(result_64 lst_85)" "(begin" " 'for-loop" @@ -16763,10 +16940,10 @@ static const char *startup_source = " null))))))" "(values result_65)))))" "(if(if(not((lambda x_28 result_1) fb-info_0))(not #f) #f)" -"(for-loop_103 result_1 rest_40)" +"(for-loop_104 result_1 rest_40)" " result_1)))" " result_64)))))" -" for-loop_103)" +" for-loop_104)" " #f" " lst_84))))))" " (let-values () \"\")" @@ -16786,17 +16963,17 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_86)))" -"((letrec-values(((for-loop_104)" -"(lambda(fold-var_67 lst_87)" +"((letrec-values(((for-loop_105)" +"(lambda(fold-var_69 lst_87)" "(begin" " 'for-loop" "(if(pair? lst_87)" "(let-values(((b_21)(unsafe-car lst_87))" "((rest_41)" "(unsafe-cdr lst_87)))" -"(let-values(((fold-var_68)" +"(let-values(((fold-var_70)" "(let-values(((fold-var_27)" -" fold-var_67))" +" fold-var_69))" "(let-values(((fold-var_28)" "(let-values()" "(cons" @@ -16808,10 +16985,10 @@ static const char *startup_source = "(values" " fold-var_28)))))" "(if(not #f)" -"(for-loop_104 fold-var_68 rest_41)" -" fold-var_68)))" -" fold-var_67)))))" -" for-loop_104)" +"(for-loop_105 fold-var_70 rest_41)" +" fold-var_70)))" +" fold-var_69)))))" +" for-loop_105)" " null" " lst_86)))))" "(let-values(((fallbacks_0)(hash-ref info_4 'fallbacks null)))" @@ -16824,8 +17001,8 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_14)))" -"((letrec-values(((for-loop_105)" -"(lambda(fold-var_69 lst_89 pos_12)" +"((letrec-values(((for-loop_106)" +"(lambda(fold-var_71 lst_89 pos_12)" "(begin" " 'for-loop" "(if(if(pair? lst_89) #t #f)" @@ -16835,26 +17012,26 @@ static const char *startup_source = "(unsafe-cdr lst_89))" "((layer_1) pos_12))" "(let-values(((fold-var_9)" -"(let-values(((fold-var_70)" -" fold-var_69))" -"(let-values(((fold-var_71)" +"(let-values(((fold-var_72)" +" fold-var_71))" +"(let-values(((fold-var_73)" "(let-values()" "(cons" "(let-values()" "(loop_80" " fallback_0" " layer_1))" -" fold-var_70))))" +" fold-var_72))))" "(values" -" fold-var_71)))))" +" fold-var_73)))))" "(if(not #f)" -"(for-loop_105" +"(for-loop_106" " fold-var_9" " rest_42" "(+ pos_12 1))" " fold-var_9)))" -" fold-var_69)))))" -" for-loop_105)" +" fold-var_71)))))" +" for-loop_106)" " null" " lst_88" " start_14))))))))))" @@ -16869,24 +17046,24 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_90)))" -"((letrec-values(((for-loop_106)" +"((letrec-values(((for-loop_107)" "(lambda(s_182 lst_91)" "(begin" " 'for-loop" "(if(pair? lst_91)" "(let-values(((l_48)(unsafe-car lst_91))" "((rest_43)(unsafe-cdr lst_91)))" -"(let-values(((s_88)" +"(let-values(((s_89)" "(let-values(((s_43) s_182))" -"(let-values(((s_189)" +"(let-values(((s_190)" "(let-values()" "(set-intersect" " s_43" "(list->set l_48)))))" -"(values s_189)))))" -"(if(not #f)(for-loop_106 s_88 rest_43) s_88)))" +"(values s_190)))))" +"(if(not #f)(for-loop_107 s_89 rest_43) s_89)))" " s_182)))))" -" for-loop_106)" +" for-loop_107)" "(list->set(car relevant-scope-sets_0))" " lst_90))))))" "(string-append" @@ -16903,30 +17080,30 @@ static const char *startup_source = " string-append" "(reverse$1" "(let-values(((lst_92)" -"(let-values(((temp1_1)(hash-ref info_5 'bindings null))" +"(let-values(((temp1_2)(hash-ref info_5 'bindings null))" "((temp2_2)" -"(lambda(a_38 b_64)" +"(lambda(a_38 b_67)" "(begin" " 'temp2" "(if(hash-ref a_38 'match? #f)" -"(not(hash-ref b_64 'match? #f))" +"(not(hash-ref b_67 'match? #f))" " #f)))))" -"(sort7.1 #f #f temp1_1 temp2_2))))" +"(sort7.1 #f #f temp1_2 temp2_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_92)))" -"((letrec-values(((for-loop_102)" -"(lambda(fold-var_63 lst_93)" +"((letrec-values(((for-loop_108)" +"(lambda(fold-var_74 lst_93)" "(begin" " 'for-loop" "(if(pair? lst_93)" "(let-values(((b_39)(unsafe-car lst_93))" "((rest_44)(unsafe-cdr lst_93)))" +"(let-values(((fold-var_75)" +"(let-values(((fold-var_76)" +" fold-var_74))" "(let-values(((fold-var_65)" -"(let-values(((fold-var_66)" -" fold-var_63))" -"(let-values(((fold-var_72)" "(let-values()" "(cons" "(let-values()" @@ -16959,13 +17136,13 @@ static const char *startup_source = " b_39" " 'context)" " common-scopes_0)))" -" fold-var_66))))" -"(values fold-var_72)))))" +" fold-var_76))))" +"(values fold-var_65)))))" "(if(not #f)" -"(for-loop_102 fold-var_65 rest_44)" -" fold-var_65)))" -" fold-var_63)))))" -" for-loop_102)" +"(for-loop_108 fold-var_75 rest_44)" +" fold-var_75)))" +" fold-var_74)))))" +" for-loop_108)" " null" " lst_92)))))" "(let-values(((fallbacks_1)(hash-ref info_5 'fallbacks null)))" @@ -16980,34 +17157,34 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_15)))" -"((letrec-values(((for-loop_107)" -"(lambda(fold-var_73 lst_95 pos_13)" +"((letrec-values(((for-loop_109)" +"(lambda(fold-var_66 lst_95 pos_13)" "(begin" " 'for-loop" "(if(if(pair? lst_95) #t #f)" "(let-values(((fallback_1)(unsafe-car lst_95))" "((rest_45)(unsafe-cdr lst_95))" "((layer_3) pos_13))" -"(let-values(((fold-var_74)" -"(let-values(((fold-var_75)" -" fold-var_73))" -"(let-values(((fold-var_76)" +"(let-values(((fold-var_77)" +"(let-values(((fold-var_78)" +" fold-var_66))" +"(let-values(((fold-var_79)" "(let-values()" "(cons" "(let-values()" "(loop_83" " fallback_1" " layer_3))" -" fold-var_75))))" -"(values fold-var_76)))))" +" fold-var_78))))" +"(values fold-var_79)))))" "(if(not #f)" -"(for-loop_107" -" fold-var_74" +"(for-loop_109" +" fold-var_77" " rest_45" "(+ pos_13 1))" -" fold-var_74)))" -" fold-var_73)))))" -" for-loop_107)" +" fold-var_77)))" +" fold-var_66)))))" +" for-loop_109)" " null" " lst_94" " start_15)))))))))))" @@ -17025,82 +17202,82 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_96)))" -"((letrec-values(((for-loop_108)" -"(lambda(fold-var_77 lst_97)" +"((letrec-values(((for-loop_110)" +"(lambda(fold-var_80 lst_97)" "(begin" " 'for-loop" "(if(pair? lst_97)" -"(let-values(((s_190)(unsafe-car lst_97))" +"(let-values(((s_191)(unsafe-car lst_97))" "((rest_46)(unsafe-cdr lst_97)))" -"(let-values(((fold-var_78)" -"(let-values(((fold-var_79) fold-var_77))" -"(if(set-member? common-scopes_0 s_190)" -"(let-values(((fold-var_5) fold-var_79))" +"(let-values(((fold-var_68)" +"(let-values(((fold-var_81) fold-var_80))" +"(if(set-member? common-scopes_0 s_191)" +"(let-values(((fold-var_5) fold-var_81))" "(let-values(((fold-var_6)" "(let-values()" "(cons" -"(let-values() s_190)" +"(let-values() s_191)" " fold-var_5))))" "(values fold-var_6)))" -" fold-var_79))))" -"(if(not #f)(for-loop_108 fold-var_78 rest_46) fold-var_78)))" -" fold-var_77)))))" -" for-loop_108)" +" fold-var_81))))" +"(if(not #f)(for-loop_110 fold-var_68 rest_46) fold-var_68)))" +" fold-var_80)))))" +" for-loop_110)" " null" " lst_96))))" "(set)))))))))))))" "(define-values" "(describe-context)" -"(lambda(scopes_19 common-scopes_1)" +"(lambda(scopes_18 common-scopes_1)" "(begin" "(let-values(((strs_0)" "((letrec-values(((loop_44)" -"(lambda(strs_1 scopes_20)" +"(lambda(strs_1 scopes_19)" "(begin" " 'loop" -"(if(null? scopes_20)" +"(if(null? scopes_19)" "(let-values()(reverse$1 strs_1))" "(let-values()" -" (let-values (((str_3) (format \" ~a\" (car scopes_20))))" +" (let-values (((str_3) (format \" ~a\" (car scopes_19))))" "(if(if(pair? strs_1)" "(<(+(string-length str_3)(string-length(car strs_1))) 72)" " #f)" "(loop_44" "(cons(string-append(car strs_1) str_3)(cdr strs_1))" -"(cdr scopes_20))" -"(loop_44(cons str_3 strs_1)(cdr scopes_20))))))))))" +"(cdr scopes_19))" +"(loop_44(cons str_3 strs_1)(cdr scopes_19))))))))))" " loop_44)" " null" "(if(set-empty? common-scopes_1)" -" scopes_19" +" scopes_18" "(append" "(reverse$1" -"(let-values(((lst_98) scopes_19))" +"(let-values(((lst_98) scopes_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_98)))" -"((letrec-values(((for-loop_109)" -"(lambda(fold-var_80 lst_99)" +"((letrec-values(((for-loop_111)" +"(lambda(fold-var_82 lst_99)" "(begin" " 'for-loop" "(if(pair? lst_99)" "(let-values(((s_24)(unsafe-car lst_99))" "((rest_47)(unsafe-cdr lst_99)))" -"(let-values(((fold-var_81)" -"(let-values(((fold-var_82) fold-var_80))" +"(let-values(((fold-var_83)" +"(let-values(((fold-var_84) fold-var_82))" "(if(not(set-member? common-scopes_1 s_24))" -"(let-values(((fold-var_83) fold-var_82))" -"(let-values(((fold-var_84)" +"(let-values(((fold-var_85) fold-var_84))" +"(let-values(((fold-var_86)" "(let-values()" "(cons" "(let-values() s_24)" -" fold-var_83))))" -"(values fold-var_84)))" -" fold-var_82))))" -"(if(not #f)(for-loop_109 fold-var_81 rest_47) fold-var_81)))" -" fold-var_80)))))" -" for-loop_109)" +" fold-var_85))))" +"(values fold-var_86)))" +" fold-var_84))))" +"(if(not #f)(for-loop_111 fold-var_83 rest_47) fold-var_83)))" +" fold-var_82)))))" +" for-loop_111)" " null" " lst_98))))" " (list \"[common scopes]\"))))))" @@ -17115,24 +17292,24 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_100)))" -"((letrec-values(((for-loop_110)" -"(lambda(fold-var_85 lst_101)" +"((letrec-values(((for-loop_112)" +"(lambda(fold-var_87 lst_101)" "(begin" " 'for-loop" "(if(pair? lst_101)" "(let-values(((str_4)(unsafe-car lst_101))((rest_48)(unsafe-cdr lst_101)))" -"(let-values(((fold-var_86)" -"(let-values(((fold-var_87) fold-var_85))" +"(let-values(((fold-var_88)" +"(let-values(((fold-var_89) fold-var_87))" "(let-values(((fold-var_14)" "(let-values()" "(cons" "(let-values()" " (string-append \"\\n \" str_4))" -" fold-var_87))))" +" fold-var_89))))" "(values fold-var_14)))))" -"(if(not #f)(for-loop_110 fold-var_86 rest_48) fold-var_86)))" -" fold-var_85)))))" -" for-loop_110)" +"(if(not #f)(for-loop_112 fold-var_88 rest_48) fold-var_88)))" +" fold-var_87)))))" +" for-loop_112)" " null" " lst_100)))))))))))" " (define-values (layer->string) (lambda (layer_4) (begin (if (zero? layer_4) \"\" (format \" at layer ~a\" layer_4)))))" @@ -17187,23 +17364,23 @@ static const char *startup_source = "(let-values(((ids_2) ids4_0))" "(let-values(((phase_44) phase5_0))" "(let-values(((s_3) s6_0))" -"(let-values(((ht_71)(if(eq? ht3_0 unsafe-undefined)(make-check-no-duplicate-table) ht3_0)))" +"(let-values(((ht_74)(if(eq? ht3_0 unsafe-undefined)(make-check-no-duplicate-table) ht3_0)))" " (let-values (((what_2) (if (eq? what1_0 unsafe-undefined) \"binding name\" what1_0)))" "(let-values()" "((letrec-values(((loop_6)" -"(lambda(v_138 ht_79)" +"(lambda(v_137 ht_84)" "(begin" " 'loop" -"(if(identifier? v_138)" +"(if(identifier? v_137)" "(let-values()" -"(let-values(((l_49)(hash-ref ht_79(syntax-e$1 v_138) null)))" +"(let-values(((l_49)(hash-ref ht_84(syntax-e$1 v_137) null)))" "(begin" "(let-values(((lst_102) l_49))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_102)))" -"((letrec-values(((for-loop_111)" +"((letrec-values(((for-loop_113)" "(lambda(lst_77)" "(begin" " 'for-loop" @@ -17219,7 +17396,7 @@ static const char *startup_source = "(let-values()" "(if(bound-identifier=?$1" " id_20" -" v_138" +" v_137" " phase_44)" "(let-values()" "(raise-syntax-error$1" @@ -17228,24 +17405,24 @@ static const char *startup_source = " \"duplicate \"" " what_2)" " s_3" -" v_138))" +" v_137))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_111 rest_49)" +"(for-loop_113 rest_49)" "(values))))" "(values))))))" -" for-loop_111)" +" for-loop_113)" " lst_102)))" "(void)" -"(hash-set ht_79(syntax-e$1 v_138)(cons v_138 l_49)))))" -"(if(pair? v_138)" -"(let-values()(loop_6(cdr v_138)(loop_6(car v_138) ht_79)))" -"(let-values() ht_79)))))))" +"(hash-set ht_84(syntax-e$1 v_137)(cons v_137 l_49)))))" +"(if(pair? v_137)" +"(let-values()(loop_6(cdr v_137)(loop_6(car v_137) ht_84)))" +"(let-values() ht_84)))))))" " loop_6)" " ids_2" -" ht_71))))))))))" +" ht_74))))))))))" "(define-values" "(remove-use-site-scopes)" "(lambda(s_0 ctx_7)" @@ -17260,24 +17437,24 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_103)))" -"((letrec-values(((for-loop_112)" -"(lambda(fold-var_88 lst_84)" +"((letrec-values(((for-loop_114)" +"(lambda(fold-var_90 lst_84)" "(begin" " 'for-loop" "(if(pair? lst_84)" "(let-values(((id_21)(unsafe-car lst_84))((rest_50)(unsafe-cdr lst_84)))" -"(let-values(((fold-var_89)" -"(let-values(((fold-var_90) fold-var_88))" +"(let-values(((fold-var_91)" +"(let-values(((fold-var_92) fold-var_90))" "(let-values(((fold-var_60)" "(let-values()" "(cons" "(let-values()" "(remove-scopes id_21(unbox use-sites_0)))" -" fold-var_90))))" +" fold-var_92))))" "(values fold-var_60)))))" -"(if(not #f)(for-loop_112 fold-var_89 rest_50) fold-var_89)))" -" fold-var_88)))))" -" for-loop_112)" +"(if(not #f)(for-loop_114 fold-var_91 rest_50) fold-var_91)))" +" fold-var_90)))))" +" for-loop_114)" " null" " lst_103)))))" " s_0)))))" @@ -17415,9 +17592,9 @@ static const char *startup_source = "(define-values(built-in-symbol?)(lambda(s_72)(begin(hash-ref built-in-symbols s_72 #f))))" "(define-values" "(make-built-in-symbol!)" -"(lambda(s_188)" +"(lambda(s_189)" "(begin" -" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_188))))" +" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_189))))" "(begin(register-built-in-symbol! built-in-s_0) built-in-s_0)))))" "(void" "(begin" @@ -17528,56 +17705,56 @@ static const char *startup_source = "(lambda(mpis_2)" "(begin" "(let-values(((unique-list_0)" -"(lambda(v_139)" +"(lambda(v_138)" "(begin" " 'unique-list" -"(if(pair? v_139)" +"(if(pair? v_138)" "(reverse$1" -"(let-values(((lst_104) v_139))" +"(let-values(((lst_104) v_138))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_104)))" -"((letrec-values(((for-loop_113)" +"((letrec-values(((for-loop_115)" "(lambda(fold-var_10 lst_80)" "(begin" " 'for-loop" "(if(pair? lst_80)" -"(let-values(((i_94)(unsafe-car lst_80))" +"(let-values(((i_96)(unsafe-car lst_80))" "((rest_51)(unsafe-cdr lst_80)))" -"(let-values(((fold-var_91)" -"(let-values(((fold-var_92) fold-var_10))" "(let-values(((fold-var_93)" +"(let-values(((fold-var_94) fold-var_10))" +"(let-values(((fold-var_95)" "(let-values()" "(cons" -"(let-values() i_94)" -" fold-var_92))))" -"(values fold-var_93)))))" +"(let-values() i_96)" +" fold-var_94))))" +"(values fold-var_95)))))" "(if(not #f)" -"(for-loop_113 fold-var_91 rest_51)" -" fold-var_91)))" +"(for-loop_115 fold-var_93 rest_51)" +" fold-var_93)))" " fold-var_10)))))" -" for-loop_113)" +" for-loop_115)" " null" " lst_104))))" -" v_139)))))" +" v_138)))))" "(let-values(((positions_1)(module-path-index-table-positions mpis_2)))" "(let-values(((gen-order_0)(make-hasheqv)))" "(let-values(((rev-positions_0)" -"(let-values(((ht_80) positions_1))" +"(let-values(((ht_85) positions_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_80)))" -"((letrec-values(((for-loop_114)" -"(lambda(table_117 i_95)" +"(let-values()(check-in-hash ht_85)))" +"((letrec-values(((for-loop_116)" +"(lambda(table_119 i_97)" "(begin" " 'for-loop" -"(if i_95" -"(let-values(((k_19 v_69)(hash-iterate-key+value ht_80 i_95)))" -"(let-values(((table_118)" -"(let-values(((table_112) table_117))" -"(let-values(((table_119)" +"(if i_97" +"(let-values(((k_19 v_69)(hash-iterate-key+value ht_85 i_97)))" +"(let-values(((table_120)" +"(let-values(((table_113) table_119))" +"(let-values(((table_121)" "(let-values()" "(let-values(((key_45 val_38)" "(let-values()" @@ -17585,17 +17762,17 @@ static const char *startup_source = " v_69" " k_19))))" "(hash-set" -" table_112" +" table_113" " key_45" " val_38)))))" -"(values table_119)))))" +"(values table_121)))))" "(if(not #f)" -"(for-loop_114 table_118(hash-iterate-next ht_80 i_95))" -" table_118)))" -" table_117)))))" -" for-loop_114)" +"(for-loop_116 table_120(hash-iterate-next ht_85 i_97))" +" table_120)))" +" table_119)))))" +" for-loop_116)" " '#hasheqv()" -"(hash-iterate-first ht_80))))))" +"(hash-iterate-first ht_85))))))" "(let-values((()" "(begin" "(let-values(((start_16) 0)((end_10)(hash-count rev-positions_0))((inc_4) 1))" @@ -17603,12 +17780,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_16 end_10 inc_4)))" -"((letrec-values(((for-loop_115)" +"((letrec-values(((for-loop_117)" "(lambda(pos_16)" "(begin" " 'for-loop" "(if(< pos_16 end_10)" -"(let-values(((i_96) pos_16))" +"(let-values(((i_98) pos_16))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17618,8 +17795,8 @@ static const char *startup_source = "(let-values(((mpi_24)" "(hash-ref" " rev-positions_0" -" i_96)))" -"((letrec-values(((loop_84)" +" i_98)))" +"((letrec-values(((loop_85)" "(lambda(mpi_25)" "(begin" " 'loop" @@ -17636,7 +17813,7 @@ static const char *startup_source = "(begin" "(if base_16" "(let-values()" -"(loop_84" +"(loop_85" " base_16))" "(void))" "(hash-set!" @@ -17644,31 +17821,31 @@ static const char *startup_source = " mpi_25" "(hash-count" " gen-order_0))))))))))" -" loop_84)" +" loop_85)" " mpi_24)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_115(+ pos_16 inc_4))(values))))" +"(if(not #f)(for-loop_117(+ pos_16 inc_4))(values))))" "(values))))))" -" for-loop_115)" +" for-loop_117)" " start_16)))" "(values))))" "(let-values()" "(let-values(((rev-gen-order_0)" -"(let-values(((ht_81) gen-order_0))" +"(let-values(((ht_86) gen-order_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_81)))" -"((letrec-values(((for-loop_116)" -"(lambda(table_120 i_97)" +"(let-values()(check-in-hash ht_86)))" +"((letrec-values(((for-loop_118)" +"(lambda(table_122 i_99)" "(begin" " 'for-loop" -"(if i_97" +"(if i_99" "(let-values(((k_20 v_38)" -"(hash-iterate-key+value ht_81 i_97)))" +"(hash-iterate-key+value ht_86 i_99)))" "(let-values(((table_15)" -"(let-values(((table_121) table_120))" +"(let-values(((table_123) table_122))" "(let-values(((table_9)" "(let-values()" "(let-values(((key_46" @@ -17678,17 +17855,17 @@ static const char *startup_source = " v_38" " k_20))))" "(hash-set" -" table_121" +" table_123" " key_46" " val_39)))))" "(values table_9)))))" "(if(not #f)" -"(for-loop_116 table_15(hash-iterate-next ht_81 i_97))" +"(for-loop_118 table_15(hash-iterate-next ht_86 i_99))" " table_15)))" -" table_120)))))" -" for-loop_116)" +" table_122)))))" +" for-loop_118)" " '#hasheqv()" -"(hash-iterate-first ht_81))))))" +"(hash-iterate-first ht_86))))))" "(let-values(((gens_0)" "(let-values(((len_12)(hash-count gen-order_0)))" "(begin" @@ -17696,7 +17873,7 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_12)))" -"(let-values(((v_140)(make-vector len_12 0)))" +"(let-values(((v_139)(make-vector len_12 0)))" "(begin" "(if(zero? len_12)" "(void)" @@ -17709,24 +17886,24 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_17 end_11 inc_5)))" "((letrec-values(((for-loop_28)" -"(lambda(i_98 pos_17)" +"(lambda(i_100 pos_17)" "(begin" " 'for-loop" "(if(< pos_17 end_11)" -"(let-values(((i_90) pos_17))" -"(let-values(((i_99)" -"(let-values(((i_100) i_98))" +"(let-values(((i_91) pos_17))" +"(let-values(((i_101)" +"(let-values(((i_102) i_100))" "(let-values(((i_29)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_140" -" i_100" +" v_139" +" i_102" "(let-values()" "(let-values(((mpi_26)" "(hash-ref" " rev-gen-order_0" -" i_90)))" +" i_91)))" "(let-values(((path_6" " base_17)" "(1/module-path-index-split" @@ -17762,21 +17939,21 @@ static const char *startup_source = "(void)))))))))" "(unsafe-fx+" " 1" -" i_100)))))" +" i_102)))))" "(values i_29)))))" "(if(if(not" "((lambda x_43" -"(unsafe-fx= i_99 len_12))" -" i_90))" +"(unsafe-fx= i_101 len_12))" +" i_91))" "(not #f)" " #f)" -"(for-loop_28 i_99(+ pos_17 inc_5))" -" i_99)))" -" i_98)))))" +"(for-loop_28 i_101(+ pos_17 inc_5))" +" i_101)))" +" i_100)))))" " for-loop_28)" " 0" " start_17)))))" -" v_140))))))" +" v_139))))))" "(list" " 'deserialize-module-path-indexes" "(list 'quote gens_0)" @@ -17789,15 +17966,15 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_18 end_12 inc_6)))" "((letrec-values(((for-loop_53)" -"(lambda(vec_31 i_101 pos_18)" +"(lambda(vec_31 i_103 pos_18)" "(begin" " 'for-loop" "(if(< pos_18 end_12)" -"(let-values(((i_102) pos_18))" -"(let-values(((vec_32 i_103)" +"(let-values(((i_104) pos_18))" +"(let-values(((vec_32 i_105)" "(let-values(((vec_33) vec_31)" -"((i_39) i_101))" -"(let-values(((vec_34 i_104)" +"((i_39) i_103))" +"(let-values(((vec_34 i_106)" "(let-values()" "(let-values(((new-vec_2)" "(if(eq?" @@ -17816,17 +17993,17 @@ static const char *startup_source = " gen-order_0" "(hash-ref" " rev-positions_0" -" i_102))))" +" i_104))))" "(values" " new-vec_2" "(unsafe-fx+" " i_39" " 1)))))))" -"(values vec_34 i_104)))))" +"(values vec_34 i_106)))))" "(if(not #f)" -"(for-loop_53 vec_32 i_103(+ pos_18 inc_6))" -"(values vec_32 i_103))))" -"(values vec_31 i_101))))))" +"(for-loop_53 vec_32 i_105(+ pos_18 inc_6))" +"(values vec_32 i_105))))" +"(values vec_31 i_103))))))" " for-loop_53)" "(make-vector 16)" " 0" @@ -17847,12 +18024,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_19)))" -"((letrec-values(((for-loop_117)" +"((letrec-values(((for-loop_119)" "(lambda(pos_19 pos_20)" "(begin" " 'for-loop" "(if(if(unsafe-fx< pos_19 len_13) #t #f)" -"(let-values(((d_21)(unsafe-vector-ref vec_35 pos_19))((i_105) pos_20))" +"(let-values(((d_21)(unsafe-vector-ref vec_35 pos_19))((i_107) pos_20))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17861,7 +18038,7 @@ static const char *startup_source = "(let-values()" "(vector-set!" " gen_0" -" i_105" +" i_107" "(if(eq? d_21 'top)" "(let-values()" "(deserialize-module-path-index))" @@ -17879,9 +18056,9 @@ static const char *startup_source = " #f)))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_117(unsafe-fx+ 1 pos_19)(+ pos_20 1))(values))))" +"(if(not #f)(for-loop_119(unsafe-fx+ 1 pos_19)(+ pos_20 1))(values))))" "(values))))))" -" for-loop_117)" +" for-loop_119)" " 0" " start_19)))" "(void)" @@ -17890,7 +18067,7 @@ static const char *startup_source = "(if(exact-nonnegative-integer? len_14)" "(void)" " (let-values () (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_14)))" -"(let-values(((v_141)(make-vector len_14 0)))" +"(let-values(((v_140)(make-vector len_14 0)))" "(begin" "(if(zero? len_14)" "(void)" @@ -17900,34 +18077,34 @@ static const char *startup_source = "(begin(check-vector vec_11)(values vec_11(unsafe-vector-length vec_11))))))" "(begin" " #f" -"((letrec-values(((for-loop_118)" -"(lambda(i_106 pos_21)" +"((letrec-values(((for-loop_120)" +"(lambda(i_108 pos_21)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_21 len_4)" "(let-values(((p_33)(unsafe-vector-ref vec_36 pos_21)))" "(let-values(((i_48)" -"(let-values(((i_107) i_106))" -"(let-values(((i_108)" +"(let-values(((i_109) i_108))" +"(let-values(((i_110)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_141" -" i_107" +" v_140" +" i_109" "(let-values()" "(vector*-ref gen_0 p_33)))" -"(unsafe-fx+ 1 i_107)))))" -"(values i_108)))))" +"(unsafe-fx+ 1 i_109)))))" +"(values i_110)))))" "(if(if(not((lambda x_44(unsafe-fx= i_48 len_14)) p_33))" "(not #f)" " #f)" -"(for-loop_118 i_48(unsafe-fx+ 1 pos_21))" +"(for-loop_120 i_48(unsafe-fx+ 1 pos_21))" " i_48)))" -" i_106)))))" -" for-loop_118)" +" i_108)))))" +" for-loop_120)" " 0" " 0)))))" -" v_141)))))))))" +" v_140)))))))))" "(define-values" "(mpis-as-vector)" "(lambda(mpis_3)" @@ -17935,17 +18112,17 @@ static const char *startup_source = "(let-values(((positions_2)(module-path-index-table-positions mpis_3)))" "(let-values(((vec_37)(make-vector(hash-count positions_2) #f)))" "(begin" -"(let-values(((ht_82) positions_2))" +"(let-values(((ht_87) positions_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_82)))" -"((letrec-values(((for-loop_119)" +"(let-values()(check-in-hash ht_87)))" +"((letrec-values(((for-loop_121)" "(lambda(i_24)" "(begin" " 'for-loop" "(if i_24" -"(let-values(((mpi_27 pos_22)(hash-iterate-key+value ht_82 i_24)))" +"(let-values(((mpi_27 pos_22)(hash-iterate-key+value ht_87 i_24)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17955,10 +18132,10 @@ static const char *startup_source = "(vector-set! vec_37 pos_22 mpi_27))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_119(hash-iterate-next ht_82 i_24))(values))))" +"(if(not #f)(for-loop_121(hash-iterate-next ht_87 i_24))(values))))" "(values))))))" -" for-loop_119)" -"(hash-iterate-first ht_82))))" +" for-loop_121)" +"(hash-iterate-first ht_87))))" "(void)" " vec_37))))))" "(define-values" @@ -17969,15 +18146,15 @@ static const char *startup_source = "(let-values(((lst_105) mus_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_105)))" -"((letrec-values(((for-loop_120)" -"(lambda(fold-var_94 lst_11)" +"((letrec-values(((for-loop_122)" +"(lambda(fold-var_96 lst_11)" "(begin" " 'for-loop" "(if(pair? lst_11)" "(let-values(((mu_1)(unsafe-car lst_11))((rest_52)(unsafe-cdr lst_11)))" -"(let-values(((fold-var_95)" -"(let-values(((fold-var_96) fold-var_94))" "(let-values(((fold-var_97)" +"(let-values(((fold-var_98) fold-var_96))" +"(let-values(((fold-var_99)" "(let-values()" "(cons" "(let-values()" @@ -17987,31 +18164,31 @@ static const char *startup_source = " mpis_4" "(module-use-module mu_1))" "(module-use-phase mu_1)))" -" fold-var_96))))" -"(values fold-var_97)))))" -"(if(not #f)(for-loop_120 fold-var_95 rest_52) fold-var_95)))" -" fold-var_94)))))" -" for-loop_120)" +" fold-var_98))))" +"(values fold-var_99)))))" +"(if(not #f)(for-loop_122 fold-var_97 rest_52) fold-var_97)))" +" fold-var_96)))))" +" for-loop_122)" " null" " lst_105)))))))" "(define-values" "(interned-literal?)" -"(lambda(v_142)" +"(lambda(v_141)" "(begin" -"(let-values(((or-part_167)(null? v_142)))" +"(let-values(((or-part_167)(null? v_141)))" "(if or-part_167" " or-part_167" -"(let-values(((or-part_168)(boolean? v_142)))" +"(let-values(((or-part_168)(boolean? v_141)))" "(if or-part_168" " or-part_168" "(let-values(((or-part_139)" -"(if(fixnum? v_142)(if(< v_142(sub1(expt 2 30)))(> v_142(-(expt 2 30))) #f) #f)))" +"(if(fixnum? v_141)(if(< v_141(sub1(expt 2 30)))(> v_141(-(expt 2 30))) #f) #f)))" "(if or-part_139" " or-part_139" -"(let-values(((or-part_169)(symbol? v_142)))" +"(let-values(((or-part_169)(symbol? v_141)))" "(if or-part_169" " or-part_169" -"(let-values(((or-part_46)(char? v_142)))(if or-part_46 or-part_46(keyword? v_142))))))))))))))" +"(let-values(((or-part_46)(char? v_141)))(if or-part_46 or-part_46(keyword? v_141))))))))))))))" "(define-values" "(serialize-phase-to-link-module-uses)" "(lambda(phase-to-link-module-uses_0 mpis_5)" @@ -18027,14 +18204,14 @@ static const char *startup_source = "(let-values(((lst_106) phases-in-order_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_106)))" -"((letrec-values(((for-loop_121)" -"(lambda(fold-var_98 lst_107)" +"((letrec-values(((for-loop_123)" +"(lambda(fold-var_100 lst_107)" "(begin" " 'for-loop" "(if(pair? lst_107)" "(let-values(((phase_9)(unsafe-car lst_107))((rest_53)(unsafe-cdr lst_107)))" -"(let-values(((fold-var_99)" -"(let-values(((fold-var_36) fold-var_98))" +"(let-values(((fold-var_101)" +"(let-values(((fold-var_36) fold-var_100))" "(let-values(((fold-var_37)" "(let-values()" "(cons" @@ -18050,9 +18227,9 @@ static const char *startup_source = " mpis_5))))" " fold-var_36))))" "(values fold-var_37)))))" -"(if(not #f)(for-loop_121 fold-var_99 rest_53) fold-var_99)))" -" fold-var_98)))))" -" for-loop_121)" +"(if(not #f)(for-loop_123 fold-var_101 rest_53) fold-var_101)))" +" fold-var_100)))))" +" for-loop_123)" " null" " lst_106))))))))))" "(define-values" @@ -18060,12 +18237,12 @@ static const char *startup_source = "(lambda(syntax-support?2_0 v4_0 mpis5_0)" "(begin" " 'generate-deserialize6" -"(let-values(((v_143) v4_0))" +"(let-values(((v_142) v4_0))" "(let-values(((mpis_6) mpis5_0))" "(let-values(((syntax-support?_0) syntax-support?2_0))" "(let-values()" -"(let-values(((reachable-scopes_4)(find-reachable-scopes v_143)))" -"(let-values(((state_25)(make-serialize-state reachable-scopes_4)))" +"(let-values(((reachable-scopes_4)(find-reachable-scopes v_142)))" +"(let-values(((state_26)(make-serialize-state reachable-scopes_4)))" "(let-values(((mutables_0)(make-hasheq)))" "(let-values(((objs_0)(make-hasheq)))" "(let-values(((shares_0)(make-hasheq)))" @@ -18073,7 +18250,7 @@ static const char *startup_source = "(let-values(((frontier_0) null))" "(letrec-values(((add-frontier!_0)" "(case-lambda" -"((v_144)(begin 'add-frontier!(set! frontier_0(cons v_144 frontier_0))))" +"((v_143)(begin 'add-frontier!(set! frontier_0(cons v_143 frontier_0))))" "((kind_3 v_100)(add-frontier!_0 v_100)))))" "(let-values((()" "(begin" @@ -18124,7 +18301,7 @@ static const char *startup_source = " v_104)" " v_104" " add-frontier!_0" -" state_25)))" +" state_26)))" "(if(serialize?" " v_104)" "(let-values()" @@ -18139,7 +18316,7 @@ static const char *startup_source = " sub-v_1)" "(loop_11" " sub-v_1)))" -" state_25))" +" state_26))" "(if(pair?" " v_104)" "(let-values()" @@ -18175,7 +18352,7 @@ static const char *startup_source = " vec_39))))))" "(begin" " #f" -"((letrec-values(((for-loop_93)" +"((letrec-values(((for-loop_94)" "(lambda(pos_23)" "(begin" " 'for-loop" @@ -18198,13 +18375,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_93" +"(for-loop_94" "(unsafe-fx+" " 1" " pos_23))" "(values))))" "(values))))))" -" for-loop_93)" +" for-loop_94)" " 0)))" "(void))" "(begin" @@ -18227,7 +18404,7 @@ static const char *startup_source = " vec_41))))))" "(begin" " #f" -"((letrec-values(((for-loop_122)" +"((letrec-values(((for-loop_124)" "(lambda(pos_24)" "(begin" " 'for-loop" @@ -18250,13 +18427,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_122" +"(for-loop_124" "(unsafe-fx+" " 1" " pos_24))" "(values))))" "(values))))))" -" for-loop_122)" +" for-loop_124)" " 0)))" "(void)))))" "(if(box?" @@ -18292,7 +18469,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_108)))" -"((letrec-values(((for-loop_123)" +"((letrec-values(((for-loop_125)" "(lambda(lst_109)" "(begin" " 'for-loop" @@ -18321,11 +18498,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_123" +"(for-loop_125" " rest_54)" "(values))))" "(values))))))" -" for-loop_123)" +" for-loop_125)" " lst_108)))" "(void))" "(begin" @@ -18345,7 +18522,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_110)))" -"((letrec-values(((for-loop_124)" +"((letrec-values(((for-loop_126)" "(lambda(lst_111)" "(begin" " 'for-loop" @@ -18374,11 +18551,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_124" +"(for-loop_126" " rest_55)" "(values))))" "(values))))))" -" for-loop_124)" +" for-loop_126)" " lst_110)))" "(void)))))" "(if(prefab-struct-key" @@ -18405,7 +18582,7 @@ static const char *startup_source = " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_125)" +"((letrec-values(((for-loop_127)" "(lambda(idx_1)" "(begin" " 'for-loop" @@ -18428,13 +18605,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_125" +"(for-loop_127" "(unsafe-fx+" " idx_1" " 1))" "(values))))" "(values))))))" -" for-loop_125)" +" for-loop_127)" " start*_1)))" "(void)))" "(if(srcloc?" @@ -18461,7 +18638,7 @@ static const char *startup_source = " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_126)" +"((letrec-values(((for-loop_128)" "(lambda(idx_2)" "(begin" " 'for-loop" @@ -18484,13 +18661,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_126" +"(for-loop_128" "(unsafe-fx+" " idx_2" " 1))" "(values))))" "(values))))))" -" for-loop_126)" +" for-loop_128)" " start*_2)))" "(void)))" "(let-values()" @@ -18517,13 +18694,13 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_112)))" -"((letrec-values(((for-loop_127)" +"((letrec-values(((for-loop_129)" "(lambda(lst_113)" "(begin" " 'for-loop" "(if(pair?" " lst_113)" -"(let-values(((v_145)" +"(let-values(((v_144)" "(unsafe-car" " lst_113))" "((rest_56)" @@ -18536,64 +18713,64 @@ static const char *startup_source = "(begin" "(let-values()" "(frontier-loop_0" -" v_145))" +" v_144))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_127" +"(for-loop_129" " rest_56)" "(values))))" "(values))))))" -" for-loop_127)" +" for-loop_129)" " lst_112)))" "(void))))))))))" " frontier-loop_0)" -" v_143)" +" v_142)" "(values))))" "(let-values(((num-mutables_0)(hash-count mutables_0)))" "(let-values(((share-step-positions_0)" "(let-values(((share-steps_0)" "(reverse$1" -"(let-values(((ht_83) shares_0))" +"(let-values(((ht_88) shares_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_83)))" -"((letrec-values(((for-loop_128)" -"(lambda(fold-var_100 i_109)" +"(let-values()(check-in-hash-keys ht_88)))" +"((letrec-values(((for-loop_130)" +"(lambda(fold-var_102 i_111)" "(begin" " 'for-loop" -"(if i_109" +"(if i_111" "(let-values(((obj_0)" "(hash-iterate-key" -" ht_83" -" i_109)))" -"(let-values(((fold-var_101)" -"(let-values(((fold-var_102)" -" fold-var_100))" +" ht_88" +" i_111)))" "(let-values(((fold-var_103)" +"(let-values(((fold-var_104)" +" fold-var_102))" +"(let-values(((fold-var_105)" "(let-values()" "(cons" "(let-values()" "(hash-ref" " objs_0" " obj_0))" -" fold-var_102))))" +" fold-var_104))))" "(values" -" fold-var_103)))))" +" fold-var_105)))))" "(if(not #f)" -"(for-loop_128" -" fold-var_101" +"(for-loop_130" +" fold-var_103" "(hash-iterate-next" -" ht_83" -" i_109))" -" fold-var_101)))" -" fold-var_100)))))" -" for-loop_128)" +" ht_88" +" i_111))" +" fold-var_103)))" +" fold-var_102)))))" +" for-loop_130)" " null" -"(hash-iterate-first ht_83)))))))" +"(hash-iterate-first ht_88)))))))" "(let-values(((lst_114)" "(let-values(((share-steps12_0) share-steps_0)" "((<13_0) <))" @@ -18606,8 +18783,8 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_20)))" -"((letrec-values(((for-loop_129)" -"(lambda(table_122 lst_115 pos_25)" +"((letrec-values(((for-loop_131)" +"(lambda(table_124 lst_115 pos_25)" "(begin" " 'for-loop" "(if(if(pair? lst_115) #t #f)" @@ -18616,10 +18793,10 @@ static const char *startup_source = "((rest_57)" "(unsafe-cdr lst_115))" "((pos_26) pos_25))" -"(let-values(((table_123)" -"(let-values(((table_124)" -" table_122))" -"(let-values(((table_38)" +"(let-values(((table_125)" +"(let-values(((table_35)" +" table_124))" +"(let-values(((table_36)" "(let-values()" "(let-values(((key_47" " val_40)" @@ -18628,18 +18805,18 @@ static const char *startup_source = " step_3" " pos_26))))" "(hash-set" -" table_124" +" table_35" " key_47" " val_40)))))" -"(values table_38)))))" +"(values table_36)))))" "(if(not #f)" -"(for-loop_129" -" table_123" +"(for-loop_131" +" table_125" " rest_57" "(+ pos_25 1))" -" table_123)))" -" table_122)))))" -" for-loop_129)" +" table_125)))" +" table_124)))))" +" for-loop_131)" " '#hasheqv()" " lst_114" " start_20))))))" @@ -18651,12 +18828,12 @@ static const char *startup_source = "(lambda(pos_27)" "(begin" " 'quoted?" -"(let-values(((v_146)" +"(let-values(((v_145)" "(list-ref" " stream_0" "(- stream-size_0(add1 pos_27)))))" -"(let-values(((or-part_172)(not(keyword? v_146))))" -"(if or-part_172 or-part_172(eq? '#:quote v_146))))))))" +"(let-values(((or-part_172)(not(keyword? v_145))))" +"(if or-part_172 or-part_172(eq? '#:quote v_145))))))))" "(let-values(((ser-reset!_0)" "(lambda(pos_28)" "(begin" @@ -18675,20 +18852,20 @@ static const char *startup_source = "(set! stream-size_0 0))))))" "(letrec-values(((ser-push!_16)" "(case-lambda" -"((v_147)" +"((v_146)" "(begin" " 'ser-push!" -"(if(hash-ref shares_0 v_147 #f)" +"(if(hash-ref shares_0 v_146 #f)" "(let-values()" "(let-values(((n_22)" "(hash-ref" " share-step-positions_0" -"(hash-ref objs_0 v_147))))" +"(hash-ref objs_0 v_146))))" "(begin" "(ser-push!_16 'tag '#:ref)" "(ser-push!_16 'exact n_22))))" "(let-values(((c1_25)" -"(hash-ref mutables_0 v_147 #f)))" +"(hash-ref mutables_0 v_146 #f)))" "(if c1_25" "((lambda(n_23)" "(begin" @@ -18696,49 +18873,49 @@ static const char *startup_source = "(ser-push!_16 'exact n_23)))" " c1_25)" "(let-values()" -"(ser-push-encoded!_0 v_147)))))))" -"((kind_5 v_148)" +"(ser-push-encoded!_0 v_146)))))))" +"((kind_5 v_147)" "(let-values(((tmp_18) kind_5))" "(if(equal? tmp_18 'exact)" "(let-values()" "(begin" -"(set! stream_0(cons v_148 stream_0))" +"(set! stream_0(cons v_147 stream_0))" "(set! stream-size_0(add1 stream-size_0))))" "(if(equal? tmp_18 'tag)" -"(let-values()(ser-push!_16 'exact v_148))" +"(let-values()(ser-push!_16 'exact v_147))" "(if(equal? tmp_18 'reference)" "(let-values()" -"(if(hash-ref shares_0 v_148 #f)" +"(if(hash-ref shares_0 v_147 #f)" "(let-values()" "(let-values(((n_24)" "(hash-ref" " share-step-positions_0" "(hash-ref" " objs_0" -" v_148))))" +" v_147))))" "(ser-push!_16 'exact n_24)))" "(let-values(((c2_1)" "(hash-ref" " mutables_0" -" v_148" +" v_147" " #f)))" "(if c2_1" "((lambda(n_25)" "(ser-push!_16 'exact n_25))" " c2_1)" "(let-values()" -"(ser-push!_16 v_148))))))" -"(let-values()(ser-push!_16 v_148)))))))))" +"(ser-push!_16 v_147))))))" +"(let-values()(ser-push!_16 v_147)))))))))" "((ser-push-encoded!_0)" -"(lambda(v_149)" +"(lambda(v_148)" "(begin" " 'ser-push-encoded!" -"(if(keyword? v_149)" +"(if(keyword? v_148)" "(let-values()" "(begin" "(ser-push!_16 'tag '#:quote)" -"(ser-push!_16 'exact v_149)))" -"(if(1/module-path-index? v_149)" +"(ser-push!_16 'exact v_148)))" +"(if(1/module-path-index? v_148)" "(let-values()" "(begin" "(ser-push!_16 'tag '#:mpi)" @@ -18746,16 +18923,16 @@ static const char *startup_source = " 'exact" "(add-module-path-index!/pos" " mpis_6" -" v_149))))" -"(if(serialize? v_149)" +" v_148))))" +"(if(serialize? v_148)" "(let-values()" -"((serialize-ref v_149)" -" v_149" +"((serialize-ref v_148)" +" v_148" " ser-push!_16" -" state_25))" -"(if(if(list? v_149)" -"(if(pair? v_149)" -"(pair?(cdr v_149))" +" state_26))" +"(if(if(list? v_148)" +"(if(pair? v_148)" +"(pair?(cdr v_148))" " #f)" " #f)" "(let-values()" @@ -18771,11 +18948,11 @@ static const char *startup_source = "(begin" "(ser-push!_16" " 'exact" -"(length v_149))" +"(length v_148))" "(values))))" "(let-values(((all-quoted?_0)" "(let-values(((lst_116)" -" v_149))" +" v_148))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -18783,14 +18960,14 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_116)))" -"((letrec-values(((for-loop_130)" +"((letrec-values(((for-loop_132)" "(lambda(all-quoted?_1" " lst_56)" "(begin" " 'for-loop" "(if(pair?" " lst_56)" -"(let-values(((i_110)" +"(let-values(((i_112)" "(unsafe-car" " lst_56))" "((rest_58)" @@ -18805,7 +18982,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_16" -" i_110)" +" i_112)" "(if all-quoted?_3" "(quoted?_0" " i-pos_0)" @@ -18814,12 +18991,12 @@ static const char *startup_source = " all-quoted?_4)))))" "(if(not" " #f)" -"(for-loop_130" +"(for-loop_132" " all-quoted?_2" " rest_58)" " all-quoted?_2)))" " all-quoted?_1)))))" -" for-loop_130)" +" for-loop_132)" " #t" " lst_116)))))" "(if all-quoted?_0" @@ -18829,9 +19006,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_149)))" +" v_148)))" "(void)))))))" -"(if(pair? v_149)" +"(if(pair? v_148)" "(let-values()" "(let-values(((start-pos_1)" "(next-push-position_0)))" @@ -18846,12 +19023,12 @@ static const char *startup_source = "(let-values((()" "(begin" "(ser-push!_16" -"(car v_149))" +"(car v_148))" "(values))))" "(let-values(((d-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_16(cdr v_149))" +"(ser-push!_16(cdr v_148))" "(if(if(quoted?_0 a-pos_0)" "(quoted?_0 d-pos_0)" " #f)" @@ -18862,9 +19039,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_149)))" +" v_148)))" "(void)))))))))" -"(if(box? v_149)" +"(if(box? v_148)" "(let-values()" "(let-values(((start-pos_2)" "(next-push-position_0)))" @@ -18877,7 +19054,7 @@ static const char *startup_source = "(let-values(((v-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_16(unbox v_149))" +"(ser-push!_16(unbox v_148))" "(if(quoted?_0 v-pos_0)" "(let-values()" "(begin" @@ -18886,9 +19063,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_149)))" +" v_148)))" "(void)))))))" -"(if(vector? v_149)" +"(if(vector? v_148)" "(let-values()" "(let-values(((start-pos_3)" "(next-push-position_0)))" @@ -18903,13 +19080,13 @@ static const char *startup_source = "(ser-push!_16" " 'exact" "(vector-length" -" v_149))" +" v_148))" "(values))))" "(let-values(((all-quoted?_5)" "(let-values(((vec_42" " len_17)" "(let-values(((vec_43)" -" v_149))" +" v_148))" "(begin" "(check-vector" " vec_43)" @@ -18919,7 +19096,7 @@ static const char *startup_source = " vec_43))))))" "(begin" " #f" -"((letrec-values(((for-loop_131)" +"((letrec-values(((for-loop_38)" "(lambda(all-quoted?_6" " pos_29)" "(begin" @@ -18927,7 +19104,7 @@ static const char *startup_source = "(if(unsafe-fx<" " pos_29" " len_17)" -"(let-values(((i_111)" +"(let-values(((i_113)" "(unsafe-vector-ref" " vec_42" " pos_29)))" @@ -18940,7 +19117,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_16" -" i_111)" +" i_113)" "(if all-quoted?_8" "(quoted?_0" " i-pos_1)" @@ -18949,14 +19126,14 @@ static const char *startup_source = " all-quoted?_9)))))" "(if(not" " #f)" -"(for-loop_131" +"(for-loop_38" " all-quoted?_7" "(unsafe-fx+" " 1" " pos_29))" " all-quoted?_7)))" " all-quoted?_6)))))" -" for-loop_131)" +" for-loop_38)" " #t" " 0)))))" "(if all-quoted?_5" @@ -18967,32 +19144,32 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_149)))" +" v_148)))" "(void)))))))" -"(if(hash? v_149)" +"(if(hash? v_148)" "(let-values()" "(let-values(((start-pos_4)" "(next-push-position_0)))" "(let-values(((as-set?_0)" -"(let-values(((ht_84)" -" v_149))" +"(let-values(((ht_89)" +" v_148))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-in-hash-values" -" ht_84)))" -"((letrec-values(((for-loop_132)" +" ht_89)))" +"((letrec-values(((for-loop_133)" "(lambda(result_66" -" i_112)" +" i_114)" "(begin" " 'for-loop" -"(if i_112" +"(if i_114" "(let-values(((val_41)" "(hash-iterate-value" -" ht_84" -" i_112)))" +" ht_89" +" i_114)))" "(let-values(((result_67)" "(let-values()" "(let-values(((result_68)" @@ -19011,38 +19188,38 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_132" +"(for-loop_133" " result_67" "(hash-iterate-next" -" ht_84" -" i_112))" +" ht_89" +" i_114))" " result_67)))" " result_66)))))" -" for-loop_132)" +" for-loop_133)" " #t" "(hash-iterate-first" -" ht_84))))))" +" ht_89))))))" "(let-values((()" "(begin" "(ser-push!_16" " 'tag" "(if as-set?_0" "(if(hash-eq?" -" v_149)" +" v_148)" "(let-values()" " '#:seteq)" "(if(hash-eqv?" -" v_149)" +" v_148)" "(let-values()" " '#:seteqv)" "(let-values()" " '#:set)))" "(if(hash-eq?" -" v_149)" +" v_148)" "(let-values()" " '#:hasheq)" "(if(hash-eqv?" -" v_149)" +" v_148)" "(let-values()" " '#:hasheqv)" "(let-values()" @@ -19053,11 +19230,11 @@ static const char *startup_source = "(ser-push!_16" " 'exact" "(hash-count" -" v_149))" +" v_148))" "(values))))" "(let-values(((ks_0)" "(sorted-hash-keys" -" v_149)))" +" v_148)))" "(let-values(((all-quoted?_10)" "(let-values(((lst_117)" " ks_0))" @@ -19068,7 +19245,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_117)))" -"((letrec-values(((for-loop_133)" +"((letrec-values(((for-loop_134)" "(lambda(all-quoted?_11" " lst_118)" "(begin" @@ -19101,7 +19278,7 @@ static const char *startup_source = "(let-values()" "(ser-push!_16" "(hash-ref" -" v_149" +" v_148" " k_23))))" "(if all-quoted?_13" "(if(quoted?_0" @@ -19118,12 +19295,12 @@ static const char *startup_source = " all-quoted?_14)))))" "(if(not" " #f)" -"(for-loop_133" +"(for-loop_134" " all-quoted?_12" " rest_59)" " all-quoted?_12)))" " all-quoted?_11)))))" -" for-loop_133)" +" for-loop_134)" " #t" " lst_117)))))" "(if all-quoted?_10" @@ -19134,16 +19311,16 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_149)))" +" v_148)))" "(void)))))))))" "(let-values(((c3_0)" "(prefab-struct-key" -" v_149)))" +" v_148)))" "(if c3_0" "((lambda(k_24)" "(let-values(((vec_44)" "(struct->vector" -" v_149)))" +" v_148)))" "(let-values(((start-pos_5)" "(next-push-position_0)))" "(let-values((()" @@ -19186,7 +19363,7 @@ static const char *startup_source = " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_134)" +"((letrec-values(((for-loop_42)" "(lambda(all-quoted?_16" " idx_3)" "(begin" @@ -19194,7 +19371,7 @@ static const char *startup_source = "(if(unsafe-fx<" " idx_3" " stop*_4)" -"(let-values(((i_113)" +"(let-values(((i_115)" "(unsafe-vector-ref" " v*_4" " idx_3)))" @@ -19207,7 +19384,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_16" -" i_113)" +" i_115)" "(if all-quoted?_18" "(quoted?_0" " i-pos_2)" @@ -19216,14 +19393,14 @@ static const char *startup_source = " all-quoted?_19)))))" "(if(not" " #f)" -"(for-loop_134" +"(for-loop_42" " all-quoted?_17" "(unsafe-fx+" " idx_3" " 1))" " all-quoted?_17)))" " all-quoted?_16)))))" -" for-loop_134)" +" for-loop_42)" " #t" " start*_3)))))" "(if all-quoted?_15" @@ -19234,91 +19411,91 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_149)))" +" v_148)))" "(void)))))))))" " c3_0)" -"(if(srcloc? v_149)" +"(if(srcloc? v_148)" "(let-values()" "(begin" "(ser-push!_16" " 'tag" " '#:srcloc)" "(ser-push!_16" -"(srcloc-source v_149))" +"(srcloc-source v_148))" "(ser-push!_16" -"(srcloc-line v_149))" +"(srcloc-line v_148))" "(ser-push!_16" -"(srcloc-column v_149))" +"(srcloc-column v_148))" "(ser-push!_16" -"(srcloc-position v_149))" +"(srcloc-position v_148))" "(ser-push!_16" -"(srcloc-span v_149))))" +"(srcloc-span v_148))))" "(let-values()" "(begin" "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_149)))))))))))))))))" +" v_148)))))))))))))))))" "((ser-push-optional-quote!_0)" "(lambda()(begin 'ser-push-optional-quote!(void)))))" "(let-values(((ser-shell!_0)" -"(lambda(v_150)" +"(lambda(v_149)" "(begin" " 'ser-shell!" -"(if(serialize-fill!? v_150)" +"(if(serialize-fill!? v_149)" "(let-values()" -"((serialize-ref v_150)" -" v_150" +"((serialize-ref v_149)" +" v_149" " ser-push!_16" -" state_25))" -"(if(box? v_150)" +" state_26))" +"(if(box? v_149)" "(let-values()(ser-push!_16 'tag '#:box))" -"(if(vector? v_150)" +"(if(vector? v_149)" "(let-values()" "(begin" "(ser-push!_16 'tag '#:vector)" "(ser-push!_16" " 'exact" -"(vector-length v_150))))" -"(if(hash? v_150)" +"(vector-length v_149))))" +"(if(hash? v_149)" "(let-values()" "(ser-push!_16" " 'tag" -"(if(hash-eq? v_150)" +"(if(hash-eq? v_149)" "(let-values() '#:hasheq)" -"(if(hash-eqv? v_150)" +"(if(hash-eqv? v_149)" "(let-values() '#:hasheqv)" "(let-values() '#:hash)))))" "(let-values()" "(error" " 'ser-shell" " \"unknown mutable: ~e\"" -" v_150))))))))))" +" v_149))))))))))" "(let-values(((ser-shell-fill!_0)" -"(lambda(v_151)" +"(lambda(v_80)" "(begin" " 'ser-shell-fill!" -"(if(serialize-fill!? v_151)" +"(if(serialize-fill!? v_80)" "(let-values()" -"((serialize-fill!-ref v_151)" -" v_151" +"((serialize-fill!-ref v_80)" +" v_80" " ser-push!_16" -" state_25))" -"(if(box? v_151)" +" state_26))" +"(if(box? v_80)" "(let-values()" "(begin" "(ser-push!_16 'tag '#:set-box!)" -"(ser-push!_16(unbox v_151))))" -"(if(vector? v_151)" +"(ser-push!_16(unbox v_80))))" +"(if(vector? v_80)" "(let-values()" "(begin" "(ser-push!_16 'tag '#:set-vector!)" "(ser-push!_16" " 'exact" -"(vector-length v_151))" +"(vector-length v_80))" "(let-values(((vec_45 len_18)" "(let-values(((vec_46)" -" v_151))" +" v_80))" "(begin" "(check-vector vec_46)" "(values" @@ -19334,7 +19511,7 @@ static const char *startup_source = "(if(unsafe-fx<" " pos_30" " len_18)" -"(let-values(((v_152)" +"(let-values(((v_150)" "(unsafe-vector-ref" " vec_45" " pos_30)))" @@ -19345,7 +19522,7 @@ static const char *startup_source = "(begin" "(let-values()" "(ser-push!_16" -" v_152))" +" v_150))" "(values)))))" "(values)))))" "(if(not" @@ -19359,7 +19536,7 @@ static const char *startup_source = " for-loop_135)" " 0)))" "(void)))" -"(if(hash? v_151)" +"(if(hash? v_80)" "(let-values()" "(let-values((()" "(begin" @@ -19371,11 +19548,11 @@ static const char *startup_source = "(begin" "(ser-push!_16" " 'exact" -"(hash-count v_151))" +"(hash-count v_80))" "(values))))" "(let-values(((ks_1)" "(sorted-hash-keys" -" v_151)))" +" v_80)))" "(begin" "(let-values(((lst_119) ks_1))" "(begin" @@ -19407,7 +19584,7 @@ static const char *startup_source = " k_25)" "(ser-push!_16" "(hash-ref" -" v_151" +" v_80" " k_25))))" "(values)))))" "(values)))))" @@ -19424,52 +19601,52 @@ static const char *startup_source = "(error" " 'ser-shell-fill" " \"unknown mutable: ~e\"" -" v_151))))))))))" +" v_80))))))))))" "(let-values(((rev-mutables_0)" -"(let-values(((ht_85) mutables_0))" +"(let-values(((ht_90) mutables_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_85)))" +"(let-values()(check-in-hash ht_90)))" "((letrec-values(((for-loop_137)" -"(lambda(table_125 i_114)" +"(lambda(table_126 i_116)" "(begin" " 'for-loop" -"(if i_114" +"(if i_116" "(let-values(((k_26" -" v_153)" +" v_151)" "(hash-iterate-key+value" -" ht_85" -" i_114)))" -"(let-values(((table_126)" +" ht_90" +" i_116)))" +"(let-values(((table_59)" +"(let-values(((table_60)" +" table_126))" "(let-values(((table_127)" -" table_125))" -"(let-values(((table_128)" "(let-values()" "(let-values(((key_48" " val_42)" "(let-values()" "(values" -" v_153" +" v_151" " k_26))))" "(hash-set" -" table_127" +" table_60" " key_48" " val_42)))))" "(values" -" table_128)))))" +" table_127)))))" "(if(not #f)" "(for-loop_137" -" table_126" +" table_59" "(hash-iterate-next" -" ht_85" -" i_114))" -" table_126)))" -" table_125)))))" +" ht_90" +" i_116))" +" table_59)))" +" table_126)))))" " for-loop_137)" " '#hasheqv()" -"(hash-iterate-first ht_85))))))" +"(hash-iterate-first ht_90))))))" "(let-values(((mutable-shell-bindings_0)" "(begin" "(begin" @@ -19490,7 +19667,7 @@ static const char *startup_source = "(if(<" " pos_31" " end_13)" -"(let-values(((i_115)" +"(let-values(((i_59)" " pos_31))" "(let-values((()" "(let-values()" @@ -19501,7 +19678,7 @@ static const char *startup_source = "(ser-shell!_0" "(hash-ref" " rev-mutables_0" -" i_115)))" +" i_59)))" "(values)))))" "(values)))))" "(if(not #f)" @@ -19516,26 +19693,26 @@ static const char *startup_source = "(void))" "(reap-stream!_0))))" "(let-values(((rev-shares_0)" -"(let-values(((ht_86) shares_0))" +"(let-values(((ht_91) shares_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash-keys ht_86)))" +"(check-in-hash-keys ht_91)))" "((letrec-values(((for-loop_139)" -"(lambda(table_129 i_116)" +"(lambda(table_128 i_60)" "(begin" " 'for-loop" -"(if i_116" +"(if i_60" "(let-values(((obj_1)" "(hash-iterate-key" -" ht_86" -" i_116)))" +" ht_91" +" i_60)))" +"(let-values(((table_129)" "(let-values(((table_130)" +" table_128))" "(let-values(((table_131)" -" table_129))" -"(let-values(((table_132)" "(let-values()" "(let-values(((key_49" " val_43)" @@ -19548,22 +19725,22 @@ static const char *startup_source = " obj_1))" " obj_1))))" "(hash-set" -" table_131" +" table_130" " key_49" " val_43)))))" "(values" -" table_132)))))" +" table_131)))))" "(if(not #f)" "(for-loop_139" -" table_130" +" table_129" "(hash-iterate-next" -" ht_86" -" i_116))" -" table_130)))" -" table_129)))))" +" ht_91" +" i_60))" +" table_129)))" +" table_128)))))" " for-loop_139)" " '#hasheqv()" -"(hash-iterate-first ht_86))))))" +"(hash-iterate-first ht_91))))))" "(let-values(((shared-bindings_0)" "(begin" "(begin" @@ -19677,13 +19854,13 @@ static const char *startup_source = "(list" " 'quote" "(begin" -"(ser-push!_16 v_143)" +"(ser-push!_16 v_142)" "(reap-stream!_0))))))))))))))))))))))))))))))))))))" "(define-values" "(sorted-hash-keys)" -"(lambda(ht_87)" +"(lambda(ht_92)" "(begin" -"(let-values(((ks_2)(hash-keys ht_87)))" +"(let-values(((ks_2)(hash-keys ht_92)))" "(if(null? ks_2)" "(let-values() ks_2)" "(if(null?(cdr ks_2))" @@ -19812,13 +19989,13 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(if(< pos_45 end_18)(unsafe-fx< pos_46 len_19) #f)" -"(let-values(((v_154)(unsafe-vector-ref vec_47 pos_46)))" +"(let-values(((v_152)(unsafe-vector-ref vec_47 pos_46)))" "(let-values(((pos_47)" "(let-values(((pos_48) pos_44))" "(let-values(((pos_49)" "(let-values()" "(decode-fill!" -" v_154" +" v_152" " mutable-fill-vec_0" " pos_48" " mpis_7" @@ -20075,7 +20252,7 @@ static const char *startup_source = "(if(unsafe-fx< index_0 10)" "(let-values()(values(vector*-ref mpis_9(vector*-ref vec_50(add1 pos_51)))(+ pos_51 2)))" "(let-values()" -"(let-values(((v_155 next-pos_18)" +"(let-values(((v_153 next-pos_18)" "(decode" " vec_50" "(add1 pos_51)" @@ -20083,7 +20260,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(values(box-immutable v_155) next-pos_18))))" +"(values(box-immutable v_153) next-pos_18))))" "(if(unsafe-fx< index_0 12)" "(let-values()" "(let-values(((a_39 next-pos_19)" @@ -20123,9 +20300,9 @@ static const char *startup_source = "(let-values(((pos_55) pos_52))" "(let-values(((pos_56)" "(let-values()" -"(let-values(((v_156" +"(let-values(((v_154" " next-pos_22)" -"(let-values(((v_157" +"(let-values(((v_155" " next-pos_23)" "(decode" " vec_50" @@ -20135,13 +20312,13 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -" v_157" +" v_155" " next-pos_23))))" "(begin" "(vector-set!" " r_29" " i_127" -" v_156)" +" v_154)" " next-pos_22)))))" "(values pos_56)))))" "(if(not #f)" @@ -20157,7 +20334,7 @@ static const char *startup_source = "(vector->immutable-vector r_29))" " next-pos_21)))))" "(let-values()" -"(let-values(((ht_53)" +"(let-values(((ht_55)" "(let-values(((tmp_21)(vector*-ref vec_50 pos_51)))" "(if(equal? tmp_21 '#:hash)" "(let-values()(hash))" @@ -20173,15 +20350,15 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_28 end_20 inc_14)))" "((letrec-values(((for-loop_146)" -"(lambda(ht_88 pos_57 pos_58)" +"(lambda(ht_93 pos_57 pos_58)" "(begin" " 'for-loop" "(if(< pos_58 end_20)" "(let-values()" -"(let-values(((ht_89 pos_59)" -"(let-values(((ht_90) ht_88)" +"(let-values(((ht_94 pos_59)" +"(let-values(((ht_95) ht_93)" "((pos_60) pos_57))" -"(let-values(((ht_91 pos_61)" +"(let-values(((ht_96 pos_61)" "(let-values()" "(let-values(((k_27" " next-pos_24)" @@ -20192,7 +20369,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((v_158" +"(let-values(((v_156" " next-pos_25)" "(decode" " vec_50" @@ -20203,24 +20380,24 @@ static const char *startup_source = " shared_2)))" "(values" "(hash-set" -" ht_90" +" ht_95" " k_27" -" v_158)" +" v_156)" " next-pos_25))))))" -"(values ht_91 pos_61)))))" +"(values ht_96 pos_61)))))" "(if(not #f)" -"(for-loop_146 ht_89 pos_59(+ pos_58 inc_14))" -"(values ht_89 pos_59))))" -"(values ht_88 pos_57))))))" +"(for-loop_146 ht_94 pos_59(+ pos_58 inc_14))" +"(values ht_94 pos_59))))" +"(values ht_93 pos_57))))))" " for-loop_146)" -" ht_53" +" ht_55" "(+ pos_51 2)" " start_28)))))))))))" "(if(unsafe-fx< index_0 21)" "(if(unsafe-fx< index_0 17)" "(if(unsafe-fx< index_0 15)" "(let-values()" -"(let-values(((s_191)" +"(let-values(((s_192)" "(let-values(((tmp_22)(vector*-ref vec_50 pos_51)))" "(if(equal? tmp_22 '#:set)" "(let-values()(set))" @@ -20236,14 +20413,14 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_29 end_21 inc_15)))" "((letrec-values(((for-loop_147)" -"(lambda(s_192 pos_62 pos_63)" +"(lambda(s_193 pos_62 pos_63)" "(begin" " 'for-loop" "(if(< pos_63 end_21)" "(let-values()" -"(let-values(((s_193 pos_64)" -"(let-values(((s_194) s_192)((pos_65) pos_62))" -"(let-values(((s_195 pos_66)" +"(let-values(((s_194 pos_64)" +"(let-values(((s_195) s_193)((pos_65) pos_62))" +"(let-values(((s_196 pos_66)" "(let-values()" "(let-values(((k_28 next-pos_26)" "(decode" @@ -20254,15 +20431,15 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -"(set-add s_194 k_28)" +"(set-add s_195 k_28)" " next-pos_26)))))" -"(values s_195 pos_66)))))" +"(values s_196 pos_66)))))" "(if(not #f)" -"(for-loop_147 s_193 pos_64(+ pos_63 inc_15))" -"(values s_193 pos_64))))" -"(values s_192 pos_62))))))" +"(for-loop_147 s_194 pos_64(+ pos_63 inc_15))" +"(values s_194 pos_64))))" +"(values s_193 pos_62))))))" " for-loop_147)" -" s_191" +" s_192" "(+ pos_51 2)" " start_29))))))" "(if(unsafe-fx< index_0 16)" @@ -20295,7 +20472,7 @@ static const char *startup_source = "((pos_70) pos_67))" "(let-values(((r_34 pos_71)" "(let-values()" -"(let-values(((v_159" +"(let-values(((v_157" " next-pos_29)" "(decode" " vec_50" @@ -20306,7 +20483,7 @@ static const char *startup_source = " shared_2)))" "(values" "(cons" -" v_159" +" v_157" " r_33)" " next-pos_29)))))" "(values r_34 pos_71)))))" @@ -20346,7 +20523,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((scopes_21 next-pos_33)" +"(let-values(((scopes_20 next-pos_33)" "(decode" " vec_50" " next-pos_32" @@ -20354,7 +20531,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(values(deserialize-multi-scope name_38 scopes_21) next-pos_33))))" +"(values(deserialize-multi-scope name_38 scopes_20) next-pos_33))))" "(let-values()" "(let-values(((phase_46 next-pos_34)" "(decode" @@ -20383,7 +20560,7 @@ static const char *startup_source = "(values(deserialize-table-with-bulk-bindings syms_13 bulk-bindings_4) next-pos_37))))" "(if(unsafe-fx< index_0 23)" "(let-values()" -"(let-values(((scopes_22 next-pos_38)" +"(let-values(((scopes_21 next-pos_38)" "(decode" " vec_50" "(add1 pos_51)" @@ -20399,7 +20576,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(values(deserialize-bulk-binding-at scopes_22 bulk_5) next-pos_39))))" +"(values(deserialize-bulk-binding-at scopes_21 bulk_5) next-pos_39))))" "(let-values()" "(let-values(((kind_7 next-pos_40)" "(decode" @@ -20658,7 +20835,7 @@ static const char *startup_source = " next-pos_66)))))))))))))))))" "(define-values" "(decode-fill!)" -"(lambda(v_160 vec_51 pos_72 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)" +"(lambda(v_158 vec_51 pos_72 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)" "(begin" "(let-values(((tmp_23)(vector*-ref vec_51 pos_72)))" "(if(equal? tmp_23 #f)" @@ -20667,7 +20844,7 @@ static const char *startup_source = "(let-values()" "(let-values(((c_21 next-pos_67)" "(decode vec_51(add1 pos_72) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(set-box! v_160 c_21) next-pos_67)))" +"(begin(set-box! v_158 c_21) next-pos_67)))" "(if(equal? tmp_23 '#:set-vector!)" "(let-values()" "(let-values(((len_24)(vector*-ref vec_51(add1 pos_72))))" @@ -20695,7 +20872,7 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(vector-set! v_160 i_78 c_22)" +"(vector-set! v_158 i_78 c_22)" " next-pos_68)))))" "(values pos_77)))))" "(if(not #f)(for-loop_149 pos_75(+ pos_74 inc_17)) pos_75)))" @@ -20738,7 +20915,7 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(hash-set! v_160 key_52 val_44)" +"(hash-set! v_158 key_52 val_44)" " done-pos_2))))))" "(values pos_82)))))" "(if(not #f)(for-loop_150 pos_80(+ pos_79 inc_18)) pos_80)))" @@ -20750,41 +20927,41 @@ static const char *startup_source = "(let-values()" "(let-values(((c_23 next-pos_70)" "(decode vec_51(add1 pos_72) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-scope-fill! v_160 c_23) next-pos_70)))" +"(begin(deserialize-scope-fill! v_158 c_23) next-pos_70)))" "(if(equal? tmp_23 '#:representative-scope-fill!)" "(let-values()" "(let-values(((a_40 next-pos_71)" "(decode vec_51(add1 pos_72) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" "(let-values(((d_25 done-pos_3)" "(decode vec_51 next-pos_71 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-representative-scope-fill! v_160 a_40 d_25) done-pos_3))))" +"(begin(deserialize-representative-scope-fill! v_158 a_40 d_25) done-pos_3))))" " (let-values () (error 'deserialize \"bad fill encoding: ~v\" (vector*-ref vec_51 pos_72)))))))))))))" "(define-values" "(find-reachable-scopes)" -"(lambda(v_161)" +"(lambda(v_159)" "(begin" "(let-values(((seen_22)(make-hasheq)))" "(let-values(((reachable-scopes_5)(seteq)))" "(let-values(((get-reachable-scopes_4)(lambda()(begin 'get-reachable-scopes reachable-scopes_5))))" "(let-values(((scope-triggers_0)(make-hasheq)))" "(begin" -"((letrec-values(((loop_85)" -"(lambda(v_162)" +"((letrec-values(((loop_86)" +"(lambda(v_160)" "(begin" " 'loop" -"(if(interned-literal? v_162)" +"(if(interned-literal? v_160)" "(let-values()(void))" -"(if(hash-ref seen_22 v_162 #f)" +"(if(hash-ref seen_22 v_160 #f)" "(let-values()(void))" "(let-values()" "(begin" -"(hash-set! seen_22 v_162 #t)" -"(if(scope-with-bindings? v_162)" +"(hash-set! seen_22 v_160 #t)" +"(if(scope-with-bindings? v_160)" "(let-values()" "(begin" -"(set! reachable-scopes_5(set-add reachable-scopes_5 v_162))" -"((reach-scopes-ref v_162) v_162 loop_85)" -"(let-values(((lst_68)(hash-ref scope-triggers_0 v_162 null)))" +"(set! reachable-scopes_5(set-add reachable-scopes_5 v_160))" +"((reach-scopes-ref v_160) v_160 loop_86)" +"(let-values(((lst_68)(hash-ref scope-triggers_0 v_160 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -20805,7 +20982,7 @@ static const char *startup_source = "(begin" "(let-values()" "(proc_7" -" loop_85))" +" loop_86))" "(values)))))" "(values)))))" "(if(not #f)" @@ -20815,26 +20992,26 @@ static const char *startup_source = " for-loop_151)" " lst_68)))" "(void)" -"(hash-remove! scope-triggers_0 v_162)" -"((scope-with-bindings-ref v_162)" -" v_162" +"(hash-remove! scope-triggers_0 v_160)" +"((scope-with-bindings-ref v_160)" +" v_160" " get-reachable-scopes_4" -" loop_85" -"(lambda(sc-unreachable_0 b_65)" +" loop_86" +"(lambda(sc-unreachable_0 b_68)" "(hash-update!" " scope-triggers_0" " sc-unreachable_0" -"(lambda(l_51)(cons b_65 l_51))" +"(lambda(l_51)(cons b_68 l_51))" " null)))))" -"(if(reach-scopes? v_162)" -"(let-values()((reach-scopes-ref v_162) v_162 loop_85))" -"(if(pair? v_162)" -"(let-values()(begin(loop_85(car v_162))(loop_85(cdr v_162))))" -"(if(vector? v_162)" +"(if(reach-scopes? v_160)" +"(let-values()((reach-scopes-ref v_160) v_160 loop_86))" +"(if(pair? v_160)" +"(let-values()(begin(loop_86(car v_160))(loop_86(cdr v_160))))" +"(if(vector? v_160)" "(let-values()" "(begin" "(let-values(((vec_52 len_26)" -"(let-values(((vec_53) v_162))" +"(let-values(((vec_53) v_160))" "(begin" "(check-vector vec_53)" "(values" @@ -20857,7 +21034,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_85" +"(loop_86" " e_23))" "(values)))))" "(values)))))" @@ -20869,25 +21046,25 @@ static const char *startup_source = " for-loop_152)" " 0)))" "(void)))" -"(if(box? v_162)" -"(let-values()(loop_85(unbox v_162)))" -"(if(hash? v_162)" +"(if(box? v_160)" +"(let-values()(loop_86(unbox v_160)))" +"(if(hash? v_160)" "(let-values()" "(begin" -"(let-values(((ht_92) v_162))" +"(let-values(((ht_97) v_160))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_92)))" +"(let-values()(check-in-hash ht_97)))" "((letrec-values(((for-loop_153)" "(lambda(i_128)" "(begin" " 'for-loop" "(if i_128" -"(let-values(((k_30 v_163)" +"(let-values(((k_30 v_161)" "(hash-iterate-key+value" -" ht_92" +" ht_97" " i_128)))" "(let-values((()" "(let-values()" @@ -20896,23 +21073,23 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(loop_85" +"(loop_86" " k_30)" -"(loop_85" -" v_163)))" +"(loop_86" +" v_161)))" "(values)))))" "(values)))))" "(if(not #f)" "(for-loop_153" "(hash-iterate-next" -" ht_92" +" ht_97" " i_128))" "(values))))" "(values))))))" " for-loop_153)" -"(hash-iterate-first ht_92))))" +"(hash-iterate-first ht_97))))" "(void)))" -"(if(prefab-struct-key v_162)" +"(if(prefab-struct-key v_160)" "(let-values()" "(begin" "(let-values(((v*_5 start*_4 stop*_5 step*_4)" @@ -20922,7 +21099,7 @@ static const char *startup_source = "(lambda(x_52)(vector? x_52))" "(lambda(x_53)" "(unsafe-vector-length x_53))" -"(struct->vector v_162)" +"(struct->vector v_160)" " 1" " #f" " 1)))" @@ -20943,7 +21120,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_85" +"(loop_86" " e_24))" "(values)))))" "(values)))))" @@ -20955,11 +21132,11 @@ static const char *startup_source = " for-loop_154)" " start*_4)))" "(void)))" -"(if(srcloc? v_162)" -"(let-values()(loop_85(srcloc-source v_162)))" +"(if(srcloc? v_160)" +"(let-values()(loop_86(srcloc-source v_160)))" "(let-values()(void))))))))))))))))))" -" loop_85)" -" v_161)" +" loop_86)" +" v_159)" " reachable-scopes_5))))))))" "(define-values" "(deserialize-imports)" @@ -20971,12 +21148,12 @@ static const char *startup_source = "(lambda(s23_0 from-mpi24_0 to-mpi25_0 inspector22_0)" "(begin" " 'core26" -"(let-values(((s_196) s23_0))" +"(let-values(((s_197) s23_0))" "(let-values(((from-mpi_4) from-mpi24_0))" "(let-values(((to-mpi_3) to-mpi25_0))" "(let-values(((inspector_9) inspector22_0))" "(let-values()" -"(let-values(((s28_0) s_196)" +"(let-values(((s28_0) s_197)" "((from-mpi29_0) from-mpi_4)" "((to-mpi30_0) to-mpi_3)" "((inspector31_0) inspector_9))" @@ -20987,9 +21164,9 @@ static const char *startup_source = " to-mpi30_0" " inspector31_0)))))))))))" "(case-lambda" -"((s_197 from-mpi_5 to-mpi_4)" -"(begin 'syntax-module-path-index-shift(core26_0 s_197 from-mpi_5 to-mpi_4 #f)))" -"((s_198 from-mpi_6 to-mpi_5 inspector22_1)(core26_0 s_198 from-mpi_6 to-mpi_5 inspector22_1))))))" +"((s_198 from-mpi_5 to-mpi_4)" +"(begin 'syntax-module-path-index-shift(core26_0 s_198 from-mpi_5 to-mpi_4 #f)))" +"((s_199 from-mpi_6 to-mpi_5 inspector22_1)(core26_0 s_199 from-mpi_6 to-mpi_5 inspector22_1))))))" " syntax-module-path-index-shift_0))" "(define-values" "(deserialize-instance)" @@ -21039,7 +21216,7 @@ static const char *startup_source = "(make-struct-field-accessor -ref_1 1 'inspector))))" "(define-values" "(struct:parsed-primitive-id parsed-primitive-id3.1 parsed-primitive-id?)" -"(let-values(((struct:_42 make-_42 ?_42 -ref_42 -set!_42)" +"(let-values(((struct:_43 make-_43 ?_43 -ref_43 -set!_43)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21054,7 +21231,7 @@ static const char *startup_source = " '()" " #f" " 'parsed-primitive-id)))))" -"(values struct:_42 make-_42 ?_42)))" +"(values struct:_43 make-_43 ?_43)))" "(define-values" "(struct:parsed-top-id parsed-top-id4.1 parsed-top-id?)" "(let-values(((struct:_10 make-_10 ?_10 -ref_10 -set!_10)" @@ -21075,7 +21252,7 @@ static const char *startup_source = "(values struct:_10 make-_10 ?_10)))" "(define-values" "(struct:parsed-lambda parsed-lambda5.1 parsed-lambda? parsed-lambda-keys parsed-lambda-body)" -"(let-values(((struct:_41 make-_41 ?_41 -ref_41 -set!_41)" +"(let-values(((struct:_42 make-_42 ?_42 -ref_42 -set!_42)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21091,14 +21268,14 @@ static const char *startup_source = " #f" " 'parsed-lambda)))))" "(values" -" struct:_41" -" make-_41" -" ?_41" -"(make-struct-field-accessor -ref_41 0 'keys)" -"(make-struct-field-accessor -ref_41 1 'body))))" +" struct:_42" +" make-_42" +" ?_42" +"(make-struct-field-accessor -ref_42 0 'keys)" +"(make-struct-field-accessor -ref_42 1 'body))))" "(define-values" "(struct:parsed-case-lambda parsed-case-lambda6.1 parsed-case-lambda? parsed-case-lambda-clauses)" -"(let-values(((struct:_43 make-_43 ?_43 -ref_43 -set!_43)" +"(let-values(((struct:_44 make-_44 ?_44 -ref_44 -set!_44)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21113,10 +21290,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-case-lambda)))))" -"(values struct:_43 make-_43 ?_43(make-struct-field-accessor -ref_43 0 'clauses))))" +"(values struct:_44 make-_44 ?_44(make-struct-field-accessor -ref_44 0 'clauses))))" "(define-values" "(struct:parsed-app parsed-app7.1 parsed-app? parsed-app-rator parsed-app-rands)" -"(let-values(((struct:_44 make-_44 ?_44 -ref_44 -set!_44)" +"(let-values(((struct:_45 make-_45 ?_45 -ref_45 -set!_45)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21132,14 +21309,14 @@ static const char *startup_source = " #f" " 'parsed-app)))))" "(values" -" struct:_44" -" make-_44" -" ?_44" -"(make-struct-field-accessor -ref_44 0 'rator)" -"(make-struct-field-accessor -ref_44 1 'rands))))" +" struct:_45" +" make-_45" +" ?_45" +"(make-struct-field-accessor -ref_45 0 'rator)" +"(make-struct-field-accessor -ref_45 1 'rands))))" "(define-values" "(struct:parsed-if parsed-if8.1 parsed-if? parsed-if-tst parsed-if-thn parsed-if-els)" -"(let-values(((struct:_45 make-_45 ?_45 -ref_45 -set!_45)" +"(let-values(((struct:_46 make-_46 ?_46 -ref_46 -set!_46)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21155,15 +21332,15 @@ static const char *startup_source = " #f" " 'parsed-if)))))" "(values" -" struct:_45" -" make-_45" -" ?_45" -"(make-struct-field-accessor -ref_45 0 'tst)" -"(make-struct-field-accessor -ref_45 1 'thn)" -"(make-struct-field-accessor -ref_45 2 'els))))" +" struct:_46" +" make-_46" +" ?_46" +"(make-struct-field-accessor -ref_46 0 'tst)" +"(make-struct-field-accessor -ref_46 1 'thn)" +"(make-struct-field-accessor -ref_46 2 'els))))" "(define-values" "(struct:parsed-set! parsed-set!9.1 parsed-set!? parsed-set!-id parsed-set!-rhs)" -"(let-values(((struct:_46 make-_46 ?_46 -ref_46 -set!_46)" +"(let-values(((struct:_47 make-_47 ?_47 -ref_47 -set!_47)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21179,11 +21356,11 @@ static const char *startup_source = " #f" " 'parsed-set!)))))" "(values" -" struct:_46" -" make-_46" -" ?_46" -"(make-struct-field-accessor -ref_46 0 'id)" -"(make-struct-field-accessor -ref_46 1 'rhs))))" +" struct:_47" +" make-_47" +" ?_47" +"(make-struct-field-accessor -ref_47 0 'id)" +"(make-struct-field-accessor -ref_47 1 'rhs))))" "(define-values" "(struct:parsed-with-continuation-mark" " parsed-with-continuation-mark10.1" @@ -21191,7 +21368,7 @@ static const char *startup_source = " parsed-with-continuation-mark-key" " parsed-with-continuation-mark-val" " parsed-with-continuation-mark-body)" -"(let-values(((struct:_47 make-_47 ?_47 -ref_47 -set!_47)" +"(let-values(((struct:_48 make-_48 ?_48 -ref_48 -set!_48)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21207,18 +21384,18 @@ static const char *startup_source = " #f" " 'parsed-with-continuation-mark)))))" "(values" -" struct:_47" -" make-_47" -" ?_47" -"(make-struct-field-accessor -ref_47 0 'key)" -"(make-struct-field-accessor -ref_47 1 'val)" -"(make-struct-field-accessor -ref_47 2 'body))))" +" struct:_48" +" make-_48" +" ?_48" +"(make-struct-field-accessor -ref_48 0 'key)" +"(make-struct-field-accessor -ref_48 1 'val)" +"(make-struct-field-accessor -ref_48 2 'body))))" "(define-values" "(struct:parsed-#%variable-reference" " parsed-#%variable-reference11.1" " parsed-#%variable-reference?" " parsed-#%variable-reference-id)" -"(let-values(((struct:_48 make-_48 ?_48 -ref_48 -set!_48)" +"(let-values(((struct:_49 make-_49 ?_49 -ref_49 -set!_49)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21233,10 +21410,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-#%variable-reference)))))" -"(values struct:_48 make-_48 ?_48(make-struct-field-accessor -ref_48 0 'id))))" +"(values struct:_49 make-_49 ?_49(make-struct-field-accessor -ref_49 0 'id))))" "(define-values" "(struct:parsed-begin parsed-begin12.1 parsed-begin? parsed-begin-body)" -"(let-values(((struct:_49 make-_49 ?_49 -ref_49 -set!_49)" +"(let-values(((struct:_50 make-_50 ?_50 -ref_50 -set!_50)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21251,10 +21428,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin)))))" -"(values struct:_49 make-_49 ?_49(make-struct-field-accessor -ref_49 0 'body))))" +"(values struct:_50 make-_50 ?_50(make-struct-field-accessor -ref_50 0 'body))))" "(define-values" "(struct:parsed-begin0 parsed-begin013.1 parsed-begin0? parsed-begin0-body)" -"(let-values(((struct:_50 make-_50 ?_50 -ref_50 -set!_50)" +"(let-values(((struct:_51 make-_51 ?_51 -ref_51 -set!_51)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21269,10 +21446,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin0)))))" -"(values struct:_50 make-_50 ?_50(make-struct-field-accessor -ref_50 0 'body))))" +"(values struct:_51 make-_51 ?_51(make-struct-field-accessor -ref_51 0 'body))))" "(define-values" "(struct:parsed-quote parsed-quote14.1 parsed-quote? parsed-quote-datum)" -"(let-values(((struct:_51 make-_51 ?_51 -ref_51 -set!_51)" +"(let-values(((struct:_52 make-_52 ?_52 -ref_52 -set!_52)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21287,10 +21464,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-quote)))))" -"(values struct:_51 make-_51 ?_51(make-struct-field-accessor -ref_51 0 'datum))))" +"(values struct:_52 make-_52 ?_52(make-struct-field-accessor -ref_52 0 'datum))))" "(define-values" "(struct:parsed-quote-syntax parsed-quote-syntax15.1 parsed-quote-syntax? parsed-quote-syntax-datum)" -"(let-values(((struct:_52 make-_52 ?_52 -ref_52 -set!_52)" +"(let-values(((struct:_53 make-_53 ?_53 -ref_53 -set!_53)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21305,7 +21482,7 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-quote-syntax)))))" -"(values struct:_52 make-_52 ?_52(make-struct-field-accessor -ref_52 0 'datum))))" +"(values struct:_53 make-_53 ?_53(make-struct-field-accessor -ref_53 0 'datum))))" "(define-values" "(struct:parsed-let_-values" " parsed-let_-values16.1" @@ -21313,7 +21490,7 @@ static const char *startup_source = " parsed-let_-values-idss" " parsed-let_-values-clauses" " parsed-let_-values-body)" -"(let-values(((struct:_53 make-_53 ?_53 -ref_53 -set!_53)" +"(let-values(((struct:_54 make-_54 ?_54 -ref_54 -set!_54)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21329,15 +21506,15 @@ static const char *startup_source = " #f" " 'parsed-let_-values)))))" "(values" -" struct:_53" -" make-_53" -" ?_53" -"(make-struct-field-accessor -ref_53 0 'idss)" -"(make-struct-field-accessor -ref_53 1 'clauses)" -"(make-struct-field-accessor -ref_53 2 'body))))" +" struct:_54" +" make-_54" +" ?_54" +"(make-struct-field-accessor -ref_54 0 'idss)" +"(make-struct-field-accessor -ref_54 1 'clauses)" +"(make-struct-field-accessor -ref_54 2 'body))))" "(define-values" "(struct:parsed-let-values parsed-let-values17.1 parsed-let-values?)" -"(let-values(((struct:_54 make-_54 ?_54 -ref_54 -set!_54)" +"(let-values(((struct:_55 make-_55 ?_55 -ref_55 -set!_55)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21352,10 +21529,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-let-values)))))" -"(values struct:_54 make-_54 ?_54)))" +"(values struct:_55 make-_55 ?_55)))" "(define-values" "(struct:parsed-letrec-values parsed-letrec-values18.1 parsed-letrec-values?)" -"(let-values(((struct:_55 make-_55 ?_55 -ref_55 -set!_55)" +"(let-values(((struct:_56 make-_56 ?_56 -ref_56 -set!_56)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21370,7 +21547,7 @@ static const char *startup_source = " '()" " #f" " 'parsed-letrec-values)))))" -"(values struct:_55 make-_55 ?_55)))" +"(values struct:_56 make-_56 ?_56)))" "(define-values" "(struct:parsed-define-values" " parsed-define-values19.1" @@ -21378,7 +21555,7 @@ static const char *startup_source = " parsed-define-values-ids" " parsed-define-values-syms" " parsed-define-values-rhs)" -"(let-values(((struct:_56 make-_56 ?_56 -ref_56 -set!_56)" +"(let-values(((struct:_57 make-_57 ?_57 -ref_57 -set!_57)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21394,12 +21571,12 @@ static const char *startup_source = " #f" " 'parsed-define-values)))))" "(values" -" struct:_56" -" make-_56" -" ?_56" -"(make-struct-field-accessor -ref_56 0 'ids)" -"(make-struct-field-accessor -ref_56 1 'syms)" -"(make-struct-field-accessor -ref_56 2 'rhs))))" +" struct:_57" +" make-_57" +" ?_57" +"(make-struct-field-accessor -ref_57 0 'ids)" +"(make-struct-field-accessor -ref_57 1 'syms)" +"(make-struct-field-accessor -ref_57 2 'rhs))))" "(define-values" "(struct:parsed-define-syntaxes" " parsed-define-syntaxes20.1" @@ -21407,7 +21584,7 @@ static const char *startup_source = " parsed-define-syntaxes-ids" " parsed-define-syntaxes-syms" " parsed-define-syntaxes-rhs)" -"(let-values(((struct:_57 make-_57 ?_57 -ref_57 -set!_57)" +"(let-values(((struct:_58 make-_58 ?_58 -ref_58 -set!_58)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21423,15 +21600,15 @@ static const char *startup_source = " #f" " 'parsed-define-syntaxes)))))" "(values" -" struct:_57" -" make-_57" -" ?_57" -"(make-struct-field-accessor -ref_57 0 'ids)" -"(make-struct-field-accessor -ref_57 1 'syms)" -"(make-struct-field-accessor -ref_57 2 'rhs))))" +" struct:_58" +" make-_58" +" ?_58" +"(make-struct-field-accessor -ref_58 0 'ids)" +"(make-struct-field-accessor -ref_58 1 'syms)" +"(make-struct-field-accessor -ref_58 2 'rhs))))" "(define-values" "(struct:parsed-begin-for-syntax parsed-begin-for-syntax21.1 parsed-begin-for-syntax? parsed-begin-for-syntax-body)" -"(let-values(((struct:_58 make-_58 ?_58 -ref_58 -set!_58)" +"(let-values(((struct:_59 make-_59 ?_59 -ref_59 -set!_59)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21446,10 +21623,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin-for-syntax)))))" -"(values struct:_58 make-_58 ?_58(make-struct-field-accessor -ref_58 0 'body))))" +"(values struct:_59 make-_59 ?_59(make-struct-field-accessor -ref_59 0 'body))))" "(define-values" "(struct:parsed-#%declare parsed-#%declare22.1 parsed-#%declare?)" -"(let-values(((struct:_59 make-_59 ?_59 -ref_59 -set!_59)" +"(let-values(((struct:_60 make-_60 ?_60 -ref_60 -set!_60)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21464,10 +21641,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-#%declare)))))" -"(values struct:_59 make-_59 ?_59)))" +"(values struct:_60 make-_60 ?_60)))" "(define-values" "(struct:parsed-require parsed-require23.1 parsed-require?)" -"(let-values(((struct:_60 make-_60 ?_60 -ref_60 -set!_60)" +"(let-values(((struct:_61 make-_61 ?_61 -ref_61 -set!_61)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21482,10 +21659,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-require)))))" -"(values struct:_60 make-_60 ?_60)))" +"(values struct:_61 make-_61 ?_61)))" "(define-values" "(struct:parsed-#%module-begin parsed-#%module-begin24.1 parsed-#%module-begin? parsed-#%module-begin-body)" -"(let-values(((struct:_61 make-_61 ?_61 -ref_61 -set!_61)" +"(let-values(((struct:_62 make-_62 ?_62 -ref_62 -set!_62)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21500,7 +21677,7 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-#%module-begin)))))" -"(values struct:_61 make-_61 ?_61(make-struct-field-accessor -ref_61 0 'body))))" +"(values struct:_62 make-_62 ?_62(make-struct-field-accessor -ref_62 0 'body))))" "(define-values" "(struct:parsed-module" " parsed-module25.1" @@ -21515,7 +21692,7 @@ static const char *startup_source = " parsed-module-body" " parsed-module-compiled-module" " parsed-module-compiled-submodules)" -"(let-values(((struct:_62 make-_62 ?_62 -ref_62 -set!_62)" +"(let-values(((struct:_63 make-_63 ?_63 -ref_63 -set!_63)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21531,19 +21708,19 @@ static const char *startup_source = " #f" " 'parsed-module)))))" "(values" -" struct:_62" -" make-_62" -" ?_62" -"(make-struct-field-accessor -ref_62 0 'star?)" -"(make-struct-field-accessor -ref_62 1 'name-id)" -"(make-struct-field-accessor -ref_62 2 'self)" -"(make-struct-field-accessor -ref_62 3 'requires)" -"(make-struct-field-accessor -ref_62 4 'provides)" -"(make-struct-field-accessor -ref_62 5 'root-ctx-simple?)" -"(make-struct-field-accessor -ref_62 6 'encoded-root-ctx)" -"(make-struct-field-accessor -ref_62 7 'body)" -"(make-struct-field-accessor -ref_62 8 'compiled-module)" -"(make-struct-field-accessor -ref_62 9 'compiled-submodules))))" +" struct:_63" +" make-_63" +" ?_63" +"(make-struct-field-accessor -ref_63 0 'star?)" +"(make-struct-field-accessor -ref_63 1 'name-id)" +"(make-struct-field-accessor -ref_63 2 'self)" +"(make-struct-field-accessor -ref_63 3 'requires)" +"(make-struct-field-accessor -ref_63 4 'provides)" +"(make-struct-field-accessor -ref_63 5 'root-ctx-simple?)" +"(make-struct-field-accessor -ref_63 6 'encoded-root-ctx)" +"(make-struct-field-accessor -ref_63 7 'body)" +"(make-struct-field-accessor -ref_63 8 'compiled-module)" +"(make-struct-field-accessor -ref_63 9 'compiled-submodules))))" "(define-values" "(module-path->mpi5.1)" "(lambda(declared-submodule-names1_0 mod-path3_0 self4_2)" @@ -21592,17 +21769,17 @@ static const char *startup_source = "(lambda(s_0 phase_42)" "(begin" "(let-values(((s-scs_1)(syntax-scope-set s_0 phase_42)))" -"(let-values(((ht_93) 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_93)))" -"((letrec-values(((for-loop_112)" +"(let-values()(check-in-immutable-hash-keys ht_98)))" +"((letrec-values(((for-loop_114)" "(lambda(syms_14 i_129)" "(begin" " 'for-loop" "(if i_129" -"(let-values(((sc_30)(unsafe-immutable-hash-iterate-key ht_93 i_129)))" +"(let-values(((sc_31)(unsafe-immutable-hash-iterate-key ht_98 i_129)))" "(let-values(((syms_15)" "(let-values(((syms_16) syms_14))" "(let-values(((syms_17)" @@ -21610,18 +21787,18 @@ static const char *startup_source = "(set-union" " syms_16" "(binding-table-symbols" -"(scope-binding-table sc_30)" +"(scope-binding-table sc_31)" " s-scs_1" " s_0" " null)))))" "(values syms_17)))))" "(if(not #f)" -"(for-loop_112 syms_15(unsafe-immutable-hash-iterate-next ht_93 i_129))" +"(for-loop_114 syms_15(unsafe-immutable-hash-iterate-next ht_98 i_129))" " syms_15)))" " syms_14)))))" -" for-loop_112)" +" for-loop_114)" "(seteq)" -"(unsafe-immutable-hash-iterate-first ht_93))))))))" +"(unsafe-immutable-hash-iterate-first ht_98))))))))" "(define-values" "(struct:requires+provides" " requires+provides1.1" @@ -21637,7 +21814,7 @@ static const char *startup_source = " requires+provides-all-bindings-simple?" " set-requires+provides-can-cross-phase-persistent?!" " set-requires+provides-all-bindings-simple?!)" -"(let-values(((struct:_63 make-_63 ?_63 -ref_63 -set!_63)" +"(let-values(((struct:_64 make-_64 ?_64 -ref_64 -set!_64)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21653,20 +21830,20 @@ static const char *startup_source = " #f" " 'requires+provides)))))" "(values" -" struct:_63" -" make-_63" -" ?_63" -"(make-struct-field-accessor -ref_63 0 'self)" -"(make-struct-field-accessor -ref_63 1 'require-mpis)" -"(make-struct-field-accessor -ref_63 2 'require-mpis-in-order)" -"(make-struct-field-accessor -ref_63 3 'requires)" -"(make-struct-field-accessor -ref_63 4 'provides)" -"(make-struct-field-accessor -ref_63 5 'phase-to-defined-syms)" -"(make-struct-field-accessor -ref_63 6 'also-required)" -"(make-struct-field-accessor -ref_63 7 'can-cross-phase-persistent?)" -"(make-struct-field-accessor -ref_63 8 'all-bindings-simple?)" -"(make-struct-field-mutator -set!_63 7 'can-cross-phase-persistent?)" -"(make-struct-field-mutator -set!_63 8 'all-bindings-simple?))))" +" struct:_64" +" make-_64" +" ?_64" +"(make-struct-field-accessor -ref_64 0 'self)" +"(make-struct-field-accessor -ref_64 1 'require-mpis)" +"(make-struct-field-accessor -ref_64 2 'require-mpis-in-order)" +"(make-struct-field-accessor -ref_64 3 'requires)" +"(make-struct-field-accessor -ref_64 4 'provides)" +"(make-struct-field-accessor -ref_64 5 'phase-to-defined-syms)" +"(make-struct-field-accessor -ref_64 6 'also-required)" +"(make-struct-field-accessor -ref_64 7 'can-cross-phase-persistent?)" +"(make-struct-field-accessor -ref_64 8 'all-bindings-simple?)" +"(make-struct-field-mutator -set!_64 7 'can-cross-phase-persistent?)" +"(make-struct-field-mutator -set!_64 8 'all-bindings-simple?))))" "(define-values" "(struct:required required2.1 required? required-id required-phase required-can-be-shadowed? required-as-transformer?)" "(let-values(((struct:_11 make-_11 ?_11 -ref_11 -set!_11)" @@ -21694,7 +21871,7 @@ static const char *startup_source = "(make-struct-field-accessor -ref_11 3 'as-transformer?))))" "(define-values" "(struct:nominal nominal3.1 nominal? nominal-module nominal-provide-phase nominal-require-phase nominal-sym)" -"(let-values(((struct:_64 make-_64 ?_64 -ref_64 -set!_64)" +"(let-values(((struct:_65 make-_65 ?_65 -ref_65 -set!_65)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21710,13 +21887,13 @@ static const char *startup_source = " #f" " 'nominal)))))" "(values" -" struct:_64" -" make-_64" -" ?_64" -"(make-struct-field-accessor -ref_64 0 'module)" -"(make-struct-field-accessor -ref_64 1 'provide-phase)" -"(make-struct-field-accessor -ref_64 2 'require-phase)" -"(make-struct-field-accessor -ref_64 3 'sym))))" +" struct:_65" +" make-_65" +" ?_65" +"(make-struct-field-accessor -ref_65 0 'module)" +"(make-struct-field-accessor -ref_65 1 'provide-phase)" +"(make-struct-field-accessor -ref_65 2 'require-phase)" +"(make-struct-field-accessor -ref_65 3 'sym))))" "(define-values" "(struct:bulk-required" " bulk-required4.1" @@ -21726,7 +21903,7 @@ static const char *startup_source = " bulk-required-s" " bulk-required-provide-phase-level" " bulk-required-can-be-shadowed?)" -"(let-values(((struct:_65 make-_65 ?_65 -ref_65 -set!_65)" +"(let-values(((struct:_66 make-_66 ?_66 -ref_66 -set!_66)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21742,14 +21919,14 @@ static const char *startup_source = " #f" " 'bulk-required)))))" "(values" -" struct:_65" -" make-_65" -" ?_65" -"(make-struct-field-accessor -ref_65 0 'provides)" -"(make-struct-field-accessor -ref_65 1 'prefix-len)" -"(make-struct-field-accessor -ref_65 2 's)" -"(make-struct-field-accessor -ref_65 3 'provide-phase-level)" -"(make-struct-field-accessor -ref_65 4 'can-be-shadowed?))))" +" struct:_66" +" make-_66" +" ?_66" +"(make-struct-field-accessor -ref_66 0 'provides)" +"(make-struct-field-accessor -ref_66 1 'prefix-len)" +"(make-struct-field-accessor -ref_66 2 's)" +"(make-struct-field-accessor -ref_66 3 'provide-phase-level)" +"(make-struct-field-accessor -ref_66 4 'can-be-shadowed?))))" "(define-values" "(make-requires+provides8.1)" "(lambda(copy-requires5_0 self7_0)" @@ -21890,7 +22067,7 @@ static const char *startup_source = "(begin" " 'add-bulk-required-ids!59" "(let-values(((r+p_5) r+p52_0))" -"(let-values(((s_113) s53_0))" +"(let-values(((s_114) s53_0))" "(let-values(((self_8) self54_0))" "(let-values(((nominal-module_7) nominal-module55_0))" "(let-values(((phase-shift_6) phase-shift56_0))" @@ -21909,7 +22086,7 @@ static const char *startup_source = "(let-values(((shortcut-table_0)" "(if check-and-remove?_0" "(if(>(hash-count provides_4) 64)" -"(syntax-mapped-names s_113 phase_52)" +"(syntax-mapped-names s_114 phase_52)" " #f)" " #f)))" "(let-values(((mpi_31)(intern-mpi r+p_5 nominal-module_7)))" @@ -21928,14 +22105,14 @@ static const char *startup_source = "(bulk-required4.1" " provides_4" " prefix-len_0" -" s_113" +" s_114" " provide-phase-level_3" " can-be-shadowed?_2)))" -"(let-values(((ht_94) provides_4))" +"(let-values(((ht_99) provides_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_94)))" +"(let-values()(check-in-hash ht_99)))" "((letrec-values(((for-loop_155)" "(lambda(result_70 i_130)" "(begin" @@ -21943,7 +22120,7 @@ static const char *startup_source = "(if i_130" "(let-values(((out-sym_0 binding/p_2)" "(hash-iterate-key+value" -" ht_94" +" ht_99" " i_130)))" "(let-values(((result_71)" "(let-values(((result_72)" @@ -22003,9 +22180,9 @@ static const char *startup_source = " r+p_5)" "((temp134_0)" "(datum->syntax$1" -" s_113" +" s_114" " sym_35" -" s_113))" +" s_114))" "((phase135_0)" " phase_52)" "((orig-s136_0)" @@ -22074,12 +22251,12 @@ static const char *startup_source = " #f)" "(for-loop_155" " result_71" -"(hash-iterate-next ht_94 i_130))" +"(hash-iterate-next ht_99 i_130))" " result_71)))" " result_70)))))" " for-loop_155)" " #f" -"(hash-iterate-first ht_94))))))))))))))))))))))))))))))" +"(hash-iterate-first ht_99))))))))))))))))))))))))))))))" "(define-values" "(bulk-required->required)" "(lambda(br_1 nominal-module_8 phase_53 sym_36)" @@ -22111,18 +22288,18 @@ static const char *startup_source = "(let-values()" "(begin" "(set-requires+provides-all-bindings-simple?! r+p_6 #f)" -"(let-values(((ht_95)(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_95)))" +"(let-values()(check-in-hash ht_100)))" "((letrec-values(((for-loop_156)" "(lambda(i_131)" "(begin" " 'for-loop" "(if i_131" "(let-values(((mod-name_10 at-mod_2)" -"(hash-iterate-key+value ht_95 i_131)))" +"(hash-iterate-key+value ht_100 i_131)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -22130,13 +22307,13 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((ht_96) 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_96)))" +"(check-in-hash ht_101)))" "((letrec-values(((for-loop_157)" "(lambda(i_132)" "(begin" @@ -22145,10 +22322,10 @@ static const char *startup_source = "(let-values(((phase_55" " at-phase_8)" "(hash-iterate-key+value" -" ht_96" +" ht_101" " i_132)))" "(let-values((()" -"(let-values(((ht_97)" +"(let-values(((ht_102)" " at-phase_8))" "(begin" "(if(variable-reference-from-unsafe?" @@ -22156,7 +22333,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_97)))" +" ht_102)))" "((letrec-values(((for-loop_158)" "(lambda(i_120)" "(begin" @@ -22165,7 +22342,7 @@ static const char *startup_source = "(let-values(((sym_38" " reqds_0)" "(hash-iterate-key+value" -" ht_97" +" ht_102" " i_120)))" "(let-values((()" "(let-values(((lst_122)" @@ -22258,32 +22435,33 @@ static const char *startup_source = " #f)" "(for-loop_158" "(hash-iterate-next" -" ht_97" +" ht_102" " i_120))" "(values))))" "(values))))))" " for-loop_158)" "(hash-iterate-first" -" ht_97))))))" +" ht_102))))))" "(if(not" " #f)" "(for-loop_157" "(hash-iterate-next" -" ht_96" +" ht_101" " i_132))" "(values))))" "(values))))))" " for-loop_157)" -"(hash-iterate-first ht_96))))" +"(hash-iterate-first" +" ht_101))))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_156(hash-iterate-next ht_95 i_131))" +"(for-loop_156(hash-iterate-next ht_100 i_131))" "(values))))" "(values))))))" " for-loop_156)" -"(hash-iterate-first ht_95))))" +"(hash-iterate-first ht_100))))" "(void))))))))))" "(define-values" "(remove-required-id!75.1)" @@ -22295,16 +22473,16 @@ static const char *startup_source = "(let-values(((phase_56) phase74_0))" "(let-values(((binding_12) unless-matches70_0))" "(let-values()" -"(let-values(((b_66)" +"(let-values(((b_69)" "(let-values(((id157_0) id_25)((phase158_0) phase_56)((temp159_0) #t))" "(resolve+shift28.1 #f temp159_0 null unsafe-undefined #f id157_0 phase158_0))))" -"(if b_66" +"(if b_69" "(let-values()" -"(let-values(((mpi_32)(intern-mpi r+p_7(module-binding-nominal-module b_66))))" +"(let-values(((mpi_32)(intern-mpi r+p_7(module-binding-nominal-module b_69))))" "(let-values(((at-mod_3)(hash-ref(requires+provides-requires r+p_7) mpi_32 #f)))" "(if at-mod_3" "(let-values()" -"(let-values(((nominal-phase_4)(module-binding-nominal-require-phase b_66)))" +"(let-values(((nominal-phase_4)(module-binding-nominal-require-phase b_69)))" "(let-values(((sym-to-reqds_2)(hash-ref at-mod_3 nominal-phase_4 #f)))" "(if sym-to-reqds_2" "(let-values()" @@ -22313,7 +22491,7 @@ static const char *startup_source = "(if(null? l_53)" "(void)" "(let-values()" -"(if(same-binding? b_66 binding_12)" +"(if(same-binding? b_69 binding_12)" "(void)" "(let-values()" "(hash-set!" @@ -22338,13 +22516,13 @@ static const char *startup_source = "(begin" "(void)" "((letrec-values(((for-loop_160)" -"(lambda(fold-var_104 lst_125)" +"(lambda(fold-var_106 lst_125)" "(begin" " 'for-loop" "(if(not(null? lst_125))" "(let-values(((r_36)(if(pair? lst_125)(car lst_125) lst_125))" "((rest_63)(if(pair? lst_125)(cdr lst_125) null)))" -"(let-values(((fold-var_105)" +"(let-values(((fold-var_107)" "(let-values(((r_37)" "(normalize-required" " r_36" @@ -22354,13 +22532,13 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_161)" -"(lambda(fold-var_106)" +"(lambda(fold-var_108)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_107)" -"(let-values(((fold-var_108)" -" fold-var_106))" +"(let-values(((fold-var_109)" +"(let-values(((fold-var_110)" +" fold-var_108))" "(if(if(eqv?" " phase_57" "(required-phase" @@ -22371,22 +22549,22 @@ static const char *startup_source = " phase_57" " phase_57)" " #f)" -" fold-var_108" -"(let-values(((fold-var_109)" -" fold-var_108))" -"(let-values(((fold-var_110)" +" fold-var_110" +"(let-values(((fold-var_111)" +" fold-var_110))" +"(let-values(((fold-var_112)" "(let-values()" "(cons" "(let-values()" " r_37)" -" fold-var_109))))" +" fold-var_111))))" "(values" -" fold-var_110)))))))" -" fold-var_107))))))" +" fold-var_112)))))))" +" fold-var_109))))))" " for-loop_161)" -" fold-var_104)))))" -"(if(not #f)(for-loop_160 fold-var_105 rest_63) fold-var_105)))" -" fold-var_104)))))" +" fold-var_106)))))" +"(if(not #f)(for-loop_160 fold-var_107 rest_63) fold-var_107)))" +" fold-var_106)))))" " for-loop_160)" " null" " lst_124)))))))" @@ -22415,7 +22593,7 @@ static const char *startup_source = "(let-values(((accum-update-nominals_1) accum-update-nominals83_0))" "(let-values(((who_12) who84_0))" "(let-values()" -"(let-values(((b_67)" +"(let-values(((b_70)" "(let-values(((id160_0) id_27)((phase161_0) phase_58)((temp162_0) #t))" "(resolve+shift28.1" " #f" @@ -22425,14 +22603,14 @@ static const char *startup_source = " #f" " id160_0" " phase161_0))))" -"(if(not b_67)" +"(if(not b_70)" "(let-values() #f)" -"(if(not(module-binding? b_67))" +"(if(not(module-binding? b_70))" " (let-values () (raise-syntax-error$1 #f \"identifier out of context\" id_27))" "(let-values()" "(let-values(((defined?_0)" -"(if b_67" -"(eq?(requires+provides-self r+p_8)(module-binding-module b_67))" +"(if b_70" +"(eq?(requires+provides-self r+p_8)(module-binding-module b_70))" " #f)))" "(if(if defined?_0" "(not" @@ -22441,7 +22619,7 @@ static const char *startup_source = "(requires+provides-phase-to-defined-syms r+p_8)" " phase_58" " '#hasheq())" -"(module-binding-sym b_67)" +"(module-binding-sym b_70)" " #f))" " #f)" "(let-values() #f)" @@ -22449,7 +22627,7 @@ static const char *startup_source = "(let-values(((define-shadowing-require?_0)" "(if(not defined?_0)(not check-not-required?_0) #f)))" "(let-values(((mpi_34)" -"(intern-mpi r+p_8(module-binding-nominal-module b_67))))" +"(intern-mpi r+p_8(module-binding-nominal-module b_70))))" "(let-values(((at-mod_4)" "(hash-ref(requires+provides-requires r+p_8) mpi_34 #f)))" "(let-values(((ok-binding_0)" @@ -22479,10 +22657,10 @@ static const char *startup_source = " id_27)))))" "(if(if(not at-mod_4)(not define-shadowing-require?_0) #f)" "(let-values() #f)" -"(if(if ok-binding_0(same-binding? b_67 ok-binding_0) #f)" +"(if(if ok-binding_0(same-binding? b_70 ok-binding_0) #f)" "(let-values()" "(begin" -"(if(same-binding-nominals? b_67 ok-binding_0)" +"(if(same-binding-nominals? b_70 ok-binding_0)" "(void)" "(let-values()" "(let-values(((update!_0)" @@ -22496,9 +22674,9 @@ static const char *startup_source = " ok-binding_0)" "((temp168_1)" "(cons" -" b_67" +" b_70" "(module-binding-extra-nominal-bindings" -" b_67))))" +" b_70))))" "(module-binding-update48.1" " unsafe-undefined" " temp168_1" @@ -22535,7 +22713,7 @@ static const char *startup_source = "(let-values(((prev-b_0)" "(hash-ref" " also-required_0" -"(module-binding-sym b_67)" +"(module-binding-sym b_70)" " #f)))" "(begin" "(if(if prev-b_0" @@ -22545,13 +22723,13 @@ static const char *startup_source = "(void))" "(hash-set!" " also-required_0" -"(module-binding-sym b_67)" +"(module-binding-sym b_70)" " ok-binding_0)" "(set-requires+provides-all-bindings-simple?! r+p_8 #f)" " #t))))" "(let-values()" "(let-values(((nominal-phase_6)" -"(module-binding-nominal-require-phase b_67)))" +"(module-binding-nominal-require-phase b_70)))" "(let-values(((sym-to-reqds_3)" "(hash-ref" " at-mod_4" @@ -22633,8 +22811,8 @@ static const char *startup_source = "(let-values()" "(hash-set!" "(requires+provides-also-required r+p_8)" -"(module-binding-sym b_67)" -" b_67)))))" +"(module-binding-sym b_70)" +" b_70)))))" "(let-values()" "(if(if remove-shadowed!?_0" "(not(null? reqds_2))" @@ -22712,23 +22890,23 @@ static const char *startup_source = "(let-values(((at-mod_5)(hash-ref(requires+provides-requires r+p_11) mpi_35 #f)))" "(if at-mod_5" "(reverse$1" -"(let-values(((ht_98)(hash-ref at-mod_5 phase_61 '#hasheq())))" +"(let-values(((ht_103)(hash-ref at-mod_5 phase_61 '#hasheq())))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_98)))" +"(let-values()(check-in-hash ht_103)))" "((letrec-values(((for-loop_164)" -"(lambda(fold-var_111 i_133)" +"(lambda(fold-var_113 i_133)" "(begin" " 'for-loop" "(if i_133" -"(let-values(((sym_43 reqds_3)(hash-iterate-key+value ht_98 i_133)))" -"(let-values(((fold-var_112)" +"(let-values(((sym_43 reqds_3)(hash-iterate-key+value ht_103 i_133)))" +"(let-values(((fold-var_114)" "(let-values(((lst_130) reqds_3))" "(begin" "(void)" "((letrec-values(((for-loop_165)" -"(lambda(fold-var_113 lst_131)" +"(lambda(fold-var_115 lst_131)" "(begin" " 'for-loop" "(if(not(null? lst_131))" @@ -22740,10 +22918,10 @@ static const char *startup_source = "(if(pair? lst_131)" "(cdr lst_131)" " null)))" -"(let-values(((fold-var_114)" -"(let-values(((fold-var_115)" -" fold-var_113))" "(let-values(((fold-var_116)" +"(let-values(((fold-var_117)" +" fold-var_115))" +"(let-values(((fold-var_118)" "(let-values()" "(cons" "(let-values()" @@ -22752,25 +22930,25 @@ static const char *startup_source = " mpi_35" " phase_61" " sym_43))" -" fold-var_115))))" +" fold-var_117))))" "(values" -" fold-var_116)))))" +" fold-var_118)))))" "(if(not #f)" "(for-loop_165" -" fold-var_114" +" fold-var_116" " rest_66)" -" fold-var_114)))" -" fold-var_113)))))" +" fold-var_116)))" +" fold-var_115)))))" " for-loop_165)" -" fold-var_111" +" fold-var_113" " lst_130)))))" "(if(not #f)" -"(for-loop_164 fold-var_112(hash-iterate-next ht_98 i_133))" -" fold-var_112)))" -" fold-var_111)))))" +"(for-loop_164 fold-var_114(hash-iterate-next ht_103 i_133))" +" fold-var_114)))" +" fold-var_113)))))" " for-loop_164)" " null" -"(hash-iterate-first ht_98)))))" +"(hash-iterate-first ht_103)))))" " #f))))))" "(define-values" "(extract-module-definitions)" @@ -22799,10 +22977,10 @@ static const char *startup_source = "(if(pair? lst_61)" "(let-values(((mod-name_13)(unsafe-car lst_61))" "((rest_67)(unsafe-cdr lst_61)))" -"(let-values(((fold-var_117)" -"(let-values(((fold-var_118) fold-var_46))" +"(let-values(((fold-var_119)" +"(let-values(((fold-var_120) fold-var_46))" "(if(eq? mod-name_13 self_9)" -" fold-var_118" +" fold-var_120" "(let-values(((phase-to-requireds_0)" "(hash-ref" " requires_2" @@ -22831,8 +23009,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_63)))" -"((letrec-values(((for-loop_85)" -"(lambda(fold-var_119" +"((letrec-values(((for-loop_86)" +"(lambda(fold-var_121" " lst_133)" "(begin" " 'for-loop" @@ -22844,8 +23022,8 @@ static const char *startup_source = "((rest_68)" "(unsafe-cdr" " lst_133)))" -"(let-values(((fold-var_120)" -"(let-values(((ht_99)" +"(let-values(((fold-var_122)" +"(let-values(((ht_104)" "(hash-ref" " phase-to-requireds_0" " phase_63" @@ -22858,9 +23036,9 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_99)))" +" ht_104)))" "((letrec-values(((for-loop_168)" -"(lambda(fold-var_121" +"(lambda(fold-var_123" " i_134)" "(begin" " 'for-loop" @@ -22868,15 +23046,15 @@ static const char *startup_source = "(let-values(((sym_44" " reqds_4)" "(hash-iterate-key+value" -" ht_99" +" ht_104" " i_134)))" -"(let-values(((fold-var_122)" +"(let-values(((fold-var_124)" "(let-values(((lst_134)" " reqds_4))" "(begin" "(void)" "((letrec-values(((for-loop_169)" -"(lambda(fold-var_123" +"(lambda(fold-var_125" " lst_135)" "(begin" " 'for-loop" @@ -22895,10 +23073,10 @@ static const char *startup_source = "(cdr" " lst_135)" " null)))" -"(let-values(((fold-var_124)" -"(let-values(((fold-var_125)" -" fold-var_123))" "(let-values(((fold-var_126)" +"(let-values(((fold-var_127)" +" fold-var_125))" +"(let-values(((fold-var_128)" "(let-values()" "(cons" "(let-values()" @@ -22907,46 +23085,46 @@ static const char *startup_source = " mod-name_13" " phase_63" " sym_44))" -" fold-var_125))))" +" fold-var_127))))" "(values" -" fold-var_126)))))" +" fold-var_128)))))" "(if(not" " #f)" "(for-loop_169" -" fold-var_124" +" fold-var_126" " rest_69)" -" fold-var_124)))" -" fold-var_123)))))" +" fold-var_126)))" +" fold-var_125)))))" " for-loop_169)" -" fold-var_121" +" fold-var_123" " lst_134)))))" "(if(not" " #f)" "(for-loop_168" -" fold-var_122" +" fold-var_124" "(hash-iterate-next" -" ht_99" +" ht_104" " i_134))" -" fold-var_122)))" -" fold-var_121)))))" +" fold-var_124)))" +" fold-var_123)))))" " for-loop_168)" -" fold-var_119" +" fold-var_121" "(hash-iterate-first" -" ht_99))))))" +" ht_104))))))" "(if(not" " #f)" -"(for-loop_85" -" fold-var_120" +"(for-loop_86" +" fold-var_122" " rest_68)" -" fold-var_120)))" -" fold-var_119)))))" -" for-loop_85)" +" fold-var_122)))" +" fold-var_121)))))" +" for-loop_86)" " fold-var_49" " lst_63)))))" " fold-var_50))))))" " for-loop_167)" -" fold-var_118)))))))" -"(if(not #f)(for-loop_166 fold-var_117 rest_67) fold-var_117)))" +" fold-var_120)))))))" +"(if(not #f)(for-loop_166 fold-var_119 rest_67) fold-var_119)))" " fold-var_46)))))" " for-loop_166)" " null" @@ -22986,8 +23164,8 @@ static const char *startup_source = " phase_64" "(lambda(at-phase_9)" "(let-values(((b/p_0)(hash-ref at-phase_9 sym_45 #f)))" -"(let-values(((b_68)(provided-as-binding b/p_0)))" -"(if(not b_68)" +"(let-values(((b_71)(provided-as-binding b/p_0)))" +"(if(not b_71)" "(let-values()" "(let-values(((plain-binding_0)" "(if(binding-free=id binding_13)" @@ -23013,7 +23191,7 @@ static const char *startup_source = "(if or-part_176 or-part_176 as-transformer?_3))" "(provided1.1 plain-binding_0 as-protected?_0 as-transformer?_3)" " plain-binding_0))))" -"(if(same-binding? b_68 binding_13)" +"(if(same-binding? b_71 binding_13)" "(let-values() at-phase_9)" "(let-values()" "(raise-syntax-error$1" @@ -23042,15 +23220,15 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_136)))" "((letrec-values(((for-loop_170)" -"(lambda(fold-var_127 lst_137)" +"(lambda(fold-var_129 lst_137)" "(begin" " 'for-loop" "(if(pair? lst_137)" "(let-values(((phase_65)(unsafe-car lst_137))" "((rest_70)(unsafe-cdr lst_137)))" -"(let-values(((fold-var_128)" -"(let-values(((fold-var_129) fold-var_127))" "(let-values(((fold-var_130)" +"(let-values(((fold-var_131) fold-var_129))" +"(let-values(((fold-var_132)" "(let-values()" "(cons" "(let-values()" @@ -23070,7 +23248,7 @@ static const char *startup_source = "(check-list" " lst_138)))" "((letrec-values(((for-loop_171)" -"(lambda(fold-var_131" +"(lambda(fold-var_133" " lst_139)" "(begin" " 'for-loop" @@ -23082,16 +23260,16 @@ static const char *startup_source = "((rest_71)" "(unsafe-cdr" " lst_139)))" -"(let-values(((fold-var_132)" -"(let-values(((fold-var_133)" -" fold-var_131))" +"(let-values(((fold-var_134)" +"(let-values(((fold-var_135)" +" fold-var_133))" "(if(eq?" " mpi_36" " old-self_0)" -" fold-var_133" -"(let-values(((fold-var_134)" -" fold-var_133))" -"(let-values(((fold-var_135)" +" fold-var_135" +"(let-values(((fold-var_136)" +" fold-var_135))" +"(let-values(((fold-var_137)" "(let-values()" "(cons" "(let-values()" @@ -23099,25 +23277,25 @@ static const char *startup_source = " mpi_36" " old-self_0" " new-self_1))" -" fold-var_134))))" +" fold-var_136))))" "(values" -" fold-var_135)))))))" +" fold-var_137)))))))" "(if(not" " #f)" "(for-loop_171" -" fold-var_132" +" fold-var_134" " rest_71)" -" fold-var_132)))" -" fold-var_131)))))" +" fold-var_134)))" +" fold-var_133)))))" " for-loop_171)" " null" " lst_138))))))" -" fold-var_129))))" -"(values fold-var_130)))))" +" fold-var_131))))" +"(values fold-var_132)))))" "(if(not #f)" -"(for-loop_170 fold-var_128 rest_70)" -" fold-var_128)))" -" fold-var_127)))))" +"(for-loop_170 fold-var_130 rest_70)" +" fold-var_130)))" +" fold-var_129)))))" " for-loop_170)" " null" " lst_136))))))))))" @@ -23134,45 +23312,45 @@ static const char *startup_source = "(shift-provides-module-path-index)" "(lambda(provides_5 from-mpi_7 to-mpi_6)" "(begin" -"(let-values(((ht_100) provides_5))" +"(let-values(((ht_105) provides_5))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_100)))" -"((letrec-values(((for-loop_90)" -"(lambda(table_133 i_135)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_105)))" +"((letrec-values(((for-loop_91)" +"(lambda(table_132 i_135)" "(begin" " 'for-loop" "(if i_135" -"(let-values(((phase_66 at-phase_10)(hash-iterate-key+value ht_100 i_135)))" -"(let-values(((table_134)" -"(let-values(((table_135) table_133))" -"(let-values(((table_136)" +"(let-values(((phase_66 at-phase_10)(hash-iterate-key+value ht_105 i_135)))" +"(let-values(((table_133)" +"(let-values(((table_134) table_132))" +"(let-values(((table_135)" "(let-values()" "(let-values(((key_53 val_45)" "(let-values()" "(values" " phase_66" -"(let-values(((ht_68) at-phase_10))" +"(let-values(((ht_71) at-phase_10))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_68)))" -"((letrec-values(((for-loop_91)" -"(lambda(table_101" -" i_88)" +"(check-in-hash ht_71)))" +"((letrec-values(((for-loop_92)" +"(lambda(table_102" +" i_89)" "(begin" " 'for-loop" -"(if i_88" +"(if i_89" "(let-values(((sym_46" " binding_14)" "(hash-iterate-key+value" -" ht_68" -" i_88)))" -"(let-values(((table_102)" +" ht_71" +" i_89)))" "(let-values(((table_103)" -" table_101))" "(let-values(((table_104)" +" table_102))" +"(let-values(((table_105)" "(let-values()" "(let-values(((key_40" " val_33)" @@ -23185,7 +23363,7 @@ static const char *startup_source = "(let-values()" " binding_14)" "(let-values()" -"((letrec-values(((loop_86)" +"((letrec-values(((loop_87)" "(lambda(binding_15)" "(begin" " 'loop" @@ -23193,7 +23371,7 @@ static const char *startup_source = " binding_15)" "(let-values()" "(provided1.1" -"(loop_86" +"(loop_87" "(provided-binding" " binding_15))" "(provided-protected?" @@ -23205,34 +23383,34 @@ static const char *startup_source = " binding_15" " from-mpi_7" " to-mpi_6)))))))" -" loop_86)" +" loop_87)" " binding_14)))))))" "(hash-set" -" table_103" +" table_104" " key_40" " val_33)))))" "(values" -" table_104)))))" +" table_105)))))" "(if(not" " #f)" -"(for-loop_91" -" table_102" +"(for-loop_92" +" table_103" "(hash-iterate-next" -" ht_68" -" i_88))" -" table_102)))" -" table_101)))))" -" for-loop_91)" +" ht_71" +" i_89))" +" table_103)))" +" table_102)))))" +" for-loop_92)" " '#hasheq()" "(hash-iterate-first" -" ht_68))))))))" -"(hash-set table_135 key_53 val_45)))))" -"(values table_136)))))" -"(if(not #f)(for-loop_90 table_134(hash-iterate-next ht_100 i_135)) table_134)))" -" table_133)))))" -" for-loop_90)" +" ht_71))))))))" +"(hash-set table_134 key_53 val_45)))))" +"(values table_135)))))" +"(if(not #f)(for-loop_91 table_133(hash-iterate-next ht_105 i_135)) table_133)))" +" table_132)))))" +" for-loop_91)" " '#hasheqv()" -"(hash-iterate-first ht_100)))))))" +"(hash-iterate-first ht_105)))))))" "(define-values" "(struct:adjust-only adjust-only1.1 adjust-only? adjust-only-syms)" "(let-values(((struct:_1 make-_1 ?_1 -ref_1 -set!_1)" @@ -23272,16 +23450,16 @@ static const char *startup_source = "(make-struct-field-accessor -ref_10 1 'syms))))" "(define-values" "(struct:adjust-rename adjust-rename4.1 adjust-rename? adjust-rename-to-id adjust-rename-from-sym)" -"(let-values(((struct:_66 make-_66 ?_66 -ref_66 -set!_66)" +"(let-values(((struct:_67 make-_67 ?_67 -ref_67 -set!_67)" "(let-values()" "(let-values()" "(make-struct-type 'adjust-rename #f 2 0 #f null(current-inspector) #f '(0 1) #f 'adjust-rename)))))" "(values" -" struct:_66" -" make-_66" -" ?_66" -"(make-struct-field-accessor -ref_66 0 'to-id)" -"(make-struct-field-accessor -ref_66 1 'from-sym))))" +" struct:_67" +" make-_67" +" ?_67" +"(make-struct-field-accessor -ref_67 0 'to-id)" +"(make-struct-field-accessor -ref_67 1 'from-sym))))" "(define-values(layers$1) '(raw phaseless path))" "(define-values" "(parse-and-perform-requires!30.1)" @@ -23322,7 +23500,7 @@ static const char *startup_source = "(let-values(((initial-require?_0) initial-require?13_0))" "(let-values(((who_13) who14_0))" "(let-values()" -"((letrec-values(((loop_87)" +"((letrec-values(((loop_88)" "(lambda(reqs_1" " top-req_0" " phase-shift_9" @@ -23422,54 +23600,54 @@ static const char *startup_source = " for-meta118_0" " phase-level119_0" " spec120_0)" -"(let-values(((s_199)" +"(let-values(((s_200)" " req_0))" "(let-values(((orig-s_4)" -" s_199))" +" s_200))" "(let-values(((for-meta118_1" " phase-level119_1" " spec120_1)" -"(let-values(((s_200)" -"(if(syntax?$1" -" s_199)" -"(syntax-e$1" -" s_199)" -" s_199)))" -"(if(pair?" -" s_200)" -"(let-values(((for-meta121_0)" "(let-values(((s_201)" -"(car" +"(if(syntax?$1" +" s_200)" +"(syntax-e$1" +" s_200)" " s_200)))" -" s_201))" +"(if(pair?" +" s_201)" +"(let-values(((for-meta121_0)" +"(let-values(((s_202)" +"(car" +" s_201)))" +" s_202))" "((phase-level122_0" " spec123_0)" -"(let-values(((s_202)" -"(cdr" -" s_200)))" "(let-values(((s_203)" -"(if(syntax?$1" -" s_202)" -"(syntax-e$1" -" s_202)" -" s_202)))" -"(if(pair?" -" s_203)" -"(let-values(((phase-level124_0)" -"(let-values(((s_204)" -"(car" -" s_203)))" -" s_204))" -"((spec125_0)" -"(let-values(((s_205)" "(cdr" +" s_201)))" +"(let-values(((s_204)" +"(if(syntax?$1" +" s_203)" +"(syntax-e$1" +" s_203)" " s_203)))" +"(if(pair?" +" s_204)" +"(let-values(((phase-level124_0)" +"(let-values(((s_205)" +"(car" +" s_204)))" +" s_205))" +"((spec125_0)" +"(let-values(((s_206)" +"(cdr" +" s_204)))" "(let-values(((s_62)" "(if(syntax?$1" -" s_205)" +" s_206)" "(syntax-e$1" -" s_205)" -" s_205)))" +" s_206)" +" s_206)))" "(let-values(((flat-s_0)" "(to-syntax-list.1" " s_62)))" @@ -23515,7 +23693,7 @@ static const char *startup_source = " \"bad phase\"" " orig-s_3" " req_0)))" -"(loop_87" +"(loop_88" " spec120_0" "(let-values(((or-part_177)" " top-req_0))" @@ -23549,29 +23727,29 @@ static const char *startup_source = " s_67))" "(let-values(((for-syntax126_1" " spec127_1)" -"(let-values(((s_206)" +"(let-values(((s_207)" "(if(syntax?$1" " s_67)" "(syntax-e$1" " s_67)" " s_67)))" "(if(pair?" -" s_206)" +" s_207)" "(let-values(((for-syntax128_0)" -"(let-values(((s_207)" -"(car" -" s_206)))" -" s_207))" -"((spec129_0)" "(let-values(((s_208)" +"(car" +" s_207)))" +" s_208))" +"((spec129_0)" +"(let-values(((s_209)" "(cdr" -" s_206)))" +" s_207)))" "(let-values(((s_38)" "(if(syntax?$1" -" s_208)" +" s_209)" "(syntax-e$1" -" s_208)" -" s_208)))" +" s_209)" +" s_209)))" "(let-values(((flat-s_1)" "(to-syntax-list.1" " s_38)))" @@ -23595,7 +23773,7 @@ static const char *startup_source = " #t" " for-syntax126_1" " spec127_1))))))" -"(loop_87" +"(loop_88" " spec127_0" "(let-values(((or-part_178)" " top-req_0))" @@ -23623,38 +23801,38 @@ static const char *startup_source = "(let-values(((ok?_4" " for-template130_0" " spec131_0)" -"(let-values(((s_209)" +"(let-values(((s_210)" " req_0))" "(let-values(((orig-s_6)" -" s_209))" +" s_210))" "(let-values(((for-template130_1" " spec131_1)" -"(let-values(((s_210)" -"(if(syntax?$1" -" s_209)" -"(syntax-e$1" -" s_209)" -" s_209)))" -"(if(pair?" -" s_210)" -"(let-values(((for-template132_0)" -"(let-values(((s_96)" -"(car" -" s_210)))" -" s_96))" -"((spec133_0)" "(let-values(((s_211)" -"(cdr" -" s_210)))" -"(let-values(((s_212)" "(if(syntax?$1" -" s_211)" +" s_210)" "(syntax-e$1" +" s_210)" +" s_210)))" +"(if(pair?" " s_211)" +"(let-values(((for-template132_0)" +"(let-values(((s_97)" +"(car" " s_211)))" +" s_97))" +"((spec133_0)" +"(let-values(((s_212)" +"(cdr" +" s_211)))" +"(let-values(((s_213)" +"(if(syntax?$1" +" s_212)" +"(syntax-e$1" +" s_212)" +" s_212)))" "(let-values(((flat-s_2)" "(to-syntax-list.1" -" s_212)))" +" s_213)))" "(if(not" " flat-s_2)" "(let-values()" @@ -23675,7 +23853,7 @@ static const char *startup_source = " #t" " for-template130_1" " spec131_1))))))" -"(loop_87" +"(loop_88" " spec131_0" "(let-values(((or-part_179)" " top-req_0))" @@ -23703,18 +23881,18 @@ static const char *startup_source = "(let-values(((ok?_5" " for-label134_0" " spec135_0)" -"(let-values(((s_213)" +"(let-values(((s_71)" " req_0))" "(let-values(((orig-s_7)" -" s_213))" +" s_71))" "(let-values(((for-label134_1" " spec135_1)" "(let-values(((s_214)" "(if(syntax?$1" -" s_213)" +" s_71)" "(syntax-e$1" -" s_213)" -" s_213)))" +" s_71)" +" s_71)))" "(if(pair?" " s_214)" "(let-values(((for-label136_0)" @@ -23755,7 +23933,7 @@ static const char *startup_source = " #t" " for-label134_1" " spec135_1))))))" -"(loop_87" +"(loop_88" " spec135_0" "(let-values(((or-part_180)" " top-req_0))" @@ -23818,15 +23996,15 @@ static const char *startup_source = "(if(pair?" " s_221)" "(let-values(((phase-level144_0)" -"(let-values(((s_106)" +"(let-values(((s_107)" "(car" " s_221)))" -" s_106))" +" s_107))" "((spec145_0)" "(let-values(((s_222)" "(cdr" " s_221)))" -"(let-values(((s_162)" +"(let-values(((s_163)" "(if(syntax?$1" " s_222)" "(syntax-e$1" @@ -23834,7 +24012,7 @@ static const char *startup_source = " s_222)))" "(let-values(((flat-s_4)" "(to-syntax-list.1" -" s_162)))" +" s_163)))" "(if(not" " flat-s_4)" "(let-values()" @@ -23877,7 +24055,7 @@ static const char *startup_source = " \"bad phase\"" " orig-s_3" " req_0)))" -"(loop_87" +"(loop_88" " spec140_0" "(let-values(((or-part_181)" " top-req_0))" @@ -23919,28 +24097,28 @@ static const char *startup_source = "(if(pair?" " s_224)" "(let-values(((only149_0)" -"(let-values(((s_117)" +"(let-values(((s_118)" "(car" " s_224)))" -" s_117))" +" s_118))" "((spec150_0" " id151_0)" -"(let-values(((s_118)" +"(let-values(((s_119)" "(cdr" " s_224)))" "(let-values(((s_225)" "(if(syntax?$1" -" s_118)" +" s_119)" "(syntax-e$1" -" s_118)" -" s_118)))" +" s_119)" +" s_119)))" "(if(pair?" " s_225)" "(let-values(((spec152_0)" -"(let-values(((s_120)" +"(let-values(((s_121)" "(car" " s_225)))" -" s_120))" +" s_121))" "((id153_0)" "(let-values(((s_226)" "(cdr" @@ -23963,7 +24141,7 @@ static const char *startup_source = " orig-s_9))" "(let-values()" "(let-values(((id_29)" -"(let-values(((lst_39)" +"(let-values(((lst_142)" " flat-s_5))" "(begin" "(if(variable-reference-from-unsafe?" @@ -23971,20 +24149,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_39)))" +" lst_142)))" "((letrec-values(((for-loop_173)" "(lambda(id_30" -" lst_142)" +" lst_143)" "(begin" " 'for-loop" "(if(pair?" -" lst_142)" +" lst_143)" "(let-values(((s_228)" "(unsafe-car" -" lst_142))" +" lst_143))" "((rest_73)" "(unsafe-cdr" -" lst_142)))" +" lst_143)))" "(let-values(((id_31)" "(let-values(((id_32)" " id_30))" @@ -24023,7 +24201,7 @@ static const char *startup_source = " id_30)))))" " for-loop_173)" " null" -" lst_39)))))" +" lst_142)))))" "(reverse$1" " id_29)))))))))" "(values" @@ -24046,7 +24224,7 @@ static const char *startup_source = " only146_1" " spec147_1" " id148_1))))))" -"(loop_87" +"(loop_88" "(list" " spec147_0)" "(let-values(((or-part_183)" @@ -24075,19 +24253,19 @@ static const char *startup_source = " prefix155_0" " id:prefix156_0" " spec157_0)" -"(let-values(((s_128)" +"(let-values(((s_129)" " req_0))" "(let-values(((orig-s_10)" -" s_128))" +" s_129))" "(let-values(((prefix155_1" " id:prefix156_1" " spec157_1)" "(let-values(((s_229)" "(if(syntax?$1" -" s_128)" +" s_129)" "(syntax-e$1" -" s_128)" -" s_128)))" +" s_129)" +" s_129)))" "(if(pair?" " s_229)" "(let-values(((prefix158_0)" @@ -24142,10 +24320,10 @@ static const char *startup_source = "(if(pair?" " s_235)" "(let-values(((spec163_0)" -"(let-values(((s_132)" +"(let-values(((s_133)" "(car" " s_235)))" -" s_132))" +" s_133))" "(()" "(let-values(((s_236)" "(cdr" @@ -24189,7 +24367,7 @@ static const char *startup_source = " prefix155_1" " id:prefix156_1" " spec157_1))))))" -"(loop_87" +"(loop_88" "(list" " spec157_0)" "(let-values(((or-part_113)" @@ -24278,7 +24456,7 @@ static const char *startup_source = " orig-s_11))" "(let-values()" "(let-values(((id_34)" -"(let-values(((lst_143)" +"(let-values(((lst_144)" " flat-s_6))" "(begin" "(if(variable-reference-from-unsafe?" @@ -24286,20 +24464,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_143)))" +" lst_144)))" "((letrec-values(((for-loop_174)" "(lambda(id_35" -" lst_144)" +" lst_145)" "(begin" " 'for-loop" "(if(pair?" -" lst_144)" +" lst_145)" "(let-values(((s_246)" "(unsafe-car" -" lst_144))" +" lst_145))" "((rest_74)" "(unsafe-cdr" -" lst_144)))" +" lst_145)))" "(let-values(((id_36)" "(let-values(((id_37)" " id_35))" @@ -24338,7 +24516,7 @@ static const char *startup_source = " id_35)))))" " for-loop_174)" " null" -" lst_143)))))" +" lst_144)))))" "(reverse$1" " id_34)))))))))" "(values" @@ -24361,7 +24539,7 @@ static const char *startup_source = " all-except164_1" " spec165_1" " id166_1))))))" -"(loop_87" +"(loop_88" "(list" " spec165_0)" "(let-values(((or-part_186)" @@ -24488,7 +24666,7 @@ static const char *startup_source = " orig-s_12))" "(let-values()" "(let-values(((id_39)" -"(let-values(((lst_145)" +"(let-values(((lst_146)" " flat-s_7))" "(begin" "(if(variable-reference-from-unsafe?" @@ -24496,20 +24674,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_145)))" +" lst_146)))" "((letrec-values(((for-loop_175)" "(lambda(id_40" -" lst_146)" +" lst_147)" "(begin" " 'for-loop" "(if(pair?" -" lst_146)" +" lst_147)" "(let-values(((s_258)" "(unsafe-car" -" lst_146))" +" lst_147))" "((rest_75)" "(unsafe-cdr" -" lst_146)))" +" lst_147)))" "(let-values(((id_41)" "(let-values(((id_42)" " id_40))" @@ -24548,7 +24726,7 @@ static const char *startup_source = " id_40)))))" " for-loop_175)" " null" -" lst_145)))))" +" lst_146)))))" "(reverse$1" " id_39)))))))))" "(values" @@ -24581,7 +24759,7 @@ static const char *startup_source = " id:prefix174_1" " spec175_1" " id176_1))))))" -"(loop_87" +"(loop_88" "(list" " spec175_0)" "(let-values(((or-part_189)" @@ -24721,15 +24899,15 @@ static const char *startup_source = " orig-s_13" " s_270))))" "(()" -"(let-values(((s_134)" +"(let-values(((s_135)" "(cdr" " s_269)))" "(let-values(((s_271)" "(if(syntax?$1" -" s_134)" +" s_135)" "(syntax-e$1" -" s_134)" -" s_134)))" +" s_135)" +" s_135)))" "(if(null?" " s_271)" "(values)" @@ -24773,7 +24951,7 @@ static const char *startup_source = " spec188_1" " id:to189_1" " id:from190_1))))))" -"(loop_87" +"(loop_88" "(list" " spec188_0)" "(let-values(((or-part_192)" @@ -24921,7 +25099,7 @@ static const char *startup_source = " for-loop_172)" " #t" " lst_140)))))))" -" loop_87)" +" loop_88)" " reqs_0" " #f" " phase-shift_8" @@ -24934,31 +25112,31 @@ static const char *startup_source = "(ids->sym-set)" "(lambda(ids_3)" "(begin" -"(let-values(((lst_147) ids_3))" +"(let-values(((lst_148) 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_148)))" "((letrec-values(((for-loop_176)" -"(lambda(table_137 lst_148)" +"(lambda(table_136 lst_149)" "(begin" " 'for-loop" -"(if(pair? lst_148)" -"(let-values(((id_44)(unsafe-car lst_148))((rest_76)(unsafe-cdr lst_148)))" -"(let-values(((table_138)" -"(let-values(((table_139) table_137))" -"(let-values(((table_140)" +"(if(pair? lst_149)" +"(let-values(((id_44)(unsafe-car lst_149))((rest_76)(unsafe-cdr lst_149)))" +"(let-values(((table_137)" +"(let-values(((table_138) table_136))" +"(let-values(((table_139)" "(let-values()" "(let-values(((key_54 val_46)" "(let-values()" "(values" "(let-values()(syntax-e$1 id_44))" " #t))))" -"(hash-set table_139 key_54 val_46)))))" -"(values table_140)))))" -"(if(not #f)(for-loop_176 table_138 rest_76) table_138)))" -" table_137)))))" +"(hash-set table_138 key_54 val_46)))))" +"(values table_139)))))" +"(if(not #f)(for-loop_176 table_137 rest_76) table_137)))" +" table_136)))))" " for-loop_176)" " '#hash()" -" lst_147))))))" +" lst_148))))))" "(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)" @@ -25490,7 +25668,7 @@ static const char *startup_source = "(if update-nominals-box_0" "(let-values()" "(begin" -"(let-values(((lst_149)" +"(let-values(((lst_150)" "(unbox" " update-nominals-box_0)))" "(begin" @@ -25499,19 +25677,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_149)))" +" lst_150)))" "((letrec-values(((for-loop_177)" -"(lambda(lst_150)" +"(lambda(lst_151)" "(begin" " 'for-loop" "(if(pair?" -" lst_150)" +" lst_151)" "(let-values(((update!_1)" "(unsafe-car" -" lst_150))" +" lst_151))" "((rest_77)" "(unsafe-cdr" -" lst_150)))" +" lst_151)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25528,7 +25706,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_177)" -" lst_149)))" +" lst_150)))" "(void)))" "(void))" "(values))))" @@ -25558,7 +25736,7 @@ static const char *startup_source = " #f)" "(let-values()" "(begin" -"(let-values(((ht_101)" +"(let-values(((ht_106)" " need-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -25566,7 +25744,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-immutable-hash-keys" -" ht_101)))" +" ht_106)))" "((letrec-values(((for-loop_178)" "(lambda(i_136)" "(begin" @@ -25574,7 +25752,7 @@ static const char *startup_source = "(if i_136" "(let-values(((sym_48)" "(unsafe-immutable-hash-iterate-key" -" ht_101" +" ht_106" " i_136)))" "(let-values((()" "(let-values()" @@ -25599,13 +25777,13 @@ static const char *startup_source = " #f)" "(for-loop_178" "(unsafe-immutable-hash-iterate-next" -" ht_101" +" ht_106" " i_136))" "(values))))" "(values))))))" " for-loop_178)" "(unsafe-immutable-hash-iterate-first" -" ht_101))))" +" ht_106))))" "(void)))" "(void))))))))))))))))))))))))))))))))))))))))))" "(define-values" @@ -25647,11 +25825,11 @@ static const char *startup_source = "(let-values()" "(let-values(((self_12)(module-self m_14)))" "(begin" -"(let-values(((ht_102)(module-provides m_14)))" +"(let-values(((ht_107)(module-provides m_14)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_102)))" +"(let-values()(check-in-hash ht_107)))" "((letrec-values(((for-loop_179)" "(lambda(i_137)" "(begin" @@ -25659,7 +25837,7 @@ static const char *startup_source = "(if i_137" "(let-values(((provide-phase-level_5 provides_7)" "(hash-iterate-key+value" -" ht_102" +" ht_107" " i_137)))" "(let-values((()" "(let-values()" @@ -25693,7 +25871,7 @@ static const char *startup_source = "(if filter_0" "(let-values()" "(begin" -"(let-values(((lst_151)" +"(let-values(((lst_152)" "(let-values(((or-part_201)" " only-syms_0))" "(if or-part_201" @@ -25706,19 +25884,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_151)))" +" lst_152)))" "((letrec-values(((for-loop_180)" -"(lambda(lst_152)" +"(lambda(lst_153)" "(begin" " 'for-loop" "(if(pair?" -" lst_152)" +" lst_153)" "(let-values(((sym_49)" "(unsafe-car" -" lst_152))" +" lst_153))" "((rest_78)" "(unsafe-cdr" -" lst_152)))" +" lst_153)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25732,7 +25910,7 @@ static const char *startup_source = " #f)))" "(if binding/p_4" "(let-values()" -"(let-values(((b_69)" +"(let-values(((b_72)" "(let-values(((binding/p293_0)" " binding/p_4)" "((sym294_0)" @@ -25754,7 +25932,7 @@ static const char *startup_source = " sym294_0))))" "(let-values(((sym_50)" "(filter_0" -" b_69" +" b_72" "(provided-as-transformer?" " binding/p_4))))" "(if(if sym_50" @@ -25767,7 +25945,7 @@ static const char *startup_source = " in-stx_2" " sym_50))" "((b300_0)" -" b_69)" +" b_72)" "((phase301_0)" " phase_67))" "(add-binding!17.1" @@ -25787,7 +25965,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_180)" -" lst_151)))" +" lst_152)))" "(void)))" "(void))" "(if can-bulk?_0" @@ -25847,11 +26025,11 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_179" -"(hash-iterate-next ht_102 i_137))" +"(hash-iterate-next ht_107 i_137))" "(values))))" "(values))))))" " for-loop_179)" -"(hash-iterate-first ht_102))))" +"(hash-iterate-first ht_107))))" "(void)))))))))))))))))))))))" "(define-values" "(require-spec-shift-for-syntax)" @@ -25859,7 +26037,7 @@ static const char *startup_source = "(begin" "(let-values(((rebuild-req_0)" "(lambda(req_2 new-req_0)(begin 'rebuild-req(datum->syntax$1 req_2 new-req_0 req_2 req_2)))))" -"(letrec-values(((loop_88)" +"(letrec-values(((loop_89)" "(lambda(shifted?_0)" "(begin" " 'loop" @@ -25946,7 +26124,7 @@ static const char *startup_source = " (let-values () (raise-syntax-error$1 #f \"bad phase\" req_3)))" "(rebuild-req_0" " req_3" -"(list* for-meta307_0(phase+ p_36 1)(map2(loop_88 #t) spec309_0)))))))" +"(list* for-meta307_0(phase+ p_36 1)(map2(loop_89 #t) spec309_0)))))))" "(if(equal? tmp_25 'for-syntax)" "(let-values()" "(let-values(((ok?_13 for-syntax315_0 spec316_0)" @@ -25988,7 +26166,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_17)))))" "(values #t for-syntax315_1 spec316_1))))))" -"(rebuild-req_0 req_3(list* 'for-meta 2(map2(loop_88 #t) spec316_0)))))" +"(rebuild-req_0 req_3(list* 'for-meta 2(map2(loop_89 #t) spec316_0)))))" "(if(equal? tmp_25 'for-template)" "(let-values()" "(let-values(((ok?_14 for-template319_0 spec320_0)" @@ -26030,7 +26208,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_18)))))" "(values #t for-template319_1 spec320_1))))))" -"(rebuild-req_0 req_3(list* 'for-meta 0(map2(loop_88 #t) spec320_0)))))" +"(rebuild-req_0 req_3(list* 'for-meta 0(map2(loop_89 #t) spec320_0)))))" "(if(equal? tmp_25 'for-label)" "(let-values()" "(let-values(((ok?_15 for-label323_0 spec324_0)" @@ -26076,7 +26254,7 @@ static const char *startup_source = "(values #t for-label323_1 spec324_1))))))" "(rebuild-req_0" " req_3" -"(list* for-label323_0(map2(loop_88 #t) spec324_0)))))" +"(list* for-label323_0(map2(loop_89 #t) spec324_0)))))" "(if(equal? tmp_25 'just-meta)" "(let-values()" "(let-values(((ok?_16 just-meta327_0 phase-level328_0 spec329_0)" @@ -26159,12 +26337,12 @@ static const char *startup_source = "(list*" " just-meta327_0" " phase-level328_0" -"(map2(loop_88 #f) spec329_0)))))" +"(map2(loop_89 #f) spec329_0)))))" "(let-values()" "(if shifted?_0" " req_3" "(datum->syntax$1 #f(list 'for-syntax req_3))))))))))))))))" -"((loop_88 #f) req_1))))))" +"((loop_89 #f) req_1))))))" "(define-values" "(copy-namespace-value)" "(lambda(m-ns_11 adjusted-sym_1 binding_17 phase-level_16 phase-shift_12 as-constant?_1)" @@ -26208,7 +26386,7 @@ static const char *startup_source = " top-level-bind!-id" "(lambda(id_19 mpi_39 orig-phase_0 phase-shift_13 ns_51 sym_51 trans?_0 trans-val_0)" "(let-values(((phase_68)(phase+ orig-phase_0 phase-shift_13)))" -"(let-values(((b_70)" +"(let-values(((b_73)" "(let-values(((mpi4_1) mpi_39)" "((phase5_1) phase_68)" "((sym6_1) sym_51)" @@ -26227,7 +26405,7 @@ static const char *startup_source = " phase5_1" " sym6_1))))" "(begin" -"(let-values(((id1_3) id_19)((b2_4) b_70)((phase3_2) phase_68))" +"(let-values(((id1_3) id_19)((b2_4) b_73)((phase3_2) phase_68))" "(add-binding!17.1 #f #f id1_3 b2_4 phase3_2))" "(if trans?_0" "(let-values()(if trans-val_0(let-values()(maybe-install-free=id! trans-val_0 id_19 phase_68))(void)))" @@ -26418,35 +26596,35 @@ static const char *startup_source = " header-syntax-literals" " set-header-binding-syms-in-order!" " set-header-require-vars-in-order!)" -"(let-values(((struct:_67 make-_67 ?_67 -ref_67 -set!_67)" +"(let-values(((struct:_68 make-_68 ?_68 -ref_68 -set!_68)" "(let-values()" "(let-values()" "(make-struct-type 'header #f 8 0 #f null(current-inspector) #f '(0 1 3 4 6 7) #f 'header)))))" "(values" -" struct:_67" -" make-_67" -" ?_67" -"(make-struct-field-accessor -ref_67 0 'module-path-indexes)" -"(make-struct-field-accessor -ref_67 1 'binding-sym-to-define-sym)" -"(make-struct-field-accessor -ref_67 2 'binding-syms-in-order)" -"(make-struct-field-accessor -ref_67 3 'require-var-to-import-sym)" -"(make-struct-field-accessor -ref_67 4 'import-sym-to-extra-inspectors)" -"(make-struct-field-accessor -ref_67 5 'require-vars-in-order)" -"(make-struct-field-accessor -ref_67 6 'define-and-import-syms)" -"(make-struct-field-accessor -ref_67 7 'syntax-literals)" -"(make-struct-field-mutator -set!_67 2 'binding-syms-in-order)" -"(make-struct-field-mutator -set!_67 5 'require-vars-in-order))))" -"(define-values" -"(struct:variable-use variable-use3.1 variable-use? variable-use-module-use variable-use-sym)" -"(let-values(((struct:_68 make-_68 ?_68 -ref_68 -set!_68)" -"(let-values()" -"(let-values()(make-struct-type 'variable-use #f 2 0 #f null #f #f '(0 1) #f 'variable-use)))))" -"(values" " struct:_68" " make-_68" " ?_68" -"(make-struct-field-accessor -ref_68 0 'module-use)" -"(make-struct-field-accessor -ref_68 1 'sym))))" +"(make-struct-field-accessor -ref_68 0 'module-path-indexes)" +"(make-struct-field-accessor -ref_68 1 'binding-sym-to-define-sym)" +"(make-struct-field-accessor -ref_68 2 'binding-syms-in-order)" +"(make-struct-field-accessor -ref_68 3 'require-var-to-import-sym)" +"(make-struct-field-accessor -ref_68 4 'import-sym-to-extra-inspectors)" +"(make-struct-field-accessor -ref_68 5 'require-vars-in-order)" +"(make-struct-field-accessor -ref_68 6 'define-and-import-syms)" +"(make-struct-field-accessor -ref_68 7 'syntax-literals)" +"(make-struct-field-mutator -set!_68 2 'binding-syms-in-order)" +"(make-struct-field-mutator -set!_68 5 'require-vars-in-order))))" +"(define-values" +"(struct:variable-use variable-use3.1 variable-use? variable-use-module-use variable-use-sym)" +"(let-values(((struct:_69 make-_69 ?_69 -ref_69 -set!_69)" +"(let-values()" +"(let-values()(make-struct-type 'variable-use #f 2 0 #f null #f #f '(0 1) #f 'variable-use)))))" +"(values" +" struct:_69" +" make-_69" +" ?_69" +"(make-struct-field-accessor -ref_69 0 'module-use)" +"(make-struct-field-accessor -ref_69 1 'sym))))" "(define-values(make-syntax-literals)(lambda()(begin(syntax-literals1.1 null 0))))" "(define-values" "(make-header)" @@ -26630,13 +26808,13 @@ static const char *startup_source = "(lambda(sym_52 header_0)" "(begin" "(if(symbol-conflicts? sym_52 header_0)" -"((letrec-values(((loop_89)" +"((letrec-values(((loop_90)" "(lambda(pos_89)" "(begin" " 'loop" " (let-values (((new-sym_0) (string->symbol (format \"~a/~a\" pos_89 sym_52))))" -"(if(symbol-conflicts? new-sym_0 header_0)(loop_89(add1 pos_89)) new-sym_0))))))" -" loop_89)" +"(if(symbol-conflicts? new-sym_0 header_0)(loop_90(add1 pos_89)) new-sym_0))))))" +" loop_90)" " 1)" " sym_52))))" "(define-values" @@ -26682,7 +26860,7 @@ static const char *startup_source = "(hash-update!" " extra-inspectors_0" " var-sym_0" -"(lambda(s_164)(set-add s_164 extra-inspector_4))" +"(lambda(s_165)(set-add s_165 extra-inspector_4))" " '#hasheq())))" "(void))" " var-sym_0)))))))))))))))" @@ -26698,29 +26876,29 @@ static const char *startup_source = "(lambda(header_5 phase_37 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_154)(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_154)))" "((letrec-values(((for-loop_182)" -"(lambda(ht_103 link-mod-uses_1 lst_154)" +"(lambda(ht_108 link-mod-uses_1 lst_155)" "(begin" " 'for-loop" -"(if(pair? lst_154)" -"(let-values(((vu_0)(unsafe-car lst_154))" -"((rest_79)(unsafe-cdr lst_154)))" -"(let-values(((ht_104 link-mod-uses_2)" -"(let-values(((ht_105) ht_103)" +"(if(pair? lst_155)" +"(let-values(((vu_0)(unsafe-car lst_155))" +"((rest_79)(unsafe-cdr lst_155)))" +"(let-values(((ht_109 link-mod-uses_2)" +"(let-values(((ht_110) ht_108)" "((link-mod-uses_3) link-mod-uses_1))" -"(let-values(((ht_106 link-mod-uses_4)" +"(let-values(((ht_111 link-mod-uses_4)" "(let-values()" "(let-values(((mu_2)" "(variable-use-module-use" " vu_0)))" "(if(let-values(((or-part_205)" "(hash-ref" -" ht_105" +" ht_110" " mu_2" " #f)))" "(if or-part_205" @@ -26736,19 +26914,19 @@ static const char *startup_source = "(top-level-module-path-index?" "(module-use-module" " mu_2))))))" -"(values ht_105 link-mod-uses_3)" +"(values ht_110 link-mod-uses_3)" "(values" -"(hash-set ht_105 mu_2 #t)" +"(hash-set ht_110 mu_2 #t)" "(cons mu_2 link-mod-uses_3)))))))" -"(values ht_106 link-mod-uses_4)))))" +"(values ht_111 link-mod-uses_4)))))" "(if(not #f)" -"(for-loop_182 ht_104 link-mod-uses_2 rest_79)" -"(values ht_104 link-mod-uses_2))))" -"(values ht_103 link-mod-uses_1))))))" +"(for-loop_182 ht_109 link-mod-uses_2 rest_79)" +"(values ht_109 link-mod-uses_2))))" +"(values ht_108 link-mod-uses_1))))))" " for-loop_182)" " '#hash()" " null" -" lst_153)))))" +" lst_154)))))" "(values" " link-mod-uses_0" "(reverse$1" @@ -26756,14 +26934,14 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_33)))" "((letrec-values(((for-loop_183)" -"(lambda(fold-var_136 lst_108)" +"(lambda(fold-var_138 lst_108)" "(begin" " 'for-loop" "(if(pair? lst_108)" "(let-values(((mu_3)(unsafe-car lst_108))((rest_80)(unsafe-cdr lst_108)))" -"(let-values(((fold-var_137)" -"(let-values(((fold-var_138) fold-var_136))" "(let-values(((fold-var_139)" +"(let-values(((fold-var_140) fold-var_138))" +"(let-values(((fold-var_141)" "(let-values()" "(cons" "(let-values()" @@ -26776,7 +26954,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_52)))" -"((letrec-values(((for-loop_75)" +"((letrec-values(((for-loop_74)" "(lambda(fold-var_39" " lst_53)" "(begin" @@ -26797,7 +26975,7 @@ static const char *startup_source = " vu_1))" "(let-values(((fold-var_42)" " fold-var_41))" -"(let-values(((fold-var_140)" +"(let-values(((fold-var_142)" "(let-values()" "(cons" "(let-values()" @@ -26818,37 +26996,37 @@ static const char *startup_source = " var-sym_2)))))" " fold-var_42))))" "(values" -" fold-var_140)))" +" fold-var_142)))" " fold-var_41))))" "(if(not #f)" -"(for-loop_75" +"(for-loop_74" " fold-var_40" " rest_23)" " fold-var_40)))" " fold-var_39)))))" -" for-loop_75)" +" for-loop_74)" " null" " lst_52)))))" -" fold-var_138))))" -"(values fold-var_139)))))" -"(if(not #f)(for-loop_183 fold-var_137 rest_80) fold-var_137)))" -" fold-var_136)))))" +" fold-var_140))))" +"(values fold-var_141)))))" +"(if(not #f)(for-loop_183 fold-var_139 rest_80) fold-var_139)))" +" fold-var_138)))))" " for-loop_183)" " null" " lst_33))))" "(reverse$1" -"(let-values(((lst_155) link-mod-uses_0))" +"(let-values(((lst_156) link-mod-uses_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_155)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_156)))" "((letrec-values(((for-loop_184)" -"(lambda(fold-var_141 lst_156)" +"(lambda(fold-var_143 lst_157)" "(begin" " 'for-loop" -"(if(pair? lst_156)" -"(let-values(((mu_4)(unsafe-car lst_156))((rest_81)(unsafe-cdr lst_156)))" -"(let-values(((fold-var_142)" -"(let-values(((fold-var_143) fold-var_141))" +"(if(pair? lst_157)" +"(let-values(((mu_4)(unsafe-car lst_157))((rest_81)(unsafe-cdr lst_157)))" "(let-values(((fold-var_144)" +"(let-values(((fold-var_145) fold-var_143))" +"(let-values(((fold-var_146)" "(let-values()" "(cons" "(let-values()" @@ -26863,7 +27041,7 @@ static const char *startup_source = "(let-values()" "(check-list lst_55)))" "((letrec-values(((for-loop_185)" -"(lambda(table_141" +"(lambda(table_140" " lst_113)" "(begin" " 'for-loop" @@ -26875,9 +27053,9 @@ static const char *startup_source = "((rest_56)" "(unsafe-cdr" " lst_113)))" +"(let-values(((table_141)" "(let-values(((table_142)" -"(let-values(((table_34)" -" table_141))" +" table_140))" "(if(equal?" " mu_4" "(variable-use-module-use" @@ -26908,17 +27086,17 @@ static const char *startup_source = "(begin" " 'for-loop" "(let-values()" +"(let-values(((table_33)" "(let-values(((table_144)" -"(let-values(((table_145)" " table_143))" "(if(let-values(((or-part_207)" " extra-inspectors_1))" "(if or-part_207" " or-part_207" " cross-linklet-inlining?_0))" +"(let-values(((table_145)" +" table_144))" "(let-values(((table_146)" -" table_145))" -"(let-values(((table_147)" "(let-values()" "(let-values(((key_56" " val_48)" @@ -26927,51 +27105,51 @@ static const char *startup_source = " var-sym_3" " extra-inspectors_1))))" "(hash-set" -" table_146" +" table_145" " key_56" " val_48)))))" "(values" -" table_147)))" -" table_145))))" -" table_144))))))" +" table_146)))" +" table_144))))" +" table_33))))))" " for-loop_187)" " table_31)))))" " table_32))))))" " for-loop_186)" -" table_34)))" -" table_34))))" +" table_142)))" +" table_142))))" "(if(not" " #f)" "(for-loop_185" -" table_142" +" table_141" " rest_56)" -" table_142)))" -" table_141)))))" +" table_141)))" +" table_140)))))" " for-loop_185)" " '#hash()" " lst_55)))))" "(if(hash-count extra-inspectorss_0)" " extra-inspectorss_0" " #f)))" -" fold-var_143))))" -"(values fold-var_144)))))" -"(if(not #f)(for-loop_184 fold-var_142 rest_81) fold-var_142)))" -" fold-var_141)))))" +" fold-var_145))))" +"(values fold-var_146)))))" +"(if(not #f)(for-loop_184 fold-var_144 rest_81) fold-var_144)))" +" fold-var_143)))))" " for-loop_184)" " null" -" lst_155))))" +" lst_156))))" "(reverse$1" -"(let-values(((lst_157)(header-require-vars-in-order header_5)))" +"(let-values(((lst_158)(header-require-vars-in-order header_5)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_157)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_158)))" "((letrec-values(((for-loop_188)" -"(lambda(fold-var_145 lst_158)" +"(lambda(fold-var_147 lst_159)" "(begin" " 'for-loop" -"(if(pair? lst_158)" -"(let-values(((vu_3)(unsafe-car lst_158))((rest_82)(unsafe-cdr lst_158)))" -"(let-values(((fold-var_146)" -"(let-values(((fold-var_147) fold-var_145))" +"(if(pair? lst_159)" +"(let-values(((vu_3)(unsafe-car lst_159))((rest_82)(unsafe-cdr lst_159)))" +"(let-values(((fold-var_148)" +"(let-values(((fold-var_149) fold-var_147))" "(if(let-values(((mod_2)" "(module-use-module" "(variable-use-module-use vu_3))))" @@ -26980,8 +27158,8 @@ static const char *startup_source = "(if or-part_208" " or-part_208" "(top-level-module-path-index? mod_2))))" -"(let-values(((fold-var_148) fold-var_147))" -"(let-values(((fold-var_149)" +"(let-values(((fold-var_150) fold-var_149))" +"(let-values(((fold-var_151)" "(let-values()" "(cons" "(let-values()" @@ -26995,14 +27173,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_148))))" -"(values fold-var_149)))" -" fold-var_147))))" -"(if(not #f)(for-loop_188 fold-var_146 rest_82) fold-var_146)))" -" fold-var_145)))))" +" fold-var_150))))" +"(values fold-var_151)))" +" fold-var_149))))" +"(if(not #f)(for-loop_188 fold-var_148 rest_82) fold-var_148)))" +" fold-var_147)))))" " for-loop_188)" " null" -" lst_157)))))))))" +" lst_158)))))))))" "(define-values" "(instance-imports)" "(list ns-id phase-shift-id self-id inspector-id bulk-binding-registry-id set-transformer!-id))" @@ -27127,36 +27305,36 @@ static const char *startup_source = "(correlated->list)" "(lambda(e_29)" "(begin" -"((letrec-values(((loop_90)" +"((letrec-values(((loop_91)" "(lambda(e_30)" "(begin" " 'loop" "(if(list? e_30)" "(let-values() e_30)" "(if(pair? e_30)" -"(let-values()(cons(car e_30)(loop_90(cdr e_30))))" +"(let-values()(cons(car e_30)(loop_91(cdr e_30))))" "(if(null? e_30)" "(let-values() null)" "(if(1/syntax? e_30)" -"(let-values()(loop_90(syntax-e$2 e_30)))" +"(let-values()(loop_91(syntax-e$2 e_30)))" " (let-values () (error 'correlated->list \"not a list\"))))))))))" -" loop_90)" +" loop_91)" " e_29))))" "(define-values" "(correlated-property)" "(case-lambda" "((e_31 k_31)(begin(syntax-property$2 e_31 k_31)))" -"((e_32 k_32 v_164)(syntax-property$2 e_32 k_32 v_164))))" +"((e_32 k_32 v_162)(syntax-property$2 e_32 k_32 v_162))))" "(define-values" "(to-syntax-list.1$1)" -"(lambda(s_108)" +"(lambda(s_109)" "(begin" " 'to-syntax-list" -"(if(list? s_108)" -"(let-values() s_108)" -"(if(pair? s_108)" -"(let-values()(let-values(((r_39)(to-syntax-list.1$1(cdr s_108))))(if r_39(cons(car s_108) r_39) #f)))" -"(if(1/syntax? s_108)(let-values()(to-syntax-list.1$1(syntax-e$2 s_108)))(let-values() #f)))))))" +"(if(list? s_109)" +"(let-values() s_109)" +"(if(pair? s_109)" +"(let-values()(let-values(((r_39)(to-syntax-list.1$1(cdr s_109))))(if r_39(cons(car s_109) r_39) #f)))" +"(if(1/syntax? s_109)(let-values()(to-syntax-list.1$1(syntax-e$2 s_109)))(let-values() #f)))))))" "(define-values" "(srcloc->vector)" "(lambda(s_80)" @@ -27224,8 +27402,8 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_86)))" -"((letrec-values(((for-loop_104)" -"(lambda(fold-var_67 lst_87)" +"((letrec-values(((for-loop_105)" +"(lambda(fold-var_69 lst_87)" "(begin" " 'for-loop" "(if(pair? lst_87)" @@ -27233,9 +27411,9 @@ static const char *startup_source = "(unsafe-car lst_87))" "((rest_41)" "(unsafe-cdr lst_87)))" -"(let-values(((fold-var_68)" +"(let-values(((fold-var_70)" "(let-values(((fold-var_27)" -" fold-var_67))" +" fold-var_69))" "(let-values(((fold-var_28)" "(let-values()" "(cons" @@ -27250,10 +27428,10 @@ static const char *startup_source = "(values" " fold-var_28)))))" "(if(not #f)" -"(for-loop_104 fold-var_68 rest_41)" -" fold-var_68)))" -" fold-var_67)))))" -" for-loop_104)" +"(for-loop_105 fold-var_70 rest_41)" +" fold-var_70)))" +" fold-var_69)))))" +" for-loop_105)" " null" " lst_86))))))" " name_40" @@ -27273,17 +27451,17 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_88)))" "((letrec-values(((for-loop_189)" -"(lambda(fold-var_150 lst_159)" +"(lambda(fold-var_152 lst_160)" "(begin" " 'for-loop" -"(if(pair? lst_159)" -"(let-values(((r_40)(unsafe-car lst_159))" +"(if(pair? lst_160)" +"(let-values(((r_40)(unsafe-car lst_160))" "((rest_83)" -"(unsafe-cdr lst_159)))" +"(unsafe-cdr lst_160)))" "(let-values(((fold-var_33)" "(let-values(((fold-var_34)" -" fold-var_150))" -"(let-values(((fold-var_151)" +" fold-var_152))" +"(let-values(((fold-var_153)" "(let-values()" "(cons" "(let-values()" @@ -27293,11 +27471,11 @@ static const char *startup_source = " #t))" " fold-var_34))))" "(values" -" fold-var_151)))))" +" fold-var_153)))))" "(if(not #f)" "(for-loop_189 fold-var_33 rest_83)" " fold-var_33)))" -" fold-var_150)))))" +" fold-var_152)))))" " for-loop_189)" " null" " lst_88))))))))" @@ -27344,7 +27522,7 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_23)))" "((letrec-values(((for-loop_190)" -"(lambda(fold-var_152 lst_79)" +"(lambda(fold-var_154 lst_79)" "(begin" " 'for-loop" "(if(pair? lst_79)" @@ -27352,10 +27530,10 @@ static const char *startup_source = "(unsafe-car lst_79))" "((rest_84)" "(unsafe-cdr lst_79)))" -"(let-values(((fold-var_153)" -"(let-values(((fold-var_91)" -" fold-var_152))" -"(let-values(((fold-var_92)" +"(let-values(((fold-var_155)" +"(let-values(((fold-var_93)" +" fold-var_154))" +"(let-values(((fold-var_94)" "(let-values()" "(cons" "(let-values()" @@ -27363,15 +27541,15 @@ static const char *startup_source = " e_33" " #f" " #f))" -" fold-var_91))))" +" fold-var_93))))" "(values" -" fold-var_92)))))" +" fold-var_94)))))" "(if(not #f)" "(for-loop_190" -" fold-var_153" +" fold-var_155" " rest_84)" -" fold-var_153)))" -" fold-var_152)))))" +" fold-var_155)))" +" fold-var_154)))))" " for-loop_190)" " null" " lst_23)))))))" @@ -27477,23 +27655,23 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_160) es_0)((start_33) 0))" +"(let-values(((lst_161) es_0)((start_33) 0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_160)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_161)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_33)))" "((letrec-values(((for-loop_191)" -"(lambda(fold-var_154 lst_161 pos_91)" +"(lambda(fold-var_156 lst_162 pos_91)" "(begin" " 'for-loop" -"(if(if(pair? lst_161) #t #f)" -"(let-values(((e_4)(unsafe-car lst_161))" -"((rest_85)(unsafe-cdr lst_161))" +"(if(if(pair? lst_162) #t #f)" +"(let-values(((e_4)(unsafe-car lst_162))" +"((rest_85)(unsafe-cdr lst_162))" "((i_138) pos_91))" -"(let-values(((fold-var_155)" -"(let-values(((fold-var_156) fold-var_154))" "(let-values(((fold-var_157)" +"(let-values(((fold-var_158) fold-var_156))" +"(let-values(((fold-var_159)" "(let-values()" "(cons" "(let-values()" @@ -27504,27 +27682,27 @@ static const char *startup_source = " cctx_7" "(if used?_0 name_43 #f)" "(if used?_0 result-used?_3 #f))))" -" fold-var_156))))" -"(values fold-var_157)))))" -"(if(not #f)(for-loop_191 fold-var_155 rest_85(+ pos_91 1)) fold-var_155)))" -" fold-var_154)))))" +" fold-var_158))))" +"(values fold-var_159)))))" +"(if(not #f)(for-loop_191 fold-var_157 rest_85(+ pos_91 1)) fold-var_157)))" +" fold-var_156)))))" " for-loop_191)" " null" -" lst_160" +" lst_161" " start_33)))))))))" "(define-values" "(add-lambda-properties)" "(lambda(s_305 inferred-name_0 orig-s_21)" "(begin" "(letrec-values(((simplify-name_0)" -"(lambda(v_165)" +"(lambda(v_163)" "(begin" " 'simplify-name" -"(if(pair? v_165)" +"(if(pair? v_163)" "(let-values()" -"(let-values(((n1_0)(simplify-name_0(car v_165))))" -"(let-values(((n2_0)(simplify-name_0(cdr v_165))))(if(eq? n1_0 n2_0) n1_0 v_165))))" -"(let-values() v_165))))))" +"(let-values(((n1_0)(simplify-name_0(car v_163))))" +"(let-values(((n2_0)(simplify-name_0(cdr v_163))))(if(eq? n1_0 n2_0) n1_0 v_163))))" +"(let-values() v_163))))))" "(let-values(((name_44)" "(let-values(((or-part_209)" "(let-values(((v_54)" @@ -27565,37 +27743,37 @@ static const char *startup_source = "(list" "(if rec?_0 'letrec-values 'let-values)" "(reverse$1" -"(let-values(((lst_162)(parsed-let_-values-clauses p_42))" -"((lst_163)(parsed-let_-values-idss p_42)))" +"(let-values(((lst_163)(parsed-let_-values-clauses p_42))" +"((lst_164)(parsed-let_-values-idss p_42)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_162)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_163)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_164)))" "((letrec-values(((for-loop_192)" -"(lambda(fold-var_158 lst_164 lst_165)" +"(lambda(fold-var_160 lst_165 lst_166)" "(begin" " 'for-loop" -"(if(if(pair? lst_164)(pair? lst_165) #f)" -"(let-values(((clause_1)(unsafe-car lst_164))" -"((rest_86)(unsafe-cdr lst_164))" -"((ids_4)(unsafe-car lst_165))" -"((rest_87)(unsafe-cdr lst_165)))" -"(let-values(((fold-var_159)" -"(let-values(((fold-var_160) fold-var_158))" +"(if(if(pair? lst_165)(pair? lst_166) #f)" +"(let-values(((clause_1)(unsafe-car lst_165))" +"((rest_86)(unsafe-cdr lst_165))" +"((ids_4)(unsafe-car lst_166))" +"((rest_87)(unsafe-cdr lst_166)))" "(let-values(((fold-var_161)" +"(let-values(((fold-var_162) fold-var_160))" +"(let-values(((fold-var_163)" "(let-values()" "(cons" "(let-values()" "(list" "(if rec?_0" "(reverse$1" -"(let-values(((lst_166)" +"(let-values(((lst_167)" "(car" " clause_1))" -"((lst_167)" +"((lst_168)" " ids_4))" "(begin" "(if(variable-reference-from-unsafe?" @@ -27603,40 +27781,40 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_166)))" +" lst_167)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_167)))" +" lst_168)))" "((letrec-values(((for-loop_78)" -"(lambda(fold-var_162" -" lst_168" -" lst_169)" +"(lambda(fold-var_164" +" lst_169" +" lst_170)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_168)" -"(pair?" " lst_169)" +"(pair?" +" lst_170)" " #f)" "(let-values(((sym_55)" "(unsafe-car" -" lst_168))" +" lst_169))" "((rest_88)" "(unsafe-cdr" -" lst_168))" +" lst_169))" "((id_46)" "(unsafe-car" -" lst_169))" +" lst_170))" "((rest_89)" "(unsafe-cdr" -" lst_169)))" +" lst_170)))" "(let-values(((fold-var_2)" "(let-values(((fold-var_3)" -" fold-var_162))" -"(let-values(((fold-var_94)" +" fold-var_164))" +"(let-values(((fold-var_96)" "(let-values()" "(cons" "(let-values()" @@ -27645,7 +27823,7 @@ static const char *startup_source = " id_46))" " fold-var_3))))" "(values" -" fold-var_94)))))" +" fold-var_96)))))" "(if(not" " #f)" "(for-loop_78" @@ -27653,11 +27831,11 @@ static const char *startup_source = " rest_88" " rest_89)" " fold-var_2)))" -" fold-var_162)))))" +" fold-var_164)))))" " for-loop_78)" " null" -" lst_166" -" lst_167))))" +" lst_167" +" lst_168))))" "(car clause_1))" "(compile$2" "(cadr clause_1)" @@ -27665,16 +27843,16 @@ static const char *startup_source = "(if(= 1(length ids_4))" "(car ids_4)" " #f))))" -" fold-var_160))))" -"(values fold-var_161)))))" +" fold-var_162))))" +"(values fold-var_163)))))" "(if(not #f)" -"(for-loop_192 fold-var_159 rest_86 rest_87)" -" fold-var_159)))" -" fold-var_158)))))" +"(for-loop_192 fold-var_161 rest_86 rest_87)" +" fold-var_161)))" +" fold-var_160)))))" " for-loop_192)" " null" -" lst_162" -" lst_163))))" +" lst_163" +" lst_164))))" "(compile-sequence body_0 cctx_8 name_45 result-used?_4)))))))))))))" "(define-values" "(add-undefined-error-name-property)" @@ -27697,7 +27875,7 @@ static const char *startup_source = "(let-values(((rhs_0) set-to17_0))" "(let-values()" "(let-values(((normal-b_0)(parsed-id-binding p_43)))" -"(let-values(((b_71)" +"(let-values(((b_74)" "(let-values(((or-part_213) normal-b_0))" "(if or-part_213" " or-part_213" @@ -27718,18 +27896,18 @@ static const char *startup_source = " temp44_0" " temp45_1))))))" "(let-values(((sym_56)" -"(if(local-binding? b_71)" -"(let-values()(local-binding-key b_71))" -"(if(module-binding? b_71)" +"(if(local-binding? b_74)" +"(let-values()(local-binding-key b_74))" +"(if(module-binding? b_74)" "(let-values()" "(let-values(((mpi_41)" "(if(parsed-top-id? p_43)" "(compile-context-self cctx_9)" -"(module-binding-module b_71))))" +"(module-binding-module b_74))))" "(if(parsed-primitive-id? p_43)" "(let-values()" "(begin" -"(if(zero?(module-binding-phase b_71))" +"(if(zero?(module-binding-phase b_74))" "(void)" "(let-values()" " (error \"internal error: non-zero phase for a primitive\")))" @@ -27737,23 +27915,23 @@ static const char *startup_source = "(let-values()" "(error" " \"internal error: cannot assign to a primitive:\"" -"(module-binding-sym b_71)))" +"(module-binding-sym b_74)))" "(void))" -"(module-binding-sym b_71)))" +"(module-binding-sym b_74)))" "(if(eq? mpi_41(compile-context-module-self cctx_9))" "(let-values()" "(let-values(((header_6)(compile-context-header cctx_9)))" "(hash-ref" "(header-binding-sym-to-define-sym header_6)" -"(module-binding-sym b_71))))" +"(module-binding-sym b_74))))" "(let-values()" "(let-values(((temp46_0)(compile-context-header cctx_9))" "((mpi47_0) mpi_41)" -"((temp48_1)(module-binding-phase b_71))" -"((temp49_0)(module-binding-sym b_71))" +"((temp48_1)(module-binding-phase b_74))" +"((temp49_0)(module-binding-sym b_74))" "((temp50_0)" "(let-values(((or-part_214)" -"(module-binding-extra-inspector b_71)))" +"(module-binding-extra-inspector b_74)))" "(if or-part_214" " or-part_214" "(let-values(((or-part_215)" @@ -27773,7 +27951,7 @@ static const char *startup_source = "(let-values()" "(error" " \"not a reference to a module or local binding:\"" -" b_71" +" b_74" "(parsed-s p_43)))))))" "(correlate~(parsed-s p_43)(if set-to?_0(list 'set! sym_56 rhs_0) sym_56)))))))))))))" "(define-values" @@ -27792,17 +27970,17 @@ static const char *startup_source = "(let-values() #f)" "(if(set? extra-inspectors_2)" "(let-values()" -"(let-values(((ht_107) extra-inspectors_2))" +"(let-values(((ht_112) extra-inspectors_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_107)))" -"((letrec-values(((for-loop_94)" +"(let-values()(check-in-immutable-hash-keys ht_112)))" +"((letrec-values(((for-loop_95)" "(lambda(result_77 i_139)" "(begin" " 'for-loop" "(if i_139" -"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_107 i_139)))" +"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_112 i_139)))" "(let-values(((result_78)" "(let-values()" "(let-values(((result_79)" @@ -27813,12 +27991,12 @@ static const char *startup_source = " guard-insp_0)))))" "(values result_79)))))" "(if(if(not((lambda x_56(not result_78)) extra-insp_0))(not #f) #f)" -"(for-loop_94 result_78(unsafe-immutable-hash-iterate-next ht_107 i_139))" +"(for-loop_95 result_78(unsafe-immutable-hash-iterate-next ht_112 i_139))" " result_78)))" " result_77)))))" -" for-loop_94)" +" for-loop_95)" " #t" -"(unsafe-immutable-hash-iterate-first ht_107)))))" +"(unsafe-immutable-hash-iterate-first ht_112)))))" "(if(procedure? extra-inspectors_2)" "(let-values()(extra-inspectors_2 guard-insp_0))" "(let-values()" @@ -27848,7 +28026,7 @@ static const char *startup_source = " module-use*-self-inspector" " set-module-use*-extra-inspectorss!" " set-module-use*-self-inspector!)" -"(let-values(((struct:_69 make-_69 ?_69 -ref_69 -set!_69)" +"(let-values(((struct:_70 make-_70 ?_70 -ref_70 -set!_70)" "(let-values()" "(let-values()" "(make-struct-type" @@ -27864,13 +28042,13 @@ static const char *startup_source = " #f" " 'module-use*)))))" "(values" -" struct:_69" -" make-_69" -" ?_69" -"(make-struct-field-accessor -ref_69 0 'extra-inspectorss)" -"(make-struct-field-accessor -ref_69 1 'self-inspector)" -"(make-struct-field-mutator -set!_69 0 'extra-inspectorss)" -"(make-struct-field-mutator -set!_69 1 'self-inspector))))" +" struct:_70" +" make-_70" +" ?_70" +"(make-struct-field-accessor -ref_70 0 'extra-inspectorss)" +"(make-struct-field-accessor -ref_70 1 'self-inspector)" +"(make-struct-field-mutator -set!_70 0 'extra-inspectorss)" +"(make-struct-field-mutator -set!_70 1 'self-inspector))))" "(define-values" "(module-uses-add-extra-inspectorsss)" "(lambda(mus_1 extra-inspectorsss_0)" @@ -27882,18 +28060,18 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_104)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_90)))" -"((letrec-values(((for-loop_106)" -"(lambda(fold-var_11 lst_91 lst_170)" +"((letrec-values(((for-loop_107)" +"(lambda(fold-var_11 lst_91 lst_171)" "(begin" " 'for-loop" -"(if(if(pair? lst_91)(pair? lst_170) #f)" +"(if(if(pair? lst_91)(pair? lst_171) #f)" "(let-values(((mu_5)(unsafe-car lst_91))" "((rest_90)(unsafe-cdr lst_91))" -"((extra-inspectorss_1)(unsafe-car lst_170))" -"((rest_37)(unsafe-cdr lst_170)))" -"(let-values(((fold-var_163)" -"(let-values(((fold-var_164) fold-var_11))" +"((extra-inspectorss_1)(unsafe-car lst_171))" +"((rest_37)(unsafe-cdr lst_171)))" "(let-values(((fold-var_165)" +"(let-values(((fold-var_166) fold-var_11))" +"(let-values(((fold-var_167)" "(let-values()" "(cons" "(let-values()" @@ -27902,11 +28080,11 @@ static const char *startup_source = "(module-use-phase mu_5)" " extra-inspectorss_1" " #f))" -" fold-var_164))))" -"(values fold-var_165)))))" -"(if(not #f)(for-loop_106 fold-var_163 rest_90 rest_37) fold-var_163)))" +" fold-var_166))))" +"(values fold-var_167)))))" +"(if(not #f)(for-loop_107 fold-var_165 rest_90 rest_37) fold-var_165)))" " fold-var_11)))))" -" for-loop_106)" +" for-loop_107)" " null" " lst_104" " lst_90)))))" @@ -27916,14 +28094,14 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_92)))" "((letrec-values(((for-loop_193)" -"(lambda(fold-var_166 lst_17)" +"(lambda(fold-var_168 lst_17)" "(begin" " 'for-loop" "(if(pair? lst_17)" "(let-values(((mu_6)(unsafe-car lst_17))((rest_91)(unsafe-cdr lst_17)))" -"(let-values(((fold-var_63)" -"(let-values(((fold-var_167) fold-var_166))" -"(let-values(((fold-var_168)" +"(let-values(((fold-var_74)" +"(let-values(((fold-var_169) fold-var_168))" +"(let-values(((fold-var_64)" "(let-values()" "(cons" "(let-values()" @@ -27932,10 +28110,10 @@ static const char *startup_source = "(module-use-phase mu_6)" " #f" " #f))" -" fold-var_167))))" -"(values fold-var_168)))))" -"(if(not #f)(for-loop_193 fold-var_63 rest_91) fold-var_63)))" -" fold-var_166)))))" +" fold-var_169))))" +"(values fold-var_64)))))" +"(if(not #f)(for-loop_193 fold-var_74 rest_91) fold-var_74)))" +" fold-var_168)))))" " for-loop_193)" " null" " lst_92)))))))))" @@ -27944,31 +28122,31 @@ static const char *startup_source = "(lambda(mu*s_0)" "(begin" "(reverse$1" -"(let-values(((lst_171) mu*s_0))" +"(let-values(((lst_172) mu*s_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_171)))" -"((letrec-values(((for-loop_194)" -"(lambda(fold-var_72 lst_172)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_172)))" +"((letrec-values(((for-loop_103)" +"(lambda(fold-var_65 lst_173)" "(begin" " 'for-loop" -"(if(pair? lst_172)" -"(let-values(((mu*_0)(unsafe-car lst_172))((rest_92)(unsafe-cdr lst_172)))" +"(if(pair? lst_173)" +"(let-values(((mu*_0)(unsafe-car lst_173))((rest_92)(unsafe-cdr lst_173)))" "(let-values(((fold-var_17)" -"(let-values(((fold-var_73) fold-var_72))" -"(let-values(((fold-var_169)" +"(let-values(((fold-var_66) fold-var_65))" +"(let-values(((fold-var_67)" "(let-values()" "(cons" "(let-values()" "(module-use1.1" "(module-use-module mu*_0)" "(module-use-phase mu*_0)))" -" fold-var_73))))" -"(values fold-var_169)))))" -"(if(not #f)(for-loop_194 fold-var_17 rest_92) fold-var_17)))" -" fold-var_72)))))" -" for-loop_194)" +" fold-var_66))))" +"(values fold-var_67)))))" +"(if(not #f)(for-loop_103 fold-var_17 rest_92) fold-var_17)))" +" fold-var_65)))))" +" for-loop_103)" " null" -" lst_171)))))))" +" lst_172)))))))" "(define-values" "(module-uses-extract-extra-inspectorsss)" "(lambda(mu*s_1 linklet_0 check-inlined-reference?_0 skip-n_0)" @@ -27976,17 +28154,17 @@ static const char *startup_source = "(if(not check-inlined-reference?_0)" "(let-values()" "(reverse$1" -"(let-values(((lst_173) mu*s_1))" +"(let-values(((lst_174) mu*s_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_173)))" -"((letrec-values(((for-loop_195)" -"(lambda(fold-var_76 lst_96)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_174)))" +"((letrec-values(((for-loop_194)" +"(lambda(fold-var_79 lst_96)" "(begin" " 'for-loop" "(if(pair? lst_96)" "(let-values(((mu*_1)(unsafe-car lst_96))((rest_93)(unsafe-cdr lst_96)))" "(let-values(((fold-var_170)" -"(let-values(((fold-var_4) fold-var_76))" +"(let-values(((fold-var_4) fold-var_79))" "(let-values(((fold-var_171)" "(let-values()" "(cons" @@ -27994,26 +28172,26 @@ static const char *startup_source = "(module-use*-extra-inspectorss mu*_1))" " fold-var_4))))" "(values fold-var_171)))))" -"(if(not #f)(for-loop_195 fold-var_170 rest_93) fold-var_170)))" -" fold-var_76)))))" -" for-loop_195)" +"(if(not #f)(for-loop_194 fold-var_170 rest_93) fold-var_170)))" +" fold-var_79)))))" +" for-loop_194)" " null" -" lst_173)))))" +" lst_174)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_174) mu*s_1)((lst_175)(list-tail(1/linklet-import-variables linklet_0) skip-n_0)))" +"(let-values(((lst_175) mu*s_1)((lst_176)(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_174)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_175)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_176)))" "((letrec-values(((for-loop_28)" -"(lambda(fold-var_6 lst_176 lst_160)" +"(lambda(fold-var_6 lst_177 lst_161)" "(begin" " 'for-loop" -"(if(if(pair? lst_176)(pair? lst_160) #f)" -"(let-values(((mu*_2)(unsafe-car lst_176))" -"((rest_94)(unsafe-cdr lst_176))" -"((imports_0)(unsafe-car lst_160))" -"((rest_95)(unsafe-cdr lst_160)))" +"(if(if(pair? lst_177)(pair? lst_161) #f)" +"(let-values(((mu*_2)(unsafe-car lst_177))" +"((rest_94)(unsafe-cdr lst_177))" +"((imports_0)(unsafe-car lst_161))" +"((rest_95)(unsafe-cdr lst_161)))" "(let-values(((fold-var_172)" "(let-values(((fold-var_173) fold-var_6))" "(let-values(((fold-var_174)" @@ -28031,17 +28209,17 @@ static const char *startup_source = "(let-values()(check-list lst_99)))" "((letrec-values(((for-loop_19)" "(lambda(extra-inspectorss_3" -" lst_177)" +" lst_178)" "(begin" " 'for-loop" "(if(pair?" -" lst_177)" +" lst_178)" "(let-values(((import_0)" "(unsafe-car" -" lst_177))" +" lst_178))" "((rest_96)" "(unsafe-cdr" -" lst_177)))" +" lst_178)))" "(let-values(((extra-inspectorss_4)" "(let-values(((extra-inspectorss_5)" " extra-inspectorss_3))" @@ -28080,8 +28258,8 @@ static const char *startup_source = " fold-var_6)))))" " for-loop_28)" " null" -" lst_174" -" lst_175)))))))))" +" lst_175" +" lst_176)))))))))" "(define-values" "(module-use*-declaration-inspector!)" "(lambda(mu*_3 insp_9)(begin(set-module-use*-self-inspector! mu*_3 insp_9))))" @@ -28096,21 +28274,21 @@ static const char *startup_source = "(let-values(((new-extra-inspectorss_0)" "(if(let-values(((or-part_217) add-insp?_0))(if or-part_217 or-part_217 add-extra-insp?_0))" "(let-values()" -"(let-values(((lst_178) imports_1))" +"(let-values(((lst_179) imports_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_178)))" -"((letrec-values(((for-loop_196)" -"(lambda(table_148 lst_179)" +"(let-values()(check-list lst_179)))" +"((letrec-values(((for-loop_195)" +"(lambda(table_147 lst_180)" "(begin" " 'for-loop" -"(if(pair? lst_179)" -"(let-values(((import_1)(unsafe-car lst_179))" -"((rest_97)(unsafe-cdr lst_179)))" -"(let-values(((table_149)" -"(let-values(((table_150) table_148))" -"(let-values(((table_151)" +"(if(pair? lst_180)" +"(let-values(((import_1)(unsafe-car lst_180))" +"((rest_97)(unsafe-cdr lst_180)))" +"(let-values(((table_148)" +"(let-values(((table_149) table_147))" +"(let-values(((table_150)" "(let-values()" "(let-values(((key_57" " val_50)" @@ -28145,28 +28323,28 @@ static const char *startup_source = " extra-inspectors_3" " guard-insp_2)))))))))))" "(hash-set" -" table_150" +" table_149" " key_57" " val_50)))))" -"(values table_151)))))" -"(if(not #f)(for-loop_196 table_149 rest_97) table_149)))" -" table_148)))))" -" for-loop_196)" +"(values table_150)))))" +"(if(not #f)(for-loop_195 table_148 rest_97) table_148)))" +" table_147)))))" +" for-loop_195)" " '#hash()" -" lst_178))))" +" lst_179))))" "(let-values()" -"(let-values(((lst_180) imports_1))" +"(let-values(((lst_181) imports_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_180)))" -"((letrec-values(((for-loop_197)" -"(lambda(extra-inspectorss_8 lst_163)" +"(let-values()(check-list lst_181)))" +"((letrec-values(((for-loop_196)" +"(lambda(extra-inspectorss_8 lst_164)" "(begin" " 'for-loop" -"(if(pair? lst_163)" -"(let-values(((import_2)(unsafe-car lst_163))" -"((rest_98)(unsafe-cdr lst_163)))" +"(if(pair? lst_164)" +"(let-values(((import_2)(unsafe-car lst_164))" +"((rest_98)(unsafe-cdr lst_164)))" "(let-values(((extra-inspectorss_9)" "(let-values(((extra-inspectorss_10)" " extra-inspectorss_8))" @@ -28183,12 +28361,12 @@ static const char *startup_source = " #f)))))" "(values extra-inspectorss_11)))))" "(if(not #f)" -"(for-loop_197 extra-inspectorss_9 rest_98)" +"(for-loop_196 extra-inspectorss_9 rest_98)" " extra-inspectorss_9)))" " extra-inspectorss_8)))))" -" for-loop_197)" +" for-loop_196)" "(let-values(((or-part_38) extra-inspectorss_7))(if or-part_38 or-part_38(seteq)))" -" lst_180)))))))" +" lst_181)))))))" "(module-use*1.1 mpi_42 phase_70 new-extra-inspectorss_0 #f))))))))" "(define-values" "(module-use-merge-extra-inspectorss!)" @@ -28197,18 +28375,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_108) extra-inspectorss_12))" +"(let-values(((ht_113) extra-inspectorss_12))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_108)))" -"((letrec-values(((for-loop_198)" +"(let-values()(check-in-hash ht_113)))" +"((letrec-values(((for-loop_197)" "(lambda(new-extra-inspectorss_2 i_140)" "(begin" " 'for-loop" "(if i_140" "(let-values(((sym_57 extra-inspectors_4)" -"(hash-iterate-key+value ht_108 i_140)))" +"(hash-iterate-key+value ht_113 i_140)))" "(let-values(((new-extra-inspectorss_3)" "(let-values(((new-extra-inspectorss_4)" " new-extra-inspectorss_2))" @@ -28225,14 +28403,14 @@ static const char *startup_source = "(seteq)))))))" "(values new-extra-inspectorss_5)))))" "(if(not #f)" -"(for-loop_198" +"(for-loop_197" " new-extra-inspectorss_3" -"(hash-iterate-next ht_108 i_140))" +"(hash-iterate-next ht_113 i_140))" " new-extra-inspectorss_3)))" " new-extra-inspectorss_2)))))" -" for-loop_198)" +" for-loop_197)" " existing-extra-inspectorss_0" -"(hash-iterate-first ht_108))))))" +"(hash-iterate-first ht_113))))))" "(set-module-use*-extra-inspectorss! existing-mu*_0 new-extra-inspectorss_1)))))))" "(define-values" "(struct:link-info" @@ -28344,7 +28522,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_100)))" -"((letrec-values(((for-loop_110)" +"((letrec-values(((for-loop_112)" "(lambda(lst_26)" "(begin" " 'for-loop" @@ -28370,11 +28548,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_110" +"(for-loop_112" " rest_99)" "(values))))" "(values))))))" -" for-loop_110)" +" for-loop_112)" " lst_100)))" "(values))))" "(let-values()" @@ -28390,7 +28568,7 @@ static const char *startup_source = "(begin" " 'loop!" "(begin" -"(let-values(((lst_181)" +"(let-values(((lst_182)" " bodys_3))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28398,19 +28576,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_181)))" -"((letrec-values(((for-loop_199)" -"(lambda(lst_182)" +" lst_182)))" +"((letrec-values(((for-loop_198)" +"(lambda(lst_183)" "(begin" " 'for-loop" "(if(pair?" -" lst_182)" +" lst_183)" "(let-values(((body_2)" "(unsafe-car" -" lst_182))" +" lst_183))" "((rest_100)" "(unsafe-cdr" -" lst_182)))" +" lst_183)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28421,7 +28599,7 @@ static const char *startup_source = " body_2)" "(let-values()" "(begin" -"(let-values(((lst_183)" +"(let-values(((lst_184)" "(parsed-define-values-syms" " body_2)))" "(begin" @@ -28430,19 +28608,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_183)))" +" lst_184)))" "((letrec-values(((for-loop_3)" -"(lambda(lst_184)" +"(lambda(lst_185)" "(begin" " 'for-loop" "(if(pair?" -" lst_184)" +" lst_185)" "(let-values(((sym_58)" "(unsafe-car" -" lst_184))" +" lst_185))" "((rest_101)" "(unsafe-cdr" -" lst_184)))" +" lst_185)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28477,7 +28655,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_3)" -" lst_183)))" +" lst_184)))" "(void)))" "(if(parsed-begin-for-syntax?" " body_2)" @@ -28495,12 +28673,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_199" +"(for-loop_198" " rest_100)" "(values))))" "(values))))))" -" for-loop_199)" -" lst_181)))" +" for-loop_198)" +" lst_182)))" "(void))))))" " loop!_0)" " bodys_2" @@ -28526,7 +28704,7 @@ static const char *startup_source = "(begin" " 'loop!" "(begin" -"(let-values(((lst_185)" +"(let-values(((lst_186)" " bodys_4)" "((start_34)" " 0))" @@ -28536,29 +28714,29 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_185)))" +" lst_186)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals" " start_34)))" -"((letrec-values(((for-loop_200)" -"(lambda(lst_186" +"((letrec-values(((for-loop_199)" +"(lambda(lst_187" " pos_93)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_186)" +" lst_187)" " #t" " #f)" "(let-values(((body_0)" "(unsafe-car" -" lst_186))" +" lst_187))" "((rest_102)" "(unsafe-cdr" -" lst_186))" -"((i_108)" +" lst_187))" +"((i_110)" " pos_93))" "(let-values((()" "(let-values()" @@ -28580,7 +28758,7 @@ static const char *startup_source = " cctx_11)" "(let-values()" "(reverse$1" -"(let-values(((lst_187)" +"(let-values(((lst_188)" " binding-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28588,21 +28766,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_187)))" -"((letrec-values(((for-loop_119)" +" lst_188)))" +"((letrec-values(((for-loop_121)" "(lambda(fold-var_175" -" lst_188)" +" lst_189)" "(begin" " 'for-loop" "(if(pair?" -" lst_188)" +" lst_189)" "(let-values(((binding-sym_0)" "(unsafe-car" -" lst_188))" +" lst_189))" "((rest_103)" "(unsafe-cdr" -" lst_188)))" -"(let-values(((fold-var_161)" +" lst_189)))" +"(let-values(((fold-var_163)" "(let-values(((fold-var_176)" " fold-var_175))" "(let-values(((fold-var_177)" @@ -28618,17 +28796,17 @@ static const char *startup_source = " fold-var_177)))))" "(if(not" " #f)" -"(for-loop_119" -" fold-var_161" +"(for-loop_121" +" fold-var_163" " rest_103)" -" fold-var_161)))" +" fold-var_163)))" " fold-var_175)))))" -" for-loop_119)" +" for-loop_121)" " null" -" lst_187)))))" +" lst_188)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_189)" +"(let-values(((lst_190)" " binding-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28636,20 +28814,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_189)))" -"((letrec-values(((for-loop_201)" +" lst_190)))" +"((letrec-values(((for-loop_200)" "(lambda(fold-var_178" -" lst_169)" +" lst_170)" "(begin" " 'for-loop" "(if(pair?" -" lst_169)" +" lst_170)" "(let-values(((binding-sym_1)" "(unsafe-car" -" lst_169))" +" lst_170))" "((rest_88)" "(unsafe-cdr" -" lst_169)))" +" lst_170)))" "(let-values(((fold-var_179)" "(let-values(((fold-var_1)" " fold-var_178))" @@ -28682,14 +28860,14 @@ static const char *startup_source = " fold-var_2)))))" "(if(not" " #f)" -"(for-loop_201" +"(for-loop_200" " fold-var_179" " rest_88)" " fold-var_179)))" " fold-var_178)))))" -" for-loop_201)" +" for-loop_200)" " null" -" lst_189))))))))" +" lst_190))))))))" "(let-values(((rhs_1)" "(compile$2" "(parsed-define-values-rhs" @@ -28765,7 +28943,7 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_190)" +"(let-values(((lst_191)" " def-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28773,8 +28951,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_190)))" -"((letrec-values(((for-loop_202)" +" lst_191)))" +"((letrec-values(((for-loop_201)" "(lambda(fold-var_180" " lst_13)" "(begin" @@ -28803,14 +28981,14 @@ static const char *startup_source = " fold-var_183)))))" "(if(not" " #f)" -"(for-loop_202" +"(for-loop_201" " fold-var_181" " rest_104)" " fold-var_181)))" " fold-var_180)))))" -" for-loop_202)" +" for-loop_201)" " null" -" lst_190)))))" +" lst_191)))))" " '((void))))" "(add-body!_0" " phase_75" @@ -28858,7 +29036,7 @@ static const char *startup_source = " phase_75))))" "(let-values(((gen-syms_0)" "(reverse$1" -"(let-values(((lst_191)" +"(let-values(((lst_192)" " binding-syms_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28866,20 +29044,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_191)))" -"((letrec-values(((for-loop_203)" +" lst_192)))" +"((letrec-values(((for-loop_202)" "(lambda(fold-var_184" -" lst_192)" +" lst_193)" "(begin" " 'for-loop" "(if(pair?" -" lst_192)" +" lst_193)" "(let-values(((binding-sym_2)" "(unsafe-car" -" lst_192))" +" lst_193))" "((rest_105)" "(unsafe-cdr" -" lst_192)))" +" lst_193)))" "(let-values(((fold-var_185)" "(let-values(((fold-var_186)" " fold-var_184))" @@ -28901,14 +29079,14 @@ static const char *startup_source = " fold-var_187)))))" "(if(not" " #f)" -"(for-loop_203" +"(for-loop_202" " fold-var_185" " rest_105)" " fold-var_185)))" " fold-var_184)))))" -" for-loop_203)" +" for-loop_202)" " null" -" lst_191))))))" +" lst_192))))))" "(let-values(((rhs_2)" "(compile$2" "(parsed-define-syntaxes-rhs" @@ -28956,9 +29134,9 @@ static const char *startup_source = "(values))))" "(let-values(((transformer-set!s_0)" "(reverse$1" -"(let-values(((lst_193)" +"(let-values(((lst_194)" " binding-syms_1)" -"((lst_194)" +"((lst_195)" " gen-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28966,36 +29144,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_193)))" +" lst_194)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_194)))" -"((letrec-values(((for-loop_204)" +" lst_195)))" +"((letrec-values(((for-loop_203)" "(lambda(fold-var_188" -" lst_195" -" lst_196)" +" lst_196" +" lst_197)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_195)" -"(pair?" " lst_196)" +"(pair?" +" lst_197)" " #f)" "(let-values(((binding-sym_3)" "(unsafe-car" -" lst_195))" +" lst_196))" "((rest_106)" "(unsafe-cdr" -" lst_195))" +" lst_196))" "((gen-sym_1)" "(unsafe-car" -" lst_196))" +" lst_197))" "((rest_107)" "(unsafe-cdr" -" lst_196)))" +" lst_197)))" "(let-values(((fold-var_189)" "(let-values(((fold-var_190)" " fold-var_188))" @@ -29014,16 +29192,16 @@ static const char *startup_source = " fold-var_191)))))" "(if(not" " #f)" -"(for-loop_204" +"(for-loop_203" " fold-var_189" " rest_106" " rest_107)" " fold-var_189)))" " fold-var_188)))))" -" for-loop_204)" +" for-loop_203)" " null" -" lst_193" -" lst_194))))))" +" lst_194" +" lst_195))))))" "(begin" "(if(compile-context-module-self" " cctx_11)" @@ -29177,7 +29355,7 @@ static const char *startup_source = " the-struct_53)))" " #f" "(=" -" i_108" +" i_110" " last-i_0))))" "(begin" "(compiled-expression-callback_0" @@ -29193,15 +29371,15 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_200" +"(for-loop_199" " rest_102" "(+" " pos_93" " 1))" "(values))))" "(values))))))" -" for-loop_200)" -" lst_185" +" for-loop_199)" +" lst_186" " start_34)))" "(void))))))" " loop!_1)" @@ -29245,31 +29423,31 @@ static const char *startup_source = " phases-in-order_2))" " phase_71)))" "(let-values(((phase-to-link-info_0)" -"(let-values(((lst_197)" +"(let-values(((lst_198)" " phases-in-order_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_197)))" -"((letrec-values(((for-loop_205)" -"(lambda(table_152" -" lst_198)" +"(check-list lst_198)))" +"((letrec-values(((for-loop_204)" +"(lambda(table_151" +" lst_199)" "(begin" " 'for-loop" "(if(pair?" -" lst_198)" +" lst_199)" "(let-values(((phase_76)" "(unsafe-car" -" lst_198))" +" lst_199))" "((rest_108)" "(unsafe-cdr" -" lst_198)))" +" lst_199)))" +"(let-values(((table_152)" "(let-values(((table_153)" +" table_151))" "(let-values(((table_154)" -" table_152))" -"(let-values(((table_155)" "(let-values()" "(let-values(((key_58" " val_51)" @@ -29296,21 +29474,21 @@ static const char *startup_source = " extra-inspectorsss_1" " def-decls_0)))))))" "(hash-set" -" table_154" +" table_153" " key_58" " val_51)))))" "(values" -" table_155)))))" +" table_154)))))" "(if(not" " #f)" -"(for-loop_205" -" table_153" +"(for-loop_204" +" table_152" " rest_108)" -" table_153)))" -" table_152)))))" -" for-loop_205)" +" table_152)))" +" table_151)))))" +" for-loop_204)" " '#hash()" -" lst_197)))))" +" lst_198)))))" "(let-values(((body-linklets+module-use*s_0)" "(let-values(((lst_109)" " phases-in-order_2))" @@ -29321,8 +29499,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_109)))" -"((letrec-values(((for-loop_206)" -"(lambda(table_156" +"((letrec-values(((for-loop_205)" +"(lambda(table_155" " lst_110)" "(begin" " 'for-loop" @@ -29334,10 +29512,10 @@ static const char *startup_source = "((rest_109)" "(unsafe-cdr" " lst_110)))" +"(let-values(((table_156)" "(let-values(((table_157)" +" table_155))" "(let-values(((table_158)" -" table_156))" -"(let-values(((table_159)" "(let-values()" "(let-values(((key_59" " val_52)" @@ -29394,7 +29572,7 @@ static const char *startup_source = "(link-info-def-decls" " li_0)" "(reverse$1" -"(let-values(((lst_199)" +"(let-values(((lst_200)" "(header-binding-syms-in-order" "(hash-ref" " phase-to-header_0" @@ -29405,20 +29583,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_199)))" -"((letrec-values(((for-loop_207)" +" lst_200)))" +"((letrec-values(((for-loop_206)" "(lambda(fold-var_192" -" lst_200)" +" lst_201)" "(begin" " 'for-loop" "(if(pair?" -" lst_200)" +" lst_201)" "(let-values(((binding-sym_4)" "(unsafe-car" -" lst_200))" +" lst_201))" "((rest_110)" "(unsafe-cdr" -" lst_200)))" +" lst_201)))" "(let-values(((fold-var_193)" "(let-values(((fold-var_194)" " fold-var_192))" @@ -29442,14 +29620,14 @@ static const char *startup_source = " fold-var_195)))))" "(if(not" " #f)" -"(for-loop_207" +"(for-loop_206" " fold-var_193" " rest_110)" " fold-var_193)))" " fold-var_192)))))" -" for-loop_207)" +" for-loop_206)" " null" -" lst_199)))))" +" lst_200)))))" "(qq-append" "(reverse$1" " bodys_5)" @@ -29475,23 +29653,23 @@ static const char *startup_source = "(length" " body-imports_0))))))))))))" "(hash-set" -" table_158" +" table_157" " key_59" " val_52)))))" "(values" -" table_159)))))" +" table_158)))))" "(if(not" " #f)" -"(for-loop_206" -" table_157" +"(for-loop_205" +" table_156" " rest_109)" -" table_157)))" -" table_156)))))" -" for-loop_206)" +" table_156)))" +" table_155)))))" +" for-loop_205)" " '#hasheq()" " lst_109)))))" "(let-values(((body-linklets_0)" -"(let-values(((ht_109)" +"(let-values(((ht_114)" " body-linklets+module-use*s_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -29499,8 +29677,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_109)))" -"((letrec-values(((for-loop_208)" +" ht_114)))" +"((letrec-values(((for-loop_207)" "(lambda(table_32" " i_141)" "(begin" @@ -29509,12 +29687,12 @@ static const char *startup_source = "(let-values(((phase_78" " l+mu*s_0)" "(hash-iterate-key+value" -" ht_109" +" ht_114" " i_141)))" +"(let-values(((table_33)" "(let-values(((table_144)" -"(let-values(((table_145)" " table_32))" -"(let-values(((table_160)" +"(let-values(((table_159)" "(let-values()" "(let-values(((key_60" " val_53)" @@ -29524,26 +29702,26 @@ static const char *startup_source = "(car" " l+mu*s_0)))))" "(hash-set" -" table_145" +" table_144" " key_60" " val_53)))))" "(values" -" table_160)))))" +" table_159)))))" "(if(not" " #f)" -"(for-loop_208" -" table_144" +"(for-loop_207" +" table_33" "(hash-iterate-next" -" ht_109" +" ht_114" " i_141))" -" table_144)))" +" table_33)))" " table_32)))))" -" for-loop_208)" +" for-loop_207)" " '#hasheq()" "(hash-iterate-first" -" ht_109))))))" +" ht_114))))))" "(let-values(((phase-to-link-module-uses_1)" -"(let-values(((ht_110)" +"(let-values(((ht_115)" " body-linklets+module-use*s_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -29551,9 +29729,9 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_110)))" -"((letrec-values(((for-loop_209)" -"(lambda(table_36" +" ht_115)))" +"((letrec-values(((for-loop_208)" +"(lambda(table_160" " i_142)" "(begin" " 'for-loop" @@ -29561,12 +29739,12 @@ static const char *startup_source = "(let-values(((phase_79" " l+mu*s_1)" "(hash-iterate-key+value" -" ht_110" +" ht_115" " i_142)))" -"(let-values(((table_123)" -"(let-values(((table_124)" -" table_36))" -"(let-values(((table_38)" +"(let-values(((table_125)" +"(let-values(((table_35)" +" table_160))" +"(let-values(((table_36)" "(let-values()" "(let-values(((key_47" " val_40)" @@ -29577,30 +29755,30 @@ static const char *startup_source = "(cdr" " l+mu*s_1))))))" "(hash-set" -" table_124" +" table_35" " key_47" " val_40)))))" "(values" -" table_38)))))" +" table_36)))))" "(if(not" " #f)" -"(for-loop_209" -" table_123" +"(for-loop_208" +" table_125" "(hash-iterate-next" -" ht_110" +" ht_115" " i_142))" -" table_123)))" -" table_36)))))" -" for-loop_209)" +" table_125)))" +" table_160)))))" +" for-loop_208)" " '#hasheq()" "(hash-iterate-first" -" ht_110))))))" +" ht_115))))))" "(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_111)" +"(let-values(((ht_116)" " body-linklets+module-use*s_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -29608,9 +29786,9 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_111)))" -"((letrec-values(((for-loop_210)" -"(lambda(table_40" +" ht_116)))" +"((letrec-values(((for-loop_209)" +"(lambda(table_161" " i_143)" "(begin" " 'for-loop" @@ -29618,9 +29796,9 @@ static const char *startup_source = "(let-values(((phase_80" " l+mu*s_2)" "(hash-iterate-key+value" -" ht_111" +" ht_116" " i_143)))" -"(let-values(((table_161)" +"(let-values(((table_162)" "(let-values(((extra-inspectorsss_2)" "(module-uses-extract-extra-inspectorsss" "(cdr" @@ -29632,18 +29810,18 @@ static const char *startup_source = " body-imports_0))))" "(begin" " #t" -"((letrec-values(((for-loop_211)" -"(lambda(table_43)" +"((letrec-values(((for-loop_210)" +"(lambda(table_163)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_44)" -"(let-values(((table_162)" -" table_43))" -"(if extra-inspectorsss_2" -"(let-values(((table_163)" -" table_162))" "(let-values(((table_164)" +"(let-values(((table_165)" +" table_163))" +"(if extra-inspectorsss_2" +"(let-values(((table_166)" +" table_165))" +"(let-values(((table_39)" "(let-values()" "(let-values(((key_61" " val_54)" @@ -29652,28 +29830,28 @@ static const char *startup_source = " phase_80" " extra-inspectorsss_2))))" "(hash-set" -" table_163" +" table_166" " key_61" " val_54)))))" "(values" -" table_164)))" -" table_162))))" -" table_44))))))" -" for-loop_211)" -" table_40)))))" +" table_39)))" +" table_165))))" +" table_164))))))" +" for-loop_210)" +" table_161)))))" "(if(not" " #f)" -"(for-loop_210" -" table_161" +"(for-loop_209" +" table_162" "(hash-iterate-next" -" ht_111" +" ht_116" " i_143))" -" table_161)))" -" table_40)))))" -" for-loop_210)" +" table_162)))" +" table_161)))))" +" for-loop_209)" " '#hash()" "(hash-iterate-first" -" ht_111))))))" +" ht_116))))))" "(values" " body-linklets_0" " min-phase_0" @@ -29698,25 +29876,25 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_201) ids_7)" -"((lst_202) binding-syms_2)" +"(let-values(((lst_202) ids_7)" +"((lst_203) binding-syms_2)" "((lst_47)" "(let-values(((or-part_221) trans-exprs_0))" "(if or-part_221" " or-part_221" "(reverse$1" -"(let-values(((lst_203) ids_7))" +"(let-values(((lst_204) ids_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_203)))" -"((letrec-values(((for-loop_212)" -"(lambda(fold-var_196 lst_204)" +"(let-values()(check-list lst_204)))" +"((letrec-values(((for-loop_211)" +"(lambda(fold-var_196 lst_39)" "(begin" " 'for-loop" -"(if(pair? lst_204)" -"(let-values(((id_48)(unsafe-car lst_204))" -"((rest_111)(unsafe-cdr lst_204)))" +"(if(pair? lst_39)" +"(let-values(((id_48)(unsafe-car lst_39))" +"((rest_16)(unsafe-cdr lst_39)))" "(let-values(((fold-var_197)" "(let-values(((fold-var_198)" " fold-var_196))" @@ -29728,19 +29906,19 @@ static const char *startup_source = " fold-var_198))))" "(values fold-var_199)))))" "(if(not #f)" -"(for-loop_212 fold-var_197 rest_111)" +"(for-loop_211 fold-var_197 rest_16)" " fold-var_197)))" " fold-var_196)))))" -" for-loop_212)" +" for-loop_211)" " null" -" lst_203))))))))" +" lst_204))))))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_201)))" +"(let-values()(check-list lst_202)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_202)))" +"(let-values()(check-list lst_203)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_47)))" @@ -29750,11 +29928,11 @@ static const char *startup_source = " 'for-loop" "(if(if(pair? lst_1)(if(pair? lst_205)(pair? lst_206) #f) #f)" "(let-values(((id_49)(unsafe-car lst_1))" -"((rest_112)(unsafe-cdr lst_1))" +"((rest_111)(unsafe-cdr lst_1))" "((binding-sym_5)(unsafe-car lst_205))" -"((rest_113)(unsafe-cdr lst_205))" +"((rest_112)(unsafe-cdr lst_205))" "((trans-expr_0)(unsafe-car lst_206))" -"((rest_114)(unsafe-cdr lst_206)))" +"((rest_113)(unsafe-cdr lst_206)))" "(let-values(((fold-var_201)" "(let-values(((fold-var_202) fold-var_200))" "(let-values(((fold-var_203)" @@ -29780,13 +29958,13 @@ static const char *startup_source = " fold-var_202))))" "(values fold-var_203)))))" "(if(not #f)" -"(for-loop_136 fold-var_201 rest_112 rest_113 rest_114)" +"(for-loop_136 fold-var_201 rest_111 rest_112 rest_113)" " fold-var_201)))" " fold-var_200)))))" " for-loop_136)" " null" -" lst_201" " lst_202" +" lst_203" " lst_47))))))))))))))" "(define-values" "(generate-top-level-define-syntaxes)" @@ -29818,14 +29996,14 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_208)" -"(let-values(((s_131)(unsafe-car lst_208))((rest_115)(unsafe-cdr lst_208)))" +"(let-values(((s_132)(unsafe-car lst_208))((rest_114)(unsafe-cdr lst_208)))" "(let-values(((fold-var_205)" "(let-values(((fold-var_206) fold-var_204))" "(let-values(((fold-var_207)" "(let-values()" "(cons(let-values() ''#f) fold-var_206))))" "(values fold-var_207)))))" -"(if(not #f)(for-loop_139 fold-var_205 rest_115) fold-var_205)))" +"(if(not #f)(for-loop_139 fold-var_205 rest_114) fold-var_205)))" " fold-var_204)))))" " for-loop_139)" " null" @@ -29836,8 +30014,8 @@ static const char *startup_source = "(propagate-inline-property)" "(lambda(e_36 orig-s_22)" "(begin" -"(let-values(((v_166)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" -"(if v_166(correlated-property e_36 'compiler-hint:cross-module-inline v_166) e_36)))))" +"(let-values(((v_164)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" +"(if v_164(correlated-property e_36 'compiler-hint:cross-module-inline v_164) 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)" @@ -29863,12 +30041,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_209)))" -"((letrec-values(((for-loop_213)" +"((letrec-values(((for-loop_212)" "(lambda(lst_210)" "(begin" " 'for-loop" "(if(pair? lst_210)" -"(let-values(((mu*_6)(unsafe-car lst_210))((rest_116)(unsafe-cdr lst_210)))" +"(let-values(((mu*_6)(unsafe-car lst_210))((rest_115)(unsafe-cdr lst_210)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -29877,9 +30055,9 @@ static const char *startup_source = "(let-values()(intern-module-use*_0 mu*_6))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_213 rest_116)(values))))" +"(if(not #f)(for-loop_212 rest_115)(values))))" "(values))))))" -" for-loop_213)" +" for-loop_212)" " lst_209)))" "(void)" "(lambda(mu*-or-instance_0)" @@ -29933,7 +30111,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_213)))" -"((letrec-values(((for-loop_214)" +"((letrec-values(((for-loop_213)" "(lambda(fold-var_208 lst_214 lst_215 lst_216)" "(begin" " 'for-loop" @@ -29941,12 +30119,12 @@ static const char *startup_source = "(if(pair? lst_215)(pair? lst_216) #f)" " #f)" "(let-values(((sub-mu_0)(unsafe-car lst_214))" -"((rest_117)(unsafe-cdr lst_214))" +"((rest_116)(unsafe-cdr lst_214))" "((imports_3)(unsafe-car lst_215))" -"((rest_118)(unsafe-cdr lst_215))" +"((rest_117)(unsafe-cdr lst_215))" "((extra-inspectorss_13)" "(unsafe-car lst_216))" -"((rest_119)(unsafe-cdr lst_216)))" +"((rest_118)(unsafe-cdr lst_216)))" "(let-values(((fold-var_209)" "(let-values(((fold-var_210)" " fold-var_208))" @@ -29976,14 +30154,14 @@ static const char *startup_source = " fold-var_210))))" "(values fold-var_211)))))" "(if(not #f)" -"(for-loop_214" +"(for-loop_213" " fold-var_209" +" rest_116" " rest_117" -" rest_118" -" rest_119)" +" rest_118)" " fold-var_209)))" " fold-var_208)))))" -" for-loop_214)" +" for-loop_213)" " null" " lst_211" " lst_212" @@ -30008,7 +30186,7 @@ static const char *startup_source = "(values vec_60(unsafe-vector-length vec_60))))))" "(begin" " #f" -"((letrec-values(((for-loop_95)" +"((letrec-values(((for-loop_96)" "(lambda(vec_61 i_145 pos_94)" "(begin" " 'for-loop" @@ -30043,13 +30221,13 @@ static const char *startup_source = " 1)))))))" "(values vec_64 i_147)))))" "(if(not #f)" -"(for-loop_95" +"(for-loop_96" " vec_62" " i_146" "(unsafe-fx+ 1 pos_94))" "(values vec_62 i_146))))" "(values vec_61 i_145))))))" -" for-loop_95)" +" for-loop_96)" "(make-vector 16)" " 0" " 0)))))" @@ -30085,17 +30263,17 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_217)))" -"((letrec-values(((for-loop_105)" -"(lambda(fold-var_69 lst_89)" +"((letrec-values(((for-loop_106)" +"(lambda(fold-var_71 lst_89)" "(begin" " 'for-loop" "(if(pair? lst_89)" "(let-values(((phase-to-link-module-uses_2)" "(unsafe-car lst_89))" -"((rest_120)(unsafe-cdr lst_89)))" +"((rest_119)(unsafe-cdr lst_89)))" "(let-values(((fold-var_34)" -"(let-values(((fold-var_151)" -" fold-var_69))" +"(let-values(((fold-var_153)" +" fold-var_71))" "(let-values(((fold-var_9)" "(let-values()" "(cons" @@ -30103,13 +30281,13 @@ static const char *startup_source = "(serialize-phase-to-link-module-uses" " phase-to-link-module-uses_2" " mpis_17))" -" fold-var_151))))" +" fold-var_153))))" "(values fold-var_9)))))" "(if(not #f)" -"(for-loop_105 fold-var_34 rest_120)" +"(for-loop_106 fold-var_34 rest_119)" " fold-var_34)))" -" fold-var_69)))))" -" for-loop_105)" +" fold-var_71)))))" +" for-loop_106)" " null" " lst_217)))))))" "(1/compile-linklet" @@ -30139,7 +30317,7 @@ static const char *startup_source = "(map-cim-tree)" "(lambda(cims_1 proc_8)" "(begin" -"((letrec-values(((loop_91)" +"((letrec-values(((loop_92)" "(lambda(cims_2)" "(begin" " 'loop" @@ -30149,37 +30327,37 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_80)))" -"((letrec-values(((for-loop_96)" -"(lambda(fold-var_153 lst_81)" +"((letrec-values(((for-loop_97)" +"(lambda(fold-var_155 lst_81)" "(begin" " 'for-loop" "(if(pair? lst_81)" "(let-values(((cim_4)(unsafe-car lst_81))" -"((rest_121)(unsafe-cdr lst_81)))" +"((rest_120)(unsafe-cdr lst_81)))" "(let-values(((fold-var_212)" -"(let-values(((fold-var_163) fold-var_153))" -"(let-values(((fold-var_164)" +"(let-values(((fold-var_165) fold-var_155))" +"(let-values(((fold-var_166)" "(let-values()" "(cons" "(let-values()" "(vector" "(proc_8 cim_4)" -"(loop_91" +"(loop_92" "(compiled-in-memory-pre-compiled-in-memorys" " cim_4))" -"(loop_91" +"(loop_92" "(compiled-in-memory-post-compiled-in-memorys" " cim_4))))" -" fold-var_163))))" -"(values fold-var_164)))))" +" fold-var_165))))" +"(values fold-var_166)))))" "(if(not #f)" -"(for-loop_96 fold-var_212 rest_121)" +"(for-loop_97 fold-var_212 rest_120)" " fold-var_212)))" -" fold-var_153)))))" -" for-loop_96)" +" fold-var_155)))))" +" for-loop_97)" " null" " lst_80))))))))" -" loop_91)" +" loop_92)" " cims_1))))" "(define-values" "(compiled-tops->compiled-top8.1)" @@ -30204,17 +30382,17 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_35)))" -"((letrec-values(((for-loop_215)" -"(lambda(table_165 lst_219 pos_96)" +"((letrec-values(((for-loop_214)" +"(lambda(table_167 lst_219 pos_96)" "(begin" " 'for-loop" "(if(if(pair? lst_219) #t #f)" "(let-values(((cim_5)(unsafe-car lst_219))" "((rest_49)(unsafe-cdr lst_219))" "((i_145) pos_96))" -"(let-values(((table_166)" -"(let-values(((table_167) table_165))" "(let-values(((table_168)" +"(let-values(((table_169) table_167))" +"(let-values(((table_170)" "(let-values()" "(let-values(((key_62" " val_35)" @@ -30228,19 +30406,19 @@ static const char *startup_source = " compiled-in-memory-linklet-directory)" " cim_5)))))" "(hash-set" -" table_167" +" table_169" " key_62" " val_35)))))" -"(values table_168)))))" +"(values table_170)))))" "(if(not #f)" -"(for-loop_215 table_166 rest_49(+ pos_96 1))" -" table_166)))" -" table_165)))))" -" for-loop_215)" +"(for-loop_214 table_168 rest_49(+ pos_96 1))" +" table_168)))" +" table_167)))))" +" for-loop_214)" " '#hasheq()" " lst_218" " start_35)))))" -"(let-values(((ht_73)" +"(let-values(((ht_76)" "(if merge-serialization?_0" "(hash-set" " sequence-ht_0" @@ -30252,10 +30430,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_73)" +"(let-values() ht_76)" "(let-values()" "(compiled-in-memory1.1" -"(1/hash->linklet-directory ht_73)" +"(1/hash->linklet-directory ht_76)" " #f" " #f" " #f" @@ -30272,52 +30450,52 @@ static const char *startup_source = "(compiled-top->compiled-tops)" "(lambda(ld_0)" "(begin" -"(let-values(((ht_112)(1/linklet-directory->hash ld_0)))" +"(let-values(((ht_117)(1/linklet-directory->hash ld_0)))" "(reverse$1" -"(let-values(((start_36) 0)((end_25)(hash-count ht_112))((inc_19) 1))" +"(let-values(((start_36) 0)((end_25)(hash-count ht_117))((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_193)" -"(lambda(fold-var_166 pos_97)" +"(lambda(fold-var_168 pos_97)" "(begin" " 'for-loop" "(if(< pos_97 end_25)" "(let-values(((i_42) pos_97))" -"(let-values(((fold-var_213)" +"(let-values(((fold-var_63)" "(let-values(((top_0)" "(hash-ref" -" ht_112" +" ht_117" "(string->symbol(number->string i_42))" " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_216)" -"(lambda(fold-var_168)" +"((letrec-values(((for-loop_215)" +"(lambda(fold-var_64)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_64)" -"(let-values(((fold-var_65)" -" fold-var_168))" +"(let-values(((fold-var_213)" +"(let-values(((fold-var_75)" +" fold-var_64))" "(if top_0" -"(let-values(((fold-var_66)" -" fold-var_65))" -"(let-values(((fold-var_72)" +"(let-values(((fold-var_76)" +" fold-var_75))" +"(let-values(((fold-var_65)" "(let-values()" "(cons" "(let-values()" " top_0)" -" fold-var_66))))" +" fold-var_76))))" "(values" -" fold-var_72)))" -" fold-var_65))))" -" fold-var_64))))))" -" for-loop_216)" -" fold-var_166)))))" -"(if(not #f)(for-loop_193 fold-var_213(+ pos_97 inc_19)) fold-var_213)))" -" fold-var_166)))))" +" fold-var_65)))" +" fold-var_75))))" +" fold-var_213))))))" +" for-loop_215)" +" fold-var_168)))))" +"(if(not #f)(for-loop_193 fold-var_63(+ pos_97 inc_19)) fold-var_63)))" +" fold-var_168)))))" " for-loop_193)" " null" " start_36))))))))" @@ -30325,7 +30503,7 @@ static const char *startup_source = "(remove-nontail-purely-functional)" "(lambda(cims_4)" "(begin" -"((letrec-values(((loop_84)" +"((letrec-values(((loop_85)" "(lambda(cims_5)" "(begin" " 'loop" @@ -30336,41 +30514,41 @@ static const char *startup_source = "(if(if(compiled-in-memory?(car cims_5))" "(compiled-in-memory-purely-functional?(car cims_5))" " #f)" -"(let-values()(loop_84(cdr cims_5)))" +"(let-values()(loop_85(cdr cims_5)))" "(let-values()(cons(car cims_5)(cdr cims_5))))))))))" -" loop_84)" +" loop_85)" " cims_4))))" "(define-values" "(struct:known-defined/delay known-defined/delay2.1 known-defined/delay? known-defined/delay-thunk)" -"(let-values(((struct:_69 make-_69 ?_69 -ref_69 -set!_69)" +"(let-values(((struct:_70 make-_70 ?_70 -ref_70 -set!_70)" "(let-values()" "(let-values()" "(make-struct-type 'known-defined/delay #f 1 0 #f null 'prefab #f '(0) #f 'known-defined/delay)))))" -"(values struct:_69 make-_69 ?_69(make-struct-field-accessor -ref_69 0 'thunk))))" +"(values struct:_70 make-_70 ?_70(make-struct-field-accessor -ref_70 0 'thunk))))" "(define-values" "(struct:known-property known-property3.1 known-property?)" -"(let-values(((struct:_63 make-_63 ?_63 -ref_63 -set!_63)" +"(let-values(((struct:_64 make-_64 ?_64 -ref_64 -set!_64)" "(let-values()" "(let-values()(make-struct-type 'known-property #f 0 0 #f null 'prefab #f '() #f 'known-property)))))" -"(values struct:_63 make-_63 ?_63)))" +"(values struct:_64 make-_64 ?_64)))" "(define-values" "(struct:known-function known-function4.1 known-function? known-function-arity known-function-pure?)" -"(let-values(((struct:_70 make-_70 ?_70 -ref_70 -set!_70)" +"(let-values(((struct:_71 make-_71 ?_71 -ref_71 -set!_71)" "(let-values()" "(let-values()" "(make-struct-type 'known-function #f 2 0 #f null 'prefab #f '(0 1) #f 'known-function)))))" "(values" -" struct:_70" -" make-_70" -" ?_70" -"(make-struct-field-accessor -ref_70 0 'arity)" -"(make-struct-field-accessor -ref_70 1 'pure?))))" +" struct:_71" +" make-_71" +" ?_71" +"(make-struct-field-accessor -ref_71 0 'arity)" +"(make-struct-field-accessor -ref_71 1 'pure?))))" "(define-values" "(struct:known-function-of-satisfying" " known-function-of-satisfying5.1" " known-function-of-satisfying?" " known-function-of-satisfying-arg-predicate-keys)" -"(let-values(((struct:_41 make-_41 ?_41 -ref_41 -set!_41)" +"(let-values(((struct:_42 make-_42 ?_42 -ref_42 -set!_42)" "(let-values()" "(let-values()" "(make-struct-type" @@ -30385,7 +30563,7 @@ static const char *startup_source = " '(0)" " #f" " 'known-function-of-satisfying)))))" -"(values struct:_41 make-_41 ?_41(make-struct-field-accessor -ref_41 0 'arg-predicate-keys))))" +"(values struct:_42 make-_42 ?_42(make-struct-field-accessor -ref_42 0 'arg-predicate-keys))))" "(define-values" "(struct:known-predicate known-predicate6.1 known-predicate? known-predicate-key)" "(let-values(((struct:_11 make-_11 ?_11 -ref_11 -set!_11)" @@ -30395,23 +30573,23 @@ static const char *startup_source = "(values struct:_11 make-_11 ?_11(make-struct-field-accessor -ref_11 0 'key))))" "(define-values" "(struct:known-satisfies known-satisfies7.1 known-satisfies? known-satisfies-predicate-key)" -"(let-values(((struct:_71 make-_71 ?_71 -ref_71 -set!_71)" +"(let-values(((struct:_72 make-_72 ?_72 -ref_72 -set!_72)" "(let-values()" "(let-values()" "(make-struct-type 'known-satisfies #f 1 0 #f null 'prefab #f '(0) #f 'known-satisfies)))))" -"(values struct:_71 make-_71 ?_71(make-struct-field-accessor -ref_71 0 'predicate-key))))" +"(values struct:_72 make-_72 ?_72(make-struct-field-accessor -ref_72 0 'predicate-key))))" "(define-values" "(struct:known-struct-op known-struct-op8.1 known-struct-op? known-struct-op-type known-struct-op-field-count)" -"(let-values(((struct:_38 make-_38 ?_38 -ref_38 -set!_38)" +"(let-values(((struct:_39 make-_39 ?_39 -ref_39 -set!_39)" "(let-values()" "(let-values()" "(make-struct-type 'known-struct-op #f 2 0 #f null 'prefab #f '(0 1) #f 'known-struct-op)))))" "(values" -" struct:_38" -" make-_38" -" ?_38" -"(make-struct-field-accessor -ref_38 0 'type)" -"(make-struct-field-accessor -ref_38 1 'field-count))))" +" struct:_39" +" make-_39" +" ?_39" +"(make-struct-field-accessor -ref_39 0 'type)" +"(make-struct-field-accessor -ref_39 1 'field-count))))" "(define-values" "(lookup-defn)" "(lambda(defns_0 sym_60)" @@ -30517,24 +30695,24 @@ static const char *startup_source = "(if c1_26" "((lambda(d_30)" "(let-values(((ok?_17 _17_0 e18_0)" -"(let-values(((s_89) e_39))" +"(let-values(((s_90) e_39))" "(let-values(((orig-s_23)" -" s_89))" +" s_90))" "(let-values(((_17_1" " e18_1)" "(let-values(((s_306)" "(if(1/syntax?" -" s_89)" +" s_90)" "(syntax-e$2" -" s_89)" -" s_89)))" +" s_90)" +" s_90)))" "(if(pair?" " s_306)" "(let-values(((_19_0)" -"(let-values(((s_90)" +"(let-values(((s_91)" "(car" " s_306)))" -" s_90))" +" s_91))" "((e20_0)" "(let-values(((s_168)" "(cdr" @@ -30613,7 +30791,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_220)))" -"((letrec-values(((for-loop_217)" +"((letrec-values(((for-loop_216)" "(lambda(result_80" " lst_221)" "(begin" @@ -30623,7 +30801,7 @@ static const char *startup_source = "(let-values(((e_42)" "(unsafe-car" " lst_221))" -"((rest_122)" +"((rest_121)" "(unsafe-cdr" " lst_221)))" "(let-values(((result_81)" @@ -30646,12 +30824,12 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_217" +"(for-loop_216" " result_81" -" rest_122)" +" rest_121)" " result_81)))" " result_80)))))" -" for-loop_217)" +" for-loop_216)" " #t" " lst_220)))" " #f)))" @@ -30682,27 +30860,27 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_222)))" -"((letrec-values(((for-loop_98)" +"((letrec-values(((for-loop_99)" "(lambda(result_83" -" lst_175" +" lst_176" " lst_10)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_175)" +" lst_176)" "(pair?" " lst_10)" " #f)" "(let-values(((e_3)" "(unsafe-car" -" lst_175))" +" lst_176))" "((rest_1)" "(unsafe-cdr" -" lst_175))" +" lst_176))" "((key_63)" "(unsafe-car" " lst_10))" -"((rest_123)" +"((rest_122)" "(unsafe-cdr" " lst_10)))" "(let-values(((result_84)" @@ -30737,13 +30915,13 @@ static const char *startup_source = " #f)" " #f)" " #f)" -"(for-loop_98" +"(for-loop_99" " result_84" " rest_1" -" rest_123)" +" rest_122)" " result_84)))" " result_83)))))" -" for-loop_98)" +" for-loop_99)" " #t" " lst_97" " lst_222)))" @@ -30827,7 +31005,7 @@ static const char *startup_source = "(let-values(((s_309)" "(car" " s_30)))" -"(let-values(((s_157)" +"(let-values(((s_158)" "(if(1/syntax?" " s_309)" "(syntax-e$2" @@ -30835,7 +31013,7 @@ static const char *startup_source = " s_309)))" "(let-values(((flat-s_14)" "(to-syntax-list.1$1" -" s_157)))" +" s_158)))" "(if(not" " flat-s_14)" "(let-values()" @@ -30850,7 +31028,7 @@ static const char *startup_source = "(let-values()" "(let-values(((ids_8" " rhs_4)" -"(let-values(((lst_189)" +"(let-values(((lst_190)" " flat-s_14))" "(begin" "(if(variable-reference-from-unsafe?" @@ -30858,8 +31036,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_189)))" -"((letrec-values(((for-loop_201)" +" lst_190)))" +"((letrec-values(((for-loop_200)" "(lambda(ids_9" " rhs_5" " lst_223)" @@ -30870,7 +31048,7 @@ static const char *startup_source = "(let-values(((s_49)" "(unsafe-car" " lst_223))" -"((rest_124)" +"((rest_123)" "(unsafe-cdr" " lst_223)))" "(let-values(((ids_10" @@ -30885,40 +31063,40 @@ static const char *startup_source = "(let-values(((ids36_0" " rhs37_0)" "(let-values()" -"(let-values(((s_165)" +"(let-values(((s_166)" "(if(1/syntax?" " s_49)" "(syntax-e$2" " s_49)" " s_49)))" "(if(pair?" -" s_165)" +" s_166)" "(let-values(((ids32_0)" "(let-values(((s_54)" "(car" -" s_165)))" +" s_166)))" " s_54))" "((rhs33_0)" "(let-values(((s_310)" "(cdr" -" s_165)))" -"(let-values(((s_92)" +" s_166)))" +"(let-values(((s_93)" "(if(1/syntax?" " s_310)" "(syntax-e$2" " s_310)" " s_310)))" "(if(pair?" -" s_92)" +" s_93)" "(let-values(((rhs34_0)" -"(let-values(((s_93)" +"(let-values(((s_94)" "(car" -" s_92)))" -" s_93))" +" s_93)))" +" s_94))" "(()" "(let-values(((s_311)" "(cdr" -" s_92)))" +" s_93)))" "(let-values(((s_312)" "(if(1/syntax?" " s_311)" @@ -30969,42 +31147,42 @@ static const char *startup_source = " rhs_8)))))" "(if(not" " #f)" -"(for-loop_201" +"(for-loop_200" " ids_10" " rhs_6" -" rest_124)" +" rest_123)" "(values" " ids_10" " rhs_6))))" "(values" " ids_9" " rhs_5))))))" -" for-loop_201)" +" for-loop_200)" " null" " null" -" lst_189)))))" +" lst_190)))))" "(values" "(reverse$1" " ids_8)" "(reverse$1" " rhs_4)))))))))" "((body31_0)" -"(let-values(((s_95)" +"(let-values(((s_96)" "(cdr" " s_30)))" "(let-values(((s_57)" "(if(1/syntax?" -" s_95)" +" s_96)" "(syntax-e$2" -" s_95)" -" s_95)))" +" s_96)" +" s_96)))" "(if(pair?" " s_57)" "(let-values(((body35_0)" -"(let-values(((s_164)" +"(let-values(((s_165)" "(car" " s_57)))" -" s_164))" +" s_165))" "(()" "(let-values(((s_313)" "(cdr" @@ -31068,38 +31246,38 @@ static const char *startup_source = " rhs23_1" " body24_1))))))" "(if(not" -"(let-values(((lst_194) ids22_0)" +"(let-values(((lst_195) ids22_0)" "((lst_224) rhs23_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_194)))" +"(let-values()(check-list lst_195)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-list lst_224)))" -"((letrec-values(((for-loop_218)" +"((letrec-values(((for-loop_217)" "(lambda(result_13" -" lst_196" +" lst_197" " lst_225)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_196)" +" lst_197)" "(pair?" " lst_225)" " #f)" "(let-values(((ids_13)" "(unsafe-car" -" lst_196))" -"((rest_125)" +" lst_197))" +"((rest_124)" "(unsafe-cdr" -" lst_196))" +" lst_197))" "((rhs_9)" "(unsafe-car" " lst_225))" -"((rest_126)" +"((rest_125)" "(unsafe-cdr" " lst_225)))" "(let-values(((result_86)" @@ -31126,15 +31304,15 @@ static const char *startup_source = " #f)" " #f)" " #f)" -"(for-loop_218" +"(for-loop_217" " result_86" -" rest_125" -" rest_126)" +" rest_124" +" rest_125)" " result_86)))" " result_13)))))" -" for-loop_218)" +" for-loop_217)" " #f" -" lst_194" +" lst_195" " lst_224))))" "(loop_82" " body24_0" @@ -31155,10 +31333,10 @@ static const char *startup_source = "(if(pair?" " s_316)" "(let-values(((_40_0)" -"(let-values(((s_208)" +"(let-values(((s_209)" "(car" " s_316)))" -" s_208))" +" s_209))" "((e41_0)" "(let-values(((s_38)" "(cdr" @@ -31203,7 +31381,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_226)))" -"((letrec-values(((for-loop_219)" +"((letrec-values(((for-loop_218)" "(lambda(result_88" " lst_227)" "(begin" @@ -31213,7 +31391,7 @@ static const char *startup_source = "(let-values(((e_53)" "(unsafe-car" " lst_227))" -"((rest_127)" +"((rest_126)" "(unsafe-cdr" " lst_227)))" "(let-values(((result_89)" @@ -31236,12 +31414,12 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_219" +"(for-loop_218" " result_89" -" rest_127)" +" rest_126)" " result_89)))" " result_88)))))" -" for-loop_219)" +" for-loop_218)" " #t" " lst_226)))" "(length e39_0)" @@ -31270,7 +31448,7 @@ static const char *startup_source = "(let-values(((s_321)" "(cdr" " s_319)))" -"(let-values(((s_213)" +"(let-values(((s_71)" "(if(1/syntax?" " s_321)" "(syntax-e$2" @@ -31278,7 +31456,7 @@ static const char *startup_source = " s_321)))" "(let-values(((flat-s_16)" "(to-syntax-list.1$1" -" s_213)))" +" s_71)))" "(if(not" " flat-s_16)" "(let-values()" @@ -31311,7 +31489,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_228)))" -"((letrec-values(((for-loop_220)" +"((letrec-values(((for-loop_219)" "(lambda(result_91" " lst_229)" "(begin" @@ -31321,12 +31499,12 @@ static const char *startup_source = "(let-values(((e_56)" "(unsafe-car" " lst_229))" -"((rest_128)" +"((rest_127)" "(unsafe-cdr" " lst_229)))" -"(let-values(((result_92)" +"(let-values(((result_29)" "(let-values()" -"(let-values(((result_93)" +"(let-values(((result_30)" "(let-values()" "(let-values()" "(not" @@ -31335,21 +31513,21 @@ static const char *startup_source = " 1" " locals_2))))))" "(values" -" result_93)))))" +" result_30)))))" "(if(if(not" -"((lambda x_62" +"((lambda x_27" "(not" -" result_92))" +" result_29))" " e_56))" "(not" " #f)" " #f)" -"(for-loop_220" -" result_92" -" rest_128)" -" result_92)))" +"(for-loop_219" +" result_29" +" rest_127)" +" result_29)))" " result_91)))))" -" for-loop_220)" +" for-loop_219)" " #t" " lst_228)))" " 1" @@ -31437,26 +31615,26 @@ static const char *startup_source = "(if(unsafe-fx< index_1 7)" "(let-values()" "(let-values(((ok?_22 _50_0 e051_0 e52_0)" -"(let-values(((s_115) e_39))" -"(let-values(((orig-s_0) s_115))" +"(let-values(((s_116) e_39))" +"(let-values(((orig-s_0) s_116))" "(let-values(((_50_1 e051_1 e52_1)" -"(let-values(((s_119)" +"(let-values(((s_120)" "(if(1/syntax?" -" s_115)" +" s_116)" "(syntax-e$2" -" s_115)" -" s_115)))" -"(if(pair? s_119)" +" s_116)" +" s_116)))" +"(if(pair? s_120)" "(let-values(((_53_0)" "(let-values(((s_227)" "(car" -" s_119)))" +" s_120)))" " s_227))" "((e054_0" " e55_0)" "(let-values(((s_326)" "(cdr" -" s_119)))" +" s_120)))" "(let-values(((s_327)" "(if(1/syntax?" " s_326)" @@ -31530,8 +31708,8 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_230)))" -"((letrec-values(((for-loop_221)" -"(lambda(result_94" +"((letrec-values(((for-loop_220)" +"(lambda(result_92" " lst_119)" "(begin" " 'for-loop" @@ -31539,12 +31717,12 @@ static const char *startup_source = "(let-values(((e_61)" "(unsafe-car" " lst_119))" -"((rest_129)" +"((rest_128)" "(unsafe-cdr" " lst_119)))" -"(let-values(((result_95)" +"(let-values(((result_93)" "(let-values()" -"(let-values(((result_96)" +"(let-values(((result_94)" "(let-values()" "(let-values()" "(not" @@ -31553,20 +31731,20 @@ static const char *startup_source = " #f" " locals_2))))))" "(values" -" result_96)))))" +" result_94)))))" "(if(if(not" -"((lambda x_63" +"((lambda x_62" "(not" -" result_95))" +" result_93))" " e_61))" "(not #f)" " #f)" -"(for-loop_221" -" result_95" -" rest_129)" -" result_95)))" -" result_94)))))" -" for-loop_221)" +"(for-loop_220" +" result_93" +" rest_128)" +" result_93)))" +" result_92)))))" +" for-loop_220)" " #t" " lst_230)))" "(loop_82 e051_0 locals_2)" @@ -31616,15 +31794,15 @@ static const char *startup_source = "(car" " s_235)))" " #t)" -"(let-values(((s_132)" +"(let-values(((s_133)" "(cdr" " s_235)))" "(let-values(((s_236)" "(if(1/syntax?" -" s_132)" +" s_133)" "(syntax-e$2" -" s_132)" -" s_132)))" +" s_133)" +" s_133)))" "(if(pair? s_236)" "(if(let-values(((s_237)" "(car" @@ -31641,15 +31819,15 @@ static const char *startup_source = "(car" " s_331)))" " #t)" -"(let-values(((s_133)" +"(let-values(((s_134)" "(cdr" " s_331)))" "(let-values(((s_333)" "(if(1/syntax?" -" s_133)" +" s_134)" "(syntax-e$2" -" s_133)" -" s_133)))" +" s_134)" +" s_134)))" "(if(pair?" " s_333)" "(if(let-values(((s_334)" @@ -32150,15 +32328,15 @@ static const char *startup_source = "(car" " s_385)))" " #t)" -"(let-values(((s_135)" +"(let-values(((s_136)" "(cdr" " s_385)))" "(let-values(((s_387)" "(if(1/syntax?" -" s_135)" +" s_136)" "(syntax-e$2" -" s_135)" -" s_135)))" +" s_136)" +" s_136)))" "(if(pair?" " s_387)" "(if(let-values(((s_388)" @@ -32183,14 +32361,14 @@ static const char *startup_source = "(let-values(((s_392)" "(cdr" " s_390)))" -"(let-values(((s_136)" +"(let-values(((s_137)" "(if(1/syntax?" " s_392)" "(syntax-e$2" " s_392)" " s_392)))" "(null?" -" s_136)))" +" s_137)))" " #f)" " #f)))" " #f)" @@ -32204,7 +32382,7 @@ static const char *startup_source = " tst90_1" " thn91_1" " els92_1)" -"(let-values(((s_137)" +"(let-values(((s_138)" "(if(1/syntax?" " s_381)" "(syntax-e$2" @@ -32213,14 +32391,14 @@ static const char *startup_source = "(let-values(((_93_0)" "(let-values(((s_393)" "(car" -" s_137)))" +" s_138)))" " s_393))" "((tst94_0" " thn95_0" " els96_0)" "(let-values(((s_394)" "(cdr" -" s_137)))" +" s_138)))" "(let-values(((s_395)" "(if(1/syntax?" " s_394)" @@ -32237,7 +32415,7 @@ static const char *startup_source = "(let-values(((s_397)" "(cdr" " s_395)))" -"(let-values(((s_140)" +"(let-values(((s_141)" "(if(1/syntax?" " s_397)" "(syntax-e$2" @@ -32246,13 +32424,13 @@ static const char *startup_source = "(let-values(((thn100_0)" "(let-values(((s_398)" "(car" -" s_140)))" +" s_141)))" " s_398))" "((els101_0)" "(let-values(((s_399)" "(cdr" -" s_140)))" -"(let-values(((s_141)" +" s_141)))" +"(let-values(((s_142)" "(if(1/syntax?" " s_399)" "(syntax-e$2" @@ -32261,12 +32439,12 @@ static const char *startup_source = "(let-values(((els102_0)" "(let-values(((s_400)" "(car" -" s_141)))" +" s_142)))" " s_400))" "(()" "(let-values(((s_401)" "(cdr" -" s_141)))" +" s_142)))" "(let-values(((s_402)" "(if(1/syntax?" " s_401)" @@ -32342,14 +32520,14 @@ static const char *startup_source = " 'for-loop" "(if(if(pair? lst_233)(pair? lst_234) #f)" "(let-values(((ids_14)(unsafe-car lst_233))" -"((rest_130)(unsafe-cdr lst_233))" +"((rest_129)(unsafe-cdr lst_233))" "((rhs_10)(unsafe-car lst_234))" -"((rest_131)(unsafe-cdr lst_234)))" +"((rest_130)(unsafe-cdr lst_234)))" "(let-values(((locals_6)" "(let-values(((locals_7) locals_5))" "(let-values(((locals_8)" "(let-values()" -"((letrec-values(((loop_92)" +"((letrec-values(((loop_93)" "(lambda(rhs_11)" "(begin" " 'loop" @@ -32391,7 +32569,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_236)))" -"((letrec-values(((for-loop_222)" +"((letrec-values(((for-loop_221)" "(lambda(locals_9" " lst_237" " lst_238)" @@ -32405,13 +32583,13 @@ static const char *startup_source = "(let-values(((id_51)" "(unsafe-car" " lst_237))" -"((rest_132)" +"((rest_131)" "(unsafe-cdr" " lst_237))" "((type_0)" "(unsafe-car" " lst_238))" -"((rest_133)" +"((rest_132)" "(unsafe-cdr" " lst_238)))" "(let-values(((locals_10)" @@ -32430,13 +32608,13 @@ static const char *startup_source = " locals_12)))))" "(if(not" " #f)" -"(for-loop_222" +"(for-loop_221" " locals_10" -" rest_132" -" rest_133)" +" rest_131" +" rest_132)" " locals_10)))" " locals_9)))))" -" for-loop_222)" +" for-loop_221)" " locals_7" " lst_235" " lst_236)))))" @@ -32448,11 +32626,11 @@ static const char *startup_source = "(correlated-e" "(correlated-cadr" " rhs_11)))" -"(loop_92" +"(loop_93" "(caddr" "(correlated->list" " rhs_11)))" -"(loop_92 #f)))" +"(loop_93 #f)))" "(let-values()" "(let-values(((lst_239)" "(correlated->list" @@ -32464,7 +32642,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_239)))" -"((letrec-values(((for-loop_223)" +"((letrec-values(((for-loop_222)" "(lambda(locals_13" " lst_240)" "(begin" @@ -32474,7 +32652,7 @@ static const char *startup_source = "(let-values(((id_52)" "(unsafe-car" " lst_240))" -"((rest_134)" +"((rest_133)" "(unsafe-cdr" " lst_240)))" "(let-values(((locals_14)" @@ -32491,18 +32669,18 @@ static const char *startup_source = " locals_16)))))" "(if(not" " #f)" -"(for-loop_223" +"(for-loop_222" " locals_14" -" rest_134)" +" rest_133)" " locals_14)))" " locals_13)))))" -" for-loop_223)" +" for-loop_222)" " locals_7" " lst_239)))))))))))" -" loop_92)" +" loop_93)" " rhs_10))))" "(values locals_8)))))" -"(if(not #f)(for-loop_148 locals_6 rest_130 rest_131) locals_6)))" +"(if(not #f)(for-loop_148 locals_6 rest_129 rest_130) locals_6)))" " locals_5)))))" " for-loop_148)" " locals_4" @@ -32517,67 +32695,67 @@ static const char *startup_source = "(let-values(((lst_241)(cdr l_57))" "((lst_242)" "(list" -"(lambda(v_167)(quoted? symbol? v_167))" -"(lambda(v_168)(is-lambda? v_168 2 defns_3))" -"(lambda(v_169)(ok-make-struct-type-property-super? v_169 defns_3))" -"(lambda(v_170)" -"(let-values(((v103_0) v_170)((temp104_0) 1)((defns105_0) defns_3))" +"(lambda(v_165)(quoted? symbol? v_165))" +"(lambda(v_166)(is-lambda? v_166 2 defns_3))" +"(lambda(v_167)(ok-make-struct-type-property-super? v_167 defns_3))" +"(lambda(v_168)" +"(let-values(((v103_0) v_168)((temp104_0) 1)((defns105_0) defns_3))" "(any-side-effects?9.1 defns105_0 unsafe-undefined unsafe-undefined v103_0 temp104_0))))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_241)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_242)))" -"((letrec-values(((for-loop_224)" -"(lambda(result_97 lst_243 lst_60)" +"((letrec-values(((for-loop_223)" +"(lambda(result_95 lst_243 lst_60)" "(begin" " 'for-loop" "(if(if(pair? lst_243)(pair? lst_60) #f)" "(let-values(((arg_0)(unsafe-car lst_243))" "((rest_27)(unsafe-cdr lst_243))" "((pred_1)(unsafe-car lst_60))" -"((rest_135)(unsafe-cdr lst_60)))" -"(let-values(((result_98)" +"((rest_134)(unsafe-cdr lst_60)))" +"(let-values(((result_96)" "(let-values()" -"(let-values(((result_99)" +"(let-values(((result_97)" "(let-values()(let-values()(pred_1 arg_0)))))" -"(values result_99)))))" -"(if(if(not((lambda x_64(not result_98)) arg_0))" -"(if(not((lambda x_65(not result_98)) pred_1))(not #f) #f)" +"(values result_97)))))" +"(if(if(not((lambda x_63(not result_96)) arg_0))" +"(if(not((lambda x_64(not result_96)) pred_1))(not #f) #f)" " #f)" -"(for-loop_224 result_98 rest_27 rest_135)" -" result_98)))" -" result_97)))))" -" for-loop_224)" +"(for-loop_223 result_96 rest_27 rest_134)" +" result_96)))" +" result_95)))))" +" for-loop_223)" " #t" " lst_241" " lst_242)))" " #f)))))" "(define-values" "(ok-make-struct-type-property-super?)" -"(lambda(v_171 defns_4)" +"(lambda(v_169 defns_4)" "(begin" -"(let-values(((or-part_234)(quoted? null? v_171)))" +"(let-values(((or-part_234)(quoted? null? v_169)))" "(if or-part_234" " or-part_234" -"(let-values(((or-part_235)(eq? 'null(correlated-e v_171))))" +"(let-values(((or-part_235)(eq? 'null(correlated-e v_169))))" "(if or-part_235" " or-part_235" -"(if(pair?(correlated-e v_171))" -"(if(eq?(correlated-e(car(correlated-e v_171))) 'list)" -"(if(let-values(((lst_244)(cdr(correlated->list v_171))))" +"(if(pair?(correlated-e v_169))" +"(if(eq?(correlated-e(car(correlated-e v_169))) 'list)" +"(if(let-values(((lst_244)(cdr(correlated->list v_169))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_244)))" -"((letrec-values(((for-loop_225)" -"(lambda(result_100 lst_64)" +"((letrec-values(((for-loop_224)" +"(lambda(result_98 lst_64)" "(begin" " 'for-loop" "(if(pair? lst_64)" "(let-values(((prop+val_0)(unsafe-car lst_64))" "((rest_29)(unsafe-cdr lst_64)))" -"(let-values(((result_101)" +"(let-values(((result_99)" "(let-values()" -"(let-values(((result_102)" +"(let-values(((result_100)" "(let-values()" "(let-values()" "(if(=" @@ -32627,34 +32805,34 @@ static const char *startup_source = " #f)" " #f))" " #f)))))" -"(values result_102)))))" -"(if(if(not((lambda x_66(not result_101)) prop+val_0))" +"(values result_100)))))" +"(if(if(not((lambda x_65(not result_99)) prop+val_0))" "(not #f)" " #f)" -"(for-loop_225 result_101 rest_29)" -" result_101)))" -" result_100)))))" -" for-loop_225)" +"(for-loop_224 result_99 rest_29)" +" result_99)))" +" result_98)))))" +" for-loop_224)" " #t" " lst_244)))" "(=" -"(sub1(correlated-length v_171))" +"(sub1(correlated-length v_169))" "(set-count" -"(let-values(((lst_245)(cdr(correlated->list v_171))))" +"(let-values(((lst_245)(cdr(correlated->list v_169))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_245)))" -"((letrec-values(((for-loop_226)" -"(lambda(table_169 lst_246)" +"((letrec-values(((for-loop_225)" +"(lambda(table_171 lst_246)" "(begin" " 'for-loop" "(if(pair? lst_246)" "(let-values(((prop+val_2)(unsafe-car lst_246))" -"((rest_136)(unsafe-cdr lst_246)))" -"(let-values(((table_170)" -"(let-values(((table_171) table_169))" +"((rest_135)(unsafe-cdr lst_246)))" "(let-values(((table_172)" +"(let-values(((table_173) table_171))" +"(let-values(((table_174)" "(let-values()" "(let-values(((key_64 val_55)" "(let-values()" @@ -32667,13 +32845,13 @@ static const char *startup_source = " 1)))" " #t))))" "(hash-set" -" table_171" +" table_173" " key_64" " val_55)))))" -"(values table_172)))))" -"(if(not #f)(for-loop_226 table_170 rest_136) table_170)))" -" table_169)))))" -" for-loop_226)" +"(values table_174)))))" +"(if(not #f)(for-loop_225 table_172 rest_135) table_172)))" +" table_171)))))" +" for-loop_225)" " '#hash()" " lst_245)))))" " #f)" @@ -32699,13 +32877,13 @@ static const char *startup_source = "(let-values(((lst_247)(cdr l_58))" "((lst_248)" "(list" -"(lambda(v_172)(quoted? symbol? v_172))" -"(lambda(v_173)(super-ok? v_173 defns_5))" -"(lambda(v_174)(field-count-expr-to-field-count v_174))" -"(lambda(v_175)(field-count-expr-to-field-count v_175))" -"(lambda(v_176)" +"(lambda(v_170)(quoted? symbol? v_170))" +"(lambda(v_171)(super-ok? v_171 defns_5))" +"(lambda(v_172)(field-count-expr-to-field-count v_172))" +"(lambda(v_173)(field-count-expr-to-field-count v_173))" +"(lambda(v_174)" "(not" -"(let-values(((v109_0) v_176)" +"(let-values(((v109_0) v_174)" "((temp110_0) 1)" "((ready-variable?111_0) ready-variable?_1)" "((defns112_0) defns_5))" @@ -32715,11 +32893,11 @@ static const char *startup_source = " ready-variable?111_0" " v109_0" " temp110_0))))" -"(lambda(v_177)" -"(known-good-struct-properties? v_177 immutables-expr_0 super-expr_0 defns_5))" -"(lambda(v_178)(inspector-or-false? v_178))" -"(lambda(v_179)(procedure-spec? v_179 num-fields_0))" -"(lambda(v_180)(immutables-ok? v_180 init-field-count-expr_0)))))" +"(lambda(v_175)" +"(known-good-struct-properties? v_175 immutables-expr_0 super-expr_0 defns_5))" +"(lambda(v_176)(inspector-or-false? v_176))" +"(lambda(v_177)(procedure-spec? v_177 num-fields_0))" +"(lambda(v_178)(immutables-ok? v_178 init-field-count-expr_0)))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -32727,30 +32905,30 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_248)))" -"((letrec-values(((for-loop_227)" -"(lambda(result_103 lst_249 lst_250)" +"((letrec-values(((for-loop_226)" +"(lambda(result_101 lst_249 lst_250)" "(begin" " 'for-loop" "(if(if(pair? lst_249)(pair? lst_250) #f)" "(let-values(((arg_1)(unsafe-car lst_249))" -"((rest_137)(unsafe-cdr lst_249))" +"((rest_136)(unsafe-cdr lst_249))" "((pred_2)(unsafe-car lst_250))" -"((rest_138)(unsafe-cdr lst_250)))" -"(let-values(((result_104)" +"((rest_137)(unsafe-cdr lst_250)))" +"(let-values(((result_102)" "(let-values()" -"(let-values(((result_105)" +"(let-values(((result_103)" "(let-values()" "(let-values()(pred_2 arg_1)))))" -"(values result_105)))))" -"(if(if(not((lambda x_67(not result_104)) arg_1))" -"(if(not((lambda x_68(not result_104)) pred_2))" +"(values result_103)))))" +"(if(if(not((lambda x_66(not result_102)) arg_1))" +"(if(not((lambda x_67(not result_102)) pred_2))" "(not #f)" " #f)" " #f)" -"(for-loop_227 result_104 rest_137 rest_138)" -" result_104)))" -" result_103)))))" -" for-loop_227)" +"(for-loop_226 result_102 rest_136 rest_137)" +" result_102)))" +" result_101)))))" +" for-loop_226)" " #t" " lst_247" " lst_248)))" @@ -32773,63 +32951,63 @@ 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_181)" +"(lambda(val?_0 v_179)" "(begin" "(let-values(((or-part_239)" -"(if(pair?(correlated-e v_181))" -"(if(eq?(correlated-e(car(correlated-e v_181))) 'quote)" -"(val?_0(correlated-e(correlated-cadr v_181)))" +"(if(pair?(correlated-e v_179))" +"(if(eq?(correlated-e(car(correlated-e v_179))) 'quote)" +"(val?_0(correlated-e(correlated-cadr v_179)))" " #f)" " #f)))" -"(if or-part_239 or-part_239(val?_0(correlated-e v_181)))))))" +"(if or-part_239 or-part_239(val?_0(correlated-e v_179)))))))" "(define-values" "(quoted-value)" -"(lambda(v_182)" -"(begin(if(pair?(correlated-e v_182))(correlated-e(correlated-cadr v_182))(correlated-e v_182)))))" -"(define-values(false?)(lambda(v_183)(begin(eq?(correlated-e v_183) #f))))" +"(lambda(v_180)" +"(begin(if(pair?(correlated-e v_180))(correlated-e(correlated-cadr v_180))(correlated-e v_180)))))" +"(define-values(false?)(lambda(v_181)(begin(eq?(correlated-e v_181) #f))))" "(define-values" "(field-count-expr-to-field-count)" -"(lambda(v_184)(begin(if(quoted? exact-nonnegative-integer? v_184)(quoted-value v_184) #f))))" +"(lambda(v_182)(begin(if(quoted? exact-nonnegative-integer? v_182)(quoted-value v_182) #f))))" "(define-values" "(inspector-or-false?)" -"(lambda(v_185)" +"(lambda(v_183)" "(begin" -"(let-values(((or-part_240)(quoted? false? v_185)))" +"(let-values(((or-part_240)(quoted? false? v_183)))" "(if or-part_240" " or-part_240" -"(let-values(((or-part_241)(if(quoted? symbol? v_185)(eq? 'prefab(quoted-value v_185)) #f)))" +"(let-values(((or-part_241)(if(quoted? symbol? v_183)(eq? 'prefab(quoted-value v_183)) #f)))" "(if or-part_241" " or-part_241" -"(if(= 1(correlated-length v_185))" -"(eq? 'current-inspector(correlated-e(car(correlated-e v_185))))" +"(if(= 1(correlated-length v_183))" +"(eq? 'current-inspector(correlated-e(car(correlated-e v_183))))" " #f))))))))" "(define-values" "(known-good-struct-properties?)" -"(lambda(v_186 immutables-expr_1 super-expr_1 defns_7)" +"(lambda(v_184 immutables-expr_1 super-expr_1 defns_7)" "(begin" -"(let-values(((or-part_242)(quoted? null? v_186)))" +"(let-values(((or-part_242)(quoted? null? v_184)))" "(if or-part_242" " or-part_242" -"(let-values(((or-part_243)(eq? 'null(correlated-e v_186))))" +"(let-values(((or-part_243)(eq? 'null(correlated-e v_184))))" "(if or-part_243" " or-part_243" -"(if(pair?(correlated-e v_186))" -"(if(eq?(correlated-e(car(correlated-e v_186))) 'list)" -"(if(let-values(((lst_251)(cdr(correlated->list v_186))))" +"(if(pair?(correlated-e v_184))" +"(if(eq?(correlated-e(car(correlated-e v_184))) 'list)" +"(if(let-values(((lst_251)(cdr(correlated->list v_184))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_251)))" -"((letrec-values(((for-loop_228)" -"(lambda(result_106 lst_252)" +"((letrec-values(((for-loop_227)" +"(lambda(result_104 lst_252)" "(begin" " 'for-loop" "(if(pair? lst_252)" "(let-values(((prop+val_3)(unsafe-car lst_252))" -"((rest_139)(unsafe-cdr lst_252)))" -"(let-values(((result_107)" +"((rest_138)(unsafe-cdr lst_252)))" +"(let-values(((result_105)" "(let-values()" -"(let-values(((result_108)" +"(let-values(((result_106)" "(let-values()" "(let-values()" "(if(=" @@ -32851,34 +33029,34 @@ static const char *startup_source = " defns_7)" " #f))" " #f)))))" -"(values result_108)))))" -"(if(if(not((lambda x_69(not result_107)) prop+val_3))" +"(values result_106)))))" +"(if(if(not((lambda x_68(not result_105)) prop+val_3))" "(not #f)" " #f)" -"(for-loop_228 result_107 rest_139)" -" result_107)))" -" result_106)))))" -" for-loop_228)" +"(for-loop_227 result_105 rest_138)" +" result_105)))" +" result_104)))))" +" for-loop_227)" " #t" " lst_251)))" "(=" -"(sub1(correlated-length v_186))" +"(sub1(correlated-length v_184))" "(set-count" -"(let-values(((lst_253)(cdr(correlated->list v_186))))" +"(let-values(((lst_253)(cdr(correlated->list v_184))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_253)))" -"((letrec-values(((for-loop_229)" -"(lambda(table_173 lst_136)" +"((letrec-values(((for-loop_228)" +"(lambda(table_175 lst_136)" "(begin" " 'for-loop" "(if(pair? lst_136)" "(let-values(((prop+val_5)(unsafe-car lst_136))" -"((rest_140)(unsafe-cdr lst_136)))" -"(let-values(((table_174)" -"(let-values(((table_175) table_173))" +"((rest_139)(unsafe-cdr lst_136)))" "(let-values(((table_176)" +"(let-values(((table_177) table_175))" +"(let-values(((table_178)" "(let-values()" "(let-values(((key_65 val_56)" "(let-values()" @@ -32891,13 +33069,13 @@ static const char *startup_source = " 1)))" " #t))))" "(hash-set" -" table_175" +" table_177" " key_65" " val_56)))))" -"(values table_176)))))" -"(if(not #f)(for-loop_229 table_174 rest_140) table_174)))" -" table_173)))))" -" for-loop_229)" +"(values table_178)))))" +"(if(not #f)(for-loop_228 table_176 rest_139) table_176)))" +" table_175)))))" +" for-loop_228)" " '#hash()" " lst_253)))))" " #f)" @@ -32977,18 +33155,18 @@ static const char *startup_source = "(let-values(((or-part_249)(not arity_0)))" "(if or-part_249" " or-part_249" -"((letrec-values(((loop_93)" +"((letrec-values(((loop_94)" "(lambda(args_4 arity_1)" "(begin" " 'loop" "(if(correlated? args_4)" -"(let-values()(loop_93(correlated-e args_4) arity_1))" +"(let-values()(loop_94(correlated-e args_4) arity_1))" "(if(null? args_4)" "(let-values()(zero? arity_1))" "(if(pair? args_4)" -"(let-values()(loop_93(cdr args_4)(sub1 arity_1)))" +"(let-values()(loop_94(cdr args_4)(sub1 arity_1)))" "(let-values()(not(negative? arity_1))))))))))" -" loop_93)" +" loop_94)" "(cadr(correlated->list expr_9))" " arity_0)))" " #f)" @@ -33006,23 +33184,23 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_254)))" -"((letrec-values(((for-loop_230)" -"(lambda(result_109 lst_255)" +"((letrec-values(((for-loop_229)" +"(lambda(result_107 lst_255)" "(begin" " 'for-loop" "(if(pair? lst_255)" -"(let-values(((a_42)(unsafe-car lst_255))((rest_141)(unsafe-cdr lst_255)))" -"(let-values(((result_110)" +"(let-values(((a_42)(unsafe-car lst_255))((rest_140)(unsafe-cdr lst_255)))" +"(let-values(((result_108)" "(let-values()" -"(let-values(((result_111)" +"(let-values(((result_109)" "(let-values()" "(let-values()(equal? a_42 n_26)))))" -"(values result_111)))))" -"(if(if(not((lambda x_70 result_110) a_42))(not #f) #f)" -"(for-loop_230 result_110 rest_141)" -" result_110)))" -" result_109)))))" -" for-loop_230)" +"(values result_109)))))" +"(if(if(not((lambda x_69 result_108) a_42))(not #f) #f)" +"(for-loop_229 result_108 rest_140)" +" result_108)))" +" result_107)))))" +" for-loop_229)" " #f" " lst_254)))" " #f))))))" @@ -33040,10 +33218,10 @@ static const char *startup_source = "(let-values(((tmp_29)(if(pair?(correlated-e e_67))(correlated-e(car(correlated-e e_67))) #f)))" "(if(equal? tmp_29 'quote)" "(let-values()" -"(let-values(((v_187)(correlated-cadr e_67)))" +"(let-values(((v_185)(correlated-cadr e_67)))" "(let-values(((or-part_251)" -"(if(correlated-length v_187)" -"(let-values(((l_61)(map2 correlated-e(correlated->list v_187))))" +"(if(correlated-length v_185)" +"(let-values(((l_61)(map2 correlated-e(correlated->list v_185))))" "(if(andmap2 exact-nonnegative-integer? l_61)" "(if(=(length l_61)(set-count(list->set l_61))) l_61 #f)" " #f))" @@ -33074,22 +33252,22 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_256)))" -"((letrec-values(((for-loop_92)" -"(lambda(result_112 lst_257)" +"((letrec-values(((for-loop_93)" +"(lambda(result_110 lst_257)" "(begin" " 'for-loop" "(if(pair? lst_257)" -"(let-values(((n_27)(unsafe-car lst_257))((rest_142)(unsafe-cdr lst_257)))" -"(let-values(((result_113)" +"(let-values(((n_27)(unsafe-car lst_257))((rest_141)(unsafe-cdr lst_257)))" +"(let-values(((result_111)" "(let-values()" -"(let-values(((result_114)" +"(let-values(((result_112)" "(let-values()(let-values()(< n_27 c_24)))))" -"(values result_114)))))" -"(if(if(not((lambda x_71(not result_113)) n_27))(not #f) #f)" -"(for-loop_92 result_113 rest_142)" -" result_113)))" -" result_112)))))" -" for-loop_92)" +"(values result_112)))))" +"(if(if(not((lambda x_70(not result_111)) n_27))(not #f) #f)" +"(for-loop_93 result_111 rest_141)" +" result_111)))" +" result_110)))))" +" for-loop_93)" " #t" " lst_256)))" " #f))))))" @@ -33112,7 +33290,7 @@ static const char *startup_source = " #f)" " #f)" " #f))))))" -"(define-values(maybe+)(lambda(x_72 y_10)(begin(if x_72(if y_10(+ x_72 y_10) #f) #f))))" +"(define-values(maybe+)(lambda(x_71 y_10)(begin(if x_71(if y_10(+ x_71 y_10) #f) #f))))" "(define-values" "(compile-single)" "(lambda(p_45 cctx_13)" @@ -33200,12 +33378,12 @@ static const char *startup_source = " cctx17_0" " mpis18_0))))" "(let-values(((add-metadata_0)" -"(lambda(ht_112)" +"(lambda(ht_117)" "(begin" " 'add-metadata" -"(let-values(((ht_113)(hash-set ht_112 'original-phase phase_82)))" -"(let-values(((ht_114)(hash-set ht_113 'max-phase max-phase_1)))" -" ht_114))))))" +"(let-values(((ht_118)(hash-set ht_117 'original-phase phase_82)))" +"(let-values(((ht_119)(hash-set ht_118 'max-phase max-phase_1)))" +" ht_119))))))" "(let-values(((bundle_0)" "((if to-source?_2 values 1/hash->linklet-bundle)" "(add-metadata_0" @@ -33316,24 +33494,24 @@ static const char *startup_source = "(let-values(((or-part_82)(hash-ref defined-syms_8 phase_84 #f)))" "(if or-part_82" " or-part_82" -"(let-values(((ht_115)(make-hasheq)))" -"(begin(hash-set! defined-syms_8 phase_84 ht_115) ht_115))))))" +"(let-values(((ht_120)(make-hasheq)))" +"(begin(hash-set! defined-syms_8 phase_84 ht_120) ht_120))))))" "(reverse$1" "(let-values(((lst_258) ids_15))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_258)))" -"((letrec-values(((for-loop_231)" -"(lambda(fold-var_71 lst_90)" +"((letrec-values(((for-loop_230)" +"(lambda(fold-var_73 lst_90)" "(begin" " 'for-loop" "(if(pair? lst_90)" "(let-values(((id_53)(unsafe-car lst_90))" -"((rest_143)(unsafe-cdr lst_90)))" +"((rest_142)(unsafe-cdr lst_90)))" "(let-values(((fold-var_12)" -"(let-values(((fold-var_153) fold-var_71))" -"(let-values(((fold-var_91)" +"(let-values(((fold-var_155) fold-var_73))" +"(let-values(((fold-var_93)" "(let-values()" "(cons" "(let-values()" @@ -33391,7 +33569,7 @@ static const char *startup_source = " defined-sym_0" " id_53)" "(values))))" -"(let-values(((b_72)" +"(let-values(((b_75)" "(let-values(((self23_0)" " self_19)" "((phase24_0)" @@ -33425,7 +33603,7 @@ static const char *startup_source = "((phase30_0)" " phase_84)" "((b31_0)" -" b_72))" +" b_75))" "(remove-required-id!75.1" " b31_0" " requires+provides28_0" @@ -33435,7 +33613,7 @@ static const char *startup_source = "(let-values(((id19_0)" " id_53)" "((b20_0)" -" b_72)" +" b_75)" "((phase21_1)" " phase_84)" "((orig-s22_0)" @@ -33455,7 +33633,7 @@ static const char *startup_source = "((phase34_0)" " phase_84)" "((b35_0)" -" b_72)" +" b_75)" "((as-transformer?36_0)" " as-transformer?_5))" "(add-defined-or-required-id!19.1" @@ -33467,13 +33645,13 @@ static const char *startup_source = " b35_0)))" "(void))" " defined-sym_0))))))" -" fold-var_153))))" -"(values fold-var_91)))))" +" fold-var_155))))" +"(values fold-var_93)))))" "(if(not #f)" -"(for-loop_231 fold-var_12 rest_143)" +"(for-loop_230 fold-var_12 rest_142)" " fold-var_12)))" -" fold-var_71)))))" -" for-loop_231)" +" fold-var_73)))))" +" for-loop_230)" " null" " lst_258)))))))))))))))))))" "(define-values" @@ -33533,8 +33711,8 @@ static const char *startup_source = "(let-values(((or-part_218)(hash-ref defined-syms_9 phase_75 #f)))" "(if or-part_218" " or-part_218" -"(let-values(((ht_116)(make-hasheq)))" -"(begin(hash-set! defined-syms_9 phase_75 ht_116) ht_116))))))" +"(let-values(((ht_121)(make-hasheq)))" +"(begin(hash-set! defined-syms_9 phase_75 ht_121) ht_121))))))" "(hash-set! defined-syms-at-phase_1 sym_62 id_56)))))" "(define-values" "(make-create-root-expand-context-from-module)" @@ -33542,8 +33720,8 @@ static const char *startup_source = "(begin" "(lambda(ns_59 phase-shift_13 original-self_0 self_20)" "(let-values(((root-ctx_4)" -"(let-values(((temp1_2)(namespace-mpi ns_59)))" -"(make-root-expand-context13.1 #f null unsafe-undefined unsafe-undefined temp1_2))))" +"(let-values(((temp1_3)(namespace-mpi ns_59)))" +"(make-root-expand-context13.1 #f null unsafe-undefined unsafe-undefined temp1_3))))" "(let-values(((s_3)(add-scopes empty-syntax(root-expand-context-module-scopes root-ctx_4))))" "(let-values((()" "(begin" @@ -33552,7 +33730,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_218)))" -"((letrec-values(((for-loop_232)" +"((letrec-values(((for-loop_231)" "(lambda(lst_16)" "(begin" " 'for-loop" @@ -33579,7 +33757,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_259)))" -"((letrec-values(((for-loop_233)" +"((letrec-values(((for-loop_232)" "(lambda(lst_78)" "(begin" " 'for-loop" @@ -33644,35 +33822,35 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_233" +"(for-loop_232" " rest_36)" "(values))))" "(values))))))" -" for-loop_233)" +" for-loop_232)" " lst_259)))" "(void))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_232 rest_4)(values))))" +"(if(not #f)(for-loop_231 rest_4)(values))))" "(values))))))" -" for-loop_232)" +" for-loop_231)" " lst_218)))" "(values))))" "(let-values()" "(let-values(((defined-syms_10)(root-expand-context-defined-syms root-ctx_4)))" "(begin" -"(let-values(((ht_117) evaled-ld-h_0))" +"(let-values(((ht_122) evaled-ld-h_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_117)))" -"((letrec-values(((for-loop_105)" +"(let-values()(check-in-hash ht_122)))" +"((letrec-values(((for-loop_106)" "(lambda(i_148)" "(begin" " 'for-loop" "(if i_148" "(let-values(((phase_86 linklet_3)" -"(hash-iterate-key+value ht_117 i_148)))" +"(hash-iterate-key+value ht_122 i_148)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33689,7 +33867,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_260)))" -"((letrec-values(((for-loop_234)" +"((letrec-values(((for-loop_233)" "(lambda(lst_261)" "(begin" " 'for-loop" @@ -33698,7 +33876,7 @@ static const char *startup_source = "(let-values(((sym_63)" "(unsafe-car" " lst_261))" -"((rest_144)" +"((rest_143)" "(unsafe-cdr" " lst_261)))" "(let-values((()" @@ -33751,21 +33929,21 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_234" -" rest_144)" +"(for-loop_233" +" rest_143)" "(values))))" "(values))))))" -" for-loop_234)" +" for-loop_233)" " lst_260)))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_105(hash-iterate-next ht_117 i_148))" +"(for-loop_106(hash-iterate-next ht_122 i_148))" "(values))))" "(values))))))" -" for-loop_105)" -"(hash-iterate-first ht_117))))" +" for-loop_106)" +"(hash-iterate-first ht_122))))" "(void)" " root-ctx_4))))))))))" "(define-values" @@ -33774,11 +33952,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_188) root-context_0))" -"(let-values(((the-struct_54) v_188))" +"(let-values(((v_186) root-context_0))" +"(let-values(((the-struct_54) v_186))" "(if(root-expand-context/outer? the-struct_54)" "(let-values(((inner16_0)" -"(let-values(((the-struct_55)(root-expand-context/outer-inner v_188)))" +"(let-values(((the-struct_55)(root-expand-context/outer-inner v_186)))" "(if(root-expand-context/inner? the-struct_55)" "(let-values(((self-mpi17_0) inside-mpi_0)" "((all-scopes-stx18_0)" @@ -33828,7 +34006,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values(((lst_41)(list-tail(1/linklet-import-variables linklet_4) skip-num-imports_0))" -"((lst_159) import-module-uses_0)" +"((lst_160) import-module-uses_0)" "((lst_89) import-module-instances_0)" "((lst_262)" "(let-values(((or-part_81) extra-inspectorsss_4))" @@ -33839,14 +34017,14 @@ static const char *startup_source = "(let-values()(check-list lst_41)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_159)))" +"(let-values()(check-list lst_160)))" "(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_262)))" -"((letrec-values(((for-loop_234)" +"((letrec-values(((for-loop_233)" "(lambda(lst_261 lst_258 lst_23 lst_104)" "(begin" " 'for-loop" @@ -33854,13 +34032,13 @@ static const char *startup_source = "(if(pair? lst_258)(if(pair? lst_23)(pair? lst_104) #f) #f)" " #f)" "(let-values(((import-syms_0)(unsafe-car lst_261))" -"((rest_145)(unsafe-cdr lst_261))" +"((rest_144)(unsafe-cdr lst_261))" "((mu_7)(unsafe-car lst_258))" "((rest_84)(unsafe-cdr lst_258))" "((mi_16)(unsafe-car lst_23))" "((rest_43)(unsafe-cdr lst_23))" "((extra-inspectorss_14)(unsafe-car lst_104))" -"((rest_121)(unsafe-cdr lst_104)))" +"((rest_120)(unsafe-cdr lst_104)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33892,7 +34070,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_263)))" -"((letrec-values(((for-loop_235)" +"((letrec-values(((for-loop_234)" "(lambda(lst_25)" "(begin" " 'for-loop" @@ -33976,22 +34154,22 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_235" +"(for-loop_234" " rest_9)" "(values))))" "(values))))))" -" for-loop_235)" +" for-loop_234)" " lst_263)))" "(void)))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_234 rest_145 rest_84 rest_43 rest_121)" +"(for-loop_233 rest_144 rest_84 rest_43 rest_120)" "(values))))" "(values))))))" -" for-loop_234)" +" for-loop_233)" " lst_41" -" lst_159" +" lst_160" " lst_89" " lst_262)))" "(void)))))))))))))" @@ -34075,33 +34253,33 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_37 end_26 inc_20)))" -"((letrec-values(((for-loop_234)" -"(lambda(table_177 pos_99)" +"((letrec-values(((for-loop_233)" +"(lambda(table_179 pos_99)" "(begin" " 'for-loop" "(if(< pos_99 end_26)" "(let-values(((phase-level_17)" " pos_99))" -"(let-values(((table_178)" -"(let-values(((v_189)" +"(let-values(((table_180)" +"(let-values(((v_187)" "(hash-ref" " h_1" " phase-level_17" " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_106)" -"(lambda(table_179)" +"((letrec-values(((for-loop_107)" +"(lambda(table_181)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_180)" -"(let-values(((table_109)" -" table_179))" -"(if v_189" -"(let-values(((table_181)" -" table_109))" "(let-values(((table_182)" +"(let-values(((table_110)" +" table_181))" +"(if v_187" +"(let-values(((table_183)" +" table_110))" +"(let-values(((table_184)" "(let-values()" "(let-values(((key_68" " val_57)" @@ -34109,24 +34287,24 @@ static const char *startup_source = "(values" " phase-level_17" "(1/eval-linklet" -" v_189)))))" +" v_187)))))" "(hash-set" -" table_181" +" table_183" " key_68" " val_57)))))" "(values" -" table_182)))" -" table_109))))" -" table_180))))))" -" for-loop_106)" -" table_177)))))" +" table_184)))" +" table_110))))" +" table_182))))))" +" for-loop_107)" +" table_179)))))" "(if(not #f)" -"(for-loop_234" -" table_178" +"(for-loop_233" +" table_180" "(+ pos_99 inc_20))" -" table_178)))" -" table_177)))))" -" for-loop_234)" +" table_180)))" +" table_179)))))" +" for-loop_233)" " '#hash()" " start_37)))))" "(let-values(((syntax-literals-linklet_0)" @@ -34177,7 +34355,7 @@ static const char *startup_source = "(let-values(((c_26)" "(unsafe-car" " lst_264))" -"((rest_146)" +"((rest_145)" "(unsafe-cdr" " lst_264)))" "(let-values((()" @@ -34202,7 +34380,7 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_15" -" rest_146)" +" rest_145)" "(values))))" "(values))))))" " for-loop_15)" @@ -34216,18 +34394,18 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_265)))" -"((letrec-values(((for-loop_236)" -"(lambda(lst_172)" +"((letrec-values(((for-loop_235)" +"(lambda(lst_173)" "(begin" " 'for-loop" "(if(pair?" -" lst_172)" +" lst_173)" "(let-values(((name_48)" "(unsafe-car" -" lst_172))" +" lst_173))" "((rest_92)" "(unsafe-cdr" -" lst_172)))" +" lst_173)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -34261,11 +34439,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_236" +"(for-loop_235" " rest_92)" "(values))))" "(values))))))" -" for-loop_236)" +" for-loop_235)" " lst_265)))" "(void)))))" " void)))" @@ -34379,7 +34557,7 @@ static const char *startup_source = " import-instances_0)" "(let-values(((mis_1" " is_0)" -"(let-values(((lst_183)" +"(let-values(((lst_184)" " module-uses_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -34387,21 +34565,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_183)))" +" lst_184)))" "((letrec-values(((for-loop_3)" "(lambda(mis_2" " is_1" -" lst_179)" +" lst_180)" "(begin" " 'for-loop" "(if(pair?" -" lst_179)" +" lst_180)" "(let-values(((mu_8)" "(unsafe-car" -" lst_179))" +" lst_180))" "((rest_97)" "(unsafe-cdr" -" lst_179)))" +" lst_180)))" "(let-values(((mis_3" " is_2)" "(let-values(((mis_4)" @@ -34460,7 +34638,7 @@ static const char *startup_source = " for-loop_3)" " null" " null" -" lst_183)))))" +" lst_184)))))" "(values" "(reverse$1" " mis_1)" @@ -34631,16 +34809,16 @@ static const char *startup_source = " ns_60)))))))))))))))))))))))))))))))))" "(define-values" "(struct:instance-data instance-data11.1 instance-data? instance-data-syntax-literals-instance instance-data-cache-key)" -"(let-values(((struct:_72 make-_72 ?_72 -ref_72 -set!_72)" +"(let-values(((struct:_73 make-_73 ?_73 -ref_73 -set!_73)" "(let-values()" "(let-values()" "(make-struct-type 'instance-data #f 2 0 #f null(current-inspector) #f '(0 1) #f 'instance-data)))))" "(values" -" struct:_72" -" make-_72" -" ?_72" -"(make-struct-field-accessor -ref_72 0 'syntax-literals-instance)" -"(make-struct-field-accessor -ref_72 1 'cache-key))))" +" struct:_73" +" make-_73" +" ?_73" +"(make-struct-field-accessor -ref_73 0 'syntax-literals-instance)" +"(make-struct-field-accessor -ref_73 1 'cache-key))))" "(define-values" "(init-instance-data!)" "(lambda(data-box_4" @@ -34825,18 +35003,18 @@ static const char *startup_source = "(get-all-variables)" "(lambda(phases-h_1)" "(begin" -"(let-values(((ht_118) phases-h_1))" +"(let-values(((ht_123) phases-h_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_118)))" -"((letrec-values(((for-loop_237)" -"(lambda(table_183 i_149)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_123)))" +"((letrec-values(((for-loop_236)" +"(lambda(table_185 i_149)" "(begin" " 'for-loop" "(if i_149" -"(let-values(((phase_88 linklet_5)(hash-iterate-key+value ht_118 i_149)))" -"(let-values(((table_184)" -"(let-values(((table_185) table_183))" -"(let-values(((table_141)" +"(let-values(((phase_88 linklet_5)(hash-iterate-key+value ht_123 i_149)))" +"(let-values(((table_186)" +"(let-values(((table_187) table_185))" +"(let-values(((table_140)" "(let-values()" "(let-values(((key_69 val_60)" "(let-values()" @@ -34844,15 +35022,15 @@ static const char *startup_source = " phase_88" "(1/linklet-export-variables" " linklet_5)))))" -"(hash-set table_185 key_69 val_60)))))" -"(values table_141)))))" +"(hash-set table_187 key_69 val_60)))))" +"(values table_140)))))" "(if(not #f)" -"(for-loop_237 table_184(hash-iterate-next ht_118 i_149))" -" table_184)))" -" table_183)))))" -" for-loop_237)" +"(for-loop_236 table_186(hash-iterate-next ht_123 i_149))" +" table_186)))" +" table_185)))))" +" for-loop_236)" " '#hash()" -"(hash-iterate-first ht_118)))))))" +"(hash-iterate-first ht_123)))))))" "(define-values" "(provides->api-provides)" "(lambda(provides_9 self_24)" @@ -34863,22 +35041,22 @@ static const char *startup_source = " 'extract" "(let-values(((result-l_0)" "(reverse$1" -"(let-values(((ht_119) provides_9))" +"(let-values(((ht_124) provides_9))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_119)))" -"((letrec-values(((for-loop_100)" +"(let-values()(check-in-hash ht_124)))" +"((letrec-values(((for-loop_101)" "(lambda(fold-var_59 i_150)" "(begin" " 'for-loop" "(if i_150" "(let-values(((phase_89 at-phase_11)" -"(hash-iterate-key+value ht_119 i_150)))" +"(hash-iterate-key+value ht_124 i_150)))" "(let-values(((fold-var_60)" "(let-values(((l_65)" "(reverse$1" -"(let-values(((ht_120)" +"(let-values(((ht_125)" " at-phase_11))" "(begin" "(if(variable-reference-from-unsafe?" @@ -34886,8 +35064,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_120)))" -"((letrec-values(((for-loop_238)" +" ht_125)))" +"((letrec-values(((for-loop_237)" "(lambda(fold-var_214" " i_151)" "(begin" @@ -34896,7 +35074,7 @@ static const char *startup_source = "(let-values(((sym_65" " b/p_1)" "(hash-iterate-key+value" -" ht_120" +" ht_125" " i_151)))" "(let-values(((fold-var_215)" "(let-values(((fold-var_216)" @@ -34909,7 +35087,7 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(let-values(((b_73)" +"(let-values(((b_64)" "(provided-as-binding" " b/p_1)))" "(list" @@ -34917,16 +35095,16 @@ static const char *startup_source = "(if(eq?" " self_24" "(module-binding-module" -" b_73))" +" b_64))" "(let-values()" " null)" "(let-values()" "(reverse$1" "(let-values(((lst_87)" "(cons" -" b_73" +" b_64" "(module-binding-extra-nominal-bindings" -" b_73))))" +" b_64))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -34934,17 +35112,17 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_87)))" -"((letrec-values(((for-loop_239)" +"((letrec-values(((for-loop_238)" "(lambda(fold-var_219" " lst_266)" "(begin" " 'for-loop" "(if(pair?" " lst_266)" -"(let-values(((b_74)" +"(let-values(((b_76)" "(unsafe-car" " lst_266))" -"((rest_147)" +"((rest_146)" "(unsafe-cdr" " lst_266)))" "(let-values(((fold-var_29)" @@ -34956,37 +35134,37 @@ static const char *startup_source = "(let-values()" "(if(if(eqv?" "(module-binding-nominal-phase" -" b_74)" +" b_76)" " phase_89)" "(eq?" "(module-binding-nominal-sym" -" b_74)" +" b_76)" " sym_65)" " #f)" "(let-values()" "(module-binding-nominal-module" -" b_74))" +" b_76))" "(let-values()" "(list" "(module-binding-nominal-module" -" b_74)" +" b_76)" "(module-binding-phase" -" b_74)" +" b_76)" "(module-binding-nominal-sym" -" b_74)" +" b_76)" "(module-binding-nominal-phase" -" b_74)))))" +" b_76)))))" " fold-var_30))))" "(values" " fold-var_31)))))" "(if(not" " #f)" -"(for-loop_239" +"(for-loop_238" " fold-var_29" -" rest_147)" +" rest_146)" " fold-var_29)))" " fold-var_219)))))" -" for-loop_239)" +" for-loop_238)" " null" " lst_87)))))))))" " fold-var_217))))" @@ -34995,27 +35173,27 @@ static const char *startup_source = " fold-var_216))))" "(if(not" " #f)" -"(for-loop_238" +"(for-loop_237" " fold-var_215" "(hash-iterate-next" -" ht_120" +" ht_125" " i_151))" " fold-var_215)))" " fold-var_214)))))" -" for-loop_238)" +" for-loop_237)" " null" "(hash-iterate-first" -" ht_120)))))))" +" ht_125)))))))" "(begin" " #t" -"((letrec-values(((for-loop_105)" -"(lambda(fold-var_69)" +"((letrec-values(((for-loop_106)" +"(lambda(fold-var_71)" "(begin" " 'for-loop" "(let-values()" "(let-values(((fold-var_220)" "(let-values(((fold-var_32)" -" fold-var_69))" +" fold-var_71))" "(if(null?" " l_65)" " fold-var_32" @@ -35042,17 +35220,17 @@ static const char *startup_source = "(values" " fold-var_34)))))))" " fold-var_220))))))" -" for-loop_105)" +" for-loop_106)" " fold-var_59)))))" "(if(not #f)" -"(for-loop_100" +"(for-loop_101" " fold-var_60" -"(hash-iterate-next ht_119 i_150))" +"(hash-iterate-next ht_124 i_150))" " fold-var_60)))" " fold-var_59)))))" -" for-loop_100)" +" for-loop_101)" " null" -"(hash-iterate-first ht_119)))))))" +"(hash-iterate-first ht_124)))))))" "(let-values(((result-l1_0) result-l_0)((phaselinklet-directory" -"(let-values(((ht_121)(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_121)))" -"((letrec-values(((for-loop_240)" -"(lambda(table_186 i_152)" +"(let-values()(check-in-hash ht_126)))" +"((letrec-values(((for-loop_239)" +"(lambda(table_188 i_92)" "(begin" " 'for-loop" -"(if i_152" -"(let-values(((key_70 val_61)(hash-iterate-key+value ht_121 i_152)))" -"(let-values(((table_187)" -"(let-values(((table_116) table_186))" -"(let-values(((table_188)" +"(if i_92" +"(let-values(((key_70 val_61)(hash-iterate-key+value ht_126 i_92)))" +"(let-values(((table_189)" +"(let-values(((table_190) table_188))" +"(let-values(((table_191)" "(let-values()" "(let-values(((key_71 val_62)" "(let-values()" @@ -35277,17 +35455,17 @@ static const char *startup_source = " val_61" " key_70))))))" "(hash-set" -" table_116" +" table_190" " key_71" " val_62)))))" -"(values table_188)))))" +"(values table_191)))))" "(if(not #f)" -"(for-loop_240 table_187(hash-iterate-next ht_121 i_152))" -" table_187)))" -" table_186)))))" -" for-loop_240)" +"(for-loop_239 table_189(hash-iterate-next ht_126 i_92))" +" table_189)))" +" table_188)))))" +" for-loop_239)" " '#hasheq()" -"(hash-iterate-first ht_121))))))" +"(hash-iterate-first ht_126))))))" "(let-values()(update-one-name c_34 full-name_0))))))))))" "(define-values" "(update-one-name)" @@ -35311,20 +35489,20 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_91)))" "((letrec-values(((for-loop_49)" -"(lambda(ht_122 lst_82)" +"(lambda(ht_127 lst_82)" "(begin" " 'for-loop" "(if(pair? lst_82)" "(let-values(((submod_1)(unsafe-car lst_82))" "((rest_37)(unsafe-cdr lst_82)))" -"(let-values(((ht_112)" -"(let-values(((ht_113) ht_122))" -"(let-values(((ht_114)" +"(let-values(((ht_117)" +"(let-values(((ht_118) ht_127))" +"(let-values(((ht_119)" "(let-values()" "(let-values(((name_53)" "(module-compiled-immediate-name" " submod_1)))" -"(if(hash-ref ht_113 name_53 #f)" +"(if(hash-ref ht_118 name_53 #f)" "(let-values()" "(raise-arguments-error" " 'module-compiled-submodules" @@ -35333,13 +35511,13 @@ static const char *startup_source = " name_53))" "(let-values()" "(hash-set" -" ht_113" +" ht_118" " name_53" "(compiled->linklet-directory-or-bundle" " submod_1))))))))" -"(values ht_114)))))" -"(if(not #f)(for-loop_49 ht_112 rest_37) ht_112)))" -" ht_122)))))" +"(values ht_119)))))" +"(if(not #f)(for-loop_49 ht_117 rest_37) ht_117)))" +" ht_127)))))" " for-loop_49)" " '#hasheq()" " lst_91)))" @@ -35363,8 +35541,8 @@ static const char *startup_source = "(let-values(((ld_3)(compiled->linklet-directory-or-bundle c_35)))" "(let-values(((or-part_26)" "(if(1/linklet-directory? ld_3)" -"(if(let-values(((b_75)(hash-ref(1/linklet-directory->hash ld_3) #f #f)))" -"(if b_75(hash-ref(1/linklet-bundle->hash b_75) 'decl #f) #f))" +"(if(let-values(((b_77)(hash-ref(1/linklet-directory->hash ld_3) #f #f)))" +"(if b_77(hash-ref(1/linklet-bundle->hash b_77) 'decl #f) #f))" " #t" " #f)" " #f)))" @@ -35430,8 +35608,8 @@ static const char *startup_source = "(let-values()" "(if(1/linklet-directory? c_13)" "(let-values()" -"(let-values(((ht_66)(1/linklet-directory->hash c_13)))" -"(let-values(((bh_0)(1/linklet-bundle->hash(hash-ref ht_66 #f))))" +"(let-values(((ht_69)(1/linklet-directory->hash c_13)))" +"(let-values(((bh_0)(1/linklet-bundle->hash(hash-ref ht_69 #f))))" "(let-values(((names_1)(hash-ref bh_0(if non-star?_0 'pre 'post) null)))" "(reverse$1" "(let-values(((lst_86) names_1))" @@ -35439,27 +35617,27 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_86)))" -"((letrec-values(((for-loop_104)" -"(lambda(fold-var_67 lst_87)" +"((letrec-values(((for-loop_105)" +"(lambda(fold-var_69 lst_87)" "(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_68)" -"(let-values(((fold-var_27) fold-var_67))" +"(let-values(((fold-var_70)" +"(let-values(((fold-var_27) fold-var_69))" "(let-values(((fold-var_28)" "(let-values()" "(cons" "(let-values()" -"(hash-ref ht_66 name_55))" +"(hash-ref ht_69 name_55))" " fold-var_27))))" "(values fold-var_28)))))" "(if(not #f)" -"(for-loop_104 fold-var_68 rest_41)" -" fold-var_68)))" -" fold-var_67)))))" -" for-loop_104)" +"(for-loop_105 fold-var_70 rest_41)" +" fold-var_70)))" +" fold-var_69)))))" +" for-loop_105)" " null" " lst_86))))))))" "(let-values() null)))))))" @@ -35617,15 +35795,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_38 end_27 inc_21)))" -"((letrec-values(((for-loop_194)" -"(lambda(table_63 pos_101)" +"((letrec-values(((for-loop_103)" +"(lambda(table_64 pos_101)" "(begin" " 'for-loop" "(if(< pos_101 end_27)" "(let-values(((phase-level_20) pos_101))" -"(let-values(((table_66)" -"(let-values(((table_189) table_63))" -"(let-values(((table_190)" +"(let-values(((table_67)" +"(let-values(((table_192) table_64))" +"(let-values(((table_193)" "(let-values()" "(let-values(((key_72 val_63)" "(let-values()" @@ -35641,13 +35819,13 @@ static const char *startup_source = " linklet_0)" " null))))))" "(hash-set" -" table_189" +" table_192" " key_72" " val_63)))))" -"(values table_190)))))" -"(if(not #f)(for-loop_194 table_66(+ pos_101 inc_21)) table_66)))" -" table_63)))))" -" for-loop_194)" +"(values table_193)))))" +"(if(not #f)(for-loop_103 table_67(+ pos_101 inc_21)) table_67)))" +" table_64)))))" +" for-loop_103)" " '#hash()" " start_38)))))))))))))" "(define-values" @@ -35701,11 +35879,11 @@ static const char *startup_source = "(lambda(c_44)(begin(1/module-compiled-name c_44(1/module-compiled-name c_44)))))" "(define-values" "(reset-submodule-names)" -"(lambda(b_76 pre?_1 submods_2)" +"(lambda(b_78 pre?_1 submods_2)" "(begin" "(1/hash->linklet-bundle" "(hash-set" -"(1/linklet-bundle->hash b_76)" +"(1/linklet-bundle->hash b_78)" "(if pre?_1 'pre 'post)" "(map2 module-compiled-immediate-name submods_2))))))" "(define-values" @@ -35744,28 +35922,28 @@ static const char *startup_source = "(begin" " 'get-submodules" "(reverse$1" -"(let-values(((ht_121) compiled-submodules_0))" +"(let-values(((ht_126) compiled-submodules_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_121)))" -"((letrec-values(((for-loop_240)" -"(lambda(fold-var_28 i_152)" +"(let-values()(check-in-hash ht_126)))" +"((letrec-values(((for-loop_239)" +"(lambda(fold-var_28 i_92)" "(begin" " 'for-loop" -"(if i_152" +"(if i_92" "(let-values(((name_56 star?+compiled_0)" "(hash-iterate-key+value" -" ht_121" -" i_152)))" -"(let-values(((fold-var_150)" -"(let-values(((fold-var_69)" +" ht_126" +" i_92)))" +"(let-values(((fold-var_152)" +"(let-values(((fold-var_71)" " fold-var_28))" "(if(eq?" " star?_0" "(car star?+compiled_0))" "(let-values(((fold-var_220)" -" fold-var_69))" +" fold-var_71))" "(let-values(((fold-var_32)" "(let-values()" "(cons" @@ -35786,16 +35964,16 @@ static const char *startup_source = " star?+compiled_0))))" " fold-var_220))))" "(values fold-var_32)))" -" fold-var_69))))" +" fold-var_71))))" "(if(not #f)" -"(for-loop_240" -" fold-var_150" -"(hash-iterate-next ht_121 i_152))" -" fold-var_150)))" +"(for-loop_239" +" fold-var_152" +"(hash-iterate-next ht_126 i_92))" +" fold-var_152)))" " fold-var_28)))))" -" for-loop_240)" +" for-loop_239)" " null" -"(hash-iterate-first ht_121)))))))))" +"(hash-iterate-first ht_126)))))))))" "(let-values(((pre-submodules_0)(get-submodules_0 #f)))" "(let-values(((post-submodules_0)(get-submodules_0 #t)))" "(let-values(((c1_27)(parsed-module-compiled-module p_46)))" @@ -36030,7 +36208,7 @@ static const char *startup_source = " _69_3" " kw70_1))))))" "(begin" -"(let-values(((lst_194)" +"(let-values(((lst_195)" " kw70_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -36038,8 +36216,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_194)))" -"((letrec-values(((for-loop_204)" +" lst_195)))" +"((letrec-values(((for-loop_203)" "(lambda(lst_268)" "(begin" " 'for-loop" @@ -36048,7 +36226,7 @@ static const char *startup_source = "(let-values(((kw_0)" "(unsafe-car" " lst_268))" -"((rest_149)" +"((rest_148)" "(unsafe-cdr" " lst_268)))" "(let-values((()" @@ -36082,27 +36260,27 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_204" -" rest_149)" +"(for-loop_203" +" rest_148)" "(values))))" "(values))))))" -" for-loop_204)" -" lst_194)))" +" for-loop_203)" +" lst_195)))" "(void)" " #f)))" "(let-values() #f))))" "((temp66_1)" "(lambda(mod-name_17 phase_92)" -"(let-values(((ht_123)" +"(let-values(((ht_128)" "(if modules-being-compiled_1" "(hash-ref" " modules-being-compiled_1" " mod-name_17" " #f)" " #f)))" -"(if ht_123" +"(if ht_128" "(hash-ref" -" ht_123" +" ht_128" " phase_92" " #f)" " #f))))" @@ -36133,29 +36311,29 @@ static const char *startup_source = "(hash-set!" " modules-being-compiled_1" "(1/module-path-index-resolve self_25)" -"(let-values(((ht_124)" +"(let-values(((ht_129)" " body-linklets_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_124)))" +"(check-in-hash ht_129)))" "((letrec-values(((for-loop_23)" -"(lambda(table_191" -" i_153)" +"(lambda(table_194" +" i_152)" "(begin" " 'for-loop" -"(if i_153" +"(if i_152" "(let-values(((phase_93" " linklet_6)" "(hash-iterate-key+value" -" ht_124" -" i_153)))" -"(let-values(((table_192)" -"(let-values(((table_193)" -" table_191))" -"(let-values(((table_194)" +" ht_129" +" i_152)))" +"(let-values(((table_195)" +"(let-values(((table_196)" +" table_194))" +"(let-values(((table_197)" "(let-values()" "(let-values(((key_73" " val_64)" @@ -36178,23 +36356,23 @@ static const char *startup_source = " #f)" " #f))))))" "(hash-set" -" table_193" +" table_196" " key_73" " val_64)))))" "(values" -" table_194)))))" +" table_197)))))" "(if(not" " #f)" "(for-loop_23" -" table_192" +" table_195" "(hash-iterate-next" -" ht_124" -" i_153))" -" table_192)))" -" table_191)))))" +" ht_129" +" i_152))" +" table_195)))" +" table_194)))))" " for-loop_23)" " '#hasheq()" -"(hash-iterate-first ht_124))))))" +"(hash-iterate-first ht_129))))))" "(void))" "(values))))" "(let-values(((declaration-linklet_0)" @@ -36323,10 +36501,10 @@ static const char *startup_source = " syntax-literals_4))" "((if to-source?_3" " values" -"(lambda(s_207)" +"(lambda(s_208)" "(let-values()" "(1/compile-linklet" -" s_207" +" s_208" " 'syntax-literals-data))))" "(list*" " 'linklet" @@ -36355,10 +36533,10 @@ static const char *startup_source = "(if serializable?_3" "((if to-source?_3" " values" -"(lambda(s_208)" +"(lambda(s_209)" "(let-values()" "(1/compile-linklet" -" s_208" +" s_209" " 'data))))" "(list" " 'linklet" @@ -36510,8 +36688,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_269)))" -"((letrec-values(((for-loop_241)" -"(lambda(ht_125" +"((letrec-values(((for-loop_240)" +"(lambda(ht_130" " lst_270)" "(begin" " 'for-loop" @@ -36520,16 +36698,16 @@ static const char *startup_source = "(let-values(((sm_0)" "(unsafe-car" " lst_270))" -"((rest_150)" +"((rest_149)" "(unsafe-cdr" " lst_270)))" -"(let-values(((ht_126)" -"(let-values(((ht_127)" -" ht_125))" -"(let-values(((ht_118)" +"(let-values(((ht_131)" +"(let-values(((ht_132)" +" ht_130))" +"(let-values(((ht_123)" "(let-values()" "(hash-set" -" ht_127" +" ht_132" "(car" " sm_0)" "((if to-source?_3" @@ -36538,15 +36716,15 @@ static const char *startup_source = "(cdr" " sm_0))))))" "(values" -" ht_118)))))" +" ht_123)))))" "(if(not" " #f)" -"(for-loop_241" -" ht_126" -" rest_150)" -" ht_126)))" -" ht_125)))))" -" for-loop_241)" +"(for-loop_240" +" ht_131" +" rest_149)" +" ht_131)))" +" ht_130)))))" +" for-loop_240)" "(hasheq #f bundle_1)" " lst_269))))))))" "(if to-source?_3" @@ -36583,12 +36761,12 @@ static const char *startup_source = "(let-values(((lst_271) pre-submodules_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_271)))" -"((letrec-values(((for-loop_242)" +"((letrec-values(((for-loop_241)" "(lambda(lst_272)" "(begin" " 'for-loop" "(if(pair? lst_272)" -"(let-values(((s_408)(unsafe-car lst_272))((rest_151)(unsafe-cdr lst_272)))" +"(let-values(((s_408)(unsafe-car lst_272))((rest_150)(unsafe-cdr lst_272)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -36617,7 +36795,7 @@ static const char *startup_source = " modules-being-compiled_2" "(1/module-path-index-resolve" " sm-self_0)" -"(let-values(((ht_128)" +"(let-values(((ht_133)" "(1/linklet-bundle->hash" "(if(1/linklet-directory?" " ld_5)" @@ -36631,26 +36809,26 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_128)))" -"((letrec-values(((for-loop_243)" -"(lambda(table_195" -" i_154)" +"(check-in-hash ht_133)))" +"((letrec-values(((for-loop_242)" +"(lambda(table_198" +" i_153)" "(begin" " 'for-loop" -"(if i_154" +"(if i_153" "(let-values(((phase_94" " linklet_8)" "(hash-iterate-key+value" -" ht_128" -" i_154)))" -"(let-values(((table_196)" -"(let-values(((table_197)" -" table_195))" +" ht_133" +" i_153)))" +"(let-values(((table_199)" +"(let-values(((table_200)" +" table_198))" "(if(number?" " phase_94)" -"(let-values(((table_198)" -" table_197))" -"(let-values(((table_47)" +"(let-values(((table_201)" +" table_200))" +"(let-values(((table_202)" "(let-values()" "(let-values(((key_74" " val_65)" @@ -36675,30 +36853,30 @@ static const char *startup_source = " #f)" " #f))))))" "(hash-set" -" table_198" +" table_201" " key_74" " val_65)))))" "(values" -" table_47)))" -" table_197))))" +" table_202)))" +" table_200))))" "(if(not" " #f)" -"(for-loop_243" -" table_196" +"(for-loop_242" +" table_199" "(hash-iterate-next" -" ht_128" -" i_154))" -" table_196)))" -" table_195)))))" -" for-loop_243)" +" ht_133" +" i_153))" +" table_199)))" +" table_198)))))" +" for-loop_242)" " '#hasheq()" "(hash-iterate-first" -" ht_128))))))))))))" +" ht_133))))))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_242 rest_151)(values))))" +"(if(not #f)(for-loop_241 rest_150)(values))))" "(values))))))" -" for-loop_242)" +" for-loop_241)" " lst_271)))" "(void)))))" "(define-values" @@ -36722,20 +36900,20 @@ static const char *startup_source = "(if(1/linklet-bundle? c_32)" "(let-values()" "(1/hash->linklet-bundle" -"(let-values(((ht_129)(1/linklet-bundle->hash c_32)))" +"(let-values(((ht_134)(1/linklet-bundle->hash c_32)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_129)))" -"((letrec-values(((for-loop_244)" -"(lambda(table_199 i_155)" +"(let-values()(check-in-hash ht_134)))" +"((letrec-values(((for-loop_243)" +"(lambda(table_203 i_154)" "(begin" " 'for-loop" -"(if i_155" -"(let-values(((k_33 v_73)(hash-iterate-key+value ht_129 i_155)))" -"(let-values(((table_200)" -"(let-values(((table_201) table_199))" -"(let-values(((table_202)" +"(if i_154" +"(let-values(((k_33 v_73)(hash-iterate-key+value ht_134 i_154)))" +"(let-values(((table_204)" +"(let-values(((table_205) table_203))" +"(let-values(((table_206)" "(let-values()" "(let-values(((key_75 val_66)" "(let-values()" @@ -36747,32 +36925,32 @@ static const char *startup_source = " v_73)))" "(let-values()" "(values k_33 v_73))))))" -"(hash-set table_201 key_75 val_66)))))" -"(values table_202)))))" +"(hash-set table_205 key_75 val_66)))))" +"(values table_206)))))" "(if(not #f)" -"(for-loop_244 table_200(hash-iterate-next ht_129 i_155))" -" table_200)))" -" table_199)))))" -" for-loop_244)" +"(for-loop_243 table_204(hash-iterate-next ht_134 i_154))" +" table_204)))" +" table_203)))))" +" for-loop_243)" " '#hasheq()" -"(hash-iterate-first ht_129))))))" +"(hash-iterate-first ht_134))))))" "(if(1/linklet-directory? c_32)" "(let-values()" "(1/hash->linklet-directory" -"(let-values(((ht_79)(1/linklet-directory->hash c_32)))" +"(let-values(((ht_84)(1/linklet-directory->hash c_32)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_79)))" -"((letrec-values(((for-loop_215)" -"(lambda(table_165 i_156)" +"(let-values()(check-in-hash ht_84)))" +"((letrec-values(((for-loop_214)" +"(lambda(table_167 i_155)" "(begin" " 'for-loop" -"(if i_156" -"(let-values(((k_34 v_1)(hash-iterate-key+value ht_79 i_156)))" -"(let-values(((table_203)" -"(let-values(((table_204) table_165))" -"(let-values(((table_166)" +"(if i_155" +"(let-values(((k_34 v_1)(hash-iterate-key+value ht_84 i_155)))" +"(let-values(((table_207)" +"(let-values(((table_208) table_167))" +"(let-values(((table_168)" "(let-values()" "(let-values(((key_76 val_67)" "(let-values()" @@ -36785,15 +36963,15 @@ static const char *startup_source = " v_1)))" "(let-values()" "(values k_34 v_1))))))" -"(hash-set table_204 key_76 val_67)))))" -"(values table_166)))))" +"(hash-set table_208 key_76 val_67)))))" +"(values table_168)))))" "(if(not #f)" -"(for-loop_215 table_203(hash-iterate-next ht_79 i_156))" -" table_203)))" -" table_165)))))" -" for-loop_215)" +"(for-loop_214 table_207(hash-iterate-next ht_84 i_155))" +" table_207)))" +" table_167)))))" +" for-loop_214)" " '#hasheq()" -"(hash-iterate-first ht_79))))))" +"(hash-iterate-first ht_84))))))" "(let-values() c_32)))))))" "(define-values" "(create-compiled-in-memorys-using-shared-data)" @@ -36829,13 +37007,13 @@ static const char *startup_source = "(let-values(((or-part_75)(1/linklet-bundle? ld_6)))" "(if or-part_75" " or-part_75" -"(let-values(((b_77)" +"(let-values(((b_79)" "(hash-ref" "(1/linklet-directory->hash ld_6)" " #f" " #f)))" -"(if b_77" -"(hash-ref(1/linklet-bundle->hash b_77) 'decl #f)" +"(if b_79" +"(hash-ref(1/linklet-bundle->hash b_79) 'decl #f)" " #f))))))" "(let-values(((mpi-pos-vec_0)(vector-ref mpi-vector-tree_0 0)))" "(let-values(((syntax-literals-spec_0)" @@ -36853,7 +37031,7 @@ static const char *startup_source = "(begin" " 'map-construct-compiled-in-memory" "(reverse$1" -"(let-values(((lst_159) l_67)" +"(let-values(((lst_160) l_67)" "((lst_89)" "(vector-ref" " mpi-vector-tree_0" @@ -36870,7 +37048,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_159)))" +"(let-values()(check-list lst_160)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -36883,8 +37061,8 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_260)))" -"((letrec-values(((for-loop_234)" -"(lambda(fold-var_151" +"((letrec-values(((for-loop_233)" +"(lambda(fold-var_153" " lst_258" " lst_23" " lst_104" @@ -36905,7 +37083,7 @@ static const char *startup_source = "(let-values(((sub-ld_0)" "(unsafe-car" " lst_258))" -"((rest_143)" +"((rest_142)" "(unsafe-cdr" " lst_258))" "((mpi-vector-tree_1)" @@ -36926,10 +37104,10 @@ static const char *startup_source = "((rest_37)" "(unsafe-cdr" " lst_90)))" -"(let-values(((fold-var_163)" -"(let-values(((fold-var_164)" -" fold-var_151))" "(let-values(((fold-var_165)" +"(let-values(((fold-var_166)" +" fold-var_153))" +"(let-values(((fold-var_167)" "(let-values()" "(cons" "(let-values()" @@ -36938,21 +37116,21 @@ static const char *startup_source = " mpi-vector-tree_1" " phase-to-link-modules-tree_1" " syntax-literals-tree_1))" -" fold-var_164))))" +" fold-var_166))))" "(values" -" fold-var_165)))))" +" fold-var_167)))))" "(if(not #f)" -"(for-loop_234" -" fold-var_163" -" rest_143" +"(for-loop_233" +" fold-var_165" +" rest_142" " rest_51" " rest_90" " rest_37)" -" fold-var_163)))" -" fold-var_151)))))" -" for-loop_234)" +" fold-var_165)))" +" fold-var_153)))))" +" for-loop_233)" " null" -" lst_159" +" lst_160" " lst_89" " lst_262" " lst_260))))))))" @@ -36991,8 +37169,8 @@ static const char *startup_source = " vec_66))))))" "(begin" " #f" -"((letrec-values(((for-loop_102)" -"(lambda(i_157 pos_102)" +"((letrec-values(((for-loop_108)" +"(lambda(i_93 pos_102)" "(begin" " 'for-loop" "(if(unsafe-fx<" @@ -37002,10 +37180,10 @@ static const char *startup_source = "(unsafe-vector-ref" " vec_65" " pos_102)))" -"(let-values(((i_158)" +"(let-values(((i_156)" "(let-values(((i_63)" -" i_157))" -"(let-values(((i_159)" +" i_93))" +"(let-values(((i_157)" "(let-values()" "(begin" "(unsafe-vector*-set!" @@ -37019,23 +37197,23 @@ static const char *startup_source = " 1" " i_63)))))" "(values" -" i_159)))))" +" i_157)))))" "(if(if(not" "((lambda x_19" "(unsafe-fx=" -" i_158" +" i_156" " len_29))" " pos_103))" "(not #f)" " #f)" -"(for-loop_102" -" i_158" +"(for-loop_108" +" i_156" "(unsafe-fx+" " 1" " pos_102))" -" i_158)))" -" i_157)))))" -" for-loop_102)" +" i_156)))" +" i_93)))))" +" for-loop_108)" " 0" " 0)))))" " v_69))))" @@ -37063,16 +37241,16 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_15 end_28 inc_22)))" -"((letrec-values(((for-loop_245)" -"(lambda(i_160 pos_104)" +"((letrec-values(((for-loop_244)" +"(lambda(i_158 pos_104)" "(begin" " 'for-loop" "(if(< pos_104 end_28)" -"(let-values(((i_97)" +"(let-values(((i_99)" " pos_104))" -"(let-values(((i_161)" +"(let-values(((i_94)" "(let-values(((i_36)" -" i_160))" +" i_158))" "(let-values(((i_20)" "(let-values()" "(begin" @@ -37086,7 +37264,7 @@ static const char *startup_source = "(+" "(car" " syntax-literals-spec_0)" -" i_97))" +" i_99))" " #f)))" "(unsafe-fx+" " 1" @@ -37094,21 +37272,21 @@ static const char *startup_source = "(values" " i_20)))))" "(if(if(not" -"((lambda x_73" +"((lambda x_72" "(unsafe-fx=" -" i_161" +" i_94" " len_31))" -" i_97))" +" i_99))" "(not #f)" " #f)" -"(for-loop_245" -" i_161" +"(for-loop_244" +" i_94" "(+" " pos_104" " inc_22))" -" i_161)))" -" i_160)))))" -" for-loop_245)" +" i_94)))" +" i_158)))))" +" for-loop_244)" " 0" " start_15)))))" " v_36))))" @@ -37135,21 +37313,21 @@ static const char *startup_source = "(let-values(((mh_0)(1/linklet-bundle->hash mod_3)))" "(let-values(((names_2)(hash-ref mh_0 names-key_0 null)))" "(reverse$1" -"(let-values(((lst_174) names_2))" +"(let-values(((lst_175) names_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_174)))" -"((letrec-values(((for-loop_246)" +"(let-values()(check-list lst_175)))" +"((letrec-values(((for-loop_245)" "(lambda(fold-var_5 lst_273)" "(begin" " 'for-loop" "(if(pair? lst_273)" "(let-values(((name_59)(unsafe-car lst_273))" -"((rest_152)(unsafe-cdr lst_273)))" +"((rest_151)(unsafe-cdr lst_273)))" "(let-values(((fold-var_225)" "(let-values(((fold-var_226) fold-var_5))" -"(let-values(((fold-var_154)" +"(let-values(((fold-var_156)" "(let-values()" "(cons" "(let-values()" @@ -37161,12 +37339,12 @@ static const char *startup_source = " \"missing submodule declaration:\"" " name_59))))" " fold-var_226))))" -"(values fold-var_154)))))" -"(if(not #f)(for-loop_246 fold-var_225 rest_152) fold-var_225)))" +"(values fold-var_156)))))" +"(if(not #f)(for-loop_245 fold-var_225 rest_151) fold-var_225)))" " fold-var_5)))))" -" for-loop_246)" +" for-loop_245)" " null" -" lst_174))))))))))))))" +" lst_175))))))))))))))" "(define-values" "(eval-single-top)" "(lambda(c_32 ns_42)" @@ -37288,7 +37466,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_38 end_27 inc_21)))" -"((letrec-values(((for-loop_194)" +"((letrec-values(((for-loop_103)" "(lambda(prev-thunk_0 pos_101)" "(begin" " 'for-loop" @@ -37322,7 +37500,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_96)))" -"((letrec-values(((for-loop_108)" +"((letrec-values(((for-loop_110)" "(lambda(mis_7" " is_6" " lst_222)" @@ -37333,7 +37511,7 @@ static const char *startup_source = "(let-values(((mu_9)" "(unsafe-car" " lst_222))" -"((rest_153)" +"((rest_152)" "(unsafe-cdr" " lst_222)))" "(let-values(((mis_8" @@ -37377,17 +37555,17 @@ static const char *startup_source = " is_9)))))" "(if(not" " #f)" -"(for-loop_108" +"(for-loop_110" " mis_8" " is_7" -" rest_153)" +" rest_152)" "(values" " mis_8" " is_7))))" "(values" " mis_7" " is_6))))))" -" for-loop_108)" +" for-loop_110)" " null" " null" " lst_96)))))" @@ -37545,12 +37723,12 @@ static const char *startup_source = "(values" " prev-thunk_3)))))" "(if(not #f)" -"(for-loop_194" +"(for-loop_103" " prev-thunk_1" "(+ pos_101 inc_21))" " prev-thunk_1)))" " prev-thunk_0)))))" -" for-loop_194)" +" for-loop_103)" " void" " start_38)))))" "(thunk_5 as-tail?_2))))))))))))))))))))" @@ -37586,20 +37764,20 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_6)" -"(lambda(i_162 pos_105)" +"(lambda(i_159 pos_105)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_105 len_33)" "(let-values(((s_50)" "(unsafe-vector-ref vec_67 pos_105)))" -"(let-values(((i_163)" -"(let-values(((i_164) i_162))" -"(let-values(((i_165)" +"(let-values(((i_160)" +"(let-values(((i_161) i_159))" +"(let-values(((i_162)" "(let-values()" "(begin" "(unsafe-vector*-set!" " v_98" -" i_164" +" i_161" "(let-values()" "(swap-top-level-scopes" " s_50" @@ -37608,17 +37786,17 @@ static const char *startup_source = " to-ns_0)))" "(unsafe-fx+" " 1" -" i_164)))))" -"(values i_165)))))" +" i_161)))))" +"(values i_162)))))" "(if(if(not" -"((lambda x_74" -"(unsafe-fx= i_163 len_32))" +"((lambda x_73" +"(unsafe-fx= i_160 len_32))" " s_50))" "(not #f)" " #f)" -"(for-loop_6 i_163(unsafe-fx+ 1 pos_105))" -" i_163)))" -" i_162)))))" +"(for-loop_6 i_160(unsafe-fx+ 1 pos_105))" +" i_160)))" +" i_159)))))" " for-loop_6)" " 0" " 0)))))" @@ -37645,24 +37823,24 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_103)))" -"((letrec-values(((for-loop_112)" -"(lambda(result_115 lst_84)" +"((letrec-values(((for-loop_114)" +"(lambda(result_113 lst_84)" "(begin" " 'for-loop" "(if(pair? lst_84)" "(let-values(((r_42)(unsafe-car lst_84))((rest_50)(unsafe-cdr lst_84)))" "(let-values(((result_79)" "(let-values()" -"(let-values(((result_116)" +"(let-values(((result_114)" "(let-values()" "(let-values()" "(can-direct-eval? r_42 ns_42 self-mpi_3)))))" -"(values result_116)))))" -"(if(if(not((lambda x_75(not result_79)) r_42))(not #f) #f)" -"(for-loop_112 result_79 rest_50)" +"(values result_114)))))" +"(if(if(not((lambda x_74(not result_79)) r_42))(not #f) #f)" +"(for-loop_114 result_79 rest_50)" " result_79)))" -" result_115)))))" -" for-loop_112)" +" result_113)))))" +" for-loop_114)" " #t" " lst_103)))" " #f))" @@ -37683,24 +37861,24 @@ static const char *startup_source = "(let-values(((lst_77)(parsed-app-rands p_48)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_77)))" -"((letrec-values(((for-loop_95)" +"((letrec-values(((for-loop_96)" "(lambda(fold-var_227 lst_78)" "(begin" " 'for-loop" "(if(pair? lst_78)" "(let-values(((r_8)(unsafe-car lst_78))((rest_36)(unsafe-cdr lst_78)))" "(let-values(((fold-var_218)" -"(let-values(((fold-var_67) fold-var_227))" +"(let-values(((fold-var_69) fold-var_227))" "(let-values(((fold-var_26)" "(let-values()" "(cons" "(let-values()" "(direct-eval r_8 ns_67 self-mpi_4))" -" fold-var_67))))" +" fold-var_69))))" "(values fold-var_26)))))" -"(if(not #f)(for-loop_95 fold-var_218 rest_36) fold-var_218)))" +"(if(not #f)(for-loop_96 fold-var_218 rest_36) fold-var_218)))" " fold-var_227)))))" -" for-loop_95)" +" for-loop_96)" " null" " lst_77))))))" "(if(parsed-id? p_48)" @@ -37712,38 +37890,38 @@ static const char *startup_source = "(get-id-value)" "(lambda(p_1 ns_73 self-mpi_5)" "(begin" -"(let-values(((b_74)(parsed-id-binding p_1)))" +"(let-values(((b_76)(parsed-id-binding p_1)))" "(if(parsed-primitive-id? p_1)" -"(let-values()(hash-ref(1/primitive-table '#%kernel)(module-binding-sym b_74) get-not-available))" +"(let-values()(hash-ref(1/primitive-table '#%kernel)(module-binding-sym b_76) get-not-available))" "(if(let-values(((or-part_74)(parsed-top-id? p_1)))" "(if or-part_74" " or-part_74" -"(let-values(((or-part_75)(not b_74)))" -"(if or-part_75 or-part_75(eq? self-mpi_5(module-binding-module b_74))))))" +"(let-values(((or-part_75)(not b_76)))" +"(if or-part_75 or-part_75(eq? self-mpi_5(module-binding-module b_76))))))" "(let-values()" "(namespace-get-variable" " ns_73" -"(if b_74(module-binding-phase b_74)(namespace-phase ns_73))" -"(if b_74(module-binding-sym b_74)(syntax-e$1(parsed-s p_1)))" +"(if b_76(module-binding-phase b_76)(namespace-phase ns_73))" +"(if b_76(module-binding-sym b_76)(syntax-e$1(parsed-s p_1)))" " get-not-available))" "(let-values()" "(let-values(((mi_18)" "(let-values(((ns1_2) ns_73)" -"((temp2_4)(1/module-path-index-resolve(module-binding-module b_74)))" -"((temp3_4)(phase-(namespace-phase ns_73)(module-binding-phase b_74))))" +"((temp2_4)(1/module-path-index-resolve(module-binding-module b_76)))" +"((temp3_4)(phase-(namespace-phase ns_73)(module-binding-phase b_76))))" "(namespace->module-instance70.1 #f #f unsafe-undefined ns1_2 temp2_4 temp3_4))))" "(if(not mi_18)" "(let-values() not-available)" "(if(check-single-require-access" " mi_18" -"(module-binding-phase b_74)" -"(module-binding-sym b_74)" -"(module-binding-extra-inspector b_74))" +"(module-binding-phase b_76)" +"(module-binding-sym b_76)" +"(module-binding-extra-inspector b_76))" "(let-values()" "(namespace-get-variable" "(module-instance-namespace mi_18)" -"(module-binding-phase b_74)" -"(module-binding-sym b_74)" +"(module-binding-phase b_76)" +"(module-binding-sym b_76)" " get-not-available))" "(let-values() not-available)))))))))))" "(define-values(runtime-scope)(new-multi-scope))" @@ -37754,7 +37932,7 @@ static const char *startup_source = "(add-runtime-primitive!)" "(lambda(sym_66)" "(begin" -"(let-values(((temp1_3)(syntax-scope-set runtime-stx 0))" +"(let-values(((temp1_4)(syntax-scope-set runtime-stx 0))" "((sym2_0) sym_66)" "((temp3_5)" "(let-values(((runtime-mpi4_0) runtime-mpi)((temp5_4) 0)((sym6_2) sym_66))" @@ -37771,7 +37949,7 @@ static const char *startup_source = " runtime-mpi4_0" " temp5_4" " sym6_2))))" -"(add-binding-in-scopes!20.1 #f temp1_3 sym2_0 temp3_5)))))" +"(add-binding-in-scopes!20.1 #f temp1_4 sym2_0 temp3_5)))))" "(void" "(begin" "(add-runtime-primitive! 'values)" @@ -37788,7 +37966,7 @@ static const char *startup_source = "(define-values(box-clear!)(lambda(b_17)(begin(begin0(reverse$1(unbox b_17))(set-box! b_17 null)))))" "(define-values" "(struct:lift-context lift-context1.1 lift-context? lift-context-convert lift-context-lifts lift-context-module*-ok?)" -"(let-values(((struct:_73 make-_73 ?_73 -ref_73 -set!_73)" +"(let-values(((struct:_74 make-_74 ?_74 -ref_74 -set!_74)" "(let-values()" "(let-values()" "(make-struct-type" @@ -37804,15 +37982,15 @@ static const char *startup_source = " #f" " 'lift-context)))))" "(values" -" struct:_73" -" make-_73" -" ?_73" -"(make-struct-field-accessor -ref_73 0 'convert)" -"(make-struct-field-accessor -ref_73 1 'lifts)" -"(make-struct-field-accessor -ref_73 2 'module*-ok?))))" +" struct:_74" +" make-_74" +" ?_74" +"(make-struct-field-accessor -ref_74 0 'convert)" +"(make-struct-field-accessor -ref_74 1 'lifts)" +"(make-struct-field-accessor -ref_74 2 'module*-ok?))))" "(define-values" "(struct:lifted-bind lifted-bind2.1 lifted-bind? lifted-bind-ids lifted-bind-keys lifted-bind-rhs)" -"(let-values(((struct:_74 make-_74 ?_74 -ref_74 -set!_74)" +"(let-values(((struct:_75 make-_75 ?_75 -ref_75 -set!_75)" "(let-values()" "(let-values()" "(make-struct-type" @@ -37828,12 +38006,12 @@ static const char *startup_source = " #f" " 'lifted-bind)))))" "(values" -" struct:_74" -" make-_74" -" ?_74" -"(make-struct-field-accessor -ref_74 0 'ids)" -"(make-struct-field-accessor -ref_74 1 'keys)" -"(make-struct-field-accessor -ref_74 2 'rhs))))" +" struct:_75" +" make-_75" +" ?_75" +"(make-struct-field-accessor -ref_75 0 'ids)" +"(make-struct-field-accessor -ref_75 1 'keys)" +"(make-struct-field-accessor -ref_75 2 'rhs))))" "(define-values" "(make-lift-context6.1)" "(lambda(module*-ok?3_0 convert5_0)" @@ -37862,15 +38040,15 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_274)))" "((letrec-values(((for-loop_29)" -"(lambda(fold-var_155 lst_275)" +"(lambda(fold-var_157 lst_275)" "(begin" " 'for-loop" "(if(pair? lst_275)" "(let-values(((id_58)(unsafe-car lst_275))" -"((rest_154)(unsafe-cdr lst_275)))" -"(let-values(((fold-var_82)" -"(let-values(((fold-var_83) fold-var_155))" +"((rest_153)(unsafe-cdr lst_275)))" "(let-values(((fold-var_84)" +"(let-values(((fold-var_85) fold-var_157))" +"(let-values(((fold-var_86)" "(let-values()" "(cons" "(let-values()" @@ -37895,10 +38073,10 @@ static const char *startup_source = " key_15" " variable))" " key_15)))" -" fold-var_83))))" -"(values fold-var_84)))))" -"(if(not #f)(for-loop_29 fold-var_82 rest_154) fold-var_82)))" -" fold-var_155)))))" +" fold-var_85))))" +"(values fold-var_86)))))" +"(if(not #f)(for-loop_29 fold-var_84 rest_153) fold-var_84)))" +" fold-var_157)))))" " for-loop_29)" " null" " lst_274))))))" @@ -37913,18 +38091,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_182) ids_18))" +"(let-values(((lst_183) ids_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_182)))" -"((letrec-values(((for-loop_247)" -"(lambda(fold-var_228 lst_183)" +"(let-values()(check-list lst_183)))" +"((letrec-values(((for-loop_246)" +"(lambda(fold-var_228 lst_184)" "(begin" " 'for-loop" -"(if(pair? lst_183)" -"(let-values(((id_59)(unsafe-car lst_183))" -"((rest_155)(unsafe-cdr lst_183)))" +"(if(pair? lst_184)" +"(let-values(((id_59)(unsafe-car lst_184))" +"((rest_154)(unsafe-cdr lst_184)))" "(let-values(((fold-var_229)" "(let-values(((fold-var_230) fold-var_228))" "(let-values(((fold-var_231)" @@ -37937,14 +38115,14 @@ static const char *startup_source = " fold-var_230))))" "(values fold-var_231)))))" "(if(not #f)" -"(for-loop_247 fold-var_229 rest_155)" +"(for-loop_246 fold-var_229 rest_154)" " fold-var_229)))" " fold-var_228)))))" -" for-loop_247)" +" for-loop_246)" " null" -" lst_182))))))" -"(let-values(((syms_19)(select-defined-syms-and-bind!/ctx tl-ids_1 ctx_11)))" -"(values tl-ids_1(lifted-bind2.1 tl-ids_1 syms_19 rhs_14)))))))))" +" lst_183))))))" +"(let-values(((syms_20)(select-defined-syms-and-bind!/ctx tl-ids_1 ctx_11)))" +"(values tl-ids_1(lifted-bind2.1 tl-ids_1 syms_20 rhs_14)))))))))" "(define-values" "(wrap-lifts-as-let)" "(lambda(lifts_3 body_4 phase_98)" @@ -37955,11 +38133,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_276)))" "((letrec-values(((for-loop_56)" -"(lambda(body_5 lst_185)" +"(lambda(body_5 lst_186)" "(begin" " 'for-loop" -"(if(pair? lst_185)" -"(let-values(((lift_0)(unsafe-car lst_185))((rest_156)(unsafe-cdr lst_185)))" +"(if(pair? lst_186)" +"(let-values(((lift_0)(unsafe-car lst_186))((rest_155)(unsafe-cdr lst_186)))" "(let-values(((body_6)" "(let-values(((body_7) body_5))" "(let-values(((body_0)" @@ -37979,7 +38157,7 @@ static const char *startup_source = "(lifted-bind-rhs lift_0)))" " body_7)))))" "(values body_0)))))" -"(if(not #f)(for-loop_56 body_6 rest_156) body_6)))" +"(if(not #f)(for-loop_56 body_6 rest_155) body_6)))" " body_5)))))" " for-loop_56)" " body_4" @@ -38006,15 +38184,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_277)))" -"((letrec-values(((for-loop_248)" -"(lambda(fold-var_161 lst_166)" +"((letrec-values(((for-loop_247)" +"(lambda(fold-var_163 lst_167)" "(begin" " 'for-loop" -"(if(pair? lst_166)" -"(let-values(((lift_1)(unsafe-car lst_166))" -"((rest_157)(unsafe-cdr lst_166)))" -"(let-values(((fold-var_162)" -"(let-values(((fold-var_178) fold-var_161))" +"(if(pair? lst_167)" +"(let-values(((lift_1)(unsafe-car lst_167))" +"((rest_156)(unsafe-cdr lst_167)))" +"(let-values(((fold-var_164)" +"(let-values(((fold-var_178) fold-var_163))" "(let-values(((fold-var_232)" "(let-values()" "(cons" @@ -38036,9 +38214,9 @@ static const char *startup_source = "(let-values() lift_1))))" " fold-var_178))))" "(values fold-var_232)))))" -"(if(not #f)(for-loop_248 fold-var_162 rest_157) fold-var_162)))" -" fold-var_161)))))" -" for-loop_248)" +"(if(not #f)(for-loop_247 fold-var_164 rest_156) fold-var_164)))" +" fold-var_163)))))" +" for-loop_247)" " null" " lst_277))))" "(list(adjust-body_0 body_8))))))))))))))" @@ -38050,12 +38228,12 @@ static const char *startup_source = "(let-values(((lst_107) lifts_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_107)))" -"((letrec-values(((for-loop_249)" +"((letrec-values(((for-loop_248)" "(lambda(fold-var_233 lst_278)" "(begin" " 'for-loop" "(if(pair? lst_278)" -"(let-values(((lift_2)(unsafe-car lst_278))((rest_158)(unsafe-cdr lst_278)))" +"(let-values(((lift_2)(unsafe-car lst_278))((rest_157)(unsafe-cdr lst_278)))" "(let-values(((fold-var_38)" "(let-values(((fold-var_234) fold-var_233))" "(let-values(((fold-var_235)" @@ -38068,9 +38246,9 @@ static const char *startup_source = "(lifted-bind-rhs lift_2)))" " fold-var_234))))" "(values fold-var_235)))))" -"(if(not #f)(for-loop_249 fold-var_38 rest_158) fold-var_38)))" +"(if(not #f)(for-loop_248 fold-var_38 rest_157) fold-var_38)))" " fold-var_233)))))" -" for-loop_249)" +" for-loop_248)" " null" " lst_107)))))))" "(define-values" @@ -38080,7 +38258,7 @@ static const char *startup_source = " module-lift-context-wrt-phase" " module-lift-context-lifts" " module-lift-context-module*-ok?)" -"(let-values(((struct:_75 make-_75 ?_75 -ref_75 -set!_75)" +"(let-values(((struct:_76 make-_76 ?_76 -ref_76 -set!_76)" "(let-values()" "(let-values()" "(make-struct-type" @@ -38096,12 +38274,12 @@ static const char *startup_source = " #f" " 'module-lift-context)))))" "(values" -" struct:_75" -" make-_75" -" ?_75" -"(make-struct-field-accessor -ref_75 0 'wrt-phase)" -"(make-struct-field-accessor -ref_75 1 'lifts)" -"(make-struct-field-accessor -ref_75 2 'module*-ok?))))" +" struct:_76" +" make-_76" +" ?_76" +"(make-struct-field-accessor -ref_76 0 'wrt-phase)" +"(make-struct-field-accessor -ref_76 1 'lifts)" +"(make-struct-field-accessor -ref_76 2 'module*-ok?))))" "(define-values" "(make-module-lift-context)" "(lambda(phase_10 module*-ok?_1)(begin(module-lift-context19.1 phase_10(box null) module*-ok?_1))))" @@ -38146,7 +38324,7 @@ static const char *startup_source = " require-lift-context-do-require" " require-lift-context-wrt-phase" " require-lift-context-requires)" -"(let-values(((struct:_76 make-_76 ?_76 -ref_76 -set!_76)" +"(let-values(((struct:_77 make-_77 ?_77 -ref_77 -set!_77)" "(let-values()" "(let-values()" "(make-struct-type" @@ -38162,12 +38340,12 @@ static const char *startup_source = " #f" " 'require-lift-context)))))" "(values" -" struct:_76" -" make-_76" -" ?_76" -"(make-struct-field-accessor -ref_76 0 'do-require)" -"(make-struct-field-accessor -ref_76 1 'wrt-phase)" -"(make-struct-field-accessor -ref_76 2 'requires))))" +" struct:_77" +" make-_77" +" ?_77" +"(make-struct-field-accessor -ref_77 0 'do-require)" +"(make-struct-field-accessor -ref_77 1 'wrt-phase)" +"(make-struct-field-accessor -ref_77 2 'requires))))" "(define-values" "(make-require-lift-context)" "(lambda(wrt-phase_0 do-require_0)(begin(require-lift-context20.1 do-require_0 wrt-phase_0(box null)))))" @@ -38189,7 +38367,7 @@ static const char *startup_source = " to-module-lift-context-provides" " to-module-lift-context-end-as-expressions?" " to-module-lift-context-ends)" -"(let-values(((struct:_77 make-_77 ?_77 -ref_77 -set!_77)" +"(let-values(((struct:_78 make-_78 ?_78 -ref_78 -set!_78)" "(let-values()" "(let-values()" "(make-struct-type" @@ -38205,13 +38383,13 @@ static const char *startup_source = " #f" " 'to-module-lift-context)))))" "(values" -" struct:_77" -" make-_77" -" ?_77" -"(make-struct-field-accessor -ref_77 0 'wrt-phase)" -"(make-struct-field-accessor -ref_77 1 'provides)" -"(make-struct-field-accessor -ref_77 2 'end-as-expressions?)" -"(make-struct-field-accessor -ref_77 3 'ends))))" +" struct:_78" +" make-_78" +" ?_78" +"(make-struct-field-accessor -ref_78 0 'wrt-phase)" +"(make-struct-field-accessor -ref_78 1 'provides)" +"(make-struct-field-accessor -ref_78 2 'end-as-expressions?)" +"(make-struct-field-accessor -ref_78 3 'ends))))" "(define-values" "(make-to-module-lift-context27.1)" "(lambda(end-as-expressions?23_0 shared-module-ends22_0 phase26_2)" @@ -38291,7 +38469,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_75)))" -"((letrec-values(((for-loop_94)" +"((letrec-values(((for-loop_95)" "(lambda(result_77 lst_76)" "(begin" " 'for-loop" @@ -38299,7 +38477,7 @@ static const char *startup_source = "(let-values(((s_2)(unsafe-car lst_76))((rest_35)(unsafe-cdr lst_76)))" "(let-values(((result_64)" "(let-values()" -"(let-values(((result_117)" +"(let-values(((result_115)" "(let-values()" "(let-values()" "(memq" @@ -38309,12 +38487,12 @@ static const char *startup_source = " module" " module-begin" " definition-context))))))" -"(values result_117)))))" -"(if(if(not((lambda x_76(not result_64)) s_2))(not #f) #f)" -"(for-loop_94 result_64 rest_35)" +"(values result_115)))))" +"(if(if(not((lambda x_75(not result_64)) s_2))(not #f) #f)" +"(for-loop_95 result_64 rest_35)" " result_64)))" " result_77)))))" -" for-loop_94)" +" for-loop_95)" " #t" " lst_75)))" " #f)" @@ -38416,12 +38594,12 @@ static const char *startup_source = "(let-values(((lst_41) rrs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_41)))" -"((letrec-values(((for-loop_250)" +"((letrec-values(((for-loop_249)" "(lambda(lst_89)" "(begin" " 'for-loop" "(if(pair? lst_89)" -"(let-values(((rr_1)(unsafe-car lst_89))((rest_120)(unsafe-cdr lst_89)))" +"(let-values(((rr_1)(unsafe-car lst_89))((rest_119)(unsafe-cdr lst_89)))" "(let-values(((post-guard-var_0)(lambda()(begin 'post-guard-var #t))))" "(let-values()" "(if(reference-record-all-referenced? rr_1)" @@ -38433,9 +38611,9 @@ static const char *startup_source = "(let-values()" "(set-reference-record-all-referenced?! rr_1 #t))" "(values)))))" -"(if(post-guard-var_0)(for-loop_250 rest_120)(values))))))))" +"(if(post-guard-var_0)(for-loop_249 rest_119)(values))))))))" "(values))))))" -" for-loop_250)" +" for-loop_249)" " lst_41)))" "(void)))))" "(define-values" @@ -38468,7 +38646,7 @@ static const char *startup_source = "(let-values(((lst_58) keys_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_58)))" -"((letrec-values(((for-loop_82)" +"((letrec-values(((for-loop_83)" "(lambda(rbb_0 lst_24)" "(begin" " 'for-loop" @@ -38478,9 +38656,9 @@ static const char *startup_source = "(let-values(((rbb_2) rbb_0))" "(let-values(((rbb_3)(let-values()(set-remove rbb_2 key_79))))" "(values rbb_3)))))" -"(if(not #f)(for-loop_82 rbb_1 rest_26) rbb_1)))" +"(if(not #f)(for-loop_83 rbb_1 rest_26) rbb_1)))" " rbb_0)))))" -" for-loop_82)" +" for-loop_83)" "(reference-record-reference-before-bound rr_2)" " lst_58))))))))" "(define-values" @@ -38634,7 +38812,7 @@ static const char *startup_source = " semi-parsed-define-values-syms" " semi-parsed-define-values-ids" " semi-parsed-define-values-rhs)" -"(let-values(((struct:_67 make-_67 ?_67 -ref_67 -set!_67)" +"(let-values(((struct:_68 make-_68 ?_68 -ref_68 -set!_68)" "(let-values()" "(let-values()" "(make-struct-type" @@ -38650,13 +38828,13 @@ static const char *startup_source = " #f" " 'semi-parsed-define-values)))))" "(values" -" struct:_67" -" make-_67" -" ?_67" -"(make-struct-field-accessor -ref_67 0 's)" -"(make-struct-field-accessor -ref_67 1 'syms)" -"(make-struct-field-accessor -ref_67 2 'ids)" -"(make-struct-field-accessor -ref_67 3 'rhs))))" +" struct:_68" +" make-_68" +" ?_68" +"(make-struct-field-accessor -ref_68 0 's)" +"(make-struct-field-accessor -ref_68 1 'syms)" +"(make-struct-field-accessor -ref_68 2 'ids)" +"(make-struct-field-accessor -ref_68 3 'rhs))))" "(define-values" "(struct:semi-parsed-begin-for-syntax" " semi-parsed-begin-for-syntax3.1" @@ -38684,21 +38862,21 @@ 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_190)(begin(if(expanded+parsed? s_190)(expanded+parsed-s s_190) s_190))))" +"(define-values(extract-syntax)(lambda(s_191)(begin(if(expanded+parsed? s_191)(expanded+parsed-s s_191) s_191))))" "(define-values" "(parsed-only)" "(lambda(l_70)" "(begin" "(reverse$1" -"(let-values(((lst_174) l_70))" +"(let-values(((lst_175) l_70))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_174)))" -"((letrec-values(((for-loop_246)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_175)))" +"((letrec-values(((for-loop_245)" "(lambda(fold-var_5 lst_273)" "(begin" " 'for-loop" "(if(pair? lst_273)" -"(let-values(((i_45)(unsafe-car lst_273))((rest_152)(unsafe-cdr lst_273)))" +"(let-values(((i_45)(unsafe-car lst_273))((rest_151)(unsafe-cdr lst_273)))" "(let-values(((fold-var_225)" "(let-values(((fold-var_226) fold-var_5))" "(if(let-values(((or-part_263)(parsed? i_45)))" @@ -38727,11 +38905,11 @@ static const char *startup_source = " fold-var_172))))" "(values fold-var_173)))" " fold-var_226))))" -"(if(not #f)(for-loop_246 fold-var_225 rest_152) fold-var_225)))" +"(if(not #f)(for-loop_245 fold-var_225 rest_151) fold-var_225)))" " fold-var_5)))))" -" for-loop_246)" +" for-loop_245)" " null" -" lst_174)))))))" +" lst_175)))))))" "(define-values" "(syntax-only)" "(lambda(l_19)" @@ -38740,14 +38918,14 @@ static const char *startup_source = "(let-values(((lst_279) l_19))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_279)))" -"((letrec-values(((for-loop_251)" -"(lambda(fold-var_156 lst_280)" +"((letrec-values(((for-loop_250)" +"(lambda(fold-var_158 lst_280)" "(begin" " 'for-loop" "(if(pair? lst_280)" -"(let-values(((i_37)(unsafe-car lst_280))((rest_159)(unsafe-cdr lst_280)))" -"(let-values(((fold-var_83)" -"(let-values(((fold-var_84) fold-var_156))" +"(let-values(((i_37)(unsafe-car lst_280))((rest_158)(unsafe-cdr lst_280)))" +"(let-values(((fold-var_85)" +"(let-values(((fold-var_86) fold-var_158))" "(if(let-values(((or-part_264)(syntax?$1 i_37)))" "(if or-part_264" " or-part_264" @@ -38755,7 +38933,7 @@ static const char *startup_source = "(if or-part_25" " or-part_25" "(semi-parsed-begin-for-syntax? i_37)))))" -"(let-values(((fold-var_85) fold-var_84))" +"(let-values(((fold-var_87) fold-var_86))" "(let-values(((fold-var_236)" "(let-values()" "(cons" @@ -38782,23 +38960,23 @@ static const char *startup_source = " s_412))" "(let-values(((begin-for-syntax7_1" " _8_1)" -"(let-values(((s_85)" +"(let-values(((s_86)" "(if(syntax?$1" " s_412)" "(syntax-e$1" " s_412)" " s_412)))" "(if(pair?" -" s_85)" +" s_86)" "(let-values(((begin-for-syntax9_0)" "(let-values(((s_28)" "(car" -" s_85)))" +" s_86)))" " s_28))" "((_10_0)" "(let-values(((s_29)" "(cdr" -" s_85)))" +" s_86)))" "(let-values(((s_30)" "(if(syntax?$1" " s_29)" @@ -38839,12 +39017,12 @@ static const char *startup_source = " s11_0" " temp12_2)))))))" "(let-values() i_37))))" -" fold-var_85))))" +" fold-var_87))))" "(values fold-var_236)))" -" fold-var_84))))" -"(if(not #f)(for-loop_251 fold-var_83 rest_159) fold-var_83)))" -" fold-var_156)))))" -" for-loop_251)" +" fold-var_86))))" +"(if(not #f)(for-loop_250 fold-var_85 rest_158) fold-var_85)))" +" fold-var_158)))))" +" for-loop_250)" " null" " lst_279)))))))" "(define-values" @@ -38852,7 +39030,7 @@ static const char *startup_source = "(lambda(alternate-id1_0 fail-non-transformer3_0 skip-log?2_0 s7_0 ctx8_0)" "(begin" " 'expand9" -"(let-values(((s_413) s7_0))" +"(let-values(((s_188) s7_0))" "(let-values(((ctx_14) ctx8_0))" "(let-values(((alternate-id_0) alternate-id1_0))" "(let-values(((skip-log?_0) skip-log?2_0))" @@ -38867,14 +39045,14 @@ static const char *startup_source = "(call-expand-observe" " obs_1" "(if(expand-context-only-immediate? ctx_14) 'enter-check 'visit)" -" s_413))" +" s_188))" "(void)))" "(void)))" -"(if(syntax-identifier? s_413)" -"(let-values()(expand-identifier s_413 ctx_14 alternate-id_0))" -"(if(if(pair?(syntax-content s_413))(syntax-identifier?(car(syntax-content s_413))) #f)" +"(if(syntax-identifier? s_188)" +"(let-values()(expand-identifier s_188 ctx_14 alternate-id_0))" +"(if(if(pair?(syntax-content s_188))(syntax-identifier?(car(syntax-content s_188))) #f)" "(let-values()" -"(let-values(((s122_0) s_413)" +"(let-values(((s122_0) s_188)" "((ctx123_0) ctx_14)" "((alternate-id124_0) alternate-id_0)" "((fail-non-transformer125_0) fail-non-transformer_0))" @@ -38883,17 +39061,17 @@ static const char *startup_source = " s122_0" " ctx123_0" " alternate-id124_0)))" -"(if(let-values(((or-part_67)(pair?(syntax-content s_413))))" -"(if or-part_67 or-part_67(null?(syntax-content s_413))))" -"(let-values()(expand-implicit '#%app s_413 ctx_14 #f))" -"(if(already-expanded?(syntax-content s_413))" -"(let-values()(expand-already-expanded s_413 ctx_14))" -"(let-values()(expand-implicit '#%datum s_413 ctx_14 #f))))))))))))))))" +"(if(let-values(((or-part_67)(pair?(syntax-content s_188))))" +"(if or-part_67 or-part_67(null?(syntax-content s_188))))" +"(let-values()(expand-implicit '#%app s_188 ctx_14 #f))" +"(if(already-expanded?(syntax-content s_188))" +"(let-values()(expand-already-expanded s_188 ctx_14))" +"(let-values()(expand-implicit '#%datum s_188 ctx_14 #f))))))))))))))))" "(define-values" "(expand-identifier)" -"(lambda(s_414 ctx_15 alternate-id_1)" +"(lambda(s_413 ctx_15 alternate-id_1)" "(begin" -"(let-values(((id_60)(let-values(((or-part_265) alternate-id_1))(if or-part_265 or-part_265 s_414))))" +"(let-values(((id_60)(let-values(((or-part_265) alternate-id_1))(if or-part_265 or-part_265 s_413))))" "(if(if(not(free-id-set-empty?(expand-context-stops ctx_15)))" "(free-id-set-member?(expand-context-stops ctx_15)(expand-context-phase ctx_15) id_60)" " #f)" @@ -38906,13 +39084,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_414)" +"(call-expand-observe obs_2 'enter-prim s_413)" "(call-expand-observe obs_2 'prim-stop)" -"(call-expand-observe obs_2 'exit-prim s_414)" -"(call-expand-observe obs_2 'return s_414)))" +"(call-expand-observe obs_2 'exit-prim s_413)" +"(call-expand-observe obs_2 'return s_413)))" "(void)))" "(void)))" -" s_414))" +" s_413))" "(let-values()" "(let-values(((binding_18)" "(let-values(((id126_0) id_60)" @@ -38931,18 +39109,18 @@ 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_414 alternate-id_1) ctx_15 s_414))" +"(let-values()(expand-implicit '#%top(substitute-alternate-id s_413 alternate-id_1) ctx_15 s_413))" "(let-values()" "(let-values(((t_48 primitive?_2 insp-of-t_0 protected?_3)" "(let-values(((binding138_0) binding_18)" "((ctx139_0) ctx_15)" "((id140_0) id_60)" -"((temp141_0)(if alternate-id_1 s_414 #f))" +"((temp141_0)(if alternate-id_1 s_413 #f))" "((temp142_0)(expand-context-in-local-expand? ctx_15)))" "(lookup62.1 temp141_0 temp142_0 binding138_0 ctx139_0 id140_0))))" "(let-values(((t130_0) t_48)" "((insp-of-t131_0) insp-of-t_0)" -"((s132_0) s_414)" +"((s132_0) s_413)" "((id133_0) id_60)" "((ctx134_0) ctx_15)" "((binding135_0) binding_18)" @@ -38963,14 +39141,14 @@ static const char *startup_source = "(lambda(fail-non-transformer12_0 s14_0 ctx15_0 alternate-id16_0)" "(begin" " 'expand-id-application-form17" -"(let-values(((s_70) s14_0))" +"(let-values(((s_84) s14_0))" "(let-values(((ctx_16) ctx15_0))" "(let-values(((alternate-id_2) alternate-id16_0))" "(let-values(((fail-non-transformer_1) fail-non-transformer12_0))" "(let-values()" "(let-values(((id_61)" "(let-values(((or-part_140) alternate-id_2))" -"(if or-part_140 or-part_140(car(syntax-e/no-taint s_70))))))" +"(if or-part_140 or-part_140(car(syntax-e/no-taint s_84))))))" "(if(if(not(free-id-set-empty?(expand-context-stops ctx_16)))" "(free-id-set-member?(expand-context-stops ctx_16)(expand-context-phase ctx_16) id_61)" " #f)" @@ -38983,15 +39161,15 @@ static const char *startup_source = "(let-values()" "(begin" "(call-expand-observe obs_4 'resolve id_61)" -"(call-expand-observe obs_4 'enter-prim s_70)" +"(call-expand-observe obs_4 'enter-prim s_84)" "(call-expand-observe obs_4 'prim-stop)" -"(call-expand-observe obs_4 'exit-prim s_70)" -"(call-expand-observe obs_4 'return s_70)))" +"(call-expand-observe obs_4 'exit-prim s_84)" +"(call-expand-observe obs_4 'return s_84)))" "(void)))" "(void)))" -" s_70))" +" s_84))" "(let-values()" -"(let-values(((binding_0)" +"(let-values(((binding_19)" "(let-values(((id143_0) id_61)" "((temp144_0)(expand-context-phase ctx_16))" "((temp145_0) 'ambiguous)" @@ -39005,23 +39183,23 @@ static const char *startup_source = "(let-values()(call-expand-observe obs_5 'resolve id_61))" "(void)))" "(void)))" -"(if(eq? binding_0 'ambiguous)" +"(if(eq? binding_19 'ambiguous)" "(let-values()" "(begin" "(if fail-non-transformer_1(let-values()(fail-non-transformer_1))(void))" "(raise-ambiguous-error id_61 ctx_16)))" -"(if(not binding_0)" +"(if(not binding_19)" "(let-values()" "(begin" "(if fail-non-transformer_1(let-values()(fail-non-transformer_1))(void))" -"(expand-implicit '#%app(substitute-alternate-id s_70 alternate-id_2) ctx_16 id_61)))" +"(expand-implicit '#%app(substitute-alternate-id s_84 alternate-id_2) ctx_16 id_61)))" "(let-values()" "(let-values(((t_49 primitive?_3 insp-of-t_1 protected?_4)" -"(let-values(((binding147_0) binding_0)" +"(let-values(((binding147_0) binding_19)" "((ctx148_0) ctx_16)" "((id149_0) id_61)" "((temp150_0)" -"(if alternate-id_2(car(syntax-e/no-taint s_70)) #f))" +"(if alternate-id_2(car(syntax-e/no-taint s_84)) #f))" "((temp151_0)(expand-context-in-local-expand? ctx_16)))" "(lookup62.1 temp150_0 temp151_0 binding147_0 ctx148_0 id149_0))))" "(if(variable? t_49)" @@ -39030,16 +39208,16 @@ static const char *startup_source = "(if fail-non-transformer_1(let-values()(fail-non-transformer_1))(void))" "(expand-implicit" " '#%app" -"(substitute-alternate-id s_70 alternate-id_2)" +"(substitute-alternate-id s_84 alternate-id_2)" " ctx_16" " id_61)))" "(let-values()" "(let-values(((t152_0) t_49)" "((insp-of-t153_0) insp-of-t_1)" -"((s154_0) s_70)" +"((s154_0) s_84)" "((id155_0) id_61)" "((ctx156_0) ctx_16)" -"((binding157_0) binding_0)" +"((binding157_0) binding_19)" "((primitive?158_0) primitive?_3)" "((protected?159_0) protected?_4)" "((fail-non-transformer160_0) fail-non-transformer_1))" @@ -39093,18 +39271,18 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_8 'resolve id_62)))" "(void)))" "(values))))" -"(let-values(((b_78)" +"(let-values(((b_80)" "(let-values(((id161_0) id_62)" "((temp162_1)(expand-context-phase ctx_17))" "((temp163_2) 'ambiguous)" "((temp164_0) #t))" "(resolve+shift28.1 temp163_2 #f null temp164_0 #f id161_0 temp162_1))))" -"(if(eq? b_78 'ambiguous)" +"(if(eq? b_80 'ambiguous)" "(let-values()(raise-ambiguous-error id_62 ctx_17))" "(let-values()" "(let-values(((t_50 primitive?_4 insp-of-t_2 protected?_5)" -"(if b_78" -"(let-values(((b165_0) b_78)((ctx166_0) ctx_17)((id167_0) id_62))" +"(if b_80" +"(let-values(((b165_0) b_80)((ctx166_0) ctx_17)((id167_0) id_62))" "(lookup62.1 #f #f b165_0 ctx166_0 id167_0))" "(values #f #f #f #f))))" "(if(transformer? t_50)" @@ -39121,7 +39299,7 @@ static const char *startup_source = "((temp170_1)(make-explicit ctx_17 sym_68 s_52 disarmed-s_1))" "((id171_1) id_62)" "((ctx172_0) ctx_17)" -"((b173_0) b_78)" +"((b173_0) b_80)" "((fail-non-transformer174_0) fail-non-transformer_2))" "(dispatch-transformer41.1" " fail-non-transformer174_0" @@ -39216,10 +39394,10 @@ static const char *startup_source = " result-s_1))))))))))))" "(define-values" "(make-explicit)" -"(lambda(ctx_19 sym_69 s_415 disarmed-s_2)" +"(lambda(ctx_19 sym_69 s_414 disarmed-s_2)" "(begin" "(let-values(((new-s_0)" -"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_69 disarmed-s_2) s_415 s_415) s_415)))" +"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_69 disarmed-s_2) s_414 s_414) s_414)))" "(begin" "(let-values(((obs_10)(expand-context-observer ctx_19)))" "(if obs_10(let-values()(let-values()(call-expand-observe obs_10 'tag new-s_0)))(void)))" @@ -39231,24 +39409,24 @@ static const char *startup_source = " 'dispatch30" "(let-values(((t_51) t22_0))" "(let-values(((insp-of-t_3) insp-of-t23_0))" -"(let-values(((s_416) s24_1))" +"(let-values(((s_415) s24_1))" "(let-values(((id_63) id25_1))" "(let-values(((ctx_20) ctx26_0))" -"(let-values(((binding_19) binding27_1))" +"(let-values(((binding_20) binding27_1))" "(let-values(((primitive?_5) primitive?28_0))" "(let-values(((protected?_6) protected?29_0))" "(let-values(((fail-non-transformer_3) fail-non-transformer20_0))" "(let-values()" "(if(core-form? t_51)" -"(let-values()(dispatch-core-form t_51 s_416 ctx_20))" +"(let-values()(dispatch-core-form t_51 s_415 ctx_20))" "(if(transformer? t_51)" "(let-values()" "(let-values(((t179_0) t_51)" "((insp-of-t180_0) insp-of-t_3)" -"((s181_0) s_416)" +"((s181_0) s_415)" "((id182_0) id_63)" "((ctx183_0) ctx_20)" -"((binding184_0) binding_19)" +"((binding184_0) binding_20)" "((fail-non-transformer185_0) fail-non-transformer_3))" "(dispatch-transformer41.1" " fail-non-transformer185_0" @@ -39260,28 +39438,28 @@ static const char *startup_source = " binding184_0)))" "(if(variable? t_51)" "(let-values()" -"(dispatch-variable t_51 s_416 id_63 ctx_20 binding_19 primitive?_5 protected?_6))" -" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_416))))))))))))))))))" +"(dispatch-variable t_51 s_415 id_63 ctx_20 binding_20 primitive?_5 protected?_6))" +" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_415))))))))))))))))))" "(define-values" "(dispatch-core-form)" -"(lambda(t_52 s_159 ctx_21)" +"(lambda(t_52 s_160 ctx_21)" "(begin" "(if(expand-context-only-immediate? ctx_21)" "(let-values()" "(begin" "(let-values(((obs_11)(expand-context-observer ctx_21)))" -"(if obs_11(let-values()(let-values()(call-expand-observe obs_11 'exit-check s_159)))(void)))" -" s_159))" +"(if obs_11(let-values()(let-values()(call-expand-observe obs_11 'exit-check s_160)))(void)))" +" s_160))" "(if(expand-context-observer ctx_21)" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_12)(expand-context-observer ctx_21)))" "(if obs_12" -"(let-values()(let-values()(call-expand-observe obs_12 'enter-prim s_159)))" +"(let-values()(let-values()(call-expand-observe obs_12 'enter-prim s_160)))" "(void)))" "(values))))" -"(let-values(((result-s_2)((core-form-expander t_52) s_159 ctx_21)))" +"(let-values(((result-s_2)((core-form-expander t_52) s_160 ctx_21)))" "(begin" "(let-values(((obs_13)(expand-context-observer ctx_21)))" "(if obs_13" @@ -39292,7 +39470,7 @@ static const char *startup_source = "(call-expand-observe obs_13 'return(extract-syntax result-s_2)))))" "(void)))" " result-s_2))))" -"(let-values()((core-form-expander t_52) s_159 ctx_21)))))))" +"(let-values()((core-form-expander t_52) s_160 ctx_21)))))))" "(define-values" "(dispatch-implicit-#%top-core-form)" "(lambda(t_53 s_319 ctx_22)" @@ -39322,10 +39500,10 @@ static const char *startup_source = " 'dispatch-transformer41" "(let-values(((t_54) t35_0))" "(let-values(((insp-of-t_4) insp-of-t36_0))" -"(let-values(((s_160) s37_0))" +"(let-values(((s_161) s37_0))" "(let-values(((id_64) id38_0))" "(let-values(((ctx_23) ctx39_0))" -"(let-values(((binding_20) binding40_0))" +"(let-values(((binding_21) binding40_0))" "(let-values(((fail-non-transformer_4) fail-non-transformer33_0))" "(let-values()" "(if(not-in-this-expand-context? t_54 ctx_23)" @@ -39335,18 +39513,18 @@ static const char *startup_source = "(let-values(((obs_16)(expand-context-observer ctx_23)))" "(if obs_16" "(let-values()" -"(let-values()(call-expand-observe obs_16 'enter-macro s_160)))" +"(let-values()(call-expand-observe obs_16 'enter-macro s_161)))" "(void)))" "(values))))" "(let-values(((adj-s_0)" "(avoid-current-expand-context" -"(substitute-alternate-id s_160 id_64)" +"(substitute-alternate-id s_161 id_64)" " t_54" " ctx_23)))" "(begin" "(let-values(((obs_17)(expand-context-observer ctx_23)))" "(if obs_17" -"(let-values()(let-values()(call-expand-observe obs_17 'exit-macro s_160)))" +"(let-values()(let-values()(call-expand-observe obs_17 'exit-macro s_161)))" "(void)))" "(let-values(((adj-s186_0) adj-s_0)((ctx187_0) ctx_23))" "(expand9.1 #f #f #f adj-s186_0 ctx187_0))))))" @@ -39355,7 +39533,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"encountered a macro binding in form that should be fully expanded\"" -" s_160))" +" s_161))" "(let-values()" "(let-values((()" "(begin" @@ -39367,20 +39545,20 @@ static const char *startup_source = " #f)" "(let-values()" "(begin" -"(call-expand-observe obs_18 'visit s_160)" +"(call-expand-observe obs_18 'visit s_161)" "(call-expand-observe obs_18 'resolve id_64)))" "(void)))" "(void)))" "(values))))" "(let-values(((exp-s_1 re-ctx_0)" "(if(1/rename-transformer? t_54)" -"(values s_160 ctx_23)" +"(values s_161 ctx_23)" "(let-values(((t188_0) t_54)" "((insp-of-t189_0) insp-of-t_4)" -"((s190_0) s_160)" +"((s190_0) s_161)" "((id191_0) id_64)" "((ctx192_0) ctx_23)" -"((binding193_0) binding_20))" +"((binding193_0) binding_21))" "(apply-transformer52.1" " #f" " t188_0" @@ -39427,23 +39605,23 @@ static const char *startup_source = " re-ctx195_0)))))))))))))))))))))" "(define-values" "(dispatch-variable)" -"(lambda(t_55 s_113 id_65 ctx_24 binding_21 primitive?_6 protected?_7)" +"(lambda(t_55 s_114 id_65 ctx_24 binding_22 primitive?_6 protected?_7)" "(begin" "(if(expand-context-only-immediate? ctx_24)" "(let-values()" "(begin" "(let-values(((obs_20)(expand-context-observer ctx_24)))" -"(if obs_20(let-values()(let-values()(call-expand-observe obs_20 'exit-check s_113)))(void)))" +"(if obs_20(let-values()(let-values()(call-expand-observe obs_20 'exit-check s_114)))(void)))" " id_65))" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_21)(expand-context-observer ctx_24)))" "(if obs_21" -"(let-values()(let-values()(call-expand-observe obs_21 'variable s_113 id_65)))" +"(let-values()(let-values()(call-expand-observe obs_21 'variable s_114 id_65)))" "(void)))" "(values))))" -"(let-values((()(begin(register-variable-referenced-if-local! binding_21)(values))))" +"(let-values((()(begin(register-variable-referenced-if-local! binding_22)(values))))" "(let-values(((result-s_4)" "(let-values(((id199_0) id_65)" "((t200_0) t_55)" @@ -39455,8 +39633,8 @@ static const char *startup_source = "(let-values(((prop-s_0)(keep-properties-only~ result-s_4)))" "(let-values(((insp_16)(syntax-inspector result-s_4)))" "(if primitive?_6" -"(parsed-primitive-id3.1 prop-s_0 binding_21 insp_16)" -"(parsed-id2.1 prop-s_0 binding_21 insp_16)))))" +"(parsed-primitive-id3.1 prop-s_0 binding_22 insp_16)" +"(parsed-id2.1 prop-s_0 binding_22 insp_16)))))" "(let-values()" "(let-values(((protected-result-s_0)" "(if protected?_7(syntax-property$1 result-s_4 'protected #t) result-s_4)))" @@ -39473,10 +39651,10 @@ static const char *startup_source = " 'apply-transformer52" "(let-values(((t_56) t46_0))" "(let-values(((insp-of-t_5) insp-of-t47_0))" -"(let-values(((s_121) s48_0))" +"(let-values(((s_122) s48_0))" "(let-values(((id_32) id49_2))" "(let-values(((ctx_25) ctx50_0))" -"(let-values(((binding_22) binding51_0))" +"(let-values(((binding_23) binding51_0))" "(let-values(((origin-id_0) origin-id44_0))" "(let-values()" "(let-values()" @@ -39485,14 +39663,14 @@ static const char *startup_source = "(let-values(((obs_23)(expand-context-observer ctx_25)))" "(if obs_23" "(let-values()" -"(let-values()(call-expand-observe obs_23 'enter-macro s_121)))" +"(let-values()(call-expand-observe obs_23 'enter-macro s_122)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_3)(syntax-disarm$1 s_121)))" +"(let-values(((disarmed-s_3)(syntax-disarm$1 s_122)))" "(let-values(((intro-scope_0)(new-scope 'macro)))" "(let-values(((intro-s_0)(flip-scope disarmed-s_3 intro-scope_0)))" "(let-values(((use-s_0 use-scopes_0)" -"(maybe-add-use-site-scope intro-s_0 ctx_25 binding_22)))" +"(maybe-add-use-site-scope intro-s_0 ctx_25 binding_23)))" "(let-values(((cleaned-s_0)(syntax-remove-taint-dispatch-properties use-s_0)))" "(let-values(((def-ctx-scopes_1)(box null)))" "(let-values(((transformed-s_0)" @@ -39514,13 +39692,13 @@ static const char *startup_source = "(let-values(((or-part_268) origin-id_0))" "(if or-part_268" " or-part_268" -"(if(syntax-identifier? s_121)" -" s_121" -"(car(syntax-e$1 s_121))))))))" +"(if(syntax-identifier? s_122)" +" s_122" +"(car(syntax-e$1 s_122))))))))" "(let-values(((rearmed-s_0)" "(taint-dispatch" " tracked-s_0" -"(lambda(t-s_0)(syntax-rearm$1 t-s_0 s_121))" +"(lambda(t-s_0)(syntax-rearm$1 t-s_0 s_122))" "(expand-context-phase ctx_25))))" "(begin" "(let-values(((obs_24)(expand-context-observer ctx_25)))" @@ -39560,15 +39738,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_190) accum-ctx_0))" -"(let-values(((the-struct_57) v_190))" +"(let-values(((v_188) accum-ctx_0))" +"(let-values(((the-struct_57) v_188))" "(if(expand-context/outer? the-struct_57)" "(let-values(((current-introduction-scopes202_0)(cons intro-scope_1 use-scopes_1))" "((def-ctx-scopes203_0)" "(if confine-def-ctx-scopes?_0" " def-ctx-scopes_2" "(expand-context-def-ctx-scopes ctx_26)))" -"((inner204_0)(root-expand-context/outer-inner v_190)))" +"((inner204_0)(root-expand-context/outer-inner v_188)))" "(expand-context/outer1.1" " inner204_0" "(root-expand-context/outer-post-expansion-scope the-struct_57)" @@ -39619,15 +39797,15 @@ static const char *startup_source = " transformed-s_1)))))))))" "(define-values" "(maybe-add-use-site-scope)" -"(lambda(s_343 ctx_27 binding_23)" +"(lambda(s_343 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_23))" +"(matching-frame?(root-expand-context-frame-id ctx_27)(binding-frame-id binding_24))" " #f)" "(let-values()" -"(let-values(((sc_31)(new-scope 'use-site)))" -"(let-values(((b_79)(root-expand-context-use-site-scopes ctx_27)))" -"(begin(set-box! b_79(cons sc_31(unbox b_79)))(values(add-scope s_343 sc_31)(list sc_31))))))" +"(let-values(((sc_32)(new-scope 'use-site)))" +"(let-values(((b_81)(root-expand-context-use-site-scopes ctx_27)))" +"(begin(set-box! b_81(cons sc_32(unbox b_81)))(values(add-scope s_343 sc_32)(list sc_32))))))" "(let-values()(values s_343 null))))))" "(define-values" "(matching-frame?)" @@ -39651,11 +39829,11 @@ static const char *startup_source = "(begin" "(if(null?(unbox def-ctx-scopes_3))" " ctx_29" -"(let-values(((v_191) ctx_29))" -"(let-values(((the-struct_58) v_191))" +"(let-values(((v_189) ctx_29))" +"(let-values(((the-struct_58) v_189))" "(if(expand-context/outer? the-struct_58)" "(let-values(((scopes205_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_29)))" -"((inner206_0)(root-expand-context/outer-inner v_191)))" +"((inner206_0)(root-expand-context/outer-inner v_189)))" "(expand-context/outer1.1" " inner206_0" "(root-expand-context/outer-post-expansion-scope the-struct_58)" @@ -39678,13 +39856,13 @@ static const char *startup_source = "(lambda(in55_0 out-of-context-as-variable?56_0 b59_0 ctx60_0 id61_0)" "(begin" " 'lookup62" -"(let-values(((b_80) b59_0))" +"(let-values(((b_82) b59_0))" "(let-values(((ctx_30) ctx60_0))" "(let-values(((id_67) id61_0))" "(let-values(((in-s_7) in55_0))" "(let-values(((out-of-context-as-variable?_1) out-of-context-as-variable?56_0))" "(let-values()" -"(let-values(((b207_0) b_80)" +"(let-values(((b207_0) b_82)" "((temp208_0)(expand-context-env ctx_30))" "((temp209_1)(expand-context-lift-envs ctx_30))" "((temp210_0)(expand-context-namespace ctx_30))" @@ -39718,10 +39896,10 @@ static const char *startup_source = " s_354))))))))" "(define-values" "(register-variable-referenced-if-local!)" -"(lambda(binding_24)" +"(lambda(binding_25)" "(begin" -"(if(if(local-binding? binding_24)(reference-record?(binding-frame-id binding_24)) #f)" -"(let-values()(reference-record-used!(binding-frame-id binding_24)(local-binding-key binding_24)))" +"(if(if(local-binding? binding_25)(reference-record?(binding-frame-id binding_25)) #f)" +"(let-values()(reference-record-used!(binding-frame-id binding_25)(local-binding-key binding_25)))" "(void)))))" "(define-values" "(expand/capture-lifts75.1)" @@ -39738,8 +39916,8 @@ static const char *startup_source = "(let-values(((context_6)(expand-context-context ctx_31)))" "(let-values(((phase_102)(expand-context-phase ctx_31)))" "(let-values(((local?_0)(not begin-form?_0)))" -"((letrec-values(((loop_94)" -"(lambda(s_417 always-wrap?_1 ctx_32)" +"((letrec-values(((loop_95)" +"(lambda(s_416 always-wrap?_1 ctx_32)" "(begin" " 'loop" "(let-values(((lift-env_2)(if local?_0(box empty-env) #f)))" @@ -39756,13 +39934,13 @@ static const char *startup_source = " #f)))" "(make-lift-context6.1 temp216_0 temp215_0))))" "(let-values(((capture-ctx_0)" -"(let-values(((v_192) ctx_32))" -"(let-values(((the-struct_59) v_192))" +"(let-values(((v_190) ctx_32))" +"(let-values(((the-struct_59) v_190))" "(if(expand-context/outer? the-struct_59)" "(let-values(((inner217_0)" "(let-values(((the-struct_60)" "(root-expand-context/outer-inner" -" v_192)))" +" v_190)))" "(if(expand-context/inner?" " the-struct_60)" "(let-values(((lift-key218_0)" @@ -39873,9 +40051,9 @@ static const char *startup_source = " 'struct-copy" " \"expand-context/outer?\"" " the-struct_59))))))" -"(let-values(((rebuild-s_0)(keep-properties-only s_417)))" +"(let-values(((rebuild-s_0)(keep-properties-only s_416)))" "(let-values(((exp-s_2)" -"(let-values(((s222_0) s_417)" +"(let-values(((s222_0) s_416)" "((capture-ctx223_0) capture-ctx_0))" "(expand9.1 #f #f #f s222_0 capture-ctx223_0))))" "(let-values(((lifts_6)" @@ -39902,7 +40080,7 @@ static const char *startup_source = " rebuild-s_0" " ctx_32" "(lambda(rhs_15 rhs-ctx_0)" -"(loop_94 rhs_15 #f rhs-ctx_0)))))" +"(loop_95 rhs_15 #f rhs-ctx_0)))))" "(let-values()" "(if begin-form?_0" "(let-values(((lifts224_0) lifts_6)" @@ -39940,8 +40118,8 @@ static const char *startup_source = " 'letlift-loop" " with-lifts-s_0)))" "(void)))" -"(loop_94 with-lifts-s_0 #f ctx_32)))))))))))))))" -" loop_94)" +"(loop_95 with-lifts-s_0 #f ctx_32)))))))))))))))" +" loop_95)" " s_252" " always-wrap?_0" " ctx_31))))))))))))))" @@ -39950,7 +40128,7 @@ static const char *startup_source = "(lambda(always-wrap?82_0 begin-form?79_0 context78_0 expand-lifts?80_0 keep-stops?83_0 lift-key81_0 s90_0 ctx91_0)" "(begin" " 'expand-transformer92" -"(let-values(((s_418) s90_0))" +"(let-values(((s_417) s90_0))" "(let-values(((ctx_33) ctx91_0))" "(let-values(((context_7) context78_0))" "(let-values(((begin-form?_1) begin-form?79_0))" @@ -39965,7 +40143,7 @@ static const char *startup_source = "((context234_0) context_7)" "((keep-stops?235_0) keep-stops?_0))" "(context->transformer-context99.1 keep-stops?235_0 ctx233_0 context234_0))))" -"(let-values(((s227_0) s_418)" +"(let-values(((s227_0) s_417)" "((trans-ctx228_0) trans-ctx_0)" "((expand-lifts?229_0) expand-lifts?_1)" "((begin-form?230_0) begin-form?_1)" @@ -39991,8 +40169,8 @@ static const char *startup_source = "(let-values(((ns_74)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_103)))" "(begin" "(namespace-visit-available-modules! ns_74 phase_103)" -"(let-values(((v_193) ctx_34))" -"(let-values(((the-struct_61) v_193))" +"(let-values(((v_191) ctx_34))" +"(let-values(((the-struct_61) v_191))" "(if(expand-context/outer? the-struct_61)" "(let-values(((context236_0) context_8)" "((scopes237_0) null)" @@ -40002,7 +40180,7 @@ static const char *startup_source = "((def-ctx-scopes240_0) #f)" "((post-expansion-scope241_0) #f)" "((inner242_0)" -"(let-values(((the-struct_62)(root-expand-context/outer-inner v_193)))" +"(let-values(((the-struct_62)(root-expand-context/outer-inner v_191)))" "(if(expand-context/inner? the-struct_62)" "(let-values(((phase243_0) phase_103)" "((namespace244_0) ns_74)" @@ -40159,20 +40337,20 @@ static const char *startup_source = " (if (pair? (cdr ids_21)) \" ...\" \"\"))))" " vals_4)))" " vals_4))))))" -"(define-values(keep-properties-only)(lambda(s_419)(begin(datum->syntax$1 #f 'props s_419 s_419))))" -"(define-values(keep-properties-only~)(lambda(s_420)(begin #f)))" +"(define-values(keep-properties-only)(lambda(s_418)(begin(datum->syntax$1 #f 'props s_418 s_418))))" +"(define-values(keep-properties-only~)(lambda(s_419)(begin #f)))" "(define-values" "(keep-as-needed119.1)" "(lambda(for-track?111_0 keep-for-error?113_0 keep-for-parsed?112_0 ctx117_0 s118_0)" "(begin" " 'keep-as-needed119" "(let-values(((ctx_38) ctx117_0))" -"(let-values(((s_421) s118_0))" +"(let-values(((s_420) s118_0))" "(let-values()" "(let-values(((keep-for-parsed?_0) keep-for-parsed?112_0))" "(let-values(((keep-for-error?_0) keep-for-error?113_0))" "(let-values()" -"(let-values(((d_33)(syntax-e$1 s_421)))" +"(let-values(((d_33)(syntax-e$1 s_420)))" "(let-values(((keep-e_0)" "(if(symbol? d_33)" "(let-values() d_33)" @@ -40183,31 +40361,31 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_274) keep-for-parsed?_0))" "(if or-part_274 or-part_274 keep-for-error?_0))" -"(datum->syntax$1 #f keep-e_0 s_421 s_421)" +"(datum->syntax$1 #f keep-e_0 s_420 s_420)" " #f))" "(let-values()" "(syntax-rearm$1" -"(datum->syntax$1(syntax-disarm$1 s_421) keep-e_0 s_421 s_421)" -" s_421))))))))))))))" +"(datum->syntax$1(syntax-disarm$1 s_420) keep-e_0 s_420 s_420)" +" s_420))))))))))))))" "(define-values" "(attach-disappeared-transformer-bindings)" -"(lambda(s_422 trans-idss_0)" +"(lambda(s_421 trans-idss_0)" "(begin" "(if(null? trans-idss_0)" -"(let-values() s_422)" +"(let-values() s_421)" "(let-values()" "(syntax-property$1" -" s_422" +" s_421" " 'disappeared-binding" "(append" "(apply append trans-idss_0)" -"(let-values(((or-part_275)(syntax-property$1 s_422 'disappeared-binding)))" +"(let-values(((or-part_275)(syntax-property$1 s_421 'disappeared-binding)))" "(if or-part_275 or-part_275 null)))))))))" "(define-values" "(increment-binding-layer)" "(lambda(ids_22 ctx_39 layer-val_0)" "(begin" -"(if((letrec-values(((loop_95)" +"(if((letrec-values(((loop_96)" "(lambda(ids_23)" "(begin" " 'loop" @@ -40215,10 +40393,10 @@ static const char *startup_source = "(if or-part_276" " or-part_276" "(if(pair? ids_23)" -"(let-values(((or-part_197)(loop_95(car ids_23))))" -"(if or-part_197 or-part_197(loop_95(cdr ids_23))))" +"(let-values(((or-part_197)(loop_96(car ids_23))))" +"(if or-part_197 or-part_197(loop_96(cdr ids_23))))" " #f)))))))" -" loop_95)" +" loop_96)" " ids_22)" " layer-val_0" "(expand-context-binding-layer ctx_39)))))" @@ -40245,8 +40423,8 @@ static const char *startup_source = "(list" "(lets-loop_0" "(cdr idss+keyss+rhss_1)" -"(let-values(((v_194) rhs-ctx_1))" -"(let-values(((the-struct_63) v_194))" +"(let-values(((v_192) rhs-ctx_1))" +"(let-values(((the-struct_63) v_192))" "(if(expand-context/outer? the-struct_63)" "(let-values(((env257_0)" "(let-values(((lst_281) ids_24)((lst_282) keys_4))" @@ -40259,7 +40437,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_282)))" -"((letrec-values(((for-loop_252)" +"((letrec-values(((for-loop_251)" "(lambda(env_3 lst_283 lst_284)" "(begin" " 'for-loop" @@ -40269,13 +40447,13 @@ static const char *startup_source = "(let-values(((id_68)" "(unsafe-car" " lst_283))" -"((rest_160)" +"((rest_159)" "(unsafe-cdr" " lst_283))" "((key_81)" "(unsafe-car" " lst_284))" -"((rest_161)" +"((rest_160)" "(unsafe-cdr" " lst_284)))" "(let-values(((env_4)" @@ -40291,17 +40469,17 @@ static const char *startup_source = "(values" " env_6)))))" "(if(not #f)" -"(for-loop_252" +"(for-loop_251" " env_4" -" rest_160" -" rest_161)" +" rest_159" +" rest_160)" " env_4)))" " env_3)))))" -" for-loop_252)" +" for-loop_251)" "(expand-context-env rhs-ctx_1)" " lst_281" " lst_282))))" -"((inner258_0)(root-expand-context/outer-inner v_194)))" +"((inner258_0)(root-expand-context/outer-inner v_192)))" "(expand-context/outer1.1" " inner258_0" "(root-expand-context/outer-post-expansion-scope the-struct_63)" @@ -40385,15 +40563,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_103)))" -"((letrec-values(((for-loop_112)" -"(lambda(fold-var_88 lst_84)" +"((letrec-values(((for-loop_114)" +"(lambda(fold-var_90 lst_84)" "(begin" " 'for-loop" "(if(pair? lst_84)" "(let-values(((sym_70)(unsafe-car lst_84))" "((rest_50)(unsafe-cdr lst_84)))" -"(let-values(((fold-var_89)" -"(let-values(((fold-var_90) fold-var_88))" +"(let-values(((fold-var_91)" +"(let-values(((fold-var_92) fold-var_90))" "(let-values(((fold-var_60)" "(let-values()" "(cons" @@ -40401,11 +40579,11 @@ static const char *startup_source = "(datum->syntax$1" " p-core-stx_0" " sym_70))" -" fold-var_90))))" +" fold-var_92))))" "(values fold-var_60)))))" -"(if(not #f)(for-loop_112 fold-var_89 rest_50) fold-var_89)))" -" fold-var_88)))))" -" for-loop_112)" +"(if(not #f)(for-loop_114 fold-var_91 rest_50) fold-var_91)))" +" fold-var_90)))))" +" for-loop_114)" " null" " lst_103)))))))))))))" "(define-values" @@ -40434,12 +40612,12 @@ static const char *startup_source = "(let-values(((lst_102) module-stop-syms))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_102)))" -"((letrec-values(((for-loop_111)" +"((letrec-values(((for-loop_113)" "(lambda(fold-var_237 lst_259)" "(begin" " 'for-loop" "(if(pair? lst_259)" -"(let-values(((sym_18)(unsafe-car lst_259))((rest_162)(unsafe-cdr lst_259)))" +"(let-values(((sym_18)(unsafe-car lst_259))((rest_161)(unsafe-cdr lst_259)))" "(let-values(((fold-var_216)" "(let-values(((fold-var_217) fold-var_237))" "(let-values(((fold-var_218)" @@ -40449,9 +40627,9 @@ static const char *startup_source = "(datum->syntax$1 p-core-stx_1 sym_18))" " fold-var_217))))" "(values fold-var_218)))))" -"(if(not #f)(for-loop_111 fold-var_216 rest_162) fold-var_216)))" +"(if(not #f)(for-loop_113 fold-var_216 rest_161) fold-var_216)))" " fold-var_237)))))" -" for-loop_111)" +" for-loop_113)" " null" " lst_102))))))))" "(define-values" @@ -40468,7 +40646,7 @@ static const char *startup_source = " internal-definition-context-add-scope?" " internal-definition-context-env-mixins" " internal-definition-context-parent-ctx)" -"(let-values(((struct:_40 make-_40 ?_40 -ref_40 -set!_40)" +"(let-values(((struct:_41 make-_41 ?_41 -ref_41 -set!_41)" "(let-values()" "(let-values()" "(make-struct-type" @@ -40484,28 +40662,28 @@ static const char *startup_source = " #f" " 'internal-definition-context)))))" "(values" -" struct:_40" -" make-_40" -" ?_40" -"(make-struct-field-accessor -ref_40 0 'frame-id)" -"(make-struct-field-accessor -ref_40 1 'scope)" -"(make-struct-field-accessor -ref_40 2 'add-scope?)" -"(make-struct-field-accessor -ref_40 3 'env-mixins)" -"(make-struct-field-accessor -ref_40 4 'parent-ctx))))" +" struct:_41" +" make-_41" +" ?_41" +"(make-struct-field-accessor -ref_41 0 'frame-id)" +"(make-struct-field-accessor -ref_41 1 'scope)" +"(make-struct-field-accessor -ref_41 2 'add-scope?)" +"(make-struct-field-accessor -ref_41 3 'env-mixins)" +"(make-struct-field-accessor -ref_41 4 'parent-ctx))))" "(define-values" "(struct:env-mixin env-mixin2.1 env-mixin? env-mixin-id env-mixin-sym env-mixin-value env-mixin-cache)" -"(let-values(((struct:_78 make-_78 ?_78 -ref_78 -set!_78)" +"(let-values(((struct:_79 make-_79 ?_79 -ref_79 -set!_79)" "(let-values()" "(let-values()" "(make-struct-type 'env-mixin #f 4 0 #f null(current-inspector) #f '(0 1 2 3) #f 'env-mixin)))))" "(values" -" struct:_78" -" make-_78" -" ?_78" -"(make-struct-field-accessor -ref_78 0 'id)" -"(make-struct-field-accessor -ref_78 1 'sym)" -"(make-struct-field-accessor -ref_78 2 'value)" -"(make-struct-field-accessor -ref_78 3 'cache))))" +" struct:_79" +" make-_79" +" ?_79" +"(make-struct-field-accessor -ref_79 0 'id)" +"(make-struct-field-accessor -ref_79 1 'sym)" +"(make-struct-field-accessor -ref_79 2 'value)" +"(make-struct-field-accessor -ref_79 3 'cache))))" "(define-values" "(1/syntax-local-make-definition-context)" "(let-values(((syntax-local-make-definition-context5_0)" @@ -40540,16 +40718,16 @@ static const char *startup_source = "(internal-definition-context-frame-id parent-ctx_0)" " #f)))" "(if or-part_226 or-part_226(gensym)))))))" -"(let-values(((sc_32)(new-scope 'intdef)))" +"(let-values(((sc_33)(new-scope 'intdef)))" "(let-values(((def-ctx-scopes_4)(expand-context-def-ctx-scopes ctx_43)))" "(begin" "(if def-ctx-scopes_4" "(let-values()" -"(set-box! def-ctx-scopes_4(cons sc_32(unbox def-ctx-scopes_4))))" +"(set-box! def-ctx-scopes_4(cons sc_33(unbox def-ctx-scopes_4))))" "(void))" "(internal-definition-context1.1" " frame-id_8" -" sc_32" +" sc_33" " add-scope?_0" "(box null)" " parent-ctx_0))))))))))))))" @@ -40564,7 +40742,7 @@ static const char *startup_source = "(begin" " 'syntax-local-bind-syntaxes11" "(let-values(((ids_25) ids8_0))" -"(let-values(((s_423) s9_0))" +"(let-values(((s_422) s9_0))" "(let-values(((intdef_0) intdef10_0))" "(let-values(((extra-intdefs_0) extra-intdefs7_0))" "(let-values()" @@ -40580,14 +40758,14 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_98)(not s_423)))" -"(if or-part_98 or-part_98(syntax?$1 s_423)))" +"(if(let-values(((or-part_98)(not s_422)))" +"(if or-part_98 or-part_98(syntax?$1 s_422)))" "(void)" "(let-values()" "(raise-argument-error" " 'syntax-local-bind-syntaxes" " \"(or/c syntax? #f)\"" -" s_423)))" +" s_422)))" "(values))))" "(let-values((()" "(begin" @@ -40628,13 +40806,13 @@ static const char *startup_source = "(list intdef_0 extra-intdefs_0))))" "(let-values(((intdef-ids_0)" "(reverse$1" -"(let-values(((lst_184) ids_25))" +"(let-values(((lst_185) ids_25))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_184)))" -"((letrec-values(((for-loop_117)" +"(let-values()(check-list lst_185)))" +"((letrec-values(((for-loop_119)" "(lambda(fold-var_230 lst_285)" "(begin" " 'for-loop" @@ -40642,7 +40820,7 @@ static const char *startup_source = "(let-values(((id_70)" "(unsafe-car" " lst_285))" -"((rest_163)" +"((rest_162)" "(unsafe-cdr" " lst_285)))" "(let-values(((fold-var_238)" @@ -40681,14 +40859,14 @@ static const char *startup_source = "(values" " fold-var_240)))))" "(if(not #f)" -"(for-loop_117" +"(for-loop_119" " fold-var_238" -" rest_163)" +" rest_162)" " fold-var_238)))" " fold-var_230)))))" -" for-loop_117)" +" for-loop_119)" " null" -" lst_184))))))" +" lst_185))))))" "(let-values((()" "(begin" "(let-values(((obs_30)" @@ -40702,28 +40880,28 @@ static const char *startup_source = " intdef-ids_0)))" "(void)))" "(values))))" -"(let-values(((syms_19)" +"(let-values(((syms_20)" "(reverse$1" -"(let-values(((lst_163) intdef-ids_0))" +"(let-values(((lst_164) intdef-ids_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_163)))" +"(let-values()(check-list lst_164)))" "((letrec-values(((for-loop_192)" -"(lambda(fold-var_158 lst_164)" +"(lambda(fold-var_160 lst_165)" "(begin" " 'for-loop" -"(if(pair? lst_164)" +"(if(pair? lst_165)" "(let-values(((intdef-id_0)" "(unsafe-car" -" lst_164))" -"((rest_164)" +" lst_165))" +"((rest_163)" "(unsafe-cdr" -" lst_164)))" +" lst_165)))" "(let-values(((fold-var_241)" "(let-values(((fold-var_175)" -" fold-var_158))" +" fold-var_160))" "(let-values(((fold-var_242)" "(let-values()" "(cons" @@ -40750,18 +40928,18 @@ static const char *startup_source = "(if(not #f)" "(for-loop_192" " fold-var_241" -" rest_164)" +" rest_163)" " fold-var_241)))" -" fold-var_158)))))" +" fold-var_160)))))" " for-loop_192)" " null" -" lst_163))))))" +" lst_164))))))" "(let-values(((vals_5)" -"(if s_423" +"(if s_422" "(let-values()" "(let-values(((input-s_0)" "(flip-introduction-scopes" -"(let-values(((s58_0) s_423)" +"(let-values(((s58_0) s_422)" "((all-intdefs59_0)" " all-intdefs_0))" "(add-intdef-scopes24.1" @@ -40771,14 +40949,14 @@ static const char *startup_source = " all-intdefs59_0))" " ctx_44)))" "(let-values(((tmp-env_0)" -"(let-values(((lst_286) syms_19))" +"(let-values(((lst_286) syms_20))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list lst_286)))" -"((letrec-values(((for-loop_253)" +"((letrec-values(((for-loop_252)" "(lambda(env_7" " lst_105)" "(begin" @@ -40788,7 +40966,7 @@ static const char *startup_source = "(let-values(((sym_71)" "(unsafe-car" " lst_105))" -"((rest_165)" +"((rest_164)" "(unsafe-cdr" " lst_105)))" "(let-values(((env_8)" @@ -40804,12 +40982,12 @@ static const char *startup_source = " env_10)))))" "(if(not" " #f)" -"(for-loop_253" +"(for-loop_252" " env_8" -" rest_165)" +" rest_164)" " env_8)))" " env_7)))))" -" for-loop_253)" +" for-loop_252)" "(expand-context-env ctx_44)" " lst_286)))))" "(let-values((()" @@ -40831,17 +41009,17 @@ static const char *startup_source = " input-s_0" " ids_25" "(let-values(((temp60_3)" -"(let-values(((v_195)" +"(let-values(((v_193)" " ctx_44))" "(let-values(((the-struct_65)" -" v_195))" +" v_193))" "(if(expand-context/outer?" " the-struct_65)" "(let-values(((env63_0)" " tmp-env_0)" "((inner64_0)" "(root-expand-context/outer-inner" -" v_195)))" +" v_193)))" "(expand-context/outer1.1" " inner64_0" "(root-expand-context/outer-post-expansion-scope" @@ -40908,7 +41086,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_287)))" -"((letrec-values(((for-loop_254)" +"((letrec-values(((for-loop_253)" "(lambda(fold-var_181" " lst_288)" "(begin" @@ -40917,10 +41095,10 @@ static const char *startup_source = "(let-values(((id_8)" "(unsafe-car" " lst_288))" -"((rest_166)" +"((rest_165)" "(unsafe-cdr" " lst_288)))" -"(let-values(((fold-var_98)" +"(let-values(((fold-var_100)" "(let-values(((fold-var_35)" " fold-var_181))" "(let-values(((fold-var_243)" @@ -40932,12 +41110,12 @@ static const char *startup_source = "(values" " fold-var_243)))))" "(if(not #f)" -"(for-loop_254" -" fold-var_98" -" rest_166)" -" fold-var_98)))" +"(for-loop_253" +" fold-var_100" +" rest_165)" +" fold-var_100)))" " fold-var_181)))))" -" for-loop_254)" +" for-loop_253)" " null" " lst_287))))))))" "(let-values(((env-mixins_0)" @@ -40948,7 +41126,7 @@ static const char *startup_source = "(append" "(reverse$1" "(let-values(((lst_289) intdef-ids_0)" -"((lst_278) syms_19)" +"((lst_278) syms_20)" "((lst_290) vals_5))" "(begin" "(if(variable-reference-from-unsafe?" @@ -40963,34 +41141,34 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_290)))" -"((letrec-values(((for-loop_255)" +"((letrec-values(((for-loop_254)" "(lambda(fold-var_38" -" lst_191" +" lst_192" " lst_291" " lst_292)" "(begin" " 'for-loop" -"(if(if(pair? lst_191)" +"(if(if(pair? lst_192)" "(if(pair? lst_291)" "(pair? lst_292)" " #f)" " #f)" "(let-values(((intdef-id_1)" "(unsafe-car" -" lst_191))" -"((rest_167)" +" lst_192))" +"((rest_166)" "(unsafe-cdr" -" lst_191))" -"((sym_5)" +" lst_192))" +"((sym_72)" "(unsafe-car" " lst_291))" -"((rest_168)" +"((rest_167)" "(unsafe-cdr" " lst_291))" "((val_70)" "(unsafe-car" " lst_292))" -"((rest_169)" +"((rest_168)" "(unsafe-cdr" " lst_292)))" "(let-values(((fold-var_244)" @@ -41008,21 +41186,21 @@ static const char *startup_source = " ctx_44)" "(env-mixin2.1" " intdef-id_1" -" sym_5" +" sym_72" " val_70" "(make-weak-hasheq))))" " fold-var_245))))" "(values" " fold-var_246)))))" "(if(not #f)" -"(for-loop_255" +"(for-loop_254" " fold-var_244" +" rest_166" " rest_167" -" rest_168" -" rest_169)" +" rest_168)" " fold-var_244)))" " fold-var_38)))))" -" for-loop_255)" +" for-loop_254)" " null" " lst_289" " lst_278" @@ -41035,8 +41213,8 @@ static const char *startup_source = "(call-expand-observe obs_33 'exit-local-bind)))" "(void))))))))))))))))))))))))))" "(case-lambda" -"((ids_26 s_200 intdef_1)" -"(begin 'syntax-local-bind-syntaxes(syntax-local-bind-syntaxes11_0 ids_26 s_200 intdef_1 '())))" +"((ids_26 s_201 intdef_1)" +"(begin 'syntax-local-bind-syntaxes(syntax-local-bind-syntaxes11_0 ids_26 s_201 intdef_1 '())))" "((ids_27 s_61 intdef_2 extra-intdefs7_1)(syntax-local-bind-syntaxes11_0 ids_27 s_61 intdef_2 extra-intdefs7_1)))))" "(define-values" "(1/internal-definition-context-binding-identifiers)" @@ -41055,13 +41233,13 @@ static const char *startup_source = "(let-values(((lst_293)(unbox(internal-definition-context-env-mixins intdef_3))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_293)))" -"((letrec-values(((for-loop_256)" +"((letrec-values(((for-loop_255)" "(lambda(fold-var_189 lst_294)" "(begin" " 'for-loop" "(if(pair? lst_294)" "(let-values(((env-mixin_0)(unsafe-car lst_294))" -"((rest_170)(unsafe-cdr lst_294)))" +"((rest_169)(unsafe-cdr lst_294)))" "(let-values(((fold-var_247)" "(let-values(((fold-var_248) fold-var_189))" "(let-values(((fold-var_249)" @@ -41070,9 +41248,9 @@ static const char *startup_source = "(let-values()(env-mixin-id env-mixin_0))" " fold-var_248))))" "(values fold-var_249)))))" -"(if(not #f)(for-loop_256 fold-var_247 rest_170) fold-var_247)))" +"(if(not #f)(for-loop_255 fold-var_247 rest_169) fold-var_247)))" " fold-var_189)))))" -" for-loop_256)" +" for-loop_255)" " null" " lst_293))))))))" "(define-values" @@ -41082,7 +41260,7 @@ static const char *startup_source = "(begin" " 'internal-definition-context-introduce16" "(let-values(((intdef_4) intdef14_0))" -"(let-values(((s_424) s15_0))" +"(let-values(((s_423) s15_0))" "(let-values(((mode_13) mode13_0))" "(let-values()" "(begin" @@ -41093,11 +41271,11 @@ static const char *startup_source = " 'internal-definition-context-introduce" " \"internal-definition-context?\"" " intdef_4)))" -"(if(syntax?$1 s_424)" +"(if(syntax?$1 s_423)" "(void)" "(let-values()" -" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_424)))" -"(let-values(((s65_0) s_424)" +" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_423)))" +"(let-values(((s65_0) s_423)" "((intdef66_0) intdef_4)" "((temp67_0) #t)" "((temp68_0)" @@ -41146,14 +41324,14 @@ static const char *startup_source = " 'identifier-remove-from-definition-context" " \"(or/c internal-definition-context? (listof internal-definition-context?))\"" " intdef_8)))" -"(let-values(((x_77)" +"(let-values(((x_76)" "(let-values(((a_46) intdef_8))" "(if(list? a_46)" "(let-values()(reverse$1 a_46))" "(if(not a_46)(let-values() null)(let-values()(list a_46)))))))" "(begin" " #t" -"((letrec-values(((for-loop_257)" +"((letrec-values(((for-loop_256)" "(lambda(id_72 a_47)" "(begin" " 'for-loop" @@ -41168,21 +41346,21 @@ static const char *startup_source = " id_74" " 'remove))))" "(values id_75)))))" -"(if(not #f)(for-loop_257 id_73(cdr a_47)) id_73)))" +"(if(not #f)(for-loop_256 id_73(cdr a_47)) id_73)))" " id_72)))))" -" for-loop_257)" +" for-loop_256)" " id_71" -" x_77)))))))" +" x_76)))))))" "(define-values" "(intdefs?)" -"(lambda(x_78)" +"(lambda(x_77)" "(begin" -"(let-values(((or-part_277)(1/internal-definition-context? x_78)))" -"(if or-part_277 or-part_277(if(list? x_78)(andmap2 1/internal-definition-context? x_78) #f))))))" +"(let-values(((or-part_277)(1/internal-definition-context? x_77)))" +"(if or-part_277 or-part_277(if(list? x_77)(andmap2 1/internal-definition-context? x_77) #f))))))" " (define-values (intdefs?-string) \"(or/c internal-definition-context? (listof internal-definition-context?))\")" "(define-values" "(intdefs-or-false?)" -"(lambda(x_79)(begin(let-values(((or-part_278)(not x_79)))(if or-part_278 or-part_278(intdefs? x_79))))))" +"(lambda(x_78)(begin(let-values(((or-part_278)(not x_78)))(if or-part_278 or-part_278(intdefs? x_78))))))" "(define-values" "(intdefs-or-false?-string)" " \"(or/c internal-definition-context? (listof internal-definition-context?) #f)\")" @@ -41190,14 +41368,14 @@ static const char *startup_source = "(add-intdef-bindings)" "(lambda(env_11 intdefs_0)" "(begin" -"(let-values(((x_80)" +"(let-values(((x_79)" "(let-values(((a_48) intdefs_0))" "(if(list? a_48)" "(let-values()(reverse$1 a_48))" "(if(not a_48)(let-values() null)(let-values()(list a_48)))))))" "(begin" " #t" -"((letrec-values(((for-loop_258)" +"((letrec-values(((for-loop_257)" "(lambda(env_12 a_49)" "(begin" " 'for-loop" @@ -41220,7 +41398,7 @@ static const char *startup_source = "(unbox" "(internal-definition-context-env-mixins" " intdef_10))))" -"((letrec-values(((loop_96)" +"((letrec-values(((loop_97)" "(lambda(env_16" " env-mixins_2)" "(begin" @@ -41241,7 +41419,7 @@ static const char *startup_source = " or-part_179" "(let-values(((new-env_0)" "(env-extend" -"(loop_96" +"(loop_97" " env_16" "(cdr" " env-mixins_2))" @@ -41256,15 +41434,15 @@ static const char *startup_source = " env_16" " new-env_0)" " new-env_0)))))))))))" -" loop_96)" +" loop_97)" " parent-env_0" " env-mixins_1)))))))" "(values env_15)))))" -"(if(not #f)(for-loop_258 env_13(cdr a_49)) env_13)))" +"(if(not #f)(for-loop_257 env_13(cdr a_49)) env_13)))" " env_12)))))" -" for-loop_258)" +" for-loop_257)" " env_11" -" x_80))))))" +" x_79))))))" "(define-values" "(add-intdef-scopes24.1)" "(lambda(action19_0 always?18_0 s22_0 intdefs23_0)" @@ -41275,40 +41453,40 @@ static const char *startup_source = "(let-values(((always?_0) always?18_0))" "(let-values(((action_0)(if(eq? action19_0 unsafe-undefined) add-scope action19_0)))" "(let-values()" -"(let-values(((x_81)" +"(let-values(((x_80)" "(let-values(((a_50) intdefs_1))" "(if(list? a_50)" "(let-values()(reverse$1 a_50))" "(if(not a_50)(let-values() null)(let-values()(list a_50)))))))" "(begin" " #t" -"((letrec-values(((for-loop_259)" -"(lambda(s_425 a_51)" +"((letrec-values(((for-loop_258)" +"(lambda(s_424 a_51)" "(begin" " 'for-loop" "(if(pair? a_51)" "(let-values(((intdef_11)(car a_51)))" "(let-values(((s_321)" -"(let-values(((s_213) s_425))" +"(let-values(((s_71) s_424))" "(if(let-values(((or-part_279) always?_0))" "(if or-part_279" " or-part_279" "(internal-definition-context-add-scope?" " intdef_11)))" -"(let-values(((s_426) s_213))" -"(let-values(((s_427)" +"(let-values(((s_425) s_71))" +"(let-values(((s_426)" "(let-values()" "(action_0" -" s_426" +" s_425" "(internal-definition-context-scope" " intdef_11)))))" -"(values s_427)))" -" s_213))))" -"(if(not #f)(for-loop_259 s_321(cdr a_51)) s_321)))" -" s_425)))))" -" for-loop_259)" +"(values s_426)))" +" s_71))))" +"(if(not #f)(for-loop_258 s_321(cdr a_51)) s_321)))" +" s_424)))))" +" for-loop_258)" " s_39" -" x_81)))))))))))" +" x_80)))))))))))" "(define-values" "(make-local-expand-context42.1)" "(lambda(context27_0" @@ -41341,8 +41519,8 @@ 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_196) ctx_45))" -"(let-values(((the-struct_66) v_196))" +"(let-values(((v_194) ctx_45))" +"(let-values(((the-struct_66) v_194))" "(if(expand-context/outer? the-struct_66)" "(let-values(((context69_0) context_9)" "((env70_0)(add-intdef-bindings(expand-context-env ctx_45) intdefs_2))" @@ -41357,7 +41535,7 @@ static const char *startup_source = "(if or-part_283 or-part_283(box null)))" " #f))" "((frame-id72_0)" -"(let-values(((x_82)" +"(let-values(((x_81)" "(let-values(((a_52) intdefs_2))" "(if(list? a_52)" "(let-values()(reverse$1 a_52))" @@ -41366,7 +41544,7 @@ static const char *startup_source = "(let-values()(list a_52)))))))" "(begin" " #t" -"((letrec-values(((for-loop_260)" +"((letrec-values(((for-loop_259)" "(lambda(frame-id_9 a_53)" "(begin" " 'for-loop" @@ -41399,14 +41577,14 @@ static const char *startup_source = "(values" " frame-id_12)))))" "(if(not #f)" -"(for-loop_260" +"(for-loop_259" " frame-id_10" "(cdr a_53))" " frame-id_10)))" " frame-id_9)))))" -" for-loop_260)" +" for-loop_259)" "(root-expand-context-frame-id ctx_45)" -" x_82))))" +" x_81))))" "((post-expansion-scope73_0)" "(if(if intdefs_2(not(null? intdefs_2)) #f)" "(new-scope 'macro)" @@ -41417,10 +41595,10 @@ static const char *startup_source = " #f)))" "((post-expansion-scope-action74_0)" "(if(if intdefs_2(not(null? intdefs_2)) #f)" -"(lambda(s_428 placeholder-sc_0)" +"(lambda(s_427 placeholder-sc_0)" "(begin" " 'post-expansion-scope-action74" -"(let-values(((s80_0) s_428)((intdefs81_0) intdefs_2))" +"(let-values(((s80_0) s_427)((intdefs81_0) intdefs_2))" "(add-intdef-scopes24.1" " unsafe-undefined" " #f" @@ -41431,14 +41609,14 @@ static const char *startup_source = "((only-immediate?76_0)(not stop-ids_1))" "((current-introduction-scopes77_0) null)" "((need-eventually-defined78_0)" -"(let-values(((ht_130)" +"(let-values(((ht_135)" "(expand-context-need-eventually-defined ctx_45)))" "(if track-to-be-defined?_0" -"(let-values() ht_130)" -"(if ht_130(let-values()(make-hasheqv))(let-values() #f)))))" +"(let-values() ht_135)" +"(if ht_135(let-values()(make-hasheqv))(let-values() #f)))))" "((inner79_0)" "(let-values(((the-struct_67)" -"(root-expand-context/outer-inner v_196)))" +"(root-expand-context/outer-inner v_194)))" "(if(expand-context/inner? the-struct_67)" "(let-values(((to-parsed?82_0)" "(if to-parsed-ok?_0" @@ -41506,7 +41684,7 @@ static const char *startup_source = " the-struct_66)))))))))))))))))))" "(define-values" "(flip-introduction-scopes)" -"(lambda(s_429 ctx_46)(begin(flip-scopes s_429(expand-context-current-introduction-scopes ctx_46)))))" +"(lambda(s_428 ctx_46)(begin(flip-scopes s_428(expand-context-current-introduction-scopes ctx_46)))))" "(define-values" "(1/syntax-transforming?)" "(lambda()" @@ -41544,21 +41722,21 @@ static const char *startup_source = "(expand-context-context ctx_50)))))" "(define-values" "(1/syntax-local-introduce)" -"(lambda(s_430)" +"(lambda(s_429)" "(begin" " 'syntax-local-introduce" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_430)" +"(if(syntax?$1 s_429)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_430)))" +" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_429)))" "(values))))" "(let-values(((ctx_9)" "(let-values(((temp61_2) 'syntax-local-introduce))" "(get-current-expand-context16.1 #f temp61_2))))" -"(flip-introduction-scopes s_430 ctx_9))))))))" +"(flip-introduction-scopes s_429 ctx_9))))))))" "(define-values" "(1/syntax-local-identifier-as-binding)" "(lambda(id_76)" @@ -41620,32 +41798,32 @@ static const char *startup_source = "(do-make-syntax-introducer(make-interned-scope sym-key_0))))))))" "(define-values" "(do-make-syntax-introducer)" -"(lambda(sc_33)" +"(lambda(sc_34)" "(begin" "(let-values(((core70_0)" "(lambda(s69_1 mode68_0)" "(begin" " 'core70" -"(let-values(((s_431) s69_1))" +"(let-values(((s_430) s69_1))" "(let-values(((mode_14) mode68_0))" "(let-values()" "(begin" -"(if(syntax?$1 s_431)" +"(if(syntax?$1 s_430)" "(void)" -" (let-values () (raise-argument-error 'syntax-introducer \"syntax?\" s_431)))" +" (let-values () (raise-argument-error 'syntax-introducer \"syntax?\" s_430)))" "(let-values(((tmp_33) mode_14))" "(if(equal? tmp_33 'add)" -"(let-values()(add-scope s_431 sc_33))" +"(let-values()(add-scope s_430 sc_34))" "(if(equal? tmp_33 'remove)" -"(let-values()(remove-scope s_431 sc_33))" +"(let-values()(remove-scope s_430 sc_34))" "(if(equal? tmp_33 'flip)" -"(let-values()(flip-scope s_431 sc_33))" +"(let-values()(flip-scope s_430 sc_34))" "(let-values()" "(raise-argument-error" " 'syntax-introducer" " \"(or/c 'add 'remove 'flip)\"" " mode_14))))))))))))))" -"(case-lambda((s_189)(core70_0 s_189 'flip))((s_89 mode68_1)(core70_0 s_89 mode68_1)))))))" +"(case-lambda((s_190)(core70_0 s_190 'flip))((s_90 mode68_1)(core70_0 s_90 mode68_1)))))))" "(define-values" "(1/make-syntax-delta-introducer)" "(let-values(((make-syntax-delta-introducer7_0)" @@ -41743,7 +41921,7 @@ static const char *startup_source = " \"(or/c 'add 'remove 'flip)\"" " mode_15))))))))))))))" "(case-lambda" -"((s_91)(core78_0 s_91 'add))" +"((s_92)(core78_0 s_92 'add))" "((s_12 mode76_1)(core78_0 s_12 mode76_1))))))))))))))))))))))" "(case-lambda" "((ext-s_1 base-s_1)" @@ -41783,13 +41961,13 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if((lambda(x_83)" -"(let-values(((or-part_209)(not x_83)))" +"(if((lambda(x_82)" +"(let-values(((or-part_209)(not x_82)))" "(if or-part_209" " or-part_209" "((lambda(p_50)" "(if(procedure? p_50)(procedure-arity-includes? p_50 0) #f))" -" x_83))))" +" x_82))))" " failure-thunk_0)" "(void)" "(let-values()" @@ -41809,14 +41987,14 @@ static const char *startup_source = "(let-values(((who81_0) who_19))(get-current-expand-context16.1 #f who81_0))))" "(let-values(((ctx_11)" "(if intdefs_3" -"(let-values(((v_197) current-ctx_0))" -"(let-values(((the-struct_68) v_197))" +"(let-values(((v_195) current-ctx_0))" +"(let-values(((the-struct_68) v_195))" "(if(expand-context/outer? the-struct_68)" "(let-values(((env82_0)" "(add-intdef-bindings" "(expand-context-env current-ctx_0)" " intdefs_3))" -"((inner83_0)(root-expand-context/outer-inner v_197)))" +"((inner83_0)(root-expand-context/outer-inner v_195)))" "(expand-context/outer1.1" " inner83_0" "(root-expand-context/outer-post-expansion-scope the-struct_68)" @@ -41847,11 +42025,11 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((phase_70)(expand-context-phase ctx_11)))" -"((letrec-values(((loop_97)" +"((letrec-values(((loop_98)" "(lambda(id_61)" "(begin" " 'loop" -"(let-values(((b_81)" +"(let-values(((b_83)" "(if immediate?_1" "(let-values(((id84_0) id_61)" "((phase85_0) phase_70)" @@ -41875,7 +42053,7 @@ static const char *startup_source = "(let-values()" "(call-expand-observe obs_35 'resolve id_61)))" "(void)))" -"(if(not b_81)" +"(if(not b_83)" "(let-values()" "(begin" "(let-values(((obs_36)" @@ -41893,7 +42071,7 @@ static const char *startup_source = " (error who_19 \"unbound identifier: ~v\" id_61))))" "(let-values()" "(let-values(((v_39 primitive?_7 insp_17 protected?_8)" -"(let-values(((b87_1) b_81)" +"(let-values(((b87_1) b_83)" "((ctx88_0) ctx_11)" "((id89_0) id_61)" "((temp90_1) #t))" @@ -41946,12 +42124,12 @@ static const char *startup_source = "(values" " v_39" "(1/rename-transformer-target v_39))" -"(loop_97" +"(loop_98" "(1/rename-transformer-target v_39))))" "(if immediate?_1" "(let-values()(values v_39 #f))" "(let-values() v_39)))))))))))))))" -" loop_97)" +" loop_98)" "(flip-introduction-scopes id_78 ctx_11))))))))))))))))))" "(define-values" "(1/syntax-local-value)" @@ -42026,7 +42204,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_218)" +"((letrec-values(((for-loop_217)" "(lambda(fold-var_250 pos_106)" "(begin" " 'for-loop" @@ -42061,10 +42239,10 @@ static const char *startup_source = " fold-var_252))))" "(values fold-var_253)))))" "(if(not #f)" -"(for-loop_218 fold-var_251(+ pos_106 inc_23))" +"(for-loop_217 fold-var_251(+ pos_106 inc_23))" " fold-var_251)))" " fold-var_250)))))" -" for-loop_218)" +" for-loop_217)" " null" " start_39))))))" "(begin" @@ -42156,7 +42334,7 @@ static const char *startup_source = "(begin" " 'do-local-lift-to-module48" "(let-values(((who_21) who46_0))" -"(let-values(((s_432) s47_0))" +"(let-values(((s_431) s47_0))" "(let-values(((no-target-msg_0) no-target-msg28_0))" "(let-values(((intro?_0) intro?29_0))" "(let-values(((more-checks_0)(if(eq? more-checks30_0 unsafe-undefined) void more-checks30_0)))" @@ -42165,22 +42343,22 @@ static const char *startup_source = "(let-values(((get-wrt-phase_0) get-wrt-phase33_0))" "(let-values(((pre-wrap_0)" "(if(eq? pre-wrap34_0 unsafe-undefined)" -"(lambda(s_433 phase_108 lift-ctx_1)(begin 'pre-wrap s_433))" +"(lambda(s_432 phase_108 lift-ctx_1)(begin 'pre-wrap s_432))" " pre-wrap34_0)))" "(let-values(((shift-wrap_0)" "(if(eq? shift-wrap35_0 unsafe-undefined)" -"(lambda(s_209 phase_109 lift-ctx_2)(begin 'shift-wrap s_209))" +"(lambda(s_210 phase_109 lift-ctx_2)(begin 'shift-wrap s_210))" " shift-wrap35_0)))" "(let-values(((post-wrap_0)" "(if(eq? post-wrap36_0 unsafe-undefined)" -"(lambda(s_210 phase_12 lift-ctx_3)(begin 'post-wrap s_210))" +"(lambda(s_211 phase_12 lift-ctx_3)(begin 'post-wrap s_211))" " post-wrap36_0)))" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_432)" +"(if(syntax?$1 s_431)" "(void)" -" (let-values () (raise-argument-error who_21 \"syntax?\" s_432)))" +" (let-values () (raise-argument-error who_21 \"syntax?\" s_431)))" "(values))))" "(let-values((()(begin(more-checks_0)(values))))" "(let-values(((ctx_57)" @@ -42196,12 +42374,12 @@ static const char *startup_source = " who_21" " no-target-msg_0" " \"form to lift\"" -" s_432)))" +" s_431)))" "(values))))" "(let-values(((phase_88)(expand-context-phase ctx_57)))" "(let-values(((wrt-phase_1)(get-wrt-phase_0 lift-ctx_4)))" "(let-values(((added-s_0)" -"(if intro?_0(flip-introduction-scopes s_432 ctx_57) s_432)))" +"(if intro?_0(flip-introduction-scopes s_431 ctx_57) s_431)))" "(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_88 lift-ctx_4)))" "(let-values(((shift-s_0)" "(let-values(((start_40) phase_88)" @@ -42213,32 +42391,32 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_40 end_30 inc_24)))" -"((letrec-values(((for-loop_128)" -"(lambda(s_434 pos_107)" +"((letrec-values(((for-loop_130)" +"(lambda(s_433 pos_107)" "(begin" " 'for-loop" "(if(> pos_107 end_30)" "(let-values(((phase_110)" " pos_107))" "(let-values(((s_319)" -"(let-values(((s_425)" -" s_434))" -"(let-values(((s_435)" +"(let-values(((s_424)" +" s_433))" +"(let-values(((s_434)" "(let-values()" "(shift-wrap_0" -" s_425" +" s_424" "(sub1" " phase_110)" " lift-ctx_4))))" "(values" -" s_435)))))" +" s_434)))))" "(if(not #f)" -"(for-loop_128" +"(for-loop_130" " s_319" "(+ pos_107 inc_24))" " s_319)))" -" s_434)))))" -" for-loop_128)" +" s_433)))))" +" for-loop_130)" " pre-s_0" " start_40)))))" "(let-values(((post-s_1)" @@ -42253,7 +42431,7 @@ static const char *startup_source = " 'syntax-local-lift-require" "(let-values()" "(let-values()" -"(let-values(((sc_34)(new-scope 'lifted-require)))" +"(let-values(((sc_35)(new-scope 'lifted-require)))" "(let-values(((ctx_58 added-s_1)" "(let-values(((who110_0) 'syntax-local-lift-require)" "((temp111_0)(datum->syntax$1 #f s_218))" @@ -42269,11 +42447,11 @@ static const char *startup_source = "((require-lift-context-wrt-phase116_0) require-lift-context-wrt-phase)" "((add-lifted-require!117_0) add-lifted-require!)" "((temp118_0)" -"(lambda(s_109 phase_111 require-lift-ctx_0)" -"(require-spec-shift-for-syntax s_109)))" +"(lambda(s_110 phase_111 require-lift-ctx_0)" +"(require-spec-shift-for-syntax s_110)))" "((temp119_0)" -"(lambda(s_436 phase_112 require-lift-ctx_1)" -"(wrap-form '#%require(add-scope s_436 sc_34) phase_112))))" +"(lambda(s_435 phase_112 require-lift-ctx_1)" +"(wrap-form '#%require(add-scope s_435 sc_35) phase_112))))" "(do-local-lift-to-module48.1" " add-lifted-require!117_0" " expand-context-require-lifts115_0" @@ -42292,7 +42470,7 @@ static const char *startup_source = "(expand-context-namespace ctx_58)" "(expand-context-phase ctx_58))" "(values))))" -"(let-values(((result-s_6)(add-scope use-s_1 sc_34)))" +"(let-values(((result-s_6)(add-scope use-s_1 sc_35)))" "(begin" "(let-values(((obs_41)(expand-context-observer ctx_58)))" "(if obs_41" @@ -42302,23 +42480,23 @@ static const char *startup_source = " result-s_6))))))))))" "(define-values" "(1/syntax-local-lift-provide)" -"(lambda(s_437)" +"(lambda(s_436)" "(begin" " 'syntax-local-lift-provide" "(let-values()" "(let-values()" "(let-values(((ctx_59 result-s_7)" "(let-values(((who121_0) 'syntax-local-lift-provide)" -"((s122_1) s_437)" +"((s122_1) s_436)" " ((temp123_0) \"not expanding in a module run-time body\")" "((expand-context-to-module-lifts124_0) expand-context-to-module-lifts)" "((to-module-lift-context-wrt-phase125_0) to-module-lift-context-wrt-phase)" "((add-lifted-to-module-provide!126_0) add-lifted-to-module-provide!)" "((temp127_2)" -"(lambda(s_438 phase_113 to-module-lift-ctx_0)(wrap-form 'for-syntax s_438 #f)))" +"(lambda(s_437 phase_113 to-module-lift-ctx_0)(wrap-form 'for-syntax s_437 #f)))" "((temp128_2)" -"(lambda(s_115 phase_114 to-module-lift-ctx_1)" -"(wrap-form '#%provide s_115 phase_114))))" +"(lambda(s_116 phase_114 to-module-lift-ctx_1)" +"(wrap-form '#%provide s_116 phase_114))))" "(do-local-lift-to-module48.1" " add-lifted-to-module-provide!126_0" " expand-context-to-module-lifts124_0" @@ -42356,8 +42534,8 @@ static const char *startup_source = "(wrap-form '#%expression orig-s_32 phase_115)" " orig-s_32)))" "((temp137_1)" -"(lambda(s_439 phase_116 to-module-lift-ctx_3)" -"(wrap-form 'begin-for-syntax s_439 phase_116))))" +"(lambda(s_438 phase_116 to-module-lift-ctx_3)" +"(wrap-form 'begin-for-syntax s_438 phase_116))))" "(do-local-lift-to-module48.1" " add-lifted-to-module-end!135_0" " expand-context-to-module-lifts133_0" @@ -42376,11 +42554,11 @@ static const char *startup_source = "(void)))))))))" "(define-values" "(wrap-form)" -"(lambda(sym_72 s_123 phase_117)" +"(lambda(sym_73 s_124 phase_117)" "(begin" "(datum->syntax$1" " #f" -"(list(datum->syntax$1(if phase_117(syntax-shift-phase-level$1 core-stx phase_117) #f) sym_72) s_123)))))" +"(list(datum->syntax$1(if phase_117(syntax-shift-phase-level$1 core-stx phase_117) #f) sym_73) s_124)))))" "(define-values" "(1/syntax-local-module-defined-identifiers)" "(lambda()" @@ -42451,18 +42629,18 @@ static const char *startup_source = "(if(eq? phase-level_21 #t) 'all phase-level_21))))" "(if requireds_0" "(reverse$1" -"(let-values(((ht_131)(requireds->phase-ht requireds_0)))" +"(let-values(((ht_136)(requireds->phase-ht requireds_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_131)))" -"((letrec-values(((for-loop_261)" -"(lambda(fold-var_254 i_166)" +"(let-values()(check-in-hash ht_136)))" +"((letrec-values(((for-loop_260)" +"(lambda(fold-var_254 i_163)" "(begin" " 'for-loop" -"(if i_166" +"(if i_163" "(let-values(((phase_118 ids_29)" -"(hash-iterate-key+value ht_131 i_166)))" +"(hash-iterate-key+value ht_136 i_163)))" "(let-values(((fold-var_203)" "(let-values(((fold-var_255) fold-var_254))" "(let-values(((fold-var_256)" @@ -42473,14 +42651,14 @@ static const char *startup_source = " fold-var_255))))" "(values fold-var_256)))))" "(if(not #f)" -"(for-loop_261" +"(for-loop_260" " fold-var_203" -"(hash-iterate-next ht_131 i_166))" +"(hash-iterate-next ht_136 i_163))" " fold-var_203)))" " fold-var_254)))))" -" for-loop_261)" +" for-loop_260)" " null" -"(hash-iterate-first ht_131)))))" +"(hash-iterate-first ht_136)))))" " #f)))))))))))))" "(define-values" "(requireds->phase-ht)" @@ -42490,23 +42668,23 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_295)))" "((letrec-values(((for-loop_138)" -"(lambda(ht_132 lst_296)" +"(lambda(ht_137 lst_296)" "(begin" " 'for-loop" "(if(pair? lst_296)" -"(let-values(((r_43)(unsafe-car lst_296))((rest_171)(unsafe-cdr lst_296)))" -"(let-values(((ht_133)" -"(let-values(((ht_134) ht_132))" -"(let-values(((ht_135)" +"(let-values(((r_43)(unsafe-car lst_296))((rest_170)(unsafe-cdr lst_296)))" +"(let-values(((ht_138)" +"(let-values(((ht_139) ht_137))" +"(let-values(((ht_140)" "(let-values()" "(hash-update" -" ht_134" +" ht_139" "(required-phase r_43)" "(lambda(l_71)(cons(required-id r_43) l_71))" " null))))" -"(values ht_135)))))" -"(if(not #f)(for-loop_138 ht_133 rest_171) ht_133)))" -" ht_132)))))" +"(values ht_140)))))" +"(if(not #f)(for-loop_138 ht_138 rest_170) ht_138)))" +" ht_137)))))" " for-loop_138)" "(hasheqv)" " lst_295))))))" @@ -42550,18 +42728,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_136)(module-provides m_19)))" +"(let-values(((ht_141)(module-provides m_19)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_136)))" -"((letrec-values(((for-loop_262)" -"(lambda(fold-var_257 i_167)" +"(let-values()(check-in-hash ht_141)))" +"((letrec-values(((for-loop_261)" +"(lambda(fold-var_257 i_164)" "(begin" " 'for-loop" -"(if i_167" -"(let-values(((phase_119 syms_20)" -"(hash-iterate-key+value ht_136 i_167)))" +"(if i_164" +"(let-values(((phase_119 syms_21)" +"(hash-iterate-key+value ht_141 i_164)))" "(let-values(((fold-var_258)" "(let-values(((fold-var_259) fold-var_257))" "(let-values(((fold-var_260)" @@ -42571,24 +42749,24 @@ static const char *startup_source = "(cons" " phase_119" "(reverse$1" -"(let-values(((ht_137)" -" syms_20))" +"(let-values(((ht_142)" +" syms_21))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-in-hash-keys" -" ht_137)))" -"((letrec-values(((for-loop_263)" +" ht_142)))" +"((letrec-values(((for-loop_262)" "(lambda(fold-var_261" " i_12)" "(begin" " 'for-loop" "(if i_12" -"(let-values(((sym_73)" +"(let-values(((sym_74)" "(hash-iterate-key" -" ht_137" +" ht_142" " i_12)))" "(let-values(((fold-var_262)" "(let-values(((fold-var_263)" @@ -42597,32 +42775,32 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -" sym_73)" +" sym_74)" " fold-var_263))))" "(values" " fold-var_264)))))" "(if(not" " #f)" -"(for-loop_263" +"(for-loop_262" " fold-var_262" "(hash-iterate-next" -" ht_137" +" ht_142" " i_12))" " fold-var_262)))" " fold-var_261)))))" -" for-loop_263)" +" for-loop_262)" " null" "(hash-iterate-first" -" ht_137)))))))" +" ht_142)))))))" " fold-var_259))))" "(values fold-var_260)))))" "(if(not #f)" -"(for-loop_262 fold-var_258(hash-iterate-next ht_136 i_167))" +"(for-loop_261 fold-var_258(hash-iterate-next ht_141 i_164))" " fold-var_258)))" " fold-var_257)))))" -" for-loop_262)" +" for-loop_261)" " null" -"(hash-iterate-first ht_136))))))))))))))))" +"(hash-iterate-first ht_141))))))))))))))))" "(define-values" "(1/syntax-local-submodules)" "(lambda()" @@ -42635,17 +42813,17 @@ static const char *startup_source = "(get-current-expand-context16.1 #f who145_0))))" "(let-values(((submods_3)(expand-context-declared-submodule-names ctx_64)))" "(reverse$1" -"(let-values(((ht_138) submods_3))" +"(let-values(((ht_143) submods_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_138)))" -"((letrec-values(((for-loop_264)" -"(lambda(fold-var_265 i_168)" +"(let-values()(check-in-hash ht_143)))" +"((letrec-values(((for-loop_263)" +"(lambda(fold-var_265 i_165)" "(begin" " 'for-loop" -"(if i_168" -"(let-values(((name_62 kind_8)(hash-iterate-key+value ht_138 i_168)))" +"(if i_165" +"(let-values(((name_62 kind_8)(hash-iterate-key+value ht_143 i_165)))" "(let-values(((fold-var_266)" "(let-values(((fold-var_267) fold-var_265))" "(if(eq? kind_8 'module)" @@ -42658,12 +42836,12 @@ static const char *startup_source = "(values fold-var_269)))" " fold-var_267))))" "(if(not #f)" -"(for-loop_264 fold-var_266(hash-iterate-next ht_138 i_168))" +"(for-loop_263 fold-var_266(hash-iterate-next ht_143 i_165))" " fold-var_266)))" " fold-var_265)))))" -" for-loop_264)" +" for-loop_263)" " null" -"(hash-iterate-first ht_138))))))))))))" +"(hash-iterate-first ht_143))))))))))))" "(define-values" "(1/syntax-local-get-shadower)" "(let-values(((syntax-local-get-shadower53_0)" @@ -42697,12 +42875,12 @@ static const char *startup_source = "(syntax-source-accessor)" "(lambda(who_0 srcloc-accessor_0)" "(begin" -"(lambda(s_188)" +"(lambda(s_189)" "(let-values((()" "(begin" -" (if (syntax?$1 s_188) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_188)))" +" (if (syntax?$1 s_189) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_189)))" "(values))))" -"(let-values(((srcloc_8)(syntax-srcloc s_188)))(if srcloc_8(srcloc-accessor_0 srcloc_8) #f)))))))" +"(let-values(((srcloc_8)(syntax-srcloc s_189)))(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))" @@ -42731,13 +42909,13 @@ static const char *startup_source = " #f))))" "(define-values" "(to-srcloc-stx)" -"(lambda(v_138)" +"(lambda(v_137)" "(begin" -"(if(srcloc? v_138)" +"(if(srcloc? v_137)" "(let-values()" "(let-values(((the-struct_35) empty-syntax))" "(if(syntax?$1 the-struct_35)" -"(let-values(((srcloc1_2) v_138))" +"(let-values(((srcloc1_2) v_137))" "(syntax1.1" "(syntax-content the-struct_35)" "(syntax-scopes the-struct_35)" @@ -42748,19 +42926,19 @@ static const char *startup_source = "(syntax-props the-struct_35)" "(syntax-inspector the-struct_35)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_35))))" -"(if(pair? v_138)" -"(let-values()(to-srcloc-stx(list->vector v_138)))" -"(if(vector? v_138)" +"(if(pair? v_137)" +"(let-values()(to-srcloc-stx(list->vector v_137)))" +"(if(vector? v_137)" "(let-values()" "(let-values(((the-struct_36) empty-syntax))" "(if(syntax?$1 the-struct_36)" "(let-values(((srcloc2_0)" "(srcloc" -"(vector-ref v_138 0)" -"(vector-ref v_138 1)" -"(vector-ref v_138 2)" -"(vector-ref v_138 3)" -"(vector-ref v_138 4))))" +"(vector-ref v_137 0)" +"(vector-ref v_137 1)" +"(vector-ref v_137 2)" +"(vector-ref v_137 3)" +"(vector-ref v_137 4))))" "(syntax1.1" "(syntax-content the-struct_36)" "(syntax-scopes the-struct_36)" @@ -42771,7 +42949,7 @@ static const char *startup_source = "(syntax-props the-struct_36)" "(syntax-inspector the-struct_36)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_36))))" -"(let-values() v_138)))))))" +"(let-values() v_137)))))))" "(define-values" "(1/syntax-e)" "(lambda(s_0)" @@ -42784,14 +42962,14 @@ static const char *startup_source = "(syntax-e$1 s_0)))))))" "(define-values" "(1/syntax->datum)" -"(lambda(s_188)" +"(lambda(s_189)" "(begin" " 'syntax->datum" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_188) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_188)))" -"(syntax->datum$1 s_188)))))))" +" (if (syntax?$1 s_189) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_189)))" +"(syntax->datum$1 s_189)))))))" "(define-values(maybe-syntax->datum)(lambda(s_73)(begin(if(syntax?$1 s_73)(syntax->datum$1 s_73) s_73))))" "(define-values" "(1/datum->syntax)" @@ -42800,7 +42978,7 @@ static const char *startup_source = "(begin" " 'datum->syntax6" "(let-values(((stx-c_4) stx-c4_1))" -"(let-values(((s_440) s5_2))" +"(let-values(((s_439) s5_2))" "(let-values(((stx-l_2) stx-l1_0))" "(let-values(((stx-p_1) stx-p2_0))" "(let-values()" @@ -42838,22 +43016,22 @@ static const char *startup_source = "(if or-part_293 or-part_293(syntax?$1 stx-p_1)))" "(void)" " (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-p_1)))" -"(datum->syntax$1 stx-c_4 s_440(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))" +"(datum->syntax$1 stx-c_4 s_439(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))" "(case-lambda" "((stx-c_5 s_77)(begin 'datum->syntax(datum->syntax6_1 stx-c_5 s_77 #f #f #f)))" "((stx-c_6 s_4 stx-l_3 stx-p_2 ignored3_1)(datum->syntax6_1 stx-c_6 s_4 stx-l_3 stx-p_2 ignored3_1))" -"((stx-c_7 s_441 stx-l_4 stx-p2_1)(datum->syntax6_1 stx-c_7 s_441 stx-l_4 stx-p2_1 #f))" +"((stx-c_7 s_440 stx-l_4 stx-p2_1)(datum->syntax6_1 stx-c_7 s_440 stx-l_4 stx-p2_1 #f))" "((stx-c_8 s_181 stx-l1_1)(datum->syntax6_1 stx-c_8 s_181 stx-l1_1 #f #f)))))" "(define-values" "(1/syntax->list)" -"(lambda(s_442)" +"(lambda(s_441)" "(begin" " 'syntax->list" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_442) (void) (let-values () (raise-argument-error 'syntax->list \"syntax?\" s_442)))" -"(syntax->list$1 s_442)))))))" +" (if (syntax?$1 s_441) (void) (let-values () (raise-argument-error 'syntax->list \"syntax?\" s_441)))" +"(syntax->list$1 s_441)))))))" "(define-values" "(1/syntax-original?)" "(lambda(s_167)" @@ -42871,7 +43049,7 @@ static const char *startup_source = "(begin" " 'bound-identifier=?11" "(let-values(((a_54) a9_0))" -"(let-values(((b_82) b10_0))" +"(let-values(((b_65) b10_0))" "(let-values(((phase_120)" "(if(eq? phase8_0 unsafe-undefined)(1/syntax-local-phase-level) phase8_0)))" "(let-values()" @@ -42881,16 +43059,16 @@ static const char *startup_source = "(if(identifier? a_54)" "(void)" " (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" a_54)))" -"(if(identifier? b_82)" +"(if(identifier? b_65)" "(void)" -" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_82)))" +" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_65)))" "(if(phase? phase_120)" "(void)" "(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_120)))" -"(bound-identifier=?$1 a_54 b_82 phase_120))))))))))))" +"(bound-identifier=?$1 a_54 b_65 phase_120))))))))))))" "(case-lambda" -"((a_55 b_83)(begin 'bound-identifier=?(bound-identifier=?11_0 a_55 b_83 unsafe-undefined)))" -"((a_56 b_84 phase8_1)(bound-identifier=?11_0 a_56 b_84 phase8_1)))))" +"((a_55 b_84)(begin 'bound-identifier=?(bound-identifier=?11_0 a_55 b_84 unsafe-undefined)))" +"((a_56 b_85 phase8_1)(bound-identifier=?11_0 a_56 b_85 phase8_1)))))" "(define-values" "(1/free-identifier=?)" "(let-values(((free-identifier=?17_0)" @@ -42898,7 +43076,7 @@ static const char *startup_source = "(begin" " 'free-identifier=?17" "(let-values(((a_57) a15_0))" -"(let-values(((b_85) b16_1))" +"(let-values(((b_86) b16_1))" "(let-values(((a-phase_1)" "(if(eq? a-phase13_0 unsafe-undefined)(1/syntax-local-phase-level) a-phase13_0)))" "(let-values(((b-phase_1)(if(eq? b-phase14_0 unsafe-undefined) a-phase_1 b-phase14_0)))" @@ -42909,23 +43087,23 @@ static const char *startup_source = "(if(identifier? a_57)" "(void)" " (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" a_57)))" -"(if(identifier? b_85)" +"(if(identifier? b_86)" "(void)" -" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" b_85)))" +" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" b_86)))" "(if(phase? a-phase_1)" "(void)" "(let-values()(raise-argument-error 'free-identifier=? phase?-string a-phase_1)))" "(if(phase? b-phase_1)" "(void)" "(let-values()(raise-argument-error 'free-identifier=? phase?-string b-phase_1)))" -"(free-identifier=?$1 a_57 b_85 a-phase_1 b-phase_1)))))))))))))" +"(free-identifier=?$1 a_57 b_86 a-phase_1 b-phase_1)))))))))))))" "(case-lambda" "((a_58 b_39)(begin 'free-identifier=?(free-identifier=?17_0 a_58 b_39 unsafe-undefined unsafe-undefined)))" -"((a_59 b_86 a-phase_2 b-phase14_1)(free-identifier=?17_0 a_59 b_86 a-phase_2 b-phase14_1))" -"((a_60 b_87 a-phase13_1)(free-identifier=?17_0 a_60 b_87 a-phase13_1 unsafe-undefined)))))" +"((a_59 b_87 a-phase_2 b-phase14_1)(free-identifier=?17_0 a_59 b_87 a-phase_2 b-phase14_1))" +"((a_60 b_88 a-phase13_1)(free-identifier=?17_0 a_60 b_88 a-phase13_1 unsafe-undefined)))))" "(define-values" "(1/free-transformer-identifier=?)" -"(lambda(a_61 b_88)" +"(lambda(a_61 b_89)" "(begin" " 'free-transformer-identifier=?" "(let-values()" @@ -42938,15 +43116,15 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(identifier? b_88)" +"(if(identifier? b_89)" "(void)" -" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_88)))" +" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_89)))" "(values))))" "(let-values(((phase_121)(add1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_61 b_88 phase_121 phase_121)))))))))" +"(free-identifier=?$1 a_61 b_89 phase_121 phase_121)))))))))" "(define-values" "(1/free-template-identifier=?)" -"(lambda(a_62 b_89)" +"(lambda(a_62 b_90)" "(begin" " 'free-template-identifier=?" "(let-values()" @@ -42959,15 +43137,15 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(identifier? b_89)" +"(if(identifier? b_90)" "(void)" -" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_89)))" +" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_90)))" "(values))))" "(let-values(((phase_122)(sub1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_62 b_89 phase_122 phase_122)))))))))" +"(free-identifier=?$1 a_62 b_90 phase_122 phase_122)))))))))" "(define-values" "(1/free-label-identifier=?)" -"(lambda(a_63 b_90)" +"(lambda(a_63 b_91)" "(begin" " 'free-label-identifier=?" "(let-values()" @@ -42976,10 +43154,10 @@ static const char *startup_source = "(if(identifier? a_63)" "(void)" " (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" a_63)))" -"(if(identifier? b_90)" +"(if(identifier? b_91)" "(void)" -" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" b_90)))" -"(free-identifier=?$1 a_63 b_90 #f #f)))))))" +" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" b_91)))" +"(free-identifier=?$1 a_63 b_91 #f #f)))))))" "(define-values" "(1/identifier-binding)" "(let-values(((identifier-binding22_0)" @@ -43081,7 +43259,7 @@ static const char *startup_source = "(begin" " 'identifier-prune-lexical-context34" "(let-values(((id_98) id33_1))" -"(let-values(((syms_21) syms32_1))" +"(let-values(((syms_22) syms32_1))" "(let-values()" "(let-values()" "(let-values()" @@ -43090,13 +43268,13 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'identifier-prune-lexical-context \"identifier?\" id_98)))" -"(if(if(list? syms_21)(andmap2 symbol? syms_21) #f)" +"(if(if(list? syms_22)(andmap2 symbol? syms_22) #f)" "(void)" "(let-values()" "(raise-argument-error" " 'identifier-prune-lexical-context" " \"(listof symbol?)\"" -" syms_21)))" +" syms_22)))" " id_98))))))))))" "(case-lambda" "((id_61)(begin 'identifier-prune-lexical-context(identifier-prune-lexical-context34_0 id_61 null)))" @@ -43123,24 +43301,24 @@ static const char *startup_source = "(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_75)))" "(syntax-debug-info$1 s_412 phase_75 all-bindings?_1))))))))))))" "(case-lambda" -"((s_85)(begin 'syntax-debug-info(syntax-debug-info39_0 s_85 unsafe-undefined #f)))" -"((s_443 phase_125 all-bindings?37_1)(syntax-debug-info39_0 s_443 phase_125 all-bindings?37_1))" +"((s_86)(begin 'syntax-debug-info(syntax-debug-info39_0 s_86 unsafe-undefined #f)))" +"((s_442 phase_125 all-bindings?37_1)(syntax-debug-info39_0 s_442 phase_125 all-bindings?37_1))" "((s_29 phase36_1)(syntax-debug-info39_0 s_29 phase36_1 #f)))))" "(define-values" "(1/syntax-shift-phase-level)" -"(lambda(s_444 phase_126)" +"(lambda(s_443 phase_126)" "(begin" " 'syntax-shift-phase-level" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_444)" +"(if(syntax?$1 s_443)" "(void)" -" (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_444)))" +" (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_443)))" "(if(phase? phase_126)" "(void)" "(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_126)))" -"(syntax-shift-phase-level$1 s_444 phase_126)))))))" +"(syntax-shift-phase-level$1 s_443 phase_126)))))))" "(define-values" "(1/syntax-track-origin)" "(lambda(new-stx_8 old-stx_4 id_100)" @@ -43166,7 +43344,7 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_100)))" "(values))))" -"(let-values(((s_445)(syntax-track-origin$1 new-stx_8 old-stx_4 id_100)))" +"(let-values(((s_444)(syntax-track-origin$1 new-stx_8 old-stx_4 id_100)))" "(let-values(((ctx_66)" "(let-values(((temp60_4) #t))(get-current-expand-context16.1 temp60_4 'unexpected))))" "(begin" @@ -43174,10 +43352,10 @@ static const char *startup_source = "(let-values()" "(let-values(((obs_44)(expand-context-observer ctx_66)))" "(if obs_44" -"(let-values()(let-values()(call-expand-observe obs_44 'track-origin new-stx_8 s_445)))" +"(let-values()(let-values()(call-expand-observe obs_44 'track-origin new-stx_8 s_444)))" "(void))))" "(void))" -" s_445)))))))))))" +" s_444)))))))))))" "(define-values" "(1/namespace-attach-module)" "(let-values(((namespace-attach-module4_0)" @@ -43290,7 +43468,7 @@ static const char *startup_source = "(let-values(((missing_0)(gensym 'missing)))" "(let-values((()" "(begin" -"((letrec-values(((loop_98)" +"((letrec-values(((loop_99)" "(lambda(mpi_46" " phase_128" " attach-instances?_1" @@ -43351,7 +43529,7 @@ static const char *startup_source = " #f)" " #f)" "(let-values()" -"(loop_98" +"(loop_99" " mpi_46" " 0" " attach-instances?_1" @@ -43504,9 +43682,9 @@ static const char *startup_source = "(hash-update!" " todo_0" " mod-name_19" -"(lambda(ht_139)" +"(lambda(ht_144)" "(hash-set" -" ht_139" +" ht_144" " phase_128" " m-ns_13))" " '#hasheqv())" @@ -43524,7 +43702,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_297)))" -"((letrec-values(((for-loop_265)" +"((letrec-values(((for-loop_264)" "(lambda(lst_298)" "(begin" " 'for-loop" @@ -43533,7 +43711,7 @@ static const char *startup_source = "(let-values(((phase+reqs_1)" "(unsafe-car" " lst_298))" -"((rest_172)" +"((rest_171)" "(unsafe-cdr" " lst_298)))" "(let-values((()" @@ -43547,25 +43725,25 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_222)))" -"((letrec-values(((for-loop_98)" -"(lambda(lst_174)" +"((letrec-values(((for-loop_99)" +"(lambda(lst_175)" "(begin" " 'for-loop" "(if(pair?" -" lst_174)" +" lst_175)" "(let-values(((req_5)" "(unsafe-car" -" lst_174))" -"((rest_173)" +" lst_175))" +"((rest_172)" "(unsafe-cdr" -" lst_174)))" +" lst_175)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(loop_98" +"(loop_99" "(module-path-index-shift" " req_5" "(module-self" @@ -43581,19 +43759,19 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_98" -" rest_173)" -"(values))))" -"(values))))))" -" for-loop_98)" -" lst_222)))))" -"(if(not" -" #f)" -"(for-loop_265" +"(for-loop_99" " rest_172)" "(values))))" "(values))))))" -" for-loop_265)" +" for-loop_99)" +" lst_222)))))" +"(if(not" +" #f)" +"(for-loop_264" +" rest_171)" +"(values))))" +"(values))))))" +" for-loop_264)" " lst_297)))" "(void)" "(let-values(((lst_273)" @@ -43606,25 +43784,25 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_273)))" -"((letrec-values(((for-loop_99)" -"(lambda(lst_160)" +"((letrec-values(((for-loop_100)" +"(lambda(lst_161)" "(begin" " 'for-loop" "(if(pair?" -" lst_160)" +" lst_161)" "(let-values(((submod-name_0)" "(unsafe-car" -" lst_160))" +" lst_161))" "((rest_94)" "(unsafe-cdr" -" lst_160)))" +" lst_161)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(loop_98" +"(loop_99" "(1/module-path-index-join" "(list" " 'submod" @@ -43638,17 +43816,17 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_99" +"(for-loop_100" " rest_94)" "(values))))" "(values))))))" -" for-loop_99)" +" for-loop_100)" " lst_273)))" "(void)" "(if(module-supermodule-name" " m_20)" "(let-values()" -"(loop_98" +"(loop_99" "(1/module-path-index-join" " '(submod" " \"..\")" @@ -43658,7 +43836,7 @@ static const char *startup_source = " attach-phase_0))" "(void))))))))))))))" "(void)))))))))" -" loop_98)" +" loop_99)" "(1/module-path-index-join" "(if(1/resolved-module-path? mod-path_16)" "(resolved-module-path->module-path mod-path_16)" @@ -43670,22 +43848,22 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((ht_140) todo_0))" +"(let-values(((ht_145) todo_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_140)))" -"((letrec-values(((for-loop_266)" -"(lambda(i_169)" +"(let-values()(check-in-hash ht_145)))" +"((letrec-values(((for-loop_265)" +"(lambda(i_166)" "(begin" " 'for-loop" -"(if i_169" +"(if i_166" "(let-values(((mod-name_20 phases_0)" "(hash-iterate-key+value" -" ht_140" -" i_169)))" +" ht_145" +" i_166)))" "(let-values((()" -"(let-values(((ht_141)" +"(let-values(((ht_146)" " phases_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -43693,8 +43871,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_141)))" -"((letrec-values(((for-loop_251)" +" ht_146)))" +"((letrec-values(((for-loop_250)" "(lambda(i_46)" "(begin" " 'for-loop" @@ -43702,7 +43880,7 @@ static const char *startup_source = "(let-values(((phase_129" " m-ns_15)" "(hash-iterate-key+value" -" ht_141" +" ht_146" " i_46)))" "(let-values((()" "(let-values()" @@ -43772,22 +43950,22 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_251" +"(for-loop_250" "(hash-iterate-next" -" ht_141" +" ht_146" " i_46))" "(values))))" "(values))))))" -" for-loop_251)" +" for-loop_250)" "(hash-iterate-first" -" ht_141))))))" +" ht_146))))))" "(if(not #f)" -"(for-loop_266" -"(hash-iterate-next ht_140 i_169))" +"(for-loop_265" +"(hash-iterate-next ht_145 i_166))" "(values))))" "(values))))))" -" for-loop_266)" -"(hash-iterate-first ht_140))))" +" for-loop_265)" +"(hash-iterate-first ht_145))))" "(values))))" "(let-values()" "(let-values(((mnr_0)(1/current-module-name-resolver)))" @@ -43799,18 +43977,18 @@ static const char *startup_source = " dest-namespace_2)" "(let-values()" "(begin" -"(let-values(((ht_142) todo_0))" +"(let-values(((ht_147) todo_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_142)))" -"((letrec-values(((for-loop_267)" +"(let-values()(check-in-hash-keys ht_147)))" +"((letrec-values(((for-loop_266)" "(lambda(i_21)" "(begin" " 'for-loop" "(if i_21" "(let-values(((mod-name_21)" -"(hash-iterate-key ht_142 i_21)))" +"(hash-iterate-key ht_147 i_21)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43823,12 +44001,12 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_267" -"(hash-iterate-next ht_142 i_21))" +"(for-loop_266" +"(hash-iterate-next ht_147 i_21))" "(values))))" "(values))))))" -" for-loop_267)" -"(hash-iterate-first ht_142))))" +" for-loop_266)" +"(hash-iterate-first ht_147))))" "(void))))))))))))))))))))))))" "(define-values" "(1/make-empty-namespace)" @@ -43874,28 +44052,28 @@ 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_143)" +"(let-values(((ht_148)" "(syntax-scope-set" "(root-expand-context-all-scopes-stx root-ctx_5)" "(namespace-phase ns_58))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_143)))" -"((letrec-values(((for-loop_111)" -"(lambda(fold-var_237 i_170)" +"(let-values()(check-in-immutable-hash-keys ht_148)))" +"((letrec-values(((for-loop_113)" +"(lambda(fold-var_237 i_167)" "(begin" " 'for-loop" -"(if i_170" -"(let-values(((sc_35)" +"(if i_167" +"(let-values(((sc_36)" "(unsafe-immutable-hash-iterate-key" -" ht_143" -" i_170)))" +" ht_148" +" i_167)))" "(let-values(((fold-var_215)" "(let-values(((fold-var_216)" " fold-var_237))" "(if(equal?" -" sc_35" +" sc_36" " post-scope_1)" " fold-var_216" "(let-values(((fold-var_217)" @@ -43904,28 +44082,28 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -" sc_35)" +" sc_36)" " fold-var_217))))" "(values" " fold-var_218)))))))" "(if(not #f)" -"(for-loop_111" +"(for-loop_113" " fold-var_215" "(unsafe-immutable-hash-iterate-next" -" ht_143" -" i_170))" +" ht_148" +" i_167))" " fold-var_215)))" " fold-var_237)))))" -" for-loop_111)" +" for-loop_113)" " null" -"(unsafe-immutable-hash-iterate-first ht_143)))))))" +"(unsafe-immutable-hash-iterate-first ht_148)))))))" "(let-values(((add-ns-scopes_0)" -"(lambda(s_430)" +"(lambda(s_429)" "(begin" " 'add-ns-scopes" "(let-values(((temp64_2)" "(add-scopes" -"(push-scope s_430 post-scope_1)" +"(push-scope s_429 post-scope_1)" " other-namespace-scopes_0))" "((temp65_1)" "(root-expand-context-all-scopes-stx root-ctx_5))" @@ -43963,7 +44141,7 @@ static const char *startup_source = "(let-values()(add-ns-scopes_0 s_2)))))))))))))))))))" "(case-lambda" "((s_78)(begin 'namespace-syntax-introduce(namespace-syntax-introduce3_0 s_78 unsafe-undefined)))" -"((s_446 ns1_2)(namespace-syntax-introduce3_0 s_446 ns1_2)))))" +"((s_445 ns1_2)(namespace-syntax-introduce3_0 s_445 ns1_2)))))" "(define-values" "(namespace-datum-introduce)" "(lambda(s_181)(begin(1/namespace-syntax-introduce(1/datum->syntax #f s_181)))))" @@ -44209,7 +44387,7 @@ static const char *startup_source = "(lambda(sym43_0 use-mapping?40_0 failure-thunk41_0 ns42_0)" "(begin" " 'namespace-variable-value44" -"(let-values(((sym_74) sym43_0))" +"(let-values(((sym_75) sym43_0))" "(let-values(((use-mapping?_0) use-mapping?40_0))" "(let-values(((failure-thunk_5) failure-thunk41_0))" "(let-values(((ns_11)(if(eq? ns42_0 unsafe-undefined)(1/current-namespace) ns42_0)))" @@ -44217,9 +44395,9 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(symbol? sym_74)" +"(if(symbol? sym_75)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_74)))" +" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_75)))" "(if(let-values(((or-part_295)(not failure-thunk_5)))" "(if or-part_295" " or-part_295" @@ -44241,7 +44419,7 @@ static const char *startup_source = "(let-values(((var-ns_0 var-phase-level_0 var-sym_6)" "(if use-mapping?_0" "(let-values()" -"(let-values(((id_101)(1/datum->syntax #f sym_74)))" +"(let-values(((id_101)(1/datum->syntax #f sym_75)))" "(let-values(((b_14)" "(resolve+shift/extra-inspector" "(1/namespace-syntax-introduce id_101 ns_11)" @@ -44255,7 +44433,7 @@ static const char *startup_source = " ns_11))" "(void))" "(values))))" -"(let-values(((v_198" +"(let-values(((v_196" " primitive?_8" " extra-inspector_9" " protected?_9)" @@ -44279,7 +44457,7 @@ static const char *startup_source = " id121_0))" "(values variable #f #f #f))))" "(begin" -"(if(variable? v_198)" +"(if(variable? v_196)" "(void)" "(let-values()" "(escape_0" @@ -44293,7 +44471,7 @@ static const char *startup_source = "(string-append" " \"namespace-variable-value: bound to syntax\\n\"" " \" in: ~s\")" -" sym_74)" +" sym_75)" "(current-continuation-marks)" " null))))))))" "(if(module-binding? b_14)" @@ -44312,8 +44490,8 @@ static const char *startup_source = "(values" " ns_11" "(namespace-phase ns_11)" -" sym_74))))))))" -"(let-values()(values ns_11(namespace-phase ns_11) sym_74)))))" +" sym_75))))))))" +"(let-values()(values ns_11(namespace-phase ns_11) sym_75)))))" "(let-values(((val_71)" "(namespace-get-variable" " var-ns_0" @@ -44330,24 +44508,24 @@ static const char *startup_source = "(string-append" " \"namespace-variable-value: given name is not defined\\n\"" " \" name: ~s\")" -" sym_74)" +" sym_75)" "(current-continuation-marks)" -" sym_74)))))))))" +" sym_75)))))))))" "(lambda() val_71))))))))))))))))))" "(case-lambda" -"((sym_75)(begin 'namespace-variable-value(namespace-variable-value44_0 sym_75 #t #f unsafe-undefined)))" -"((sym_76 use-mapping?_1 failure-thunk_6 ns42_1)" -"(namespace-variable-value44_0 sym_76 use-mapping?_1 failure-thunk_6 ns42_1))" -"((sym_77 use-mapping?_2 failure-thunk41_1)" -"(namespace-variable-value44_0 sym_77 use-mapping?_2 failure-thunk41_1 unsafe-undefined))" -"((sym_78 use-mapping?40_1)(namespace-variable-value44_0 sym_78 use-mapping?40_1 #f unsafe-undefined)))))" +"((sym_76)(begin 'namespace-variable-value(namespace-variable-value44_0 sym_76 #t #f unsafe-undefined)))" +"((sym_77 use-mapping?_1 failure-thunk_6 ns42_1)" +"(namespace-variable-value44_0 sym_77 use-mapping?_1 failure-thunk_6 ns42_1))" +"((sym_78 use-mapping?_2 failure-thunk41_1)" +"(namespace-variable-value44_0 sym_78 use-mapping?_2 failure-thunk41_1 unsafe-undefined))" +"((sym_79 use-mapping?40_1)(namespace-variable-value44_0 sym_79 use-mapping?40_1 #f unsafe-undefined)))))" "(define-values" "(1/namespace-set-variable-value!)" "(let-values(((namespace-set-variable-value!51_0)" "(lambda(sym49_0 val50_0 map?46_0 ns47_2 as-constant?48_0)" "(begin" " 'namespace-set-variable-value!51" -"(let-values(((sym_79) sym49_0))" +"(let-values(((sym_80) sym49_0))" "(let-values(((val_72) val50_0))" "(let-values(((map?_0) map?46_0))" "(let-values(((ns_82)(if(eq? ns47_2 unsafe-undefined)(1/current-namespace) ns47_2)))" @@ -44356,10 +44534,10 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(symbol? sym_79)" +"(if(symbol? sym_80)" "(void)" "(let-values()" -" (raise-argument-error 'namespace-set-variable-value! \"symbol?\" sym_79)))" +" (raise-argument-error 'namespace-set-variable-value! \"symbol?\" sym_80)))" "(if(1/namespace? ns_82)" "(void)" "(let-values()" @@ -44367,7 +44545,7 @@ static const char *startup_source = "(namespace-set-variable!" " ns_82" "(namespace-phase ns_82)" -" sym_79" +" sym_80" " val_72" " as-constant?_2)" "(if map?_0" @@ -44377,14 +44555,14 @@ static const char *startup_source = "(namespace-unset-transformer!" " ns_82" "(namespace-phase ns_82)" -" sym_79)" +" sym_80)" "(values))))" -"(let-values(((id_102)(1/datum->syntax #f sym_79)))" +"(let-values(((id_102)(1/datum->syntax #f sym_80)))" "(let-values(((temp123_1)(1/namespace-syntax-introduce id_102 ns_82))" "((temp124_0)" "(let-values(((temp126_0)(namespace-mpi ns_82))" "((temp127_3)(namespace-phase ns_82))" -"((sym128_0) sym_79))" +"((sym128_0) sym_80))" "(make-module-binding22.1" " #f" " null" @@ -44402,35 +44580,35 @@ static const char *startup_source = "(add-binding!17.1 #f #f temp123_1 temp124_0 temp125_0)))))" "(void)))))))))))))))" "(case-lambda" -"((sym_80 val_73)" -"(begin 'namespace-set-variable-value!(namespace-set-variable-value!51_0 sym_80 val_73 #f unsafe-undefined #f)))" -"((sym_81 val_74 map?_1 ns_83 as-constant?48_1)" -"(namespace-set-variable-value!51_0 sym_81 val_74 map?_1 ns_83 as-constant?48_1))" -"((sym_82 val_75 map?_2 ns47_3)(namespace-set-variable-value!51_0 sym_82 val_75 map?_2 ns47_3 #f))" -"((sym_83 val_76 map?46_1)(namespace-set-variable-value!51_0 sym_83 val_76 map?46_1 unsafe-undefined #f)))))" +"((sym_81 val_73)" +"(begin 'namespace-set-variable-value!(namespace-set-variable-value!51_0 sym_81 val_73 #f unsafe-undefined #f)))" +"((sym_82 val_74 map?_1 ns_83 as-constant?48_1)" +"(namespace-set-variable-value!51_0 sym_82 val_74 map?_1 ns_83 as-constant?48_1))" +"((sym_83 val_75 map?_2 ns47_3)(namespace-set-variable-value!51_0 sym_83 val_75 map?_2 ns47_3 #f))" +"((sym_84 val_76 map?46_1)(namespace-set-variable-value!51_0 sym_84 val_76 map?46_1 unsafe-undefined #f)))))" "(define-values" "(1/namespace-undefine-variable!)" "(let-values(((namespace-undefine-variable!55_0)" "(lambda(sym54_0 ns53_0)" "(begin" " 'namespace-undefine-variable!55" -"(let-values(((sym_84) sym54_0))" +"(let-values(((sym_85) sym54_0))" "(let-values(((ns_84)(if(eq? ns53_0 unsafe-undefined)(1/current-namespace) ns53_0)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(symbol? sym_84)" +"(if(symbol? sym_85)" "(void)" -" (let-values () (raise-argument-error 'namespace-undefine-variable! \"symbol?\" sym_84)))" +" (let-values () (raise-argument-error 'namespace-undefine-variable! \"symbol?\" sym_85)))" "(if(1/namespace? ns_84)" "(void)" "(let-values()" " (raise-argument-error 'namespace-undefine-variable! \"namespace?\" ns_84)))" -"(namespace-unset-variable! ns_84(namespace-phase ns_84) sym_84)))))))))))" +"(namespace-unset-variable! ns_84(namespace-phase ns_84) sym_85)))))))))))" "(case-lambda" -"((sym_85)(begin 'namespace-undefine-variable!(namespace-undefine-variable!55_0 sym_85 unsafe-undefined)))" -"((sym_86 ns53_1)(namespace-undefine-variable!55_0 sym_86 ns53_1)))))" +"((sym_86)(begin 'namespace-undefine-variable!(namespace-undefine-variable!55_0 sym_86 unsafe-undefined)))" +"((sym_7 ns53_1)(namespace-undefine-variable!55_0 sym_7 ns53_1)))))" "(define-values" "(1/namespace-mapped-symbols)" "(let-values(((namespace-mapped-symbols58_0)" @@ -44478,29 +44656,29 @@ static const char *startup_source = "(lambda(s3_1 ns1_4 compile2_0)" "(begin" " 'eval4" -"(let-values(((s_447) s3_1))" +"(let-values(((s_446) s3_1))" "(let-values(((ns_87)(if(eq? ns1_4 unsafe-undefined)(1/current-namespace) ns1_4)))" "(let-values(((compile_1)" "(if(eq? compile2_0 unsafe-undefined)" "(lambda(s_75 ns_55)(begin 'compile(1/compile s_75 ns_55 #f)))" " compile2_0)))" "(let-values()" -"(if(let-values(((or-part_28)(compiled-in-memory? s_447)))" +"(if(let-values(((or-part_28)(compiled-in-memory? s_446)))" "(if or-part_28" " or-part_28" -"(let-values(((or-part_293)(1/linklet-directory? s_447)))" -"(if or-part_293 or-part_293(1/linklet-bundle? s_447)))))" -"(let-values()(eval-compiled s_447 ns_87))" -"(if(if(syntax?$1 s_447)" -"(let-values(((or-part_297)(compiled-in-memory?(1/syntax-e s_447))))" +"(let-values(((or-part_293)(1/linklet-directory? s_446)))" +"(if or-part_293 or-part_293(1/linklet-bundle? s_446)))))" +"(let-values()(eval-compiled s_446 ns_87))" +"(if(if(syntax?$1 s_446)" +"(let-values(((or-part_297)(compiled-in-memory?(1/syntax-e s_446))))" "(if or-part_297" " or-part_297" -"(let-values(((or-part_298)(1/linklet-directory?(1/syntax-e s_447))))" -"(if or-part_298 or-part_298(1/linklet-bundle?(1/syntax-e s_447))))))" +"(let-values(((or-part_298)(1/linklet-directory?(1/syntax-e s_446))))" +"(if or-part_298 or-part_298(1/linklet-bundle?(1/syntax-e s_446))))))" " #f)" -"(let-values()(eval-compiled(1/syntax->datum s_447) ns_87))" +"(let-values()(eval-compiled(1/syntax->datum s_446) ns_87))" "(let-values()" -"(let-values(((s66_0) s_447)" +"(let-values(((s66_0) s_446)" "((ns67_1) ns_87)" "((temp68_1)" "(lambda(s_180 ns_88 tail?_52)" @@ -44508,9 +44686,9 @@ static const char *startup_source = "((temp69_0) #f))" "(per-top-level54.1 #f #f temp69_0 #t #f temp68_1 #f s66_0 ns67_1)))))))))))))" "(case-lambda" -"((s_446)(begin 'eval(eval4_0 s_446 unsafe-undefined unsafe-undefined)))" +"((s_445)(begin 'eval(eval4_0 s_445 unsafe-undefined unsafe-undefined)))" "((s_76 ns_89 compile2_1)(eval4_0 s_76 ns_89 compile2_1))" -"((s_442 ns1_5)(eval4_0 s_442 ns1_5 unsafe-undefined)))))" +"((s_441 ns1_5)(eval4_0 s_441 ns1_5 unsafe-undefined)))))" "(define-values" "(eval-compiled)" "(let-values(((eval-compiled9_0)" @@ -44551,10 +44729,10 @@ static const char *startup_source = "(let-values(((s72_0) s_184)" "((ns73_0) ns_93)" "((temp74_1)" -"(lambda(s_448 ns_47 as-tail?_4)" +"(lambda(s_447 ns_47 as-tail?_4)" "(list" "(compile-single$1" -" s_448" +" s_447" " ns_47" " expand_0" " serializable?_4" @@ -44584,8 +44762,8 @@ static const char *startup_source = " cs77_0))))))))))))))" "(case-lambda" "((s_11)(begin 'compile(compile16_0 s_11 unsafe-undefined #t unsafe-undefined #f)))" -"((s_449 ns_94 serializable?_5 expand_1 to-source?14_1)" -"(compile16_0 s_449 ns_94 serializable?_5 expand_1 to-source?14_1))" +"((s_448 ns_94 serializable?_5 expand_1 to-source?14_1)" +"(compile16_0 s_448 ns_94 serializable?_5 expand_1 to-source?14_1))" "((s_14 ns_95 serializable?_6 expand13_1)(compile16_0 s_14 ns_95 serializable?_6 expand13_1 #f))" "((s_15 ns_96 serializable?12_1)(compile16_0 s_15 ns_96 serializable?12_1 unsafe-undefined #f))" "((s_83 ns11_2)(compile16_0 s_83 ns11_2 #t unsafe-undefined #f)))))" @@ -44599,7 +44777,7 @@ static const char *startup_source = "(let-values(((ns_63)(if(eq? ns18_1 unsafe-undefined)(1/current-namespace) ns18_1)))" "(let-values()(1/compile s_20 ns_63 #t expand$1 #t))))))))" "(case-lambda" -"((s_450)(begin(compile-to-linklets20_0 s_450 unsafe-undefined)))" +"((s_449)(begin(compile-to-linklets20_0 s_449 unsafe-undefined)))" "((s_22 ns18_2)(compile-to-linklets20_0 s_22 ns18_2)))))" "(define-values" "(struct:lifted-parsed-begin" @@ -44607,7 +44785,7 @@ static const char *startup_source = " lifted-parsed-begin?" " lifted-parsed-begin-seq" " lifted-parsed-begin-last)" -"(let-values(((struct:_79 make-_79 ?_79 -ref_79 -set!_79)" +"(let-values(((struct:_80 make-_80 ?_80 -ref_80 -set!_80)" "(let-values()" "(let-values()" "(make-struct-type" @@ -44623,18 +44801,18 @@ static const char *startup_source = " #f" " 'lifted-parsed-begin)))))" "(values" -" struct:_79" -" make-_79" -" ?_79" -"(make-struct-field-accessor -ref_79 0 'seq)" -"(make-struct-field-accessor -ref_79 1 'last))))" +" struct:_80" +" make-_80" +" ?_80" +"(make-struct-field-accessor -ref_80 0 'seq)" +"(make-struct-field-accessor -ref_80 1 'last))))" "(define-values" "(compile-single$1)" -"(lambda(s_451 ns_97 expand_2 serializable?_7 to-source?_5)" +"(lambda(s_450 ns_97 expand_2 serializable?_7 to-source?_5)" "(begin" " 'compile-single" -"(let-values(((exp-s_4)(expand_2 s_451 ns_97 #f #t serializable?_7)))" -"((letrec-values(((loop_99)" +"(let-values(((exp-s_4)(expand_2 s_450 ns_97 #f #t serializable?_7)))" +"((letrec-values(((loop_100)" "(lambda(exp-s_5)" "(begin" " 'loop" @@ -44664,14 +44842,14 @@ static const char *startup_source = "(let-values()" "(let-values(((temp87_0)" "(reverse$1" -"(let-values(((lst_164)" +"(let-values(((lst_165)" "(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_164)))" +"(let-values()(check-list lst_165)))" "((letrec-values(((for-loop_5)" "(lambda(fold-var_270 lst_299)" "(begin" @@ -44681,25 +44859,25 @@ static const char *startup_source = "(unsafe-car lst_299))" "((rest_87)" "(unsafe-cdr lst_299)))" -"(let-values(((fold-var_159)" -"(let-values(((fold-var_160)" -" fold-var_270))" "(let-values(((fold-var_161)" +"(let-values(((fold-var_162)" +" fold-var_270))" +"(let-values(((fold-var_163)" "(let-values()" "(cons" "(let-values()" -"(loop_99" +"(loop_100" " e_74))" -" fold-var_160))))" +" fold-var_162))))" "(values" -" fold-var_161)))))" +" fold-var_163)))))" "(if(not #f)" -"(for-loop_5 fold-var_159 rest_87)" -" fold-var_159)))" +"(for-loop_5 fold-var_161 rest_87)" +" fold-var_161)))" " fold-var_270)))))" " for-loop_5)" " null" -" lst_164)))))" +" lst_165)))))" "((to-source?88_0) to-source?_5))" "(compiled-tops->compiled-top8.1 #f #f to-source?88_0 temp87_0)))" "(let-values()" @@ -44716,7 +44894,7 @@ static const char *startup_source = "((serializable?91_0) serializable?_7)" "((to-source?92_0) to-source?_5))" "(compile-top9.1 serializable?91_0 #f to-source?92_0 exp-s89_0 temp90_2)))))))))" -" loop_99)" +" loop_100)" " exp-s_4)))))" "(define-values" "(expand$1)" @@ -44724,7 +44902,7 @@ static const char *startup_source = "(lambda(s27_1 ns23_0 observable?24_0 to-parsed?25_0 serializable?26_0)" "(begin" " 'expand28" -"(let-values(((s_452) s27_1))" +"(let-values(((s_451) s27_1))" "(let-values(((ns_98)(if(eq? ns23_0 unsafe-undefined)(1/current-namespace) ns23_0)))" "(let-values(((observable?_0) observable?24_0))" "(let-values(((to-parsed?_2) to-parsed?25_0))" @@ -44740,7 +44918,7 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s94_0) s_452)" +"(let-values(((s94_0) s_451)" "((ns95_0) ns_98)" "((temp96_1)" "(lambda(s_312 ns_99 as-tail?_5)" @@ -44764,12 +44942,12 @@ static const char *startup_source = " s94_0" " ns95_0))))))))))))))))" "(case-lambda" -"((s_453)(begin 'expand(expand28_0 s_453 unsafe-undefined #f #f #f)))" -"((s_454 ns_9 observable?_1 to-parsed?_3 serializable?26_1)" -"(expand28_0 s_454 ns_9 observable?_1 to-parsed?_3 serializable?26_1))" -"((s_455 ns_100 observable?_2 to-parsed?25_1)(expand28_0 s_455 ns_100 observable?_2 to-parsed?25_1 #f))" -"((s_164 ns_101 observable?24_1)(expand28_0 s_164 ns_101 observable?24_1 #f #f))" -"((s_456 ns23_1)(expand28_0 s_456 ns23_1 #f #f #f)))))" +"((s_452)(begin 'expand(expand28_0 s_452 unsafe-undefined #f #f #f)))" +"((s_453 ns_9 observable?_1 to-parsed?_3 serializable?26_1)" +"(expand28_0 s_453 ns_9 observable?_1 to-parsed?_3 serializable?26_1))" +"((s_454 ns_100 observable?_2 to-parsed?25_1)(expand28_0 s_454 ns_100 observable?_2 to-parsed?25_1 #f))" +"((s_165 ns_101 observable?24_1)(expand28_0 s_165 ns_101 observable?24_1 #f #f))" +"((s_455 ns23_1)(expand28_0 s_455 ns23_1 #f #f #f)))))" "(define-values" "(expand-single)" "(lambda(s_58 ns_102 observer_3 to-parsed?_4 serializable?_9)" @@ -44853,7 +45031,7 @@ static const char *startup_source = "(let-values(((s114_0) s_66)" "((ns115_0) ns_103)" "((temp116_0)" -"(lambda(s_457 ns_104 as-tail?_6)(expand-single-once s_457 ns_104)))" +"(lambda(s_456 ns_104 as-tail?_6)(expand-single-once s_456 ns_104)))" "((cons117_0) cons)" "((re-pair118_0) re-pair)" "((temp119_1) #t)" @@ -44873,11 +45051,11 @@ static const char *startup_source = "((s_317 ns30_1)(expand-once32_0 s_317 ns30_1)))))" "(define-values" "(expand-single-once)" -"(lambda(s_458 ns_83)" +"(lambda(s_457 ns_83)" "(begin" "(let-values(((require-lifts_4 lifts_11 exp-s_6)" "(expand-capturing-lifts" -" s_458" +" s_457" "(let-values(((v_128)(let-values(((ns121_0) ns_83))(make-expand-context10.1 #f #f #f ns121_0))))" "(let-values(((the-struct_69) v_128))" "(if(expand-context/outer? the-struct_69)" @@ -44946,7 +45124,7 @@ static const char *startup_source = "(lambda(s35_0 ns34_0)" "(begin" " 'expand-to-top-form36" -"(let-values(((s_459) s35_0))" +"(let-values(((s_458) s35_0))" "(let-values(((ns_105)(if(eq? ns34_0 unsafe-undefined)(1/current-namespace) ns34_0)))" "(let-values()" "(let-values(((observer_4)(current-expand-observe)))" @@ -44959,7 +45137,7 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s127_0) s_459)" +"(let-values(((s127_0) s_458)" "((ns128_0) ns_105)" "((temp129_1) #f)" "((temp130_0) #f)" @@ -44975,8 +45153,8 @@ static const char *startup_source = " s127_0" " ns128_0)))))))))))))" "(case-lambda" -"((s_158)(begin 'expand-to-top-form(expand-to-top-form36_0 s_158 unsafe-undefined)))" -"((s_460 ns34_1)(expand-to-top-form36_0 s_460 ns34_1)))))" +"((s_159)(begin 'expand-to-top-form(expand-to-top-form36_0 s_159 unsafe-undefined)))" +"((s_459 ns34_1)(expand-to-top-form36_0 s_459 ns34_1)))))" "(define-values" "(per-top-level54.1)" "(lambda(combine39_0" @@ -45005,18 +45183,18 @@ static const char *startup_source = "(let-values(((ns132_0) ns_106)((observer133_0) observer_5))" "(make-expand-context10.1 #f observer133_0 #f ns132_0))))" "(let-values(((phase_130)(namespace-phase ns_106)))" -"((letrec-values(((loop_100)" -"(lambda(s_461 phase_131 ns_107 as-tail?_7)" +"((letrec-values(((loop_101)" +"(lambda(s_460 phase_131 ns_107 as-tail?_7)" "(begin" " 'loop" "(let-values(((tl-ctx_0)" -"(let-values(((v_199) ctx_68))" -"(let-values(((the-struct_71) v_199))" +"(let-values(((v_197) ctx_68))" +"(let-values(((the-struct_71) v_197))" "(if(expand-context/outer? the-struct_71)" "(let-values(((inner134_0)" "(let-values(((the-struct_72)" "(root-expand-context/outer-inner" -" v_199)))" +" v_197)))" "(if(expand-context/inner?" " the-struct_72)" "(let-values(((phase135_1)" @@ -45111,7 +45289,7 @@ static const char *startup_source = " 'struct-copy" " \"expand-context/outer?\"" " the-struct_71))))))" -"(let-values(((wb-s_0)(if just-once?_1 s_461 #f)))" +"(let-values(((wb-s_0)(if just-once?_1 s_460 #f)))" "(let-values((()" "(begin" "(let-values(((obs_47)" @@ -45123,21 +45301,21 @@ static const char *startup_source = "(call-expand-observe" " obs_47" " 'visit" -" s_461)))" +" s_460)))" "(void)))" "(values))))" "(let-values(((require-lifts_5 lifts_12 exp-s_7)" "(expand-capturing-lifts" -" s_461" -"(let-values(((v_200) tl-ctx_0))" -"(let-values(((the-struct_73) v_200))" +" s_460" +"(let-values(((v_198) tl-ctx_0))" +"(let-values(((the-struct_73) v_198))" "(if(expand-context/outer? the-struct_73)" "(let-values(((only-immediate?139_0)" " #t)" "((inner140_0)" "(let-values(((the-struct_74)" "(root-expand-context/outer-inner" -" v_200)))" +" v_198)))" "(if(expand-context/inner?" " the-struct_74)" "(let-values(((phase141_0)" @@ -45265,7 +45443,7 @@ static const char *startup_source = "(void)))" "(if just-once?_1" " new-s_3" -"(loop_100" +"(loop_101" " new-s_3" " phase_131" " ns_107" @@ -45308,35 +45486,35 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_29 begin146_0 e147_0)" -"(let-values(((s_462)" +"(let-values(((s_461)" " disarmed-exp-s_0))" "(let-values(((orig-s_33)" -" s_462))" +" s_461))" "(let-values(((begin146_1" " e147_1)" "(let-values(((s_223)" "(if(syntax?$1" -" s_462)" +" s_461)" "(syntax-e$1" -" s_462)" -" s_462)))" +" s_461)" +" s_461)))" "(if(pair?" " s_223)" "(let-values(((begin148_0)" -"(let-values(((s_114)" +"(let-values(((s_115)" "(car" " s_223)))" -" s_114))" +" s_115))" "((e149_0)" -"(let-values(((s_438)" +"(let-values(((s_437)" "(cdr" " s_223)))" "(let-values(((s_224)" "(if(syntax?$1" -" s_438)" +" s_437)" "(syntax-e$1" -" s_438)" -" s_438)))" +" s_437)" +" s_437)))" "(let-values(((flat-s_21)" "(to-syntax-list.1" " s_224)))" @@ -45376,7 +45554,7 @@ static const char *startup_source = " es_2))" " #f)" "(let-values()" -"(loop_100" +"(loop_101" "(car es_2)" " phase_131" " ns_107" @@ -45397,14 +45575,14 @@ static const char *startup_source = "(values))))" "(let-values(((a_64)" "(if combine_0" -"(loop_100" +"(loop_101" "(car" " es_2)" " phase_131" " ns_107" " #f)" "(begin" -"(loop_100" +"(loop_101" "(car" " es_2)" " phase_131" @@ -45461,38 +45639,38 @@ static const char *startup_source = "(let-values(((ok?_30" " begin-for-syntax150_0" " e151_0)" -"(let-values(((s_463)" +"(let-values(((s_462)" " disarmed-exp-s_0))" "(let-values(((orig-s_34)" -" s_463))" +" s_462))" "(let-values(((begin-for-syntax150_1" " e151_1)" -"(let-values(((s_126)" +"(let-values(((s_127)" "(if(syntax?$1" -" s_463)" +" s_462)" "(syntax-e$1" -" s_463)" -" s_463)))" +" s_462)" +" s_462)))" "(if(pair?" -" s_126)" +" s_127)" "(let-values(((begin-for-syntax152_0)" -"(let-values(((s_464)" +"(let-values(((s_463)" "(car" -" s_126)))" -" s_464))" +" s_127)))" +" s_463))" "((e153_0)" -"(let-values(((s_465)" +"(let-values(((s_464)" "(cdr" -" s_126)))" -"(let-values(((s_466)" +" s_127)))" +"(let-values(((s_465)" "(if(syntax?$1" -" s_465)" +" s_464)" "(syntax-e$1" -" s_465)" -" s_465)))" +" s_464)" +" s_464)))" "(let-values(((flat-s_22)" "(to-syntax-list.1" -" s_466)))" +" s_465)))" "(if(not" " flat-s_22)" "(let-values()" @@ -45556,17 +45734,17 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_205)))" -"((letrec-values(((for-loop_268)" +"((letrec-values(((for-loop_267)" "(lambda(fold-var_271" " lst_300)" "(begin" " 'for-loop" "(if(pair?" " lst_300)" -"(let-values(((s_467)" +"(let-values(((s_466)" "(unsafe-car" " lst_300))" -"((rest_113)" +"((rest_112)" "(unsafe-cdr" " lst_300)))" "(let-values(((fold-var_254)" @@ -45587,8 +45765,8 @@ static const char *startup_source = " obs_54" " 'next)))" "(void)))" -"(loop_100" -" s_467" +"(loop_101" +" s_466" " next-phase_0" " next-ns_0" " #f)))" @@ -45597,12 +45775,12 @@ static const char *startup_source = " fold-var_201)))))" "(if(not" " #f)" -"(for-loop_268" +"(for-loop_267" " fold-var_254" -" rest_113)" +" rest_112)" " fold-var_254)))" " fold-var_271)))))" -" for-loop_268)" +" for-loop_267)" " null" " lst_205))))))" "(if wrap_2" @@ -45637,7 +45815,7 @@ static const char *startup_source = " exp-s_7" " ns_107" " as-tail?_7))))))))))))))))))" -" loop_100)" +" loop_101)" " s_216" " phase_130" " ns_106" @@ -45648,8 +45826,8 @@ static const char *startup_source = "(begin(if(syntax?$1 s_340) s_340(1/namespace-syntax-introduce(1/datum->syntax #f s_340) ns_108)))))" "(define-values" "(re-pair)" -"(lambda(form-id_0 s_468 r_44)" -"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_468)(cons form-id_0 r_44) s_468 s_468) s_468))))" +"(lambda(form-id_0 s_467 r_44)" +"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_467)(cons form-id_0 r_44) s_467 s_467) s_467))))" "(define-values" "(expand-capturing-lifts)" "(lambda(s_343 ctx_27)" @@ -45667,12 +45845,12 @@ static const char *startup_source = "(let-values(((exp-s_8)" "(let-values(((s155_0) s_343)" "((temp156_0)" -"(let-values(((v_201) ctx_27))" -"(let-values(((the-struct_75) v_201))" +"(let-values(((v_199) ctx_27))" +"(let-values(((the-struct_75) v_199))" "(if(expand-context/outer? the-struct_75)" "(let-values(((inner157_0)" "(let-values(((the-struct_76)" -"(root-expand-context/outer-inner v_201)))" +"(root-expand-context/outer-inner v_199)))" "(if(expand-context/inner? the-struct_76)" "(let-values(((lifts158_0) lift-ctx_6)" "((module-lifts159_0) lift-ctx_6)" @@ -45755,29 +45933,29 @@ static const char *startup_source = "(begin" "(lambda(s_347 phase_132)" "(let-values(((ok?_31 #%require161_0 req162_0)" -"(let-values(((s_469)(syntax-disarm$1 s_347)))" -"(let-values(((orig-s_35) s_469))" +"(let-values(((s_468)(syntax-disarm$1 s_347)))" +"(let-values(((orig-s_35) s_468))" "(let-values(((#%require161_1 req162_1)" -"(let-values(((s_470)(if(syntax?$1 s_469)(syntax-e$1 s_469) s_469)))" -"(if(pair? s_470)" -"(let-values(((#%require163_0)(let-values(((s_471)(car s_470))) s_471))" +"(let-values(((s_469)(if(syntax?$1 s_468)(syntax-e$1 s_468) s_468)))" +"(if(pair? s_469)" +"(let-values(((#%require163_0)(let-values(((s_470)(car s_469))) s_470))" "((req164_0)" -"(let-values(((s_472)(cdr s_470)))" -"(let-values(((s_473)" -"(if(syntax?$1 s_472)" -"(syntax-e$1 s_472)" -" s_472)))" -"(if(pair? s_473)" +"(let-values(((s_471)(cdr s_469)))" +"(let-values(((s_472)" +"(if(syntax?$1 s_471)" +"(syntax-e$1 s_471)" +" s_471)))" +"(if(pair? s_472)" "(let-values(((req165_0)" -"(let-values(((s_474)(car s_473)))" -" s_474))" +"(let-values(((s_473)(car s_472)))" +" s_473))" "(()" -"(let-values(((s_475)(cdr s_473)))" -"(let-values(((s_476)" -"(if(syntax?$1 s_475)" -"(syntax-e$1 s_475)" -" s_475)))" -"(if(null? s_476)" +"(let-values(((s_474)(cdr s_472)))" +"(let-values(((s_475)" +"(if(syntax?$1 s_474)" +"(syntax-e$1 s_474)" +" s_474)))" +"(if(null? s_475)" "(values)" "(raise-syntax-error$1" " #f" @@ -45830,13 +46008,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_301)))" -"((letrec-values(((for-loop_269)" +"((letrec-values(((for-loop_268)" "(lambda(fold-var_273 lst_302)" "(begin" " 'for-loop" "(if(pair? lst_302)" "(let-values(((req_19)(unsafe-car lst_302))" -"((rest_174)(unsafe-cdr lst_302)))" +"((rest_173)(unsafe-cdr lst_302)))" "(let-values(((fold-var_274)" "(let-values(((fold-var_275) fold-var_273))" "(let-values(((fold-var_276)" @@ -45846,9 +46024,9 @@ static const char *startup_source = "(parsed-require23.1 req_19))" " fold-var_275))))" "(values fold-var_276)))))" -"(if(not #f)(for-loop_269 fold-var_274 rest_174) fold-var_274)))" +"(if(not #f)(for-loop_268 fold-var_274 rest_173) fold-var_274)))" " fold-var_273)))))" -" for-loop_269)" +" for-loop_268)" " null" " lst_301))))" "(reverse$1" @@ -45857,13 +46035,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_303)))" -"((letrec-values(((for-loop_270)" +"((letrec-values(((for-loop_269)" "(lambda(fold-var_277 lst_304)" "(begin" " 'for-loop" "(if(pair? lst_304)" "(let-values(((ids+syms+rhs_0)(unsafe-car lst_304))" -"((rest_175)(unsafe-cdr lst_304)))" +"((rest_174)(unsafe-cdr lst_304)))" "(let-values(((fold-var_278)" "(let-values(((fold-var_279) fold-var_277))" "(let-values(((fold-var_280)" @@ -45907,9 +46085,9 @@ static const char *startup_source = " dv_0)))))" " fold-var_279))))" "(values fold-var_280)))))" -"(if(not #f)(for-loop_270 fold-var_278 rest_175) fold-var_278)))" +"(if(not #f)(for-loop_269 fold-var_278 rest_174) fold-var_278)))" " fold-var_277)))))" -" for-loop_270)" +" for-loop_269)" " null" " lst_303)))))" " exp-s_9))))))))))" @@ -45940,19 +46118,19 @@ static const char *startup_source = "(if obs_57" "(let-values()" "(let-values(((ok?_32 begin178_0 e179_0)" -"(let-values(((s_477) new-s_7))" -"(let-values(((orig-s_36) s_477))" +"(let-values(((s_476) new-s_7))" +"(let-values(((orig-s_36) s_476))" "(let-values(((begin178_1 e179_1)" -"(let-values(((s_478)(if(syntax?$1 s_477)(syntax-e$1 s_477) s_477)))" -"(if(pair? s_478)" -"(let-values(((begin180_0)(let-values(((s_479)(car s_478))) s_479))" +"(let-values(((s_477)(if(syntax?$1 s_476)(syntax-e$1 s_476) s_476)))" +"(if(pair? s_477)" +"(let-values(((begin180_0)(let-values(((s_478)(car s_477))) s_478))" "((e181_0)" -"(let-values(((s_480)(cdr s_478)))" -"(let-values(((s_481)" -"(if(syntax?$1 s_480)" -"(syntax-e$1 s_480)" -" s_480)))" -"(let-values(((flat-s_23)(to-syntax-list.1 s_481)))" +"(let-values(((s_479)(cdr s_477)))" +"(let-values(((s_480)" +"(if(syntax?$1 s_479)" +"(syntax-e$1 s_479)" +" s_479)))" +"(let-values(((flat-s_23)(to-syntax-list.1 s_480)))" "(if(not flat-s_23)" "(let-values()" "(raise-syntax-error$1" @@ -45981,16 +46159,16 @@ static const char *startup_source = "(let-values(((s_392) new-s_8))" "(let-values(((orig-s_37) s_392))" "(let-values(((begin182_1 e183_1)" -"(let-values(((s_482)(if(syntax?$1 s_392)(syntax-e$1 s_392) s_392)))" -"(if(pair? s_482)" -"(let-values(((begin184_0)(let-values(((s_137)(car s_482))) s_137))" +"(let-values(((s_481)(if(syntax?$1 s_392)(syntax-e$1 s_392) s_392)))" +"(if(pair? s_481)" +"(let-values(((begin184_0)(let-values(((s_138)(car s_481))) s_138))" "((e185_0)" -"(let-values(((s_138)(cdr s_482)))" -"(let-values(((s_483)" -"(if(syntax?$1 s_138)" -"(syntax-e$1 s_138)" -" s_138)))" -"(let-values(((flat-s_24)(to-syntax-list.1 s_483)))" +"(let-values(((s_139)(cdr s_481)))" +"(let-values(((s_482)" +"(if(syntax?$1 s_139)" +"(syntax-e$1 s_139)" +" s_139)))" +"(let-values(((flat-s_24)(to-syntax-list.1 s_482)))" "(if(not flat-s_24)" "(let-values()" "(raise-syntax-error$1" @@ -46451,21 +46629,21 @@ static const char *startup_source = "(if or-part_298" " or-part_298" "(if(hash? p_55)" -"(let-values(((ht_144) p_55))" +"(let-values(((ht_149) p_55))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_144)))" -"((letrec-values(((for-loop_271)" -"(lambda(result_118 i_91)" +"(let-values()(check-in-hash ht_149)))" +"((letrec-values(((for-loop_270)" +"(lambda(result_116 i_168)" "(begin" " 'for-loop" -"(if i_91" +"(if i_168" "(let-values(((k_35 v_3)" -"(hash-iterate-key+value ht_144 i_91)))" -"(let-values(((result_119)" +"(hash-iterate-key+value ht_149 i_168)))" +"(let-values(((result_117)" "(let-values()" -"(let-values(((result_120)" +"(let-values(((result_118)" "(let-values()" "(let-values()" "(if(let-values(((or-part_77)" @@ -46484,18 +46662,18 @@ static const char *startup_source = " v_3)" " #f)" " #f)))))" -"(values result_120)))))" -"(if(if(not((lambda x_84(not result_119)) k_35 v_3))" +"(values result_118)))))" +"(if(if(not((lambda x_83(not result_117)) k_35 v_3))" "(not #f)" " #f)" -"(for-loop_271" -" result_119" -"(hash-iterate-next ht_144 i_91))" -" result_119)))" -" result_118)))))" -" for-loop_271)" +"(for-loop_270" +" result_117" +"(hash-iterate-next ht_149 i_168))" +" result_117)))" +" result_116)))))" +" for-loop_270)" " #t" -"(hash-iterate-first ht_144))))" +"(hash-iterate-first ht_149))))" " #f))))))" " l_75)" " #f))" @@ -46519,38 +46697,38 @@ static const char *startup_source = "(if(string? p_4)" "(let-values()(string->path p_4))" "(let-values()" -"(let-values(((ht_145) p_4))" +"(let-values(((ht_150) p_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_145)))" -"((letrec-values(((for-loop_272)" -"(lambda(table_205 i_92)" +"(let-values()(check-in-hash ht_150)))" +"((letrec-values(((for-loop_271)" +"(lambda(table_209 i_169)" "(begin" " 'for-loop" -"(if i_92" -"(let-values(((k_36 v_202)(hash-iterate-key+value ht_145 i_92)))" -"(let-values(((table_206)" -"(let-values(((table_178) table_205))" -"(let-values(((table_207)" +"(if i_169" +"(let-values(((k_36 v_200)(hash-iterate-key+value ht_150 i_169)))" +"(let-values(((table_210)" +"(let-values(((table_180) table_209))" +"(let-values(((table_211)" "(let-values()" "(let-values(((key_82 val_77)" "(let-values()" "(values" " k_36" -"(to-path v_202)))))" +"(to-path v_200)))))" "(hash-set" -" table_178" +" table_180" " key_82" " val_77)))))" -"(values table_207)))))" +"(values table_211)))))" "(if(not #f)" -"(for-loop_272 table_206(hash-iterate-next ht_145 i_92))" -" table_206)))" -" table_205)))))" -" for-loop_272)" +"(for-loop_271 table_210(hash-iterate-next ht_150 i_169))" +" table_210)))" +" table_209)))))" +" for-loop_271)" " '#hash()" -"(hash-iterate-first ht_145)))))))))" +"(hash-iterate-first ht_150)))))))))" " l_8)))))))" "(define-values" "(1/use-compiled-file-paths)" @@ -46591,17 +46769,17 @@ static const char *startup_source = "(let-values()" "(make-parameter" " 'modify-seconds" -"(lambda(v_203)" +"(lambda(v_201)" "(begin" "(if((lambda(v_69)" "(let-values(((or-part_32)(eq? v_69 'modify-seconds)))" "(if or-part_32 or-part_32(eq? v_69 'exists))))" -" v_203)" +" v_201)" "(void)" -" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_203)))" -" v_203))))))" +" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_201)))" +" v_201))))))" "(define-values(1/use-collection-link-paths)(make-parameter #t(lambda(v_82)(if v_82 #t #f))))" -"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_204)(if v_204 #t #f))))" +"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_202)(if v_202 #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)" @@ -46746,12 +46924,12 @@ static const char *startup_source = "(define-values(relative-path-string?)(lambda(s_0)(begin(if(path-string? s_0)(relative-path? s_0) #f))))" "(define-values" "(check-collection)" -"(lambda(who_27 s_188 l_4)" +"(lambda(who_27 s_189 l_4)" "(begin" "(begin" -"(if(relative-path-string? s_188)" +"(if(relative-path-string? s_189)" "(void)" -" (let-values () (raise-argument-error who_27 \"(and/c path-string? relative-path?)\" s_188)))" +" (let-values () (raise-argument-error who_27 \"(and/c path-string? relative-path?)\" s_189)))" "(if((lambda(l_2)(if(list? l_2)(andmap2 relative-path-string? l_2) #f)) l_4)" "(void)" " (let-values () (raise-argument-error who_27 \"(listof (and/c path-string? relative-path?))\" l_4)))))))" @@ -46831,20 +47009,20 @@ static const char *startup_source = "(let-values(((or-part_72)(find-main-collects)))(if or-part_72 or-part_72(current-directory)))))))))" "(define-values" "(add-config-search)" -"(lambda(ht_67 key_83 orig-l_9)" +"(lambda(ht_70 key_83 orig-l_9)" "(begin" -"(let-values(((l_79)(hash-ref ht_67 key_83 #f)))" +"(let-values(((l_79)(hash-ref ht_70 key_83 #f)))" "(if l_79" -"((letrec-values(((loop_101)" +"((letrec-values(((loop_102)" "(lambda(l_64)" "(begin" " 'loop" "(if(null? l_64)" "(let-values() null)" "(if(not(car l_64))" -"(let-values()(append orig-l_9(loop_101(cdr l_64))))" -"(let-values()(cons(coerce-to-path(car l_64))(loop_101(cdr l_64))))))))))" -" loop_101)" +"(let-values()(append orig-l_9(loop_102(cdr l_64))))" +"(let-values()(cons(coerce-to-path(car l_64))(loop_102(cdr l_64))))))))))" +" loop_102)" " l_79)" " orig-l_9)))))" "(define-values" @@ -46852,22 +47030,22 @@ static const char *startup_source = "(lambda()" "(begin" " 'find-library-collection-links" -"(let-values(((ht_146)(get-config-table(find-main-config))))" +"(let-values(((ht_81)(get-config-table(find-main-config))))" "(let-values(((lf_0)" "(coerce-to-path" -"(let-values(((or-part_80)(hash-ref ht_146 'links-file #f)))" +"(let-values(((or-part_80)(hash-ref ht_81 'links-file #f)))" "(if or-part_80" " or-part_80" "(build-path" -"(let-values(((or-part_81)(hash-ref ht_146 'share-dir #f)))" +"(let-values(((or-part_81)(hash-ref ht_81 'share-dir #f)))" " (if or-part_81 or-part_81 (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_146) \"links.rktd\"))" +" (list (build-path (find-system-path 'addon-dir) (get-installation-name ht_81) \"links.rktd\"))" " null)" -"(if(1/use-collection-link-paths)(add-config-search ht_146 'links-search-files(list lf_0)) null)))))))" +"(if(1/use-collection-link-paths)(add-config-search ht_81 '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" @@ -46926,13 +47104,13 @@ static const char *startup_source = " bytes-append" "(cons" " bstr_1" -"((letrec-values(((loop_102)" +"((letrec-values(((loop_103)" "(lambda()" "(begin" " 'loop" "(let-values(((bstr_2)(read-bytes 8192 p_65)))" -"(if(eof-object? bstr_2) null(cons bstr_2(loop_102))))))))" -" loop_102))))" +"(if(eof-object? bstr_2) null(cons bstr_2(loop_103))))))))" +" loop_103))))" " bstr_1))))))" "(call-with-input-file*61.1 'binary path9_0 temp10_4)))))" "(define-values" @@ -46982,7 +47160,7 @@ static const char *startup_source = "(lambda()" "(call-with-default-reading-parameterization" "(lambda()" -"(let-values(((v_205)" +"(let-values(((v_203)" "(if(no-file-stamp? ts_1)" " null" "(let-values(((links-path11_0) links-path_0)" @@ -46999,7 +47177,7 @@ static const char *startup_source = "(call-with-input-file*61.1 'binary links-path11_0 temp12_3)))))" "(let-values((()" "(begin" -"(if(if(list? v_205)" +"(if(if(list? v_203)" "(andmap2" "(lambda(p_66)" "(if(list? p_66)" @@ -47020,12 +47198,12 @@ static const char *startup_source = " #f)" " #f)" " #f))" -" v_205)" +" v_203)" " #f)" "(void)" " (let-values () (error \"ill-formed content\")))" "(values))))" -"(let-values(((ht_147)(make-hasheq)))" +"(let-values(((ht_151)(make-hasheq)))" "(let-values(((dir_0)" "(let-values(((base_21 name_66 dir?_5)(split-path links-path_0)))" " base_21)))" @@ -47045,34 +47223,34 @@ static const char *startup_source = "(let-values()" "(let-values(((k_37)(string->symbol(path->string sub_1))))" "(hash-set!" -" ht_147" +" ht_151" " k_37" -"(cons dir_1(hash-ref ht_147 k_37 null)))))" +"(cons dir_1(hash-ref ht_151 k_37 null)))))" "(void)))" "(directory-list dir_1)))" "(if(eq?(car p_67) 'root)" "(let-values()" "(begin" -"(if(hash-ref ht_147 #f #f)" +"(if(hash-ref ht_151 #f #f)" "(void)" -"(let-values()(hash-set! ht_147 #f null)))" +"(let-values()(hash-set! ht_151 #f null)))" "(hash-for-each" -" ht_147" -"(lambda(k_38 v_206)" -"(hash-set! ht_147 k_38(cons dir_1 v_206))))))" +" ht_151" +"(lambda(k_38 v_204)" +"(hash-set! ht_151 k_38(cons dir_1 v_204))))))" "(let-values()" -"(let-values(((s_484)(string->symbol(car p_67))))" +"(let-values(((s_483)(string->symbol(car p_67))))" "(hash-set!" -" ht_147" -" s_484" -"(cons(box dir_1)(hash-ref ht_147 s_484 null)))))))))" +" ht_151" +" s_483" +"(cons(box dir_1)(hash-ref ht_151 s_483 null)))))))))" "(void)))" -" v_205)" +" v_203)" "(hash-for-each" -" ht_147" -"(lambda(k_39 v_207)(hash-set! ht_147 k_39(reverse$1 v_207))))" -"(hash-set! links-cache links-path_0(cons ts_1 ht_147))" -" ht_147))))))))))))))))))))))" +" ht_151" +"(lambda(k_39 v_205)(hash-set! ht_151 k_39(reverse$1 v_205))))" +"(hash-set! links-cache links-path_0(cons ts_1 ht_151))" +" ht_151))))))))))))))))))))))" "(define-values" "(normalize-collection-reference)" "(lambda(collection_2 collection-path_2)" @@ -47119,10 +47297,10 @@ static const char *startup_source = "(hash-ref(car l_81) #f null)" "(loop_47(cdr l_81))))" "(let-values()" -"(let-values(((ht_148)(get-linked-collections(car l_81))))" +"(let-values(((ht_152)(get-linked-collections(car l_81))))" "(append" -"(hash-ref ht_148 sym_95 null)" -"(hash-ref ht_148 #f null)" +"(hash-ref ht_152 sym_95 null)" +"(hash-ref ht_152 #f null)" "(loop_47(cdr l_81))))))))))))" " loop_47)" "(1/current-library-collection-links)))))" @@ -47147,7 +47325,7 @@ static const char *startup_source = " \"\"" "(apply" " string-append" -"((letrec-values(((loop_103)" +"((letrec-values(((loop_104)" "(lambda(cp_0)" "(begin" " 'loop" @@ -47156,8 +47334,8 @@ static const char *startup_source = "(list*" "(to-string_0(car cp_0))" " \"/\"" -"(loop_103(cdr cp_0))))))))" -" loop_103)" +"(loop_104(cdr cp_0))))))))" +" loop_104)" " collection-path_3)))))" "(letrec-values(((filter_1)" "(lambda(f_40 l_82)" @@ -47305,23 +47483,23 @@ static const char *startup_source = "(get-installation-name config-table_1)" " \"collects\")" " #f)" -"((letrec-values(((loop_104)" +"((letrec-values(((loop_105)" "(lambda(l_83)" "(begin" " 'loop" "(if(null? l_83)" " null" "(let-values(((collects-path_1)(car l_83)))" -"(let-values(((v_208)" +"(let-values(((v_206)" "(exe-relative-path->complete-path" " collects-path_1)))" -"(if v_208" +"(if v_206" "(cons" "(simplify-path" -"(path->complete-path v_208(current-directory)))" -"(loop_104(cdr l_83)))" -"(loop_104(cdr l_83))))))))))" -" loop_104)" +"(path->complete-path v_206(current-directory)))" +"(loop_105(cdr l_83)))" +"(loop_105(cdr l_83))))))))))" +" loop_105)" "(append" " extra-collects-dirs_0" "(list(find-system-path 'collects-dir))" @@ -47338,14 +47516,14 @@ static const char *startup_source = "(let-values()" "(make-parameter" " #f" -"(lambda(v_209)" +"(lambda(v_207)" "(begin" -"(if((lambda(x_85)" -"(let-values(((or-part_11)(not x_85)))(if or-part_11 or-part_11(prop:readtable? x_85))))" -" v_209)" +"(if((lambda(x_84)" +"(let-values(((or-part_11)(not x_84)))(if or-part_11 or-part_11(prop:readtable? x_84))))" +" v_207)" "(void)" -" (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_209)))" -" v_209))))))" +" (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_207)))" +" v_207))))))" "(define-values" "(struct:read-config/outer" " read-config/outer1.1" @@ -47399,7 +47577,7 @@ static const char *startup_source = " read-config/inner-parameter-override" " read-config/inner-parameter-cache" " read-config/inner-st)" -"(let-values(((struct:_80 make-_80 ?_80 -ref_80 -set!_80)" +"(let-values(((struct:_81 make-_81 ?_81 -ref_81 -set!_81)" "(let-values()" "(let-values()" "(make-struct-type" @@ -47415,21 +47593,21 @@ static const char *startup_source = " #f" " 'read-config/inner)))))" "(values" -" struct:_80" -" make-_80" -" ?_80" -"(make-struct-field-accessor -ref_80 0 'readtable)" -"(make-struct-field-accessor -ref_80 1 'next-readtable)" -"(make-struct-field-accessor -ref_80 2 'for-syntax?)" -"(make-struct-field-accessor -ref_80 3 'source)" -"(make-struct-field-accessor -ref_80 4 'read-compiled)" -"(make-struct-field-accessor -ref_80 5 'dynamic-require)" -"(make-struct-field-accessor -ref_80 6 'module-declared?)" -"(make-struct-field-accessor -ref_80 7 'coerce)" -"(make-struct-field-accessor -ref_80 8 'coerce-key)" -"(make-struct-field-accessor -ref_80 9 'parameter-override)" -"(make-struct-field-accessor -ref_80 10 'parameter-cache)" -"(make-struct-field-accessor -ref_80 11 'st))))" +" struct:_81" +" make-_81" +" ?_81" +"(make-struct-field-accessor -ref_81 0 'readtable)" +"(make-struct-field-accessor -ref_81 1 'next-readtable)" +"(make-struct-field-accessor -ref_81 2 'for-syntax?)" +"(make-struct-field-accessor -ref_81 3 'source)" +"(make-struct-field-accessor -ref_81 4 'read-compiled)" +"(make-struct-field-accessor -ref_81 5 'dynamic-require)" +"(make-struct-field-accessor -ref_81 6 'module-declared?)" +"(make-struct-field-accessor -ref_81 7 'coerce)" +"(make-struct-field-accessor -ref_81 8 'coerce-key)" +"(make-struct-field-accessor -ref_81 9 'parameter-override)" +"(make-struct-field-accessor -ref_81 10 'parameter-cache)" +"(make-struct-field-accessor -ref_81 11 'st))))" "(define-values" "(read-config/make)" "(lambda(readtable_0" @@ -47472,43 +47650,43 @@ static const char *startup_source = " indentations_0" " keep-comment?_0))))" "(define-values(read-config-wrap)(lambda(v_27)(begin(read-config/outer-wrap v_27))))" -"(define-values(read-config-line)(lambda(v_210)(begin(read-config/outer-line v_210))))" -"(define-values(read-config-col)(lambda(v_211)(begin(read-config/outer-col v_211))))" -"(define-values(read-config-pos)(lambda(v_212)(begin(read-config/outer-pos v_212))))" -"(define-values(read-config-indentations)(lambda(v_213)(begin(read-config/outer-indentations v_213))))" +"(define-values(read-config-line)(lambda(v_208)(begin(read-config/outer-line v_208))))" +"(define-values(read-config-col)(lambda(v_209)(begin(read-config/outer-col v_209))))" +"(define-values(read-config-pos)(lambda(v_210)(begin(read-config/outer-pos v_210))))" +"(define-values(read-config-indentations)(lambda(v_211)(begin(read-config/outer-indentations v_211))))" "(define-values(read-config-keep-comment?)(lambda(v_98)(begin(read-config/outer-keep-comment? v_98))))" "(define-values" "(read-config-readtable)" -"(lambda(v_214)(begin(read-config/inner-readtable(read-config/outer-inner v_214)))))" +"(lambda(v_212)(begin(read-config/inner-readtable(read-config/outer-inner v_212)))))" "(define-values" "(read-config-next-readtable)" -"(lambda(v_215)(begin(read-config/inner-next-readtable(read-config/outer-inner v_215)))))" +"(lambda(v_213)(begin(read-config/inner-next-readtable(read-config/outer-inner v_213)))))" "(define-values" "(read-config-for-syntax?)" -"(lambda(v_216)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_216)))))" +"(lambda(v_214)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_214)))))" "(define-values(read-config-source)(lambda(v_76)(begin(read-config/inner-source(read-config/outer-inner v_76)))))" "(define-values" "(read-config-read-compiled)" -"(lambda(v_217)(begin(read-config/inner-read-compiled(read-config/outer-inner v_217)))))" +"(lambda(v_215)(begin(read-config/inner-read-compiled(read-config/outer-inner v_215)))))" "(define-values" "(read-config-dynamic-require)" -"(lambda(v_218)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_218)))))" +"(lambda(v_216)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_216)))))" "(define-values" "(read-config-module-declared?)" -"(lambda(v_219)(begin(read-config/inner-module-declared?(read-config/outer-inner v_219)))))" +"(lambda(v_217)(begin(read-config/inner-module-declared?(read-config/outer-inner v_217)))))" "(define-values" "(read-config-coerce)" -"(lambda(v_208)(begin(read-config/inner-coerce(read-config/outer-inner v_208)))))" +"(lambda(v_206)(begin(read-config/inner-coerce(read-config/outer-inner v_206)))))" "(define-values" "(read-config-coerce-key)" -"(lambda(v_220)(begin(read-config/inner-coerce-key(read-config/outer-inner v_220)))))" +"(lambda(v_218)(begin(read-config/inner-coerce-key(read-config/outer-inner v_218)))))" "(define-values" "(read-config-parameter-override)" -"(lambda(v_221)(begin(read-config/inner-parameter-override(read-config/outer-inner v_221)))))" +"(lambda(v_219)(begin(read-config/inner-parameter-override(read-config/outer-inner v_219)))))" "(define-values" "(read-config-parameter-cache)" "(lambda(v_40)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_40)))))" -"(define-values(read-config-st)(lambda(v_222)(begin(read-config/inner-st(read-config/outer-inner v_222)))))" +"(define-values(read-config-st)(lambda(v_220)(begin(read-config/inner-st(read-config/outer-inner v_220)))))" "(define-values" "(struct:read-config-state" " read-config-state3.1" @@ -47517,7 +47695,7 @@ static const char *startup_source = " read-config-state-graph" " set-read-config-state-accum-str!" " set-read-config-state-graph!)" -"(let-values(((struct:_81 make-_81 ?_81 -ref_81 -set!_81)" +"(let-values(((struct:_82 make-_82 ?_82 -ref_82 -set!_82)" "(let-values()" "(let-values()" "(make-struct-type" @@ -47533,13 +47711,13 @@ static const char *startup_source = " #f" " 'read-config-state)))))" "(values" -" struct:_81" -" make-_81" -" ?_81" -"(make-struct-field-accessor -ref_81 0 'accum-str)" -"(make-struct-field-accessor -ref_81 1 'graph)" -"(make-struct-field-mutator -set!_81 0 'accum-str)" -"(make-struct-field-mutator -set!_81 1 'graph))))" +" struct:_82" +" make-_82" +" ?_82" +"(make-struct-field-accessor -ref_82 0 'accum-str)" +"(make-struct-field-accessor -ref_82 1 'graph)" +"(make-struct-field-mutator -set!_82 0 'accum-str)" +"(make-struct-field-mutator -set!_82 1 'graph))))" "(define-values(current-read-config)(make-parameter #f))" "(define-values" "(make-read-config26.1)" @@ -47587,7 +47765,7 @@ static const char *startup_source = " or-part_177" " (lambda (mod-path_27) (error 'read \"no `module-declare?` provided\"))))" "(let-values(((or-part_220) coerce_1))" -"(if or-part_220 or-part_220(lambda(for-syntax?_2 v_144 srcloc_9) v_144)))" +"(if or-part_220 or-part_220(lambda(for-syntax?_2 v_143 srcloc_9) v_143)))" "(let-values(((or-part_305) coerce-key_1))" "(if or-part_305 or-part_305(lambda(for-syntax?_3 v_102) v_102)))" " #f" @@ -47614,13 +47792,13 @@ 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_223) config_0))" -"(let-values(((the-struct_78) v_223))" +"(let-values(((v_221) config_0))" +"(let-values(((the-struct_78) v_221))" "(if(read-config/outer? the-struct_78)" "(let-values(((wrap55_0) wrap_5)" "((keep-comment?56_0) keep-comment?_2)" "((inner57_0)" -"(let-values(((the-struct_79)(read-config/outer-inner v_223)))" +"(let-values(((the-struct_79)(read-config/outer-inner v_221)))" "(if(read-config/inner? the-struct_79)" "(let-values(((for-syntax?58_0) for-syntax?_4)" "((readtable59_0) readtable_2)" @@ -47682,13 +47860,13 @@ static const char *startup_source = "(reading-at)" "(lambda(config_2 line_2 col_1 pos_109)" "(begin" -"(let-values(((v_224) config_2))" -"(let-values(((the-struct_80) v_224))" +"(let-values(((v_222) config_2))" +"(let-values(((the-struct_80) v_222))" "(if(read-config/outer? the-struct_80)" "(let-values(((line62_0) line_2)" "((col63_0) col_1)" "((pos64_0) pos_109)" -"((inner65_0)(read-config/outer-inner v_224)))" +"((inner65_0)(read-config/outer-inner v_222)))" "(read-config/outer1.1" " inner65_0" "(read-config/outer-wrap the-struct_80)" @@ -47702,10 +47880,10 @@ static const char *startup_source = "(disable-wrapping)" "(lambda(config_3)" "(begin" -"(let-values(((v_225) config_3))" -"(let-values(((the-struct_81) v_225))" +"(let-values(((v_223) config_3))" +"(let-values(((the-struct_81) v_223))" "(if(read-config/outer? the-struct_81)" -"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_225)))" +"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_223)))" "(read-config/outer1.1" " inner67_0" " wrap66_0" @@ -47719,10 +47897,10 @@ static const char *startup_source = "(keep-comment)" "(lambda(config_4)" "(begin" -"(let-values(((v_226) config_4))" -"(let-values(((the-struct_82) v_226))" +"(let-values(((v_224) config_4))" +"(let-values(((the-struct_82) v_224))" "(if(read-config/outer? the-struct_82)" -"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_226)))" +"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_224)))" "(read-config/outer1.1" " inner69_0" "(read-config/outer-wrap the-struct_82)" @@ -47739,10 +47917,10 @@ static const char *startup_source = "(if(not(read-config-keep-comment? config_5))" "(let-values() config_5)" "(let-values()" -"(let-values(((v_227) config_5))" -"(let-values(((the-struct_83) v_227))" +"(let-values(((v_81) config_5))" +"(let-values(((the-struct_83) v_81))" "(if(read-config/outer? the-struct_83)" -"(let-values(((keep-comment?70_0) #f)((inner71_0)(read-config/outer-inner v_227)))" +"(let-values(((keep-comment?70_0) #f)((inner71_0)(read-config/outer-inner v_81)))" "(read-config/outer1.1" " inner71_0" "(read-config/outer-wrap the-struct_83)" @@ -47759,11 +47937,11 @@ 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_228) config_6))" -"(let-values(((the-struct_84) v_228))" +"(let-values(((v_225) config_6))" +"(let-values(((the-struct_84) v_225))" "(if(read-config/outer? the-struct_84)" "(let-values(((inner72_0)" -"(let-values(((the-struct_85)(read-config/outer-inner v_228)))" +"(let-values(((the-struct_85)(read-config/outer-inner v_225)))" "(if(read-config/inner? the-struct_85)" "(let-values(((readtable73_0)(read-config-next-readtable config_6)))" "(read-config/inner2.1" @@ -47800,26 +47978,26 @@ static const char *startup_source = "(if for-syntax?_5" "(let-values(((in1_0) in_2)((config2_0) config_7))(port+config->srcloc49.1 #f in1_0 config2_0))" " #f))))))" -"(define-values(default-reader-guard$1)(lambda(v_229)(begin 'default-reader-guard v_229)))" +"(define-values(default-reader-guard$1)(lambda(v_226)(begin 'default-reader-guard v_226)))" "(define-values" "(1/current-reader-guard)" "(make-parameter" " default-reader-guard$1" -"(lambda(v_230)" +"(lambda(v_227)" "(begin" -"(if(if(procedure? v_230)(procedure-arity-includes? v_230 1) #f)" +"(if(if(procedure? v_227)(procedure-arity-includes? v_227 1) #f)" "(void)" -" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_230)))" -" v_230))))" +" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_227)))" +" v_227))))" "(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_231)(if v_231 #t #f))))" -"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_232)(if v_232 #t #f))))" +"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_228)(if v_228 #t #f))))" +"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_229)(if v_229 #t #f))))" "(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_66)(if v_66 #t #f))))" "(define-values(1/read-cdot)(make-parameter #f(lambda(v_31)(if v_31 #t #f))))" "(define-values(1/read-accept-graph)(make-parameter #t(lambda(v_67)(if v_67 #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_233)(if v_233 #t #f))))" -"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_234)(if v_234 #t #f))))" +"(define-values(1/read-accept-box)(make-parameter #t(lambda(v_230)(if v_230 #t #f))))" +"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_231)(if v_231 #t #f))))" "(define-values(1/read-accept-dot)(make-parameter #t(lambda(v_68)(if v_68 #t #f))))" "(define-values(1/read-accept-infix-dot)(make-parameter #t(lambda(v_32)(if v_32 #t #f))))" "(define-values(1/read-accept-quasiquote)(make-parameter #t(lambda(v_3)(if v_3 #t #f))))" @@ -47840,11 +48018,11 @@ static const char *startup_source = "(override-parameter)" "(lambda(param_1 config_9 v_30)" "(begin" -"(let-values(((v_235) config_9))" -"(let-values(((the-struct_86) v_235))" +"(let-values(((v_232) config_9))" +"(let-values(((the-struct_86) v_232))" "(if(read-config/outer? the-struct_86)" "(let-values(((inner1_0)" -"(let-values(((the-struct_87)(read-config/outer-inner v_235)))" +"(let-values(((the-struct_87)(read-config/outer-inner v_232)))" "(if(read-config/inner? the-struct_87)" "(let-values(((parameter-override2_0)" "(hash-set(read-config-parameter-override config_9) param_1 v_30)))" @@ -47955,7 +48133,7 @@ static const char *startup_source = "(if(let-values(((or-part_53)(not rt_0)))(if or-part_53 or-part_53(1/readtable? rt_0)))" "(void)" " (let-values () (raise-argument-error 'make-readtable \"(or/c readtable? #f)\" rt_0)))" -"((letrec-values(((loop_98)" +"((letrec-values(((loop_99)" "(lambda(args_8 symbol-parser_0 char-ht_0 dispatch-ht_0 delimiter-ht_0)" "(begin" " 'loop" @@ -48054,7 +48232,7 @@ static const char *startup_source = " 'make-readtable" " \"(procedure-arity-includes/c 6)\"" " target_0)))" -"(loop_98" +"(loop_99" " rest-args_0" " target_0" " char-ht_0" @@ -48072,7 +48250,7 @@ static const char *startup_source = " 'make-readtable" " \"(procedure-arity-includes/c 6)\"" " target_0)))" -"(loop_98" +"(loop_99" " rest-args_0" " symbol-parser_0" " char-ht_0" @@ -48120,7 +48298,7 @@ static const char *startup_source = " mode_17" " mode_17)" " mode_17))))" -"(loop_98" +"(loop_99" " rest-args_0" " symbol-parser_0" " new-char-ht_0" @@ -48148,13 +48326,13 @@ static const char *startup_source = "(if(eq? mode_17 'terminating-macro)" " 'delimit" " 'no-delimit))))" -"(loop_98" +"(loop_99" " rest-args_0" " symbol-parser_0" " new-char-ht_1" " dispatch-ht_0" " new-delimiter-ht_1))))))))))))))))))))))" -" loop_98)" +" loop_99)" " args_7" "(if rt_0(readtable-symbol-parser rt_0) #f)" "(if rt_0(readtable-char-ht rt_0) '#hasheqv())" @@ -48195,7 +48373,7 @@ static const char *startup_source = "(lambda(handler_0 c_62 in_3 config_14 line_3 col_2 pos_110)" "(begin" "(let-values(((for-syntax?_6)(read-config-for-syntax? config_14)))" -"(let-values(((v_236)" +"(let-values(((v_233)" "(if(not for-syntax?_6)" "(let-values()" "(with-continuation-mark" @@ -48217,7 +48395,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_110)))))))" -"(if(1/special-comment? v_236) v_236(coerce v_236 in_3 config_14)))))))" +"(if(1/special-comment? v_233) v_233(coerce v_233 in_3 config_14)))))))" "(define-values" "(1/readtable-mapping)" "(lambda(rt_5 c_63)" @@ -48250,43 +48428,43 @@ static const char *startup_source = "(readtable-equivalent-chars)" "(lambda(rt_6 c_64)" "(begin" -"(let-values(((ht_149)(readtable-char-ht rt_6)))" +"(let-values(((ht_153)(readtable-char-ht rt_6)))" "(append" -"(if(hash-ref ht_149 c_64 #f) null(list c_64))" +"(if(hash-ref ht_153 c_64 #f) null(list c_64))" "(reverse$1" -"(let-values(((ht_150) ht_149))" +"(let-values(((ht_154) ht_153))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_150)))" -"((letrec-values(((for-loop_273)" -"(lambda(fold-var_82 i_171)" +"(let-values()(check-in-hash ht_154)))" +"((letrec-values(((for-loop_272)" +"(lambda(fold-var_84 i_170)" "(begin" " 'for-loop" -"(if i_171" -"(let-values(((k_40 v_94)(hash-iterate-key+value ht_150 i_171)))" +"(if i_170" +"(let-values(((k_40 v_94)(hash-iterate-key+value ht_154 i_170)))" "(let-values(((fold-var_281)" -"(let-values(((fold-var_85) fold-var_82))" +"(let-values(((fold-var_87) fold-var_84))" "(if(eqv? v_94 c_64)" -"(let-values(((fold-var_236) fold-var_85))" +"(let-values(((fold-var_236) fold-var_87))" "(let-values(((fold-var_13)" "(let-values()" "(cons(let-values() k_40) fold-var_236))))" "(values fold-var_13)))" -" fold-var_85))))" +" fold-var_87))))" "(if(not #f)" -"(for-loop_273 fold-var_281(hash-iterate-next ht_150 i_171))" +"(for-loop_272 fold-var_281(hash-iterate-next ht_154 i_170))" " fold-var_281)))" -" fold-var_82)))))" -" for-loop_273)" +" fold-var_84)))))" +" for-loop_272)" " null" -"(hash-iterate-first ht_150))))))))))" +"(hash-iterate-first ht_154))))))))))" "(define-values" "(struct:special special1.1 special? special-value)" -"(let-values(((struct:_82 make-_82 ?_82 -ref_82 -set!_82)" +"(let-values(((struct:_83 make-_83 ?_83 -ref_83 -set!_83)" "(let-values()" "(let-values()(make-struct-type 'special #f 1 0 #f null(current-inspector) #f '(0) #f 'special)))))" -"(values struct:_82 make-_82 ?_82(make-struct-field-accessor -ref_82 0 'value))))" +"(values struct:_83 make-_83 ?_83(make-struct-field-accessor -ref_83 0 'value))))" "(define-values" "(wrap)" "(lambda(s-exp_3 in_2 config_7 rep_0)" @@ -48378,8 +48556,8 @@ static const char *startup_source = "((config34_0) config_18)" " ((temp35_2) \"~a\")" "((temp36_3)" -"(let-values(((s_485)(exn-message exn_3)))" -" (regexp-replace \"^[a-z-]*: \" s_485 \"\")))" +"(let-values(((s_484)(exn-message exn_3)))" +" (regexp-replace \"^[a-z-]*: \" s_484 \"\")))" "((temp37_2)(exn-continuation-marks exn_3)))" "(reader-error12.1" " temp37_2" @@ -48536,13 +48714,13 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values((()(begin(consume-char in_5 '#\\;)(values))))" -"(let-values(((v_237)(read-one_0 #f in_5 config_15)))" +"(let-values(((v_234)(read-one_0 #f in_5 config_15)))" "(begin" -"(if(eof-object? v_237)" +"(if(eof-object? v_234)" "(let-values()" "(let-values(((in1_2) in_5)" "((config2_2) config_15)" -"((v3_0) v_237)" +"((v3_0) v_234)" "((temp4_2)" " \"expected a commented-out element for `~a;`, but found end-of-file\")" "((ec5_0) ec_0))" @@ -48571,7 +48749,7 @@ static const char *startup_source = "(let-values(((line_5 col_4 pos_112)(port-next-location in_15)))" "(begin" "(consume-char in_15 '#\\|)" -"((letrec-values(((loop_105)" +"((letrec-values(((loop_106)" "(lambda(prev-c_0 depth_10)" "(begin" " 'loop" @@ -48594,23 +48772,23 @@ static const char *startup_source = " temp9_4" "(list))))" "(if(not(char? c_71))" -"(let-values()(loop_105 #f depth_10))" +"(let-values()(loop_106 #f depth_10))" "(if(if(char=? '#\\| c_71)(eqv? prev-c_0 '#\\#) #f)" -"(let-values()(loop_105 #f(add1 depth_10)))" +"(let-values()(loop_106 #f(add1 depth_10)))" "(if(if(char=? '#\\# c_71)(eqv? prev-c_0 '#\\|) #f)" "(let-values()" "(if(positive? depth_10)" -"(let-values()(loop_105 #f(sub1 depth_10)))" +"(let-values()(loop_106 #f(sub1 depth_10)))" "(void)))" -"(let-values()(loop_105 c_71 depth_10)))))))))))" -" loop_105)" +"(let-values()(loop_106 c_71 depth_10)))))))))))" +" loop_106)" " #f" " 0)))))))" "(define-values" "(skip-unix-line-comment!)" "(lambda(in_17 config_20)" "(begin" -"((letrec-values(((loop_106)" +"((letrec-values(((loop_107)" "(lambda(backslash?_0)" "(begin" " 'loop" @@ -48620,13 +48798,13 @@ static const char *startup_source = "(if(eof-object? c_42)" "(let-values()(void))" "(if(not(char? c_42))" -"(let-values()(loop_106 #f))" +"(let-values()(loop_107 #f))" "(if(char=? c_42 '#\\newline)" -"(let-values()(if backslash?_0(let-values()(loop_106 #f))(void)))" +"(let-values()(if backslash?_0(let-values()(loop_107 #f))(void)))" "(if(char=? c_42 '#\\\\)" -"(let-values()(loop_106 #t))" -"(let-values()(loop_106 #f)))))))))))" -" loop_106)" +"(let-values()(loop_107 #t))" +"(let-values()(loop_107 #f)))))))))))" +" loop_107)" " #f))))" "(define-values" "(readtable-char-delimiter?)" @@ -48712,15 +48890,15 @@ static const char *startup_source = "(let-values()" "(apply" " string-append" -"((letrec-values(((loop_107)" +"((letrec-values(((loop_108)" "(lambda(cs_2)" "(begin" " 'loop" "(if(null?(cdr cs_2))" " (let-values () (list (format \"or `~a`\" (car cs_2))))" "(let-values()" -" (cons (format \"`~a`, \" (car cs_2)) (loop_107 (cdr cs_2)))))))))" -" loop_107)" +" (cons (format \"`~a`, \" (car cs_2)) (loop_108 (cdr cs_2)))))))))" +" loop_108)" " cs_1)))))))))))))" "(define-values" "(closer->opener)" @@ -48935,7 +49113,7 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_7)))" "((letrec-values(((for-loop_0)" -"(lambda(result_121 lst_8)" +"(lambda(result_119 lst_8)" "(begin" " 'for-loop" "(if(pair? lst_8)" @@ -48943,7 +49121,7 @@ static const char *startup_source = "((rest_0)(unsafe-cdr lst_8)))" "(let-values(((result_82)" "(let-values()" -"(let-values(((result_122)" +"(let-values(((result_120)" "(let-values()" "(let-values()" "(if(char=?" @@ -48952,15 +49130,15 @@ static const char *startup_source = " indt_3))" " \"missing\"" " #f)))))" -"(values result_122)))))" +"(values result_120)))))" "(if(if(not" -"((lambda x_86 result_82)" +"((lambda x_85 result_82)" " indt_3))" "(not #f)" " #f)" "(for-loop_0 result_82 rest_0)" " result_82)))" -" result_121)))))" +" result_119)))))" " for-loop_0)" " #f" " lst_7)))))" @@ -49012,14 +49190,14 @@ static const char *startup_source = "(let-values(((head_0) #f))" "(let-values(((indentation_0)(make-indentation closer_1 in_20 seq-config_0)))" "(let-values(((config_34)" -"(let-values(((v_238) elem-config_0))" -"(let-values(((the-struct_88) v_238))" +"(let-values(((v_235) elem-config_0))" +"(let-values(((the-struct_88) v_235))" "(if(read-config/outer? the-struct_88)" "(let-values(((indentations20_0)" "(cons" " indentation_0" "(read-config-indentations seq-config_0)))" -"((inner21_0)(read-config/outer-inner v_238)))" +"((inner21_0)(read-config/outer-inner v_235)))" "(read-config/outer1.1" " inner21_0" "(read-config/outer-wrap the-struct_88)" @@ -49066,7 +49244,7 @@ static const char *startup_source = "(void))" " e_77))))))" "(let-values(((seq_0)" -"((letrec-values(((loop_108)" +"((letrec-values(((loop_109)" "(lambda(depth_11" " accum_0" " init-c_5" @@ -49160,7 +49338,7 @@ static const char *startup_source = " temp32_1" "(list)))))" "(values))))" -"(let-values(((v_239)" +"(let-values(((v_236)" "(read-one/not-eof_0" " #f" " first-read-one_1" @@ -49181,11 +49359,11 @@ static const char *startup_source = "(let-values()" "(if(null?" " accum_0)" -" v_239" +" v_236" "(append" "(reverse$1" " accum_0)" -" v_239)))" +" v_236)))" "(if(if(eqv?" " rest-ec_0" " '#\\.)" @@ -49224,7 +49402,7 @@ static const char *startup_source = "(begin" "(set! head_0" "(box" -" v_239))" +" v_236))" "(values))))" "(let-values(((dot2-line_0" " dot2-col_0" @@ -49280,7 +49458,7 @@ static const char *startup_source = " temp36_4" "(list))))" "(void))" -"(loop_108" +"(loop_109" " depth_11" " accum_0" " post-c_0" @@ -49309,14 +49487,14 @@ static const char *startup_source = " temp40_2" "(list)))))))))))))" "(let-values()" -"(let-values(((v_240)" +"(let-values(((v_237)" "(read-one/not-eof_0" " c_74" " first-read-one_1" " config/keep-comment_0)))" -"(if(1/special-comment? v_240)" +"(if(1/special-comment? v_237)" "(let-values()" -"(loop_108" +"(loop_109" " depth_11" " accum_0" " #f" @@ -49324,22 +49502,22 @@ static const char *startup_source = " read-one_1))" "(if(> depth_11 1024)" "(let-values()" -"(loop_108" +"(loop_109" " depth_11" -"(cons v_240 accum_0)" +"(cons v_237 accum_0)" " #f" " #f" " read-one_1))" "(let-values()" "(cons" -" v_240" -"(loop_108" +" v_237" +"(loop_109" "(add1 depth_11)" " null" " #f" " #f" " read-one_1)))))))))))))))" -" loop_108)" +" loop_109)" " 0" " null" " #f" @@ -49387,12 +49565,12 @@ static const char *startup_source = "(begin" "(consume-char in_6 c_68)" "(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_68))(void))" -"((letrec-values(((loop_109)" -"(lambda(v_202 max-count_1)" +"((letrec-values(((loop_110)" +"(lambda(v_200 max-count_1)" "(begin" " 'loop" "(if(zero? max-count_1)" -"(let-values() v_202)" +"(let-values() v_200)" "(let-values()" "(let-values(((c_76)" "(let-values(((in_25) in_6)" @@ -49415,11 +49593,11 @@ static const char *startup_source = "(if accum-str_0" "(let-values()(accum-string-add! accum-str_0 c_76))" "(void))" -"(loop_109" -"(+(digit->number c_76)(* v_202 base_15))" +"(loop_110" +"(+(digit->number c_76)(* v_200 base_15))" "(sub1 max-count_1))))" -"(let-values() v_202)))))))))" -" loop_109)" +"(let-values() v_200)))))))))" +" loop_110)" "(+(digit->number c_68)(* init-v_0 base_15))" "(sub1 max-count_0))))" "(if zero-digits-result_0" @@ -49462,7 +49640,7 @@ static const char *startup_source = "(lambda(s4_0 radix1_0 convert-mode2_0 decimal-mode3_0)" "(begin" " 'string->number5" -"(let-values(((s_86) s4_0))" +"(let-values(((s_87) s4_0))" "(let-values(((radix_0) radix1_0))" "(let-values(((convert-mode_0) convert-mode2_0))" "(let-values(((decimal-mode_0)" @@ -49473,9 +49651,9 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(string? s_86)" +"(if(string? s_87)" "(void)" -" (let-values () (raise-argument-error 'string->number \"string?\" s_86)))" +" (let-values () (raise-argument-error 'string->number \"string?\" s_87)))" "(if((lambda(p_73)(if(exact-integer? radix_0)(<= 2 radix_0 16) #f)) radix_0)" "(void)" "(let-values()" @@ -49500,9 +49678,9 @@ static const char *startup_source = " 'string->number" " \"(or/c 'decimal-as-inexact decimal-as-exact)\"" " decimal-mode_0)))" -"(let-values(((s66_1) s_86)" +"(let-values(((s66_1) s_87)" "((temp67_2) 0)" -"((temp68_2)(string-length s_86))" +"((temp68_2)(string-length s_87))" "((radix69_0) radix_0)" "((temp70_1) #f)" "((decimal-mode71_0) decimal-mode_0)" @@ -49518,9 +49696,9 @@ static const char *startup_source = " convert-mode72_0))))))))))))))" "(case-lambda" "((s_307)(begin 'string->number(string->number5_0 s_307 10 'number-or-false unsafe-undefined)))" -"((s_486 radix_1 convert-mode_1 decimal-mode3_1)(string->number5_0 s_486 radix_1 convert-mode_1 decimal-mode3_1))" +"((s_485 radix_1 convert-mode_1 decimal-mode3_1)(string->number5_0 s_485 radix_1 convert-mode_1 decimal-mode3_1))" "((s_186 radix_2 convert-mode2_1)(string->number5_0 s_186 radix_2 convert-mode2_1 unsafe-undefined))" -"((s_487 radix1_1)(string->number5_0 s_487 radix1_1 'number-or-false unsafe-undefined)))))" +"((s_486 radix1_1)(string->number5_0 s_486 radix1_1 'number-or-false unsafe-undefined)))))" "(define-values" "(do-string->number17.1)" "(lambda(in-complex8_0 radix-set?7_0 s11_1 start12_0 end13_0 radix14_0 exactness15_0 convert-mode16_0)" @@ -49551,8 +49729,8 @@ static const char *startup_source = " (let-values () (format \"no character after `#` indicator in `~.a`\" s_17))" "(let-values() #f)))" "(let-values()" -"(let-values(((i_172)(string-ref s_17 next_4)))" -"(let-values(((tmp_38) i_172))" +"(let-values(((i_171)(string-ref s_17 next_4)))" +"(let-values(((tmp_38) i_171))" "(let-values(((index_2)" "(if(char? tmp_38)" "(let-values(((codepoint_0)(char->integer tmp_38)))" @@ -49626,7 +49804,7 @@ static const char *startup_source = "(let-values()" "(format" " \"bad `#` indicator `~a` at `~.a`\"" -" i_172" +" i_171" "(substring s_17 start_43 end_33)))" "(let-values() #f)))" "(if(unsafe-fx< index_2 2)" @@ -49648,10 +49826,10 @@ static const char *startup_source = "((radix-set?77_0) radix-set?_0)" "((temp78_2)" "(if(let-values(((or-part_210)" -"(char=? i_172 '#\\e)))" +"(char=? i_171 '#\\e)))" "(if or-part_210" " or-part_210" -"(char=? i_172 '#\\E)))" +"(char=? i_171 '#\\E)))" " 'exact" " 'inexact))" "((temp79_0)" @@ -49679,7 +49857,7 @@ static const char *startup_source = "(let-values() #f)))" "(let-values()" "(let-values(((radix_4)" -"(let-values(((tmp_39) i_172))" +"(let-values(((tmp_39) i_171))" "(if(if(equal? tmp_39 '#\\b)" " #t" "(equal? tmp_39 '#\\B))" @@ -49717,13 +49895,13 @@ static const char *startup_source = "(read-special-number s_17 start_43 end_33 convert-mode_2)" " #f)))" "(if c1_29" -"((lambda(v_241)" +"((lambda(v_238)" "(if(eq? exactness_0 'exact)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_241))" +" (let-values () (format \"no exact representation for `~a`\" v_238))" "(let-values() #f)))" -"(let-values() v_241)))" +"(let-values() v_238)))" " c1_29)" "(let-values(((c2_3)" "(if(char-sign? c_64)" @@ -49752,8 +49930,8 @@ static const char *startup_source = "((temp93_1) 'i)" "((v94_0) v_39)" "((temp95_0)" -"(lambda(v_242 v2_0)" -"(begin 'temp95(make-rectangular v_242 v2_0)))))" +"(lambda(v_239 v2_0)" +"(begin 'temp95(make-rectangular v_239 v2_0)))))" "(read-for-special-compound62.1" " temp93_1" " #f" @@ -49795,8 +49973,8 @@ static const char *startup_source = "((temp103_0) #t)" "((v2104_0) v2_1)" "((temp105_0)" -"(lambda(v2_2 v_217)" -"(begin 'temp105(make-rectangular v_217 v2_2)))))" +"(lambda(v2_2 v_215)" +"(begin 'temp105(make-rectangular v_215 v2_2)))))" "(read-for-special-compound62.1" " temp102_0" " temp103_0" @@ -49824,7 +50002,7 @@ static const char *startup_source = " #f)" " #f)))" "(if c4_0" -"((lambda(v_219)" +"((lambda(v_217)" "(let-values(((s106_0) s_17)" "((temp107_2)(+ start_43 7))" "((end108_0) end_33)" @@ -49832,10 +50010,10 @@ static const char *startup_source = "((exactness110_0) exactness_0)" "((convert-mode111_0) convert-mode_2)" "((temp112_1) '@)" -"((v113_0) v_219)" +"((v113_0) v_217)" "((temp114_3)" -"(lambda(v_142 v2_3)" -"(begin 'temp114(make-polar v_142 v2_3)))))" +"(lambda(v_141 v2_3)" +"(begin 'temp114(make-polar v_141 v2_3)))))" "(read-for-special-compound62.1" " temp112_1" " #f" @@ -49909,7 +50087,7 @@ static const char *startup_source = "(lambda(in-complex21_0 radix-set?20_0 s24_2 start25_0 end26_0 radix27_0 exactness28_0 convert-mode29_0)" "(begin" " 'do-string->non-special-number30" -"(let-values(((s_457) s24_2))" +"(let-values(((s_456) s24_2))" "(let-values(((start_44) start25_0))" "(let-values(((end_34) end26_0))" "(let-values(((radix_5) radix27_0))" @@ -49918,8 +50096,8 @@ static const char *startup_source = "(let-values(((in-complex_1) in-complex21_0))" "(let-values(((convert-mode_3) convert-mode29_0))" "(let-values()" -"((letrec-values(((loop_110)" -"(lambda(i_173" +"((letrec-values(((loop_111)" +"(lambda(i_172" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -49931,7 +50109,7 @@ static const char *startup_source = " must-i?_0)" "(begin" " 'loop" -"(if(= i_173 end_34)" +"(if(= i_172 end_34)" "(let-values()" "(if(if(not any-digits?_0)(not i-pos_3) #f)" "(let-values()" @@ -49939,7 +50117,7 @@ static const char *startup_source = "(let-values()" "(format" " \"no digits in `~.a`\"" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" "(if(if must-i?_0(not i-pos_3) #f)" "(let-values()" @@ -49947,7 +50125,7 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" "(if(if sign-pos_0" "(let-values(((or-part_314)" @@ -49961,11 +50139,11 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced sign in `~.a`\"" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" "(if i-pos_3" "(let-values()" -"(let-values(((s133_0) s_457)" +"(let-values(((s133_0) s_456)" "((start134_0) start_44)" "((sign-pos135_0) sign-pos_0)" "((sign-pos136_0) sign-pos_0)" @@ -49992,7 +50170,7 @@ static const char *startup_source = " convert-mode144_0)))" "(if @-pos_0" "(let-values()" -"(let-values(((s145_0) s_457)" +"(let-values(((s145_0) s_456)" "((start146_0) start_44)" "((@-pos147_0) @-pos_0)" "((temp148_1)(add1 @-pos_0))" @@ -50019,7 +50197,7 @@ static const char *startup_source = " convert-mode156_0)))" "(let-values()" "(string->real-number" -" s_457" +" s_456" " start_44" " end_34" " dot-pos_1" @@ -50030,11 +50208,11 @@ static const char *startup_source = " exactness_1" " convert-mode_3))))))))" "(let-values()" -"(let-values(((c_79)(string-ref s_457 i_173)))" +"(let-values(((c_79)(string-ref s_456 i_172)))" "(if(digit? c_79 radix_5)" "(let-values()" -"(loop_110" -"(add1 i_173)" +"(loop_111" +"(add1 i_172)" " #t" " any-hashes?_0" " i-pos_3" @@ -50046,8 +50224,8 @@ static const char *startup_source = " must-i?_0))" "(if(char=? c_79 '#\\#)" "(let-values()" -"(loop_110" -"(add1 i_173)" +"(loop_111" +"(add1 i_172)" " #t" " #t" " i-pos_3" @@ -50065,24 +50243,24 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_110" -"(add1 i_173)" +"(loop_111" +"(add1 i_172)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" -" i_173" +" i_172" " dot-pos_1" " slash-pos_0" " #f" -"(if(> i_173 start_44)" +"(if(> i_172 start_44)" "(let-values(((or-part_315)(not @-pos_0)))" "(if or-part_315" " or-part_315" -"(> i_173(add1 @-pos_0))))" +"(> i_172(add1 @-pos_0))))" " #f)))))" "(if(char=? c_79 '#\\.)" "(let-values()" @@ -50107,7 +50285,7 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `.` in `~.a`\"" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" "(if(if slash-pos_0" "(let-values(((or-part_279)(not sign-pos_0)))" @@ -50120,17 +50298,17 @@ static const char *startup_source = "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_110" -"(add1 i_173)" +"(loop_111" +"(add1 i_172)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" " sign-pos_0" -" i_173" +" i_172" " #f" " #f" " must-i?_0)))))" @@ -50147,7 +50325,7 @@ static const char *startup_source = "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" "(if(let-values(((or-part_319)" "(if exp-pos_0" @@ -50171,18 +50349,18 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `/` in `~.a`\"" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_110" -"(add1 i_173)" +"(loop_111" +"(add1 i_172)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" " sign-pos_0" " #f" -" i_173" +" i_172" " #f" " must-i?_0)))))" "(if(let-values(((or-part_322)(char=? c_79 '#\\e)))" @@ -50248,14 +50426,14 @@ static const char *startup_source = "(format" " \"misplaced `~a` in `~.a`\"" " c_79" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" -"(if(if(<(add1 i_173) end_34)" -"(char-sign?(string-ref s_457(add1 i_173)))" +"(if(if(<(add1 i_172) end_34)" +"(char-sign?(string-ref s_456(add1 i_172)))" " #f)" "(let-values()" -"(loop_110" -"(+ i_173 2)" +"(loop_111" +"(+ i_172 2)" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -50264,11 +50442,11 @@ static const char *startup_source = " dot-pos_1" " slash-pos_0" "(let-values(((or-part_330) exp-pos_0))" -"(if or-part_330 or-part_330 i_173))" +"(if or-part_330 or-part_330 i_172))" " must-i?_0))" "(let-values()" -"(loop_110" -"(+ i_173 1)" +"(loop_111" +"(+ i_172 1)" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -50277,7 +50455,7 @@ static const char *startup_source = " dot-pos_1" " slash-pos_0" "(let-values(((or-part_331) exp-pos_0))" -"(if or-part_331 or-part_331 i_173))" +"(if or-part_331 or-part_331 i_172))" " must-i?_0)))))" "(if(char=? c_79 '#\\@)" "(let-values()" @@ -50287,7 +50465,7 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" "(if(let-values(((or-part_159) @-pos_0))" "(if or-part_159" @@ -50298,15 +50476,15 @@ static const char *startup_source = "(let-values()" "(format" " \"too many `@`s in `~.a`\"" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" -"(if(= i_173 start_44)" +"(if(= i_172 start_44)" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" " \"`@` cannot be at start in `~.a`\"" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" "(if must-i?_0" "(let-values()" @@ -50314,15 +50492,15 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_110" -"(add1 i_173)" +"(loop_111" +"(add1 i_172)" " any-digits?_0" " any-hashes?_0" " i-pos_3" -" i_173" +" i_172" " #f" " #f" " #f" @@ -50345,10 +50523,10 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" "(if(let-values(((or-part_334)" -"(<(add1 i_173) end_34)))" +"(<(add1 i_172) end_34)))" "(if or-part_334" " or-part_334" "(eq? in-complex_1 'i)))" @@ -50357,14 +50535,14 @@ static const char *startup_source = "(let-values()" "(format" " \"`i` must be at the end in `~.a`\"" -"(substring s_457 start_44 end_34)))" +"(substring s_456 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_110" -"(add1 i_173)" +"(loop_111" +"(add1 i_172)" " any-digits?_0" " any-hashes?_0" -" i_173" +" i_172" " @-pos_0" " sign-pos_0" " #f" @@ -50376,14 +50554,14 @@ static const char *startup_source = "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" -" (format \"nul character in `~.a`\" s_457))" +" (format \"nul character in `~.a`\" s_456))" "(let-values() #f)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" " (format \"bad digit `~a`\" c_79))" "(let-values() #f))))))))))))))))))))" -" loop_110)" +" loop_111)" " start_44" " #f" " #f" @@ -50410,7 +50588,7 @@ static const char *startup_source = " convert-mode46_0)" "(begin" " 'string->complex-number47" -"(let-values(((s_116) s37_1))" +"(let-values(((s_117) s37_1))" "(let-values(((start1_0) start138_0))" "(let-values(((end1_0) end139_0))" "(let-values(((start2_0) start240_0))" @@ -50427,7 +50605,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(((s157_0) s_116)" +"(let-values(((s157_0) s_117)" "((start1158_0) start1_0)" "((end1159_0) end1_0)" "((radix160_0) radix_6)" @@ -50447,12 +50625,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_116 start2_0) '#\\-)))" +"(let-values(((neg?_0)(char=?(string-ref s_117 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(((s165_0) s_116)" +"(let-values(((s165_0) s_117)" "((start2166_0) start2_0)" "((end2167_0) end2_0)" "((radix168_0) radix_6)" @@ -50717,128 +50895,128 @@ static const char *startup_source = " convert-mode_5))))))))))))" "(define-values" "(string->decimal-number)" -"(lambda(s_488 start_46 end_36 dot-pos_3 radix_8 exactness_4 convert-mode_6)" +"(lambda(s_487 start_46 end_36 dot-pos_3 radix_8 exactness_4 convert-mode_6)" "(begin" "(let-values(((get-exact?_0)" "(let-values(((or-part_186)(eq? exactness_4 'exact)))" "(if or-part_186 or-part_186(eq? exactness_4 'decimal-as-exact)))))" "(let-values(((new-str_0)(make-string(- end_36 start_46(if(if dot-pos_3 get-exact?_0 #f) 1 0)))))" -"((letrec-values(((loop_111)" -"(lambda(i_174 j_3 hashes-pos_0)" +"((letrec-values(((loop_112)" +"(lambda(i_173 j_3 hashes-pos_0)" "(begin" " 'loop" -"(if(< i_174 start_46)" +"(if(< i_173 start_46)" "(let-values()" "(if(= hashes-pos_0 start_46)" "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" -" (format \"misplaced `#` in `~.a`\" (substring s_488 start_46 end_36)))" +" (format \"misplaced `#` in `~.a`\" (substring s_487 start_46 end_36)))" "(let-values() #f)))" "(let-values()" "(let-values(((n_34)(string->number$1 new-str_0 radix_8)))" "(if(not n_34)" -"(let-values()(fail-bad-number convert-mode_6 s_488 start_46 end_36))" +"(let-values()(fail-bad-number convert-mode_6 s_487 start_46 end_36))" "(if(not get-exact?_0)" "(let-values()" -"(if(if(eqv? n_34 0)(char=?(string-ref s_488 start_46) '#\\-) #f)" +"(if(if(eqv? n_34 0)(char=?(string-ref s_487 start_46) '#\\-) #f)" " -0.0" "(exact->inexact n_34)))" "(if(if dot-pos_3 get-exact?_0 #f)" "(let-values()(/ n_34(expt 10(- end_36 dot-pos_3 1))))" "(let-values() n_34))))))))" "(let-values()" -"(let-values(((c_80)(string-ref s_488 i_174)))" +"(let-values(((c_80)(string-ref s_487 i_173)))" "(if(char=? c_80 '#\\.)" "(let-values()" "(if get-exact?_0" "(let-values()" -"(loop_111" -"(sub1 i_174)" +"(loop_112" +"(sub1 i_173)" " j_3" -"(if(= hashes-pos_0(add1 i_174)) i_174 hashes-pos_0)))" +"(if(= hashes-pos_0(add1 i_173)) i_173 hashes-pos_0)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_80)" -"(loop_111" -"(sub1 i_174)" +"(loop_112" +"(sub1 i_173)" "(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_174)) i_174 hashes-pos_0))))))" +"(if(= hashes-pos_0(add1 i_173)) i_173 hashes-pos_0))))))" "(if(let-values(((or-part_347)(char=? c_80 '#\\-)))" "(if or-part_347 or-part_347(char=? c_80 '#\\+)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_80)" -"(loop_111" -"(sub1 i_174)" +"(loop_112" +"(sub1 i_173)" "(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_174)) i_174 hashes-pos_0))))" +"(if(= hashes-pos_0(add1 i_173)) i_173 hashes-pos_0))))" "(if(char=? c_80 '#\\#)" "(let-values()" -"(if(= hashes-pos_0(add1 i_174))" +"(if(= hashes-pos_0(add1 i_173))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 '#\\0)" -"(loop_111(sub1 i_174)(sub1 j_3) i_174)))" +"(loop_112(sub1 i_173)(sub1 j_3) i_173)))" "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" "(format" " \"misplaced `#` in `~.a`\"" -"(substring s_488 start_46 end_36)))" +"(substring s_487 start_46 end_36)))" "(let-values() #f)))))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_80)" -"(loop_111(sub1 i_174)(sub1 j_3) hashes-pos_0)))))))))))))" -" loop_111)" +"(loop_112(sub1 i_173)(sub1 j_3) hashes-pos_0)))))))))))))" +" loop_112)" "(sub1 end_36)" "(sub1(string-length new-str_0))" " end_36))))))" "(define-values" "(string->exact-integer-number)" -"(lambda(s_489 start_47 end_37 radix_9 convert-mode_7)" +"(lambda(s_488 start_47 end_37 radix_9 convert-mode_7)" "(begin" -"(if(hashes? s_489 start_47 end_37)" +"(if(hashes? s_488 start_47 end_37)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_489 start_47 end_37)))" +" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_488 start_47 end_37)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_35)(string->number$1(maybe-substring s_489 start_47 end_37) radix_9)))" +"(let-values(((n_35)(string->number$1(maybe-substring s_488 start_47 end_37) radix_9)))" "(if(not n_35)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"bad exponent `~.a`\" (substring s_489 start_47 end_37)))" +" (let-values () (format \"bad exponent `~.a`\" (substring s_488 start_47 end_37)))" "(let-values() #f)))" "(let-values() n_35))))))))" "(define-values" "(read-special-number)" -"(lambda(s_472 start_48 end_38 convert-mode_8)" +"(lambda(s_471 start_48 end_38 convert-mode_8)" "(begin" "(if(=(- end_38 start_48) 6)" -"(if(let-values(((or-part_348)(char=?(string-ref s_472 start_48) '#\\+)))" -"(if or-part_348 or-part_348(char=?(string-ref s_472 start_48) '#\\-)))" +"(if(let-values(((or-part_348)(char=?(string-ref s_471 start_48) '#\\+)))" +"(if or-part_348 or-part_348(char=?(string-ref s_471 start_48) '#\\-)))" "(let-values(((or-part_349)" -"(if(char=?(char-downcase(string-ref s_472(+ start_48 1))) '#\\i)" -"(if(char=?(char-downcase(string-ref s_472(+ start_48 2))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_472(+ start_48 3))) '#\\f)" -"(if(char=?(char-downcase(string-ref s_472(+ start_48 4))) '#\\.)" +"(if(char=?(char-downcase(string-ref s_471(+ start_48 1))) '#\\i)" +"(if(char=?(char-downcase(string-ref s_471(+ start_48 2))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_471(+ start_48 3))) '#\\f)" +"(if(char=?(char-downcase(string-ref s_471(+ start_48 4))) '#\\.)" "(let-values(((or-part_350)" -"(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\0)" -"(if(char=?(string-ref s_472 start_48) '#\\+) +inf.0 -inf.0)" +"(if(char=?(char-downcase(string-ref s_471(+ start_48 5))) '#\\0)" +"(if(char=?(string-ref s_471 start_48) '#\\+) +inf.0 -inf.0)" " #f)))" "(if or-part_350" " or-part_350" "(let-values(((or-part_351)" -"(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\f)" -"(if(char=?(string-ref s_472 start_48) '#\\+) +inf.f -inf.f)" +"(if(char=?(char-downcase(string-ref s_471(+ start_48 5))) '#\\f)" +"(if(char=?(string-ref s_471 start_48) '#\\+) +inf.f -inf.f)" " #f)))" "(if or-part_351" " or-part_351" -"(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\t)" +"(if(char=?(char-downcase(string-ref s_471(+ start_48 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false))" -"(if(char=?(string-ref s_472 start_48) '#\\+) '+inf.t '-inf.t)" +"(if(char=?(string-ref s_471 start_48) '#\\+) '+inf.t '-inf.t)" " #f)" " #f)))))" " #f)" @@ -50847,19 +51025,19 @@ static const char *startup_source = " #f)))" "(if or-part_349" " or-part_349" -"(if(char=?(char-downcase(string-ref s_472(+ start_48 1))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_472(+ start_48 2))) '#\\a)" -"(if(char=?(char-downcase(string-ref s_472(+ start_48 3))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_472(+ start_48 4))) '#\\.)" +"(if(char=?(char-downcase(string-ref s_471(+ start_48 1))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_471(+ start_48 2))) '#\\a)" +"(if(char=?(char-downcase(string-ref s_471(+ start_48 3))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_471(+ start_48 4))) '#\\.)" "(let-values(((or-part_352)" -"(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\0) +nan.0 #f)))" +"(if(char=?(char-downcase(string-ref s_471(+ start_48 5))) '#\\0) +nan.0 #f)))" "(if or-part_352" " or-part_352" "(let-values(((or-part_353)" -"(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\f) +nan.f #f)))" +"(if(char=?(char-downcase(string-ref s_471(+ start_48 5))) '#\\f) +nan.f #f)))" "(if or-part_353" " or-part_353" -"(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\t)" +"(if(char=?(char-downcase(string-ref s_471(+ start_48 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)" " #f)))))" " #f)" @@ -50870,10 +51048,10 @@ static const char *startup_source = " #f))))" "(define-values" "(fail-extflonum)" -"(lambda(convert-mode_9 v_243)" +"(lambda(convert-mode_9 v_240)" "(begin" "(if(eq? convert-mode_9 'must-read)" -" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_243))" +" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_240))" "(let-values() #f)))))" "(define-values" "(read-for-special-compound62.1)" @@ -50889,7 +51067,7 @@ static const char *startup_source = " combine61_0)" "(begin" " 'read-for-special-compound62" -"(let-values(((s_490) s54_0))" +"(let-values(((s_489) s54_0))" "(let-values(((start_49) start55_0))" "(let-values(((end_39) end56_0))" "(let-values(((radix_10) radix57_0))" @@ -50897,22 +51075,22 @@ static const char *startup_source = "(let-values(((convert-mode_10) convert-mode59_0))" "(let-values(((in-complex_3) in-complex50_0))" "(let-values(((reading-first?_0) reading-first?51_0))" -"(let-values(((v_244) v60_0))" +"(let-values(((v_241) v60_0))" "(let-values(((combine_1) combine61_0))" "(let-values()" "(if(eq? exactness_5 'exact)" "(let-values()" "(if(eq? convert-mode_10 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_244))" +" (let-values () (format \"no exact representation for `~a`\" v_241))" "(let-values() #f)))" -"(if(if(extflonum? v_244)" +"(if(if(extflonum? v_241)" "(let-values(((or-part_189)(not reading-first?_0)))" "(if or-part_189 or-part_189(not(eq? convert-mode_10 'must-read))))" " #f)" -"(let-values()(fail-extflonum convert-mode_10 v_244))" +"(let-values()(fail-extflonum convert-mode_10 v_241))" "(let-values()" "(let-values(((v2_7)" -"(let-values(((s173_0) s_490)" +"(let-values(((s173_0) s_489)" "((start174_0) start_49)" "((end175_0) end_39)" "((radix176_0) radix_10)" @@ -50933,9 +51111,9 @@ static const char *startup_source = "(let-values() v2_7)" "(if(not v2_7)" "(let-values() v2_7)" -"(if(extflonum? v_244)" -"(let-values()(fail-extflonum convert-mode_10 v_244))" -"(let-values()(combine_1 v_244 v2_7)))))))))))))))))))))))" +"(if(extflonum? v_241)" +"(let-values()(fail-extflonum convert-mode_10 v_241))" +"(let-values()(combine_1 v_241 v2_7)))))))))))))))))))))))" "(define-values" "(hashes?)" "(lambda(s_263 start_50 end_40)" @@ -50944,30 +51122,30 @@ static const char *startup_source = "(normalise-inputs" " 'in-string" " \"string\"" -"(lambda(x_87)(string? x_87))" -"(lambda(x_88)(unsafe-string-length x_88))" +"(lambda(x_86)(string? x_86))" +"(lambda(x_87)(unsafe-string-length x_87))" " s_263" " start_50" " end_40" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_274)" -"(lambda(result_123 idx_5)" +"((letrec-values(((for-loop_273)" +"(lambda(result_121 idx_5)" "(begin" " 'for-loop" "(if(unsafe-fx< idx_5 stop*_6)" "(let-values(((c_81)(string-ref v*_6 idx_5)))" -"(let-values(((result_124)" +"(let-values(((result_122)" "(let-values()" -"(let-values(((result_125)" +"(let-values(((result_123)" "(let-values()(let-values()(char=? c_81 '#\\#)))))" -"(values result_125)))))" -"(if(if(not((lambda x_89 result_124) c_81))(not #f) #f)" -"(for-loop_274 result_124(unsafe-fx+ idx_5 1))" -" result_124)))" -" result_123)))))" -" for-loop_274)" +"(values result_123)))))" +"(if(if(not((lambda x_88 result_122) c_81))(not #f) #f)" +"(for-loop_273 result_122(unsafe-fx+ idx_5 1))" +" result_122)))" +" result_121)))))" +" for-loop_273)" " #f" " start*_5))))))" "(define-values" @@ -50980,8 +51158,8 @@ static const char *startup_source = "(normalise-inputs" " 'in-string" " \"string\"" -"(lambda(x_90)(string? x_90))" -"(lambda(x_91)(unsafe-string-length x_91))" +"(lambda(x_89)(string? x_89))" +"(lambda(x_90)(unsafe-string-length x_90))" " s_271" " start_51" " end_41" @@ -50992,7 +51170,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_52)))" -"((letrec-values(((for-loop_275)" +"((letrec-values(((for-loop_274)" "(lambda(idx_6 pos_115)" "(begin" " 'for-loop" @@ -51009,9 +51187,9 @@ static const char *startup_source = "(string-set! new-s_9 i_124 c_82)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_275(unsafe-fx+ idx_6 1)(+ pos_115 1))(values))))" +"(if(not #f)(for-loop_274(unsafe-fx+ idx_6 1)(+ pos_115 1))(values))))" "(values))))))" -" for-loop_275)" +" for-loop_274)" " start*_6" " start_52)))" "(void)" @@ -51033,24 +51211,24 @@ static const char *startup_source = "(digit?)" "(lambda(c_84 radix_11)" "(begin" -"(let-values(((v_245)(char->integer c_84)))" +"(let-values(((v_242)(char->integer c_84)))" "(let-values(((or-part_356)" -"(if(>= v_245(char->integer '#\\0))(<(- v_245(char->integer '#\\0)) radix_11) #f)))" +"(if(>= v_242(char->integer '#\\0))(<(- v_242(char->integer '#\\0)) radix_11) #f)))" "(if or-part_356" " or-part_356" "(if(> radix_11 10)" "(let-values(((or-part_357)" -"(if(>= v_245(char->integer '#\\a))(<(- v_245(-(char->integer '#\\a) 10)) radix_11) #f)))" +"(if(>= v_242(char->integer '#\\a))(<(- v_242(-(char->integer '#\\a) 10)) radix_11) #f)))" "(if or-part_357" " or-part_357" -"(if(>= v_245(char->integer '#\\A))(<(- v_245(-(char->integer '#\\A) 10)) radix_11) #f)))" +"(if(>= v_242(char->integer '#\\A))(<(- v_242(-(char->integer '#\\A) 10)) radix_11) #f)))" " #f)))))))" "(define-values" "(fail-bad-number)" -"(lambda(convert-mode_11 s_136 start_53 end_42)" +"(lambda(convert-mode_11 s_137 start_53 end_42)" "(begin" "(if(eq? convert-mode_11 'must-read)" -" (let-values () (format \"bad number `~.a`\" (substring s_136 start_53 end_42)))" +" (let-values () (format \"bad number `~.a`\" (substring s_137 start_53 end_42)))" "(let-values() #f)))))" "(define-values" "(read-complains)" @@ -51126,7 +51304,7 @@ static const char *startup_source = "(list temp15_5 after-c16_0 temp17_4)))))))" "(let-values((()" "(begin" -"((letrec-values(((loop_112)" +"((letrec-values(((loop_113)" "(lambda(init-c_7" " pipe-quote-c_0" " foldcase-from_0)" @@ -51210,7 +51388,7 @@ static const char *startup_source = "(consume-char" " in_26" " c_85)))" -"(loop_112" +"(loop_113" " #f" " #f" "(accum-string-count" @@ -51236,7 +51414,7 @@ static const char *startup_source = " accum-str_1" " string-foldcase" " foldcase-from_0)))" -"(loop_112" +"(loop_113" " #f" " c_85" "(accum-string-count" @@ -51286,7 +51464,7 @@ static const char *startup_source = " next-c_0)" "(set! quoted-ever?_0" " #t)" -"(loop_112" +"(loop_113" " #f" " #f" "(accum-string-count" @@ -51302,11 +51480,11 @@ static const char *startup_source = "(accum-string-add!" " accum-str_1" " c_85)" -"(loop_112" +"(loop_113" " #f" " pipe-quote-c_0" " foldcase-from_0))))))))))))))" -" loop_112)" +" loop_113)" " init-c_6" " #f" " 0)" @@ -51406,16 +51584,16 @@ static const char *startup_source = "(begin" "(let-values(((c_25)(read-char/skip-whitespace-and-comments init-c_0 read-one_3 in_5 config_15)))" "(let-values(((line_8 col_7 pos_116)(port-next-location* in_5 c_25)))" -" (let-values (((v_235) (read-number-literal c_25 in_5 config_15 \"#e\")))" -"(if(fixnum? v_235)" -"(let-values() v_235)" -"(if(eof-object? v_235)" -"(let-values() v_235)" +" (let-values (((v_232) (read-number-literal c_25 in_5 config_15 \"#e\")))" +"(if(fixnum? v_232)" +"(let-values() v_232)" +"(if(eof-object? v_232)" +"(let-values() v_232)" "(let-values()" "(let-values(((in1_3) in_5)" "((temp2_5)(reading-at config_15 line_8 col_7 pos_116))" " ((temp3_6) \"expected a fixnum, found ~a\")" -"((v4_1) v_235))" +"((v4_1) v_232))" "(reader-error12.1" " unsafe-undefined" " '#\\x" @@ -51540,7 +51718,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_261)))" -"((letrec-values(((for-loop_276)" +"((letrec-values(((for-loop_275)" "(lambda(i_3 lst_104)" "(begin" " 'for-loop" @@ -51548,13 +51726,13 @@ static const char *startup_source = "(let-values(((e_78)" "(unsafe-car" " lst_104))" -"((rest_145)" +"((rest_144)" "(unsafe-cdr" " lst_104)))" -"(let-values(((i_175)" -"(let-values(((i_94)" +"(let-values(((i_174)" +"(let-values(((i_96)" " i_3))" -"(let-values(((i_176)" +"(let-values(((i_175)" "(let-values()" "(begin" "(let-values(((elem_0)" @@ -51564,30 +51742,30 @@ static const char *startup_source = " elem_0)" "(unsafe-fxvector-set!" " v_35" -" i_94" +" i_96" " elem_0)" "(not-an-fX.1" " 'for*/vector" " elem_0)))" "(unsafe-fx+" " 1" -" i_94)))))" +" i_96)))))" "(values" -" i_176)))))" +" i_175)))))" "(if(if(not" -"((lambda x_92" +"((lambda x_91" "(unsafe-fx=" -" i_175" +" i_174" " len_37))" " e_78))" "(not #f)" " #f)" -"(for-loop_276" -" i_175" -" rest_145)" -" i_175)))" +"(for-loop_275" +" i_174" +" rest_144)" +" i_174)))" " i_3)))))" -" for-loop_276)" +" for-loop_275)" " 0" " lst_261)))))" " v_35))))))" @@ -51603,7 +51781,7 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_38)))" "(let-values(((fill_1) 0.0))" -"(let-values(((v_188)(make-flvector len_38 fill_1)))" +"(let-values(((v_186)(make-flvector len_38 fill_1)))" "(begin" "(if(zero? len_38)" "(void)" @@ -51628,7 +51806,7 @@ static const char *startup_source = "(let-values(((i_42)" "(let-values(((i_43)" " i_40))" -"(let-values(((i_157)" +"(let-values(((i_93)" "(let-values()" "(begin" "(let-values(((elem_1)" @@ -51637,7 +51815,7 @@ static const char *startup_source = "(if(flonum?" " elem_1)" "(unsafe-flvector-set!" -" v_188" +" v_186" " i_43" " elem_1)" "(not-an-fX.1$1" @@ -51647,9 +51825,9 @@ static const char *startup_source = " 1" " i_43)))))" "(values" -" i_157)))))" +" i_93)))))" "(if(if(not" -"((lambda x_93" +"((lambda x_92" "(unsafe-fx=" " i_42" " len_38))" @@ -51664,7 +51842,7 @@ static const char *startup_source = " for-loop_21)" " 0" " lst_24)))))" -" v_188))))))" +" v_186))))))" "(let-values()(void)))))))" "(let-values()" "(let-values(((len_39)(length seq_2)))" @@ -51698,20 +51876,20 @@ static const char *startup_source = "(list temp25_7 expected-len26_0 len27_0))))" "(let-values()" "(let-values(((last-or_0)" -"(lambda(v_246)" +"(lambda(v_243)" "(begin" " 'last-or" "(if(null? seq_2)" -"(wrap v_246 in_30 config_10 #f)" -"((letrec-values(((loop_113)" +"(wrap v_243 in_30 config_10 #f)" +"((letrec-values(((loop_114)" "(lambda(seq_3)" "(begin" " 'loop" "(if(null?(cdr seq_3))" "(car seq_3)" -"(loop_113" +"(loop_114" "(cdr seq_3)))))))" -" loop_113)" +" loop_114)" " seq_2))))))" "(let-values((()" "(begin" @@ -51756,7 +51934,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-naturals start_54)))" -"((letrec-values(((for-loop_265)" +"((letrec-values(((for-loop_264)" "(lambda(lst_298 pos_117)" "(begin" " 'for-loop" @@ -51766,10 +51944,10 @@ static const char *startup_source = "(let-values(((e_79)" "(unsafe-car" " lst_298))" -"((rest_176)" +"((rest_175)" "(unsafe-cdr" " lst_298))" -"((i_177)" +"((i_176)" " pos_117))" "(let-values((()" "(let-values()" @@ -51779,29 +51957,29 @@ static const char *startup_source = "(let-values()" "(vector-set!" " vec_69" -" i_177" +" i_176" " e_79))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_265" -" rest_176" +"(for-loop_264" +" rest_175" "(+ pos_117 1))" "(values))))" "(values))))))" -" for-loop_265)" +" for-loop_264)" " lst_8" " start_54)))" "(void)))" "(if(equal? tmp_45 'fixnum)" "(let-values()" "(begin" -"(let-values(((lst_174) seq_2)((start_55) 0))" +"(let-values(((lst_175) seq_2)((start_55) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_174)))" +"(let-values()(check-list lst_175)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -51817,10 +51995,10 @@ static const char *startup_source = "(let-values(((e_80)" "(unsafe-car" " lst_273))" -"((rest_123)" +"((rest_122)" "(unsafe-cdr" " lst_273))" -"((i_100)" +"((i_102)" " pos_17))" "(let-values((()" "(let-values()" @@ -51830,18 +52008,18 @@ static const char *startup_source = "(let-values()" "(fxvector-set!" " vec_69" -" i_100" +" i_102" " e_80))" "(values)))))" "(values)))))" "(if(not #f)" "(for-loop_28" -" rest_123" +" rest_122" "(+ pos_17 1))" "(values))))" "(values))))))" " for-loop_28)" -" lst_174" +" lst_175" " start_55)))" "(void)))" "(if(equal? tmp_45 'flonum)" @@ -51858,7 +52036,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-naturals start_56)))" -"((letrec-values(((for-loop_277)" +"((letrec-values(((for-loop_276)" "(lambda(lst_98 pos_118)" "(begin" " 'for-loop" @@ -51869,7 +52047,7 @@ static const char *startup_source = "(let-values(((e_81)" "(unsafe-car" " lst_98))" -"((rest_177)" +"((rest_176)" "(unsafe-cdr" " lst_98))" "((i_46)" @@ -51887,14 +52065,14 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_277" -" rest_177" +"(for-loop_276" +" rest_176" "(+" " pos_118" " 1))" "(values))))" "(values))))))" -" for-loop_277)" +" for-loop_276)" " lst_305" " start_56)))" "(void)))" @@ -52029,7 +52207,7 @@ static const char *startup_source = "(let-values(((accum-str_2)(accum-string-init! config_41)))" "(let-values((()(begin(accum-string-add! accum-str_2 init-c_11)(values))))" "(let-values(((init-v_1)(digit->number init-c_11)))" -"(let-values(((v_247)" +"(let-values(((v_244)" "(let-values(((in69_0) in_34)" "((config70_0) config_41)" "((accum-str71_0) accum-str_2)" @@ -52039,7 +52217,7 @@ static const char *startup_source = "((init-v75_0) init-v_1))" "(read-digits12.1 temp72_1 init-v74_0 temp73_0 init-v75_0 in69_0 config70_0 accum-str71_0))))" "(values" -" v_247" +" v_244" "(let-values(((accum-str76_0) accum-str_2)((config77_0) config_41))" "(accum-string-get!6.1 0 accum-str76_0 config77_0))" "(let-values(((in_35) in_34)((source_21)(read-config-source config_41)))" @@ -52355,10 +52533,10 @@ static const char *startup_source = "(if(equal? tmp_49 '#\\=)" "(let-values()" "(let-values(((ph_1)(make-placeholder 'placeholder)))" -"(let-values(((ht_140)(get-graph-hash config_43)))" +"(let-values(((ht_145)(get-graph-hash config_43)))" "(let-values((()" "(begin" -"(if(hash-ref ht_140 v_30 #f)" +"(if(hash-ref ht_145 v_30 #f)" "(let-values()" "(let-values(((in50_0) in_37)" "((config51_0) config_43)" @@ -52385,7 +52563,7 @@ static const char *startup_source = "(list dispatch-c53_0 temp54_2 c55_0))))" "(void))" "(values))))" -"(let-values((()(begin(hash-set! ht_140 v_30 ph_1)(values))))" +"(let-values((()(begin(hash-set! ht_145 v_30 ph_1)(values))))" "(let-values(((result-v_0)" "(read-one_3 #f in_37(next-readtable config_43))))" "(begin" @@ -52472,7 +52650,7 @@ static const char *startup_source = "(let-values(((or-part_360)(read-config-state-graph st_3)))" "(if or-part_360" " or-part_360" -"(let-values(((ht_151)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_151) ht_151))))))))" +"(let-values(((ht_155)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_155) ht_155))))))))" "(define-values" "(coerce-key)" "(lambda(key_85 config_8)" @@ -52520,7 +52698,7 @@ static const char *startup_source = "(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_20)" -"((letrec-values(((loop_114)" +"((letrec-values(((loop_115)" "(lambda(mode_21)" "(begin" " 'loop" @@ -52686,7 +52864,7 @@ static const char *startup_source = "(begin" "(accum-string-add! accum-str_3 c_50)" "(get-next!_0 '#\\q '#\\Q)" -"(loop_114 'eq)))" +"(loop_115 'eq)))" "(if(if(equal? tmp_50 '#\\v)" " #t" "(equal? tmp_50 '#\\V))" @@ -52694,7 +52872,7 @@ static const char *startup_source = "(begin" "(accum-string-add! accum-str_3 c_50)" "(if(eq? mode_21 'eq)" -"(loop_114 'eqv)" +"(loop_115 'eqv)" "(let-values(((in41_0) in_37)" "((config42_0) config_43)" "((temp43_4)" @@ -52745,7 +52923,7 @@ static const char *startup_source = " config48_1" " temp50_2" "(list temp51_2)))))))))))))))))" -" loop_114)" +" loop_115)" " 'equal)))" "(let-values(((graph?_0)(if(read-config-state-graph(read-config-st config_43)) #t #f)))" "(wrap" @@ -52821,8 +52999,8 @@ static const char *startup_source = " temp63_3" "(list temp64_3))))" "(let-values()" -"(let-values(((v_248)(read-one_8 c_89 in_41(keep-comment elem-config_1))))" -"(if(1/special-comment? v_248)" +"(let-values(((v_245)(read-one_8 c_89 in_41(keep-comment elem-config_1))))" +"(if(1/special-comment? v_245)" "(let-values()" "((make-read-one-key+value" " read-one_8" @@ -52885,7 +53063,7 @@ static const char *startup_source = " temp72_2" "(list temp73_2)))))" "(values))))" -"(let-values(((v_249)(read-one_8 #f in_41 elem-config_1)))" +"(let-values(((v_246)(read-one_8 #f in_41 elem-config_1)))" "(let-values(((closer-c_0)" "(read-char/skip-whitespace-and-comments #f read-one_8 in_41 config_45)))" "(let-values(((closer-line_0 closer-col_0 closer-pos_0)" @@ -52914,7 +53092,7 @@ static const char *startup_source = " temp75_2" " temp77_1" "(list temp78_3)))))" -"(cons(coerce-key k_41 elem-config_1) v_249))))))))))))))))))))))" +"(cons(coerce-key k_41 elem-config_1) v_246))))))))))))))))))))))" "(define-values" "(read-string5.1)" "(lambda(mode1_1 in3_0 config4_0)" @@ -52964,7 +53142,7 @@ static const char *startup_source = "(list mode17_0)))))))))" "(let-values((()" "(begin" -"((letrec-values(((loop_115)" +"((letrec-values(((loop_116)" "(lambda()" "(begin" " 'loop" @@ -53251,7 +53429,7 @@ static const char *startup_source = "(let-values(((init-v_3)" "(digit->number" " escaped-c_0)))" -"(let-values(((v_203)" +"(let-values(((v_201)" "(let-values(((in24_1)" " in_37)" "((config25_1)" @@ -53275,7 +53453,7 @@ static const char *startup_source = " config25_1" " accum-str26_0))))" "(begin" -"(if(<= v_203 255)" +"(if(<= v_201 255)" "(void)" "(let-values()" "(let-values(((in31_2)" @@ -53317,13 +53495,13 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_203)))))))))" +" v_201)))))))))" "(if(unsafe-fx< index_3 14)" "(let-values()" "(let-values(((pos_13)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_250)" +"(let-values(((v_247)" "(let-values(((in40_1)" " in_37)" "((config41_1)" @@ -53343,13 +53521,13 @@ static const char *startup_source = " config41_1" " accum-str42_0))))" "(begin" -"(if(integer? v_250)" +"(if(integer? v_247)" "(void)" "(let-values()" "(no-hex-digits" " in_37" " config_43" -" v_250" +" v_247" " escaping-c_0" " escaped-c_0)))" "(set-accum-string-count!" @@ -53358,7 +53536,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_250))))))" +" v_247))))))" "(if(unsafe-fx< index_3 15)" "(let-values()" "(let-values((()" @@ -53373,7 +53551,7 @@ static const char *startup_source = "(let-values(((pos_119)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_251)" +"(let-values(((v_248)" "(let-values(((in45_0)" " in_37)" "((config46_1)" @@ -53394,23 +53572,23 @@ static const char *startup_source = " accum-str47_0))))" "(begin" "(if(integer?" -" v_251)" +" v_248)" "(void)" "(let-values()" "(no-hex-digits" " in_37" " config_43" -" v_251" +" v_248" " escaping-c_0" " escaped-c_0)))" "(if(let-values(((or-part_63)" "(<" -" v_251" +" v_248" " 55296)))" "(if or-part_63" " or-part_63" "(>" -" v_251" +" v_248" " 57343)))" "(let-values()" "(begin" @@ -53420,7 +53598,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_251))))" +" v_248))))" "(let-values()" "(let-values(((next!_0)" "(lambda()" @@ -53501,7 +53679,7 @@ static const char *startup_source = "(+" "(arithmetic-shift" "(-" -" v_251" +" v_248" " 55296)" " 10)" "(-" @@ -53597,7 +53775,7 @@ static const char *startup_source = "(let-values(((pos_20)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_252)" +"(let-values(((v_249)" "(let-values(((in72_0)" " in_37)" "((config73_0)" @@ -53618,26 +53796,26 @@ static const char *startup_source = " accum-str74_0))))" "(begin" "(if(integer?" -" v_252)" +" v_249)" "(void)" "(let-values()" "(no-hex-digits" " in_37" " config_43" -" v_252" +" v_249" " escaping-c_0" " escaped-c_0)))" "(if(if(let-values(((or-part_55)" "(<" -" v_252" +" v_249" " 55296)))" "(if or-part_55" " or-part_55" "(>" -" v_252" +" v_249" " 57343)))" "(<=" -" v_252" +" v_249" " 1114111)" " #f)" "(let-values()" @@ -53648,7 +53826,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_252))))" +" v_249))))" "(let-values()" "(let-values(((in77_1)" " in_37)" @@ -53680,7 +53858,7 @@ static const char *startup_source = "(list" " escaping-c80_0" " temp81_2)))))))))))))))))" -"(loop_115)))))))" +"(loop_116)))))))" " (if (char=? '#\\\" c_17)" "(let-values() null)" "(let-values()" @@ -53706,8 +53884,8 @@ static const char *startup_source = "(list c88_0))))))" "(void))" "(accum-string-add! accum-str_4 c_17)" -"(loop_115)))))))))))" -" loop_115))" +"(loop_116)))))))))))" +" loop_116))" "(values))))" "(let-values(((str_30)" "(if(eq? mode_11 '|byte string|)" @@ -53838,7 +54016,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_306)))" -"((letrec-values(((for-loop_278)" +"((letrec-values(((for-loop_277)" "(lambda(lst_28)" "(begin" " 'for-loop" @@ -53846,7 +54024,7 @@ static const char *startup_source = "(let-values(((c_94)" "(unsafe-car" " lst_28))" -"((rest_178)" +"((rest_177)" "(unsafe-cdr" " lst_28)))" "(let-values((()" @@ -53861,11 +54039,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_278" -" rest_178)" +"(for-loop_277" +" rest_177)" "(values))))" "(values))))))" -" for-loop_278)" +" for-loop_277)" " lst_306)))" "(void))))" "(if(char=? c_93 '#\\newline)" @@ -53962,7 +54140,7 @@ static const char *startup_source = "(let-values(((in_52) in_4)" "((source_6)(read-config-source config_8)))" "(read-char-or-special in_52 special1.1 source_6))))" -"(let-values(((v_233)" +"(let-values(((v_230)" "(if(if(char? c3_6)(octal-digit? c3_6) #f)" "(let-values()" "(+" @@ -53971,7 +54149,7 @@ static const char *startup_source = "(digit->number c3_6)))" "(let-values() #f))))" "(begin" -"(if(if v_233(<= v_233 255) #f)" +"(if(if v_230(<= v_230 255) #f)" "(void)" "(let-values()" "(let-values(((in9_2) in_4)" @@ -53990,7 +54168,7 @@ static const char *startup_source = " config10_2" " temp12_7" "(list c13_1 c214_0 temp15_6)))))" -"(integer->char v_233))))))" +"(integer->char v_230))))))" "(let-values() c_96))))" "(if(let-values(((or-part_80)(char=? c_96 '#\\u)))" "(if or-part_80 or-part_80(char=? c_96 '#\\U)))" @@ -54057,7 +54235,7 @@ static const char *startup_source = "(let-values((()(begin(consume-char in_4 next-c_4)(values))))" "(let-values((()" "(begin" -"((letrec-values(((loop_105)" +"((letrec-values(((loop_106)" "(lambda()" "(begin" " 'loop" @@ -54093,9 +54271,9 @@ static const char *startup_source = "(consume-char" " in_4" " next-c_5)" -"(loop_105)))" +"(loop_106)))" "(void)))))))" -" loop_105))" +" loop_106))" "(values))))" "(let-values(((name_68)" "(string-foldcase" @@ -54175,7 +54353,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_116)" +"((letrec-values(((loop_117)" "(lambda(chars_1)" "(begin" " 'loop" @@ -54237,7 +54415,7 @@ static const char *startup_source = "(begin" "(consume-char in_50 c_37)" "(accum-string-add! accum-str_8 c_37)" -"(loop_116(cdr chars_1))))" +"(loop_117(cdr chars_1))))" "(let-values()" "(begin" "(consume-char/special in_50 config_22 c_37)" @@ -54258,7 +54436,7 @@ static const char *startup_source = " config15_2" " temp16_4" "(list temp17_5)))))))))))))" -" loop_116)" +" loop_117)" " chars_0)" "(wrap" " val_79" @@ -54576,7 +54754,7 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"((letrec-values(((loop_117)" +"((letrec-values(((loop_118)" "(lambda()" "(begin" " 'loop" @@ -54628,7 +54806,7 @@ static const char *startup_source = "(begin" "(consume-char in_61 c_9)" "(accum-string-add! accum-str_10 c_9)" -"(loop_117)))" +"(loop_118)))" "(let-values()" "(begin" "(consume-char in_61 c_9)" @@ -54652,7 +54830,7 @@ static const char *startup_source = "(list" " extend-str100_0" " c101_0))))))))))))))" -" loop_117))" +" loop_118))" "(values))))" "(let-values(((lang-str_0)" "(let-values(((accum-str102_0) accum-str_10)((config103_0) config_50))" @@ -54762,15 +54940,15 @@ static const char *startup_source = "(begin" "(let-values(((accum-str_11)(accum-string-init! config_51)))" "(begin" -"(let-values(((lst_197) already_0))" +"(let-values(((lst_198) already_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_197)))" -"((letrec-values(((for-loop_205)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_198)))" +"((letrec-values(((for-loop_204)" "(lambda(lst_307)" "(begin" " 'for-loop" "(if(pair? lst_307)" -"(let-values(((c_102)(unsafe-car lst_307))((rest_179)(unsafe-cdr lst_307)))" +"(let-values(((c_102)(unsafe-car lst_307))((rest_178)(unsafe-cdr lst_307)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -54780,10 +54958,10 @@ static const char *startup_source = "(accum-string-add! accum-str_11 c_102))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_205 rest_179)(values))))" +"(if(not #f)(for-loop_204 rest_178)(values))))" "(values))))))" -" for-loop_205)" -" lst_197)))" +" for-loop_204)" +" lst_198)))" "(void)" "((letrec-values(((loop_12)" "(lambda(wanted_1)" @@ -55179,7 +55357,7 @@ static const char *startup_source = "(if(1/special-comment? v_110)" "(let-values() v_110)" "(let-values()" -"((letrec-values(((loop_118)" +"((letrec-values(((loop_119)" "(lambda(v_112)" "(begin" " 'loop" @@ -55198,7 +55376,7 @@ static const char *startup_source = "(if(not(char? ec_9))" "(let-values() v_112)" "(if(char-whitespace? ec_9)" -"(let-values()(begin(consume-char in_63 c_104)(loop_118 v_112)))" +"(let-values()(begin(consume-char in_63 c_104)(loop_119 v_112)))" "(if(char=? ec_9 '#\\.)" "(let-values()" "(let-values(((dot-line_2 dot-col_2 dot-pos_5)" @@ -55216,14 +55394,14 @@ static const char *startup_source = " '#\\.)))" "(let-values(((post-v_0)" "(read-undotted #f in_63 config_51)))" -"(loop_118" +"(loop_119" "(wrap" "(list cdot_0 v_112 post-v_0)" " in_63" "(reading-at config_51 line_11 col_10 pos_92)" " '#\\.)))))))" "(let-values() v_112))))))))))" -" loop_118)" +" loop_119)" " v_110))))))" "(void))))))" "(define-values" @@ -55236,15 +55414,15 @@ static const char *startup_source = "(let-values() eof)" "(if(not(char? c_106))" "(let-values()" -"(let-values(((v_253)(special-value c_106)))" -"(if(1/special-comment? v_253)" -"(let-values()(if(read-config-keep-comment? config_57) v_253(read-undotted #f in_68 config_57)))" -"(let-values()(coerce v_253 in_68(reading-at config_57 line_12 col_11 pos_121))))))" +"(let-values(((v_250)(special-value c_106)))" +"(if(1/special-comment? v_250)" +"(let-values()(if(read-config-keep-comment? config_57) v_250(read-undotted #f in_68 config_57)))" +"(let-values()(coerce v_250 in_68(reading-at config_57 line_12 col_11 pos_121))))))" "(let-values(((c2_8)(readtable-handler config_57 c_106)))" "(if c2_8" "((lambda(handler_3)" -"(let-values(((v_254)(readtable-apply handler_3 c_106 in_68 config_57 line_12 col_11 pos_121)))" -"(retry-special-comment v_254 in_68 config_57)))" +"(let-values(((v_251)(readtable-apply handler_3 c_106 in_68 config_57 line_12 col_11 pos_121)))" +"(retry-special-comment v_251 in_68 config_57)))" " c2_8)" "(let-values()" "(let-values(((ec_10)(effective-char c_106 config_57)))" @@ -55313,7 +55491,7 @@ static const char *startup_source = "(if(unsafe-fx< index_4 2)" "(if(unsafe-fx< index_4 1)" "(let-values()" -"(let-values(((v_255)" +"(let-values(((v_252)" "(let-values(((c79_1) c_106)" "((in80_1) in_68)" "((r-config81_0) r-config_0)" @@ -55332,7 +55510,7 @@ static const char *startup_source = " c79_1" " in80_1" " r-config81_0))))" -"(retry-special-comment v_255 in_68 config_57)))" +"(retry-special-comment v_252 in_68 config_57)))" "(let-values()(read-dispatch c_106 in_68 r-config_0 config_57)))" "(if(unsafe-fx< index_4 3)" " (let-values () (read-quote read-one 'quote \"quoting \\\"'\\\"\" c_106 in_68 r-config_0))" @@ -55677,9 +55855,9 @@ static const char *startup_source = "(let-values(((line_13)(read-config-line config_58)))" "(let-values(((col_12)(read-config-col config_58)))" "(let-values(((pos_122)(read-config-pos config_58)))" -"(let-values(((v_256)" +"(let-values(((v_253)" "(readtable-apply handler_4 c_108 in_70 config_58 line_13 col_12 pos_122)))" -"(retry-special-comment v_256 in_70 orig-config_0))))))" +"(retry-special-comment v_253 in_70 orig-config_0))))))" " c3_9)" "(let-values()" "(let-values()" @@ -56246,11 +56424,11 @@ static const char *startup_source = "(list dispatch-c279_0)))))))))))))))))))))))))" "(define-values" "(retry-special-comment)" -"(lambda(v_257 in_79 config_59)" +"(lambda(v_254 in_79 config_59)" "(begin" -"(if(1/special-comment? v_257)" -"(let-values()(if(read-config-keep-comment? config_59) v_257(read-undotted #f in_79 config_59)))" -"(let-values() v_257)))))" +"(if(1/special-comment? v_254)" +"(let-values()(if(read-config-keep-comment? config_59) v_254(read-undotted #f in_79 config_59)))" +"(let-values() v_254)))))" "(define-values" "(1/module-declared?)" "(let-values(((module-declared?3_0)" @@ -56720,28 +56898,28 @@ static const char *startup_source = "(define-values(read-module-declared?)(lambda(mod-path_30)(begin(1/module-declared? mod-path_30 #t))))" "(define-values" "(read-coerce)" -"(lambda(for-syntax?_12 v_258 srcloc_12)" +"(lambda(for-syntax?_12 v_255 srcloc_12)" "(begin" "(if(not for-syntax?_12)" -"(let-values()(if(syntax?$1 v_258)(let-values()(syntax->datum$1 v_258))(let-values() v_258)))" -"(if(syntax?$1 v_258)" -"(let-values() v_258)" -"(if(list? v_258)" +"(let-values()(if(syntax?$1 v_255)(let-values()(syntax->datum$1 v_255))(let-values() v_255)))" +"(if(syntax?$1 v_255)" +"(let-values() v_255)" +"(if(list? v_255)" "(let-values()" "(read-to-syntax" "(reverse$1" -"(let-values(((lst_184) v_258))" +"(let-values(((lst_185) v_255))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_184)))" -"((letrec-values(((for-loop_117)" +"(let-values()(check-list lst_185)))" +"((letrec-values(((for-loop_119)" "(lambda(fold-var_230 lst_285)" "(begin" " 'for-loop" "(if(pair? lst_285)" "(let-values(((e_85)(unsafe-car lst_285))" -"((rest_163)(unsafe-cdr lst_285)))" +"((rest_162)(unsafe-cdr lst_285)))" "(let-values(((fold-var_238)" "(let-values(((fold-var_239) fold-var_230))" "(let-values(((fold-var_240)" @@ -56751,20 +56929,20 @@ static const char *startup_source = "(read-coerce #t e_85 srcloc_12))" " fold-var_239))))" "(values fold-var_240)))))" -"(if(not #f)(for-loop_117 fold-var_238 rest_163) fold-var_238)))" +"(if(not #f)(for-loop_119 fold-var_238 rest_162) fold-var_238)))" " fold-var_230)))))" -" for-loop_117)" +" for-loop_119)" " null" -" lst_184))))" +" lst_185))))" " srcloc_12" " #f))" -"(if(pair? v_258)" +"(if(pair? v_255)" "(let-values()" "(read-to-syntax" -"(cons(read-coerce #t(car v_258) srcloc_12)(read-coerce #t(cdr v_258) srcloc_12))" +"(cons(read-coerce #t(car v_255) srcloc_12)(read-coerce #t(cdr v_255) srcloc_12))" " srcloc_12" " #f))" -"(let-values()(read-to-syntax v_258 srcloc_12 #f)))))))))" +"(let-values()(read-to-syntax v_255 srcloc_12 #f)))))))))" "(define-values" "(read-coerce-key)" "(lambda(for-syntax?_0 k_42)" @@ -56853,16 +57031,16 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'read-syntax/recursive \"input-port?\" in_84)))" -"(if((lambda(x_94)" -"(let-values(((or-part_298)(not x_94)))" -"(if or-part_298 or-part_298(char? x_94))))" +"(if((lambda(x_93)" +"(let-values(((or-part_298)(not x_93)))" +"(if or-part_298 or-part_298(char? x_93))))" " start_59)" "(void)" "(let-values()" " (raise-argument-error 'read-syntax/recursive \"(or/c char? #f)\" start_59)))" -"(if((lambda(x_95)" -"(let-values(((or-part_90)(not x_95)))" -"(if or-part_90 or-part_90(1/readtable? x_95))))" +"(if((lambda(x_94)" +"(let-values(((or-part_90)(not x_94)))" +"(if or-part_90 or-part_90(1/readtable? x_94))))" " readtable_7)" "(void)" "(let-values()" @@ -56915,15 +57093,15 @@ static const char *startup_source = "(if(input-port? in_80)" "(void)" " (let-values () (raise-argument-error 'read/recursive \"input-port?\" in_80)))" -"(if((lambda(x_96)" -"(let-values(((or-part_31)(not x_96)))" -"(if or-part_31 or-part_31(char? x_96))))" +"(if((lambda(x_95)" +"(let-values(((or-part_31)(not x_95)))" +"(if or-part_31 or-part_31(char? x_95))))" " start_61)" "(void)" " (let-values () (raise-argument-error 'read/recursive \"(or/c char? #f)\" start_61)))" -"(if((lambda(x_97)" -"(let-values(((or-part_158)(not x_97)))" -"(if or-part_158 or-part_158(1/readtable? x_97))))" +"(if((lambda(x_96)" +"(let-values(((or-part_158)(not x_96)))" +"(if or-part_158 or-part_158(1/readtable? x_96))))" " readtable_9)" "(void)" "(let-values()" @@ -56986,21 +57164,21 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_77)))" -"((letrec-values(((for-loop_95)" -"(lambda(table_203 lst_78)" +"((letrec-values(((for-loop_96)" +"(lambda(table_207 lst_78)" "(begin" " 'for-loop" "(if(pair? lst_78)" "(let-values(((sym_67)(unsafe-car lst_78))" "((rest_36)(unsafe-cdr lst_78)))" -"(let-values(((table_168)" -"(let-values(((table_208) table_203))" -"(let-values(((table_209)" +"(let-values(((table_170)" +"(let-values(((table_212) table_207))" +"(let-values(((table_213)" "(let-values()" "(let-values(((key_33" " val_80)" "(let-values()" -"(let-values(((binding_25)" +"(let-values(((binding_26)" "(let-values(((mpi10_0)" " mpi_49)" "((temp11_6)" @@ -57027,20 +57205,20 @@ static const char *startup_source = " sym_67" " #f)" "(provided1.1" -" binding_25" +" binding_26" " #t" " #f)" -" binding_25))))))" +" binding_26))))))" "(hash-set" -" table_208" +" table_212" " key_33" " val_80)))))" -"(values table_209)))))" +"(values table_213)))))" "(if(not #f)" -"(for-loop_95 table_168 rest_36)" -" table_168)))" -" table_203)))))" -" for-loop_95)" +"(for-loop_96 table_170 rest_36)" +" table_170)))" +" table_207)))))" +" for-loop_96)" " '#hash()" " lst_77)))))" "((temp9_7)" @@ -57065,7 +57243,7 @@ static const char *startup_source = " 'for-loop" "(if(pair? lst_258)" "(let-values(((sym_101)(unsafe-car lst_258))" -"((rest_180)(unsafe-cdr lst_258)))" +"((rest_179)(unsafe-cdr lst_258)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -57084,7 +57262,7 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_20 rest_180)" +"(for-loop_20 rest_179)" "(values))))" "(values))))))" " for-loop_20)" @@ -57128,7 +57306,7 @@ static const char *startup_source = " 1/make-exn:fail:filesystem:missing-module" " 1/exn:fail:filesystem:missing-module?" " 1/exn:fail:filesystem:missing-module-path)" -"(let-values(((struct:_83 make-_83 ?_83 -ref_83 -set!_83)" +"(let-values(((struct:_84 make-_84 ?_84 -ref_84 -set!_84)" "(let-values()" "(let-values()" "(make-struct-type" @@ -57144,13 +57322,13 @@ static const char *startup_source = " '(0)" " #f" " 'exn:fail:filesystem:missing-module)))))" -"(values struct:_83 make-_83 ?_83(make-struct-field-accessor -ref_83 0 'path))))" +"(values struct:_84 make-_84 ?_84(make-struct-field-accessor -ref_84 0 'path))))" "(define-values" "(1/struct:exn:fail:syntax:missing-module" " 1/make-exn:fail:syntax:missing-module" " 1/exn:fail:syntax:missing-module?" " 1/exn:fail:syntax:missing-module-path)" -"(let-values(((struct:_67 make-_67 ?_67 -ref_67 -set!_67)" +"(let-values(((struct:_68 make-_68 ?_68 -ref_68 -set!_68)" "(let-values()" "(let-values()" "(make-struct-type" @@ -57166,18 +57344,18 @@ static const char *startup_source = " '(0)" " #f" " 'exn:fail:syntax:missing-module)))))" -"(values struct:_67 make-_67 ?_67(make-struct-field-accessor -ref_67 0 'path))))" +"(values struct:_68 make-_68 ?_68(make-struct-field-accessor -ref_68 0 'path))))" "(define-values" "(1/current-module-path-for-load)" "(make-parameter" " #f" -"(lambda(v_237)" +"(lambda(v_234)" "(begin" -"(if(let-values(((or-part_67)(not v_237)))" +"(if(let-values(((or-part_67)(not v_234)))" "(if or-part_67" " or-part_67" -"(let-values(((or-part_68)(1/module-path? v_237)))" -"(if or-part_68 or-part_68(if(syntax?$1 v_237)(1/module-path?(syntax->datum$1 v_237)) #f)))))" +"(let-values(((or-part_68)(1/module-path? v_234)))" +"(if or-part_68 or-part_68(if(syntax?$1 v_234)(1/module-path?(syntax->datum$1 v_234)) #f)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -57186,8 +57364,8 @@ static const char *startup_source = " \"(or/c module-path?\"" " \" (and/c syntax? (lambda (stx) (module-path? (syntax->datum stx))))\"" " \" #f)\")" -" v_237)))" -" v_237))))" +" v_234)))" +" v_234))))" "(define-values" "(maybe-raise-missing-module)" "(lambda(name_73 filename_0 pre_0 rel_0 post_0 errstr_0)" @@ -57265,7 +57443,7 @@ static const char *startup_source = " stop-ids56_0" " intdefs57_0)))))))))))" "(case-lambda" -"((s_447 context_11 stop-ids_3)(begin 'local-expand(local-expand5_0 s_447 context_11 stop-ids_3 '())))" +"((s_446 context_11 stop-ids_3)(begin 'local-expand(local-expand5_0 s_446 context_11 stop-ids_3 '())))" "((s_75 context_12 stop-ids_4 intdefs1_1)(local-expand5_0 s_75 context_12 stop-ids_4 intdefs1_1)))))" "(define-values" "(1/local-expand/capture-lifts)" @@ -57273,7 +57451,7 @@ static const char *startup_source = "(lambda(s9_1 context10_0 stop-ids11_0 intdefs7_0 lift-key8_0)" "(begin" " 'local-expand/capture-lifts12" -"(let-values(((s_491) s9_1))" +"(let-values(((s_490) s9_1))" "(let-values(((context_13) context10_0))" "(let-values(((stop-ids_5) stop-ids11_0))" "(let-values(((intdefs_5) intdefs7_0))" @@ -57281,7 +57459,7 @@ static const char *startup_source = "(if(eq? lift-key8_0 unsafe-undefined)(generate-lift-key) lift-key8_0)))" "(let-values()" "(let-values(((temp58_3) 'local-expand)" -"((s59_0) s_491)" +"((s59_0) s_490)" "((context60_0) context_13)" "((stop-ids61_0) stop-ids_5)" "((intdefs62_0) intdefs_5)" @@ -57305,10 +57483,10 @@ static const char *startup_source = "(begin" " 'local-expand/capture-lifts" "(local-expand/capture-lifts12_0 s_41 context_14 stop-ids_6 '() unsafe-undefined)))" -"((s_86 context_15 stop-ids_7 intdefs_6 lift-key8_1)" -"(local-expand/capture-lifts12_0 s_86 context_15 stop-ids_7 intdefs_6 lift-key8_1))" -"((s_431 context_16 stop-ids_8 intdefs7_1)" -"(local-expand/capture-lifts12_0 s_431 context_16 stop-ids_8 intdefs7_1 unsafe-undefined)))))" +"((s_87 context_15 stop-ids_7 intdefs_6 lift-key8_1)" +"(local-expand/capture-lifts12_0 s_87 context_15 stop-ids_7 intdefs_6 lift-key8_1))" +"((s_430 context_16 stop-ids_8 intdefs7_1)" +"(local-expand/capture-lifts12_0 s_430 context_16 stop-ids_8 intdefs7_1 unsafe-undefined)))))" "(define-values" "(1/local-transformer-expand)" "(let-values(((local-transformer-expand18_0)" @@ -57342,15 +57520,15 @@ static const char *startup_source = "(case-lambda" "((s_187 context_18 stop-ids_10)" "(begin 'local-transformer-expand(local-transformer-expand18_0 s_187 context_18 stop-ids_10 '())))" -"((s_492 context_19 stop-ids_11 intdefs14_1)" -"(local-transformer-expand18_0 s_492 context_19 stop-ids_11 intdefs14_1)))))" +"((s_491 context_19 stop-ids_11 intdefs14_1)" +"(local-transformer-expand18_0 s_491 context_19 stop-ids_11 intdefs14_1)))))" "(define-values" "(1/local-transformer-expand/capture-lifts)" "(let-values(((local-transformer-expand/capture-lifts25_0)" "(lambda(s22_1 context23_0 stop-ids24_0 intdefs20_0 lift-key21_0)" "(begin" " 'local-transformer-expand/capture-lifts25" -"(let-values(((s_91) s22_1))" +"(let-values(((s_92) s22_1))" "(let-values(((context_20) context23_0))" "(let-values(((stop-ids_12) stop-ids24_0))" "(let-values(((intdefs_8) intdefs20_0))" @@ -57358,7 +57536,7 @@ static const char *startup_source = "(if(eq? lift-key21_0 unsafe-undefined)(generate-lift-key) lift-key21_0)))" "(let-values()" "(let-values(((temp71_3) 'local-expand)" -"((s72_1) s_91)" +"((s72_1) s_92)" "((context73_0) context_20)" "((stop-ids74_0) stop-ids_12)" "((intdefs75_0) intdefs_8)" @@ -57383,22 +57561,22 @@ static const char *startup_source = "(begin" " 'local-transformer-expand/capture-lifts" "(local-transformer-expand/capture-lifts25_0 s_19 context_21 stop-ids_13 '() unsafe-undefined)))" -"((s_450 context_22 stop-ids_14 intdefs_9 lift-key21_1)" -"(local-transformer-expand/capture-lifts25_0 s_450 context_22 stop-ids_14 intdefs_9 lift-key21_1))" -"((s_493 context_23 stop-ids_15 intdefs20_1)" -"(local-transformer-expand/capture-lifts25_0 s_493 context_23 stop-ids_15 intdefs20_1 unsafe-undefined)))))" +"((s_449 context_22 stop-ids_14 intdefs_9 lift-key21_1)" +"(local-transformer-expand/capture-lifts25_0 s_449 context_22 stop-ids_14 intdefs_9 lift-key21_1))" +"((s_492 context_23 stop-ids_15 intdefs20_1)" +"(local-transformer-expand/capture-lifts25_0 s_492 context_23 stop-ids_15 intdefs20_1 unsafe-undefined)))))" "(define-values" "(1/syntax-local-expand-expression)" "(let-values(((syntax-local-expand-expression29_0)" "(lambda(s28_1 opaque-only?27_0)" "(begin" " 'syntax-local-expand-expression29" -"(let-values(((s_494) s28_1))" +"(let-values(((s_493) s28_1))" "(let-values(((opaque-only?_0) opaque-only?27_0))" "(let-values()" "(let-values(((exp-s_11)" "(let-values(((temp79_0) 'syntax-local-expand-expression)" -"((s80_2) s_494)" +"((s80_2) s_493)" "((temp81_3) 'expression)" "((null82_0) null)" "((temp83_3) #f)" @@ -57442,7 +57620,7 @@ static const char *startup_source = "(values(if(not opaque-only?_0) exp-s_11 #f) ae_1))))))))))))" "(case-lambda" "((s_46)(begin 'syntax-local-expand-expression(syntax-local-expand-expression29_0 s_46 #f)))" -"((s_485 opaque-only?27_1)(syntax-local-expand-expression29_0 s_485 opaque-only?27_1)))))" +"((s_484 opaque-only?27_1)(syntax-local-expand-expression29_0 s_484 opaque-only?27_1)))))" "(define-values" "(do-local-expand50.1)" "(lambda(as-transformer?32_0" @@ -57479,7 +57657,7 @@ static const char *startup_source = "(let-values(((skip-log-exit?_0) skip-log-exit?37_0))" "(let-values()" "(let-values()" -"(let-values(((s_495)(datum->syntax$1 #f s-or-s-exp_0)))" +"(let-values(((s_494)(datum->syntax$1 #f s-or-s-exp_0)))" "(let-values((()" "(begin" "(if(let-values(((or-part_368)(list? context_24)))" @@ -57575,12 +57753,12 @@ static const char *startup_source = "(call-expand-observe" " obs_7" " 'enter-local" -" s_495)))" +" s_494)))" "(void)))" "(values))))" "(let-values(((input-s_1)" "(let-values(((temp97_2)" -"(flip-introduction-scopes s_495 ctx_73))" +"(flip-introduction-scopes s_494 ctx_73))" "((intdefs98_0) intdefs_10))" "(add-intdef-scopes24.1" " unsafe-undefined" @@ -57785,25 +57963,25 @@ static const char *startup_source = "(let-values()" "(taint-dispatch" " s_2" -"(lambda(s_440)(syntax-arm$1 s_440 insp_21))" +"(lambda(s_439)(syntax-arm$1 s_439 insp_21))" "(1/syntax-local-phase-level)))" "(let-values()(syntax-arm$1 s_2 insp_21))))))))))))))))" "(case-lambda" -"((s_496)(begin 'syntax-arm(syntax-arm4_0 s_496 #f #f)))" -"((s_447 maybe-insp_1 use-mode?2_1)(syntax-arm4_0 s_447 maybe-insp_1 use-mode?2_1))" +"((s_495)(begin 'syntax-arm(syntax-arm4_0 s_495 #f #f)))" +"((s_446 maybe-insp_1 use-mode?2_1)(syntax-arm4_0 s_446 maybe-insp_1 use-mode?2_1))" "((s_75 maybe-insp1_1)(syntax-arm4_0 s_75 maybe-insp1_1 #f)))))" "(define-values" "(1/syntax-disarm)" -"(lambda(s_497 maybe-insp_2)" +"(lambda(s_496 maybe-insp_2)" "(begin" " 'syntax-disarm" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_497)" +"(if(syntax?$1 s_496)" "(void)" -" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_497)))" +" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_496)))" "(values))))" "(let-values((()" "(begin" @@ -57812,7 +57990,7 @@ static const char *startup_source = "(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_497 insp_22)))))))))" +"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_496 insp_22)))))))))" "(define-values" "(1/syntax-rearm)" "(let-values(((syntax-rearm9_0)" @@ -57841,7 +58019,7 @@ static const char *startup_source = "(let-values()(syntax-rearm$1 s_180 from-s_2))))))))))))))" "(case-lambda" "((s_181 from-s_3)(begin 'syntax-rearm(syntax-rearm9_0 s_181 from-s_3 #f)))" -"((s_442 from-s_4 use-mode?6_1)(syntax-rearm9_0 s_442 from-s_4 use-mode?6_1)))))" +"((s_441 from-s_4 use-mode?6_1)(syntax-rearm9_0 s_441 from-s_4 use-mode?6_1)))))" "(define-values" "(1/syntax-taint)" "(lambda(s_5)" @@ -58337,18 +58515,18 @@ static const char *startup_source = "(let-values(((prims_0)(1/primitive-table name_74)))" "(let-values((()" "(begin" -"(let-values(((ht_152) prims_0))" +"(let-values(((ht_156) prims_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_152)))" +"(let-values()(check-in-hash-keys ht_156)))" "((letrec-values(((for-loop_17)" -"(lambda(i_178)" +"(lambda(i_177)" "(begin" " 'for-loop" -"(if i_178" +"(if i_177" "(let-values(((sym_64)" -"(hash-iterate-key ht_152 i_178)))" +"(hash-iterate-key ht_156 i_177)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -58361,31 +58539,31 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_17" -"(hash-iterate-next ht_152 i_178))" +"(hash-iterate-next ht_156 i_177))" "(values))))" "(values))))))" " for-loop_17)" -"(hash-iterate-first ht_152))))" +"(hash-iterate-first ht_156))))" "(values))))" "(let-values()" -"(let-values(((ht_153)" -"(let-values(((ht_154) prims_0))" +"(let-values(((ht_157)" +"(let-values(((ht_158) prims_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_154)))" -"((letrec-values(((for-loop_246)" -"(lambda(table_210 i_98)" +"(let-values()(check-in-hash ht_158)))" +"((letrec-values(((for-loop_245)" +"(lambda(table_214 i_100)" "(begin" " 'for-loop" -"(if i_98" +"(if i_100" "(let-values(((sym_92 val_82)" "(hash-iterate-key+value" -" ht_154" -" i_98)))" -"(let-values(((table_211)" +" ht_158" +" i_100)))" +"(let-values(((table_215)" "(let-values(((table_10)" -" table_210))" +" table_214))" "(if(set-member?" " skip-syms_0" " sym_92)" @@ -58413,48 +58591,48 @@ static const char *startup_source = " val_5)))))" "(values table_12)))))))" "(if(not #f)" -"(for-loop_246" -" table_211" -"(hash-iterate-next ht_154 i_98))" -" table_211)))" -" table_210)))))" -" for-loop_246)" +"(for-loop_245" +" table_215" +"(hash-iterate-next ht_158 i_100))" +" table_215)))" +" table_214)))))" +" for-loop_245)" " '#hasheq()" -"(hash-iterate-first ht_154))))))" +"(hash-iterate-first ht_158))))))" "(let-values(((ht+extras_0)" -"(let-values(((ht_141) extras_0))" +"(let-values(((ht_146) extras_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_141)))" -"((letrec-values(((for-loop_251)" -"(lambda(ht_149 i_172)" +"(let-values()(check-in-hash ht_146)))" +"((letrec-values(((for-loop_250)" +"(lambda(ht_153 i_171)" "(begin" " 'for-loop" -"(if i_172" +"(if i_171" "(let-values(((k_43 v_48)" "(hash-iterate-key+value" -" ht_141" -" i_172)))" -"(let-values(((ht_155)" -"(let-values(((ht_156)" -" ht_149))" -"(let-values(((ht_157)" +" ht_146" +" i_171)))" +"(let-values(((ht_159)" +"(let-values(((ht_160)" +" ht_153))" +"(let-values(((ht_161)" "(let-values()" "(hash-set" -" ht_156" +" ht_160" " k_43" " v_48))))" -"(values ht_157)))))" +"(values ht_161)))))" "(if(not #f)" -"(for-loop_251" -" ht_155" -"(hash-iterate-next ht_141 i_172))" -" ht_155)))" -" ht_149)))))" -" for-loop_251)" -" ht_153" -"(hash-iterate-first ht_141))))))" +"(for-loop_250" +" ht_159" +"(hash-iterate-next ht_146 i_171))" +" ht_159)))" +" ht_153)))))" +" for-loop_250)" +" ht_157" +"(hash-iterate-first ht_146))))))" "(let-values(((to-name61_0) to-name_0)" "((ht+extras62_0) ht+extras_0)" "((ns63_0) ns_119)" @@ -58474,7 +58652,7 @@ static const char *startup_source = "(begin" " 'declare-hash-based-module!41" "(let-values(((name_75) name39_0))" -"(let-values(((ht_158) ht40_0))" +"(let-values(((ht_162) ht40_0))" "(let-values(((ns_120) namespace29_0))" "(let-values(((primitive?_10) primitive?30_0))" "(let-values(((protected?_11) protected?31_0))" @@ -58492,24 +58670,24 @@ static const char *startup_source = "((temp74_3)" "(hasheqv" " 0" -"(let-values(((ht_159) ht_158))" +"(let-values(((ht_163) ht_162))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_159)))" -"((letrec-values(((for-loop_279)" -"(lambda(table_212 i_179)" +"(let-values()(check-in-hash-keys ht_163)))" +"((letrec-values(((for-loop_278)" +"(lambda(table_216 i_178)" "(begin" " 'for-loop" -"(if i_179" +"(if i_178" "(let-values(((sym_102)" "(hash-iterate-key" -" ht_159" -" i_179)))" +" ht_163" +" i_178)))" "(let-values(((table_6)" "(let-values(((table_7)" -" table_212))" -"(let-values(((table_213)" +" table_216))" +"(let-values(((table_217)" "(let-values()" "(let-values(((key_86" " val_83)" @@ -58522,7 +58700,7 @@ static const char *startup_source = " sym_102))" "(void))" "(values))))" -"(let-values(((binding_26)" +"(let-values(((binding_27)" "(let-values(((mpi76_0)" " mpi_5)" "((temp77_3)" @@ -58552,27 +58730,27 @@ static const char *startup_source = " sym_102" " protected-syms_0)))" "(provided1.1" -" binding_26" +" binding_27" " #t" " #f)" -" binding_26)))))))" +" binding_27)))))))" "(hash-set" " table_7" " key_86" " val_83)))))" "(values" -" table_213)))))" +" table_217)))))" "(if(not #f)" -"(for-loop_279" +"(for-loop_278" " table_6" "(hash-iterate-next" -" ht_159" -" i_179))" +" ht_163" +" i_178))" " table_6)))" -" table_212)))))" -" for-loop_279)" +" table_216)))))" +" for-loop_278)" " '#hash()" -"(hash-iterate-first ht_159))))))" +"(hash-iterate-first ht_163))))))" "((temp75_4)" "(lambda(data-box_6" " ns_121" @@ -58584,21 +58762,21 @@ static const char *startup_source = "(if(= 0 phase-level_23)" "(let-values()" "(begin" -"(let-values(((ht_160) ht_158))" +"(let-values(((ht_164) ht_162))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_160)))" -"((letrec-values(((for-loop_280)" -"(lambda(i_180)" +"(let-values()(check-in-hash ht_164)))" +"((letrec-values(((for-loop_279)" +"(lambda(i_179)" "(begin" " 'for-loop" -"(if i_180" +"(if i_179" "(let-values(((sym_103 val_84)" "(hash-iterate-key+value" -" ht_160" -" i_180)))" +" ht_164" +" i_179)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -58613,14 +58791,14 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_280" +"(for-loop_279" "(hash-iterate-next" -" ht_160" -" i_180))" +" ht_164" +" i_179))" "(values))))" "(values))))))" -" for-loop_280)" -"(hash-iterate-first ht_160))))" +" for-loop_279)" +"(hash-iterate-first ht_164))))" "(void)))" "(void)))))" "(make-module39.1" @@ -58662,15 +58840,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_109)))" -"((letrec-values(((for-loop_206)" -"(lambda(fold-var_138 lst_110)" +"((letrec-values(((for-loop_205)" +"(lambda(fold-var_140 lst_110)" "(begin" " 'for-loop" "(if(pair? lst_110)" "(let-values(((require-name_0)(unsafe-car lst_110))" "((rest_109)(unsafe-cdr lst_110)))" "(let-values(((fold-var_39)" -"(let-values(((fold-var_282) fold-var_138))" +"(let-values(((fold-var_282) fold-var_140))" "(let-values(((fold-var_283)" "(let-values()" "(cons" @@ -58683,10 +58861,10 @@ static const char *startup_source = " fold-var_282))))" "(values fold-var_283)))))" "(if(not #f)" -"(for-loop_206 fold-var_39 rest_109)" +"(for-loop_205 fold-var_39 rest_109)" " fold-var_39)))" -" fold-var_138)))))" -" for-loop_206)" +" fold-var_140)))))" +" for-loop_205)" " null" " lst_109))))))" "(let-values(((ns79_1) ns_122)" @@ -58699,21 +58877,21 @@ static const char *startup_source = "(if reexport?_0" "(hasheqv" " 0" -"(let-values(((lst_156) require-mpis_0))" +"(let-values(((lst_157) require-mpis_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_156)))" -"((letrec-values(((for-loop_281)" -"(lambda(table_214 lst_54)" +"(let-values()(check-list lst_157)))" +"((letrec-values(((for-loop_280)" +"(lambda(table_218 lst_54)" "(begin" " 'for-loop" "(if(pair? lst_54)" "(let-values(((require-mpi_0)" "(unsafe-car lst_54))" -"((rest_181)" +"((rest_180)" "(unsafe-cdr lst_54)))" -"(let-values(((table_33)" +"(let-values(((table_219)" "(let-values(((m_29)" "(namespace->module" " ns_122" @@ -58722,12 +58900,12 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_185)" -"(lambda(table_141)" +"(lambda(table_140)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_215)" -"(let-values(((ht_161)" +"(let-values(((table_220)" +"(let-values(((ht_165)" "(hash-ref" "(shift-provides-module-path-index" "(module-provides" @@ -58742,58 +58920,58 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_161)))" -"((letrec-values(((for-loop_282)" -"(lambda(table_142" -" i_181)" +" ht_165)))" +"((letrec-values(((for-loop_281)" +"(lambda(table_141" +" i_180)" "(begin" " 'for-loop" -"(if i_181" +"(if i_180" "(let-values(((sym_104" -" binding_27)" +" binding_28)" "(hash-iterate-key+value" -" ht_161" -" i_181)))" +" ht_165" +" i_180)))" "(let-values(((table_31)" "(let-values(((table_32)" -" table_142))" -"(let-values(((table_35)" +" table_141))" +"(let-values(((table_221)" "(let-values()" "(let-values(((key_87" " val_85)" "(let-values()" "(values" " sym_104" -" binding_27))))" +" binding_28))))" "(hash-set" " table_32" " key_87" " val_85)))))" "(values" -" table_35)))))" +" table_221)))))" "(if(not" " #f)" -"(for-loop_282" +"(for-loop_281" " table_31" "(hash-iterate-next" -" ht_161" -" i_181))" +" ht_165" +" i_180))" " table_31)))" -" table_142)))))" -" for-loop_282)" -" table_141" -"(hash-iterate-first" -" ht_161))))))" -" table_215))))))" -" for-loop_185)" -" table_214)))))" -"(if(not #f)" -"(for-loop_281 table_33 rest_181)" -" table_33)))" -" table_214)))))" +" table_141)))))" " for-loop_281)" +" table_140" +"(hash-iterate-first" +" ht_165))))))" +" table_220))))))" +" for-loop_185)" +" table_218)))))" +"(if(not #f)" +"(for-loop_280 table_219 rest_180)" +" table_219)))" +" table_218)))))" +" for-loop_280)" " '#hash()" -" lst_156))))" +" lst_157))))" " '#hasheqv()))" "((void87_0) void))" "(make-module39.1" @@ -58878,13 +59056,13 @@ static const char *startup_source = "(let-values()" "(case-lambda" "((s_72)(begin 'eval((1/current-eval)(intro s_72))))" -"((s_188 ns_123)" +"((s_189 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_188 ns_123))))))))))" +"(let-values()((1/current-eval)(intro s_189 ns_123))))))))))" "(define-values" "(1/eval-syntax)" "(let-values()" @@ -58907,26 +59085,26 @@ static const char *startup_source = "(define-values(compile$1)(lambda(s_177)(begin 'compile((1/current-compile)(intro s_177) #f))))" "(define-values" "(1/compile-syntax)" -"(lambda(s_498)" +"(lambda(s_497)" "(begin" " 'compile-syntax" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_498) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_498)))" -"((1/current-compile) s_498 #f)))))))" +" (if (syntax?$1 s_497) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_497)))" +"((1/current-compile) s_497 #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_440)" +"(lambda(s_439)" "(begin" " 'expand-syntax" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_440) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_440)))" -"(expand$1 s_440(1/current-namespace) #t)))))))" -"(define-values(1/expand-once)(lambda(s_447)(begin 'expand-once(expand-once$1(intro s_447)))))" +" (if (syntax?$1 s_439) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_439)))" +"(expand$1 s_439(1/current-namespace) #t)))))))" +"(define-values(1/expand-once)(lambda(s_446)(begin 'expand-once(expand-once$1(intro s_446)))))" "(define-values" "(1/expand-syntax-once)" "(lambda(s_178)" @@ -59131,10 +59309,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_98)(TH-place-channel-ref x_98 0))))))" +"(make-struct-type 'TH-place-channel #f 2 0 #f(list(cons prop:evt(lambda(x_97)(TH-place-channel-ref x_97 0))))))" "(define-values" "(TH-place-channel-in TH-place-channel-out)" -"(values(lambda(x_99)(TH-place-channel-ref x_99 0))(lambda(x_85)(TH-place-channel-ref x_85 1))))" +"(values(lambda(x_98)(TH-place-channel-ref x_98 0))(lambda(x_84)(TH-place-channel-ref x_84 1))))" "(define-values" "(place-struct-primitives)" "(hasheq" @@ -59331,25 +59509,25 @@ static const char *startup_source = "(let-values()" "((call-with-input-module-file" " path_12" -"(lambda(i_182)" +"(lambda(i_181)" "(begin" -"(maybe-count-lines!_0 i_182)" +"(maybe-count-lines!_0 i_181)" "(with-module-reading-parameterization+delay-source" " path_12" "(lambda()" -"(let-values(((c1_32)(linklet-directory-start i_182)))" +"(let-values(((c1_32)(linklet-directory-start i_181)))" "(if c1_32" "((lambda(pos_123)" "(let-values(((b-pos_0)" -"(search-directory i_182 pos_123(encode-symbols expected-mod_0))))" +"(search-directory i_181 pos_123(encode-symbols expected-mod_0))))" "(if b-pos_0" "(let-values()" "(begin" -"(file-position i_182 b-pos_0)" -"(let-values(((or-part_12)(cached-bundle i_182)))" +"(file-position i_181 b-pos_0)" +"(let-values(((or-part_12)(cached-bundle i_181)))" "(if or-part_12" " or-part_12" -"(let-values(((v_0)(1/read i_182)))" +"(let-values(((v_0)(1/read i_181)))" "(if(1/compiled-module-expression? v_0)" "(lambda()((1/current-eval) v_0))" "(error" @@ -59358,7 +59536,7 @@ static const char *startup_source = " \"expected a compiled module\\n\"" " \" in: ~e\\n\"" " \" found: ~e\")" -"(object-name i_182)" +"(object-name i_181)" " v_0)))))))" "(if(pair? expected-mod_0)" "(let-values() void)" @@ -59366,15 +59544,15 @@ static const char *startup_source = "(error" " 'default-load-handler" " (string-append \"could not find main module\\n\" \" in: ~e\")" -"(object-name i_182)))))))" +"(object-name i_181)))))))" " c1_32)" "(if(if(pair? expected-mod_0)(not(car expected-mod_0)) #f)" "(let-values() void)" -"(let-values(((c2_17)(cached-bundle i_182)))" +"(let-values(((c2_17)(cached-bundle i_181)))" "(if c2_17" "((lambda(thunk_8) thunk_8) c2_17)" "(let-values()" -"(let-values(((s_178)(1/read-syntax(object-name i_182) i_182)))" +"(let-values(((s_178)(1/read-syntax(object-name i_181) i_181)))" "(let-values((()" "(begin" "(if(eof-object? s_178)" @@ -59385,11 +59563,11 @@ static const char *startup_source = " \"expected a `module' declaration;\\n\"" " \" found end-of-file\\n\"" " \" in: ~e\")" -"(object-name i_182)))" +"(object-name i_181)))" "(void))" "(values))))" "(let-values(((m-s_0)(check-module-form s_178 path_12)))" -"(let-values(((s2_10)(1/read-syntax(object-name i_182) i_182)))" +"(let-values(((s2_10)(1/read-syntax(object-name i_181) i_181)))" "(begin" "(if(eof-object? s2_10)" "(void)" @@ -59401,23 +59579,23 @@ static const char *startup_source = " \" found an extra form\\n\"" " \" in: ~e\\n\"" " \" found: ~.s\")" -"(object-name i_182)" +"(object-name i_181)" " s2_10)))" "(lambda()((1/current-eval) m-s_0))))))))))))))))))))" "(let-values()" "(let-values(((add-top-interaction_0)" -"(lambda(s_497)" +"(lambda(s_496)" "(begin" " 'add-top-interaction" "(1/namespace-syntax-introduce" -"(1/datum->syntax #f(cons '#%top-interaction s_497) s_497))))))" +"(1/datum->syntax #f(cons '#%top-interaction s_496) s_496))))))" "(let-values(((path1_0) path_12)" "((temp2_8)" -"(lambda(i_183)" +"(lambda(i_182)" "(begin" " 'temp2" "(begin" -"(maybe-count-lines!_0 i_183)" +"(maybe-count-lines!_0 i_182)" "((letrec-values(((loop_35)" "(lambda(vals_7)" "(begin" @@ -59447,11 +59625,11 @@ static const char *startup_source = "(path->complete-path path_12))" "(let-values()" "(1/read-syntax" -"(object-name i_183)" -" i_183)))" +"(object-name i_182)" +" i_182)))" "(1/read-syntax" -"(object-name i_183)" -" i_183))))))" +"(object-name i_182)" +" i_182))))))" "(if(eof-object? s_304)" "(apply values vals_7)" "(loop_35" @@ -59486,14 +59664,14 @@ static const char *startup_source = " #f)))))" "(define-values" "(linklet-directory-start)" -"(lambda(i_152)" -"(begin(let-values(((pos_95)(linklet-bundle-or-directory-start i_152 '#\\D)))(if pos_95(+ pos_95 4) #f)))))" +"(lambda(i_92)" +"(begin(let-values(((pos_95)(linklet-bundle-or-directory-start i_92 '#\\D)))(if pos_95(+ pos_95 4) #f)))))" "(define-values" "(linklet-bundle-hash-code)" -"(lambda(i_184)" +"(lambda(i_183)" "(begin" -"(let-values(((pos_15)(linklet-bundle-or-directory-start i_184 '#\\B)))" -"(let-values(((hash-code_5)(if pos_15(peek-bytes 20 pos_15 i_184) #f)))" +"(let-values(((pos_15)(linklet-bundle-or-directory-start i_183 '#\\B)))" +"(let-values(((hash-code_5)(if pos_15(peek-bytes 20 pos_15 i_183) #f)))" "(if(bytes? hash-code_5)" "(if(= 20(bytes-length hash-code_5))" "(if(let-values(((vec_70 len_37)" @@ -59501,23 +59679,23 @@ static const char *startup_source = "(begin(check-bytes vec_71)(values vec_71(unsafe-bytes-length vec_71))))))" "(begin" " #f" -"((letrec-values(((for-loop_234)" -"(lambda(result_126 pos_99)" +"((letrec-values(((for-loop_233)" +"(lambda(result_124 pos_99)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_99 len_37)" "(let-values(((c_52)(unsafe-bytes-ref vec_70 pos_99)))" -"(let-values(((result_127)" +"(let-values(((result_125)" "(let-values()" -"(let-values(((result_128)" +"(let-values(((result_126)" "(let-values()" "(let-values()(not(eq? c_52 0))))))" -"(values result_128)))))" -"(if(if(not((lambda x_100 result_127) c_52))(not #f) #f)" -"(for-loop_234 result_127(unsafe-fx+ 1 pos_99))" -" result_127)))" -" result_126)))))" -" for-loop_234)" +"(values result_126)))))" +"(if(if(not((lambda x_99 result_125) c_52))(not #f) #f)" +"(for-loop_233 result_125(unsafe-fx+ 1 pos_99))" +" result_125)))" +" result_124)))))" +" for-loop_233)" " #f" " 0)))" " hash-code_5" @@ -59526,9 +59704,9 @@ static const char *startup_source = " #f))))))" "(define-values" "(cached-bundle)" -"(lambda(i_94)" +"(lambda(i_96)" "(begin" -"(let-values(((c3_10)(module-cache-ref(make-module-cache-key(linklet-bundle-hash-code i_94)))))" +"(let-values(((c3_10)(module-cache-ref(make-module-cache-key(linklet-bundle-hash-code i_96)))))" "(if c3_10" "((lambda(declare-module_0)(lambda()(declare-module_0(1/current-namespace)))) c3_10)" "(let-values() #f))))))" @@ -59537,10 +59715,10 @@ static const char *startup_source = "(lambda(i_62)" "(begin" "(let-values(((read-byte/not-eof_0)" -"(lambda(i_185)" +"(lambda(i_184)" "(begin" " 'read-byte/not-eof" -"(let-values(((v_188)(read-byte i_185)))(if(eof-object? v_188) 0 v_188))))))" +"(let-values(((v_186)(read-byte i_184)))(if(eof-object? v_186) 0 v_186))))))" "(bitwise-ior" "(read-byte/not-eof_0 i_62)" "(arithmetic-shift(read-byte/not-eof_0 i_62) 8)" @@ -59548,16 +59726,16 @@ static const char *startup_source = "(arithmetic-shift(read-byte/not-eof_0 i_62) 24))))))" "(define-values" "(search-directory)" -"(lambda(i_186 pos_124 bstr_5)" +"(lambda(i_185 pos_124 bstr_5)" "(begin" "(if(zero? pos_124)" "(let-values() #f)" "(let-values()" -"(let-values((()(begin(file-position i_186 pos_124)(values))))" -"(let-values(((name-len_0)(read-number i_186)))" -"(let-values(((v_259)(read-bytes name-len_0 i_186)))" +"(let-values((()(begin(file-position i_185 pos_124)(values))))" +"(let-values(((name-len_0)(read-number i_185)))" +"(let-values(((v_256)(read-bytes name-len_0 i_185)))" "(begin" -"(if(if(bytes? v_259)(=(bytes-length v_259) name-len_0) #f)" +"(if(if(bytes? v_256)(=(bytes-length v_256) name-len_0) #f)" "(void)" "(let-values()" "(error" @@ -59568,24 +59746,24 @@ static const char *startup_source = " \" at position: ~a\\n\"" " \" expected bytes: ~a\\n\"" " \" read bytes: ~e\")" -"(object-name i_186)" +"(object-name i_185)" " pos_124" " name-len_0" -" v_259)))" -"(if(bytes=? bstr_5 v_259)" -"(let-values()(read-number i_186))" -"(if(bytesbytes orig-file_0)))" -"(let-values(((len_41)(bytes-length b_91)))" +"(let-values(((b_92)(path->bytes orig-file_0)))" +"(let-values(((len_41)(bytes-length b_92)))" "(if(if(>= len_41 4)" -" (bytes=? #\".rkt\" (subbytes b_91 (- len_41 4)))" +" (bytes=? #\".rkt\" (subbytes b_92 (- len_41 4)))" " #f)" "(let-values()" "(values" " orig-file_0" "(bytes->path" -" (bytes-append (subbytes b_91 0 (- len_41 4)) #\".ss\"))))" +" (bytes-append (subbytes b_92 0 (- len_41 4)) #\".ss\"))))" "(let-values()(values orig-file_0 #f)))))" "(values orig-file_0 #f))))" "(let-values(((path_16)" @@ -60017,7 +60195,7 @@ static const char *startup_source = "(begin(let-values(((e_87)(hash-ref -module-hash-table-table reg_0 #f)))(if e_87(ephemeron-value e_87) #f)))))" "(define-values" "(registry-table-set!)" -"(lambda(reg_1 v_207)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_207)))))" +"(lambda(reg_1 v_205)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_205)))))" "(define-values(CACHE-N) 512)" "(define-values(-path-cache)(make-vector CACHE-N #f))" "(define-values" @@ -60030,23 +60208,23 @@ static const char *startup_source = "(if l_84(let-values(((a_74)(1/assoc p_47 l_84)))(if a_74(cdr a_74) #f)) #f)))))))" "(define-values" "(path-cache-set!)" -"(lambda(p_78 v_260)" +"(lambda(p_78 v_257)" "(begin" -"(let-values(((i_169)(modulo(abs(equal-hash-code p_78)) CACHE-N)))" -"(let-values(((w_2)(vector-ref -path-cache i_169)))" +"(let-values(((i_166)(modulo(abs(equal-hash-code p_78)) CACHE-N)))" +"(let-values(((w_2)(vector-ref -path-cache i_166)))" "(let-values(((l_19)(if w_2(weak-box-value w_2) #f)))" "(vector-set!" " -path-cache" -" i_169" +" i_166" "(make-weak-box" -"(cons(cons p_78 v_260)(let-values(((or-part_65) l_19))(if or-part_65 or-part_65 null)))))))))))" +"(cons(cons p_78 v_257)(let-values(((or-part_65) l_19))(if or-part_65 or-part_65 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_499 coll-mode?_0)" +"(lambda(s_498 coll-mode?_0)" "(begin" "(let-values(((l_85)" "((letrec-values(((loop_46)" @@ -60055,21 +60233,21 @@ static const char *startup_source = " 'loop" "(let-values(((len_42)(string-length s_305)))" "((letrec-values(((iloop_2)" -"(lambda(i_101)" +"(lambda(i_103)" "(begin" " 'iloop" -"(if(= i_101 len_42)" +"(if(= i_103 len_42)" "(let-values()(list s_305))" -"(if(char=? '#\\/(string-ref s_305 i_101))" +"(if(char=? '#\\/(string-ref s_305 i_103))" "(let-values()" "(cons" -"(substring s_305 0 i_101)" -"(loop_46(substring s_305(add1 i_101)))))" -"(let-values()(iloop_2(add1 i_101)))))))))" +"(substring s_305 0 i_103)" +"(loop_46(substring s_305(add1 i_103)))))" +"(let-values()(iloop_2(add1 i_103)))))))))" " iloop_2)" " 0))))))" " loop_46)" -" s_499)))" +" s_498)))" "(if coll-mode?_0" " l_85" "((letrec-values(((loop_47)" @@ -60161,18 +60339,18 @@ static const char *startup_source = "(void))))" "(void))))" "(void)))))))" -"((s_451 relto_0 stx_18)" +"((s_450 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_451 relto_0 stx_18 #t)))" -"((s_500 relto_1 stx_19 load?_7)" +"(standard-module-name-resolver_0 s_450 relto_0 stx_18 #t)))" +"((s_499 relto_1 stx_19 load?_7)" "(let-values((()" "(begin" -"(if(1/module-path? s_500)" +"(if(1/module-path? s_499)" "(void)" "(let-values()" "(if(syntax?$1 stx_19)" @@ -60180,7 +60358,7 @@ static const char *startup_source = "(raise-argument-error" " 'standard-module-name-resolver" " \"module-path?\"" -" s_500))))" +" s_499))))" "(values))))" "(let-values((()" "(begin" @@ -60208,7 +60386,7 @@ static const char *startup_source = "(lambda(base_27 orig-l_10)" "(begin" " 'flatten-sub-path" -"((letrec-values(((loop_119)" +"((letrec-values(((loop_120)" "(lambda(a_75 l_35)" "(begin" " 'loop" @@ -60235,27 +60413,27 @@ static const char *startup_source = " 'file)" " base_27)))" " orig-l_10))" -"(loop_119(cdr a_75)(cdr l_35))))" +"(loop_120(cdr a_75)(cdr l_35))))" "(let-values()" -"(loop_119" +"(loop_120" "(cons(car l_35) a_75)" "(cdr l_35)))))))))" -" loop_119)" +" loop_120)" " null" " orig-l_10)))))" -"(if(if(pair? s_500)(eq?(car s_500) 'quote) #f)" -"(let-values()(1/make-resolved-module-path(cadr s_500)))" -"(if(if(pair? s_500)" -"(if(eq?(car s_500) 'submod)" -"(if(pair?(cadr s_500))(eq?(caadr s_500) 'quote) #f)" +"(if(if(pair? s_499)(eq?(car s_499) 'quote) #f)" +"(let-values()(1/make-resolved-module-path(cadr s_499)))" +"(if(if(pair? s_499)" +"(if(eq?(car s_499) 'submod)" +"(if(pair?(cadr s_499))(eq?(caadr s_499) 'quote) #f)" " #f)" " #f)" "(let-values()" -"(1/make-resolved-module-path(flatten-sub-path_0(cadadr s_500)(cddr s_500))))" -"(if(if(pair? s_500)" -"(if(eq?(car s_500) 'submod)" -" (if (let-values (((or-part_101) (equal? (cadr s_500) \".\")))" -" (if or-part_101 or-part_101 (equal? (cadr s_500) \"..\")))" +"(1/make-resolved-module-path(flatten-sub-path_0(cadadr s_499)(cddr s_499))))" +"(if(if(pair? s_499)" +"(if(eq?(car s_499) 'submod)" +" (if (let-values (((or-part_101) (equal? (cadr s_499) \".\")))" +" (if or-part_101 or-part_101 (equal? (cadr s_499) \"..\")))" "(if relto_1" "(let-values(((p_79)(1/resolved-module-path-name relto_1)))" "(let-values(((or-part_371)(symbol? p_79)))" @@ -60272,27 +60450,27 @@ static const char *startup_source = "(flatten-sub-path_0" "(if(pair? rp_0)(car rp_0) rp_0)" "(let-values(((r_47)" -" (if (equal? (cadr s_500) \"..\") (cdr s_500) (cddr s_500))))" +" (if (equal? (cadr s_499) \"..\") (cdr s_499) (cddr s_499))))" "(if(pair? rp_0)(append(cdr rp_0) r_47) r_47))))))" -"(if(if(pair? s_500)(eq?(car s_500) 'planet) #f)" +"(if(if(pair? s_499)(eq?(car s_499) 'planet) #f)" "(let-values()" "(begin" "(prep-planet-resolver!_0)" -"(planet-resolver_0 s_500 relto_1 stx_19 load?_7 #f orig-paramz)))" -"(if(if(pair? s_500)" -"(if(eq?(car s_500) 'submod)" -"(if(pair?(cadr s_500))(eq?(caadr s_500) 'planet) #f)" +"(planet-resolver_0 s_499 relto_1 stx_19 load?_7 #f orig-paramz)))" +"(if(if(pair? s_499)" +"(if(eq?(car s_499) 'submod)" +"(if(pair?(cadr s_499))(eq?(caadr s_499) 'planet) #f)" " #f)" " #f)" "(let-values()" "(begin" "(prep-planet-resolver!_0)" "(planet-resolver_0" -"(cadr s_500)" +"(cadr s_499)" " relto_1" " stx_19" " load?_7" -"(cddr s_500)" +"(cddr s_499)" " orig-paramz)))" "(let-values()" "(let-values(((get-dir_0)" @@ -60357,40 +60535,40 @@ static const char *startup_source = " msg_1" "(format" " \"\\n for module path: ~s\\n\"" -" s_500)))))" +" s_499)))))" "(raise" "(if stx_19" "(1/make-exn:fail:syntax:missing-module" " msg_2" "(current-continuation-marks)" "(list stx_19)" -" s_500)" +" s_499)" "(1/make-exn:fail:filesystem:missing-module" " msg_2" "(current-continuation-marks)" -" s_500)))))))" +" s_499)))))))" "((ss->rkt_0)" -"(lambda(s_501)" +"(lambda(s_500)" "(begin" " 'ss->rkt" -"(let-values(((len_43)(string-length s_501)))" +"(let-values(((len_43)(string-length s_500)))" "(if(if(>= len_43 3)" "(if(equal?" " '#\\." -"(string-ref s_501(- len_43 3)))" +"(string-ref s_500(- len_43 3)))" "(if(equal?" " '#\\s" -"(string-ref s_501(- len_43 2)))" +"(string-ref s_500(- len_43 2)))" "(equal?" " '#\\s" -"(string-ref s_501(- len_43 1)))" +"(string-ref s_500(- len_43 1)))" " #f)" " #f)" " #f)" "(string-append" -"(substring s_501 0(- len_43 3))" +"(substring s_500 0(- len_43 3))" " \".rkt\")" -" s_501)))))" +" s_500)))))" "((path-ss->rkt_0)" "(lambda(p_82)" "(begin" @@ -60400,11 +60578,11 @@ static const char *startup_source = " (if (regexp-match '#rx\"[.]ss$\" (path->bytes name_78))" " (path-replace-extension p_82 #\".rkt\")" " p_82)))))" -"((s_502)" -"(if(if(pair? s_500)(eq? 'submod(car s_500)) #f)" -"(let-values(((v_261)(cadr s_500)))" -" (if (let-values (((or-part_373) (equal? v_261 \".\")))" -" (if or-part_373 or-part_373 (equal? v_261 \"..\")))" +"((s_501)" +"(if(if(pair? s_499)(eq? 'submod(car s_499)) #f)" +"(let-values(((v_258)(cadr s_499)))" +" (if (let-values (((or-part_373) (equal? v_258 \".\")))" +" (if or-part_373 or-part_373 (equal? v_258 \"..\")))" "(if relto_1" "(let-values(((p_7)" "(1/resolved-module-path-name" @@ -60413,19 +60591,19 @@ static const char *startup_source = "(error" " 'standard-module-name-resolver" " \"no base path for relative submodule path: ~.s\"" -" s_500))" -" v_261))" -" s_500))" +" s_499))" +" v_258))" +" s_499))" "((subm-path_0)" -"(if(if(pair? s_500)(eq? 'submod(car s_500)) #f)" +"(if(if(pair? s_499)(eq? 'submod(car s_499)) #f)" "(let-values(((p_83)" "(if(if(let-values(((or-part_167)" "(equal?" -"(cadr s_500)" +"(cadr s_499)" " \".\")))" "(if or-part_167" " or-part_167" -" (equal? (cadr s_500) \"..\")))" +" (equal? (cadr s_499) \"..\")))" " relto_1" " #f)" "(let-values(((p_84)" @@ -60433,10 +60611,10 @@ static const char *startup_source = " relto_1))" "((r_48)" "(if(equal?" -"(cadr s_500)" +"(cadr s_499)" " \"..\")" -"(cdr s_500)" -"(cddr s_500))))" +"(cdr s_499)" +"(cddr s_499))))" "(if(pair? p_84)" "(flatten-sub-path_0" "(car p_84)" @@ -60444,22 +60622,22 @@ static const char *startup_source = "(flatten-sub-path_0 p_84 r_48)))" "(flatten-sub-path_0" " \".\"" -" (if (equal? (cadr s_500) \"..\")" -"(cdr s_500)" -"(cddr s_500))))))" +" (if (equal? (cadr s_499) \"..\")" +"(cdr s_499)" +"(cddr s_499))))))" "(if(pair? p_83)(cdr p_83) #f))" " #f)))" "(let-values(((s-parsed_0)" -"(if(symbol? s_502)" +"(if(symbol? s_501)" "(let-values()" "(let-values(((or-part_46)" "(path-cache-get" -"(cons s_502(get-reg_0)))))" +"(cons s_501(get-reg_0)))))" "(if or-part_46" " or-part_46" "(let-values(((cols_0 file_3)" "(split-relative-string" -"(symbol->string s_502)" +"(symbol->string s_501)" " #f)))" "(let-values(((f-file_0)" "(if(null? cols_0)" @@ -60473,17 +60651,17 @@ static const char *startup_source = "(if(null? cols_0) null(cdr cols_0))" " f-file_0" " #t))))))" -"(if(string? s_502)" +"(if(string? s_501)" "(let-values()" "(let-values(((dir_4)(get-dir_0)))" "(let-values(((or-part_374)" "(path-cache-get" -"(cons s_502 dir_4))))" +"(cons s_501 dir_4))))" "(if or-part_374" " or-part_374" "(let-values(((cols_1 file_4)" "(split-relative-string" -" s_502" +" s_501" " #f)))" "(if(null? cols_1)" "(build-path dir_4(ss->rkt_0 file_4))" @@ -60500,26 +60678,26 @@ static const char *startup_source = "(let-values() s_56))))" " cols_1)" "(list(ss->rkt_0 file_4))))))))))" -"(if(path? s_502)" +"(if(path? s_501)" "(let-values()" "(path-ss->rkt_0" "(simplify-path" -"(if(complete-path? s_502)" -" s_502" -"(path->complete-path s_502(get-dir_0))))))" -"(if(eq?(car s_502) 'lib)" +"(if(complete-path? s_501)" +" s_501" +"(path->complete-path s_501(get-dir_0))))))" +"(if(eq?(car s_501) 'lib)" "(let-values()" "(let-values(((or-part_84)" "(path-cache-get" -"(cons s_502(get-reg_0)))))" +"(cons s_501(get-reg_0)))))" "(if or-part_84" " or-part_84" "(let-values(((cols_2 file_5)" "(split-relative-string" -"(cadr s_502)" +"(cadr s_501)" " #f)))" "(let-values(((old-style?_0)" -"(if(null?(cddr s_502))" +"(if(null?(cddr s_501))" "(if(null? cols_2)" "(regexp-match?" " '#rx\"[.]\"" @@ -60542,7 +60720,7 @@ static const char *startup_source = "(if old-style?_0" "(append" "(if(null?" -"(cddr s_502))" +"(cddr s_501))" " '(\"mzlib\")" "(apply" " append" @@ -60551,7 +60729,7 @@ static const char *startup_source = "(split-relative-string" " p_3" " #t))" -"(cddr s_502))))" +"(cddr s_501))))" " cols_2)" "(if(null? cols_2)" "(list file_5)" @@ -60562,12 +60740,12 @@ static const char *startup_source = "(cdr cols_3)" " f-file_1" " #t))))))))" -"(if(eq?(car s_502) 'file)" +"(if(eq?(car s_501) 'file)" "(let-values()" "(path-ss->rkt_0" "(simplify-path" "(path->complete-path" -"(expand-user-path(cadr s_502))" +"(expand-user-path(cadr s_501))" "(get-dir_0)))))" "(void))))))))" "(begin" @@ -60585,7 +60763,7 @@ static const char *startup_source = "(raise-argument-error" " 'standard-module-name-resolver" " \"module-path?\"" -" s_502))))" +" s_501))))" "(let-values(((filename_2)" "(if(vector? s-parsed_0)" "(vector-ref s-parsed_0 0)" @@ -60718,12 +60896,12 @@ static const char *startup_source = " p_85" " stx_19))" " values)" -"(if(symbol? s_502)" -"(let-values() s_502)" -"(if(if(pair? s_502)" -"(eq?(car s_502) 'lib)" +"(if(symbol? s_501)" +"(let-values() s_501)" +"(if(if(pair? s_501)" +"(eq?(car s_501) 'lib)" " #f)" -"(let-values() s_502)" +"(let-values() s_501)" "(let-values()" "(if(1/resolved-module-path?" " root-modname_0)" @@ -60739,7 +60917,7 @@ static const char *startup_source = "(let-values()" "((1/current-load/use-compiled)" " filename_2" -"(let-values(((sym_75)" +"(let-values(((sym_76)" "(string->symbol" "(path->string" " no-sfx_0))))" @@ -60750,30 +60928,30 @@ static const char *startup_source = " #f)" "(cons #f subm-path_0)" "(cons" -" sym_75" +" sym_76" " subm-path_0))" -" sym_75))))))))))))))" +" sym_76))))))))))))))" "(void))" "(if(if(not(vector? s-parsed_0))" "(if load?_7" "(let-values(((or-part_376)" -"(string? s_502)))" +"(string? s_501)))" "(if or-part_376" " or-part_376" "(let-values(((or-part_377)" -"(symbol? s_502)))" +"(symbol? s_501)))" "(if or-part_377" " or-part_377" -"(if(pair? s_502)" -"(eq?(car s_502) 'lib)" +"(if(pair? s_501)" +"(eq?(car s_501) 'lib)" " #f)))))" " #f)" " #f)" "(let-values()" "(path-cache-set!" -"(if(string? s_502)" -"(cons s_502(get-dir_0))" -"(cons s_502(get-reg_0)))" +"(if(string? s_501)" +"(cons s_501(get-dir_0))" +"(cons s_501(get-reg_0)))" "(vector" " filename_2" " normal-filename_0" @@ -60800,7 +60978,7 @@ static const char *startup_source = "(let-values()(c_114 e_88 #t))))))))))" "(define-values" "(default-compile-handler)" -"(lambda(s_503 immediate-eval?_0)(begin(1/compile s_503(1/current-namespace)(not immediate-eval?_0)))))" +"(lambda(s_502 immediate-eval?_0)(begin(1/compile s_502(1/current-namespace)(not immediate-eval?_0)))))" "(define-values" "(default-read-interaction)" "(lambda(src_10 in_90)" @@ -60852,7 +61030,7 @@ static const char *startup_source = " 'expand-body7" "(let-values(((bodys_7) bodys5_0))" "(let-values(((ctx_75) ctx6_0))" -"(let-values(((s_491) source1_0))" +"(let-values(((s_490) source1_0))" "(let-values(((stratified?_0) stratified?2_0))" "(let-values()" "(let-values((()" @@ -60914,8 +61092,8 @@ static const char *startup_source = "(let-values(((frame-id_7)(make-reference-record)))" "(let-values(((def-ctx-scopes_6)(box null)))" "(let-values(((body-ctx_0)" -"(let-values(((v_262) ctx_75))" -"(let-values(((the-struct_90) v_262))" +"(let-values(((v_259) ctx_75))" +"(let-values(((the-struct_90) v_259))" "(if(expand-context/outer? the-struct_90)" "(let-values(((context51_0)(list(make-liberal-define-context)))" "((name52_0) #f)" @@ -60931,7 +61109,7 @@ static const char *startup_source = "(cons" " frame-id_7" "(expand-context-reference-records ctx_75)))" -"((inner61_0)(root-expand-context/outer-inner v_262)))" +"((inner61_0)(root-expand-context/outer-inner v_259)))" "(expand-context/outer1.1" " inner61_0" " post-expansion-scope55_0" @@ -60962,7 +61140,7 @@ static const char *startup_source = "(increment-binding-layer ids_30 body-ctx_1 inside-sc_0)" "(expand-context-binding-layer body-ctx_1))))))" "(let-values(((name_80)(expand-context-name ctx_75)))" -"((letrec-values(((loop_120)" +"((letrec-values(((loop_121)" "(lambda(body-ctx_2" " bodys_8" " done-bodys_0" @@ -60986,7 +61164,7 @@ static const char *startup_source = "((temp68_6)(reverse$1 track-stxs_0))" "((temp69_4)(reverse$1 stx-clauses_0))" "((temp70_5)(reverse$1 done-bodys_0))" -"((s71_0) s_491)" +"((s71_0) s_490)" "((stratified?72_0) stratified?_0)" "((name73_0) name_80)" "((temp74_4)(reverse$1 trans-idss_1)))" @@ -61026,17 +61204,17 @@ static const char *startup_source = "(null?" "(cdr bodys_8))" " #f)" -"(let-values(((v_263)" +"(let-values(((v_260)" " body-ctx_2))" "(let-values(((the-struct_91)" -" v_263))" +" v_260))" "(if(expand-context/outer?" " the-struct_91)" "(let-values(((name77_0)" " name_80)" "((inner78_0)" "(root-expand-context/outer-inner" -" v_263)))" +" v_260)))" "(expand-context/outer1.1" " inner78_0" "(root-expand-context/outer-post-expansion-scope" @@ -61099,35 +61277,35 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_34 begin79_0 e80_0)" -"(let-values(((s_504)" +"(let-values(((s_503)" " disarmed-exp-body_0))" "(let-values(((orig-s_38)" -" s_504))" +" s_503))" "(let-values(((begin79_1" " e80_1)" -"(let-values(((s_505)" +"(let-values(((s_504)" "(if(syntax?$1" -" s_504)" +" s_503)" "(syntax-e$1" -" s_504)" -" s_504)))" +" s_503)" +" s_503)))" "(if(pair?" -" s_505)" +" s_504)" "(let-values(((begin81_0)" "(let-values(((s_176)" "(car" -" s_505)))" +" s_504)))" " s_176))" "((e82_0)" -"(let-values(((s_451)" +"(let-values(((s_450)" "(cdr" -" s_505)))" +" s_504)))" "(let-values(((s_46)" "(if(syntax?$1" -" s_451)" +" s_450)" "(syntax-e$1" -" s_451)" -" s_451)))" +" s_450)" +" s_450)))" "(let-values(((flat-s_25)" "(to-syntax-list.1" " s_46)))" @@ -61174,7 +61352,7 @@ static const char *startup_source = " 'splice" " splice-bodys_0)))" "(void)))" -"(loop_120" +"(loop_121" " body-ctx_2" " splice-bodys_0" " done-bodys_0" @@ -61220,33 +61398,33 @@ static const char *startup_source = "(if(pair?" " s_51)" "(let-values(((define-values86_0)" -"(let-values(((s_452)" +"(let-values(((s_451)" "(car" " s_51)))" -" s_452))" +" s_451))" "((id87_0" " rhs88_0)" -"(let-values(((s_506)" +"(let-values(((s_505)" "(cdr" " s_51)))" -"(let-values(((s_507)" +"(let-values(((s_506)" "(if(syntax?$1" -" s_506)" +" s_505)" "(syntax-e$1" -" s_506)" -" s_506)))" +" s_505)" +" s_505)))" "(if(pair?" -" s_507)" +" s_506)" "(let-values(((id89_1)" -"(let-values(((s_508)" +"(let-values(((s_507)" "(car" -" s_507)))" +" s_506)))" "(let-values(((s_53)" "(if(syntax?$1" -" s_508)" +" s_507)" "(syntax-e$1" -" s_508)" -" s_508)))" +" s_507)" +" s_507)))" "(let-values(((flat-s_26)" "(to-syntax-list.1" " s_53)))" @@ -61259,7 +61437,7 @@ static const char *startup_source = " orig-s_39))" "(let-values()" "(let-values(((id_62)" -"(let-values(((lst_190)" +"(let-values(((lst_191)" " flat-s_26))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61267,8 +61445,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_190)))" -"((letrec-values(((for-loop_202)" +" lst_191)))" +"((letrec-values(((for-loop_201)" "(lambda(id_81" " lst_13)" "(begin" @@ -61312,45 +61490,45 @@ static const char *startup_source = " id_8)))))" "(if(not" " #f)" -"(for-loop_202" +"(for-loop_201" " id_103" " rest_104)" " id_103)))" " id_81)))))" -" for-loop_202)" +" for-loop_201)" " null" -" lst_190)))))" +" lst_191)))))" "(reverse$1" " id_62))))))))" "((rhs90_0)" "(let-values(((s_33)" "(cdr" -" s_507)))" -"(let-values(((s_509)" +" s_506)))" +"(let-values(((s_508)" "(if(syntax?$1" " s_33)" "(syntax-e$1" " s_33)" " s_33)))" "(if(pair?" -" s_509)" +" s_508)" "(let-values(((rhs91_0)" -"(let-values(((s_95)" +"(let-values(((s_96)" "(car" -" s_509)))" -" s_95))" +" s_508)))" +" s_96))" "(()" "(let-values(((s_57)" "(cdr" -" s_509)))" -"(let-values(((s_510)" +" s_508)))" +"(let-values(((s_509)" "(if(syntax?$1" " s_57)" "(syntax-e$1" " s_57)" " s_57)))" "(if(null?" -" s_510)" +" s_509)" "(values)" "(raise-syntax-error$1" " #f" @@ -61433,7 +61611,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_308)))" -"((letrec-values(((for-loop_283)" +"((letrec-values(((for-loop_282)" "(lambda(fold-var_185" " lst_309)" "(begin" @@ -61443,7 +61621,7 @@ static const char *startup_source = "(let-values(((id_105)" "(unsafe-car" " lst_309))" -"((rest_182)" +"((rest_181)" "(unsafe-cdr" " lst_309)))" "(let-values(((fold-var_245)" @@ -61474,12 +61652,12 @@ static const char *startup_source = " fold-var_284)))))" "(if(not" " #f)" -"(for-loop_283" +"(for-loop_282" " fold-var_245" -" rest_182)" +" rest_181)" " fold-var_245)))" " fold-var_185)))))" -" for-loop_283)" +" for-loop_282)" " null" " lst_308))))))" "(let-values(((extended-env_0)" @@ -61500,7 +61678,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_306)))" -"((letrec-values(((for-loop_278)" +"((letrec-values(((for-loop_277)" "(lambda(env_17" " lst_310" " lst_294)" @@ -61514,13 +61692,13 @@ static const char *startup_source = "(let-values(((key_88)" "(unsafe-car" " lst_310))" -"((rest_170)" +"((rest_169)" "(unsafe-cdr" " lst_310))" "((id_106)" "(unsafe-car" " lst_294))" -"((rest_183)" +"((rest_182)" "(unsafe-cdr" " lst_294)))" "(let-values(((env_18)" @@ -61537,22 +61715,22 @@ static const char *startup_source = " env_20)))))" "(if(not" " #f)" -"(for-loop_278" +"(for-loop_277" " env_18" -" rest_170" -" rest_183)" +" rest_169" +" rest_182)" " env_18)))" " env_17)))))" -" for-loop_278)" +" for-loop_277)" "(expand-context-env" " body-ctx_2)" " lst_225" " lst_306)))))" -"(loop_120" -"(let-values(((v_264)" +"(loop_121" +"(let-values(((v_261)" " body-ctx_2))" "(let-values(((the-struct_92)" -" v_264))" +" v_261))" "(if(expand-context/outer?" " the-struct_92)" "(let-values(((env102_0)" @@ -61563,7 +61741,7 @@ static const char *startup_source = " body-ctx_2))" "((inner104_0)" "(root-expand-context/outer-inner" -" v_264)))" +" v_261)))" "(expand-context/outer1.1" " inner104_0" "(root-expand-context/outer-post-expansion-scope" @@ -61611,19 +61789,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_311)))" -"((letrec-values(((for-loop_284)" +"((letrec-values(((for-loop_283)" "(lambda(fold-var_285" -" lst_154)" +" lst_155)" "(begin" " 'for-loop" "(if(pair?" -" lst_154)" +" lst_155)" "(let-values(((done-body_0)" "(unsafe-car" -" lst_154))" +" lst_155))" "((rest_79)" "(unsafe-cdr" -" lst_154)))" +" lst_155)))" "(let-values(((fold-var_286)" "(let-values(((fold-var_287)" " fold-var_285))" @@ -61637,12 +61815,12 @@ static const char *startup_source = " fold-var_288)))))" "(if(not" " #f)" -"(for-loop_284" +"(for-loop_283" " fold-var_286" " rest_79)" " fold-var_286)))" " fold-var_285)))))" -" for-loop_284)" +" for-loop_283)" " null" " lst_311))))" " val-idss_0))" @@ -61659,7 +61837,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_312)))" -"((letrec-values(((for-loop_285)" +"((letrec-values(((for-loop_284)" "(lambda(fold-var_289" " lst_32)" "(begin" @@ -61669,28 +61847,28 @@ static const char *startup_source = "(let-values(((done-body_1)" "(unsafe-car" " lst_32))" -"((rest_184)" +"((rest_183)" "(unsafe-cdr" " lst_32)))" "(let-values(((fold-var_290)" "(let-values(((fold-var_291)" " fold-var_289))" -"(let-values(((fold-var_136)" +"(let-values(((fold-var_138)" "(let-values()" "(cons" "(let-values()" " null)" " fold-var_291))))" "(values" -" fold-var_136)))))" +" fold-var_138)))))" "(if(not" " #f)" -"(for-loop_285" +"(for-loop_284" " fold-var_290" -" rest_184)" +" rest_183)" " fold-var_290)))" " fold-var_289)))))" -" for-loop_285)" +" for-loop_284)" " null" " lst_312))))" " val-keyss_0))" @@ -61707,7 +61885,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_108)))" -"((letrec-values(((for-loop_123)" +"((letrec-values(((for-loop_125)" "(lambda(fold-var_292" " lst_313)" "(begin" @@ -61717,7 +61895,7 @@ static const char *startup_source = "(let-values(((done-body_2)" "(unsafe-car" " lst_313))" -"((rest_185)" +"((rest_184)" "(unsafe-cdr" " lst_313)))" "(let-values(((fold-var_293)" @@ -61729,19 +61907,19 @@ static const char *startup_source = "(let-values()" "(no-binds" " done-body_2" -" s_491" +" s_490" " phase_134))" " fold-var_294))))" "(values" " fold-var_39)))))" "(if(not" " #f)" -"(for-loop_123" +"(for-loop_125" " fold-var_293" -" rest_185)" +" rest_184)" " fold-var_293)))" " fold-var_292)))))" -" for-loop_123)" +" for-loop_125)" " null" " lst_108))))" " val-rhss_0))" @@ -61758,7 +61936,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_53)))" -"((letrec-values(((for-loop_286)" +"((letrec-values(((for-loop_285)" "(lambda(fold-var_295" " lst_314)" "(begin" @@ -61768,10 +61946,10 @@ static const char *startup_source = "(let-values(((done-body_3)" "(unsafe-car" " lst_314))" -"((rest_186)" +"((rest_185)" "(unsafe-cdr" " lst_314)))" -"(let-values(((fold-var_140)" +"(let-values(((fold-var_142)" "(let-values(((fold-var_296)" " fold-var_295))" "(let-values(((fold-var_297)" @@ -61784,12 +61962,12 @@ static const char *startup_source = " fold-var_297)))))" "(if(not" " #f)" -"(for-loop_286" -" fold-var_140" -" rest_186)" -" fold-var_140)))" +"(for-loop_285" +" fold-var_142" +" rest_185)" +" fold-var_142)))" " fold-var_295)))))" -" for-loop_286)" +" for-loop_285)" " null" " lst_53))))" " track-stxs_0))" @@ -61815,52 +61993,52 @@ static const char *startup_source = " define-syntaxes105_0" " id106_0" " rhs107_0)" -"(let-values(((s_213)" +"(let-values(((s_71)" " disarmed-exp-body_0))" "(let-values(((orig-s_7)" -" s_213))" +" s_71))" "(let-values(((define-syntaxes105_1" " id106_1" " rhs107_1)" -"(let-values(((s_511)" +"(let-values(((s_510)" "(if(syntax?$1" -" s_213)" +" s_71)" "(syntax-e$1" -" s_213)" -" s_213)))" +" s_71)" +" s_71)))" "(if(pair?" -" s_511)" +" s_510)" "(let-values(((define-syntaxes108_0)" "(let-values(((s_216)" "(car" -" s_511)))" +" s_510)))" " s_216))" "((id109_0" " rhs110_0)" -"(let-values(((s_512)" +"(let-values(((s_511)" "(cdr" +" s_510)))" +"(let-values(((s_512)" +"(if(syntax?$1" +" s_511)" +"(syntax-e$1" +" s_511)" " s_511)))" -"(let-values(((s_513)" -"(if(syntax?$1" -" s_512)" -"(syntax-e$1" -" s_512)" -" s_512)))" "(if(pair?" -" s_513)" +" s_512)" "(let-values(((id111_0)" -"(let-values(((s_514)" +"(let-values(((s_513)" "(car" -" s_513)))" -"(let-values(((s_515)" +" s_512)))" +"(let-values(((s_514)" "(if(syntax?$1" -" s_514)" +" s_513)" "(syntax-e$1" -" s_514)" -" s_514)))" +" s_513)" +" s_513)))" "(let-values(((flat-s_27)" "(to-syntax-list.1" -" s_515)))" +" s_514)))" "(if(not" " flat-s_27)" "(let-values()" @@ -61879,17 +62057,17 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_315)))" -"((letrec-values(((for-loop_287)" +"((letrec-values(((for-loop_286)" "(lambda(id_108" " lst_316)" "(begin" " 'for-loop" "(if(pair?" " lst_316)" -"(let-values(((s_516)" +"(let-values(((s_515)" "(unsafe-car" " lst_316))" -"((rest_187)" +"((rest_186)" "(unsafe-cdr" " lst_316)))" "(let-values(((id_64)" @@ -61901,21 +62079,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_132)" "(if(syntax?$1" -" s_516)" +" s_515)" "(symbol?" "(syntax-e$1" -" s_516))" +" s_515))" " #f)))" "(if or-part_132" " or-part_132" "(symbol?" -" s_516)))" -" s_516" +" s_515)))" +" s_515" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_7" -" s_516)))))" +" s_515)))))" "(cons" " id114_0" " id_109)))))" @@ -61923,45 +62101,45 @@ static const char *startup_source = " id_110)))))" "(if(not" " #f)" -"(for-loop_287" +"(for-loop_286" " id_64" -" rest_187)" +" rest_186)" " id_64)))" " id_108)))))" -" for-loop_287)" +" for-loop_286)" " null" " lst_315)))))" "(reverse$1" " id_107))))))))" "((rhs112_0)" -"(let-values(((s_102)" -"(cdr" -" s_513)))" "(let-values(((s_103)" +"(cdr" +" s_512)))" +"(let-values(((s_104)" "(if(syntax?$1" -" s_102)" -"(syntax-e$1" -" s_102)" -" s_102)))" -"(if(pair?" " s_103)" -"(let-values(((rhs113_0)" -"(let-values(((s_161)" -"(car" +"(syntax-e$1" +" s_103)" " s_103)))" -" s_161))" +"(if(pair?" +" s_104)" +"(let-values(((rhs113_0)" +"(let-values(((s_162)" +"(car" +" s_104)))" +" s_162))" "(()" "(let-values(((s_217)" "(cdr" -" s_103)))" -"(let-values(((s_104)" +" s_104)))" +"(let-values(((s_105)" "(if(syntax?$1" " s_217)" "(syntax-e$1" " s_217)" " s_217)))" "(if(null?" -" s_104)" +" s_105)" "(values)" "(raise-syntax-error$1" " #f" @@ -62044,7 +62222,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_317)))" -"((letrec-values(((for-loop_288)" +"((letrec-values(((for-loop_287)" "(lambda(fold-var_298" " lst_318)" "(begin" @@ -62054,7 +62232,7 @@ static const char *startup_source = "(let-values(((id_111)" "(unsafe-car" " lst_318))" -"((rest_188)" +"((rest_187)" "(unsafe-cdr" " lst_318)))" "(let-values(((fold-var_299)" @@ -62085,12 +62263,12 @@ static const char *startup_source = " fold-var_301)))))" "(if(not" " #f)" -"(for-loop_288" +"(for-loop_287" " fold-var_299" -" rest_188)" +" rest_187)" " fold-var_299)))" " fold-var_298)))))" -" for-loop_288)" +" for-loop_287)" " null" " lst_317))))))" "(let-values((()" @@ -62156,39 +62334,39 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_321)))" -"((letrec-values(((for-loop_289)" +"((letrec-values(((for-loop_288)" "(lambda(env_21" -" lst_36" " lst_322" -" lst_323)" +" lst_323" +" lst_324)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_36)" -"(if(pair?" " lst_322)" -"(pair?" +"(if(pair?" " lst_323)" +"(pair?" +" lst_324)" " #f)" " #f)" "(let-values(((key_89)" "(unsafe-car" -" lst_36))" -"((rest_189)" +" lst_322))" +"((rest_188)" "(unsafe-cdr" -" lst_36))" +" lst_322))" "((val_41)" "(unsafe-car" -" lst_322))" -"((rest_190)" +" lst_323))" +"((rest_189)" "(unsafe-cdr" -" lst_322))" +" lst_323))" "((id_112)" "(unsafe-car" -" lst_323))" -"((rest_191)" +" lst_324))" +"((rest_190)" "(unsafe-cdr" -" lst_323)))" +" lst_324)))" "(let-values(((env_22)" "(let-values(((env_23)" " env_21))" @@ -62208,14 +62386,14 @@ static const char *startup_source = " env_24)))))" "(if(not" " #f)" -"(for-loop_289" +"(for-loop_288" " env_22" +" rest_188" " rest_189" -" rest_190" -" rest_191)" +" rest_190)" " env_22)))" " env_21)))))" -" for-loop_289)" +" for-loop_288)" "(expand-context-env" " body-ctx_2)" " lst_319" @@ -62232,11 +62410,11 @@ static const char *startup_source = " obs_73" " 'exit-bind)))" "(void)))" -"(loop_120" -"(let-values(((v_265)" +"(loop_121" +"(let-values(((v_262)" " body-ctx_2))" "(let-values(((the-struct_93)" -" v_265))" +" v_262))" "(if(expand-context/outer?" " the-struct_93)" "(let-values(((env124_0)" @@ -62247,7 +62425,7 @@ static const char *startup_source = " body-ctx_2))" "((inner126_0)" "(root-expand-context/outer-inner" -" v_265)))" +" v_262)))" "(expand-context/outer1.1" " inner126_0" "(root-expand-context/outer-post-expansion-scope" @@ -62307,7 +62485,7 @@ static const char *startup_source = "(let-values()" "(error" " \"internal error: accumulated expressions not empty\")))" -"(loop_120" +"(loop_121" " body-ctx_2" " null" "(if(if(null? val-idss_0)" @@ -62335,7 +62513,7 @@ static const char *startup_source = " stx-clauses_0" " dups_0)))" "(let-values()" -"(loop_120" +"(loop_121" " body-ctx_2" " rest-bodys_0" "(cons exp-body_0 done-bodys_0)" @@ -62346,7 +62524,7 @@ static const char *startup_source = " trans-idss_1" " stx-clauses_0" " dups_0))))))))))))))))))" -" loop_120)" +" loop_121)" " body-ctx_0" " init-bodys_0" " null" @@ -62399,11 +62577,11 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((finish-ctx_0)" -"(let-values(((v_266)" +"(let-values(((v_263)" "(accumulate-def-ctx-scopes" " body-ctx_3" " def-ctx-scopes_7)))" -"(let-values(((the-struct_94) v_266))" +"(let-values(((the-struct_94) v_263))" "(if(expand-context/outer? the-struct_94)" "(let-values(((context127_0) 'expression)" "((use-site-scopes128_0)(box null))" @@ -62417,7 +62595,7 @@ static const char *startup_source = "((def-ctx-scopes131_0) #f)" "((post-expansion-scope132_0) #f)" "((inner133_0)" -"(root-expand-context/outer-inner v_266)))" +"(root-expand-context/outer-inner v_263)))" "(expand-context/outer1.1" " inner133_0" " post-expansion-scope132_0" @@ -62493,7 +62671,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-naturals start_64)))" -"((letrec-values(((for-loop_290)" +"((letrec-values(((for-loop_289)" "(lambda(fold-var_302" " lst_5" " pos_125)" @@ -62506,7 +62684,7 @@ static const char *startup_source = "(let-values(((done-body_4)" "(unsafe-car" " lst_5))" -"((rest_192)" +"((rest_191)" "(unsafe-cdr" " lst_5))" "((i_14)" @@ -62537,17 +62715,17 @@ static const char *startup_source = " i_14" " last-i_1)" " #f)" -"(let-values(((v_267)" +"(let-values(((v_264)" " finish-ctx_0))" "(let-values(((the-struct_95)" -" v_267))" +" v_264))" "(if(expand-context/outer?" " the-struct_95)" "(let-values(((name136_0)" " name_81)" "((inner137_0)" "(root-expand-context/outer-inner" -" v_267)))" +" v_264)))" "(expand-context/outer1.1" " inner137_0" "(root-expand-context/outer-post-expansion-scope" @@ -62593,15 +62771,15 @@ static const char *startup_source = " fold-var_305)))))" "(if(not" " #f)" -"(for-loop_290" +"(for-loop_289" " fold-var_303" -" rest_192" +" rest_191" "(+" " pos_125" " 1))" " fold-var_303)))" " fold-var_302)))))" -" for-loop_290)" +" for-loop_289)" " null" " lst_210" " start_64))))))" @@ -63026,13 +63204,13 @@ 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_517 phase_136)" +"(lambda(expr_10 s_516 phase_136)" "(begin" "(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_136)))" "(datum->syntax$1" "(core-id '#%app phase_136)" "(list(core-id 'begin phase_136) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" -" s_517)))))" +" s_516)))))" "(define-values" "(log-tag?)" "(lambda(had-stxes?_1 ctx_77)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_77)) #f))))" @@ -63044,28 +63222,28 @@ static const char *startup_source = "(let-values(((phase_137)(expand-context-phase ctx_78)))" "(let-values(((clauses_0)" "(reverse$1" -"(let-values(((lst_324) val-idss_2)((lst_325) val-rhss_2)((lst_326) track-stxs_4))" +"(let-values(((lst_325) val-idss_2)((lst_326) val-rhss_2)((lst_327) track-stxs_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_324)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_325)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_326)))" -"((letrec-values(((for-loop_291)" -"(lambda(fold-var_306 lst_327 lst_328 lst_329)" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_327)))" +"((letrec-values(((for-loop_290)" +"(lambda(fold-var_306 lst_328 lst_329 lst_330)" "(begin" " 'for-loop" -"(if(if(pair? lst_327)(if(pair? lst_328)(pair? lst_329) #f) #f)" -"(let-values(((val-ids_0)(unsafe-car lst_327))" -"((rest_193)(unsafe-cdr lst_327))" -"((val-rhs_0)(unsafe-car lst_328))" -"((rest_194)(unsafe-cdr lst_328))" -"((track-stx_2)(unsafe-car lst_329))" -"((rest_195)(unsafe-cdr lst_329)))" +"(if(if(pair? lst_328)(if(pair? lst_329)(pair? lst_330) #f) #f)" +"(let-values(((val-ids_0)(unsafe-car lst_328))" +"((rest_192)(unsafe-cdr lst_328))" +"((val-rhs_0)(unsafe-car lst_329))" +"((rest_193)(unsafe-cdr lst_329))" +"((track-stx_2)(unsafe-car lst_330))" +"((rest_194)(unsafe-cdr lst_330)))" "(let-values(((fold-var_307)" "(let-values(((fold-var_308) fold-var_306))" "(let-values(((fold-var_309)" @@ -63079,14 +63257,14 @@ static const char *startup_source = " fold-var_308))))" "(values fold-var_309)))))" "(if(not #f)" -"(for-loop_291 fold-var_307 rest_193 rest_194 rest_195)" +"(for-loop_290 fold-var_307 rest_192 rest_193 rest_194)" " fold-var_307)))" " fold-var_306)))))" -" for-loop_291)" +" for-loop_290)" " null" -" lst_324" " lst_325" -" lst_326))))))" +" lst_326" +" lst_327))))))" "(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_137)))" "(let-values(((lv-s_0)" @@ -63135,9 +63313,9 @@ static const char *startup_source = "(lambda-clause-expander)" "(lambda(s_74 disarmed-s_5 formals_1 bodys_9 ctx_79 log-renames-tag_0)" "(begin" -"(let-values(((sc_36)(new-scope 'local)))" +"(let-values(((sc_37)(new-scope 'local)))" "(let-values(((phase_82)(expand-context-phase ctx_79)))" -"(let-values(((ids_35)(parse-and-flatten-formals formals_1 sc_36 disarmed-s_5)))" +"(let-values(((ids_35)(parse-and-flatten-formals formals_1 sc_37 disarmed-s_5)))" "(let-values((()" "(begin" "(let-values(((ids33_0) ids_35)" @@ -63155,15 +63333,15 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_88)))" "((letrec-values(((for-loop_189)" -"(lambda(fold-var_150 lst_159)" +"(lambda(fold-var_152 lst_160)" "(begin" " 'for-loop" -"(if(pair? lst_159)" -"(let-values(((id_113)(unsafe-car lst_159))" -"((rest_83)(unsafe-cdr lst_159)))" +"(if(pair? lst_160)" +"(let-values(((id_113)(unsafe-car lst_160))" +"((rest_83)(unsafe-cdr lst_160)))" "(let-values(((fold-var_33)" -"(let-values(((fold-var_34) fold-var_150))" -"(let-values(((fold-var_151)" +"(let-values(((fold-var_34) fold-var_152))" +"(let-values(((fold-var_153)" "(let-values()" "(cons" "(let-values()" @@ -63182,11 +63360,11 @@ static const char *startup_source = " phase38_1" " counter39_0)))" " fold-var_34))))" -"(values fold-var_151)))))" +"(values fold-var_153)))))" "(if(not #f)" "(for-loop_189 fold-var_33 rest_83)" " fold-var_33)))" -" fold-var_150)))))" +" fold-var_152)))))" " for-loop_189)" " null" " lst_88))))))" @@ -63205,9 +63383,9 @@ static const char *startup_source = " 'for-loop" "(if(if(pair? lst_82)(pair? lst_58) #f)" "(let-values(((key_90)(unsafe-car lst_82))" -"((rest_196)(unsafe-cdr lst_82))" +"((rest_195)(unsafe-cdr lst_82))" "((id_114)(unsafe-car lst_58))" -"((rest_197)(unsafe-cdr lst_58)))" +"((rest_196)(unsafe-cdr lst_58)))" "(let-values(((env_26)" "(let-values(((env_27) env_25))" "(let-values(((env_28)" @@ -63219,14 +63397,14 @@ static const char *startup_source = " id_114)))))" "(values env_28)))))" "(if(not #f)" -"(for-loop_49 env_26 rest_196 rest_197)" +"(for-loop_49 env_26 rest_195 rest_196)" " env_26)))" " env_25)))))" " for-loop_49)" "(expand-context-env ctx_79)" " lst_80" " lst_91)))))" -"(let-values(((sc-formals_0)(add-scope formals_1 sc_36)))" +"(let-values(((sc-formals_0)(add-scope formals_1 sc_37)))" "(let-values(((sc-bodys_0)" "(reverse$1" "(let-values(((lst_17) bodys_9))" @@ -63235,28 +63413,28 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_17)))" "((letrec-values(((for-loop_10)" -"(lambda(fold-var_213 lst_18)" +"(lambda(fold-var_63 lst_18)" "(begin" " 'for-loop" "(if(pair? lst_18)" "(let-values(((body_10)(unsafe-car lst_18))" "((rest_5)(unsafe-cdr lst_18)))" -"(let-values(((fold-var_64)" -"(let-values(((fold-var_65)" -" fold-var_213))" -"(let-values(((fold-var_66)" +"(let-values(((fold-var_213)" +"(let-values(((fold-var_75)" +" fold-var_63))" +"(let-values(((fold-var_76)" "(let-values()" "(cons" "(let-values()" "(add-scope" " body_10" -" sc_36))" -" fold-var_65))))" -"(values fold-var_66)))))" +" sc_37))" +" fold-var_75))))" +"(values fold-var_76)))))" "(if(not #f)" -"(for-loop_10 fold-var_64 rest_5)" -" fold-var_64)))" -" fold-var_213)))))" +"(for-loop_10 fold-var_213 rest_5)" +" fold-var_213)))" +" fold-var_63)))))" " for-loop_10)" " null" " lst_17))))))" @@ -63274,15 +63452,15 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_4)" -"(let-values(((v_268) ctx_79))" -"(let-values(((the-struct_96) v_268))" +"(let-values(((v_265) ctx_79))" +"(let-values(((the-struct_96) v_265))" "(if(expand-context/outer? the-struct_96)" "(let-values(((env41_0) body-env_0)" -"((scopes42_0)(cons sc_36(expand-context-scopes ctx_79)))" +"((scopes42_0)(cons sc_37(expand-context-scopes ctx_79)))" "((binding-layer43_0)" -"(increment-binding-layer ids_35 ctx_79 sc_36))" +"(increment-binding-layer ids_35 ctx_79 sc_37))" "((frame-id44_0) #f)" -"((inner45_0)(root-expand-context/outer-inner v_268)))" +"((inner45_0)(root-expand-context/outer-inner v_265)))" "(expand-context/outer1.1" " inner45_0" "(root-expand-context/outer-post-expansion-scope the-struct_96)" @@ -63326,31 +63504,31 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_6)(syntax-disarm$1 s_13)))" "(let-values(((ok?_37 lambda52_0 formals53_0 body54_0)" -"(let-values(((s_494) disarmed-s_6))" -"(let-values(((orig-s_40) s_494))" +"(let-values(((s_493) disarmed-s_6))" +"(let-values(((orig-s_40) s_493))" "(let-values(((lambda52_1 formals53_1 body54_1)" -"(let-values(((s_172)(if(syntax?$1 s_494)(syntax-e$1 s_494) s_494)))" +"(let-values(((s_172)(if(syntax?$1 s_493)(syntax-e$1 s_493) s_493)))" "(if(pair? s_172)" "(let-values(((lambda55_0)(let-values(((s_45)(car s_172))) s_45))" "((formals56_0 body57_0)" -"(let-values(((s_70)(cdr s_172)))" +"(let-values(((s_84)(cdr s_172)))" "(let-values(((s_174)" -"(if(syntax?$1 s_70)" -"(syntax-e$1 s_70)" -" s_70)))" +"(if(syntax?$1 s_84)" +"(syntax-e$1 s_84)" +" s_84)))" "(if(pair? s_174)" "(let-values(((formals58_0)" "(let-values(((s_175)(car s_174)))" " s_175))" "((body59_0)" "(let-values(((s_176)(cdr s_174)))" -"(let-values(((s_451)" +"(let-values(((s_450)" "(if(syntax?$1 s_176)" "(syntax-e$1 s_176)" " s_176)))" "(let-values(((flat-s_28)" "(to-syntax-list.1" -" s_451)))" +" s_450)))" "(if(not flat-s_28)" "(let-values()" "(raise-syntax-error$1" @@ -63384,16 +63562,16 @@ static const char *startup_source = " 'λ" "(lambda(s_26)" "(let-values(((ok?_38 lam-id65_0 formals66_0 _67_0)" -"(let-values(((s_518) s_26))" -"(let-values(((orig-s_41) s_518))" +"(let-values(((s_517) s_26))" +"(let-values(((orig-s_41) s_517))" "(let-values(((lam-id65_1 formals66_1 _67_1)" -"(let-values(((s_501)(if(syntax?$1 s_518)(syntax-e$1 s_518) s_518)))" -"(if(pair? s_501)" -"(let-values(((lam-id68_0)(let-values(((s_506)(car s_501))) s_506))" +"(let-values(((s_500)(if(syntax?$1 s_517)(syntax-e$1 s_517) s_517)))" +"(if(pair? s_500)" +"(let-values(((lam-id68_0)(let-values(((s_505)(car s_500))) s_505))" "((formals69_0 _70_0)" -"(let-values(((s_507)(cdr s_501)))" +"(let-values(((s_506)(cdr s_500)))" "(let-values(((s_52)" -"(if(syntax?$1 s_507)(syntax-e$1 s_507) s_507)))" +"(if(syntax?$1 s_506)(syntax-e$1 s_506) s_506)))" "(if(pair? s_52)" "(let-values(((formals71_0)" "(let-values(((s_53)(car s_52))) s_53))" @@ -63439,7 +63617,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'case-lambda" -"(lambda(s_454 ctx_81)" +"(lambda(s_453 ctx_81)" "(let-values((()" "(begin" "(let-values(((obs_88)(expand-context-observer ctx_81)))" @@ -63447,47 +63625,47 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_88 'prim-case-lambda)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_7)(syntax-disarm$1 s_454)))" +"(let-values(((disarmed-s_7)(syntax-disarm$1 s_453)))" "(let-values(((ok?_39 case-lambda78_0 formals79_0 body80_0)" -"(let-values(((s_519) disarmed-s_7))" -"(let-values(((orig-s_42) s_519))" +"(let-values(((s_518) disarmed-s_7))" +"(let-values(((orig-s_42) s_518))" "(let-values(((case-lambda78_1 formals79_1 body80_1)" -"(let-values(((s_416)(if(syntax?$1 s_519)(syntax-e$1 s_519) s_519)))" -"(if(pair? s_416)" -"(let-values(((case-lambda81_0)(let-values(((s_520)(car s_416))) s_520))" +"(let-values(((s_415)(if(syntax?$1 s_518)(syntax-e$1 s_518) s_518)))" +"(if(pair? s_415)" +"(let-values(((case-lambda81_0)(let-values(((s_519)(car s_415))) s_519))" "((formals82_0 body83_0)" -"(let-values(((s_407)(cdr s_416)))" -"(let-values(((s_521)" +"(let-values(((s_407)(cdr s_415)))" +"(let-values(((s_520)" "(if(syntax?$1 s_407)" "(syntax-e$1 s_407)" " s_407)))" -"(let-values(((flat-s_30)(to-syntax-list.1 s_521)))" +"(let-values(((flat-s_30)(to-syntax-list.1 s_520)))" "(if(not flat-s_30)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_42))" "(let-values()" "(let-values(((formals_3 body_12)" -"(let-values(((lst_330) flat-s_30))" +"(let-values(((lst_331) flat-s_30))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_330)))" -"((letrec-values(((for-loop_292)" +"(check-list lst_331)))" +"((letrec-values(((for-loop_291)" "(lambda(formals_4" " body_13" -" lst_331)" +" lst_332)" "(begin" " 'for-loop" "(if(pair?" -" lst_331)" -"(let-values(((s_208)" +" lst_332)" +"(let-values(((s_209)" "(unsafe-car" -" lst_331))" -"((rest_198)" +" lst_332))" +"((rest_197)" "(unsafe-cdr" -" lst_331)))" +" lst_332)))" "(let-values(((formals_5" " body_14)" "(let-values(((formals_6)" @@ -63500,32 +63678,32 @@ static const char *startup_source = "(let-values(((formals90_0" " body91_0)" "(let-values()" -"(let-values(((s_522)" +"(let-values(((s_521)" "(if(syntax?$1" -" s_208)" +" s_209)" "(syntax-e$1" -" s_208)" -" s_208)))" +" s_209)" +" s_209)))" "(if(pair?" -" s_522)" +" s_521)" "(let-values(((formals84_0)" -"(let-values(((s_523)" +"(let-values(((s_522)" "(car" -" s_522)))" -" s_523))" +" s_521)))" +" s_522))" "((body85_0)" -"(let-values(((s_524)" +"(let-values(((s_523)" "(cdr" -" s_522)))" -"(let-values(((s_525)" +" s_521)))" +"(let-values(((s_524)" "(if(syntax?$1" -" s_524)" +" s_523)" "(syntax-e$1" -" s_524)" -" s_524)))" +" s_523)" +" s_523)))" "(let-values(((flat-s_31)" "(to-syntax-list.1" -" s_525)))" +" s_524)))" "(if(not" " flat-s_31)" "(let-values()" @@ -63561,20 +63739,20 @@ static const char *startup_source = " body_16)))))" "(if(not" " #f)" -"(for-loop_292" +"(for-loop_291" " formals_5" " body_14" -" rest_198)" +" rest_197)" "(values" " formals_5" " body_14))))" "(values" " formals_4" " body_13))))))" -" for-loop_292)" +" for-loop_291)" " null" " null" -" lst_330)))))" +" lst_331)))))" "(values" "(reverse$1 formals_3)" "(reverse$1 body_12))))))))))" @@ -63582,20 +63760,20 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_42)))))" "(values #t case-lambda78_1 formals79_1 body80_1))))))" "(let-values(((ok?_40 case-lambda86_0 clause87_0)" -"(let-values(((s_526) disarmed-s_7))" -"(let-values(((orig-s_43) s_526))" +"(let-values(((s_525) disarmed-s_7))" +"(let-values(((orig-s_43) s_525))" "(let-values(((case-lambda86_1 clause87_1)" -"(let-values(((s_459)(if(syntax?$1 s_526)(syntax-e$1 s_526) s_526)))" -"(if(pair? s_459)" +"(let-values(((s_458)(if(syntax?$1 s_525)(syntax-e$1 s_525) s_525)))" +"(if(pair? s_458)" "(let-values(((case-lambda88_0)" -"(let-values(((s_210)(car s_459))) s_210))" +"(let-values(((s_211)(car s_458))) s_211))" "((clause89_0)" -"(let-values(((s_527)(cdr s_459)))" -"(let-values(((s_528)" -"(if(syntax?$1 s_527)" -"(syntax-e$1 s_527)" -" s_527)))" -"(let-values(((flat-s_32)(to-syntax-list.1 s_528)))" +"(let-values(((s_526)(cdr s_458)))" +"(let-values(((s_527)" +"(if(syntax?$1 s_526)" +"(syntax-e$1 s_526)" +" s_526)))" +"(let-values(((flat-s_32)(to-syntax-list.1 s_527)))" "(if(not flat-s_32)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43))" @@ -63604,34 +63782,34 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))" "(values #t case-lambda86_1 clause87_1))))))" "(let-values(((rebuild-s_5)" -"(let-values(((ctx92_0) ctx_81)((s93_0) s_454)((temp94_2) #t))" +"(let-values(((ctx92_0) ctx_81)((s93_0) s_453)((temp94_2) #t))" "(keep-as-needed119.1 #f #f temp94_2 ctx92_0 s93_0))))" "(let-values(((clauses_1)" "(reverse$1" -"(let-values(((lst_112) formals79_0)((lst_200) body80_0)((lst_113) clause87_0))" +"(let-values(((lst_112) formals79_0)((lst_201) body80_0)((lst_113) clause87_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_112)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_200)))" +"(let-values()(check-list lst_201)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_113)))" "((letrec-values(((for-loop_31)" -"(lambda(fold-var_193 lst_332 lst_333 lst_334)" +"(lambda(fold-var_193 lst_333 lst_334 lst_335)" "(begin" " 'for-loop" -"(if(if(pair? lst_332)" -"(if(pair? lst_333)(pair? lst_334) #f)" +"(if(if(pair? lst_333)" +"(if(pair? lst_334)(pair? lst_335) #f)" " #f)" -"(let-values(((formals_8)(unsafe-car lst_332))" -"((rest_199)(unsafe-cdr lst_332))" -"((body_17)(unsafe-car lst_333))" -"((rest_200)(unsafe-cdr lst_333))" -"((clause_3)(unsafe-car lst_334))" -"((rest_201)(unsafe-cdr lst_334)))" +"(let-values(((formals_8)(unsafe-car lst_333))" +"((rest_198)(unsafe-cdr lst_333))" +"((body_17)(unsafe-car lst_334))" +"((rest_199)(unsafe-cdr lst_334))" +"((clause_3)(unsafe-car lst_335))" +"((rest_200)(unsafe-cdr lst_335)))" "(let-values(((fold-var_310)" "(let-values(((fold-var_311) fold-var_193))" "(let-values(((fold-var_312)" @@ -63665,7 +63843,7 @@ static const char *startup_source = "(let-values(((exp-formals_0" " exp-body_3)" "(lambda-clause-expander" -" s_454" +" s_453" " disarmed-s_7" " formals_8" " body_17" @@ -63689,13 +63867,13 @@ static const char *startup_source = " fold-var_311))))" "(values fold-var_312)))))" "(if(not #f)" -"(for-loop_31 fold-var_310 rest_199 rest_200 rest_201)" +"(for-loop_31 fold-var_310 rest_198 rest_199 rest_200)" " fold-var_310)))" " fold-var_193)))))" " for-loop_31)" " null" " lst_112" -" lst_200" +" lst_201" " lst_113))))))" "(if(expand-context-to-parsed? ctx_81)" "(parsed-case-lambda6.1 rebuild-s_5 clauses_1)" @@ -63703,54 +63881,54 @@ static const char *startup_source = "(rebuild5.1 #t rebuild-s99_0 temp100_2))))))))))))" "(define-values" "(parse-and-flatten-formals)" -"(lambda(all-formals_0 sc_37 s_529)" +"(lambda(all-formals_0 sc_38 s_528)" "(begin" -"((letrec-values(((loop_121)" +"((letrec-values(((loop_122)" "(lambda(formals_9)" "(begin" " 'loop" "(if(identifier? formals_9)" -"(let-values()(list(add-scope formals_9 sc_37)))" +"(let-values()(list(add-scope formals_9 sc_38)))" "(if(syntax?$1 formals_9)" "(let-values()" "(let-values(((p_86)(syntax-e$1 formals_9)))" "(if(pair? p_86)" -"(let-values()(loop_121 p_86))" +"(let-values()(loop_122 p_86))" "(if(null? p_86)" "(let-values() null)" -" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_529 p_86))))))" +" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_528 p_86))))))" "(if(pair? formals_9)" "(let-values()" "(begin" "(if(identifier?(car formals_9))" "(void)" "(let-values()" -" (raise-syntax-error$1 #f \"not an identifier\" s_529 (car formals_9))))" +" (raise-syntax-error$1 #f \"not an identifier\" s_528 (car formals_9))))" "(cons" -"(if sc_37(add-scope(car formals_9) sc_37)(car formals_9))" -"(loop_121(cdr formals_9)))))" +"(if sc_38(add-scope(car formals_9) sc_38)(car formals_9))" +"(loop_122(cdr formals_9)))))" "(if(null? formals_9)" "(let-values() null)" "(let-values()" -" (raise-syntax-error$1 \"bad argument sequence\" s_529 all-formals_0))))))))))" -" loop_121)" +" (raise-syntax-error$1 \"bad argument sequence\" s_528 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" @@ -63764,7 +63942,7 @@ static const char *startup_source = "(let-values(((split-by-reference?_0) split-by-reference?4_0))" "(let-values(((renames-log-tag_0) renames-log-tag5_0))" "(let-values()" -"(lambda(s_104 ctx_82)" +"(lambda(s_105 ctx_82)" "(let-values((()" "(begin" "(let-values(((obs_53)(expand-context-observer ctx_82)))" @@ -63772,7 +63950,7 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_53 log-tag_0)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_8)(syntax-disarm$1 s_104)))" +"(let-values(((disarmed-s_8)(syntax-disarm$1 s_105)))" "(let-values(((ok?_41" " letrec-syntaxes+values101_0" " id:trans102_0" @@ -63780,28 +63958,28 @@ static const char *startup_source = " id:val104_0" " val-rhs105_0" " body106_0)" -"(let-values(((s_127) disarmed-s_8))" +"(let-values(((s_128) disarmed-s_8))" "(if(if syntaxes?_0 #t #f)" -"(let-values(((orig-s_44) s_127))" +"(let-values(((orig-s_44) s_128))" "(let-values(((letrec-syntaxes+values101_1" " id:trans102_1" " trans-rhs103_1" " id:val104_1" " val-rhs105_1" " body106_1)" -"(let-values(((s_530)" -"(if(syntax?$1 s_127)" -"(syntax-e$1 s_127)" -" s_127)))" -"(if(pair? s_530)" +"(let-values(((s_529)" +"(if(syntax?$1 s_128)" +"(syntax-e$1 s_128)" +" s_128)))" +"(if(pair? s_529)" "(let-values(((letrec-syntaxes+values107_0)" -"(let-values(((s_531)(car s_530))) s_531))" +"(let-values(((s_530)(car s_529))) s_530))" "((id:trans108_0" " trans-rhs109_0" " id:val110_0" " val-rhs111_0" " body112_0)" -"(let-values(((s_230)(cdr s_530)))" +"(let-values(((s_230)(cdr s_529)))" "(let-values(((s_231)" "(if(syntax?$1 s_230)" "(syntax-e$1 s_230)" @@ -63831,7 +64009,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans_0" " trans-rhs_0)" -"(let-values(((lst_335)" +"(let-values(((lst_336)" " flat-s_33))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63839,21 +64017,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_335)))" -"((letrec-values(((for-loop_293)" +" lst_336)))" +"((letrec-values(((for-loop_292)" "(lambda(id:trans_1" " trans-rhs_1" -" lst_336)" +" lst_337)" "(begin" " 'for-loop" "(if(pair?" -" lst_336)" +" lst_337)" "(let-values(((s_334)" "(unsafe-car" -" lst_336))" -"((rest_202)" +" lst_337))" +"((rest_201)" "(unsafe-cdr" -" lst_336)))" +" lst_337)))" "(let-values(((id:trans_2" " trans-rhs_2)" "(let-values(((id:trans_3)" @@ -63866,18 +64044,18 @@ static const char *startup_source = "(let-values(((id:trans144_0" " trans-rhs145_0)" "(let-values()" -"(let-values(((s_532)" +"(let-values(((s_531)" "(if(syntax?$1" " s_334)" "(syntax-e$1" " s_334)" " s_334)))" "(if(pair?" -" s_532)" +" s_531)" "(let-values(((id:trans118_0)" "(let-values(((s_340)" "(car" -" s_532)))" +" s_531)))" "(let-values(((s_341)" "(if(syntax?$1" " s_340)" @@ -63896,7 +64074,7 @@ static const char *startup_source = " orig-s_44))" "(let-values()" "(let-values(((id:trans_5)" -"(let-values(((lst_337)" +"(let-values(((lst_338)" " flat-s_34))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63904,18 +64082,18 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_337)))" -"((letrec-values(((for-loop_294)" +" lst_338)))" +"((letrec-values(((for-loop_293)" "(lambda(id:trans_6" " lst_213)" "(begin" " 'for-loop" "(if(pair?" " lst_213)" -"(let-values(((s_533)" +"(let-values(((s_532)" "(unsafe-car" " lst_213))" -"((rest_203)" +"((rest_202)" "(unsafe-cdr" " lst_213)))" "(let-values(((id:trans_7)" @@ -63927,21 +64105,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_342)" "(if(syntax?$1" -" s_533)" +" s_532)" "(symbol?" "(syntax-e$1" -" s_533))" +" s_532))" " #f)))" "(if or-part_342" " or-part_342" "(symbol?" -" s_533)))" -" s_533" +" s_532)))" +" s_532" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_44" -" s_533)))))" +" s_532)))))" "(cons" " id:trans146_0" " id:trans_8)))))" @@ -63949,37 +64127,37 @@ static const char *startup_source = " id:trans_9)))))" "(if(not" " #f)" -"(for-loop_294" +"(for-loop_293" " id:trans_7" -" rest_203)" +" rest_202)" " id:trans_7)))" " id:trans_6)))))" -" for-loop_294)" +" for-loop_293)" " null" -" lst_337)))))" +" lst_338)))))" "(reverse$1" " id:trans_5))))))))" "((trans-rhs119_0)" "(let-values(((s_242)" "(cdr" -" s_532)))" -"(let-values(((s_534)" +" s_531)))" +"(let-values(((s_533)" "(if(syntax?$1" " s_242)" "(syntax-e$1" " s_242)" " s_242)))" "(if(pair?" -" s_534)" +" s_533)" "(let-values(((trans-rhs120_0)" "(let-values(((s_243)" "(car" -" s_534)))" +" s_533)))" " s_243))" "(()" "(let-values(((s_244)" "(cdr" -" s_534)))" +" s_533)))" "(let-values(((s_245)" "(if(syntax?$1" " s_244)" @@ -64018,20 +64196,20 @@ static const char *startup_source = " trans-rhs_4)))))" "(if(not" " #f)" -"(for-loop_293" +"(for-loop_292" " id:trans_2" " trans-rhs_2" -" rest_202)" +" rest_201)" "(values" " id:trans_2" " trans-rhs_2))))" "(values" " id:trans_1" " trans-rhs_1))))))" -" for-loop_293)" +" for-loop_292)" " null" " null" -" lst_335)))))" +" lst_336)))))" "(values" "(reverse$1" " id:trans_0)" @@ -64040,27 +64218,27 @@ static const char *startup_source = "((id:val115_0" " val-rhs116_0" " body117_0)" -"(let-values(((s_535)" +"(let-values(((s_534)" "(cdr" " s_231)))" "(let-values(((s_347)" "(if(syntax?$1" +" s_534)" +"(syntax-e$1" +" s_534)" +" s_534)))" +"(if(pair? s_347)" +"(let-values(((id:val121_0" +" val-rhs122_0)" +"(let-values(((s_535)" +"(car" +" s_347)))" +"(let-values(((s_246)" +"(if(syntax?$1" " s_535)" "(syntax-e$1" " s_535)" " s_535)))" -"(if(pair? s_347)" -"(let-values(((id:val121_0" -" val-rhs122_0)" -"(let-values(((s_536)" -"(car" -" s_347)))" -"(let-values(((s_246)" -"(if(syntax?$1" -" s_536)" -"(syntax-e$1" -" s_536)" -" s_536)))" "(let-values(((flat-s_35)" "(to-syntax-list.1" " s_246)))" @@ -64074,7 +64252,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_0" " val-rhs_1)" -"(let-values(((lst_338)" +"(let-values(((lst_339)" " flat-s_35))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64082,21 +64260,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_338)))" -"((letrec-values(((for-loop_295)" +" lst_339)))" +"((letrec-values(((for-loop_294)" "(lambda(id:val_1" " val-rhs_2" -" lst_339)" +" lst_340)" "(begin" " 'for-loop" "(if(pair?" -" lst_339)" -"(let-values(((s_537)" +" lst_340)" +"(let-values(((s_536)" "(unsafe-car" -" lst_339))" -"((rest_204)" +" lst_340))" +"((rest_203)" "(unsafe-cdr" -" lst_339)))" +" lst_340)))" "(let-values(((id:val_2" " val-rhs_3)" "(let-values(((id:val_3)" @@ -64109,27 +64287,27 @@ static const char *startup_source = "(let-values(((id:val147_0" " val-rhs148_0)" "(let-values()" +"(let-values(((s_537)" +"(if(syntax?$1" +" s_536)" +"(syntax-e$1" +" s_536)" +" s_536)))" +"(if(pair?" +" s_537)" +"(let-values(((id:val124_0)" +"(let-values(((s_472)" +"(car" +" s_537)))" "(let-values(((s_538)" "(if(syntax?$1" -" s_537)" +" s_472)" "(syntax-e$1" -" s_537)" -" s_537)))" -"(if(pair?" -" s_538)" -"(let-values(((id:val124_0)" -"(let-values(((s_473)" -"(car" -" s_538)))" -"(let-values(((s_539)" -"(if(syntax?$1" -" s_473)" -"(syntax-e$1" -" s_473)" -" s_473)))" +" s_472)" +" s_472)))" "(let-values(((flat-s_36)" "(to-syntax-list.1" -" s_539)))" +" s_538)))" "(if(not" " flat-s_36)" "(let-values()" @@ -64139,7 +64317,7 @@ static const char *startup_source = " orig-s_44))" "(let-values()" "(let-values(((id:val_5)" -"(let-values(((lst_340)" +"(let-values(((lst_341)" " flat-s_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64147,15 +64325,15 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_340)))" -"((letrec-values(((for-loop_296)" +" lst_341)))" +"((letrec-values(((for-loop_295)" "(lambda(id:val_6" " lst_123)" "(begin" " 'for-loop" "(if(pair?" " lst_123)" -"(let-values(((s_540)" +"(let-values(((s_539)" "(unsafe-car" " lst_123))" "((rest_62)" @@ -64170,21 +64348,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_379)" "(if(syntax?$1" -" s_540)" +" s_539)" "(symbol?" "(syntax-e$1" -" s_540))" +" s_539))" " #f)))" "(if or-part_379" " or-part_379" "(symbol?" -" s_540)))" -" s_540" +" s_539)))" +" s_539" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_44" -" s_540)))))" +" s_539)))))" "(cons" " id:val149_0" " id:val_8)))))" @@ -64192,20 +64370,20 @@ static const char *startup_source = " id:val_9)))))" "(if(not" " #f)" -"(for-loop_296" +"(for-loop_295" " id:val_7" " rest_62)" " id:val_7)))" " id:val_6)))))" -" for-loop_296)" +" for-loop_295)" " null" -" lst_340)))))" +" lst_341)))))" "(reverse$1" " id:val_5))))))))" "((val-rhs125_0)" "(let-values(((s_353)" "(cdr" -" s_538)))" +" s_537)))" "(let-values(((s_248)" "(if(syntax?$1" " s_353)" @@ -64220,15 +64398,15 @@ static const char *startup_source = " s_248)))" " s_355))" "(()" -"(let-values(((s_541)" +"(let-values(((s_540)" "(cdr" " s_248)))" "(let-values(((s_356)" "(if(syntax?$1" -" s_541)" +" s_540)" "(syntax-e$1" -" s_541)" -" s_541)))" +" s_540)" +" s_540)))" "(if(null?" " s_356)" "(values)" @@ -64261,20 +64439,20 @@ static const char *startup_source = " val-rhs_5)))))" "(if(not" " #f)" -"(for-loop_295" +"(for-loop_294" " id:val_2" " val-rhs_3" -" rest_204)" +" rest_203)" "(values" " id:val_2" " val-rhs_3))))" "(values" " id:val_1" " val-rhs_2))))))" -" for-loop_295)" +" for-loop_294)" " null" " null" -" lst_338)))))" +" lst_339)))))" "(values" "(reverse$1" " id:val_0)" @@ -64358,23 +64536,23 @@ static const char *startup_source = "(let-values(((s_257)(car s_254)))" " s_257))" "((id:val132_0 val-rhs133_0 body134_0)" -"(let-values(((s_542)(cdr s_254)))" -"(let-values(((s_417)" -"(if(syntax?$1 s_542)" -"(syntax-e$1 s_542)" -" s_542)))" -"(if(pair? s_417)" +"(let-values(((s_541)(cdr s_254)))" +"(let-values(((s_416)" +"(if(syntax?$1 s_541)" +"(syntax-e$1 s_541)" +" s_541)))" +"(if(pair? s_416)" "(let-values(((id:val135_0" " val-rhs136_0)" -"(let-values(((s_543)" +"(let-values(((s_542)" "(car" -" s_417)))" +" s_416)))" "(let-values(((s_258)" "(if(syntax?$1" -" s_543)" +" s_542)" "(syntax-e$1" -" s_543)" -" s_543)))" +" s_542)" +" s_542)))" "(let-values(((flat-s_38)" "(to-syntax-list.1" " s_258)))" @@ -64397,20 +64575,20 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_304)))" -"((letrec-values(((for-loop_297)" +"((letrec-values(((for-loop_296)" "(lambda(id:val_11" " val-rhs_7" -" lst_341)" +" lst_342)" "(begin" " 'for-loop" "(if(pair?" -" lst_341)" -"(let-values(((s_544)" +" lst_342)" +"(let-values(((s_543)" "(unsafe-car" -" lst_341))" -"((rest_205)" +" lst_342))" +"((rest_204)" "(unsafe-cdr" -" lst_341)))" +" lst_342)))" "(let-values(((id:val_12" " val-rhs_8)" "(let-values(((id:val_13)" @@ -64425,25 +64603,25 @@ static const char *startup_source = "(let-values()" "(let-values(((s_372)" "(if(syntax?$1" +" s_543)" +"(syntax-e$1" +" s_543)" +" s_543)))" +"(if(pair?" +" s_372)" +"(let-values(((id:val138_0)" +"(let-values(((s_544)" +"(car" +" s_372)))" +"(let-values(((s_545)" +"(if(syntax?$1" " s_544)" "(syntax-e$1" " s_544)" " s_544)))" -"(if(pair?" -" s_372)" -"(let-values(((id:val138_0)" -"(let-values(((s_545)" -"(car" -" s_372)))" -"(let-values(((s_546)" -"(if(syntax?$1" -" s_545)" -"(syntax-e$1" -" s_545)" -" s_545)))" "(let-values(((flat-s_39)" "(to-syntax-list.1" -" s_546)))" +" s_545)))" "(if(not" " flat-s_39)" "(let-values()" @@ -64453,7 +64631,7 @@ static const char *startup_source = " orig-s_45))" "(let-values()" "(let-values(((id:val_15)" -"(let-values(((lst_342)" +"(let-values(((lst_343)" " flat-s_39))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64461,20 +64639,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_342)))" -"((letrec-values(((for-loop_298)" +" lst_343)))" +"((letrec-values(((for-loop_297)" "(lambda(id:val_16" -" lst_343)" +" lst_344)" "(begin" " 'for-loop" "(if(pair?" -" lst_343)" -"(let-values(((s_547)" +" lst_344)" +"(let-values(((s_546)" "(unsafe-car" -" lst_343))" -"((rest_206)" +" lst_344))" +"((rest_205)" "(unsafe-cdr" -" lst_343)))" +" lst_344)))" "(let-values(((id:val_17)" "(let-values(((id:val_18)" " id:val_16))" @@ -64484,21 +64662,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_380)" "(if(syntax?$1" -" s_547)" +" s_546)" "(symbol?" "(syntax-e$1" -" s_547))" +" s_546))" " #f)))" "(if or-part_380" " or-part_380" "(symbol?" -" s_547)))" -" s_547" +" s_546)))" +" s_546" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_45" -" s_547)))))" +" s_546)))))" "(cons" " id:val152_0" " id:val_18)))))" @@ -64506,14 +64684,14 @@ static const char *startup_source = " id:val_19)))))" "(if(not" " #f)" -"(for-loop_298" +"(for-loop_297" " id:val_17" -" rest_206)" +" rest_205)" " id:val_17)))" " id:val_16)))))" -" for-loop_298)" +" for-loop_297)" " null" -" lst_342)))))" +" lst_343)))))" "(reverse$1" " id:val_15))))))))" "((val-rhs139_0)" @@ -64529,22 +64707,22 @@ static const char *startup_source = "(if(pair?" " s_260)" "(let-values(((val-rhs140_0)" -"(let-values(((s_548)" +"(let-values(((s_547)" "(car" " s_260)))" -" s_548))" +" s_547))" "(()" -"(let-values(((s_549)" +"(let-values(((s_548)" "(cdr" " s_260)))" -"(let-values(((s_550)" +"(let-values(((s_549)" "(if(syntax?$1" -" s_549)" +" s_548)" "(syntax-e$1" -" s_549)" -" s_549)))" +" s_548)" +" s_548)))" "(if(null?" -" s_550)" +" s_549)" "(values)" "(raise-syntax-error$1" " #f" @@ -64575,17 +64753,17 @@ static const char *startup_source = " val-rhs_10)))))" "(if(not" " #f)" -"(for-loop_297" +"(for-loop_296" " id:val_12" " val-rhs_8" -" rest_205)" +" rest_204)" "(values" " id:val_12" " val-rhs_8))))" "(values" " id:val_11" " val-rhs_7))))))" -" for-loop_297)" +" for-loop_296)" " null" " null" " lst_304)))))" @@ -64597,7 +64775,7 @@ static const char *startup_source = "((body137_0)" "(let-values(((s_261)" "(cdr" -" s_417)))" +" s_416)))" "(let-values(((s_262)" "(if(syntax?$1" " s_261)" @@ -64639,34 +64817,34 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_45)))))" "(values #t let-values127_1 id:val128_1 val-rhs129_1 body130_1)))" "(values #f #f #f #f #f)))))" -"(let-values(((sc_38)(new-scope 'local)))" +"(let-values(((sc_39)(new-scope 'local)))" "(let-values(((phase_81)(expand-context-phase ctx_82)))" "(let-values(((frame-id_15)(if syntaxes?_0(make-reference-record) #f)))" "(let-values(((trans-idss_2)" "(reverse$1" -"(let-values(((lst_344)(if syntaxes?_0 id:trans102_0 null)))" +"(let-values(((lst_345)(if syntaxes?_0 id:trans102_0 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_344)))" -"((letrec-values(((for-loop_299)" -"(lambda(fold-var_313 lst_345)" +"(let-values()(check-list lst_345)))" +"((letrec-values(((for-loop_298)" +"(lambda(fold-var_313 lst_346)" "(begin" " 'for-loop" -"(if(pair? lst_345)" +"(if(pair? lst_346)" "(let-values(((ids_37)" -"(unsafe-car lst_345))" -"((rest_207)" -"(unsafe-cdr lst_345)))" -"(let-values(((fold-var_108)" -"(let-values(((fold-var_109)" -" fold-var_313))" +"(unsafe-car lst_346))" +"((rest_206)" +"(unsafe-cdr lst_346)))" "(let-values(((fold-var_110)" +"(let-values(((fold-var_111)" +" fold-var_313))" +"(let-values(((fold-var_112)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_346)" +"(let-values(((lst_347)" " ids_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64674,20 +64852,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_346)))" -"((letrec-values(((for-loop_300)" +" lst_347)))" +"((letrec-values(((for-loop_299)" "(lambda(fold-var_314" -" lst_347)" +" lst_348)" "(begin" " 'for-loop" "(if(pair?" -" lst_347)" +" lst_348)" "(let-values(((id_115)" "(unsafe-car" -" lst_347))" -"((rest_208)" +" lst_348))" +"((rest_207)" "(unsafe-cdr" -" lst_347)))" +" lst_348)))" "(let-values(((fold-var_315)" "(let-values(((fold-var_316)" " fold-var_314))" @@ -64697,46 +64875,46 @@ static const char *startup_source = "(let-values()" "(add-scope" " id_115" -" sc_38))" +" sc_39))" " fold-var_316))))" "(values" " fold-var_317)))))" "(if(not" " #f)" -"(for-loop_300" +"(for-loop_299" " fold-var_315" -" rest_208)" +" rest_207)" " fold-var_315)))" " fold-var_314)))))" -" for-loop_300)" -" null" -" lst_346)))))" -" fold-var_109))))" -"(values" -" fold-var_110)))))" -"(if(not #f)" -"(for-loop_299 fold-var_108 rest_207)" -" fold-var_108)))" -" fold-var_313)))))" " for-loop_299)" " null" -" lst_344))))))" +" lst_347)))))" +" fold-var_111))))" +"(values" +" fold-var_112)))))" +"(if(not #f)" +"(for-loop_298 fold-var_110 rest_206)" +" fold-var_110)))" +" fold-var_313)))))" +" for-loop_298)" +" null" +" lst_345))))))" "(let-values(((val-idss_3)" "(reverse$1" -"(let-values(((lst_348)(if syntaxes?_0 id:val104_0 id:val128_0)))" +"(let-values(((lst_349)(if syntaxes?_0 id:val104_0 id:val128_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_348)))" -"((letrec-values(((for-loop_301)" -"(lambda(fold-var_318 lst_349)" +"(let-values()(check-list lst_349)))" +"((letrec-values(((for-loop_300)" +"(lambda(fold-var_318 lst_350)" "(begin" " 'for-loop" -"(if(pair? lst_349)" +"(if(pair? lst_350)" "(let-values(((ids_38)" -"(unsafe-car lst_349))" -"((rest_209)" -"(unsafe-cdr lst_349)))" +"(unsafe-car lst_350))" +"((rest_208)" +"(unsafe-cdr lst_350)))" "(let-values(((fold-var_319)" "(let-values(((fold-var_320)" " fold-var_318))" @@ -64745,7 +64923,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_350)" +"(let-values(((lst_351)" " ids_38))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64753,20 +64931,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_350)))" -"((letrec-values(((for-loop_302)" +" lst_351)))" +"((letrec-values(((for-loop_301)" "(lambda(fold-var_322" -" lst_351)" +" lst_352)" "(begin" " 'for-loop" "(if(pair?" -" lst_351)" +" lst_352)" "(let-values(((id_116)" "(unsafe-car" -" lst_351))" -"((rest_210)" +" lst_352))" +"((rest_209)" "(unsafe-cdr" -" lst_351)))" +" lst_352)))" "(let-values(((fold-var_323)" "(let-values(((fold-var_324)" " fold-var_322))" @@ -64776,50 +64954,50 @@ static const char *startup_source = "(let-values()" "(add-scope" " id_116" -" sc_38))" +" sc_39))" " fold-var_324))))" "(values" " fold-var_325)))))" "(if(not" " #f)" -"(for-loop_302" +"(for-loop_301" " fold-var_323" -" rest_210)" +" rest_209)" " fold-var_323)))" " fold-var_322)))))" -" for-loop_302)" +" for-loop_301)" " null" -" lst_350)))))" +" lst_351)))))" " fold-var_320))))" "(values" " fold-var_321)))))" "(if(not #f)" -"(for-loop_301" +"(for-loop_300" " fold-var_319" -" rest_209)" +" rest_208)" " fold-var_319)))" " fold-var_318)))))" -" for-loop_301)" +" for-loop_300)" " null" -" lst_348))))))" +" lst_349))))))" "(let-values(((val-rhss_3)" "(if rec?_1" "(reverse$1" -"(let-values(((lst_352)" +"(let-values(((lst_353)" "(if syntaxes?_0 val-rhs105_0 val-rhs129_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_352)))" -"((letrec-values(((for-loop_303)" -"(lambda(fold-var_326 lst_353)" +"(let-values()(check-list lst_353)))" +"((letrec-values(((for-loop_302)" +"(lambda(fold-var_326 lst_354)" "(begin" " 'for-loop" -"(if(pair? lst_353)" +"(if(pair? lst_354)" "(let-values(((rhs_20)" -"(unsafe-car lst_353))" -"((rest_211)" -"(unsafe-cdr lst_353)))" +"(unsafe-car lst_354))" +"((rest_210)" +"(unsafe-cdr lst_354)))" "(let-values(((fold-var_327)" "(let-values(((fold-var_328)" " fold-var_326))" @@ -64829,87 +65007,87 @@ static const char *startup_source = "(let-values()" "(add-scope" " rhs_20" -" sc_38))" +" sc_39))" " fold-var_328))))" "(values" " fold-var_329)))))" "(if(not #f)" -"(for-loop_303" +"(for-loop_302" " fold-var_327" -" rest_211)" +" rest_210)" " fold-var_327)))" " fold-var_326)))))" -" for-loop_303)" +" for-loop_302)" " null" -" lst_352))))" +" lst_353))))" "(if syntaxes?_0 val-rhs105_0 val-rhs129_0))))" "(let-values(((val-clauses_0)" "(if syntaxes?_0" "(let-values()" "(let-values(((ok?_43 _153_0 _154_0 clause155_0 _156_0)" -"(let-values(((s_141) disarmed-s_8))" -"(let-values(((orig-s_46) s_141))" +"(let-values(((s_142) disarmed-s_8))" +"(let-values(((orig-s_46) s_142))" "(let-values(((_153_1" " _154_1" " clause155_1" " _156_1)" -"(let-values(((s_551)" +"(let-values(((s_550)" "(if(syntax?$1" -" s_141)" +" s_142)" "(syntax-e$1" -" s_141)" -" s_141)))" -"(if(pair? s_551)" +" s_142)" +" s_142)))" +"(if(pair? s_550)" "(let-values(((_157_0)" -"(let-values(((s_552)" +"(let-values(((s_551)" "(car" -" s_551)))" -" s_552))" +" s_550)))" +" s_551))" "((_158_0" " clause159_0" " _160_0)" -"(let-values(((s_553)" +"(let-values(((s_552)" "(cdr" -" s_551)))" -"(let-values(((s_554)" +" s_550)))" +"(let-values(((s_553)" "(if(syntax?$1" -" s_553)" +" s_552)" "(syntax-e$1" -" s_553)" -" s_553)))" +" s_552)" +" s_552)))" "(if(pair?" -" s_554)" +" s_553)" "(let-values(((_161_0)" -"(let-values(((s_555)" +"(let-values(((s_554)" "(car" -" s_554)))" -" s_555))" +" s_553)))" +" s_554))" "((clause162_0" " _163_0)" -"(let-values(((s_556)" +"(let-values(((s_555)" "(cdr" -" s_554)))" -"(let-values(((s_557)" +" s_553)))" +"(let-values(((s_556)" "(if(syntax?$1" -" s_556)" +" s_555)" "(syntax-e$1" -" s_556)" -" s_556)))" +" s_555)" +" s_555)))" "(if(pair?" -" s_557)" +" s_556)" "(let-values(((clause164_0)" -"(let-values(((s_558)" +"(let-values(((s_557)" "(car" -" s_557)))" -"(let-values(((s_559)" +" s_556)))" +"(let-values(((s_558)" "(if(syntax?$1" -" s_558)" +" s_557)" "(syntax-e$1" -" s_558)" -" s_558)))" +" s_557)" +" s_557)))" "(let-values(((flat-s_41)" "(to-syntax-list.1" -" s_559)))" +" s_558)))" "(if(not" " flat-s_41)" "(let-values()" @@ -64920,10 +65098,10 @@ static const char *startup_source = "(let-values()" " flat-s_41))))))" "((_165_0)" -"(let-values(((s_560)" +"(let-values(((s_559)" "(cdr" -" s_557)))" -" s_560)))" +" s_556)))" +" s_559)))" "(values" " clause164_0" " _165_0))" @@ -64957,47 +65135,47 @@ static const char *startup_source = " clause155_0))" "(let-values()" "(let-values(((ok?_44 _166_0 clause167_0 _168_0)" -"(let-values(((s_144) disarmed-s_8))" -"(let-values(((orig-s_47) s_144))" +"(let-values(((s_145) disarmed-s_8))" +"(let-values(((orig-s_47) s_145))" "(let-values(((_166_1 clause167_1 _168_1)" -"(let-values(((s_561)" +"(let-values(((s_560)" "(if(syntax?$1" -" s_144)" +" s_145)" "(syntax-e$1" -" s_144)" -" s_144)))" -"(if(pair? s_561)" +" s_145)" +" s_145)))" +"(if(pair? s_560)" "(let-values(((_169_0)" -"(let-values(((s_562)" +"(let-values(((s_561)" "(car" -" s_561)))" -" s_562))" +" s_560)))" +" s_561))" "((clause170_0" " _171_0)" -"(let-values(((s_563)" +"(let-values(((s_562)" "(cdr" -" s_561)))" -"(let-values(((s_564)" +" s_560)))" +"(let-values(((s_563)" "(if(syntax?$1" -" s_563)" +" s_562)" "(syntax-e$1" -" s_563)" -" s_563)))" +" s_562)" +" s_562)))" "(if(pair?" -" s_564)" +" s_563)" "(let-values(((clause172_0)" -"(let-values(((s_565)" +"(let-values(((s_564)" "(car" -" s_564)))" -"(let-values(((s_566)" +" s_563)))" +"(let-values(((s_565)" "(if(syntax?$1" -" s_565)" +" s_564)" "(syntax-e$1" -" s_565)" -" s_565)))" +" s_564)" +" s_564)))" "(let-values(((flat-s_42)" "(to-syntax-list.1" -" s_566)))" +" s_565)))" "(if(not" " flat-s_42)" "(let-values()" @@ -65008,10 +65186,10 @@ static const char *startup_source = "(let-values()" " flat-s_42))))))" "((_173_0)" -"(let-values(((s_567)" +"(let-values(((s_566)" "(cdr" -" s_564)))" -" s_567)))" +" s_563)))" +" s_566)))" "(values" " clause172_0" " _173_0))" @@ -65033,7 +65211,7 @@ static const char *startup_source = "(begin" "(let-values(((temp141_2)(list trans-idss_2 val-idss_3))" "((phase142_0) phase_81)" -"((s143_0) s_104))" +"((s143_0) s_105))" "(check-no-duplicate-ids7.1" " unsafe-undefined" " temp141_2" @@ -65044,23 +65222,23 @@ static const char *startup_source = "(let-values(((counter_8)(root-expand-context-counter ctx_82)))" "(let-values(((trans-keyss_0)" "(reverse$1" -"(let-values(((lst_354) trans-idss_2))" +"(let-values(((lst_355) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_354)))" -"((letrec-values(((for-loop_304)" -"(lambda(fold-var_330 lst_355)" +"(let-values()(check-list lst_355)))" +"((letrec-values(((for-loop_303)" +"(lambda(fold-var_330 lst_356)" "(begin" " 'for-loop" -"(if(pair? lst_355)" +"(if(pair? lst_356)" "(let-values(((ids_39)" "(unsafe-car" -" lst_355))" -"((rest_212)" +" lst_356))" +"((rest_211)" "(unsafe-cdr" -" lst_355)))" +" lst_356)))" "(let-values(((fold-var_331)" "(let-values(((fold-var_332)" " fold-var_330))" @@ -65069,7 +65247,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_356)" +"(let-values(((lst_357)" " ids_39))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65077,20 +65255,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_356)))" -"((letrec-values(((for-loop_305)" +" lst_357)))" +"((letrec-values(((for-loop_304)" "(lambda(fold-var_334" -" lst_357)" +" lst_358)" "(begin" " 'for-loop" "(if(pair?" -" lst_357)" +" lst_358)" "(let-values(((id_117)" "(unsafe-car" -" lst_357))" -"((rest_213)" +" lst_358))" +"((rest_212)" "(unsafe-cdr" -" lst_357)))" +" lst_358)))" "(let-values(((fold-var_335)" "(let-values(((fold-var_336)" " fold-var_334))" @@ -65107,7 +65285,7 @@ static const char *startup_source = "((frame-id177_0)" " frame-id_15)" "((s178_0)" -" s_104))" +" s_105))" "(add-local-binding!37.1" " frame-id177_0" " s178_0" @@ -65119,49 +65297,49 @@ static const char *startup_source = " fold-var_337)))))" "(if(not" " #f)" -"(for-loop_305" +"(for-loop_304" " fold-var_335" -" rest_213)" +" rest_212)" " fold-var_335)))" " fold-var_334)))))" -" for-loop_305)" +" for-loop_304)" " null" -" lst_356)))))" +" lst_357)))))" " fold-var_332))))" "(values" " fold-var_333)))))" "(if(not #f)" -"(for-loop_304" +"(for-loop_303" " fold-var_331" -" rest_212)" +" rest_211)" " fold-var_331)))" " fold-var_330)))))" -" for-loop_304)" +" for-loop_303)" " null" -" lst_354))))))" +" lst_355))))))" "(let-values(((val-keyss_2)" "(reverse$1" -"(let-values(((lst_358) val-idss_3))" +"(let-values(((lst_359) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_358)))" -"((letrec-values(((for-loop_306)" -"(lambda(fold-var_338 lst_359)" +"(let-values()(check-list lst_359)))" +"((letrec-values(((for-loop_305)" +"(lambda(fold-var_338 lst_360)" "(begin" " 'for-loop" -"(if(pair? lst_359)" +"(if(pair? lst_360)" "(let-values(((ids_40)" "(unsafe-car" -" lst_359))" -"((rest_214)" +" lst_360))" +"((rest_213)" "(unsafe-cdr" -" lst_359)))" +" lst_360)))" "(let-values(((fold-var_339)" "(let-values(((fold-var_340)" " fold-var_338))" -"(let-values(((fold-var_113)" +"(let-values(((fold-var_115)" "(let-values()" "(cons" "(let-values()" @@ -65175,19 +65353,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_131)))" -"((letrec-values(((for-loop_307)" +"((letrec-values(((for-loop_306)" "(lambda(fold-var_341" -" lst_360)" +" lst_361)" "(begin" " 'for-loop" "(if(pair?" -" lst_360)" +" lst_361)" "(let-values(((id_118)" "(unsafe-car" -" lst_360))" -"((rest_215)" +" lst_361))" +"((rest_214)" "(unsafe-cdr" -" lst_360)))" +" lst_361)))" "(let-values(((fold-var_342)" "(let-values(((fold-var_343)" " fold-var_341))" @@ -65204,7 +65382,7 @@ static const char *startup_source = "((frame-id182_0)" " frame-id_15)" "((s183_0)" -" s_104))" +" s_105))" "(add-local-binding!37.1" " frame-id182_0" " s183_0" @@ -65216,47 +65394,47 @@ static const char *startup_source = " fold-var_344)))))" "(if(not" " #f)" -"(for-loop_307" +"(for-loop_306" " fold-var_342" -" rest_215)" +" rest_214)" " fold-var_342)))" " fold-var_341)))))" -" for-loop_307)" +" for-loop_306)" " null" " lst_131)))))" " fold-var_340))))" "(values" -" fold-var_113)))))" +" fold-var_115)))))" "(if(not #f)" -"(for-loop_306" +"(for-loop_305" " fold-var_339" -" rest_214)" +" rest_213)" " fold-var_339)))" " fold-var_338)))))" -" for-loop_306)" +" for-loop_305)" " null" -" lst_358))))))" +" lst_359))))))" "(let-values(((bodys_10)" "(reverse$1" -"(let-values(((lst_361)" +"(let-values(((lst_362)" "(if syntaxes?_0 body106_0 body130_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_361)))" -"((letrec-values(((for-loop_308)" -"(lambda(fold-var_345 lst_362)" +"(let-values()(check-list lst_362)))" +"((letrec-values(((for-loop_307)" +"(lambda(fold-var_345 lst_363)" "(begin" " 'for-loop" -"(if(pair? lst_362)" +"(if(pair? lst_363)" "(let-values(((body_18)" "(unsafe-car" -" lst_362))" -"((rest_216)" +" lst_363))" +"((rest_215)" "(unsafe-cdr" -" lst_362)))" -"(let-values(((fold-var_118)" +" lst_363)))" +"(let-values(((fold-var_120)" "(let-values(((fold-var_346)" " fold-var_345))" "(let-values(((fold-var_48)" @@ -65265,19 +65443,19 @@ static const char *startup_source = "(let-values()" "(add-scope" " body_18" -" sc_38))" +" sc_39))" " fold-var_346))))" "(values" " fold-var_48)))))" "(if(not #f)" -"(for-loop_308" -" fold-var_118" -" rest_216)" -" fold-var_118)))" +"(for-loop_307" +" fold-var_120" +" rest_215)" +" fold-var_120)))" " fold-var_345)))))" -" for-loop_308)" +" for-loop_307)" " null" -" lst_361))))))" +" lst_362))))))" "(let-values((()" "(begin" "(let-values(((obs_90)" @@ -65292,7 +65470,7 @@ static const char *startup_source = " bodys_10" " trans-idss_2" "(if syntaxes?_0 trans-rhs103_0 #f)" -" sc_38))" +" sc_39))" "(void)))" "(values))))" "(let-values((()" @@ -65319,7 +65497,7 @@ static const char *startup_source = "(if syntaxes?_0" " trans-rhs103_0" " '()))" -"((lst_363) trans-idss_2))" +"((lst_364) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -65328,28 +65506,28 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_363)))" -"((letrec-values(((for-loop_309)" +"(let-values()(check-list lst_364)))" +"((letrec-values(((for-loop_308)" "(lambda(fold-var_347" -" lst_364" -" lst_365)" +" lst_365" +" lst_366)" "(begin" " 'for-loop" -"(if(if(pair? lst_364)" -"(pair? lst_365)" +"(if(if(pair? lst_365)" +"(pair? lst_366)" " #f)" "(let-values(((rhs_21)" "(unsafe-car" -" lst_364))" -"((rest_217)" +" lst_365))" +"((rest_216)" "(unsafe-cdr" -" lst_364))" +" lst_365))" "((ids_41)" "(unsafe-car" -" lst_365))" -"((rest_218)" +" lst_366))" +"((rest_217)" "(unsafe-cdr" -" lst_365)))" +" lst_366)))" "(let-values(((fold-var_348)" "(let-values(((fold-var_349)" " fold-var_347))" @@ -65379,7 +65557,7 @@ static const char *startup_source = " 'letrec-syntaxes+values" "(add-scope" " rhs_21" -" sc_38)" +" sc_39)" " ids_41" " ctx_82)))" "(begin" @@ -65398,56 +65576,56 @@ static const char *startup_source = "(values" " fold-var_350)))))" "(if(not #f)" -"(for-loop_309" +"(for-loop_308" " fold-var_348" -" rest_217" -" rest_218)" +" rest_216" +" rest_217)" " fold-var_348)))" " fold-var_347)))))" -" for-loop_309)" +" for-loop_308)" " null" " lst_63" -" lst_363))))))" +" lst_364))))))" "(let-values(((rec-val-env_0)" -"(let-values(((lst_366) val-keyss_2)" +"(let-values(((lst_367) val-keyss_2)" "((lst_135) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_366)))" +"(let-values()(check-list lst_367)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-list lst_135)))" -"((letrec-values(((for-loop_310)" +"((letrec-values(((for-loop_309)" "(lambda(env_29" -" lst_367" -" lst_368)" +" lst_368" +" lst_369)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_367)" -"(pair? lst_368)" +" lst_368)" +"(pair? lst_369)" " #f)" "(let-values(((keys_10)" "(unsafe-car" -" lst_367))" -"((rest_219)" +" lst_368))" +"((rest_218)" "(unsafe-cdr" -" lst_367))" +" lst_368))" "((ids_42)" "(unsafe-car" -" lst_368))" -"((rest_220)" +" lst_369))" +"((rest_219)" "(unsafe-cdr" -" lst_368)))" +" lst_369)))" "(let-values(((env_30)" "(let-values(((env_31)" " env_29))" -"(let-values(((lst_369)" +"(let-values(((lst_370)" " keys_10)" -"((lst_370)" +"((lst_371)" " ids_42))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65455,36 +65633,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_369)))" +" lst_370)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_370)))" -"((letrec-values(((for-loop_311)" +" lst_371)))" +"((letrec-values(((for-loop_310)" "(lambda(env_32" -" lst_371" -" lst_372)" +" lst_372" +" lst_373)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_371)" -"(pair?" " lst_372)" +"(pair?" +" lst_373)" " #f)" "(let-values(((key_91)" "(unsafe-car" -" lst_371))" -"((rest_221)" +" lst_372))" +"((rest_220)" "(unsafe-cdr" -" lst_371))" +" lst_372))" "((id_119)" "(unsafe-car" -" lst_372))" -"((rest_222)" +" lst_373))" +"((rest_221)" "(unsafe-cdr" -" lst_372)))" +" lst_373)))" "(let-values(((env_33)" "(let-values(((env_34)" " env_32))" @@ -65499,87 +65677,87 @@ static const char *startup_source = " env_35)))))" "(if(not" " #f)" -"(for-loop_311" +"(for-loop_310" " env_33" -" rest_221" -" rest_222)" +" rest_220" +" rest_221)" " env_33)))" " env_32)))))" -" for-loop_311)" +" for-loop_310)" " env_31" -" lst_369" -" lst_370))))))" +" lst_370" +" lst_371))))))" "(if(not #f)" -"(for-loop_310" +"(for-loop_309" " env_30" -" rest_219" -" rest_220)" +" rest_218" +" rest_219)" " env_30)))" " env_29)))))" -" for-loop_310)" +" for-loop_309)" "(expand-context-env ctx_82)" -" lst_366" +" lst_367" " lst_135)))))" "(let-values(((rec-env_0)" -"(let-values(((lst_373) trans-keyss_0)" -"((lst_374) trans-valss_0)" -"((lst_375) trans-idss_2))" +"(let-values(((lst_374) trans-keyss_0)" +"((lst_375) trans-valss_0)" +"((lst_376) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_373)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" "(let-values()(check-list lst_374)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-list lst_375)))" -"((letrec-values(((for-loop_312)" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_376)))" +"((letrec-values(((for-loop_311)" "(lambda(env_36" -" lst_376" " lst_377" -" lst_378)" +" lst_378" +" lst_379)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_376)" -"(if(pair?" " lst_377)" -"(pair?" +"(if(pair?" " lst_378)" +"(pair?" +" lst_379)" " #f)" " #f)" "(let-values(((keys_11)" "(unsafe-car" -" lst_376))" -"((rest_223)" +" lst_377))" +"((rest_222)" "(unsafe-cdr" -" lst_376))" +" lst_377))" "((vals_9)" "(unsafe-car" -" lst_377))" -"((rest_224)" +" lst_378))" +"((rest_223)" "(unsafe-cdr" -" lst_377))" +" lst_378))" "((ids_43)" "(unsafe-car" -" lst_378))" -"((rest_225)" +" lst_379))" +"((rest_224)" "(unsafe-cdr" -" lst_378)))" +" lst_379)))" "(let-values(((env_37)" "(let-values(((env_38)" " env_36))" "(let-values(((env_39)" "(let-values()" -"(let-values(((lst_379)" +"(let-values(((lst_380)" " keys_11)" -"((lst_380)" -" vals_9)" "((lst_381)" +" vals_9)" +"((lst_382)" " ids_43))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65587,12 +65765,6 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_379)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" " lst_380)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -65600,39 +65772,45 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_381)))" -"((letrec-values(((for-loop_313)" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_382)))" +"((letrec-values(((for-loop_312)" "(lambda(env_40" -" lst_382" " lst_383" -" lst_384)" +" lst_384" +" lst_385)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_382)" -"(if(pair?" " lst_383)" -"(pair?" +"(if(pair?" " lst_384)" +"(pair?" +" lst_385)" " #f)" " #f)" "(let-values(((key_92)" "(unsafe-car" -" lst_382))" -"((rest_226)" +" lst_383))" +"((rest_225)" "(unsafe-cdr" -" lst_382))" +" lst_383))" "((val_86)" "(unsafe-car" -" lst_383))" -"((rest_227)" +" lst_384))" +"((rest_226)" "(unsafe-cdr" -" lst_383))" +" lst_384))" "((id_120)" "(unsafe-car" -" lst_384))" -"((rest_228)" +" lst_385))" +"((rest_227)" "(unsafe-cdr" -" lst_384)))" +" lst_385)))" "(let-values(((env_41)" "(let-values(((env_42)" " env_40))" @@ -65652,48 +65830,48 @@ static const char *startup_source = " env_43)))))" "(if(not" " #f)" -"(for-loop_313" +"(for-loop_312" " env_41" +" rest_225" " rest_226" -" rest_227" -" rest_228)" +" rest_227)" " env_41)))" " env_40)))))" -" for-loop_313)" +" for-loop_312)" " env_38" -" lst_379" " lst_380" -" lst_381))))))" +" lst_381" +" lst_382))))))" "(values" " env_39)))))" "(if(not #f)" -"(for-loop_312" +"(for-loop_311" " env_37" +" rest_222" " rest_223" -" rest_224" -" rest_225)" +" rest_224)" " env_37)))" " env_36)))))" -" for-loop_312)" +" for-loop_311)" " rec-val-env_0" -" lst_373" " lst_374" -" lst_375)))))" +" lst_375" +" lst_376)))))" "(let-values(((expr-ctx_0)" "(as-expression-context ctx_82)))" "(let-values(((orig-rrs_0)" "(expand-context-reference-records" " expr-ctx_0)))" "(let-values(((rec-ctx_0)" -"(let-values(((v_183) expr-ctx_0))" -"(let-values(((the-struct_97) v_183))" +"(let-values(((v_181) expr-ctx_0))" +"(let-values(((the-struct_97) v_181))" "(if(expand-context/outer?" " the-struct_97)" "(let-values(((env184_0)" " rec-env_0)" "((scopes185_0)" "(cons" -" sc_38" +" sc_39" "(expand-context-scopes" " ctx_82)))" "((reference-records186_0)" @@ -65708,10 +65886,10 @@ static const char *startup_source = " trans-idss_2" " val-idss_3)" " ctx_82" -" sc_38))" +" sc_39))" "((inner188_0)" "(root-expand-context/outer-inner" -" v_183)))" +" v_181)))" "(expand-context/outer1.1" " inner188_0" "(root-expand-context/outer-post-expansion-scope" @@ -65752,7 +65930,7 @@ static const char *startup_source = " #f)))" "(let-values(((rebuild-s_6)" "(let-values(((ctx189_0) ctx_82)" -"((s190_1) s_104)" +"((s190_1) s_105)" "((temp191_1) #t))" "(keep-as-needed119.1" " #f" @@ -65772,7 +65950,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_251)))" -"((letrec-values(((for-loop_228)" +"((letrec-values(((for-loop_227)" "(lambda(fold-var_351" " lst_252)" "(begin" @@ -65782,7 +65960,7 @@ static const char *startup_source = "(let-values(((val-ids_1)" "(unsafe-car" " lst_252))" -"((rest_139)" +"((rest_138)" "(unsafe-cdr" " lst_252)))" "(let-values(((fold-var_352)" @@ -65793,7 +65971,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_385)" +"(let-values(((lst_386)" " val-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65801,22 +65979,22 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_385)))" -"((letrec-values(((for-loop_314)" +" lst_386)))" +"((letrec-values(((for-loop_313)" "(lambda(fold-var_355" -" lst_386)" +" lst_387)" "(begin" " 'for-loop" "(if(pair?" -" lst_386)" +" lst_387)" "(let-values(((val-id_0)" "(unsafe-car" -" lst_386))" -"((rest_229)" +" lst_387))" +"((rest_228)" "(unsafe-cdr" -" lst_386)))" +" lst_387)))" "(let-values(((fold-var_356)" -"(let-values(((fold-var_127)" +"(let-values(((fold-var_129)" " fold-var_355))" "(let-values(((fold-var_357)" "(let-values()" @@ -65828,30 +66006,30 @@ static const char *startup_source = " val-id_0)" " val-id_0" " val-id_0))" -" fold-var_127))))" +" fold-var_129))))" "(values" " fold-var_357)))))" "(if(not" " #f)" -"(for-loop_314" +"(for-loop_313" " fold-var_356" -" rest_229)" +" rest_228)" " fold-var_356)))" " fold-var_355)))))" -" for-loop_314)" +" for-loop_313)" " null" -" lst_385)))))" +" lst_386)))))" " fold-var_353))))" "(values" " fold-var_354)))))" "(if(not" " #f)" -"(for-loop_228" +"(for-loop_227" " fold-var_352" -" rest_139)" +" rest_138)" " fold-var_352)))" " fold-var_351)))))" -" for-loop_228)" +" for-loop_227)" " null" " lst_251))))" " val-idss_3)))" @@ -65896,17 +66074,17 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_5)" -"(let-values(((v_269)" +"(let-values(((v_266)" " rec-ctx_0))" "(let-values(((the-struct_98)" -" v_269))" +" v_266))" "(if(expand-context/outer?" " the-struct_98)" "(let-values(((reference-records195_0)" " orig-rrs_0)" "((inner196_0)" "(root-expand-context/outer-inner" -" v_269)))" +" v_266)))" "(expand-context/outer1.1" " inner196_0" "(root-expand-context/outer-post-expansion-scope" @@ -65963,13 +66141,13 @@ static const char *startup_source = "(let-values()" "(let-values(((clauses_2)" "(reverse$1" -"(let-values(((lst_149)" +"(let-values(((lst_150)" " val-name-idss_0)" -"((lst_387)" -" val-keyss_2)" -"((lst_150)" -" val-rhss_3)" "((lst_388)" +" val-keyss_2)" +"((lst_151)" +" val-rhss_3)" +"((lst_389)" " val-clauses_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65977,18 +66155,6 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_149)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_387)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" " lst_150)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -65996,49 +66162,61 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_388)))" -"((letrec-values(((for-loop_315)" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_151)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_389)))" +"((letrec-values(((for-loop_314)" "(lambda(fold-var_358" -" lst_389" " lst_390" " lst_391" -" lst_392)" +" lst_392" +" lst_393)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_389)" -"(if(pair?" " lst_390)" "(if(pair?" " lst_391)" -"(pair?" +"(if(pair?" " lst_392)" +"(pair?" +" lst_393)" " #f)" " #f)" " #f)" "(let-values(((ids_44)" "(unsafe-car" -" lst_389))" -"((rest_230)" +" lst_390))" +"((rest_229)" "(unsafe-cdr" -" lst_389))" +" lst_390))" "((keys_12)" "(unsafe-car" -" lst_390))" -"((rest_231)" +" lst_391))" +"((rest_230)" "(unsafe-cdr" -" lst_390))" +" lst_391))" "((rhs_22)" "(unsafe-car" -" lst_391))" -"((rest_232)" +" lst_392))" +"((rest_231)" "(unsafe-cdr" -" lst_391))" +" lst_392))" "((clause_4)" "(unsafe-car" -" lst_392))" -"((rest_233)" +" lst_393))" +"((rest_232)" "(unsafe-cdr" -" lst_392)))" +" lst_393)))" "(let-values(((fold-var_51)" "(let-values(((fold-var_359)" " fold-var_358))" @@ -66093,20 +66271,20 @@ static const char *startup_source = " fold-var_360)))))" "(if(not" " #f)" -"(for-loop_315" +"(for-loop_314" " fold-var_51" +" rest_229" " rest_230" " rest_231" -" rest_232" -" rest_233)" +" rest_232)" " fold-var_51)))" " fold-var_358)))))" -" for-loop_315)" +" for-loop_314)" " null" -" lst_149" -" lst_387" " lst_150" -" lst_388))))))" +" lst_388" +" lst_151" +" lst_389))))))" "(let-values(((exp-body_4)" "(get-body_1)))" "(begin" @@ -66181,28 +66359,28 @@ static const char *startup_source = " trans-idss_2))))))))))))))))))))))))))))))))))))))))))" "(define-values" "(log-let-renames)" -"(lambda(obs_97 renames-log-tag_1 val-idss_4 val-rhss_4 bodys_11 trans-idss_3 trans-rhss_0 sc_39)" +"(lambda(obs_97 renames-log-tag_1 val-idss_4 val-rhss_4 bodys_11 trans-idss_3 trans-rhss_0 sc_40)" "(begin" "(let-values(((vals+body_0)" "(cons" "(reverse$1" -"(let-values(((lst_393) val-idss_4)((lst_394) val-rhss_4))" +"(let-values(((lst_394) val-idss_4)((lst_395) val-rhss_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_393)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_394)))" -"((letrec-values(((for-loop_316)" -"(lambda(fold-var_361 lst_395 lst_396)" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_395)))" +"((letrec-values(((for-loop_315)" +"(lambda(fold-var_361 lst_396 lst_397)" "(begin" " 'for-loop" -"(if(if(pair? lst_395)(pair? lst_396) #f)" -"(let-values(((val-ids_2)(unsafe-car lst_395))" -"((rest_234)(unsafe-cdr lst_395))" -"((val-rhs_11)(unsafe-car lst_396))" -"((rest_235)(unsafe-cdr lst_396)))" +"(if(if(pair? lst_396)(pair? lst_397) #f)" +"(let-values(((val-ids_2)(unsafe-car lst_396))" +"((rest_233)(unsafe-cdr lst_396))" +"((val-rhs_11)(unsafe-car lst_397))" +"((rest_234)(unsafe-cdr lst_397)))" "(let-values(((fold-var_362)" "(let-values(((fold-var_363) fold-var_361))" "(let-values(((fold-var_364)" @@ -66215,13 +66393,13 @@ static const char *startup_source = " fold-var_363))))" "(values fold-var_364)))))" "(if(not #f)" -"(for-loop_316 fold-var_362 rest_234 rest_235)" +"(for-loop_315 fold-var_362 rest_233 rest_234)" " fold-var_362)))" " fold-var_361)))))" -" for-loop_316)" +" for-loop_315)" " null" -" lst_393" -" lst_394))))" +" lst_394" +" lst_395))))" "(datum->syntax$1 #f bodys_11))))" "(call-expand-observe" " obs_97" @@ -66230,23 +66408,23 @@ static const char *startup_source = " vals+body_0" "(cons" "(reverse$1" -"(let-values(((lst_397) trans-idss_3)((lst_398) trans-rhss_0))" +"(let-values(((lst_398) trans-idss_3)((lst_399) trans-rhss_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_397)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_398)))" -"((letrec-values(((for-loop_317)" -"(lambda(fold-var_365 lst_399 lst_400)" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_399)))" +"((letrec-values(((for-loop_316)" +"(lambda(fold-var_365 lst_400 lst_401)" "(begin" " 'for-loop" -"(if(if(pair? lst_399)(pair? lst_400) #f)" -"(let-values(((trans-ids_0)(unsafe-car lst_399))" -"((rest_236)(unsafe-cdr lst_399))" -"((trans-rhs_5)(unsafe-car lst_400))" -"((rest_237)(unsafe-cdr lst_400)))" +"(if(if(pair? lst_400)(pair? lst_401) #f)" +"(let-values(((trans-ids_0)(unsafe-car lst_400))" +"((rest_235)(unsafe-cdr lst_400))" +"((trans-rhs_5)(unsafe-car lst_401))" +"((rest_236)(unsafe-cdr lst_401)))" "(let-values(((fold-var_366)" "(let-values(((fold-var_367) fold-var_365))" "(let-values(((fold-var_368)" @@ -66257,15 +66435,15 @@ static const char *startup_source = " #f" "(list" " trans-ids_0" -"(add-scope trans-rhs_5 sc_39))))" +"(add-scope trans-rhs_5 sc_40))))" " fold-var_367))))" "(values fold-var_368)))))" -"(if(not #f)(for-loop_317 fold-var_366 rest_236 rest_237) fold-var_366)))" +"(if(not #f)(for-loop_316 fold-var_366 rest_235 rest_236) fold-var_366)))" " fold-var_365)))))" -" for-loop_317)" +" for-loop_316)" " null" -" lst_397" -" lst_398))))" +" lst_398" +" lst_399))))" " vals+body_0)))))))" "(define-values" "(log-letrec-values)" @@ -66300,7 +66478,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%stratified-body" -"(lambda(s_568 ctx_83)" +"(lambda(s_567 ctx_83)" "(let-values((()" "(begin" "(let-values(((obs_99)(expand-context-observer ctx_83)))" @@ -66308,22 +66486,22 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_99 'prim-#%stratified)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_9)(syntax-disarm$1 s_568)))" +"(let-values(((disarmed-s_9)(syntax-disarm$1 s_567)))" "(let-values(((ok?_45 #%stratified-body222_0 body223_0)" -"(let-values(((s_569) disarmed-s_9))" -"(let-values(((orig-s_48) s_569))" +"(let-values(((s_568) disarmed-s_9))" +"(let-values(((orig-s_48) s_568))" "(let-values(((#%stratified-body222_1 body223_1)" -"(let-values(((s_570)(if(syntax?$1 s_569)(syntax-e$1 s_569) s_569)))" -"(if(pair? s_570)" +"(let-values(((s_569)(if(syntax?$1 s_568)(syntax-e$1 s_568) s_568)))" +"(if(pair? s_569)" "(let-values(((#%stratified-body224_0)" -"(let-values(((s_571)(car s_570))) s_571))" +"(let-values(((s_570)(car s_569))) s_570))" "((body225_0)" -"(let-values(((s_572)(cdr s_570)))" -"(let-values(((s_573)" -"(if(syntax?$1 s_572)" -"(syntax-e$1 s_572)" -" s_572)))" -"(let-values(((flat-s_43)(to-syntax-list.1 s_573)))" +"(let-values(((s_571)(cdr s_569)))" +"(let-values(((s_572)" +"(if(syntax?$1 s_571)" +"(syntax-e$1 s_571)" +" s_571)))" +"(let-values(((flat-s_43)(to-syntax-list.1 s_572)))" "(if(not flat-s_43)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_48))" @@ -66335,7 +66513,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_48)))))" "(values #t #%stratified-body222_1 body223_1))))))" "(let-values(((rebuild-s_7)" -"(let-values(((ctx226_0) ctx_83)((s227_1) s_568)((temp228_0) #t))" +"(let-values(((ctx226_0) ctx_83)((s227_1) s_567)((temp228_0) #t))" "(keep-as-needed119.1 #f temp228_0 #f ctx226_0 s227_1))))" "(let-values(((exp-body_5)" "(let-values(((temp229_3) body223_0)" @@ -66354,21 +66532,21 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%datum" -"(lambda(s_574 ctx_84)" +"(lambda(s_573 ctx_84)" "(let-values((()" "(begin" "(let-values(((obs_100)(expand-context-observer ctx_84)))" "(if obs_100(let-values()(let-values()(call-expand-observe obs_100 'prim-#%datum)))(void)))" "(values))))" -"(let-values(((disarmed-s_10)(syntax-disarm$1 s_574)))" +"(let-values(((disarmed-s_10)(syntax-disarm$1 s_573)))" "(let-values(((ok?_46 #%datum235_0 datum236_0)" -"(let-values(((s_575) disarmed-s_10))" -"(let-values(((orig-s_49) s_575))" +"(let-values(((s_574) disarmed-s_10))" +"(let-values(((orig-s_49) s_574))" "(let-values(((#%datum235_1 datum236_1)" -"(let-values(((s_576)(if(syntax?$1 s_575)(syntax-e$1 s_575) s_575)))" -"(if(pair? s_576)" -"(let-values(((#%datum237_0)(let-values(((s_577)(car s_576))) s_577))" -"((datum238_0)(let-values(((s_578)(cdr s_576))) s_578)))" +"(let-values(((s_575)(if(syntax?$1 s_574)(syntax-e$1 s_574) s_574)))" +"(if(pair? s_575)" +"(let-values(((#%datum237_0)(let-values(((s_576)(car s_575))) s_576))" +"((datum238_0)(let-values(((s_577)(cdr s_575))) s_577)))" "(values #%datum237_0 datum238_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_49)))))" "(values #t #%datum235_1 datum236_1))))))" @@ -66382,33 +66560,33 @@ static const char *startup_source = "(values))))" "(let-values(((phase_138)(expand-context-phase ctx_84)))" "(if(if(expand-context-to-parsed? ctx_84)(free-id-set-empty?(expand-context-stops ctx_84)) #f)" -"(parsed-quote14.1(keep-properties-only~ s_574)(syntax->datum$1 datum_2))" -"(let-values(((s239_0) s_574)((temp240_0)(list(core-id 'quote phase_138) datum_2)))" +"(parsed-quote14.1(keep-properties-only~ s_573)(syntax->datum$1 datum_2))" +"(let-values(((s239_0) s_573)((temp240_0)(list(core-id 'quote phase_138) datum_2)))" "(rebuild5.1 #t s239_0 temp240_0))))))))))))" "(void" "(add-core-form!*" " '#%app" -"(lambda(s_579 ctx_85)" +"(lambda(s_578 ctx_85)" "(let-values((()" "(begin" "(let-values(((obs_101)(expand-context-observer ctx_85)))" "(if obs_101(let-values()(let-values()(call-expand-observe obs_101 'prim-#%app)))(void)))" "(values))))" -"(let-values(((disarmed-s_11)(syntax-disarm$1 s_579)))" +"(let-values(((disarmed-s_11)(syntax-disarm$1 s_578)))" "(let-values(((ok?_47 #%app241_0 e242_0)" -"(let-values(((s_580) disarmed-s_11))" -"(let-values(((orig-s_50) s_580))" +"(let-values(((s_579) disarmed-s_11))" +"(let-values(((orig-s_50) s_579))" "(let-values(((#%app241_1 e242_1)" -"(let-values(((s_581)(if(syntax?$1 s_580)(syntax-e$1 s_580) s_580)))" -"(if(pair? s_581)" -"(let-values(((#%app243_0)(let-values(((s_582)(car s_581))) s_582))" +"(let-values(((s_580)(if(syntax?$1 s_579)(syntax-e$1 s_579) s_579)))" +"(if(pair? s_580)" +"(let-values(((#%app243_0)(let-values(((s_581)(car s_580))) s_581))" "((e244_0)" -"(let-values(((s_583)(cdr s_581)))" -"(let-values(((s_584)" -"(if(syntax?$1 s_583)" -"(syntax-e$1 s_583)" -" s_583)))" -"(let-values(((flat-s_44)(to-syntax-list.1 s_584)))" +"(let-values(((s_582)(cdr s_580)))" +"(let-values(((s_583)" +"(if(syntax?$1 s_582)" +"(syntax-e$1 s_582)" +" s_582)))" +"(let-values(((flat-s_44)(to-syntax-list.1 s_583)))" "(if(not flat-s_44)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_50))" @@ -66421,14 +66599,14 @@ static const char *startup_source = "(let-values()" "(let-values(((phase_139)(expand-context-phase ctx_85)))" "(if(expand-context-to-parsed? ctx_85)" -"(parsed-quote14.1(keep-properties-only~ s_579) null)" -"(let-values(((s245_0) s_579)((temp246_1)(list(core-id 'quote phase_139) null)))" +"(parsed-quote14.1(keep-properties-only~ s_578) null)" +"(let-values(((s245_0) s_578)((temp246_1)(list(core-id 'quote phase_139) null)))" "(rebuild5.1 #t s245_0 temp246_1)))))" "(let-values()" "(let-values(((keep-for-parsed?_1)(eq?(system-type 'vm) 'chez-scheme)))" "(let-values(((rebuild-s_8)" "(let-values(((ctx247_0) ctx_85)" -"((s248_0) s_579)" +"((s248_0) s_578)" "((keep-for-parsed?249_0) keep-for-parsed?_1))" "(keep-as-needed119.1 #f #f keep-for-parsed?249_0 ctx247_0 s248_0))))" "(let-values(((prefixless_0)(cdr(syntax-e$1 disarmed-s_11))))" @@ -66450,7 +66628,7 @@ static const char *startup_source = "(call-expand-observe" " obs_102" " 'enter-list" -"(datum->syntax$1 #f es_3 s_579))" +"(datum->syntax$1 #f es_3 s_578))" "(call-expand-observe obs_102 'next))))" "(void)))" "(values))))" @@ -66460,19 +66638,19 @@ static const char *startup_source = "(expand9.1 #f #f #f temp253_1 expr-ctx254_0))))" "(let-values(((exp-es_0)" "(reverse$1" -"(let-values(((lst_401) rest-es_0))" +"(let-values(((lst_402) rest-es_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_401)))" -"((letrec-values(((for-loop_318)" -"(lambda(fold-var_369 lst_402)" +"(let-values()(check-list lst_402)))" +"((letrec-values(((for-loop_317)" +"(lambda(fold-var_369 lst_403)" "(begin" " 'for-loop" -"(if(pair? lst_402)" -"(let-values(((e_90)(unsafe-car lst_402))" -"((rest_238)" -"(unsafe-cdr lst_402)))" +"(if(pair? lst_403)" +"(let-values(((e_90)(unsafe-car lst_403))" +"((rest_237)" +"(unsafe-cdr lst_403)))" "(let-values(((fold-var_370)" "(let-values(((fold-var_371)" " fold-var_369))" @@ -66505,12 +66683,12 @@ static const char *startup_source = "(values" " fold-var_372)))))" "(if(not #f)" -"(for-loop_318 fold-var_370 rest_238)" +"(for-loop_317 fold-var_370 rest_237)" " fold-var_370)))" " fold-var_369)))))" -" for-loop_318)" +" for-loop_317)" " null" -" lst_401))))))" +" lst_402))))))" "(if(expand-context-to-parsed? ctx_85)" "(let-values()" "(parsed-app7.1" @@ -66542,35 +66720,35 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'quote" -"(lambda(s_585 ctx_86)" +"(lambda(s_584 ctx_86)" "(let-values((()" "(begin" "(let-values(((obs_105)(expand-context-observer ctx_86)))" "(if obs_105(let-values()(let-values()(call-expand-observe obs_105 'prim-quote)))(void)))" "(values))))" "(let-values(((ok?_48 quote261_0 datum262_0)" -"(let-values(((s_282)(syntax-disarm$1 s_585)))" +"(let-values(((s_282)(syntax-disarm$1 s_584)))" "(let-values(((orig-s_51) s_282))" "(let-values(((quote261_1 datum262_1)" "(let-values(((s_284)(if(syntax?$1 s_282)(syntax-e$1 s_282) s_282)))" "(if(pair? s_284)" -"(let-values(((quote263_0)(let-values(((s_586)(car s_284))) s_586))" +"(let-values(((quote263_0)(let-values(((s_585)(car s_284))) s_585))" "((datum264_0)" -"(let-values(((s_587)(cdr s_284)))" -"(let-values(((s_588)" -"(if(syntax?$1 s_587)" -"(syntax-e$1 s_587)" -" s_587)))" -"(if(pair? s_588)" +"(let-values(((s_586)(cdr s_284)))" +"(let-values(((s_587)" +"(if(syntax?$1 s_586)" +"(syntax-e$1 s_586)" +" s_586)))" +"(if(pair? s_587)" "(let-values(((datum265_0)" -"(let-values(((s_589)(car s_588))) s_589))" +"(let-values(((s_588)(car s_587))) s_588))" "(()" -"(let-values(((s_590)(cdr s_588)))" -"(let-values(((s_591)" -"(if(syntax?$1 s_590)" -"(syntax-e$1 s_590)" -" s_590)))" -"(if(null? s_591)" +"(let-values(((s_589)(cdr s_587)))" +"(let-values(((s_590)" +"(if(syntax?$1 s_589)" +"(syntax-e$1 s_589)" +" s_589)))" +"(if(null? s_590)" "(values)" "(raise-syntax-error$1" " #f" @@ -66582,12 +66760,12 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_51)))))" "(values #t quote261_1 datum262_1))))))" "(if(expand-context-to-parsed? ctx_86)" -"(parsed-quote14.1(keep-properties-only~ s_585)(syntax->datum$1 datum262_0))" -" s_585))))))" +"(parsed-quote14.1(keep-properties-only~ s_584)(syntax->datum$1 datum262_0))" +" s_584))))))" "(void" "(add-core-form!*" " 'quote-syntax" -"(lambda(s_592 ctx_87)" +"(lambda(s_591 ctx_87)" "(let-values((()" "(begin" "(let-values(((obs_106)(expand-context-observer ctx_87)))" @@ -66595,27 +66773,27 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_106 'prim-quote-syntax)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_12)(syntax-disarm$1 s_592)))" +"(let-values(((disarmed-s_12)(syntax-disarm$1 s_591)))" "(let-values(((ok?_49 quote-syntax266_0 datum267_0)" "(let-values(((s_291) disarmed-s_12))" -"(if(let-values(((s_593)(if(syntax?$1 s_291)(syntax-e$1 s_291) s_291)))" -"(if(pair? s_593)" -"(if(let-values(((s_594)(car s_593))) #t)" -"(let-values(((s_595)(cdr s_593)))" -"(let-values(((s_292)(if(syntax?$1 s_595)(syntax-e$1 s_595) s_595)))" +"(if(let-values(((s_592)(if(syntax?$1 s_291)(syntax-e$1 s_291) s_291)))" +"(if(pair? s_592)" +"(if(let-values(((s_593)(car s_592))) #t)" +"(let-values(((s_594)(cdr s_592)))" +"(let-values(((s_292)(if(syntax?$1 s_594)(syntax-e$1 s_594) s_594)))" "(if(pair? s_292)" -"(if(let-values(((s_596)(car s_292))) #t)" -"(let-values(((s_597)(cdr s_292)))" -"(let-values(((s_293)(if(syntax?$1 s_597)(syntax-e$1 s_597) s_597)))" +"(if(let-values(((s_595)(car s_292))) #t)" +"(let-values(((s_596)(cdr s_292)))" +"(let-values(((s_293)(if(syntax?$1 s_596)(syntax-e$1 s_596) s_596)))" "(if(pair? s_293)" "(if(let-values(((s_294)(car s_293)))" "(let-values(((s_295)" "(if(syntax?$1 s_294)(syntax-e$1 s_294) s_294)))" "(eq? '#:local s_295)))" -"(let-values(((s_598)(cdr s_293)))" -"(let-values(((s_599)" -"(if(syntax?$1 s_598)(syntax-e$1 s_598) s_598)))" -"(null? s_599)))" +"(let-values(((s_597)(cdr s_293)))" +"(let-values(((s_598)" +"(if(syntax?$1 s_597)(syntax-e$1 s_597) s_597)))" +"(null? s_598)))" " #f)" " #f)))" " #f)" @@ -66624,44 +66802,44 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((quote-syntax266_1 datum267_1)" -"(let-values(((s_600)(if(syntax?$1 s_291)(syntax-e$1 s_291) s_291)))" +"(let-values(((s_599)(if(syntax?$1 s_291)(syntax-e$1 s_291) s_291)))" "(let-values(((quote-syntax268_0)" -"(let-values(((s_601)(car s_600))) s_601))" +"(let-values(((s_600)(car s_599))) s_600))" "((datum269_0)" -"(let-values(((s_602)(cdr s_600)))" -"(let-values(((s_603)" -"(if(syntax?$1 s_602)" -"(syntax-e$1 s_602)" -" s_602)))" +"(let-values(((s_601)(cdr s_599)))" +"(let-values(((s_602)" +"(if(syntax?$1 s_601)" +"(syntax-e$1 s_601)" +" s_601)))" "(let-values(((datum270_0)" -"(let-values(((s_604)(car s_603))) s_604))" +"(let-values(((s_603)(car s_602))) s_603))" "(()" -"(let-values(((s_605)(cdr s_603)))" -"(let-values(((s_606)" -"(if(syntax?$1 s_605)" -"(syntax-e$1 s_605)" -" s_605)))" +"(let-values(((s_604)(cdr s_602)))" +"(let-values(((s_605)" +"(if(syntax?$1 s_604)" +"(syntax-e$1 s_604)" +" s_604)))" "(let-values((()" -"(let-values(((s_607)" +"(let-values(((s_606)" "(car" -" s_606)))" -"(let-values(((s_608)" +" s_605)))" +"(let-values(((s_607)" "(if(syntax?$1" -" s_607)" +" s_606)" "(syntax-e$1" -" s_607)" -" s_607)))" +" s_606)" +" s_606)))" "(values))))" "(()" -"(let-values(((s_609)" +"(let-values(((s_608)" "(cdr" -" s_606)))" -"(let-values(((s_610)" +" s_605)))" +"(let-values(((s_609)" "(if(syntax?$1" -" s_609)" +" s_608)" "(syntax-e$1" -" s_609)" -" s_609)))" +" s_608)" +" s_608)))" "(values)))))" "(values))))))" "(values datum270_0))))))" @@ -66669,26 +66847,26 @@ static const char *startup_source = "(values #t quote-syntax266_1 datum267_1)))" "(values #f #f #f)))))" "(let-values(((ok?_50 quote-syntax271_0 datum272_0)" -"(let-values(((s_611) disarmed-s_12))" +"(let-values(((s_610) disarmed-s_12))" "(if(if(not ok?_49) #t #f)" -"(let-values(((orig-s_52) s_611))" +"(let-values(((orig-s_52) s_610))" "(let-values(((quote-syntax271_1 datum272_1)" -"(let-values(((s_612)(if(syntax?$1 s_611)(syntax-e$1 s_611) s_611)))" -"(if(pair? s_612)" +"(let-values(((s_611)(if(syntax?$1 s_610)(syntax-e$1 s_610) s_610)))" +"(if(pair? s_611)" "(let-values(((quote-syntax273_0)" -"(let-values(((s_297)(car s_612))) s_297))" +"(let-values(((s_297)(car s_611))) s_297))" "((datum274_0)" -"(let-values(((s_613)(cdr s_612)))" -"(let-values(((s_614)" -"(if(syntax?$1 s_613)" -"(syntax-e$1 s_613)" -" s_613)))" -"(if(pair? s_614)" +"(let-values(((s_612)(cdr s_611)))" +"(let-values(((s_613)" +"(if(syntax?$1 s_612)" +"(syntax-e$1 s_612)" +" s_612)))" +"(if(pair? s_613)" "(let-values(((datum275_0)" -"(let-values(((s_298)(car s_614)))" +"(let-values(((s_298)(car s_613)))" " s_298))" "(()" -"(let-values(((s_299)(cdr s_614)))" +"(let-values(((s_299)(cdr s_613)))" "(let-values(((s_300)" "(if(syntax?$1 s_299)" "(syntax-e$1 s_299)" @@ -66715,52 +66893,52 @@ static const char *startup_source = "(reference-records-all-used!(expand-context-reference-records ctx_87))" "(values))))" "(let-values(((ok?_51 _276_0 _277_0 kw278_0)" -"(let-values(((s_615) disarmed-s_12))" -"(let-values(((orig-s_53) s_615))" +"(let-values(((s_614) disarmed-s_12))" +"(let-values(((orig-s_53) s_614))" "(let-values(((_276_1 _277_1 kw278_1)" -"(let-values(((s_616)" -"(if(syntax?$1 s_615)(syntax-e$1 s_615) s_615)))" -"(if(pair? s_616)" +"(let-values(((s_615)" +"(if(syntax?$1 s_614)(syntax-e$1 s_614) s_614)))" +"(if(pair? s_615)" "(let-values(((_279_0)" -"(let-values(((s_617)(car s_616))) s_617))" +"(let-values(((s_616)(car s_615))) s_616))" "((_280_0 kw281_0)" -"(let-values(((s_618)(cdr s_616)))" -"(let-values(((s_619)" -"(if(syntax?$1 s_618)" -"(syntax-e$1 s_618)" -" s_618)))" -"(if(pair? s_619)" +"(let-values(((s_617)(cdr s_615)))" +"(let-values(((s_618)" +"(if(syntax?$1 s_617)" +"(syntax-e$1 s_617)" +" s_617)))" +"(if(pair? s_618)" "(let-values(((_282_0)" -"(let-values(((s_620)" -"(car s_619)))" -" s_620))" +"(let-values(((s_619)" +"(car s_618)))" +" s_619))" "((kw283_0)" +"(let-values(((s_620)" +"(cdr s_618)))" "(let-values(((s_621)" -"(cdr s_619)))" -"(let-values(((s_622)" "(if(syntax?$1" -" s_621)" +" s_620)" "(syntax-e$1" -" s_621)" -" s_621)))" -"(if(pair? s_622)" +" s_620)" +" s_620)))" +"(if(pair? s_621)" "(let-values(((kw284_0)" -"(let-values(((s_623)" +"(let-values(((s_622)" "(car" -" s_622)))" -" s_623))" +" s_621)))" +" s_622))" "(()" -"(let-values(((s_624)" +"(let-values(((s_623)" "(cdr" -" s_622)))" -"(let-values(((s_625)" +" s_621)))" +"(let-values(((s_624)" "(if(syntax?$1" -" s_624)" +" s_623)" "(syntax-e$1" -" s_624)" -" s_624)))" +" s_623)" +" s_623)))" "(if(null?" -" s_625)" +" s_624)" "(values)" "(raise-syntax-error$1" " #f" @@ -66780,8 +66958,8 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_53)))))" "(values #t _276_1 _277_1 kw278_1))))))" "(if(expand-context-to-parsed? ctx_87)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_592) datum267_0)" -"(let-values(((s285_0) s_592)((temp286_0)(list quote-syntax266_0 datum267_0 kw278_0)))" +"(parsed-quote-syntax15.1(keep-properties-only~ s_591) datum267_0)" +"(let-values(((s285_0) s_591)((temp286_0)(list quote-syntax266_0 datum267_0 kw278_0)))" "(rebuild5.1 #t s285_0 temp286_0))))))" "(let-values()" "(let-values(((use-site-scopes_2)(root-expand-context-use-site-scopes ctx_87)))" @@ -66790,36 +66968,36 @@ static const char *startup_source = "(remove-scopes datum272_0(expand-context-scopes ctx_87))" "(if use-site-scopes_2(unbox use-site-scopes_2) '()))))" "(if(if(expand-context-to-parsed? ctx_87)(free-id-set-empty?(expand-context-stops ctx_87)) #f)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_592) datum-s_0)" -"(let-values(((s287_0) s_592)((temp288_0)(list quote-syntax271_0 datum-s_0)))" +"(parsed-quote-syntax15.1(keep-properties-only~ s_591) datum-s_0)" +"(let-values(((s287_0) s_591)((temp288_0)(list quote-syntax271_0 datum-s_0)))" "(rebuild5.1 #t s287_0 temp288_0))))))))))))))" "(void" "(add-core-form!*" " 'if" -"(lambda(s_626 ctx_88)" +"(lambda(s_625 ctx_88)" "(let-values((()" "(begin" "(let-values(((obs_107)(expand-context-observer ctx_88)))" "(if obs_107(let-values()(let-values()(call-expand-observe obs_107 'prim-if)))(void)))" "(values))))" -"(let-values(((disarmed-s_13)(syntax-disarm$1 s_626)))" +"(let-values(((disarmed-s_13)(syntax-disarm$1 s_625)))" "(let-values(((ok?_52 _289_0 _290_0 _291_0)" -"(let-values(((s_627) disarmed-s_13))" -"(if(let-values(((s_628)(if(syntax?$1 s_627)(syntax-e$1 s_627) s_627)))" -"(if(pair? s_628)" -"(if(let-values(((s_629)(car s_628))) #t)" -"(let-values(((s_630)(cdr s_628)))" -"(let-values(((s_631)(if(syntax?$1 s_630)(syntax-e$1 s_630) s_630)))" -"(if(pair? s_631)" -"(if(let-values(((s_632)(car s_631))) #t)" -"(let-values(((s_633)(cdr s_631)))" -"(let-values(((s_634)(if(syntax?$1 s_633)(syntax-e$1 s_633) s_633)))" -"(if(pair? s_634)" -"(if(let-values(((s_635)(car s_634))) #t)" -"(let-values(((s_636)(cdr s_634)))" -"(let-values(((s_637)" -"(if(syntax?$1 s_636)(syntax-e$1 s_636) s_636)))" -"(null? s_637)))" +"(let-values(((s_626) disarmed-s_13))" +"(if(let-values(((s_627)(if(syntax?$1 s_626)(syntax-e$1 s_626) s_626)))" +"(if(pair? s_627)" +"(if(let-values(((s_628)(car s_627))) #t)" +"(let-values(((s_629)(cdr s_627)))" +"(let-values(((s_630)(if(syntax?$1 s_629)(syntax-e$1 s_629) s_629)))" +"(if(pair? s_630)" +"(if(let-values(((s_631)(car s_630))) #t)" +"(let-values(((s_632)(cdr s_630)))" +"(let-values(((s_633)(if(syntax?$1 s_632)(syntax-e$1 s_632) s_632)))" +"(if(pair? s_633)" +"(if(let-values(((s_634)(car s_633))) #t)" +"(let-values(((s_635)(cdr s_633)))" +"(let-values(((s_636)" +"(if(syntax?$1 s_635)(syntax-e$1 s_635) s_635)))" +"(null? s_636)))" " #f)" " #f)))" " #f)" @@ -66828,37 +67006,37 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((_289_1 _290_1 _291_1)" -"(let-values(((s_638)(if(syntax?$1 s_627)(syntax-e$1 s_627) s_627)))" -"(let-values(((_292_0)(let-values(((s_639)(car s_638))) s_639))" +"(let-values(((s_637)(if(syntax?$1 s_626)(syntax-e$1 s_626) s_626)))" +"(let-values(((_292_0)(let-values(((s_638)(car s_637))) s_638))" "((_293_0 _294_0)" -"(let-values(((s_640)(cdr s_638)))" -"(let-values(((s_641)" -"(if(syntax?$1 s_640)" -"(syntax-e$1 s_640)" -" s_640)))" +"(let-values(((s_639)(cdr s_637)))" +"(let-values(((s_640)" +"(if(syntax?$1 s_639)" +"(syntax-e$1 s_639)" +" s_639)))" "(let-values(((_295_0)" -"(let-values(((s_642)(car s_641))) s_642))" +"(let-values(((s_641)(car s_640))) s_641))" "((_296_0)" -"(let-values(((s_643)(cdr s_641)))" -"(let-values(((s_644)" -"(if(syntax?$1 s_643)" -"(syntax-e$1 s_643)" -" s_643)))" +"(let-values(((s_642)(cdr s_640)))" +"(let-values(((s_643)" +"(if(syntax?$1 s_642)" +"(syntax-e$1 s_642)" +" s_642)))" "(let-values(((_297_0)" -"(let-values(((s_645)" +"(let-values(((s_644)" "(car" -" s_644)))" -" s_645))" +" s_643)))" +" s_644))" "(()" -"(let-values(((s_646)" +"(let-values(((s_645)" "(cdr" -" s_644)))" -"(let-values(((s_647)" +" s_643)))" +"(let-values(((s_646)" "(if(syntax?$1" -" s_646)" +" s_645)" "(syntax-e$1" -" s_646)" -" s_646)))" +" s_645)" +" s_645)))" "(values)))))" "(values _297_0))))))" "(values _295_0 _296_0))))))" @@ -66868,67 +67046,67 @@ static const char *startup_source = "(let-values((()" "(begin" "(if ok?_52" -" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_626))" +" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_625))" "(void))" "(values))))" "(let-values(((ok?_53 if298_0 tst299_0 thn300_0 els301_0)" -"(let-values(((s_648) disarmed-s_13))" -"(let-values(((orig-s_54) s_648))" +"(let-values(((s_647) disarmed-s_13))" +"(let-values(((orig-s_54) s_647))" "(let-values(((if298_1 tst299_1 thn300_1 els301_1)" -"(let-values(((s_649)(if(syntax?$1 s_648)(syntax-e$1 s_648) s_648)))" -"(if(pair? s_649)" -"(let-values(((if302_0)(let-values(((s_650)(car s_649))) s_650))" +"(let-values(((s_648)(if(syntax?$1 s_647)(syntax-e$1 s_647) s_647)))" +"(if(pair? s_648)" +"(let-values(((if302_0)(let-values(((s_649)(car s_648))) s_649))" "((tst303_0 thn304_0 els305_0)" -"(let-values(((s_651)(cdr s_649)))" -"(let-values(((s_652)" -"(if(syntax?$1 s_651)" -"(syntax-e$1 s_651)" -" s_651)))" -"(if(pair? s_652)" +"(let-values(((s_650)(cdr s_648)))" +"(let-values(((s_651)" +"(if(syntax?$1 s_650)" +"(syntax-e$1 s_650)" +" s_650)))" +"(if(pair? s_651)" "(let-values(((tst306_0)" -"(let-values(((s_653)(car s_652)))" -" s_653))" +"(let-values(((s_652)(car s_651)))" +" s_652))" "((thn307_0 els308_0)" -"(let-values(((s_654)(cdr s_652)))" -"(let-values(((s_655)" -"(if(syntax?$1 s_654)" -"(syntax-e$1 s_654)" -" s_654)))" -"(if(pair? s_655)" +"(let-values(((s_653)(cdr s_651)))" +"(let-values(((s_654)" +"(if(syntax?$1 s_653)" +"(syntax-e$1 s_653)" +" s_653)))" +"(if(pair? s_654)" "(let-values(((thn309_0)" -"(let-values(((s_656)" +"(let-values(((s_655)" "(car" -" s_655)))" -" s_656))" +" s_654)))" +" s_655))" "((els310_0)" +"(let-values(((s_656)" +"(cdr" +" s_654)))" "(let-values(((s_657)" -"(cdr" -" s_655)))" -"(let-values(((s_658)" "(if(syntax?$1" -" s_657)" +" s_656)" "(syntax-e$1" -" s_657)" -" s_657)))" +" s_656)" +" s_656)))" "(if(pair?" -" s_658)" +" s_657)" "(let-values(((els311_0)" -"(let-values(((s_659)" +"(let-values(((s_658)" "(car" -" s_658)))" -" s_659))" +" s_657)))" +" s_658))" "(()" -"(let-values(((s_660)" +"(let-values(((s_659)" "(cdr" -" s_658)))" -"(let-values(((s_661)" +" s_657)))" +"(let-values(((s_660)" "(if(syntax?$1" -" s_660)" +" s_659)" "(syntax-e$1" -" s_660)" -" s_660)))" +" s_659)" +" s_659)))" "(if(null?" -" s_661)" +" s_660)" "(values)" "(raise-syntax-error$1" " #f" @@ -66958,7 +67136,7 @@ static const char *startup_source = "(let-values(((expr-ctx312_0) expr-ctx_2)((ctx313_0) ctx_88))" "(as-tail-context22.1 ctx313_0 expr-ctx312_0))))" "(let-values(((rebuild-s_9)" -"(let-values(((ctx314_0) ctx_88)((s315_0) s_626))" +"(let-values(((ctx314_0) ctx_88)((s315_0) s_625))" "(keep-as-needed119.1 #f #f #f ctx314_0 s315_0))))" "(let-values(((exp-tst_0)" "(let-values(((temp316_0) tst299_0)((expr-ctx317_0) expr-ctx_2))" @@ -66991,7 +67169,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'with-continuation-mark" -"(lambda(s_662 ctx_89)" +"(lambda(s_661 ctx_89)" "(let-values((()" "(begin" "(let-values(((obs_110)(expand-context-observer ctx_89)))" @@ -66999,65 +67177,65 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_110 'prim-with-continuation-mark)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_14)(syntax-disarm$1 s_662)))" +"(let-values(((disarmed-s_14)(syntax-disarm$1 s_661)))" "(let-values(((ok?_54 with-continuation-mark324_0 key325_0 val326_0 body327_0)" -"(let-values(((s_663) disarmed-s_14))" -"(let-values(((orig-s_55) s_663))" +"(let-values(((s_662) disarmed-s_14))" +"(let-values(((orig-s_55) s_662))" "(let-values(((with-continuation-mark324_1 key325_1 val326_1 body327_1)" -"(let-values(((s_664)(if(syntax?$1 s_663)(syntax-e$1 s_663) s_663)))" -"(if(pair? s_664)" +"(let-values(((s_663)(if(syntax?$1 s_662)(syntax-e$1 s_662) s_662)))" +"(if(pair? s_663)" "(let-values(((with-continuation-mark328_0)" -"(let-values(((s_665)(car s_664))) s_665))" +"(let-values(((s_664)(car s_663))) s_664))" "((key329_0 val330_0 body331_0)" -"(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(((s_665)(cdr s_663)))" +"(let-values(((s_666)" +"(if(syntax?$1 s_665)" +"(syntax-e$1 s_665)" +" s_665)))" +"(if(pair? s_666)" "(let-values(((key332_0)" -"(let-values(((s_668)(car s_667)))" -" s_668))" +"(let-values(((s_667)(car s_666)))" +" s_667))" "((val333_0 body334_0)" -"(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(((s_668)(cdr s_666)))" +"(let-values(((s_669)" +"(if(syntax?$1 s_668)" +"(syntax-e$1 s_668)" +" s_668)))" +"(if(pair? s_669)" "(let-values(((val335_0)" -"(let-values(((s_671)" +"(let-values(((s_670)" "(car" -" s_670)))" -" s_671))" +" s_669)))" +" s_670))" "((body336_0)" +"(let-values(((s_671)" +"(cdr" +" s_669)))" "(let-values(((s_672)" -"(cdr" -" s_670)))" -"(let-values(((s_673)" "(if(syntax?$1" -" s_672)" +" s_671)" "(syntax-e$1" -" s_672)" -" s_672)))" -"(if(pair? s_673)" +" s_671)" +" s_671)))" +"(if(pair? s_672)" "(let-values(((body337_0)" -"(let-values(((s_674)" +"(let-values(((s_673)" "(car" -" s_673)))" -" s_674))" +" s_672)))" +" s_673))" "(()" -"(let-values(((s_675)" +"(let-values(((s_674)" "(cdr" -" s_673)))" -"(let-values(((s_676)" +" s_672)))" +"(let-values(((s_675)" "(if(syntax?$1" -" s_675)" +" s_674)" "(syntax-e$1" -" s_675)" -" s_675)))" +" s_674)" +" s_674)))" "(if(null?" -" s_676)" +" s_675)" "(values)" "(raise-syntax-error$1" " #f" @@ -67081,7 +67259,7 @@ static const char *startup_source = "(values #t with-continuation-mark324_1 key325_1 val326_1 body327_1))))))" "(let-values(((expr-ctx_3)(as-expression-context ctx_89)))" "(let-values(((rebuild-s_10)" -"(let-values(((ctx338_0) ctx_89)((s339_0) s_662))" +"(let-values(((ctx338_0) ctx_89)((s339_0) s_661))" "(keep-as-needed119.1 #f #f #f ctx338_0 s339_0))))" "(let-values(((exp-key_0)" "(let-values(((temp340_0) key325_0)((expr-ctx341_0) expr-ctx_3))" @@ -67124,7 +67302,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_677 ctx_90)" +"(lambda(s_676 ctx_90)" "(let-values((()" "(begin" "(let-values(((obs_113)(expand-context-observer ctx_90)))" @@ -67132,24 +67310,24 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_113 log-tag_1)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_15)(syntax-disarm$1 s_677)))" +"(let-values(((disarmed-s_15)(syntax-disarm$1 s_676)))" "(let-values(((ok?_55 begin350_0 e351_0)" -"(let-values(((s_678) disarmed-s_15))" -"(let-values(((orig-s_56) s_678))" +"(let-values(((s_677) disarmed-s_15))" +"(let-values(((orig-s_56) s_677))" "(let-values(((begin350_1 e351_1)" -"(let-values(((s_679)" -"(if(syntax?$1 s_678)(syntax-e$1 s_678) s_678)))" -"(if(pair? s_679)" +"(let-values(((s_678)" +"(if(syntax?$1 s_677)(syntax-e$1 s_677) s_677)))" +"(if(pair? s_678)" "(let-values(((begin352_0)" -"(let-values(((s_680)(car s_679))) s_680))" +"(let-values(((s_679)(car s_678))) s_679))" "((e353_0)" -"(let-values(((s_681)(cdr s_679)))" -"(let-values(((s_682)" -"(if(syntax?$1 s_681)" -"(syntax-e$1 s_681)" -" s_681)))" +"(let-values(((s_680)(cdr s_678)))" +"(let-values(((s_681)" +"(if(syntax?$1 s_680)" +"(syntax-e$1 s_680)" +" s_680)))" "(let-values(((flat-s_45)" -"(to-syntax-list.1 s_682)))" +"(to-syntax-list.1 s_681)))" "(if(not flat-s_45)" "(let-values()" "(raise-syntax-error$1" @@ -67171,10 +67349,10 @@ static const char *startup_source = "(as-begin-expression-context ctx_90)" "(as-expression-context ctx_90))))" "(let-values(((rebuild-s_11)" -"(let-values(((ctx354_0) ctx_90)((s355_0) s_677))" +"(let-values(((ctx354_0) ctx_90)((s355_0) s_676))" "(keep-as-needed119.1 #f #f #f ctx354_0 s355_0))))" "(let-values(((exp-es_2)" -"((letrec-values(((loop_123)" +"((letrec-values(((loop_124)" "(lambda(es_5 index_6)" "(begin" " 'loop" @@ -67224,8 +67402,8 @@ static const char *startup_source = " expr-ctx358_0))" " expr-ctx_4)))" "(expand9.1 #f #f #f temp356_0 temp357_0))" -"(loop_123 rest-es_1(sub1 index_6))))))))))))" -" loop_123)" +"(loop_124 rest-es_1(sub1 index_6))))))))))))" +" loop_124)" " e351_0" " list-start-index_0)))" "(begin" @@ -67251,39 +67429,39 @@ static const char *startup_source = "((temp364_0) 0)" "((temp365_0) #t))" "(make-begin20.1 temp365_0 temp364_0 temp362_0 parsed-begin363_0))))" -"(lambda(s_683 ctx_91)" +"(lambda(s_682 ctx_91)" "(let-values(((context_25)(expand-context-context ctx_91)))" "(if(let-values(((or-part_382)(eq? context_25 'top-level)))" "(if or-part_382 or-part_382(eq? context_25 'module)))" "(let-values()" -"(let-values(((disarmed-s_16)(syntax-disarm$1 s_683)))" +"(let-values(((disarmed-s_16)(syntax-disarm$1 s_682)))" "(let-values(((ok?_56 begin366_0)" -"(let-values(((s_684) disarmed-s_16))" -"(if(let-values(((s_685)(if(syntax?$1 s_684)(syntax-e$1 s_684) s_684)))" -"(if(pair? s_685)" -"(if(let-values(((s_686)(car s_685))) #t)" -"(let-values(((s_687)(cdr s_685)))" -"(let-values(((s_688)(if(syntax?$1 s_687)(syntax-e$1 s_687) s_687)))" -"(null? s_688)))" +"(let-values(((s_683) disarmed-s_16))" +"(if(let-values(((s_684)(if(syntax?$1 s_683)(syntax-e$1 s_683) s_683)))" +"(if(pair? s_684)" +"(if(let-values(((s_685)(car s_684))) #t)" +"(let-values(((s_686)(cdr s_684)))" +"(let-values(((s_687)(if(syntax?$1 s_686)(syntax-e$1 s_686) s_686)))" +"(null? s_687)))" " #f)" " #f))" "(let-values()" "(let-values(((begin366_1)" -"(let-values(((s_689)(if(syntax?$1 s_684)(syntax-e$1 s_684) s_684)))" +"(let-values(((s_688)(if(syntax?$1 s_683)(syntax-e$1 s_683) s_683)))" "(let-values(((begin367_0)" -"(let-values(((s_690)(car s_689))) s_690))" +"(let-values(((s_689)(car s_688))) s_689))" "(()" -"(let-values(((s_691)(cdr s_689)))" -"(let-values(((s_692)" -"(if(syntax?$1 s_691)" -"(syntax-e$1 s_691)" -" s_691)))" +"(let-values(((s_690)(cdr s_688)))" +"(let-values(((s_691)" +"(if(syntax?$1 s_690)" +"(syntax-e$1 s_690)" +" s_690)))" "(values)))))" "(values begin367_0)))))" "(values #t begin366_1)))" "(values #f #f)))))" -"(if ok?_56 s_683(nonempty-begin_0 s_683 ctx_91)))))" -"(let-values()(nonempty-begin_0 s_683 ctx_91))))))))" +"(if ok?_56 s_682(nonempty-begin_0 s_682 ctx_91)))))" +"(let-values()(nonempty-begin_0 s_682 ctx_91))))))))" "(void" "(add-core-form!*" " 'begin0" @@ -67310,7 +67488,7 @@ static const char *startup_source = "(lambda(s373_0 ctx374_0 implicit-omitted?372_0)" "(begin" " 'core375" -"(let-values(((s_693) s373_0))" +"(let-values(((s_692) s373_0))" "(let-values(((ctx_93) ctx374_0))" "(let-values(((implicit-omitted?_0) implicit-omitted?372_0))" "(let-values()" @@ -67322,46 +67500,46 @@ static const char *startup_source = "(let-values()(call-expand-observe obs_117 'prim-#%top)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_17)(syntax-disarm$1 s_693)))" +"(let-values(((disarmed-s_17)(syntax-disarm$1 s_692)))" "(let-values(((id_122)" "(if implicit-omitted?_0" -"(let-values() s_693)" +"(let-values() s_692)" "(let-values()" "(let-values(((ok?_57 #%top377_0 id378_0)" -"(let-values(((s_694) disarmed-s_17))" -"(let-values(((orig-s_57) s_694))" +"(let-values(((s_693) disarmed-s_17))" +"(let-values(((orig-s_57) s_693))" "(let-values(((#%top377_1 id378_1)" -"(let-values(((s_695)" -"(if(syntax?$1 s_694)" -"(syntax-e$1 s_694)" -" s_694)))" -"(if(pair? s_695)" +"(let-values(((s_694)" +"(if(syntax?$1 s_693)" +"(syntax-e$1 s_693)" +" s_693)))" +"(if(pair? s_694)" "(let-values(((#%top379_0)" -"(let-values(((s_696)" +"(let-values(((s_695)" "(car" -" s_695)))" -" s_696))" +" s_694)))" +" s_695))" "((id380_0)" -"(let-values(((s_697)" +"(let-values(((s_696)" "(cdr" -" s_695)))" +" s_694)))" "(if(let-values(((or-part_383)" "(if(syntax?$1" -" s_697)" +" s_696)" "(symbol?" "(syntax-e$1" -" s_697))" +" s_696))" " #f)))" "(if or-part_383" " or-part_383" "(symbol?" -" s_697)))" -" s_697" +" s_696)))" +" s_696" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_57" -" s_697)))))" +" s_696)))))" "(values #%top379_0 id380_0))" "(raise-syntax-error$1" " #f" @@ -67369,7 +67547,7 @@ static const char *startup_source = " orig-s_57)))))" "(values #t #%top377_1 id378_1))))))" " id378_0)))))" -"(let-values(((b_92)" +"(let-values(((b_93)" "(let-values(((id381_0) id_122)" "((temp382_0)(expand-context-phase ctx_93))" "((temp383_0) 'ambiguous))" @@ -67381,23 +67559,23 @@ static const char *startup_source = " #f" " id381_0" " temp382_0))))" -"(if(eq? b_92 'ambiguous)" +"(if(eq? b_93 'ambiguous)" "(let-values()(raise-ambiguous-error id_122 ctx_93))" -"(if(if b_92" -"(if(module-binding? b_92)" -"(eq?(module-binding-module b_92)(root-expand-context-self-mpi ctx_93))" +"(if(if b_93" +"(if(module-binding? b_93)" +"(eq?(module-binding-module b_93)(root-expand-context-self-mpi ctx_93))" " #f)" " #f)" "(let-values()" "(if(expand-context-to-parsed? ctx_93)" -"(parsed-id2.1 id_122 b_92 #f)" -"(if(top-level-module-path-index?(module-binding-module b_92))" -"(let-values() s_693)" +"(parsed-id2.1 id_122 b_93 #f)" +"(if(top-level-module-path-index?(module-binding-module b_93))" +"(let-values() s_692)" "(let-values() id_122))))" "(if(register-eventual-variable!? id_122 ctx_93)" "(let-values()" "(if(expand-context-to-parsed? ctx_93)" -"(parsed-id2.1 id_122 b_92 #f)" +"(parsed-id2.1 id_122 b_93 #f)" " id_122))" "(let-values()" "(if(not(expand-context-allow-unbound? ctx_93))" @@ -67427,42 +67605,42 @@ static const char *startup_source = "(let-values() id_122)" "(let-values()" "(let-values(((ok?_58 #%top386_0 id387_0)" -"(let-values(((s_698) disarmed-s_17))" -"(let-values(((orig-s_58) s_698))" +"(let-values(((s_697) disarmed-s_17))" +"(let-values(((orig-s_58) s_697))" "(let-values(((#%top386_1 id387_1)" -"(let-values(((s_699)" +"(let-values(((s_698)" "(if(syntax?$1" -" s_698)" +" s_697)" "(syntax-e$1" -" s_698)" -" s_698)))" -"(if(pair? s_699)" +" s_697)" +" s_697)))" +"(if(pair? s_698)" "(let-values(((#%top388_0)" -"(let-values(((s_700)" +"(let-values(((s_699)" "(car" -" s_699)))" -" s_700))" +" s_698)))" +" s_699))" "((id389_0)" -"(let-values(((s_701)" +"(let-values(((s_700)" "(cdr" -" s_699)))" +" s_698)))" "(if(let-values(((or-part_384)" "(if(syntax?$1" -" s_701)" +" s_700)" "(symbol?" "(syntax-e$1" -" s_701))" +" s_700))" " #f)))" "(if or-part_384" " or-part_384" "(symbol?" -" s_701)))" -" s_701" +" s_700)))" +" s_700" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_58" -" s_701)))))" +" s_700)))))" "(values" " #%top388_0" " id389_0))" @@ -67471,80 +67649,80 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_58)))))" "(values #t #%top386_1 id387_1))))))" -"(let-values(((s390_0) s_693)" +"(let-values(((s390_0) s_692)" "((temp391_0)(cons #%top386_0 id_122)))" "(rebuild5.1 #t s390_0 temp391_0)))))))" "(let-values()" "(if(expand-context-to-parsed? ctx_93)" -"(parsed-top-id4.1 id_122 b_92 #f)" -" s_693)))))))))))))))))))))))" +"(parsed-top-id4.1 id_122 b_93 #f)" +" s_692)))))))))))))))))))))))" "(case-lambda" -"((s_702 ctx_94)(core375_0 s_702 ctx_94 #f))" -"((s_703 ctx_95 implicit-omitted?372_1)(core375_0 s_703 ctx_95 implicit-omitted?372_1))))))" +"((s_701 ctx_94)(core375_0 s_701 ctx_94 #f))" +"((s_702 ctx_95 implicit-omitted?372_1)(core375_0 s_702 ctx_95 implicit-omitted?372_1))))))" "(void" "(add-core-form!*" " 'set!" -"(lambda(s_704 ctx_96)" +"(lambda(s_703 ctx_96)" "(let-values((()" "(begin" "(let-values(((obs_118)(expand-context-observer ctx_96)))" "(if obs_118(let-values()(let-values()(call-expand-observe obs_118 'prim-set!)))(void)))" "(values))))" -"(let-values(((disarmed-s_18)(syntax-disarm$1 s_704)))" +"(let-values(((disarmed-s_18)(syntax-disarm$1 s_703)))" "(let-values(((ok?_59 set!392_0 id393_0 rhs394_0)" -"(let-values(((s_705) disarmed-s_18))" -"(let-values(((orig-s_59) s_705))" +"(let-values(((s_704) disarmed-s_18))" +"(let-values(((orig-s_59) s_704))" "(let-values(((set!392_1 id393_1 rhs394_1)" -"(let-values(((s_706)(if(syntax?$1 s_705)(syntax-e$1 s_705) s_705)))" -"(if(pair? s_706)" -"(let-values(((set!395_0)(let-values(((s_707)(car s_706))) s_707))" +"(let-values(((s_705)(if(syntax?$1 s_704)(syntax-e$1 s_704) s_704)))" +"(if(pair? s_705)" +"(let-values(((set!395_0)(let-values(((s_706)(car s_705))) s_706))" "((id396_0 rhs397_0)" -"(let-values(((s_708)(cdr s_706)))" -"(let-values(((s_709)" -"(if(syntax?$1 s_708)" -"(syntax-e$1 s_708)" -" s_708)))" -"(if(pair? s_709)" +"(let-values(((s_707)(cdr s_705)))" +"(let-values(((s_708)" +"(if(syntax?$1 s_707)" +"(syntax-e$1 s_707)" +" s_707)))" +"(if(pair? s_708)" "(let-values(((id398_0)" -"(let-values(((s_710)(car s_709)))" +"(let-values(((s_709)(car s_708)))" "(if(let-values(((or-part_385)" -"(if(syntax?$1 s_710)" +"(if(syntax?$1 s_709)" "(symbol?" "(syntax-e$1" -" s_710))" +" s_709))" " #f)))" "(if or-part_385" " or-part_385" -"(symbol? s_710)))" -" s_710" +"(symbol? s_709)))" +" s_709" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_59" -" s_710))))" +" s_709))))" "((rhs399_0)" -"(let-values(((s_711)(cdr s_709)))" -"(let-values(((s_712)" -"(if(syntax?$1 s_711)" -"(syntax-e$1 s_711)" -" s_711)))" -"(if(pair? s_712)" +"(let-values(((s_710)(cdr s_708)))" +"(let-values(((s_711)" +"(if(syntax?$1 s_710)" +"(syntax-e$1 s_710)" +" s_710)))" +"(if(pair? s_711)" "(let-values(((rhs400_0)" -"(let-values(((s_713)" +"(let-values(((s_712)" "(car" -" s_712)))" -" s_713))" +" s_711)))" +" s_712))" "(()" -"(let-values(((s_714)" +"(let-values(((s_713)" "(cdr" -" s_712)))" -"(let-values(((s_715)" +" s_711)))" +"(let-values(((s_714)" "(if(syntax?$1" -" s_714)" +" s_713)" "(syntax-e$1" -" s_714)" -" s_714)))" -"(if(null? s_715)" +" s_713)" +" s_713)))" +"(if(null? s_714)" "(values)" "(raise-syntax-error$1" " #f" @@ -67565,7 +67743,7 @@ static const char *startup_source = "(lambda(id_123 from-rename?_0)" "(begin" " 'rename-loop" -"(let-values(((binding_28)" +"(let-values(((binding_29)" "(let-values(((id401_0) id_123)" "((temp402_0)(expand-context-phase ctx_96))" "((temp403_0) 'ambiguous)" @@ -67580,15 +67758,15 @@ static const char *startup_source = " temp402_0))))" "(let-values((()" "(begin" -"(if(eq? binding_28 'ambiguous)" +"(if(eq? binding_29 'ambiguous)" "(let-values()(raise-ambiguous-error id_123 ctx_96))" "(void))" "(values))))" "(let-values(((t_62 primitive?_11 insp_24 protected?_12)" -"(if binding_28" -"(let-values(((binding405_0) binding_28)" +"(if binding_29" +"(let-values(((binding405_0) binding_29)" "((ctx406_0) ctx_96)" -"((s407_0) s_704))" +"((s407_0) s_703))" "(lookup62.1 #f #f binding405_0 ctx406_0 s407_0))" "(values #f #f #f #f))))" "(begin" @@ -67600,7 +67778,7 @@ static const char *startup_source = "(if(let-values(((or-part_386)(variable? t_62)))" "(if or-part_386" " or-part_386" -"(if(not binding_28)" +"(if(not binding_29)" "(let-values(((or-part_387)" "(register-eventual-variable!? id_123 ctx_96)))" "(if or-part_387" @@ -67610,17 +67788,17 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(if(module-binding? binding_28)" +"(if(if(module-binding? binding_29)" "(not" "(eq?" -"(module-binding-module binding_28)" +"(module-binding-module binding_29)" "(root-expand-context-self-mpi ctx_96)))" " #f)" "(let-values()" "(raise-syntax-error$1" " #f" " \"cannot mutate module-required identifier\"" -" s_704" +" s_703" " id_123))" "(void))" "(values))))" @@ -67636,10 +67814,10 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(register-variable-referenced-if-local! binding_28)" +"(register-variable-referenced-if-local! binding_29)" "(values))))" "(let-values(((rebuild-s_12)" -"(let-values(((ctx408_0) ctx_96)((s409_0) s_704))" +"(let-values(((ctx408_0) ctx_96)((s409_0) s_703))" "(keep-as-needed119.1 #f #f #f ctx408_0 s409_0))))" "(let-values(((exp-rhs_5)" "(let-values(((temp410_0) rhs394_0)" @@ -67649,7 +67827,7 @@ static const char *startup_source = "(if(expand-context-to-parsed? ctx_96)" "(parsed-set!9.1" " rebuild-s_12" -"(parsed-id2.1 id_123 binding_28 #f)" +"(parsed-id2.1 id_123 binding_29 #f)" " exp-rhs_5)" "(let-values(((rebuild-s412_0) rebuild-s_12)" "((temp413_0)" @@ -67667,12 +67845,12 @@ static const char *startup_source = " t415_0))" " exp-rhs_5)))" "(rebuild5.1 #t rebuild-s412_0 temp413_0)))))))))" -"(if(not binding_28)" +"(if(not binding_29)" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_704" +" s_703" " id_123" " null" "(syntax-debug-info-string id_123 ctx_96)))" @@ -67683,7 +67861,7 @@ static const char *startup_source = "(let-values(((temp417_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_704" +" s_703" " disarmed-s_18" " set!392_0" " rhs394_0" @@ -67698,10 +67876,10 @@ static const char *startup_source = "(let-values(((exp-s_13 re-ctx_1)" "(let-values(((t419_0) t_62)" "((insp420_0) insp_24)" -"((s421_0) s_704)" +"((s421_0) s_703)" "((orig-id422_0) orig-id_1)" "((ctx423_0) ctx_96)" -"((binding424_0) binding_28)" +"((binding424_0) binding_29)" "((orig-id425_0) orig-id_1))" "(apply-transformer52.1" " orig-id425_0" @@ -67724,7 +67902,7 @@ static const char *startup_source = "(let-values(((temp428_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_704" +" s_703" " disarmed-s_18" " set!392_0" " rhs394_0" @@ -67747,7 +67925,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"cannot mutate syntax identifier\"" -" s_704" +" s_703" " id_123))))))))))))))" " rename-loop_0)" " orig-id_1" @@ -67758,7 +67936,7 @@ static const char *startup_source = "(lambda(s24_3 disarmed-s25_0 set!-id26_0 id27_0 rhs-s28_0 from-rename?29_0 ctx30_0 t23_0)" "(begin" " 'substitute-set!-rename31" -"(let-values(((s_716) s24_3))" +"(let-values(((s_715) s24_3))" "(let-values(((disarmed-s_19) disarmed-s25_0))" "(let-values(((set!-id_0) set!-id26_0))" "(let-values(((id_124) id27_0))" @@ -67780,17 +67958,17 @@ static const char *startup_source = "(list set!-id_0 new-id_1 rhs-s_0)" " disarmed-s_19" " disarmed-s_19)" -" s_716)))" -"(let-values() s_716)))))))))))))))" +" s_715)))" +"(let-values() s_715)))))))))))))))" "(case-lambda" -"((s_717 disarmed-s_20 set!-id_1 id_125 rhs-s_1 from-rename?_2 ctx_98)" -"(begin(substitute-set!-rename31_0 s_717 disarmed-s_20 set!-id_1 id_125 rhs-s_1 from-rename?_2 ctx_98 #f)))" -"((s_718 disarmed-s_21 set!-id_2 id_126 rhs-s_2 from-rename?_3 ctx_99 t23_1)" -"(substitute-set!-rename31_0 s_718 disarmed-s_21 set!-id_2 id_126 rhs-s_2 from-rename?_3 ctx_99 t23_1)))))" +"((s_716 disarmed-s_20 set!-id_1 id_125 rhs-s_1 from-rename?_2 ctx_98)" +"(begin(substitute-set!-rename31_0 s_716 disarmed-s_20 set!-id_1 id_125 rhs-s_1 from-rename?_2 ctx_98 #f)))" +"((s_717 disarmed-s_21 set!-id_2 id_126 rhs-s_2 from-rename?_3 ctx_99 t23_1)" +"(substitute-set!-rename31_0 s_717 disarmed-s_21 set!-id_2 id_126 rhs-s_2 from-rename?_3 ctx_99 t23_1)))))" "(void" "(add-core-form!*" " '#%variable-reference" -"(lambda(s_719 ctx_100)" +"(lambda(s_718 ctx_100)" "(let-values((()" "(begin" "(let-values(((obs_121)(expand-context-observer ctx_100)))" @@ -67798,75 +67976,75 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_121 'prim-#%variable-reference)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_22)(syntax-disarm$1 s_719)))" +"(let-values(((disarmed-s_22)(syntax-disarm$1 s_718)))" "(let-values(((ok?_60 #%variable-reference430_0 id431_0)" -"(let-values(((s_720) disarmed-s_22))" -"(if(let-values(((s_721)(if(syntax?$1 s_720)(syntax-e$1 s_720) s_720)))" -"(if(pair? s_721)" -"(if(let-values(((s_722)(car s_721))) #t)" -"(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)" -"(if(let-values(((s_725)(car s_724)))" +"(let-values(((s_719) disarmed-s_22))" +"(if(let-values(((s_720)(if(syntax?$1 s_719)(syntax-e$1 s_719) s_719)))" +"(if(pair? s_720)" +"(if(let-values(((s_721)(car s_720))) #t)" +"(let-values(((s_722)(cdr s_720)))" +"(let-values(((s_723)(if(syntax?$1 s_722)(syntax-e$1 s_722) s_722)))" +"(if(pair? s_723)" +"(if(let-values(((s_724)(car s_723)))" "(let-values(((or-part_389)" -"(if(syntax?$1 s_725)(symbol?(syntax-e$1 s_725)) #f)))" -"(if or-part_389 or-part_389(symbol? s_725))))" -"(let-values(((s_726)(cdr s_724)))" -"(let-values(((s_727)(if(syntax?$1 s_726)(syntax-e$1 s_726) s_726)))" -"(null? s_727)))" +"(if(syntax?$1 s_724)(symbol?(syntax-e$1 s_724)) #f)))" +"(if or-part_389 or-part_389(symbol? s_724))))" +"(let-values(((s_725)(cdr s_723)))" +"(let-values(((s_726)(if(syntax?$1 s_725)(syntax-e$1 s_725) s_725)))" +"(null? s_726)))" " #f)" " #f)))" " #f)" " #f))" "(let-values()" "(let-values(((#%variable-reference430_1 id431_1)" -"(let-values(((s_728)(if(syntax?$1 s_720)(syntax-e$1 s_720) s_720)))" +"(let-values(((s_727)(if(syntax?$1 s_719)(syntax-e$1 s_719) s_719)))" "(let-values(((#%variable-reference432_0)" -"(let-values(((s_729)(car s_728))) s_729))" +"(let-values(((s_728)(car s_727))) s_728))" "((id433_0)" -"(let-values(((s_730)(cdr s_728)))" -"(let-values(((s_731)" -"(if(syntax?$1 s_730)" -"(syntax-e$1 s_730)" -" s_730)))" +"(let-values(((s_729)(cdr s_727)))" +"(let-values(((s_730)" +"(if(syntax?$1 s_729)" +"(syntax-e$1 s_729)" +" s_729)))" "(let-values(((id434_0)" -"(let-values(((s_732)(car s_731))) s_732))" +"(let-values(((s_731)(car s_730))) s_731))" "(()" -"(let-values(((s_733)(cdr s_731)))" -"(let-values(((s_734)" -"(if(syntax?$1 s_733)" -"(syntax-e$1 s_733)" -" s_733)))" +"(let-values(((s_732)(cdr s_730)))" +"(let-values(((s_733)" +"(if(syntax?$1 s_732)" +"(syntax-e$1 s_732)" +" s_732)))" "(values)))))" "(values id434_0))))))" "(values #%variable-reference432_0 id433_0)))))" "(values #t #%variable-reference430_1 id431_1)))" "(values #f #f #f)))))" "(let-values(((ok?_61 #%variable-reference435_0 #%top436_0 id437_0)" -"(let-values(((s_735) disarmed-s_22))" +"(let-values(((s_734) disarmed-s_22))" "(if(if(not ok?_60)" -"(let-values(((s_736)(if(syntax?$1 s_735)(syntax-e$1 s_735) s_735)))" -"(if(pair? s_736)" -"(if(let-values(((s_737)(car s_736))) #t)" -"(let-values(((s_738)(cdr s_736)))" -"(let-values(((s_739)(if(syntax?$1 s_738)(syntax-e$1 s_738) s_738)))" -"(if(pair? s_739)" -"(if(let-values(((s_740)(car s_739)))" -"(let-values(((s_741)" -"(if(syntax?$1 s_740)(syntax-e$1 s_740) s_740)))" -"(if(pair? s_741)" -"(if(let-values(((s_742)(car s_741))) #t)" -"(let-values(((s_743)(cdr s_741)))" +"(let-values(((s_735)(if(syntax?$1 s_734)(syntax-e$1 s_734) s_734)))" +"(if(pair? s_735)" +"(if(let-values(((s_736)(car s_735))) #t)" +"(let-values(((s_737)(cdr s_735)))" +"(let-values(((s_738)(if(syntax?$1 s_737)(syntax-e$1 s_737) s_737)))" +"(if(pair? s_738)" +"(if(let-values(((s_739)(car s_738)))" +"(let-values(((s_740)" +"(if(syntax?$1 s_739)(syntax-e$1 s_739) s_739)))" +"(if(pair? s_740)" +"(if(let-values(((s_741)(car s_740))) #t)" +"(let-values(((s_742)(cdr s_740)))" "(let-values(((or-part_390)" -"(if(syntax?$1 s_743)" -"(symbol?(syntax-e$1 s_743))" +"(if(syntax?$1 s_742)" +"(symbol?(syntax-e$1 s_742))" " #f)))" -"(if or-part_390 or-part_390(symbol? s_743))))" +"(if or-part_390 or-part_390(symbol? s_742))))" " #f)" " #f)))" -"(let-values(((s_744)(cdr s_739)))" -"(let-values(((s_745)(if(syntax?$1 s_744)(syntax-e$1 s_744) s_744)))" -"(null? s_745)))" +"(let-values(((s_743)(cdr s_738)))" +"(let-values(((s_744)(if(syntax?$1 s_743)(syntax-e$1 s_743) s_743)))" +"(null? s_744)))" " #f)" " #f)))" " #f)" @@ -67874,61 +68052,61 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values(((#%variable-reference435_1 #%top436_1 id437_1)" -"(let-values(((s_746)(if(syntax?$1 s_735)(syntax-e$1 s_735) s_735)))" +"(let-values(((s_745)(if(syntax?$1 s_734)(syntax-e$1 s_734) s_734)))" "(let-values(((#%variable-reference438_0)" -"(let-values(((s_747)(car s_746))) s_747))" +"(let-values(((s_746)(car s_745))) s_746))" "((#%top439_0 id440_0)" -"(let-values(((s_748)(cdr s_746)))" -"(let-values(((s_749)" -"(if(syntax?$1 s_748)" -"(syntax-e$1 s_748)" -" s_748)))" +"(let-values(((s_747)(cdr s_745)))" +"(let-values(((s_748)" +"(if(syntax?$1 s_747)" +"(syntax-e$1 s_747)" +" s_747)))" "(let-values(((#%top441_0 id442_0)" -"(let-values(((s_750)(car s_749)))" -"(let-values(((s_751)" -"(if(syntax?$1 s_750)" -"(syntax-e$1 s_750)" -" s_750)))" +"(let-values(((s_749)(car s_748)))" +"(let-values(((s_750)" +"(if(syntax?$1 s_749)" +"(syntax-e$1 s_749)" +" s_749)))" "(let-values(((#%top443_0)" -"(let-values(((s_752)" +"(let-values(((s_751)" "(car" -" s_751)))" -" s_752))" +" s_750)))" +" s_751))" "((id444_0)" -"(let-values(((s_753)" +"(let-values(((s_752)" "(cdr" -" s_751)))" -" s_753)))" +" s_750)))" +" s_752)))" "(values #%top443_0 id444_0)))))" "(()" -"(let-values(((s_754)(cdr s_749)))" -"(let-values(((s_755)" -"(if(syntax?$1 s_754)" -"(syntax-e$1 s_754)" -" s_754)))" +"(let-values(((s_753)(cdr s_748)))" +"(let-values(((s_754)" +"(if(syntax?$1 s_753)" +"(syntax-e$1 s_753)" +" s_753)))" "(values)))))" "(values #%top441_0 id442_0))))))" "(values #%variable-reference438_0 #%top439_0 id440_0)))))" "(values #t #%variable-reference435_1 #%top436_1 id437_1)))" "(values #f #f #f #f)))))" "(let-values(((ok?_62 #%variable-reference445_0)" -"(let-values(((s_756) disarmed-s_22))" +"(let-values(((s_755) disarmed-s_22))" "(if(if(not(let-values(((or-part_391) ok?_60))(if or-part_391 or-part_391 ok?_61)))" " #t" " #f)" -"(let-values(((orig-s_60) s_756))" +"(let-values(((orig-s_60) s_755))" "(let-values(((#%variable-reference445_1)" -"(let-values(((s_757)(if(syntax?$1 s_756)(syntax-e$1 s_756) s_756)))" -"(if(pair? s_757)" +"(let-values(((s_756)(if(syntax?$1 s_755)(syntax-e$1 s_755) s_755)))" +"(if(pair? s_756)" "(let-values(((#%variable-reference446_0)" -"(let-values(((s_758)(car s_757))) s_758))" +"(let-values(((s_757)(car s_756))) s_757))" "(()" -"(let-values(((s_759)(cdr s_757)))" -"(let-values(((s_760)" -"(if(syntax?$1 s_759)" -"(syntax-e$1 s_759)" -" s_759)))" -"(if(null? s_760)" +"(let-values(((s_758)(cdr s_756)))" +"(let-values(((s_759)" +"(if(syntax?$1 s_758)" +"(syntax-e$1 s_758)" +" s_758)))" +"(if(null? s_759)" "(values)" "(raise-syntax-error$1" " #f" @@ -67941,60 +68119,60 @@ static const char *startup_source = "(if(let-values(((or-part_392) ok?_60))(if or-part_392 or-part_392 ok?_61))" "(let-values()" "(let-values(((var-id_0)(if ok?_60 id431_0 id437_0)))" -"(let-values(((binding_29)" +"(let-values(((binding_30)" "(let-values(((var-id447_0) var-id_0)" "((temp448_0)(expand-context-phase ctx_100))" "((temp449_0) 'ambiguous))" "(resolve+shift28.1 temp449_0 #f null unsafe-undefined #f var-id447_0 temp448_0))))" "(let-values((()" "(begin" -"(if(eq? binding_29 'ambiguous)" +"(if(eq? binding_30 'ambiguous)" "(let-values()(raise-ambiguous-error var-id_0 ctx_100))" "(void))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_393) binding_29))" +"(if(let-values(((or-part_393) binding_30))" "(if or-part_393 or-part_393(expand-context-allow-unbound? ctx_100)))" "(void)" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_719" +" s_718" " var-id_0" " null" "(syntax-debug-info-string var-id_0 ctx_100))))" "(values))))" "(let-values(((t_64 primitive?_12 insp-of-t_7 protected?_13)" -"(if binding_29" -"(let-values(((binding450_0) binding_29)" +"(if binding_30" +"(let-values(((binding450_0) binding_30)" "((ctx451_0) ctx_100)" "((var-id452_0) var-id_0)" -"((s453_0) s_719)" +"((s453_0) s_718)" "((temp454_0)(expand-context-in-local-expand? ctx_100)))" "(lookup62.1 s453_0 temp454_0 binding450_0 ctx451_0 var-id452_0))" "(values #f #f #f #f))))" "(begin" "(if(if t_64(not(variable? t_64)) #f)" "(let-values()" -" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_719))" +" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_718))" "(void))" "(if(expand-context-to-parsed? ctx_100)" "(parsed-#%variable-reference11.1" -"(keep-properties-only~ s_719)" +"(keep-properties-only~ s_718)" "(if ok?_61" -"(let-values()(parsed-top-id4.1 var-id_0 binding_29 #f))" -"(let-values()(parsed-id2.1 var-id_0 binding_29 #f))))" -" s_719))))))))" +"(let-values()(parsed-top-id4.1 var-id_0 binding_30 #f))" +"(let-values()(parsed-id2.1 var-id_0 binding_30 #f))))" +" s_718))))))))" "(let-values()" "(if(expand-context-to-parsed? ctx_100)" -"(parsed-#%variable-reference11.1(keep-properties-only~ s_719) #f)" -" s_719)))))))))))" +"(parsed-#%variable-reference11.1(keep-properties-only~ s_718) #f)" +" s_718)))))))))))" "(void" "(add-core-form!*" " '#%expression" -"(lambda(s_761 ctx_101)" +"(lambda(s_760 ctx_101)" "(let-values((()" "(begin" "(let-values(((obs_122)(expand-context-observer ctx_101)))" @@ -68002,32 +68180,32 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_122 'prim-#%expression)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_23)(syntax-disarm$1 s_761)))" +"(let-values(((disarmed-s_23)(syntax-disarm$1 s_760)))" "(let-values(((ok?_63 #%expression455_0 e456_0)" -"(let-values(((s_762) disarmed-s_23))" -"(let-values(((orig-s_61) s_762))" +"(let-values(((s_761) disarmed-s_23))" +"(let-values(((orig-s_61) s_761))" "(let-values(((#%expression455_1 e456_1)" -"(let-values(((s_763)(if(syntax?$1 s_762)(syntax-e$1 s_762) s_762)))" -"(if(pair? s_763)" +"(let-values(((s_762)(if(syntax?$1 s_761)(syntax-e$1 s_761) s_761)))" +"(if(pair? s_762)" "(let-values(((#%expression457_0)" -"(let-values(((s_764)(car s_763))) s_764))" +"(let-values(((s_763)(car s_762))) s_763))" "((e458_0)" -"(let-values(((s_765)(cdr s_763)))" -"(let-values(((s_766)" -"(if(syntax?$1 s_765)" -"(syntax-e$1 s_765)" -" s_765)))" -"(if(pair? s_766)" +"(let-values(((s_764)(cdr s_762)))" +"(let-values(((s_765)" +"(if(syntax?$1 s_764)" +"(syntax-e$1 s_764)" +" s_764)))" +"(if(pair? s_765)" "(let-values(((e459_0)" -"(let-values(((s_767)(car s_766)))" -" s_767))" +"(let-values(((s_766)(car s_765)))" +" s_766))" "(()" -"(let-values(((s_768)(cdr s_766)))" -"(let-values(((s_769)" -"(if(syntax?$1 s_768)" -"(syntax-e$1 s_768)" -" s_768)))" -"(if(null? s_769)" +"(let-values(((s_767)(cdr s_765)))" +"(let-values(((s_768)" +"(if(syntax?$1 s_767)" +"(syntax-e$1 s_767)" +" s_767)))" +"(if(null? s_768)" "(values)" "(raise-syntax-error$1" " #f" @@ -68039,7 +68217,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_61)))))" "(values #t #%expression455_1 e456_1))))))" "(let-values(((rebuild-s_13)" -"(let-values(((ctx460_0) ctx_101)((s461_0) s_761)((temp462_0) #t))" +"(let-values(((ctx460_0) ctx_101)((s461_0) s_760)((temp462_0) #t))" "(keep-as-needed119.1 temp462_0 #f #f ctx460_0 s461_0))))" "(let-values(((exp-e_0)" "(let-values(((temp463_0) e456_0)" @@ -68066,8 +68244,8 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_123 'tag result-s_13)))" "(void)))" " result-s_13)))))))))))))" -" (void (add-core-form!* 'unquote (lambda (s_770 ctx_102) (raise-syntax-error$1 #f \"not in quasiquote\" s_770))))" -" (void (add-core-form!* 'unquote-splicing (lambda (s_771 ctx_103) (raise-syntax-error$1 #f \"not in quasiquote\" s_771))))" +" (void (add-core-form!* 'unquote (lambda (s_769 ctx_102) (raise-syntax-error$1 #f \"not in quasiquote\" s_769))))" +" (void (add-core-form!* 'unquote-splicing (lambda (s_770 ctx_103) (raise-syntax-error$1 #f \"not in quasiquote\" s_770))))" "(define-values" "(binding-for-transformer?)" "(lambda(b_42 id_127 at-phase_12 ns_123)" @@ -68099,7 +68277,7 @@ static const char *startup_source = "(lambda(specs_0 orig-s_62 rp_1 self_30 phase_43 ctx_104)" "(begin" "(let-values(((ns_125)(expand-context-namespace ctx_104)))" -"((letrec-values(((loop_116)" +"((letrec-values(((loop_117)" "(lambda(specs_1 at-phase_13 protected?_15 layer_6)" "(begin" " 'loop" @@ -68111,19 +68289,19 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_77)))" -"((letrec-values(((for-loop_95)" +"((letrec-values(((for-loop_96)" "(lambda(track-stxes_1" " exp-specs_1" -" lst_403)" +" lst_404)" "(begin" " 'for-loop" -"(if(pair? lst_403)" +"(if(pair? lst_404)" "(let-values(((spec_0)" "(unsafe-car" -" lst_403))" -"((rest_239)" +" lst_404))" +"((rest_238)" "(unsafe-cdr" -" lst_403)))" +" lst_404)))" "(let-values(((track-stxes_2" " exp-specs_2)" "(let-values(((track-stxes_3)" @@ -68269,47 +68447,47 @@ static const char *startup_source = "(let-values(((for-meta3_1" " phase-level4_1" " spec5_1)" -"(let-values(((s_772)" +"(let-values(((s_771)" "(if(syntax?$1" " s_168)" "(syntax-e$1" " s_168)" " s_168)))" "(if(pair?" -" s_772)" +" s_771)" "(let-values(((for-meta6_0)" -"(let-values(((s_487)" +"(let-values(((s_486)" "(car" -" s_772)))" -" s_487))" +" s_771)))" +" s_486))" "((phase-level7_0" " spec8_0)" -"(let-values(((s_448)" +"(let-values(((s_447)" "(cdr" -" s_772)))" -"(let-values(((s_492)" +" s_771)))" +"(let-values(((s_491)" "(if(syntax?$1" -" s_448)" +" s_447)" "(syntax-e$1" -" s_448)" -" s_448)))" +" s_447)" +" s_447)))" "(if(pair?" -" s_492)" +" s_491)" "(let-values(((phase-level9_0)" -"(let-values(((s_773)" +"(let-values(((s_772)" "(car" -" s_492)))" -" s_773))" +" s_491)))" +" s_772))" "((spec10_0)" -"(let-values(((s_774)" +"(let-values(((s_773)" "(cdr" -" s_492)))" +" s_491)))" "(let-values(((s_81)" "(if(syntax?$1" -" s_774)" +" s_773)" "(syntax-e$1" -" s_774)" -" s_774)))" +" s_773)" +" s_773)))" "(let-values(((flat-s_46)" "(to-syntax-list.1" " s_81)))" @@ -68359,7 +68537,7 @@ static const char *startup_source = "(values))))" "(let-values(((track-stxes_5" " exp-specs_5)" -"(loop_116" +"(loop_117" " spec5_0" "(phase+" " p_87" @@ -68394,18 +68572,18 @@ static const char *startup_source = "(let-values(((ok?_65" " for-syntax13_0" " spec14_0)" -"(let-values(((s_450)" +"(let-values(((s_449)" " disarmed-spec_0))" "(let-values(((orig-s_64)" -" s_450))" +" s_449))" "(let-values(((for-syntax13_1" " spec14_1)" "(let-values(((s_24)" "(if(syntax?$1" -" s_450)" +" s_449)" "(syntax-e$1" -" s_450)" -" s_450)))" +" s_449)" +" s_449)))" "(if(pair?" " s_24)" "(let-values(((for-syntax15_0)" @@ -68414,18 +68592,18 @@ static const char *startup_source = " s_24)))" " s_305))" "((spec16_0)" -"(let-values(((s_156)" +"(let-values(((s_157)" "(cdr" " s_24)))" -"(let-values(((s_775)" +"(let-values(((s_774)" "(if(syntax?$1" -" s_156)" +" s_157)" "(syntax-e$1" -" s_156)" -" s_156)))" +" s_157)" +" s_157)))" "(let-values(((flat-s_47)" "(to-syntax-list.1" -" s_775)))" +" s_774)))" "(if(not" " flat-s_47)" "(let-values()" @@ -68448,7 +68626,7 @@ static const char *startup_source = " spec14_1))))))" "(let-values(((track-stxes_6" " exp-specs_6)" -"(loop_116" +"(loop_117" " spec14_0" "(phase+" " 1" @@ -68482,25 +68660,25 @@ static const char *startup_source = "(let-values(((ok?_66" " for-label19_0" " spec20_0)" -"(let-values(((s_500)" +"(let-values(((s_499)" " disarmed-spec_0))" "(let-values(((orig-s_65)" -" s_500))" +" s_499))" "(let-values(((for-label19_1" " spec20_1)" "(let-values(((s_308)" "(if(syntax?$1" -" s_500)" +" s_499)" "(syntax-e$1" -" s_500)" -" s_500)))" +" s_499)" +" s_499)))" "(if(pair?" " s_308)" "(let-values(((for-label21_0)" -"(let-values(((s_443)" +"(let-values(((s_442)" "(car" " s_308)))" -" s_443))" +" s_442))" "((spec22_0)" "(let-values(((s_27)" "(cdr" @@ -68536,7 +68714,7 @@ static const char *startup_source = " spec20_1))))))" "(let-values(((track-stxes_7" " exp-specs_7)" -"(loop_116" +"(loop_117" " spec20_0" " #f" " protected?_15" @@ -68585,29 +68763,29 @@ static const char *startup_source = " s_49))" "(let-values(((protect25_1" " p-spec26_1)" -"(let-values(((s_776)" +"(let-values(((s_775)" "(if(syntax?$1" " s_49)" "(syntax-e$1" " s_49)" " s_49)))" "(if(pair?" -" s_776)" +" s_775)" "(let-values(((protect27_0)" -"(let-values(((s_506)" +"(let-values(((s_505)" "(car" -" s_776)))" -" s_506))" +" s_775)))" +" s_505))" "((p-spec28_0)" -"(let-values(((s_507)" +"(let-values(((s_506)" "(cdr" -" s_776)))" +" s_775)))" "(let-values(((s_52)" "(if(syntax?$1" -" s_507)" +" s_506)" "(syntax-e$1" -" s_507)" -" s_507)))" +" s_506)" +" s_506)))" "(let-values(((flat-s_49)" "(to-syntax-list.1" " s_52)))" @@ -68633,7 +68811,7 @@ static const char *startup_source = " p-spec26_1))))))" "(let-values(((track-stxes_8" " exp-specs_8)" -"(loop_116" +"(loop_117" " p-spec26_0" " at-phase_13" " #t" @@ -68670,24 +68848,24 @@ static const char *startup_source = "(let-values(((rename31_1" " id:from32_1" " id:to33_1)" -"(let-values(((s_777)" +"(let-values(((s_776)" "(if(syntax?$1" " s_313)" "(syntax-e$1" " s_313)" " s_313)))" "(if(pair?" -" s_777)" +" s_776)" "(let-values(((rename34_0)" -"(let-values(((s_199)" +"(let-values(((s_200)" "(car" -" s_777)))" -" s_199))" +" s_776)))" +" s_200))" "((id:from35_0" " id:to36_0)" "(let-values(((s_59)" "(cdr" -" s_777)))" +" s_776)))" "(let-values(((s_404)" "(if(syntax?$1" " s_59)" @@ -68697,26 +68875,26 @@ static const char *startup_source = "(if(pair?" " s_404)" "(let-values(((id:from37_0)" -"(let-values(((s_200)" +"(let-values(((s_201)" "(car" " s_404)))" "(if(let-values(((or-part_214)" "(if(syntax?$1" -" s_200)" +" s_201)" "(symbol?" "(syntax-e$1" -" s_200))" +" s_201))" " #f)))" "(if or-part_214" " or-part_214" "(symbol?" -" s_200)))" -" s_200" +" s_201)))" +" s_201" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_67" -" s_200))))" +" s_201))))" "((id:to38_0)" "(let-values(((s_60)" "(cdr" @@ -68730,38 +68908,38 @@ static const char *startup_source = "(if(pair?" " s_61)" "(let-values(((id:to39_0)" -"(let-values(((s_202)" +"(let-values(((s_203)" "(car" " s_61)))" "(if(let-values(((or-part_395)" "(if(syntax?$1" -" s_202)" +" s_203)" "(symbol?" "(syntax-e$1" -" s_202))" +" s_203))" " #f)))" "(if or-part_395" " or-part_395" "(symbol?" -" s_202)))" -" s_202" +" s_203)))" +" s_203" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_67" -" s_202))))" +" s_203))))" "(()" -"(let-values(((s_778)" +"(let-values(((s_777)" "(cdr" " s_61)))" -"(let-values(((s_415)" +"(let-values(((s_414)" "(if(syntax?$1" -" s_778)" +" s_777)" "(syntax-e$1" -" s_778)" -" s_778)))" +" s_777)" +" s_777)))" "(if(null?" -" s_415)" +" s_414)" "(values)" "(raise-syntax-error$1" " #f" @@ -68823,31 +69001,31 @@ static const char *startup_source = " struct40_0" " id:struct41_0" " id:field42_0)" -"(let-values(((s_521)" +"(let-values(((s_520)" " disarmed-spec_0))" "(let-values(((orig-s_68)" -" s_521))" +" s_520))" "(let-values(((struct40_1" " id:struct41_1" " id:field42_1)" -"(let-values(((s_206)" +"(let-values(((s_207)" "(if(syntax?$1" -" s_521)" +" s_520)" "(syntax-e$1" -" s_521)" -" s_521)))" +" s_520)" +" s_520)))" "(if(pair?" -" s_206)" +" s_207)" "(let-values(((struct43_0)" -"(let-values(((s_208)" +"(let-values(((s_209)" "(car" -" s_206)))" -" s_208))" +" s_207)))" +" s_209))" "((id:struct44_0" " id:field45_0)" "(let-values(((s_38)" "(cdr" -" s_206)))" +" s_207)))" "(let-values(((s_317)" "(if(syntax?$1" " s_38)" @@ -68857,51 +69035,51 @@ static const char *startup_source = "(if(pair?" " s_317)" "(let-values(((id:struct46_0)" -"(let-values(((s_779)" +"(let-values(((s_778)" "(car" " s_317)))" "(if(let-values(((or-part_396)" "(if(syntax?$1" -" s_779)" +" s_778)" "(symbol?" "(syntax-e$1" -" s_779))" +" s_778))" " #f)))" "(if or-part_396" " or-part_396" "(symbol?" -" s_779)))" -" s_779" +" s_778)))" +" s_778" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_68" -" s_779))))" +" s_778))))" "((id:field47_0)" -"(let-values(((s_780)" +"(let-values(((s_779)" "(cdr" " s_317)))" -"(let-values(((s_432)" +"(let-values(((s_431)" "(if(syntax?$1" -" s_780)" +" s_779)" "(syntax-e$1" -" s_780)" -" s_780)))" +" s_779)" +" s_779)))" "(if(pair?" -" s_432)" +" s_431)" "(let-values(((id:field48_0)" -"(let-values(((s_522)" +"(let-values(((s_521)" "(car" -" s_432)))" -"(let-values(((s_781)" +" s_431)))" +"(let-values(((s_780)" "(if(syntax?$1" -" s_522)" +" s_521)" "(syntax-e$1" -" s_522)" -" s_522)))" +" s_521)" +" s_521)))" "(let-values(((flat-s_50)" "(to-syntax-list.1" -" s_781)))" +" s_780)))" "(if(not" " flat-s_50)" "(let-values()" @@ -68911,7 +69089,7 @@ static const char *startup_source = " orig-s_68))" "(let-values()" "(let-values(((id:field_0)" -"(let-values(((lst_404)" +"(let-values(((lst_405)" " flat-s_50))" "(begin" "(if(variable-reference-from-unsafe?" @@ -68919,18 +69097,18 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_404)))" -"((letrec-values(((for-loop_319)" +" lst_405)))" +"((letrec-values(((for-loop_318)" "(lambda(id:field_1" " lst_269)" "(begin" " 'for-loop" "(if(pair?" " lst_269)" -"(let-values(((s_782)" +"(let-values(((s_781)" "(unsafe-car" " lst_269))" -"((rest_240)" +"((rest_239)" "(unsafe-cdr" " lst_269)))" "(let-values(((id:field_2)" @@ -68942,21 +69120,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_397)" "(if(syntax?$1" -" s_782)" +" s_781)" "(symbol?" "(syntax-e$1" -" s_782))" +" s_781))" " #f)))" "(if or-part_397" " or-part_397" "(symbol?" -" s_782)))" -" s_782" +" s_781)))" +" s_781" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_68" -" s_782)))))" +" s_781)))))" "(cons" " id:field49_0" " id:field_3)))))" @@ -68964,28 +69142,28 @@ static const char *startup_source = " id:field_4)))))" "(if(not" " #f)" -"(for-loop_319" +"(for-loop_318" " id:field_2" -" rest_240)" +" rest_239)" " id:field_2)))" " id:field_1)))))" -" for-loop_319)" +" for-loop_318)" " null" -" lst_404)))))" +" lst_405)))))" "(reverse$1" " id:field_0))))))))" "(()" -"(let-values(((s_527)" +"(let-values(((s_526)" "(cdr" -" s_432)))" -"(let-values(((s_528)" +" s_431)))" +"(let-values(((s_527)" "(if(syntax?$1" -" s_527)" +" s_526)" "(syntax-e$1" -" s_527)" -" s_527)))" +" s_526)" +" s_526)))" "(if(null?" -" s_528)" +" s_527)" "(values)" "(raise-syntax-error$1" " #f" @@ -69057,27 +69235,27 @@ static const char *startup_source = "(if(pair?" " s_321)" "(let-values(((all-from52_0)" -"(let-values(((s_426)" +"(let-values(((s_425)" "(car" " s_321)))" -" s_426))" +" s_425))" "((mod-path53_0)" -"(let-values(((s_427)" +"(let-values(((s_426)" "(cdr" " s_321)))" "(let-values(((s_214)" "(if(syntax?$1" -" s_427)" +" s_426)" "(syntax-e$1" -" s_427)" -" s_427)))" +" s_426)" +" s_426)))" "(if(pair?" " s_214)" "(let-values(((mod-path54_0)" -"(let-values(((s_783)" +"(let-values(((s_782)" "(car" " s_214)))" -" s_783))" +" s_782))" "(()" "(let-values(((s_215)" "(cdr" @@ -69137,48 +69315,48 @@ static const char *startup_source = " all-from-except55_0" " mod-path56_0" " id57_1)" -"(let-values(((s_102)" +"(let-values(((s_103)" " disarmed-spec_0))" "(let-values(((orig-s_70)" -" s_102))" +" s_103))" "(let-values(((all-from-except55_1" " mod-path56_1" " id57_2)" -"(let-values(((s_104)" +"(let-values(((s_105)" "(if(syntax?$1" -" s_102)" +" s_103)" "(syntax-e$1" -" s_102)" -" s_102)))" +" s_103)" +" s_103)))" "(if(pair?" -" s_104)" +" s_105)" "(let-values(((all-from-except58_0)" "(let-values(((s_218)" "(car" -" s_104)))" +" s_105)))" " s_218))" "((mod-path59_0" " id60_0)" -"(let-values(((s_784)" +"(let-values(((s_783)" "(cdr" -" s_104)))" -"(let-values(((s_785)" +" s_105)))" +"(let-values(((s_784)" "(if(syntax?$1" -" s_784)" +" s_783)" "(syntax-e$1" -" s_784)" -" s_784)))" +" s_783)" +" s_783)))" "(if(pair?" -" s_785)" +" s_784)" "(let-values(((mod-path61_0)" "(let-values(((s_220)" "(car" -" s_785)))" +" s_784)))" " s_220))" "((id62_0)" "(let-values(((s_221)" "(cdr" -" s_785)))" +" s_784)))" "(let-values(((s_324)" "(if(syntax?$1" " s_221)" @@ -69197,7 +69375,7 @@ static const char *startup_source = " orig-s_70))" "(let-values()" "(let-values(((id_128)" -"(let-values(((lst_405)" +"(let-values(((lst_406)" " flat-s_51))" "(begin" "(if(variable-reference-from-unsafe?" @@ -69205,20 +69383,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_405)))" -"((letrec-values(((for-loop_320)" +" lst_406)))" +"((letrec-values(((for-loop_319)" "(lambda(id_129" -" lst_406)" +" lst_407)" "(begin" " 'for-loop" "(if(pair?" -" lst_406)" -"(let-values(((s_786)" +" lst_407)" +"(let-values(((s_785)" "(unsafe-car" -" lst_406))" -"((rest_241)" +" lst_407))" +"((rest_240)" "(unsafe-cdr" -" lst_406)))" +" lst_407)))" "(let-values(((id_130)" "(let-values(((id_131)" " id_129))" @@ -69228,21 +69406,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_398)" "(if(syntax?$1" -" s_786)" +" s_785)" "(symbol?" "(syntax-e$1" -" s_786))" +" s_785))" " #f)))" "(if or-part_398" " or-part_398" "(symbol?" -" s_786)))" -" s_786" +" s_785)))" +" s_785" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_70" -" s_786)))))" +" s_785)))))" "(cons" " id63_0" " id_131)))))" @@ -69250,14 +69428,14 @@ static const char *startup_source = " id_132)))))" "(if(not" " #f)" -"(for-loop_320" +"(for-loop_319" " id_130" -" rest_241)" +" rest_240)" " id_130)))" " id_129)))))" -" for-loop_320)" +" for-loop_319)" " null" -" lst_405)))))" +" lst_406)))))" "(reverse$1" " id_128)))))))))" "(values" @@ -69309,36 +69487,36 @@ static const char *startup_source = "(values))))" "(let-values(((ok?_22" " all-defined64_0)" -"(let-values(((s_113)" +"(let-values(((s_114)" " disarmed-spec_0))" "(let-values(((orig-s_71)" -" s_113))" +" s_114))" "(let-values(((all-defined64_1)" -"(let-values(((s_787)" +"(let-values(((s_786)" "(if(syntax?$1" -" s_113)" +" s_114)" "(syntax-e$1" -" s_113)" -" s_113)))" +" s_114)" +" s_114)))" "(if(pair?" -" s_787)" +" s_786)" "(let-values(((all-defined65_0)" -"(let-values(((s_438)" +"(let-values(((s_437)" "(car" -" s_787)))" -" s_438))" +" s_786)))" +" s_437))" "(()" "(let-values(((s_224)" "(cdr" -" s_787)))" -"(let-values(((s_428)" +" s_786)))" +"(let-values(((s_427)" "(if(syntax?$1" " s_224)" "(syntax-e$1" " s_224)" " s_224)))" "(if(null?" -" s_428)" +" s_427)" "(values)" "(raise-syntax-error$1" " #f" @@ -69383,32 +69561,32 @@ static const char *startup_source = " s_228))" "(let-values(((all-defined-except66_1" " id67_1)" -"(let-values(((s_788)" +"(let-values(((s_787)" "(if(syntax?$1" " s_228)" "(syntax-e$1" " s_228)" " s_228)))" "(if(pair?" -" s_788)" +" s_787)" "(let-values(((all-defined-except68_0)" -"(let-values(((s_789)" +"(let-values(((s_788)" "(car" -" s_788)))" -" s_789))" +" s_787)))" +" s_788))" "((id69_0)" -"(let-values(((s_790)" +"(let-values(((s_789)" "(cdr" -" s_788)))" -"(let-values(((s_463)" +" s_787)))" +"(let-values(((s_462)" "(if(syntax?$1" -" s_790)" +" s_789)" "(syntax-e$1" -" s_790)" -" s_790)))" +" s_789)" +" s_789)))" "(let-values(((flat-s_52)" "(to-syntax-list.1" -" s_463)))" +" s_462)))" "(if(not" " flat-s_52)" "(let-values()" @@ -69418,7 +69596,7 @@ static const char *startup_source = " orig-s_72))" "(let-values()" "(let-values(((id_133)" -"(let-values(((lst_204)" +"(let-values(((lst_39)" " flat-s_52))" "(begin" "(if(variable-reference-from-unsafe?" @@ -69426,20 +69604,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_204)))" +" lst_39)))" "((letrec-values(((for-loop_135)" "(lambda(id_134" -" lst_407)" +" lst_408)" "(begin" " 'for-loop" "(if(pair?" -" lst_407)" -"(let-values(((s_464)" +" lst_408)" +"(let-values(((s_463)" "(unsafe-car" -" lst_407))" -"((rest_242)" +" lst_408))" +"((rest_241)" "(unsafe-cdr" -" lst_407)))" +" lst_408)))" "(let-values(((id_135)" "(let-values(((id_136)" " id_134))" @@ -69449,21 +69627,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_288)" "(if(syntax?$1" -" s_464)" +" s_463)" "(symbol?" "(syntax-e$1" -" s_464))" +" s_463))" " #f)))" "(if or-part_288" " or-part_288" "(symbol?" -" s_464)))" -" s_464" +" s_463)))" +" s_463" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_72" -" s_464)))))" +" s_463)))))" "(cons" " id70_0" " id_136)))))" @@ -69473,12 +69651,12 @@ static const char *startup_source = " #f)" "(for-loop_135" " id_135" -" rest_242)" +" rest_241)" " id_135)))" " id_134)))))" " for-loop_135)" " null" -" lst_204)))))" +" lst_39)))))" "(reverse$1" " id_133)))))))))" "(values" @@ -69525,29 +69703,29 @@ static const char *startup_source = " s_232))" "(let-values(((prefix-all-defined71_1" " id:prefix72_1)" -"(let-values(((s_131)" +"(let-values(((s_132)" "(if(syntax?$1" " s_232)" "(syntax-e$1" " s_232)" " s_232)))" "(if(pair?" -" s_131)" +" s_132)" "(let-values(((prefix-all-defined73_0)" "(let-values(((s_330)" "(car" -" s_131)))" +" s_132)))" " s_330))" "((id:prefix74_0)" -"(let-values(((s_132)" +"(let-values(((s_133)" "(cdr" -" s_131)))" +" s_132)))" "(let-values(((s_236)" "(if(syntax?$1" -" s_132)" +" s_133)" "(syntax-e$1" -" s_132)" -" s_132)))" +" s_133)" +" s_133)))" "(if(pair?" " s_236)" "(let-values(((id:prefix75_0)" @@ -69572,15 +69750,15 @@ static const char *startup_source = " orig-s_73" " s_331))))" "(()" -"(let-values(((s_133)" +"(let-values(((s_134)" "(cdr" " s_236)))" "(let-values(((s_333)" "(if(syntax?$1" -" s_133)" +" s_134)" "(syntax-e$1" -" s_133)" -" s_133)))" +" s_134)" +" s_134)))" "(if(null?" " s_333)" "(values)" @@ -69634,65 +69812,65 @@ static const char *startup_source = " prefix-all-defined-except76_0" " id:prefix77_0" " id78_0)" -"(let-values(((s_791)" +"(let-values(((s_790)" " disarmed-spec_0))" "(let-values(((orig-s_74)" -" s_791))" +" s_790))" "(let-values(((prefix-all-defined-except76_1" " id:prefix77_1" " id78_1)" -"(let-values(((s_792)" +"(let-values(((s_791)" "(if(syntax?$1" -" s_791)" +" s_790)" "(syntax-e$1" -" s_791)" -" s_791)))" +" s_790)" +" s_790)))" "(if(pair?" -" s_792)" +" s_791)" "(let-values(((prefix-all-defined-except79_0)" -"(let-values(((s_534)" +"(let-values(((s_533)" "(car" -" s_792)))" -" s_534))" +" s_791)))" +" s_533))" "((id:prefix80_0" " id81_0)" -"(let-values(((s_793)" +"(let-values(((s_792)" "(cdr" -" s_792)))" +" s_791)))" "(let-values(((s_243)" "(if(syntax?$1" -" s_793)" +" s_792)" "(syntax-e$1" -" s_793)" -" s_793)))" +" s_792)" +" s_792)))" "(if(pair?" " s_243)" "(let-values(((id:prefix82_0)" -"(let-values(((s_535)" +"(let-values(((s_534)" "(car" " s_243)))" "(if(let-values(((or-part_345)" "(if(syntax?$1" -" s_535)" +" s_534)" "(symbol?" "(syntax-e$1" -" s_535))" +" s_534))" " #f)))" "(if or-part_345" " or-part_345" "(symbol?" -" s_535)))" -" s_535" +" s_534)))" +" s_534" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_74" -" s_535))))" +" s_534))))" "((id83_0)" "(let-values(((s_348)" "(cdr" " s_243)))" -"(let-values(((s_794)" +"(let-values(((s_793)" "(if(syntax?$1" " s_348)" "(syntax-e$1" @@ -69700,7 +69878,7 @@ static const char *startup_source = " s_348)))" "(let-values(((flat-s_53)" "(to-syntax-list.1" -" s_794)))" +" s_793)))" "(if(not" " flat-s_53)" "(let-values()" @@ -69710,7 +69888,7 @@ static const char *startup_source = " orig-s_74))" "(let-values()" "(let-values(((id_87)" -"(let-values(((lst_408)" +"(let-values(((lst_409)" " flat-s_53))" "(begin" "(if(variable-reference-from-unsafe?" @@ -69718,20 +69896,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_408)))" -"((letrec-values(((for-loop_321)" +" lst_409)))" +"((letrec-values(((for-loop_320)" "(lambda(id_36" -" lst_409)" +" lst_410)" "(begin" " 'for-loop" "(if(pair?" -" lst_409)" -"(let-values(((s_795)" +" lst_410)" +"(let-values(((s_794)" "(unsafe-car" -" lst_409))" -"((rest_243)" +" lst_410))" +"((rest_242)" "(unsafe-cdr" -" lst_409)))" +" lst_410)))" "(let-values(((id_138)" "(let-values(((id_139)" " id_36))" @@ -69741,21 +69919,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_399)" "(if(syntax?$1" -" s_795)" +" s_794)" "(symbol?" "(syntax-e$1" -" s_795))" +" s_794))" " #f)))" "(if or-part_399" " or-part_399" "(symbol?" -" s_795)))" -" s_795" +" s_794)))" +" s_794" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_74" -" s_795)))))" +" s_794)))))" "(cons" " id84_3" " id_139)))))" @@ -69763,14 +69941,14 @@ static const char *startup_source = " id_140)))))" "(if(not" " #f)" -"(for-loop_321" +"(for-loop_320" " id_138" -" rest_243)" +" rest_242)" " id_138)))" " id_36)))))" -" for-loop_321)" +" for-loop_320)" " null" -" lst_408)))))" +" lst_409)))))" "(reverse$1" " id_87)))))))))" "(values" @@ -69814,44 +69992,44 @@ static const char *startup_source = " expand85_0" " id86_0" " datum87_0)" -"(let-values(((s_796)" +"(let-values(((s_795)" " disarmed-spec_0))" "(let-values(((orig-s_75)" -" s_796))" +" s_795))" "(let-values(((expand85_1" " id86_1" " datum87_1)" -"(let-values(((s_797)" +"(let-values(((s_796)" "(if(syntax?$1" -" s_796)" +" s_795)" "(syntax-e$1" -" s_796)" -" s_796)))" +" s_795)" +" s_795)))" "(if(pair?" -" s_797)" +" s_796)" "(let-values(((expand88_0)" "(let-values(((s_367)" "(car" -" s_797)))" +" s_796)))" " s_367))" "((id89_2" " datum90_0)" "(let-values(((s_368)" "(cdr" -" s_797)))" -"(let-values(((s_798)" +" s_796)))" +"(let-values(((s_797)" "(if(syntax?$1" " s_368)" "(syntax-e$1" " s_368)" " s_368)))" "(if(pair?" -" s_798)" +" s_797)" "(let-values(((id91_0" " datum92_0)" "(let-values(((s_370)" "(car" -" s_798)))" +" s_797)))" "(let-values(((s_371)" "(if(syntax?$1" " s_370)" @@ -69882,10 +70060,10 @@ static const char *startup_source = " orig-s_75" " s_373))))" "((datum94_0)" -"(let-values(((s_545)" +"(let-values(((s_544)" "(cdr" " s_371)))" -" s_545)))" +" s_544)))" "(values" " id93_2" " datum94_0))" @@ -69894,17 +70072,17 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_75)))))" "(()" -"(let-values(((s_546)" +"(let-values(((s_545)" "(cdr" -" s_798)))" -"(let-values(((s_799)" +" s_797)))" +"(let-values(((s_798)" "(if(syntax?$1" -" s_546)" +" s_545)" "(syntax-e$1" -" s_546)" -" s_546)))" +" s_545)" +" s_545)))" "(if(null?" -" s_799)" +" s_798)" "(values)" "(raise-syntax-error$1" " #f" @@ -69933,18 +70111,18 @@ static const char *startup_source = "(let-values(((ok?_76" " expand95_0" " form96_0)" -"(let-values(((s_800)" +"(let-values(((s_799)" " disarmed-spec_0))" "(let-values(((orig-s_76)" -" s_800))" +" s_799))" "(let-values(((expand95_1" " form96_1)" "(let-values(((s_376)" "(if(syntax?$1" -" s_800)" +" s_799)" "(syntax-e$1" -" s_800)" -" s_800)))" +" s_799)" +" s_799)))" "(if(pair?" " s_376)" "(let-values(((expand97_0)" @@ -70007,10 +70185,10 @@ static const char *startup_source = "(let-values(((temp104_2)" " form96_0)" "((temp105_4)" -"(let-values(((v_270)" +"(let-values(((v_267)" " ctx_104))" "(let-values(((the-struct_99)" -" v_270))" +" v_267))" "(if(expand-context/outer?" " the-struct_99)" "(let-values(((def-ctx-scopes106_0)" @@ -70018,7 +70196,7 @@ static const char *startup_source = "((inner107_0)" "(let-values(((the-struct_100)" "(root-expand-context/outer-inner" -" v_270)))" +" v_267)))" "(if(expand-context/inner?" " the-struct_100)" "(let-values(((stops108_0)" @@ -70150,18 +70328,18 @@ static const char *startup_source = "(let-values(((ok?_77" " begin100_0" " spec101_0)" -"(let-values(((s_801)" +"(let-values(((s_800)" " exp-spec_0))" "(let-values(((orig-s_77)" -" s_801))" +" s_800))" "(let-values(((begin100_1" " spec101_1)" "(let-values(((s_266)" "(if(syntax?$1" -" s_801)" +" s_800)" "(syntax-e$1" -" s_801)" -" s_801)))" +" s_800)" +" s_800)))" "(if(pair?" " s_266)" "(let-values(((begin102_0)" @@ -70170,15 +70348,15 @@ static const char *startup_source = " s_266)))" " s_267))" "((spec103_0)" -"(let-values(((s_802)" +"(let-values(((s_801)" "(cdr" " s_266)))" "(let-values(((s_268)" "(if(syntax?$1" -" s_802)" +" s_801)" "(syntax-e$1" -" s_802)" -" s_802)))" +" s_801)" +" s_801)))" "(let-values(((flat-s_54)" "(to-syntax-list.1" " s_268)))" @@ -70204,7 +70382,7 @@ static const char *startup_source = " spec101_1))))))" "(let-values(((track-stxes_9" " exp-specs_9)" -"(loop_116" +"(loop_117" " spec101_0" " at-phase_13" " protected?_15" @@ -70226,23 +70404,23 @@ static const char *startup_source = " track-stxes_4" " exp-specs_4)))))" "(if(not #f)" -"(for-loop_95" +"(for-loop_96" " track-stxes_2" " exp-specs_2" -" rest_239)" +" rest_238)" "(values" " track-stxes_2" " exp-specs_2))))" "(values" " track-stxes_1" " exp-specs_1))))))" -" for-loop_95)" +" for-loop_96)" " null" " null" " lst_77)))))" "(values(reverse$1 track-stxes_0)(reverse$1 exp-specs_0)))))" "(values(apply append track-stxess_0)(apply append exp-specss_0)))))))" -" loop_116)" +" loop_117)" " specs_0" " phase_43" " #f" @@ -70251,10 +70429,10 @@ static const char *startup_source = "(parse-identifier!)" "(lambda(spec_1 orig-s_78 sym_105 at-phase_14 ns_126 rp_2 protected?_16)" "(begin" -"(let-values(((b_93)(resolve+shift/extra-inspector spec_1 at-phase_14 ns_126)))" +"(let-values(((b_94)(resolve+shift/extra-inspector spec_1 at-phase_14 ns_126)))" "(let-values((()" "(begin" -"(if b_93" +"(if b_94" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -70263,14 +70441,14 @@ static const char *startup_source = " orig-s_78" " spec_1)))" "(values))))" -"(let-values(((as-transformer?_7)(binding-for-transformer? b_93 spec_1 at-phase_14 ns_126)))" +"(let-values(((as-transformer?_7)(binding-for-transformer? b_94 spec_1 at-phase_14 ns_126)))" "(let-values(((immed-b_0)" "(let-values(((spec118_0) spec_1)((at-phase119_0) at-phase_14)((temp120_3) #t))" "(resolve+shift28.1 #f #f null temp120_3 #f spec118_0 at-phase119_0))))" "(let-values(((rp109_0) rp_2)" "((sym110_0) sym_105)" "((at-phase111_0) at-phase_14)" -"((b112_0) b_93)" +"((b112_0) b_94)" "((immed-b113_0) immed-b_0)" "((spec114_0) spec_1)" "((orig-s115_0) orig-s_78)" @@ -70305,17 +70483,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_107 id:struct_0))))))" "(begin" -" (let-values (((lst_410) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" +" (let-values (((lst_411) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_410)))" -"((letrec-values(((for-loop_322)" -"(lambda(lst_411)" +"(let-values()(check-list lst_411)))" +"((letrec-values(((for-loop_321)" +"(lambda(lst_412)" "(begin" " 'for-loop" -"(if(pair? lst_411)" -"(let-values(((fmt_3)(unsafe-car lst_411))((rest_244)(unsafe-cdr lst_411)))" +"(if(pair? lst_412)" +"(let-values(((fmt_3)(unsafe-car lst_412))((rest_243)(unsafe-cdr lst_412)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70333,22 +70511,22 @@ static const char *startup_source = " protected?_17)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_322 rest_244)(values))))" +"(if(not #f)(for-loop_321 rest_243)(values))))" "(values))))))" -" for-loop_322)" -" lst_410)))" +" for-loop_321)" +" lst_411)))" "(void)" -"(let-values(((lst_412) fields_0))" +"(let-values(((lst_413) fields_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_412)))" -"((letrec-values(((for-loop_323)" -"(lambda(lst_413)" +"(let-values()(check-list lst_413)))" +"((letrec-values(((for-loop_322)" +"(lambda(lst_414)" "(begin" " 'for-loop" -"(if(pair? lst_413)" -"(let-values(((field_0)(unsafe-car lst_413))((rest_245)(unsafe-cdr lst_413)))" +"(if(pair? lst_414)" +"(let-values(((field_0)(unsafe-car lst_414))((rest_244)(unsafe-cdr lst_414)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70380,10 +70558,10 @@ static const char *startup_source = " protected?_17)))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_323 rest_245)(values))))" +"(if(not #f)(for-loop_322 rest_244)(values))))" "(values))))))" -" for-loop_323)" -" lst_412)))" +" for-loop_322)" +" lst_413)))" "(void)))))))" "(define-values" "(parse-all-from)" @@ -70431,18 +70609,18 @@ static const char *startup_source = " (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_108)) sym_108)))))" "(let-values(((found_0)(make-hasheq)))" "(begin" -"(let-values(((lst_414) requireds_2))" +"(let-values(((lst_415) requireds_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_414)))" -"((letrec-values(((for-loop_324)" -"(lambda(lst_415)" +"(let-values()(check-list lst_415)))" +"((letrec-values(((for-loop_323)" +"(lambda(lst_416)" "(begin" " 'for-loop" -"(if(pair? lst_415)" -"(let-values(((i_187)(unsafe-car lst_415))" -"((rest_246)(unsafe-cdr lst_415)))" +"(if(pair? lst_416)" +"(let-values(((i_186)(unsafe-car lst_416))" +"((rest_245)(unsafe-cdr lst_416)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70450,10 +70628,10 @@ static const char *startup_source = "(begin" "(let-values()" "(let-values(((id_142)" -"(required-id i_187)))" +"(required-id i_186)))" "(let-values(((phase_140)" "(required-phase" -" i_187)))" +" i_186)))" "(if(let-values(((or-part_401)" "(if matching-stx_0" "(not" @@ -70472,7 +70650,7 @@ static const char *startup_source = " #f)))" "(if or-part_401" " or-part_401" -"(let-values(((lst_416)" +"(let-values(((lst_417)" " except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -70480,23 +70658,23 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_416)))" -"((letrec-values(((for-loop_325)" -"(lambda(result_129" -" lst_417)" +" lst_417)))" +"((letrec-values(((for-loop_324)" +"(lambda(result_127" +" lst_418)" "(begin" " 'for-loop" "(if(pair?" -" lst_417)" +" lst_418)" "(let-values(((except-id_0)" "(unsafe-car" -" lst_417))" -"((rest_247)" +" lst_418))" +"((rest_246)" "(unsafe-cdr" -" lst_417)))" -"(let-values(((result_130)" +" lst_418)))" +"(let-values(((result_128)" "(let-values()" -"(let-values(((result_131)" +"(let-values(((result_129)" "(let-values()" "(let-values()" "(if(free-identifier=?$1" @@ -70510,25 +70688,25 @@ static const char *startup_source = " #t)" " #f)))))" "(values" -" result_131)))))" +" result_129)))))" "(if(if(not" -"((lambda x_101" -" result_130)" +"((lambda x_100" +" result_128)" " except-id_0))" "(not" " #f)" " #f)" -"(for-loop_325" -" result_130" -" rest_247)" -" result_130)))" -" result_129)))))" -" for-loop_325)" +"(for-loop_324" +" result_128" +" rest_246)" +" result_128)))" +" result_127)))))" +" for-loop_324)" " #f" -" lst_416)))))" +" lst_417)))))" "(void)" "(let-values()" -"(let-values(((b_94)" +"(let-values(((b_95)" "(resolve+shift/extra-inspector" " id_142" " phase_140" @@ -70557,7 +70735,7 @@ static const char *startup_source = "((phase123_0)" " phase_140)" "((b124_0)" -" b_94)" +" b_95)" "((immed-b125_0)" " immed-b_1)" "((id126_1)" @@ -70568,7 +70746,7 @@ static const char *startup_source = " protected?_19)" "((temp129_2)" "(required-as-transformer?" -" i_187)))" +" i_186)))" "(add-provide!117.1" " protected?128_0" " temp129_2" @@ -70581,27 +70759,27 @@ static const char *startup_source = " orig-s127_0)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_324 rest_246)(values))))" +"(if(not #f)(for-loop_323 rest_245)(values))))" "(values))))))" -" for-loop_324)" -" lst_414)))" +" for-loop_323)" +" lst_415)))" "(void)" "(if(=(hash-count found_0)(length except-ids_1))" "(void)" "(let-values()" "(begin" -"(let-values(((lst_418) except-ids_1))" +"(let-values(((lst_419) except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_418)))" -"((letrec-values(((for-loop_326)" -"(lambda(lst_419)" +"(let-values()(check-list lst_419)))" +"((letrec-values(((for-loop_325)" +"(lambda(lst_420)" "(begin" " 'for-loop" -"(if(pair? lst_419)" -"(let-values(((except-id_1)(unsafe-car lst_419))" -"((rest_248)(unsafe-cdr lst_419)))" +"(if(pair? lst_420)" +"(let-values(((except-id_1)(unsafe-car lst_420))" +"((rest_247)(unsafe-cdr lst_420)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70615,7 +70793,7 @@ static const char *startup_source = " #f)))" "(if or-part_402" " or-part_402" -"(let-values(((lst_420)" +"(let-values(((lst_421)" " requireds_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -70623,53 +70801,53 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_420)))" -"((letrec-values(((for-loop_327)" -"(lambda(result_132" -" lst_421)" +" lst_421)))" +"((letrec-values(((for-loop_326)" +"(lambda(result_130" +" lst_422)" "(begin" " 'for-loop" "(if(pair?" -" lst_421)" -"(let-values(((i_188)" +" lst_422)" +"(let-values(((i_187)" "(unsafe-car" -" lst_421))" -"((rest_249)" +" lst_422))" +"((rest_248)" "(unsafe-cdr" -" lst_421)))" -"(let-values(((result_133)" +" lst_422)))" +"(let-values(((result_131)" "(let-values()" -"(let-values(((result_134)" +"(let-values(((result_132)" "(let-values()" "(let-values()" "(let-values(((id_143)" "(required-id" -" i_188)))" +" i_187)))" "(let-values(((phase_141)" "(required-phase" -" i_188)))" +" i_187)))" "(free-identifier=?$1" " id_143" " except-id_1" " phase_141" " phase_141)))))))" "(values" -" result_134)))))" +" result_132)))))" "(if(if(not" -"((lambda x_102" -" result_133)" -" i_188))" +"((lambda x_101" +" result_131)" +" i_187))" "(not" " #f)" " #f)" -"(for-loop_327" -" result_133" -" rest_249)" -" result_133)))" -" result_132)))))" -" for-loop_327)" +"(for-loop_326" +" result_131" +" rest_248)" +" result_131)))" +" result_130)))))" +" for-loop_326)" " #f" -" lst_420)))))" +" lst_421)))))" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -70683,10 +70861,10 @@ static const char *startup_source = " except-id_1))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_326 rest_248)(values))))" +"(if(not #f)(for-loop_325 rest_247)(values))))" "(values))))))" -" for-loop_326)" -" lst_418)))" +" for-loop_325)" +" lst_419)))" "(void)))))))))))))" "(define-values" "(check-cross-phase-persistent-form)" @@ -70697,12 +70875,12 @@ static const char *startup_source = "(begin" " 'check-body" "(begin" -"(let-values(((lst_422) bodys_14))" +"(let-values(((lst_423) bodys_14))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_422)))" -"((letrec-values(((for-loop_328)" +"(let-values()(check-list lst_423)))" +"((letrec-values(((for-loop_327)" "(lambda(lst_85)" "(begin" " 'for-loop" @@ -70750,10 +70928,10 @@ static const char *startup_source = " p_46))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_328 rest_40)(values))))" +"(if(not #f)(for-loop_327 rest_40)(values))))" "(values))))))" -" for-loop_328)" -" lst_422)))" +" for-loop_327)" +" lst_423)))" "(void)))))" "((check-expr_0)" "(lambda(e_91 num-results_0 enclosing_15)" @@ -70779,13 +70957,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_78)))" -"((letrec-values(((for-loop_329)" +"((letrec-values(((for-loop_328)" "(lambda(lst_86)" "(begin" " 'for-loop" "(if(pair? lst_86)" "(let-values(((rand_0)(unsafe-car lst_86))" -"((rest_250)(unsafe-cdr lst_86)))" +"((rest_249)(unsafe-cdr lst_86)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70799,10 +70977,10 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_329 rest_250)" +"(for-loop_328 rest_249)" "(values))))" "(values))))))" -" for-loop_329)" +" for-loop_328)" " lst_78)))" "(void)" "(let-values(((tmp_64)(cross-phase-primitive-name(parsed-app-rator e_91))))" @@ -70843,13 +71021,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_266)))" -"((letrec-values(((for-loop_240)" -"(lambda(lst_423)" +"((letrec-values(((for-loop_239)" +"(lambda(lst_424)" "(begin" " 'for-loop" -"(if(pair? lst_423)" -"(let-values(((clause_5)(unsafe-car lst_423))" -"((rest_251)(unsafe-cdr lst_423)))" +"(if(pair? lst_424)" +"(let-values(((clause_5)(unsafe-car lst_424))" +"((rest_250)(unsafe-cdr lst_424)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70860,9 +71038,9 @@ static const char *startup_source = "(cadr clause_5)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_240 rest_251)(values))))" +"(if(not #f)(for-loop_239 rest_250)(values))))" "(values))))))" -" for-loop_240)" +" for-loop_239)" " lst_266)))" "(void)))" "(if(parsed-app? e_92)" @@ -70874,13 +71052,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_217)))" -"((letrec-values(((for-loop_105)" -"(lambda(lst_159)" +"((letrec-values(((for-loop_106)" +"(lambda(lst_160)" "(begin" " 'for-loop" -"(if(pair? lst_159)" -"(let-values(((e_93)(unsafe-car lst_159))" -"((rest_83)(unsafe-cdr lst_159)))" +"(if(pair? lst_160)" +"(let-values(((e_93)(unsafe-car lst_160))" +"((rest_83)(unsafe-cdr lst_160)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70891,9 +71069,9 @@ static const char *startup_source = " e_93))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_105 rest_83)(values))))" +"(if(not #f)(for-loop_106 rest_83)(values))))" "(values))))))" -" for-loop_105)" +" for-loop_106)" " lst_217)))" "(void)))" "(if(parsed-if? e_92)" @@ -70944,7 +71122,7 @@ static const char *startup_source = "(if(pair? lst_90)" "(let-values(((clause_6)" "(unsafe-car lst_90))" -"((rest_143)" +"((rest_142)" "(unsafe-cdr lst_90)))" "(let-values((()" "(let-values()" @@ -70958,7 +71136,7 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_190 rest_143)" +"(for-loop_190 rest_142)" "(values))))" "(values))))))" " for-loop_190)" @@ -70979,13 +71157,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_81)))" -"((letrec-values(((for-loop_330)" +"((letrec-values(((for-loop_329)" "(lambda(lst_58)" "(begin" " 'for-loop" "(if(pair? lst_58)" "(let-values(((e_82)(unsafe-car lst_58))" -"((rest_196)(unsafe-cdr lst_58)))" +"((rest_195)(unsafe-cdr lst_58)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70996,9 +71174,9 @@ static const char *startup_source = " e_82))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_330 rest_196)(values))))" +"(if(not #f)(for-loop_329 rest_195)(values))))" "(values))))))" -" for-loop_330)" +" for-loop_329)" " lst_81)))" "(void))))))" "(check-body_0 bodys_13)))))" @@ -71034,10 +71212,10 @@ static const char *startup_source = "(begin" "(if(parsed-id? id_144)" "(let-values()" -"(let-values(((b_86)(parsed-id-binding id_144)))" -"(if(module-binding? b_86)" -"(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_86)))" -"(module-binding-sym b_86)" +"(let-values(((b_87)(parsed-id-binding id_144)))" +"(if(module-binding? b_87)" +"(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_87)))" +"(module-binding-sym b_87)" " #f)" " #f)))" "(let-values() #f)))))" @@ -71075,23 +71253,23 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%module-begin" -"(lambda(s_90 ctx_108)" +"(lambda(s_91 ctx_108)" "(begin" "(let-values(((obs_126)(expand-context-observer ctx_108)))" "(if obs_126(let-values()(let-values()(call-expand-observe obs_126 'prim-module-begin)))(void)))" "(if(eq?(expand-context-context ctx_108) 'module-begin)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a module-definition context\" s_90)))" +" (let-values () (raise-syntax-error$1 #f \"not in a module-definition context\" s_91)))" "(if(expand-context-module-begin-k ctx_108)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_90)))" +" (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_91)))" "((expand-context-module-begin-k ctx_108)" -" s_90" -"(let-values(((v_271) ctx_108))" -"(let-values(((the-struct_101) v_271))" +" s_91" +"(let-values(((v_268) ctx_108))" +"(let-values(((the-struct_101) v_268))" "(if(expand-context/outer? the-struct_101)" "(let-values(((inner226_0)" -"(let-values(((the-struct_102)(root-expand-context/outer-inner v_271)))" +"(let-values(((the-struct_102)(root-expand-context/outer-inner v_268)))" "(if(expand-context/inner? the-struct_102)" "(let-values(((module-begin-k227_0) #f))" "(expand-context/inner2.1" @@ -71142,11 +71320,11 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%declare" -"(lambda(s_803 ctx_109)" +"(lambda(s_802 ctx_109)" "(begin" "(let-values(((obs_127)(expand-context-observer ctx_109)))" "(if obs_127(let-values()(let-values()(call-expand-observe obs_127 'prim-declare)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_803)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_802)))))" "(define-values" "(expand-module18.1)" "(lambda(always-produce-compiled?1_0" @@ -71161,7 +71339,7 @@ static const char *startup_source = " enclosing-self17_0)" "(begin" " 'expand-module18" -"(let-values(((s_804) s15_2))" +"(let-values(((s_803) s15_2))" "(let-values(((init-ctx_0) init-ctx16_0))" "(let-values(((enclosing-self_1) enclosing-self17_0))" "(let-values(((always-produce-compiled?_0) always-produce-compiled?1_0))" @@ -71183,7 +71361,7 @@ static const char *startup_source = "(let-values()(call-expand-observe obs_128 'prim-module)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_24)(syntax-disarm$1 s_804)))" +"(let-values(((disarmed-s_24)(syntax-disarm$1 s_803)))" "(let-values(((ok?_78 module228_0 id:module-name229_0 initial-require230_0 body231_0)" "(let-values(((s_51) disarmed-s_24))" "(let-values(((orig-s_82) s_51))" @@ -71191,27 +71369,27 @@ static const char *startup_source = " id:module-name229_1" " initial-require230_1" " body231_1)" -"(let-values(((s_507)" +"(let-values(((s_506)" "(if(syntax?$1 s_51)" "(syntax-e$1 s_51)" " s_51)))" -"(if(pair? s_507)" +"(if(pair? s_506)" "(let-values(((module232_0)" -"(let-values(((s_54)(car s_507)))" +"(let-values(((s_54)(car s_506)))" " s_54))" "((id:module-name233_0" " initial-require234_0" " body235_0)" -"(let-values(((s_310)(cdr s_507)))" -"(let-values(((s_92)" +"(let-values(((s_310)(cdr s_506)))" +"(let-values(((s_93)" "(if(syntax?$1 s_310)" "(syntax-e$1 s_310)" " s_310)))" -"(if(pair? s_92)" +"(if(pair? s_93)" "(let-values(((id:module-name236_0)" "(let-values(((s_312)" "(car" -" s_92)))" +" s_93)))" "(if(let-values(((or-part_48)" "(if(syntax?$1" " s_312)" @@ -71233,25 +71411,25 @@ static const char *startup_source = " body238_0)" "(let-values(((s_55)" "(cdr" -" s_92)))" -"(let-values(((s_453)" +" s_93)))" +"(let-values(((s_452)" "(if(syntax?$1" " s_55)" "(syntax-e$1" " s_55)" " s_55)))" "(if(pair?" -" s_453)" +" s_452)" "(let-values(((initial-require239_0)" "(let-values(((s_56)" "(car" -" s_453)))" +" s_452)))" " s_56))" "((body240_0)" "(let-values(((s_33)" "(cdr" -" s_453)))" -"(let-values(((s_509)" +" s_452)))" +"(let-values(((s_508)" "(if(syntax?$1" " s_33)" "(syntax-e$1" @@ -71259,7 +71437,7 @@ static const char *startup_source = " s_33)))" "(let-values(((flat-s_55)" "(to-syntax-list.1" -" s_509)))" +" s_508)))" "(if(not" " flat-s_55)" "(let-values()" @@ -71298,7 +71476,7 @@ static const char *startup_source = " body231_1))))))" "(let-values(((rebuild-s_14)" "(let-values(((init-ctx253_0) init-ctx_0)" -"((s254_0) s_804)" +"((s254_0) s_803)" "((temp255_0) #t)" "((temp256_0) #t))" "(keep-as-needed119.1 #f temp256_0 temp255_0 init-ctx253_0 s254_0))))" @@ -71314,7 +71492,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"not a module path\"" -" s_804" +" s_803" " initial-require230_0)))" "(values))))" "(let-values(((phase_142) 0))" @@ -71425,12 +71603,12 @@ static const char *startup_source = " unsafe-undefined" " temp266_0))))" "(let-values(((ctx_110)" -"(let-values(((v_264)" +"(let-values(((v_261)" "(copy-root-expand-context" " init-ctx_0" " root-ctx_6)))" "(let-values(((the-struct_92)" -" v_264))" +" v_261))" "(if(expand-context/outer?" " the-struct_92)" "(let-values(((post-expansion-scope-action267_0)" @@ -71438,7 +71616,7 @@ static const char *startup_source = "((inner268_0)" "(let-values(((the-struct_53)" "(root-expand-context/outer-inner" -" v_264)))" +" v_261)))" "(if(expand-context/inner?" " the-struct_53)" "(let-values(((allow-unbound?269_0)" @@ -71544,69 +71722,69 @@ static const char *startup_source = " _274_0" " _275_0" " body276_0)" -"(let-values(((s_524)" +"(let-values(((s_523)" " scoped-s_0))" "(let-values(((orig-s_83)" -" s_524))" +" s_523))" "(let-values(((_273_1" " _274_1" " _275_1" " body276_1)" -"(let-values(((s_209)" +"(let-values(((s_210)" "(if(syntax?$1" -" s_524)" +" s_523)" "(syntax-e$1" -" s_524)" -" s_524)))" +" s_523)" +" s_523)))" "(if(pair?" -" s_209)" +" s_210)" "(let-values(((_277_2)" -"(let-values(((s_527)" +"(let-values(((s_526)" "(car" -" s_209)))" -" s_527))" +" s_210)))" +" s_526))" "((_278_0" " _279_1" " body280_0)" -"(let-values(((s_528)" +"(let-values(((s_527)" "(cdr" -" s_209)))" -"(let-values(((s_96)" +" s_210)))" +"(let-values(((s_97)" "(if(syntax?$1" -" s_528)" +" s_527)" "(syntax-e$1" -" s_528)" -" s_528)))" +" s_527)" +" s_527)))" "(if(pair?" -" s_96)" +" s_97)" "(let-values(((_281_0)" -"(let-values(((s_460)" +"(let-values(((s_459)" "(car" -" s_96)))" -" s_460))" +" s_97)))" +" s_459))" "((_282_1" " body283_0)" -"(let-values(((s_71)" +"(let-values(((s_804)" "(cdr" -" s_96)))" +" s_97)))" "(let-values(((s_805)" "(if(syntax?$1" -" s_71)" +" s_804)" "(syntax-e$1" -" s_71)" -" s_71)))" +" s_804)" +" s_804)))" "(if(pair?" " s_805)" "(let-values(((_284_0)" -"(let-values(((s_159)" +"(let-values(((s_160)" "(car" " s_805)))" -" s_159))" +" s_160))" "((body285_0)" "(let-values(((s_39)" "(cdr" " s_805)))" -"(let-values(((s_97)" +"(let-values(((s_98)" "(if(syntax?$1" " s_39)" "(syntax-e$1" @@ -71614,7 +71792,7 @@ static const char *startup_source = " s_39)))" "(let-values(((flat-s_56)" "(to-syntax-list.1" -" s_97)))" +" s_98)))" "(if(not" " flat-s_56)" "(let-values()" @@ -71799,7 +71977,7 @@ static const char *startup_source = "(if(expand-context/inner?" " the-struct_103)" "(let-values(((module-begin-k307_0)" -"(lambda(s_437" +"(lambda(s_436" " ctx_112)" "(begin" " 'module-begin-k307" @@ -71841,7 +72019,7 @@ static const char *startup_source = " defined-syms315_0)))" "(lambda()" "(module-begin-k_1" -" s_437" +" s_436" " ctx_112))" "(lambda()" "(begin" @@ -71967,35 +72145,35 @@ static const char *startup_source = "(let-values(((ok?_80" " #%module-begin301_0" " body302_0)" -"(let-values(((s_428)" +"(let-values(((s_427)" " disarmed-mb-s_0))" "(let-values(((orig-s_84)" -" s_428))" +" s_427))" "(let-values(((#%module-begin301_1" " body302_1)" -"(let-values(((s_118)" +"(let-values(((s_119)" "(if(syntax?$1" -" s_428)" +" s_427)" "(syntax-e$1" -" s_428)" -" s_428)))" +" s_427)" +" s_427)))" "(if(pair?" -" s_118)" +" s_119)" "(let-values(((#%module-begin303_0)" "(let-values(((s_806)" "(car" -" s_118)))" +" s_119)))" " s_806))" "((body304_0)" -"(let-values(((s_120)" +"(let-values(((s_121)" "(cdr" -" s_118)))" +" s_119)))" "(let-values(((s_226)" "(if(syntax?$1" -" s_120)" +" s_121)" "(syntax-e$1" -" s_120)" -" s_120)))" +" s_121)" +" s_121)))" "(let-values(((flat-s_57)" "(to-syntax-list.1" " s_226)))" @@ -72053,10 +72231,10 @@ static const char *startup_source = "(expand-context-to-parsed?" " ctx_111)))" "(let-values(((partial-body-ctx_0)" -"(let-values(((v_272)" +"(let-values(((v_269)" " ctx_111))" "(let-values(((the-struct_104)" -" v_272))" +" v_269))" "(if(expand-context/outer?" " the-struct_104)" "(let-values(((context328_0)" @@ -72068,7 +72246,7 @@ static const char *startup_source = "((inner331_0)" "(let-values(((the-struct_105)" "(root-expand-context/outer-inner" -" v_272)))" +" v_269)))" "(if(expand-context/inner?" " the-struct_105)" "(let-values(((phase332_0)" @@ -72272,12 +72450,12 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_6)" -"(let-values(((v_266)" +"(let-values(((v_263)" "(accumulate-def-ctx-scopes" " partial-body-ctx_0" " def-ctx-scopes_8)))" "(let-values(((the-struct_94)" -" v_266))" +" v_263))" "(if(expand-context/outer?" " the-struct_94)" "(let-values(((def-ctx-scopes365_0)" @@ -72287,7 +72465,7 @@ static const char *startup_source = "((inner367_0)" "(let-values(((the-struct_106)" "(root-expand-context/outer-inner" -" v_266)))" +" v_263)))" "(if(expand-context/inner?" " the-struct_106)" "(let-values(((stops368_0)" @@ -72510,10 +72688,10 @@ static const char *startup_source = " temp381_0" " m-ns380_0))))" "(let-values(((submod-ctx_0)" -"(let-values(((v_273)" +"(let-values(((v_270)" " ctx_111))" "(let-values(((the-struct_107)" -" v_273))" +" v_270))" "(if(expand-context/outer?" " the-struct_107)" "(let-values(((frame-id382_0)" @@ -72523,7 +72701,7 @@ static const char *startup_source = "((inner384_0)" "(let-values(((the-struct_108)" "(root-expand-context/outer-inner" -" v_273)))" +" v_270)))" "(if(expand-context/inner?" " the-struct_108)" "(let-values(((namespace385_0)" @@ -72731,10 +72909,10 @@ static const char *startup_source = "(let-values()" " mb-result-s_0)))))))))))))))))))))))))))))))))" "(let-values(((mb-ctx_0)" -"(let-values(((v_274)" +"(let-values(((v_271)" " ctx_110))" "(let-values(((the-struct_24)" -" v_274))" +" v_271))" "(if(expand-context/outer?" " the-struct_24)" "(let-values(((context411_0)" @@ -72742,7 +72920,7 @@ static const char *startup_source = "((inner412_0)" "(let-values(((the-struct_109)" "(root-expand-context/outer-inner" -" v_274)))" +" v_271)))" "(if(expand-context/inner?" " the-struct_109)" "(let-values(((module-begin-k413_0)" @@ -72865,7 +73043,7 @@ static const char *startup_source = "((phase425_0)" " phase_142)" "((s426_0)" -" s_804))" +" s_803))" "(ensure-module-begin36.1" " mb-ctx423_0" " mb-def-ctx-scopes424_0" @@ -72880,19 +73058,19 @@ static const char *startup_source = "(let-values(((mb427_0)" " mb_0)" "((temp428_1)" -"(let-values(((v_275)" +"(let-values(((v_272)" "(accumulate-def-ctx-scopes" " mb-ctx_0" " mb-def-ctx-scopes_0)))" "(let-values(((the-struct_110)" -" v_275))" +" v_272))" "(if(expand-context/outer?" " the-struct_110)" "(let-values(((def-ctx-scopes429_0)" " #f)" "((inner430_0)" "(root-expand-context/outer-inner" -" v_275)))" +" v_272)))" "(expand-context/outer1.1" " inner430_0" "(root-expand-context/outer-post-expansion-scope" @@ -72979,7 +73157,7 @@ static const char *startup_source = "(begin" "(imitate-generic-module-path-index!" " self_32)" -"(let-values(((lst_424)" +"(let-values(((lst_425)" "(unbox" " mpis-to-reset_0)))" "(begin" @@ -72988,19 +73166,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_424)))" -"((letrec-values(((for-loop_331)" -"(lambda(lst_425)" +" lst_425)))" +"((letrec-values(((for-loop_330)" +"(lambda(lst_426)" "(begin" " 'for-loop" "(if(pair?" -" lst_425)" +" lst_426)" "(let-values(((mpi_56)" "(unsafe-car" -" lst_425))" -"((rest_252)" +" lst_426))" +"((rest_251)" "(unsafe-cdr" -" lst_425)))" +" lst_426)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -73013,12 +73191,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_331" -" rest_252)" +"(for-loop_330" +" rest_251)" "(values))))" "(values))))))" -" for-loop_331)" -" lst_424)))" +" for-loop_330)" +" lst_425)))" "(void)" "(let-values(((result-s_15)" "(let-values(((rebuild-s431_0)" @@ -73104,13 +73282,13 @@ static const char *startup_source = "(lambda()" "(begin" " 'make-mb-ctx" -"(let-values(((v_276) ctx_113))" -"(let-values(((the-struct_111) v_276))" +"(let-values(((v_273) ctx_113))" +"(let-values(((the-struct_111) v_273))" "(if(expand-context/outer? the-struct_111)" "(let-values(((context436_0) 'module-begin)" "((only-immediate?437_0) #t)" "((def-ctx-scopes438_0) def-ctx-scopes_9)" -"((inner439_0)(root-expand-context/outer-inner v_276)))" +"((inner439_0)(root-expand-context/outer-inner v_273)))" "(expand-context/outer1.1" " inner439_0" "(root-expand-context/outer-post-expansion-scope the-struct_111)" @@ -73343,7 +73521,7 @@ static const char *startup_source = "(let-values()" "(begin" "(namespace-visit-available-modules! m-ns_20 phase_49)" -"((letrec-values(((loop_124)" +"((letrec-values(((loop_125)" "(lambda(tail?_53 bodys_21)" "(begin" " 'loop" @@ -73389,7 +73567,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" @@ -73540,7 +73718,7 @@ static const char *startup_source = " 'splice" " spliced-bodys_0)))" "(void)))" -"(loop_124" +"(loop_125" " tail?_53" " spliced-bodys_0))))))" "(if(equal?" @@ -73696,19 +73874,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_252)))" -"((letrec-values(((for-loop_332)" +"((letrec-values(((for-loop_331)" "(lambda(fold-var_373" -" lst_426)" +" lst_427)" "(begin" " 'for-loop" "(if(pair?" -" lst_426)" +" lst_427)" "(let-values(((nested-body_0)" "(unsafe-car" -" lst_426))" -"((rest_253)" +" lst_427))" +"((rest_252)" "(unsafe-cdr" -" lst_426)))" +" lst_427)))" "(let-values(((fold-var_374)" "(let-values(((fold-var_375)" " fold-var_373))" @@ -73723,12 +73901,12 @@ static const char *startup_source = " fold-var_355)))))" "(if(not" " #f)" -"(for-loop_332" +"(for-loop_331" " fold-var_374" -" rest_253)" +" rest_252)" " fold-var_374)))" " fold-var_373)))))" -" for-loop_332)" +" for-loop_331)" " null" " lst_252))))))" "(datum->syntax$1" @@ -73742,7 +73920,7 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax3.1" " exp-body_7" " nested-bodys_1)" -"(loop_124" +"(loop_125" " tail?_53" " rest-bodys_1))))))))))" "(if(equal?" @@ -73835,19 +74013,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_70)))" -"((letrec-values(((for-loop_333)" +"((letrec-values(((for-loop_332)" "(lambda(id_146" -" lst_427)" +" lst_428)" "(begin" " 'for-loop" "(if(pair?" -" lst_427)" +" lst_428)" "(let-values(((s_826)" "(unsafe-car" -" lst_427))" -"((rest_254)" +" lst_428))" +"((rest_253)" "(unsafe-cdr" -" lst_427)))" +" lst_428)))" "(let-values(((id_147)" "(let-values(((id_148)" " id_146))" @@ -73879,12 +74057,12 @@ static const char *startup_source = " id_149)))))" "(if(not" " #f)" -"(for-loop_333" +"(for-loop_332" " id_147" -" rest_254)" +" rest_253)" " id_147)))" " id_146)))))" -" for-loop_333)" +" for-loop_332)" " null" " lst_70)))))" "(reverse$1" @@ -73984,7 +74162,7 @@ static const char *startup_source = " phase489_0" " requires+provides490_0))" "(values))))" -"(let-values(((syms_22)" +"(let-values(((syms_23)" "(let-values(((ids496_0)" " ids_45)" "((defined-syms497_0)" @@ -74013,27 +74191,27 @@ static const char *startup_source = " phase499_0" " all-scopes-stx500_0))))" "(begin" -"(let-values(((lst_428)" -" syms_22))" +"(let-values(((lst_429)" +" syms_23))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_428)))" -"((letrec-values(((for-loop_334)" -"(lambda(lst_429)" +" lst_429)))" +"((letrec-values(((for-loop_333)" +"(lambda(lst_430)" "(begin" " 'for-loop" "(if(pair?" -" lst_429)" +" lst_430)" "(let-values(((sym_109)" "(unsafe-car" -" lst_429))" -"((rest_255)" +" lst_430))" +"((rest_254)" "(unsafe-cdr" -" lst_429)))" +" lst_430)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74048,17 +74226,17 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_334" -" rest_255)" +"(for-loop_333" +" rest_254)" "(values))))" "(values))))))" -" for-loop_334)" -" lst_428)))" +" for-loop_333)" +" lst_429)))" "(void)" "(let-values(((requires+provides492_0)" " requires+provides_7)" "((syms493_0)" -" syms_22)" +" syms_23)" "((phase494_0)" " phase_49))" "(add-defined-syms!103.1" @@ -74086,10 +74264,10 @@ static const char *startup_source = "(cons" "(semi-parsed-define-values2.1" " exp-body_7" -" syms_22" +" syms_23" " ids_45" " rhs478_0)" -"(loop_124" +"(loop_125" " tail?_53" " rest-bodys_1))))))))))" "(if(equal?" @@ -74194,7 +74372,7 @@ static const char *startup_source = " orig-s_88))" "(let-values()" "(let-values(((id_150)" -"(let-values(((lst_430)" +"(let-values(((lst_431)" " flat-s_61))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74202,20 +74380,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_430)))" -"((letrec-values(((for-loop_335)" +" lst_431)))" +"((letrec-values(((for-loop_334)" "(lambda(id_151" -" lst_431)" +" lst_432)" "(begin" " 'for-loop" "(if(pair?" -" lst_431)" -"(let-values(((s_568)" +" lst_432)" +"(let-values(((s_567)" "(unsafe-car" -" lst_431))" -"((rest_256)" +" lst_432))" +"((rest_255)" "(unsafe-cdr" -" lst_431)))" +" lst_432)))" "(let-values(((id_152)" "(let-values(((id_153)" " id_151))" @@ -74225,21 +74403,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_406)" "(if(syntax?$1" -" s_568)" +" s_567)" "(symbol?" "(syntax-e$1" -" s_568))" +" s_567))" " #f)))" "(if or-part_406" " or-part_406" "(symbol?" -" s_568)))" -" s_568" +" s_567)))" +" s_567" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_88" -" s_568)))))" +" s_567)))))" "(cons" " id524_0" " id_153)))))" @@ -74247,14 +74425,14 @@ static const char *startup_source = " id_154)))))" "(if(not" " #f)" -"(for-loop_335" +"(for-loop_334" " id_152" -" rest_256)" +" rest_255)" " id_152)))" " id_151)))))" -" for-loop_335)" +" for-loop_334)" " null" -" lst_430)))))" +" lst_431)))))" "(reverse$1" " id_150))))))))" "((rhs511_0)" @@ -74352,7 +74530,7 @@ static const char *startup_source = " phase517_0" " requires+provides518_0))" "(values))))" -"(let-values(((syms_23)" +"(let-values(((syms_24)" "(let-values(((ids525_0)" " ids_46)" "((defined-syms526_0)" @@ -74387,7 +74565,7 @@ static const char *startup_source = "(let-values(((requires+provides520_0)" " requires+provides_7)" "((syms521_0)" -" syms_23)" +" syms_24)" "((phase522_0)" " phase_49)" "((temp523_0)" @@ -74408,10 +74586,10 @@ static const char *startup_source = "((ids536_0)" " ids_46)" "((temp537_0)" -"(let-values(((v_277)" +"(let-values(((v_274)" " partial-body-ctx_1))" "(let-values(((the-struct_112)" -" v_277))" +" v_274))" "(if(expand-context/outer?" " the-struct_112)" "(let-values(((need-eventually-defined539_0)" @@ -74419,7 +74597,7 @@ static const char *startup_source = "((inner540_0)" "(let-values(((the-struct_113)" "(root-expand-context/outer-inner" -" v_277)))" +" v_274)))" "(if(expand-context/inner?" " the-struct_113)" "(let-values(((lifts541_0)" @@ -74525,11 +74703,11 @@ static const char *startup_source = " temp537_0))))" "(let-values((()" "(begin" -"(let-values(((lst_432)" -" syms_23)" -"((lst_433)" -" vals_10)" +"(let-values(((lst_433)" +" syms_24)" "((lst_434)" +" vals_10)" +"((lst_435)" " ids_46))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74537,12 +74715,6 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_432)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" " lst_433)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -74550,38 +74722,44 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_434)))" -"((letrec-values(((for-loop_336)" -"(lambda(lst_435" -" lst_436" -" lst_437)" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_435)))" +"((letrec-values(((for-loop_335)" +"(lambda(lst_436" +" lst_437" +" lst_438)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_435)" -"(if(pair?" " lst_436)" -"(pair?" +"(if(pair?" " lst_437)" +"(pair?" +" lst_438)" " #f)" " #f)" "(let-values(((sym_110)" "(unsafe-car" -" lst_435))" -"((rest_257)" +" lst_436))" +"((rest_256)" "(unsafe-cdr" -" lst_435))" +" lst_436))" "((val_87)" "(unsafe-car" -" lst_436))" -"((rest_258)" +" lst_437))" +"((rest_257)" "(unsafe-cdr" -" lst_436))" +" lst_437))" "((id_155)" "(unsafe-car" -" lst_437))" -"((rest_259)" +" lst_438))" +"((rest_258)" "(unsafe-cdr" -" lst_437)))" +" lst_438)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74603,16 +74781,16 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_336" +"(for-loop_335" +" rest_256" " rest_257" -" rest_258" -" rest_259)" +" rest_258)" "(values))))" "(values))))))" -" for-loop_336)" -" lst_432" +" for-loop_335)" " lst_433" -" lst_434)))" +" lst_434" +" lst_435)))" "(values))))" "(let-values()" "(let-values((()" @@ -74639,7 +74817,7 @@ static const char *startup_source = "(keep-properties-only" " exp-body_7)" " ids_46" -" syms_23" +" syms_24" " parsed-rhs_2)))" "(cons" "(if(expand-context-to-parsed?" @@ -74658,7 +74836,7 @@ static const char *startup_source = " exp-body544_0" " temp545_0))" " parsed-body_0))" -"(loop_124" +"(loop_125" " tail?_53" " rest-bodys_1)))))))))))))))))" "(if(equal?" @@ -74790,7 +74968,7 @@ static const char *startup_source = "(void)))" "(cons" " exp-body_7" -"(loop_124" +"(loop_125" " tail?_53" " rest-bodys_1)))))))" "(if(equal?" @@ -74799,7 +74977,7 @@ static const char *startup_source = "(let-values()" "(cons" " exp-body_7" -"(loop_124" +"(loop_125" " tail?_53" " rest-bodys_1)))" "(if(equal?" @@ -74842,7 +75020,7 @@ static const char *startup_source = " partial-body-ctx561_0))))" "(cons" " submod_2" -"(loop_124" +"(loop_125" " tail?_53" " rest-bodys_1)))))" "(if(equal?" @@ -74871,7 +75049,7 @@ static const char *startup_source = "(void)))" "(cons" " exp-body_7" -"(loop_124" +"(loop_125" " tail?_53" " rest-bodys_1))))" "(if(equal?" @@ -74935,7 +75113,7 @@ static const char *startup_source = " kw568_1))))))" "(let-values((()" "(begin" -"(let-values(((lst_438)" +"(let-values(((lst_439)" " kw568_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74943,19 +75121,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_438)))" -"((letrec-values(((for-loop_337)" -"(lambda(lst_439)" +" lst_439)))" +"((letrec-values(((for-loop_336)" +"(lambda(lst_440)" "(begin" " 'for-loop" "(if(pair?" -" lst_439)" +" lst_440)" "(let-values(((kw_1)" "(unsafe-car" -" lst_439))" -"((rest_260)" +" lst_440))" +"((rest_259)" "(unsafe-cdr" -" lst_439)))" +" lst_440)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75006,12 +75184,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_337" -" rest_260)" +"(for-loop_336" +" rest_259)" "(values))))" "(values))))))" -" for-loop_337)" -" lst_438)))" +" for-loop_336)" +" lst_439)))" "(values))))" "(let-values()" "(let-values(((parsed-body_1)" @@ -75024,13 +75202,13 @@ static const char *startup_source = "(expanded+parsed1.1" " exp-body_7" " parsed-body_1))" -"(loop_124" +"(loop_125" " tail?_53" " rest-bodys_1)))))))" "(let-values()" "(cons" " exp-body_7" -"(loop_124" +"(loop_125" " tail?_53" " rest-bodys_1)))))))))))))))))" "(let-values(((l_88)" @@ -75039,7 +75217,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!" @@ -75051,7 +75229,7 @@ static const char *startup_source = "(append" " l_88" "(finish_2)))))))))))))))))" -" loop_124)" +" loop_125)" " #t" " bodys_20))))))))))))))))))))))" "(define-values" @@ -75061,18 +75239,18 @@ static const char *startup_source = "(lambda(ids_47 rhs_23 phase_146)" "(let-values(((scoped-ids_0)" "(reverse$1" -"(let-values(((lst_440) ids_47))" +"(let-values(((lst_441) ids_47))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_440)))" -"((letrec-values(((for-loop_338)" -"(lambda(fold-var_376 lst_441)" +"(let-values()(check-list lst_441)))" +"((letrec-values(((for-loop_337)" +"(lambda(fold-var_376 lst_442)" "(begin" " 'for-loop" -"(if(pair? lst_441)" -"(let-values(((id_156)(unsafe-car lst_441))" -"((rest_261)(unsafe-cdr lst_441)))" +"(if(pair? lst_442)" +"(let-values(((id_156)(unsafe-car lst_442))" +"((rest_260)(unsafe-cdr lst_442)))" "(let-values(((fold-var_377)" "(let-values(((fold-var_378) fold-var_376))" "(let-values(((fold-var_379)" @@ -75084,12 +75262,12 @@ static const char *startup_source = " inside-scope_2))" " fold-var_378))))" "(values fold-var_379)))))" -"(if(not #f)(for-loop_338 fold-var_377 rest_261) fold-var_377)))" +"(if(not #f)(for-loop_337 fold-var_377 rest_260) fold-var_377)))" " fold-var_376)))))" -" for-loop_338)" +" for-loop_337)" " null" -" lst_440))))))" -"(let-values(((syms_24)" +" lst_441))))))" +"(let-values(((syms_25)" "(let-values(((scoped-ids571_0) scoped-ids_0)" "((defined-syms572_0) defined-syms_13)" "((self573_0) self_35)" @@ -75117,36 +75295,36 @@ static const char *startup_source = " scoped-ids_0" " rhs_23))" " inside-scope_2)))" -"(values scoped-ids_0(semi-parsed-define-values2.1 s_295 syms_24 scoped-ids_0 rhs_23)))))))))" +"(values scoped-ids_0(semi-parsed-define-values2.1 s_295 syms_25 scoped-ids_0 rhs_23)))))))))" "(define-values" "(add-post-expansion-scope)" "(lambda(bodys_23 ctx_114)" "(begin" -"(let-values(((sc_40)(root-expand-context-post-expansion-scope ctx_114)))" -"(if sc_40" +"(let-values(((sc_41)(root-expand-context-post-expansion-scope ctx_114)))" +"(if sc_41" "(reverse$1" -"(let-values(((lst_442) bodys_23))" +"(let-values(((lst_443) bodys_23))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_442)))" -"((letrec-values(((for-loop_339)" -"(lambda(fold-var_380 lst_443)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_443)))" +"((letrec-values(((for-loop_338)" +"(lambda(fold-var_380 lst_444)" "(begin" " 'for-loop" -"(if(pair? lst_443)" -"(let-values(((body_21)(unsafe-car lst_443))((rest_262)(unsafe-cdr lst_443)))" +"(if(pair? lst_444)" +"(let-values(((body_21)(unsafe-car lst_444))((rest_261)(unsafe-cdr lst_444)))" "(let-values(((fold-var_381)" "(let-values(((fold-var_382) fold-var_380))" "(let-values(((fold-var_383)" "(let-values()" "(cons" -"(let-values()(add-scope body_21 sc_40))" +"(let-values()(add-scope body_21 sc_41))" " fold-var_382))))" "(values fold-var_383)))))" -"(if(not #f)(for-loop_339 fold-var_381 rest_262) fold-var_381)))" +"(if(not #f)(for-loop_338 fold-var_381 rest_261) fold-var_381)))" " fold-var_380)))))" -" for-loop_339)" +" for-loop_338)" " null" -" lst_442))))" +" lst_443))))" " bodys_23)))))" "(define-values" "(finish-expanding-body-expressons99.1)" @@ -75169,7 +75347,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?_54 bodys_24)" "(begin" " 'loop" @@ -75211,7 +75389,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))))" @@ -75250,7 +75428,7 @@ static const char *startup_source = "(as-expression-context" " body-ctx_7)" " ids_48)))" -"(let-values(((syms_25)" +"(let-values(((syms_26)" "(semi-parsed-define-values-syms" " body_22)))" "(let-values(((s_852)" @@ -75412,7 +75590,7 @@ static const char *startup_source = "(parsed-define-values19.1" " rebuild-s_15" " ids_48" -" syms_25" +" syms_26" "(if(expand-context-to-parsed?" " rhs-ctx_2)" " exp-rhs_7" @@ -75549,7 +75727,7 @@ static const char *startup_source = " self602_0" " body-ctx603_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)" @@ -75570,10 +75748,10 @@ static const char *startup_source = " exp-lifted-modules_0" "(cons" " exp-body_8" -"(loop_125" +"(loop_126" " tail?_54" " rest-bodys_2)))))))))))))))))))))" -" loop_125)" +" loop_126)" " #t" " partially-expanded-bodys_1)))))))))))))" "(define-values" @@ -75581,15 +75759,15 @@ static const char *startup_source = "(lambda(need-eventually-defined_3 self_37 ctx_115 requires+provides_9)" "(begin" "(begin" -"(let-values(((ht_162) need-eventually-defined_3))" +"(let-values(((ht_166) need-eventually-defined_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_162)))" -"((letrec-values(((for-loop_340)" -"(lambda(i_189)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_166)))" +"((letrec-values(((for-loop_339)" +"(lambda(i_188)" "(begin" " 'for-loop" -"(if i_189" -"(let-values(((phase_148 l_89)(hash-iterate-key+value ht_162 i_189)))" +"(if i_188" +"(let-values(((phase_148 l_89)(hash-iterate-key+value ht_166 i_188)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75597,31 +75775,31 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_444) l_89))" +"(let-values(((lst_445) l_89))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_444)))" -"((letrec-values(((for-loop_341)" -"(lambda(lst_445)" +"(let-values()(check-list lst_445)))" +"((letrec-values(((for-loop_340)" +"(lambda(lst_446)" "(begin" " 'for-loop" "(if(pair?" -" lst_445)" +" lst_446)" "(let-values(((id_157)" "(unsafe-car" -" lst_445))" -"((rest_263)" +" lst_446))" +"((rest_262)" "(unsafe-cdr" -" lst_445)))" +" lst_446)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((b_95)" +"(let-values(((b_96)" "(let-values(((id608_0)" " id_157)" "((phase609_0)" @@ -75635,17 +75813,17 @@ static const char *startup_source = " id608_0" " phase609_0))))" "(let-values(((bound-here?_0)" -"(if b_95" +"(if b_96" "(if(module-binding?" -" b_95)" +" b_96)" "(if(eq?" "(module-binding-sym" -" b_95)" +" b_96)" "(syntax-e$1" " id_157))" "(eq?" "(module-binding-module" -" b_95)" +" b_96)" " self_37)" " #f)" " #f)" @@ -75655,7 +75833,7 @@ static const char *startup_source = "(defined-sym-kind" " requires+provides_9" "(module-binding-sym" -" b_95)" +" b_96)" " phase_148)" " #f)))" "(if(eq?" @@ -75667,7 +75845,7 @@ static const char *startup_source = " #f" "(string-append" "(if(not" -" b_95)" +" b_96)" "(let-values()" " \"reference to an unbound identifier\")" "(if(eq?" @@ -75697,19 +75875,19 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_341" -" rest_263)" +"(for-loop_340" +" rest_262)" "(values))))" "(values))))))" -" for-loop_341)" -" lst_444)))" +" for-loop_340)" +" lst_445)))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_340(hash-iterate-next ht_162 i_189))(values))))" +"(if(not #f)(for-loop_339(hash-iterate-next ht_166 i_188))(values))))" "(values))))))" -" for-loop_340)" -"(hash-iterate-first ht_162))))" +" for-loop_339)" +"(hash-iterate-first ht_166))))" "(void)))))" "(define-values" "(resolve-provides115.1)" @@ -75731,7 +75909,7 @@ static const char *startup_source = "(let-values(((ctx_116) ctx107_1))" "(let-values()" "(let-values()" -"((letrec-values(((loop_126)" +"((letrec-values(((loop_127)" "(lambda(bodys_26 phase_150)" "(begin" " 'loop" @@ -75740,11 +75918,11 @@ static const char *startup_source = "(if(let-values(((or-part_409)(parsed?(car bodys_26))))" "(if or-part_409 or-part_409(expanded+parsed?(car bodys_26))))" "(let-values()" -"(cons(car bodys_26)(loop_126(cdr bodys_26) phase_150)))" +"(cons(car bodys_26)(loop_127(cdr bodys_26) phase_150)))" "(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_150))))" "(cons" @@ -75758,7 +75936,7 @@ static const char *startup_source = " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" " the-struct_114)))" -"(loop_126(cdr bodys_26) phase_150))))" +"(loop_127(cdr bodys_26) phase_150))))" "(let-values()" "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))" "(let-values(((tmp_68)" @@ -75840,9 +76018,9 @@ static const char *startup_source = " requires+provides_10" " self_38" " phase_150" -"(let-values(((v_278) ctx_116))" +"(let-values(((v_275) ctx_116))" "(let-values(((the-struct_115)" -" v_278))" +" v_275))" "(if(expand-context/outer?" " the-struct_115)" "(let-values(((context615_0)" @@ -75850,7 +76028,7 @@ static const char *startup_source = "((inner616_0)" "(let-values(((the-struct_116)" "(root-expand-context/outer-inner" -" v_278)))" +" v_275)))" "(if(expand-context/inner?" " the-struct_116)" "(let-values(((phase617_0)" @@ -75951,7 +76129,7 @@ static const char *startup_source = " the-struct_115)))))))" "(if(expand-context-to-parsed? ctx_116)" "(let-values()" -"(loop_126(cdr bodys_26) phase_150))" +"(loop_127(cdr bodys_26) phase_150))" "(let-values()" "(let-values(((new-s_10)" "(syntax-track-origin*" @@ -75980,14 +76158,14 @@ static const char *startup_source = "(void)))" "(cons" " new-s_10" -"(loop_126" +"(loop_127" "(cdr bodys_26)" " phase_150))))))))))" "(let-values()" "(cons" "(car bodys_26)" -"(loop_126(cdr bodys_26) phase_150))))))))))))))" -" loop_126)" +"(loop_127(cdr bodys_26) phase_150))))))))))))))" +" loop_127)" " expression-expanded-bodys_1" " phase_149)))))))))))))" "(define-values" @@ -76087,13 +76265,13 @@ static const char *startup_source = " compiled-module631_0)))))))))))))))))))))))))" "(define-values" "(attach-root-expand-context-properties)" -"(lambda(s_684 root-ctx_8 orig-self_1 new-self_2)" +"(lambda(s_683 root-ctx_8 orig-self_1 new-self_2)" "(begin" -"(let-values(((s_688)" -"(syntax-property$1 s_684 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" +"(let-values(((s_687)" +"(syntax-property$1 s_683 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" "(let-values(((s_869)" "(syntax-property$1" -" s_688" +" s_687" " 'module-body-inside-context" "(add-scope empty-syntax(root-expand-context-post-expansion-scope root-ctx_8)))))" " s_869)))))" @@ -76126,7 +76304,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_152)" "(begin" " 'loop" @@ -76204,7 +76382,7 @@ static const char *startup_source = " submod-ctx637_0" " body-s638_0))))" "(let-values(((nested-bodys_3)" -"(loop_127" +"(loop_128" "(semi-parsed-begin-for-syntax-body" " body_23)" "(add1 phase_152))))" @@ -76229,13 +76407,13 @@ static const char *startup_source = " rebuild-body-s639_0" " temp640_0))" " parsed-bfs_0))" -"(loop_127 rest-bodys_3 phase_152))))))))" +"(loop_128 rest-bodys_3 phase_152))))))))" "(if(let-values(((or-part_411)(parsed? body_23)))" "(if or-part_411" " or-part_411" "(expanded+parsed? body_23)))" "(let-values()" -"(cons body_23(loop_127 rest-bodys_3 phase_152)))" +"(cons body_23(loop_128 rest-bodys_3 phase_152)))" "(let-values()" "(let-values(((disarmed-body_2)" "(syntax-disarm$1 body_23)))" @@ -76346,10 +76524,10 @@ static const char *startup_source = " s_888)" " s_888)))" "(let-values(((name647_0)" -"(let-values(((s_705)" +"(let-values(((s_704)" "(car" " s_889)))" -" s_705))" +" s_704))" "((_648_0)" "(let-values(((s_890)" "(cdr" @@ -76364,7 +76542,7 @@ static const char *startup_source = "(let-values(((s_892)" "(car" " s_891)))" -"(let-values(((s_706)" +"(let-values(((s_705)" "(if(syntax?$1" " s_892)" "(syntax-e$1" @@ -76504,16 +76682,16 @@ static const char *startup_source = " submod-ctx665_0))))))" "(cons" " submod_3" -"(loop_127" +"(loop_128" " rest-bodys_3" " phase_152)))))))" "(let-values()" "(cons" " body_23" -"(loop_127" +"(loop_128" " rest-bodys_3" " phase_152)))))))))))))))))" -" loop_127)" +" loop_128)" " fully-expanded-bodys-except-post-submodules_2" " phase_151)))))))))))))))))" "(define-values" @@ -76535,18 +76713,18 @@ static const char *startup_source = "(let-values(((s_894) in168_0))" "(let-values()" "(begin" -"(let-values(((lst_446) ids_49))" +"(let-values(((lst_447) ids_49))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_446)))" -"((letrec-values(((for-loop_342)" -"(lambda(lst_447)" +"(let-values()(check-list lst_447)))" +"((letrec-values(((for-loop_341)" +"(lambda(lst_448)" "(begin" " 'for-loop" -"(if(pair? lst_447)" -"(let-values(((id_158)(unsafe-car lst_447))" -"((rest_264)(unsafe-cdr lst_447)))" +"(if(pair? lst_448)" +"(let-values(((id_158)(unsafe-car lst_448))" +"((rest_263)(unsafe-cdr lst_448)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76573,25 +76751,25 @@ static const char *startup_source = " phase673_0)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_342 rest_264)(values))))" +"(if(not #f)(for-loop_341 rest_263)(values))))" "(values))))))" -" for-loop_342)" -" lst_446)))" +" for-loop_341)" +" lst_447)))" "(void))))))))))" "(define-values" "(eval-nested-bodys)" "(lambda(bodys_28 phase_154 m-ns_23 self_41 ctx_119)" "(begin" "(begin" -"(let-values(((lst_448) bodys_28))" +"(let-values(((lst_449) bodys_28))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_448)))" -"((letrec-values(((for-loop_343)" -"(lambda(lst_449)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_449)))" +"((letrec-values(((for-loop_342)" +"(lambda(lst_450)" "(begin" " 'for-loop" -"(if(pair? lst_449)" -"(let-values(((body_24)(unsafe-car lst_449))((rest_265)(unsafe-cdr lst_449)))" +"(if(pair? lst_450)" +"(let-values(((body_24)(unsafe-car lst_450))((rest_264)(unsafe-cdr lst_450)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76618,59 +76796,59 @@ static const char *startup_source = " m-ns_23" " ctx_119)))" "(begin" -"(let-values(((lst_450) ids_50)" -"((lst_451)" +"(let-values(((lst_451) ids_50)" +"((lst_452)" "(parsed-define-values-syms" " p_88))" -"((lst_452) vals_11))" +"((lst_453) vals_11))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_450)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" "(check-list lst_451)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list lst_452)))" -"((letrec-values(((for-loop_344)" -"(lambda(lst_453" -" lst_454" -" lst_455)" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list lst_453)))" +"((letrec-values(((for-loop_343)" +"(lambda(lst_454" +" lst_455" +" lst_456)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_453)" -"(if(pair?" " lst_454)" -"(pair?" +"(if(pair?" " lst_455)" +"(pair?" +" lst_456)" " #f)" " #f)" "(let-values(((id_159)" "(unsafe-car" -" lst_453))" -"((rest_266)" +" lst_454))" +"((rest_265)" "(unsafe-cdr" -" lst_453))" +" lst_454))" "((sym_111)" "(unsafe-car" -" lst_454))" -"((rest_267)" +" lst_455))" +"((rest_266)" "(unsafe-cdr" -" lst_454))" +" lst_455))" "((val_88)" "(unsafe-car" -" lst_455))" -"((rest_268)" +" lst_456))" +"((rest_267)" "(unsafe-cdr" -" lst_455)))" +" lst_456)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76686,16 +76864,16 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_344" +"(for-loop_343" +" rest_265" " rest_266" -" rest_267" -" rest_268)" +" rest_267)" "(values))))" "(values))))))" -" for-loop_344)" -" lst_450" +" for-loop_343)" " lst_451" -" lst_452)))" +" lst_452" +" lst_453)))" "(void)))))" "(if(let-values(((or-part_412)" "(parsed-define-syntaxes?" @@ -76741,10 +76919,10 @@ static const char *startup_source = " m-ns_23)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_343 rest_265)(values))))" +"(if(not #f)(for-loop_342 rest_264)(values))))" "(values))))))" -" for-loop_343)" -" lst_448)))" +" for-loop_342)" +" lst_449)))" "(void)))))" "(define-values" "(expand-submodule197.1)" @@ -76762,7 +76940,7 @@ static const char *startup_source = " ctx196_0)" "(begin" " 'expand-submodule197" -"(let-values(((s_734) s194_0))" +"(let-values(((s_733) s194_0))" "(let-values(((self_42) self195_0))" "(let-values(((ctx_120) ctx196_0))" "(let-values(((is-star?_0) is-star?176_0))" @@ -76785,14 +76963,14 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_161 'enter-prim s_734)" +"(call-expand-observe obs_161 'enter-prim s_733)" "(call-expand-observe" " obs_161" "(if is-star?_0 'prim-submodule* 'prim-submodule)))))" "(void)))))" "(values))))" "(let-values(((ok?_91 module678_0 name679_0 _680_0)" -"(let-values(((s_895) s_734))" +"(let-values(((s_895) s_733))" "(let-values(((orig-s_94) s_895))" "(let-values(((module678_1 name679_1 _680_1)" "(let-values(((s_896)" @@ -76840,7 +77018,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"submodule already declared with the same name\"" -" s_734" +" s_733" " name_82))" "(void))" "(values))))" @@ -76857,14 +77035,14 @@ static const char *startup_source = "(if obs_162" "(let-values()" "(let-values()" -"(call-expand-observe obs_162 'enter-prim s_734)))" +"(call-expand-observe obs_162 'enter-prim s_733)))" "(void)))" "(values))))" "(let-values(((submod_5)" -"(let-values(((s686_0) s_734)" +"(let-values(((s686_0) s_733)" "((temp687_0)" -"(let-values(((v_279) ctx_120))" -"(let-values(((the-struct_118) v_279))" +"(let-values(((v_276) ctx_120))" +"(let-values(((the-struct_118) v_276))" "(if(expand-context/outer? the-struct_118)" "(let-values(((context696_0) 'module)" "((post-expansion-scope697_0)" @@ -76872,7 +77050,7 @@ static const char *startup_source = "((inner698_0)" "(let-values(((the-struct_119)" "(root-expand-context/outer-inner" -" v_279)))" +" v_276)))" "(if(expand-context/inner?" " the-struct_119)" "(let-values(((stops699_0)" @@ -77160,18 +77338,18 @@ static const char *startup_source = "(let-values(((modules-being-compiled_9) modules-being-compiled203_0))" "(let-values()" "(reverse$1" -"(let-values(((lst_456) bodys_29))" +"(let-values(((lst_457) bodys_29))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_456)))" -"((letrec-values(((for-loop_345)" -"(lambda(fold-var_384 lst_457)" +"(let-values()(check-list lst_457)))" +"((letrec-values(((for-loop_344)" +"(lambda(fold-var_384 lst_458)" "(begin" " 'for-loop" -"(if(pair? lst_457)" -"(let-values(((body_25)(unsafe-car lst_457))" -"((rest_269)(unsafe-cdr lst_457)))" +"(if(pair? lst_458)" +"(let-values(((body_25)(unsafe-car lst_458))" +"((rest_268)(unsafe-cdr lst_458)))" "(let-values(((fold-var_385)" "(let-values(((fold-var_386) fold-var_384))" "(let-values(((fold-var_387)" @@ -77218,12 +77396,12 @@ static const char *startup_source = " fold-var_386))))" "(values fold-var_387)))))" "(if(not #f)" -"(for-loop_345 fold-var_385 rest_269)" +"(for-loop_344 fold-var_385 rest_268)" " fold-var_385)))" " fold-var_384)))))" -" for-loop_345)" +" for-loop_344)" " null" -" lst_456))))))))))))))))" +" lst_457))))))))))))))))" "(define-values" "(make-parse-lifted-require220.1)" "(lambda(declared-submodule-names215_0 m-ns217_0 self218_0 requires+provides219_0)" @@ -77316,16 +77494,16 @@ static const char *startup_source = "(lambda(lifted-defns_2)" "(begin" "(reverse$1" -"(let-values(((lst_458) lifted-defns_2))" +"(let-values(((lst_459) lifted-defns_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_458)))" -"((letrec-values(((for-loop_346)" -"(lambda(fold-var_388 lst_459)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_459)))" +"((letrec-values(((for-loop_345)" +"(lambda(fold-var_388 lst_460)" "(begin" " 'for-loop" -"(if(pair? lst_459)" -"(let-values(((lifted-defn_0)(unsafe-car lst_459))" -"((rest_270)(unsafe-cdr lst_459)))" +"(if(pair? lst_460)" +"(let-values(((lifted-defn_0)(unsafe-car lst_460))" +"((rest_269)(unsafe-cdr lst_460)))" "(let-values(((fold-var_389)" "(let-values(((fold-var_390) fold-var_388))" "(let-values(((fold-var_391)" @@ -77335,11 +77513,11 @@ static const char *startup_source = "(defn-extract-syntax lifted-defn_0))" " fold-var_390))))" "(values fold-var_391)))))" -"(if(not #f)(for-loop_346 fold-var_389 rest_270) fold-var_389)))" +"(if(not #f)(for-loop_345 fold-var_389 rest_269) fold-var_389)))" " fold-var_388)))))" -" for-loop_346)" +" for-loop_345)" " null" -" lst_458)))))))" +" lst_459)))))))" "(define-values" "(log-lifted-defns)" "(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)" @@ -77355,18 +77533,18 @@ static const char *startup_source = "(let-values((()(begin(call-expand-observe obs_165 'module-lift-loop s-lifted-defns_0)(values))))" "(let-values((()" "(begin" -"(let-values(((lst_460) s-lifted-defns_0))" +"(let-values(((lst_461) s-lifted-defns_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_460)))" -"((letrec-values(((for-loop_347)" -"(lambda(lst_461)" +"(let-values()(check-list lst_461)))" +"((letrec-values(((for-loop_346)" +"(lambda(lst_462)" "(begin" " 'for-loop" -"(if(pair? lst_461)" -"(let-values(((s-lifted-defn_0)(unsafe-car lst_461))" -"((rest_271)(unsafe-cdr lst_461)))" +"(if(pair? lst_462)" +"(let-values(((s-lifted-defn_0)(unsafe-car lst_462))" +"((rest_270)(unsafe-cdr lst_462)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77472,10 +77650,10 @@ static const char *startup_source = " s-lifted-defn_0))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_347 rest_271)(values))))" +"(if(not #f)(for-loop_346 rest_270)(values))))" "(values))))))" -" for-loop_347)" -" lst_460)))" +" for-loop_346)" +" lst_461)))" "(values))))" "(let-values()" "(let-values(((ok?_94 form-id736_0 _737_0)" @@ -77566,7 +77744,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_84)))" -"((letrec-values(((for-loop_103)" +"((letrec-values(((for-loop_104)" "(lambda(fold-var_392 lst_85)" "(begin" " 'for-loop" @@ -77584,9 +77762,9 @@ static const char *startup_source = " ctx_124))" " fold-var_62))))" "(values fold-var_393)))))" -"(if(not #f)(for-loop_103 fold-var_61 rest_40) fold-var_61)))" +"(if(not #f)(for-loop_104 fold-var_61 rest_40) fold-var_61)))" " fold-var_392)))))" -" for-loop_103)" +" for-loop_104)" " null" " lst_84))))))" "(let-values((()" @@ -77596,18 +77774,18 @@ static const char *startup_source = "(values))))" "(let-values(((tmp-bind-ids_0)" "(reverse$1" -"(let-values(((lst_462) tl-ids_2))" +"(let-values(((lst_463) tl-ids_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_462)))" -"((letrec-values(((for-loop_80)" +"(let-values()(check-list lst_463)))" +"((letrec-values(((for-loop_81)" "(lambda(fold-var_216 lst_86)" "(begin" " 'for-loop" "(if(pair? lst_86)" "(let-values(((id_160)(unsafe-car lst_86))" -"((rest_250)(unsafe-cdr lst_86)))" +"((rest_249)(unsafe-cdr lst_86)))" "(let-values(((fold-var_26)" "(let-values(((fold-var_394) fold-var_216))" "(let-values(((fold-var_219)" @@ -77620,12 +77798,12 @@ static const char *startup_source = " fold-var_394))))" "(values fold-var_219)))))" "(if(not #f)" -"(for-loop_80 fold-var_26 rest_250)" +"(for-loop_81 fold-var_26 rest_249)" " fold-var_26)))" " fold-var_216)))))" -" for-loop_80)" +" for-loop_81)" " null" -" lst_462))))))" +" lst_463))))))" "(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_124)))))))))" "(void" "(add-core-form!*" @@ -77646,13 +77824,13 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_25)(syntax-disarm$1 s_0)))" "(let-values(((ok?_26 define-values1_0 id2_1 rhs3_0)" -"(let-values(((s_491) s_0))" -"(let-values(((orig-s_99) s_491))" +"(let-values(((s_490) s_0))" +"(let-values(((orig-s_99) s_490))" "(let-values(((define-values1_1 id2_2 rhs3_1)" -"(let-values(((s_76)(if(syntax?$1 s_491)(syntax-e$1 s_491) s_491)))" +"(let-values(((s_76)(if(syntax?$1 s_490)(syntax-e$1 s_490) s_490)))" "(if(pair? s_76)" "(let-values(((define-values4_0)" -"(let-values(((s_413)(car s_76))) s_413))" +"(let-values(((s_188)(car s_76))) s_188))" "((id5_0 rhs6_0)" "(let-values(((s_167)(cdr s_76)))" "(let-values(((s_5)" @@ -77686,17 +77864,17 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_80)))" -"((letrec-values(((for-loop_96)" +"((letrec-values(((for-loop_97)" "(lambda(id_161" " lst_81)" "(begin" " 'for-loop" "(if(pair?" " lst_81)" -"(let-values(((s_88)" +"(let-values(((s_89)" "(unsafe-car" " lst_81))" -"((rest_121)" +"((rest_120)" "(unsafe-cdr" " lst_81)))" "(let-values(((id_162)" @@ -77708,21 +77886,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_30)" "(if(syntax?$1" -" s_88)" +" s_89)" "(symbol?" "(syntax-e$1" -" s_88))" +" s_89))" " #f)))" "(if or-part_30" " or-part_30" "(symbol?" -" s_88)))" -" s_88" +" s_89)))" +" s_89" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_99" -" s_88)))))" +" s_89)))))" "(cons" " id10_1" " id_163)))))" @@ -77730,12 +77908,12 @@ static const char *startup_source = " id_114)))))" "(if(not" " #f)" -"(for-loop_96" +"(for-loop_97" " id_162" -" rest_121)" +" rest_120)" " id_162)))" " id_161)))))" -" for-loop_96)" +" for-loop_97)" " null" " lst_80)))))" "(reverse$1 id_53))))))))" @@ -77747,10 +77925,10 @@ static const char *startup_source = " s_306)))" "(if(pair? s_35)" "(let-values(((rhs9_0)" -"(let-values(((s_90)" +"(let-values(((s_91)" "(car" " s_35)))" -" s_90))" +" s_91))" "(()" "(let-values(((s_168)" "(cdr" @@ -77778,13 +77956,13 @@ static const char *startup_source = "(values define-values4_0 id5_0 rhs6_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_99)))))" "(values #t define-values1_1 id2_2 rhs3_1))))))" -"(let-values(((ids_52 syms_26)(as-expand-time-top-level-bindings id2_1 s_0 ctx_7)))" +"(let-values(((ids_52 syms_27)(as-expand-time-top-level-bindings id2_1 s_0 ctx_7)))" "(let-values(((exp-rhs_9)" "(let-values(((temp11_7) rhs3_0)" "((temp12_9)(as-named-context(as-expression-context ctx_7) ids_52)))" "(expand9.1 #f #f #f temp11_7 temp12_9))))" "(if(expand-context-to-parsed? ctx_7)" -"(parsed-define-values19.1 s_0 ids_52 syms_26 exp-rhs_9)" +"(parsed-define-values19.1 s_0 ids_52 syms_27 exp-rhs_9)" "(let-values(((s13_0) s_0)((temp14_7)(list define-values1_0 ids_52 exp-rhs_9)))" "(rebuild5.1 #t s13_0 temp14_7))))))))))))" "(void" @@ -77817,7 +77995,7 @@ static const char *startup_source = "(let-values(((s_22)(if(syntax?$1 s_18)(syntax-e$1 s_18) s_18)))" "(if(pair? s_22)" "(let-values(((define-syntaxes18_0)" -"(let-values(((s_493)(car s_22))) s_493))" +"(let-values(((s_492)(car s_22))) s_492))" "((id19_1 rhs20_0)" "(let-values(((s_25)(cdr s_22)))" "(let-values(((s_305)" @@ -77842,7 +78020,7 @@ static const char *startup_source = " orig-s_100))" "(let-values()" "(let-values(((id_164)" -"(let-values(((lst_463)" +"(let-values(((lst_464)" " flat-s_69))" "(begin" "(if(variable-reference-from-unsafe?" @@ -77850,20 +78028,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_463)))" +" lst_464)))" "((letrec-values(((for-loop_2)" "(lambda(id_165" -" lst_464)" +" lst_465)" "(begin" " 'for-loop" "(if(pair?" -" lst_464)" +" lst_465)" "(let-values(((s_927)" "(unsafe-car" -" lst_464))" -"((rest_272)" +" lst_465))" +"((rest_271)" "(unsafe-cdr" -" lst_464)))" +" lst_465)))" "(let-values(((id_166)" "(let-values(((id_167)" " id_165))" @@ -77897,12 +78075,12 @@ static const char *startup_source = " #f)" "(for-loop_2" " id_166" -" rest_272)" +" rest_271)" " id_166)))" " id_165)))))" " for-loop_2)" " null" -" lst_463)))))" +" lst_464)))))" "(reverse$1 id_164))))))))" "((rhs22_0)" "(let-values(((s_928)(cdr s_305)))" @@ -77912,22 +78090,22 @@ static const char *startup_source = " s_928)))" "(if(pair? s_175)" "(let-values(((rhs23_2)" -"(let-values(((s_451)" +"(let-values(((s_450)" "(car" " s_175)))" -" s_451))" +" s_450))" "(()" "(let-values(((s_46)" "(cdr" " s_175)))" -"(let-values(((s_485)" +"(let-values(((s_484)" "(if(syntax?$1" " s_46)" "(syntax-e$1" " s_46)" " s_46)))" "(if(null?" -" s_485)" +" s_484)" "(values)" "(raise-syntax-error$1" " #f" @@ -77946,12 +78124,12 @@ static const char *startup_source = "(values define-syntaxes18_0 id19_1 rhs20_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_100)))))" "(values #t define-syntaxes15_1 id16_2 rhs17_1))))))" -"(let-values(((ids_53 syms_27)(as-expand-time-top-level-bindings id16_1 s_186 ctx_125)))" +"(let-values(((ids_53 syms_28)(as-expand-time-top-level-bindings id16_1 s_186 ctx_125)))" "(let-values(((exp-rhs_10)" "(let-values(((temp25_8) rhs17_0)((temp26_6)(as-named-context ctx_125 ids_53)))" "(expand-transformer92.1 #f #f 'expression #t #f unsafe-undefined temp25_8 temp26_6))))" "(if(expand-context-to-parsed? ctx_125)" -"(parsed-define-syntaxes20.1 s_186 ids_53 syms_27 exp-rhs_10)" +"(parsed-define-syntaxes20.1 s_186 ids_53 syms_28 exp-rhs_10)" "(let-values(((s27_3) s_186)((temp28_4)(list define-syntaxes15_0 ids_53 exp-rhs_10)))" "(rebuild5.1 #t s27_3 temp28_4)))))))))))))" "(void" @@ -77965,19 +78143,19 @@ static const char *startup_source = " (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_308)))" "(values))))" "(let-values(((ok?_38 begin-for-syntax29_0 form30_0)" -"(let-values(((s_495) s_308))" -"(let-values(((orig-s_101) s_495))" +"(let-values(((s_494) s_308))" +"(let-values(((orig-s_101) s_494))" "(let-values(((begin-for-syntax29_1 form30_1)" -"(let-values(((s_48)(if(syntax?$1 s_495)(syntax-e$1 s_495) s_495)))" +"(let-values(((s_48)(if(syntax?$1 s_494)(syntax-e$1 s_494) s_494)))" "(if(pair? s_48)" "(let-values(((begin-for-syntax31_0)(let-values(((s_51)(car s_48))) s_51))" "((form32_0)" -"(let-values(((s_501)(cdr s_48)))" -"(let-values(((s_776)" -"(if(syntax?$1 s_501)" -"(syntax-e$1 s_501)" -" s_501)))" -"(let-values(((flat-s_70)(to-syntax-list.1 s_776)))" +"(let-values(((s_500)(cdr s_48)))" +"(let-values(((s_775)" +"(if(syntax?$1 s_500)" +"(syntax-e$1 s_500)" +" s_500)))" +"(let-values(((flat-s_70)(to-syntax-list.1 s_775)))" "(if(not flat-s_70)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_101))" @@ -78006,12 +78184,12 @@ static const char *startup_source = "(let-values(((temp36_9)(make-top-level-lift trans-ctx_1)))" "(make-lift-context6.1 #f temp36_9))))" "(let-values(((capture-ctx_1)" -"(let-values(((v_280) trans-ctx_1))" -"(let-values(((the-struct_123) v_280))" +"(let-values(((v_277) trans-ctx_1))" +"(let-values(((the-struct_123) v_277))" "(if(expand-context/outer? the-struct_123)" "(let-values(((inner37_0)" "(let-values(((the-struct_124)" -"(root-expand-context/outer-inner v_280)))" +"(root-expand-context/outer-inner v_277)))" "(if(expand-context/inner? the-struct_124)" "(let-values(((lift-key38_1)(generate-lift-key))" "((lifts39_0) lift-ctx_7))" @@ -78084,7 +78262,7 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((exp-forms_0)" -"((letrec-values(((loop_128)" +"((letrec-values(((loop_129)" "(lambda(forms_1 accum_1)" "(begin" " 'loop" @@ -78135,12 +78313,12 @@ static const char *startup_source = " #f" " temp40_3" " 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_15)(get-and-clear-lifts! lift-ctx_7)))" @@ -78211,11 +78389,11 @@ static const char *startup_source = "(if(pair? s_406)" "(let-values(((#%require49_0)(let-values(((s_409)(car s_406))) s_409))" "((req50_0)" -"(let-values(((s_416)(cdr s_406)))" +"(let-values(((s_415)(cdr s_406)))" "(let-values(((s_65)" -"(if(syntax?$1 s_416)" -"(syntax-e$1 s_416)" -" s_416)))" +"(if(syntax?$1 s_415)" +"(syntax-e$1 s_415)" +" s_415)))" "(let-values(((flat-s_71)(to-syntax-list.1 s_65)))" "(if(not flat-s_71)" "(let-values()" @@ -78227,7 +78405,7 @@ static const char *startup_source = "(values #%require49_0 req50_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_102)))))" "(values #t #%require47_1 req48_1))))))" -"(let-values(((sc_41)(new-scope 'macro)))" +"(let-values(((sc_42)(new-scope 'macro)))" "(begin" "(let-values(((temp51_4)" "(reverse$1" @@ -78251,7 +78429,7 @@ static const char *startup_source = "(let-values()" "(add-scope" " req_20" -" sc_41))" +" sc_42))" " fold-var_397))))" "(values fold-var_292)))))" "(if(not #f)" @@ -78288,17 +78466,17 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%provide" -"(lambda(s_780 ctx_127)" +"(lambda(s_779 ctx_127)" "(begin" "(let-values(((obs_178)(expand-context-observer ctx_127)))" "(if obs_178(let-values()(let-values()(call-expand-observe obs_178 'prim-provide)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_780)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_779)))))" "(define-values(ns)(make-namespace))" "(void" "(begin" "(declare-core-module! ns)" -"(let-values(((temp1_3) '#%read)((read-primitives2_0) read-primitives)((ns3_0) ns))" -"(declare-hash-based-module!41.1 ns3_0 #f null #f #f temp1_3 read-primitives2_0))" +"(let-values(((temp1_4) '#%read)((read-primitives2_0) read-primitives)((ns3_0) ns))" +"(declare-hash-based-module!41.1 ns3_0 #f null #f #f temp1_4 read-primitives2_0))" "(let-values(((temp4_8) '#%main)((main-primitives5_0) main-primitives)((ns6_1) ns))" "(declare-hash-based-module!41.1 ns6_1 #f null #f #f temp4_8 main-primitives5_0))" "(let-values(((temp7_5) '#%utils)((utils-primitives8_0) utils-primitives)((ns9_1) ns))" @@ -78323,65 +78501,65 @@ static const char *startup_source = "(let-values(((ns26_1) ns)" "((eval27_0) 1/eval)" "((temp28_5)" -"(let-values(((ht_163) main-primitives))" +"(let-values(((ht_167) main-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_163)))" +"(let-values()(check-in-hash-keys ht_167)))" "((letrec-values(((for-loop_20)" -"(lambda(table_216 i_3)" +"(lambda(table_222 i_3)" "(begin" " 'for-loop" "(if i_3" -"(let-values(((name_83)(hash-iterate-key ht_163 i_3)))" -"(let-values(((table_207)" -"(let-values(((table_217) table_216))" -"(let-values(((table_179)" +"(let-values(((name_83)(hash-iterate-key ht_167 i_3)))" +"(let-values(((table_211)" +"(let-values(((table_223) table_222))" +"(let-values(((table_181)" "(let-values()" "(let-values(((key_93 val_89)" "(let-values()" "(values" "(let-values() name_83)" " #t))))" -"(hash-set table_217 key_93 val_89)))))" -"(values table_179)))))" +"(hash-set table_223 key_93 val_89)))))" +"(values table_181)))))" "(if(not #f)" -"(for-loop_20 table_207(hash-iterate-next ht_163 i_3))" -" table_207)))" -" table_216)))))" +"(for-loop_20 table_211(hash-iterate-next ht_167 i_3))" +" table_211)))" +" table_222)))))" " for-loop_20)" " '#hash()" -"(hash-iterate-first ht_163)))))" +"(hash-iterate-first ht_167)))))" "((temp29_7)" -"(let-values(((ht_122) read-primitives))" +"(let-values(((ht_127) read-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_122)))" -"((letrec-values(((for-loop_330)" -"(lambda(table_218 i_185)" +"(let-values()(check-in-hash-keys ht_127)))" +"((letrec-values(((for-loop_329)" +"(lambda(table_224 i_184)" "(begin" " 'for-loop" -"(if i_185" -"(let-values(((name_84)(hash-iterate-key ht_122 i_185)))" -"(let-values(((table_117)" -"(let-values(((table_110) table_218))" -"(let-values(((table_111)" +"(if i_184" +"(let-values(((name_84)(hash-iterate-key ht_127 i_184)))" +"(let-values(((table_119)" +"(let-values(((table_111) table_224))" +"(let-values(((table_112)" "(let-values()" "(let-values(((key_94 val_90)" "(let-values()" "(values" "(let-values() name_84)" " #t))))" -"(hash-set table_110 key_94 val_90)))))" -"(values table_111)))))" +"(hash-set table_111 key_94 val_90)))))" +"(values table_112)))))" "(if(not #f)" -"(for-loop_330 table_117(hash-iterate-next ht_122 i_185))" -" table_117)))" -" table_218)))))" -" for-loop_330)" +"(for-loop_329 table_119(hash-iterate-next ht_127 i_184))" +" table_119)))" +" table_224)))))" +" for-loop_329)" " '#hash()" -"(hash-iterate-first ht_122))))))" +"(hash-iterate-first ht_127))))))" "(declare-kernel-module!8.1 eval27_0 temp28_5 temp29_7 ns26_1))" "(begin" "(let-values(((lst_17) runtime-instances))" @@ -78443,5 +78621,5 @@ static const char *startup_source = "(declare-reexporting-module!50.1 ns35_1 temp36_5 temp33_5 temp34_8))" "(1/current-namespace ns)" "(1/dynamic-require ''#%kernel 0)))" -"(define-values(datum->kernel-syntax)(lambda(s_773)(begin(1/datum->syntax core-stx s_773)))))" +"(define-values(datum->kernel-syntax)(lambda(s_772)(begin(1/datum->syntax core-stx s_772)))))" ;